diff --git a/.github/CODEOWNERS b/.github/CODEOWNERS new file mode 100644 index 0000000000..9c132fe8ab --- /dev/null +++ b/.github/CODEOWNERS @@ -0,0 +1,92 @@ +# This file sets up default notification for reviews based on who "owns" code. + +# Default + +* @wrf-model/global_owner + +# Next, generic top-level run dir and build files + +/run/ @wrf-model/infrastructure +/configure @wrf-model/infrastructure +/compile @wrf-model/infrastructure +/clean @wrf-model/infrastructure +/Makefile @wrf-model/infrastructure + +# Architecture directories + +/arch/ @wrf-model/infrastructure +/tools/ @wrf-model/infrastructure + +# Common directories + +/share/ @wrf-model/infrastructure +/frame/ @wrf-model/infrastructure + +# Chemistry +/chem/ @wrf-model/chem + +# Physics + +/phys/ @wrf-model/physics + +/phys/module_mp_thompson.F @gthompsnWRF @wrf-model/physics + +# Shared Physics Between MPAS and WRF + +/phys/module_mp_wsm6.F @wrf-model/shared_physics +/phys/module_cu_ntiedtke.F @wrf-model/shared_physics +/phys/module_ra_rrtmg_lw.F @wrf-model/shared_physics +/phys/module_ra_rrtmg_sw.F @wrf-model/shared_physics +/phys/module_bl_ysu.F @wrf-model/shared_physics +/phys/module_sf_sfclay.F @wrf-model/shared_physics +/phys/module_sf_noah_seaice.F @wrf-model/shared_physics +/phys/module_sf_noah_seaice_drv.F @wrf-model/shared_physics +/phys/module_sf_noahdrv.F @wrf-model/shared_physics +/phys/module_sf_noahlsm.F @wrf-model/shared_physics +/phys/module_sf_noahlsm_glacial_only.F @wrf-model/shared_physics + +# Data Assimilation + +/wrftladj/ @wrf-model/da +/var/ @wrf-model/da + +# Dynamics + +/dyn_em/ @wrf-model/arw_dev +/dyn_nmm/ @wrf-model/hwrf_dev + +# WRF-Hydro + +/hydro/ @wrf-model/hydro +/doc/README.hydro @wrf-model/hydro + +# Registry + +/Registry/ @wrf-model/infrastructure + +/Registry/Registry.NMM @wrf-model/hwrf_dev +/Registry/registry.tracker @wrf-model/hwrf_dev +/Registry/registry.tornado @wrf-model/hwrf_dev + +/Registry/Registry.EM_CHEM @wrf-model/chem +/Registry/registry.chem @wrf-model/chem + +/Registry/registry.var @wrf-model/da +/Registry/registry.var_chem @wrf-model/da +/Registry/registry.wrfplus @wrf-model/da +/Registry/Registry.wrfvar @wrf-model/da +/Registry/Registry.tladj @wrf-model/da + +# Test directories + +/test/em_* @wrf-model/arw_dev +/test/nmm_* @wrf-model/hwrf_dev +/test/em_fire/ @wrf-model/fire + +# Executable directory + +/main/ @wrf-model/arw_dev @wrf-model/hwrf_dev @wrf-model/infrastructure + +# Externals directory structure + +/external/ @wrf-model/infrastructure diff --git a/LICENSE.txt b/LICENSE.txt new file mode 100644 index 0000000000..e0c9342282 --- /dev/null +++ b/LICENSE.txt @@ -0,0 +1,3 @@ +WRF was developed at the National Center for Atmospheric Research (NCAR) which is operated by the University Corporation for Atmospheric Research (UCAR). NCAR and UCAR make no proprietary claims, either statutory or otherwise, to this version and release of WRF and consider WRF to be in the public domain for use by any person or entity for any purpose without any fee or charge. UCAR requests that any WRF user include this notice on any partial or full copies of WRF. WRF is provided on an "AS IS" basis and any warranties, either express or implied, including but not limited to implied warranties of non-infringement, originality, merchantability and fitness for a particular purpose, are disclaimed. In no event shall UCAR be liable for any damages, whatsoever, whether direct, indirect, consequential or special, that arise out of or in connection with the access, use or performance of WRF, including infringement actions. + +WRF® is a registered trademark of the University Corporation for Atmospheric Research (UCAR). diff --git a/Makefile b/Makefile index b47b8ae1a4..246a2a7b75 100644 --- a/Makefile +++ b/Makefile @@ -147,7 +147,7 @@ all_wrfvar : $(MAKE) MODULE_DIRS="$(DA_WRFVAR_MODULES)" ext $(MAKE) MODULE_DIRS="$(DA_WRFVAR_MODULES)" toolsdir if [ $(CRTM) -ne 0 ] ; then \ - (cd var/external/crtm_2.2.3; $(MAKE) $(J)) ; \ + (cd var/external/crtm_2.3.0; $(MAKE) $(J)) ; \ fi if [ $(BUFR) ] ; then \ (cd var/external/bufr; \ @@ -556,8 +556,14 @@ em_real : wrf ln -sf ../../run/aerosol_lon.formatted . ; \ ln -sf ../../run/aerosol_plev.formatted . ; \ ln -sf ../../run/CCN_ACTIVATE.BIN . ; \ - ln -sf ../../run/p3_lookup_table_1.dat-v2.8.2 . ; \ - ln -sf ../../run/p3_lookup_table_2.dat-v2.8.2 . ; \ + ln -sf ../../run/p3_lookup_table_1.dat-v4.1 . ; \ + ln -sf ../../run/p3_lookup_table_2.dat-v4.1 . ; \ + ln -sf ../../run/HLC.TBL . ; \ + ln -sf ../../run/wind-turbine-1.tbl . ; \ + ln -sf ../../run/ishmael-gamma-tab.bin . ; \ + ln -sf ../../run/ishmael-qi-qc.bin . ; \ + ln -sf ../../run/ishmael-qi-qr.bin . ; \ + ln -sf ../../run/BROADBAND_CLOUD_GODDARD.bin . ; \ if [ $(RWORDSIZE) -eq 8 ] ; then \ ln -sf ../../run/ETAMPNEW_DATA_DBL ETAMPNEW_DATA ; \ ln -sf ../../run/ETAMPNEW_DATA.expanded_rain_DBL ETAMPNEW_DATA.expanded_rain ; \ @@ -610,19 +616,25 @@ em_real : wrf ln -sf ../../run/aerosol_lat.formatted . ; \ ln -sf ../../run/aerosol_lon.formatted . ; \ ln -sf ../../run/aerosol_plev.formatted . ; \ - ln -sf ../../run/capacity.asc . ; \ - ln -sf ../../run/coeff_p.asc . ; \ - ln -sf ../../run/coeff_q.asc . ; \ - ln -sf ../../run/constants.asc . ; \ - ln -sf ../../run/masses.asc . ; \ - ln -sf ../../run/termvels.asc . ; \ + ln -sf ../../run/capacity.asc . ; \ + ln -sf ../../run/coeff_p.asc . ; \ + ln -sf ../../run/coeff_q.asc . ; \ + ln -sf ../../run/constants.asc . ; \ + ln -sf ../../run/masses.asc . ; \ + ln -sf ../../run/termvels.asc . ; \ ln -sf ../../run/kernels.asc_s_0_03_0_9 . ; \ - ln -sf ../../run/kernels_z.asc . ; \ - ln -sf ../../run/bulkdens.asc_s_0_03_0_9 . ; \ - ln -sf ../../run/bulkradii.asc_s_0_03_0_9 . ; \ - ln -sf ../../run/CCN_ACTIVATE.BIN . ; \ - ln -sf ../../run/p3_lookup_table_1.dat-v2.8.2 . ; \ - ln -sf ../../run/p3_lookup_table_2.dat-v2.8.2 . ; \ + ln -sf ../../run/kernels_z.asc . ; \ + ln -sf ../../run/bulkdens.asc_s_0_03_0_9 . ; \ + ln -sf ../../run/bulkradii.asc_s_0_03_0_9 . ; \ + ln -sf ../../run/CCN_ACTIVATE.BIN . ; \ + ln -sf ../../run/p3_lookup_table_1.dat-v4.1 . ; \ + ln -sf ../../run/p3_lookup_table_2.dat-v4.1 . ; \ + ln -sf ../../run/HLC.TBL . ; \ + ln -sf ../../run/wind-turbine-1.tbl . ; \ + ln -sf ../../run/ishmael-gamma-tab.bin . ; \ + ln -sf ../../run/ishmael-qi-qc.bin . ; \ + ln -sf ../../run/ishmael-qi-qr.bin . ; \ + ln -sf ../../run/BROADBAND_CLOUD_GODDARD.bin . ; \ if [ $(RWORDSIZE) -eq 8 ] ; then \ ln -sf ../../run/ETAMPNEW_DATA_DBL ETAMPNEW_DATA ; \ ln -sf ../../run/ETAMPNEW_DATA.expanded_rain_DBL ETAMPNEW_DATA.expanded_rain ; \ diff --git a/README b/README index 4aa8e4fe6f..053848d57c 100644 --- a/README +++ b/README @@ -1,4 +1,4 @@ -WRF Model Version 4.0.3 (December 18, 2018) +WRF Model Version 4.1 http://www2.mmm.ucar.edu/wrf/users/ diff --git a/README.md b/README.md new file mode 100644 index 0000000000..8e447cb57d --- /dev/null +++ b/README.md @@ -0,0 +1,11 @@ +### WRF-ARW Modeling System ### + +We request that all new users of WRF please register. This allows us to better determine how to support and develop the model. Please register using this form:[http://www2.mmm.ucar.edu/wrf/users/download/wrf-regist.php](http://www2.mmm.ucar.edu/wrf/users/download/wrf-regist.php). + +For an overview of the WRF modeling system, along with information regarding downloads, user support, documentation, publications, and additional resources, please see the WRF Model Users' Web Site: [http://www2.mmm.ucar.edu/wrf/users/](http://www2.mmm.ucar.edu/wrf/users/). + +Information regarding WRF Model citations (including a DOI) can be found here: [http://www2.mmm.ucar.edu/wrf/users/citing_wrf.html](http://www2.mmm.ucar.edu/wrf/users/citing_wrf.html). + +The WRF Model is open-source code in the public domain, and its use is unrestricted. The name "WRF", however, is a registered trademark of the University Corporation for Atmospheric Research. The WRF public domain notice and related information may be found here: [http://www2.mmm.ucar.edu/wrf/users/public.html](http://www2.mmm.ucar.edu/wrf/users/public.html). + + diff --git a/Registry/Registry.EM b/Registry/Registry.EM index 951fbda84a..4b9a392c33 100644 --- a/Registry/Registry.EM +++ b/Registry/Registry.EM @@ -38,6 +38,6 @@ package tracer_test1 tracer_opt==2 - tracer:tr17_1,tr17_2,t package restofwrf use_wps_input==0 - - -package realonly use_wps_input==1 - state:u_gc,v_gc,t_gc,rh_gc,ght_gc,p_gc,xlat_gc,xlong_gc,ht_gc,tsk_gc,tavgsfc,tmn_gc,pslv_gc,sct_dom_gc,scb_dom_gc,greenfrac,albedo12m,lai12m,pd_gc,psfc_gc,intq_gc,pdhs,sh_gc,cl_gc,cf_gc,qv_gc,qr_gc,qc_gc,qs_gc,qi_gc,qg_gc,qh_gc,qni_gc,qnc_gc,icefrac_gc,prho_gc,pdrho_gc,qnr_gc,qns_gc,qng_gc,qnh_gc,soil_layers,soil_levels,st,sm,sw,soilt,soilm,sm000007,sm007028,sm028100,sm100255,st000007,st007028,st028100,st100255,sm000010,sm010040,sm040100,sm100200,sm010200,soilm000,soilm005,soilm020,soilm040,soilm160,soilm300,sw000010,sw010040,sw040100,sw100200,sw010200,soilw000,soilw005,soilw020,soilw040,soilw160,soilw300,st000010,st010040,st040100,st100200,st010200,soilt000,soilt005,soilt020,soilt040,soilt160,soilt300,fad0_urb2d,fad135_urb2d,fad45_urb2d,pad_urb2d,fad90_urb2d,rad_urb2d,car_urb2d,h2w_urb2d,svf_urb2d,z0s_urb2d,z0r_urb2d,z0m_urb2d,zds_urb2d,zdm_urb2d,zdr_urb2d,qnwfa_gc,qnwfa_now,qnwfa_jan,qnwfa_feb,qnwfa_mar,qnwfa_apr,qnwfa_may,qnwfa_jun,qnwfa_jul,qnwfa_aug,qnwfa_sep,qnwfa_oct,qnwfa_nov,qnwfa_dec,qnifa_gc,qnifa_now,qnifa_jan,qnifa_feb,qnifa_mar,qnifa_apr,qnifa_may,qnifa_jun,qnifa_jul,qnifa_aug,qnifa_sep,qnifa_oct,qnifa_nov,qnifa_dec,qntemp,qntemp2,hgtmaxw,pmaxw,tmaxw,umaxw,vmaxw,hgttrop,ptrop,ttrop,utrop,vtrop,urb_param +package realonly use_wps_input==1 - state:u_gc,v_gc,t_gc,rh_gc,ght_gc,p_gc,xlat_gc,xlong_gc,ht_gc,tsk_gc,tavgsfc,tmn_gc,pslv_gc,sct_dom_gc,scb_dom_gc,greenfrac,albedo12m,lai12m,pd_gc,psfc_gc,intq_gc,pdhs,sh_gc,cl_gc,cf_gc,qv_gc,qr_gc,qc_gc,qs_gc,qi_gc,qg_gc,qh_gc,qni_gc,qnc_gc,icefrac_gc,prho_gc,pdrho_gc,qnr_gc,qns_gc,qng_gc,qnh_gc,soil_layers,soil_levels,st,sm,sw,soilt,soilm,sm000007,sm007028,sm028100,sm100255,st000007,st007028,st028100,st100255,sm000010,sm010040,sm040100,sm100200,sm010200,soilm000,soilm005,soilm020,soilm040,soilm160,soilm300,sw000010,sw010040,sw040100,sw100200,sw010200,soilw000,soilw005,soilw020,soilw040,soilw160,soilw300,st000010,st010040,st040100,st100200,st010200,soilt000,soilt005,soilt020,soilt040,soilt160,soilt300,qnwfa_gc,qnwfa_now,qnwfa_jan,qnwfa_feb,qnwfa_mar,qnwfa_apr,qnwfa_may,qnwfa_jun,qnwfa_jul,qnwfa_aug,qnwfa_sep,qnwfa_oct,qnwfa_nov,qnwfa_dec,qnifa_gc,qnifa_now,qnifa_jan,qnifa_feb,qnifa_mar,qnifa_apr,qnifa_may,qnifa_jun,qnifa_jul,qnifa_aug,qnifa_sep,qnifa_oct,qnifa_nov,qnifa_dec,qntemp,qntemp2,hgtmaxw,pmaxw,tmaxw,umaxw,vmaxw,hgttrop,ptrop,ttrop,utrop,vtrop,urb_param package tconly use_wps_input==2 - state:u_gc,v_gc,t_gc,rh_gc,ght_gc,p_gc,xlat_gc,xlong_gc,ht_gc,tsk_gc,tavgsfc,tmn_gc,pslv_gc,sct_dom_gc,scb_dom_gc,greenfrac,albedo12m,pd_gc,psfc_gc,intq_gc,pdhs,sh_gc,qv_gc,qr_gc,qc_gc,qs_gc,qi_gc,qg_gc,qh_gc,qni_gc,qnc_gc,qnr_gc,qns_gc,qng_gc,qnh_gc,icefrac_gc diff --git a/Registry/Registry.EM_COMMON b/Registry/Registry.EM_COMMON index 1ed40b92d7..35200d3e9f 100644 --- a/Registry/Registry.EM_COMMON +++ b/Registry/Registry.EM_COMMON @@ -231,7 +231,7 @@ i1 real ph_tendf ikj dyn_em 1 Z i1 real ph_save ikj dyn_em 1 Z # Potential Temperature -state real th_phy_m_t0 ikj dyn_em 1 - ihd "t" "perturbation potential temperature theta-t0" "K" +state real th_phy_m_t0 ikj dyn_em 1 - irhd "t" "perturbation potential temperature theta-t0" "K" state real t ikjb dyn_em 2 - \ i0rhusdf=(bdy_interp:dt) "thm" "either 1) pert moist pot temp=(1+Rv/Rd Qv)*(theta)-T0, or 2) pert dry pot temp=theta-T0; based on use_theta_m setting" "K" @@ -339,13 +339,13 @@ i1 real tke_tend ikj dyn_em 1 - # Pressure and Density state real p ikj dyn_em 1 - irh "p" "perturbation pressure" "Pa" -state real al ikj dyn_em 1 - r "al" "inverse perturbation density" "m3 kg-1" +state real al ikj dyn_em 1 - ir "al" "inverse perturbation density" "m3 kg-1" state real alt ikj dyn_em 1 - r "alt" "inverse density" "m3 kg-1" -state real alb ikj dyn_em 1 - rdus "alb" "inverse base density" "m3 kg-1" +state real alb ikj dyn_em 1 - irdus "alb" "inverse base density" "m3 kg-1" state real zx ikj dyn_em 1 XZ - " " " " " " state real zy ikj dyn_em 1 YZ - " " " " " " state real rdz ikj dyn_em 1 Z - " " " " " " -state real rdzw ikj dyn_em 1 Z - " " " " " " +state real rdzw ikj dyn_em 1 Z - " " " " " " state real pb ikj dyn_em 1 - irhdus "pb" "BASE STATE PRESSURE " "Pa" # @@ -396,7 +396,7 @@ state real p_hyd_w ikj dyn_em 1 Z r " state real Q2 ij misc 1 - irh01{22}{23}du "Q2" "QV at 2 M" "kg kg-1" state real T2 ij misc 1 - i01rh01{22}{23}du "T2" "TEMP at 2 M" "K" state real TH2 ij misc 1 - irhdu "TH2" "POT TEMP at 2 M" "K" -state real PSFC ij misc 1 - i01rhdu "PSFC" "SFC PRESSURE" "Pa" +state real PSFC ij misc 1 - i01rh01du "PSFC" "SFC PRESSURE" "Pa" # these next 2 are for the HFSoLE/PET demo; writing these to auxhist1 output over MCEL for coupling # with wave model, only if compiled with -DMCELIO, JM 2003/05/29 @@ -476,6 +476,8 @@ state real qi ikjftb moist 1 - \ i0rhusdf=(bdy_interp:dt) "QICE" "Ice mixing ratio" "kg kg-1" state real qi2 ikjftb moist 1 - \ i0rhusdf=(bdy_interp:dt) "QICE2" "Ice mixing ratio cat 2" "kg kg-1" +state real qi3 ikjftb moist 1 - \ + i0rhusdf=(bdy_interp:dt) "QICE3" "Ice mixing ratio cat 3" "kg kg-1" state real qs ikjftb moist 1 - \ i0rhusdf=(bdy_interp:dt) "QSNOW" "Snow mixing ratio" "kg kg-1" state real qg ikjftb moist 1 - \ @@ -493,6 +495,8 @@ state real dfi_qi ikjftb dfi_moist 1 - \ rusdf=(bdy_interp:dt) "DFI_QICE" "Ice mixing ratio" "kg kg-1" state real dfi_qi2 ikjftb dfi_moist 1 - \ rusdf=(bdy_interp:dt) "DFI_QICE2" "Ice mixing ratio cat 2" "kg kg-1" +state real dfi_qi3 ikjftb dfi_moist 1 - \ + rusdf=(bdy_interp:dt) "DFI_QICE3" "Ice mixing ratio cat 3" "kg kg-1" state real dfi_qs ikjftb dfi_moist 1 - \ rusdf=(bdy_interp:dt) "DFI_QSNOW" "Snow mixing ratio" "kg kg-1" state real dfi_qg ikjftb dfi_moist 1 - \ @@ -506,9 +510,21 @@ state real qnifa2d ij misc 1 - i014rhdu "QN state real re_cloud ikj misc 1 - r "RE_CLOUD" "Effective radius cloud water" "m" state real re_ice ikj misc 1 - r "RE_ICE" "Effective radius cloud ice" "m" state real re_snow ikj misc 1 - r "RE_SNOW" "Effective radius snow" "m" +state real re_cloud_gsfc ikj misc 1 - rh "RE_CLOUD_GSFC" "Cloud Water effective radius" "micron" +state real re_rain_gsfc ikj misc 1 - rh "RE_RAIN_GSFC" "Rain Water effective radius" "micron" +state real re_ice_gsfc ikj misc 1 - rh "RE_ICE_GSFC" "Cloud Ice effective radius" "micron" +state real re_snow_gsfc ikj misc 1 - rh "RE_SNOW_GSFC" "Snow effective radius" "micron" +state real re_graupel_gsfc ikj misc 1 - rh "RE_GRAUPEL_GSFC" "Graupel Water effective radius" "micron" +state real re_hail_gsfc ikj misc 1 - rh "RE_HAIL_GSFC" "Hail Water effective radius" "micron" state real dfi_re_cloud ikj misc 1 - - "DFI_RE_CLOUD" "DFI Effective radius cloud water" "m" state real dfi_re_ice ikj misc 1 - - "DFI_RE_ICE" "DFI Effective radius cloud ice" "m" state real dfi_re_snow ikj misc 1 - - "DFI_RE_SNOW" "DFI Effective radius snow" "m" +state real dfi_re_cloud_gsfc ikj misc 1 - - "DFI_RE_CLOUD_GSFC" "DFI Cloud Water effective radius" "micron" +state real dfi_re_rain_gsfc ikj misc 1 - - "DFI_RE_RAIN_GSFC" "DFI Rain Water effective radius" "micron" +state real dfi_re_ice_gsfc ikj misc 1 - - "DFI_RE_ICE_GSFC" "DFI Cloud Ice effective radius" "micron" +state real dfi_re_snow_gsfc ikj misc 1 - - "DFI_RE_SNOW_GSFC" "DFI Snow effective radius" "micron" +state real dfi_re_graupel_gsfc ikj misc 1 - - "DFI_RE_GRAUPEL_GSFC" "DFI Graupel Water effective radius" "micron" +state real dfi_re_hail_gsfc ikj misc 1 - - "DFI_RE_HAIL_GSFC" "DFI Hail Water effective radius" "micron" state integer has_reqc - misc 1 - r "has_reqc" "Flag for having effective radius cloud water" "" state integer has_reqi - misc 1 - r "has_reqi" "Flag for having effective radius cloud ice" "" state integer has_reqs - misc 1 - r "has_reqs" "Flag for having effective radius snow" "" @@ -521,6 +537,8 @@ state real qni ikjftb scalar 1 - \ i0rhusdf=(bdy_interp:dt) "QNICE" "Ice Number concentration" "# kg-1" state real qni2 ikjftb scalar 1 - \ i0rhusdf=(bdy_interp:dt) "QNICE2" "Ice Number concentration cat 2" "# kg-1" +state real qni3 ikjftb scalar 1 - \ + i0rhusdf=(bdy_interp:dt) "QNICE3" "Ice Number concentration cat 3" "# kg-1" state real qt ikjftb scalar 1 - \ i0rhusdf=(bdy_interp:dt) "CWM" "Total condensate mixing ratio" "kg kg-1" state real qns ikjftb scalar 1 - \ @@ -549,6 +567,18 @@ state real qir2 ikjftb scalar 1 - \ i0rhusdf=(bdy_interp:dt) "QIR2" "Rime ice mass-2 mixing ratio" "kg kg(-1)" state real qib2 ikjftb scalar 1 - \ i0rhusdf=(bdy_interp:dt) "QIB2" "Rime ice volume-2 mixing ratio" "m(3) kg(-1)" +state real qvoli ikjftb scalar 1 - \ + i0rhusdf=(bdy_interp:dt) "QVOLI" "Ice volume-1 mixing ratio" "m(3) kg(-1)" +state real qaoli ikjftb scalar 1 - \ + i0rhusdf=(bdy_interp:dt) "QAOLI" "Ice volume-1 times aspect ratio mixing ratio" "m(3) kg(-1)" +state real qvoli2 ikjftb scalar 1 - \ + i0rhusdf=(bdy_interp:dt) "QVOLI2" "Ice volume-2 mixing ratio" "m(3) kg(-1)" +state real qaoli2 ikjftb scalar 1 - \ + i0rhusdf=(bdy_interp:dt) "QAOLI2" "Ice volume-2 times aspect ratio mixing ratio" "m(3) kg(-1)" +state real qvoli3 ikjftb scalar 1 - \ + i0rhusdf=(bdy_interp:dt) "QVOLI3" "Ice volume-3 mixing ratio" "m(3) kg(-1)" +state real qaoli3 ikjftb scalar 1 - \ + i0rhusdf=(bdy_interp:dt) "QAOLI3" "Ice volume-3 times aspect ratio mixing ratio" "m(3) kg(-1)" state real - ikjftb dfi_scalar 1 - - - state real dfi_qndrop ikjftb dfi_scalar 1 - \ @@ -557,6 +587,8 @@ state real dfi_qni ikjftb dfi_scalar 1 - \ rusdf=(bdy_interp:dt) "DFI_QNICE" "DFI Ice Number concentration" "# kg-1" state real dfi_qni2 ikjftb dfi_scalar 1 - \ rusdf=(bdy_interp:dt) "DFI_QNICE2" "DFI Ice Number concentration cat 2" "# kg-1" +state real dfi_qni3 ikjftb dfi_scalar 1 - \ + rusdf=(bdy_interp:dt) "DFI_QNICE3" "DFI Ice Number concentration cat 3" "# kg-1" state real dfi_qt ikjftb dfi_scalar 1 - \ rusdf=(bdy_interp:dt) "DFI_CWM" "DFI Total condensate mixing ratio" "kg kg-1" state real dfi_qns ikjftb dfi_scalar 1 - \ @@ -583,6 +615,19 @@ state real dfi_qir2 ikjftb dfi_scalar 1 - \ rhusdf=(bdy_interp:dt) "DFI_QIR2" "DFI Rime ice mass-2 mixing ratio" "kg kg(-1)" state real dfi_qib2 ikjftb dfi_scalar 1 - \ rhusdf=(bdy_interp:dt) "DFI_QIB2" "DFI Rime ice volume-2 mixing ratio" "m(3) kg(-1)" +state real dfi_qvoli ikjftb dfi_scalar 1 - \ + rhusdf=(bdy_interp:dt) "DFI_QVOLI" "DFI Ice volume-1 mixing ratio" "kg kg(-1)" +state real dfi_qaoli ikjftb dfi_scalar 1 - \ + rhusdf=(bdy_interp:dt) "DFI_QAOLI" "DFI Ice volume-1 times aspect ratio mixing ratio" "kg kg(-1)" +state real dfi_qvoli2 ikjftb dfi_scalar 1 - \ + rhusdf=(bdy_interp:dt) "DFI_QVOLI2" "DFI Ice volume-2 mixing ratio" "kg kg(-1)" +state real dfi_qaoli2 ikjftb dfi_scalar 1 - \ + rhusdf=(bdy_interp:dt) "DFI_QAOLI2" "DFI Ice volume-2 times aspect ratio mixing ratio" "kg kg(-1)" +state real dfi_qvoli3 ikjftb dfi_scalar 1 - \ + rhusdf=(bdy_interp:dt) "DFI_QVOLI3" "DFI Ice volume-3 mixing ratio" "kg kg(-1)" +state real dfi_qaoli3 ikjftb dfi_scalar 1 - \ + rhusdf=(bdy_interp:dt) "DFI_QAOLI3" "DFI Ice volume-3 times aspect ratio mixing ratio" "kg kg(-1)" + state real dfi_qke_adv ikjftb dfi_scalar 1 - \ rusdf=(bdy_interp:dt) "dfi_qke_adv" "DFI twice TKE from MYNN" "m2 s-2" @@ -690,12 +735,15 @@ state real ts_clw ?! misc - - - "TS state real ts_rainc ?! misc - - - "TS_RAINC" "Cumulus precip" state real ts_rainnc ?! misc - - - "TS_RAINNC" "Grid-scale precip" -# Time series of vertical profile of U, V, GHT, THETA and QVAPOR -state real ts_u_profile ?!k misc - - - "TS_U_PROFILE" "Wind u-Component, earth relative, vertical profile" -state real ts_v_profile ?!k misc - - - "TS_V_PROFILE" "Wind v-Component, earth relative, vertical profile" -state real ts_gph_profile ?!k misc - - - "TS_GPH_PROFILE" "Total geopotential height, vertical profile" -state real ts_th_profile ?!k misc - - - "TS_TH_PROFILE" "Total potential temperature, vertical profile" -state real ts_qv_profile ?!k misc - - - "TS_QV_PROFILE" "Water vapor mixing ratio, vertical profile" +# Time series of vertical profile of U, V, GHT, THETA, QVAPOR, PRESSURE +state real ts_u_profile ?!k misc - - - "TS_U_PROFILE" "Wind u-Component, earth relative, vertical profile" "m/s" +state real ts_v_profile ?!k misc - - - "TS_V_PROFILE" "Wind v-Component, earth relative, vertical profile" "m/s" +state real ts_w_profile ?!k misc - - - "TS_W_PROFILE" "Wind w-Component, vertical profile" "m/s" +state real ts_gph_profile ?!k misc - - - "TS_GPH_PROFILE" "Total geopotential height, vertical profile" "m" +state real ts_th_profile ?!k misc - - - "TS_TH_PROFILE" "Total potential temperature, vertical profile" "K" +state real ts_qv_profile ?!k misc - - - "TS_QV_PROFILE" "Water vapor mixing ratio, vertical profile" "kg/kg" +state real ts_p_profile ?!k misc - - - "TS_P_PROFILE" "Pressure, vertical profile" "Pa" + # urban model variables state real DZR l em - Z r "DZR" "THICKNESSES OF ROOF LAYERS" "m" @@ -706,25 +754,9 @@ state real LP_URB2D ij misc 1 - i0 "BUILD_AREA state real HI_URB2D i{uhi}j misc 1 Z i0 "HEIGHT_HISTOGRAMS" "DISTRIBUTION OF BUILDING HEIGHTS" "dimensionless" state real LB_URB2D ij misc 1 - i0 "BUILD_SURF_RATIO" "BUILDING SURFACE AREA TO PLAN AREA RATIO" "dimensionless" state real HGT_URB2D ij misc 1 - i0 "BUILD_HEIGHT" "AVERAGE BUILDING HEIGHT WEIGHTED BY BUILDING PLAN AREA" "m" -state real FAD0_URB2D i{uhi}j misc 1 Z - "FAD0_URB2D" "Frontal Area Density from the 0 Degree Wind Direction" "m-1" -state real FAD135_URB2D i{uhi}j misc 1 Z - "FAD135_URB2D" "Frontal Area Density from the 135 Degree Direction" "m-1" -state real FAD45_URB2D i{uhi}j misc 1 Z - "FAD45_URB2D" "Frontal Area Density from the 45 Degree Wind Direction" "m-1" -state real PAD_URB2D i{uhi}j misc 1 Z - "PAD_URB2D" "Building Plan Area Density" "m-1" -state real FAD90_URB2D i{uhi}j misc 1 Z - "FAD90_URB2D" "Frontal Area Density from the 90 Degree Wind Direction" "m-1" -state real RAD_URB2D i{uhi}j misc 1 - - "RAD_URB2D" "Roof Area Density" "m-1" state real MH_URB2D ij misc 1 - i0 "MH_URB2D" "Mean Building Height" "m" state real STDH_URB2D ij misc 1 - i0 "STDH_URB2D" "Standard Deviation of Building Height" "m2" state real LF_URB2D i{udr}j misc 1 Z i0 "LF_URB2D" "Frontal Area Index" "dimensionless" -state real CAR_URB2D ij misc 1 - - "CAR_URB2D" "Complete Aspect Ratio" "dimensionless" -state real H2W_URB2D ij misc 1 - - "H2W_URB2D" "Height-to-Width Ratio" "dimensionless" -state real SVF_URB2D ij misc 1 - - "SVF_URB2D" "Sky View Factor" "dimensionless" -state real Z0S_URB2D ij misc 1 - - "Z0S_URB2D" "Roughness Length S" "m" -state real Z0R_URB2D i{udr}j misc 1 Z - "Z0R_URB2D" "Roughness Length R" "m" -state real Z0M_URB2D i{udr}j misc 1 Z - "Z0M_URB2D" "Roughness Length M" "m" -state real ZDS_URB2D ij misc 1 - - "ZDS_URB2D" "Displacement Height S" "m" -state real ZDM_URB2D ij misc 1 - - "ZDM_URB2D" "Displacement Height M" "m" -state real ZDR_URB2D i{udr}j misc 1 Z - "ZDR_URB2D" "Displacement Height R" "m" - # lsm State Variables @@ -832,27 +864,27 @@ state real RN_URB2D ij misc 1 - rd=(interp_f state real TS_URB2D ij misc 1 - rd=(interp_fcnm)u=(copy_fcnm) "TS_URB" "SKIN TEMPERATURE" "K" state real FRC_URB2D ij misc 1 - i012rd=(interp_fcnm)u=(copy_fcnm) "FRC_URB2D" "URBAN FRACTION" "dimensionless" state integer UTYPE_URB2D ij misc 1 - rd=(interp_fcnm)u=(copy_fcnm) "UTYPE_URB" "URBAN TYPE" "dimensionless" -state real TRB_URB4D i{ulay}j misc 1 Z r "TRB_URB4D" "ROOF LAYER TEMPERATURE" "K" -state real TW1_URB4D i{ulay}j misc 1 Z r "TW1_URB4D" "WALL LAYER TEMPERATURE" "K" -state real TW2_URB4D i{ulay}j misc 1 Z r "TW2_URB4D" "WALL LAYER TEMPERATURE" "K" -state real TGB_URB4D i{ulay}j misc 1 Z r "TGB_URB4D" "ROAD LAYER TEMPERATURE" "K" -state real TLEV_URB3D i{ulay}j misc 1 Z r "TLEV_URB3D" "INDOOR TEMPERATURE" "K" -state real QLEV_URB3D i{ulay}j misc 1 Z r "QLEV_URB3D" "SPECIFIC HUMIDITY" "dimensionless" -state real TW1LEV_URB3D i{ulay}j misc 1 Z r "TW1LEV_URB3D" "WINDOW TEMPERATURE" "K" -state real TW2LEV_URB3D i{ulay}j misc 1 Z r "TW2LEV_URB3D" "WINDOW TEMPERATURE" "K" -state real TGLEV_URB3D i{ulay}j misc 1 Z r "TGLEV_URB3D" "GROUND TEMPERATURE BELOW A BUILDING" "K" -state real TFLEV_URB3D i{ulay}j misc 1 Z r "TFLEV_URB3D" "FLOOR TEMPERATURE" "K" +state real TRB_URB4D i{umap1}j misc 1 Z r "TRB_URB4D" "ROOF LAYER TEMPERATURE" "K" +state real TW1_URB4D i{umap2}j misc 1 Z r "TW1_URB4D" "WALL LAYER TEMPERATURE" "K" +state real TW2_URB4D i{umap2}j misc 1 Z r "TW2_URB4D" "WALL LAYER TEMPERATURE" "K" +state real TGB_URB4D i{umap3}j misc 1 Z r "TGB_URB4D" "ROAD LAYER TEMPERATURE" "K" +state real TLEV_URB3D i{umap6}j misc 1 Z r "TLEV_URB3D" "INDOOR TEMPERATURE" "K" +state real QLEV_URB3D i{umap6}j misc 1 Z r "QLEV_URB3D" "SPECIFIC HUMIDITY" "dimensionless" +state real TW1LEV_URB3D i{umap7}j misc 1 Z r "TW1LEV_URB3D" "WINDOW TEMPERATURE" "K" +state real TW2LEV_URB3D i{umap7}j misc 1 Z r "TW2LEV_URB3D" "WINDOW TEMPERATURE" "K" +state real TGLEV_URB3D i{umap8}j misc 1 Z r "TGLEV_URB3D" "GROUND TEMPERATURE BELOW A BUILDING" "K" +state real TFLEV_URB3D i{umap9}j misc 1 Z r "TFLEV_URB3D" "FLOOR TEMPERATURE" "K" state real SF_AC_URB3D ij misc 1 - r "SF_AC_URB3D" "SENSIBLE HEAT FLUX FROM THE AIR COND." "W m{-2}" state real LF_AC_URB3D ij misc 1 - r "LF_AC_URB3D" "LATENT HEAT FLUX FROM THE AIR COND." "W m{-2}" state real CM_AC_URB3D ij misc 1 - r "CM_AC_URB3D" "CONSUMPTION OF THE AIR COND." "W m{-2}" state real SFVENT_URB3D ij misc 1 - r "SFVENT_URB3D" "SENSIBLE HEAT FLUX FROM URBAN VENTILATION" "W m{-2}" state real LFVENT_URB3D ij misc 1 - r "LFVENT_URB3D" "LATENT HEAT FLUX FROM URBAN VENTILATION" "W m{-2}" -state real SFWIN1_URB3D i{ulay}j misc 1 Z r "SFWIN1_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC WINDOW" "W m{-2}" -state real SFWIN2_URB3D i{ulay}j misc 1 Z r "SFWIN2_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC WINDOW" "W m{-2}" -state real SFW1_URB3D i{ulay}j misc 1 Z r "SFW1_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" -state real SFW2_URB3D i{ulay}j misc 1 Z r "SFW2_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" -state real SFR_URB3D i{ulay}j misc 1 Z r "SFR_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" -state real SFG_URB3D i{ulay}j misc 1 Z r "SFG_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" +state real SFWIN1_URB3D i{umap7}j misc 1 Z r "SFWIN1_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC WINDOW" "W m{-2}" +state real SFWIN2_URB3D i{umap7}j misc 1 Z r "SFWIN2_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC WINDOW" "W m{-2}" +state real SFW1_URB3D i{umap4}j misc 1 Z r "SFW1_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" +state real SFW2_URB3D i{umap4}j misc 1 Z r "SFW2_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" +state real SFR_URB3D i{umap5}j misc 1 Z r "SFR_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" +state real SFG_URB3D i{umap0}j misc 1 Z r "SFG_URB3D" "SENSIBLE HEAT FLUX FROM URBAN SFC" "W m{-2}" state real CMR_SFCDIF ij misc 1 - r "CMR_SFCDIF" "" "" state real CHR_SFCDIF ij misc 1 - r "CHR_SFCDIF" "" "" state real CMC_SFCDIF ij misc 1 - r "CMC_SFCDIF" "" "" @@ -893,6 +925,13 @@ state real T2OBS ij misc 1 - r "T state real Q2OBS ij misc 1 - r "Q2OBS" "2-m mixing ratio from analysis " "kg/kg" state real IMPERV ij misc 1 - i012rhd=(interp_mask_field:lu_index,iswater)u=(copy_fcnm) "IMPERV" "Impervious surface fraction NLCD" "percent" state real CANFRA ij misc 1 - i012rhd=(interp_mask_field:lu_index,iswater)u=(copy_fcnm) "CANFRA" "Satellite canopy fraction" "percent" +state real LAI_PX ij misc 1 - rh "LAI_PX" "LAI used for PX LSM" "m2/m2" +state real WWLT_PX ij misc 1 - rh "WWLT_PX" "Soil wilting point for PX LSM" "m3/m3" +state real WFC_PX ij misc 1 - rh "WFC_PX" "Soil field capacity for PX LSM" "m3/m3" +state real WSAT_PX ij misc 1 - rh "WSAT_PX" "Soil saturation for PX LSM" "m3/m3" +state real CLAY_PX ij misc 1 - rh "CLAY_PX" "Clay perent for PX LSM" "fraction" +state real CSAND_PX ij misc 1 - rh "CSAND_PX" "Coarse sand perent for PX LSM" "fraction" +state real FMSAND_PX ij misc 1 - rh "FMSAND_PX" "Fine-medium sand perent for PX LSM" "fraction" # sfclay PBL variables i1 real PSIM ij misc 1 - - "PSIM" "SIMILARITY FUNCTION FOR MOMENTUM" "" @@ -1283,6 +1322,31 @@ state real p_strat - misc - - i02rh "p state real max_msftx - misc - - rh "max_mstfx" "Max map factor in domain" "" state real max_msfty - misc - - rh "max_mstfy" "Max map factor in domain" "" +# NUWRF: State variables for Goddard microphysics +state real phys_tot ikj misc 1 - h "PHYS_TOT" "TOTAL LATENT HEATING RATE" "K s-1" +state real physc ikj misc 1 - - "PHYSC" "LATENT HEATING RATE DUE TO CONDENSATION" "K s-1" +state real physe ikj misc 1 - - "PHYSE" "LATENT HEATING RATE DUE TO EVAPORATION" "K s-1" +state real physd ikj misc 1 - - "PHYSD" "LATENT HEATING RATE DUE TO DEPOSITION" "K s-1" +state real physs ikj misc 1 - - "PHYSS" "LATENT HEATING RATE DUE TO SUBLIMATION" "K s-1" +state real physm ikj misc 1 - - "PHYSM" "LATENT HEATING RATE DUE TO MELTING" "K s-1" +state real physf ikj misc 1 - - "PHYSF" "LATENT HEATING RATE DUE TO FREEZING" "K s-1" +# NUWRF EMK +state real acphys_tot ikj misc 1 - r "ACPHYS_TOT" "ACCUMULATED TOTAL LATENT HEATING" "K" +state real acphysc ikj misc 1 - r "ACPHYSC" "ACCUMULATED LATENT HEATING DUE TO CONDENSATION" "K" +state real acphyse ikj misc 1 - r "ACPHYSE" "ACCUMULATED LATENT HEATING DUE TO EVAPORATION" "K" +state real acphysd ikj misc 1 - r "ACPHYSD" "ACCUMULATED LATENT HEATING DUE TO DEPOSITION" "K" +state real acphyss ikj misc 1 - r "ACPHYSS" "ACCUMULATED LATENT HEATING DUE TO SUBLIMATION" "K" +state real acphysm ikj misc 1 - r "ACPHYSM" "ACCUMULATED LATENT HEATING DUE TO MELTING" "K" +state real acphysf ikj misc 1 - r "ACPHYSF" "ACCUMULATED LATENT HEATING DUE TO FREEZING" "K" + +#state real dbz ikj misc 1 - - "DBZ" "RADAR REFLECTIVITIES" "dbz" +# NUWRF...4ICE output +state real preci3d ikj misc 1 - - "PRECI3D" "Sedimentation Fluxes for cloud ice" "KG/M^2/S" +state real precs3d ikj misc 1 - - "PRECS3D" "Sedimentation Fluxes for snow" "KG/M^2/S" +state real precg3d ikj misc 1 - - "PRECG3D" "Sedimentation Fluxes for graupel" "KG/M^2/S" +state real prech3d ikj misc 1 - - "PRECH3D" "Sedimentation Fluxes for hail" "KG/M^2/S" +state real precr3d ikj misc 1 - - "PRECR3D" "Sedimentation Fluxes for rain" "KG/M^2/S" + # State variables for Goddard LW and SW radiation state real TLWDN ij misc 1 - h "TLWDN" "TOA LW downwelling flux" "W m-2" state real TLWUP ij misc 1 - h "TLWUP" "TOA LW upwelling flux" "W m-2" @@ -1292,7 +1356,10 @@ state real TSWDN ij misc 1 - h "T state real TSWUP ij misc 1 - h "TSWUP" "TOA SW upwelling flux" "W m-2" state real SSWDN ij misc 1 - h "SSWDN" "Surface SW downwelling flux" "W m-2" state real SSWUP ij misc 1 - h "SSWUP" "Surface SW upwelling flux" "W m-2" - +state real COD2D_OUT ij misc 1 - h "COD2D_OUT" "Column Cloud Optical Depth" " " +state real CTOP2D_OUT ij misc 1 - h "CTOP2D_OUT" "Cloud-Top Pressure" "mb" + + # Other physics variables state real RUSHTEN ikj misc 1 - r "RUSHTEN" "X WIND TENDENCY DUE TO SHALLOW CUMULUS SCHEME" "m s-2" @@ -1307,6 +1374,33 @@ state real RQGSHTEN ikj misc 1 - r "R state real RQCNSHTEN ikj misc 1 - r "RQCNSHTEN" "Q_CN TENDENCY DUE TO SHALLOW CUMULUS SCHEME" "# kg-1 s-1" state real RQINSHTEN ikj misc 1 - r "RQINSHTEN" "Q_IN TENDENCY DUE TO SHALLOW CUMULUS SCHEME" "# kg-1 s-1" +# Deng Shallow Convection Parameterization +state real RDCASHTEN ikj misc 1 - r "RDCASHTEN" "CLOUD FRACTION AREA TENDENCY DUE TO DENG SHALLOW CUMULUS SCHEME" "Pa s-1" +state real RQCDCSHTEN ikj misc 1 - r "RQCDCSHTEN" "CLOUD LIQUID TENDENCY DUE TO DENG SHALLOW CUMULUS SCHEME" "kg kg-1 s-1" +state real CLDAREAA ikj dyn_em 1 - r "CLDAREAA" "CLOUD FRACTION FROM DENG SCHEME" "" +state real CLDAREAB ikj dyn_em 1 - r "CLDAREAB" "CLOUD FRACTION FROM DENG SCHEME" "" +state real CA_RAD ikj dyn_em 1 - r "CA_RAD" "CLOUD WATER CONTENT FROM DENG SCHEME FOR RADIATION" "kg kg-1" +state real CW_RAD ikj dyn_em 1 - r "CW_RAD" "CLOUD WATER CONTENT FROM DENG SCHEME FOR RADIATION" "kg kg-1" +state real CLDLIQA ikj dyn_em 1 - r "CLDLIQA" "CLOUD WATER CONTENT FROM DENG SCHEME" "kg kg-1" +state real CLDLIQB ikj dyn_em 1 - r "CLDLIQB" "CLOUD WATER CONTENT FROM DENG SCHEME" "kg kg-1" +state real CLDDPTHB ij misc 1 - r "CLDDPTHB" "CLOUD DEPTH FROM TAU-1" "m" +state real CLDTOPB ij misc 1 - r "CLDTOPB" "CLOUD TOP FROM TAU-1" "m" +state real PBLMAX ij misc 1 - r "PBLMAX" "MAXIMUM VALUE OF PBL DEPTH SINCE THE START OF THE MODEL RUN" "m" +state real WUB ikj misc 1 - r "WUB" "UPDRAFT VERTICAL VELOCITY" "m s-1" +state real RAINSHVB ij misc 1 - r "RAINSHVB" "TIME-STEP SHCU PRECIPITATION FROM TAU-1" "m s-1" +state real CAPESAVE ij misc 1 - r "CAPESAVE" "CAPE FROM TAU-1" "" +state real RADSAVE ij misc 1 - r "RADSAVE" "CLOUD RADIUS FROM TAU-1" "m" +state real AINCKFSA i{nsh}j misc 1 - r "AINCKFSA" "NUMBER OF CLOUDS FROM TAU-1" "" +state integer LTOPB ij misc 1 - r "LTOPB" "LEVEL OF UPDRAFT TOP FROM TAU-1" "" +state integer KDCLDTOP ij misc 1 - r "KDCLDTOP" "LEVEL OF NBC TOP" "" +state integer KDCLDBAS ij misc 1 - r "KDCLDBAS" "LEVEL OF NBC BASE" "" +state real XTIME1 ij misc 1 - r "XTIME1" "TIME COUNTER AFTER RAIN" "min." +state real PBLHAVG ij misc 1 - r "PBLHAVG" "TIME AVERAGE OF PBLH" "m" +state real TKEAVG ikj misc 1 - r "TKEAVG" "TIME AVERAGE OF TKE" "m2 s-2" +state real WSUBSID k misc 1 - - "WSUBSID" "LARGE-SCALE SUBSIDENCE IN DENG SHCU SCHEME" "m s-1" +# End Deng Shallow Convection Parameterization + + state real RUCUTEN ikj misc 1 - r "RUCUTEN" "X WIND TENDENCY DUE TO CUMULUS PARAMETERIZATION" "m s-2" state real RVCUTEN ikj misc 1 - r "RVCUTEN" "Y WIND TENDENCY DUE TO CUMULUS PARAMETERIZATION" "m s-2" state real RTHCUTEN ikj misc 1 - r "RTHCUTEN" "THETA TENDENCY DUE TO CUMULUS SCHEME" "K s-1" @@ -1343,9 +1437,19 @@ state real qv_old ikj misc 1 - rusd state real vmi3d ikj misc 1 - hdu "v_ice" "Mass-weighted ice fallspeed cat 1" "m s-1" state real di3d ikj misc 1 - hdu "d_ice" "Mass-weighted mean ice size cat 1" "m" state real rhopo3d ikj misc 1 - hdu "rho_ice" "Mass-weighted mean ice density cat 1" "kg m-3" +state real phii3d ikj misc 1 - hdu "phi_ice" "Number-weighted mean ice aspect ratio cat 1" "" state real vmi3d_2 ikj misc 1 - hdu "v_ice2" "Mass-weighted ice fallspeed cat 2" "m s-1" state real di3d_2 ikj misc 1 - hdu "d_ice2" "Mass-weighted mean ice size cat 2" "m" state real rhopo3d_2 ikj misc 1 - hdu "rho_ice2" "Mass-weighted mean ice density cat 2" "kg m-3" +state real phii3d_2 ikj misc 1 - hdu "phi_ice2" "Number-weighted mean ice aspect ratio cat 2" "" +state real vmi3d_3 ikj misc 1 - hdu "v_ice3" "Mass-weighted ice fallspeed cat 3" "m s-1" +state real di3d_3 ikj misc 1 - hdu "d_ice3" "Mass-weighted mean ice size cat 3" "m" +state real rhopo3d_3 ikj misc 1 - hdu "rho_ice3" "Mass-weighted mean ice density cat 3" "kg m-3" +state real phii3d_3 ikj misc 1 - hdu "phi_ice3" "Number-weighted mean ice aspect ratio cat 3" "" +state real itype ikj misc 1 - hdu "ice_type" "Diagnostic ice type cat 1 ISHMAEL microphysics" "" +state real itype_2 ikj misc 1 - hdu "ice_type2" "Diagnostic ice type cat 2 ISHMAEL microphysics" "" +state real itype_3 ikj misc 1 - hdu "ice_type3" "Diagnostic ice type cat 3 ISHMAEL microphysics" "" + # LIGHTNING NUDGING #state real ltg_dat ij misc 1 - r "ltg_dat" "gridded lightning data" "Flash per xkm x xkm per LAD_INT sec" # END LIGHTNING NUDGING @@ -1987,6 +2091,7 @@ rconfig logical use_levels_below_ground namelist,domains 1 .true. rconfig logical use_tavg_for_tsk namelist,domains 1 .false. irh "use_tavg_for_tsk" "T/F: use diurnal avg sfc temp for tsk" "" rconfig logical use_surface namelist,domains 1 .true. irh "use_surface" "T/F: use input surface level in interpolation" "" rconfig integer lagrange_order namelist,domains 1 2 irh "lagrange_order" "1=linear, 2=quadratic vertical interpolation, 9=cubic spline" "" +rconfig integer linear_interp namelist,domains 1 1 irh "linear_interp" "1=linear" "" rconfig integer force_sfc_in_vinterp namelist,domains 1 1 irh "force_sfc_in_vinterp" "number of eta levels forced to use sfc in vert interp" "" rconfig real zap_close_levels namelist,domains 1 500 irh "zap_close_levels" "delta p where level is removed in vert interp" "Pa" rconfig real maxw_horiz_pres_diff namelist,domains 1 5000 irh "maxw_horiz_pres_diff" "pressure limit (Pa), when horiz diff exceeded do not use max_wind level in real" @@ -2046,6 +2151,8 @@ rconfig integer alloc_qndropsource derived 1 0 rconfig integer num_moves namelist,domains 1 0 rconfig integer ts_buf_size namelist,domains 1 200 - "ts_buf_size" "Size of time series buffer" rconfig integer max_ts_locs namelist,domains 1 5 - "max_ts_locs" "Maximum number of time series locations" +rconfig logical tslist_ij derived 1 .false. rh "tslist_ij" "Use i,j locations in tslist" "" +rconfig logical tslist_unstagger_winds namelist,domains 1 .false. rh "tslist_unstagger_winds" "interpolate u and v to cell centers" "" rconfig integer vortex_interval namelist,domains max_domains 15 - "" "" "minutes" rconfig integer max_vortex_speed namelist,domains max_domains 40 - "" "" "meters per second" rconfig integer corral_dist namelist,domains max_domains 8 @@ -2140,12 +2247,12 @@ rconfig integer bl_mynn_tkebudget namelist,physics max_domains 0 rconfig integer ysu_topdown_pblmix namelist,physics 1 0 rh "ysu_topdown_pblmix" "" "" rconfig integer shinhong_tke_diag namelist,physics max_domains 0 rh "shinhong_tke_diag" "" "" rconfig logical bl_mynn_tkeadvect namelist,physics max_domains .false. rh "bl_mynn_tkeadvect" "" "" -rconfig integer bl_mynn_cloudpdf namelist,physics 1 2 irh "bl_mynn_cloudpdf" "" "" -rconfig integer bl_mynn_mixlength namelist,physics 1 2 irh "bl_mynn_mixlength" "0:original,1:RAP/HRRR,2:new blending&cloud mix length" "" +rconfig integer bl_mynn_cloudpdf namelist,physics 1 2 irh "bl_mynn_cloudpdf" "0:original, 1:Kuwano, 2:Chaboreau-Bechtold" "" +rconfig integer bl_mynn_mixlength namelist,physics 1 1 irh "bl_mynn_mixlength" "0:original,1:RAP/HRRR,2:new blending&cloud mix length" "" rconfig integer bl_mynn_edmf namelist,physics max_domains 1 irh "bl_mynn_edmf" "0:off,1:activate mass-flux in mynn" "" -rconfig integer bl_mynn_edmf_mom namelist,physics max_domains 0 irh "bl_mynn_edmf_mom" "0:off,1:activate mass-flux transport of momentum" "" +rconfig integer bl_mynn_edmf_mom namelist,physics max_domains 1 irh "bl_mynn_edmf_mom" "0:off,1:activate mass-flux transport of momentum" "" rconfig integer bl_mynn_edmf_tke namelist,physics max_domains 0 irh "bl_mynn_edmf_tke" "0:off,1:activate mass-flux transport of tke" "" -rconfig integer bl_mynn_edmf_part namelist,physics max_domains 0 irh "bl_mynn_edmf_part" "0:off,1:activate areal partitioning of ed and mf" "" +rconfig integer bl_mynn_mixscalars namelist,physics max_domains 0 irh "bl_mynn_mixscalars" "0:off,1:activate mixing of scalars (qnx, qnxfa) in MYNN" "" rconfig integer bl_mynn_cloudmix namelist,physics max_domains 1 irh "bl_mynn_cloudmix" "0:off,1:activate mixing of all cloud species" "" rconfig integer bl_mynn_mixqt namelist,physics max_domains 0 irh "bl_mynn_mixqt" "0:mix moisture species separate,1: mix total water" "" rconfig integer icloud_bl namelist,physics 1 1 irh "icloud_bl" "0:no subgrid cloud-radiation coupling,1:activated" "" @@ -2163,6 +2270,7 @@ rconfig real GSMDT namelist,physics max_domains 0 rconfig integer ISFFLX namelist,physics 1 1 irh "ISFFLX" "" "" rconfig integer IFSNOW namelist,physics 1 1 irh "IFSNOW" "" "" rconfig integer ICLOUD namelist,physics 1 1 irh "ICLOUD" "" "" +rconfig integer cldovrlp namelist,physics 1 2 irh "cldovrlp" "1=random, 2=maximum-random, 3=maximum, 4=exponential, 5=exponential-random" "" rconfig integer ideal_xland namelist,physics 1 1 rh "IDEAL_XLAND" "land=1(def), water=2, for ideal cases with no land-use" "" rconfig real swrad_scat namelist,physics 1 1 irh "SWRAD_SCAT" "SCATTERING FACTOR IN SWRAD" "" rconfig integer surface_input_source namelist,physics 1 3 irh "surface_input_source" "1=static (fractional), 2=time dependent (dominant), 3=dominant cateogry from metgrid" "" @@ -2170,7 +2278,25 @@ rconfig integer num_soil_layers namelist,physics 1 5 rconfig integer maxpatch namelist,physics 1 10 irh "maxpatch" "" "" rconfig integer num_snow_layers namelist,physics 1 3 irh "num_snow_layers" "" "" rconfig integer num_snso_layers namelist,physics 1 7 irh "num_snso_layers" "" "" -rconfig integer num_urban_layers namelist,physics 1 400 irh "num_urban_layers" "" "" + +rconfig integer num_urban_ndm derived 1 1 irh "num_urban_ndm" "maximum number of street dimensions (ndm in BEP or BEM header)" "" +rconfig integer num_urban_ng derived 1 1 irh "num_urban_ng" "number of grid levels in the ground (ng_u in BEP or BEM header)" "" +rconfig integer num_urban_nwr derived 1 1 irh "num_urban_nwr" "number of grid levels in the walls or roof (nwr_u in BEP or BEM header)" "" +rconfig integer num_urban_ngb derived 1 1 irh "num_urban_ngb" "number of grid levels in the ground below building (ngb_u in BEM header)" "" +rconfig integer num_urban_nf derived 1 1 irh "num_urban_nf" "number of grid levels in the floors (nf_u in BEM header)" "" +rconfig integer num_urban_nz derived 1 1 irh "num_urban_nz" "maximum number of vertical levels in the urban grid (nz_um in BEP or BEM header)" "" +rconfig integer num_urban_nbui derived 1 1 irh "num_urban_nbui" "maximum number of types of buildings in an urban class (nbui_max in BEM header)" "" + +rconfig integer urban_map_zrd derived 1 1 rh "urban_map_zrd" "urban mapping 1: ind_zrd" "" +rconfig integer urban_map_zwd derived 1 1 rh "urban_map_zwd" "urban mapping 2: ind_zwd" "" +rconfig integer urban_map_gd derived 1 1 rh "urban_map_gd" "urban mapping 3: ind_gd" "" +rconfig integer urban_map_zd derived 1 1 rh "urban_map_zd" "urban mapping 4: ind_zd" "" +rconfig integer urban_map_zdf derived 1 1 rh "urban_map_zdf" "urban mapping 5: ind_zdf" "" +rconfig integer urban_map_bd derived 1 1 rh "urban_map_bd" "urban mapping 6: ind_bd" "" +rconfig integer urban_map_wd derived 1 1 rh "urban_map_wd" "urban mapping 7: ind_wd" "" +rconfig integer urban_map_gbd derived 1 1 rh "urban_map_gbd" "urban mapping 8: ind_gbd" "" +rconfig integer urban_map_fbd derived 1 1 rh "urban_map_fbd" "urban mapping 9: ind_fbd" "" + rconfig integer num_urban_hi namelist,physics 1 15 irh "num_urban_hi" "" "" rconfig integer num_months namelist,physics 1 12 irh "num_months" "" "" rconfig integer sf_surface_mosaic namelist,physics 1 0 rh "sf_surface_mosaic" "1= mosaic, 0=no mosaic method, add by danli" "" @@ -2178,6 +2304,7 @@ rconfig integer mosaic_cat namelist,physics 1 3 rconfig integer mosaic_cat_soil derived 1 12 rh "mosaic_cat_soil" "should be the number of soil layers times the mosaic_cat" "" rconfig integer mosaic_lu namelist,physics 1 0 irh "mosaic_lu" "" "" rconfig integer mosaic_soil namelist,physics 1 0 irh "mosaic_soil" "" "" +rconfig integer flag_sm_adj namelist,physics 1 0 irh "flag_sm_adj" "1-adjustment, 0-no soil moisture adjustment in RUC soil moisture initialization from Noah LSM" "" rconfig integer maxiens namelist,physics 1 1 irh "maxiens" "" "" rconfig integer maxens namelist,physics 1 3 irh "maxens" "" "" rconfig integer maxens2 namelist,physics 1 3 irh "maxens2" "" "" @@ -2245,6 +2372,7 @@ rconfig integer shcu_aerosols_opt namelist,physics max_domains 0 rconfig integer ICLOUD_CU derived max_domains 0 - "ICLOUD_CU" "" "" rconfig integer pxlsm_smois_init namelist,physics max_domains 1 irh "PXLSM_SMOIS_INIT" "Soil moisture initialization option 0-From analysis 1-From MAVAIL" "" +rconfig integer pxlsm_modis_veg namelist,physics max_domains 0 irh "PXLSM_MODIS_VEG" "If 1 use MODIS VEGFRA from wrflowinp updates, 1=yes" "" rconfig integer omlcall namelist,physics 1 0 h "omlcall" "temporary holder to allow checking for new name: oml_opt" rconfig integer sf_ocean_physics namelist,physics 1 0 h "sf_ocean_physics" "activate ocean model 0=no, 1=1d mixed layer, 2=3D PWP" "" rconfig integer traj_opt namelist,physics 1 0 h "traj_opt" "activate trajectory calculation 0=no, 1=on" "" @@ -2630,7 +2758,7 @@ package wsm5scheme mp_physics==4 - moist:qv,qc package fer_mp_hires mp_physics==5 - moist:qv,qc,qr,qi;scalar:qt;state:f_ice_phy,f_rain_phy,f_rimef_phy package fer_mp_hires_advect mp_physics==15 - moist:qv,qc,qr,qi;scalar:qrimef package wsm6scheme mp_physics==6 - moist:qv,qc,qr,qi,qs,qg;state:re_cloud,re_ice,re_snow -package gsfcgcescheme mp_physics==7 - moist:qv,qc,qr,qi,qs,qg +package nuwrf4icescheme mp_physics==7 - moist:qv,qc,qr,qi,qs,qg,qh;state:phys_tot,physc,physe,physd,physs,physm,physf,acphys_tot,acphysc,acphyse,acphysd,acphyss,acphysm,acphysf,preci3d,precs3d,precg3d,precr3d,prech3d,re_cloud_gsfc,re_rain_gsfc,re_ice_gsfc,re_snow_gsfc,re_graupel_gsfc,re_hail_gsfc,re_cloud,re_ice,re_snow package thompson mp_physics==8 - moist:qv,qc,qr,qi,qs,qg;scalar:qni,qnr;state:re_cloud,re_ice,re_snow package milbrandt2mom mp_physics==9 - moist:qv,qc,qr,qi,qs,qg,qh;scalar:qnc,qnr,qni,qns,qng,qnh package morr_two_moment mp_physics==10 - moist:qv,qc,qr,qi,qs,qg;scalar:qni,qns,qnr,qng;state:rqrcuten,rqscuten,rqicuten @@ -2644,12 +2772,17 @@ package nssl_2momccn mp_physics==18 - moist:qv,qc package nssl_1mom mp_physics==19 - moist:qv,qc,qr,qi,qs,qg,qh;scalar:qvolg package nssl_1momlfo mp_physics==21 - moist:qv,qc,qr,qi,qs,qg package nssl_2momg mp_physics==22 - moist:qv,qc,qr,qi,qs,qg;scalar:qndrop,qnr,qni,qns,qng,qvolg;state:re_cloud,re_ice,re_snow +package wsm7scheme mp_physics==24 - moist:qv,qc,qr,qi,qs,qg,qh;state:re_cloud,re_ice,re_snow +package wdm7scheme mp_physics==26 - moist:qv,qc,qr,qi,qs,qg,qh;scalar:qnn,qnc,qnr;state:re_cloud,re_ice,re_snow package thompsonaero mp_physics==28 - moist:qv,qc,qr,qi,qs,qg;scalar:qni,qnr,qnc,qnwfa,qnifa;state:re_cloud,re_ice,re_snow,qnwfa2d,qnifa2d,taod5503d,taod5502d package p3_1category mp_physics==50 - moist:qv,qc,qr,qi;scalar:qni,qnr,qir,qib;state:re_cloud,re_ice,vmi3d,rhopo3d,di3d,refl_10cm,th_old,qv_old package p3_1category_nc mp_physics==51 - moist:qv,qc,qr,qi;scalar:qnc,qni,qnr,qir,qib;state:re_cloud,re_ice,vmi3d,rhopo3d,di3d,refl_10cm,th_old,qv_old package p3_2category mp_physics==52 - moist:qv,qc,qr,qi,qi2;scalar:qnc,qni,qnr,qir,qib,qni2,qir2,qib2;state:re_cloud,re_ice,vmi3d,rhopo3d,di3d,vmi3d_2,rhopo3d_2,di3d_2,refl_10cm,th_old,qv_old package morr_tm_aero mp_physics==40 - moist:qv,qc,qr,qi,qs,qg;scalar:qnc,qni,qns,qnr,qng;state:rqrcuten,rqscuten,rqicuten,EFCG,EFIG,EFSG,WACT,CCN1_GS,CCN2_GS,CCN3_GS,CCN4_GS,CCN5_GS,CCN6_GS,CCN7_GS,re_cloud,re_ice,re_snow,mskf_refl_10cm +package jensen_ishmael mp_physics==55 - moist:qv,qc,qr,qi,qi2,qi3;scalar:qnr,qni,qvoli,qaoli,qni2,qvoli2,qaoli2,qni3,qvoli3,qaoli3;state:re_cloud,re_ice,vmi3d,rhopo3d,di3d,phii3d,itype,vmi3d_2,rhopo3d_2,di3d_2,phii3d_2,itype_2,vmi3d_3,rhopo3d_3,di3d_3,phii3d_3,itype_3,refl_10cm package etampnew mp_physics==95 - moist:qv,qc,qr,qs;scalar:qt;state:f_ice_phy,f_rain_phy,f_rimef_phy +package gsfcgcescheme mp_physics==97 - moist:qv,qc,qr,qi,qs,qg + package radar_refl compute_radar_ref==1 - state:refl_10cm,refd_max endif @@ -2662,7 +2795,7 @@ package wsm3scheme_dfi mp_physics_dfi==3 - dfi_moist:dfi package wsm5scheme_dfi mp_physics_dfi==4 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package fer_mp_hires_dfi mp_physics_dfi==5 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi;dfi_scalar:dfi_qt package wsm6scheme_dfi mp_physics_dfi==6 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow -package gsfcgcescheme_dfi mp_physics_dfi==7 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg +package nuwrf4icescheme_dfi mp_physics_dfi==7 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;state:dfi_re_cloud_gsfc,dfi_re_rain_gsfc,dfi_re_ice_gsfc,dfi_re_snow_gsfc,dfi_re_graupel_gsfc,dfi_re_hail_gsfc,dfi_re_cloud,dfi_re_ice,dfi_re_snow package thompson_dfi mp_physics_dfi==8 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qni,dfi_qnr;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package milbrandt2mom_dfi mp_physics_dfi==9 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;dfi_scalar:dfi_qnc,dfi_qnr,dfi_qni,dfi_qns,dfi_qng,dfi_qnh package morr_two_moment_dfi mp_physics_dfi==10 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qni,dfi_qns,dfi_qnr,dfi_qng @@ -2674,11 +2807,15 @@ package nssl_2mom_dfi mp_physics_dfi==17 - dfi_moist:dfi package nssl_2mom_dficcn mp_physics_dfi==18 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;dfi_scalar:dfi_qndrop,dfi_qnn,dfi_qnr,dfi_qni,dfi_qns,dfi_qng,dfi_qnh,dfi_qvolg;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package nssl_1mom_dfi mp_physics_dfi==19 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;dfi_scalar:dfi_qvolg package nssl_1momlfo_dfi mp_physics_dfi==21 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg +package wsm7scheme_dfi mp_physics_dfi==24 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow +package wdm7scheme_dfi mp_physics_dfi==26 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;dfi_scalar:dfi_qnn,dfi_qnc,dfi_qnr;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package thompsonaero_dfi mp_physics_dfi==28 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qni,dfi_qnr,dfi_qnc,dfi_qnwfa,dfi_qnifa;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package p3_1category_dfi mp_physics_dfi==50 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi;dfi_scalar:dfi_qni,dfi_qnr,dfi_qir,dfi_qib;state:dfi_re_cloud,dfi_re_ice package p3_1category_nc_dfi mp_physics_dfi==51 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi;dfi_scalar:dfi_qnc,dfi_qni,dfi_qnr,dfi_qir,dfi_qib;state:dfi_re_cloud,dfi_re_ice package p3_2category_dfi mp_physics_dfi==52 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qi2;dfi_scalar:dfi_qnc,dfi_qni,dfi_qnr,dfi_qir,dfi_qib,dfi_qni2,dfi_qir2,dfi_qib2;state:dfi_re_cloud,dfi_re_ice +package jensen_ishmael_dfi mp_physics_dfi==55 - dfi_moist:qdfi_v,dfi_qc,dfi_qr,dfi_qi,dfi_qi2,dfi_qi3;dfi_scalar:dfi_qnr,dfi_qni,dfi_qvoli,dfi_qaoli,dfi_qni2,dfi_qvoli2,dfi_qaoli2,dfi_qni3,dfi_qvoli3,dfi_qaoli3;state:dfi_re_cloud,dfi_re_ice package etampnew_dfi mp_physics_dfi==95 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qs;dfi_scalar:dfi_qt +package gsfcgcescheme_dfi mp_physics_dfi==97 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg package noprogn progn==0 - - package progndrop progn==1 - scalar:qndrop;dfi_scalar:dfi_qndrop;state:qndropsource @@ -2691,7 +2828,7 @@ package camlwscheme ra_lw_physics==3 - ozmixm:mth01, package rrtmg_lwscheme ra_lw_physics==4 - ozmixm:mth01,mth02,mth03,mth04,mth05,mth06,mth07,mth08,mth09,mth10,mth11,mth12;state:aclwupt,aclwuptc,aclwdnt,aclwdntc,aclwupb,aclwupbc,aclwdnb,aclwdnbc,lwupt,lwuptc,lwdnt,lwdntc,lwupb,lwupbc,lwdnb,lwdnbc,o3rad package rrtmk_lwscheme ra_lw_physics==14 - ozmixm:mth01,mth02,mth03,mth04,mth05,mth06,mth07,mth08,mth09,mth10,mth11,mth12;state:aclwupt,aclwuptc,aclwdnt,aclwdntc,aclwupb,aclwupbc,aclwdnb,aclwdnbc,lwupt,lwuptc,lwdnt,lwdntc,lwupb,lwupbc,lwdnb,lwdnbc,o3rad package rrtmg_lwscheme_fast ra_lw_physics==24 - ozmixm:mth01,mth02,mth03,mth04,mth05,mth06,mth07,mth08,mth09,mth10,mth11,mth12;state:aclwupt,aclwuptc,aclwdnt,aclwdntc,aclwupb,aclwupbc,aclwdnb,aclwdnbc,lwupt,lwuptc,lwdnt,lwdntc,lwupb,lwupbc,lwdnb,lwdnbc,o3rad -package goddardlwscheme ra_lw_physics==5 - state:tlwdn,tlwup,slwdn,slwup,taucldc,taucldi +package goddardlwscheme ra_lw_physics==5 - state:tlwdn,tlwup,slwdn,slwup,taucldc,taucldi,re_cloud_gsfc,re_rain_gsfc,re_ice_gsfc,re_snow_gsfc,re_graupel_gsfc,re_hail_gsfc,cod2d_out,ctop2d_out,re_cloud,re_ice,re_snow package flglwscheme ra_lw_physics==7 - - package heldsuarez ra_lw_physics==31 - - package gfdllwscheme ra_lw_physics==99 - - @@ -2702,7 +2839,7 @@ package camswscheme ra_sw_physics==3 - ozmixm:mth01, package rrtmg_swscheme ra_sw_physics==4 - ozmixm:mth01,mth02,mth03,mth04,mth05,mth06,mth07,mth08,mth09,mth10,mth11,mth12;state:acswupt,acswuptc,acswdnt,acswdntc,acswupb,acswupbc,acswdnb,acswdnbc,swupt,swuptc,swdnt,swdntc,swupb,swupbc,swdnb,swdnbc,o3rad;aerod:ocarbon,seasalt,dust,bcarbon,sulfate,upperaer package rrtmk_swscheme ra_sw_physics==14 - ozmixm:mth01,mth02,mth03,mth04,mth05,mth06,mth07,mth08,mth09,mth10,mth11,mth12;state:acswupt,acswuptc,acswdnt,acswdntc,acswupb,acswupbc,acswdnb,acswdnbc,swupt,swuptc,swdnt,swdntc,swupb,swupbc,swdnb,swdnbc,o3rad;aerod:ocarbon,seasalt,dust,bcarbon,sulfate,upperaer package rrtmg_swscheme_fast ra_sw_physics==24 - ozmixm:mth01,mth02,mth03,mth04,mth05,mth06,mth07,mth08,mth09,mth10,mth11,mth12;state:acswupt,acswuptc,acswdnt,acswdntc,acswupb,acswupbc,acswdnb,acswdnbc,swupt,swuptc,swdnt,swdntc,swupb,swupbc,swdnb,swdnbc,o3rad;aerod:ocarbon,seasalt,dust,bcarbon,sulfate,upperaer -package goddardswscheme ra_sw_physics==5 - state:tswdn,tswup,sswdn,sswup,taucldc,taucldi +package goddardswscheme ra_sw_physics==5 - state:tswdn,tswup,sswdn,sswup,taucldc,taucldi,re_cloud_gsfc,re_rain_gsfc,re_ice_gsfc,re_snow_gsfc,re_graupel_gsfc,re_hail_gsfc,cod2d_out,ctop2d_out,re_cloud,re_ice,re_snow package flgswscheme ra_sw_physics==7 - - package gfdlswscheme ra_sw_physics==99 - - @@ -2726,7 +2863,7 @@ package lsmscheme sf_surface_physics==2 - state:flx4,fv package ruclsmscheme sf_surface_physics==3 - state:smfr3d,keepfr3dflag,soilt1,rhosnf,snowfallac,precipfr,acrunoff package noahmpscheme sf_surface_physics==4 - state:isnowxy,tvxy,tgxy,canliqxy,canicexy,eahxy,tahxy,cmxy,chxy,fwetxy,sneqvoxy,alboldxy,qsnowxy,wslakexy,zwtxy,waxy,wtxy,tsnoxy,zsnsoxy,snicexy,snliqxy,lfmassxy,rtmassxy,stmassxy,woodxy,stblcpxy,fastcpxy,xsaixy,taussxy,t2mvxy,t2mbxy,q2mvxy,q2mbxy,tradxy,neexy,gppxy,nppxy,fvegxy,qinxy,runsfxy,runsbxy,ecanxy,edirxy,etranxy,fsaxy,firaxy,aparxy,psnxy,savxy,sagxy,rssunxy,rsshaxy,bgapxy,wgapxy,tgvxy,tgbxy,chvxy,chbxy,shgxy,shcxy,shbxy,evgxy,evbxy,ghvxy,ghbxy,irgxy,ircxy,irbxy,trxy,evcxy,chleafxy,chucxy,chv2xy,chb2xy,chstarxy,smoiseq,smcwtdxy,rechxy,deeprechxy,fdepthxy,areaxy,rivercondxy,riverbedxy,eqzwt,pexpxy,qrfxy,qrfsxy,qspringxy,qspringsxy,qslatxy,stepwtd,rechclim,gddxy,grainxy,croptype,planting,harvest,season_gdd,cropcat,pgsxy,soilcomp,soilcl1,soilcl2,soilcl3,soilcl4 package clmscheme sf_surface_physics==5 - state:numc,nump,sabv,sabg,lwup,lhsoi,lhveg,lhtran,snl,snowdp,wtc,wtp,h2osno,t_grnd,t_veg,h2ocan,h2ocan_col,t2m_max,t2m_min,t2clm,t_ref2m,h2osoi_liq_s1,h2osoi_liq_s2,h2osoi_liq_s3,h2osoi_liq_s4,h2osoi_liq_s5,h2osoi_liq1,h2osoi_liq2,h2osoi_liq3,h2osoi_liq4,h2osoi_liq5,h2osoi_liq6,h2osoi_liq7,h2osoi_liq8,h2osoi_liq9,h2osoi_liq10,h2osoi_ice_s1,h2osoi_ice_s2,h2osoi_ice_s3,h2osoi_ice_s4,h2osoi_ice_s5,h2osoi_ice1,h2osoi_ice2,h2osoi_ice3,h2osoi_ice4,h2osoi_ice5,h2osoi_ice6,h2osoi_ice7,h2osoi_ice8,h2osoi_ice9,h2osoi_ice10,t_soisno_s1,t_soisno_s2,t_soisno_s3,t_soisno_s4,t_soisno_s5,t_soisno1,t_soisno2,t_soisno3,t_soisno4,t_soisno5,t_soisno6,t_soisno7,t_soisno8,t_soisno9,t_soisno10,dzsnow1,dzsnow2,dzsnow3,dzsnow4,dzsnow5,snowrds1,snowrds2,snowrds3,snowrds4,snowrds5,t_lake1,t_lake2,t_lake3,t_lake4,t_lake5,t_lake6,t_lake7,t_lake8,t_lake9,t_lake10,h2osoi_vol1,h2osoi_vol2,h2osoi_vol3,h2osoi_vol4,h2osoi_vol5,h2osoi_vol6,h2osoi_vol7,h2osoi_vol8,h2osoi_vol9,h2osoi_vol10,albedosubgrid,lhsubgrid,hfxsubgrid,lwupsubgrid,q2subgrid,sabvsubgrid,sabgsubgrid,nrasubgrid,swupsubgrid -package pxlsmscheme sf_surface_physics==7 - state:t2_ndg_new,q2_ndg_new,t2_ndg_old,q2_ndg_old,vegf_px,imperv,canfra +package pxlsmscheme sf_surface_physics==7 - state:t2_ndg_new,q2_ndg_new,t2_ndg_old,q2_ndg_old,t2obs,q2obs,vegf_px,imperv,canfra,lai_px,wwlt_px,wfc_px,wsat_px,clay_px,csand_px,fmsand_px package ssibscheme sf_surface_physics==8 - state:ssib_fm,ssib_fh,ssib_cm,ssibxdd,ssib_br,ssib_lhf,ssib_shf,ssib_ghf,ssib_egs,ssib_eci,ssib_ect,ssib_egi,ssib_egt,ssib_sdn,ssib_sup,ssib_ldn,ssib_lup,ssib_wat,ssib_shc,ssib_shg,ssib_lai,ssib_vcf,ssib_z00,ssib_veg,isnow,swe,snowden,snowdepth,tkair,dzo1,wo1,tssn1,tssno1,bwo1,bto1,cto1,fio1,flo1,bio1,blo1,ho1,dzo2,wo2,tssn2,tssno2,bwo2,bto2,cto2,fio2,flo2,bio2,blo2,ho2,dzo3,wo3,tssn3,tssno3,bwo3,bto3,cto3,fio3,flo3,bio3,blo3,ho3,dzo4,wo4,tssn4,tssno4,bwo4,bto4,cto4,fio4,flo4,bio4,blo4,ho4 package noahmpoptcrop2 opt_crop==2 - state:gecros_state @@ -2748,8 +2885,7 @@ package gbmpblscheme bl_pbl_physics==12 - state:exch_tk package mrfscheme bl_pbl_physics==99 - - package mynn_tkebudget bl_mynn_tkebudget==1 - state:qSHEAR,qBUOY,qDISS,qWT,dqke -package mynn_stem_edmf bl_mynn_edmf==1 - state:edmf_a,edmf_w,edmf_thl,edmf_qt,edmf_ent,edmf_qc,ktop_shallow,maxmf,nupdraft -package mynn_temf_edmf bl_mynn_edmf==2 - state:edmf_a,edmf_w,edmf_thl,edmf_qt,edmf_ent,edmf_qc +package mynn_dmp_edmf bl_mynn_edmf==1 - state:edmf_a,edmf_w,edmf_thl,edmf_qt,edmf_ent,edmf_qc,ktop_shallow,maxmf,nupdraft package pbl_cloud icloud_bl==1 - state:cldfra_bl,qc_bl # dfi @@ -2789,6 +2925,7 @@ package g3shcuscheme shcu_physics==1 - - package camuwshcuscheme shcu_physics==2 - state:shfrc3d,dlf,dlf2,cmfmc,cmfmc2,qtflx_cu,slflx_cu,uflx_cu,vflx_cu,qtten_cu,slten_cu,uten_cu,vten_cu,qvten_cu,qlten_cu,qiten_cu,cbmf_cu,ufrcinvbase_cu,ufrclcl_cu,winvbase_cu,wlcl_cu,plcl_cu,pinv_cu,plfc_cu,pbup_cu,ppen_cu,qtsrc_cu,thlsrc_cu,thvlsrc_cu,emkfbup_cu,cin_cu,cinlcl_cu,cbmflimit_cu,tkeavg_cu,zinv_cu,rcwp_cu,rlwp_cu,riwp_cu,tophgt_cu,wu_cu,ufrc_cu,qtu_cu,thlu_cu,thvu_cu,uu_cu,vu_cu,qtu_emf_cu,thlu_emf_cu,uu_emf_cu,vu_emf_cu,umf_cu,uemf_cu,qcu_cu,qlu_cu,qiu_cu,cufrc_cu,fer_cu,fdr_cu,dwten_cu,diten_cu,qrten_cu,qsten_cu,flxrain_cu,flxsnow_cu,ntraprd_cu,ntsnprd_cu,excessu_cu,excessu0_cu,xc_cu,aquad_cu,bquad_cu,cquad_cu,bogbot_cu,bogtop_cu,exit_uwcu_cu,exit_conden_cu,exit_klclmkx_cu,exit_klfcmkx_cu,exit_ufrc_cu,exit_wtw_cu,exit_drycore_cu,exit_wu_cu,exit_cufliter_cu,exit_kinv1_cu,exit_rei_cu,limit_shcu_cu,limit_negcon_cu,limit_ufrc_cu,limit_ppen_cu,limit_emf_cu,limit_cinlcl_cu,limit_cin_cu,limit_cbmf_cu,limit_rei_cu,ind_delcin_cu,evapcsh,cmfsl,cmflq,cldfrash,cush,icwmrsh,snowsh,rprdsh,rliq2,rliq package grimsshcuscheme shcu_physics==3 - - package nscvshcuscheme shcu_physics==4 - - +package dengshcuscheme shcu_physics==5 - state:RDCASHTEN,RQCDCSHTEN,CLDAREAA,CLDAREAB,CA_RAD,CW_RAD,CLDLIQA,CLDLIQB,CLDDPTHB,CLDTOPB,PBLMAX,WUB,RAINSHVB,CAPESAVE,RADSAVE,AINCKFSA,LTOPB,KDCLDTOP,KDCLDBAS,XTIME1,PBLHAVG,TKEAVG,W0AVG package no_shcu_used shcu_used==0 - - package any_shcu_used shcu_used==1 - state:rushten,rvshten,rthshten,rqvshten,rqrshten,rqcshten,rqsshten,rqishten,rqgshten,rqcnshten,rqinshten @@ -3204,3 +3341,4 @@ xpose XPOSE_SPECTRAL_NUDGING dyn_em dif_analysis,dif_xxx,dif_yyy package no_fft_used fft_used==0 - - package any_fft_used fft_used==1 - state:t_xxx,u_xxx,ru_xxx,v_xxx,rv_xxx,w_xxx,ww_xxx,ph_xxx,dum_yyy,fourd_xxx + diff --git a/Registry/Registry.NMM b/Registry/Registry.NMM index 127ac93439..d9039e69aa 100644 --- a/Registry/Registry.NMM +++ b/Registry/Registry.NMM @@ -460,8 +460,8 @@ state real AKMS_OUT ij dyn_nmm 1 - rh023 "AKMS_OUT" "Outp # # module_PHYS # -state real cd_out ij dyn_nmm 1 - rh0123d=(DownCopy) "CD_OUT" "sfc exch coeff for momentum" "m2 s-1" -state real ch_out ij dyn_nmm 1 - rh0123d=(DownCopy) "CH_OUT" "sfc exch coeff for heat" "m2 s-1" +state real cd_out ij dyn_nmm 1 - rh0123d=(DownCopy) "CD10" "sfc exch coeff for momentum at 10m" "m2 s-1" +state real ch_out ij dyn_nmm 1 - rh0123d=(DownCopy) "CH10" "sfc exch coeff for heat at 10m" "m2 s-1" state real albase ij dyn_nmm 1 - i01rh023d=(DownCopy) "ALBASE" "Base albedo" "" state real albedo ij dyn_nmm 1 - irh023 "ALBEDO" "Dynamic albedo" "" @@ -1367,6 +1367,7 @@ rconfig integer irand namelist,domains 1 0 rconfig real dt derived max_domains 2. h0123 "dt" "TEMPORAL RESOLUTION" "SECONDS" rconfig integer ts_buf_size namelist,domains 1 200 - "ts_buf_size" "Size of time series buffer" rconfig integer max_ts_locs namelist,domains 1 5 - "max_ts_locs" "Maximum number of time series locations" +rconfig logical tslist_ij derived 1 .false. rh "tslist_ij" "Use i,j locations in tslist" "" rconfig integer num_moves namelist,domains 1 0 rconfig integer vortex_interval namelist,domains max_domains 15 - "" "" "minutes" rconfig integer corral_dist namelist,domains max_domains 8 @@ -1442,10 +1443,29 @@ rconfig integer ISFFLX namelist,physics 1 1 rconfig integer ideal_xland namelist,physics 1 1 rh "IDEAL_XLAND" "land=1(def), water=2, for ideal cases with no land-use" "" rconfig integer IFSNOW namelist,physics 1 1 irh "IFSNOW" "" "" rconfig integer ICLOUD namelist,physics 1 1 irh "ICLOUD" "" "" +rconfig integer cldovrlp namelist,physics 1 2 irh "cldovrlp" "1=random, 2=maximum-random, 3=maximum, 4=exponential, 5=exponential-random" "" rconfig real swrad_scat namelist,physics 1 1 irh "SWRAD_SCAT" "SCATTERING FACTOR IN SWRAD" "" rconfig integer surface_input_source namelist,physics 1 1 irh "surface_input_source" "1=static (fractional), 2=time dependent (dominant), 3=hybrid (not yet implemented)" "" rconfig integer num_soil_layers namelist,physics 1 5 irh "num_soil_layers" "" "" -rconfig integer num_urban_layers namelist,physics 1 400 irh "num_urban_layers" "" "" + +rconfig integer num_urban_ndm namelist,physics 1 1 irh "num_urban_ndm" "maximum number of street dimensions (ndm in BEP or BEM header)" "" +rconfig integer num_urban_ng namelist,physics 1 1 irh "num_urban_ng" "number of grid levels in the ground (ng_u in BEP or BEM header)" "" +rconfig integer num_urban_nwr namelist,physics 1 1 irh "num_urban_nwr" "number of grid levels in the walls or roof (nwr_u in BEP or BEM header)" "" +rconfig integer num_urban_ngb namelist,physics 1 1 irh "num_urban_ngb" "number of grid levels in the ground below building (ngb_u in BEM header)" "" +rconfig integer num_urban_nf namelist,physics 1 1 irh "num_urban_nf" "number of grid levels in the floors (nf_u in BEM header)" "" +rconfig integer num_urban_nz namelist,physics 1 1 irh "num_urban_nz" "maximum number of vertical levels in the urban grid (nz_um in BEP or BEM header)" "" +rconfig integer num_urban_nbui namelist,physics 1 1 irh "num_urban_nbui" "maximum number of types of buildings in an urban class (nbui_max in BEM header)" "" + +rconfig integer urban_map_zrd derived 1 1 rh "urban_map_zrd" "urban mapping 1: ind_zrd" "" +rconfig integer urban_map_zwd derived 1 1 rh "urban_map_zwd" "urban mapping 2: ind_zwd" "" +rconfig integer urban_map_gd derived 1 1 rh "urban_map_gd" "urban mapping 3: ind_gd" "" +rconfig integer urban_map_zd derived 1 1 rh "urban_map_zd" "urban mapping 4: ind_zd" "" +rconfig integer urban_map_zdf derived 1 1 rh "urban_map_zdf" "urban mapping 5: ind_zdf" "" +rconfig integer urban_map_bd derived 1 1 rh "urban_map_bd" "urban mapping 6: ind_bd" "" +rconfig integer urban_map_wd derived 1 1 rh "urban_map_wd" "urban mapping 7: ind_wd" "" +rconfig integer urban_map_gbd derived 1 1 rh "urban_map_gbd" "urban mapping 8: ind_gbd" "" +rconfig integer urban_map_fbd derived 1 1 rh "urban_map_fbd" "urban mapping 9: ind_fbd" "" + rconfig integer sf_surface_mosaic namelist,physics 1 0 rh "sf_surface_mosaic" "1= mosaic, 0=no mosaic method, add by danli" "" rconfig integer mosaic_cat namelist,physics 1 3 rh "mosaic_cat" "works when sf_surface_mosaic=1; it is the number of mosaic tiles" "" rconfig integer mosaic_cat_soil derived 1 12 rh "mosaic_cat_soil" "should be the number of soil layers times the mosaic_cat" "" @@ -1504,6 +1524,7 @@ rconfig logical lcurr_sf namelist,physics max_domains .f ifdef HWRF=1 #added by Zhan Zhang for perturbings for SAS and PBL rconfig integer ens_random_seed namelist,physics max_domains -1 irh "ens_random_seed" "ensemble random number generator initial seed" +rconfig integer ensda_physics_pert namelist,physics max_domains 0 irh "ensda_physics_pert" "0: no stochastic phys pert., 1: yes" rconfig logical pert_sas namelist,physics 1 .false. irh "pert_sas" "ensemble choice:F, no pert, T, pert SAS" rconfig logical pert_pbl namelist,physics 1 .false. irh "pert_pbl" "ensemble choice:F, no pert, T, pert PBL" rconfig logical pert_Cd namelist,physics 1 .false. irh "pert_Cd" "ensemble choice:F, no pert, T, pert Cd" @@ -1717,10 +1738,6 @@ rconfig integer maxpatch namelist,physics 1 10 #key package associated package associated 4d scalars # name namelist choice state vars -#### 9. Edit the Registry file to set up '5' as the value of the -**** namelist variable dyn_opt that means to select our exp dyncore. -package dyn_exp dyn_opt==5 - - - package passivec1 chem_opt==0 - package passiveqv mp_physics==0 - moist:qv package kesslerscheme mp_physics==1 - moist:qv,qc,qr @@ -1730,7 +1747,7 @@ package wsm5scheme mp_physics==4 - moist:qv,qc,q package fer_mp_hires mp_physics==5 - moist:qv,qc,qr,qi,qs;state:f_ice,f_rain,f_rimef package fer_mp_hires_advect mp_physics==15 - moist:qv,qc,qr,qi;scalar:qrimef package wsm6scheme mp_physics==6 - moist:qv,qc,qr,qi,qs,qg;state:re_cloud,re_ice,re_snow -package gsfcgcescheme mp_physics==7 - moist:qv,qc,qr,qi,qs,qg +package nuwrf4icescheme mp_physics==7 - moist:qv,qc,qr,qi,qs,qg package thompson mp_physics==8 - moist:qv,qc,qr,qi,qs,qg;scalar:qni,qnr;state:re_cloud,re_ice,re_snow package thompsonaero mp_physics==28 - moist:qv,qc,qr,qi,qs,qg;scalar:qni,qnr,qnc,qnwfa,qnifa;state:re_cloud,re_ice,re_snow package milbrandt2mom mp_physics==9 - moist:qv,qc,qr,qi,qs,qg,qh;scalar:qnc,qnr,qni,qns,qng,qnh @@ -1743,11 +1760,15 @@ package nssl_2momccn mp_physics==18 - moist:qv,qc,q package nssl_1mom mp_physics==19 - moist:qv,qc,qr,qi,qs,qg,qh;scalar:qvolg package nssl_1momlfo mp_physics==21 - moist:qv,qc,qr,qi,qs,qg package nssl_2momg mp_physics==22 - moist:qv,qc,qr,qi,qs,qg;scalar:qndrop,qnr,qni,qns,qng,qvolg;state:re_cloud,re_ice,re_snow +package wsm7scheme mp_physics==24 - moist:qv,qc,qr,qi,qs,qg,qh;state:re_cloud,re_ice,re_snow +package wdm7scheme mp_physics==26 - moist:qv,qc,qr,qi,qs,qg,qh;scalar:qnn,qnc,qnr;state:re_cloud,re_ice,re_snow package p3_1category mp_physics==50 - moist:qv package p3_1category_nc mp_physics==51 - moist:qv package p3_2category mp_physics==52 - moist:qv +package jensen_ishmael mp_physics==86 - moist:qv package etamp_hwrf mp_physics==85 - moist:qv,qc,qr,qi,qs;state:f_ice,f_rain,f_rimef package etampnew mp_physics==95 - moist:qv,qc,qr,qs;state:f_ice,f_rain,f_rimef +package gsfcgcescheme mp_physics==97 - moist:qv,qc,qr,qi,qs,qg package radar_refl compute_radar_ref==1 - state:refl_10cm,refd_max package nodfimoist mp_physics_dfi==-1 - - @@ -1758,15 +1779,18 @@ package wsm3scheme_dfi mp_physics_dfi==3 - dfi_moist:dfi package wsm5scheme_dfi mp_physics_dfi==4 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package fer_mp_hires_dfi mp_physics_dfi==5 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs package wsm6scheme_dfi mp_physics_dfi==6 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow -package gsfcgcescheme_dfi mp_physics_dfi==7 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg +package nuwrf4icescheme_dfi mp_physics_dfi==7 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg package thompson_dfi mp_physics_dfi==8 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qni,dfi_qnr;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow -package thompsonaero_dfi mp_physics_dfi==28 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qni,dfi_qnr,dfi_qnc,dfi_qnwfa,dfi_qnifa;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package milbrandt2mom_dfi mp_physics_dfi==9 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;dfi_scalar:dfi_qnc,dfi_qnr,dfi_qni,dfi_qns,dfi_qng,dfi_qnh package morr_two_moment_dfi mp_physics_dfi==10 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qni,dfi_qns,dfi_qnr,dfi_qng package sbu_ylinscheme_dfi mp_physics==13 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs package wdm5scheme_dfi mp_physics_dfi==14 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs;dfi_scalar:dfi_qnn,dfi_qnc,dfi_qnr;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package wdm6scheme_dfi mp_physics_dfi==16 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qnn,dfi_qnc,dfi_qnr;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow +package wsm7scheme_dfi mp_physics_dfi==24 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow +package wdm7scheme_dfi mp_physics_dfi==26 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg,dfi_qh;dfi_scalar:dfi_qnn,dfi_qnc,dfi_qnr;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow +package thompsonaero_dfi mp_physics_dfi==28 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg;dfi_scalar:dfi_qni,dfi_qnr,dfi_qnc,dfi_qnwfa,dfi_qnifa;state:dfi_re_cloud,dfi_re_ice,dfi_re_snow package etampnew_dfi mp_physics_dfi==95 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qs +package gsfcgcescheme_dfi mp_physics_dfi==97 - dfi_moist:dfi_qv,dfi_qc,dfi_qr,dfi_qi,dfi_qs,dfi_qg # package noprogn progn==0 - - # package progndrop progn==1 - scalar:qndrop;dfi_scalar:dfi_qndrop @@ -1853,6 +1877,7 @@ package g3shcuscheme shcu_physics==1 - - package camuwshcuscheme shcu_physics==2 - - package grimsshcuscheme shcu_physics==3 - - package nscvshcuscheme shcu_physics==4 - - +package dengshcuscheme shcu_physics==5 - - package dfi_setup dfi_stage==0 - - package dfi_bck dfi_stage==1 - - diff --git a/Registry/registry.afwa b/Registry/registry.afwa index 2821b70a59..56496a769a 100644 --- a/Registry/registry.afwa +++ b/Registry/registry.afwa @@ -87,11 +87,11 @@ state real TORNADO_DUR ij misc 1 - r # Package declaration for AFWA diagnostics -package afwa_diag afwa_diag_opt==1 - state:afwa_mslp,afwa_pwat,wspd10max -package afwa_ptype afwa_ptype_opt==1 - state:afwa_precip,afwa_totprecip,afwa_rain,afwa_snow,afwa_ice,afwa_fzra,afwa_snowfall +package afwa_diag afwa_diag_opt==1 - state:afwa_mslp,afwa_pwat,afwa_precip,afwa_totprecip +package afwa_ptype afwa_ptype_opt==1 - state:afwa_rain,afwa_snow,afwa_ice,afwa_fzra,afwa_snowfall package afwa_vil afwa_vil_opt==1 - state:vil,radarvil package afwa_radar afwa_radar_opt==1 - state:echotop,refd_com,refd -package afwa_severe afwa_severe_opt==1 - state:w_up_max,w_dn_max,tcoli_max,up_heli_max,grpl_flx_max,w_mean,afwa_hail,afwa_cape,afwa_zlfc,afwa_plfc,tornado_mask,tornado_dur,midrh_min,midrh_min_old,afwa_lidx,afwa_cin,afwa_tornado,afwa_llws +package afwa_severe afwa_severe_opt==1 - state:w_up_max,w_dn_max,tcoli_max,up_heli_max,grpl_flx_max,w_mean,afwa_hail,afwa_cape,afwa_zlfc,afwa_plfc,tornado_mask,tornado_dur,midrh_min,midrh_min_old,afwa_lidx,afwa_cin,afwa_tornado,afwa_llws,wspd10max package afwa_icing afwa_icing_opt==1 - state:fzlev,icingtop,icingbot,qicing_lg,qicing_sm,icing_lg,icing_sm,qicing_lg_max,qicing_sm_max package afwa_cloud afwa_cloud_opt==1 - state:afwa_cloud,afwa_cloud_ceil package afwa_vis afwa_vis_opt==1 - state:afwa_vis,afwa_vis_dust,afwa_vis_alpha diff --git a/Registry/registry.chem b/Registry/registry.chem index 5396261d7f..dfdc77f239 100644 --- a/Registry/registry.chem +++ b/Registry/registry.chem @@ -1,3 +1,10 @@ +rconfig integer gsfcrad_gocart_coupling namelist,chem 1 2 +rconfig integer gsfcgce_gocart_coupling namelist,chem 1 2 +state real AOD_OUT ikj misc 1 - h "AOD_OUT" "Aerosol Optical Depth" " " +state real AOD2D_OUT ij misc 1 - h "AOD2D_OUT" "Aerosol Optical Depth, 2d" " " +state real ATOP2D_OUT ij misc 1 - h "ATOP2D_OUT" "Aerosol Optical Depth, top" " " +state real ICN_DIAG ikj misc 1 - h "ICN_DIAG" "Some chem thing, ICN_DIAG" " " +state real NC_DIAG ikj misc 1 - h "NC_DIAG" "Some chem thing, NC_DIAG" " " # Chemistry Variables (all shared at this point) #----------------------------------------------------------------------------------------------------------------------------------------------------------------- diff --git a/Registry/registry.dimspec b/Registry/registry.dimspec index 0ac7df79c6..a680a6fce7 100644 --- a/Registry/registry.dimspec +++ b/Registry/registry.dimspec @@ -30,6 +30,7 @@ dimspec nndgvar - namelist=nobs_ndg_vars c nobs_ndg_vars dimspec [ - namelist=obs_prt_max c obs_prt_max dimspec obsstid - constant=40 c obs station id names dimspec & 2 namelist=lagday z lagday +dimspec seed 1 namelist=seed_dim z seed_dim endif @@ -51,7 +52,18 @@ endif dimspec snly 2 namelist=num_snow_layers z snow_layers dimspec l 2 namelist=num_soil_layers z soil_layers dimspec snsl 2 namelist=num_snso_layers z snso_layers -dimspec ulay 2 namelist=num_urban_layers z urban_layers + +dimspec umap0 2 namelist=num_urban_ndm z num_urban_ndm +dimspec umap1 2 namelist=urban_map_zrd z urban_map_zrd +dimspec umap2 2 namelist=urban_map_zwd z urban_map_zwd +dimspec umap3 2 namelist=urban_map_gd z urban_map_gd +dimspec umap4 2 namelist=urban_map_zd z urban_map_zd +dimspec umap5 2 namelist=urban_map_zdf z urban_map_zdf +dimspec umap6 2 namelist=urban_map_bd z urban_map_bd +dimspec umap7 2 namelist=urban_map_wd z urban_map_wd +dimspec umap8 2 namelist=urban_map_gbd z urban_map_gbd +dimspec umap9 2 namelist=urban_map_fbd z urban_map_fbd + dimspec mocat 2 namelist=mosaic_cat z mosaic categories # danli dimspec mocat2 2 namelist=mosaic_cat_soil z mosaic categories * soil layers # danli dimspec uhi 2 namelist=num_urban_hi z urban_vertical_layers @@ -120,3 +132,7 @@ dimspec ntraj 1 namelist=num_traj z num_traj # Number of ocean levels dimspec nocnl 2 namelist=ocean_levels z ocean_layer endif + +# Dimensions for PSU-DENG SCP +dimspec nsh 2 constant=100 z nsh + diff --git a/Registry/registry.stoch b/Registry/registry.stoch index 57fda079aa..75c161d7b3 100644 --- a/Registry/registry.stoch +++ b/Registry/registry.stoch @@ -55,14 +55,14 @@ state real SPPT_AMP ij misc 1 - r "SPPT_AMP" "amp # 1d arrays -state real VERTAMPT k misc 1 - r "VERTAMPT" "vert. amplitude of stoch. temperature perturb." "" "" -state real VERTAMPUV k misc 1 - r "VERTAMPUV" "vert. amplitude of stoch. u,v perturb." "" "" -state integer ISEEDARR_SPPT k misc 1 - rh "ISEEDARR_SPPT" "Array to hold seed for restart, SPPT" "" "" -state integer ISEEDARR_SKEBS k misc 1 - rh "ISEEDARR_SKEBS" "Array to hold seed for restart, SKEBS" "" "" -state integer ISEEDARR_RAND_PERT k misc 1 - rh "ISEEDARR_RAND_PERTURB" "Array to hold seed for restart, RAND_PERT" "" "" -state integer iseedarr_spp_conv k misc 1 - rh "iseedarray_spp_conv" "Array to hold seed for restart, RAND_PERT2" "" "" -state integer iseedarr_spp_pbl k misc 1 - rh "iseedarray_spp_pbl" "Array to hold seed for restart, RAND_PERT3" "" "" -state integer iseedarr_spp_lsm k misc 1 - rh "iseedarray_spp_lsm" "Array to hold seed for restart, RAND_PERT4" "" "" +state real VERTAMPT k misc 1 - r "VERTAMPT" "vert. amplitude of stoch. temperature perturb." "" "" +state real VERTAMPUV k misc 1 - r "VERTAMPUV" "vert. amplitude of stoch. u,v perturb." "" "" +state integer ISEEDARR_SPPT {seed} misc 1 Z rh "ISEEDARR_SPPT" "Array to hold seed for restart, SPPT" "" "" +state integer ISEEDARR_SKEBS {seed} misc 1 Z rh "ISEEDARR_SKEBS" "Array to hold seed for restart, SKEBS" "" "" +state integer ISEEDARR_RAND_PERT {seed} misc 1 Z rh "ISEEDARR_RAND_PERTURB" "Array to hold seed for restart, RAND_PERT" "" "" +state integer iseedarr_spp_conv {seed} misc 1 Z rh "iseedarray_spp_conv" "Array to hold seed for restart, RAND_PERT2" "" "" +state integer iseedarr_spp_pbl {seed} misc 1 Z rh "iseedarray_spp_pbl" "Array to hold seed for restart, RAND_PERT3" "" "" +state integer iseedarr_spp_lsm {seed} misc 1 Z rh "iseedarray_spp_lsm" "Array to hold seed for restart, RAND_PERT4" "" "" # 1d arrays for FFT transpose state real RAND_REAL_xxx i{stoclev}jx dyn_em 1 XYZ @@ -121,32 +121,32 @@ rconfig real gridpt_stddev_sppt namelist,stoch max_domains rconfig real stddev_cutoff_sppt namelist,stoch max_domains 2.0 - "cutoff tails of pdf above this threshold standard deviation" rconfig real lengthscale_sppt namelist,stoch max_domains 150000.0 - "Correlation length scale in meters for SPPT" rconfig real timescale_sppt namelist,stoch max_domains 21600.0 - "Decorrelation time scale in s for SPPT" -rconfig integer sppt_vertstruc namelist,stoch 1 0 - "vertical structure for sppt: 0=constant, 1=random phase" +rconfig integer sppt_vertstruc namelist,stoch 1 0 - "vertical structure for sppt: 0=constant, 1=random phase" rconfig integer iseed_sppt namelist,stoch 1 53 - "ISEED_SPPT" "RANDOM SEED FOR SPPT " "" # Namelist parameters for random perturbations rconfig integer rand_perturb namelist,stoch max_domains 0 - "generate array with random perturbations: 0=off, 1=on" -rconfig real gridpt_stddev_rand_pert namelist,stoch max_domains 0.03 - "gridpoint standard deviation of random perturbations" +rconfig real gridpt_stddev_rand_pert namelist,stoch max_domains 0.03 - "gridpoint standard deviation of random perturbations" rconfig real stddev_cutoff_rand_pert namelist,stoch max_domains 3.0 - "cutoff tails of pdf above this threshold standard deviation" rconfig real lengthscale_rand_pert namelist,stoch max_domains 500000.0 - "Correlation length scale in meters" rconfig real timescale_rand_pert namelist,stoch max_domains 21600.0 - "Decorrelation time scale in s" -rconfig integer rand_pert_vertstruc namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" +rconfig integer rand_pert_vertstruc namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" rconfig integer iseed_rand_pert namelist,stoch 1 17 - "ISEED_RAND_PERT" "RANDOM SEED FOR RAND_PERT " "" # Namelist parameters for stochastic perturbed parameters rconfig integer spp namelist,stoch max_domains 0 - "generate array with random perturbations: 0=off, 1=on" -rconfig logical hrrr_cycling namelist,stoch 1 .false. - "switch to control restart in quasi-cycled hrrr-forecasts" +rconfig logical hrrr_cycling namelist,stoch 1 .true. - "switch to control restart in quasi-cycled hrrr-forecasts" # Namelist parameters for stochastic perturbed parameters (SPP) for convective scheme -rconfig integer spp_conv namelist,stoch max_domains 0 - "generate array with random perturbations: 0=off, 1=on" +rconfig integer spp_conv namelist,stoch max_domains 0 - "generate array with random perturbations: 0=off, 1=on" rconfig real gridpt_stddev_spp_conv namelist,stoch max_domains 0.3 - "gridpoint standard deviation of random perturbations" rconfig real stddev_cutoff_spp_conv namelist,stoch max_domains 3.0 - "cutoff tails of pdf above this threshold standard deviation" rconfig real lengthscale_spp_conv namelist,stoch max_domains 150000.0 - "Correlation length scale in meters" rconfig real timescale_spp_conv namelist,stoch max_domains 21600.0 - "Decorrelation time scale in s" -rconfig integer vertstruc_spp_conv namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" +rconfig integer vertstruc_spp_conv namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" rconfig integer iseed_spp_conv namelist,stoch 1 171 - "ISEED_RAND_PERT" "RANDOM SEED FOR RAND_PERT " "" # Namelist parameters for stochastic perturbed parameters (SPP) for pbl @@ -156,7 +156,7 @@ rconfig real gridpt_stddev_spp_pbl namelist,stoch max_domains rconfig real stddev_cutoff_spp_pbl namelist,stoch max_domains 2.0 - "cutoff tails of pdf above this threshold standard deviation" rconfig real lengthscale_spp_pbl namelist,stoch max_domains 700000.0 - "Correlation length scale in meters" rconfig real timescale_spp_pbl namelist,stoch max_domains 21600.0 - "Decorrelation time scale in s" -rconfig integer vertstruc_spp_pbl namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" +rconfig integer vertstruc_spp_pbl namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" rconfig integer iseed_spp_pbl namelist,stoch 1 217 - "ISEED_RAND_PERT" "RANDOM SEED FOR RAND_PERT " "" @@ -167,7 +167,7 @@ rconfig real gridpt_stddev_spp_lsm namelist,stoch max_domains rconfig real stddev_cutoff_spp_lsm namelist,stoch max_domains 3.0 - "cutoff tails of pdf above this threshold standard deviation" rconfig real lengthscale_spp_lsm namelist,stoch max_domains 50000.0 - "Correlation length scale in meters" rconfig real timescale_spp_lsm namelist,stoch max_domains 86400.0 - "Decorrelation time scale in s" -rconfig integer vertstruc_spp_lsm namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" +rconfig integer vertstruc_spp_lsm namelist,stoch 1 0 - "vertical structure for random perturb: 0=constant, 1=random phase" rconfig integer iseed_spp_lsm namelist,stoch 1 317 - "ISEED_RAND_PERT" "RANDOM SEED FOR RAND_PERT " "" # Derived namelist parameters used in share/module_check_amundo.F @@ -177,6 +177,7 @@ rconfig integer sppt_on derived 1 0 - "sp rconfig integer spp_on derived 1 0 - "skebs_on" "skebs arrays are declared&filled for all domains" "" rconfig integer rand_perturb_on derived 1 0 - "rand_perturb_on " "random perturb. array is declared&filled for all domains" "" rconfig integer num_stoch_levels derived 1 1 - "num_stoch_levels" "number of vertical levels of random fields" "" +rconfig integer seed_dim derived 1 0 - "seed_dim" "output of CALL RANDOM_SEED(SIZE=seed_dim)" "" # Package declarations diff --git a/Registry/registry.trad_fields b/Registry/registry.trad_fields index 2f15682fee..c8bab61720 100644 --- a/Registry/registry.trad_fields +++ b/Registry/registry.trad_fields @@ -15,7 +15,14 @@ state real vmet ikj dyn_em 1 - h1 "VMET" "earth r state real speed ikj dyn_em 1 - h1 "SPEED" "horizontal wind speed" "m/s" state real dir ikj dyn_em 1 - h1 "DIR" "wind direction, 0=northly, 270=westerly" "degrees" +state real rain ij dyn_em 1 - h1 "RAIN" "total rainfall" "mm" +state real liqrain ij dyn_em 1 - h1 "LIQRAIN" "total liquid rainfall" "mm" +# LIQRAIN=RAIN-SNOWNC-GRAUPELNC-HAILNC +state real tpw ij dyn_em 1 - h1 "TPW" "total precipitable water" "mm" +state real potential_t ikj dyn_em 1 - h1 "potential_t" "potential temperature" "K" +state real rh ikj dyn_em 1 - h1 "RH" "relative humidity" "%" + # Package declarations package skip_trad_fields diag_nwp2==0 - - -package do_trad_fields diag_nwp2==1 - state:sealevelp,temperature,pressure,geoheight,umet,vmet,speed,dir +package do_trad_fields diag_nwp2==1 - state:sealevelp,temperature,pressure,geoheight,umet,vmet,speed,dir,rain,liqrain,tpw,theta,rh diff --git a/Registry/registry.var b/Registry/registry.var index 8247846d2d..571a4e5279 100644 --- a/Registry/registry.var +++ b/Registry/registry.var @@ -84,6 +84,9 @@ rconfig logical use_wrf_sfcinfo namelist,wrfvar1 1 .true. - "us rconfig logical use_background_errors namelist,wrfvar1 1 .true. - "use_background_errors" "" "" rconfig logical write_increments namelist,wrfvar1 1 .false. - "write_increments" "" "" rconfig logical write_iv_gpsztd namelist,wrfvar1 1 .false. - "write_iv_gpsztd" "switch for writing out ztd innov information" "" +rconfig logical write_gts_omb_oma namelist,wrfvar1 1 .true. - "write_gts_omb_oma" "switch for writing out gts_omb_oma information" "" +rconfig logical write_rej_obs_conv namelist,wrfvar1 1 .false. - "write_rej_obs_conv" "switch for writing out rej_obs_conv information" "" +rconfig logical write_unpert_obs namelist,wrfvar1 1 .false. - "write_unpert_obs" "switch for writing out unpert_obs (y=Hx') information" "" rconfig logical var4d namelist,wrfvar1 1 .false. - "var4d" "" "" rconfig integer var4d_bin namelist,wrfvar1 1 3600 - "var4d_bin" "" "" rconfig integer var4d_bin_rain namelist,wrfvar1 1 3600 - "var4d_bin_rain" "" "" @@ -180,6 +183,7 @@ rconfig logical use_ssmisobs namelist,wrfvar4 1 .false. - "use rconfig logical use_iasiobs namelist,wrfvar4 1 .false. - "use_iasiobs" "" "" rconfig logical use_seviriobs namelist,wrfvar4 1 .false. - "use_seviriobs" "" "" rconfig logical use_amsr2obs namelist,wrfvar4 1 .false. - "use_amsr2obs" "" "" +rconfig logical use_ahiobs namelist,wrfvar4 1 .false. - "use_ahiobs" "" "" rconfig logical use_goesimgobs namelist,wrfvar4 1 .false. - "use_goesimgobs" "" "" rconfig logical use_kma1dvar namelist,wrfvar4 1 .false. - "use_kma1dvar" "" "" rconfig logical use_filtered_rad namelist,wrfvar4 1 .false. - "use_filtered_rad" "" "" @@ -314,7 +318,7 @@ rconfig logical trace_use_dull namelist,wrfvar9 1 .false. - "t rconfig logical trace_memory namelist,wrfvar9 1 .true. - "trace_memory" "" "" rconfig logical trace_all_pes namelist,wrfvar9 1 .false. - "trace_all_pes" "" "" rconfig logical trace_csv namelist,wrfvar9 1 .true. - "trace_csv" "" "" -rconfig logical use_html namelist,wrfvar9 1 .true. - "use_html" "" "" +rconfig logical use_html namelist,wrfvar9 1 .false. - "use_html" "" "" rconfig logical warnings_are_fatal namelist,wrfvar9 1 .false. - "warnings_are_fatal" "" "" rconfig logical test_transforms namelist,wrfvar10 1 .false. - "test_transforms" "" "" rconfig logical test_gradient namelist,wrfvar10 1 .false. - "test_gradient" "" "" @@ -428,6 +432,7 @@ rconfig real pseudo_rad_err namelist,wrfvar14 1 1.0 - "ps rconfig logical use_simulated_rad namelist,wrfvar14 1 .false. - "use_simulated_rad" "" "" rconfig logical simulated_rad_io namelist,wrfvar14 1 .false. - "simulated_rad_io" "" "" rconfig integer simulated_rad_ngrid namelist,wrfvar14 1 0 - "simulated_rad_ngrid" "" "" +rconfig integer varbc_scan namelist,wrfvar14 max_instruments 1 - "varbc_scan" "" "" rconfig logical use_varbc namelist,wrfvar14 1 .true. - "use_varbc" "" "" rconfig logical freeze_varbc namelist,wrfvar14 1 .false. - "freeze_varbc" "" "" rconfig real varbc_factor namelist,wrfvar14 1 1.0 - "varbc_factor" "" "" @@ -448,6 +453,7 @@ rconfig integer num_pseudo namelist,wrfvar15 1 0 - "nu rconfig real pseudo_x namelist,wrfvar15 1 1.0 - "pseudo_x" "" "" rconfig real pseudo_y namelist,wrfvar15 1 1.0 - "pseudo_y" "" "" rconfig real pseudo_z namelist,wrfvar15 1 1.0 - "pseudo_z" "" "" +rconfig integer pseudo_time namelist,wrfvar15 1 1 - "pseudo_time" "time slot of pseudo ob for 4DVAR" "" rconfig real pseudo_val namelist,wrfvar15 1 1.0 - "pseudo_val" "" "" rconfig real pseudo_err namelist,wrfvar15 1 1.0 - "pseudo_err" "" "" rconfig real pseudo_elv namelist,wrfvar15 1 -999.99 - "pseudo_elv" "pseudo ob elevation, used by pseudo tpw/ztd" "m" @@ -484,6 +490,11 @@ rconfig real radar_rqv_rh1 namelist,radar_da 1 85.0 - "ra rconfig real radar_rqv_rh2 namelist,radar_da 1 95.0 - "radar_rqv_rh2" "RH for (radar_rqv_thresh1 < rf < radar_rqv_thresh2)" "%" rconfig real radar_rqv_h_lbound namelist,radar_da 1 -999.0 - "radar_rqv_h_lbound" "height lower bound for rqv" "m" rconfig real radar_rqv_h_ubound namelist,radar_da 1 -999.0 - "radar_rqv_h_ubound" "height upper bound for rqv" "m" +rconfig integer radar_rhv_err_opt namelist,radar_da 1 1 - "radar_rhv_err_opt" "" "1: calculated (original), 2: from namelist" +rconfig real radar_rhv_rrn_err namelist,radar_da 1 0.15 - "radar_rhv_rrn_err" "obs error of retrieved qrain" "g/kg" +rconfig real radar_rhv_rsn_err namelist,radar_da 1 0.15 - "radar_rhv_rsn_err" "obs error of retrieved qsnow" "g/kg" +rconfig real radar_rhv_rgr_err namelist,radar_da 1 0.15 - "radar_rhv_rgr_err" "obs error of retrieved qgraup" "g/kg" +rconfig logical write_oa_radar_ascii namelist,radar_da 1 .true. - "write_oa_radar_ascii" "switch for writing out radar_omb_oma" "" rconfig integer gpsro_drift namelist,obs_opt 1 1 - "gpsro_drift" "horizontal drifting for GPSRO" "0=no drift, 1=drift" rconfig integer gpseph_opt namelist,obs_opt 1 1 - "gpseph_opt" "0: local operator variant, 1: non-local" "" rconfig logical gpseph_loadbalance namelist,obs_opt 1 .true. - "gpseph_loadbalance" "" "" diff --git a/arch/Config.pl b/arch/Config.pl index 3c0f3b970e..7d8173860a 100644 --- a/arch/Config.pl +++ b/arch/Config.pl @@ -419,7 +419,11 @@ if ( $response == 2 || $response == 3 ) { if ( $ENV{'TERRAIN_AND_LANDUSE'} eq "1" && index($sw_wrf_core, "EM_CORE") > -1 ) { $sw_terrain_and_landuse =" -DTERRAIN_AND_LANDUSE" ; + } else { + $sw_terrain_and_landuse =" -DLANDREAD_STUB=1" ; } +} else { + $sw_terrain_and_landuse =" -DLANDREAD_STUB=1" ; } open CONFIGURE_DEFAULTS, "cat ./arch/configure.defaults |" ; $latchon = 0 ; @@ -549,7 +553,7 @@ } else { - $_ =~ s:CONFIGURE_TERRAIN_AND_LANDUSE::g; + $_ =~ s:CONFIGURE_TERRAIN_AND_LANDUSE:-DLANDREAD_STUB=1:g; } # ESMF substitutions in configure.defaults diff --git a/arch/configure.defaults b/arch/configure.defaults index 0f2bc12d81..45e1079dd4 100644 --- a/arch/configure.defaults +++ b/arch/configure.defaults @@ -1282,7 +1282,7 @@ OMP = # -homp OMPCC = # -homp SFC = ftn $(NOOMP) SCC = cc -CCOMP = gcc +CCOMP = cc DM_FC = ftn $(NOOMP) DM_CC = cc FC = $(DM_FC) diff --git a/arch/postamble b/arch/postamble index 6eff2d9412..fb31cbdc0a 100644 --- a/arch/postamble +++ b/arch/postamble @@ -17,6 +17,7 @@ ARCHFLAGS = $(COREDEFS) -DIWORDSIZE=$(IWORDSIZE) -DDWORDSIZE=$(DWORDSIZ CONFIGURE_HDF5_FLAG \ CONFIGURE_CLOUDCV_FLAG \ CONFIGURE_4DVAR_FLAG \ + CONFIGURE_TERRAIN_AND_LANDUSE \ CONFIGURE_WAVELET_FLAG \ CONFIGURE_NESTOPT \ -DUSE_ALLOCATABLES \ @@ -26,11 +27,13 @@ ARCHFLAGS = $(COREDEFS) -DIWORDSIZE=$(IWORDSIZE) -DDWORDSIZE=$(DWORDSIZ -DKEEP_INT_AROUND \ -DLIMIT_ARGS \ -DBUILD_RRTMG_FAST=1 \ + -DSHOW_ALL_VARS_USED=0 \ -DCONFIG_BUF_LEN=$(CONFIG_BUF_LEN) \ -DMAX_DOMAINS_F=$(MAX_DOMAINS) \ -DMAX_HISTORY=$(MAX_HISTORY) \ -DNMM_NEST=$(WRF_NMM_NEST) CFLAGS = $(CFLAGS_LOCAL) CONFIGURE_DMPARALLEL CONFIGURE_STUBMPI \ + CONFIGURE_TERRAIN_AND_LANDUSE \ -DMAX_HISTORY=$(MAX_HISTORY) CONFIGURE_NMM_CORE FCFLAGS = $(FCOPTIM) $(FCBASEOPTS) ESMF_LIB_FLAGS = ESMFLIBFLAG diff --git a/chem/KPP/clean_kpp b/chem/KPP/clean_kpp index bbae5883c9..24844be7b5 100755 --- a/chem/KPP/clean_kpp +++ b/chem/KPP/clean_kpp @@ -13,27 +13,31 @@ rm -f ../Makfile_org endif +if ( -e if_required ) then +rm if_required +endif +touch if_required # remove automatically genereated files in chem directory -rm -f ../*kpp* +rm -f ../*kpp* >>& if_required #kpp set k_dirs = ( kpp/* ) foreach kdir ( $k_dirs ) -echo $kdir -( cd $kdir; touch Makefile.defs; make clean ) -( cd $kdir; touch Makefile.defs; rm -f Makefile.defs ) +echo $kdir >> if_required +( cd $kdir; touch Makefile.defs; make clean ) >>& if_required +( cd $kdir; touch Makefile.defs; rm -f Makefile.defs ) >>& if_required end # remove links in util/wkc -( cd util/wkc; linker.csh unlink ) +( cd util/wkc; linker.csh unlink ) >>& if_required #coupler -( cd util/wkc; make clean; make -f Makefile.tuv clean ) +( cd util/wkc; make clean; make -f Makefile.tuv clean ) >>& if_required @@ -41,13 +45,13 @@ end set m_dirs = ( mechanisms/* ) foreach mdir ( $m_dirs ) -echo $mdir +echo $mdir >>& if_required -( cd $mdir; /bin/rm -f *.f90 *.map Makefil* *~ core.* ) +( cd $mdir; /bin/rm -f *.f90 *.map Makefil* *~ core.* ) >>& if_required end -rm -f ../../Registry_tmp.*_wk* +rm -f ../../Registry_tmp.*_wk* >>& if_required #./documentation/latex/clean diff --git a/chem/KPP/kpp/kpp-2.1/test/Makefile b/chem/KPP/kpp/kpp-2.1/test/Makefile index 5e58d92a2d..03db4f208f 100755 --- a/chem/KPP/kpp/kpp-2.1/test/Makefile +++ b/chem/KPP/kpp/kpp-2.1/test/Makefile @@ -90,12 +90,12 @@ mex: $(ALLOBJ) $(MEX) FC#$(FC) -fortran -O saprc99_mex_Hessian.f90 $(ALLOBJ) clean: - rm -f saprc99*.o saprc99*.mod \ + @rm -f saprc99*.o saprc99*.mod \ saprc99*.dat saprc99.exe saprc99*.mexglx \ saprc99.map distclean: - rm -f saprc99*.o saprc99*.mod \ + @rm -f saprc99*.o saprc99*.mod \ saprc99*.dat saprc99.exe saprc99.map \ saprc99*.f90 saprc99_*.mexglx diff --git a/chem/KPP/util/wkc/Makefile b/chem/KPP/util/wkc/Makefile index fb38d6f27c..86954eb2a3 100644 --- a/chem/KPP/util/wkc/Makefile +++ b/chem/KPP/util/wkc/Makefile @@ -23,7 +23,7 @@ registry : $(OBJ) $(SCC) -I../../../../inc $(CFLAGS) -c $(DEBUG) $< clean: - /bin/rm -f $(OBJ) gen_comms.c + @/bin/rm -f $(OBJ) gen_comms.c gen_comms.c : gen_comms.stub /bin/cp gen_comms.stub gen_comms.c diff --git a/chem/KPP/util/write_decomp/Makefile b/chem/KPP/util/write_decomp/Makefile index 20c852f142..7be276bf72 100644 --- a/chem/KPP/util/write_decomp/Makefile +++ b/chem/KPP/util/write_decomp/Makefile @@ -59,7 +59,7 @@ include ${CPATH}/../configure.wrf $(SCC) -c $(CFLAGS) $*.c clean: - $(RM) *.o *.tmp *.mod module_kpp_* *~ *.inc *.exe *.f90 + @$(RM) *.o *.tmp *.mod module_kpp_* *~ *.inc *.exe *.f90 diff --git a/chem/chemics_init.F b/chem/chemics_init.F index 21c0030187..ea27ae3c58 100755 --- a/chem/chemics_init.F +++ b/chem/chemics_init.F @@ -391,8 +391,11 @@ subroutine chem_init (id,chem,emis_ant,scalar,dt,bioemdt,photdt,chemdt,stepbioe, endif if ( config_flags%cu_diag == 1) then - if ( config_flags%cu_physics /= 3 .AND. config_flags%cu_physics /= 5 .AND. config_flags%cu_physics /= 10) then !BSINGH(12/17/2013): Added for WRFCUP scheme - call wrf_error_fatal(" Time averaged variables (cu_diag = 1) requires cu_physics = 3 or 5 or 10") + !BSINGH (12/17/2013): Added Kain–Fritsch Cumulus Potential (KF-CuP) scheme (cu_physics = 10) + !HSBADR (02/12/2019): Added Grell-Devenyi (GD) ensemble scheme (cu_physics = 93) + if ( config_flags%cu_physics /= 3 .AND. config_flags%cu_physics /= 5 .AND. & + config_flags%cu_physics /= 10 .AND. config_flags%cu_physics /= 93 ) then + call wrf_error_fatal(" Time averaged variables (cu_diag = 1) requires cu_physics = 3 or 5 or 10 or 93") endif endif @@ -702,13 +705,13 @@ subroutine chem_init (id,chem,emis_ant,scalar,dt,bioemdt,photdt,chemdt,stepbioe, !!! TUCCELLA if( .NOT. config_flags%restart ) then kpp_select: SELECT CASE(config_flags%chem_opt) - CASE (GOCARTRACM_KPP,RACM_KPP,RACMPM_KPP,RACMSORG_KPP,RACM_MIM_KPP,RACM_ESRLSORG_KPP, & - RACMSORG_AQCHEM_KPP,RACM_ESRLSORG_AQCHEM_KPP) +CASE(GOCARTRACM_KPP,RACM_KPP,RACMPM_KPP,RACMSORG_KPP,RACM_MIM_KPP,RACM_ESRLSORG_KPP,& + RACMSORG_AQCHEM_KPP,RACM_ESRLSORG_AQCHEM_KPP,RACM_SOA_VBS_KPP,RACM_SOA_VBS_AQCHEM_KPP) if(config_flags%chem_in_opt == 0 )then do j=jts,jte do k=kts,kte do i=its,ite - chem(i,k,j,p_co2)=380. + chem(i,k,j,p_co2)=400. chem(i,k,j,p_ch4)=1.7 chem(i,k,j,p_ete)=chem(i,k,j,p_olt) chem(i,k,j,p_ete)=epsilc diff --git a/chem/module_data_mgn2mech.F b/chem/module_data_mgn2mech.F index 57a4e283c2..da3d30c631 100644 --- a/chem/module_data_mgn2mech.F +++ b/chem/module_data_mgn2mech.F @@ -1811,8 +1811,8 @@ SUBROUTINE get_megan2crimech_table p_of_megan2crimech( 5) = is_limonene ; p_of_crimech( 5) = p_bpinene ; crimech_per_megan( 5) = 0.333 p_of_megan2crimech( 6) = is_carene_3 ; p_of_crimech( 6) = p_apinene ; crimech_per_megan( 6) = 1.000 p_of_megan2crimech( 7) = is_ocimene_t_b ; p_of_crimech( 7) = p_bpinene ; crimech_per_megan( 7) = 1.000 - p_of_megan2crimech( 8) = is_pinene_b ; p_of_crimech( 8) = p_apinene ; crimech_per_megan( 8) = 1.000 - p_of_megan2crimech( 9) = is_pinene_a ; p_of_crimech( 9) = p_bpinene ; crimech_per_megan( 9) = 1.000 + p_of_megan2crimech( 8) = is_pinene_b ; p_of_crimech( 8) = p_bpinene ; crimech_per_megan( 8) = 1.000 + p_of_megan2crimech( 9) = is_pinene_a ; p_of_crimech( 9) = p_apinene ; crimech_per_megan( 9) = 1.000 p_of_megan2crimech( 10) = is_2met_styrene ; p_of_crimech( 10) = p_apinene ; crimech_per_megan( 10) = 1.000 p_of_megan2crimech( 11) = is_2met_styrene ; p_of_crimech( 11) = p_bpinene ; crimech_per_megan( 11) = 1.000 p_of_megan2crimech( 12) = is_cymene_p ; p_of_crimech( 12) = p_toluene ; crimech_per_megan( 12) = 1.500 diff --git a/chem/module_gocart_settling.F b/chem/module_gocart_settling.F index 75e0bae49a..145556aa01 100644 --- a/chem/module_gocart_settling.F +++ b/chem/module_gocart_settling.F @@ -4,6 +4,8 @@ MODULE MODULE_GOCART_SETTLING ! KYKang, MKlose, CLWu various changes ! YShao [2011/09/30] complete update ! +! 11/29/18 - A. Ukhov, bug fix: dust (and sea salt) mass balance was +! violated in the "settling" routine CONTAINS @@ -117,7 +119,7 @@ SUBROUTINE gocart_settling_driver(dt,config_flags,t_phy,moist, & idust=1 CALL settling(1,1,lmx,5,g,dyn_visc,ddust,tmp,p_mid,delz, & imod,graset_dust,grasetvel_dust, uoc_flag, & - den_dust,reff_dust,dt,rh,idust,iseas) + den_dust,reff_dust,dt,rh,idust,iseas,airden) IF (config_flags%chem_opt == 2 .or. config_flags%chem_opt == 11 ) THEN kk=1 @@ -170,7 +172,7 @@ SUBROUTINE gocart_settling_driver(dt,config_flags,t_phy,moist, & CALL settling(1,1,lmx,4,g,dyn_visc,sea_salt,tmp,p_mid,delz, & imod,graset_ss,grasetvel_ss, uoc_flag, & - den_seas,reff_seas,dt,rh,idust,iseas) + den_seas,reff_seas,dt,rh,idust,iseas,airden) IF (config_flags%chem_opt == 2 .or. config_flags%chem_opt == 11 ) THEN kk=1 do kkk=1,4 @@ -204,7 +206,7 @@ END SUBROUTINE gocart_settling_driver subroutine settling(imx,jmx,lmx,nmx,g0,dyn_visc,tc,tmp,p_mid,delz, & imod,graset, grasetvel, uoc, & - den_in,reff_in,dt,rh,idust,iseas) + den_in,reff_in,dt,rh,idust,iseas,airden) ! **************************************************************************** ! * * @@ -224,7 +226,7 @@ subroutine settling(imx,jmx,lmx,nmx,g0,dyn_visc,tc,tmp,p_mid,delz, & INTEGER :: ntdt REAL, INTENT(IN) :: dt,g0,dyn_visc REAL*8, INTENT(IN) :: tmp(imx,jmx,lmx), delz(imx,jmx,lmx), & - rh(imx,jmx,lmx), p_mid(imx,jmx,lmx) + rh(imx,jmx,lmx), p_mid(imx,jmx,lmx),airden(imx,jmx,lmx) ! REAL*8, INTENT(IN) :: den_in(nmx), reff_in(nmx) @@ -239,9 +241,11 @@ subroutine settling(imx,jmx,lmx,nmx,g0,dyn_visc,tc,tmp,p_mid,delz, & INTEGER :: ndt_settl(nmx) REAL*8 :: dzmin, vsettl, dtmax, pres, rhb, rwet(nmx), ratio_r(nmx) REAL*8 :: c_stokes, free_path, c_cun, viscosity, growth_fac - REAL*8 :: vd_cor(lmx), vd_wk1, vd_wk2 + REAL*8 :: vd_cor(lmx), vd_wk1 INTEGER :: k, n, i, j, l, l2 + REAL*8 :: transfer_to_below_level,temp_tc + ! for sea-salt: REAL*8, PARAMETER :: c1=0.7674, c2=3.079, c3=2.573E-11, c4=-1.424 @@ -315,6 +319,9 @@ subroutine settling(imx,jmx,lmx,nmx,g0,dyn_visc,tc,tmp,p_mid,delz, & END IF DO n = 1,ndt_settl(k) ! time loop + + transfer_to_below_level=0 + DO l = lmx,1,-1 ! height loop, from top l2 = lmx - l + 1 @@ -338,18 +345,15 @@ subroutine settling(imx,jmx,lmx,nmx,g0,dyn_visc,tc,tmp,p_mid,delz, & vd_cor(l) = 2./9.*g0*rho_priv(k)*rwet_priv(k)**2/viscosity ! Settling velocity, depends on temp -! Update mixing ratio; order of delz: top->sfc - IF (l == lmx) THEN - vd_wk1 = dt_settl(k)*vd_cor(l)/delz(i,j,l2) ! Dimensionless - tc(i,j,l,k) = tc(i,j,l,k)/(1.+ vd_wk1) - ELSE - vd_wk1 = dt_settl(k)*vd_cor(l)/delz(i,j,l2) ! Dimensionless - vd_wk2 = dt_settl(k)*vd_cor(l+1)/delz(i,j,l2) ! Dimensionless - tc(i,j,l,k) = (tc(i,j,l,k)+vd_wk2*tc(i,j,l+1,k))/(1.+vd_wk1) - ENDIF + ! 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] + 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==1) THEN - graset(i,j,k)=graset(i,j,k)+vd_cor(l)*tc(i,j,l,k)/ndt_settl(k) ! [ug/kg][m/s] + graset(i,j,k)=graset(i,j,k)+vd_cor(l)*(temp_tc*vd_wk1)/ndt_settl(k) ! [ug/kg][m/s] grasetvel(i,j,k)=vd_cor(l) ! [m/s] ENDIF ENDDO !l, height diff --git a/chem/module_plumerise1.F b/chem/module_plumerise1.F index 55e457d184..5e58a97cd8 100644 --- a/chem/module_plumerise1.F +++ b/chem/module_plumerise1.F @@ -109,6 +109,8 @@ subroutine plumerise_driver (id,ktau,dtstep, & ebu(i,kts,j,p_ebu_no2)=ebu_in(i,1,j,p_ebu_in_no2) ebu(i,kts,j,p_ebu_co)=ebu_in(i,1,j,p_ebu_in_co) ebu(i,kts,j,p_ebu_co2)=ebu_in(i,1,j,p_ebu_in_co2) + ebu(i,kts,j,p_ebu_nh3) = ebu_in(i,1,j,p_ebu_in_nh3) + ebu(i,kts,j,p_ebu_ch4) = ebu_in(i,1,j,p_ebu_in_ch4) ebu(i,kts,j,p_ebu_eth)=ebu_in(i,1,j,p_ebu_in_eth) ebu(i,kts,j,p_ebu_hc3)=ebu_in(i,1,j,p_ebu_in_hc3) ebu(i,kts,j,p_ebu_hc5)=ebu_in(i,1,j,p_ebu_in_hc5) diff --git a/clean b/clean index bc8fc18b3f..6af2618b00 100755 --- a/clean +++ b/clean @@ -3,11 +3,11 @@ set nonomatch -foreach dir ( frame chem share dyn_em dyn_exp dyn_nmm phys main tools wrftladj ) +foreach dir ( frame chem share dyn_em dyn_nmm phys main tools wrftladj ) if ( -d $dir ) then ( cd $dir ; echo $dir ; /bin/rm -f core wrf *.f90 *.exe *.kmo *.mod *.o *.obj *.inc *.F90 *.a \ db_* Warnings module_state_description.F module_dm.F gmeta \ - wrfdata whatiread rsl.* show_domain* ) + wrfdata whatiread rsl.* show_domain* ) >& /dev/null endif end @@ -19,8 +19,8 @@ endif ( cd inc ; /bin/rm -f *.inc namelist.default ) +find . -name \*.dSYM -exec rm -rf {} \; >& /dev/null -set echo set arg="$1" if ( "$arg" == '-a' || "$arg" == '-aa' ) then if ( -d var ) then @@ -40,17 +40,17 @@ if ( "$arg" == '-a' || "$arg" == '-aa' ) then ( cd external ; make -i superclean ) ( cd external/io_grib1/WGRIB ; make clean ) ( cd external/atm_ocn ; make clean ) - ( cd tools ; /bin/rm -f registry gen_comms.c fseeko_test fseeko64_test nc4_test.log ) - ( cd inc; /bin/rm -f dm_comm_cpp_flags wrf_io_flags.h wrf_status_codes.h ) + ( cd tools ; /bin/rm -f registry gen_comms.c fseeko_test fseeko64_test nc4_test.log ) >& /dev/null + ( cd inc; /bin/rm -f dm_comm_cpp_flags wrf_io_flags.h wrf_status_codes.h ) >& /dev/null if ( -f configure.wrf ) then /bin/cp configure.wrf configure.wrf.backup - /bin/rm -f configure.wrf + /bin/rm -f configure.wrf >& /dev/null endif if ( "$arg" != '-aa' ) then ( cd run ; /bin/rm -f gm* out* fort* ideal* *.exe input_sounding ; \ /bin/cp -f namelist.input namelist.input.backup.`date +%Y-%m-%d_%H_%M_%S` ; \ /bin/rm -f namelist.input ) >& /dev/null - ( cd test/exp_real ; /bin/rm -f gm* out* fort* real* ) + ( cd test/exp_real ; /bin/rm -f gm* out* fort* real* ) >& /dev/null ( cd test ; rm -f */*.exe */ETAMPNEW_DATA* */GENPARM.TBL */LANDUSE.TBL */README.namelist \ */RRTM_DATA */SOILPARM.TBL */VEGPARM.TBL */MPTABLE.TBL */URBPARM.TBL */grib2map.tbl \ */CAM_ABS_DATA */CAM_AEROPT_DATA \ @@ -58,13 +58,14 @@ if ( "$arg" == '-a' || "$arg" == '-aa' ) then */CAMtr_volume_mixing_ratio.RCP4.5 */CAMtr_volume_mixing_ratio.RCP6 */CAMtr_volume_mixing_ratio.RCP8.5 \ */CAMtr_volume_mixing_ratio.A1B */CAMtr_volume_mixing_ratio.A2 */CAMtr_volume_mixing_ratio \ */CLM_*DATA */RRTMG_LW_DATA */RRTMG_SW_DATA \ - */p3_lookup_table_?.dat* \ + */p3_lookup_table_?.dat* */BROADBAND_CLOUD_GODDARD.bin \ */ozone.formatted */ozone_lat.formatted */ozone_plev.formatted \ */aerosol.formatted */aerosol_lat.formatted */aerosol_plev.formatted */aerosol_lon.formatted \ */kernels.asc_s_0_03_0_9 */bulkradii.asc_s_0_03_0_9 */bulkdens.asc_s_0_03_0_9 \ */constants.asc */p3_lookup_table_1.dat \ */masses.asc */kernels_z.asc */capacity.asc */termvels.asc */coeff_p.asc */coeff_q.asc \ - */gribmap.txt */tr??t?? */co2_trans */namelist.output ) >& /dev/null + */gribmap.txt */tr??t?? */co2_trans */namelist.output */ishmael-gamma-tab.bin \ + */ishmael-qi-qc.bin */ishmael-qi-qr.bin ) >& /dev/null else if ( "$arg" == '-aa' ) then /bin/rm -f configure.wrf.backup /bin/rm -f Registry/Registry.backup @@ -76,7 +77,7 @@ endif if ( -d chem ) then if ( -e chem/KPP )then - ( cd chem/KPP; ./clean_kpp ) + ( cd chem/KPP; ./clean_kpp ; rm -f if_required ) endif endif #cms-- diff --git a/compile b/compile index bc76d643c6..5cbde14dd5 100755 --- a/compile +++ b/compile @@ -24,7 +24,9 @@ endif set ZAP = .foofoo set arglist="" set prev_was_j = false +set count = 0 foreach a ( $argv ) + @ count ++ if ( "$a" == "-h" ) then goto hlp else if ( "$a" == "all_wrfvar" || "$a" == "gen_be" ) then @@ -76,8 +78,8 @@ foreach a ( $argv ) set arglist = ( $arglist $a ) set ZAP = ( main/wrf.exe ) else if ( "$a" == "-j" ) then - shift argv - setenv J "-j $argv[1]" + @ JJ = $count + 1 + setenv J "-j $argv[$JJ]" set prev_was_j = true else if ( "$prev_was_j" == "true" ) then set prev_was_j = false @@ -340,8 +342,8 @@ else setenv BUFR 1 endif setenv CRTM_CPP "-DCRTM" - setenv CRTM_LIB "-L../external/crtm_2.2.3/libsrc -lCRTM" - setenv CRTM_SRC "-I../external/crtm_2.2.3/libsrc" + setenv CRTM_LIB "-L../external/crtm_2.3.0/libsrc -lCRTM" + setenv CRTM_SRC "-I../external/crtm_2.3.0/libsrc" #setenv SFC_CRTM `grep '^SFC' configure.wrf | awk '{print $3}' | sed -e 's/\// /g' | awk '{print $NF}'` #setenv ABI_CRTM `grep '^SFC' configure.wrf | sed -n 's/.*\(\-m[0-9]\{2\}\).*/\1/p'` setenv CRTM 1 @@ -354,46 +356,6 @@ else setenv CRTM_SRC " " setenv CRTM 0 endif - set RTTOV = ( `grep "^RTTOVPATH" configure.wrf | cut -d"=" -f2-` ) - if ( $RTTOV == "" ) then - setenv RTTOV_LIB " " - setenv RTTOV_SRC " " - unsetenv RTTOV - else - echo " " - echo "Compiling with RTTOV libraries in:" - echo $RTTOV - echo " " - if ( ! $?BUFR ) then - echo " " - echo "BUFR library is needed for radiance data ingest." - echo "setting BUFR=1" - echo " " - setenv BUFR 1 - endif - if ( -e ${RTTOV}/lib/librttov11.1.0_main.a ) then - setenv RTTOV_LIB "-L${RTTOV}/lib -lrttov11.1.0_coef_io -lrttov11.1.0_emis_atlas -lrttov11.1.0_main" - if ( -e ${RTTOV}/lib/librttov11.1.0_hdf.a ) then - setenv RTTOV_LIB "${RTTOV_LIB} -lrttov11.1.0_hdf" - endif - else if ( -e ${RTTOV}/lib/librttov11.2.0_main.a ) then - setenv RTTOV_LIB "-L${RTTOV}/lib -lrttov11.2.0_coef_io -lrttov11.2.0_emis_atlas -lrttov11.2.0_main" - if ( -e ${RTTOV}/lib/librttov11.2.0_hdf.a ) then - setenv RTTOV_LIB "${RTTOV_LIB} -lrttov11.2.0_hdf" - endif - else if ( -e ${RTTOV}/lib/librttov11_main.a ) then - setenv RTTOV_LIB "-L${RTTOV}/lib -lrttov11_coef_io -lrttov11_emis_atlas -lrttov11_main" - if ( -e ${RTTOV}/lib/librttov11_hdf.a ) then - setenv RTTOV_LIB "${RTTOV_LIB} -lrttov11_hdf" - endif - else - echo "Can not find a compatible RTTOV library! Please ensure that your RTTOV build was successful," - echo "your 'RTTOV' environment variable is set correctly, and you are using a supported version of RTTOV." - echo "Currently supported versions are 11.1, 11.2, and 11.3" - exit 1 - endif - setenv RTTOV_SRC "-I${RTTOV}/include -I${RTTOV}/mod" - endif set hdf5path = ( `grep "^HDF5PATH" configure.wrf | cut -d"=" -f2-` ) if ( $hdf5path == "" ) then setenv HDF5_INC "" @@ -406,6 +368,42 @@ else setenv HDF5_INC "-I${hdf5path}/include" setenv HDF5 1 endif + set RTTOV = ( `grep "^RTTOVPATH" configure.wrf | cut -d"=" -f2-` ) + if ( $RTTOV == "" ) then + setenv RTTOV_LIB " " + setenv RTTOV_SRC " " + unsetenv RTTOV + else + if ( $hdf5path == "" ) then + echo "As of version 12.1 of RTTOV, WRFDA requires HDF5 in order utilize the RTTOV library." + echo "RTTOV emissivity atlas files are now provided only in HDF5 format." + echo "Please supply an HDF5 path prior to configure or unset RTTOV." + exit 1 + else + echo " " + echo "Compiling with RTTOV libraries in:" + echo $RTTOV + echo " " + if ( ! $?BUFR ) then + echo " " + echo "BUFR library is needed for radiance data ingest." + echo "setting BUFR=1" + echo " " + setenv BUFR 1 + endif + if ( -e ${RTTOV}/lib/librttov12_main.a ) then + setenv RTTOV_LIB "-L${hdf5path}/lib -lhdf5hl_fortran -lhdf5_hl -lhdf5_fortran -lhdf5 -L${RTTOV}/lib -lrttov12_coef_io -lrttov12_emis_atlas -lrttov12_main -lrttov12_hdf" + else + echo "Can not find a compatible RTTOV library! Please ensure that your RTTOV build was successful," + echo "your 'RTTOV' environment variable is set correctly, and you are using a supported version of RTTOV." + echo "Current supported version(s): 12.1" + + exit 1 + endif + setenv RTTOV_SRC "-I${RTTOV}/include -I${RTTOV}/mod" + endif + endif + if ( $?CLOUD_CV ) then setenv CLOUD_CV_CPP "-DCLOUD_CV" else diff --git a/doc/README.DA b/doc/README.DA index 43b177bb3d..e1a73ee37c 100644 --- a/doc/README.DA +++ b/doc/README.DA @@ -22,6 +22,47 @@ WRFDA, including infringement actions. This is the main directory for the WRFDA Version 4 source code release. ====================================== +V4.1 Release Notes : +------------------- + +Version 4.1 was released on April 12, 2019. + + For more information about WRFDA, visit the WRFDA Users home page + http://www2.mmm.ucar.edu/wrf/users/wrfda/index.html + + New features: + ------------------ + - Himawari AHI radiance data assimilation + Wang, Y., Z. Liu, S. Yang, J. Min, L. Chen, Y. Chen, and T. Zhang, 2018: + Added value of assimilating Himawari-8 AHI water vapor radiances on analyses + and forecasts for "7.19" severe storm over north China. J. Geophys. Res. Atmos., + 123, https://doi.org/10.1002/2017JD027697. + - 3DVAR and hybrid-3D/4DEnVar now work with moist potential temperature. + + Updated features: + ------------------ + - Update WRFDA to handle RTTOV v12.1. New emissivity formulations are enabled + as well as HDF-only emissivity atlas files. Compiling WRFDA for RTTOV now + requires an HDF5 library. + - The code-base of CRTM carried with WRFDA is updated from v2.2.3 to v2.3.0. + Starting with V4.0, CRTM coefficient files are NOT included + in any of the WRF or WRFDA tar files. There are two ways to get this data. + 1. A subset of coefficient files can be download from + http://www2.mmm.ucar.edu/wrf/users/wrfda/download/crtm_coeffs.html + 2. The full set of CRTM coefficients may be downloaded from: + ftp://ftp.emc.ncep.noaa.gov/jcsda/CRTM/REL-2.3.0/crtm_v2.3.0.tar.gz + For external users, replace the link ‘var/run/crtm_coeffs’ with the directory + contained in the appropriate tar file. A copy is also available under ~wrfhelp + on the NCAR cheyenne supercomputer (for internal use). + - Enhance the gts_omb_oma diagnostics by appending time slot information after the level information. + - Allow pseudo ob at not-first time slot for 4DVAR. + - New WRFDA namelist options for specifying errors for radar rhv(rrn/rsn/rgr) + - New WRFDA namelist options for turning on/off some diagnostic output. + - Fix to allow assimilation of SSMI TPW contained (prior to Nov 2009) in prepbufr + obs files when ob_format=1 and use_ssmiretrievalobs=.true. + +See http://www2.mmm.ucar.edu/wrf/users/wrfda/updates-4.1.html for a full list of updates + V4.0 Release Notes : ------------------- diff --git a/doc/README.crtm b/doc/README.crtm new file mode 100644 index 0000000000..b81877dd06 --- /dev/null +++ b/doc/README.crtm @@ -0,0 +1,64 @@ +******************* +CRTM Coefficients +******************* + +These coefficient files are binary and cannot be tracked by git and are placed on the WRFDA website for download (http://www2.mmm.ucar.edu/wrf/users/wrfda/download/crtm_coeffs.html) starting from the WRFDA release v4.0. A copy is also available under ~wrfhelp on the NCAR cheyenne supercomputer (for internal use). + +WRF Version History + +...soon to come in v4.1 +As of major release v4.1 of WRFDA, CRTM v2.3 and associated coefficients are used. + +v4.0 to v4.0.x +As of major release v4.0 of WRFDA, CRTM v2.2.3 and associated coefficients are used. + +For those wishing to use instruments not contained in the NCAR versions of the coefficients above, the full set of CRTM coefficient files can be downloaded from the official CRTM ftp site http://ftp.emc.ncep.noaa.gov/jcsda/CRTM/. They can be processed into an appropriate directory structure for WRFDA using the following extraction script: + +--------------------------------------------------------------------------------- +#!/bin/bash + +cd WRFDA/var/run #Match your local directory structure + +rm crtm_coeffs +mkdir crtm_coeffs +cd crtm_coeffs + +CRTMDIR='parent/directory/CRTM/REL-2.2.3' #Match your local directory structure +ENDIAN='Big_Endian' +INST=( \ +'abi_g16' 'abi_gr' 'ahi_himawari8' \ +'airs281_aqua' \ +'amsr2_gcom-w1' 'amsre_aqua' \ +'amsua_aqua' 'amsua_metop-a' 'amsua_metop-b' 'amsua_metop-c' \ +'amsua_n15' 'amsua_n16' 'amsua_n17' 'amsua_n18' 'amsua_n19' \ +'amsub_n15' 'amsub_n16' 'amsub_n17' \ +'atms_npp' \ +'hirs2_n06' 'hirs2_n07' 'hirs2_n08' 'hirs2_n09' 'hirs2_n10' 'hirs2_n11' 'hirs2_n12' 'hirs2_n14' \ +'hirs2_tirosn' 'hirs3_n15' 'hirs3_n16' 'hirs3_n17' \ +'hirs4_metop-a' 'hirs4_metop-b' 'hirs4_n18' 'hirs4_n19' \ +'hsb_aqua' \ +'iasi616_metop-a' 'iasi616_metop-b' \ +'imgr_g13' 'imgr_g14' 'imgr_g15' \ +'mhs_metop-a' 'mhs_metop-b' 'mhs_metop-c' \ +'mhs_n18' 'mhs_n19' \ +'mwhs_fy3a' 'mwhs_fy3b' \ +'mwts_fy3a' 'mwts_fy3b' \ +'seviri_m08' 'seviri_m09' 'seviri_m10' \ +'ssmis_f16' 'ssmis_f17' 'ssmis_f18' 'ssmis_f19' 'ssmis_f20' \ +) + +mkdir ODPS +for instrument in ${INST[@]} +do + cp $CRTMDIR/fix/SpcCoeff/$ENDIAN/$instrument".Spc"* ./ + cp $CRTMDIR/fix/TauCoeff/ODPS/$ENDIAN/$instrument".Tau"* ./ODPS/ +done +ln -sf ODPS/* ./ +cp $CRTMDIR/fix/AerosolCoeff/$ENDIAN/* ./ +cp $CRTMDIR/fix/CloudCoeff/$ENDIAN/* ./ +cp $CRTMDIR/fix/EmisCoeff/*/$ENDIAN/* ./ +cp $CRTMDIR/fix/EmisCoeff/*/SEcategory/$ENDIAN/* ./ +--------------------------------------------------------------------------------- + +Note: Custom instruments can be added to INST as they are needed. Please consider submitting source code for new instruments back to the wrf-model github repository. + diff --git a/doc/README.hydro b/doc/README.hydro index 7150d8468b..dd6277f14a 100644 --- a/doc/README.hydro +++ b/doc/README.hydro @@ -8,9 +8,9 @@ library to link with the WRF model and called by the WRF model as a function. Th of WRF-Hydro within the WRF model is controlled by a macro definition that is specified as an environment setting during the compiling process. When WRF-Hydro is not activated within the environment setting before the WRF configuration process, the entire system -defaults to the standard WRF model. To compile WRF-Hydro system, user only needs to set -environment variable ("setenv WRF_HYDRO 1"), and then follow the standard WRF model -configure and compiling process. +defaults to the standard WRF model. To compile the WRF-Hydro system, the user needs to set +the "WRF_HYDRO" environment variable to 1 and then follow the standard WRF model +configure and compile process. 2) Environment settings The following environment variables need to be set before configuring and compiling the WRF-HYDRO model: @@ -20,8 +20,7 @@ setenv WRF_HYDRO 1 setenv HYDRO_D 1 A "1" for HYDRO_D results in WRF-Hydro producing some run-time diagnostic information. -When HYDRO_D is set to "0 "or not defined, the diagnostic information will not be produced -during run-time. +When HYDRO_D is set to "0 "or not defined, the additional diagnostic information will not be produced. You can explicitly set the "NETCDF_INC" and "NETCDF_LIB" environment variables or just set "NETCDF". If you only set "NETCDF" environment variable, the default NETCDF_INC and NETCDF_LIB inside WRF-Hydro @@ -32,7 +31,7 @@ setenv NETCDF_LIB "$path/netcdf/lib" "NETCDF_INC" and "NETCDF_LIB" are defined for the WRF-Hydro only and can be different from those set for the WRF model. WRF-Hydro has two netcdf libraries for Fortran and C respectively: -libnetcdff and ibnetcdf. If the user's netcdf library combined them together (only has one), +libnetcdff and libnetcdf. If the user's netcdf library combined them together (only has one), the user will need to manually change this part in order to successfully compile WRF-Hydro. See the section below on porting about how to change this. @@ -53,20 +52,22 @@ WRF-Hydro has an additional namelist called "hydro.namelist" as well as some add files (.TBL files) that are located under the "hydro/Run" directory. Users need to copy those files to the directory where the "wrf.exe" is going to be executed. -For a WRF-Hydro cold start run (i.e. not from a restart file), the user needs to provide three -additional files that are specified in the "hydro.namelist": "GEO_STATIC_FLNM", "GEO_FINEGRID_FLNM" -and, depending on whether or not the baseflow-bucket model is activated, "gwbasmskfil". +Depending upon the physics options selected for WRF-Hydro, a number of other domain and parameter +files may be required. These are usually stored in a DOMAIN directory within the run directory. +For more information regarding these files consult the WRF-Hydro documentation. -For running WRF-Hydro from restart file, the user needs to uncomment RESTART_FILE from +When running WRF-Hydro from restart file, the user needs to uncomment RESTART_FILE from "hydro.namelist" by removing "!" and provide the exact name for the existing restart file -to be used. Running from a restart condition is common when the land surface has been -`spun-up' by running WRF-Hydro in an offline or `uncoupled' capacity. +to be used. Running from a restart condition is common and an example of where this can be useful +is when the land surface and other hydro components have been `spun-up' by running WRF-Hydro in an +offline or `uncoupled' capacity prior to running the coupled modeling system. 3. Porting -The WRF-Hydro does not presently support OPENMP. The default support platform is Linux -with the PGI compiler, IBM AIX with the xlf fortran compiler, and Linux with the GFORTRAN -(sequential) compiler. However, WRF-Hydro is fairly easy to port to other systems. +The WRF-Hydro does not presently support OpenMP. The default support platform is Linux +with the Intel Fortran compiler, PGI Fortran compiler, or GNU Fortran compiler. However, WRF-Hydro +should be fairly easy to port to other systems. + The basic steps to do so are as follows: 1) Edit "hydro/configure", and add "exit(0);" to the second line so that "configure" will not be executed. diff --git a/dyn_em/depend.dyn_em b/dyn_em/depend.dyn_em index 6cdf664d1a..dee243608a 100644 --- a/dyn_em/depend.dyn_em +++ b/dyn_em/depend.dyn_em @@ -276,7 +276,8 @@ solve_em.o: module_small_step_em.o \ ../share/module_bc.o \ ../phys/module_microphysics_driver.o \ ../phys/module_microphysics_zero_out.o \ - ../phys/module_physics_addtendc.o + ../phys/module_physics_addtendc.o \ + ../phys/module_checkerror.o module_convtrans_prep.o : diff --git a/dyn_em/module_first_rk_step_part1.F b/dyn_em/module_first_rk_step_part1.F index 3c77fae0dc..f2737e86b9 100644 --- a/dyn_em/module_first_rk_step_part1.F +++ b/dyn_em/module_first_rk_step_part1.F @@ -322,10 +322,26 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & ,num_tiles=grid%num_tiles & ! Optional !JJS 20101020 vvvvv +#if ( WRF_CHEM == 1) + & , CHEM=chem & + & , AOD_OUT=grid%aod_out & + & , AOD2D_OUT=grid%aod2d_out & !goddardrad + & , ATOP2D_OUT=grid%atop2d_out & !goddardrad + & , CHEM_OPT=config_flags%chem_opt & + & , GSFCRAD_GOCART_COUPLING=config_flags%gsfcrad_gocart_coupling & +#endif & , TLWDN=grid%tlwdn, TLWUP=grid%tlwup & ! goddard schemes & , SLWDN=grid%slwdn, SLWUP=grid%slwup & ! goddard schemes & , TSWDN=grid%tswdn, TSWUP=grid%tswup & ! goddard schemes & , SSWDN=grid%sswdn, SSWUP=grid%sswup & ! goddard schemes + & , RE_CLOUD_GSFC=grid%re_cloud_gsfc & ! goddard schemes + & , RE_RAIN_GSFC=grid%re_rain_gsfc & ! goddard schemes + & , RE_ICE_GSFC=grid%re_ice_gsfc & ! goddard schemes + & , RE_SNOW_GSFC=grid%re_snow_gsfc & ! goddard schemes + & , RE_GRAUPEL_GSFC=grid%re_graupel_gsfc & ! goddard schemes + & , RE_HAIL_GSFC=grid%re_hail_gsfc & ! goddard schemes + & , COD2D_OUT=grid%cod2d_out & ! goddardrad + & , CTOP2D_OUT=grid%ctop2d_out & ! goddardrad !JJS 20101020 ^^^^^ !ZCX+ cloud fraction for CLWRF & , CLDT=grid%cldt, ZNU=grid%znu & @@ -335,6 +351,7 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & , CLDFRA_DP=grid%cldfra_dp & ! ckay for subgrid cloud & , CLDFRA_SH=grid%cldfra_sh & & , icloud_bl=config_flags%icloud_bl & !JOE: subgrid BL clouds + & , cldovrlp=config_flags%cldovrlp & ! J. Henderson AER: cldovrlp namelist value & , qc_bl=grid%qc_bl,cldfra_bl=grid%cldfra_bl & !JOE: subgrid bl clouds & , re_cloud=grid%re_cloud, re_ice=grid%re_ice, re_snow=grid%re_snow & ! G. Thompson & , has_reqc=grid%has_reqc, has_reqi=grid%has_reqi, has_reqs=grid%has_reqs & ! G. Thompson @@ -347,8 +364,10 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & , QR=moist(ims,kms,jms,P_QR), F_QR=F_QR & & , QI=moist(ims,kms,jms,P_QI), F_QI=F_QI & & , QI2=moist(ims,kms,jms,P_QI2), F_QI2=F_QI2 & ! for P3 + & , QI3=moist(ims,kms,jms,P_QI3), F_QI3=F_QI3 & ! for Jensen ISHMAEL & , QS=moist(ims,kms,jms,P_QS), F_QS=F_QS & & , QG=moist(ims,kms,jms,P_QG), F_QG=F_QG & + & , QH=moist(ims,kms,jms,P_QH), F_QH=F_QH & ! goddardrad & , QNDROP=scalar(ims,kms,jms,P_QNDROP), F_QNDROP=F_QNDROP & & ,QNIFA=scalar(ims,kms,jms,P_QNIFA),F_QNIFA=F_QNIFA & !Trude & ,QNWFA=scalar(ims,kms,jms,P_QNWFA),F_QNWFA=F_QNWFA & !Trude @@ -402,6 +421,8 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & ,shadowmask=grid%shadowmask,ht=grid%ht,dx=grid%dx,dy=grid%dy & & ,diffuse_frac=grid%diffuse_frac & & ,IS_CAMMGMP_USED = grid%is_CAMMGMP_used & + & ,cw_rad=grid%cw_rad & + & ,shcu_physics=config_flags%shcu_physics & & ,MP_PHYSICS=CONFIG_FLAGS%MP_PHYSICS & & ,EFCG=grid%EFCG,EFCS=grid%EFCS,EFIG=grid%EFIG & & ,EFIS=grid%EFIS,EFSG=grid%EFSG,aercu_opt=config_flags%aercu_opt & @@ -628,7 +649,16 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & ,UTYPE_URB2D=grid%utype_urb2d & !H urban ! Optional urban for BEP scheme & ,SF_URBAN_PHYSICS=config_flags%sf_urban_physics & - & ,NUM_URBAN_LAYERS=config_flags%num_urban_layers & !multi-layer urban + & ,num_urban_ndm = config_flags%num_urban_ndm & !multi-layer urban + & ,urban_map_zrd = config_flags%urban_map_zrd & !multi-layer urban + & ,urban_map_zwd = config_flags%urban_map_zwd & !multi-layer urban + & ,urban_map_gd = config_flags%urban_map_gd & !multi-layer urban + & ,urban_map_zd = config_flags%urban_map_zd & !multi-layer urban + & ,urban_map_zdf = config_flags%urban_map_zdf & !multi-layer urban + & ,urban_map_bd = config_flags%urban_map_bd & !multi-layer urban + & ,urban_map_wd = config_flags%urban_map_wd & !multi-layer urban + & ,urban_map_gbd = config_flags%urban_map_gbd & !multi-layer urban + & ,urban_map_fbd = config_flags%urban_map_fbd & !multi-layer urban & ,NUM_URBAN_HI=config_flags%num_urban_hi & !multi-layer urban & ,TSK_RURAL=grid%tsk_rural & !multi-layer urban & ,TRB_URB4D=grid%trb_urb4d,TW1_URB4D=grid%tw1_urb4d & !multi-layer urban @@ -714,6 +744,11 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & ,q2_ndg_new=grid%q2_ndg_new & & ,sn_ndg_old=grid%sn_ndg_old & & ,sn_ndg_new=grid%sn_ndg_new & + & ,pxlsm_modis_veg=config_flags%pxlsm_modis_veg & + & ,LAI_PX=grid%lai_px & + & ,WWLT_PX=grid%wwlt_px, WFC_PX=grid%wfc_px & + & ,WSAT_PX=grid%wsat_px, CLAY_PX=grid%clay_px & + & ,CSAND_PX=grid%csand_px, FMSAND_PX=grid%fmsand_px & ! for Noah-MP LSM & ,idveg=config_flags%dveg, iopt_crs=config_flags%opt_crs & & ,iopt_btr=config_flags%opt_btr, iopt_run=config_flags%opt_run & @@ -952,6 +987,8 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & ,QI_CURR=moist(ims,kms,jms,P_QI), F_QI=F_QI & & ,QS_CURR=moist(ims,kms,jms,P_QS), F_QS=F_QS & & ,QG_CURR=moist(ims,kms,jms,P_QG), F_QG=F_QG & + & ,QNIFA_CURR=scalar(ims,kms,jms,P_QNIFA),F_QNIFA=F_QNIFA & + & ,QNWFA_CURR=scalar(ims,kms,jms,P_QNWFA),F_QNWFA=F_QNWFA & & ,HOL=HOL, MOL=grid%mol, REGIME=grid%REGIME & !mynn mp@ & ,QKE=grid%qke, Sh3d=grid%sh3d & @@ -968,7 +1005,7 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & ,bl_mynn_edmf=config_flags%bl_mynn_edmf & & ,bl_mynn_edmf_mom=config_flags%bl_mynn_edmf_mom & & ,bl_mynn_edmf_tke=config_flags%bl_mynn_edmf_tke & - & ,bl_mynn_edmf_part=config_flags%bl_mynn_edmf_part & + & ,bl_mynn_mixscalars=config_flags%bl_mynn_mixscalars & & ,bl_mynn_cloudmix=config_flags%bl_mynn_cloudmix & & ,bl_mynn_mixqt=config_flags%bl_mynn_mixqt & & ,edmf_a=grid%edmf_a,edmf_w=grid%edmf_w & @@ -1332,6 +1369,25 @@ SUBROUTINE first_rk_step_part1 ( grid , config_flags & & ,HFX=grid%hfx, QFX=grid%qfx & & ,MP_PHYSICS=config_flags%mp_physics & & ,pgcon=config_flags%sas_pgcon & + & ,RDCASHTEN=grid%RDCASHTEN, RQCDCSHTEN=grid%RQCDCSHTEN & ! Deng sh + & ,W0AVG=grid%W0AVG & + & ,clddpthb=grid%clddpthb, cldtopb=grid%cldtopb & + & ,cldareaa=grid%cldareaa, cldareab=grid%cldareab & + & ,cldliqa=grid%cldliqa, cldliqb=grid%cldliqb & + & ,cldfra_sh=grid%cldfra_sh,ca_rad=grid%ca_rad, cw_rad=grid%cw_rad & + & ,wub=grid%wub, pblmax=grid%pblmax, xlong=grid%xlong & + & ,rainshvb=grid%rainshvb, capesave=grid%capesave & + & ,radsave=grid%radsave, ainckfsa=grid%ainckfsa & + & ,ltopb=grid%ltopb, kdcldtop=grid%kdcldtop & + & ,kdcldbas=grid%kdcldbas & + & ,el_pbl=grid%el_pbl & + & ,rthratenlw=grid%rthratenlw, rthratensw=grid%rthratensw & + & ,exch_h=grid%exch_h & + & ,dnw=grid%dnw, XTIME=grid%XTIME, XTIME1=grid%XTIME1 & + & ,GMT=grid%gmt & + & ,qke=grid%qke & + & ,PBLHAVG=grid%PBLHAVG, TKEAVG=grid%TKEAVG & + & ,BL_PBL_PHYSICS=config_flags%bl_pbl_physics & & ) #if (WRF_CHEM == 1) diff --git a/dyn_em/module_first_rk_step_part2.F b/dyn_em/module_first_rk_step_part2.F index 36dd6a606d..3fb34dd515 100644 --- a/dyn_em/module_first_rk_step_part2.F +++ b/dyn_em/module_first_rk_step_part2.F @@ -162,6 +162,7 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & config_flags%restart, grid%iseedarr_skebs, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%skebs_vertstruc, & grid%rt_tendf_stoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -181,6 +182,7 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & grid% num_stoch_levels,grid% num_stoch_levels, & grid% num_stoch_levels,grid% num_stoch_levels, & config_flags%restart, grid%iseedarr_skebs, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%skebs_vertstruc, & grid%ru_tendf_stoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -200,6 +202,7 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & grid% num_stoch_levels,grid% num_stoch_levels, & grid% num_stoch_levels,grid% num_stoch_levels, & config_flags%restart, grid%iseedarr_skebs, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%skebs_vertstruc, & grid%rv_tendf_stoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -221,6 +224,7 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & config_flags%restart, grid%iseedarr_sppt, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%sppt_vertstruc, & grid%rstoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -242,6 +246,7 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & config_flags%restart, grid%iseedarr_rand_pert, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%rand_pert_vertstruc, & grid%RAND_PERT, & grid%stddev_cutoff_rand_pert,grid%gridpt_stddev_rand_pert, & @@ -261,9 +266,10 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & ipsy,ipey,jpsy,jpey,kpsy,kpey, & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & - config_flags%restart, grid%iseedarr_spp_conv, & + config_flags%restart, grid%iseedarr_spp_conv, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%vertstruc_spp_conv, & - grid%pattern_spp_conv, & + grid%pattern_spp_conv, & grid%stddev_cutoff_spp_conv,grid%gridpt_stddev_spp_conv, & grid%VERTSTRUCC,grid%VERTSTRUCS,grid%VERTAMPT ) ENDIF !spp_conv @@ -281,9 +287,10 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & ipsy,ipey,jpsy,jpey,kpsy,kpey, & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & - config_flags%restart, grid%iseedarr_spp_pbl, & + config_flags%restart, grid%iseedarr_spp_pbl, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%vertstruc_spp_pbl, & - grid%pattern_spp_pbl, & + grid%pattern_spp_pbl, & grid%stddev_cutoff_spp_pbl,grid%gridpt_stddev_spp_pbl, & grid%VERTSTRUCC,grid%VERTSTRUCS,grid%VERTAMPT ) ENDIF !spp_pbl @@ -301,9 +308,10 @@ SUBROUTINE first_rk_step_part2 ( grid , config_flags & ipsy,ipey,jpsy,jpey,kpsy,kpey, & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & - config_flags%restart, grid%iseedarr_spp_lsm, & + config_flags%restart, grid%iseedarr_spp_lsm, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%vertstruc_spp_lsm, & - grid%pattern_spp_lsm, & + grid%pattern_spp_lsm, & grid%stddev_cutoff_spp_lsm,grid%gridpt_stddev_spp_lsm, & grid%VERTSTRUCC,grid%VERTSTRUCS,grid%VERTAMPT ) ENDIF !spp_lsm diff --git a/dyn_em/module_initialize_real.F b/dyn_em/module_initialize_real.F index 2e12541a93..279a789d51 100644 --- a/dyn_em/module_initialize_real.F +++ b/dyn_em/module_initialize_real.F @@ -131,6 +131,7 @@ SUBROUTINE init_domain_rk ( grid & REAL :: zap_close_levels INTEGER :: force_sfc_in_vinterp INTEGER :: interp_type , lagrange_order , extrap_type , t_extrap_type + INTEGER :: linear_interp LOGICAL :: lowest_lev_from_sfc , use_levels_below_ground , use_surface LOGICAL :: we_have_tavgsfc , we_have_tsk @@ -165,6 +166,9 @@ SUBROUTINE init_domain_rk ( grid & LOGICAL :: vnest !T if using vertical nesting with vet_refine_method=2, otherwise F INTEGER :: j_save + INTEGER :: change_soil, change_soilw, iforce + + REAL:: temp_rho LOGICAL :: wif_upside_down = .FALSE. @@ -172,6 +176,10 @@ SUBROUTINE init_domain_rk ( grid & INTEGER :: geogrid_flag_error + ! Vertical pressure checks + + REAL :: press_above, press_below + ! Dimension information stored in grid data structure. CALL cpu_time(t_start) @@ -1650,6 +1658,32 @@ SUBROUTINE init_domain_rk ( grid & grid%c2h(k) = ( 1. - grid%c1h(k) ) * ( p1000mb - grid%p_top ) ENDDO + ! With c3 and c4 on full levels, we can verify that we are maintaining monotonically + ! decreasing reference pressure. + ! P_dry_ref(k) = c3f(k) * ( psurf - p_top ) + c4f(k) + p_top + + DO j = jts, MIN(jde-1,jte) + DO i = its, MIN(ide-1,ite) + p_surf = p00 * EXP ( -t00/a + ( (t00/a)**2 - 2.*g*grid%ht(i,j)/a/r_d ) **0.5 ) + DO k=1, kde-1 + press_above = grid%c3f(k+1)*(p_surf-grid%p_top) + grid%c4f(k+1) + grid%p_top + press_below = grid%c3f(k )*(p_surf-grid%p_top) + grid%c4f(k ) + grid%p_top + IF ( press_below - press_above .LE. 0.0 ) THEN + CALL wrf_message ( '----- ERROR: The reference pressure is not monotonically decreasing' ) + CALL wrf_message ( ' This tends to be caused by very high topography') + WRITE (a_message,*) '(i,j) = ',i,j,', topography = ',grid%ht(i,j),' m' + CALL wrf_message ( TRIM(a_message) ) + WRITE (a_message,*) 'k = ',k,', reference pressure = ',press_below,' Pa' + CALL wrf_message ( TRIM(a_message) ) + WRITE (a_message,*) 'k = ',k+1,', reference pressure = ',press_above,' Pa' + CALL wrf_message ( TRIM(a_message) ) + WRITE (a_message,*) 'In the dynamics namelist record, reduce etac from ',config_flags%etac + CALL wrf_error_fatal ( TRIM(a_message) ) + END IF + ENDDO + ENDDO + ENDDO + IF ( config_flags%interp_theta ) THEN ! The input field is temperature, we want potential temp. @@ -1680,6 +1714,7 @@ SUBROUTINE init_domain_rk ( grid & interp_type = 2 lagrange_order = grid%lagrange_order + linear_interp = grid%linear_interp lowest_lev_from_sfc = .FALSE. use_levels_below_ground = .TRUE. use_surface = .TRUE. @@ -1892,8 +1927,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -1922,8 +1957,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -1952,8 +1987,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -1972,8 +2007,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -1992,8 +2027,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2012,8 +2047,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2032,8 +2067,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2052,8 +2087,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2072,8 +2107,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2092,8 +2127,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2112,8 +2147,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2132,8 +2167,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2157,8 +2192,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2173,8 +2208,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2210,8 +2245,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2225,8 +2260,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & num_metgrid_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2319,8 +2354,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & config_flags%num_gca_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2371,8 +2406,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & config_flags%num_gca_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2423,8 +2458,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & config_flags%num_gca_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2547,8 +2582,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & config_flags%num_wif_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2608,8 +2643,8 @@ SUBROUTINE init_domain_rk ( grid & config_flags%maxw_horiz_pres_diff , config_flags%trop_horiz_pres_diff , & config_flags%maxw_above_this_level , & config_flags%num_wif_levels , 'Q' , & - interp_type , lagrange_order , extrap_type , & - lowest_lev_from_sfc , use_levels_below_ground , use_surface , & + interp_type , linear_interp , extrap_type , & + .false. , use_levels_below_ground , use_surface , & zap_close_levels , force_sfc_in_vinterp , grid%id , & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2891,8 +2926,9 @@ SUBROUTINE init_domain_rk ( grid & grid%landmask , grid%sst , grid%ht, grid%toposoil, & st_input , sm_input , sw_input , & st_levels_input , sm_levels_input , sw_levels_input , & - grid%zs , grid%dzs , grid%tslb , grid%smois , grid%sh2o , & - flag_sst , flag_tavgsfc, flag_soilhgt,& + grid%zs , grid%dzs , model_config_rec%flag_sm_adj , & + grid%tslb , grid%smois , grid%sh2o , & + flag_sst , flag_tavgsfc, flag_soilhgt, & flag_soil_layers, flag_soil_levels, & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & @@ -2994,6 +3030,32 @@ SUBROUTINE init_domain_rk ( grid & CALL wrf_error_fatal ( a_message ) END IF + ! Need to match isltyp to landmask + + iforce = 0 + change_soil = 0 + change_soilw = 0 + DO j = jts, MIN(jde-1,jte) + DO i = its, MIN(ide-1,ite) + IF ( skip_middle_points_t ( ids , ide , jds , jde , i , j , em_width , hold_ups ) ) CYCLE + IF ( grid%landmask(i,j) .GT. 0.5 .AND. grid%isltyp(i,j) .EQ. grid%isoilwater ) THEN + grid%isltyp(i,j) = 8 + change_soilw = change_soilw + 1 + iforce = iforce + 1 + ELSE IF ( grid%landmask(i,j) .LT. 0.5 .AND. grid%isltyp(i,j) .NE. grid%isoilwater ) THEN + grid%isltyp(i,j) = grid%isoilwater + change_soil = change_soil + 1 + iforce = iforce + 1 + END IF + END DO + END DO + IF ( change_soilw .GT. 0 .OR. change_soil .GT. 0 ) THEN + WRITE(a_message,FMT='(A,I4,A,I6)' ) & + 'forcing artificial silty clay loam at ',iforce,' points, out of ',& + (MIN(ide-1,ite)-its+1)*(MIN(jde-1,jte)-jts+1) + CALL wrf_debug(0,a_message) + END IF + END IF ! Split NUDAPT Urban Parameters @@ -3040,34 +3102,6 @@ SUBROUTINE init_domain_rk ( grid & grid%MH_URB2D(i,j) = grid%URB_PARAM(i,92,j) grid%STDH_URB2D(i,j) = grid%URB_PARAM(i,93,j) ENDIF - grid%H2W_URB2D(i,j) = grid%URB_PARAM(i,101,j) - grid%Z0S_URB2D(i,j) = grid%URB_PARAM(i,103,j) - grid%ZDS_URB2D(i,j) = grid%URB_PARAM(i,104,j) - grid%ZDM_URB2D(i,j) = grid%URB_PARAM(i,117,j) - IF(grid%URB_PARAM(i,100,j).eq.0)THEN - grid%CAR_URB2D(i,j) = 1.0 - ELSE - grid%CAR_URB2D(i,j) = grid%URB_PARAM(i,100,j) - END IF - IF(grid%URB_PARAM(i,102,j).eq.0)THEN - grid%SVF_URB2D(i,j) = 1.0 - ELSE - grid%SVF_URB2D(i,j) = grid%URB_PARAM(i,102,j) - END IF - END DO - END DO - - DO j = jts , MIN(jde-1,jte) - DO i = its , MIN(ide-1,ite) - IF ( skip_middle_points_t ( ids , ide , jds , jde , i , j , em_width , hold_ups ) ) CYCLE - DO k = 1, 15 - grid%FAD0_URB2D(i,k,j) = grid%URB_PARAM(i,k,j) - grid%FAD135_URB2D(i,k,j) = grid%URB_PARAM(i,k+15,j) - grid%FAD45_URB2D(i,k,j) = grid%URB_PARAM(i,k+30,j) - grid%FAD90_URB2D(i,k,j) = grid%URB_PARAM(i,k+45,j) - grid%PAD_URB2D(i,k,j) = grid%URB_PARAM(i,k+60,j) - grid%RAD_URB2D(i,k,j) = grid%URB_PARAM(i,k+75,j) - END DO END DO END DO @@ -3078,25 +3112,10 @@ SUBROUTINE init_domain_rk ( grid & IF ( config_flags%sf_urban_physics==1 ) THEN grid%LF_URB2D(i,k,j) = grid%URB_PARAM(i,k+95,j) ENDIF - grid%Z0M_URB2D(i,k,j) = grid%URB_PARAM(i,k+112,j) END DO END DO END DO - DO j = jts , MIN(jde-1,jte) - DO i = its , MIN(ide-1,ite) - IF ( skip_middle_points_t ( ids , ide , jds , jde , i , j , em_width , hold_ups ) ) CYCLE - grid%Z0R_URB2D(i,1,j) = grid%URB_PARAM(i,105,j) - grid%Z0R_URB2D(i,2,j) = grid%URB_PARAM(i,107,j) - grid%Z0R_URB2D(i,3,j) = grid%URB_PARAM(i,109,j) - grid%Z0R_URB2D(i,4,j) = grid%URB_PARAM(i,111,j) - grid%ZDR_URB2D(i,1,j) = grid%URB_PARAM(i,106,j) - grid%ZDR_URB2D(i,2,j) = grid%URB_PARAM(i,108,j) - grid%ZDR_URB2D(i,3,j) = grid%URB_PARAM(i,110,j) - grid%ZDR_URB2D(i,4,j) = grid%URB_PARAM(i,112,j) - END DO - END DO - END IF ! Adjustments for the seaice field PRIOR to the grid%tslb computations. This is @@ -3677,6 +3696,7 @@ SUBROUTINE init_domain_rk ( grid & grid%t_init(i,k,j) = temp*(p00/grid%pb(i,k,j))**(r_d/cp) - t0 grid%alb(i,k,j) = (r_d/p1000mb)*(grid%t_init(i,k,j)+t0)*(grid%pb(i,k,j)/p1000mb)**cvpm END DO + grid%php(i,kte,j) = grid%p_top ! Base state mu is defined as base state surface pressure minus grid%p_top grid%MUB(i,j) = p_surf - grid%p_top ! Dry surface pressure is defined as the following (this mu is from the input file @@ -4428,7 +4448,73 @@ SUBROUTINE init_domain_rk ( grid & enddo enddo ENDIF + !+---+-----------------------------------------------------------------+ +!..Let us ensure that double-moment microphysics variables have numbers +!.. where there is mass. Currently doing this for Thompson-MP only, but +!.. can consider doing it for every MP scheme that has 2-moment variables. +!.. This is important because pressure-level RAP/HRRR files have mass but +!.. not number values for example (whereas native model level files have +!.. both). +!+---+-----------------------------------------------------------------+ + + IF ( config_flags%mp_physics .EQ. THOMPSON .OR. & + config_flags%mp_physics .EQ. THOMPSONAERO ) THEN + + !..As it occurs up above, temporarily utilizing the v_1 variable, + !.. to hold temperature, which it does when time_loop=0. + + IF ( internal_time_loop .GT. 1 ) THEN + grid%v_1 = grid%t_2+t0 + + CALL theta_to_t ( grid%v_1 , grid%p_hyd , p00 , & + ids , ide , jds , jde , kds , kde , & + ims , ime , jms , jme , kms , kme , & + its , ite , jts , jte , kts , kte ) + ENDIF + + + do j = jts, MIN(jte,jde-1) + do i = its, MIN(ite,ide-1) + + IF ( skip_middle_points_t ( ids , ide , jds , jde , i , j , em_width , hold_ups ) ) CYCLE + + do k = kts, kte-1 + temp_rho = 1./grid%alt(i,k,j) + + !..Produce a sensible cloud droplet number concentration + + if (P_QNC.gt.1 .AND. moist(i,k,j,P_QC).gt.0.0 .AND. scalar(i,k,j,P_QNC).le.0.0) then + if (P_QNWFA .gt. 1) then + scalar(i,k,j,P_QNC) = make_DropletNumber (moist(i,k,j,P_QC)*temp_rho, & + & scalar(i,k,j,P_QNWFA)*temp_rho, grid%xland(i,j)) + else + scalar(i,k,j,P_QNC) = make_DropletNumber (moist(i,k,j,P_QC)*temp_rho, & + & 0.0, grid%xland(i,j)) + endif + scalar(i,k,j,P_QNC) = scalar(i,k,j,P_QNC) / temp_rho + endif + + !..Produce a sensible cloud ice number concentration + + if (P_QNI.gt.1 .AND. moist(i,k,j,P_QI).gt.0.0 .AND. scalar(i,k,j,P_QNI).le.0.0) then + scalar(i,k,j,P_QNI) = make_IceNumber (moist(i,k,j,P_QI)*temp_rho, grid%v_1(i,k,j)) + scalar(i,k,j,P_QNI) = scalar(i,k,j,P_QNI) / temp_rho + endif + + !..Produce a sensible rain number concentration + + if (P_QNR.gt.1 .AND. moist(i,k,j,P_QR).gt.0.0 .AND. scalar(i,k,j,P_QNR).le.0.0) then + scalar(i,k,j,P_QNR) = make_RainNumber (moist(i,k,j,P_QR)*temp_rho, grid%v_1(i,k,j)) + scalar(i,k,j,P_QNR) = scalar(i,k,j,P_QNR) / temp_rho + endif + + enddo + + enddo + enddo + + ENDIF !+---+-----------------------------------------------------------------+ ! Added by Greg Thompson. Pre-set snow depth by latitude, elevation, and day-of-year. @@ -8562,6 +8648,162 @@ real function snowHires (snow_in, latitude, elev, date_str, i,j) END FUNCTION snowHires +!+---+-----------------------------------------------------------------+ +!+---+-----------------------------------------------------------------+ + + real function make_IceNumber (Q_ice, temp) + + IMPLICIT NONE + REAL, PARAMETER:: Ice_density = 890.0 + REAL, PARAMETER:: PI = 3.1415926536 + integer idx_rei + real corr, reice, deice, Q_ice, temp + double precision lambda + +!+---+-----------------------------------------------------------------+ +!..Table of lookup values of radiative effective radius of ice crystals +!.. as a function of Temperature from -94C to 0C. Taken from WRF RRTMG +!.. radiation code where it is attributed to Jon Egill Kristjansson +!.. and coauthors. +!+---+-----------------------------------------------------------------+ + + real retab(95) + data retab / & + 5.92779, 6.26422, 6.61973, 6.99539, 7.39234, & + 7.81177, 8.25496, 8.72323, 9.21800, 9.74075, 10.2930, & + 10.8765, 11.4929, 12.1440, 12.8317, 13.5581, 14.2319, & + 15.0351, 15.8799, 16.7674, 17.6986, 18.6744, 19.6955, & + 20.7623, 21.8757, 23.0364, 24.2452, 25.5034, 26.8125, & + 27.7895, 28.6450, 29.4167, 30.1088, 30.7306, 31.2943, & + 31.8151, 32.3077, 32.7870, 33.2657, 33.7540, 34.2601, & + 34.7892, 35.3442, 35.9255, 36.5316, 37.1602, 37.8078, & + 38.4720, 39.1508, 39.8442, 40.5552, 41.2912, 42.0635, & + 42.8876, 43.7863, 44.7853, 45.9170, 47.2165, 48.7221, & + 50.4710, 52.4980, 54.8315, 57.4898, 60.4785, 63.7898, & + 65.5604, 71.2885, 75.4113, 79.7368, 84.2351, 88.8833, & + 93.6658, 98.5739, 103.603, 108.752, 114.025, 119.424, & + 124.954, 130.630, 136.457, 142.446, 148.608, 154.956, & + 161.503, 168.262, 175.248, 182.473, 189.952, 197.699, & + 205.728, 214.055, 222.694, 231.661, 240.971, 250.639/ + +!+---+-----------------------------------------------------------------+ +!..From the model 3D temperature field, subtract 179K for which +!.. index value of retab as a start. Value of corr is for +!.. interpolating between neighboring values in the table. +!+---+-----------------------------------------------------------------+ + + idx_rei = int(temp-179.) + idx_rei = min(max(idx_rei,1),94) + corr = temp - int(temp) + reice = retab(idx_rei)*(1.-corr) + retab(idx_rei+1)*corr + deice = 2.*reice * 1.E-6 + +!+---+-----------------------------------------------------------------+ +!..Now we have the final radiative effective size of ice (as function +!.. of temperature only). This size represents 3rd moment divided by +!.. second moment of the ice size distribution, so we can compute a +!.. number concentration from the mean size and mass mixing ratio. +!.. The mean (radiative effective) diameter is 3./Slope for an inverse +!.. exponential size distribution. So, starting with slope, work +!.. backwords to get number concentration. +!+---+-----------------------------------------------------------------+ + + lambda = 3.0 / deice + make_IceNumber = Q_ice * lambda*lambda*lambda / (PI*Ice_density) + +!+---+-----------------------------------------------------------------+ +!..Example1: Common ice size coming from Thompson scheme is about 30 microns. +!.. An example ice mixing ratio could be 0.001 g/kg for a temperature of -50C. +!.. Remember to convert both into MKS units. This gives N_ice=357652 per kg. +!..Example2: Lower in atmosphere at T=-10C matching ~162 microns in retab, +!.. and assuming we have 0.1 g/kg mixing ratio, then N_ice=28122 per kg, +!.. which is 28 crystals per liter of air if the air density is 1.0. +!+---+-----------------------------------------------------------------+ + + return + end function make_IceNumber + +!+---+-----------------------------------------------------------------+ +!+---+-----------------------------------------------------------------+ + + real function make_DropletNumber (Q_cloud, qnwfa, xland) + + IMPLICIT NONE + + real:: Q_cloud, qnwfa, xland + + real, parameter:: PI = 3.1415926536 + real, parameter:: am_r = PI*1000./6. + real, dimension(15), parameter:: g_ratio = (/24,60,120,210,336, & + & 504,720,990,1320,1716,2184,2730,3360,4080,4896/) + double precision:: lambda, qnc + real:: q_nwfa, x1, xDc + integer:: nu_c + +!+---+ + + if (qnwfa .le. 0.0) then + + if ((xland-1.5).gt.0.) then !--- Ocean + xDc = 17.E-6 + nu_c = 12 + else !--- Land + xDc = 11.E-6 + nu_c = 4 + endif + + else + q_nwfa = MAX(99.E6, MIN(qnwfa,5.E10)) + nu_c = MAX(2, MIN(NINT(2.5E10/q_nwfa), 15)) + + x1 = MAX(1., MIN(q_nwfa*1.E-9, 10.)) - 1. + xDc = (30. - x1*20./9.) * 1.E-6 + endif + + lambda = (4.0D0 + nu_c) / xDc + qnc = Q_cloud / g_ratio(nu_c) * lambda*lambda*lambda / am_r + make_DropletNumber = SNGL(qnc) + + return + end function make_DropletNumber + +!+---+-----------------------------------------------------------------+ +!+---+-----------------------------------------------------------------+ + + real function make_RainNumber (Q_rain, temp) + + IMPLICIT NONE + + real, intent(in):: Q_rain, temp + double precision:: lambda, N0, qnr + real, parameter:: PI = 3.1415926536 + real, parameter:: am_r = PI*1000./6. + + !+---+-----------------------------------------------------------------+ + !.. Not thrilled with it, but set Y-intercept parameter to Marshal-Palmer value + !.. that basically assumes melting snow becomes typical rain. However, for + !.. -2C < T < 0C, make linear increase in exponent to attempt to keep + !.. supercooled collision-coalescence (warm-rain) similar to drizzle rather + !.. than bigger rain drops. While this could also exist at T>0C, it is + !.. more difficult to assume it directly from having mass and not number. + !+---+-----------------------------------------------------------------+ + + N0 = 8.E6 + + if (temp .le. 271.15) then + N0 = 8.E8 + elseif (temp .gt. 271.15 .and. temp.lt.273.15) then + N0 = 8. * 10**(279.15-temp) + endif + + lambda = SQRT(SQRT(N0*am_r*6.0/Q_rain)) + qnr = Q_rain / 6.0 * lambda*lambda*lambda / am_r + make_RainNumber = SNGL(qnr) + + return + end function make_RainNumber + +!+---+-----------------------------------------------------------------+ !+---+-----------------------------------------------------------------+ diff --git a/dyn_em/module_initialize_scm_xy.F b/dyn_em/module_initialize_scm_xy.F index c2d60c760c..e74bc6a962 100644 --- a/dyn_em/module_initialize_scm_xy.F +++ b/dyn_em/module_initialize_scm_xy.F @@ -287,7 +287,7 @@ SUBROUTINE init_domain_rk ( grid & grid%landmask , grid%sst , grid%ht, grid%toposoil, & st_input , sm_input , sw_input , & st_levels_input , sm_levels_input , sw_levels_input , & - grid%zs , grid%dzs , grid%tslb , grid%smois , grid%sh2o , & + grid%zs , grid%dzs , grid%flag_sm_adj , grid%tslb , grid%smois , grid%sh2o , & flag_sst , flag_tavgsfc, flag_soilhgt, flag_soil_layers, flag_soil_levels, & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & diff --git a/dyn_em/module_stoch.F b/dyn_em/module_stoch.F index 1825c125ed..966a277003 100644 --- a/dyn_em/module_stoch.F +++ b/dyn_em/module_stoch.F @@ -148,7 +148,7 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & ! Initialize SKEBS ! Initialize streamfunction (1) if ((.not.config_flags%restart) .or. (.not.config_flags%hrrr_cycling)) then - call rand_seed (config_flags, grid%ISEED_SKEBS, grid%iseedarr_skebs , kms, kme) + call rand_seed (config_flags, grid%ISEED_SKEBS, grid%iseedarr_skebs , 1, config_flags%seed_dim) endif call SETUP_RAND_PERTURB('W', & grid%skebs_vertstruc,config_flags%restart, & @@ -190,7 +190,7 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & IF (grid%sppt_on==1) then ! Initialize SPPT (3) if ((.not.config_flags%restart) .or. (.not.config_flags%hrrr_cycling)) then - call rand_seed (config_flags, grid%ISEED_SPPT, grid%iseedarr_sppt , kms, kme) + call rand_seed (config_flags, grid%ISEED_SPPT, grid%iseedarr_sppt , 1, config_flags%seed_dim) endif call SETUP_RAND_PERTURB('P', & grid%sppt_vertstruc,config_flags%restart, & @@ -214,7 +214,7 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & ! Initialize RAND_PERTURB (4) IF (grid%rand_perturb_on==1) then if ((.not.config_flags%restart) .or. (.not.config_flags%hrrr_cycling)) then - call rand_seed (config_flags, grid%ISEED_RAND_PERT, grid%iseedarr_rand_pert , kms, kme) + call rand_seed (config_flags, grid%ISEED_RAND_PERT, grid%iseedarr_rand_pert , 1, config_flags%seed_dim) endif call SETUP_RAND_PERTURB('R', & grid%rand_pert_vertstruc,config_flags%restart, & @@ -250,10 +250,11 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & config_flags%restart, grid%iseedarr_rand_pert, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%rand_pert_vertstruc, & grid%RAND_PERT, & - grid%gridpt_stddev_rand_pert, & - grid%lengthscale_rand_pert, & + grid%gridpt_stddev_rand_pert, & + grid%lengthscale_rand_pert, & grid%VERTSTRUCC,grid%VERTSTRUCS,grid%VERTAMPT ) enddo ENDIF !rand_perturb_on @@ -262,10 +263,10 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & ! Initialize Stochastic Parameter Perturbations to convection scheme IF (grid%spp_conv==1) then if (.not.config_flags%restart) then ! set random number seed (else iseedarray is read in from restart files) - call rand_seed (config_flags, grid%iseed_spp_conv, grid%iseedarr_spp_conv , kms, kme) + call rand_seed (config_flags, grid%iseed_spp_conv, grid%iseedarr_spp_conv , 1, config_flags%seed_dim) endif - call SETUP_RAND_PERTURB('S', & - grid%vertstruc_spp_conv,config_flags%restart, & + call SETUP_RAND_PERTURB('S', & + grid%vertstruc_spp_conv,config_flags%restart, & grid%SP_AMP2, & grid%SPFORCC2,grid%SPFORCS2,grid%ALPH_RAND2, & grid%VERTSTRUCC,grid%VERTSTRUCS,grid%VERTAMPT, & @@ -273,9 +274,9 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & grid%LMINFORCT,grid%LMAXFORCT, & grid%KMAXFORCTH,grid%LMAXFORCTH, & grid%time_step,grid%DX,grid%DY, & - grid%gridpt_stddev_spp_conv, & - grid%lengthscale_spp_conv, & - grid%timescale_spp_conv, & + grid%gridpt_stddev_spp_conv, & + grid%lengthscale_spp_conv, & + grid%timescale_spp_conv, & grid%TOT_BACKSCAT_PSI,grid%ZTAU_PSI, & grid%REXPONENT_PSI, & ids, ide, jds, jde, kds, kde, & @@ -285,10 +286,10 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & ! Initialize Stochastic Parameter Peturbations (SPP) to PBL scheme IF (grid%spp_pbl==1) then if (.not.config_flags%restart) then ! set random number seed (else iseedarray is read in from restart files) - call rand_seed (config_flags, grid%iseed_spp_pbl, grid%iseedarr_spp_pbl , kms, kme) + call rand_seed (config_flags, grid%iseed_spp_pbl, grid%iseedarr_spp_pbl , 1, config_flags%seed_dim) endif - call SETUP_RAND_PERTURB('Q', & - grid%vertstruc_spp_pbl,config_flags%restart, & + call SETUP_RAND_PERTURB('Q', & + grid%vertstruc_spp_pbl,config_flags%restart, & grid%SP_AMP3, & grid%SPFORCC3,grid%SPFORCS3,grid%ALPH_RAND3, & grid%VERTSTRUCC,grid%VERTSTRUCS,grid%VERTAMPT, & @@ -296,9 +297,9 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & grid%LMINFORCT,grid%LMAXFORCT, & grid%KMAXFORCTH,grid%LMAXFORCTH, & grid%time_step,grid%DX,grid%DY, & - grid%gridpt_stddev_spp_pbl, & - grid%lengthscale_spp_pbl, & - grid%timescale_spp_pbl, & + grid%gridpt_stddev_spp_pbl, & + grid%lengthscale_spp_pbl, & + grid%timescale_spp_pbl, & grid%TOT_BACKSCAT_PSI,grid%ZTAU_PSI, & grid%REXPONENT_PSI, & ids, ide, jds, jde, kds, kde, & @@ -308,10 +309,10 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & ! Initialize Stochastic Parameter Peturbations (SPP) to LSM scheme IF (grid%spp_lsm==1) then if (.not.config_flags%restart) then ! set random number seed (else iseedarray is read in from restart files) - call rand_seed (config_flags, grid%iseed_spp_lsm, grid%iseedarr_spp_lsm , kms, kme) + call rand_seed (config_flags, grid%iseed_spp_lsm, grid%iseedarr_spp_lsm , 1, config_flags%seed_dim) endif - call SETUP_RAND_PERTURB('O', & - grid%vertstruc_spp_lsm,config_flags%restart, & + call SETUP_RAND_PERTURB('O', & + grid%vertstruc_spp_lsm,config_flags%restart, & grid%SP_AMP4, & grid%SPFORCC4,grid%SPFORCS4,grid%ALPH_RAND4, & grid%VERTSTRUCC,grid%VERTSTRUCS,grid%VERTAMPT, & @@ -319,9 +320,9 @@ SUBROUTINE INITIALIZE_STOCH (grid, config_flags, & grid%LMINFORCT,grid%LMAXFORCT, & grid%KMAXFORCTH,grid%LMAXFORCTH, & grid%time_step,grid%DX,grid%DY, & - grid%gridpt_stddev_spp_lsm, & - grid%lengthscale_spp_lsm, & - grid%timescale_spp_lsm, & + grid%gridpt_stddev_spp_lsm, & + grid%lengthscale_spp_lsm, & + grid%timescale_spp_lsm, & grid%TOT_BACKSCAT_PSI,grid%ZTAU_PSI, & grid%REXPONENT_PSI, & ids, ide, jds, jde, kds, kde, & @@ -659,7 +660,7 @@ END subroutine SETUP_RAND_PERTURB subroutine UPDATE_STOCH( & SPFORCS,SPFORCC,SP_AMP,ALPH, & - restart,iseedarr, & + restart,iseedarr,seed_dim, & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) @@ -670,8 +671,9 @@ subroutine UPDATE_STOCH( & INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte + INTEGER , INTENT(IN) :: seed_dim - INTEGER, DIMENSION (kms:kme), INTENT(INOUT) :: iseedarr + INTEGER, DIMENSION (seed_dim) , INTENT(INOUT) :: iseedarr INTEGER , ALLOCATABLE , DIMENSION(:) :: iseed REAL :: Z,ALPH REAL, PARAMETER :: thresh = 3.0 @@ -916,8 +918,8 @@ SUBROUTINE RAND_PERT_UPDATE (grid, variable_in, & imsy,imey,jmsy,jmey,kmsy,kmey, & ipsy,ipey,jpsy,jpey,kpsy,kpey, & kpe_stoch,kde_stoch,kme_stoch,kte_stoch, & - restart,iseedarr, & - DX,DY,skebs_vertstruc, & + restart,iseedarr,seed_dim, & + DX,DY,skebs_vertstruc, & RAND_PERT,thresh_fact,gridpt_stddev, & VERTSTRUCC,VERTSTRUCS,VERTAMP ) @@ -943,6 +945,7 @@ SUBROUTINE RAND_PERT_UPDATE (grid, variable_in, & ipsx,ipex,jpsx,jpex,kpsx,kpex, & imsy,imey,jmsy,jmey,kmsy,kmey, & ipsy,ipey,jpsy,jpey,kpsy,kpey + INTEGER , INTENT(IN) :: seed_dim INTEGER :: kpe_stoch,kde_stoch,kme_stoch,kte_stoch REAL , INTENT(IN) :: ALPH_RAND,dx,dy,thresh_fact,gridpt_stddev @@ -952,7 +955,7 @@ SUBROUTINE RAND_PERT_UPDATE (grid, variable_in, & ! U ! first derivative of streamfunction with regard to y; for skebs: U ! V ! first derivative of streamfunction with regard to x; for skebs: V - INTEGER, DIMENSION (kms:kme), INTENT(INOUT) :: iseedarr + INTEGER, DIMENSION (seed_dim), INTENT(INOUT) :: iseedarr REAL, DIMENSION(ims:ime,kms:kme, jms:jme),INTENT(IN) :: VERTSTRUCC,VERTSTRUCS REAL, DIMENSION(ims:ime,jms:jme) ,INTENT(INOUT) :: SPFORCS,SPFORCC,SP_AMP REAL, DIMENSION(kms:kme ) ,INTENT(IN) :: VERTAMP @@ -985,7 +988,7 @@ SUBROUTINE RAND_PERT_UPDATE (grid, variable_in, & IF (variable .ne. 'V') THEN !T, random field, U, don't update for V CALL UPDATE_STOCH( & SPFORCS,SPFORCC,SP_AMP,ALPH_RAND, & - restart,iseedarr, & + restart,iseedarr,seed_dim, & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & grid%i_start(ij), grid%i_end(ij), grid%j_start(ij), grid%j_end(ij), kts, kte ) @@ -1321,7 +1324,7 @@ subroutine gauss_noise(z) end subroutine gauss_noise ! ------------------------------------------------------------------ - SUBROUTINE rand_seed (config_flags, iseed1, iseedarr, kms, kme) + SUBROUTINE rand_seed (config_flags, iseed1, iseedarr, seed_start, seed_dim ) USE module_configure IMPLICIT NONE ! @@ -1329,8 +1332,8 @@ SUBROUTINE rand_seed (config_flags, iseed1, iseedarr, kms, kme) TYPE (grid_config_rec_type) :: config_flags ! ! Arguments - INTEGER :: kms, kme, iseed1 - INTEGER, DIMENSION (kms:kme), INTENT(OUT) :: iseedarr + INTEGER :: seed_start, seed_dim, iseed1 + INTEGER, DIMENSION (seed_start:seed_dim), INTENT(OUT) :: iseedarr ! Local integer*8 :: fctime, one_big @@ -1340,7 +1343,7 @@ SUBROUTINE rand_seed (config_flags, iseed1, iseedarr, kms, kme) one_big = 1 iseedarr=0.0 - do i = kms,kme-3,4 + do i = seed_start,seed_dim-3,4 iseedarr(i )= iseed1+config_flags%nens*1000000 iseedarr(i+1)= mod(fctime+iseed1*config_flags%nens*1000000,19211*one_big) iseedarr(i+2)= mod(fctime+iseed1*config_flags%nens*1000000,71209*one_big) diff --git a/dyn_em/nest_init_utils.F b/dyn_em/nest_init_utils.F index eae70a2f35..771bf5b9eb 100644 --- a/dyn_em/nest_init_utils.F +++ b/dyn_em/nest_init_utils.F @@ -772,6 +772,7 @@ END SUBROUTINE copy_3d_field SUBROUTINE adjust_tempqv ( mub, save_mub, c3, c4, znw, p_top, & th, pp, qv, & + use_theta_m, & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & ips , ipe , jps , jpe , kps , kpe ) @@ -794,9 +795,10 @@ SUBROUTINE adjust_tempqv ( mub, save_mub, c3, c4, znw, p_top, & REAL , DIMENSION(kms:kme) , INTENT(IN) :: znw REAL , DIMENSION(kms:kme) , INTENT(IN) :: c3, c4 REAL , DIMENSION(ims:ime,kms:kme,jms:jme) , INTENT(INOUT) :: th, pp, qv + INTEGER , INTENT(IN) :: use_theta_m REAL , DIMENSION(ims:ime,kms:kme,jms:jme) :: p_old, p_new, rh - REAL :: es,dth,tc,e,dth1 + REAL :: es,dth,tc,e,dth1,thloc INTEGER :: i , j , k real p_top @@ -808,7 +810,11 @@ SUBROUTINE adjust_tempqv ( mub, save_mub, c3, c4, znw, p_top, & DO k = kps , kpe-1 DO i = ips , MIN(ipe, ide-1) p_old(i,k,j) = c4(k) + c3(k)*save_mub(i,j) + p_top + pp(i,k,j) - tc = (th(i,k,j)+300.)*(p_old(i,k,j)/1.e5)**(2./7.) - 273.15 + IF ( use_theta_m .EQ. 1 ) THEN + tc = (th(i,k,j)+300.)*(p_old(i,k,j)/1.e5)**(2./7.)/(1.+R_v/R_d*qv(i,k,j)) - 273.15 + ELSE + tc = (th(i,k,j)+300.)*(p_old(i,k,j)/1.e5)**(2./7.) - 273.15 + END IF es = 610.78*exp(17.0809*tc/(234.175+tc)) e = qv(i,k,j)*p_old(i,k,j)/(0.622+qv(i,k,j)) rh(i,k,j) = e/es @@ -821,10 +827,19 @@ SUBROUTINE adjust_tempqv ( mub, save_mub, c3, c4, znw, p_top, & DO i = ips , MIN(ipe, ide-1) p_new(i,k,j) = c4(k) + c3(k)*mub(i,j) + p_top + pp(i,k,j) ! 2*(g/cp-6.5e-3)*R_dry/g = -191.86e-3 - dth1 = -191.86e-3*(th(i,k,j)+300.)/(p_new(i,k,j)+p_old(i,k,j))*(p_new(i,k,j)-p_old(i,k,j)) - dth = -191.86e-3*(th(i,k,j)+0.5*dth1+300.)/(p_new(i,k,j)+p_old(i,k,j))*(p_new(i,k,j)-p_old(i,k,j)) - th(i,k,j) = th(i,k,j)+dth - tc = (th(i,k,j)+300.)*(p_new(i,k,j)/1.e5)**(2./7.) - 273.15 + IF ( use_theta_m .EQ. 1 ) THEN + thloc = (th(i,k,j)+300.)/(1.+R_v/R_d*qv(i,k,j)) + ELSE + thloc = (th(i,k,j)+300.) + END IF + dth1 = -191.86e-3*(thloc )/(p_new(i,k,j)+p_old(i,k,j))*(p_new(i,k,j)-p_old(i,k,j)) + dth = -191.86e-3*(thloc+0.5*dth1)/(p_new(i,k,j)+p_old(i,k,j))*(p_new(i,k,j)-p_old(i,k,j)) + IF ( use_theta_m .EQ. 1 ) THEN + th(i,k,j) = (thloc+dth)*(1.+R_v/R_d*qv(i,k,j))-300. + ELSE + th(i,k,j) = (thloc+dth) -300. + END IF + tc = (thloc+dth)*(p_new(i,k,j)/1.e5)**(2./7.) - 273.15 es = 610.78*exp(17.0809*tc/(234.175+tc)) e = rh(i,k,j)*es qv(i,k,j) = 0.622*e/(p_new(i,k,j)-e) diff --git a/dyn_em/solve_em.F b/dyn_em/solve_em.F index 33c6cefb8d..594712b85f 100644 --- a/dyn_em/solve_em.F +++ b/dyn_em/solve_em.F @@ -299,6 +299,7 @@ SUBROUTINE solve_em ( grid , config_flags & if ( Is_alarm_tstep(grid%domain_clock, grid%alarms(HISTORY_ALARM)) ) then diag_flag = .true. endif + IF (config_flags%nwp_diagnostics == 1) diag_flag = .true. grid%itimestep = grid%itimestep + 1 grid%dtbc = grid%dtbc + grid%dt @@ -3605,9 +3606,18 @@ SUBROUTINE solve_em ( grid , config_flags & & ,vmi3d=grid%vmi3d & ! for P3 & ,di3d=grid%di3d & ! for P3 & ,rhopo3d=grid%rhopo3d & ! for P3 + & ,phii3d=grid%phii3d & ! for Jensen ISHMAEL & ,vmi3d_2=grid%vmi3d_2 & ! for P3 & ,di3d_2=grid%di3d_2 & ! for P3 & ,rhopo3d_2=grid%rhopo3d_2 & ! for P3 + & ,phii3d_2=grid%phii3d_2 & ! for Jensen ISHMAEL + & ,vmi3d_3=grid%vmi3d_3 & ! for Jensen ISHMAEL + & ,di3d_3=grid%di3d_3 & ! for Jensen ISHMAEL + & ,rhopo3d_3=grid%rhopo3d_3 & ! for Jensen ISHMAEL + & ,phii3d_3=grid%phii3d_3 & ! for Jensen ISHMAEL + & ,itype=grid%itype & ! for Jensen ISHMAEL + & ,itype_2=grid%itype_2 & ! for Jensen ISHMAEL + & ,itype_3=grid%itype_3 & ! for Jensen ISHMAEL & ,WARM_RAIN=grid%warm_rain & & ,T8W=t8w & & ,CLDFRA=grid%cldfra, EXCH_H=grid%exch_h & @@ -3700,10 +3710,18 @@ SUBROUTINE solve_em ( grid , config_flags & & , QNID_CURR=scalar(ims,kms,jms,P_QNID), F_QNID=F_QNID & & , QIR_CURR=scalar(ims,kms,jms,P_QIR), F_QIR=F_QIR & ! for P3 & , QIB_CURR=scalar(ims,kms,jms,P_QIB), F_QIB=F_QIB & ! for P3 + & , QVOLI_CURR=scalar(ims,kms,jms,P_QVOLI), F_QVOLI=F_QVOLI & ! for Jensen ISHMAEL + & , QAOLI_CURR=scalar(ims,kms,jms,P_QAOLI), F_QAOLI=F_QAOLI & ! for Jensen ISHMAEL & , QI2_CURR=moist(ims,kms,jms,P_QI2), F_QI2=F_QI2 & ! for P3 & , QNI2_CURR=scalar(ims,kms,jms,P_QNI2), F_QNI2=F_QNI2 & ! for P3 & , QIR2_CURR=scalar(ims,kms,jms,P_QIR2), F_QIR2=F_QIR2 & ! for P3 & , QIB2_CURR=scalar(ims,kms,jms,P_QIB2), F_QIB2=F_QIB2 & ! for P3 + & , QVOLI2_CURR=scalar(ims,kms,jms,P_QVOLI2), F_QVOLI2=F_QVOLI2 & ! for Jensen ISHMAEL + & , QAOLI2_CURR=scalar(ims,kms,jms,P_QAOLI2), F_QAOLI2=F_QAOLI2 & ! for Jensen ISHMAEL + & , QI3_CURR=moist(ims,kms,jms,P_QI3), F_QI3=F_QI3 & ! for Jensen ISHMAEL + & , QNI3_CURR=scalar(ims,kms,jms,P_QNI3), F_QNI3=F_QNI3 & ! for Jensen ISHMAEL + & , QVOLI3_CURR=scalar(ims,kms,jms,P_QVOLI3), F_QVOLI3=F_QVOLI3 & ! for Jensen ISHMAEL + & , QAOLI3_CURR=scalar(ims,kms,jms,P_QAOLI3), F_QAOLI3=F_QAOLI3 & ! for Jensen ISHMAEL ! & , QZR_CURR=scalar(ims,kms,jms,P_QZR), F_QZR=F_QZR & ! for milbrandt3mom ! & , QZI_CURR=scalar(ims,kms,jms,P_QZI), F_QZI=F_QZI & ! " ! & , QZS_CURR=scalar(ims,kms,jms,P_QZS), F_QZS=F_QZS & ! " @@ -3716,6 +3734,36 @@ SUBROUTINE solve_em ( grid , config_flags & & , qicuten=grid%rqicuten, qccuten=grid%rqccuten & & , HAIL=config_flags%gsfcgce_hail & ! for gsfcgce & , ICE2=config_flags%gsfcgce_2ice & ! for gsfcgce + & , PHYS_TOT=grid%phys_tot & ! for gsfcgce + & , PHYSC=grid%physc & ! for gsfcgce + & , PHYSE=grid%physe & ! for gsfcgce + & , PHYSD=grid%physd & ! for gsfcgce + & , PHYSS=grid%physs & ! for gsfcgce + & , PHYSM=grid%physm & ! for gsfcgce + & , PHYSF=grid%physf & ! for gsfcgce + + & , ACPHYS_TOT=grid%acphys_tot & ! for gsfcgce + & , ACPHYSC=grid%acphysc & ! for gsfcgce + & , ACPHYSE=grid%acphyse & ! for gsfcgce + & , ACPHYSD=grid%acphysd & ! for gsfcgce + & , ACPHYSS=grid%acphyss & ! for gsfcgce + & , ACPHYSM=grid%acphysm & ! for gsfcgce + & , ACPHYSF=grid%acphysf & ! for gsfcgce + + & , RE_CLOUD_GSFC=grid%re_cloud_gsfc & ! for gsfcgce + & , RE_RAIN_GSFC=grid%re_rain_gsfc & ! for gsfcgce + & , RE_ICE_GSFC=grid%re_ice_gsfc & ! for gsfcgce + & , RE_SNOW_GSFC=grid%re_snow_gsfc & ! for gsfcgce + & , RE_GRAUPEL_GSFC=grid%re_graupel_gsfc & ! for gsfcgce + & , RE_HAIL_GSFC=grid%re_hail_gsfc & ! for gsfcgce + & , PRECR3D=grid%precr3d, PRECI3D=grid%preci3d, PRECS3D=grid%precs3d & + & , PRECG3D=grid%precg3d, PRECH3D=grid%prech3d & +#if ( WRF_CHEM == 1) + & , GSFCGCE_GOCART_COUPLING=config_flags%gsfcgce_gocart_coupling & + & , ICN_DIAG=grid%icn_diag & ! inline gocart + & , NC_DIAG=grid%nc_diag & ! inline gocart +#endif +!NUWRF JJS 20110525 ^^^^^ ! & , ccntype=config_flags%milbrandt_ccntype & ! for milbrandt (2mom) ! YLIN ! RI_CURR INPUT diff --git a/dyn_em/start_em.F b/dyn_em/start_em.F index 0214f9899f..ae8447951c 100644 --- a/dyn_em/start_em.F +++ b/dyn_em/start_em.F @@ -122,6 +122,7 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & !..Need to fill special height var for setting up initial condition. G. Thompson REAL, ALLOCATABLE, DIMENSION(:,:,:) :: z_at_q + REAL, ALLOCATABLE, DIMENSION(:,:,:) :: dz8w !mchen ! CCN for MP=18 initializatio REAL :: ccn_max_val @@ -142,6 +143,7 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & #if (WRF_CHEM != 1) ALLOCATE(CLDFRA_OLD(IMS:IME,KMS:KME,JMS:JME),STAT=I) ; CLDFRA_OLD = 0. #endif + ALLOCATE(dz8w(IMS:IME,KMS:KME,JMS:JME),STAT=I) ; dz8w = 0. ALLOCATE(z_at_q(IMS:IME,KMS:KME,JMS:JME),STAT=I) ; z_at_q = 0. CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags ) @@ -992,6 +994,9 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & z_at_q, grid%alt, grid%qnwfa2d, scalar(ims,kms,jms,1), num_scalar, & ! G. Thompson grid%re_cloud, grid%re_ice, grid%re_snow, & ! G. Thompson grid%has_reqc, grid%has_reqi, grid%has_reqs, & ! G. Thompson + grid%re_cloud_gsfc, grid%re_ice_gsfc, & ! Goddard + grid%re_snow_gsfc, grid%re_graupel_gsfc, & ! Goddard + grid%re_hail_gsfc, grid%re_rain_gsfc, & ! Goddard grid%nca,grid%swrad_scat, & grid%cldefi,grid%lowlyr, & grid%mass_flux, & @@ -1028,7 +1033,16 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & grid%i_start(ij), grid%i_end(ij), grid%j_start(ij), grid%j_end(ij), kts, kte, & - config_flags%num_urban_layers, & !multi-layer urban + config_flags%num_urban_ndm, & !multi-layer urban + config_flags%urban_map_zrd, & !multi-layer urban + config_flags%urban_map_zwd, & !multi-layer urban + config_flags%urban_map_gd, & !multi-layer urban + config_flags%urban_map_zd, & !multi-layer urban + config_flags%urban_map_zdf, & !multi-layer urban + config_flags%urban_map_bd, & !multi-layer urban + config_flags%urban_map_wd, & !multi-layer urban + config_flags%urban_map_gbd, & !multi-layer urban + config_flags%urban_map_fbd, & !multi-layer urban config_flags%num_urban_hi, & !multi-layer urban grid%raincv_a,grid%raincv_b, & grid%gd_cloud, grid%gd_cloud2, & ! Optional @@ -1166,6 +1180,13 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & ,grid%massflux_EDKF, grid%entr_EDKF, grid%detr_EDKF & ,grid%thl_up,grid%thv_up,grid%rt_up & ,grid%rv_up,grid%rc_up,grid%u_up,grid%v_up,grid%frac_up & + ,grid%RDCASHTEN, grid%RQCDCSHTEN & + ,grid%cldareaa, grid%cldareab, grid%cldliqa, grid%cldliqb & + ,grid%ca_rad, grid%cw_rad & + ,grid%pblmax, grid%wub, grid%ltopb, grid%clddpthb, grid%cldtopb & + ,grid%capesave, grid%ainckfsa, grid%radsave & + ,grid%rainsh, grid%rainshvb, grid%kdcldtop, grid%kdcldbas & + ,grid%xtime1, grid%PBLHAVG, grid%TKEAVG & ,grid%ccn_conc & ! RAS ,grid%QKE &!JOE-for mynn ,grid%landusef,grid%landusef2,grid%mosaic_cat_index & ! danli mosaic @@ -1993,6 +2014,14 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & IF ( config_flags%diag_nwp2 == DO_TRAD_FIELDS ) THEN CALL wrf_debug ( 100 , '--> CALL DIAGNOSTICS PACKAGE: TRAD_FIELDS' ) + DO j = jts, MIN(jte,jde-1) + DO k = 1, kte-1 + DO i = its, MIN(ite,ide-1) + dz8w(i,k,j) = (grid%phb(i,k+1,j)+grid%ph_2(i,k+1,j))/g - (grid%phb(i,k,j)+grid%ph_2(i,k,j))/g + grid%rho(i,k,j) = 1./( grid%al(i,k,j)+grid%alb(i,k,j) ) + END DO + END DO + END DO CALL trad_fields ( & ! Input data for computing U=grid%u_2 & @@ -2018,9 +2047,17 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & ,sina=grid%sina & ,cosa=grid%cosa & ! Terrestrial data + ,rho=grid%rho & + ,dz8w=dz8w & ,ht=grid%ht & ! Namelist info ,use_theta_m=config_flags%use_theta_m & + ,qc=moist(:,:,:,P_QC) & + ,rainc=grid%rainc & + ,rainnc=grid%rainnc & + ,snownc=grid%snownc & + ,graupelnc=grid%graupelnc & + ,hailnc=grid%hailnc & ! The diagnostic output variables ,sealevelp=grid%sealevelp & ,temperature=grid%temperature & @@ -2030,6 +2067,12 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read & ,vmet=grid%vmet & ,speed=grid%speed & ,dir=grid%dir & + ,psfc=grid%psfc & + ,rain=grid%rain & + ,liqrain=grid%liqrain & + ,tpw=grid%tpw & + ,potential_t=grid%potential_t & + ,rh=grid%rh & ! Various indexes for declarations, loop bounds ,IDS=ids,IDE=ide, JDS=jds,JDE=jde, KDS=kds,KDE=kde & ,IMS=ims,IME=ime, JMS=jms,JME=jme, KMS=kms,KME=kme & diff --git a/dyn_exp/Makefile b/dyn_exp/Makefile deleted file mode 100644 index 24cb9f20c8..0000000000 --- a/dyn_exp/Makefile +++ /dev/null @@ -1,31 +0,0 @@ -# - -LN = ln -sf -MAKE = make -i -r -RM = rm -f - - -MODULES = \ - module_exp.o \ - $(CASE_MODULE) - -# possible CASE_MODULE settings -# module_initialize_exp.o - -OBJS = \ - solve_exp.o init_modules_exp.o - -LIBTARGET = dyn_exp -TARGETDIR = ./ -$(LIBTARGET) : $(MODULES) $(OBJS) - $(AR) $(ARFLAGS) ../main/$(LIBWRFLIB) $(MODULES) $(OBJS) - -include ../configure.wrf - -clean: - @ echo 'use the clean script' - -# DEPENDENCIES : only dependencies after this line (don't remove the word DEPENDENCIES) - -solve_exp.o: module_exp.o - diff --git a/dyn_exp/README b/dyn_exp/README deleted file mode 100644 index c9e1045ef7..0000000000 --- a/dyn_exp/README +++ /dev/null @@ -1,123 +0,0 @@ -1. Created a new "core specific" directory - -mkdir dyn_exp - -2. Create a test directory for experimental core - -mkdir test/exp_real - -3. Edited top level Makefile to add targets for same - -3.a. rules to build the framework and then the experimental core - -exp_wrf : - $(MAKE) MODULE_DIRS="$(SLT_MODULES)" ext - $(MAKE) MODULE_DIRS="$(SLT_MODULES)" toolsdir - $(MAKE) MODULE_DIRS="$(SLT_MODULES)" framework - $(MAKE) MODULE_DIRS="$(SLT_MODULES)" shared - $(MAKE) MODULE_DIRS="$(SLT_MODULES)" exp_core - -3.b. sub-rule to build the expimental core - -exp_core : - @ echo '--------------------------------------' - ( cd dyn_exp ; $(MAKE) ) - -3.c. experimental core initialization - -exp_real : exp_wrf - @ echo '--------------------------------------' - ( cd main ; $(MAKE) MODULE_DIRS="$(EXP_MODULES)" SOLVER=exp IDEAL_CASE=exp exp_ideal ) - ( cd test/exp ; /bin/rm -f ideal.exe ; ln -sf ../../main/ideal.exe . ) - ( cd test/exp ; ln -sf ../../run/README.namelist . ) - - -3.d. add macros to specify the modules for this core - -EXP_MODULE_DIR = -I../dyn_exp -EXP_MODULES = $(EXP_MODULE_DIR) $(INCLUDE_MODULES) - - - -4. Edit share/solve_interface.F to add call to experimental core - - ELSE IF ( config_flags%dyn_opt == DYN_EXP ) THEN - - CALL solve_exp ( grid , & -! -#include -! - ) - -4a. share/start_domain.F - -5. Create dyn_exp/solve_exp.F - -It's all there and very short -- just a trivial relaxation; some of the -stuff in there is just "magic," for right now. Note that the code in -here is the code to do one step. The time loop is part of the driver -and can be found in frame/module_integrate.F, which call -solve_interface, which calls this routine. Note, too, that solve_exp -doesn't do any computation itself. It is mediation layer. It calls -model layer subroutines (dyn_exp/module_exp.F) to do the actual computation -in 'tile-callable' fashion. - -6. Create dyn_exp/module_exp.F - -This is the model layer code. Note that boundary tests are always -encoded explicitly as conditionals using the domain indices passed -in through the arg list; never implicitly as part of the loop range. - -7. Edit the Registry file and create the state data assocaited with this -solver. Single entry: - - state real x ikj dyn_exp 2 - ih "TOYVAR" - -This specfies a two timelevel variable 'x' that will be known at the -mediation layer and below as x_1 and x_2 (since it is core associated it -will be known as exp_x_1 and exp_x_2 in the driver layer; the name -of the core is prepended to prevent colllisions with variables of the -same name that are associated with other cores). The 'ih' means it will -participate in initial data and in history data. The veriable is known -externally as TOYVAR, its data name and the name the variable will have -in data sets. - -Note that since the variable is not listed as staggered in any dimension -it's logical (domain) size is ids:ide-1, kds:kde-1, jds:jde-1. This -is important in the the module_exp.F code that tests for northern -and eastern boundaries, and in the init code in module_initialize_exp.F - -8. Edit the Registry file and create a halo-exchange for x_1. - - halo HALO_EXP_A 4:x_1 - -Note that since halo operations are called from the mediation layer, it -is not necessary to pre-pend the dyncore name to the variable name x_1 -when adding it to a comm operation like a halo exchange. - -9. Edit the Registry file to set up '4' as the value of the -namelist variable dyn_opt that means to select our exp dyncore. - -package dyn_exp dyn_opt==4 - - - -10. Create a dyn_exp/Makefile (see that file) - -11. Create an file exp/init_modules.F (also includes a couple of stubs -for other dyncores already in WRF; this is not the normal or correct -way of doing that; but I'm hurrying...) - -12. Create a file exp/module_initialize_exp.F. This is not part of the -WRF model itself; rather it is a pre-processor that produces initial -data for the WRF model. - -13. Edit frame/module_domain.F to add case for DYN_EXP to -alloc_space_field. (This is a bug; -one should never have to edit the framework code; will fix this in -coming versions). Same goes for share/start_domain.F, although this -is not a framework routine. - -14. clean commands - -15. namelist file - copy from another dir and change dyn_opt - boundary conditions diff --git a/dyn_exp/init_modules_exp.F b/dyn_exp/init_modules_exp.F deleted file mode 100644 index 60d418a70a..0000000000 --- a/dyn_exp/init_modules_exp.F +++ /dev/null @@ -1,34 +0,0 @@ -!WRF:MEDIATION_LAYER -! -SUBROUTINE init_modules_exp - USE module_configure - USE module_driver_constants - USE module_model_constants - USE module_domain - USE module_machine - USE module_nesting - USE module_sm - USE module_timing - USE module_tiles - USE module_io_wrf - USE module_io -#ifdef DM_PARALLEL - USE module_dm -#endif - - CALL init_module_configure - CALL init_module_driver_constants - CALL init_module_model_constants - CALL init_module_domain -! CALL init_module_start - CALL init_module_machine -#ifdef DM_PARALLEL - CALL init_module_dm -#endif - CALL init_module_nesting - CALL init_module_timing - CALL init_module_tiles - CALL init_module_io_wrf - CALL init_module_io -END SUBROUTINE init_modules_exp - diff --git a/dyn_exp/module_exp.F b/dyn_exp/module_exp.F deleted file mode 100644 index 7a9e760e74..0000000000 --- a/dyn_exp/module_exp.F +++ /dev/null @@ -1,90 +0,0 @@ -!WRF:MODEL_LAYER:DYNAMICS -! - -MODULE module_exp - - USE module_state_description - -CONTAINS - -!------------------------------------------------------------------------ - -SUBROUTINE relax_1_into_2 ( x1, x2, & - ids, ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - its, ite, jts, jte, kts, kte ) - - IMPLICIT NONE - - - ! Input data. - - INTEGER , INTENT(IN ) :: ids, ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - its, ite, jts, jte, kts, kte - - REAL , DIMENSION( ims:ime , kms:kme, jms:jme ) , & - INTENT(IN ) :: x1 - - REAL , DIMENSION( ims:ime , kms:kme , jms:jme ) , & - INTENT( OUT) :: x2 - - integer :: k, i, j - - - DO j = jts, jte - IF ( j > jds .AND. j < jde-1 ) THEN ! jde-1 because x is not staggered in Y - DO k = kts, kte - DO i = its, ite - IF ( i > ids .AND. i < ide-1 ) THEN ! ide-1 because x is not staggered in X - x2(i,k,j) = 0.25*(x1(i+1,k,j)+x1(i-1,k,j)+x1(i,k,j+1)+x1(i,k,j-1)) - ENDIF - ENDDO - ENDDO - ENDIF - ENDDO - -END SUBROUTINE relax_1_into_2 - -!------------------------------------------------------------------------------- - -SUBROUTINE copy_2_into_1 ( x2, x1, & - ids, ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - its, ite, jts, jte, kts, kte ) - - IMPLICIT NONE - - - ! Input data. - - INTEGER , INTENT(IN ) :: ids, ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - its, ite, jts, jte, kts, kte - - REAL , DIMENSION( ims:ime , kms:kme, jms:jme ) , & - INTENT(IN ) :: x2 - - REAL , DIMENSION( ims:ime , kms:kme , jms:jme ) , & - INTENT( OUT) :: x1 - - integer :: k, i, j - - DO j = jts, jte - IF ( j > jds .AND. j < jde-1 ) THEN - DO k = kts, kte - DO i = its, ite - IF ( i > ids .AND. i < ide-1 ) THEN - x1(i,k,j) = x2(i,k,j) - ENDIF - ENDDO - ENDDO - ENDIF - ENDDO - -END SUBROUTINE copy_2_into_1 - -!------------------------------------------------------------------------------- - -END MODULE module_exp - diff --git a/dyn_exp/module_initialize_exp.F b/dyn_exp/module_initialize_exp.F deleted file mode 100644 index 7723f001cb..0000000000 --- a/dyn_exp/module_initialize_exp.F +++ /dev/null @@ -1,155 +0,0 @@ -!IDEAL:MODEL_LAYER:INITIALIZATION -! - -! This MODULE holds the routines which are used to perform various initializations -! for the individual domains. - -! This MODULE CONTAINS the following routines: - -! initialize_field_test - 1. Set different fields to different constant -! values. This is only a test. If the correct -! domain is not found (based upon the "id") -! then a fatal error is issued. - -MODULE module_initialize - - USE module_domain - USE module_state_description - USE module_model_constants - USE module_timing - USE module_configure - - -CONTAINS - - SUBROUTINE init_domain_exp ( grid & -! -# include "exp_dummy_args.inc" -! -) - IMPLICIT NONE - - ! Input data. - TYPE (domain), POINTER :: grid - -# include "exp_dummy_decl.inc" - - TYPE (grid_config_rec_type) :: config_flags - - ! Local data - INTEGER :: & - ids, ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - its, ite, jts, jte, kts, kte, & - i, j, k - -#define COPY_IN -#include "exp_scalar_derefs.inc" - - SELECT CASE ( model_data_order ) - CASE ( DATA_ORDER_ZXY ) - kds = grid%sd31 ; kde = grid%ed31 ; - ids = grid%sd32 ; ide = grid%ed32 ; - jds = grid%sd33 ; jde = grid%ed33 ; - - kms = grid%sm31 ; kme = grid%em31 ; - ims = grid%sm32 ; ime = grid%em32 ; - jms = grid%sm33 ; jme = grid%em33 ; - - kts = grid%sp31 ; kte = grid%ep31 ; ! note that tile is entire patch - its = grid%sp32 ; ite = grid%ep32 ; ! note that tile is entire patch - jts = grid%sp33 ; jte = grid%ep33 ; ! note that tile is entire patch - CASE ( DATA_ORDER_XYZ ) - ids = grid%sd31 ; ide = grid%ed31 ; - jds = grid%sd32 ; jde = grid%ed32 ; - kds = grid%sd33 ; kde = grid%ed33 ; - - ims = grid%sm31 ; ime = grid%em31 ; - jms = grid%sm32 ; jme = grid%em32 ; - kms = grid%sm33 ; kme = grid%em33 ; - - its = grid%sp31 ; ite = grid%ep31 ; ! note that tile is entire patch - jts = grid%sp32 ; jte = grid%ep32 ; ! note that tile is entire patch - kts = grid%sp33 ; kte = grid%ep33 ; ! note that tile is entire patch - CASE ( DATA_ORDER_XZY ) - ids = grid%sd31 ; ide = grid%ed31 ; - kds = grid%sd32 ; kde = grid%ed32 ; - jds = grid%sd33 ; jde = grid%ed33 ; - - ims = grid%sm31 ; ime = grid%em31 ; - kms = grid%sm32 ; kme = grid%em32 ; - jms = grid%sm33 ; jme = grid%em33 ; - - its = grid%sp31 ; ite = grid%ep31 ; ! note that tile is entire patch - kts = grid%sp32 ; kte = grid%ep32 ; ! note that tile is entire patch - jts = grid%sp33 ; jte = grid%ep33 ; ! note that tile is entire patch - - END SELECT - - - CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags ) - -! set the boundaries of the X array - DO j = jts, jte - DO k = kts, kte - DO i = its, ite - IF ( i == ids .OR. i == ide-1 .OR. j == jds .OR. j == jde-1 ) THEN - x_1(i,k,j) = 1. - x_2(i,k,j) = 1. - ELSE - x_1(i,k,j) = 0. - x_2(i,k,j) = 0. - ENDIF - ENDDO - ENDDO - ENDDO - -#define COPY_OUT -#include "exp_scalar_derefs.inc" - - RETURN - - END SUBROUTINE init_domain_exp - -!------------------------------------------------------------------- -! this is a wrapper for the solver-specific init_domain routines. -! Also dereferences the grid variables and passes them down as arguments. -! This is crucial, since the lower level routines may do message passing -! and this will get fouled up on machines that insist on passing down -! copies of assumed-shape arrays (by passing down as arguments, the -! data are treated as assumed-size -- ie. f77 -- arrays and the copying -! business is avoided). Fie on the F90 designers. Fie and a pox. - - SUBROUTINE init_domain ( grid ) - - IMPLICIT NONE - - ! Input data. - TYPE (domain), POINTER :: grid - ! Local data. - INTEGER :: idum1, idum2 - -#ifdef DEREF_KLUDGE -! see http://www.mmm.ucar.edu/wrf/WG2/topics/deref_kludge.htm - INTEGER :: sm31 , em31 , sm32 , em32 , sm33 , em33 - INTEGER :: sm31x, em31x, sm32x, em32x, sm33x, em33x - INTEGER :: sm31y, em31y, sm32y, em32y, sm33y, em33y -#endif - -#include "deref_kludge.h" - - CALL set_scalar_indices_from_config ( head_grid%id , idum1, idum2 ) - - CALL init_domain_exp( grid & -! -#include "actual_args.inc" -! - ) - - END SUBROUTINE init_domain - - SUBROUTINE init_module_initialize - END SUBROUTINE init_module_initialize - - -END MODULE module_initialize diff --git a/dyn_exp/solve_exp.F b/dyn_exp/solve_exp.F deleted file mode 100644 index 85347d53fd..0000000000 --- a/dyn_exp/solve_exp.F +++ /dev/null @@ -1,154 +0,0 @@ -!WRF:MEDIATION_LAYER:SOLVER -! - -SUBROUTINE solve_exp ( grid & -! -#include "exp_dummy_args.inc" -! - ) - -USE module_exp - - -! Driver layer modules - USE module_domain - USE module_configure - USE module_driver_constants - USE module_machine - USE module_tiles - USE module_dm -! Mediation layer modules -! Registry generated module - USE module_state_description - - IMPLICIT NONE - - ! Subroutine interface block. - - ! Input data. - - TYPE(domain) , TARGET :: grid - - ! Definitions of dummy arguments to solve -#include "exp_dummy_decl.inc" - - ! WRF state bcs - TYPE (grid_config_rec_type) :: config_flags - - ! WRF state data - - ! Local data - - INTEGER :: k_start , k_end - INTEGER :: ids , ide , jds , jde , kds , kde , & - ims , ime , jms , jme , kms , kme , & - ips , ipe , jps , jpe , kps , kpe - INTEGER :: ij , iteration - INTEGER :: im , num_3d_m , ic , num_3d_c - INTEGER :: loop - INTEGER :: ijds, ijde - INTEGER :: idum1, idum2 - -! storage for tendencies and decoupled state (generated from Registry) -#include "exp_i1_decl.inc" - -#ifdef DEREF_KLUDGE -! see http://www.mmm.ucar.edu/wrf/WG2/topics/deref_kludge.htm - INTEGER :: sm31 , em31 , sm32 , em32 , sm33 , em33 - INTEGER :: sm31x, em31x, sm32x, em32x, sm33x, em33x - INTEGER :: sm31y, em31y, sm32y, em32y, sm33y, em33y -#endif -#include "deref_kludge.h" - -#define COPY_IN -#include "exp_scalar_derefs.inc" -#ifdef DM_PARALLEL -# define REGISTER_I1 -# include "exp_data_calls.inc" -#endif - - CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags ) -! this sets up the P_* indices into the moisture and chem arrays - CALL set_scalar_indices_from_config ( grid%id , idum1 , idum2 ) - - ! De-reference dimension information stored in the grid data structure. - -! ikj model kij model - - ids = grid%sd31 ! grid%sd32 - ide = grid%ed31 ! grid%ed32 - jds = grid%sd33 ! grid%sd33 - jde = grid%ed33 ! grid%ed33 - kds = grid%sd32 ! grid%sd31 - kde = grid%ed32 ! grid%ed31 - - ims = grid%sm31 ! grid%sm32 - ime = grid%em31 ! grid%em32 - jms = grid%sm33 ! grid%sm33 - jme = grid%em33 ! grid%em33 - kms = grid%sm32 ! grid%sm31 - kme = grid%em32 ! grid%em31 - - ips = grid%sp31 ! grid%sp32 - ipe = grid%ep31 ! grid%ep32 - jps = grid%sp33 ! grid%sp33 - jpe = grid%ep33 ! grid%ep33 - kps = grid%sp32 ! grid%sp31 - kpe = grid%ep32 ! grid%ep31 - - k_start = grid%sd32 ! grid%sd31 - k_end = grid%ed32 ! grid%ed31 - - ijds = min(ids, jds) - ijde = max(ide, jde) - - ! Compute these starting and stopping locations for each tile and number of tiles. - - CALL set_tiles ( grid , ids , ide , jds , jde , ips , ipe , jps , jpe ) - -! end of "magic"; start of experimental solver; just a goofy relaxation - -! Halo exchange on x_1 for relaxation operator in model layer subroutine -! relax_1_into_2 - -#ifdef DM_PARALLEL -# include "HALO_EXP_A.inc" -#endif - -! Simple 4 pt average of x_1 into x_2 - - !$OMP PARALLEL DO & - !$OMP PRIVATE ( ij ) - DO ij = 1 , grid%num_tiles - CALL wrf_debug ( 200 , ' call relax_1_into_2' ) - CALL relax_1_into_2 ( x_1, x_2, & - ids, ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - grid%i_start(ij), grid%i_end(ij), & - grid%j_start(ij), grid%j_end(ij), & - k_start, k_end ) - END DO - !$OMP END PARALLEL DO - -! Update x_1 for next go 'round - - !$OMP PARALLEL DO & - !$OMP PRIVATE ( ij ) - DO ij = 1 , grid%num_tiles - CALL wrf_debug ( 200 , ' call copy_2_into_1' ) - CALL copy_2_into_1 ( x_2, x_1, & - ids, ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - grid%i_start(ij), grid%i_end(ij), & - grid%j_start(ij), grid%j_end(ij), & - k_start, k_end ) - END DO - !$OMP END PARALLEL DO - -#define COPY_OUT -#include "exp_scalar_derefs.inc" - - RETURN - -END SUBROUTINE solve_exp - diff --git a/dyn_nmm/NMM_NEST_UTILS1.F b/dyn_nmm/NMM_NEST_UTILS1.F index e4f143a389..654afa172e 100644 --- a/dyn_nmm/NMM_NEST_UTILS1.F +++ b/dyn_nmm/NMM_NEST_UTILS1.F @@ -132,10 +132,6 @@ SUBROUTINE med_nest_egrid_configure ( parent , nest ) CALL nl_set_cen_lat ( nest%id , nest%cen_lat) ! for output purpose CALL nl_set_cen_lon ( nest%id , nest%cen_lon) ! for output purpose - write(message,*)" - nest%cen_lat = ",nest%cen_lat - CALL wrf_message(trim(message)) - write(message,*)" - nest%cen_lon = ",nest%cen_lon - CALL wrf_message(trim(message)) ! soil configuration @@ -778,6 +774,122 @@ SUBROUTINE EARTH_LATLON ( HLAT,HLON,VLAT,VLON, & !Earth lat,lon at H and V p END SUBROUTINE EARTH_LATLON !----------------------------------------------------------------------------- +SUBROUTINE EARTH_LATLON_r8 ( HLAT,HLON,VLAT,VLON, & !Earth lat,lon at H and V points + DLMD1,DPHD1,WBD1,SBD1, & !input res,west & south boundaries, + CENTRAL_LAT,CENTRAL_LON, & ! central lat,lon, all in degrees + 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 + INTEGER, INTENT(IN ) :: IMS,IME,JMS,JME,KMS,KME + INTEGER, INTENT(IN ) :: ITS,ITE,JTS,JTE,KTS,KTE + INTEGER,PARAMETER :: KNUM=SELECTED_REAL_KIND(13) + REAL, INTENT(IN ) :: DLMD1,DPHD1,WBD1,SBD1 + REAL, INTENT(IN ) :: CENTRAL_LAT,CENTRAL_LON + REAL(KIND=KNUM), DIMENSION(IMS:IME,JMS:JME), INTENT(OUT) :: HLAT,HLON,VLAT,VLON + +! local + + + INTEGER :: I,J + REAL(KIND=KNUM) :: WB,SB,DLM,DPH,TPH0,STPH0,CTPH0 + REAL(KIND=KNUM) :: TDLM,TDPH,TLMH,TLMV,TLMH0,TLMV0,TPHH,TPHV,DTR + REAL(KIND=KNUM) :: STPH,CTPH,STPV,CTPV,PI_2 + REAL(KIND=KNUM) :: SPHH,CLMH,FACTH,SPHV,CLMV,FACTV + REAL(KIND=KNUM), DIMENSION(IMS:IME,JMS:JME) :: GLATH,GLONH,GLATV,GLONV + REAL(KIND=KNUM) :: DLMD8,DPHD8,WBD8,SBD8,CLAT8,CLON8 + REAL(KIND=KNUM) :: CPHH, CPHV +!------------------------------------------------------------------------- + DLMD8=DLMD1 + DPHD8=DPHD1 + WBD8=WBD1 + SBD8=SBD1 + CLAT8=CENTRAL_LAT + CLON8=CENTRAL_LON +! + PI_2 = DACOS(0.D0) + DTR = PI_2/90.D0 + WB = WBD8 * DTR ! WB: western boundary in radians + SB = SBD8 * DTR ! SB: southern boundary in radians + DLM = DLMD8 * DTR ! DLM: dlamda in radians + DPH = DPHD8 * DTR ! DPH: dphi in radians + TDLM = DLM + DLM ! TDLM: 2.0*dlamda + TDPH = DPH + DPH ! TDPH: 2.0*DPH + +! For earth lat lon only + + TPH0 = CLAT8*DTR ! TPH0: central lat in radians + STPH0 = DSIN(TPH0) + CTPH0 = DCOS(TPH0) + + ! .H + DO J = JTS,MIN(JTE,JDE-1) ! H./ This loop takes care of zig-zag +! ! \.H starting points along j + TLMH0 = WB - TDLM + MOD(J+1,2) * DLM ! ./ TLMH (rotated lats at H points) + TLMV0 = WB - TDLM + MOD(J,2) * DLM ! H (//ly for V points) + TPHH = SB + (J-1)*DPH ! TPHH (rotated lons at H points) are simple trans. + TPHV = TPHH ! TPHV (rotated lons at V points) are simple trans. + STPH = DSIN(TPHH) + CTPH = DCOS(TPHH) + STPV = DSIN(TPHV) + CTPV = COS(TPHV) + ! .H + DO I = ITS,MIN(ITE,IDE-1) ! / + TLMH = TLMH0 + I*TDLM ! \.H .U .H +! !H./ ----><---- + SPHH = CTPH0 * STPH + STPH0 * CTPH * COS(TLMH) ! DLM + DLM + CPHH = dsqrt(1-SPHH**2) + GLATH(I,J)=DASIN(SPHH) ! GLATH: Earth Lat in radians + !CLMH = CTPH*COS(TLMH)/(COS(GLATH(I,J))*CTPH0) & + ! - TAN(GLATH(I,J))*TAN(TPH0) + CLMH = (CTPH*DCOS(TLMH)-SPHH*STPH0) / (CPHH*CTPH0) + IF(CLMH .GT. 1.D0) CLMH = 1.0D0 + IF(CLMH .LT. -1.D0) CLMH = -1.0D0 + FACTH = 1. + IF(TLMH .GT. 0.) FACTH = -1.D0 + GLONH(I,J) = -CLON8*DTR + FACTH*DACOS(CLMH) + + ENDDO + + DO I = ITS,MIN(ITE,IDE-1) + TLMV = TLMV0 + I*TDLM + SPHV = CTPH0 * STPV + STPH0 * CTPV * DCOS(TLMV) + CPHV = dsqrt(1.D0-SPHV**2) + GLATV(I,J) = DASIN(SPHV) + !CLMV = CTPV*COS(TLMV)/(COS(GLATV(I,J))*CTPH0) & + ! - TAN(GLATV(I,J))*TAN(TPH0) + CLMV = (CTPV*DCOS(TLMV)-SPHV*STPH0) / (CPHV*CTPH0) + IF(CLMV .GT. 1.D0) CLMV = 1.D0 + IF(CLMV .LT. -1.D0) CLMV = -1.D0 + FACTV = 1.D0 + IF(TLMV .GT. 0.D0) FACTV = -1.D0 + GLONV(I,J) = -CLON8*DTR + FACTV*DACOS(CLMV) + + ENDDO + + ENDDO + +! Conversion to degrees (may not be required, eventually) + + DO J = JTS, MIN(JTE,JDE-1) + DO I = ITS, MIN(ITE,IDE-1) + HLAT(I,J) = GLATH(I,J) / DTR + HLON(I,J)= -GLONH(I,J)/DTR + IF(HLON(I,J) .GT. 180.D0) HLON(I,J) = HLON(I,J) - 360.D0 + IF(HLON(I,J) .LT. -180.D0) HLON(I,J) = HLON(I,J) + 360.D0 +! + VLAT(I,J) = GLATV(I,J) / DTR + VLON(I,J) = -GLONV(I,J) / DTR + IF(VLON(I,J) .GT. 180.D0) VLON(I,J) = VLON(I,J) - 360.D0 + IF(VLON(I,J) .LT. -180.D0) VLON(I,J) = VLON(I,J) + 360.D0 + + ENDDO + ENDDO + +END SUBROUTINE EARTH_LATLON_r8 subroutine init_hnear(iih,jjh,hbwgt1,hbwgt2,hbwgt3,hbwgt4, & hnear_i,hnear_j, & @@ -2527,7 +2639,7 @@ SUBROUTINE WEIGTS_CHECK(HBWGT1,HBWGT2,HBWGT3,HBWGT4, & ! USAGE OF NUMBER OF PROCESSORS BEFORE ANY FURTHER COMPUTATIONS. WE INTRODUCE THIS ! CHECK FIRST - IF((ITE-ITS) .LE. 5 .OR. (JTE-JTS) .LE. 5)THEN + IF((ITE-ITS) .LE. 4 .OR. (JTE-JTS) .LE. 4)THEN WRITE(message,*)'ITE-ITS=',ITE-ITS,'JTE-JTS=',JTE-JTS CALL wrf_message(trim(message)) CALL wrf_error_fatal ('NESTED DOMAIN:PLEASE OPTIMIZE THE NUMBER OF PROCESSES; TRY SQUARES OF NUMBERS') @@ -3332,7 +3444,7 @@ SUBROUTINE med_initialize_nest_nmm( grid & REAL, PARAMETER:: SNUP=0.040 REAL, PARAMETER:: W_NMM=0.08 ! REAL, PARAMETER:: COAC=0.75 - REAL, PARAMETER:: CODAMP=6.4 +! REAL, PARAMETER:: CODAMP=6.4 REAL, PARAMETER:: TWOM=.00014584 REAL, PARAMETER:: CP=1004.6 REAL, PARAMETER:: DFC=1.0 @@ -3354,6 +3466,7 @@ SUBROUTINE med_initialize_nest_nmm( grid & REAL, PARAMETER:: DTR=0.01745329 REAL :: COAC + REAL :: CODAMP CHARACTER(LEN=255) :: message @@ -3377,6 +3490,7 @@ SUBROUTINE med_initialize_nest_nmm( grid & ! call nl_get_coac(grid%id,coac) + call nl_get_codamp(grid%id,codamp) DT=grid%dt !float(TIME_STEP)/parent_time_step_ratio NNXP=min(ITE,IDE-1) diff --git a/dyn_nmm/depend.dyn_nmm b/dyn_nmm/depend.dyn_nmm index e6bccee750..78a2ec04c9 100644 --- a/dyn_nmm/depend.dyn_nmm +++ b/dyn_nmm/depend.dyn_nmm @@ -75,6 +75,7 @@ start_domain_nmm.o: module_ADVECTION.o module_BNDRY_COND.o module_CTLBLK.o \ module_IGWAVE_ADJUST.o \ module_HIFREQ.o ../share/module_random.o \ ../phys/module_physics_init.o \ + ../phys/module_sf_exchcoef.o \ module_STATS_FOR_MOVE.o \ module_tornado_genesis.o module_swath.o ../frame/module_clear_halos.o diff --git a/dyn_nmm/module_PHYSICS_CALLS.F b/dyn_nmm/module_PHYSICS_CALLS.F index 674b2e0aae..4e308e2ee5 100644 --- a/dyn_nmm/module_PHYSICS_CALLS.F +++ b/dyn_nmm/module_PHYSICS_CALLS.F @@ -449,6 +449,7 @@ SUBROUTINE RADIATION(NTSD,DT,JULDAY,JULYR,XTIME,JULIAN & & ,SW_PHYSICS=CONFIG_FLAGS%RA_SW_PHYSICS & & ,RADT=RADT,RA_CALL_OFFSET=GRID%RA_CALL_OFFSET & & ,STEPRA=NRAD,ICLOUD=config_flags%ICLOUD & + & ,cldovrlp=config_flags%cldovrlp & ! J. Henderson AER: cldovrlp namelist value & ,WARM_RAIN=WARM_RAIN & & ,SWDOWNC=TOTSWDNC,CLDFRA=CLFR & & ,SWUPT=SWUPT & @@ -1058,6 +1059,11 @@ SUBROUTINE TURBL(NTSD,DT,NPHS,RESTRT & CHARACTER(len=255) :: message #if HWRF==1 !dbg integer :: kpblmin,kpblmax,lpblmin,lpblmax !dbg + logical :: pert_pbl + logical :: pert_Cd + real :: ens_Cdamp + real :: ens_pblamp + integer :: ens_random_seed #endif ! ! @@ -1481,7 +1487,16 @@ SUBROUTINE TURBL(NTSD,DT,NPHS,RESTRT & & ,LAI=GRID%LAI,IZ0TLND=CONFIG_FLAGS%IZ0TLND & & ,SF_URBAN_PHYSICS=SF_URBAN_PHYSICS & ! & ,GMT=GMT,XLAT=XLAT,XLONG=XLONG,JULDAY=JULDAY & - & ,NUM_URBAN_LAYERS=NUM_URBAN_LAYERS & + & ,num_urban_ndm = config_flags%num_urban_ndm & !multi-layer urban + & ,urban_map_zrd = config_flags%urban_map_zrd & !multi-layer urban + & ,urban_map_zwd = config_flags%urban_map_zwd & !multi-layer urban + & ,urban_map_gd = config_flags%urban_map_gd & !multi-layer urban + & ,urban_map_zd = config_flags%urban_map_zd & !multi-layer urban + & ,urban_map_zdf = config_flags%urban_map_zdf & !multi-layer urban + & ,urban_map_bd = config_flags%urban_map_bd & !multi-layer urban + & ,urban_map_wd = config_flags%urban_map_wd & !multi-layer urban + & ,urban_map_gbd = config_flags%urban_map_gbd & !multi-layer urban + & ,urban_map_fbd = config_flags%urban_map_fbd & !multi-layer urban & ,NUM_URBAN_HI=config_flags%num_urban_hi & !multi-layer urban & ,IDS=IDS,IDE=IDE,JDS=JDS,JDE=JDE,KDS=KDS,KDE=KDE & & ,IMS=IMS,IME=IME,JMS=JMS,JME=JME,KMS=KMS,KME=KME & @@ -1641,6 +1656,8 @@ SUBROUTINE TURBL(NTSD,DT,NPHS,RESTRT & CALL nl_get_var_ric(1, var_ric) CALL nl_get_coef_ric_s(1, coef_ric_s) CALL nl_get_coef_ric_l(1, coef_ric_l) + CALL nl_get_pert_pbl(1,pert_pbl) + CALL nl_get_ens_pblamp(1,ens_pblamp) ! write(0,*) 'var_ric & coef_ric_s l from namelist Kwon ',var_ric,coef_ric_s,coef_ric_l #endif ! @@ -1706,9 +1723,9 @@ SUBROUTINE TURBL(NTSD,DT,NPHS,RESTRT & & ,DKU3D=DKU3D,DKT3D=DKT3D #if HWRF==1 & ,coef_ric_l=coef_ric_l,coef_ric_s=coef_ric_s & !Kwon for Ric - & ,pert_pbl=config_flags%pert_pbl & - & ,ens_random_seed=config_flags%ens_random_seed & - & ,ens_pblamp=config_flags%ens_pblamp & + & ,pert_pbl=pert_pbl & + & ,ens_random_seed=ens_random_seed & + & ,ens_pblamp=ens_pblamp & #endif & ,QV_CURR=MOIST_TRANS(IMS,KMS,JMS,P_QV),F_QV=F_QV & & ,QC_CURR=MOIST_TRANS(IMS,KMS,JMS,P_QC),F_QC=F_QC & @@ -2494,6 +2511,11 @@ SUBROUTINE CUCNVC(NTSD,DT,NCNVC,NRADS,NRADL & INTEGER :: IDT REAL, DIMENSION(2) :: RND1 #endif +#if HWRF==1 + logical :: pert_sas + integer :: ens_random_seed + real :: ens_sasamp +#endif !----------------------------------------------------------------------- !*********************************************************************** !----------------------------------------------------------------------- @@ -2520,7 +2542,11 @@ SUBROUTINE CUCNVC(NTSD,DT,NCNVC,NRADS,NRADL & DO J=JMS,JME DO I=IMS,IME HTOP(I,J)=0. + HTOPD(I,J)=0. + HTOPS(I,J)=0. HBOT(I,J)=REAL(KTE+1) + HBOTD(I,J)=REAL(KTE+1) + HBOTS(I,J)=REAL(KTE+1) CUTOP(I,J)=0. CUBOT(I,J)=REAL(KTE+1) CUPPT(I,J)=0. @@ -2647,6 +2673,25 @@ SUBROUTINE CUCNVC(NTSD,DT,NCNVC,NRADS,NRADL & ENDDO ENDDO ENDDO +#if (NMM_CORE==1) +!$omp parallel do & +!$omp& private(i,j,k) + DO K=KTS,KTE + DO J=JTS,JTE + DO I=ITS,ITE + DUCUDT(i,j,k)=0.0 + DVCUDT(i,j,k)=0.0 + DTHCUDT(i,j,k)=0.0 + DQVCUDT(i,j,k)=0.0 + DQRCUDT(i,j,k)=0.0 + DQCCUDT(i,j,k)=0.0 + DQICUDT(i,j,k)=0.0 + DQSCUDT(i,j,k)=0.0 + ENDDO + ENDDO + ENDDO +#endif + ! !----------------------------------------------------------------------- ! @@ -2780,6 +2825,12 @@ SUBROUTINE CUCNVC(NTSD,DT,NCNVC,NRADS,NRADL & CALL SET_TILES(GRID,IDS+1,IDE-1,JDS+2,JDE-2,ITS,ITE,JTS,JTE) +#if HWRF==1 + CALL nl_get_pert_sas(1,pert_sas) + CALL nl_get_ens_random_seed(1,ens_random_seed) + CALL nl_get_ens_sasamp(1,ens_sasamp) +#endif + #if (NMM_CORE==1) !$omp parallel do & !$omp& private(i,j,k) @@ -2846,9 +2897,9 @@ SUBROUTINE CUCNVC(NTSD,DT,NCNVC,NRADS,NRADL & & ,RUCUTEN=DUCUDT, RVCUTEN=DVCUDT, MOMMIX=MOMMIX & ,store_rand=store_rand & #if (HWRF==1) - & ,pert_sas=config_flags%pert_sas & - & ,ens_random_seed=config_flags%ens_random_seed & - & ,ens_sasamp=config_flags%ens_sasamp & + & ,pert_sas=pert_sas & + & ,ens_random_seed=ens_random_seed & + & ,ens_sasamp=ens_sasamp & #endif #endif & ,SHALL=grid%shall & diff --git a/dyn_nmm/module_initialize_real.F b/dyn_nmm/module_initialize_real.F index 3a036704a2..f1a9f30125 100644 --- a/dyn_nmm/module_initialize_real.F +++ b/dyn_nmm/module_initialize_real.F @@ -2106,7 +2106,10 @@ SUBROUTINE make_coupler_fort65(grid,& use module_dm,only: local_communicator implicit none type(domain), intent(in) :: grid - REAL, DIMENSION(:,:), ALLOCATABLE :: NHLAT,NHLON,NVLAT,NVLON,HRES_SM,& + INTEGER,PARAMETER :: KNUM=SELECTED_REAL_KIND(13) + REAL(KIND=KNUM), DIMENSION(:,:), ALLOCATABLE :: NHLAT,NHLON,NVLAT,NVLON + REAL :: NHLAT_temp,NHLON_temp + REAL, DIMENSION(:,:), ALLOCATABLE :: HRES_SM, & HBWGT1, HBWGT2, HBWGT3, HBWGT4 INTEGER, DIMENSION(:,:), ALLOCATABLE :: IIH, JJH, HNEAR_I,HNEAR_J,CENFLAG REAL, INTENT(IN) :: NDLMD,NDPHD,NWBD,NSBD,tph0d,tlm0d @@ -2161,12 +2164,12 @@ SUBROUTINE make_coupler_fort65(grid,& allocate(HBWGT2(nide,njde),HBWGT3(nide,njde),HBWGT4(nide,njde)) allocate(HNEAR_I(nide,njde),HNEAR_J(nide,njde),CENFLAG(nide,njde)) - CALL EARTH_LATLON ( NHLAT,NHLON,NVLAT,NVLON, & ! rotated lat,lon at H&V - NDLMD,NDPHD,NWBD,NSBD, & ! resolution & SW corner - tph0d,tlm0d, & ! projection center - 1,NIDE+1,1,NJDE+1,1,1, & ! WRF domain size - 1,NIDE,1,NJDE,1,1, & ! memory size - 1,NIDE,1,NJDE,1,1 ) ! patch size + CALL EARTH_LATLON_r8 ( NHLAT,NHLON,NVLAT,NVLON, & ! rotated lat,lon at H&V + NDLMD,NDPHD,NWBD,NSBD, & ! resolution & SW corner + tph0d,tlm0d, & ! projection center + 1,NIDE+1,1,NJDE+1,1,1, & ! WRF domain size + 1,NIDE,1,NJDE,1,1, & ! memory size + 1,NIDE,1,NJDE,1,1 ) ! patch size HBWGT1=999 HBWGT2=999 @@ -2194,6 +2197,7 @@ SUBROUTINE make_coupler_fort65(grid,& noncount=0 bigcount=0 count=0 + call wrf_debug(1,'Master enters big loop.') do nj=1,njde do ni=1,nide ci=HNEAR_I(ni,nj) @@ -2209,8 +2213,10 @@ SUBROUTINE make_coupler_fort65(grid,& maxweight=max(HBWGT1(ni,nj),HBWGT2(ni,nj),HBWGT3(ni,nj),HBWGT4(ni,nj)) if(maxweight>0.9999 .and. maxweight<1.03) then cenflag(ni,nj)=1 + NHLON_temp=NHLON(ni,nj) + NHLAT_temp=NHLAT(ni,nj) dist=greatarc(bigHLAT(ci,cj,1),bigHLON(ci,cj,1),& - NHLAT(ni,nj),NHLON(ni,nj)) + NHLAT_temp,NHLON_temp) if(dist>100) then bigcount=bigcount+1 endif diff --git a/dyn_nmm/solve_nmm.F b/dyn_nmm/solve_nmm.F index 7267da5776..ae9c85bf6b 100644 --- a/dyn_nmm/solve_nmm.F +++ b/dyn_nmm/solve_nmm.F @@ -137,6 +137,9 @@ SUBROUTINE SOLVE_NMM(GRID,CONFIG_FLAGS & REAL,ALLOCATABLE,DIMENSION(:,:,:) :: RTHRATEN,RTHBLTEN,RQVBLTEN REAL,ALLOCATABLE,DIMENSION(:,:) :: HPBL_HOLD ! +! Double precision lat/lon for coupler + REAL*8,ALLOCATABLE,DIMENSION(:,:) :: HLAT_DBL,HLON_DBL,VLAT_DBL,VLON_DBL + REAL :: parent_CLAT,parent_CLON,WBD,SBD,DLMD,DPHD !----------------------------------------------------------------------- ! LOGICAL wrf_dm_on_monitor @@ -164,6 +167,7 @@ SUBROUTINE SOLVE_NMM(GRID,CONFIG_FLAGS & real,save :: exch_tim_max real :: ttim,btimx real :: et_max,this_tim + double precision :: fhr integer :: n_print_time !!BEGIN: LSM changes for LANDFALL: Subashini 7/27/2016 integer :: move_land_time @@ -312,7 +316,7 @@ SUBROUTINE SOLVE_NMM(GRID,CONFIG_FLAGS & !!!!! IF(WRF_DM_ON_MONITOR() )THEN WRITE(MESSAGE,125)grid%id,grid%ntsd,grid%ntsd*GRID%DT/3600. 125 FORMAT(' SOLVE_NMM: ',I3,' TIMESTEP IS ',I5,' TIME IS ',F7.3,' HOURS') - CALL WRF_MESSAGE(TRIM(MESSAGE)) +!!!! CALL WRF_MESSAGE(TRIM(MESSAGE)) !!!! ENDIF ! !----------------------------------------------------------------------- @@ -396,6 +400,13 @@ SUBROUTINE SOLVE_NMM(GRID,CONFIG_FLAGS & ALLOCATE(RQVBLTEN(IMS:IME,KMS:KME,JMS:JME),STAT=ISTAT) ALLOCATE(RTHRATEN(IMS:IME,KMS:KME,JMS:JME),STAT=ISTAT) ALLOCATE(HPBL_HOLD(IMS:IME,JMS:JME),STAT=ISTAT) +! +!Zhan: Double precision lat/lon for coupler + ALLOCATE(HLAT_DBL(IMS:IME,JMS:JME),STAT=ISTAT) + ALLOCATE(HLON_DBL(IMS:IME,JMS:JME),STAT=ISTAT) + ALLOCATE(VLAT_DBL(IMS:IME,JMS:JME),STAT=ISTAT) + ALLOCATE(VLON_DBL(IMS:IME,JMS:JME),STAT=ISTAT) + ! IF(CONFIG_FLAGS%CU_PHYSICS==GDSCHEME.OR. & & CONFIG_FLAGS%CU_PHYSICS==TIEDTKESCHEME.OR. & @@ -814,10 +825,23 @@ SUBROUTINE SOLVE_NMM(GRID,CONFIG_FLAGS & ! Coupling insertion:-> ELSE btimx=now_time() + CALL nl_get_cen_lat (GRID%ID, parent_CLAT) + CALL nl_get_cen_lon (GRID%ID, parent_CLON) + DLMD = grid%dx + DPHD = grid%dy + WBD = grid%wbd0 + SBD = grid%sbd0 + CALL EARTH_LATLON_r8 ( HLAT_DBL,HLON_DBL,VLAT_DBL,VLON_DBL, & !output + DLMD,DPHD,WBD,SBD, & !inputs + parent_CLAT,parent_CLON, & + IDS,IDE,JDS,JDE,KDS,KDE, & + IMS,IME,JMS,JME,KMS,KME, & + ITS,ITE,JTS,JTE,KTS,KTE ) + call ATM_TSTEP_INIT(NTSD_current,grid%NPHS,GRID%ID,grid%NPHS*grid%dt, & ids,idf,jds,jdf,its,ite,jts,jte,ims,ime,jms,jme, & kds,kde,kts,kte,kms,kme, & - grid%HLON,grid%HLAT,grid%VLON,grid%VLAT,grid%sm, & + HLON_DBL,HLAT_DBL,VLON_DBL,VLAT_DBL,grid%sm, & grid%i_parent_start,grid%j_parent_start, & grid%guessdtc,grid%dtc) cplstep_tim=cplstep_tim+now_time()-btimx diff --git a/dyn_nmm/start_domain_nmm.F b/dyn_nmm/start_domain_nmm.F index 00fccf8bd6..f36399db09 100644 --- a/dyn_nmm/start_domain_nmm.F +++ b/dyn_nmm/start_domain_nmm.F @@ -243,7 +243,10 @@ END SUBROUTINE med_set_egrid_locs integer :: i_v=49,j_v=475,n_v=07 integer :: num_aerosolc real :: cen_lat,cen_lon,dtphs ! GWD - integer :: num_urban_layers,num_urban_hi + integer :: num_urban_hi, & + num_urban_ndm,urban_map_zrd,urban_map_zwd,urban_map_gd, & + urban_map_zd ,urban_map_zdf,urban_map_bd ,urban_map_wd, & + urban_map_gbd,urban_map_fbd !Rogers GMT INTEGER :: hr, mn, sec, ms, rc TYPE(WRFU_Time) :: currentTime @@ -2171,7 +2174,10 @@ END SUBROUTINE med_set_egrid_locs & ,IDS, IDE, JDS, JDE, KDS, KDE & & ,IMS, IME, JMS, JME, KMS, KME & & ,ITS, ITE, JTS, JTE, KTS, KTE & - & ,NUM_URBAN_LAYERS,NUM_URBAN_HI & + & ,num_urban_ndm,urban_map_zrd,urban_map_zwd,urban_map_gd & + & ,urban_map_zd ,urban_map_zdf,urban_map_bd ,urban_map_wd & + & ,urban_map_gbd,urban_map_fbd & + & ,NUM_URBAN_HI & & ,GRID%RAINCV_A,GRID%RAINCV_B & & ,ISNOWXY=grid%ISNOWXY, ZSNSOXY=grid%ZSNSOXY, TSNOXY=grid%TSNOXY, & ! Optional Noah-MP & SNICEXY=grid%SNICEXY, SNLIQXY=grid%SNLIQXY, TVXY=grid%TVXY, & ! Optional Noah-MP diff --git a/external/Makefile b/external/Makefile index e260a75545..2a716f350d 100644 --- a/external/Makefile +++ b/external/Makefile @@ -1,20 +1,20 @@ superclean : - ( cd esmf_time_f90 ; make superclean ) - ( cd io_pnetcdf ; make superclean ) - ( cd io_pio ; make superclean ) - ( cd io_int ; make superclean ) - ( cd io_netcdf ; make superclean ) - ( cd io_mcel ; make superclean ) - ( cd io_phdf5 ; make superclean ) - ( cd io_grib1 ; make superclean ) - ( cd io_grib_share ; make superclean ) - ( cd io_grib2 ; make superclean ) - ( cd io_esmf ; make superclean ) - ( cd ioapi_share ; make superclean ) - ( cd RSL_LITE ; make superclean ) - ( cd fftpack/fftpack5 ; make superclean ) - ( cd atm_ocn ; make superclean ) + @( cd esmf_time_f90 ; make -s superclean ) + @( cd io_pnetcdf ; make -s superclean ) + @( cd io_pio ; make -s superclean ) + @( cd io_int ; make -s superclean ) + @( cd io_netcdf ; make -s superclean ) + @( cd io_mcel ; make -s superclean ) + @( cd io_phdf5 ; make -s superclean ) + @( cd io_grib1 ; make -s superclean ) + @( cd io_grib_share ; make -s superclean ) + @( cd io_grib2 ; make -s superclean ) + @( cd io_esmf ; make -s superclean ) + @( cd ioapi_share ; make -s superclean ) + @( cd RSL_LITE ; make -s superclean ) + @( cd fftpack/fftpack5 ; make -s superclean ) + @( cd atm_ocn ; make -s superclean ) diff --git a/external/RSL_LITE/makefile b/external/RSL_LITE/makefile index ca315b3e3b..5d1139fe4c 100644 --- a/external/RSL_LITE/makefile +++ b/external/RSL_LITE/makefile @@ -51,7 +51,7 @@ f_xpose.o: f_xpose.F90 f_pack.o $(FC) -o $@ $(FFLAGS) -c f_xpose.f clean : - /bin/rm -f *.f *.o *.mod *.obj *.i + @/bin/rm -f *.f *.o *.mod *.obj *.i superclean : clean - /bin/rm -f *.a + @/bin/rm -f *.a diff --git a/external/atm_ocn/Makefile b/external/atm_ocn/Makefile index 4f5537ee5e..71e7fe20c4 100644 --- a/external/atm_ocn/Makefile +++ b/external/atm_ocn/Makefile @@ -20,9 +20,9 @@ library: $(OBJ) $(FC) -o $@ -c $(FFLAGS) $*.f90 clean: - rm -f $(OBJ) $(TARGET) - rm -f *.f90 - rm -f *.mod + @rm -f $(OBJ) $(TARGET) + @rm -f *.f90 + @rm -f *.mod superclean: clean diff --git a/external/atm_ocn/atm_comm.F b/external/atm_ocn/atm_comm.F index c7175184a4..839b045f05 100644 --- a/external/atm_ocn/atm_comm.F +++ b/external/atm_ocn/atm_comm.F @@ -32,7 +32,7 @@ MODULE ATM_cc integer,parameter:: kind_sfcflux=kind_R, & & kind_SST=kind_R, & & kind_SLM=kind_R, & - & kind_lonlat=kind_R + & kind_lonlat=kind_REAL INTEGER, PARAMETER :: kind_cur = kind_r, kind_wstate = kind_r, & kind_windp = kind_r integer MPI_kind_R, & @@ -529,10 +529,19 @@ SUBROUTINE ATM_SENDGRIDS(HLON,HLAT,VLON,VLAT) !c IF (gid.eq.1) THEN ! only "parent grid" coordinates are sent - call ASSEMBLE(ALONt,HLON,kind_lonlat) - call ASSEMBLE(ALATt,HLAT,kind_lonlat) - call ASSEMBLE(ALONv,VLON,kind_lonlat) - call ASSEMBLE(ALATv,VLAT,kind_lonlat) + if (kind_lonlat.eq.4) then + call ASSEMBLE(ALONt,HLON,kind_lonlat) + call ASSEMBLE(ALATt,HLAT,kind_lonlat) + call ASSEMBLE(ALONv,VLON,kind_lonlat) + call ASSEMBLE(ALATv,VLAT,kind_lonlat) + else if (kind_lonlat.eq.8) then + call ASSEMBLE_R8(ALONt,HLON,kind_lonlat) + call ASSEMBLE_R8(ALATt,HLAT,kind_lonlat) + call ASSEMBLE_R8(ALONv,VLON,kind_lonlat) + call ASSEMBLE_R8(ALATv,VLAT,kind_lonlat) + else + call GLOB_ABORT(1,'wrong value of kind_lonlat in ATM_SENDGRIDS',1) + end if call ATM_ANNOUNCE('(BP) to send grid arrays (4 MPI calls)',2) diff --git a/external/atm_ocn/atm_tiles.F b/external/atm_ocn/atm_tiles.F index 0e05e3a284..78402294ce 100644 --- a/external/atm_ocn/atm_tiles.F +++ b/external/atm_ocn/atm_tiles.F @@ -21,7 +21,7 @@ SUBROUTINE ASSEMBLE(FG,FL,knd) if (knd.ne.kl .or. knd.ne.kg) then print*,'knd must = loc. and glob. kinds in ASSEMBLE. '// & & 'To generalize, call of QUILT_2 must be generalized ',knd,kl,kg - call GLOB_ABORT(1,'whong kinds in ASSEMBLE',1) + call GLOB_ABORT(1,'wrong kinds in ASSEMBLE',1) end if call QUILT_2(FL,FG,ids,idf,jds,jdf,kds,kde, & @@ -31,6 +31,40 @@ SUBROUTINE ASSEMBLE(FG,FL,knd) END ! !*********************************************************************** +! + SUBROUTINE ASSEMBLE_R8(FG,FL,knd) + + USE ATM_cc, ONLY: & + & ids,idf,jds,jdf,kds,kde, & + & ims,ime,jms,jme,kms,kme, & + & its,ite,jts,jte,kts,kte + + USE MODULE_PATCH_QUILT + + implicit none + + real(kind=8),dimension(ids:idf,jds:jdf),intent(out):: FG + real(kind=8),dimension(ims:ime,jms:jme),intent(in) :: FL + integer, intent(in) :: knd + + integer kl,kg +! + + kl=kind(FL) + kg=kind(FG) + if (knd.ne.kl .or. knd.ne.kg) then + print*,'knd must = loc. and glob. kinds in ASSEMBLE. '// & + & 'To generalize, call of QUILT_2_R8 must be generalized ',knd,kl,kg + call GLOB_ABORT(1,'wrong kinds in ASSEMBLE_R8',1) + end if + + call QUILT_2_R8(FL,FG,ids,idf,jds,jdf,kds,kde, & + &ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte) + + return + END +! +!*********************************************************************** ! SUBROUTINE DISASSEMBLE(FG,FL,knd) diff --git a/external/atm_ocn/module_PATCH_QUILT.F b/external/atm_ocn/module_PATCH_QUILT.F index 958ce4c03b..baf3dc7051 100755 --- a/external/atm_ocn/module_PATCH_QUILT.F +++ b/external/atm_ocn/module_PATCH_QUILT.F @@ -11,7 +11,7 @@ MODULE MODULE_PATCH_QUILT !----------------------------------------------------------------------- ! PRIVATE - PUBLIC :: PATCH,QUILT_2 + PUBLIC :: PATCH,QUILT_2,QUILT_2_R8 ! !----------------------------------------------------------------------- ! @@ -363,6 +363,167 @@ SUBROUTINE QUILT_2(ARRAYL,ARRAYG & ! END SUBROUTINE QUILT_2 ! +!----------------------------------------------------------------------- + SUBROUTINE QUILT_2_R8(ARRAYL,ARRAYG & + & ,IDS,IDE,JDS,JDE,KDS,KDE & + & ,IMS,IME,JMS,JME,KMS,KME & + & ,ITS,ITE,JTS,JTE,KTS,KTE) +!----------------------------------------------------------------------- +! QUILT_2 PULLS TOGETHER THE MPI TASKS' LOCAL ARRAYS ARRAYL AND +! THEN QUILTS THEM TOGETHER INTO A SINGLE GLOBAL ARRAY ARRAYG. +! +! AUTHOR: TOM BLACK +!----------------------------------------------------------------------- +! + IMPLICIT NONE +! +!----------------------------------------------------------------------- +! + INCLUDE "mpif.h" +! +!----------------------------------------------------------------------- +!*** ARGUMENT VARIABLES +!----------------------------------------------------------------------- +! + INTEGER,INTENT(IN) :: IDS,IDE,JDS,JDE,KDS,KDE & + &, IMS,IME,JMS,JME,KMS,KME & + &, ITS,ITE,JTS,JTE,KTS,KTE +! + REAL(kind=8),DIMENSION(IMS:IME,JMS:JME),INTENT(IN) :: ARRAYL + REAL(kind=8),DIMENSION(IDS:IDE,JDS:JDE),INTENT(OUT) :: ARRAYG +! +!----------------------------------------------------------------------- +!*** LOCAL VARIABLES +!----------------------------------------------------------------------- +! + REAL,ALLOCATABLE,DIMENSION(:) :: ARRAYX +! + INTEGER :: I,IEND,IPE,IRECV,IRTN,ISEND,ISTART,J,JEND,JSTART,KNT & + &, L,MPI_COMM_COMP,NUMVALS,MYPE,NPES +! + INTEGER,DIMENSION(4) :: LIMITS +! + INTEGER,DIMENSION(MPI_STATUS_SIZE) :: ISTAT +!----------------------------------------------------------------------- +!*********************************************************************** +!----------------------------------------------------------------------- +! +!----------------------------------------------------------------------- +!*** GET OUR TASK ID AND THE COMMUNICATOR +!----------------------------------------------------------------------- +! + CALL WRF_GET_MYPROC(MYPE) + CALL WRF_GET_DM_COMMUNICATOR(MPI_COMM_COMP) + CALL WRF_GET_NPROC(NPES) +! +!----------------------------------------------------------------------- +!*** INITIALIZE THE OUTPUT ARRAY +!----------------------------------------------------------------------- +! + DO J=JDS,JDE + DO I=IDS,IDE + ARRAYG(I,J)=0. + ENDDO + ENDDO + + CALL wrf_patch_to_global_double( & + & arrayl, arrayg, mpi_comm_comp, 'xy', 'xy' & + &, IDS,IDE,JDS,JDE,1,1 & + &, IMS,IME,JMS,JME,1,1 & + &, ITS,ITE,JTS,JTE,1,1 ) + + RETURN + +!! +!!----------------------------------------------------------------------- +!!*** TASK 0 FILLS ITS OWN PART OF THE GLOBAL FIRST. +!!----------------------------------------------------------------------- +!! +!!----------------------------------------------------------------------- +! tasks : IF(MYPE==0)THEN +!!----------------------------------------------------------------------- +!! +! DO J=JTS,JTE +! DO I=ITS,ITE +! ARRAYG(I,J)=ARRAYL(I,J) +! ENDDO +! ENDDO +!! +!!----------------------------------------------------------------------- +!!*** TASK 0 NEEDS THE LIMITS FROM EACH OF THE OTHER TASKS AND THEN +!!*** PULLS IN THE APPROPRIATE PIECES FROM ALL OTHER TASKS. +!!----------------------------------------------------------------------- +!! +! DO IPE=1,NPES-1 +!! +! CALL MPI_RECV(LIMITS,4,MPI_INTEGER,IPE,IPE,MPI_COMM_COMP & +! & ,ISTAT,IRECV) +!! +! ISTART=LIMITS(1) +! IEND=LIMITS(2) +! JSTART=LIMITS(3) +! JEND=LIMITS(4) +!! +! NUMVALS=(IEND-ISTART+1)*(JEND-JSTART+1) +! ALLOCATE(ARRAYX(NUMVALS),STAT=I) +!! +! CALL MPI_RECV(ARRAYX,NUMVALS,MPI_REAL,IPE,IPE,MPI_COMM_COMP & +! & ,ISTAT,IRECV) +!! +! KNT=0 +!! +! DO J=JSTART,JEND +! DO I=ISTART,IEND +! KNT=KNT+1 +! ARRAYG(I,J)=ARRAYX(KNT) +! ENDDO +! ENDDO +!! +! DEALLOCATE(ARRAYX) +!! +! ENDDO +!! +!!----------------------------------------------------------------------- +!!*** ALL OTHER TASKS TELL TASK 0 WHAT THEIR HORIZONTAL LIMITS ARE AND +!!*** SEND THEIR LOCAL ARRAY TO TASK 0. +!!----------------------------------------------------------------------- +!! +! ELSE +!! +! LIMITS(1)=ITS +! LIMITS(2)=ITE +! LIMITS(3)=JTS +! LIMITS(4)=JTE +!! +! CALL MPI_SEND(LIMITS,4,MPI_INTEGER,0,MYPE,MPI_COMM_COMP,ISEND) +!! +! NUMVALS=(ITE-ITS+1)*(JTE-JTS+1) +! ALLOCATE(ARRAYX(NUMVALS),STAT=I) +!! +! KNT=0 +!! +! DO J=JTS,JTE +! DO I=ITS,ITE +! KNT=KNT+1 +! ARRAYX(KNT)=ARRAYL(I,J) +! ENDDO +! ENDDO +!! +! CALL MPI_SEND(ARRAYX,NUMVALS,MPI_REAL,0,MYPE,MPI_COMM_COMP & +! &, ISEND) +!! +! DEALLOCATE(ARRAYX) +!! +!!----------------------------------------------------------------------- +!! +! ENDIF tasks +! +!----------------------------------------------------------------------- +! CALL MPI_BARRIER(MPI_COMM_COMP,IRTN) +!----------------------------------------------------------------------- +! + END SUBROUTINE QUILT_2_R8 +! !----------------------------------------------------------------------- ! END MODULE MODULE_PATCH_QUILT diff --git a/external/esmf_time_f90/Makefile b/external/esmf_time_f90/Makefile index ade1199dba..54de7ed003 100644 --- a/external/esmf_time_f90/Makefile +++ b/external/esmf_time_f90/Makefile @@ -83,10 +83,10 @@ Test1_WRFU.exe : libesmf_time.a Test1_WRFU.o clean : testclean testclean: - $(RM) *.b *.f *.o *.obj *.i libesmf_time.a *.mod Test1*.exe + @$(RM) *.b *.f *.o *.obj *.i libesmf_time.a *.mod Test1*.exe superclean: testclean - $(RM) Test1*.out make_tests.out + @$(RM) Test1*.out make_tests.out # DEPENDENCIES : only dependencies after this line diff --git a/external/fftpack/fftpack5/Makefile b/external/fftpack/fftpack5/Makefile index dac7b7a419..8006d74a51 100644 --- a/external/fftpack/fftpack5/Makefile +++ b/external/fftpack/fftpack5/Makefile @@ -29,6 +29,6 @@ library: $(OBJ) $(RM) -f $*.f90 clean: - rm -f $(OBJ) $(TARGET) *.obj + @rm -f $(OBJ) $(TARGET) *.obj superclean: clean diff --git a/external/io_esmf/makefile b/external/io_esmf/makefile index 7667221d32..6a06d26ab3 100644 --- a/external/io_esmf/makefile +++ b/external/io_esmf/makefile @@ -25,7 +25,7 @@ $(TARGET) : $(OBJS) $(FC) -c -g -I../ioapi_share $*.f superclean: - /bin/rm -f *.f *.o $(TARGET) *.mod + @/bin/rm -f *.f *.o $(TARGET) *.mod # DEPENDENCIES : only dependencies after this line diff --git a/external/io_grib1/Makefile b/external/io_grib1/Makefile index b2f3378fc3..6afcf4d760 100644 --- a/external/io_grib1/Makefile +++ b/external/io_grib1/Makefile @@ -73,14 +73,14 @@ SUB_DIRS = $(LIB_DIRS) $(EXE_DIRS) # Clean up old build files # superclean: - /bin/rm -f *.o *.obj > /dev/null 2>&1 - /bin/rm -f *.f90 > /dev/null 2>&1 - /bin/rm -f *.mod > /dev/null 2>&1 - /bin/rm -f *.a > /dev/null 2>&1 - /bin/rm -f wgrid.exe > /dev/null 2>&1 - ( cd grib1_util ; make clean ) - ( cd MEL_grib1 ; make clean ) - ( cd WGRIB ; make clean ) + @/bin/rm -f *.o *.obj > /dev/null 2>&1 + @/bin/rm -f *.f90 > /dev/null 2>&1 + @/bin/rm -f *.mod > /dev/null 2>&1 + @/bin/rm -f *.a > /dev/null 2>&1 + @/bin/rm -f wgrid.exe > /dev/null 2>&1 + @( cd grib1_util ; make clean ) + @( cd MEL_grib1 ; make clean ) + @( cd WGRIB ; make clean ) # # Include the boilerplate rules for building library modules. diff --git a/external/io_grib1/WGRIB/Makefile b/external/io_grib1/WGRIB/Makefile index 6820ffa70e..f3badaeea1 100644 --- a/external/io_grib1/WGRIB/Makefile +++ b/external/io_grib1/WGRIB/Makefile @@ -25,5 +25,5 @@ wgrib.exe: $(obj) ( cd .. ; \rm -f wgrib.exe ; \ln -sf WGRIB/wgrib.exe wgrib.exe ; cd WGRIB ) clean: - \rm -f $(obj) *.obj wgrib.exe - ( cd .. ; \rm -f wgrib.exe ; cd WGRIB ) + @\rm -f $(obj) *.obj wgrib.exe + @( cd .. ; \rm -f wgrib.exe ; cd WGRIB ) diff --git a/external/io_grib2/Makefile b/external/io_grib2/Makefile index 8d017b18fd..aa04914a26 100644 --- a/external/io_grib2/Makefile +++ b/external/io_grib2/Makefile @@ -65,12 +65,12 @@ OBJS = \ # Clean up old build files # superclean: - /bin/rm -f *.o > /dev/null 2>&1 - /bin/rm -f *.f90 > /dev/null 2>&1 - /bin/rm -f *.mod > /dev/null 2>&1 - /bin/rm -f *.a > /dev/null 2>&1 - ( cd bacio-1.3 ; make clean ) - ( cd g2lib ; make clean ) + @/bin/rm -f *.o > /dev/null 2>&1 + @/bin/rm -f *.f90 > /dev/null 2>&1 + @/bin/rm -f *.mod > /dev/null 2>&1 + @/bin/rm -f *.a > /dev/null 2>&1 + @( cd bacio-1.3 ; make clean ) + @( cd g2lib ; make clean ) # diff --git a/external/io_grib_share/Makefile b/external/io_grib_share/Makefile index f5ec93162c..41d3c96659 100644 --- a/external/io_grib_share/Makefile +++ b/external/io_grib_share/Makefile @@ -71,10 +71,10 @@ SUB_DIRS = $(LIB_DIRS) $(EXE_DIRS) # Clean up old build files # superclean: - /bin/rm -f *.o *.obj > /dev/null 2>&1 - /bin/rm -f *.f90 > /dev/null 2>&1 - /bin/rm -f *.mod > /dev/null 2>&1 - /bin/rm -f *.a > /dev/null 2>&1 + @/bin/rm -f *.o *.obj > /dev/null 2>&1 + @/bin/rm -f *.f90 > /dev/null 2>&1 + @/bin/rm -f *.mod > /dev/null 2>&1 + @/bin/rm -f *.a > /dev/null 2>&1 # diff --git a/external/io_grib_share/build/library_rules.mk b/external/io_grib_share/build/library_rules.mk index 2499d7930f..90dd34f4e4 100644 --- a/external/io_grib_share/build/library_rules.mk +++ b/external/io_grib_share/build/library_rules.mk @@ -148,7 +148,6 @@ thisdir_clean: thisdir_clean_lib @/bin/rm -f *.o *.obj *.mod *.f90 core so_locations Makefile.bak *~ #*# @/bin/rm -fr ii_files @if [ -d utest ] ; then \ - echo " Doing make clean on utest subdirectory"; \ cd utest; \ make clean; \ cd ..; \ diff --git a/external/io_int/makefile b/external/io_int/makefile index a8b346f1bf..3033670e32 100644 --- a/external/io_int/makefile +++ b/external/io_int/makefile @@ -91,5 +91,5 @@ test_io_mpi: test_io_mpi.f90 $(LIB) $(FC) $(FCFLAGS) $(LDFLAGS) -o $@ $@.f90 -L. -lwrfio_int superclean: - -$(RM) *.f *.o *.obj *.i *.mod $(LIB) diffwrf io_int_idx_tags.h \ + @$(RM) *.f *.o *.obj *.i *.mod $(LIB) diffwrf io_int_idx_tags.h \ test_io_idx test_io_mpi io_int_idx_tags.h diff --git a/external/io_mcel/makefile b/external/io_mcel/makefile index 15e3fa57ba..278ffc22eb 100644 --- a/external/io_mcel/makefile +++ b/external/io_mcel/makefile @@ -27,7 +27,7 @@ timeconvert.o : timeconvert.c $(FC) $(FFLAGS) $(INCL) -I../ioapi_share -c $*.f superclean: - /bin/rm -f *.f *.o libwrfio_mcel.a + @/bin/rm -f *.f *.o libwrfio_mcel.a # DEPENDENCIES : only dependencies after this line (don't remove the word DEPENDENCIES) diff --git a/external/io_netcdf/makefile b/external/io_netcdf/makefile index d4e6facb10..05c7967c38 100644 --- a/external/io_netcdf/makefile +++ b/external/io_netcdf/makefile @@ -66,5 +66,5 @@ field_routines.o: field_routines.F90 wrf_io.o $(FC) -o $@ $(FFLAGS) -c field_routines.f superclean: - /bin/rm -f *.f *.o *.obj *.i testWRFWrite testWRFRead \ + @/bin/rm -f *.f *.o *.obj *.i testWRFWrite testWRFRead \ *.mod libwrfio_nf.a diffwrf diff --git a/external/io_phdf5/Makefile b/external/io_phdf5/Makefile index c92cd88b6c..f7feadaa96 100644 --- a/external/io_phdf5/Makefile +++ b/external/io_phdf5/Makefile @@ -32,8 +32,8 @@ wrf-phdf5.o: wrf-phdf5.F90 wrf-phdf5attr.o wrf-phdf5support.o $(FC) $(FFLAGS) -c wrf-phdf5.f90 clean: - /bin/rm -f *.f90 *.o *.mod + @/bin/rm -f *.f90 *.o *.mod superclean: clean - /bin/rm -f libwrfio_phdf5.a + @/bin/rm -f libwrfio_phdf5.a diff --git a/external/io_pio/Makefile b/external/io_pio/Makefile index 84a4c41df6..f8e505c660 100644 --- a/external/io_pio/Makefile +++ b/external/io_pio/Makefile @@ -66,5 +66,5 @@ read_bdy_routines.o: read_bdy_routines.F90 wrf_data_pio.o pio_routines.o clean: superclean superclean: - /bin/rm -f *.f *.o \ + @/bin/rm -f *.f *.o \ *.mod libwrfio_pio.a diff --git a/external/io_pnetcdf/Makefile b/external/io_pnetcdf/Makefile index e8b019d3ad..f7d1d36536 100644 --- a/external/io_pnetcdf/Makefile +++ b/external/io_pnetcdf/Makefile @@ -37,5 +37,5 @@ field_routines.o: field_routines.F90 wrf_io.o $(FC) $(FFLAGS) -c field_routines.f superclean: - /bin/rm -f *.f *.o testWRFWrite testWRFRead \ + @/bin/rm -f *.f *.o testWRFWrite testWRFRead \ *.mod libwrfio_pnf.a diff --git a/external/ioapi_share/makefile b/external/ioapi_share/makefile index 7f0e04efab..a5142e02af 100644 --- a/external/ioapi_share/makefile +++ b/external/ioapi_share/makefile @@ -19,7 +19,7 @@ all: ../../inc/wrf_io_flags.h ../../inc/wrf_status_codes.h /bin/cp wrf_status_codes.h ../../inc superclean: - /bin/rm -f ../../inc/wrf_io_flags.h ../../inc/wrf_status_codes.h + @/bin/rm -f ../../inc/wrf_io_flags.h ../../inc/wrf_status_codes.h # DEPENDENCIES : only dependencies after this line diff --git a/frame/module_alloc_space.h b/frame/module_alloc_space.h index 249466ed5f..961294d715 100644 --- a/frame/module_alloc_space.h +++ b/frame/module_alloc_space.h @@ -53,6 +53,8 @@ INTEGER ierr INTEGER :: loop + INTEGER(KIND=8) :: nba ! number of bytes allocated per variable + CHARACTER(LEN=256) :: message_string ! Local data diff --git a/frame/module_quilt_outbuf_ops.F b/frame/module_quilt_outbuf_ops.F index 1b4116b2cf..83a6ed2857 100644 --- a/frame/module_quilt_outbuf_ops.F +++ b/frame/module_quilt_outbuf_ops.F @@ -162,7 +162,7 @@ SUBROUTINE write_outbuf_pnc ( DataHandle, io_form_arg, local_comm, & END IF WRITE(mess,"('write_outbuf_pnc: table has ', I3,' entries')") num_entries - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) DO ii = 1, num_entries @@ -170,7 +170,7 @@ SUBROUTINE write_outbuf_pnc ( DataHandle, io_form_arg, local_comm, & TRIM(outpatch_table(ii)%DateStr)," ", & TRIM(outpatch_table(ii)%VarName)," ", & TRIM(outpatch_table(ii)%MemoryOrder) - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) SELECT CASE ( io_form_arg ) @@ -228,9 +228,9 @@ SUBROUTINE write_outbuf_pnc ( DataHandle, io_form_arg, local_comm, & icnt = icnt + 1 WRITE (mess, "('Calling write for patch: ',I3, ' Start = ',3I4)") ipatch, outpatch_table(ii)%PatchList(ipatch)%PatchStart(1:3) - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) WRITE (mess,"(29x,'End = ',3I4)") outpatch_table(ii)%PatchList(ipatch)%PatchEnd(1:3) - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) CALL ext_pnc_write_field ( DataHandle , & TRIM(outpatch_table(ii)%DateStr), & @@ -1065,7 +1065,7 @@ SUBROUTINE stitch_outbuf_patches(ibuf) END DO WRITE(mess,*) "--------------------------" - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) ! Record how many patches we're left with outpatch_table(ibuf)%nPatch = npatches @@ -1305,13 +1305,13 @@ SUBROUTINE store_patch_in_outbuf_pnc( inbuf_r, inbuf_i, DateStr, VarName , & ii = num_entries WRITE(mess,*)'Adding field entry no. ',num_entries - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) WRITE(mess,*)'Variable = ',TRIM(VarName) - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) WRITE(mess,*)'Domain start = ',DomainStart(:) - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) WRITE(mess,*)'Domain end = ',DomainEnd(:) - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) ENDIF ! We only store > 1 patch if the field has two or more dimensions. Scalars @@ -1362,7 +1362,7 @@ SUBROUTINE store_patch_in_outbuf_pnc( inbuf_r, inbuf_i, DateStr, VarName , & PatchStart(1),PatchEnd(1), & PatchStart(2),PatchEnd(2), & PatchStart(3),PatchEnd(3) - CALL wrf_message(mess) + CALL wrf_debug ( 200, TRIM( mess ) ) IF ( FieldType .EQ. WRF_FLOAT ) THEN DO n = 1,outpatch_table(ii)%PatchList(ipatch)%PatchExtent(3),1 diff --git a/hydro/.version b/hydro/.version new file mode 100644 index 0000000000..5f81b6abfc --- /dev/null +++ b/hydro/.version @@ -0,0 +1 @@ +v5.0.3 diff --git a/hydro/CPL/WRF_cpl/Makefile b/hydro/CPL/WRF_cpl/Makefile index a37fbe0d7a..ad52402054 100644 --- a/hydro/CPL/WRF_cpl/Makefile +++ b/hydro/CPL/WRF_cpl/Makefile @@ -18,7 +18,7 @@ all: $(OBJS) .F.o: @echo "" $(CPP) $(CPPFLAGS) -I$(NETCDFINC) $(*).F > $(*).f - $(COMPILER90) -o $(@) $(F90FLAGS) $(MODFLAG) -I$(WRF_ROOT)/frame -I$(WRF_ROOT)/main -I$(WRF_ROOT)/external/esmf_time_f90 $(*).f + $(COMPILER90) -o $(@) $(F90FLAGS) $(MODFLAG) -I$(WRF_ROOT)/frame -I$(WRF_ROOT)/main -I$(WRF_ROOT)/external/esmf_time_f90 -I$(NETCDFINC) $(*).f $(RMD) $(*).f @echo "" ar -r ../../lib/libHYDRO.a $(@) diff --git a/hydro/CPL/WRF_cpl/module_wrf_HYDRO.F b/hydro/CPL/WRF_cpl/module_wrf_HYDRO.F index 4e2fe3a12f..3cc80102bf 100644 --- a/hydro/CPL/WRF_cpl/module_wrf_HYDRO.F +++ b/hydro/CPL/WRF_cpl/module_wrf_HYDRO.F @@ -24,7 +24,7 @@ module module_WRF_HYDRO #ifdef MPP_LAND use module_mpp_land, only: global_nx, global_ny, decompose_data_real, & write_io_real, my_id, mpp_land_bcast_real1, IO_id, & - mpp_land_bcast_real, mpp_land_bcast_int1 + mpp_land_bcast_real, mpp_land_bcast_int1, mpp_land_init use module_CPL_LAND, only: CPL_LAND_INIT, cpl_outdate #endif use module_HYDRO_drv, only: HYDRO_ini, HYDRO_exe @@ -97,7 +97,8 @@ subroutine wrf_cpl_HYDRO(HYDRO_dt,grid,its,ite,jts,jte) if(.not. RT_DOMAIN(did)%initialized) then - + + call MPP_LAND_INIT() !yw nlst_rt(did)%nsoil = config_flags%num_soil_layers !nlst_rt(did)%nsoil = model_config_rec%num_metgrid_soil_levels diff --git a/hydro/Data_Rec/module_GW_baseflow_data.F b/hydro/Data_Rec/module_GW_baseflow_data.F deleted file mode 100644 index 4b1716835c..0000000000 --- a/hydro/Data_Rec/module_GW_baseflow_data.F +++ /dev/null @@ -1,9 +0,0 @@ -Module module_GW_baseflow_data - IMPLICIT NONE - INTEGER, PARAMETER :: max_domain=5 - -#include "gw_field_include.inc" - type (gw_field) :: gw2d(max_domain) - save gw2d - -end module module_GW_baseflow_data diff --git a/hydro/Data_Rec/module_namelist.F b/hydro/Data_Rec/module_namelist.F index 66c6b2120f..25284133d2 100644 --- a/hydro/Data_Rec/module_namelist.F +++ b/hydro/Data_Rec/module_namelist.F @@ -44,7 +44,7 @@ subroutine read_rt_nlst(nlst) GWBASESWCRT, GW_RESTART,RSTRT_SWC,TERADJ_SOLAR, & sys_cpl, rst_typ, rst_bi_in, rst_bi_out, & gwChanCondSw, GwPreCycles, GwSpinCycles, GwPreDiagInterval, gwsoilcpl, & - UDMP_OPT + UDMP_OPT, io_form_outputs real:: DTRT_TER,DTRT_CH,dxrt, gwChanCondConstIn, gwChanCondConstOut, gwIhShift character(len=256) :: route_topo_f="" character(len=256) :: route_chan_f="" @@ -58,12 +58,14 @@ subroutine read_rt_nlst(nlst) character(len=256) :: udmap_file ="" character(len=256) :: GWBUCKPARM_file = "" integer :: SOLVEG_INITSWC - real out_dt, rst_dt + real*8 :: out_dt, rst_dt character(len=256) :: RESTART_FILE = "" + character(len=256) :: hydrotbl_f = "" logical :: GwPreDiag, GwSpinUp integer :: split_output_count, order_to_write - integer :: igrid, iocflag + integer :: igrid, io_config_outputs, t0OutputFlag, output_channelBucket_influx character(len=256) :: geo_static_flnm = "" + character(len=1024) :: land_spatial_meta_flnm = "" integer :: DEEPGWSPIN integer :: i @@ -75,6 +77,8 @@ subroutine read_rt_nlst(nlst) integer ::RTOUT_DOMAIN ! Netcdf grid of terrain routing variables on routing grid integer :: output_gw integer :: outlake + integer :: frxst_pts_out ! ASCII text file of streamflow at forecast points + integer :: CHANOBS_DOMAIN ! NetCDF point timeseries output at forecast points. !!! add the following two dummy variables @@ -87,12 +91,21 @@ subroutine read_rt_nlst(nlst) character(len=256) :: netwkReExFile logical :: readTimesliceParallel logical :: temporalPersistence + logical :: persistBias + logical :: biasWindowBeforeT0 character(len=256) :: nudgingLastObsFile + character(len=256) :: timeSlicePath + integer :: nLastObs + integer :: minNumPairsBiasPersist + integer :: maxAgePairsBiasPersist + logical :: invDistTimeWeightBias + logical :: noConstInterfBias #endif namelist /HYDRO_nlist/ NSOIL, ZSOIL8,& RESTART_FILE,SPLIT_OUTPUT_COUNT,IGRID,& geo_static_flnm, & + land_spatial_meta_flnm, & out_dt, rst_dt, & DEEPGWSPIN, SOLVEG_INITSWC, & RT_OPTION, CHANRTSWCRT, channel_option, & @@ -103,28 +116,52 @@ subroutine read_rt_nlst(nlst) route_direction_f,route_order_f,gwbasmskfil, geo_finegrid_flnm,& gwstrmfil,GW_RESTART,RSTRT_SWC,TERADJ_SOLAR, sys_cpl, & order_to_write , rst_typ, rst_bi_in, rst_bi_out, gwsoilcpl, & - CHRTOUT_DOMAIN,CHRTOUT_GRID,LSMOUT_DOMAIN,RTOUT_DOMAIN, output_gw, outlake, udmap_file, & - UDMP_OPT, GWBUCKPARM_file, iocflag + CHRTOUT_DOMAIN,CHANOBS_DOMAIN,CHRTOUT_GRID,LSMOUT_DOMAIN,& + RTOUT_DOMAIN, output_gw, outlake, & + frxst_pts_out, udmap_file, UDMP_OPT, GWBUCKPARM_file, & + io_config_outputs, io_form_outputs, hydrotbl_f, t0OutputFlag, output_channelBucket_influx + +#ifdef WRF_HYDRO_NUDGING + namelist /NUDGING_nlist/ nudgingParamFile, netwkReExFile, & + readTimesliceParallel, temporalPersistence, & + persistBias, nudgingLastObsFile, & + timeSlicePath, nLastObs, & + minNumPairsBiasPersist, maxAgePairsBiasPersist, & + biasWindowBeforeT0, invDistTimeWeightBias, & + noConstInterfBias +#endif + !! ---- End definitions ---- + + ! Default values for HYDRO_nlist UDMP_OPT = 0 rst_bi_in = 0 rst_bi_out = 0 - iocflag = 0 - + io_config_outputs = 0 + io_form_outputs = 0 + frxst_pts_out = 0 + CHANOBS_DOMAIN = 0 + t0OutputFlag = 1 + output_channelBucket_influx = 0 + TERADJ_SOLAR = 0 #ifdef WRF_HYDRO_NUDGING - namelist /NUDGING_nlist/ nudgingParamFile, netwkReExFile, & - readTimesliceParallel, temporalPersistence, & - nudgingLastObsFile - ! Default values... + ! Default values for NUDGING_nlist nudgingParamFile = "DOMAIN/nudgingParams.nc" netwkReExFile = "DOMAIN/netwkReExFile.nc" - readTimesliceParallel = .true. - temporalPersistence = .true. - nudgingLastObsFile = "" + readTimesliceParallel = .true. + temporalPersistence = .true. + persistBias = .false. + biasWindowBeforeT0 = .false. + nudgingLastObsFile = "" + timeSlicePath = "./nudgingTimeSliceObs/" + nLastObs = 960 + minNumPairsBiasPersist = 8 + maxAgePairsBiasPersist = -99999 + invDistTimeWeightBias = .false. + noConstInterfBias = .false. #endif - #ifdef MPP_LAND if(IO_id .eq. my_id) then #endif @@ -139,6 +176,8 @@ subroutine read_rt_nlst(nlst) #ifdef WRF_HYDRO_NUDGING read(12, NUDGING_nlist, iostat=ierr) if(ierr .ne. 0) call hydro_stop("NUDGING_nlst namelist error in read_rt_nlst") + !! Conditional default values for nuding_nlist + if(maxAgePairsBiasPersist .eq. -99999) maxAgePairsBiasPersist = -1*nLastObs #endif close(12) @@ -146,18 +185,32 @@ subroutine read_rt_nlst(nlst) endif #endif -#ifdef HYDRO_REALTIME - if ( iocflag .eq. 4 ) RTOUT_DOMAIN = 0 - if ( (iocflag .gt. 0) .and. (CHRTOUT_DOMAIN .eq.1) .and. (channel_option .ne. 3) ) CHRTOUT_DOMAIN = 2 -#endif + if ( int(mod(out_dt*60, nlst%dt)) .ne. 0) then + call hydro_stop("read_rt_nlst:: out_dt must be a multiple of the NOAH_TIMESTEP") + end if + +! ADCHANGE: move these checks to more universal namelist checks... + if ( io_config_outputs .eq. 4 ) RTOUT_DOMAIN = 0 + + if(output_channelBucket_influx .ne. 0) then + if(nlst%dt .ne. out_dt*60) & + call hydro_stop("read_rt_nlst:: output_channelBucket_influx =! 0 inconsistent with out_dt and NOAH_TIMESTEP choices.") + if(output_channelBucket_influx .eq. 2 .and. GWBASESWCRT .ne. 1) & + call hydro_stop("read_rt_nlst:: output_channelBucket_influx = 2 but GWBASESWCRT != 1.") + end if + + if(CHANRTSWCRT .eq. 0 .and. channel_option .lt. 3) channel_option = 3 #ifdef MPP_LAND ! call mpp_land_bcast_real1(DT) call mpp_land_bcast_int1(SPLIT_OUTPUT_COUNT) call mpp_land_bcast_int1(IGRID) - call mpp_land_bcast_int1(iocflag) - call mpp_land_bcast_real1(out_dt) - call mpp_land_bcast_real1(rst_dt) + call mpp_land_bcast_int1(io_config_outputs) + call mpp_land_bcast_int1(io_form_outputs) + call mpp_land_bcast_int1(t0OutputFlag) + call mpp_land_bcast_int1(output_channelBucket_influx) + call mpp_land_bcast_real1_double(out_dt) + call mpp_land_bcast_real1_double(rst_dt) call mpp_land_bcast_int1(DEEPGWSPIN) call mpp_land_bcast_int1(SOLVEG_INITSWC) #endif @@ -174,12 +227,18 @@ subroutine read_rt_nlst(nlst) #endif #endif -! nlst%DT = DT + ! nlst%DT = DT !!JLM: Note that %dt is set in the Land/WRF initialization, + ! !!JLM: e.g. CPL/NoahMP_cpl/module_hrldas_HYDRO.F:hrldas_cpl_HYDRO_ini nlst%RESTART_FILE = RESTART_FILE + nlst%hydrotbl_f = trim(hydrotbl_f) nlst%SPLIT_OUTPUT_COUNT = SPLIT_OUTPUT_COUNT nlst%IGRID = IGRID - nlst%iocflag = iocflag + nlst%io_config_outputs = io_config_outputs + nlst%io_form_outputs = io_form_outputs + nlst%t0OutputFlag = t0OutputFlag + nlst%output_channelBucket_influx = output_channelBucket_influx nlst%geo_static_flnm = geo_static_flnm + nlst%land_spatial_meta_flnm = land_spatial_meta_flnm nlst%out_dt = out_dt nlst%rst_dt = rst_dt nlst%DEEPGWSPIN = DEEPGWSPIN @@ -187,6 +246,7 @@ subroutine read_rt_nlst(nlst) #ifdef MPP_LAND call mpp_land_bcast_char(256,nlst%RESTART_FILE) + call mpp_land_bcast_char(256,nlst%hydrotbl_f) #endif write(nlst%hgrid,'(I1)') igrid @@ -235,8 +295,10 @@ subroutine read_rt_nlst(nlst) call mpp_land_bcast_int1(rst_bi_out) call mpp_land_bcast_int1(order_to_write) call mpp_land_bcast_int1(CHRTOUT_DOMAIN) + call mpp_land_bcast_int1(CHANOBS_DOMAIN) call mpp_land_bcast_int1(output_gw) call mpp_land_bcast_int1(outlake) + call mpp_land_bcast_int1(frxst_pts_out) call mpp_land_bcast_int1(CHRTOUT_GRID) call mpp_land_bcast_int1(LSMOUT_DOMAIN) call mpp_land_bcast_int1(RTOUT_DOMAIN) @@ -247,6 +309,14 @@ subroutine read_rt_nlst(nlst) call mpp_land_bcast_char(256, nudgingLastObsFile) call mpp_land_bcast_log1(readTimesliceParallel) call mpp_land_bcast_log1(temporalPersistence) + call mpp_land_bcast_log1(persistBias) + call mpp_land_bcast_log1(biasWindowBeforeT0) + call mpp_land_bcast_char(256, timeSlicePath) + call mpp_land_bcast_int1(nLastObs) + call mpp_land_bcast_int1(minNumPairsBiasPersist) + call mpp_land_bcast_int1(maxAgePairsBiasPersist) + call mpp_land_bcast_log1(invDistTimeWeightBias) + call mpp_land_bcast_log1(noConstInterfBias) #endif #endif /* MPP_LAND */ @@ -260,8 +330,10 @@ subroutine read_rt_nlst(nlst) endif nlst%CHRTOUT_DOMAIN = CHRTOUT_DOMAIN + nlst%CHANOBS_DOMAIN = CHANOBS_DOMAIN nlst%output_gw = output_gw nlst%outlake = outlake + nlst%frxst_pts_out = frxst_pts_out nlst%CHRTOUT_GRID = CHRTOUT_GRID nlst%LSMOUT_DOMAIN = LSMOUT_DOMAIN nlst%RTOUT_DOMAIN = RTOUT_DOMAIN @@ -334,11 +406,19 @@ subroutine read_rt_nlst(nlst) nlst%UDMP_OPT = UDMP_OPT nlst%GWBUCKPARM_file = GWBUCKPARM_file #ifdef WRF_HYDRO_NUDGING - nlst%nudgingParamFile = nudgingParamFile - nlst%netWkReExFile = netWkReExFile - nlst%readTimesliceParallel = readTimesliceParallel - nlst%temporalPersistence = temporalPersistence - nlst%nudgingLastObsFile = nudgingLastObsFile + nlst%nudgingParamFile = nudgingParamFile + nlst%netWkReExFile = netWkReExFile + nlst%readTimesliceParallel = readTimesliceParallel + nlst%temporalPersistence = temporalPersistence + nlst%persistBias = persistBias + nlst%biasWindowBeforeT0 = biasWindowBeforeT0 + nlst%nudgingLastObsFile = nudgingLastObsFile + nlst%timeSlicePath = timeSlicePath + nlst%nLastObs = nLastObs + nlst%minNumPairsBiasPersist = minNumPairsBiasPersist + nlst%maxAgePairsBiasPersist = maxAgePairsBiasPersist + nlst%invDistTimeWeightBias = invDistTimeWeightBias + nlst%noConstInterfBias = noConstInterfBias #endif #ifdef MPP_LAND @@ -382,11 +462,19 @@ subroutine read_rt_nlst(nlst) write(6,*) " nlst%gwstrmfil ", gwstrmfil write(6,*) " nlst%geo_finegrid_flnm ", geo_finegrid_flnm #ifdef WRF_HYDRO_NUDGING - write(6,*) " nlst%nudgingParamFile", trim(nudgingParamFile) - write(6,*) " nlst%netWkReExFile", trim(netWkReExFile) - write(6,*) " nlst%readTimesliceParallel", readTimesliceParallel - write(6,*) " nlst%temporalPersistence", temporalPersistence - write(6,*) " nlst%nudgingLastObsFile", trim(nudgingLastObsFile) + write(6,*) " nlst%nudgingParamFile ", trim(nudgingParamFile) + write(6,*) " nlst%netWkReExFile ", trim(netWkReExFile) + write(6,*) " nlst%readTimesliceParallel ", readTimesliceParallel + write(6,*) " nlst%temporalPersistence ", temporalPersistence + write(6,*) " nlst%persistBias ", persistBias + write(6,*) " nlst%biasWindowBeforeT0 ", biasWindowBeforeT0 + write(6,*) " nlst%nudgingLastObsFile ", trim(nudgingLastObsFile) + write(6,*) " timeSlicePath ", trim(timeSlicePath) + write(6,*) " nLastObs ", nLastObs + write(6,*) " minNumPairsBiasPersist ", minNumPairsBiasPersist + write(6,*) " maxAgePairsBiasPersist ", maxAgePairsBiasPersist + write(6,*) " invDistTimeWeightBias ", invDistTimeWeightBias + write(6,*) " noConstInterfBias ", noConstInterfBias #endif #endif /* HYDRO_D */ #ifdef MPP_LAND @@ -398,6 +486,15 @@ subroutine read_rt_nlst(nlst) call mpp_land_bcast_real1(nlst%dt) #endif +! LRK - Add checking subroutine for hydro.namelist options +#ifdef MPP_LAND + if(IO_id .eq. my_id) then +#endif + call rt_nlst_check(nlst) +#ifdef MPP_LAND + endif +#endif + ! derive rtFlag nlst%rtFlag = 1 if(channel_option .eq. 4) nlst%rtFlag = 0 @@ -406,5 +503,210 @@ subroutine read_rt_nlst(nlst) return end subroutine read_rt_nlst +subroutine rt_nlst_check(nlst) + ! Subroutine to check namelist options specified by the user. + implicit none + + type(namelist_rt_field) nlst + + ! Local variables + logical :: fileExists = .false. + integer :: i + + ! Go through and make some logical checks for each hydro.namelist option. + ! Some of these checks will depend on specific options chosen by the user. + + if( (nlst%sys_cpl .lt. 1) .or. (nlst%sys_cpl .gt. 4) ) then + call hydro_stop("hydro.namelist ERROR: Invalid sys_cpl value specified.") + endif + if(len(trim(nlst%geo_static_flnm)) .eq. 0) then + call hydro_stop("hydro.namelist ERROR: Please specify a GEO_STATIC_FLNM file.") + else + inquire(file=trim(nlst%geo_static_flnm),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: GEO_STATIC_FLNM not found.') + endif + if(len(trim(nlst%geo_finegrid_flnm)) .eq. 0) then + call hydro_stop("hydro.namelist ERROR: Please specify a GEO_FINEGRID_FLNM file.") + else + inquire(file=trim(nlst%geo_finegrid_flnm),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: GEO_FINEGRID_FLNM not found.') + endif + !if(len(trim(nlst%land_spatial_meta_flnm)) .eq. 0) then + ! call hydro_stop("hydro.namelist ERROR: Please specify a LAND_SPATIAL_META_FLNM file.") + !else + ! inquire(file=trim(nlst%land_spatial_meta_flnm),exist=fileExists) + ! if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: LAND_SPATIAL_META_FLNM not found.') + !endif + if(len(trim(nlst%RESTART_FILE)) .ne. 0) then + inquire(file=trim(nlst%RESTART_FILE),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR:= Hydro RESTART_FILE not found.') + endif + if(nlst%igrid .le. 0) call hydro_stop('hydro.namelist ERROR: Invalid IGRID specified.') + if(nlst%out_dt .le. 0) call hydro_stop('hydro_namelist ERROR: Invalid out_dt specified.') + if( (nlst%split_output_count .lt. 0 ) .or. (nlst%split_output_count .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid SPLIT_OUTPUT_COUNT specified') + endif + if( (nlst%rst_typ .lt. 0 ) .or. (nlst%rst_typ .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid rst_typ specified') + endif + if( (nlst%rst_bi_in .lt. 0 ) .or. (nlst%rst_bi_in .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid rst_bi_in specified') + endif + if( (nlst%rst_bi_out .lt. 0 ) .or. (nlst%rst_bi_out .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid rst_bi_out specified') + endif + if( (nlst%RSTRT_SWC .lt. 0 ) .or. (nlst%RSTRT_SWC .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid RSTRT_SWC specified') + endif + if( (nlst%GW_RESTART .lt. 0 ) .or. (nlst%GW_RESTART .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid GW_RESTART specified') + endif + if( (nlst%order_to_write .lt. 1 ) .or. (nlst%order_to_write .gt. 12) ) then + call hydro_stop('hydro.namelist ERROR: Invalid order_to_write specified') + endif + if( (nlst%io_form_outputs .lt. 0 ) .or. (nlst%io_form_outputs .gt. 4) ) then + call hydro_stop('hydro.namelist ERROR: Invalid io_form_outputs specified') + endif + if( (nlst%io_config_outputs .lt. 0 ) .or. (nlst%io_config_outputs .gt. 6) ) then + call hydro_stop('hydro.namelist ERROR: Invalid io_config_outputs specified') + endif + if( (nlst%t0OutputFlag .lt. 0 ) .or. (nlst%t0OutputFlag .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid t0OutputFlag specified') + endif + if( (nlst%output_channelBucket_influx .lt. 0 ) .or. (nlst%output_channelBucket_influx .gt. 3) ) then + call hydro_stop('hydro.namelist ERROR: Invalid output_channelBucket_influx specified') + endif + if( (nlst%CHRTOUT_DOMAIN .lt. 0 ) .or. (nlst%CHRTOUT_DOMAIN .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid CHRTOUT_DOMAIN specified') + endif + if( (nlst%CHANOBS_DOMAIN .lt. 0 ) .or. (nlst%CHANOBS_DOMAIN .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid CHANOBS_DOMAIN specified') + endif + if( (nlst%CHRTOUT_GRID .lt. 0 ) .or. (nlst%CHRTOUT_GRID .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid CHRTOUT_GRID specified') + endif + if( (nlst%LSMOUT_DOMAIN .lt. 0 ) .or. (nlst%LSMOUT_DOMAIN .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid LSMOUT_DOMAIN specified') + endif + if( (nlst%RTOUT_DOMAIN .lt. 0 ) .or. (nlst%RTOUT_DOMAIN .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid RTOUT_DOMAIN specified') + endif + if( (nlst%output_gw .lt. 0 ) .or. (nlst%output_gw .gt. 2) ) then + call hydro_stop('hydro.namelist ERROR: Invalid output_gw specified') + endif + if( (nlst%outlake .lt. 0 ) .or. (nlst%outlake .gt. 2) ) then + call hydro_stop('hydro.namelist ERROR: Invalid outlake specified') + endif + if( (nlst%frxst_pts_out .lt. 0 ) .or. (nlst%frxst_pts_out .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid frxst_pts_out specified') + endif + if(nlst%TERADJ_SOLAR .ne. 0) then + call hydro_stop('hydro.namelist ERROR: Invalid TERADJ_SOLAR specified') + endif + if(nlst%NSOIL .le. 0) then + call hydro_stop('hydro.namelist ERROR: Invalid NSOIL specified.') + endif + do i = 1,nlst%NSOIL + if(nlst%ZSOIL8(i) .gt. 0) then + call hydro_stop('hydro.namelist ERROR: Invalid ZSOIL layer depth specified.') + endif + if(i .gt. 1) then + if(nlst%ZSOIL8(i) .ge. nlst%ZSOIL8(i-1)) then + call hydro_stop('hydro.namelist ERROR: Invalid ZSOIL layer depth specified.') + endif + endif + end do + if(nlst%dxrt0 .le. 0) then + call hydro_stop('hydro.namelist ERROR: Invalid DXRT specified.') + endif + if(nlst%AGGFACTRT .le. 0) then + call hydro_stop('hydro.namelist ERROR: Invalid AGGFACTRT specified.') + endif + if(nlst%DTRT_CH .le. 0) then + call hydro_stop('hydro.namelist ERROR: Invalid DTRT_CH specified.') + endif + if(nlst%DTRT_TER .le. 0) then + call hydro_stop('hydro.namelist ERROR: Invalid DTRT_TER specified.') + endif + if( (nlst%SUBRTSWCRT .lt. 0 ) .or. (nlst%SUBRTSWCRT .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid SUBRTSWCRT specified') + endif + if( (nlst%OVRTSWCRT .lt. 0 ) .or. (nlst%OVRTSWCRT .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid OVRTSWCRT specified') + endif + if( (nlst%OVRTSWCRT .eq. 1 ) .or. (nlst%SUBRTSWCRT .eq. 1) ) then + if( (nlst%rt_option .lt. 1 ) .or. (nlst%rt_option .gt. 2) ) then + !if(nlst%rt_option .ne. 1) then + call hydro_stop('hydro.namelist ERROR: Invalid rt_option specified') + endif + endif + if( (nlst%CHANRTSWCRT .lt. 0 ) .or. (nlst%CHANRTSWCRT .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid CHANRTSWCRT specified') + endif + if(nlst%CHANRTSWCRT .eq. 1) then + if( (nlst%channel_option .lt. 1 ) .or. (nlst%channel_option .gt. 3) ) then + call hydro_stop('hydro.namelist ERROR: Invalid channel_option specified') + endif + endif + if( (nlst%CHANRTSWCRT .eq. 1) .and. (nlst%channel_option .lt. 3) ) then + if(len(trim(nlst%route_link_f)) .eq. 0) then + call hydro_stop("hydro.namelist ERROR: Please specify a route_link_f file.") + else + inquire(file=trim(nlst%route_link_f),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: route_link_f not found.') + endif + endif + if( (nlst%GWBASESWCRT .lt. 0 ) .or. (nlst%GWBASESWCRT .gt. 2) ) then + call hydro_stop('hydro.namelist ERROR: Invalid GWBASESWCRT specified') + endif + if(nlst%GWBASESWCRT .eq. 1) then + if(len(trim(nlst%GWBUCKPARM_file)) .eq. 0) then + call hydro_stop("hydro.namelist ERROR: Please specify a GWBUCKPARM_file file.") + else + inquire(file=trim(nlst%GWBUCKPARM_file),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: GWBUCKPARM_file not found.') + endif + endif + if( (nlst%GWBASESWCRT .gt. 0) .and. (nlst%UDMP_OPT .ne. 1) ) then + if(len(trim(nlst%gwbasmskfil)) .eq. 0) then + call hydro_stop("hydro.namelist ERROR: Please specify a gwbasmskfil file.") + else + inquire(file=trim(nlst%gwbasmskfil),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: gwbasmskfil not found.') + endif + endif + if( (nlst%UDMP_OPT .lt. 0 ) .or. (nlst%UDMP_OPT .gt. 1) ) then + call hydro_stop('hydro.namelist ERROR: Invalid UDMP_OPT specified') + endif + if(nlst%UDMP_OPT .gt. 0) then + if(len(trim(nlst%udmap_file)) .eq. 0) then + call hydro_stop("hydro.namelist ERROR: Please specify a udmap_file file.") + else + inquire(file=trim(nlst%udmap_file),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: udmap_file not found.') + endif + endif + if( (nlst%UDMP_OPT .eq. 1) .and. (nlst%CHANRTSWCRT .eq. 0) ) then + call hydro_stop('hydro.namelist ERROR: User-defined mapping requires channel routing on.') + endif + if(nlst%outlake .ne. 0) then + if(len(trim(nlst%route_lake_f)) .eq. 0) then + call hydro_stop('hydro.namelist ERROR: You MUST specify a route_lake_f to ouptut and run lakes.') + endif + endif + if(len(trim(nlst%route_lake_f)) .ne. 0) then + inquire(file=trim(nlst%route_lake_f),exist=fileExists) + if (.not. fileExists) call hydro_stop('hydro.namelist ERROR: route_lake_f not found.') + endif + ! Only allow lakes to be ran with gridded routing or NWM routing + if(len(trim(nlst%route_lake_f)) .ne. 0) then + if(nlst%channel_option .ne. 3) then + if(nlst%UDMP_OPT .ne. 1) then + call hydro_stop('hydro.namelist ERROR: Currently lakes only work with gridded channel routing or UDMP=1. Please change your namelist settings.') + endif + endif + endif + +end subroutine rt_nlst_check end module module_namelist diff --git a/hydro/Data_Rec/namelist.inc b/hydro/Data_Rec/namelist.inc index f7ba7c5f27..a80af2fba2 100644 --- a/hydro/Data_Rec/namelist.inc +++ b/hydro/Data_Rec/namelist.inc @@ -2,7 +2,8 @@ integer :: nsoil, SOLVEG_INITSWC real,allocatable,dimension(:) :: ZSOIL8 - real out_dt, rst_dt, dt + real*8 :: out_dt, rst_dt + real :: dt !! dt is NOAH_TIMESTEP integer :: START_YEAR, START_MONTH, START_DAY, START_HOUR, START_MIN character(len=256) :: restart_file = "" integer :: split_output_count @@ -11,9 +12,11 @@ integer :: rst_bi_out ! used for parallel io with large restart file. ! each process will output the restart tile. character(len=256) :: geo_static_flnm = "" + character(len=1024) :: land_spatial_meta_flnm = "" integer :: DEEPGWSPIN integer :: order_to_write, rst_typ character(len=256) :: upmap_file = "" ! user defined mapping file for NHDPLUS + character(len=256) :: hydrotbl_f = "" ! hydrotbl file ! additional character character :: hgrid @@ -21,8 +24,11 @@ character(len=19) :: startdate="123456" character(len=19) :: sincedate="123456" - integer :: iocflag ! used for NCEP REALTIME OUTPUT - + integer :: io_config_outputs ! used for NCEP REALTIME OUTPUT + integer :: io_form_outputs ! Flag to turn specify level of internal compression + integer :: t0OutputFlag + integer :: channel_only, channelBucket_only + integer :: output_channelBucket_influx ! used for FORCE_TYPE 9 and 10 integer:: RT_OPTION, CHANRTSWCRT, channel_option, & SUBRTSWCRT,OVRTSWCRT,AGGFACTRT, & @@ -46,19 +52,29 @@ integer ::frxst_pts_out ! ASCII point timeseries output at user specified points integer ::CHRTOUT_DOMAIN ! Netcdf point timeseries output at all channel points integer ::CHRTOUT_GRID ! Netcdf grid of channel streamflow values + integer ::CHANOBS_DOMAIN ! NetCDF point timeseries of output at forecast/gage points integer ::LSMOUT_DOMAIN ! Netcdf grid of variables passed between LSM and routing components integer ::RTOUT_DOMAIN ! Netcdf grid of terrain routing variables on routing grid integer ::output_gw ! Netcdf grid of GW integer ::outlake ! Netcdf grid of lake integer :: rtFlag + integer ::khour -#ifdef WRF_HYDRO_NUDGING +!#ifdef WRF_HYDRO_NUDGING character(len=256) :: nudgingParamFile character(len=256) :: netwkReExFile logical :: readTimesliceParallel logical :: temporalPersistence + logical :: persistBias + logical :: biasWindowBeforeT0 character(len=256) :: nudgingLastObsFile -#endif + integer :: minNumPairsBiasPersist + integer :: maxAgePairsBiasPersist + logical :: invDistTimeWeightBias + logical :: noConstInterfBias + character(len=256) :: timeSlicePath + integer :: nLastObs +!#endif END TYPE namelist_rt_field diff --git a/hydro/Data_Rec/rt_include.inc b/hydro/Data_Rec/rt_include.inc index dbc1e8535e..6b0285fc02 100644 --- a/hydro/Data_Rec/rt_include.inc +++ b/hydro/Data_Rec/rt_include.inc @@ -20,6 +20,10 @@ INTEGER :: GNLINKSL, linklsS, linklsE , nlinksize !## for reach based channel routing + INTEGER :: iswater !id for water in vegtyp + INTEGER :: isurban !id for urban in vegtyp + INTEGER :: isoilwater !id for water in soiltyp + !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !DJG VARIABLES FOR ROUTING INTEGER, allocatable, DIMENSION(:,:) :: CH_NETRT !-- keeps track of the 0-1 channel network @@ -115,6 +119,7 @@ REAL, allocatable, DIMENSION(:) :: So !link slope REAL, allocatable, DIMENSION(:) :: ChSSlp, Bw !trapezoid link params REAL, allocatable, DIMENSION(:,:) :: QLINK !flow in link + integer, allocatable, DIMENSION(:) :: ascendIndex !sorting of routelink #ifdef WRF_HYDRO_NUDGING REAL, allocatable, DIMENSION(:) :: nudge !difference between modeled and DA adj link flow #endif @@ -137,7 +142,9 @@ INTEGER, allocatable, DIMENSION(:) :: LAKEIDX ! integer index for lakes, mapped to linkid !!! accumulated variables for reach beased rt - REAL, allocatable, DIMENSION(:) :: accLndRunOff, accQLateral, accStrmvolrt, accBucket + Real*8, allocatable, DIMENSION(:) :: accSfcLatRunoff, accBucket + REAL , allocatable, DIMENSION(:) :: qSfcLatRunoff, qBucket, qBtmVertRunoff + REAL, allocatable, DIMENSION(:) :: accLndRunOff, accQLateral, accStrmvolrt !REAL, allocatable, DIMENSION(:) :: qqLndRunOff, qqStrmvolrt, qqBucket REAL, allocatable, DIMENSION(:) :: QLateral, velocity @@ -159,7 +166,7 @@ REAL, allocatable, DIMENSION(:,:) :: INFXSAGGRT REAL, allocatable, DIMENSION(:,:) :: DHRT,QSTRMVOLRT,QBDRYRT,LAKE_INFLORT REAL, allocatable, DIMENSION(:,:) :: QSTRMVOLRT_TS,LAKE_INFLORT_TS - REAL, allocatable, DIMENSION(:,:) :: QSTRMVOLRT_DUM,LAKE_INFLORT_DUM + REAL, allocatable, DIMENSION(:,:) :: QSTRMVOLRT_ACC, LAKE_INFLORT_DUM REAL, allocatable, DIMENSION(:,:) :: INFXSWGT, ywtmp REAL, allocatable, DIMENSION(:) :: SMCAGGRT,STCAGGRT,SH2OAGGRT REAL :: INFXSAGG1RT,SFCHEADAGG1RT,SFCHEADAGGRT @@ -203,6 +210,7 @@ REAL, allocatable, DIMENSION(:,:,:) :: SMC,STC,SH2OX REAL, allocatable, DIMENSION(:,:) :: SMCMAX1,SMCWLT1,SMCREF1 INTEGER, allocatable, DIMENSION(:,:) :: VEGTYP + REAL, allocatable, DIMENSION(:,:) :: OV_ROUGH2d REAL, allocatable, DIMENSION(:) :: SLDPTH !!! define constant/parameter diff --git a/hydro/Doc/link_to_documentation.txt b/hydro/Doc/link_to_documentation.txt new file mode 100644 index 0000000000..0b7395fbc8 --- /dev/null +++ b/hydro/Doc/link_to_documentation.txt @@ -0,0 +1,2 @@ +A technical description and user's guide can be found at: +https://ral.ucar.edu/projects/wrf_hydro diff --git a/hydro/HYDRO_drv/module_HYDRO_drv.F b/hydro/HYDRO_drv/module_HYDRO_drv.F index 15b4334790..755c3f765e 100644 --- a/hydro/HYDRO_drv/module_HYDRO_drv.F +++ b/hydro/HYDRO_drv/module_HYDRO_drv.F @@ -21,13 +21,17 @@ module module_HYDRO_drv #ifdef MPP_LAND use module_HYDRO_io, only: output_rt, mpp_output_chrt, mpp_output_lakes, mpp_output_chrtgrd, & - restart_out_bi, restart_in_bi, mpp_output_chrt2, mpp_output_lakes2 + restart_out_bi, restart_in_bi, mpp_output_chrt2, mpp_output_lakes2, & + hdtbl_in_nc, hdtbl_out USE module_mpp_land #else use module_HYDRO_io, only: output_rt, output_chrt, output_chrt2, output_lakes #endif + use module_NWM_io, only: output_chrt_NWM, output_rt_NWM, output_lakes_NWM,& + output_chrtout_grd_NWM, output_lsmOut_NWM, & + output_frxstPts, output_chanObs_NWM, output_gw_NWM use module_HYDRO_io, only: sub_output_gw, restart_out_nc, restart_in_nc, & - get_file_dimension ,get2d_lsm_real, get2d_lsm_vegtyp, get2d_lsm_soltyp, & + get_file_dimension , get_file_globalatts, get2d_lsm_real, get2d_lsm_vegtyp, get2d_lsm_soltyp, & output_lsm, output_GW_Diag use module_HYDRO_io, only : output_lakes2 use module_rt_data, only: rt_domain @@ -45,9 +49,12 @@ module module_HYDRO_drv #endif use module_UDMAP, only: get_basn_area_nhd - + use netcdf + implicit none +#include + #ifdef HYDRO_D real :: timeOr = 0 real :: timeSr = 0 @@ -57,8 +64,12 @@ module module_HYDRO_drv integer :: clock_count_2 = 0 integer :: clock_rate = 0 #endif + integer :: rtout_factor - + integer, parameter :: r4 = selected_real_kind(4) + real, parameter :: zeroFlt=0.0000000000000000000_r4 + integer, parameter :: r8 = selected_real_kind(8) + real*8, parameter :: zeroDbl=0.0000000000000000000_r8 contains subroutine HYDRO_rst_out(did) @@ -88,13 +99,18 @@ subroutine HYDRO_rst_out(did) ! restart every month automatically. if ( (nlst_rt(did)%olddate(9:10) == "01") .and. (nlst_rt(did)%olddate(12:13) == "00") .and. & (nlst_rt(did)%olddate(15:16) == "00").and. (nlst_rt(did)%olddate(18:19) == "00") .and. & - (nlst_rt(did)%rst_dt .le. 0) ) rst_out = 99 + (nlst_rt(did)%rst_dt .le. 0) ) then + if(nlst_rt(did)%startdate(1:16) .ne. nlst_rt(did)%olddate(1:16) ) then + rst_out = 99 + endif + endif #ifdef MPP_LAND endif call mpp_land_bcast_int1(rst_out) #endif if(rst_out .gt. 0) then + write(6,*) "yw check output restart at ",nlst_rt(did)%olddate(1:16) #ifdef MPP_LAND if(nlst_rt(did)%rst_bi_out .eq. 1) then if(my_id .lt. 10) then @@ -122,21 +138,22 @@ subroutine HYDRO_rst_out(did) #endif #ifdef WRF_HYDRO_NUDGING - call output_nudging_last_obs !! only does something if temporalPersistence==TRUE + call output_nudging_last_obs #endif endif end subroutine HYDRO_rst_out - subroutine HYDRO_out(did) + subroutine HYDRO_out(did, rstflag) implicit none - integer did, outflag, rtflag + integer did, outflag, rtflag, iniflag + integer rstflag character(len=19) out_date integer :: Kt, ounit, i real, dimension(RT_DOMAIN(did)%NLINKS,2) :: str_out - real, dimension(RT_DOMAIN(did)%NLINKS) :: vel_out + real, dimension(RT_DOMAIN(did)%NLINKS) :: vel_out ! real, dimension(RT_DOMAIN(did)%ix,RT_DOMAIN(did)%jx):: soilmx_tmp, & ! runoff1x_tmp, runoff2x_tmp, runoff3x_tmp,etax_tmp, & @@ -180,7 +197,7 @@ subroutine HYDRO_out(did) call mpp_land_bcast_int1(outflag) #endif - call HYDRO_rst_out(did) + if (rstflag .eq. 1) call HYDRO_rst_out(did) if (outflag .lt. 0) return @@ -196,71 +213,106 @@ subroutine HYDRO_out(did) ! jump the ouput for the initial time when it has restart file from routing. rtflag = -99 + iniflag = -99 #ifdef MPP_LAND if(IO_id .eq. my_id) then #endif - if ( (trim(nlst_rt(did)%restart_file) /= "") .and. ( nlst_rt(did)%startdate(1:19) == nlst_rt(did)%olddate(1:19) ) ) then -#ifndef NCEP_WCOSS - print*, "yyyywww restart_file = ", trim(nlst_rt(did)%restart_file) -#else - write(78,*) "yyyywww restart_file = ", trim(nlst_rt(did)%restart_file) -#endif - rtflag = 1 - endif +! if ( (trim(nlst_rt(did)%restart_file) /= "") .and. ( nlst_rt(did)%startdate(1:19) == nlst_rt(did)%olddate(1:19) ) ) then +!#ifndef NCEP_WCOSS +! print*, "yyyywww restart_file = ", trim(nlst_rt(did)%restart_file) +!#else +! write(78,*) "yyyywww restart_file = ", trim(nlst_rt(did)%restart_file) +!#endif + if ( nlst_rt(did)%startdate(1:19) == nlst_rt(did)%olddate(1:19) ) iniflag = 1 + if ( (trim(nlst_rt(did)%restart_file) /= "") .and. ( nlst_rt(did)%startdate(1:19) == nlst_rt(did)%olddate(1:19) ) ) rtflag = 1 +! endif #ifdef MPP_LAND endif call mpp_land_bcast_int1(rtflag) + call mpp_land_bcast_int1(iniflag) #endif !yw keep the initial time otuput for debug if(rtflag == 1) then rt_domain(did)%restQSTRM = .false. !!! do not reset QSTRM.. at initial time. -#ifndef HYDRO_REALTIME - return ! jump the initial time output for routing restart -#endif + if(nlst_rt(did)%t0OutputFlag .eq. 0) return endif + if (iniflag == 1) then + if(nlst_rt(did)%t0OutputFlag .eq. 0) return + endif - if(nlst_rt(did)%LSMOUT_DOMAIN .eq. 1) & - call output_lsm(trim(nlst_rt(did)%olddate(1:4)//nlst_rt(did)%olddate(6:7)//nlst_rt(did)%olddate(9:10) & - //nlst_rt(did)%olddate(12:13)//nlst_rt(did)%olddate(15:16)// & - ".LSMOUT_DOMAIN"//trim(nlst_rt(did)%hgrid)), & - did) + if(nlst_rt(did)%LSMOUT_DOMAIN .eq. 1) then + if(nlst_rt(did)%io_form_outputs .eq. 0) then + call output_lsm(trim(nlst_rt(did)%olddate(1:4)//nlst_rt(did)%olddate(6:7)//nlst_rt(did)%olddate(9:10) & + //nlst_rt(did)%olddate(12:13)//nlst_rt(did)%olddate(15:16)// & + ".LSMOUT_DOMAIN"//trim(nlst_rt(did)%hgrid)), & + did) + else + call output_lsmOut_NWM(did) + endif + endif +if(nlst_rt(did)%SUBRTSWCRT .gt. 0 .or. & + nlst_rt(did)%OVRTSWCRT .gt. 0 .or. & + nlst_rt(did)%GWBASESWCRT .gt. 0 .or. & + nlst_rt(did)%channel_only .gt. 0 .or. & + nlst_rt(did)%channelBucket_only .gt. 0 ) then + - if(nlst_rt(did)%SUBRTSWCRT .gt. 0 & - .or. nlst_rt(did)%OVRTSWCRT .gt. 0 & - .or. nlst_rt(did)%GWBASESWCRT .gt. 0 ) then - - - - if(nlst_rt(did)%RTOUT_DOMAIN .eq. 1) & - call output_rt( & - nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & - RT_DOMAIN(did)%ixrt, RT_DOMAIN(did)%jxrt, & - nlst_rt(did)%nsoil, & -! nlst_rt(did)%startdate, nlst_rt(did)%olddate, RT_DOMAIN(did)%QSUBRT,& - nlst_rt(did)%sincedate, nlst_rt(did)%olddate, RT_DOMAIN(did)%QSUBRT,& - RT_DOMAIN(did)%ZWATTABLRT,RT_DOMAIN(did)%SMCRT,& - RT_DOMAIN(did)%SUB_RESID, & - RT_DOMAIN(did)%q_sfcflx_x,RT_DOMAIN(did)%q_sfcflx_y,& - RT_DOMAIN(did)%soxrt,RT_DOMAIN(did)%soyrt,& - RT_DOMAIN(did)%QSTRMVOLRT,RT_DOMAIN(did)%SFCHEADSUBRT, & - nlst_rt(did)%geo_finegrid_flnm,nlst_rt(did)%DT,& - RT_DOMAIN(did)%SLDPTH,RT_DOMAIN(did)%LATVAL,& - RT_DOMAIN(did)%LONVAL,RT_DOMAIN(did)%dist,nlst_rt(did)%RTOUT_DOMAIN,& - RT_DOMAIN(did)%QBDRYRT & -#ifdef HYDRO_REALTIME - , nlst_rt(did)%iocflag & -#endif - ) - - + if(nlst_rt(did)%RTOUT_DOMAIN .eq. 1 .and. & + nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + if(mod(rtout_factor,3) .eq. 0 .or. nlst_rt(did)%io_config_outputs .ne. 5) then + ! Output gridded routing variables on National Water Model + ! high-res routing grid + if(nlst_rt(did)%io_form_outputs .ne. 0) then + call output_rt_NWM(did,nlst_rt(did)%igrid) + else + call output_rt( & + nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & + RT_DOMAIN(did)%ixrt, RT_DOMAIN(did)%jxrt, & + nlst_rt(did)%nsoil, & + ! nlst_rt(did)%startdate, nlst_rt(did)%olddate, + ! RT_DOMAIN(did)%QSUBRT,& + nlst_rt(did)%sincedate, nlst_rt(did)%olddate, RT_DOMAIN(did)%QSUBRT,& + RT_DOMAIN(did)%ZWATTABLRT,RT_DOMAIN(did)%SMCRT,& + RT_DOMAIN(did)%SUB_RESID, & + RT_DOMAIN(did)%q_sfcflx_x,RT_DOMAIN(did)%q_sfcflx_y,& + RT_DOMAIN(did)%soxrt,RT_DOMAIN(did)%soyrt,& + RT_DOMAIN(did)%QSTRMVOLRT_ACC,RT_DOMAIN(did)%SFCHEADSUBRT, & + nlst_rt(did)%geo_finegrid_flnm,nlst_rt(did)%DT,& + RT_DOMAIN(did)%SLDPTH,RT_DOMAIN(did)%LATVAL,& + RT_DOMAIN(did)%LONVAL,RT_DOMAIN(did)%dist,nlst_rt(did)%RTOUT_DOMAIN,& + RT_DOMAIN(did)%QBDRYRT, & + nlst_rt(did)%io_config_outputs & + ) + endif ! End check for io_form_outputs value + endif ! End check for rtout_factor + rtout_factor = rtout_factor + 1 + endif + !! JLM disable GW output for NWM. Bring this line back when runtime output options avail. + !! JLM This seems like a more logical place? + if(nlst_rt(did)%io_form_outputs .ne. 0) then + if(nlst_rt(did)%GWBASESWCRT .ne. 0) then + if(nlst_rt(did)%channel_only .eq. 0) then + if(nlst_rt(did)%output_gw .ne. 0) then + call output_gw_NWM(did,nlst_rt(did)%igrid) + endif + endif + endif + else + if(nlst_rt(did)%GWBASESWCRT .eq. 1) then + if(nlst_rt(did)%channel_only .eq. 0) then + if(nlst_rt(did)%output_gw .eq. 1) call output_GW_Diag(did) + endif + end if + endif - if(nlst_rt(did)%GWBASESWCRT .eq. 3) then + if(nlst_rt(did)%GWBASESWCRT .eq. 3) then if(nlst_rt(did)%output_gw .eq. 1) & call sub_output_gw( & @@ -295,116 +347,143 @@ subroutine HYDRO_out(did) str_out = RT_DOMAIN(did)%QLINK vel_out = RT_DOMAIN(did)%velocity -#ifdef HYDRO_REALTIME if (RT_DOMAIN(did)%NLAKES .gt. 0) then do i=1,RT_DOMAIN(did)%NLINKS if (RT_DOMAIN(did)%TYPEL(i) .eq. 2) then - str_out(i,1) = -9.E15 + str_out(i,1) = -9.E15 vel_out(i) = -9.E15 endif end do endif -#endif !ADCHANGE: End - if(nlst_rt(did)%CHRTOUT_DOMAIN .eq. 1) then -#ifdef MPP_LAND - call mpp_output_chrt(rt_domain(did)%gnlinks,rt_domain(did)%gnlinksl,rt_domain(did)%map_l2g, & -#else - call output_chrt( & -#endif - nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & - RT_DOMAIN(did)%NLINKS,RT_DOMAIN(did)%ORDER, & - nlst_rt(did)%sincedate,nlst_rt(did)%olddate,RT_DOMAIN(did)%CHLON,& - RT_DOMAIN(did)%CHLAT, & - RT_DOMAIN(did)%HLINK, RT_DOMAIN(did)%ZELEV, & - !RT_DOMAIN(did)%QLINK,nlst_rt(did)%DT,Kt, & - str_out, nlst_rt(did)%DT,Kt, & - RT_DOMAIN(did)%STRMFRXSTPTS,nlst_rt(did)%order_to_write, & - RT_DOMAIN(did)%NLINKSL,nlst_rt(did)%channel_option, & - rt_domain(did)%gages, rt_domain(did)%gageMiss, & - nlst_rt(did)%dt & -#ifdef WRF_HYDRO_NUDGING - , RT_DOMAIN(did)%nudge & -#endif - , RT_DOMAIN(did)%accLndRunOff, RT_DOMAIN(did)%accQLateral, & - RT_DOMAIN(did)%accStrmvolrt, & - RT_DOMAIN(did)%accBucket, nlst_rt(did)%UDMP_OPT & - ) - else - if(nlst_rt(did)%CHRTOUT_DOMAIN .eq. 2) then + if(nlst_rt(did)%io_form_outputs .ne. 0) then + ! Call National Water Model output routine for output on NHD forecast points. + if(nlst_rt(did)%CHRTOUT_DOMAIN .ne. 0) then + call output_chrt_NWM(did) + endif + ! Call the subroutine to output frxstPts. + if(nlst_rt(did)%frxst_pts_out .ne. 0) then + call output_frxstPts(did) + endif + ! Call the subroutine to output CHANOBS + if(nlst_rt(did)%CHANOBS_DOMAIN .ne. 0) then + call output_chanObs_NWM(did) + endif + else + ! Call traditional output routines +!ADCHANGE: We suspect this routine is broken so default is now output_chrtout2 +! if(nlst_rt(did)%CHRTOUT_DOMAIN .eq. 1) then +!#ifdef MPP_LAND +! call mpp_output_chrt( & +! rt_domain(did)%gnlinks,rt_domain(did)%gnlinksl,rt_domain(did)%map_l2g, & +!#else +! call output_chrt( & +!#endif +! nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & +! RT_DOMAIN(did)%NLINKS,RT_DOMAIN(did)%ORDER, & +! nlst_rt(did)%sincedate,nlst_rt(did)%olddate,RT_DOMAIN(did)%CHLON,& +! RT_DOMAIN(did)%CHLAT, & +! RT_DOMAIN(did)%HLINK, RT_DOMAIN(did)%ZELEV, & +! !RT_DOMAIN(did)%QLINK,nlst_rt(did)%DT,Kt, & +! str_out, nlst_rt(did)%DT,Kt, & +! RT_DOMAIN(did)%STRMFRXSTPTS,nlst_rt(did)%order_to_write, & +! RT_DOMAIN(did)%NLINKSL,nlst_rt(did)%channel_option, & +! rt_domain(did)%gages, rt_domain(did)%gageMiss, & +! nlst_rt(did)%dt & +!#ifdef WRF_HYDRO_NUDGING +! , RT_DOMAIN(did)%nudge & +!#endif +! , RT_DOMAIN(did)%accSfcLatRunoff, RT_DOMAIN(did)%accBucket & +! , RT_DOMAIN(did)%qSfcLatRunoff, RT_DOMAIN(did)%qBucket & +! , RT_DOMAIN(did)%qin_gwsubbas & +! , nlst_rt(did)%UDMP_OPT & +! ) +! else + if(nlst_rt(did)%CHRTOUT_DOMAIN .gt. 0) then #ifdef MPP_LAND - call mpp_output_chrt2(rt_domain(did)%gnlinks,rt_domain(did)%gnlinksl,rt_domain(did)%map_l2g, & + call mpp_output_chrt2(& + rt_domain(did)%gnlinks,rt_domain(did)%gnlinksl,rt_domain(did)%map_l2g, & #else call output_chrt2( & #endif nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & - RT_DOMAIN(did)%NLINKS,RT_DOMAIN(did)%ORDER, & - nlst_rt(did)%sincedate,nlst_rt(did)%olddate,RT_DOMAIN(did)%CHLON,& - RT_DOMAIN(did)%CHLAT, & - RT_DOMAIN(did)%HLINK, RT_DOMAIN(did)%ZELEV, & - !RT_DOMAIN(did)%QLINK,nlst_rt(did)%DT,Kt, & - str_out, nlst_rt(did)%DT,Kt, & - RT_DOMAIN(did)%NLINKSL,nlst_rt(did)%channel_option, & - rt_domain(did)%linkid & + RT_DOMAIN(did)%NLINKS,RT_DOMAIN(did)%ORDER, & + nlst_rt(did)%sincedate,nlst_rt(did)%olddate, & + RT_DOMAIN(did)%CHLON, RT_DOMAIN(did)%CHLAT, & + RT_DOMAIN(did)%HLINK, RT_DOMAIN(did)%ZELEV, & + !RT_DOMAIN(did)%QLINK,nlst_rt(did)%DT,Kt, & + str_out, nlst_rt(did)%DT,Kt, & + RT_DOMAIN(did)%NLINKSL,nlst_rt(did)%channel_option, & + rt_domain(did)%linkid & #ifdef WRF_HYDRO_NUDGING - , RT_DOMAIN(did)%nudge & -#endif - !, RT_DOMAIN(did)%QLateral, nlst_rt(did)%iocflag, RT_DOMAIN(did)%velocity & - , RT_DOMAIN(did)%QLateral, nlst_rt(did)%iocflag, vel_out & - , RT_DOMAIN(did)%accLndRunOff, & - RT_DOMAIN(did)%accQLateral, & - RT_DOMAIN(did)%accStrmvolrt, & - RT_DOMAIN(did)%accBucket, & - nlst_rt(did)%UDMP_OPT & - ) + , RT_DOMAIN(did)%nudge & +#endif + !, RT_DOMAIN(did)%QLateral, nlst_rt(did)%io_config_outputs, + !RT_DOMAIN(did)%velocity & + , RT_DOMAIN(did)%QLateral, nlst_rt(did)%io_config_outputs, vel_out & + , RT_DOMAIN(did)%accSfcLatRunoff, RT_DOMAIN(did)%accBucket & + , RT_DOMAIN(did)%qSfcLatRunoff, RT_DOMAIN(did)%qBucket & + , RT_DOMAIN(did)%qin_gwsubbas, nlst_rt(did)%UDMP_OPT & + ) endif - endif - +! endif + endif ! End of checking for io_form_outputs flag value #ifdef MPP_LAND - if(nlst_rt(did)%CHRTOUT_GRID .eq. 1) & - call mpp_output_chrtgrd(nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & - RT_DOMAIN(did)%ixrt,RT_DOMAIN(did)%jxrt, RT_DOMAIN(did)%NLINKS, & - RT_DOMAIN(did)%GCH_NETLNK, & - nlst_rt(did)%startdate, nlst_rt(did)%olddate, & - !RT_DOMAIN(did)%qlink, nlst_rt(did)%dt, nlst_rt(did)%geo_finegrid_flnm, & - str_out, nlst_rt(did)%dt, nlst_rt(did)%geo_finegrid_flnm, & - RT_DOMAIN(did)%gnlinks,RT_DOMAIN(did)%map_l2g, & - RT_DOMAIN(did)%g_ixrt,RT_DOMAIN(did)%g_jxrt ) -#endif - + if(nlst_rt(did)%CHRTOUT_GRID .eq. 1) then + if(nlst_rt(did)%io_form_outputs .eq. 0) then + call mpp_output_chrtgrd(nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & + RT_DOMAIN(did)%ixrt,RT_DOMAIN(did)%jxrt, RT_DOMAIN(did)%NLINKS, & + RT_DOMAIN(did)%GCH_NETLNK, & + nlst_rt(did)%startdate, nlst_rt(did)%olddate, & + !RT_DOMAIN(did)%qlink, nlst_rt(did)%dt, nlst_rt(did)%geo_finegrid_flnm, & + str_out, nlst_rt(did)%dt, nlst_rt(did)%geo_finegrid_flnm, & + RT_DOMAIN(did)%gnlinks,RT_DOMAIN(did)%map_l2g, & + RT_DOMAIN(did)%g_ixrt,RT_DOMAIN(did)%g_jxrt ) +#endif + else + call output_chrtout_grd_NWM(did,nlst_rt(did)%igrid) + endif + endif if (RT_DOMAIN(did)%NLAKES.gt.0) then - if(nlst_rt(did)%outlake .eq. 1) then + if(nlst_rt(did)%io_form_outputs .ne. 0) then + ! Output lakes in NWM format + if(nlst_rt(did)%outlake .ne. 0) then + call output_lakes_NWM(did,nlst_rt(did)%igrid) + endif + else + if(nlst_rt(did)%outlake .eq. 1) then #ifdef MPP_LAND - call mpp_output_lakes( RT_DOMAIN(did)%lake_index, & + call mpp_output_lakes( RT_DOMAIN(did)%lake_index, & #else - call output_lakes( & -#endif - nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & - RT_DOMAIN(did)%NLAKES, & - trim(nlst_rt(did)%sincedate), trim(nlst_rt(did)%olddate), & - RT_DOMAIN(did)%LATLAKE,RT_DOMAIN(did)%LONLAKE, & - RT_DOMAIN(did)%ELEVLAKE,RT_DOMAIN(did)%QLAKEI, & - RT_DOMAIN(did)%QLAKEO, & - RT_DOMAIN(did)%RESHT,nlst_rt(did)%DT,Kt) - endif - if(nlst_rt(did)%outlake .eq. 2) then + call output_lakes( & +#endif + nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & + RT_DOMAIN(did)%NLAKES, & + trim(nlst_rt(did)%sincedate), trim(nlst_rt(did)%olddate), & + RT_DOMAIN(did)%LATLAKE,RT_DOMAIN(did)%LONLAKE, & + RT_DOMAIN(did)%ELEVLAKE,RT_DOMAIN(did)%QLAKEI, & + RT_DOMAIN(did)%QLAKEO, & + RT_DOMAIN(did)%RESHT,nlst_rt(did)%DT,Kt) + endif + if(nlst_rt(did)%outlake .eq. 2) then #ifdef MPP_LAND - call mpp_output_lakes2( RT_DOMAIN(did)%lake_index, & + call mpp_output_lakes2( RT_DOMAIN(did)%lake_index, & #else - call output_lakes2( & -#endif - nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & - RT_DOMAIN(did)%NLAKES, & - trim(nlst_rt(did)%sincedate), trim(nlst_rt(did)%olddate), & - RT_DOMAIN(did)%LATLAKE,RT_DOMAIN(did)%LONLAKE, & - RT_DOMAIN(did)%ELEVLAKE,RT_DOMAIN(did)%QLAKEI, & - RT_DOMAIN(did)%QLAKEO, & - RT_DOMAIN(did)%RESHT,nlst_rt(did)%DT,Kt,RT_DOMAIN(did)%LAKEIDM) - endif - + call output_lakes2( & +#endif + nlst_rt(did)%igrid, nlst_rt(did)%split_output_count, & + RT_DOMAIN(did)%NLAKES, & + trim(nlst_rt(did)%sincedate), trim(nlst_rt(did)%olddate), & + RT_DOMAIN(did)%LATLAKE,RT_DOMAIN(did)%LONLAKE, & + RT_DOMAIN(did)%ELEVLAKE,RT_DOMAIN(did)%QLAKEI, & + RT_DOMAIN(did)%QLAKEO, & + RT_DOMAIN(did)%RESHT,nlst_rt(did)%DT,Kt,RT_DOMAIN(did)%LAKEIDM) + endif + + endif ! end of check for io_form_outputs value endif ! end if block of rNLAKES .gt. 0 endif #ifdef HYDRO_D @@ -525,110 +604,127 @@ subroutine HYDRO_exe(did) - if (nlst_rt(did)%GWBASESWCRT .ne. 0 & - .or. nlst_rt(did)%SUBRTSWCRT .NE.0 & - .or. nlst_rt(did)%OVRTSWCRT .NE. 0 ) THEN +if (nlst_rt(did)%GWBASESWCRT .ne. 0 .or. & + nlst_rt(did)%SUBRTSWCRT .ne. 0 .or. & + nlst_rt(did)%OVRTSWCRT .ne. 0 .or. & + nlst_rt(did)%channel_only .ne. 0 .or. & + nlst_rt(did)%channelBucket_only .ne. 0 ) then + ! step 1) disaggregate specific fields from LSM to Hydro grid + if(nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) then - RT_DOMAIN(did)%QSTRMVOLRT_DUM = RT_DOMAIN(did)%QSTRMVOLRT - RT_DOMAIN(did)%LAKE_INFLORT_DUM = RT_DOMAIN(did)%LAKE_INFLORT - - - - ! step 1) disaggregate specific fields from LSM to Hydro grid - if(nlst_rt(did)%SUBRTSWCRT .NE.0 .or. nlst_rt(did)%OVRTSWCRT .NE. 0) then - call disaggregateDomain_drv(did) - endif - if(nlst_rt(did)%OVRTSWCRT .eq. 0) then - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call RunOffDisag(RT_DOMAIN(did)%INFXSRT, RT_DOMAIN(did)%landRunOff, & - rt_domain(did)%dist_lsm(:,:,9),RT_DOMAIN(did)%dist(:,:,9), & - RT_DOMAIN(did)%INFXSWGT, nlst_rt(did)%AGGFACTRT, RT_DOMAIN(did)%ix,RT_DOMAIN(did)%jx) - endif - endif + RT_DOMAIN(did)%QSTRMVOLRT = zeroFlt + RT_DOMAIN(did)%LAKE_INFLORT_DUM = RT_DOMAIN(did)%LAKE_INFLORT + if(nlst_rt(did)%SUBRTSWCRT .ne. 0 .or. nlst_rt(did)%OVRTSWCRT .ne. 0) then + call disaggregateDomain_drv(did) + endif + if(nlst_rt(did)%OVRTSWCRT .eq. 0) then + if(nlst_rt(did)%UDMP_OPT .eq. 1) then + call RunOffDisag(RT_DOMAIN(did)%INFXSRT, RT_DOMAIN(did)%landRunOff, & + rt_domain(did)%dist_lsm(:,:,9),RT_DOMAIN(did)%dist(:,:,9), & + RT_DOMAIN(did)%INFXSWGT, nlst_rt(did)%AGGFACTRT, RT_DOMAIN(did)%ix,RT_DOMAIN(did)%jx) + endif + endif #ifdef HYDRO_D - call system_clock(count=clock_count_1, count_rate=clock_rate) + call system_clock(count=clock_count_1, count_rate=clock_rate) #endif - ! step 2) - if(nlst_rt(did)%SUBRTSWCRT .NE.0) then - call SubsurfaceRouting_drv(did) - endif + endif !! channel_only & channelBucket_only == 0 + + + ! step 2) + if(nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) then + if(nlst_rt(did)%SUBRTSWCRT .ne.0) then + call SubsurfaceRouting_drv(did) + endif #ifdef HYDRO_D - call system_clock(count=clock_count_2, count_rate=clock_rate) - timeSr = timeSr + float(clock_count_2-clock_count_1)/float(clock_rate) + call system_clock(count=clock_count_2, count_rate=clock_rate) + timeSr = timeSr + float(clock_count_2-clock_count_1)/float(clock_rate) #ifndef NCEP_WCOSS - write(6,*) "Timing: Subsurface Routing accumulated time--", timeSr + write(6,*) "Timing: Subsurface Routing accumulated time--", timeSr #else - write(78,*) "Timing: Subsurface Routing accumulated time--", timeSr + write(78,*) "Timing: Subsurface Routing accumulated time--", timeSr #endif #endif - - ! step 3) todo split + end if !! channel_only & channelBucket_only == 0 + + + ! step 3) todo split + if(nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) then #ifdef HYDRO_D - call system_clock(count=clock_count_1, count_rate=clock_rate) + call system_clock(count=clock_count_1, count_rate=clock_rate) #endif - if(nlst_rt(did)%OVRTSWCRT .NE. 0) then - call OverlandRouting_drv(did) - else - RT_DOMAIN(did)%SFCHEADSUBRT = RT_DOMAIN(did)%INFXSUBRT - RT_DOMAIN(did)%INFXSUBRT = 0. - endif + if(nlst_rt(did)%OVRTSWCRT .ne. 0) then + call OverlandRouting_drv(did) + else + RT_DOMAIN(did)%SFCHEADSUBRT = RT_DOMAIN(did)%INFXSUBRT + RT_DOMAIN(did)%INFXSUBRT = 0. + endif #ifdef HYDRO_D - call system_clock(count=clock_count_2, count_rate=clock_rate) - timeOr = timeOr + float(clock_count_2-clock_count_1)/float(clock_rate) + call system_clock(count=clock_count_2, count_rate=clock_rate) + timeOr = timeOr + float(clock_count_2-clock_count_1)/float(clock_rate) #ifndef NCEP_WCOSS - write(6,*) "Timing: Overland Routing accumulated time--", timeOr + write(6,*) "Timing: Overland Routing accumulated time--", timeOr #else - write(78,*) "Timing: Overland Routing accumulated time--", timeOr + write(78,*) "Timing: Overland Routing accumulated time--", timeOr #endif #endif - RT_DOMAIN(did)%QSTRMVOLRT_TS = RT_DOMAIN(did)%QSTRMVOLRT-RT_DOMAIN(did)%QSTRMVOLRT_DUM - RT_DOMAIN(did)%LAKE_INFLORT_TS = RT_DOMAIN(did)%LAKE_INFLORT-RT_DOMAIN(did)%LAKE_INFLORT_DUM - + RT_DOMAIN(did)%QSTRMVOLRT_TS = RT_DOMAIN(did)%QSTRMVOLRT + RT_DOMAIN(did)%QSTRMVOLRT_ACC = RT_DOMAIN(did)%QSTRMVOLRT_ACC + RT_DOMAIN(did)%QSTRMVOLRT_TS + + RT_DOMAIN(did)%LAKE_INFLORT_TS = RT_DOMAIN(did)%LAKE_INFLORT-RT_DOMAIN(did)%LAKE_INFLORT_DUM #ifdef HYDRO_D - call system_clock(count=clock_count_1, count_rate=clock_rate) + call system_clock(count=clock_count_1, count_rate=clock_rate) #endif - ! step 4) baseflow or groundwater physics - if (nlst_rt(did)%GWBASESWCRT .gt. 0) then - call driveGwBaseflow(did) - endif + end if !! channel_only & channelBucket_only == 0 + + + ! step 4) baseflow or groundwater physics + !! channelBucket_only can be anything: the only time you dont run this is if channel_only=1 + if(nlst_rt(did)%channel_only .eq. 0) then + if (nlst_rt(did)%GWBASESWCRT .gt. 0) then + call driveGwBaseflow(did) + endif #ifdef HYDRO_D - call system_clock(count=clock_count_2, count_rate=clock_rate) - timeGw = timeGw + float(clock_count_2-clock_count_1)/float(clock_rate) + call system_clock(count=clock_count_2, count_rate=clock_rate) + timeGw = timeGw + float(clock_count_2-clock_count_1)/float(clock_rate) #ifndef NCEP_WCOSS - write(6,*) "Timing: GwBaseflow accumulated time--", timeGw + write(6,*) "Timing: GwBaseflow accumulated time--", timeGw #else - write(78,*) "Timing: GwBaseflow accumulated time--", timeGw + write(78,*) "Timing: GwBaseflow accumulated time--", timeGw #endif -#endif - - +#endif #ifdef HYDRO_D - call system_clock(count=clock_count_1, count_rate=clock_rate) + call system_clock(count=clock_count_1, count_rate=clock_rate) #endif - ! step 5) river channel physics - call driveChannelRouting(did) + end if !! channel_only == 0 + + ! step 5) river channel physics + call driveChannelRouting(did) #ifdef HYDRO_D - call system_clock(count=clock_count_2, count_rate=clock_rate) - timeCr = timeCr + float(clock_count_2-clock_count_1)/float(clock_rate) + call system_clock(count=clock_count_2, count_rate=clock_rate) + timeCr = timeCr + float(clock_count_2-clock_count_1)/float(clock_rate) #ifndef NCEP_WCOSS - write(6,*) "Timing: Channel Routing accumulated time--", timeCr + write(6,*) "Timing: Channel Routing accumulated time--", timeCr #else - write(78,*) "Timing: Channel Routing accumulated time--", timeCr + write(78,*) "Timing: Channel Routing accumulated time--", timeCr #endif #endif + + !! if not channel_only + if(nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) then - ! step 6) aggregate specific fields from Hydro to LSM grid - if (nlst_rt(did)%SUBRTSWCRT .NE.0 .or. nlst_rt(did)%OVRTSWCRT .NE. 0 ) THEN - call aggregateDomain(did) - endif + ! step 6) aggregate specific fields from Hydro to LSM grid + if (nlst_rt(did)%SUBRTSWCRT .ne.0 .or. nlst_rt(did)%OVRTSWCRT .ne. 0 ) then + call aggregateDomain(did) + endif + end if !! channel_only & channelBucket_only == 0 - end if +end if !yw if (nlst_rt(did)%sys_cpl .eq. 2) then @@ -638,7 +734,7 @@ subroutine HYDRO_exe(did) ! call HYDRO_out(did) !yw endif call HYDRO_time_adv(did) - call HYDRO_out(did) + call HYDRO_out(did, 1) ! write(90 + my_id,*) "finish calling hydro_exe" @@ -646,9 +742,10 @@ subroutine HYDRO_exe(did) ! call mpp_land_sync() - - RT_DOMAIN(did)%SOLDRAIN = 0 - RT_DOMAIN(did)%QSUBRT = 0 + + !! Under channel-only, these variables are not allocated + if(allocated(RT_DOMAIN(did)%SOLDRAIN)) RT_DOMAIN(did)%SOLDRAIN = 0 + if(allocated(RT_DOMAIN(did)%QSUBRT)) RT_DOMAIN(did)%QSUBRT = 0 @@ -657,45 +754,51 @@ end subroutine HYDRO_exe !---------------------------------------------------- - subroutine driveGwBaseflow(did) +subroutine driveGwBaseflow(did) - implicit none - integer, intent(in) :: did +implicit none +integer, intent(in) :: did - integer :: i, jj, ii +integer :: i, jj, ii !------------------------------------------------------------------ !DJG Begin GW/Baseflow Routines !------------------------------------------------------------------- - IF (nlst_rt(did)%GWBASESWCRT.GE.1) THEN ! Switch to activate/specify GW/Baseflow +if (nlst_rt(did)%GWBASESWCRT.ge.1) then ! Switch to activate/specify GW/Baseflow ! IF (nlst_rt(did)%GWBASESWCRT.GE.1000) THEN ! Switch to activate/specify GW/Baseflow - If (nlst_rt(did)%GWBASESWCRT.EQ.1.OR.nlst_rt(did)%GWBASESWCRT.EQ.2) Then ! Call simple bucket baseflow scheme + if (nlst_rt(did)%GWBASESWCRT.eq.1.or.nlst_rt(did)%GWBASESWCRT.eq.2) then ! Call simple bucket baseflow scheme #ifdef HYDRO_D #ifndef NCEP_WCOSS - write(6,*) "*****yw******start simp_gw_buck " + write(6,*) "*****yw******start simp_gw_buck " #else - write(78,*) "*****yw******start simp_gw_buck " -#endif -#endif - - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call simp_gw_buck_nhd(RT_DOMAIN(did)%ix,RT_DOMAIN(did)%jx,RT_DOMAIN(did)%ixrt,RT_DOMAIN(did)%jxrt, & - RT_DOMAIN(did)%numbasns,nlst_rt(did)%AGGFACTRT, nlst_rt(did)%DT, RT_DOMAIN(did)%INFXSWGT, & - RT_DOMAIN(did)%INFXSRT, RT_DOMAIN(did)%SOLDRAIN, RT_DOMAIN(did)%dist(:,:,9),rt_domain(did)%dist_lsm(:,:,9), & - RT_DOMAIN(did)%gw_buck_coeff, RT_DOMAIN(did)%gw_buck_exp, RT_DOMAIN(did)%z_max, & - RT_DOMAIN(did)%z_gwsubbas, RT_DOMAIN(did)%qout_gwsubbas,RT_DOMAIN(did)%qin_gwsubbas, & - nlst_rt(did)%GWBASESWCRT,nlst_rt(did)%OVRTSWCRT, & + write(78,*) "*****yw******start simp_gw_buck " +#endif +#endif + + if(nlst_rt(did)%UDMP_OPT .eq. 1) then + call simp_gw_buck_nhd( & + RT_DOMAIN(did)%ix, RT_DOMAIN(did)%jx, & + RT_DOMAIN(did)%ixrt, RT_DOMAIN(did)%jxrt, & + RT_DOMAIN(did)%numbasns, nlst_rt(did)%AGGFACTRT, & + nlst_rt(did)%DT, RT_DOMAIN(did)%INFXSWGT, & + RT_DOMAIN(did)%INFXSRT, RT_DOMAIN(did)%SOLDRAIN, & + RT_DOMAIN(did)%dist(:,:,9), rt_domain(did)%dist_lsm(:,:,9), & + RT_DOMAIN(did)%gw_buck_coeff, RT_DOMAIN(did)%gw_buck_exp, & + RT_DOMAIN(did)%z_max, RT_DOMAIN(did)%z_gwsubbas, & + RT_DOMAIN(did)%qout_gwsubbas, RT_DOMAIN(did)%qin_gwsubbas, & + nlst_rt(did)%GWBASESWCRT, nlst_rt(did)%OVRTSWCRT, & #ifdef MPP_LAND - RT_DOMAIN(did)%LNLINKSL & + RT_DOMAIN(did)%LNLINKSL, & #else - RT_DOMAIN(did)%numbasns & + RT_DOMAIN(did)%numbasns, & #endif - , rt_domain(did)%basns_area, rt_domain(did)%nhdBuckMask & - ) + rt_domain(did)%basns_area, & + rt_domain(did)%nhdBuckMask, nlst_rt(did)%channelBucket_only ) + else call simp_gw_buck(RT_DOMAIN(did)%ix,RT_DOMAIN(did)%jx,RT_DOMAIN(did)%ixrt,& RT_DOMAIN(did)%jxrt,RT_DOMAIN(did)%numbasns,RT_DOMAIN(did)%gnumbasns,& @@ -713,10 +816,11 @@ subroutine driveGwBaseflow(did) nlst_rt(did)%GWBASESWCRT,nlst_rt(did)%OVRTSWCRT) endif - if(nlst_rt(did)%GWBASESWCRT .gt. 0 .and. nlst_rt(did)%output_gw .eq. 2) then - ! ouput of bucket information for NCAR GW option. - call output_GW_Diag(did) - endif +!! JLM: There's *perhaps* a better location for this output above. +!! If above is better, remove this when runtime output options are avail. +!#ifndef HYDRO_REALTIME +! call output_GW_Diag(did) +!#endif #ifdef HYDRO_D #ifndef NCEP_WCOSS @@ -726,8 +830,8 @@ subroutine driveGwBaseflow(did) #endif #endif -!!!For parameter setup runs output the percolation for each basin, -!!!otherwise comment out this output... + !!!For parameter setup runs output the percolation for each basin, + !!!otherwise comment out this output... else if (nlst_rt(did)%gwBaseSwCRT .eq. 3) then #ifdef HYDRO_D @@ -745,8 +849,7 @@ subroutine driveGwBaseflow(did) call gwSoilFlux(did) end if - - + gw2d(did)%excess = 0. call gwstep(gw2d(did)%ix, gw2d(did)%jx, gw2d(did)%dx, & @@ -756,15 +859,12 @@ subroutine driveGwBaseflow(did) gw2d(did)%excess, & gw2d(did)%ebot, gw2d(did)%eocn, gw2d(did)%dt, & gw2d(did)%istep) - - + gw2d(did)%ho = gw2d(did)%h - - ! put surface exceeding groundwater to surface routing inflow RT_DOMAIN(did)%SFCHEADSUBRT = RT_DOMAIN(did)%SFCHEADSUBRT & - + gw2d(did)%excess*1000. ! convert to mm + + gw2d(did)%excess*1000. ! convert to mm ! aggregate qsgw from routing to lsm grid call aggregateQsgw(did) @@ -779,15 +879,13 @@ subroutine driveGwBaseflow(did) #endif #endif - End if + end if - END IF !DJG (End if for RTE SWC activation) + end if !DJG (End if for RTE SWC activation) !------------------------------------------------------------------ !DJG End GW/Baseflow Routines !------------------------------------------------------------------- - - - end subroutine driveGwBaseflow + end subroutine driveGwBaseflow @@ -803,22 +901,7 @@ subroutine driveChannelRouting(did) !DJG,DNY Begin Channel and Lake Routing Routines !------------------------------------------------------------------- - IF (nlst_rt(did)%CHANRTSWCRT.EQ.1 .or. nlst_rt(did)%CHANRTSWCRT.EQ.2) THEN - - - if(rt_domain(did)%restQSTRM) then - RT_DOMAIN(did)%QSTRMVOLRT_TS = 0.000001 - rt_domain(did)%restQSTRM = .false. -#ifdef HYDRO_D -#ifndef NCEP_WCOSS - write(6,*) "***** set QSTRMVOLRT_TS = 0.000001 *********" -#else - write(78,*) "***** set QSTRMVOLRT_TS = 0.000001 *********" -#endif - call flush(6) -#endif - endif -101 continue +if (nlst_rt(did)%CHANRTSWCRT.eq.1 .or. nlst_rt(did)%CHANRTSWCRT.eq.2) then if(nlst_rt(did)%UDMP_OPT .eq. 1) then !!! for user defined Reach based Routing method. @@ -846,10 +929,16 @@ subroutine driveChannelRouting(did) #ifdef WRF_HYDRO_NUDGING , RT_DOMAIN(did)%nudge & #endif - , rt_domain(did)%accLndRunOff, rt_domain(did)%accQLateral, rt_domain(did)%accStrmvolrt, rt_domain(did)%accBucket & - , rt_domain(did)%QLateral, rt_domain(did)%velocity & - , rt_domain(did)%nlinksize, nlst_rt(did)%OVRTSWCRT, nlst_rt(did)%SUBRTSWCRT) + , rt_domain(did)%accSfcLatRunoff, rt_domain(did)%accBucket & + , rt_domain(did)%qSfcLatRunoff, rt_domain(did)%qBucket & + , rt_domain(did)%QLateral, rt_domain(did)%velocity & + , rt_domain(did)%nlinksize, nlst_rt(did)%OVRTSWCRT & + , nlst_rt(did)%SUBRTSWCRT & + , nlst_rt(did)%channel_only , nlst_rt(did)%channelBucket_only & + ) + else + call drive_CHANNEL(RT_DOMAIN(did)%latval,RT_DOMAIN(did)%lonval, & RT_DOMAIN(did)%timestep_flag,RT_DOMAIN(did)%IXRT,RT_DOMAIN(did)%JXRT, & nlst_rt(did)%SUBRTSWCRT, RT_DOMAIN(did)%QSUBRT, & @@ -859,6 +948,7 @@ subroutine driveChannelRouting(did) RT_DOMAIN(did)%CH_NETLNK, RT_DOMAIN(did)%CH_NETRT,RT_DOMAIN(did)%CH_LNKRT,& RT_DOMAIN(did)%LAKE_MSKRT, nlst_rt(did)%DT, nlst_rt(did)%DTCT, nlst_rt(did)%DTRT_CH,& RT_DOMAIN(did)%MUSK, RT_DOMAIN(did)%MUSX, RT_DOMAIN(did)%QLINK, & + RT_DOMAIN(did)%QLateral, & RT_DOMAIN(did)%HLINK, RT_DOMAIN(did)%ELRT,RT_DOMAIN(did)%CHANLEN,& RT_DOMAIN(did)%MannN,RT_DOMAIN(did)%So, RT_DOMAIN(did)%ChSSlp, & RT_DOMAIN(did)%Bw,& @@ -883,7 +973,7 @@ subroutine driveChannelRouting(did) , rt_domain(did)%CH_LNKRT_SL & ,nlst_rt(did)%GwBaseSwCRT, gw2d(did)%ho, gw2d(did)%qgw_chanrt, & nlst_rt(did)%gwChanCondSw, nlst_rt(did)%gwChanCondConstIn, & - nlst_rt(did)%gwChanCondConstOut & + nlst_rt(did)%gwChanCondConstOut, rt_domain(did)%velocity & ) endif @@ -1063,9 +1153,9 @@ subroutine aggregateDomain(did) endif !end - IF (RT_DOMAIN(did)%SMCRT(IXXRT,JYYRT,KRT) .GT. & - RT_DOMAIN(did)%SMCMAXRT(IXXRT,JYYRT,KRT)) THEN +!ADCHANGE: Change to accept very small diff since was being triggered by vals that print identical +IF ( (RT_DOMAIN(did)%SMCRT(IXXRT,JYYRT,KRT)-RT_DOMAIN(did)%SMCMAXRT(IXXRT,JYYRT,KRT)) .GT. 0.000001 ) THEN #ifdef HYDRO_D #ifndef NCEP_WCOSS print *, "SMCMAX exceeded upon aggregation...", & @@ -1222,127 +1312,137 @@ subroutine RunOffDisag(runoff1x_in, runoff1x, area_lsm,cellArea, infxswgt, AGGFA end subroutine RunOffDisag - subroutine HYDRO_ini(ntime, did,ix0,jx0, vegtyp,soltyp) - implicit none - integer ntime, did - integer rst_out, ix,jx +subroutine HYDRO_ini(ntime, did,ix0,jx0, vegtyp,soltyp) +implicit none +integer ntime, did +integer rst_out, ix,jx ! integer, OPTIONAL:: ix0,jx0 - integer:: ix0,jx0 - integer, dimension(ix0,jx0),OPTIONAL :: vegtyp, soltyp - +integer:: ix0,jx0 +integer, dimension(ix0,jx0),optional :: vegtyp, soltyp +integer :: iret, ncid, ascIndId #ifdef MPP_LAND - call MPP_LAND_INIT() +call MPP_LAND_INIT() #endif ! read the namelist ! the lsm namelist will be read by rtland sequentially again. - call read_rt_nlst(nlst_rt(did) ) +call read_rt_nlst(nlst_rt(did) ) - if(nlst_rt(did)%rtFlag .eq. 0) return +if(nlst_rt(did)%rtFlag .eq. 0) return !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! get the dimension - call get_file_dimension(trim(nlst_rt(did)%geo_static_flnm), ix,jx) - - -#ifdef MPP_LAND - - if (nlst_rt(did)%sys_cpl .eq. 1 .or. nlst_rt(did)%sys_cpl .eq. 4) then -!sys_cpl: 1-- coupling with HRLDAS but running offline lsm; -! 2-- coupling with WRF but do not run offline lsm -! 3-- coupling with LIS and do not run offline lsm -! 4: coupling with CLM - -! create 2 dimensiaon logical mapping of the CPUs for coupling with CLM or HRLDAS. - call log_map2d() +call get_file_dimension(trim(nlst_rt(did)%geo_static_flnm), ix,jx) - global_nx = ix ! get from land model - global_ny = jx ! get from land model - call mpp_land_bcast_int1(global_nx) - call mpp_land_bcast_int1(global_ny) +#ifdef MPP_LAND +if (nlst_rt(did)%sys_cpl .eq. 1 .or. nlst_rt(did)%sys_cpl .eq. 4) then + !sys_cpl: 1-- coupling with HRLDAS but running offline lsm; + ! 2-- coupling with WRF but do not run offline lsm + ! 3-- coupling with LIS and do not run offline lsm + ! 4: coupling with CLM + + ! create 2 dimensiaon logical mapping of the CPUs for coupling with CLM or HRLDAS. + call log_map2d() + + global_nx = ix ! get from land model + global_ny = jx ! get from land model + + call mpp_land_bcast_int1(global_nx) + call mpp_land_bcast_int1(global_ny) + !!! temp set global_nx to ix - rt_domain(did)%ix = global_nx - rt_domain(did)%jx = global_ny - -! over write the ix and jx - call MPP_LAND_PAR_INI(1,rt_domain(did)%ix,rt_domain(did)%jx,& - nlst_rt(did)%AGGFACTRT) - else -! coupled with WRF, LIS - numprocs = node_info(1,1) - - call wrf_LAND_set_INIT(node_info,numprocs,nlst_rt(did)%AGGFACTRT) - - - rt_domain(did)%ix = local_nx - rt_domain(did)%jx = local_ny - endif + rt_domain(did)%ix = global_nx + rt_domain(did)%jx = global_ny + + ! over write the ix and jx + call MPP_LAND_PAR_INI(1,rt_domain(did)%ix,rt_domain(did)%jx,& + nlst_rt(did)%AGGFACTRT) +else + ! coupled with WRF, LIS + numprocs = node_info(1,1) + + call wrf_LAND_set_INIT(node_info,numprocs,nlst_rt(did)%AGGFACTRT) + + rt_domain(did)%ix = local_nx + rt_domain(did)%jx = local_ny +endif - - rt_domain(did)%g_IXRT=global_rt_nx - rt_domain(did)%g_JXRT=global_rt_ny - rt_domain(did)%ixrt = local_rt_nx - rt_domain(did)%jxrt = local_rt_ny +rt_domain(did)%g_IXRT=global_rt_nx +rt_domain(did)%g_JXRT=global_rt_ny +rt_domain(did)%ixrt = local_rt_nx +rt_domain(did)%jxrt = local_rt_ny #ifdef HYDRO_D #ifndef NCEP_WCOSS - write(6,*) "rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt" - write(6,*) rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt - write(6,*) "rt_domain(did)%ix, rt_domain(did)%jx " - write(6,*) rt_domain(did)%ix, rt_domain(did)%jx - write(6,*) "global_nx, global_ny, local_nx, local_ny" - write(6,*) global_nx, global_ny, local_nx, local_ny +write(6,*) "rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt" +write(6,*) rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt +write(6,*) "rt_domain(did)%ix, rt_domain(did)%jx " +write(6,*) rt_domain(did)%ix, rt_domain(did)%jx +write(6,*) "global_nx, global_ny, local_nx, local_ny" +write(6,*) global_nx, global_ny, local_nx, local_ny #else - write(78,*) "rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt" - write(78,*) rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt - write(78,*) "rt_domain(did)%ix, rt_domain(did)%jx " - write(78,*) rt_domain(did)%ix, rt_domain(did)%jx - write(78,*) "global_nx, global_ny, local_nx, local_ny" - write(78,*) global_nx, global_ny, local_nx, local_ny +write(78,*) "rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt" +write(78,*) rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT, rt_domain(did)%ixrt, rt_domain(did)%jxrt +write(78,*) "rt_domain(did)%ix, rt_domain(did)%jx " +write(78,*) rt_domain(did)%ix, rt_domain(did)%jx +write(78,*) "global_nx, global_ny, local_nx, local_ny" +write(78,*) global_nx, global_ny, local_nx, local_ny #endif #endif #else ! sequential - rt_domain(did)%ix = ix - rt_domain(did)%jx = jx - rt_domain(did)%ixrt = ix*nlst_rt(did)%AGGFACTRT - rt_domain(did)%jxrt = jx*nlst_rt(did)%AGGFACTRT +rt_domain(did)%ix = ix +rt_domain(did)%jx = jx +rt_domain(did)%ixrt = ix*nlst_rt(did)%AGGFACTRT +rt_domain(did)%jxrt = jx*nlst_rt(did)%AGGFACTRT #endif ! allocate rt arrays - call getChanDim(did) +call getChanDim(did) #ifdef HYDRO_D #ifndef NCEP_WCOSS - write(6,*) "finish getChanDim " +write(6,*) "finish getChanDim " #else - write(78,*) "finish getChanDim " +write(78,*) "finish getChanDim " #endif #endif - if(nlst_rt(did)%GWBASESWCRT .eq. 3 ) then - call gw2d_allocate(did,& - rt_domain(did)%ixrt,& - rt_domain(did)%jxrt,& - nlst_rt(did)%nsoil) +! ADCHANGE: get global attributes +! need to set these after getChanDim since it allocates rt_domain vals to 0 + call get_file_globalatts(trim(nlst_rt(did)%geo_static_flnm), & + rt_domain(did)%iswater, rt_domain(did)%isurban, rt_domain(did)%isoilwater) + #ifdef HYDRO_D #ifndef NCEP_WCOSS - write(6,*) "finish gw2d_allocate" + write(6,*) "hydro_ini: rt_domain(did)%iswater, rt_domain(did)%isurban, rt_domain(did)%isoilwater" + write(6,*) rt_domain(did)%iswater, rt_domain(did)%isurban, rt_domain(did)%isoilwater +#endif +#endif + +if(nlst_rt(did)%GWBASESWCRT .eq. 3 ) then + call gw2d_allocate(did,& + rt_domain(did)%ixrt,& + rt_domain(did)%jxrt,& + nlst_rt(did)%nsoil) +#ifdef HYDRO_D +#ifndef NCEP_WCOSS + write(6,*) "finish gw2d_allocate" #else - write(78,*) "finish gw2d_allocate" + write(78,*) "finish gw2d_allocate" #endif #endif - endif +endif ! calculate the distance between grids for routing. ! decompose the land parameter/data @@ -1350,82 +1450,106 @@ subroutine HYDRO_ini(ntime, did,ix0,jx0, vegtyp,soltyp) ! ix0= rt_domain(did)%ix ! jx0= rt_domain(did)%jx - if(present(vegtyp)) then - call lsm_input(did,ix0=ix0,jx0=jx0,vegtyp0=vegtyp,soltyp0=soltyp) - else - call lsm_input(did,ix0=ix0,jx0=jx0) - endif +if(nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) then + if(present(vegtyp)) then + call lsm_input(did,ix0=ix0,jx0=jx0,vegtyp0=vegtyp,soltyp0=soltyp) + else + call lsm_input(did,ix0=ix0,jx0=jx0) + endif +endif #ifdef HYDRO_D #ifndef NCEP_WCOSS - write(6,*) "finish decomposion" +write(6,*) "finish decomposion" #else - write(78,*) "finish decomposion" -#endif -#endif - - - call get_dist_lsm(did) - call get_dist_lrt(did) - - +write(78,*) "finish decomposion" +#endif +#endif + + +if((nlst_rt(did)%channel_only .eq. 1 .or. nlst_rt(did)%channelBucket_only .eq. 1) .and. & + nlst_rt(1)%io_form_outputs .ne. 0) then + !! This is the "decoder ring" for reading channel-only forcing from io_form_outputs=1,2 CHRTOUT files. + !! Only needed on io_id + if(my_id .eq. io_id) then + allocate(rt_domain(did)%ascendIndex(rt_domain(did)%gnlinksl)) + iret = nf90_open(trim(nlst_rt(1)%route_link_f),NF90_NOWRITE,ncid=ncid) + !if(iret .ne. 0) call hdyro_stop + if(iret .ne. 0) call hydro_stop('ERROR: Unable to open RouteLink file for index extraction') + iret = nf90_inq_varid(ncid,'ascendingIndex',ascIndId) + if(iret .ne. 0) call hydro_stop('ERROR: Unable to find ascendingIndex from RouteLink file.') + iret = nf90_get_var(ncid,ascIndId,rt_domain(did)%ascendIndex) + if(iret .ne. 0) call hydro_stop('ERROR: Unable to extract ascendingIndex from RouteLink file.') + iret = nf90_close(ncid) + if(iret .ne. 0) call hydro_stop('ERROR: Unable to close RouteLink file.') + else + allocate(rt_domain(did)%ascendIndex(1)) + rt_domain(did)%ascendIndex(1)=-9 + endif +endif + + +call get_dist_lsm(did) !! always needed (channel_only and channelBucket_only) +if(nlst_rt(did)%channel_only .ne. 1) call get_dist_lrt(did) !! needed forchannelBucket_only + ! rt model initilization - call LandRT_ini(did) +call LandRT_ini(did) - - if(nlst_rt(did)%GWBASESWCRT .eq. 3 ) then - - call gw2d_ini(did,& - nlst_rt(did)%dt,& - nlst_rt(did)%dxrt0) + +if(nlst_rt(did)%GWBASESWCRT .eq. 3 ) then + + call gw2d_ini(did,& + nlst_rt(did)%dt,& + nlst_rt(did)%dxrt0) #ifdef HYDRO_D #ifndef NCEP_WCOSS - write(6,*) "finish gw2d_ini" + write(6,*) "finish gw2d_ini" #else - write(78,*) "finish gw2d_ini" + write(78,*) "finish gw2d_ini" #endif #endif - endif +endif #ifdef HYDRO_D #ifndef NCEP_WCOSS - write(6,*) "finish LandRT_ini" +write(6,*) "finish LandRT_ini" #else - write(78,*) "finish LandRT_ini" +write(78,*) "finish LandRT_ini" #endif #endif !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +if(nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) then - IF (nlst_rt(did)%TERADJ_SOLAR.EQ.1 .and. nlst_rt(did)%CHANRTSWCRT.NE.2) THEN ! Perform ter rain adjustment of incoming solar + if (nlst_rt(did)%TERADJ_SOLAR.eq.1 .and. nlst_rt(did)%CHANRTSWCRT.ne.2) then ! Perform ter rain adjustment of incoming solar #ifdef MPP_LAND - call MPP_seq_land_SO8(rt_domain(did)%SO8LD_D,rt_domain(did)%SO8LD_Vmax,& - rt_domain(did)%TERRAIN, rt_domain(did)%dist_lsm,& - rt_domain(did)%ix,rt_domain(did)%jx,global_nx,global_ny) + call MPP_seq_land_SO8(rt_domain(did)%SO8LD_D,rt_domain(did)%SO8LD_Vmax,& + rt_domain(did)%TERRAIN, rt_domain(did)%dist_lsm,& + rt_domain(did)%ix,rt_domain(did)%jx,global_nx,global_ny) #else - call seq_land_SO8(rt_domain(did)%SO8LD_D,rt_domain(did)%SO8LD_Vmax,& - rt_domain(did)%TERRAIN,rt_domain(did)%dist_lsm,& - rt_domain(did)%ix,rt_domain(did)%jx) + call seq_land_SO8(rt_domain(did)%SO8LD_D,rt_domain(did)%SO8LD_Vmax,& + rt_domain(did)%TERRAIN,rt_domain(did)%dist_lsm,& + rt_domain(did)%ix,rt_domain(did)%jx) #endif - endif - + endif +endif - IF (nlst_rt(did)%GWBASESWCRT .gt. 0) then - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call get_basn_area_nhd(rt_domain(did)%basns_area) - else - call get_basn_area(did) - endif - endif +if (nlst_rt(did)%GWBASESWCRT .gt. 0) then + if(nlst_rt(did)%UDMP_OPT .eq. 1) then + call get_basn_area_nhd(rt_domain(did)%basns_area) + else + call get_basn_area(did) + endif +endif - IF (nlst_rt(did)%CHANRTSWCRT.EQ.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2 ) then - call get_node_area(did) - endif +if (nlst_rt(did)%CHANRTSWCRT.eq.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2 ) then + call get_node_area(did) +endif #ifdef WRF_HYDRO_NUDGING - if(nlst_rt(did)%CHANRTSWCRT .ne. 0) call init_stream_nudging +if(nlst_rt(did)%CHANRTSWCRT .ne. 0) call init_stream_nudging #endif @@ -1442,15 +1566,39 @@ subroutine HYDRO_ini(ntime, did,ix0,jx0, vegtyp,soltyp) ! rt_domain(did)%his_out_counts = rt_domain(did)%his_out_counts + 1 - call HYDRO_rst_in(did) - - call HYDRO_out(did) +call HYDRO_rst_in(did) - end subroutine HYDRO_ini +!#ifdef HYDRO_REALTIME +if (trim(nlst_rt(did)%restart_file) == "") then + call HYDRO_out(did, 0) +else + call HYDRO_out(did, 1) +endif +!! JLM: This is only currently part 1/2 of a better accumulation tracking strategy. +!! The parts: +!! 1) (this) zero accumulations on restart/init after any t=0 outputs are written. +!! 2) introduce a variable in the output files which indicates if accumulations are +!! reset after this output. +!! Here we move zeroing to after AFTER outputing the accumulations at the initial time. +!! This was previously done in HYDRO_rst_in and so output accumulations at time +!! zero were getting zeroed and then writtent to file, which looses information. +!! Note that nlst_rt(did)%rstrt_swc is not changed at any point in between here and the rst_in. +if(nlst_rt(did)%rstrt_swc.eq.1) then !Switch for rest of restart accum vars... + print *, "Resetting RESTART Accumulation Variables to 0...",nlst_rt(did)%rstrt_swc + ! Under channel-only , these first three variables are not allocated. + if(allocated(rt_domain(did)%LAKE_INFLORT)) rt_domain(did)%LAKE_INFLORT = zeroFlt + if(allocated(rt_domain(did)%QSTRMVOLRT_ACC)) rt_domain(did)%QSTRMVOLRT_ACC = zeroFlt + ! These variables are optionally allocated, if their output is requested. + if(allocated(rt_domain(did)%accSfcLatRunoff)) rt_domain(did)%accSfcLatRunoff = zeroDbl + if(allocated(rt_domain(did)%accBucket)) rt_domain(did)%accBucket = zeroDbl +end if + +end subroutine HYDRO_ini subroutine lsm_input(did,ix0,jx0,vegtyp0,soltyp0) implicit none - integer did, leng +#include + integer did, leng, ncid, ierr_flg parameter(leng=100) integer :: i,j, nn integer, allocatable, dimension(:,:) :: soltyp @@ -1458,6 +1606,7 @@ subroutine lsm_input(did,ix0,jx0,vegtyp0,soltyp0) integer :: ix0,jx0 integer, dimension(ix0,jx0),OPTIONAL :: vegtyp0, soltyp0 + integer :: iret, istmp #ifdef HYDRO_D #ifndef NCEP_WCOSS @@ -1480,19 +1629,18 @@ subroutine lsm_input(did,ix0,jx0,vegtyp0,soltyp0) call get2d_lsm_vegtyp(RT_DOMAIN(did)%VEGTYP,RT_DOMAIN(did)%ix,RT_DOMAIN(did)%jx,trim(nlst_rt(did)%geo_static_flnm)) - if(nlst_rt(did)%sys_cpl .eq. 2 ) then ! coupling with WRF if(present(soltyp0) ) then - where(soltyp0 == 14) VEGTYP0 = 16 - where(VEGTYP0 == 16 ) soltyp0 = 14 + where(soltyp0 == rt_domain(did)%isoilwater) VEGTYP0 = rt_domain(did)%iswater + where(VEGTYP0 == rt_domain(did)%iswater ) soltyp0 = rt_domain(did)%isoilwater soltyp = soltyp0 RT_DOMAIN(did)%VEGTYP = VEGTYP0 endif endif - where(soltyp == 14) RT_DOMAIN(did)%VEGTYP = 16 - where(RT_DOMAIN(did)%VEGTYP == 16 ) soltyp = 14 + where(soltyp == rt_domain(did)%isoilwater) RT_DOMAIN(did)%VEGTYP = rt_domain(did)%iswater + where(RT_DOMAIN(did)%VEGTYP == rt_domain(did)%iswater ) soltyp = rt_domain(did)%isoilwater ! LKSAT, ! temporary set @@ -1510,6 +1658,21 @@ subroutine lsm_input(did,ix0,jx0,vegtyp0,soltyp0) enddo RT_DOMAIN(did)%SOLDEPRT = -1.0*RT_DOMAIN(did)%ZSOIL(nlst_rt(did)%NSOIL) + ierr_flg = 99 + if(trim(nlst_rt(did)%hydrotbl_f) == "") then + call hydro_stop("FATAL ERROR: hydrotbl_f is empty. Please input a netcdf file. ") + endif + +#ifdef MPP_LAND + if(my_id .eq. IO_id) then +#endif + ierr_flg = nf_open(trim(nlst_rt(did)%hydrotbl_f), NF_NOWRITE, ncid) +#ifdef MPP_LAND + endif + call mpp_land_bcast_int1(ierr_flg) +#endif + if( ierr_flg .ne. 0) then + ! input from HYDRO.tbl FILE ! input OV_ROUGH from OVROUGH.TBL #ifdef MPP_LAND if(my_id .eq. IO_id) then @@ -1561,7 +1724,7 @@ subroutine lsm_input(did,ix0,jx0,vegtyp0,soltyp0) do i = 1, RT_DOMAIN(did)%ix !yw rt_domain(did)%lksat(i,j) = xdum1(soltyp(i,j) ) * 1000.0 rt_domain(did)%lksat(i,j) = xdum1(soltyp(i,j) ) - IF(rt_domain(did)%VEGTYP(i,j) == 1 ) THEN ! urban + IF(rt_domain(did)%VEGTYP(i,j) == rt_domain(did)%isurban ) THEN ! urban rt_domain(did)%SMCMAX1(i,j) = 0.45 rt_domain(did)%SMCREF1(i,j) = 0.42 rt_domain(did)%SMCWLT1(i,j) = 0.40 @@ -1569,10 +1732,34 @@ subroutine lsm_input(did,ix0,jx0,vegtyp0,soltyp0) rt_domain(did)%SMCMAX1(i,j) = MAXSMC(soltyp(I,J)) rt_domain(did)%SMCREF1(i,j) = refsmc(soltyp(I,J)) rt_domain(did)%SMCWLT1(i,j) = wltsmc(soltyp(I,J)) + !ADCHANGE: Add some sanity checks in case calibration knocks the order of these out of sequence. + !The min diffs were pulled from the existing HYDRO.TBL defaults. + !Currently water is 0, so enforcing 0 as the absolute min. + rt_domain(did)%SMCMAX1(i,j) = min(rt_domain(did)%SMCMAX1(i,j), 1.0) + rt_domain(did)%SMCREF1(i,j) = max(min(rt_domain(did)%SMCREF1(i,j), rt_domain(did)%SMCMAX1(i,j) - 0.01), 0.0) + rt_domain(did)%SMCWLT1(i,j) = max(min(rt_domain(did)%SMCWLT1(i,j), rt_domain(did)%SMCREF1(i,j) - 0.01), 0.0) ENDIF + IF(rt_domain(did)%VEGTYP(i,j) > 0 ) THEN ! created 2d ov_rough + rt_domain(did)%OV_ROUGH2d(i,j) = RT_DOMAIN(did)%OV_ROUGH(rt_domain(did)%VEGTYP(I,J)) + endif end do end do + call hdtbl_out(did) + else + ! input from HYDRO.TBL.nc file + print*, "reading from hydrotbl_f(HYDRO.TBL.nc) file ...." + call hdtbl_in_nc(did) + !ADCHANGE: For consistency, mirror urban and param value checks used in table read + where (rt_domain(did)%VEGTYP == rt_domain(did)%isurban) + rt_domain(did)%SMCMAX1 = 0.45 + rt_domain(did)%SMCREF1 = 0.42 + rt_domain(did)%SMCWLT1 = 0.40 + endwhere + where (rt_domain(did)%SMCMAX1 .gt. 1.0) rt_domain(did)%SMCMAX1 = 1.0 + rt_domain(did)%SMCREF1 = max(min(rt_domain(did)%SMCREF1, rt_domain(did)%SMCMAX1 - 0.01), 0.0) + rt_domain(did)%SMCWLT1 = max(min(rt_domain(did)%SMCWLT1, rt_domain(did)%SMCREF1 - 0.01), 0.0) + endif rt_domain(did)%soiltyp = soltyp @@ -1598,6 +1785,7 @@ subroutine HYDRO_stop(msg) call flush(6) !#endif #else + write(*,*) "FATAL ERROR: ", trim(msg) write(78,*) "FATAL ERROR: ", trim(msg) call flush(78) close(78) diff --git a/hydro/MPP/Makefile.NoahMP b/hydro/MPP/Makefile.NoahMP new file mode 100644 index 0000000000..e8d29cb7b4 --- /dev/null +++ b/hydro/MPP/Makefile.NoahMP @@ -0,0 +1,21 @@ +# Makefile +# +.SUFFIXES: +.SUFFIXES: .o .F + +include ../user_build_options + +OBJS = CPL_WRF.o mpp_land.o + +all: $(OBJS) +mpp_land.o: mpp_land.F + @echo "" + rm -f $(*).o $(*).mod + $(COMPILERF90) $(F90FLAGS) $(FREESOURCE) -c $(*).F + +CPL_WRF.o: CPL_WRF.F + @echo "" + rm -f $(*).o $(*).mod + $(COMPILERF90) $(F90FLAGS) $(FREESOURCE) -c $(*).F +clean: + rm -f *.o *.mod diff --git a/hydro/MPP/module_mpp_GWBUCKET.F b/hydro/MPP/module_mpp_GWBUCKET.F index c1d1f9694d..0764886152 100644 --- a/hydro/MPP/module_mpp_GWBUCKET.F +++ b/hydro/MPP/module_mpp_GWBUCKET.F @@ -21,6 +21,7 @@ ! This is used as a coupler with the WRF model. MODULE MODULE_mpp_GWBUCKET + use MODULE_CPL_LAND, only: HYDRO_COMM_WORLD use module_mpp_land, only: io_id, my_id, mpp_status, mpp_land_max_int1, numprocs, & mpp_land_bcast_real, sum_real8, mpp_land_sync implicit none @@ -56,7 +57,7 @@ subroutine collectSizeInd(numbasns) if(my_id .ne. IO_id) then tag = 66 call mpi_send(numbasns,1,MPI_INTEGER, IO_id, & - tag,MPI_COMM_WORLD,ierr) + tag,HYDRO_COMM_WORLD,ierr) else do i = 0, numprocs - 1 if(i .eq. IO_id) then @@ -64,7 +65,7 @@ subroutine collectSizeInd(numbasns) else tag = 66 call mpi_recv(rcv,1,& - MPI_INTEGER,i,tag,MPI_COMM_WORLD,mpp_status,ierr) + MPI_INTEGER,i,tag,HYDRO_COMM_WORLD,mpp_status,ierr) sizeInd(i+1) = rcv end if @@ -100,10 +101,10 @@ subroutine gw_write_io_real(numbasns,inV,ind,outV) if(numbasns .gt. 0) then tag = 62 call mpi_send(inV,numbasns,MPI_REAL, IO_id, & - tag,MPI_COMM_WORLD,ierr) + tag,HYDRO_COMM_WORLD,ierr) tag2 = 63 call mpi_send(ind,numbasns,MPI_INTEGER, IO_id, & - tag2,MPI_COMM_WORLD,ierr) + tag2,HYDRO_COMM_WORLD,ierr) endif else @@ -116,10 +117,10 @@ subroutine gw_write_io_real(numbasns,inV,ind,outV) if(sizeInd(i+1) .gt. 0) then tag = 62 call mpi_recv(vbuff(1:sizeInd(i+1)),sizeInd(i+1),& - MPI_REAL,i,tag,MPI_COMM_WORLD,mpp_status,ierr) + MPI_REAL,i,tag,HYDRO_COMM_WORLD,mpp_status,ierr) tag2 = 63 call mpi_recv(ibuff(1:sizeInd(i+1)),sizeInd(i+1),& - MPI_INTEGER,i,tag2,MPI_COMM_WORLD,mpp_status,ierr) + MPI_INTEGER,i,tag2,HYDRO_COMM_WORLD,mpp_status,ierr) do k = 1, sizeInd(i+1) outV(ibuff(k)) = vbuff(k) @@ -159,10 +160,10 @@ subroutine gw_write_io_int(numbasns,inV,ind,outV) if(numbasns .gt. 0) then tag = 62 call mpi_send(inV,numbasns,MPI_INTEGER, IO_id, & - tag,MPI_COMM_WORLD,ierr) + tag,HYDRO_COMM_WORLD,ierr) tag2 = 63 call mpi_send(ind,numbasns,MPI_INTEGER, IO_id, & - tag2,MPI_COMM_WORLD,ierr) + tag2,HYDRO_COMM_WORLD,ierr) endif else @@ -175,10 +176,10 @@ subroutine gw_write_io_int(numbasns,inV,ind,outV) if(sizeInd(i+1) .gt. 0) then tag = 62 call mpi_recv(vbuff(1:sizeInd(i+1)),sizeInd(i+1),& - MPI_INTEGER,i,tag,MPI_COMM_WORLD,mpp_status,ierr) + MPI_INTEGER,i,tag,HYDRO_COMM_WORLD,mpp_status,ierr) tag2 = 63 call mpi_recv(ibuff(1:sizeInd(i+1)),sizeInd(i+1),& - MPI_INTEGER,i,tag2,MPI_COMM_WORLD,mpp_status,ierr) + MPI_INTEGER,i,tag2,HYDRO_COMM_WORLD,mpp_status,ierr) do k = 1, sizeInd(i+1) outV(ibuff(k)) = vbuff(k) diff --git a/hydro/MPP/module_mpp_ReachLS.F b/hydro/MPP/module_mpp_ReachLS.F index 5434bba866..7a77ff0653 100644 --- a/hydro/MPP/module_mpp_ReachLS.F +++ b/hydro/MPP/module_mpp_ReachLS.F @@ -34,6 +34,7 @@ MODULE MODULE_mpp_ReachLS interface ReachLS_decomp module procedure ReachLS_decompReal + module procedure ReachLS_decompReal8 module procedure ReachLS_decompInt module procedure ReachLS_decompChar end interface @@ -41,6 +42,7 @@ MODULE MODULE_mpp_ReachLS interface ReachLS_write_io module procedure ReachLS_wReal module procedure ReachLS_wReal2 + module procedure ReachLS_wReal8 module procedure ReachLS_wInt module procedure ReachLS_wInt2 module procedure ReachLS_wChar @@ -479,6 +481,36 @@ subroutine ReachLS_decompReal(inV,outV) call mpp_land_sync() END subroutine ReachLS_decompReal + subroutine ReachLS_decompReal8(inV,outV) + implicit none + real*8,intent(in),dimension(:) :: inV + real*8,intent(out),dimension(:) :: outV + integer :: i, ierr, tag + tag = 11 + if(my_id .eq. io_id) then + do i = 1, numprocs + if(i-1 .eq. io_id) then + if(alinksl(i) .gt. 0) then + outV(1:(linkls_e(i)-linkls_s(i)+1) ) = inV(linkls_s(i):linkls_e(i)) + endif + else + if(aLinksl(i) .gt. 0) then + call mpi_send(inV(linkls_s(i):linkls_e(i)), & + aLinksl(i), & + MPI_REAL8, i-1 ,tag,HYDRO_COMM_WORLD,ierr) + endif + endif + end do + else + if(aLinksl(my_id+1) .gt. 0) then + call mpi_recv(outV(1:(linkls_e(my_id+1)-linkls_s(my_id+1)+1) ), & !! this one has +1! + aLinksl(my_id+1), & + MPI_REAL8, io_id,tag,HYDRO_COMM_WORLD,mpp_status,ierr) + endif + endif + call mpp_land_sync() + end subroutine ReachLS_decompReal8 + subroutine ReachLS_decompInt(inV,outV) implicit none integer,INTENT(in),dimension(:) :: inV @@ -530,7 +562,7 @@ subroutine ReachLS_decompChar(inV,outV) if(aLinksl(i) .gt. 0) then ! The mpi_send takes what you give it and THEN treats each caracter as an array element. call mpi_send(inV(linkls_s(i):linkls_e(i)), & - aLinksl(i), & + strLen*aLinksl(i), & MPI_CHARACTER, i-1, tag, HYDRO_COMM_WORLD, ierr) endif endif @@ -538,9 +570,9 @@ subroutine ReachLS_decompChar(inV,outV) else if(aLinksl(my_id+1) .gt. 0) then ! The mpi_recv treats each caracter as an array element. - call mpi_recv(outV(1 : ((linkls_e(my_id+1)-linkls_s(my_id+1)+1)) ), & !jlm should have +1 - alinksl(my_id+1), & - MPI_CHARACTER, io_id, tag, HYDRO_COMM_WORLD, mpp_status,ierr ) + call mpi_recv(outV(1 : (linkls_e(my_id+1)-linkls_s(my_id+1)+1) ), & !jlm should have +1 + strLen*alinksl(my_id+1), & + MPI_CHARACTER, io_id, tag, HYDRO_COMM_WORLD, mpp_status,ierr ) endif endif call mpp_land_sync() @@ -581,6 +613,41 @@ subroutine ReachLS_wReal(inV,outV) call mpp_land_sync() END subroutine ReachLS_wReal + subroutine ReachLS_wReal8(inV,outV) + implicit none + real*8,intent(in),dimension(:) :: inV + real*8,intent(out),dimension(:) :: outV + integer :: i, ierr, tag, ss , mm + outV = 0 + if(my_id .eq. io_id) then + do i = 1, numprocs + tag = 12 + if(i-1 .eq. io_id) then + if(alinksl(i) .gt. 0) then + outV(linkls_s(i):linkls_e(i)) = inV(1:linkls_e(i)-linkls_s(i)+1) + endif + else + if(aLinksl(i) .gt. 0) then + + call mpi_recv(outV(linkls_s(i):linkls_e(i)), & + aLinksl(i), & + MPI_REAL8,i-1,tag,HYDRO_COMM_WORLD,mpp_status,ierr) + endif + endif + end do + else + if(aLinksl(my_id+1) .gt. 0) then + tag = 12 + ss = size(inv,1) + call mpi_send(inV(1:aLinksl(my_id+1) ), & + aLinksl(my_id+1), & + MPI_REAL8,io_id,tag,HYDRO_COMM_WORLD,ierr) + endif + endif + call mpp_land_sync() + END subroutine ReachLS_wReal8 + + subroutine ReachLS_wInt(inV,outV) implicit none integer,INTENT(in),dimension(:) :: inV @@ -965,9 +1032,9 @@ subroutine pack_decomp_int(g1bufid, ndata, nprocs_map, lnsizes, istart,bufid) end if end do end if - if(my_id .eq. io_id) then - if(allocated(buf)) deallocate(buf) - endif + if(my_id .eq. io_id) then + if(allocated(buf)) deallocate(buf) + endif end subroutine pack_decomp_int subroutine pack_decomp_real8(g1bufid, ndata, nprocs_map, lnsizes, istart,bufid) diff --git a/hydro/MPP/mpp_land.F b/hydro/MPP/mpp_land.F index 4ce5116715..71bdd4c4c5 100644 --- a/hydro/MPP/mpp_land.F +++ b/hydro/MPP/mpp_land.F @@ -59,6 +59,7 @@ MODULE MODULE_MPP_LAND module procedure mpp_land_bcast_real_1d module procedure mpp_land_bcast_real8_1d module procedure mpp_land_bcast_real1 + module procedure mpp_land_bcast_real1_double module procedure mpp_land_bcast_char1d module procedure mpp_land_bcast_char1 module procedure mpp_land_bcast_int1 @@ -151,12 +152,10 @@ subroutine MPP_LAND_INIT() CALL mpi_initialized( mpi_inited, ierr ) if ( .NOT. mpi_inited ) then call MPI_INIT( ierr ) ! stand alone land model. + endif HYDRO_COMM_WORLD = MPI_COMM_WORLD - else call MPI_COMM_RANK( HYDRO_COMM_WORLD, my_id, ierr ) call MPI_COMM_SIZE( HYDRO_COMM_WORLD, numprocs, ierr ) - return - endif ! create 2d logical mapping of the CPU. call log_map2d() return @@ -372,10 +371,10 @@ subroutine get_local_size(local_nx, local_ny,rt_nx,rt_ny) integer s_r(2) ! if(my_id .eq. IO_id) then - allocate(local_nx_size(numprocs),stat = status) - allocate(local_ny_size(numprocs),stat = status) - allocate(local_rt_nx_size(numprocs),stat = status) - allocate(local_rt_ny_size(numprocs),stat = status) + if(.not. allocated(local_nx_size) ) allocate(local_nx_size(numprocs),stat = status) + if(.not. allocated(local_ny_size) ) allocate(local_ny_size(numprocs),stat = status) + if(.not. allocated(local_rt_nx_size) ) allocate(local_rt_nx_size(numprocs),stat = status) + if(.not. allocated(local_rt_ny_size) ) allocate(local_rt_ny_size(numprocs),stat = status) ! end if call mpp_land_sync() @@ -573,8 +572,8 @@ subroutine calculate_start_p() integer :: r_s(2) integer :: t_nx, t_ny - allocate(starty(numprocs),stat = ierr) - allocate(startx(numprocs),stat = ierr) + if(.not. allocated(starty) ) allocate(starty(numprocs),stat = ierr) + if(.not. allocated(startx) ) allocate(startx(numprocs),stat = ierr) local_startx = int(global_nx/left_right_np) * left_right_p+1 local_starty = int(global_ny/up_down_np) * up_down_p+1 @@ -976,6 +975,15 @@ subroutine mpp_land_bcast_real1(inout) return end subroutine mpp_land_bcast_real1 + subroutine mpp_land_bcast_real1_double(inout) + real*8 inout + integer ierr + call mpi_bcast(inout,1,MPI_REAL8, & + IO_id,HYDRO_COMM_WORLD,ierr) + call mpp_land_sync() + return + end subroutine mpp_land_bcast_real1_double + subroutine mpp_land_bcast_real_1d(inout) integer len real inout(:) @@ -1510,6 +1518,71 @@ subroutine MPP_CHANNEL_COM_REAL(Link_location,ix,jy,Link_V,size,flag) enddo end subroutine MPP_CHANNEL_COM_REAL + + subroutine MPP_CHANNEL_COM_REAL8(Link_location,ix,jy,Link_V,size,flag) + ! communicate the data for channel routine. + implicit none + integer ix,jy,size + integer Link_location(ix,jy) + integer i,j, flag + real*8 :: Link_V(size), tmp_inout(ix,jy) + + tmp_inout = -999 + + if(size .eq. 0) then + tmp_inout = -999 + else + + ! map the Link_V data to tmp_inout(ix,jy) + do i = 1,ix + if(Link_location(i,1) .gt. 0) & + tmp_inout(i,1) = Link_V(Link_location(i,1)) + if(Link_location(i,2) .gt. 0) & + tmp_inout(i,2) = Link_V(Link_location(i,2)) + if(Link_location(i,jy-1) .gt. 0) & + tmp_inout(i,jy-1) = Link_V(Link_location(i,jy-1)) + if(Link_location(i,jy) .gt. 0) & + tmp_inout(i,jy) = Link_V(Link_location(i,jy)) + enddo + do j = 1,jy + if(Link_location(1,j) .gt. 0) & + tmp_inout(1,j) = Link_V(Link_location(1,j)) + if(Link_location(2,j) .gt. 0) & + tmp_inout(2,j) = Link_V(Link_location(2,j)) + if(Link_location(ix-1,j) .gt. 0) & + tmp_inout(ix-1,j) = Link_V(Link_location(ix-1,j)) + if(Link_location(ix,j) .gt. 0) & + tmp_inout(ix,j) = Link_V(Link_location(ix,j)) + enddo + endif + +! commu nicate tmp_inout + call MPP_LAND_COM_REAL8(tmp_inout, ix,jy,flag) + +!map the data back to Link_V + if(size .eq. 0) return + do j = 1,jy + if( (Link_location(1,j) .gt. 0) .and. (tmp_inout(1,j) .ne. -999) ) & + Link_V(Link_location(1,j)) = tmp_inout(1,j) + if((Link_location(2,j) .gt. 0) .and. (tmp_inout(2,j) .ne. -999) ) & + Link_V(Link_location(2,j)) = tmp_inout(2,j) + if((Link_location(ix-1,j) .gt. 0) .and. (tmp_inout(ix-1,j) .ne. -999)) & + Link_V(Link_location(ix-1,j)) = tmp_inout(ix-1,j) + if((Link_location(ix,j) .gt. 0) .and. (tmp_inout(ix,j) .ne. -999) )& + Link_V(Link_location(ix,j)) = tmp_inout(ix,j) + enddo + do i = 1,ix + if((Link_location(i,1) .gt. 0) .and. (tmp_inout(i,1) .ne. -999) )& + Link_V(Link_location(i,1)) = tmp_inout(i,1) + if( (Link_location(i,2) .gt. 0) .and. (tmp_inout(i,2) .ne. -999) )& + Link_V(Link_location(i,2)) = tmp_inout(i,2) + if((Link_location(i,jy-1) .gt. 0) .and. (tmp_inout(i,jy-1) .ne. -999) ) & + Link_V(Link_location(i,jy-1)) = tmp_inout(i,jy-1) + if((Link_location(i,jy) .gt. 0) .and. (tmp_inout(i,jy) .ne. -999) ) & + Link_V(Link_location(i,jy)) = tmp_inout(i,jy) + enddo + end subroutine MPP_CHANNEL_COM_REAL8 + subroutine MPP_CHANNEL_COM_INT(Link_location,ix,jy,Link_V,size,flag) ! communicate the data for channel routine. implicit none @@ -1839,8 +1912,7 @@ subroutine write_lake_real(v,nodelist_in,nlakes) v(node) = recv(node) endif enddo - end if - + end if end do else tag = 129 @@ -1926,6 +1998,15 @@ subroutine combine_int1d(vin,nsize, flag) end subroutine combine_int1d + subroutine sum_real1d(vin,nsize) + implicit none + integer :: nsize + real,dimension(nsize) :: vin + real*8,dimension(nsize) :: vin8 + vin8=vin + call sum_real8(vin8,nsize) + vin=vin8 + end subroutine sum_real1d subroutine sum_real8(vin,nsize) implicit none @@ -2260,6 +2341,42 @@ subroutine updateLake_seq(in,nsize,in0) end subroutine updateLake_seq + subroutine updateLake_grid(in,nsize,lake_index) + implicit none + integer :: nsize + real, dimension(nsize) :: in + integer, dimension(nsize) :: lake_index + real, dimension(nsize) :: tmp + integer tag, i, status, ierr, k + if(nsize .le. 0) return + + if(my_id .ne. IO_id) then + tag = 29 + call mpi_send(in,nsize,MPI_REAL, IO_id, & + tag,HYDRO_COMM_WORLD,ierr) + tag = 30 + call mpi_send(lake_index,nsize,MPI_INTEGER, IO_id, & + tag,HYDRO_COMM_WORLD,ierr) + else + do i = 0, numprocs - 1 + if(i .ne. IO_id) then + tag = 29 + call mpi_recv(tmp,nsize,& + MPI_REAL,i,tag,HYDRO_COMM_WORLD,mpp_status,ierr) + tag = 30 + call mpi_recv(lake_index,nsize,& + MPI_INTEGER,i,tag,HYDRO_COMM_WORLD,mpp_status,ierr) + do k = 1, nsize + if(lake_index(k) .gt. 0) in(k) = tmp(k) + end do + end if + end do + end if + call mpp_land_bcast_real_1d(in) + + end subroutine updateLake_grid + + !subroutine match1dLake: !global lake. Find the same lake and mark as flag ! default of win is 0 @@ -2339,6 +2456,46 @@ subroutine mpp_comm_scalar_char(scalar, fromImage, toImage) end subroutine mpp_comm_scalar_char + subroutine mpp_comm_1d_real(vector, fromImage, toImage) + implicit none + real, dimension(:), intent(inout) :: vector + integer, intent(in) :: fromImage, toImage + integer:: ierr, tag + integer:: my_id,numprocs + tag=2 + call MPI_COMM_RANK(MPI_COMM_WORLD,my_id,ierr) + call MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr) + if(numprocs > 1) then + if(my_id .eq. fromImage) & + call mpi_send(vector, size(vector), MPI_REAL, & + toImage, tag, MPI_COMM_WORLD, ierr) + if(my_id .eq. toImage) & + call mpi_recv(vector, size(vector), MPI_REAL, & + fromImage, tag, MPI_COMM_WORLD, mpp_status, ierr) + endif + end subroutine mpp_comm_1d_real + + + subroutine mpp_comm_1d_char(vector, fromImage, toImage) + implicit none + character(len=*), dimension(:), intent(inout) :: vector + integer, intent(in) :: fromImage, toImage + integer:: ierr, tag, totalLength + integer:: my_id,numprocs + tag=2 + call MPI_COMM_RANK(MPI_COMM_WORLD,my_id,ierr) + call MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr) + totalLength=len(vector(1))*size(vector,1) + if(numprocs > 1) then + if(my_id .eq. fromImage) & + call mpi_send(vector, totalLength, MPI_CHARACTER, & + toImage, tag, HYDRO_COMM_WORLD, ierr) + if(my_id .eq. toImage) & + call mpi_recv(vector, totalLength, MPI_CHARACTER, & + fromImage, tag, HYDRO_COMM_WORLD, mpp_status, ierr) + endif + end subroutine mpp_comm_1d_char + END MODULE MODULE_MPP_LAND diff --git a/hydro/Makefile b/hydro/Makefile new file mode 100644 index 0000000000..91bdbbd3d0 --- /dev/null +++ b/hydro/Makefile @@ -0,0 +1,33 @@ +# Makefile +all: + @if [ ! -d "Run" ]; then \ + (mkdir Run);\ + fi + (rm -f Run/wrf_hydro.exe ) + (make -f Makefile.comm BASIC) + @if [ -d "LandModel_cpl" ]; then \ + (cd LandModel_cpl; make) \ + fi + if [ $(WRF_HYDRO_RAPID) -eq 1 ]; then \ + (cd lib;rm -f librapid.a); \ + fi + if [ $(WRF_HYDRO_RAPID) -eq 1 ]; then \ + (cd Rapid_routing; make -f makefile.cpl rapid); \ + fi + + @if [ -d "LandModel" ]; then \ + (cd LandModel; make ; rm -f ../../Run/wrf_hydro.exe; mv run/hrldas.exe ../../Run/wrf_hydro.exe ) \ + fi + +clean: + @if [ -d "LandModel_cpl" ]; then \ + (cd LandModel_cpl; make clean) \ + fi + (make -f Makefile.comm clean) + @if [ -d "LandModel" ]; then \ + (cd LandModel; make clean) \ + fi + if [ $(WRF_HYDRO_RAPID) -eq 1 ]; then \ + (cd Rapid_routing; make -f makefile.cpl clean); \ + fi + (rm -f */*.mod */*.o lib/*.a Run/wrf_hydro.exe) diff --git a/hydro/README.hydro b/hydro/README.hydro deleted file mode 100644 index c146626aca..0000000000 --- a/hydro/README.hydro +++ /dev/null @@ -1,123 +0,0 @@ - -There are two parts in thi readme file. -Part I is for fully coupled with WRF model. Part II is for offline version. - - -Part I Fully coupled with WRF Model -1. Building - -1) General description -WRF-Hydro is a coupling architecture designed to simplify the coupling of terrestrial -hydrological models with the WRF model. The WRF-Hydro system is compiled as an independent -library to link with the WRF model and called by the WRF model as a function. The calling -of WRF-Hydro within the WRF model is controlled by a macro definition that is specified -as an environment setting during the compiling process. When WRF-Hydro is not activated -within the environment setting before the WRF configuration process, the entire system -defaults to the standard WRF model. To compile WRF-Hydro system, user only needs to set -environment variable ("setenv WRF_HYDRO 1"), and then follow the standard WRF model -configure and compiling process. - -2) Environment settings -The following environment variables need to be set before configuring and compiling the WRF-HYDRO model, -(those are defined in setEnvar.csh for offline). The compiling scripts will automatic source setEnvar.csh. - -setenv WRF_HYDRO 1 -"1" is to activate WRF-Hydro. "0" or no definition will default to the WRF model only. - -setenv HYDRO_D 1 -A "1" for HYDRO_D results in WRF-Hydro producing some run-time diagnostic information. -When HYDRO_D is set to "0 "or not defined, the diagnostic information will not be produced -during run-time. - -You can explicitly set the "NETCDF_INC" and "NETCDF_LIB" environment variables or just set "NETCDF". -If you only set "NETCDF" environment variable, the default NETCDF_INC and NETCDF_LIB inside WRF-Hydro -will be "$NETCDF/include" and "NETCDF/lib". - -setenv NETCDF_INC "$path/netcdf/include" -setenv NETCDF_LIB "$path/netcdf/lib" - -"NETCDF_INC" and "NETCDF_LIB" are defined for the WRF-Hydro only and can be different from those -set for the WRF model. WRF-Hydro has two netcdf libraries for Fortran and C respectively: -libnetcdff and ibnetcdf. If the user's netcdf library combined them together (only has one), -the user will need to manually change this part in order to successfully compile WRF-Hydro. -See the section below on porting about how to change this. - -Notes: If you are going to create model output file that is more than 2Gb, - you should consider using netCDF large file support function. To activate - this, one must set the environment variable WRFIO_NCD_LARGE_FILE_SUPPORT. - In c-shell environment, do - - setenv WRFIO_NCD_LARGE_FILE_SUPPORT 1 - -3) Configuring and compiling -On the following platforms, the configuring and compiling commands are the same as WRF model -after the user has set up the above four environment variables. -The compiler options IBM AIX with xlf fortran are not fully tested. -Other three pgi, gfortran and intel are tested. -As stated above, the WRF-Hydro system is called as a function inside the WRF model and thus only one executable -is created when WRF-Hydro is compiled with WRF. If user compiles the system successfully, -only a single "wrf.exe" file will be created. - -2. Running - -The fully coupled WRF/WRF-Hydro system has the same running or execution command as that of WRF. -Generally the same parameters and initial files are used as when normally running WRF. However, -WRF-Hydro has an additional namelist called "hydro.namelist" as well as some additional parameter -files (.TBL files) that are located under the "hydro/Run" directory. Users need to copy those -files to the directory where the "wrf.exe" is going to be executed. - -For a WRF-Hydro cold start run (i.e. not from a restart file), the user needs to provide three -additional files that are specified in the "hydro.namelist": "GEO_STATIC_FLNM", "GEO_FINEGRID_FLNM" -and, depending on whether or not the baseflow-bucket model is activated, "gwbasmskfil". - -For running WRF-Hydro from restart file, the user needs to uncomment RESTART_FILE from -"hydro.namelist" by removing "!" and provide the exact name for the existing restart file -to be used. Running from a restart condition is common when the land surface has been -`spun-up' by running WRF-Hydro in an offline or `uncoupled' capacity. - -3. Porting - -The WRF-Hydro does not presently support OPENMP. The default support platform is Linux -with the PGI compiler, IBM AIX with the xlf fortran compiler, and Linux with the GFORTRAN -(sequential) compiler. However, WRF-Hydro is fairly easy to port to other systems. -The basic steps to do so are as follows: - -1) Edit "hydro/configure", and add "exit(0);" to the second line so that "configure" will not be executed. -2) Edit "hydro/macros" to set desired compiling options. -3) Under hydro/WRF_cpl directory: -"make -f Makefile.cpl clean" -"make -f Makefile.cpl " - -If there is no error, then user can compile the fully coupled WRF and WRF-Hydro model on the new platform. - -4. Realtime mode: -For realtime mode, user need to do setenv HYDRO_REALTIME before compiling the code. -This will thin the output. - -Part II Offline compiling -Under hydro/ directory. -1. setenv WRF_HYDRO 1 -2. setenv NETCDF your_netcdf_library_path -or -setenv NETCDF_INC "$path/netcdf/include" -setenv NETCDF_LIB "$path/netcdf/lib" -3. ./configure - -------> choose correct compiler -4. ./compile_offline_NoahMP.csh - ---->compile offine version with NoahMP driver -or - ./compile_offline_Noah.csh - ----->compile offline version with Noah driver -5. Executable files are created under hydro/Run directory. - -Note: Noah and NoahMP have the same name of "namelist.hrldas". But they are different. - - -6. Other Issues -If you are doing fully coupled run and your fine mesh grid time step is <= 1. - -Edit the file "dyn_em/module_first_rk_step_part1.F", change the line from -if(HYDRO_dt .gt. 1 ) call wrf_drv_HYDRO(HYDRO_dt, grid, & -to -if(HYDRO_dt .gt. 0 ) call wrf_drv_HYDRO(HYDRO_dt, grid, & - diff --git a/hydro/Rapid_routing/.rapid_init.F90.swp b/hydro/Rapid_routing/.rapid_init.F90.swp new file mode 100644 index 0000000000..a50a70a690 Binary files /dev/null and b/hydro/Rapid_routing/.rapid_init.F90.swp differ diff --git a/hydro/Rapid_routing/hrldas_RAPID_drv.F90 b/hydro/Rapid_routing/hrldas_RAPID_drv.F90 deleted file mode 100644 index 46ac651182..0000000000 --- a/hydro/Rapid_routing/hrldas_RAPID_drv.F90 +++ /dev/null @@ -1,18 +0,0 @@ -program main_program - use hrldas_RAPID_wrapper , only : hrldas_RAPID_ini,hrldas_RAPID_exe - implicit none - - integer, parameter :: ii = 224 - integer, parameter :: jj = 242 - real,dimension(ii,jj) :: runoff - integer ITIME, NTIME -! character(len=100) :: Qout_nc_file = './RAPID.with.WRF_hydro.0000.nc' - - call hrldas_RAPID_ini(NTIME) - - do ITIME=1,NTIME - call hrldas_RAPID_exe(runoff,ii,jj) - end do -! end loop for calling RAPID programs - - end diff --git a/hydro/Rapid_routing/hrldas_RAPID_wrapper.F90 b/hydro/Rapid_routing/hrldas_RAPID_wrapper.F90 deleted file mode 100644 index c4a99b5c2d..0000000000 --- a/hydro/Rapid_routing/hrldas_RAPID_wrapper.F90 +++ /dev/null @@ -1,210 +0,0 @@ -module hrldas_RAPID_wrapper -!---This Wrapper provides an interface for WRF-Hydro to call RAPID-- -! If not initialized, do initialization first -! If initialized, continue RAPID computation -!---The Wrapper also contains RAPID coupler, which defines where -! LSM runoff is mapped into vector-based river reaches -!---Author: -!---Peirong Lin, 2014-2015--------------------------------------- - -use rapid_var, only : namelist_file, & - Qout_file, & - ZV_read_riv_tot,ZV_read_obs_tot,ZV_read_hum_tot,& - IS_riv_tot,IS_riv_bas,JS_riv_tot, & - IV_riv_bas_id,IV_riv_index,IV_riv_loc1, & - ierr,stage,rank, & - ZS_TauR - -#include "finclude/petscsys.h" -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -#include "finclude/petscmat.h" -#include "finclude/petscksp.h" -#include "finclude/petscpc.h" -#include "finclude/petscviewer.h" -#include "finclude/petsclog.h" -#ifndef NO_TAO -#include "finclude/taosolver.h" -#endif - -!--LPR defined variables for RAPID loop--------- -integer cnt_rapid_run -logical initialized -character(len=100) :: str -character(len=100) :: Qout_nc_dir -character(len=100) :: Qout_nc_file !---LPR: RAPID output file name-- -integer, dimension(:), allocatable :: IV_i_index -integer, dimension(:), allocatable :: IV_j_index -real, dimension(:), allocatable :: ZV_areakm !--LPR: size depending on rivers - -CONTAINS - -!---SUBROUTINE TO LINK WITH WRF-HYDRO----------------- - subroutine hrldas_RAPID_ini(ntime) -! use rapid_main , only : rapid_ini - implicit none - integer :: ntime - - if (rank==0) then - print *,'RAPID initialized = ',initialized - if(initialized) return !If not first time initialization - - print *,'***********************************************************' - print *,'*******Initialize RAPID model******************************' - print *,'***********************************************************' - call rapid_ini(ntime) - initialized = .True. - end if - - call PetscLogStageRegister('Read Comp Write',stage,ierr) - call PetscLogStagePush(stage,ierr) - end subroutine hrldas_RAPID_ini - - - -!---SUBROUTINE TO LINK WITH WRF-HYDRO & DRIVE RAPID ----------------- - subroutine hrldas_RAPID_exe(runoff,ii,jj) -! use rapid_main , only : rapid_main_exe - implicit none - real,dimension(ii,jj) :: runoff - integer :: ii,jj - - !---LPR: convert LSM runoff to mm/hour (previous: mm, total runoff in a time step) - runoff = runoff/ZS_TauR*3600 !if LSM=3hrly, original runoff is in - - !---LPR: MPI debug information------------------ - !write(70+rank,*) "yywww test inside the rapid " - !call flush(70+rank) - - if (rank==0) then - if(cnt_rapid_run==0) then - Qout_nc_dir = Qout_file !---define RAPID output director-------- - end if - cnt_rapid_run = cnt_rapid_run + 1 - !---LPR: define RAPID output filenames---------------------------- - if (cnt_rapid_run < 10) then - write(str,100) cnt_rapid_run -100 format('0000',i1) - else if (cnt_rapid_run < 100) then - write(str,200) cnt_rapid_run -200 format('000',i2) - else if (cnt_rapid_run < 1000) then - write(str,300) cnt_rapid_run -300 format('00',i3) - else if (cnt_rapid_run < 10000) then - write(str,400) cnt_rapid_run -400 format('0',i4) - else - write(str,'(i5)') cnt_rapid_run - end if - Qout_nc_file = trim(Qout_nc_dir)//'RAPID.with.WRF_hydro.'//trim(str)//'.nc' - print *,'RAPID output Qout_nc_file = ',trim(Qout_nc_file) - end if - - call rapid_main(1,runoff,ii,jj,Qout_nc_file) - - !--LPR: add to test runoff in RESTART run mode, can remove this later----------- - !if(cnt_rapid_run == 2) then - ! write(81,*) runoff - !endif - - end subroutine hrldas_RAPID_exe - - - -!-----------RAPID initialization call---------------------------------------------- - subroutine rapid_ini(NTIME) - implicit none - integer NTIME - namelist_file='./rapid_namelist' - - if (rank==0) then - print *,'First time RAPID initialization ... & - May take a while depending on size of river network ... & - ... Wait ...' - call rapid_init - end if - - end subroutine rapid_ini - - - -!--------------RAPID coupler: gridded runoff to vector runoff----------------------- - subroutine rapid_runoff_to_inflow(ZM_runoff,ZV_Vlat,cnt_rapid_run) - implicit none - - real, dimension(:,:), intent(in) :: ZM_runoff - Vec, intent(out) :: ZV_Vlat - integer :: cnt_rapid_run - integer :: JS_lon,JS_lat - character(len=100) :: rapid_coupling_file='./rapid_input_tx/RAPID_coupling_WRF_hydro.csv' - !---LPR: need to optimize code----- - - !----------tease out weird runoff values----------- - if (rank==0) then - if (maxval(ZM_runoff)>1000) stop 'Runoff exceeds 1000' - if (minval(ZM_runoff)<0) stop 'Negative runoff' - !print *, 'Maximum value for ZM_runoff is:', maxval(ZM_runoff) - end if - - !----------COUPLING START---------------------------- - if (rank==0) then - !---initialize river reaches-------------------------------------- - do JS_riv_tot=1,IS_riv_tot - ZV_read_riv_tot(JS_riv_tot) = 0. - end do - - if (cnt_rapid_run==1) then - allocate(IV_i_index(IS_riv_tot)) - allocate(IV_j_index(IS_riv_tot)) - allocate(ZV_areakm(IS_riv_tot)) - !If first time RAPID call: read coupling files - !----------OPTION 1: Catchment centroid-based coupling----------- - open(88,file=rapid_coupling_file,status='old') - do JS_riv_tot=1,IS_riv_tot - read(88,*) IV_riv_bas_id(JS_riv_tot),ZV_areakm(JS_riv_tot), & - IV_i_index(JS_riv_tot),IV_j_index(JS_riv_tot) - end do - close(88) - print *,' LPR CHECK river 30000 ',IV_riv_bas_id(30000),ZV_areakm(30000), & - IV_i_index(30000),IV_j_index(30000) - !---------END OPTION 1---------------------------------- - - !---------OPTION 2: Area-weighted coupling---------------------- - - !--------END OPTION 2----------------------------------- - - print *,'****First time: RAPID read coupling file successfully************' - end if !---LPR: only read coupling inforamtion once--------------- - - !---LPR: actual coupling (mapping runoff from LSM to rivers)------------ - do JS_riv_tot=1,IS_riv_tot - JS_lon=IV_i_index(JS_riv_tot) - JS_lat=IV_j_index(JS_riv_tot) - !print *,'Location ::: ',JS_lon,JS_lat - !print *,'Values ::: ',ZM_runoff(JS_lon,JS_lat),ZV_areakm(JS_riv_tot) - ZV_read_riv_tot(JS_riv_tot)=ZM_runoff(JS_lon,JS_lat) & - *ZV_areakm(JS_riv_tot)*1000 - !with runoff in kg/m2=mm and area in km2 - !----LPR CHECK POINTS------------ - if(JS_riv_tot .eq. 30000) then - print *,'***LPR CHECK*** m3_riv value = ',ZV_read_riv_tot(JS_riv_tot) - end if - end do - - print *, '************************************************************' - print *, '***** LPR: RAPID coupling successful! **********************' - print *, '************************************************************' - end if - - !------write to PETSC vector--------------------------- - if (rank==0) then - print *,' number of river reaches = ',IS_riv_bas - call VecSetValues(ZV_Vlat,IS_riv_bas,IV_riv_loc1,& - ZV_read_riv_tot(IV_riv_index),INSERT_VALUES,ierr) - end if - call VecAssemblyBegin(ZV_Vlat,ierr) - call VecAssemblyEnd(ZV_Vlat,ierr) - end subroutine rapid_runoff_to_inflow - -end module hrldas_RAPID_wrapper diff --git a/hydro/Rapid_routing/rapid_arrays.F90 b/hydro/Rapid_routing/rapid_arrays.F90 deleted file mode 100644 index 6adb263ec8..0000000000 --- a/hydro/Rapid_routing/rapid_arrays.F90 +++ /dev/null @@ -1,709 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_arrays -!******************************************************************************* -subroutine rapid_arrays - -!Purpose: -!Create arrays from input files that are useful for RAPID. -!for all simulations, RAPID can run on a subset of all available river reaches -!of the domain. -!Three Fortran vectors are useful here: -! - IV_riv_bas_id(IS_riv_bas) allows to know the IDs of the subbasin studied -! - IV_riv_bas_index(IS_riv_bas) allows to know where the flow values are -! located in Vlat_file using the 1-based ZV_read_riv_tot -! - IV_riv_bas_loc1(IS_riv_bas) allows to know where to ad dthe flow values in -! the current modeling domain using the 0-based ZV_Qout -!When human-induced option is activated, the flow entering each given river ID -!is read from a file and added to the inflow the corresponding river. -!Three Fortran vectors are useful here: -! - IV_hum_bas_id(IS_hum_bas) allows to know the IDs of the humand-induced flows -! locations into the subbasin -! - IV_hum_index(IS_hum_bas) allows to know where the flow values are -! located in Qhum_file using the 1-based ZV_read_hum_tot -! - IV_hum_loc1(IS_hum_bas) allows to know where to add the flow values -! in the current modeling domain using the 0-based ZV_Qhum -!When forcing option is activated, the flow exiting each given river ID is -!read from a file and added to the inflow of its downstream river. -!Three Fortran vectors are useful here: -! - IV_for_bas_id(IS_for_bas) allows to know the IDs of the forcing locations -! flowing into the subbasin -! - IV_for_index(IS_for_bas) allows to know where the flow values are -! located in Qfor_file using the 1-based ZV_read_for_tot -! - IV_for_loc2(IS_for_bas) allows to know where to add the flow values -! in the current modeling domain using the 0-based ZV_Qfor -!When dam option is activated, the flow exiting each given river ID is -!obtained from a model and added to the inflow of its downstream river. -!Four Fortran vectors are useful here: -! - IV_dam_bas_id(IS_dam_bas) allows to know the IDs of the dam locations -! in the subbasin -! - IV_dam_index(IS_dam_bas) allows to know where the flow values are -! located in dam model array using the 1-based ZV_read_dam_tot -! - IV_dam_loc2(IS_dam_bas) allows to know where to add the flow values -! in the current modeling domain using the 0-based ZV_Qdam -! - IV_dam_pos(IS_dam_bas) allows to know where to read the flow values for the -! dam model in the current modeling domain using the 0-based ZV_Qdam -!When RAPID is run in optimization mode, the flow measured at each given river -!ID is read from a file and compared to computations. -!Three Fortran vectors are useful here: -! - IV_obs_bas_id(IS_obs_bas) allows to know the IDs of the observations -! - IV_obs_index(IS_obs_bas) allows to know where the flow values are -! located in Qobs_file using the 1-based ZV_read_obs_tot -! - IV_obs_loc1(IS_obs_bas) allows to know where to put the flow values -! in the current modeling domain using the 0-based ZV_Qobs -!Author: -!Cedric H. David, 2014-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rapid_connect_file, & - IS_riv_tot,JS_riv_tot,JS_up, & - IV_riv_tot_id,IV_down,IV_nbup,IM_up,IM_index_up, & - riv_bas_id_file, & - IS_riv_bas,JS_riv_bas,JS_riv_bas2, & - ZM_hsh_tot,ZM_hsh_bas, & - IV_riv_bas_id,IV_riv_index,IV_riv_loc1, & - BS_opt_hum, & - hum_tot_id_file, & - IS_hum_tot,JS_hum_tot, & - IV_hum_tot_id, & - hum_use_id_file, & - IV_hum_use_id, & - IS_hum_use,JS_hum_use, & - IS_hum_bas,JS_hum_bas, & - IV_hum_bas_id,IV_hum_index,IV_hum_loc1, & - BS_opt_for, & - for_tot_id_file, & - IS_for_tot,JS_for_tot, & - IV_for_tot_id, & - for_use_id_file, & - IV_for_use_id, & - IS_for_use,JS_for_use, & - IS_for_bas,JS_for_bas, & - IV_for_bas_id,IV_for_index,IV_for_loc2,IV_dam_pos, & - BS_opt_dam, & - dam_tot_id_file, & - IS_dam_tot,JS_dam_tot, & - IV_dam_tot_id, & - dam_use_id_file, & - IV_dam_use_id, & - IS_dam_use,JS_dam_use, & - IS_dam_bas,JS_dam_bas, & - IV_dam_bas_id,IV_dam_index,IV_dam_loc2, & - IS_opt_run, & - obs_tot_id_file, & - IS_obs_tot,JS_obs_tot, & - IV_obs_tot_id, & - obs_use_id_file, & - IV_obs_use_id, & - IS_obs_use,JS_obs_use, & - IS_obs_bas,JS_obs_bas, & - IV_obs_index,IV_obs_loc1, & - BS_logical,temp_char,rank,ierr,IS_one,ZS_val - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Relationship between entire domain and study basin -!******************************************************************************* - -!------------------------------------------------------------------------------- -!Read data files -!------------------------------------------------------------------------------- -open(10,file=rapid_connect_file,status='old') -do JS_riv_tot=1,IS_riv_tot - read(10,*) IV_riv_tot_id(JS_riv_tot), IV_down(JS_riv_tot), & - IV_nbup(JS_riv_tot), IM_up(JS_riv_tot,:) -enddo -close(10) - -open(11,file=riv_bas_id_file,status='old') -do JS_riv_bas=1,IS_riv_bas - read(11,*) IV_riv_bas_id(JS_riv_bas) -end do -close(11) - -!------------------------------------------------------------------------------- -!Populate hashtable-like matrices -!------------------------------------------------------------------------------- -call rapid_hsh_mat - -!------------------------------------------------------------------------------- -!Calculate IS_riv_bas -!------------------------------------------------------------------------------- -!This is actually given in the namelist - -!------------------------------------------------------------------------------- -!Allocate and initialize IV_riv_index, IV_riv_loc1, and IM_index_up -!------------------------------------------------------------------------------- -!Allocation is actually done in rapid_init.F90 -IV_riv_index=0 -IV_riv_loc1=0 -IM_index_up=0 - -!------------------------------------------------------------------------------- -!Populate IV_riv_index -!------------------------------------------------------------------------------- -do JS_riv_bas=1,IS_riv_bas - ZS_val=-999 - call MatGetValues(ZM_hsh_tot, & - IS_one,rank, & - IS_one,IV_riv_bas_id(JS_riv_bas)-1, & - ZS_val,ierr) - CHKERRQ(ierr) - JS_riv_tot=int(ZS_val) - if (JS_riv_tot>0) then - IV_riv_index(JS_riv_bas)=JS_riv_tot - else - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas) - call PetscPrintf(PETSC_COMM_WORLD, & - 'ERROR: reach ID' // temp_char // & - ' not included in domain' // char(10),ierr) - stop - end if -end do -!vector with (Fortran, 1-based) indexes corresponding to reaches of basin -!within whole network -!IV_riv_index has two advantages. 1) it is needed in order to read inflow -!data (Vlat for ex). 2) It allows to avoid one other nested loop in the -!following, which reduces tremendously the computation time. - -!------------------------------------------------------------------------------- -!Populate IV_riv_loc1 -!------------------------------------------------------------------------------- -do JS_riv_bas=1,IS_riv_bas - IV_riv_loc1(JS_riv_bas)=JS_riv_bas-1 -enddo -!vector with zero-base index corresponding to one-base index - -!------------------------------------------------------------------------------- -!Populate IM_index_up -!------------------------------------------------------------------------------- -do JS_riv_bas2=1,IS_riv_bas -do JS_up=1, IV_nbup(IV_riv_index(JS_riv_bas2)) - ZS_val=-999 - call MatGetValues(ZM_hsh_bas, & - IS_one,rank, & - IS_one,IM_up(IV_riv_index(JS_riv_bas2),JS_up)-1, & - ZS_val,ierr) - CHKERRQ(ierr) - JS_riv_bas=int(ZS_val) - if (JS_riv_bas>0) IM_index_up(JS_riv_bas2,JS_up)=JS_riv_bas -end do -end do -!Used in traditional Muskingum method and to quicken matrix prealloc. & creation - -!------------------------------------------------------------------------------- -!Optional, display IV_riv_loc1, IV_riv_index, and IM_index_up -!------------------------------------------------------------------------------- -!if (rank==0) then -! print *, IV_riv_loc1 -! print *, IV_riv_index -! do JS_riv_bas=1,IS_riv_bas -! print *, IM_index_up(JS_riv_bas,:) -! end do -!end if - - -!******************************************************************************* -!If human-induced flows are used -!******************************************************************************* -if (BS_opt_hum) then -call PetscPrintf(PETSC_COMM_WORLD,'WARNING: Human-induced option activated' // & - char(10),ierr) - -!------------------------------------------------------------------------------- -!Read data files -!------------------------------------------------------------------------------- -open(14,file=hum_tot_id_file,status='old') -read(14,*) IV_hum_tot_id -close(14) - -open(15,file=hum_use_id_file,status='old') -read(15,*) IV_hum_use_id -close(15) - -!------------------------------------------------------------------------------- -!Calculate IS_hum_bas -!------------------------------------------------------------------------------- -write(temp_char,'(i10)') IS_hum_tot -call PetscPrintf(PETSC_COMM_WORLD,' Total number of human-induced ' // & - 'IDs in hum_tot_id_file:' // temp_char // char(10),ierr) - -write(temp_char,'(i10)') IS_hum_use -call PetscPrintf(PETSC_COMM_WORLD,' Total number of human-induced ' // & - 'IDs in hum_use_id_file:' // temp_char // char(10),ierr) - -IS_hum_bas=0 -!initialize to zero - -do JS_hum_use=1,IS_hum_use - do JS_riv_bas=1,IS_riv_bas - if (IV_hum_use_id(JS_hum_use)==IV_riv_bas_id(JS_riv_bas)) then - IS_hum_bas=IS_hum_bas+1 - end if - end do -end do - -write(temp_char,'(i10)') IS_hum_bas -call PetscPrintf(PETSC_COMM_WORLD,' Total number of human-induced ' // & - 'IDs in this simulation:' // temp_char // char(10),ierr) - -!------------------------------------------------------------------------------- -!Allocate and initialize IV_hum_bas_id, IV_hum_index, IV_hum_loc1 -!------------------------------------------------------------------------------- -allocate(IV_hum_bas_id(IS_hum_bas)) -allocate(IV_hum_index(IS_hum_bas)) -allocate(IV_hum_loc1(IS_hum_bas)) - -IV_hum_bas_id=0 -IV_hum_index=0 -IV_hum_loc1=0 - -!------------------------------------------------------------------------------- -!Populate IV_hum_bas_id -!------------------------------------------------------------------------------- -if (IS_hum_bas>0) then - -JS_hum_bas=0 -do JS_hum_use=1,IS_hum_use -do JS_riv_bas=1,IS_riv_bas - if (IV_hum_use_id(JS_hum_use)==IV_riv_bas_id(JS_riv_bas)) then - JS_hum_bas=JS_hum_bas+1 - IV_hum_bas_id(JS_hum_bas)=IV_riv_bas_id(JS_riv_bas) - end if -end do -end do - -end if - -!------------------------------------------------------------------------------- -!Populate IV_hum_index -!------------------------------------------------------------------------------- -do JS_hum_bas=1,IS_hum_bas -do JS_hum_tot=1,IS_hum_tot - if (IV_hum_bas_id(JS_hum_bas)==IV_hum_tot_id(JS_hum_tot)) then - IV_hum_index(JS_hum_bas)=JS_hum_tot - end if -end do -end do - -!------------------------------------------------------------------------------- -!Populate IV_hum_loc1 -!------------------------------------------------------------------------------- -do JS_hum_bas=1,IS_hum_bas -do JS_riv_bas=1,IS_riv_bas - if (IV_riv_bas_id(JS_riv_bas)==IV_hum_bas_id(JS_hum_bas)) then - IV_hum_loc1(JS_hum_bas)=JS_riv_bas-1 - end if -end do -end do - -!------------------------------------------------------------------------------- -!Print warning when human-induced is used -!------------------------------------------------------------------------------- -if (rank==0 .and. IS_hum_bas>0) then - print *, ' Human-induced flows added to computed flows, using:' - !print *, ' IV_hum_tot_id =', IV_hum_tot_id - print *, ' IV_hum_use_id =', IV_hum_use_id - print *, ' IV_hum_bas_id =', IV_hum_bas_id - print *, ' IV_hum_index =', IV_hum_index - print *, ' IV_hum_loc1 =', IV_hum_loc1 -end if -!Warning about human-induced flows - -!------------------------------------------------------------------------------- -!End if human-induced is used -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!If forcing is used -!******************************************************************************* -if (BS_opt_for) then -call PetscPrintf(PETSC_COMM_WORLD,'WARNING: Forcing option activated'// & - char(10),ierr) - -!------------------------------------------------------------------------------- -!Read data files -!------------------------------------------------------------------------------- -open(16,file=for_tot_id_file,status='old') -read(16,*) IV_for_tot_id -close(16) - -open(17,file=for_use_id_file,status='old') -read(17,*) IV_for_use_id -close(17) - -!------------------------------------------------------------------------------- -!Calculate IS_for_bas -!------------------------------------------------------------------------------- -write(temp_char,'(i10)') IS_for_tot -call PetscPrintf(PETSC_COMM_WORLD,' Total number of forcing IDs in ' //& - 'for_tot_id_file:' // temp_char // char(10),ierr) - -write(temp_char,'(i10)') IS_for_use -call PetscPrintf(PETSC_COMM_WORLD,' Total number of forcing IDs in ' //& - 'for_use_id_file:' // temp_char // char(10),ierr) - -IS_for_bas=0 -!initialize to zero - -do JS_for_use=1,IS_for_use - do JS_riv_tot=1,IS_riv_tot - if (IV_for_use_id(JS_for_use)==IV_riv_tot_id(JS_riv_tot)) then - - do JS_riv_bas=1,IS_riv_bas - if (IV_down(JS_riv_tot)==IV_riv_bas_id(JS_riv_bas)) then - IS_for_bas=IS_for_bas+1 - end if - end do - - end if - end do -end do - -write(temp_char,'(i10)') IS_for_bas -call PetscPrintf(PETSC_COMM_WORLD,' Total number of forcing IDs in ' //& - 'this simulation:' // temp_char // char(10),ierr) - -!------------------------------------------------------------------------------- -!Allocate and initialize the vectors IV_for_index and IV_for_loc2 -!------------------------------------------------------------------------------- -allocate(IV_for_bas_id(IS_for_bas)) -allocate(IV_for_index(IS_for_bas)) -allocate(IV_for_loc2(IS_for_bas)) - -IV_for_bas_id=0 -IV_for_index=0 -IV_for_loc2=0 - -!------------------------------------------------------------------------------- -!Populate IV_for_bas_id -!------------------------------------------------------------------------------- -if (IS_for_bas>0) then - -JS_for_bas=0 -!initialize to zero - -do JS_for_use=1,IS_for_use - do JS_riv_tot=1,IS_riv_tot - if (IV_for_use_id(JS_for_use)==IV_riv_tot_id(JS_riv_tot)) then - - do JS_riv_bas=1,IS_riv_bas - if (IV_down(JS_riv_tot)==IV_riv_bas_id(JS_riv_bas)) then - JS_for_bas=JS_for_bas+1 - IV_for_bas_id(JS_for_bas)=IV_for_use_id(JS_for_use) - end if - end do - - end if - end do -end do - -end if - -!------------------------------------------------------------------------------- -!Populate IV_for_index -!------------------------------------------------------------------------------- -do JS_for_bas=1,IS_for_bas -do JS_for_tot=1,IS_for_tot - if (IV_for_bas_id(JS_for_bas)==IV_for_tot_id(JS_for_tot)) then - IV_for_index(JS_for_bas)=JS_for_tot - end if -end do -end do - -!------------------------------------------------------------------------------- -!Populate IV_for_loc2 -!------------------------------------------------------------------------------- -do JS_for_bas=1,IS_for_bas -do JS_riv_tot=1,IS_riv_tot - if (IV_for_bas_id(JS_for_bas)==IV_riv_tot_id(JS_riv_tot)) then - do JS_riv_bas=1,IS_riv_bas - -if (IV_down(JS_riv_tot)==IV_riv_bas_id(JS_riv_bas)) then - IV_for_loc2(JS_for_bas)=IV_riv_loc1(JS_riv_bas) -end if - - end do - end if -end do -end do - -!------------------------------------------------------------------------------- -!Print warning when forcing is used -!------------------------------------------------------------------------------- -if (rank==0 .and. IS_for_bas>0) then - print *, ' Forcing flows replace computed flows, using:' - !print *, ' IV_for_tot_id =', IV_for_tot_id - print *, ' IV_for_use_id =', IV_for_use_id - print *, ' IV_for_bas_id =', IV_for_bas_id - print *, ' IV_for_index =', IV_for_index - print *, ' IV_for_loc2 =', IV_for_loc2 -end if -!Warning about forcing downstream basins - -!------------------------------------------------------------------------------- -!End if forcing is used -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!If dam model is used -!******************************************************************************* -if (BS_opt_dam) then -call PetscPrintf(PETSC_COMM_WORLD,'WARNING: Dam option activated'// & - char(10),ierr) - -!------------------------------------------------------------------------------- -!Read data files -!------------------------------------------------------------------------------- -open(18,file=dam_tot_id_file,status='old') -read(18,*) IV_dam_tot_id -close(18) - -open(19,file=dam_use_id_file,status='old') -read(19,*) IV_dam_use_id -close(19) - -!------------------------------------------------------------------------------- -!Calculate IS_dam_bas -!------------------------------------------------------------------------------- -write(temp_char,'(i10)') IS_dam_tot -call PetscPrintf(PETSC_COMM_WORLD,' Total number of dam IDs in ' // & - 'dam_tot_id_file:' // temp_char // char(10),ierr) - -write(temp_char,'(i10)') IS_dam_use -call PetscPrintf(PETSC_COMM_WORLD,' Total number of dam IDs in ' // & - 'dam_use_id_file:' // temp_char // char(10),ierr) - -IS_dam_bas=0 - -do JS_dam_use=1,IS_dam_use -do JS_riv_bas=1,IS_riv_bas - if (IV_dam_use_id(JS_dam_use)==IV_riv_tot_id(IV_riv_index(JS_riv_bas)))then - IS_dam_bas=IS_dam_bas+1 - end if -end do -end do - -write(temp_char,'(i10)') IS_dam_bas -call PetscPrintf(PETSC_COMM_WORLD,' Total number of dam IDs in ' // & - 'this simulation:' // temp_char // char(10),ierr) - -!------------------------------------------------------------------------------- -!Allocate and initialize IV_dam_bas_id, IV_dam_index, IV_dam_loc2, IV_dam_pos -!------------------------------------------------------------------------------- -allocate(IV_dam_bas_id(IS_dam_bas)) -allocate(IV_dam_index(IS_dam_bas)) -allocate(IV_dam_loc2(IS_dam_bas)) -allocate(IV_dam_pos(IS_dam_tot)) - -IV_dam_bas_id=0 -IV_dam_index=0 -IV_dam_loc2=0 -IV_dam_pos=0 - -!------------------------------------------------------------------------------- -!Populate IV_dam_bas_id -!------------------------------------------------------------------------------- -if (IS_dam_bas>0) then - -JS_dam_bas=0 - -do JS_dam_use=1,IS_dam_use -do JS_riv_bas=1,IS_riv_bas - if (IV_dam_use_id(JS_dam_use)==IV_riv_tot_id(IV_riv_index(JS_riv_bas)))then - JS_dam_bas=JS_dam_bas+1 - IV_dam_bas_id(JS_dam_bas)=IV_riv_tot_id(IV_riv_index(JS_riv_bas)) - end if -end do -end do - -end if - -!------------------------------------------------------------------------------- -!Populate IV_dam_index -!------------------------------------------------------------------------------- -do JS_dam_bas=1,IS_dam_bas -do JS_dam_tot=1,IS_dam_tot - if (IV_dam_bas_id(JS_dam_bas)==IV_dam_tot_id(JS_dam_tot)) then - IV_dam_index(JS_dam_bas)=JS_dam_tot - end if -end do -end do - -!------------------------------------------------------------------------------- -!Populate IV_dam_loc2 -!------------------------------------------------------------------------------- -do JS_dam_bas=1,IS_dam_bas -do JS_riv_tot=1,IS_riv_tot - if (IV_dam_bas_id(JS_dam_bas)==IV_riv_tot_id(JS_riv_tot)) then - do JS_riv_bas=1,IS_riv_bas - -if (IV_riv_bas_id(JS_riv_bas)==IV_down(JS_riv_tot)) then - IV_dam_loc2(JS_dam_bas)=JS_riv_bas-1 -end if - end do - end if -end do -end do - -!------------------------------------------------------------------------------- -!Populate IV_dam_pos -!------------------------------------------------------------------------------- -do JS_dam_tot=1,IS_dam_tot -do JS_riv_bas=1,IS_riv_bas - if (IV_dam_tot_id(JS_dam_tot)==IV_riv_bas_id(JS_riv_bas)) then - IV_dam_pos(JS_dam_tot)=JS_riv_bas - end if -end do -end do - -!------------------------------------------------------------------------------- -!Print warning when dam model is used -!------------------------------------------------------------------------------- -if (rank==0 .and. IS_dam_bas>0) then - print *, ' Dam flows replace computed flows, using:' - !print *, ' IV_dam_tot_id =', IV_dam_tot_id - print *, ' IV_dam_use_id =', IV_dam_use_id - print *, ' IV_dam_bas_id =', IV_dam_bas_id - print *, ' IV_dam_index =', IV_dam_index - print *, ' IV_dam_loc2 =', IV_dam_loc2 -end if - -if (rank==0 .and. IS_dam_tot>0) then - print *, ' IV_dam_pos =', IV_dam_pos -end if -!Warning about forcing downstream basins - -!------------------------------------------------------------------------------- -!End if dam model is used -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!If optimization mode is selected -!******************************************************************************* -if (IS_opt_run==2) then - -!------------------------------------------------------------------------------- -!Read data files -!------------------------------------------------------------------------------- -open(12,file=obs_tot_id_file,status='old') -read(12,*) IV_obs_tot_id -close(12) - -open(13,file=obs_use_id_file,status='old') -read(13,*) IV_obs_use_id -close(13) - -!------------------------------------------------------------------------------- -!Calculate IS_obs_bas -!------------------------------------------------------------------------------- -write(temp_char,'(i10)') IS_obs_tot -call PetscPrintf(PETSC_COMM_WORLD,'Number of gage IDs in obs_tot_file ' // & - ' :' // temp_char // char(10),ierr) -write(temp_char,'(i10)') IS_obs_use -call PetscPrintf(PETSC_COMM_WORLD,'Number of gage IDs in obs_use_file ' // & - ' :' // temp_char // char(10),ierr) - -IS_obs_bas=0 -!initialize to zero - -do JS_obs_use=1,IS_obs_use - do JS_riv_bas=1,IS_riv_bas - if (IV_obs_use_id(JS_obs_use)==IV_riv_bas_id(JS_riv_bas)) then - IS_obs_bas=IS_obs_bas+1 - end if - end do -end do - -write(temp_char,'(i10)') IS_obs_bas -call PetscPrintf(PETSC_COMM_WORLD,'Number of gage IDs in ' // & - 'this simulation :'//temp_char // char(10),ierr) - -!------------------------------------------------------------------------------- -!Allocate and initialize the vectors IV_obs_index and IV_obs_loc1 -!------------------------------------------------------------------------------- -allocate(IV_obs_index(IS_obs_bas)) -allocate(IV_obs_loc1(IS_obs_bas)) -!allocate vector size - -do JS_obs_bas=1,IS_obs_bas - IV_obs_index(JS_obs_bas)=0 - IV_obs_loc1(JS_obs_bas)=0 -end do -!Initialize both vectors to zero - -!------------------------------------------------------------------------------- -!Populate the vectors IV_obs_index and IV_obs_loc1 -!------------------------------------------------------------------------------- -JS_obs_bas=1 -do JS_obs_use=1,IS_obs_use -do JS_riv_bas=1,IS_riv_bas - if (IV_obs_use_id(JS_obs_use)==IV_riv_bas_id(JS_riv_bas)) then - do JS_obs_tot=1,IS_obs_tot - if (IV_obs_use_id(JS_obs_use)==IV_obs_tot_id(JS_obs_tot)) then - IV_obs_index(JS_obs_bas)=JS_obs_tot - end if - end do - IV_obs_loc1(JS_obs_bas)=JS_riv_bas-1 - JS_obs_bas=JS_obs_bas+1 - end if -end do -end do -!Create vector IV_obs_index and IV_obs_loc1 - -!------------------------------------------------------------------------------- -!Optional - Display vectors -!------------------------------------------------------------------------------- -!if (rank==0) then -! print *, 'IV_obs_index=', IV_obs_index -! print *, 'IV_obs_loc1 =', IV_obs_loc1 -!end if - -!------------------------------------------------------------------------------- -!End if optimization mode is selected -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!End -!******************************************************************************* -call PetscPrintf(PETSC_COMM_WORLD,'Arrays created'//char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) -end subroutine rapid_arrays diff --git a/hydro/Rapid_routing/rapid_close_Qfor_file.F90 b/hydro/Rapid_routing/rapid_close_Qfor_file.F90 deleted file mode 100644 index 3ae59c7427..0000000000 --- a/hydro/Rapid_routing/rapid_close_Qfor_file.F90 +++ /dev/null @@ -1,40 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_close_Qfor_file -!******************************************************************************* -subroutine rapid_close_Qfor_file - -!Purpose: -!Close Qfor_file from Fortran. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank - - -implicit none - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Close file -!******************************************************************************* -if (rank==0) close(34) - -!******************************************************************************* -!End subroutine -!******************************************************************************* -end subroutine rapid_close_Qfor_file diff --git a/hydro/Rapid_routing/rapid_close_Qhum_file.F90 b/hydro/Rapid_routing/rapid_close_Qhum_file.F90 deleted file mode 100644 index 4e5dd3326a..0000000000 --- a/hydro/Rapid_routing/rapid_close_Qhum_file.F90 +++ /dev/null @@ -1,40 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_close_Qhum_file -!******************************************************************************* -subroutine rapid_close_Qhum_file - -!Purpose: -!Close Qhum_file from Fortran. -!Author: -!Cedric H. David, 2014-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank - - -implicit none - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Close file -!******************************************************************************* -if (rank==0) close(36) - -!******************************************************************************* -!End subroutine -!******************************************************************************* -end subroutine rapid_close_Qhum_file diff --git a/hydro/Rapid_routing/rapid_close_Qobs_file.F90 b/hydro/Rapid_routing/rapid_close_Qobs_file.F90 deleted file mode 100644 index d2b48114ea..0000000000 --- a/hydro/Rapid_routing/rapid_close_Qobs_file.F90 +++ /dev/null @@ -1,40 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_close_Qobs_file -!******************************************************************************* -subroutine rapid_close_Qobs_file - -!Purpose: -!Close Qobs_file from Fortran. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank - - -implicit none - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Close file -!******************************************************************************* -if (rank==0) close(33) - -!******************************************************************************* -!End subroutine -!******************************************************************************* -end subroutine rapid_close_Qobs_file diff --git a/hydro/Rapid_routing/rapid_close_Qout_file.F90 b/hydro/Rapid_routing/rapid_close_Qout_file.F90 deleted file mode 100644 index 82ebfa802d..0000000000 --- a/hydro/Rapid_routing/rapid_close_Qout_file.F90 +++ /dev/null @@ -1,42 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_close_Qout_file -!******************************************************************************* -subroutine rapid_close_Qout_file - -!Purpose: -!Close Qout_file from Fortran/netCDF. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - rank,IS_nc_status,IS_nc_id_fil_Qout - - -implicit none - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Close file -!******************************************************************************* -if (rank==0) IS_nc_status=NF90_CLOSE(IS_nc_id_fil_Qout) - - -!******************************************************************************* -!End subroutine -!******************************************************************************* -end subroutine rapid_close_Qout_file diff --git a/hydro/Rapid_routing/rapid_close_Vlat_file.F90 b/hydro/Rapid_routing/rapid_close_Vlat_file.F90 deleted file mode 100644 index 4279b0bd74..0000000000 --- a/hydro/Rapid_routing/rapid_close_Vlat_file.F90 +++ /dev/null @@ -1,42 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_close_Vlat_file -!******************************************************************************* -subroutine rapid_close_Vlat_file - -!Purpose: -!Close Qobs_file from Fortran/netCDF. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - rank,IS_nc_status,IS_nc_id_fil_Vlat - - -implicit none - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Close file -!******************************************************************************* -if (rank==0) IS_nc_status=NF90_CLOSE(IS_nc_id_fil_Vlat) - - -!******************************************************************************* -!End subroutine -!******************************************************************************* -end subroutine rapid_close_Vlat_file diff --git a/hydro/Rapid_routing/rapid_create_Qout_file.F90 b/hydro/Rapid_routing/rapid_create_Qout_file.F90 deleted file mode 100644 index 4620b46a42..0000000000 --- a/hydro/Rapid_routing/rapid_create_Qout_file.F90 +++ /dev/null @@ -1,65 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_create_Qout_file -!******************************************************************************* -subroutine rapid_create_Qout_file(Qout_file) - -!Purpose: -!Create Qout_file from Fortran/netCDF. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - rank, & - IS_nc_status,IS_nc_id_fil_Qout, & - IS_nc_id_dim_time,IS_nc_id_dim_comid,IV_nc_id_dim, & - IS_nc_id_var_Qout,IS_nc_id_var_comid, & - IV_riv_bas_id,IS_riv_bas -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -character(len=100), intent(in):: Qout_file - - -!******************************************************************************* -!Open file -!******************************************************************************* -if (rank==0) then - - IS_nc_status=NF90_CREATE(Qout_file,NF90_CLOBBER,IS_nc_id_fil_Qout) - IS_nc_status=NF90_DEF_DIM(IS_nc_id_fil_Qout,'Time',NF90_UNLIMITED, & - IS_nc_id_dim_time) - IS_nc_status=NF90_DEF_DIM(IS_nc_id_fil_Qout,'COMID',IS_riv_bas, & - IS_nc_id_dim_comid) - IS_nc_status=NF90_DEF_VAR(IS_nc_id_fil_Qout,'COMID',NF90_INT, & - IS_nc_id_dim_comid,IS_nc_id_var_comid) - IV_nc_id_dim(1)=IS_nc_id_dim_comid - IV_nc_id_dim(2)=IS_nc_id_dim_time - IS_nc_status=NF90_DEF_VAR(IS_nc_id_fil_Qout,'Qout',NF90_REAL, & - IV_nc_id_dim,IS_nc_id_var_Qout) - IS_nc_status=NF90_ENDDEF(IS_nc_id_fil_Qout) - IS_nc_status=NF90_PUT_VAR(IS_nc_id_fil_Qout,IS_nc_id_var_comid, & - IV_riv_bas_id) - IS_nc_status=NF90_CLOSE(IS_nc_id_fil_Qout) - -end if - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_create_Qout_file - diff --git a/hydro/Rapid_routing/rapid_create_obj.F90 b/hydro/Rapid_routing/rapid_create_obj.F90 deleted file mode 100644 index e6498d6966..0000000000 --- a/hydro/Rapid_routing/rapid_create_obj.F90 +++ /dev/null @@ -1,219 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_create_obj -!******************************************************************************* -subroutine rapid_create_obj - -!Purpose: -!All PETSc and TAO objects need be created (requirement of both mathematical -!libraries). PETSc and TAO also need be initialized. This is what's done here. -!Author: -!Cedric H. David, 2008-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_bas, & - ZM_hsh_tot,ZM_hsh_bas,IS_riv_id_max, & - ZM_Net,ZM_A,ZM_T,ZM_TC1, & - ZM_Obs,ZV_Qobs,ZV_temp1,ZV_temp2,ZV_kfac, & - ZV_k,ZV_x,ZV_p,ZV_pnorm,ZV_pfac, & - ZV_C1,ZV_C2,ZV_C3,ZV_Cdenom, & - ZV_b,ZV_babsmax,ZV_bhat, & - ZV_Qext,ZV_Qfor,ZV_Qlat,ZV_Qhum,ZV_Qdam, & - ZV_Vext,ZV_Vfor,ZV_Vlat, & - ZV_VinitM,ZV_QoutinitM,ZV_QoutinitO,ZV_QoutbarO, & - ZV_QoutR,ZV_QoutinitR,ZV_QoutprevR,ZV_QoutbarR,ZV_QinbarR, & - ZV_QoutRabsmin,ZV_QoutRabsmax,ZV_QoutRhat, & - ZV_VR,ZV_VinitR,ZV_VprevR,ZV_VbarR,ZV_VoutR, & - ZV_Qobsbarrec, & - ierr,ksp,vecscat,ZV_SeqZero,ZS_one,ZV_one,IS_one,ncore,rank - -#ifndef NO_TAO -use rapid_var, only : & - tao,reason,ZV_1stIndex,ZV_2ndIndex -#endif - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - -#ifndef NO_TAO -#include "finclude/taosolver.h" -!TAO solver -#endif - - -!******************************************************************************* -!Initialize PETSc and TAO, and create all the objects -!******************************************************************************* - -!Initialize PETSc -------------------------------------------------------------- -call PetscInitialize(PETSC_NULL_CHARACTER,ierr) - -!Determine number associated with each processor ------------------------------- -call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr) - -!Determine total number of cores used ------------------------------------------ -call MPI_Comm_size(PETSC_COMM_WORLD,ncore,ierr) - -!Create PETSc object that manages all Krylov methods --------------------------- -call KSPCreate(PETSC_COMM_WORLD,ksp,ierr) - -!Matrices----------------------------------------------------------------------- -call MatCreate(PETSC_COMM_WORLD,ZM_Net,ierr) -call MatSetSizes(ZM_Net,PETSC_DECIDE,PETSC_DECIDE,IS_riv_bas,IS_riv_bas,ierr) -call MatSetFromOptions(ZM_Net,ierr) -call MatSetUp(ZM_Net,ierr) - -call MatCreate(PETSC_COMM_WORLD,ZM_A,ierr) -call MatSetSizes(ZM_A,PETSC_DECIDE,PETSC_DECIDE,IS_riv_bas,IS_riv_bas,ierr) -call MatSetFromOptions(ZM_A,ierr) -call MatSetUp(ZM_A,ierr) - -call MatCreate(PETSC_COMM_WORLD,ZM_T,ierr) -call MatSetSizes(ZM_T,PETSC_DECIDE,PETSC_DECIDE,IS_riv_bas,IS_riv_bas,ierr) -call MatSetFromOptions(ZM_T,ierr) -call MatSetUp(ZM_T,ierr) - -call MatCreate(PETSC_COMM_WORLD,ZM_TC1,ierr) -call MatSetSizes(ZM_TC1,PETSC_DECIDE,PETSC_DECIDE,IS_riv_bas,IS_riv_bas,ierr) -call MatSetFromOptions(ZM_TC1,ierr) -call MatSetUp(ZM_TC1,ierr) - -call MatCreate(PETSC_COMM_WORLD,ZM_Obs,ierr) -call MatSetSizes(ZM_Obs,PETSC_DECIDE,PETSC_DECIDE,IS_riv_bas,IS_riv_bas,ierr) -call MatSetFromOptions(ZM_Obs,ierr) -call MatSetUp(ZM_Obs,ierr) -!These matrices are all square of size IS_riv_bas. PETSC_DECIDE allows PETSc -!to determine the local sizes on its own. MatSetFromOptions allows to use many -!different options at runtime, such as "-mat_type aijmumps". - -call MatCreate(PETSC_COMM_WORLD,ZM_hsh_tot,ierr) -call MatSetSizes(ZM_hsh_tot,PETSC_DECIDE,PETSC_DECIDE,ncore,IS_riv_id_max,ierr) -call MatSetFromOptions(ZM_hsh_tot,ierr) -call MatSetUp(ZM_hsh_tot,ierr) - -call MatCreate(PETSC_COMM_WORLD,ZM_hsh_bas,ierr) -call MatSetSizes(ZM_hsh_bas,PETSC_DECIDE,PETSC_DECIDE,ncore,IS_riv_id_max,ierr) -call MatSetFromOptions(ZM_hsh_bas,ierr) -call MatSetUp(ZM_hsh_bas,ierr) -!These matrices are all mostly flat with size IS_riv_id_max*ncore and will store -!the same row over all columns - -!Vectors of size IS_riv_bas----------------------------------------------------- -!call VecCreateMPI(PETSC_COMM_WORLD,PETSC_DECIDE,IS_riv_bas,ZV_k,ierr) -call VecCreate(PETSC_COMM_WORLD,ZV_k,ierr) -call VecSetSizes(ZV_k,PETSC_DECIDE,IS_riv_bas,ierr) -call VecSetFromOptions(ZV_k,ierr) -!same remarks as above for sizes - -call VecDuplicate(ZV_k,ZV_x,ierr) -call VecDuplicate(ZV_k,ZV_C1,ierr) -call VecDuplicate(ZV_k,ZV_C2,ierr) -call VecDuplicate(ZV_k,ZV_C3,ierr) -call VecDuplicate(ZV_k,ZV_Cdenom,ierr) - -call VecDuplicate(ZV_k,ZV_b,ierr) -call VecDuplicate(ZV_k,ZV_babsmax,ierr) -call VecDuplicate(ZV_k,ZV_bhat,ierr) - -call VecDuplicate(ZV_k,ZV_Qext,ierr) -call VecDuplicate(ZV_k,ZV_Qfor,ierr) -call VecDuplicate(ZV_k,ZV_Qlat,ierr) -call VecDuplicate(ZV_k,ZV_Qhum,ierr) -call VecDuplicate(ZV_k,ZV_Qdam,ierr) -call VecDuplicate(ZV_k,ZV_Vext,ierr) -call VecDuplicate(ZV_k,ZV_Vfor,ierr) -call VecDuplicate(ZV_k,ZV_Vlat,ierr) - -call VecDuplicate(ZV_k,ZV_QoutinitM,ierr) -call VecDuplicate(ZV_k,ZV_QoutinitO,ierr) -call VecDuplicate(ZV_k,ZV_QoutbarO,ierr) - -call VecDuplicate(ZV_k,ZV_QoutR,ierr) -call VecDuplicate(ZV_k,ZV_QoutinitR,ierr) -call VecDuplicate(ZV_k,ZV_QoutprevR,ierr) -call VecDuplicate(ZV_k,ZV_QoutbarR,ierr) -call VecDuplicate(ZV_k,ZV_QinbarR,ierr) -call VecDuplicate(ZV_k,ZV_QoutRabsmin,ierr) -call VecDuplicate(ZV_k,ZV_QoutRabsmax,ierr) -call VecDuplicate(ZV_k,ZV_QoutRhat,ierr) - -call VecDuplicate(ZV_k,ZV_VinitM,ierr) - -call VecDuplicate(ZV_k,ZV_VR,ierr) -call VecDuplicate(ZV_k,ZV_VinitR,ierr) -call VecDuplicate(ZV_k,ZV_VprevR,ierr) -call VecDuplicate(ZV_k,ZV_VbarR,ierr) -call VecDuplicate(ZV_k,ZV_VoutR,ierr) - -call VecDuplicate(ZV_k,ZV_temp1,ierr) -call VecDuplicate(ZV_k,ZV_temp2,ierr) -call VecDuplicate(ZV_k,ZV_Qobs,ierr) -call VecDuplicate(ZV_k,ZV_kfac,ierr) -call VecDuplicate(ZV_k,ZV_Qobsbarrec,ierr) -!all the other vector objects are duplicates of the first one - - -!Vectors of parameters---------------------------------------------------------- -!call VecCreateMPI(PETSC_COMM_WORLD,PETSC_DECIDE,IS_one*2,ZV_p,ierr) -call VecCreate(PETSC_COMM_WORLD,ZV_p,ierr) -call VecSetSizes(ZV_p,PETSC_DECIDE,2*IS_one,ierr) -call VecSetFromOptions(ZV_p,ierr) -!same remarks as above for sizes - -call VecDuplicate(ZV_p,ZV_pnorm,ierr) -call VecDuplicate(ZV_p,ZV_pfac,ierr) - - -!Vectors and objects useful for PETSc programming------------------------------- -call VecDuplicate(ZV_k,ZV_one,ierr) -call VecSet(ZV_one,ZS_one,ierr) -!this is a vector with ones a each row, used for computations - -call VecScatterCreateToZero(ZV_k,vecscat,ZV_SeqZero,ierr) -!create scatter context from a distributed vector to a sequential vector on the -!zeroth processor. Also creates the vector ZV_SeqZero - - -!TAO specific------------------------------------------------------------------- -#ifndef NO_TAO -call TaoInitialize(PETSC_NULL_CHARACTER,ierr) -!Initialize TAO - -call TaoCreate(PETSC_COMM_WORLD,tao,ierr) -call TaoSetType(tao,'tao_nm',ierr) -!Create TAO App - -call VecDuplicate(ZV_p,ZV_1stIndex,ierr) -call VecSetValues(ZV_1stIndex,IS_one,0*IS_one,ZS_one,INSERT_VALUES,ierr) -call VecAssemblyBegin(ZV_1stIndex,ierr) -call VecAssemblyEnd(ZV_1stIndex,ierr) -!ZV_1stindex=[1;0] - -call VecDuplicate(ZV_p,ZV_2ndIndex,ierr) -call VecSetValues(ZV_2ndIndex,IS_one,IS_one,ZS_one,INSERT_VALUES,ierr) -call VecAssemblyBegin(ZV_2ndIndex,ierr) -call VecAssemblyEnd(ZV_2ndIndex,ierr) -!ZV_2ndindex=[0;1] -#endif - -end subroutine rapid_create_obj diff --git a/hydro/Rapid_routing/rapid_destro_obj.F90 b/hydro/Rapid_routing/rapid_destro_obj.F90 deleted file mode 100644 index c7c77c1611..0000000000 --- a/hydro/Rapid_routing/rapid_destro_obj.F90 +++ /dev/null @@ -1,147 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_destro_obj -!******************************************************************************* -subroutine rapid_destro_obj - -!Purpose: -!All PETSc and TAO objects need be destroyed (requirement of both mathematical -!libraries). PETSc and TAO also need be finalized. This is what's done here -!Note: only finilized here, need to add destroy of vectors. -!Author: -!Cedric H. David, 2008-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_bas, & - ZM_hsh_tot,ZM_hsh_bas, & - ZM_Net,ZM_A,ZM_T,ZM_TC1, & - ZM_Obs,ZV_Qobs,ZV_temp1,ZV_temp2,ZV_kfac, & - ZV_k,ZV_x,ZV_p,ZV_pnorm,ZV_pfac, & - ZV_C1,ZV_C2,ZV_C3,ZV_Cdenom, & - ZV_b,ZV_babsmax,ZV_bhat, & - ZV_Qext,ZV_Qfor,ZV_Qlat,ZV_Qhum,ZV_Qdam, & - ZV_Vext,ZV_Vfor,ZV_Vlat, & - ZV_VinitM,ZV_QoutinitM,ZV_QoutinitO,ZV_QoutbarO, & - ZV_QoutR,ZV_QoutinitR,ZV_QoutprevR,ZV_QoutbarR,ZV_QinbarR, & - ZV_QoutRabsmin,ZV_QoutRabsmax,ZV_QoutRhat, & - ZV_VR,ZV_VinitR,ZV_VprevR,ZV_VbarR,ZV_VoutR, & - ZV_Qobsbarrec, & - ierr,ksp,vecscat,ZV_SeqZero,ZS_one,ZV_one,IS_one - -#ifndef NO_TAO -use rapid_var, only : & - tao,reason,ZV_1stIndex,ZV_2ndIndex -#endif - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - -#ifndef NO_TAO -#include "finclude/taosolver.h" -!TAO solver -#endif - - -!******************************************************************************* -!Destruct all objects and finalize PETSc and TAO -!******************************************************************************* -!TAO specific------------------------------------------------------------------- -#ifndef NO_TAO -call VecDestroy(ZV_1stIndex,ierr) -call VecDestroy(ZV_2ndIndex,ierr) -call TaoDestroy(tao,ierr) -call TaoFinalize(ierr) -#endif - -call KSPDestroy(ksp,ierr) - -call MatDestroy(ZM_hsh_tot,ierr) -call MatDestroy(ZM_hsh_bas,ierr) - -call MatDestroy(ZM_A,ierr) -call MatDestroy(ZM_Net,ierr) -call MatDestroy(ZM_T,ierr) -call MatDestroy(ZM_TC1,ierr) -call MatDestroy(ZM_Obs,ierr) - -call VecDestroy(ZV_k,ierr) -call VecDestroy(ZV_x,ierr) -call VecDestroy(ZV_C1,ierr) -call VecDestroy(ZV_C2,ierr) -call VecDestroy(ZV_C3,ierr) -call VecDestroy(ZV_Cdenom,ierr) - -call VecDestroy(ZV_b,ierr) -call VecDestroy(ZV_babsmax,ierr) -call VecDestroy(ZV_bhat,ierr) - -call VecDestroy(ZV_Qext,ierr) -call VecDestroy(ZV_Qfor,ierr) -call VecDestroy(ZV_Qlat,ierr) -call VecDestroy(ZV_Qhum,ierr) -call VecDestroy(ZV_Qdam,ierr) -call VecDestroy(ZV_Vext,ierr) -call VecDestroy(ZV_Vfor,ierr) -call VecDestroy(ZV_Vlat,ierr) - -call VecDestroy(ZV_QoutinitM,ierr) -call VecDestroy(ZV_QoutinitO,ierr) -call VecDestroy(ZV_QoutbarO,ierr) - -call VecDestroy(ZV_QoutR,ierr) -call VecDestroy(ZV_QoutinitR,ierr) -call VecDestroy(ZV_QoutprevR,ierr) -call VecDestroy(ZV_QoutbarR,ierr) -call VecDestroy(ZV_QinbarR,ierr) -call VecDestroy(ZV_QoutRabsmin,ierr) -call VecDestroy(ZV_QoutRabsmax,ierr) -call VecDestroy(ZV_QoutRhat,ierr) - -call VecDestroy(ZV_VinitM,ierr) - -call VecDestroy(ZV_VR,ierr) -call VecDestroy(ZV_VinitR,ierr) -call VecDestroy(ZV_VprevR,ierr) -call VecDestroy(ZV_VbarR,ierr) -call VecDestroy(ZV_VoutR,ierr) - -call VecDestroy(ZV_temp1,ierr) -call VecDestroy(ZV_temp2,ierr) -call VecDestroy(ZV_Qobs,ierr) -call VecDestroy(ZV_kfac,ierr) -call VecDestroy(ZV_Qobsbarrec,ierr) - -call VecDestroy(ZV_one,ierr) - -call VecDestroy(ZV_p,ierr) -call VecDestroy(ZV_pnorm,ierr) -call VecDestroy(ZV_pfac,ierr) - -call VecDestroy(ZV_SeqZero,ierr) -call VecScatterDestroy(vecscat,ierr) -!Need to be destroyed separately even though created together - -call PetscFinalize(ierr) - - -end subroutine rapid_destro_obj diff --git a/hydro/Rapid_routing/rapid_final.F90 b/hydro/Rapid_routing/rapid_final.F90 deleted file mode 100644 index a1a2ca98e6..0000000000 --- a/hydro/Rapid_routing/rapid_final.F90 +++ /dev/null @@ -1,192 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_final -!******************************************************************************* -subroutine rapid_final - -!Purpose: -!This subroutine allows to finalize RAPID for both regular runs and -!optimization runs, by performing slightly different tasks depending on what -!option is chosen. -!Finalization Initialization tasks specific to Option 1 -! -Output final instantaneous flow -! -Output babsmax, QoutRabsmin and QoutRabsmax -!Finalization Initialization tasks specific to Option 2 -! -N/A -!Finalization tasks common to all RAPID options: -! -Prints some information about the types of objects used during simulation -! -Destroy all PETSc and TAO objects -!Author: -!Cedric H. David, 2012-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_bas,JS_riv_bas, & - IS_opt_routing,IS_opt_run, & - BS_opt_Qfinal,BS_opt_influence, & - Qfinal_file,babsmax_file,QoutRabsmin_file,QoutRabsmax_file, & - ksp,vecscat,ZV_babsmax,ZV_QoutR,ZV_SeqZero,ierr, & - ZV_pointer,rank,ZV_k,temp_char, & - ZV_QoutRabsmin,ZV_QoutRabsmax, & - temp_char2,ZM_A,pc, & - IS_ksp_iter_max - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Finalization procedure for OPTION 1 -!******************************************************************************* -if (IS_opt_run==1) then - -!------------------------------------------------------------------------------- -!Output final instantaneous Q (ZV_QoutR) -!------------------------------------------------------------------------------- -if (BS_opt_Qfinal) then -call VecScatterBegin(vecscat,ZV_QoutR,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecScatterEnd(vecscat,ZV_QoutR,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecGetArrayF90(ZV_SeqZero,ZV_pointer,ierr) -if (rank==0) then - open(31,file=Qfinal_file) - do JS_riv_bas=1,IS_riv_bas - write(31,*) ZV_pointer(JS_riv_bas) - end do - close(31) -end if -call VecRestoreArrayF90(ZV_SeqZero,ZV_pointer,ierr) -end if - -!------------------------------------------------------------------------------- -!Output maximum absolute values of vector b (right-hand side of linear system) -!------------------------------------------------------------------------------- -if (BS_opt_influence) then -call VecScatterBegin(vecscat,ZV_babsmax,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecScatterEnd(vecscat,ZV_babsmax,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecGetArrayF90(ZV_SeqZero,ZV_pointer,ierr) -if (rank==0) then - open(42,file=babsmax_file) - do JS_riv_bas=1,IS_riv_bas - write(42,*) ZV_pointer(JS_riv_bas) - end do - close(42) -end if -call VecRestoreArrayF90(ZV_SeqZero,ZV_pointer,ierr) -end if - -!------------------------------------------------------------------------------- -!Output minimum absolute values of instantaneous flow -!------------------------------------------------------------------------------- -if (BS_opt_influence) then -call VecScatterBegin(vecscat,ZV_QoutRabsmin,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecScatterEnd(vecscat,ZV_QoutRabsmin,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecGetArrayF90(ZV_SeqZero,ZV_pointer,ierr) -if (rank==0) then - open(43,file=QoutRabsmin_file) - do JS_riv_bas=1,IS_riv_bas - write(43,*) ZV_pointer(JS_riv_bas) - end do - close(43) -end if -call VecRestoreArrayF90(ZV_SeqZero,ZV_pointer,ierr) -end if - -!------------------------------------------------------------------------------- -!Output maximum absolute values of instantaneous flow -!------------------------------------------------------------------------------- -if (BS_opt_influence) then -call VecScatterBegin(vecscat,ZV_QoutRabsmax,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecScatterEnd(vecscat,ZV_QoutRabsmax,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecGetArrayF90(ZV_SeqZero,ZV_pointer,ierr) -if (rank==0) then - open(44,file=QoutRabsmax_file) - do JS_riv_bas=1,IS_riv_bas - write(44,*) ZV_pointer(JS_riv_bas) - end do - close(44) -end if -call VecRestoreArrayF90(ZV_SeqZero,ZV_pointer,ierr) -end if - -!------------------------------------------------------------------------------- -!End of initialization procedure for OPTION 1 -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!Some information about types of objects used within RAPID run -!******************************************************************************* -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) -call VecGetType(ZV_k,temp_char,ierr) -call PetscPrintf(PETSC_COMM_WORLD,'type of vector: '//temp_char//char(10),ierr) -call MatGetType(ZM_A,temp_char,ierr) -call PetscPrintf(PETSC_COMM_WORLD,'type of matrix: '//temp_char//char(10),ierr) -if (IS_opt_routing==1 .or. IS_opt_routing==3) then - call KSPGetType(ksp,temp_char,ierr) -else - temp_char='No KSP' -end if -call PetscPrintf(PETSC_COMM_WORLD,'type of KSP : '//temp_char//char(10),ierr) -if (IS_opt_routing==1 .or. IS_opt_routing==3) then - call KSPGetPC(ksp,pc,ierr) - call PCGetType(pc,temp_char,ierr) -else - temp_char='No PC' -end if -call PetscPrintf(PETSC_COMM_WORLD,'type of PC : '//temp_char//char(10),ierr) -#ifdef NO_TAO -call PetscPrintf(PETSC_COMM_WORLD,char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'RAPID compiled and run without TAO',ierr) -call PetscPrintf(PETSC_COMM_WORLD,char(10),ierr) -#endif -write(temp_char ,'(i10)') rank -write(temp_char2,'(i10)') IS_ksp_iter_max -call PetscSynchronizedPrintf(PETSC_COMM_WORLD,'Rank :'//temp_char //', '// & - 'Max KSP :'//temp_char2// & - char(10),ierr) -call PetscSynchronizedFlush(PETSC_COMM_WORLD,ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,char(10)//char(10)//char(10)//char(10),ierr) - -!******************************************************************************* -!Destroy all objects -!******************************************************************************* -call rapid_destro_obj -!destroy PETSc and TAO objects (Mat,Vec,taoapp...), finalizes the libraries - - -!******************************************************************************* -!End subroutine -!******************************************************************************* -end subroutine rapid_final diff --git a/hydro/Rapid_routing/rapid_get_Qdam.F90 b/hydro/Rapid_routing/rapid_get_Qdam.F90 deleted file mode 100644 index 91e58452a6..0000000000 --- a/hydro/Rapid_routing/rapid_get_Qdam.F90 +++ /dev/null @@ -1,129 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_get_Qdam -!******************************************************************************* -subroutine rapid_get_Qdam - -!Purpose: -!Communicate with a dam subroutine to exchange inflows and outflows. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank,ierr,vecscat,ZV_pointer,ZV_SeqZero,ZS_one, & - ZM_Net,ZV_Qext,ZV_Qdam,ZV_QoutbarR,ZV_QinbarR, & - IS_dam_bas,IV_dam_index,IV_dam_loc2, & - IV_dam_pos - -use rapid_var, only : & - ZV_Qin_dam,ZV_Qout_dam,ZV_Qin_dam_prev,ZV_Qout_dam_prev - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Compute previous inflow from river network and outside of river network to dams -!******************************************************************************* -!------------------------------------------------------------------------------- -!Compute inflow into dams from previous river flow -!------------------------------------------------------------------------------- -call MatMult(ZM_Net,ZV_QoutbarR,ZV_QinbarR,ierr) -call VecAXPY(ZV_QinbarR,ZS_one,ZV_Qext,ierr) -!QinbarR=Net*QoutbarR+Qext - -!------------------------------------------------------------------------------- -!Set values from PETSc vector into Fortran vector -!------------------------------------------------------------------------------- -if (rank==0) ZV_Qin_dam_prev=0 -call VecScatterBegin(vecscat,ZV_QinbarR,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecScatterEnd(vecscat,ZV_QinbarR,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecGetArrayF90(ZV_SeqZero,ZV_pointer,ierr) -if (rank==0) ZV_Qin_dam_prev=ZV_pointer(IV_dam_pos) -call VecRestoreArrayF90(ZV_SeqZero,ZV_pointer,ierr) -!Get values from ZV_QinbarR (PETSc) into ZV_Qin_dam_prev (Fortran) - - -!******************************************************************************* -!Compute outflow from dams -!******************************************************************************* -!------------------------------------------------------------------------------- -!If dam module does not exist, outflow is computed from this subroutine -!------------------------------------------------------------------------------- -if (rank==0) then - ZV_Qout_dam=ZV_Qin_dam_prev -end if - -!------------------------------------------------------------------------------- -!If dam module does exist, use it -!------------------------------------------------------------------------------- -!if (rank==0) then -! call dam_linear(ZV_Qin_dam_prev,ZV_Qout_dam_prev,ZV_Qout_dam) -!end if - - -!******************************************************************************* -!Optional - Write information in stdout -!******************************************************************************* -!if (rank==0) print *, 'Qin_dam_prev =', ',', ZV_Qin_dam_prev -!if (rank==0) print *, 'Qin_dam_prev =', ',', ZV_Qin_dam_prev(1) -!if (rank==0) print *, 'Qout_dam_prev =', ',', ZV_Qout_dam_prev -!if (rank==0) print *, 'Qout_dam_prev =', ',', ZV_Qout_dam_prev(1) -!if (rank==0) print *, ZV_Qin_dam_prev(1), ',', ZV_Qout_dam_prev(1) -!call VecView(ZV_Qdam,PETSC_VIEWER_STDOUT_WORLD,ierr) - - -!******************************************************************************* -!Set values from Fortran vector into PETSc vector -!******************************************************************************* -if (rank==0) then - call VecSetValues(ZV_Qdam,IS_dam_bas,IV_dam_loc2, & - ZV_Qout_dam(IV_dam_index),INSERT_VALUES,ierr) -end if - -call VecAssemblyBegin(ZV_Qdam,ierr) -call VecAssemblyEnd(ZV_Qdam,ierr) - - -!******************************************************************************* -!Update ZV_Qout_dam_prev - After calling dam_linear to not override init. values -!******************************************************************************* -if (rank==0) then - ZV_Qout_dam_prev=ZV_Qout_dam -end if - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_get_Qdam diff --git a/hydro/Rapid_routing/rapid_hsh_mat.F90 b/hydro/Rapid_routing/rapid_hsh_mat.F90 deleted file mode 100644 index c3a4fd64b5..0000000000 --- a/hydro/Rapid_routing/rapid_hsh_mat.F90 +++ /dev/null @@ -1,236 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_hsh_mat -!******************************************************************************* -subroutine rapid_hsh_mat - -!Purpose: -!This creates two hashtable-like sparse matrices: -! - IM_hsh_tot contains the index over the domain (JS_riv_tot) corresponding to -! each reach ID and is the same for each row -! - IM_hsh_bas contains the index over the basin (JS_riv_bas) corresponding to -! each reach ID and is the same for each row -!The choice of matrices to mimic hashtables is possible because the "keys" (i.e. -!the reach IDs) are all integers, and the sparse structure allows to keep memory -!usage minimal because the number of unique reach IDs is far inferior to the -!maximum integer value of reach ID. Implementing a C++ hashtable within Fortran -!would have required much more intrusive modifications to RAPID. -!Thank you to Chris A. Mattmann and to Si Liu who both suggested the use of -!hashtables to decrease model setup time. -!Author: -!Cedric H. David, 2015-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_tot,IS_riv_bas, & - JS_riv_tot,JS_riv_bas, & - IV_riv_tot_id,IV_riv_bas_id, & - IS_riv_id_max, & - ZM_hsh_tot,ZM_hsh_bas, & - IS_ownfirst,IS_ownlast, & - IS_one,ZS_one,temp_char,temp_char2,ierr,rank,ncore - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -PetscInt, dimension(ncore) :: IS_nz, IS_dnz, IS_onz -PetscInt, dimension(IS_riv_tot) :: IV_tot_tmp1, IV_tot_tmp2 -PetscInt, dimension(IS_riv_bas) :: IV_bas_tmp1, IV_bas_tmp2 - - -!******************************************************************************* -!Check that reach IDs are within the allowed range -!******************************************************************************* -write(temp_char2,'(i10)') IS_riv_id_max - -do JS_riv_tot=1,IS_riv_tot - if (IV_riv_tot_id(JS_riv_tot) > IS_riv_id_max) then - write(temp_char,'(i10)') IV_riv_tot_id(JS_riv_tot) - call PetscPrintf(PETSC_COMM_WORLD, & - 'ERROR: reach ID' // temp_char // ' in domain' // & - ' has an integer value greater than the maximum' // & - ' allowed of' // temp_char2 // char(10),ierr) - stop - end if - if (IV_riv_tot_id(JS_riv_tot) == 0) then - write(temp_char,'(i10)') JS_riv_tot - call PetscPrintf(PETSC_COMM_WORLD, & - 'ERROR: reach ID located at index'// temp_char// & - ' in domain has a null value for ID'//char(10),ierr) - stop - end if -end do - -do JS_riv_bas=1,IS_riv_bas - if (IV_riv_bas_id(JS_riv_bas) > IS_riv_id_max) then - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas) - call PetscPrintf(PETSC_COMM_WORLD, & - 'ERROR: reach ID' // temp_char // ' in basin' // & - ' has an integer value greater than the maximum' // & - ' allowed of' // temp_char2 // char(10),ierr) - stop - end if - if (IV_riv_bas_id(JS_riv_bas) == 0) then - write(temp_char,'(i10)') JS_riv_bas - call PetscPrintf(PETSC_COMM_WORLD, & - 'ERROR: reach ID located at index'// temp_char// & - ' in basin has a null value for ID'//char(10),ierr) - stop - end if -end do - - -!******************************************************************************* -!Matrix preallocation -!******************************************************************************* -call MatGetOwnershipRangeColumn(ZM_hsh_tot,IS_ownfirst,IS_ownlast,ierr) - -!------------------------------------------------------------------------------- -!ZM_hsh_tot -!------------------------------------------------------------------------------- -IS_nz=0 -IS_dnz=0 -IS_onz=0 - -IS_nz=IS_riv_tot -do JS_riv_tot=1,IS_riv_tot - if (IV_riv_tot_id(JS_riv_tot) -1 >= IS_ownfirst .and. & - IV_riv_tot_id(JS_riv_tot) -1 < IS_ownlast) then - IS_dnz=IS_dnz+1 - end if - IS_onz=IS_nz-IS_dnz -end do - -call MatSeqAIJSetPreallocation(ZM_hsh_tot,PETSC_NULL_INTEGER,IS_nz,ierr) -call MatMPIAIJSetPreallocation(ZM_hsh_tot, & - PETSC_NULL_INTEGER, & - IS_dnz, & - PETSC_NULL_INTEGER, & - IS_onz,ierr) -!print *, 'rank', rank, 'IS_ownfirst', IS_ownfirst, 'IS_ownlast', IS_ownlast, & -! 'IS_nz', IS_nz, 'IS_dnz', IS_dnz, 'IS_onz', IS_onz - -!------------------------------------------------------------------------------- -!ZM_hsh_bas -!------------------------------------------------------------------------------- -IS_nz=0 -IS_dnz=0 -IS_onz=0 - -IS_nz=IS_riv_bas -do JS_riv_bas=1,IS_riv_bas - if (IV_riv_bas_id(JS_riv_bas) -1 >= IS_ownfirst .and. & - IV_riv_bas_id(JS_riv_bas) -1 < IS_ownlast) then - IS_dnz=IS_dnz+1 - end if - IS_onz=IS_nz-IS_dnz -end do - -call MatSeqAIJSetPreallocation(ZM_hsh_bas,PETSC_NULL_INTEGER,IS_nz,ierr) -call MatMPIAIJSetPreallocation(ZM_hsh_bas, & - PETSC_NULL_INTEGER, & - IS_dnz, & - PETSC_NULL_INTEGER, & - IS_onz,ierr) -!print *, 'rank', rank, 'IS_ownfirst', IS_ownfirst, 'IS_ownlast', IS_ownlast, & -! 'IS_nz', IS_nz, 'IS_dnz', IS_dnz, 'IS_onz', IS_onz - -!------------------------------------------------------------------------------- -!Done with preallocation -!------------------------------------------------------------------------------- -call PetscPrintf(PETSC_COMM_WORLD,'Hashtable-like matrices preallocated' & - //char(10),ierr) - - -!******************************************************************************* -!Creates hashtable-like matrices -!******************************************************************************* - -!------------------------------------------------------------------------------- -!ZM_hsh_tot -!------------------------------------------------------------------------------- -do JS_riv_tot=1,IS_riv_tot - IV_tot_tmp1(JS_riv_tot)=IV_riv_tot_id(JS_riv_tot) - IV_tot_tmp2(JS_riv_tot)=JS_riv_tot -end do -call PetscSortIntWithArray(IS_riv_tot,IV_tot_tmp1(:),IV_tot_tmp2(:),ierr) -!Populating ZM_hsh_* below much faster w/ sorted arrays than w/ IV_riv_*_id - -do JS_riv_tot=1,IS_riv_tot - call MatSetValues(ZM_hsh_tot, & - IS_one,rank, & - IS_one,IV_tot_tmp1(JS_riv_tot)-1, & - ZS_one*IV_tot_tmp2(JS_riv_tot),INSERT_VALUES,ierr) - CHKERRQ(ierr) -end do - -!------------------------------------------------------------------------------- -!ZM_hsh_bas -!------------------------------------------------------------------------------- -do JS_riv_bas=1,IS_riv_bas - IV_bas_tmp1(JS_riv_bas)=IV_riv_bas_id(JS_riv_bas) - IV_bas_tmp2(JS_riv_bas)=JS_riv_bas -end do -call PetscSortIntWithArray(IS_riv_bas,IV_bas_tmp1(:),IV_bas_tmp2(:),ierr) -!Populating ZM_hsh_* below much faster w/ sorted arrays than w/ IV_riv_*_id - -do JS_riv_bas=1,IS_riv_bas - call MatSetValues(ZM_hsh_bas, & - IS_one,rank, & - IS_one,IV_bas_tmp1(JS_riv_bas)-1, & - ZS_one*IV_bas_tmp2(JS_riv_bas),INSERT_VALUES,ierr) - CHKERRQ(ierr) -end do - -!------------------------------------------------------------------------------- -!Assemble matrices -!------------------------------------------------------------------------------- -call MatAssemblyBegin(ZM_hsh_tot,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_hsh_tot,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyBegin(ZM_hsh_bas,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_hsh_bas,MAT_FINAL_ASSEMBLY,ierr) -!sparse matrices need be assembled once their elements have been filled -call PetscPrintf(PETSC_COMM_WORLD,'Hashtable-like matrices created'//char(10), & - ierr) - - -!******************************************************************************* -!Display matrices on stdout -!******************************************************************************* -!call PetscPrintf(PETSC_COMM_WORLD,'ZM_hsh_tot'//char(10),ierr) -!call MatView(ZM_hsh_tot,PETSC_VIEWER_STDOUT_WORLD,ierr) -! -!call PetscPrintf(PETSC_COMM_WORLD,'ZM_hsh_bas'//char(10),ierr) -!call MatView(ZM_hsh_bas,PETSC_VIEWER_STDOUT_WORLD,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - - -end subroutine rapid_hsh_mat diff --git a/hydro/Rapid_routing/rapid_init.F90 b/hydro/Rapid_routing/rapid_init.F90 deleted file mode 100644 index 71766b0350..0000000000 --- a/hydro/Rapid_routing/rapid_init.F90 +++ /dev/null @@ -1,397 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_init -!******************************************************************************* -subroutine rapid_init - -!Purpose: -!This subroutine allows to initialize RAPID for both regular runs and -!optimization runs, by performing slightly different tasks depending on what -!option is chosen. -!Initialization tasks common to all RAPID options: -! -Read namelist file (sizes of domain, duration, file names, options, etc.) -! -Compute number of time steps based on durations -! -Allocate Fortran arrays -! -Create all PETSc and TAO objects -! -Print information and warnings -! -Determine IDs for various computing cores -! -Compute helpful arrays -! -Compute the network matrix -! -Initialize values of flow and volume for main procedure -!Initialization tasks specific to Option 1 -! -Copy main initial flow and vol to routing initial flow and vol -! -Read k and x -! -Compute linear system matrix -!Initialization tasks specific to Option 2 -! -Copy main initial flow to optimization initial flow -! -Compute the observation matrix -! -Read kfac and Qobsbarrec -! -Set initial values for the vector pnorm -!Author: -!Cedric H. David, 2012-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_tot,IS_riv_bas, & - IV_riv_bas_id,IV_riv_index,IV_riv_loc1,IV_riv_tot_id, & - IV_down,IV_nbup,IM_up,IM_index_up,IS_max_up, & - IV_nz,IV_dnz,IV_onz, & - BS_opt_Qinit,BS_opt_Qfinal,BS_opt_influence, & - BS_opt_dam,BS_opt_for,BS_opt_hum, & - IS_opt_run,IS_opt_routing,IS_opt_phi, & - ZV_read_riv_tot,ZV_read_obs_tot,ZV_read_hum_tot, & - ZV_read_for_tot,ZV_read_dam_tot, & - ZS_TauM,ZS_TauO,ZS_TauR,ZS_dtO,ZS_dtR,ZS_dtM,ZS_dtF,ZS_dtH, & - IS_obs_tot,IS_obs_use,IS_obs_bas, & - IV_obs_tot_id,IV_obs_use_id, & - IV_obs_index,IV_obs_loc1, & - IS_hum_tot,IS_hum_use, & - IV_hum_tot_id,IV_hum_use_id, & - IS_for_tot,IS_for_use, & - IV_for_tot_id,IV_for_use_id, & - IS_dam_tot,IS_dam_use, & - IV_dam_tot_id,IV_dam_use_id, & - ZV_Qin_dam,ZV_Qout_dam,ZV_Qin_dam_prev,ZV_Qout_dam_prev, & - ZV_Qin_dam0,ZV_Qout_dam0, & - ZV_QoutinitM,ZV_QoutinitO,ZV_QoutinitR, & - ZV_VinitM,ZV_VinitR, & - ZV_babsmax,ZV_QoutRabsmin,ZV_QoutRabsmax, & - IS_M,IS_O,IS_R,IS_RpO,IS_RpM,IS_RpF,IS_RpH, & - kfac_file,x_file,k_file,Vlat_file,Qinit_file, & - Qobsbarrec_file, & - ZS_Qout0,ZS_V0, & - ZV_Qobsbarrec, & - ZV_k,ZV_x,ZV_kfac,ZV_p,ZV_pnorm,ZV_pfac, & - ZS_knorm_init,ZS_xnorm_init,ZS_kfac,ZS_xfac, & - ZV_C1,ZV_C2,ZV_C3,ZM_A, & - ierr,ksp,rank,ncore,IS_one,ZS_one - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - -!******************************************************************************* -!Initialization procedure common to all options -!******************************************************************************* - -!------------------------------------------------------------------------------- -!Read name list, allocate Fortran arrays -!------------------------------------------------------------------------------- -call rapid_read_namelist - -print *,'!!!LPR enter rapid_init' - -allocate(IV_riv_bas_id(IS_riv_bas)) -allocate(IV_riv_index(IS_riv_bas)) -allocate(IV_riv_loc1(IS_riv_bas)) - -allocate(IV_riv_tot_id(IS_riv_tot)) -allocate(IV_down(IS_riv_tot)) -allocate(IV_nbup(IS_riv_tot)) -allocate(IM_up(IS_riv_tot,IS_max_up)) -allocate(IM_index_up(IS_riv_tot,IS_max_up)) - -allocate(IV_nz(IS_riv_bas)) -allocate(IV_dnz(IS_riv_bas)) -allocate(IV_onz(IS_riv_bas)) - -allocate(ZV_read_riv_tot(IS_riv_tot)) - -print *,'!!!LPR passed several allocation' - -if (IS_opt_run==2) then - allocate(IV_obs_tot_id(IS_obs_tot)) - allocate(IV_obs_use_id(IS_obs_use)) - allocate(ZV_read_obs_tot(IS_obs_tot)) -end if - -if (BS_opt_hum) then - allocate(IV_hum_tot_id(IS_hum_tot)) - allocate(IV_hum_use_id(IS_hum_use)) - allocate(ZV_read_hum_tot(IS_hum_tot)) -end if - -if (BS_opt_for) then - allocate(IV_for_tot_id(IS_for_tot)) - allocate(IV_for_use_id(IS_for_use)) - allocate(ZV_read_for_tot(IS_for_tot)) -end if - -if (BS_opt_dam) then - allocate(IV_dam_tot_id(IS_dam_tot)) - allocate(IV_dam_use_id(IS_dam_use)) - allocate(ZV_read_dam_tot(IS_dam_tot)) - allocate(ZV_Qin_dam(IS_dam_tot)) - allocate(ZV_Qin_dam_prev(IS_dam_tot)) - allocate(ZV_Qout_dam(IS_dam_tot)) - allocate(ZV_Qout_dam_prev(IS_dam_tot)) - allocate(ZV_Qin_dam0(IS_dam_tot)) - allocate(ZV_Qout_dam0(IS_dam_tot)) -end if - -!------------------------------------------------------------------------------- -!Make sure some Fortran arrays are initialized to zero -!------------------------------------------------------------------------------- -if (BS_opt_dam) then - ZV_Qin_dam0 =0 - ZV_Qout_dam0=0 -end if -!These are not populated anywhere before being used and hold meaningless values - -!------------------------------------------------------------------------------- -!Compute number of time steps -!------------------------------------------------------------------------------- -IS_M=int(ZS_TauM/ZS_dtM) -IS_O=int(ZS_TauO/ZS_dtO) -IS_R=int(ZS_TauR/ZS_dtR) -IS_RpO=int(ZS_dtO/ZS_TauR) -IS_RpM=int(ZS_dtM/ZS_TauR) -IS_RpF=int(ZS_dtF/ZS_TauR) -IS_RpH=int(ZS_dtH/ZS_TauR) - -!------------------------------------------------------------------------------- -!Initialize libraries and create objects common to all options -!------------------------------------------------------------------------------- -print *,'!!!LPR before create obj' -call rapid_create_obj -print *,'!!!LPR after create obj' -!Initialize libraries and create PETSc and TAO objects (Mat,Vec,taoapp...) - -!------------------------------------------------------------------------------- -!Prints information about current model run based on info from namelist -!------------------------------------------------------------------------------- -if (rank==0 .and. .not. BS_opt_Qinit) print '(a70)', & - 'Not reading initial flows from a file ' -if (rank==0 .and. BS_opt_Qinit) print '(a70)', & - 'Reading initial flows from a file ' -if (rank==0 .and. .not. BS_opt_Qfinal .and. IS_opt_run==1) print '(a70)', & - 'Not writing final flows into a file ' -if (rank==0 .and. BS_opt_Qfinal .and. IS_opt_run==1) print '(a70)', & - 'Writing final flows into a file ' -if (rank==0 .and. .not. BS_opt_for) print '(a70)', & - 'Not using forcing ' -if (rank==0 .and. BS_opt_for) print '(a70)', & - 'Using forcing ' -if (rank==0 .and. .not. BS_opt_hum) print '(a70)', & - 'Not using human-induced flows ' -if (rank==0 .and. BS_opt_hum) print '(a70)', & - 'Using human-induced flows ' -if (rank==0 .and. IS_opt_routing==1) print '(a70)', & - 'Routing with matrix-based Muskingum method ' -if (rank==0 .and. IS_opt_routing==2) print '(a70)', & - 'Routing with traditional Muskingum method ' -if (rank==0 .and. IS_opt_routing==3) print '(a70)', & - 'Routing with matrix-based Muskingum method using transboundary matrix ' -if (rank==0 .and. IS_opt_run==1) print '(a70)', & - 'RAPID mode: computing flowrates ' -if (rank==0 .and. IS_opt_run==2 .and. IS_opt_phi==1) print '(a70)', & - 'RAPID mode: optimizing parameters, using phi1 ' -if (rank==0 .and. IS_opt_run==2 .and. IS_opt_phi==2) print '(a70)', & - 'RAPID mode: optimizing parameters, using phi2 ' -if (rank==0) print '(a10,a60)', & - 'Using :', Vlat_file -if (rank==0 .and. IS_opt_run==1) print '(a10,a60)', & - 'Using :',k_file -if (rank==0 .and. IS_opt_run==1) print '(a10,a60)', & - 'Using :',x_file -if (rank==0 .and. IS_opt_run==2) print '(a10,a60)', & - 'Using :',kfac_file -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - -!------------------------------------------------------------------------------- -!Calculate helpful arrays !--LPR: hash-table used to increase efficiency------- -!------------------------------------------------------------------------------- -call rapid_arrays -!print *,'!!!LPR after rapid_arrays' - -!------------------------------------------------------------------------------- -!Calculate Network matrix -!------------------------------------------------------------------------------- -call rapid_net_mat -!print *,'!!!LPR after rapid_net_mat' - -!------------------------------------------------------------------------------- -!Breaks connections in Network matrix -!------------------------------------------------------------------------------- -if (BS_opt_for .or. BS_opt_dam) call rapid_net_mat_brk - -!------------------------------------------------------------------------------- -!calculates or set initial flows and volumes -!------------------------------------------------------------------------------- -if (.not. BS_opt_Qinit) then -call VecSet(ZV_QoutinitM,ZS_Qout0,ierr) -end if - -if (BS_opt_Qinit) then -print *, 'LPR: RAPID reading its own initialization file ......' -open(30,file=Qinit_file,status='old') -read(30,*) ZV_read_riv_tot -close(30) -call VecSetValues(ZV_QoutinitM,IS_riv_bas,IV_riv_loc1, & - ZV_read_riv_tot(IV_riv_index),INSERT_VALUES,ierr) - !here we use the output of a simulation as the intitial - !flow rates. The simulation has to be made on the entire - !domain, the initial value is taken only for the considered - !basin thanks to the vector IV_riv_index -call VecAssemblyBegin(ZV_QoutinitM,ierr) -call VecAssemblyEnd(ZV_QoutinitM,ierr) -end if - -call VecSet(ZV_VinitM,ZS_V0,ierr) -!Set initial volumes for Main procedure - -!------------------------------------------------------------------------------- -!Initialize default values for ZV_QoutRabsmin, ZV_QoutRabsmax and ZV_babsmax -!------------------------------------------------------------------------------- -if (BS_opt_influence) then -call VecSet(ZV_babsmax ,ZS_one*0 ,ierr) -call VecSet(ZV_QoutRabsmin,ZS_one*999999999,ierr) -call VecSet(ZV_QoutRabsmax,ZS_one*0 ,ierr) -end if - - -!******************************************************************************* -!Initialization procedure for OPTION 1 -!******************************************************************************* -if (IS_opt_run==1) then - -!------------------------------------------------------------------------------- -!copy main initial values into routing initial values -!------------------------------------------------------------------------------- -call VecCopy(ZV_QoutinitM,ZV_QoutinitR,ierr) -call VecCopy(ZV_VinitM,ZV_VinitR,ierr) - -!------------------------------------------------------------------------------- -!Read/set k and x -!------------------------------------------------------------------------------- -open(20,file=k_file,status='old') -read(20,*) ZV_read_riv_tot -call VecSetValues(ZV_k,IS_riv_bas,IV_riv_loc1, & - ZV_read_riv_tot(IV_riv_index),INSERT_VALUES,ierr) -call VecAssemblyBegin(ZV_k,ierr) -call VecAssemblyEnd(ZV_k,ierr) -close(20) -!get values for k in a file and create the corresponding ZV_k vector - -open(21,file=x_file,status='old') -read(21,*) ZV_read_riv_tot -call VecSetValues(ZV_x,IS_riv_bas,IV_riv_loc1, & - ZV_read_riv_tot(IV_riv_index),INSERT_VALUES,ierr) -call VecAssemblyBegin(ZV_x,ierr) -call VecAssemblyEnd(ZV_x,ierr) -close(21) -!get values for x in a file and create the corresponding ZV_x vector - -!------------------------------------------------------------------------------- -!Compute routing parameters and linear system matrix -!------------------------------------------------------------------------------- -call rapid_routing_param(ZV_k,ZV_x,ZV_C1,ZV_C2,ZV_C3,ZM_A) -!calculate Muskingum parameters and matrix ZM_A - -call KSPSetOperators(ksp,ZM_A,ZM_A,DIFFERENT_NONZERO_PATTERN,ierr) -call KSPSetType(ksp,KSPRICHARDSON,ierr) !default=richardson -!call KSPSetInitialGuessNonZero(ksp,PETSC_TRUE,ierr) -!call KSPSetInitialGuessKnoll(ksp,PETSC_TRUE,ierr) -call KSPSetFromOptions(ksp,ierr) !if runtime options -if (IS_opt_routing==3) call KSPSetType(ksp,KSPPREONLY,ierr)!default=preonly - -!------------------------------------------------------------------------------- -!End of initialization procedure for OPTION 1 -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!Initialization procedure for OPTION 2 -!******************************************************************************* -if (IS_opt_run==2) then -#ifndef NO_TAO - -!------------------------------------------------------------------------------- -!Create observation matrix -!------------------------------------------------------------------------------- -call rapid_obs_mat -!Create observation matrix - -!------------------------------------------------------------------------------- -!copy main initial values into optimization initial values -!------------------------------------------------------------------------------- -call VecCopy(ZV_QoutinitM,ZV_QoutinitO,ierr) -!copy initial main variables into initial optimization variables - -!------------------------------------------------------------------------------- -!Read/set kfac, xfac and Qobsbarrec -!------------------------------------------------------------------------------- -open(22,file=kfac_file,status='old') -read(22,*) ZV_read_riv_tot -close(22) -call VecSetValues(ZV_kfac,IS_riv_bas,IV_riv_loc1, & - ZV_read_riv_tot(IV_riv_index),INSERT_VALUES,ierr) - !only looking at basin, doesn't have to be whole domain here -call VecAssemblyBegin(ZV_kfac,ierr) -call VecAssemblyEnd(ZV_kfac,ierr) -!reads kfac and assigns to ZV_kfac - -if (IS_opt_phi==2) then -open(35,file=Qobsbarrec_file,status='old') -read(35,*) ZV_read_obs_tot -close(35) -call VecSetValues(ZV_Qobsbarrec,IS_obs_bas,IV_obs_loc1, & - ZV_read_obs_tot(IV_obs_index),INSERT_VALUES,ierr) - !here we only look at the observations within the basin - !studied -call VecAssemblyBegin(ZV_Qobsbarrec,ierr) -call VecAssemblyEnd(ZV_Qobsbarrec,ierr) -!reads Qobsbarrec and assigns to ZV_Qobsbarrec -end if - -!------------------------------------------------------------------------------- -!Set pnorm, pfac and p -!------------------------------------------------------------------------------- -call VecSetValues(ZV_pnorm,IS_one,IS_one-1,ZS_knorm_init,INSERT_VALUES,ierr) -call VecSetValues(ZV_pnorm,IS_one,IS_one,ZS_xnorm_init,INSERT_VALUES,ierr) -call VecAssemblyBegin(ZV_pnorm,ierr) -call VecAssemblyEnd(ZV_pnorm,ierr) -!set pnorm to pnorm=(knorm,xnorm) - -!call VecSetValues(ZV_pfac,IS_one,IS_one-1,ZS_kfac,INSERT_VALUES,ierr) -!call VecSetValues(ZV_pfac,IS_one,IS_one,ZS_xfac,INSERT_VALUES,ierr) -!call VecAssemblyBegin(ZV_pnorm,ierr) -!call VecAssemblyEnd(ZV_pnorm,ierr) -!!set pfac to pfac=(kfac,xfac) - -!call VecPointWiseMult(ZV_p,ZV_pfac,ZV_pnorm,ierr) -!!set p to p=pfac.*pnorm - -!------------------------------------------------------------------------------- -!End of OPTION 2 -!------------------------------------------------------------------------------- -#endif -end if - - -!******************************************************************************* -!End of subroutine -!******************************************************************************* -end subroutine rapid_init diff --git a/hydro/Rapid_routing/rapid_main.F90 b/hydro/Rapid_routing/rapid_main.F90 deleted file mode 100644 index b0d7863874..0000000000 --- a/hydro/Rapid_routing/rapid_main.F90 +++ /dev/null @@ -1,299 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_main -!******************************************************************************* -subroutine rapid_main(ITIME,runoff,ii,jj,Qout_nc_file) -!Purpose: -!Allows to route water through a river network, and to estimate optimal -!parameters using the inverse method -!Author: -!Cedric H. David, 2008-2015. -!Peirong Lin, modified starting from June 2014 to satisfy WRF-Hydro needs - -use netcdf - -!---LPR: added variable use from module Wrapper--------------------- -use hrldas_RAPID_wrapper, only: cnt_rapid_run,rapid_runoff_to_inflow - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - namelist_file, & - Vlat_file,Qfor_file,Qhum_file, & - Qout_file, & - IS_M,JS_M,JS_RpM,IS_RpM,IS_RpF,IS_RpH, & - ZS_TauR, & - ZV_pnorm, & - ZV_C1,ZV_C2,ZV_C3, & - ZV_Qext,ZV_Qfor,ZV_Qlat,ZV_Qhum,ZV_Qdam, & - ZV_Vlat, & - ZV_QoutR,ZV_QoutinitR,ZV_QoutbarR, & - ZV_VR,ZV_VinitR,ZV_VbarR, & - ZS_phi, & - ierr,rank,stage,temp_char,temp_char2, & - ZS_one, & - IS_riv_tot,IS_riv_bas,IS_for_bas,IS_dam_bas,IS_hum_bas, & - ZS_time1,ZS_time2,ZS_time3, & - IV_nc_start,IV_nc_count,IV_nc_count2, & - BS_opt_for,BS_opt_hum,BS_opt_dam,IS_opt_run - -#ifndef NO_TAO -use rapid_var, only : & - tao -#endif - -implicit none -external rapid_phiroutine -!because the subroutine is called by a function - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - -#ifndef NO_TAO -#include "finclude/taosolver.h" -!TAO solver -#endif - -integer ITIME -integer ii,jj -real,dimension(ii,jj) :: runoff -real,dimension(ii,jj) :: ZM_runoff -character(len=100) :: Qout_nc_file !---LPR: RAPID output file name-- - -ZM_runoff = runoff !---LPR: pass runoff calculated by WRF-Hydro to RAPID------ -Qout_file = Qout_nc_file !---LPR: new output filename defined by Wrapper------- - -!******************************************************************************* -!Initialize -!******************************************************************************* -!namelist_file='./rapid_namelist' !---LPR: initialize done in Wrapper---------- -!call rapid_init - -!******************************************************************************* -!OPTION 1 - use to calculate flows and volumes and generate output data -!******************************************************************************* -if (IS_opt_run==1) then - -!------------------------------------------------------------------------------- -!Create Qout file -!------------------------------------------------------------------------------- -call rapid_create_Qout_file(Qout_file) - -!------------------------------------------------------------------------------- -!Open files -!------------------------------------------------------------------------------- -call rapid_open_Qout_file(Qout_file) -!---LPR: IMPORTANT uncomment this sentence because runoff is NOT read from Vlat -!call rapid_open_Vlat_file(Vlat_file) -!---LPR: IMPORTANT uncomment this sentence because runoff is NOT read from Vlat -if (BS_opt_for) call rapid_open_Qfor_file(Qfor_file) -if (BS_opt_hum) call rapid_open_Qhum_file(Qhum_file) - -!------------------------------------------------------------------------------- -!Make sure the vectors potentially used for inflow to dams are initially null -!------------------------------------------------------------------------------- -call VecSet(ZV_Qext,0*ZS_one,ierr) !Qext=0 -call VecSet(ZV_QoutbarR,0*ZS_one,ierr) !QoutbarR=0 -!This should be done by PETSc but just to be safe - -!------------------------------------------------------------------------------- -!Set initial value of Qext from Qout_dam0 -!------------------------------------------------------------------------------- -if (BS_opt_dam .and. IS_dam_bas>0) then - call rapid_set_Qext0 !Qext from Qout_dam0 - !call VecView(ZV_Qext,PETSC_VIEWER_STDOUT_WORLD,ierr) -end if - -!------------------------------------------------------------------------------- -!Read, compute and write -!------------------------------------------------------------------------------- -!---LPR: IMPORTANT uncomment the next two->defined in RAPID initialization stage -!call PetscLogStageRegister('Read Comp Write',stage,ierr) -!call PetscLogStagePush(stage,ierr) - -ZS_time3=0 - -IV_nc_start=(/1,1/) -IV_nc_count=(/IS_riv_tot,1/) -IV_nc_count2=(/IS_riv_bas,1/) - -!---LPR uncomment this because loop is done within WRF-Hydro call-------------- -!do JS_M=1,IS_M -!do JS_RpM=1,IS_RpM - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Read/set surface and subsurface volumes -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!call rapid_read_Vlat_file !---LPR: do not read Vlat file, but get Vlat from WRF-Hydro - -!---LPR: IMPORTANT new subroutine added in the Wrapper----------------- -call rapid_runoff_to_inflow(ZM_runoff,ZV_Vlat,cnt_rapid_run) -!---LPR: IMPORTANT new subroutine added in the Wrapper----------------- - -call VecCopy(ZV_Vlat,ZV_Qlat,ierr) !Qlat=Vlat -call VecScale(ZV_Qlat,1/ZS_TauR,ierr) !Qlat=Qlat/TauR -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Read/set upstream forcing -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -if (BS_opt_for .and. IS_for_bas>0 & - .and. mod((JS_M-1)*IS_RpM+JS_RpM,IS_RpF)==1) then - -call rapid_read_Qfor_file - -end if - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Run dam model based on previous values of QoutbarR and Qext to get Qdam -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -if (BS_opt_dam .and. IS_dam_bas>0) then - -call rapid_get_Qdam - -end if - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Read/set human induced flows -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -if (BS_opt_hum .and. IS_hum_bas>0 & - .and. mod((JS_M-1)*IS_RpM+JS_RpM,IS_RpH)==1) then - -call rapid_read_Qhum_file - -end if - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!calculation of Qext -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call VecCopy(ZV_Qlat,ZV_Qext,ierr) !Qext=Qlat -if (BS_opt_for) call VecAXPY(ZV_Qext,ZS_one,ZV_Qfor,ierr) !Qext=Qext+1*Qfor -if (BS_opt_dam) call VecAXPY(ZV_Qext,ZS_one,ZV_Qdam,ierr) !Qext=Qext+1*Qdam -if (BS_opt_hum) call VecAXPY(ZV_Qext,ZS_one,ZV_Qhum,ierr) !Qext=Qext+1*Qhum - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Routing procedure -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call PetscTime(ZS_time1,ierr) -call rapid_routing(ZV_C1,ZV_C2,ZV_C3,ZV_Qext, & - ZV_QoutinitR,ZV_VinitR, & - ZV_QoutR,ZV_QoutbarR,ZV_VR,ZV_VbarR) -call PetscTime(ZS_time2,ierr) -ZS_time3=ZS_time3+ZS_time2-ZS_time1 - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Update variables -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call VecCopy(ZV_QoutR,ZV_QoutinitR,ierr) -call VecCopy(ZV_VR,ZV_VinitR,ierr) - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!write outputs -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call rapid_write_Qout_file - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Update netCDF location -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -if (rank==0) IV_nc_start(2)=IV_nc_start(2)+1 -!do not comment out if writing directly from the routing subroutine - -!end do -!end do !---LPR uncomment because loop if done in WRF-Hydro - -!------------------------------------------------------------------------------- -!Performance statistics -!------------------------------------------------------------------------------- -call PetscPrintf(PETSC_COMM_WORLD,'Cumulative time for routing only' & - //char(10),ierr) -write(temp_char ,'(i10)') rank -write(temp_char2,'(f10.2)') ZS_time3 -call PetscSynchronizedPrintf(PETSC_COMM_WORLD,'Rank :'//temp_char //', '// & - 'Time :'//temp_char2// & - char(10),ierr) -call PetscSynchronizedFlush(PETSC_COMM_WORLD,ierr) -!---LPR: uncomment sentence below to avoid potential PETSC Stack Empty error----- -!call PetscLogStagePop(ierr) -call PetscPrintf(PETSC_COMM_WORLD,'Output data created'//char(10),ierr) - -!------------------------------------------------------------------------------- -!Close files -!------------------------------------------------------------------------------- -call rapid_close_Qout_file -!---LPR: IMPORTANT uncomment setence below------- -!call rapid_close_Vlat_file -if (BS_opt_for) call rapid_close_Qfor_file(Qfor_file) -if (BS_opt_hum) call rapid_close_Qhum_file(Qhum_file) - - -!------------------------------------------------------------------------------- -!End of OPTION 1 -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!OPTION 2 - Optimization -!******************************************************************************* -if (IS_opt_run==2) then -#ifndef NO_TAO - -!------------------------------------------------------------------------------- -!Only one computation of phi - For testing purposes only -!------------------------------------------------------------------------------- -!call PetscLogStageRegister('One comp of phi',stage,ierr) -!call PetscLogStagePush(stage,ierr) -!!do JS_M=1,5 -!call rapid_phiroutine(tao,ZV_pnorm,ZS_phi,PETSC_NULL,ierr) -!!enddo -!call PetscLogStagePop(ierr) - -!------------------------------------------------------------------------------- -!Optimization procedure -!------------------------------------------------------------------------------- -call PetscLogStageRegister('Optimization ',stage,ierr) -call PetscLogStagePush(stage,ierr) -call TaoSetObjectiveRoutine(tao,rapid_phiroutine,PETSC_NULL_OBJECT,ierr) -call TaoSetInitialVector(tao,ZV_pnorm,ierr) -call TaoSetTolerances(tao,1.0d-4,1.0d-4,PETSC_NULL_OBJECT,PETSC_NULL_OBJECT, & - PETSC_NULL_OBJECT,ierr) -call TaoSolve(tao,ierr) - -call TaoView(tao,PETSC_VIEWER_STDOUT_WORLD,ierr) -call PetscPrintf(PETSC_COMM_WORLD,'final normalized p=(k,x)'//char(10),ierr) -call VecView(ZV_pnorm,PETSC_VIEWER_STDOUT_WORLD,ierr) -call PetscLogStagePop(ierr) - -!------------------------------------------------------------------------------- -!End of OPTION 2 -!------------------------------------------------------------------------------- -#else -if (rank==0) print '(a70)', & - 'ERROR: The optimization mode requires RAPID to be compiled with TAO ' -#endif -end if - - -!******************************************************************************* -!Finalize -!******************************************************************************* -!call rapid_final !---LPR: no need to finalize, write RAPID output each time step - -!******************************************************************************* -!End -!******************************************************************************* -end subroutine rapid_main diff --git a/hydro/Rapid_routing/rapid_net_mat.F90 b/hydro/Rapid_routing/rapid_net_mat.F90 deleted file mode 100644 index 61a9ec19f7..0000000000 --- a/hydro/Rapid_routing/rapid_net_mat.F90 +++ /dev/null @@ -1,331 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_net_mat -!******************************************************************************* -subroutine rapid_net_mat - -!Purpose: -!This creates a sparse network matrix. "1" is recorded at Net(i,j) if the reach -!in column j flows into the reach in line i. If some connections are missing -!between the subbasin and the entire domain, gives warnings. -!A transboundary matrix is also created whose elements in the diagonal blocks -!are all null and the elements in the off-diagonal blocks are equal to those of -!the network matrix. -!Author: -!Cedric H. David, 2008-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_tot,IS_riv_bas, & - JS_riv_tot,JS_riv_bas,JS_riv_bas2, & - IV_riv_bas_id,IV_riv_index,ZM_hsh_bas, & - ZM_Net,ZM_A,ZM_T,ZM_TC1,BS_logical,IV_riv_tot_id, & - IV_down,IV_nbup,IM_up,JS_up,IM_index_up, & - ierr,rank,ZS_val, & - IS_one,ZS_one,temp_char,IV_nz,IV_dnz,IV_onz, & - IS_ownfirst,IS_ownlast,IS_opt_routing - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - - -!******************************************************************************* -!Prepare for matrix preallocation -!******************************************************************************* -IS_ownfirst=0 -IS_ownlast=0 -do JS_riv_bas=1,IS_riv_bas - IV_nz(JS_riv_bas)=0 - IV_dnz(JS_riv_bas)=0 - IV_onz(JS_riv_bas)=0 -end do -!Initialize to zero - -call MatGetOwnershipRange(ZM_Net,IS_ownfirst,IS_ownlast,ierr) - -do JS_riv_bas2=1,IS_riv_bas -do JS_up=1,IV_nbup(IV_riv_index(JS_riv_bas2)) -if (IM_index_up(JS_riv_bas2,JS_up)/=0) then - - JS_riv_bas=IM_index_up(JS_riv_bas2,JS_up) - !Here JS_riv_bas is determined upstream of JS_riv_bas2 - !both IS_riv_bas2 and IS_riv_bas are used here because the location - !of nonzeros depends on row and column in an parallel matrix - - IV_nz(JS_riv_bas2)=IV_nz(JS_riv_bas2)+1 - !The size of IV_nz is IS_riv_bas, IV_nz is the same across computing cores - - if ((JS_riv_bas >=IS_ownfirst+1 .and. JS_riv_bas< IS_ownlast+1) .and. & - (JS_riv_bas2>=IS_ownfirst+1 .and. JS_riv_bas2< IS_ownlast+1)) then - IV_dnz(JS_riv_bas2)=IV_dnz(JS_riv_bas2)+1 - end if - if ((JS_riv_bas < IS_ownfirst+1 .or. JS_riv_bas >=IS_ownlast+1) .and. & - (JS_riv_bas2>=IS_ownfirst+1 .and. JS_riv_bas2< IS_ownlast+1)) then - IV_onz(JS_riv_bas2)=IV_onz(JS_riv_bas2)+1 - end if - !The size of IV_dnz and of IV_onz is IS_riv_bas. The values of IV_dnz and - !IV_onz are not the same across computing cores. For each core, the - !only the values located in the range (IS_ownfirst+1:IS_ownlast) are - !correct but only these are used in the preallocation below. - -end if -end do -end do - -!print *, 'rank', rank, 'IV_nz(:)' , IV_nz(:) -!print *, 'rank', rank, 'IV_dnz(:)', IV_dnz(:) -!print *, 'rank', rank, 'IV_onz(:)', IV_onz(:) - - -!******************************************************************************* -!Matrix preallocation -!******************************************************************************* -!call MatSeqAIJSetPreallocation(ZM_Net,3*IS_one,PETSC_NULL_INTEGER,ierr) -!call MatMPIAIJSetPreallocation(ZM_Net,3*IS_one,PETSC_NULL_INTEGER,2*IS_one, & -! PETSC_NULL_INTEGER,ierr) -!call MatSeqAIJSetPreallocation(ZM_A,4*IS_one,PETSC_NULL_INTEGER,ierr) -!call MatMPIAIJSetPreallocation(ZM_A,4*IS_one,PETSC_NULL_INTEGER,2*IS_one, & -! PETSC_NULL_INTEGER,ierr) -!call MatSeqAIJSetPreallocation(ZM_T,4*IS_one,PETSC_NULL_INTEGER,ierr) -!call MatMPIAIJSetPreallocation(ZM_T,4*IS_one,PETSC_NULL_INTEGER,2*IS_one, & -! PETSC_NULL_INTEGER,ierr) -!call MatSeqAIJSetPreallocation(ZM_TC1,4*IS_one,PETSC_NULL_INTEGER,ierr) -!call MatMPIAIJSetPreallocation(ZM_TC1,4*IS_one,PETSC_NULL_INTEGER,2*IS_one, & -! PETSC_NULL_INTEGER,ierr) -!Very basic preallocation assuming no more than 3 upstream elements anywhere -!Not used here because proper preallocation is done below - -call MatSeqAIJSetPreallocation(ZM_Net,PETSC_NULL_INTEGER,IV_nz,ierr) -call MatMPIAIJSetPreallocation(ZM_Net, & - PETSC_NULL_INTEGER, & - IV_dnz(IS_ownfirst+1:IS_ownlast), & - PETSC_NULL_INTEGER, & - IV_onz(IS_ownfirst+1:IS_ownlast),ierr) -call MatSeqAIJSetPreallocation(ZM_A,PETSC_NULL_INTEGER,IV_nz+1,ierr) -call MatMPIAIJSetPreallocation(ZM_A, & - PETSC_NULL_INTEGER, & - IV_dnz(IS_ownfirst+1:IS_ownlast)+1, & - PETSC_NULL_INTEGER, & - IV_onz(IS_ownfirst+1:IS_ownlast),ierr) -call MatSeqAIJSetPreallocation(ZM_T,PETSC_NULL_INTEGER,0*IV_nz,ierr) -call MatMPIAIJSetPreallocation(ZM_T, & - PETSC_NULL_INTEGER, & - 0*IV_dnz(IS_ownfirst+1:IS_ownlast), & - PETSC_NULL_INTEGER, & - IV_onz(IS_ownfirst+1:IS_ownlast),ierr) -call MatSeqAIJSetPreallocation(ZM_TC1,PETSC_NULL_INTEGER,0*IV_nz,ierr) -call MatMPIAIJSetPreallocation(ZM_TC1, & - PETSC_NULL_INTEGER, & - 0*IV_dnz(IS_ownfirst+1:IS_ownlast), & - PETSC_NULL_INTEGER, & - IV_onz(IS_ownfirst+1:IS_ownlast),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'Network matrix preallocated'//char(10),ierr) - - -!******************************************************************************* -!Creates network matrix -!******************************************************************************* -if (rank==0) then -!only first processor sets values - -do JS_riv_bas2=1,IS_riv_bas -do JS_up=1,IV_nbup(IV_riv_index(JS_riv_bas2)) -if (IM_index_up(JS_riv_bas2,JS_up)/=0) then - - JS_riv_bas=IM_index_up(JS_riv_bas2,JS_up) - !Here JS_riv_bas is determined upstream of JS_riv_bas2 - !both IS_riv_bas2 and IS_riv_bas are used here because the location - !of nonzeros depends on row and column in a parallel matrix - - call MatSetValues(ZM_Net,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !Actual values used for ZM_Net - - call MatSetValues(ZM_A ,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - 0*ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !zeros (instead of -C1is) are used here on the off-diagonal of ZM_A because - !C1is are not yet computed, because ZM_A will later be populated based on - !ZM_Net, and because ZM_Net may be later modified for forcing or dams. - !Also when running RAPID in optimization mode, it is necessary to recreate - !ZM_A from scratch every time the parameters C1is are updated - -end if -end do -call MatSetValues(ZM_A ,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas2-1, & - 0*ZS_one,INSERT_VALUES,ierr) -CHKERRQ(ierr) -!zeros (instead of ones) are used on the main diagonal of ZM_A because ZM_A will -!be diagonally scaled by ZV_C1 before the diagonal is populated by ones. -end do - -end if - -call MatAssemblyBegin(ZM_Net,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_Net,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyBegin(ZM_A ,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_A ,MAT_FINAL_ASSEMBLY,ierr) -!sparse matrices need be assembled once their elements have been filled -call PetscPrintf(PETSC_COMM_WORLD,'Network matrix created'//char(10),ierr) - - -!******************************************************************************* -!Creates transboundary matrix -!******************************************************************************* -if (IS_opt_routing==3) then - -do JS_riv_bas2=1,IS_riv_bas -do JS_up=1,IV_nbup(IV_riv_index(JS_riv_bas2)) -if (IM_index_up(JS_riv_bas2,JS_up)/=0) then - - JS_riv_bas=IM_index_up(JS_riv_bas2,JS_up) - !Here JS_riv_bas is determined upstream of JS_riv_bas2 - !both IS_riv_bas2 and IS_riv_bas are used here because the location - !of nonzeros depends on row and column in a parallel matrix - - if ((JS_riv_bas < IS_ownfirst+1 .or. JS_riv_bas >=IS_ownlast+1) .and. & - (JS_riv_bas2>=IS_ownfirst+1 .and. JS_riv_bas2< IS_ownlast+1)) then - - call MatSetValues(ZM_T,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !Actual values (ones) used for ZM_T - - call MatSetValues(ZM_TC1,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - 0*ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !zeros (instead of C1is) are used here everywhere in ZM_TC1 because - !C1is are not yet computed, because ZM_TC1 will later be populated based on - !ZM_T, and because ZM_T may be later modified for forcing or dams. - !Also when running RAPID in optimization mode, it is necessary to recreate - !ZM_TC1 from scratch every time the parameters C1is are updated - - end if - -end if -end do -end do - -call MatAssemblyBegin(ZM_T,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_T,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyBegin(ZM_TC1,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_TC1,MAT_FINAL_ASSEMBLY,ierr) -call PetscPrintf(PETSC_COMM_WORLD,'Transboundary matrix created'//char(10),ierr) - -end if - - -!******************************************************************************* -!Checks for missing connections and gives warning -!******************************************************************************* -do JS_riv_tot=1,IS_riv_tot - ZS_val=-999 - call MatGetValues(ZM_hsh_bas, & - IS_one,rank, & - IS_one,IV_riv_tot_id(JS_riv_tot)-1, & - ZS_val,ierr) - CHKERRQ(ierr) - JS_riv_bas2=int(ZS_val) - if (JS_riv_bas2>0) then - !print *, 'Reach ID', IV_riv_tot_id(JS_riv_tot), 'is in basin' - else - !print *, 'Reach ID', IV_riv_tot_id(JS_riv_tot), 'is not in basin' - -!------------------------------------------------------------------------------- -!Looking for missing upstream connections -!------------------------------------------------------------------------------- -ZS_val=-999 -call MatGetValues(ZM_hsh_bas, & - IS_one,rank, & - IS_one,IV_down(JS_riv_tot)-1, & - ZS_val,ierr) -CHKERRQ(ierr) -JS_riv_bas=int(ZS_val) -if(JS_riv_bas>0) then - write(temp_char,'(i10)') IV_riv_tot_id(JS_riv_tot) - call PetscPrintf(PETSC_COMM_WORLD, & - 'WARNING: reach ID' // temp_char,ierr) - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas) - call PetscPrintf(PETSC_COMM_WORLD, & - ' should be connected upstream of reach ID' & - // temp_char // char(10),ierr) - call PetscPrintf(PETSC_COMM_WORLD, & - ' Make sure upstream forcing is available' & - // char(10),ierr) -end if -!------------------------------------------------------------------------------- -!Looking for missing upstream connections -!------------------------------------------------------------------------------- -do JS_up=1,IV_nbup(JS_riv_tot) -ZS_val=-999 -call MatGetValues(ZM_hsh_bas, & - IS_one,rank, & - IS_one,IM_up(JS_riv_tot,JS_up)-1, & - ZS_val,ierr) -CHKERRQ(ierr) -JS_riv_bas=int(ZS_val) -if (JS_riv_bas>0) then - write(temp_char,'(i10)') IV_riv_tot_id(JS_riv_tot) - call PetscPrintf(PETSC_COMM_WORLD, & - 'WARNING: reach ID' // temp_char,ierr) - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas) - call PetscPrintf(PETSC_COMM_WORLD, & - ' should be connected downstream of reach ID' & - // temp_char // char(10),ierr) -end if -end do -!------------------------------------------------------------------------------- -!Done looking -!------------------------------------------------------------------------------- - - end if -end do -call PetscPrintf(PETSC_COMM_WORLD,'Checked for missing connections between '// & - 'basin studied and rest of domain'//char(10),ierr) - - -!******************************************************************************* -!Display matrices on stdout -!******************************************************************************* -!call PetscPrintf(PETSC_COMM_WORLD,'ZM_Net'//char(10),ierr) -!call MatView(ZM_Net,PETSC_VIEWER_STDOUT_WORLD,ierr) -! -!call PetscPrintf(PETSC_COMM_WORLD,'ZM_A'//char(10),ierr) -!call MatView(ZM_A,PETSC_VIEWER_STDOUT_WORLD,ierr) -! -!if (IS_opt_routing==3) then -! call PetscPrintf(PETSC_COMM_WORLD,'ZM_T'//char(10),ierr) -! call MatView(ZM_T,PETSC_VIEWER_STDOUT_WORLD,ierr) -! -! call PetscPrintf(PETSC_COMM_WORLD,'ZM_TC1'//char(10),ierr) -! call MatView(ZM_TC1,PETSC_VIEWER_STDOUT_WORLD,ierr) -!end if - - -!******************************************************************************* -!End -!******************************************************************************* -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - - -end subroutine rapid_net_mat diff --git a/hydro/Rapid_routing/rapid_net_mat_brk.F90 b/hydro/Rapid_routing/rapid_net_mat_brk.F90 deleted file mode 100644 index 2e3b2719a1..0000000000 --- a/hydro/Rapid_routing/rapid_net_mat_brk.F90 +++ /dev/null @@ -1,286 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_net_mat_brk -!******************************************************************************* -subroutine rapid_net_mat_brk - -!Purpose: -!This subroutine modifies the network and transboundary matrices based on a list -!of river IDs. -!The connectivity is broken between each given river ID and its downstream -!river. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_bas,JS_riv_bas,JS_riv_bas2, & - IV_riv_bas_id,IV_riv_index, & - ZM_Net,ZM_T,IV_down,IV_nbup,JS_up,IM_index_up, & - IS_for_bas,JS_for_bas,IV_for_bas_id, & - IS_dam_bas,JS_dam_bas,IV_dam_bas_id, & - ierr,rank, & - IS_one,ZS_one,temp_char, & - IS_ownfirst,IS_ownlast, & - BS_opt_for,BS_opt_dam,IS_opt_routing - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - - -!******************************************************************************* -!If forcing is used -!******************************************************************************* -if (BS_opt_for) then - -!------------------------------------------------------------------------------- -!Breaks Net matrix connectivity in case forcing used is inside basin studied -!------------------------------------------------------------------------------- -if (IS_for_bas>0) then -call PetscPrintf(PETSC_COMM_WORLD,'Modifying network matrix'//char(10),ierr) -end if - -if (rank==0) then -!only first processor sets values -do JS_for_bas=1,IS_for_bas - do JS_riv_bas=1,IS_riv_bas - if (IV_for_bas_id(JS_for_bas)==IV_riv_bas_id(JS_riv_bas)) then - - do JS_riv_bas2=1,IS_riv_bas - if (IV_down(IV_riv_index(JS_riv_bas))==IV_riv_bas_id(JS_riv_bas2))then - !here JS_riv_bas2 is determined as directly downstream of JS_riv_bas - !and the connection between both needs be broken - - call MatSetValues(ZM_Net,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - 0*ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !Breaks connection for matrix-based Muskingum method - - do JS_up=1,IV_nbup(IV_riv_index(JS_riv_bas2)) - if (IM_index_up(JS_riv_bas2,JS_up)==JS_riv_bas) then - IM_index_up(JS_riv_bas2,JS_up)=0 - end if - end do - !Breaks connection for traditional Muskingum method - - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas) - call PetscPrintf(PETSC_COMM_WORLD, & - ' connection broken downstream of reach ID' & - // temp_char,ierr) - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas2) - call PetscPrintf(PETSC_COMM_WORLD, & - ' forcing data will be used for reach ID' & - // temp_char // char(10),ierr) - !Writes information on connection that was just broken in stdout - - end if - end do - - end if - end do -end do -end if -call MatAssemblyBegin(ZM_Net,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_Net,MAT_FINAL_ASSEMBLY,ierr) -!!sparse matrices need be assembled once their elements have been filled -call PetscPrintf(PETSC_COMM_WORLD,'Network matrix modified for forcing'// & - char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - -!------------------------------------------------------------------------------- -!Breaks T matrix connectivity in case forcing is used inside basin studied -!------------------------------------------------------------------------------- -if (IS_opt_routing==3) then - -if (IS_for_bas>0) then -call PetscPrintf(PETSC_COMM_WORLD,'Modifying transboundary matrix'// & - char(10),ierr) -end if - -do JS_for_bas=1,IS_for_bas - do JS_riv_bas=1,IS_riv_bas - if (IV_for_bas_id(JS_for_bas)==IV_riv_bas_id(JS_riv_bas)) then - - do JS_riv_bas2=1,IS_riv_bas - if (IV_down(IV_riv_index(JS_riv_bas))==IV_riv_bas_id(JS_riv_bas2))then - !here JS_riv_bas2 is determined as directly downstream of JS_riv_bas - !and the connection between both needs be broken - -if ((JS_riv_bas < IS_ownfirst+1 .or. JS_riv_bas >=IS_ownlast+1) .and. & - (JS_riv_bas2>=IS_ownfirst+1 .and. JS_riv_bas2< IS_ownlast+1)) then - - call MatSetValues(ZM_T,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - 0*ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !Breaks connection of transboundary matrix - -end if - - end if - end do - - end if - end do -end do -call MatAssemblyBegin(ZM_T,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_T,MAT_FINAL_ASSEMBLY,ierr) -!!sparse matrices need be assembled once their elements have been filled -call PetscPrintf(PETSC_COMM_WORLD,'Transboundary matrix modified for forcing'//& - char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - -end if - -!------------------------------------------------------------------------------- -!End if forcing is used -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!If dam model is used -!******************************************************************************* -if (BS_opt_dam) then - -!------------------------------------------------------------------------------- -!Breaks matrix connectivity in case dam model is used inside basin studied -!------------------------------------------------------------------------------- -if (IS_dam_bas>0) then -call PetscPrintf(PETSC_COMM_WORLD,'Modifying network matrix'//char(10),ierr) -end if - -if (rank==0) then -!only first processor sets values -do JS_dam_bas=1,IS_dam_bas - do JS_riv_bas=1,IS_riv_bas - if (IV_dam_bas_id(JS_dam_bas)==IV_riv_bas_id(JS_riv_bas)) then - - do JS_riv_bas2=1,IS_riv_bas - if (IV_down(IV_riv_index(JS_riv_bas))==IV_riv_bas_id(JS_riv_bas2))then - !here JS_riv_bas2 is determined as directly downstream of JS_riv_bas - !and the connection between both needs be broken - - call MatSetValues(ZM_Net,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - 0*ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !Breaks connection for matrix-based Muskingum method - - do JS_up=1,IV_nbup(IV_riv_index(JS_riv_bas2)) - if (IM_index_up(JS_riv_bas2,JS_up)==JS_riv_bas) then - IM_index_up(JS_riv_bas2,JS_up)=0 - end if - end do - !Breaks connection for traditional Muskingum method - - - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas) - call PetscPrintf(PETSC_COMM_WORLD, & - ' connection broken downstream of reach ID' & - // temp_char,ierr) - write(temp_char,'(i10)') IV_riv_bas_id(JS_riv_bas2) - call PetscPrintf(PETSC_COMM_WORLD, & - ' dam data will be used for reach ID' & - // temp_char // char(10),ierr) - !Writes information on connection that was just broken in stdout - - end if - end do - - end if - end do -end do -end if -call MatAssemblyBegin(ZM_Net,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_Net,MAT_FINAL_ASSEMBLY,ierr) -!sparse matrices need be assembled once their elements have been filled -call PetscPrintf(PETSC_COMM_WORLD,'Network matrix modified for dams'// & - char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - -!------------------------------------------------------------------------------- -!Breaks T matrix connectivity in case dam model is used inside basin studied -!------------------------------------------------------------------------------- -if (IS_opt_routing==3) then - -if (IS_dam_bas>0) then -call PetscPrintf(PETSC_COMM_WORLD,'Modifying transboundary matrix'// & - char(10),ierr) -end if - -do JS_dam_bas=1,IS_dam_bas - do JS_riv_bas=1,IS_riv_bas - if (IV_dam_bas_id(JS_dam_bas)==IV_riv_bas_id(JS_riv_bas)) then - - do JS_riv_bas2=1,IS_riv_bas - if (IV_down(IV_riv_index(JS_riv_bas))==IV_riv_bas_id(JS_riv_bas2))then - !here JS_riv_bas2 is determined as directly downstream of JS_riv_bas - !and the connection between both needs be broken - -if ((JS_riv_bas < IS_ownfirst+1 .or. JS_riv_bas >=IS_ownlast+1) .and. & - (JS_riv_bas2>=IS_ownfirst+1 .and. JS_riv_bas2< IS_ownlast+1)) then - - call MatSetValues(ZM_T,IS_one,JS_riv_bas2-1,IS_one,JS_riv_bas-1, & - 0*ZS_one,INSERT_VALUES,ierr) - CHKERRQ(ierr) - !Breaks connection of transboundary matrix - -end if - - end if - end do - - end if - end do -end do -call MatAssemblyBegin(ZM_T,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_T,MAT_FINAL_ASSEMBLY,ierr) -!!sparse matrices need be assembled once their elements have been filled -call PetscPrintf(PETSC_COMM_WORLD,'Transboundary matrix modified for dams'// & - char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - -end if - -!------------------------------------------------------------------------------- -!End if dam model is used -!------------------------------------------------------------------------------- -end if - - -!******************************************************************************* -!Display matrix on stdout -!******************************************************************************* -!call PetscPrintf(PETSC_COMM_WORLD,'ZM_Net'//char(10),ierr) -!call MatView(ZM_Net,PETSC_VIEWER_STDOUT_WORLD,ierr) -! -!if (IS_opt_routing==3) then -! call PetscPrintf(PETSC_COMM_WORLD,'ZM_T'//char(10),ierr) -! call MatView(ZM_T,PETSC_VIEWER_STDOUT_WORLD,ierr) -!end if - - -!******************************************************************************* -!End -!******************************************************************************* - - -end subroutine rapid_net_mat_brk diff --git a/hydro/Rapid_routing/rapid_obs_mat.F90 b/hydro/Rapid_routing/rapid_obs_mat.F90 deleted file mode 100644 index 4c6b7f0ba0..0000000000 --- a/hydro/Rapid_routing/rapid_obs_mat.F90 +++ /dev/null @@ -1,106 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_obs_mat -!******************************************************************************* -subroutine rapid_obs_mat - -!Purpose: -!Creates a kronecker-type diagonal sparse matrix. "1" is recorded at the row -!and column where observations are available. -!Author: -!Cedric H. David, 2008-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - IS_riv_bas,JS_riv_bas, & - IS_obs_bas,JS_obs_bas, & - IV_riv_bas_id,IV_obs_tot_id, & - IV_obs_index, & - ZM_Obs,ZS_norm, & - ierr, & - IS_one,ZS_one,temp_char - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - - -!******************************************************************************* -!Preallocation of the observation matrix -!******************************************************************************* -call MatSeqAIJSetPreallocation(ZM_Obs,1*IS_one,PETSC_NULL_INTEGER,ierr) -call MatMPIAIJSetPreallocation(ZM_Obs,1*IS_one,PETSC_NULL_INTEGER,0*IS_one, & - PETSC_NULL_INTEGER,ierr) -!Very basic preallocation assuming that all reaches have one gage. Cannot use -!IV_obs_loc1 for preallocation because it is of size IS_obs_bas and not -!IS_riv_bas. To do a better preallocation one needs to count the diagonal -!elements in a new vector - -!call PetscPrintf(PETSC_COMM_WORLD,'Observation matrix preallocated'//char(10), & -! ierr) - - -!******************************************************************************* -!Creation of the observation matrix -!******************************************************************************* -do JS_riv_bas=1,IS_riv_bas - do JS_obs_bas=1,IS_obs_bas - -if (IV_obs_tot_id(IV_obs_index(JS_obs_bas))==IV_riv_bas_id(JS_riv_bas)) then - call MatSetValues(ZM_Obs,IS_one,JS_riv_bas-1,IS_one,JS_riv_bas-1, & - ZS_one,INSERT_VALUES,ierr) -end if - - enddo -enddo - -call MatAssemblyBegin(ZM_Obs,MAT_FINAL_ASSEMBLY,ierr) -call MatAssemblyEnd(ZM_Obs,MAT_FINAL_ASSEMBLY,ierr) -!sparse matrices need be assembled once their elements have been filled - - -!******************************************************************************* -!Optional: calculation of number of gaging stations used in subbasin -!******************************************************************************* -call MatNorm(ZM_Obs,NORM_FROBENIUS,ZS_norm,ierr) -ZS_norm=ZS_norm*ZS_norm -write(temp_char,'(f10.1)') ZS_norm -call PetscPrintf(PETSC_COMM_WORLD,'Number of gage IDs in ' // & - 'this simulation (based on norm):' // temp_char // char(10), & - ierr) - - -!******************************************************************************* -!Display matrix on stdout -!******************************************************************************* -!call PetscPrintf(PETSC_COMM_WORLD,'ZM_Obs:'//char(10),ierr) -!call MatView(ZM_Obs,PETSC_VIEWER_STDOUT_WORLD,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* -call PetscPrintf(PETSC_COMM_WORLD,'Observation matrix created'//char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - - -end subroutine rapid_obs_mat diff --git a/hydro/Rapid_routing/rapid_open_Qfor_file.F90 b/hydro/Rapid_routing/rapid_open_Qfor_file.F90 deleted file mode 100644 index e95db5328c..0000000000 --- a/hydro/Rapid_routing/rapid_open_Qfor_file.F90 +++ /dev/null @@ -1,43 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_open_Qfor -!******************************************************************************* -subroutine rapid_open_Qfor_file(Qfor_file) - -!Purpose: -!Open Qfor_file from Fortran. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -character(len=100), intent(in):: Qfor_file - - -!******************************************************************************* -!Open file -!******************************************************************************* -if (rank==0) open(34,file=Qfor_file,status='old') - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_open_Qfor_file - diff --git a/hydro/Rapid_routing/rapid_open_Qhum_file.F90 b/hydro/Rapid_routing/rapid_open_Qhum_file.F90 deleted file mode 100644 index 9d4180868e..0000000000 --- a/hydro/Rapid_routing/rapid_open_Qhum_file.F90 +++ /dev/null @@ -1,43 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_open_Qhum -!******************************************************************************* -subroutine rapid_open_Qhum_file(Qhum_file) - -!Purpose: -!Open Qhum_file from Fortran. -!Author: -!Cedric H. David, 2014-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -character(len=100), intent(in):: Qhum_file - - -!******************************************************************************* -!Open file -!******************************************************************************* -if (rank==0) open(36,file=Qhum_file,status='old') - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_open_Qhum_file - diff --git a/hydro/Rapid_routing/rapid_open_Qobs_file.F90 b/hydro/Rapid_routing/rapid_open_Qobs_file.F90 deleted file mode 100644 index 97bd509b74..0000000000 --- a/hydro/Rapid_routing/rapid_open_Qobs_file.F90 +++ /dev/null @@ -1,43 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_open_Qobs -!******************************************************************************* -subroutine rapid_open_Qobs_file(Qobs_file) - -!Purpose: -!Open Qobs_file from Fortran. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -character(len=100), intent(in):: Qobs_file - - -!******************************************************************************* -!Open file -!******************************************************************************* -if (rank==0) open(33,file=Qobs_file,status='old') - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_open_Qobs_file - diff --git a/hydro/Rapid_routing/rapid_open_Qout_file.F90 b/hydro/Rapid_routing/rapid_open_Qout_file.F90 deleted file mode 100644 index 00736f721e..0000000000 --- a/hydro/Rapid_routing/rapid_open_Qout_file.F90 +++ /dev/null @@ -1,50 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_open_Qout_file -!******************************************************************************* -subroutine rapid_open_Qout_file(Qout_file) - -!Purpose: -!Open Qout_file from Fortran/netCDF. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - rank,IS_nc_status,IS_nc_id_fil_Qout,IS_nc_id_var_Qout - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -character(len=100), intent(in):: Qout_file - - -!******************************************************************************* -!Open file -!******************************************************************************* -if (rank==0) then - close(99) - open(99,file=Qout_file,status='old') - close(99) - IS_nc_status=NF90_OPEN(Qout_file,NF90_WRITE,IS_nc_id_fil_Qout) - IS_nc_status=NF90_INQ_VARID(IS_nc_id_fil_Qout,'Qout',IS_nc_id_var_Qout) -end if - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_open_Qout_file - diff --git a/hydro/Rapid_routing/rapid_open_Vlat_file.F90 b/hydro/Rapid_routing/rapid_open_Vlat_file.F90 deleted file mode 100644 index fbe064856a..0000000000 --- a/hydro/Rapid_routing/rapid_open_Vlat_file.F90 +++ /dev/null @@ -1,49 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_open_Vlat_file -!******************************************************************************* -subroutine rapid_open_Vlat_file(Vlat_file) - -!Purpose: -!Open Vlat_file from Fortran/netCDF. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - rank,IS_nc_status,IS_nc_id_fil_Vlat,IS_nc_id_var_Vlat - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -character(len=100), intent(in):: Vlat_file - - -!******************************************************************************* -!Open file -!******************************************************************************* -if (rank==0) then - open(99,file=Vlat_file,status='old') - close(99) - IS_nc_status=NF90_OPEN(Vlat_file,NF90_NOWRITE,IS_nc_id_fil_Vlat) - IS_nc_status=NF90_INQ_VARID(IS_nc_id_fil_Vlat,'m3_riv',IS_nc_id_var_Vlat) -end if - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_open_Vlat_file - diff --git a/hydro/Rapid_routing/rapid_phiroutine.F90 b/hydro/Rapid_routing/rapid_phiroutine.F90 deleted file mode 100644 index d2f1a159fd..0000000000 --- a/hydro/Rapid_routing/rapid_phiroutine.F90 +++ /dev/null @@ -1,277 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_phiroutine -!******************************************************************************* -#ifndef NO_TAO -subroutine rapid_phiroutine(tao,ZV_pnorm,ZS_phi,IS_dummy,ierr) - -!Purpose: -!Calculates a cost function phi as a function of model parameters, using means -!over a given period of time. The cost function represents the square error -!between calculated flows and observed flows where observations are available. -!Author: -!Cedric H. David, 2008-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - Vlat_file,Qobs_file,Qfor_file,Qhum_file, & - JS_O,IS_O,JS_RpO,IS_RpO,ZS_TauR,IS_RpF,IS_RpH, & - ZM_Obs,ZV_Qobs, & - ZV_temp1,ZV_temp2,ZS_phitemp,ZS_phifac,ZV_kfac, & - IS_riv_tot,IS_for_bas,IS_hum_bas, & - ZS_knorm,ZS_xnorm,ZV_k,ZV_x,ZS_xfac, & - ZV_1stIndex,ZV_2ndIndex, & - ZV_C1,ZV_C2,ZV_C3,ZM_A, & - ZV_QoutinitO,ZV_QoutinitR, & - ZV_QoutbarO,ZV_VinitR,ZV_VR,ZV_VbarR, & - ZV_QoutR,ZV_QoutbarR, & - ZV_Vlat,ZV_Qlat,ZV_Qfor,ZV_Qext, & - ZV_Qobsbarrec, & - ksp, & - ZS_one,temp_char, & - IV_nc_start,IV_nc_count, & - IS_opt_phi,BS_opt_for,IS_strt_opt,IS_opt_routing, & - BS_opt_dam,IS_dam_bas,ZV_Qdam,BS_opt_hum,ZV_Qhum - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/taosolver.h" -!TAO solver - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -Vec, intent(in) :: ZV_pnorm -TaoSolver, intent(inout) :: tao -PetscErrorCode, intent(out) :: ierr -PetscScalar, intent(out):: ZS_phi -PetscInt, intent (in) :: IS_dummy - - -!******************************************************************************* -!Set linear system corresponding to current ZV_pnorm and set initial flowrates -!******************************************************************************* -ZS_phi=0 -!initialize phi to zero - -call VecDot(ZV_pnorm,ZV_1stIndex,ZS_knorm,ierr) -call VecDot(ZV_pnorm,ZV_2ndIndex,ZS_xnorm,ierr) -call VecCopy(ZV_kfac,ZV_k,ierr) -call VecScale(ZV_k,ZS_knorm,ierr) -call VecSet(ZV_x,ZS_xfac,ierr) -call VecScale(ZV_x,ZS_xnorm,ierr) -!compute ZV_k and ZV_x based on ZV_pnorm and ZV_kfac - -call rapid_routing_param(ZV_k,ZV_x,ZV_C1,ZV_C2,ZV_C3,ZM_A) -!calculate Muskingum parameters and matrix ZM_A - -call KSPSetOperators(ksp,ZM_A,ZM_A,DIFFERENT_NONZERO_PATTERN,ierr) -call KSPSetType(ksp,KSPRICHARDSON,ierr) !default=richardson -call KSPSetFromOptions(ksp,ierr) !if runtime options -!Set KSP to use matrix ZM_A -if (IS_opt_routing==3) call KSPSetType(ksp,KSPPREONLY,ierr)!default=preonly - - -!******************************************************************************* -!Set initial values to assure subroutine always starts from same conditions -!******************************************************************************* - -!------------------------------------------------------------------------------- -!Set initial value of instantaneous flow -!------------------------------------------------------------------------------- -call VecCopy(ZV_QoutinitO,ZV_QoutinitR,ierr) -!copy initial optimization variables into initial routing variables - -!------------------------------------------------------------------------------- -!Make sure the vectors potentially used for inflow to dams are initially null -!------------------------------------------------------------------------------- -call VecSet(ZV_Qext,0*ZS_one,ierr) !Qext=0 -call VecSet(ZV_QoutbarR,0*ZS_one,ierr) !QoutbarR=0 -!This matters only if rapid_get_Qdam is called because it uses these values - -!------------------------------------------------------------------------------- -!Set initial value of Qext from Qout_dam0 -!------------------------------------------------------------------------------- -if (BS_opt_dam .and. IS_dam_bas>0) then - call rapid_set_Qext0 !Qext from Qout_dam0 - !call VecView(ZV_Qext,PETSC_VIEWER_STDOUT_WORLD,ierr) -end if - - -!******************************************************************************* -!Calculate objective function for the whole period ZS_TauO -!******************************************************************************* - -!------------------------------------------------------------------------------- -!Open files -!------------------------------------------------------------------------------- -call rapid_open_Vlat_file(Vlat_file) -call rapid_open_Qobs_file(Qobs_file) -if (BS_opt_for) call rapid_open_Qfor_file(Qfor_file) -if (BS_opt_hum) call rapid_open_Qhum_file(Qhum_file) - - -!------------------------------------------------------------------------------- -!Read and compute -!------------------------------------------------------------------------------- -IV_nc_start=(/1,IS_strt_opt/) -IV_nc_count=(/IS_riv_tot,1/) - - -do JS_O=1,IS_O - -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -!calculate mean daily flow -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -call VecSet(ZV_QoutbarO,0*ZS_one,ierr) !QoutbarO=0 - -do JS_RpO=1,IS_RpO !loop needed here since Vlat is more frequent than Qobs - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Read/set surface and subsurface volumes -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call rapid_read_Vlat_file - -call VecCopy(ZV_Vlat,ZV_Qlat,ierr) !Qlat=Vlat -call VecScale(ZV_Qlat,1/ZS_TauR,ierr) !Qlat=Qlat/TauR - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Read/set upstream forcing -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -if (BS_opt_for .and. IS_for_bas>0 & - .and. mod((JS_O-1)*IS_RpO+JS_RpO,IS_RpF)==1) then - -call rapid_read_Qfor_file - -end if - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Run dam model based on previous values of QoutbarR and Qext to get Qdam -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -if (BS_opt_dam .and. IS_dam_bas>0) then - -call rapid_get_Qdam - -end if - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Read/set human induced flows -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -if (BS_opt_hum .and. IS_hum_bas>0 & - .and. mod((JS_O-1)*IS_RpO+JS_RpO,IS_RpH)==1) then - -call rapid_read_Qhum_file - -end if - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!calculation of Qext -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call VecCopy(ZV_Qlat,ZV_Qext,ierr) !Qext=Qlat -if (BS_opt_for) call VecAXPY(ZV_Qext,ZS_one,ZV_Qfor,ierr) !Qext=Qext+1*Qfor -if (BS_opt_dam) call VecAXPY(ZV_Qext,ZS_one,ZV_Qdam,ierr) !Qext=Qext+1*Qdam -if (BS_opt_hum) call VecAXPY(ZV_Qext,ZS_one,ZV_Qhum,ierr) !Qext=Qext+1*Qhum - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Routing procedure -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call rapid_routing(ZV_C1,ZV_C2,ZV_C3,ZV_Qext, & - ZV_QoutinitR,ZV_VinitR, & - ZV_QoutR,ZV_QoutbarR,ZV_VR,ZV_VbarR) - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Update variables -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -call VecCopy(ZV_QoutR,ZV_QoutinitR,ierr) - -call VecAXPY(ZV_QoutbarO,ZS_one/IS_RpO,ZV_QoutbarR,ierr) -!Qoutbar=QoutbarO+QoutbarR/IS_RpO - -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -!Update netCDF location -!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -IV_nc_start(2)=IV_nc_start(2)+1 - - -enddo !end of loop to account for forcing more frequent than obs - -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -!Calculate objective function for current day -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -call rapid_read_Qobs_file - -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -!Objective function #1 - for current day - square error -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -if (IS_opt_phi==1) then -call VecWAXPY(ZV_temp1,-ZS_one,ZV_Qobs,ZV_QoutbarO,ierr) !temp1=Qoutbar-Qobs -call VecScale(ZV_temp1,ZS_phifac,ierr) !if phi too big -call MatMult(ZM_Obs,ZV_temp1,ZV_temp2,ierr) !temp2=Obs*temp1 -call VecDot(ZV_temp1,ZV_temp2,ZS_phitemp,ierr) !phitemp=temp1.temp2 -!result phitemp=(Qoutbar-Qobs)^T*Obs*(Qoutbar-Qobs) -end if - -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -!Objective function #2 - for current day - square error normalized by avg flow -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -if (IS_opt_phi==2) then -call VecWAXPY(ZV_temp1,-ZS_one,ZV_Qobs,ZV_QoutbarO,ierr) !temp1=Qoutbar-Qobs -call VecPointWiseMult(ZV_temp1,ZV_temp1,ZV_Qobsbarrec,ierr)!temp1=temp1.*Qobsbarrec -call MatMult(ZM_Obs,ZV_temp1,ZV_temp2,ierr) !temp2=Obs*temp1 -call VecDot(ZV_temp1,ZV_temp2,ZS_phitemp,ierr) !phitemp=temp1.temp2 -!result phitemp=[(Qoutbar-Qobs).*Qobsbarrec]^T*Obs*[(Qoutbar-Qobs).*Qobsbarrec] -end if - -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -!adds daily objective function to total objective function -!- + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + -ZS_phi=ZS_phi+ZS_phitemp -!increments phi for each time step during the desired period of optimization - -enddo - -!------------------------------------------------------------------------------- -!Close files -!------------------------------------------------------------------------------- -call rapid_close_Vlat_file -call rapid_close_Qobs_file -call rapid_close_Qfor_file -call rapid_close_Qhum_file - - -!******************************************************************************* -!Write outputs (parameters and calculated objective function) -!******************************************************************************* -call PetscPrintf(PETSC_COMM_WORLD,'current normalized p=(k,x)',ierr) -call PetscPrintf(PETSC_COMM_WORLD,char(10),ierr) -call VecView(ZV_pnorm,PETSC_VIEWER_STDOUT_WORLD,ierr) -call PetscPrintf(PETSC_COMM_WORLD,'corresponding value of phi',ierr) -call PetscPrintf(PETSC_COMM_WORLD,char(10),ierr) -write(temp_char,'(f10.3)') ZS_phi -call PetscPrintf(PETSC_COMM_WORLD,temp_char // char(10),ierr) -call PetscPrintf(PETSC_COMM_WORLD,'--------------------------'//char(10),ierr) - - -end subroutine rapid_phiroutine -#endif diff --git a/hydro/Rapid_routing/rapid_read_Qfor_file.F90 b/hydro/Rapid_routing/rapid_read_Qfor_file.F90 deleted file mode 100644 index cb391ecc96..0000000000 --- a/hydro/Rapid_routing/rapid_read_Qfor_file.F90 +++ /dev/null @@ -1,74 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_read_Qfor_file -!******************************************************************************* -subroutine rapid_read_Qfor_file - -!Purpose: -!Read Qfor_file from Fortran. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank,ierr,ZV_read_for_tot, & - ZV_Qfor,IS_for_bas,IV_for_loc2,IV_for_index,ZV_read_for_tot - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Read file -!******************************************************************************* -if (rank==0) read(34,*) ZV_read_for_tot - - -!******************************************************************************* -!Set values in PETSc vector -!******************************************************************************* -if (rank==0) then -call VecSetValues(ZV_Qfor,IS_for_bas,IV_for_loc2, & - ZV_read_for_tot(IV_for_index),INSERT_VALUES,ierr) - !here we only look at the forcing within the basin studied -end if - -!******************************************************************************* -!Assemble PETSc vector -!******************************************************************************* -call VecAssemblyBegin(ZV_Qfor,ierr) -call VecAssemblyEnd(ZV_Qfor,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_read_Qfor_file diff --git a/hydro/Rapid_routing/rapid_read_Qhum_file.F90 b/hydro/Rapid_routing/rapid_read_Qhum_file.F90 deleted file mode 100644 index 9c0c0af2dd..0000000000 --- a/hydro/Rapid_routing/rapid_read_Qhum_file.F90 +++ /dev/null @@ -1,75 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_read_Qhum_file -!******************************************************************************* -subroutine rapid_read_Qhum_file - -!Purpose: -!Read Qhum_file from Fortran. -!Author: -!Cedric H. David, 2014-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank,ierr,ZV_read_hum_tot, & - ZV_Qhum,IS_hum_bas,IV_hum_loc1,IV_hum_index,ZV_read_hum_tot - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Read file -!******************************************************************************* -if (rank==0) read(36,*) ZV_read_hum_tot - - -!******************************************************************************* -!Set values in PETSc vector -!******************************************************************************* -if (rank==0) then -call VecSetValues(ZV_Qhum,IS_hum_bas,IV_hum_loc1, & - ZV_read_hum_tot(IV_hum_index),INSERT_VALUES,ierr) - !here we only look at the human-induced flows within the basin - !studied -end if - -!******************************************************************************* -!Assemble PETSc vector -!******************************************************************************* -call VecAssemblyBegin(ZV_Qhum,ierr) -call VecAssemblyEnd(ZV_Qhum,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_read_Qhum_file diff --git a/hydro/Rapid_routing/rapid_read_Qobs_file.F90 b/hydro/Rapid_routing/rapid_read_Qobs_file.F90 deleted file mode 100644 index e6333dac3d..0000000000 --- a/hydro/Rapid_routing/rapid_read_Qobs_file.F90 +++ /dev/null @@ -1,75 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_read_Qobs_file -!******************************************************************************* -subroutine rapid_read_Qobs_file - -!Purpose: -!Read Qobs_file from Fortran. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use rapid_var, only : & - rank,ierr, & - ZV_Qobs,IS_obs_bas,IV_obs_loc1,IV_obs_index,ZV_read_obs_tot - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Read file -!******************************************************************************* -if (rank==0) read(33,*) ZV_read_obs_tot - - -!******************************************************************************* -!Set values in PETSc vector -!******************************************************************************* -if (rank==0) then -call VecSetValues(ZV_Qobs,IS_obs_bas,IV_obs_loc1, & - ZV_read_obs_tot(IV_obs_index),INSERT_VALUES,ierr) - !here we only look at the observations within the basin - !studied -end if - - -!******************************************************************************* -!Assemble PETSc vector -!******************************************************************************* -call VecAssemblyBegin(ZV_Qobs,ierr) -call VecAssemblyEnd(ZV_Qobs,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_read_Qobs_file diff --git a/hydro/Rapid_routing/rapid_read_Vlat_file.F90 b/hydro/Rapid_routing/rapid_read_Vlat_file.F90 deleted file mode 100644 index 64d3e30c3a..0000000000 --- a/hydro/Rapid_routing/rapid_read_Vlat_file.F90 +++ /dev/null @@ -1,79 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_read_Vlat_file -!******************************************************************************* -subroutine rapid_read_Vlat_file - -!Purpose: -!Read Vlat_file from Fortran. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - rank,ierr, & - IS_nc_status,IS_nc_id_fil_Vlat,IS_nc_id_var_Vlat, & - IV_nc_start,IV_nc_count, & - IS_riv_bas,IV_riv_loc1,IV_riv_index,ZV_read_riv_tot,ZV_Vlat - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Read file -!******************************************************************************* -if (rank==0) then - IS_nc_status=NF90_GET_VAR(IS_nc_id_fil_Vlat,IS_nc_id_var_Vlat, & - ZV_read_riv_tot,IV_nc_start,IV_nc_count) -end if - - -!******************************************************************************* -!Set values in PETSc vector -!******************************************************************************* -if (rank==0) then - call VecSetValues(ZV_Vlat,IS_riv_bas,IV_riv_loc1, & - ZV_read_riv_tot(IV_riv_index),INSERT_VALUES,ierr) -end if - - -!******************************************************************************* -!Assemble PETSc vector -!******************************************************************************* -call VecAssemblyBegin(ZV_Vlat,ierr) -call VecAssemblyEnd(ZV_Vlat,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_read_Vlat_file diff --git a/hydro/Rapid_routing/rapid_read_namelist.F90 b/hydro/Rapid_routing/rapid_read_namelist.F90 deleted file mode 100644 index 69ac97cd93..0000000000 --- a/hydro/Rapid_routing/rapid_read_namelist.F90 +++ /dev/null @@ -1,38 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_read_namelist -!******************************************************************************* -subroutine rapid_read_namelist - -!Purpose: -!This subroutine allows to read the RAPID namelist and hence to run the model -!multiple times without ever have to recompile. Some information on the options -!used is also printed in the stdout. -!Author: -!Cedric H. David, 2011-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - NL_namelist,namelist_file - - -implicit none - - -!******************************************************************************* -!Read namelist file -!******************************************************************************* -open(88,file=namelist_file,status='old',form='formatted') -read(88, NL_namelist) -close(88) - - -!******************************************************************************* -!Optional prints what was read -!******************************************************************************* -!print *, namelist_file - - -end subroutine rapid_read_namelist diff --git a/hydro/Rapid_routing/rapid_routing.F90 b/hydro/Rapid_routing/rapid_routing.F90 deleted file mode 100644 index 34e860e7e2..0000000000 --- a/hydro/Rapid_routing/rapid_routing.F90 +++ /dev/null @@ -1,268 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_routing -!******************************************************************************* -subroutine rapid_routing(ZV_C1,ZV_C2,ZV_C3,ZV_Qext, & - ZV_QoutinitR,ZV_VinitR, & - ZV_QoutR,ZV_QoutbarR,ZV_VR,ZV_VbarR) - -!Purpose: -!Performs flow calculation in each reach of a river network using the Muskingum -!method (McCarthy 1938). Also calculates the volume of each reach using a -!simple first order approximation -!Author: -!Cedric H. David, 2008-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - ZS_dtR,IS_R,JS_R, & - ZM_Net,ZM_TC1, & - ZV_b,ZV_babsmax,ZV_bhat, & - ZV_QoutprevR,ZV_VprevR,ZV_QoutRabsmin,ZV_QoutRabsmax, & - ZV_QoutRhat, & - ZV_VoutR,ZV_Vext, & - ierr,ksp, & - ZS_one,IS_ksp_iter,IS_ksp_iter_max, & - vecscat,ZV_SeqZero,ZV_pointer,rank, & - IS_nc_status,IS_nc_id_fil_Qout,IS_nc_id_var_Qout, & - IV_nc_start,IV_nc_count2, & - IS_riv_bas,JS_riv_bas,IM_index_up, & - IS_opt_routing,IV_nbup,IV_riv_index, & - BS_opt_influence - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -Vec, intent(in) :: ZV_C1,ZV_C2,ZV_C3,ZV_Qext, & - ZV_QoutinitR,ZV_VinitR -Vec, intent(out) :: ZV_QoutR,ZV_QoutbarR -Vec :: ZV_VR,ZV_VbarR - -PetscInt :: IS_localsize,JS_localsize -PetscScalar, pointer :: ZV_QoutR_p(:),ZV_QoutprevR_p(:),ZV_QoutinitR_p(:), & - ZV_QoutbarR_p(:),ZV_Qext_p(:),ZV_C1_p(:),ZV_C2_p(:), & - ZV_C3_p(:),ZV_b_p(:), & - ZV_babsmax_p(:),ZV_QoutRabsmin_p(:),ZV_QoutRabsmax_p(:) - - -!******************************************************************************* -!Get local sizes for vectors -!******************************************************************************* -call VecGetLocalSize(ZV_QoutR,IS_localsize,ierr) - - -!******************************************************************************* -!Set mean values to zero initialize QoutprevR with QoutinitR -!******************************************************************************* -call VecSet(ZV_QoutbarR,0*ZS_one,ierr) !Qoutbar=0 -!call VecSet(ZV_VbarR,0*ZS_one,ierr) !Vbar=0 -!set the means to zero at beginning of iterations over routing time step - -call VecCopy(ZV_QoutinitR,ZV_QoutprevR,ierr) !QoutprevR=QoutinitR -!call VecCopy(ZV_VinitR,ZV_VprevR,ierr) !VprevR=VinitR -!set the previous value to the initial value given as input to subroutine - - -!******************************************************************************* -!Temporal loop -!******************************************************************************* -call VecGetArrayF90(ZV_C1,ZV_C1_p,ierr) -call VecGetArrayF90(ZV_C2,ZV_C2_p,ierr) -call VecGetArrayF90(ZV_C3,ZV_C3_p,ierr) -call VecGetArrayF90(ZV_Qext,ZV_Qext_p,ierr) - -do JS_R=1,IS_R -!------------------------------------------------------------------------------- -!Update mean -!------------------------------------------------------------------------------- -call VecAXPY(ZV_QoutbarR,ZS_one/IS_R,ZV_QoutprevR,ierr) -!Qoutbar=Qoutbar+Qoutprev/IS_R - -!call VecAXPY(ZV_VbarR,ZS_one/IS_R,ZV_VprevR,ierr) -!Vbar=Vbar+Vprev/IS_R - -!------------------------------------------------------------------------------- -!Calculation of the right hand size, b -!------------------------------------------------------------------------------- -call MatMult(ZM_Net,ZV_QoutprevR,ZV_b,ierr) !b2=Net*Qoutprev - -call VecGetArrayF90(ZV_b,ZV_b_p,ierr) -call VecGetArrayF90(ZV_QoutprevR,ZV_QoutprevR_p,ierr) - -do JS_localsize=1,IS_localsize - ZV_b_p(JS_localsize)=ZV_b_p(JS_localsize)*ZV_C2_p(JS_localsize) & - +(ZV_C1_p(JS_localsize)+ZV_C2_p(JS_localsize)) & - *ZV_Qext_p(JS_localsize) & - +ZV_C3_p(JS_localsize)*ZV_QoutprevR_p(JS_localsize) -end do - -call VecRestoreArrayF90(ZV_QoutprevR,ZV_QoutprevR_p,ierr) -call VecRestoreArrayF90(ZV_b,ZV_b_p,ierr) - -!------------------------------------------------------------------------------- -!Routing with PETSc using a matrix method -!------------------------------------------------------------------------------- -if (IS_opt_routing==1) then - -call KSPSolve(ksp,ZV_b,ZV_QoutR,ierr) !solves A*Qout=b -call KSPGetIterationNumber(ksp,IS_ksp_iter,ierr) -if (IS_ksp_iter>IS_ksp_iter_max) IS_ksp_iter_max=IS_ksp_iter - -end if - -!------------------------------------------------------------------------------- -!Routing with Fortran using the traditional Muskingum method -!------------------------------------------------------------------------------- -if (IS_opt_routing==2) then - -call VecGetArrayF90(ZV_QoutR,ZV_QoutR_p,ierr) -call VecGetArrayF90(ZV_QoutprevR,ZV_QoutprevR_p,ierr) -call VecGetArrayF90(ZV_b,ZV_b_p,ierr) - -do JS_riv_bas=1,IS_riv_bas - ZV_QoutR_p(JS_riv_bas)=ZV_b_p(JS_riv_bas) & - +sum(ZV_C1_p(JS_riv_bas) & - *ZV_QoutR_p(IM_index_up(JS_riv_bas,1: & - IV_nbup(IV_riv_index(JS_riv_bas))))) -end do -!Taking into account the knowledge of how many upstream locations exist. -!Similar to exact preallocation of network matrix - -call VecRestoreArrayF90(ZV_QoutR,ZV_QoutR_p,ierr) -call VecRestoreArrayF90(ZV_QoutprevR,ZV_QoutprevR_p,ierr) -call VecRestoreArrayF90(ZV_b,ZV_b_p,ierr) -end if - -!------------------------------------------------------------------------------- -!Routing with PETSc using a matrix method with transboundary matrix -!------------------------------------------------------------------------------- -if (IS_opt_routing==3) then - -call KSPSolve(ksp,ZV_b,ZV_QoutRhat,ierr) !solves A*Qouthat=b -call KSPGetIterationNumber(ksp,IS_ksp_iter,ierr) -if (IS_ksp_iter>IS_ksp_iter_max) IS_ksp_iter_max=IS_ksp_iter - -call MatMult(ZM_TC1,ZV_QoutRhat,ZV_bhat,ierr) -call VecAYPX(ZV_bhat,ZS_one,ZV_b,ierr) - -call KSPSolve(ksp,ZV_bhat,ZV_QoutR,ierr) !solves A*Qout=bhat -call KSPGetIterationNumber(ksp,IS_ksp_iter,ierr) -if (IS_ksp_iter>IS_ksp_iter_max) IS_ksp_iter_max=IS_ksp_iter - -end if - - -!------------------------------------------------------------------------------- -!Calculation of babsmax, QoutRabsmin and QoutRabsmax -!------------------------------------------------------------------------------- -if (BS_opt_influence) then - -call VecGetArrayF90(ZV_b,ZV_b_p,ierr) -call VecGetArrayF90(ZV_babsmax,ZV_babsmax_p,ierr) -do JS_localsize=1,IS_localsize - if (ZV_babsmax_p(JS_localsize)<=abs(ZV_b_p(JS_localsize))) then - ZV_babsmax_p(JS_localsize) =abs(ZV_b_p(JS_localsize)) - end if -end do -call VecRestoreArrayF90(ZV_b,ZV_b_p,ierr) -call VecRestoreArrayF90(ZV_babsmax,ZV_babsmax_p,ierr) - -call VecGetArrayF90(ZV_QoutR,ZV_QoutR_p,ierr) -call VecGetArrayF90(ZV_QoutRabsmin,ZV_QoutRabsmin_p,ierr) -call VecGetArrayF90(ZV_QoutRabsmax,ZV_QoutRabsmax_p,ierr) -do JS_localsize=1,IS_localsize - if (ZV_QoutRabsmin_p(JS_localsize)>=abs(ZV_QoutR_p(JS_localsize))) then - ZV_QoutRabsmin_p(JS_localsize) =abs(ZV_QoutR_p(JS_localsize)) - end if - if (ZV_QoutRabsmax_p(JS_localsize)<=abs(ZV_QoutR_p(JS_localsize))) then - ZV_QoutRabsmax_p(JS_localsize) =abs(ZV_QoutR_p(JS_localsize)) - end if -end do -call VecRestoreArrayF90(ZV_QoutR,ZV_QoutR_p,ierr) -call VecRestoreArrayF90(ZV_QoutRabsmin,ZV_QoutRabsmin_p,ierr) -call VecRestoreArrayF90(ZV_QoutRabsmax,ZV_QoutRabsmax_p,ierr) - -end if - -!------------------------------------------------------------------------------- -!Calculation of V (this part can be commented to accelerate parameter -!estimation in calibration mode) -!------------------------------------------------------------------------------- -!call VecCopy(ZV_QoutR,ZV_VoutR,ierr) !Vout=Qout -!call VecScale(ZV_VoutR,ZS_dtR,ierr) !Vout=Vout*dt -!!result Vout=Qout*dt -! -!call VecCopy(ZV_Qext,ZV_Vext,ierr) !Vext=Qext -!call VecScale(ZV_Vext,ZS_dtR,ierr) !Vext=Vext*dt -!!result Vext=Qext*dt -! -!call MatMult(ZM_Net,ZV_VoutR,ZV_VR,ierr) !V=Net*Vout -!call VecAXPY(ZV_VR,ZS_one,ZV_Vext,ierr) !V=V+Vext -!call VecAXPY(ZV_VR,-ZS_one,ZV_VoutR,ierr) !V=V-Vout -!call VecAXPY(ZV_VR,ZS_one,ZV_VprevR,ierr) !V=V+Vprev -!!result V=Vprev+(Net*Vout+Vext)-Vout - - -!------------------------------------------------------------------------------- -!Reset previous -!------------------------------------------------------------------------------- -call VecCopy(ZV_QoutR,ZV_QoutprevR,ierr) !Qoutprev=Qout -!call VecCopy(ZV_VR,ZV_VprevR,ierr) !Vprev=V -!reset previous - - -!------------------------------------------------------------------------------- -!optional write outputs -!------------------------------------------------------------------------------- -!call VecScatterBegin(vecscat,ZV_QoutR,ZV_SeqZero, & -! INSERT_VALUES,SCATTER_FORWARD,ierr) -!call VecScatterEnd(vecscat,ZV_QoutR,ZV_SeqZero, & -! INSERT_VALUES,SCATTER_FORWARD,ierr) -!call VecGetArrayF90(ZV_SeqZero,ZV_pointer,ierr) -!!if (rank==0) write (99,'(10e10.3)') ZV_pointer -!if (rank==0) IS_nc_status=NF90_PUT_VAR(IS_nc_id_fil_Qout,IS_nc_id_var_Qout, & -! ZV_pointer, & -! [IV_nc_start(1),(IV_nc_start(2)-1)*IS_R+JS_R],IV_nc_count2) -!call VecRestoreArrayF90(ZV_SeqZero,ZV_pointer,ierr) - - -!------------------------------------------------------------------------------- -!End temporal loop -!------------------------------------------------------------------------------- -end do - -call VecRestoreArrayF90(ZV_C1,ZV_C1_p,ierr) -call VecRestoreArrayF90(ZV_C2,ZV_C2_p,ierr) -call VecRestoreArrayF90(ZV_C3,ZV_C3_p,ierr) -call VecRestoreArrayF90(ZV_Qext,ZV_Qext_p,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* -end subroutine rapid_routing diff --git a/hydro/Rapid_routing/rapid_routing_param.F90 b/hydro/Rapid_routing/rapid_routing_param.F90 deleted file mode 100644 index 96ba7fab9d..0000000000 --- a/hydro/Rapid_routing/rapid_routing_param.F90 +++ /dev/null @@ -1,100 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_routing_param -!******************************************************************************* -subroutine rapid_routing_param(ZV_k,ZV_x, & - ZV_C1,ZV_C2,ZV_C3,ZM_A) - -!Purpose: -!Calculates the Muskingum method (McCarthy 1938) parameters C1, C2 and C3. -!Also calculates the matrix A used for linear system solver. -!Author: -!Cedric H. David, 2010-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only : & - ZM_Net,ZM_T,ZM_TC1, & - ZV_Cdenom,ZS_dtR, & - ierr,ZS_one,ZV_one,IS_opt_routing - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* -Vec, intent(in) :: ZV_k,ZV_x -Vec, intent(out) :: ZV_C1,ZV_C2,ZV_C3,ZM_A - - -!******************************************************************************* -!Calculation of the Muskingum method constants (C1,C2,C3) and of the matrix A -!used in the linear system A*Qout=b -!******************************************************************************* -call VecCopy(ZV_x,ZV_Cdenom,ierr) -call VecScale(ZV_Cdenom,-ZS_one,ierr) -call VecShift(ZV_Cdenom,ZS_one,ierr) -call VecPointwiseMult(ZV_Cdenom,ZV_Cdenom,ZV_k,ierr) -call VecShift(ZV_Cdenom,ZS_dtR/2,ierr) -!Cdenom=k*(1-x)+dtR/2 - -call VecPointwiseMult(ZV_C1,ZV_k,ZV_x,ierr) -call VecScale(ZV_C1,-ZS_one,ierr) -call VecShift(ZV_C1,ZS_dtR/2,ierr) -call VecPointwiseDivide(ZV_C1,ZV_C1,ZV_Cdenom,ierr) -!C1=(-k*x+dtR/2)/Cdenom - -call VecPointwiseMult(ZV_C2,ZV_k,ZV_x,ierr) -call VecShift(ZV_C2,ZS_dtR/2,ierr) -call VecPointwiseDivide(ZV_C2,ZV_C2,ZV_Cdenom,ierr) -!C2=(k*x+dtR/2)/Cdenom - -call VecCopy(ZV_x,ZV_C3,ierr) -call VecScale(ZV_C3,-ZS_one,ierr) -call VecShift(ZV_C3,ZS_one,ierr) -call VecPointwiseMult(ZV_C3,ZV_C3,ZV_k,ierr) -call VecShift(ZV_C3,-ZS_dtR/2,ierr) -call VecPointwiseDivide(ZV_C3,ZV_C3,ZV_Cdenom,ierr) -!C3=(k*(1-x)-dtR/2)/Cdenom -!C1, C2 and C3 completed - - -call MatCopy(ZM_Net,ZM_A,DIFFERENT_NONZERO_PATTERN,ierr) !A=Net -call MatDiagonalScale(ZM_A,ZV_C1,ZV_one,ierr) !A=diag(C1)*A -call MatScale(ZM_A,-ZS_one,ierr) !A=-A -call MatShift(ZM_A,ZS_one,ierr) !A=A+1*I -!Result:A=I-diag(C1)*Net - -if (IS_opt_routing==3) then -call MatCopy(ZM_T,ZM_TC1,DIFFERENT_NONZERO_PATTERN,ierr) !TC1=T -call MatDiagonalScale(ZM_TC1,ZV_C1,ZV_one,ierr) !TC1=diag(C1)*TC1 -!Result:TC1=T*diag(C1) -end if - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_routing_param - diff --git a/hydro/Rapid_routing/rapid_set_Qext0.F90 b/hydro/Rapid_routing/rapid_set_Qext0.F90 deleted file mode 100644 index 768fb7a6a2..0000000000 --- a/hydro/Rapid_routing/rapid_set_Qext0.F90 +++ /dev/null @@ -1,103 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_set_Qext0 -!******************************************************************************* -subroutine rapid_set_Qext0 - -!Purpose: -!This subroutine is only useful if a dam model is used and its goal is to -!properly initialize the flow of water into the dams. -!The inflow of water ZV_Qin_dam_prev from the river network and from outside of -!the river network into the dams is computed based on ZV_QoutbarR and ZV_Qext -!in the subroutine rapid_get_Qdam.F90. -!Therefore, one has to inject the initial value of ZV_Qin_dam_prev (ZV_Qin_dam0) -!into either ZV_QoutbarR or ZV_Qext otherwise the initial value will be -!overwritten in rapid_get_Qdam.F90. The latter is used here (through ZV_Qdam) -!since the modifications made on the network matrix make it difficult to use -!ZV_Qin_dam_prev without creating a new variable. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Declaration of variables -!******************************************************************************* -use rapid_var, only: & - rank,ierr,IS_one,ZS_one, & - ZV_Qdam,ZV_Qext, & - IS_dam_tot,JS_dam_tot,IV_dam_pos - -use rapid_var, only: & - ZV_Qin_dam_prev,ZV_Qin_dam0, & - ZV_Qout_dam_prev,ZV_Qout_dam0 - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Set Qdam to zero, because this is called at the beginning of every phiroutine -!******************************************************************************* -call VecSet(ZV_Qdam,0*ZS_one,ierr) !Qdam=0 -!call VecView(ZV_Qdam,PETSC_VIEWER_STDOUT_WORLD,ierr) - - -!******************************************************************************* -!Set values of Qin_dam0 into Qdam to allow proper initialization -!******************************************************************************* -if (rank==0) then - do JS_dam_tot=1,IS_dam_tot - -if (IV_dam_pos(JS_dam_tot)/=0) then - call VecSetValues(ZV_Qdam,IS_one,IV_dam_pos(JS_dam_tot)-1, & - ZV_Qin_dam0(JS_dam_tot),INSERT_VALUES,ierr) - !print *, IV_dam_pos(JS_dam_tot)-1, ZV_Qin_dam0(JS_dam_tot) -end if - - end do -end if - -call VecAssemblyBegin(ZV_Qdam,ierr) -call VecAssemblyEnd(ZV_Qdam,ierr) -!call VecView(ZV_Qdam,PETSC_VIEWER_STDOUT_WORLD,ierr) -!the values of Qindam0 are set here where the dams are, not downstream of them - - -!******************************************************************************* -!Copy Qdam into Qext and reset Qdam to zero -!******************************************************************************* -call VecCopy(ZV_Qdam,ZV_Qext,ierr) !Qext=Qdam -call VecSet(ZV_Qdam,0*ZS_one,ierr) !Qdam=0 -!call VecView(ZV_Qext,PETSC_VIEWER_STDOUT_WORLD,ierr) - - -!******************************************************************************* -!Initialize Qout_dam_prev again or its values differ with each phiroutine call -!******************************************************************************* -if (rank==0) then - ZV_Qout_dam_prev=ZV_Qout_dam0 -end if - -!******************************************************************************* -!End -!******************************************************************************* -end subroutine rapid_set_Qext0 diff --git a/hydro/Rapid_routing/rapid_var.F90 b/hydro/Rapid_routing/rapid_var.F90 deleted file mode 100644 index e8017c6d7f..0000000000 --- a/hydro/Rapid_routing/rapid_var.F90 +++ /dev/null @@ -1,538 +0,0 @@ -!******************************************************************************* -!Module - rapid_var -!******************************************************************************* -module rapid_var - -!Purpose: -!Module where all the variables are defined. -!Author: -!Cedric H. David, 2008-2015. - - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and Fortran90-specific vectors -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -!#include "finclude/petsclog.h" -!Profiling log - -#ifndef NO_TAO -#include "finclude/taosolver.h" -!TAO solver -#endif - - -!******************************************************************************* -!Declaration of variables - runtime options -!******************************************************************************* -logical :: BS_opt_Qinit -!.false. --> no read initial flow .true. --> read initial flow -logical :: BS_opt_Qfinal -!.false. --> no write final flow .true. --> write final flow -logical :: BS_opt_hum -!.false. --> no human-induced flows .true. --> human-induced flows -logical :: BS_opt_for -!.false. --> no forcing .true. --> forcing -logical :: BS_opt_dam -!.false. --> no dam model used .true. --> dam model used -logical :: BS_opt_influence -!.false. --> no output influence .true. --> output influence -PetscInt :: IS_opt_routing -!1 --> matrix-based Muskingum 2 --> traditional Muskingum -!3 --> Transbnd. matrix-based -PetscInt :: IS_opt_run -!1 --> regular run 2 --> parameter optimization -PetscInt :: IS_opt_phi -!1 --> phi1 2 --> phi2 - - -!! LPR: add the path for coupling file in NAMELIST -!character(len=120) :: rapid_coupling_file -!unit 88 - file that contains coupling information for WRF-Hydro -!******************************************************************************* -!Declaration of variables - input and output files -!******************************************************************************* -character(len=120) :: rapid_connect_file -!unit 10 - file with connectivity information using RAPID connectivity format -character(len=120) :: riv_bas_id_file -!unit 11 - file with all the IDs of the reaches in _riv considered -character(len=120) :: obs_tot_id_file -!unit 12 - file with all the IDs of the all reaches with gage measurements -character(len=120) :: obs_use_id_file -!unit 13 - file with all the IDs of the reaches used -character(len=120) :: hum_tot_id_file -!unit 14 - file with all the IDs of the reaches with human-induced flow added -character(len=120) :: hum_use_id_file -!unit 15 - file with all the IDs of the reaches used -character(len=120) :: for_tot_id_file -!unit 16 - file with all the IDs where flows can be used as forcing to their -!corresponding downstream reach -character(len=120) :: for_use_id_file -!unit 17 - file with all the IDs of the reaches used -character(len=120) :: dam_tot_id_file -!unit 18 - file with all the IDs of the reaches where the dam model runs and -!flows to their corresponding downstream reach -character(len=120) :: dam_use_id_file -!unit 19 - file with all the IDs of the reaches used - -character(len=120) :: k_file -!unit 20 - file with values for k (possibly from previous param. estim.) -character(len=120) :: x_file -!unit 21 - file with values for x (possibly from previous param. estim.) -character(len=120) :: kfac_file -!unit 22 - file with kfac for all reaches of the domain -character(len=120) :: xfac_file -!unit 23 - file with xfac for all reaches of the domain - -character(len=120) :: Qinit_file -!unit 30 - file where initial flowrates can be stored to run the model with them -character(len=120) :: Qfinal_file -!unit 31 - file where final flowrates can be stored at the end of model run -character(len=120) :: Vlat_file - -character(len=120) :: Qobs_file -!unit 33 - file where the flowrates observations are given -character(len=120) :: Qfor_file -!unit 34 - file where forcing flowrates are stored. Forcing is taken as the -!flow coming from upstream reach. -character(len=120) :: Qobsbarrec_file -!unit 35 - file where the reciprocal (1/xi) of the average obs are stored. -character(len=120) :: Qhum_file -!unit 36 - file where human-induced flowrates are stored. These flows are added -!upstream. - -character(len=120) :: V_file -!unit 41 - file where model-calculated volumes are stored -character(len=120) :: babsmax_file -!unit 42 - file where the maximum of the absolute values of the right-hand-side -!are stored -character(len=120) :: QoutRabsmin_file -!unit 43 - file where the minimum of the absolute values of the instantaneous -!flows are stored -character(len=120) :: QoutRabsmax_file -!unit 44 - file where the maximum of the absolute values of the instantaneous -!flows are stored -character(len=120) :: Qout_file - - -!******************************************************************************* -!Declaration of variables - temporal parameters -!******************************************************************************* -PetscScalar :: ZS_TauM -!Duration of main procedure, in seconds -PetscScalar :: ZS_dtM -!Time step of main procedure, in seconds -PetscInt :: IS_M -!Number of time steps within the main precedure -PetscInt :: JS_M -!Index of main procedure - -PetscScalar :: ZS_TauO -!Duration of optimization procedure, in seconds -PetscScalar :: ZS_dtO -!Time step of optimization procedure, in seconds -PetscInt :: IS_O -!Number of time steps within the optimization precedure -PetscInt :: JS_O -!Index of optimization procedure - -PetscScalar :: ZS_TauR -!Duration of river routing procedure, in seconds -PetscScalar :: ZS_dtR -!Time step of river routing procedure, in seconds -PetscInt :: IS_R -!Number of time steps within the river routing procedure -PetscInt :: JS_R -!Index of river routing procedure - -PetscScalar :: ZS_dtF -!Time step of forcing data, in seconds -PetscScalar :: ZS_dtH -!Time step of human-induced data, in seconds - -PetscInt :: IS_RpO, JS_RpO -!Number routing procedures needed per optimization time step, and index -PetscInt :: IS_RpM, JS_RpM -!Number routing procedures needed per main time step, and index -PetscInt :: IS_RpF -!Number routing procedures needed per forcing time step -PetscInt :: IS_RpH -!Number routing procedures needed per human-induced time step - - -!******************************************************************************* -!Declaration of variables - River flow variables -!******************************************************************************* -PetscInt :: IS_riv_tot,JS_riv_tot,JS_riv_tot2 -!total number of river reaches, corresponds to the size of rapid_connect_file -PetscInt :: IS_riv_bas,JS_riv_bas,JS_riv_bas2 -!size of the matrix and the vectors in this _riv, corresponds to the number of -!reaches in the _riv -PetscInt, dimension(:), allocatable :: IV_riv_tot_id -!unique IDs of reaches in rapid_connect_file -PetscInt, dimension(:), allocatable :: IV_down -!vector of the downstream river reach of each river reach -PetscInt, dimension(:), allocatable :: IV_nbup -!vector of the number of direct upstream river reach of each river reach -PetscInt :: IS_max_up -!maximum number of upstream river reaches for each river reach -PetscInt, dimension(:,:), allocatable :: IM_up -!matrix with the ID of the upstream river reaches of each river reach -PetscInt :: JS_up -!JS_up for the corresponding upstream reaches -PetscInt :: IS_row,IS_col -!index of rows and columns used to fill up the network matrix -PetscInt,dimension (:,:), allocatable :: IM_index_up -!matrix with the index of the upstream river reaches of each river reach -!index goes from 1 to IS_riv_bas -PetscInt, dimension(:),allocatable :: IV_riv_bas_id -!unique IDs in riv_bas_id_file, of length IS_riv_bas -PetscInt, dimension(:), allocatable :: IV_riv_index -!indexes (Fortran, 1-based) of the reaches in the _riv within the whole network -!size IS_riv_bas -PetscInt,dimension(:), allocatable :: IV_riv_loc1 -!vector giving the zero-base index corresponding to the river reaches within -!the _riv studied only, to be used in VecSetValues. size IS_riv_bas -Mat :: ZM_hsh_tot -!flat matrix with size IS_riv_id_max*ncore that serves a hashtable-like purpose -!in which the index over the domain (JS_riv_tot) is stored at the location of -!each reach ID. Each row contains the exact same data. -Mat :: ZM_hsh_bas -!flat matrix with size IS_riv_id_max*ncore that serves a hashtable-like purpose -!in which the index over the basin (JS_riv_bas) is stored at the location of -!each reach ID. Each row contains the exact same data. -PetscInt :: IS_riv_id_max=1000000000 -!Maximum value allowed for the unique integer IDs corresponding to each reach - -!******************************************************************************* -!Declaration of variables - Observation flow variables -!******************************************************************************* -PetscInt :: IS_obs_tot, JS_obs_tot -!total number of reaches that have observations (gaged reaches), corresponds to -!the number of lines in obs_tot_id_file -PetscInt :: IS_obs_use, JS_obs_use -!Number of gages available in obs_use_id_file -PetscInt :: IS_obs_bas, JS_obs_bas -!Number of gages within _riv studied. Will be calculated based on -!obs_tot_id_file, obs_use_id_file and riv_bas_id_file -PetscInt, dimension(:), allocatable :: IV_obs_tot_id -!vector where are stored the river ID of each gage available -PetscInt, dimension(:), allocatable :: IV_obs_use_id -!vector where are stored the river ID of each gage used in current run -PetscInt, allocatable, dimension(:) :: IV_obs_index -!vector where the Fortran 1-based indexes of the gages within the Qobs_file. -!Will be allocated size IS_obs_bas -PetscInt, allocatable, dimension(:) :: IV_obs_loc1 -!vector where the C (0-based) vector indexes of where gages are. This is -!within the _riv only, not all domain. Will be used in VecSet. Will be -!allocated size IS_obs_bas - - -!******************************************************************************* -!Declaration of variables - Human-induced flow variables -!******************************************************************************* -PetscInt :: IS_hum_tot, JS_hum_tot -!total number of reaches where human-induced flow data are available. -PetscInt :: IS_hum_use, JS_hum_use -!total number of reaches where human-induced will be used if in sub_riv -PetscInt :: IS_hum_bas, JS_hum_bas -!number of reaches with human-induced flow, within _riv. Calculated on the fly -!from hum_tot_if_file, hum_use_id_file and riv_bas_id_file -PetscInt, dimension(:), allocatable :: IV_hum_tot_id -!IDs of the reaches where human-induced flow data are available -PetscInt, dimension(:), allocatable :: IV_hum_use_id -!IDs of the reaches where human-induced flow data will be used if in sub_riv -PetscInt, dimension(:), allocatable :: IV_hum_bas_id -!IDs of the reaches where human-indeced flow data to be used is in sub_riv -PetscInt, allocatable, dimension(:) :: IV_hum_index -!vector where the Fortran 1-based indexes of the human-induced flow data are -!stored. This is of size IS_hum_bas and its elements belong to [1,IS_hum_tot]. -PetscInt, allocatable, dimension(:) :: IV_hum_loc1 -!vector where the C (0-based) vector indexes of where the above human-induced -!flow data are going to be applied. This is of size IS_hum_bas and its elements -!belong to [0,IS_riv_bas-1]. Applied on the river ID itself. - - -!******************************************************************************* -!Declaration of variables - Forcing flow variables -!******************************************************************************* -PetscInt :: IS_for_tot, JS_for_tot -!total number of reaches where forcing flow data are available. -PetscInt :: IS_for_use, JS_for_use -!total number of reaches where forcing will be used if in sub_riv -PetscInt :: IS_for_bas, JS_for_bas -!number of reaches forced by observations, within _riv. Calculated on the fly -!from for_tot_id_file, for_use_id_file and riv_bas_id_file -PetscInt, dimension(:), allocatable :: IV_for_tot_id -!IDs of the reaches where forcing flow data are available -PetscInt, dimension(:), allocatable :: IV_for_use_id -!IDs of the reaches where forcing flow data will be used if in sub_riv -PetscInt, dimension(:), allocatable :: IV_for_bas_id -!IDs of the reaches where forcing flow data to be used is in sub_riv -PetscInt, allocatable, dimension(:) :: IV_for_index -!vector where the Fortran 1-based indexes of the forcing flow data are -!available. This is of size IS_for_bas and its elements belong to [1,IS_for_tot] -PetscInt, allocatable, dimension(:) :: IV_for_loc2 -!vector where the C (0-based) vector indexes of where the above forcing -!flow data are going to be applied. This is of size IS_for_bas and its elements -!belong to [0,IS_riv_bas-1]. Applied on the river ID downstream. - - -!******************************************************************************* -!Declaration of variables - dam model flow variables -!******************************************************************************* -PetscInt :: IS_dam_tot, JS_dam_tot -!total number of reaches where dam model flow data are available. -PetscInt :: IS_dam_use, JS_dam_use -!total number of reaches where dam model will be used if in sub_riv -PetscInt :: IS_dam_bas, JS_dam_bas -!number of reaches forced by observations, within _riv. Calculated on the fly -!from dam_tot_id_file, dam_use_id_file and riv_bas_id_file. -PetscInt, dimension(:), allocatable :: IV_dam_tot_id -!IDs of the reaches where dam model flow data are available -PetscInt, dimension(:), allocatable :: IV_dam_use_id -!IDs of the reaches where dam model flow data will be used if in sub_riv -PetscInt, dimension(:), allocatable :: IV_dam_bas_id -!IDs of the reaches where dam model flow data to be used is in sub_riv -PetscInt, allocatable, dimension(:) :: IV_dam_index -!vector where the Fortran 1-based indexes of the dam model flow data are -!available. This is of size IS_dam_bas and its elements belong to [1,IS_dam_tot] -PetscInt, allocatable, dimension(:) :: IV_dam_loc2 -!vector where the C (0-based) vector indexes of where the above dam model -!flow data are going to be applied. This is of size IS_dam_bas and its elements -!belong to [0,IS_riv_bas-1]. Applied on the river ID downstream. -PetscInt, allocatable, dimension(:) :: IV_dam_pos -!vector where the Fortran 1-based vector indexes of where flows will be given to -!the above dam model. This is of size IS_dam_tot and its elements belong to -![1,IS_riv_bas] except when a dam ID is outside of basin studied where it is 0. -!Applied on the river ID itself. - -PetscScalar, allocatable, dimension(:) :: ZV_Qin_dam,ZV_Qin_dam_prev -PetscScalar, allocatable, dimension(:) :: ZV_Qout_dam,ZV_Qout_dam_prev -PetscScalar, allocatable, dimension(:) :: ZV_Qin_dam0,ZV_Qout_dam0 -!Fortran vectors where the inflows and outflows for the dam module are saved. -!These will be allocated to size IS_dam_tot - - -!******************************************************************************* -!Declaration of variables - Network matrix variables and routing variables -!******************************************************************************* -Mat :: ZM_Net -!Network matrix -Mat :: ZM_A -!Matrix used to solve linear system -Mat :: ZM_T -!Transboundary matrix -Mat :: ZM_TC1 -!Matrix used as a trick to solve linear system faster -Logical :: BS_logical -!Boolean used during network matrix creation to give warnings if connectivity pb - -Vec :: ZV_k,ZV_x -!Muskingum expression constants vectors, k in seconds, x has no dimension -Vec :: ZV_p, ZV_pnorm,ZV_pfac -!vector of the problem parameters, p=(k,x). normalized version and -!corresponding factors p=pnorm*pfac -Vec :: ZV_C1,ZV_C2,ZV_C3,ZV_Cdenom -!Muskingum method constants (last is the common denominator, for calculations) -Vec :: ZV_b,ZV_babsmax,ZV_bhat -!Used for linear system A*Qout=b - -!Input variables (contribution) -Vec :: ZV_Qext,ZV_Qfor,ZV_Qlat,ZV_Qhum,ZV_Qdam -!flowrates Qext is the sum of forced and lateral -Vec :: ZV_Vext,ZV_Vfor,ZV_Vlat -!volumes (same as above) - -!Main only variables -Vec :: ZV_QoutM,ZV_QoutinitM,ZV_QoutprevM,ZV_QoutbarM -Vec :: ZV_VM,ZV_VinitM,ZV_VprevM,ZV_VbarM - -!Optimization only variables -Vec :: ZV_QoutO,ZV_QoutinitO,ZV_QoutprevO,ZV_QoutbarO -Vec :: ZV_VO,ZV_VinitO,ZV_VprevO,ZV_VbarO - -!Routing only variables -Vec :: ZV_QoutR,ZV_QoutinitR,ZV_QoutprevR,ZV_QoutbarR,ZV_QoutRhat,ZV_QinbarR -Vec :: ZV_QoutRabsmin,ZV_QoutRabsmax -Vec :: ZV_VR,ZV_VinitR,ZV_VprevR,ZV_VbarR -Vec :: ZV_VoutR - - -!******************************************************************************* -!Declaration of variables - Observation matrix and optimization variables -!******************************************************************************* -Mat :: ZM_Obs -!Observation matrix -Vec :: ZV_Qobs -!Observation vector -PetscScalar :: ZS_norm -!norm of matrix ZM_Obs, used to calculate the number of gaging stations used - -PetscScalar :: ZS_phi,ZS_phitemp -!cost function -PetscInt :: IS_Iter -!number of iterations needed for optimization procedure to end -Vec :: ZV_temp1,ZV_temp2 -!temporary vectors, used for calculations -PetscScalar :: ZS_phifac -PetscInt :: IS_strt_opt -!first time step at which Vlat data is read during optimization - -Vec :: ZV_kfac -!Vector of size IS_riv_bas a multiplication factor for k for all river reaches -!in _riv -Vec :: ZV_Qobsbarrec -!Vector with the reciprocal (1/xi) of the average observations - -PetscScalar :: ZS_knorm, ZS_xnorm -!constants (k,x) in Muskingum expression, normalized -PetscScalar :: ZS_knorm_init, ZS_xnorm_init -!constants (k,x) in Muskingum expression, normalized, initial values for opt. -PetscScalar, parameter :: ZS_kfac=3600,ZS_xfac=0.1 -!corresponding factors, k in seconds, x has no dimension -PetscScalar :: ZS_k,ZS_x -!constants (k,x) in Muskingum expression. k in seconds, x has no dimension - - -!******************************************************************************* -!Declaration of variables - routing parameters and initial values -!******************************************************************************* -PetscScalar :: ZS_V0=10000,ZS_Qout0=0 -!values to be used in the intitial state of V and Qout for river routing -!initial volume for each reach (m^3), initial outflow for each reach (m^3/s) - - -!******************************************************************************* -!Declaration of variables - PETSc specific objects and variables -!******************************************************************************* -PetscErrorCode :: ierr -!needed for error check of PETSc functions -KSP :: ksp -!object used for linear system solver -PC :: pc -!preconditioner object -PetscMPIInt :: rank -!integer where the number of each processor is stored, 0 will be main processor -PetscMPIInt :: ncore -!integer where the number of cores used is stored -VecScatter :: vecscat -!Allows for scattering and gathering vectors from in parallel environement -PetscLogEvent :: stage -!Stage for investigating performance - -PetscInt :: IS_ksp_iter, IS_ksp_iter_max -!integer where the number of iterations in KSP is solved -PetscInt :: IS_one=1 -!integer of value 1. to be used in MatSetValues and VecSet. Directly using -!the value 1 in the functions crashes PETSc -PetscScalar :: ZS_one=1 -!Scalars of values 1 and 0, same remark as above -PetscScalar :: ZS_val -!Temporary scalar used to store the results of MatGetValues() -Vec :: ZV_one -!vector with only ones, useful for creation of matrices here -Vec :: ZV_SeqZero -!Sequential vector of size IS_riv_bas, allows for gathering data on zeroth -!precessor before writing in file - -PetscScalar,dimension(:), allocatable :: ZV_read_riv_tot -!temp vector that stores information from a 'read', before setting the value -!in the object, this vector has the size of the total number of reaches -PetscScalar,dimension(:), allocatable :: ZV_read_obs_tot -!same as previous, with size IS_obs_tot -PetscScalar,dimension(:), allocatable :: ZV_read_hum_tot -!same as previous, with size IS_hum_tot -PetscScalar,dimension(:), allocatable :: ZV_read_for_tot -!same as previous, with size IS_for_tot -PetscScalar,dimension(:), allocatable :: ZV_read_dam_tot -!same as previous, with size IS_dam_tot -PetscScalar :: ZS_time1, ZS_time2, ZS_time3 -!to estimate computing time - -PetscScalar, pointer :: ZV_pointer(:) -!used to point to a PETSc vector and to output formatted as needed in a file -character(len=10) :: temp_char,temp_char2 -!usefull to print variables on output. write a variable in this character and -!then use PetscPrintf - -PetscInt, dimension(:), allocatable :: IV_nz, IV_dnz, IV_onz -!number of nonzero elements per row for network matrix. nz for sequential, dnz -!and onz for distributed matrix (diagonal and off-diagonal elements) -PetscInt :: IS_ownfirst, IS_ownlast -!Ownership of each processor - - -!******************************************************************************* -!Declaration of variables - TAO specific objects and variables -!******************************************************************************* -#ifndef NO_TAO -TaoSolver :: tao -!TAO solver object -TaoSolverTerminationReason :: reason -!TAO terminate reason object -Vec :: ZV_1stIndex, ZV_2ndIndex -!ZV_1stIndex=[1;0], ZV_2ndIndex=[0,1]. Used with VecDot to extract first and -!second indexes of the vector of parameter -#endif - - -!******************************************************************************* -!Declaration of variables - netCDF variables -!******************************************************************************* -PetscInt :: IS_nc_status -PetscInt :: IS_nc_id_fil_Vlat,IS_nc_id_fil_Qout -PetscInt :: IS_nc_id_var_Vlat,IS_nc_id_var_Qout,IS_nc_id_var_comid -PetscInt :: IS_nc_id_dim_comid,IS_nc_id_dim_time -PetscInt, parameter :: IS_nc_ndim=2 -PetscInt, dimension(IS_nc_ndim) :: IV_nc_id_dim, IV_nc_start, IV_nc_count, & - IV_nc_count2 - - -!******************************************************************************* -!Namelist -!******************************************************************************* -namelist /NL_namelist/ & - BS_opt_Qinit,BS_opt_Qfinal, & - BS_opt_hum,BS_opt_for,BS_opt_dam,BS_opt_influence, & - IS_opt_routing,IS_opt_run,IS_opt_phi, & - IS_riv_tot,rapid_connect_file,Vlat_file,IS_max_up, & - iS_riv_bas,riv_bas_id_file, & - Qinit_file,Qfinal_file, & - Qhum_file, & - IS_hum_tot,hum_tot_id_file, & - IS_hum_use,hum_use_id_file, & - IS_for_tot,for_tot_id_file, & - Qfor_file, & - IS_for_use,for_use_id_file, & - IS_dam_tot,dam_tot_id_file, & - IS_dam_use,dam_use_id_file, & - babsmax_file,QoutRabsmin_file,QoutRabsmax_file, & - k_file,x_file,Qout_file, & - kfac_file,xfac_file,ZS_knorm_init,ZS_xnorm_init, & - IS_obs_tot,obs_tot_id_file,IS_obs_use,obs_use_id_file, & - Qobs_file,Qobsbarrec_file, & - ZS_TauM,ZS_dtM,ZS_TauO,ZS_dtO,ZS_TauR,ZS_dtR, & - ZS_dtF,ZS_dtH, & - ZS_phifac,IS_strt_opt - -character(len=120) :: namelist_file -!unit 88 - Namelist - - -end module rapid_var diff --git a/hydro/Rapid_routing/rapid_write_Qout_file.F90 b/hydro/Rapid_routing/rapid_write_Qout_file.F90 deleted file mode 100644 index 4f0a457eb3..0000000000 --- a/hydro/Rapid_routing/rapid_write_Qout_file.F90 +++ /dev/null @@ -1,82 +0,0 @@ -!******************************************************************************* -!Subroutine - rapid_write_Qout_file -!******************************************************************************* -subroutine rapid_write_Qout_file - -!Purpose: -!Write into Qout_file from Fortran/netCDF. -!Author: -!Cedric H. David, 2013-2015. - - -!******************************************************************************* -!Global variables -!******************************************************************************* -use netcdf -use rapid_var, only : & - rank,ierr,vecscat,ZV_SeqZero,ZV_pointer, & - IS_nc_status,IS_nc_id_fil_Qout,IS_nc_id_var_Qout, & - IV_nc_start,IV_nc_count2, & - ZV_QoutbarR - -implicit none - - -!******************************************************************************* -!Includes -!******************************************************************************* -#include "finclude/petscsys.h" -!base PETSc routines -#include "finclude/petscvec.h" -#include "finclude/petscvec.h90" -!vectors, and vectors in Fortran90 -#include "finclude/petscmat.h" -!matrices -#include "finclude/petscksp.h" -!Krylov subspace methods -#include "finclude/petscpc.h" -!preconditioners -#include "finclude/petscviewer.h" -!viewers (allows writing results in file for example) -#include "finclude/petsclog.h" -!PETSc log - - -!******************************************************************************* -!Intent (in/out), and local variables -!******************************************************************************* - - -!******************************************************************************* -!Gather PETSc vector on processor zero -!******************************************************************************* -call VecScatterBegin(vecscat,ZV_QoutbarR,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) -call VecScatterEnd(vecscat,ZV_QoutbarR,ZV_SeqZero, & - INSERT_VALUES,SCATTER_FORWARD,ierr) - - -!******************************************************************************* -!Get array from PETSc vector -!******************************************************************************* -if (rank==0) call VecGetArrayF90(ZV_SeqZero,ZV_pointer,ierr) - - -!******************************************************************************* -!Write data -!******************************************************************************* -if (rank==0) IS_nc_status=NF90_PUT_VAR(IS_nc_id_fil_Qout,IS_nc_id_var_Qout, & - ZV_pointer,IV_nc_start,IV_nc_count2) - - -!******************************************************************************* -!Restore array to PETSc vector -!******************************************************************************* -if (rank==0) call VecRestoreArrayF90(ZV_SeqZero,ZV_pointer,ierr) - - -!******************************************************************************* -!End -!******************************************************************************* - -end subroutine rapid_write_Qout_file diff --git a/hydro/Routing/Makefile b/hydro/Routing/Makefile index b20304efec..6d2df069d1 100644 --- a/hydro/Routing/Makefile +++ b/hydro/Routing/Makefile @@ -17,7 +17,9 @@ OBJS = \ Noah_distr_routing.o \ module_channel_routing.o \ module_lsm_forcing.o \ - module_date_utilities_rt.o + module_date_utilities_rt.o \ + module_NWM_io_dict.o \ + module_NWM_io.o all: $(OBJS) @@ -58,6 +60,15 @@ module_HYDRO_io.o: module_HYDRO_utils.o \ ../Data_Rec/module_RT_data.o endif +module_NWM_io_dict: ../Data_Rec/module_namelist.o + +module_NWM_io: module_HYDRO_utils.o \ + module_NWM_io_dict.o \ + module_HYDRO_io.o \ + module_date_utilities_rt.o \ + ../Data_Rec/module_namelist.o \ + ../Data_Rec/module_RT_data.o + module_HYDRO_utils.o: ../Data_Rec/module_namelist.o ../Data_Rec/module_RT_data.o module_lsm_forcing.o: module_HYDRO_io.o diff --git a/hydro/Routing/Noah_distr_routing.F b/hydro/Routing/Noah_distr_routing.F index 07f62414e7..37cc1422a1 100644 --- a/hydro/Routing/Noah_distr_routing.F +++ b/hydro/Routing/Noah_distr_routing.F @@ -165,7 +165,8 @@ SUBROUTINE SUBSFC_RTNG(dist,ZWATTABLRT,QSUBRT,SOXRT, & INTEGER :: SO8RT_D(IXRT,JXRT,3) REAL :: SO8RT(IXRT,JXRT,8) - integer :: rt_option, index + INTEGER, INTENT(IN) :: rt_option + integer :: index INTEGER :: DT_STEPS !-- number of timestep in routing REAL :: SUBDT !-- subsurface routing timestep @@ -267,16 +268,19 @@ SUBROUTINE SUBSFC_RTNG(dist,ZWATTABLRT,QSUBRT,SOXRT, & print *, "calling subsurface routing subroutine...Opt. ",rt_option #endif - - if(rt_option .eq. 1) then +! ADCHANGE: IMPORTANT! +! 2D subsurface option currently has bug so forcing to option 1 in this routine to +! allow users to still have option to use 2d overland (both are controlled by same +! rt_option flag). Remove this hard-coded option when rt_option=2 is fixed for subsurface. +! if(rt_option .eq. 1) then CALL ROUTE_SUBSURFACE1(dist,ZWATTABLRT,QSUBRT,SOXRT,SOYRT, & LATKSATRT,SOLDEPRT,IXRT,JXRT,QSUBBDRYRT,QSUBBDRYTRT, & SO8RT,SO8RT_D,CWATAVAIL,SUBDT) - else - CALL ROUTE_SUBSURFACE2(dist,ZWATTABLRT,QSUBRT,SOXRT,SOYRT, & - LATKSATRT,SOLDEPRT,IXRT,JXRT,QSUBBDRYRT,QSUBBDRYTRT, & - CWATAVAIL,SUBDT) - end if +! else +! CALL ROUTE_SUBSURFACE2(dist,ZWATTABLRT,QSUBRT,SOXRT,SOYRT, & +! LATKSATRT,SOLDEPRT,IXRT,JXRT,QSUBBDRYRT,QSUBBDRYTRT, & +! CWATAVAIL,SUBDT) +! end if #ifdef HYDRO_D write(6,*) "finish calling ROUTE_SUBSURFACE ", rt_option @@ -794,7 +798,7 @@ SUBROUTINE OV_RTNG(DT,DTRT_TER,IXRT,JXRT,INFXSUBRT, & REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: SOXRT REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: SOYRT REAL, INTENT(IN), DIMENSION(IXRT,JXRT,9):: dist - REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: RETDEPRT + REAL, INTENT(INOUT), DIMENSION(IXRT,JXRT) :: RETDEPRT REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: OVROUGHRT REAL, INTENT(OUT), DIMENSION(IXRT,JXRT) :: SFCHEADSUBRT @@ -890,6 +894,9 @@ SUBROUTINE OV_RTNG(DT,DTRT_TER,IXRT,JXRT,INFXSUBRT, & ! RETDEPRT(I,J) = RETDEPRT(I,J) * 100.0 !DJG TEMP HARDWIRE!!!! ! RETDEPRT(I,J) = 10.0 !DJG TEMP HARDWIRE!!!! +! AD hardwire to force channel retention depth to be 5mm. + RETDEPRT(I,J) = 5.0 + IF (SFCHEADSUBRT(I,J).GT.RETDEPRT(I,J)) THEN !! QINFLO(CH_NET(I,J)=QINFLO(CH_NET(I,J)+SFCHEAD(I,J) - RETDEPRT(I,J) QSTRMVOLTRT = QSTRMVOLTRT + (SFCHEADSUBRT(I,J) - RETDEPRT(I,J)) @@ -2399,8 +2406,9 @@ subroutine disaggregateDomain_drv(did) RT_DOMAIN(did)%INFXSUBRT,RT_DOMAIN(did)%SMCMAXRT, RT_DOMAIN(did)%SMCWLTRT, & RT_DOMAIN(did)%SMCRT, & RT_DOMAIN(did)%OVROUGHRT, RT_DOMAIN(did)%LAKE_MSKRT, & - RT_DOMAIN(did)%LKSATRT, RT_DOMAIN(did)%OV_ROUGH,RT_DOMAIN(did)%SLDPTH, & - RT_DOMAIN(did)%soiltypRT, RT_DOMAIN(did)%soiltyp) + RT_DOMAIN(did)%LKSATRT, RT_DOMAIN(did)%OV_ROUGH2d, RT_DOMAIN(did)%SLDPTH, & + RT_DOMAIN(did)%soiltypRT, RT_DOMAIN(did)%soiltyp, rt_domain(did)%ELRT, & + RT_DOMAIN(did)%iswater) end subroutine disaggregateDomain_drv @@ -2408,8 +2416,8 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & SICE, SMC,SH2OX, INFXSRT, area_lsm, SMCMAX1,SMCREF1, & SMCWLT1, VEGTYP, LKSAT, dist,INFXSWGT,OVROUGHRTFAC, & LKSATFAC, CH_NETRT,SH2OWGT,SMCREFRT, INFXSUBRT,SMCMAXRT, & - SMCWLTRT,SMCRT, OVROUGHRT, LAKE_MSKRT, LKSATRT,OV_ROUGH, & - SLDPTH, soiltypRT, soiltyp & + SMCWLTRT,SMCRT, OVROUGHRT, LAKE_MSKRT, LKSATRT, OV_ROUGH2d, & + SLDPTH, soiltypRT, soiltyp, elrt, iswater & ) #ifdef MPP_LAND use module_mpp_land, only: left_id,down_id,right_id, & @@ -2418,7 +2426,7 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & sum_real1 #endif implicit none - integer,INTENT(IN) :: IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT + integer,INTENT(IN) :: IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, iswater real, INTENT(OUT), DIMENSION(IX,JX,NSOIL) :: SICE real, INTENT(IN), DIMENSION(IX,JX,NSOIL) :: SMC,SH2OX real, INTENT(IN), DIMENSION(IX,JX) :: INFXSRT, area_lsm, SMCMAX1,SMCREF1, & @@ -2427,7 +2435,7 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & real,INTENT(IN),DIMENSION(IXRT,JXRT,9)::dist real,INTENT(IN),DIMENSION(IXRT,JXRT)::INFXSWGT,OVROUGHRTFAC, & - LKSATFAC + LKSATFAC, elrt integer,INTENT(INOUT), DIMENSION(IXRT,JXRT) ::CH_NETRT, soiltypRT real,INTENT(IN),DIMENSION(IXRT,JXRT,NSOIL)::SH2OWGT real,INTENT(OUT),DIMENSION(IXRT,JXRT,NSOIL)::SMCREFRT, SMCMAXRT, & @@ -2438,13 +2446,14 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & real,INTENT(IN), DIMENSION(NSOIL) :: SLDPTH - REAL OV_ROUGH(*) - + REAL,dimension(ix,jx) :: OV_ROUGH2d integer :: i, j, AGGFACYRT, AGGFACXRT, IXXRT, JYYRT,KRT, KF REAL :: LSMVOL,SMCEXCS, WATHOLDCAP + REAL, DIMENSION(IXRT,JXRT) :: OCEAN_INFXSUBRT + #ifdef HYDRO_D ! ADCHANGE: Water balance variables integer :: kk @@ -2496,6 +2505,10 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & ! END Initial water balance variables #endif +! ADCHANGE: Initialize ocean infxsubrt var to 0. Currently just a dump +! variable but could be used for future ocean model coupling + OCEAN_INFXSUBRT = 0.0 + !DJG Weighting alg. alteration...(prescribe wghts if time = 1) @@ -2620,7 +2633,7 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & IF (VEGTYP(I,J).LE.0) then OVROUGHRT(IXXRT,JYYRT) = 0.1 !COWS mask test ELSE - OVROUGHRT(IXXRT,JYYRT)=OV_ROUGH(VEGTYP(I,J))*OVROUGHRTFAC(IXXRT,JYYRT) ! Distributed calibration...1/17/2012 + OVROUGHRT(IXXRT,JYYRT) = OV_ROUGH2d(i,j)*OVROUGHRTFAC(IXXRT,JYYRT) ! Distributed calibration...1/17/2012 END IF @@ -2644,7 +2657,7 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & !DJG set up lake mask... !--- modify to make lake mask large here, but not one of the routed lakes!!! !-- IF (VEGTYP(I,J).eq.16) then - IF (VEGTYP(I,J).eq.16 .and. & + IF (VEGTYP(I,J) .eq. iswater .and. & CH_NETRT(IXXRT,JYYRT).le.0) then !--LAKE_MSKRT(IXXRT,JYYRT) = 1 !yw LAKE_MSKRT(IXXRT,JYYRT) = 9999 @@ -2661,6 +2674,13 @@ subroutine disaggregateDomain(IX,JX,NSOIL,IXRT,JXRT,AGGFACTRT, & end do end do +! ADCHANGE: Add new zeroing out of -9999 elevation cells which are ocean + where (ELRT .lt. -9998) + OCEAN_INFXSUBRT = INFXSUBRT + INFXSUBRT = 0.0 + endwhere +! END ADCHANGE + #ifdef HYDRO_D ! ADCHANGE: START Final water balance variables ! ALL VARS in MM diff --git a/hydro/Routing/module_GW_baseflow.F b/hydro/Routing/module_GW_baseflow.F index 299e15ac0d..be3d103e73 100644 --- a/hydro/Routing/module_GW_baseflow.F +++ b/hydro/Routing/module_GW_baseflow.F @@ -36,10 +36,20 @@ module module_GW_baseflow ! for NHDPLUS mapping !------------------------------------------------------------------------------ - subroutine simp_gw_buck_nhd(ix,jx,ixrt,jxrt,numbasns, AGGFACTRT, DT, INFXSWGT & - , runoff1x_in, runoff2x_in,cellArea,area_lsm & - , c, ex,z_mx,z_gwsubbas_tmp, qout_gwsubbas, qin_gwsubbas,GWBASESWCRT,OVRTSWCRT & - , LNLINKSL, basns_area, nhdBuckMask ) + subroutine simp_gw_buck_nhd( & + ix, jx, & + ixrt, jxrt, & + numbasns, AGGFACTRT, & + DT, INFXSWGT, & + runoff1x_in, runoff2x_in, & + cellArea, area_lsm, & + c, ex, & + z_mx, z_gwsubbas_tmp, & + qout_gwsubbas, qin_gwsubbas, & + GWBASESWCRT, OVRTSWCRT, & + LNLINKSL, & + basns_area, & + nhdBuckMask, channelBucket_only ) use module_UDMAP, only: LNUMRSL, LUDRSL @@ -55,20 +65,21 @@ subroutine simp_gw_buck_nhd(ix,jx,ixrt,jxrt,numbasns, AGGFACTRT, DT, INFXSWGT real, intent(in),dimension(numbasns) :: C,ex real, intent(inout),dimension(numbasns) :: z_mx real, intent(out),dimension(numbasns) :: qout_gwsubbas - real, intent(out),dimension(numbasns) :: qin_gwsubbas + !! intent inout for channelBucket_only .eq. 1 + real, intent(inout),dimension(numbasns) :: qin_gwsubbas real*8 :: z_gwsubbas(numbasns) real :: qout_max, qout_spill, z_gw_spill - real, intent(inout),dimension(:) :: z_gwsubbas_tmp - real, intent(in),dimension(ixrt,jxrt) :: INFXSWGT + real, intent(inout),dimension(:) :: z_gwsubbas_tmp + real, intent(in),dimension(ixrt,jxrt) :: INFXSWGT integer, intent(in) :: GWBASESWCRT integer, intent(in) :: OVRTSWCRT real, intent(in), dimension(numbasns) :: basns_area - + integer, intent(in) :: channelBucket_only - real, dimension(numbasns) :: net_perc - integer, dimension(numbasns) :: nhdBuckMask + real, dimension(numbasns) :: net_perc + integer, dimension(numbasns) :: nhdBuckMask - integer :: i,j,bas, k, m, ii,jj + integer :: i,j,bas, k, m, ii,jj integer :: AGGFACYRT, AGGFACTRT, AGGFACXRT, IXXRT, JYYRT real*8, dimension(LNLINKSL) :: LQLateral @@ -78,9 +89,13 @@ subroutine simp_gw_buck_nhd(ix,jx,ixrt,jxrt,numbasns, AGGFACTRT, DT, INFXSWGT !!!Initialize variables... net_perc = 0. qout_gwsubbas = 0. - qin_gwsubbas = 0. z_gwsubbas(1:numbasns) = z_gwsubbas_tmp(1:numbasns) + if(channelBucket_only .eq. 0) then + + !! Initialize if not passed in + qin_gwsubbas = 0. + !Assign local value of runoff2 (drainage) for flux caluclation to buckets... do J=1,JX @@ -142,7 +157,7 @@ subroutine simp_gw_buck_nhd(ix,jx,ixrt,jxrt,numbasns, AGGFACTRT, DT, INFXSWGT net_perc = LQLateral ! m^3 #endif - + endif !! if channelBucket_only .eq. 0 else !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!Loop through GW basins to adjust for inflow/outflow @@ -152,30 +167,33 @@ subroutine simp_gw_buck_nhd(ix,jx,ixrt,jxrt,numbasns, AGGFACTRT, DT, INFXSWGT DO bas=1,numbasns ! Loop for GW bucket calcs... if(nhdBuckMask(bas) .eq. 1) then ! if the basn is masked - qin_gwsubbas(bas) = net_perc(bas) !units (m^3) -!Adjust level of GW depth...(conceptual GW bucket units (mm)) + if(channelBucket_only .eq. 0) then + !! If not using channelBucket_only, save qin_gwsubbas + qin_gwsubbas(bas) = net_perc(bas) !units (m^3) + else + !! If using channelBucket_only, get net_perc from the passed qin_gwsubbas + net_perc(bas) = qin_gwsubbas(bas) !units (m^3) + end if - z_gwsubbas(bas) = z_gwsubbas(bas) + net_perc(bas) / basns_area(bas) ! m - + ! !Adjust level of GW depth...(conceptual GW bucket units (mm)) + z_gwsubbas(bas) = z_gwsubbas(bas) + net_perc(bas) / basns_area(bas) ! m -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -!Calculate baseflow as a function of GW bucket depth... -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + !Calculate baseflow as a function of GW bucket depth... + ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + if(GWBASESWCRT.eq.1) then !active exponential bucket for bucket model discharge type - if(GWBASESWCRT.eq.1) then !active exponential bucket... if/then for bucket model discharge type... + !DJG...Estimation of bucket 'overflow' (qout_spill) if/when bucket gets filled... + qout_spill = 0. + z_gw_spill = 0. -!DJG...Estimation of bucket 'overflow' (qout_spill) if/when bucket gets filled... - qout_spill = 0. - z_gw_spill = 0. - -!!DJG...convert z_mx to millimeters...for v2 and later... -!yw added by Wei Yu...If block is to accomodate old parameter file... -! if(z_mx(bas) .gt. 5) then -! z_mx(bas) = z_mx(bas) /1000 ! change from mm to meters -! endif + !!DJG...convert z_mx to millimeters...for v2 and later... + !yw added by Wei Yu...If block is to accomodate old parameter file... + ! if(z_mx(bas) .gt. 5) then + ! z_mx(bas) = z_mx(bas) /1000 ! change from mm to meters + ! endif - if (z_gwsubbas(bas).gt.z_mx(bas)/1000.) then !If/then for bucket overflow case... z_gw_spill = z_gwsubbas(bas) - z_mx(bas)/1000. ! meters @@ -193,7 +211,7 @@ subroutine simp_gw_buck_nhd(ix,jx,ixrt,jxrt,numbasns, AGGFACTRT, DT, INFXSWGT ! Assume exponential relation between z/zmax and Q... !DJG force asymptote to zero to prevent 'overdraft'... - qout_gwsubbas(bas) = C(bas)*(EXP(ex(bas)*z_gwsubbas(bas)/z_mx(bas)/1000.)-1) !Exp.model. q_out (m^3/s) + qout_gwsubbas(bas) = C(bas)*(EXP(ex(bas)*z_gwsubbas(bas)/(z_mx(bas)/1000.))-1) !Exp.model. q_out (m^3/s) !DJG...Calculation of max bucket outlfow that is limited by total quantity in bucket... qout_gwsubbas(bas) = MIN(qout_max,qout_gwsubbas(bas)) ! Limit bucket discharge to max. bucket limit (m^3/s) diff --git a/hydro/Routing/module_HYDRO_io.F b/hydro/Routing/module_HYDRO_io.F index 26f44fd1e8..8e53322558 100644 --- a/hydro/Routing/module_HYDRO_io.F +++ b/hydro/Routing/module_HYDRO_io.F @@ -17,6 +17,7 @@ ! appropriate error code ! ! User controllable options: +! module module_HYDRO_io #ifdef MPP_LAND @@ -35,6 +36,19 @@ module module_HYDRO_io implicit none #include + interface w_rst_crt_reach + module procedure w_rst_crt_reach_real + module procedure w_rst_crt_reach_real8 + end interface + + interface read_rst_crt_reach_nc + module procedure read_rst_crt_reach_nc_real + module procedure read_rst_crt_reach_nc_real8 + end interface + + integer, parameter :: did=1 + integer :: logUnit + contains integer function get2d_real(var_name,out_buff,ix,jx,fileName, fatalErr) @@ -65,7 +79,7 @@ integer function get2d_real(var_name,out_buff,ix,jx,fileName, fatalErr) if(ivar .ne. 0) then ivar = nf_inq_varid(ncid,trim(var_name//"_M"), varid) if(ivar .ne. 0) then - errMsg = "get2d_real: failed to find the variables: " // & + errMsg = "WARNING: get2d_real: failed to find the variables: " // & trim(var_name) // ' and ' // trim(var_name//"_M") // & ' in ' // trim(fileName) write(6,*) errMsg @@ -76,7 +90,7 @@ integer function get2d_real(var_name,out_buff,ix,jx,fileName, fatalErr) iret = nf_get_var_real(ncid, varid, out_buff) if(iret .ne. 0) then - errMsg = "get2d_real: failed to read the variable: " // & + errMsg = "WARNING: get2d_real: failed to read the variable: " // & trim(var_name) // ' or ' // trim(var_name//"_M") // & ' in ' // trim(fileName) print*,trim(errMsg) @@ -86,7 +100,7 @@ integer function get2d_real(var_name,out_buff,ix,jx,fileName, fatalErr) iret = nf_close(ncid) if(iret .ne. 0) then - errMsg = "get2d_real: failed to close the file: " // & + errMsg = "WARNING: get2d_real: failed to close the file: " // & trim(fileName) print*,trim(errMsg) if(fatalErr_local) call hydro_stop(trim(errMsg)) @@ -235,6 +249,64 @@ subroutine get_file_dimension(fileName, ix,jx) end subroutine get_file_dimension +subroutine get_file_globalatts(fileName, iswater, isurban, isoilwater) + implicit none + character(len=*) fileName + integer iswater, isurban, isoilwater + integer ncid, iret, istmp +#ifdef MPP_LAND +#ifndef PARALLELIO +if (my_id .eq. IO_id) then +#endif +#endif + + iret = nf_open(fileName, nf_nowrite, ncid) + if (iret /= NF_NOERR) then + write(*,'("Problem opening geo file: ''", A, "''")') trim(fileName) + write(*,*) "Using default (USGS) values for urban and water land use types." + else + iret = NF_GET_ATT_INT(ncid, NF_GLOBAL, 'ISWATER', istmp) + if (iret .eq. NF_NOERR) then + iswater = istmp + else + write(*,*) "Using default (USGS) values for water land use types." + iswater = 16 + endif + iret = NF_GET_ATT_INT(ncid, NF_GLOBAL, 'ISURBAN', istmp) + if (iret .eq. NF_NOERR) then + isurban = istmp + else + write(*,*) "Using default (USGS) values for urban land use types." + isurban = 1 + endif + iret = NF_GET_ATT_INT(ncid, NF_GLOBAL, 'ISOILWATER', istmp) + if (iret .eq. NF_NOERR) then + isoilwater = istmp + else + write(*,*) "Using default (USGS) values for water soil types." + isoilwater = 14 + endif + iret = nf_close(ncid) + endif + +#ifdef HYDRO_D +#ifndef NCEP_WCOSS + write(6, *) "get_file_globalatts: ISWATER ISURBAN ISOILWATER", iswater, isurban, isoilwater +#endif +#endif + +#ifdef MPP_LAND +#ifndef PARALLELIO +endif +call mpp_land_bcast_int1(iswater) +call mpp_land_bcast_int1(isurban) +call mpp_land_bcast_int1(isoilwater) +#endif +#endif + +end subroutine get_file_globalatts + + subroutine get2d_lsm_soltyp(out_buff,ix,jx,fileName) implicit none integer ix,jx, status,land_cat, iret, dimid,ncid @@ -297,34 +369,50 @@ subroutine get_landuse_netcdf(ncid, array, units, idim, jdim, ldim) real, dimension(idim,jdim), intent(out) :: array character(len=256), intent(out) :: units integer :: iret, varid - real, dimension(idim,jdim,ldim) :: xtmp - integer, dimension(1) :: mp - integer :: i, j, l - character(len=24), parameter :: name = "LANDUSEF" +! real, dimension(idim,jdim,ldim) :: xtmp +! integer, dimension(1) :: mp +! integer :: i, j, l +! character(len=24), parameter :: name = "LANDUSEF" + character(len=24), parameter :: name = "LU_INDEX" units = "" - iret = nf_inq_varid(ncid, trim(name), varid) +! iret = nf_inq_varid(ncid, trim(name), varid) +! if (iret /= 0) then +! print*, 'name = "', trim(name)//'"' +! call hydro_stop("In get_landuse_netcdf() - nf_inq_varid problem") +! endif + +! iret = nf_get_var_real(ncid, varid, xtp) +! if (iret /= 0) then +! print*, 'name = "', trim(name)//'"' +! call hydro_stop("In get_landuse_netcdf() - nf_get_var_real problem") +! endif +! +! do i = 1, idim +! do j = 1, jdim +! mp = maxloc(xtmp(i,j,:)) +! array(i,j) = mp(1) +! do l = 1,ldim +! if(xtmp(i,j,l).lt.0) array(i,j) = -9999.0 +! enddo +! enddo +! enddo + +!!! START AD_CHANGE +! Using LU_INDEX direct from WPS for consistency with the LSMs + iret = nf_inq_varid(ncid, name, varid) if (iret /= 0) then print*, 'name = "', trim(name)//'"' call hydro_stop("In get_landuse_netcdf() - nf_inq_varid problem") endif - iret = nf_get_var_real(ncid, varid, xtmp) + iret = nf_get_var_real(ncid, varid, array) if (iret /= 0) then print*, 'name = "', trim(name)//'"' call hydro_stop("In get_landuse_netcdf() - nf_get_var_real problem") endif - - do i = 1, idim - do j = 1, jdim - mp = maxloc(xtmp(i,j,:)) - array(i,j) = mp(1) - do l = 1,ldim - if(xtmp(i,j,l).lt.0) array(i,j) = -9999.0 - enddo - enddo - enddo +!!! END AD_CHANGE end subroutine get_landuse_netcdf @@ -338,36 +426,52 @@ subroutine get_soilcat_netcdf(ncid, array, units, idim, jdim, ldim) real, dimension(idim,jdim), intent(out) :: array character(len=256), intent(out) :: units integer :: iret, varid - real, dimension(idim,jdim,ldim) :: xtmp - integer, dimension(1) :: mp - integer :: i, j, did - character(len=24), parameter :: name = "SOILCTOP" +! real, dimension(idim,jdim,ldim) :: xtmp +! integer, dimension(1) :: mp +! integer :: i, j, did +! character(len=24), parameter :: name = "SOILCTOP" + character(len=24), parameter :: name = "SCT_DOM" - did = 1 +! did = 1 units = "" - iret = nf_inq_varid(ncid, trim(name), varid) +! iret = nf_inq_varid(ncid, trim(name), varid) +! if (iret /= 0) then +! print*, 'name = "', trim(name)//'"' +! call hydro_stop("In get_soilcat_netcdf() - nf_inq_varid problem") +! endif +! +! iret = nf_get_var_real(ncid, varid, xtmp) +! if (iret /= 0) then +! print*, 'name = "', trim(name)//'"' +! call hydro_stop("In get_soilcat_netcdf() - nf_get_var_real problem") +! endif +! +! do i = 1, idim +! do j = 1, jdim +! mp = maxloc(xtmp(i,j,:)) +! array(i,j) = mp(1) +! enddo +! enddo + +! if(nlst_rt(did)%GWBASESWCRT .ne. 3) then +! where (array == 14) array = 1 ! DJG remove all 'water' soils... +! endif + +!!! START AD_CHANGE +! Using SCT_DOM direct from WPS for consistency with the LSMs + iret = nf_inq_varid(ncid, name, varid) if (iret /= 0) then print*, 'name = "', trim(name)//'"' call hydro_stop("In get_soilcat_netcdf() - nf_inq_varid problem") endif - iret = nf_get_var_real(ncid, varid, xtmp) + iret = nf_get_var_real(ncid, varid, array) if (iret /= 0) then print*, 'name = "', trim(name)//'"' call hydro_stop("In get_soilcat_netcdf() - nf_get_var_real problem") endif - - do i = 1, idim - do j = 1, jdim - mp = maxloc(xtmp(i,j,:)) - array(i,j) = mp(1) - enddo - enddo - - if(nlst_rt(did)%GWBASESWCRT .ne. 3) then - where (array == 14) array = 1 ! DJG remove all 'water' soils... - endif + !!! END AD_CHANGE end subroutine get_soilcat_netcdf @@ -507,47 +611,54 @@ end subroutine get_albedo12m_netcdf subroutine get_2d_netcdf(name, ncid, array, units, idim, jdim, & fatal_if_error, ierr) + implicit none -#include + character(len=*), intent(in) :: name integer, intent(in) :: ncid integer, intent(in) :: idim, jdim real, dimension(idim,jdim), intent(out) :: array character(len=256), intent(out) :: units - integer :: iret, varid - ! .TRUE._IF_ERROR: an input code value: + ! fatal_IF_ERROR: an input code value: ! .TRUE. if an error in reading the data should stop the program. ! Otherwise the, IERR error flag is set, but the program continues. logical, intent(in) :: fatal_if_error integer, intent(out) :: ierr - units = "" + integer :: iret, varid + real :: scale_factor, add_offset - iret = nf_inq_varid(ncid, name, varid) + units = "" + iret = nf90_inq_varid(ncid, name, varid) if (iret /= 0) then if (fatal_IF_ERROR) then print*, 'name = "', trim(name)//'"' - call hydro_stop("In get_2d_netcdf() - nf_inq_varid problem") + call hydro_stop("In get_2d_netcdf() - nf90_inq_varid problem") else ierr = iret return endif endif - - iret = nf_get_var_real(ncid, varid, array) + iret = nf90_get_var(ncid, varid, array) if (iret /= 0) then if (fatal_IF_ERROR) then print*, 'name = "', trim(name)//'"' - call hydro_stop("In get_2d_netcdf() - nf_get_var_real problem") + call hydro_stop("In get_2d_netcdf() - nf90_get_var_real problem") else ierr = iret return endif endif + iret = nf90_get_att(ncid, varid, 'scale_factor', scale_factor) + if(iret .eq. 0) array = array * scale_factor + iret = nf90_get_att(ncid, varid, 'add_offset', add_offset) + if(iret .eq. 0) array = array + add_offset + ierr = 0; + end subroutine get_2d_netcdf @@ -597,7 +708,7 @@ end subroutine get_2d_netcdf_cows SUBROUTINE READ_ROUTEDIM(IXRT,JXRT,route_chan_f,route_link_f, & route_direction_f, NLINKS, & - CH_NETLNK, channel_option, geo_finegrid_flnm, NLINKSL, UDMP_OPT) + CH_NETLNK, channel_option, geo_finegrid_flnm, NLINKSL, UDMP_OPT,NLAKES) implicit none #include @@ -612,12 +723,14 @@ SUBROUTINE READ_ROUTEDIM(IXRT,JXRT,route_chan_f,route_link_f, & REAL, DIMENSION(IXRT,JXRT) :: LAT, LON INTEGER, DIMENSION(IXRT,JXRT) :: CH_LNKRT !- link routing ID integer, INTENT(IN) :: UDMP_OPT + integer :: NLAKES + !!Dummy read in grids for inverted y-axis CHARACTER(len=*) :: route_chan_f, route_link_f,route_direction_f - CHARACTER(len=256) :: geo_finegrid_flnm + CHARACTER(len=*) :: geo_finegrid_flnm CHARACTER(len=256) :: var_name ! variables for handling netcdf dimensions @@ -890,16 +1003,20 @@ SUBROUTINE READ_ROUTEDIM(IXRT,JXRT,route_chan_f,route_link_f, & !!-- no longer find the lakes from the 2-d hi res grid !DJG inv do j=jxrt,1,-1 -! do j=1,jxrt -! do i = 1,ixrt -! if (LAKE_MSKRT(i,j) .gt. NLAKES) then -! NLAKES = LAKE_MSKRT(i,j) -! endif -! end do -! end do -!#ifdef HYDRO_D -! write(6,*) "finish read_red .. Total Number of Lakes in Domain = ", NLAKES -!#endif +! follwoing is modified by Wei Yu 03/24/2017 + if(UDMP_OPT .eq. 0) then + NLAKES = 0 + do j=1,jxrt + do i = 1,ixrt + if (LAKE_MSKRT(i,j) .gt. NLAKES) then + NLAKES = LAKE_MSKRT(i,j) + endif + end do + end do +#ifdef HYDRO_D + write(6,*) "finish read_red .. Total Number of Lakes in Domain = ", NLAKES +#endif + endif !-- don't return here--! return @@ -927,8 +1044,19 @@ subroutine get_NLINKSL(NLINKSL, channel_option, route_link_f) routeLinkNetcdf = route_link_f_r( (lenRouteLinkFR-2):lenRouteLinkFR) .eq. '.nc' if(routeLinkNetcdf) then - NLINKSL = get_netcdf_dim(trim(route_link_f), 'linkDim', & - 'READ_ROUTEDIM', fatalErr=.true.) + NLINKSL = -99 + NLINKSL = get_netcdf_dim(trim(route_link_f), 'feature_id', & + 'READ_ROUTEDIM', fatalErr=.false.) + if(NLINKSL .eq. -99) then + ! We were unsucessful in getting feature_id, try linkDim + NLINKSL = get_netcdf_dim(trim(route_link_f), 'linkDim', & + 'READ_ROUTEDIM', fatalErr=.false.) + endif + if(NLINKSL .eq. -99) then + ! Neither the feature_id or linkDim dimensions were found in + ! the RouteLink file. Throw an error... + call hydro_stop("Could not find either feature_id or linkDim in RouteLink file.") + endif else open(unit=17,file=trim(route_link_f), & !link form='formatted',status='old') @@ -1120,7 +1248,7 @@ subroutine MPP_READ_SIMP_GW(IX,JX,IXRT,JXRT,GWSUBBASMSK,gwbasmskfil,& integer, intent(out), dimension(IX,JX) :: GWSUBBASMSK integer, intent(out), dimension(IXRT,JXRT) :: gw_strm_msk integer, intent(in), dimension(IXRT,JXRT) :: ch_netrt - character(len=256) :: gwbasmskfil + character(len=*) :: gwbasmskfil !integer,dimension(global_nX,global_ny) :: g_GWSUBBASMSK !yw integer,dimension(global_rt_nx, global_rt_ny) :: g_gw_strm_msk,g_ch_netrt @@ -1172,48 +1300,64 @@ subroutine READ_SIMP_GW(IX,JX,IXRT,JXRT,GWSUBBASMSK,gwbasmskfil,& integer, intent(out) :: numbasns integer, intent(out), dimension(IX,JX) :: GWSUBBASMSK integer, intent(out), dimension(IXRT,JXRT) :: gw_strm_msk - character(len=256) :: gwbasmskfil + character(len=*) :: gwbasmskfil integer :: i,j,aggfacxrt,aggfacyrt,ixxrt,jyyrt + integer :: iret, ncid + logical :: fexist + integer, allocatable, dimension(:,:) :: GWSUBBASMSK_tmp numbasns = 0 gw_strm_msk = -9999 -!Open files... - open(unit=18,file=trim(gwbasmskfil), & - form='formatted',status='old') - -!Read in sub-basin mask... - do j=jx,1,-1 - read (18,*) (GWSUBBASMSK(i,j),i=1,ix) - end do - close(18) + inquire (file=trim(gwbasmskfil), exist=fexist) + if(.not. fexist) then + call hydro_stop("Cound not find file : "//trim(gwbasmskfil)) + endif + iret = nf_open(trim(gwbasmskfil), NF_NOWRITE, ncid) + if( iret .eq. 0 ) then + iret = nf_close(ncid) + print*, "read gwbasmskfil as nc format: ", trim(gwbasmskfil) + allocate(GWSUBBASMSK_tmp(ix,jx)) + call get2d_int("BASIN",GWSUBBASMSK_tmp,ix,jx,trim(gwbasmskfil), .true.) + do j = jx, 1, -1 + GWSUBBASMSK(:,j) = GWSUBBASMSK_tmp (:,jx-j+1) + end do + deallocate(GWSUBBASMSK_tmp) + else + print*, "read gwbasmskfil as txt format: ", trim(gwbasmskfil) + open(unit=18,file=trim(gwbasmskfil), & + form='formatted',status='old') + do j=jx,1,-1 + read (18,*) (GWSUBBASMSK(i,j),i=1,ix) + end do + close(18) + endif !Loop through to count number of basins and assign basin indices to chan grid - do J=1,JX - do I=1,IX - + do J=1,JX + do I=1,IX !Determine max number of basins...(assumes basins are numbered ! sequentially from 1 to max number of basins...) - if (GWSUBBASMSK(i,j).gt.numbasns) then - numbasns = GWSUBBASMSK(i,j) ! get count of basins... - end if + if (GWSUBBASMSK(i,j).gt.numbasns) then + numbasns = GWSUBBASMSK(i,j) ! get count of basins... + end if !Assign gw basin index values to channel grid... - do AGGFACYRT=AGGFACTRT-1,0,-1 - do AGGFACXRT=AGGFACTRT-1,0,-1 + do AGGFACYRT=AGGFACTRT-1,0,-1 + do AGGFACXRT=AGGFACTRT-1,0,-1 - IXXRT=I*AGGFACTRT-AGGFACXRT - JYYRT=J*AGGFACTRT-AGGFACYRT - IF(ch_netrt(IXXRT,JYYRT).ge.0) then !If channel grid cell - gw_strm_msk(IXXRT,JYYRT) = GWSUBBASMSK(i,j) ! assign coarse grid basn indx to chan grid - END IF + IXXRT=I*AGGFACTRT-AGGFACXRT + JYYRT=J*AGGFACTRT-AGGFACYRT + IF(ch_netrt(IXXRT,JYYRT).ge.0) then !If channel grid cell + gw_strm_msk(IXXRT,JYYRT) = GWSUBBASMSK(i,j) ! assign coarse grid basn indx to chan grid + END IF - end do !AGGFACXRT - end do !AGGFACYRT + end do !AGGFACXRT + end do !AGGFACYRT - end do !I-ix - end do !J-jx + end do !I-ix + end do !J-jx #ifdef HYDRO_D write(6,*) "numbasns = ", numbasns @@ -1293,7 +1437,7 @@ subroutine SIMP_GW_IND(ix,jx,GWSUBBASMSK,numbasns,gnumbasns,basnsInd) end subroutine SIMP_GW_IND !Wei Yu - subroutine read_GWBUCKPARM (numbasns,gnumbasns, basnsInd, & + subroutine read_GWBUCKPARM (inFile,numbasns,gnumbasns, basnsInd, & gw_buck_coeff, gw_buck_exp, z_max, & z_gwsubbas, bas_id,basns_area) ! read GWBUCKPARM file @@ -1309,48 +1453,60 @@ subroutine read_GWBUCKPARM (numbasns,gnumbasns, basnsInd, & integer, dimension(gnumbasns) :: tmp_bas_id CHARACTER(len=100) :: header CHARACTER(len=1) :: jnk + character(len=*) :: inFile integer :: bas,k + integer :: iret, ncid + logical :: fexist #ifdef MPP_LAND if(my_id .eq. IO_id) then #endif -!Read in GW bucket params and Zinit from input file in Run directory... + inquire (file=trim(inFile), exist=fexist) + if(.not. fexist) then + call hydro_stop("Cound not find file : "//trim(inFile)) + endif + iret = nf_open(trim(inFile), NF_NOWRITE, ncid) + if(iret .eq. 0 ) then + print*, "read GWBUCKPARM file as nc format: " , trim(inFile) + call get_1d_netcdf_int(ncid, "Basin", tmp_bas_id, "read GWBUCKPARM", .true.) +! call get_1d_netcdf_int(ncid, "ComID", tmp_bas_id, "read GWBUCKPARM", .true.) + call get_1d_netcdf_real(ncid, "Coeff",tmp_buck_coeff , "read GWBUCKPARM", .true.) + call get_1d_netcdf_real(ncid, "Expon",tmp_buck_exp , "read GWBUCKPARM", .true.) + call get_1d_netcdf_real(ncid, "Zmax" ,tmp_z_max , "read GWBUCKPARM", .true.) + call get_1d_netcdf_real(ncid, "Zinit",tmp_z_gwsubbas , "read GWBUCKPARM", .true.) + call get_1d_netcdf_real(ncid, "Area_sqkm",tmp_basns_area , "read GWBUCKPARM", .true.) + iret = nf_close(ncid) + else + !iret = nf_close(ncid) + print*, "read GWBUCKPARM file as TBL format : " #ifndef NCEP_WCOSS - OPEN(81, FILE='GWBUCKPARM.TBL',FORM='FORMATTED',STATUS='OLD') - read(81,811) header +!yw OPEN(81, FILE='GWBUCKPARM.TBL',FORM='FORMATTED',STATUS='OLD') + OPEN(81, FILE=trim(inFile),FORM='FORMATTED',STATUS='OLD') + read(81,811) header #else - OPEN(24, FORM='FORMATTED',STATUS='OLD') - read(24,811) header + OPEN(24, FORM='FORMATTED',STATUS='OLD') + read(24,811) header #endif -811 FORMAT(A19) +811 FORMAT(A19) #ifndef NCEP_WCOSS - do bas = 1,gnumbasns - -! commented out the new GWBUCKPARM.TBL used for Caralina domain -!new read(81,812) tmp_bas_id(bas),jnk,tmp_buck_coeff(bas),jnk,tmp_buck_exp(bas) , & -!new jnk,tmp_z_max(bas), jnk,tmp_z_gwsubbas(bas),jnk,tmp_basns_area(bas) -!new 812 FORMAT(I8,A1,F6.4,A1,F6.3,A1,F6.2,A1,F7.4,A1,F11.3) + do bas = 1,gnumbasns + read(81,812) tmp_bas_id(bas),jnk,tmp_buck_coeff(bas),jnk,tmp_buck_exp(bas) , & + jnk,tmp_z_max(bas), jnk,tmp_z_gwsubbas(bas) -!DJG...change bucket units to mm.... 812 FORMAT(I3,A1,F6.4,A1,F6.3,A1,F6.3,A1,F7.4) -! following is old GWBUCKPARM.TBL - read(81,812) tmp_bas_id(bas),jnk,tmp_buck_coeff(bas),jnk,tmp_buck_exp(bas) , & - jnk,tmp_z_max(bas), jnk,tmp_z_gwsubbas(bas) -812 FORMAT(I8,A1,F6.4,A1,F6.3,A1,F6.2,A1,F7.4) - - end do - close(81) + end do +812 FORMAT(I8,A1,F6.4,A1,F6.3,A1,F6.2,A1,F7.4) + close(81) #else - do bas = 1,gnumbasns - read(24,812) tmp_bas_id(bas),jnk,tmp_buck_coeff(bas),jnk,tmp_buck_exp(bas) , & - jnk,tmp_z_max(bas), jnk,tmp_z_gwsubbas(bas) -812 FORMAT(I8,A1,F6.4,A1,F6.3,A1,F6.2,A1,F7.4) - - end do - close(24) + do bas = 1,gnumbasns + read(24,812) tmp_bas_id(bas),jnk,tmp_buck_coeff(bas),jnk,tmp_buck_exp(bas) , & + jnk,tmp_z_max(bas), jnk,tmp_z_gwsubbas(bas) + end do +812 FORMAT(I8,A1,F6.4,A1,F6.3,A1,F6.2,A1,F7.4) + close(24) #endif - + endif #ifdef MPP_LAND endif @@ -1531,10 +1687,8 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & startdate, date, QSUBRT,ZWATTABLRT,SMCRT,SUB_RESID, & q_sfcflx_x,q_sfcflx_y,soxrt,soyrt,QSTRMVOLRT,SFCHEADSUBRT, & geo_finegrid_flnm,dt,sldpth,LATVAL,LONVAL,dist,CHRTOUT_GRID, & - QBDRYRT & -#ifdef HYDRO_REALTIME - , iocflag & -#endif + QBDRYRT, & + io_config_outputs & ) !output the routing variables over routing grid. @@ -1542,9 +1696,8 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & #include integer, intent(in) :: igrid -#ifdef HYDRO_REALTIME - integer, intent(in) :: iocflag -#endif + + integer, intent(in) :: io_config_outputs integer, intent(in) :: split_output_count integer, intent(in) :: ixrt,jxrt real, intent(in) :: dt @@ -1588,7 +1741,7 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & integer :: seconds_since, decimation, ixrtd,jxrtd, hires_flag sec_since_date = 'seconds since '//date(1:4)//'-'//date(6:7)//'-'//date(9:10)//' '//date(12:13)//':'//date(15:16)//' UTC' - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' @@ -1641,12 +1794,12 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & write (54,713) chan_in close (54) #else -#ifndef HYDRO_REALTIME - open (unit=46,file='qstrmvolrt_accum.txt',form='formatted',& + if (io_config_outputs .le. 0) then + open (unit=46,file='qstrmvolrt_accum.txt',form='formatted',& status='unknown',position='append') - write (46,713) chan_in - close (46) -#endif + write (46,713) chan_in + close (46) + endif #endif #ifdef MPP_LAND endif @@ -1710,8 +1863,7 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & endif enddo - -#ifndef HYDRO_REALTIME + if (io_config_outputs .le. 0) then if(hires_flag.eq.1) then !if/then hires_georef ! Get projection information from finegrid netcdf file iret = NF_INQ_VARID(ncstatic,'lambert_conformal_conic',varid) @@ -1722,7 +1874,7 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & iret = NF_GET_ATT_REAL(ncstatic, varid, 'standard_parallel', sp) !-- read it from the static file end if !endif hires_georef iret = nf_close(ncstatic) -#endif + endif !-- create the fine grid routing file write(output_flnm, '(A12,".RTOUT_DOMAIN",I1)') date(1:4)//date(6:7)//date(9:10)//date(12:13)//date(15:16), igrid @@ -1743,9 +1895,9 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & iret = nf_def_dim(ncid, "time", NF_UNLIMITED, dimid_times) iret = nf_def_dim(ncid, "x", ixrtd, dimid_ix) !-- make a decimated grid iret = nf_def_dim(ncid, "y", jxrtd, dimid_jx) -#ifndef HYDRO_REALTIME + if (io_config_outputs .le. 0) then iret = nf_def_dim(ncid, "depth", nsoil, dimid_soil) !-- 3-d soils -#endif + endif !--- define variables ! !- time definition, timeObs @@ -1753,7 +1905,7 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & iret = nf_put_att_text(ncid,varid,'long_name',17,'valid output time') iret = nf_put_att_text(ncid,varid,'units',34,sec_valid_date) -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then !- x-coordinate in cartesian system iret = nf_def_var(ncid,"x",NF_DOUBLE, 1, (/dimid_ix/), varid) iret = nf_put_att_text(ncid,varid,'long_name',26,'x coordinate of projection') @@ -1802,47 +1954,45 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & ! iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') ! iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') ! iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) -#endif - -#ifdef HYDRO_REALTIME - if ( (iocflag .ge. 0) .and. (iocflag .ne. 4) ) then -#endif - iret = nf_def_var(ncid,"zwattablrt",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) - iret = nf_put_att_text(ncid,varid,'units',1,'m') - iret = nf_put_att_text(ncid,varid,'long_name',17,'water table depth') - iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') - iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') - iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) - -! iret = nf_def_var(ncid,"Q_SFCFLX_X",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) -! iret = nf_put_att_text(ncid,varid,'units',6,'m3 s-1') -! iret = nf_put_att_text(ncid,varid,'long_name',14,'surface flux x') -! iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') -! iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') -! iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) - -! iret = nf_def_var(ncid,"Q_SFCFLX_Y",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) -! iret = nf_put_att_text(ncid,varid,'units',6,'m3 s-1') -! iret = nf_put_att_text(ncid,varid,'long_name',14,'surface flux y') -! iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') -! iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') -! iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) +endif - iret = nf_def_var(ncid,"sfcheadsubrt",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) - iret = nf_put_att_text(ncid,varid,'units',2,'mm') - iret = nf_put_att_text(ncid,varid,'long_name',12,'surface head') - iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') - iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') - iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) +! All but long range +if ( io_config_outputs .ne. 4 ) then + + iret = nf_def_var(ncid,"zwattablrt",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) + iret = nf_put_att_text(ncid,varid,'units',1,'m') + iret = nf_put_att_text(ncid,varid,'long_name',17,'water table depth') + iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') + iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') + iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) + + !iret = nf_def_var(ncid,"Q_SFCFLX_X",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) + !iret = nf_put_att_text(ncid,varid,'units',6,'m3 s-1') + !iret = nf_put_att_text(ncid,varid,'long_name',14,'surface flux x') + !iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') + !iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') + !iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) + + !iret = nf_def_var(ncid,"Q_SFCFLX_Y",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) + !iret = nf_put_att_text(ncid,varid,'units',6,'m3 s-1') + !iret = nf_put_att_text(ncid,varid,'long_name',14,'surface flux y') + !iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') + !iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') + !iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) + + iret = nf_def_var(ncid,"sfcheadsubrt",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) + iret = nf_put_att_text(ncid,varid,'units',2,'mm') + iret = nf_put_att_text(ncid,varid,'long_name',12,'surface head') + iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') + iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') + iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) -#ifdef HYDRO_REALTIME - endif -#endif +endif -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then iret = nf_def_var(ncid,"QSTRMVOLRT",NF_FLOAT, 3, (/dimid_ix,dimid_jx,dimid_times/), varid) iret = nf_put_att_text(ncid,varid,'units',2,'mm') - iret = nf_put_att_text(ncid,varid,'long_name',14,'channel inflow') + iret = nf_put_att_text(ncid,varid,'long_name',20,'accum channel inflow') iret = nf_put_att_text(ncid,varid,'coordinates',3,'x y') iret = nf_put_att_text(ncid,varid,'grid_mapping',23,'lambert_conformal_conic') iret = nf_put_att_real(ncid,varid,'missing_value',NF_REAL,1,-9E15) @@ -1881,7 +2031,7 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & iret = nf_put_att_real(ncid,varid,'false_northing',NF_FLOAT,1,fn) iret = nf_put_att_real(ncid,varid,'standard_parallel',NF_FLOAT,2,sp) end if !endif hires_georef -#endif +endif ! iret = nf_def_var(ncid,"Date", NF_CHAR, 2, (/dimid_datelen,dimid_times/), varid) @@ -1899,14 +2049,14 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & iret = nf_enddef(ncid) -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then !!-- write latitude and longitude locations iret = nf_inq_varid(ncid,"x", varid) iret = nf_put_vara_double(ncid, varid, (/1/), (/ixrtd/), xcoord_d) !-- 1-d array iret = nf_inq_varid(ncid,"y", varid) iret = nf_put_vara_double(ncid, varid, (/1/), (/jxrtd/), ycoord_d) !-- 1-d array -#endif +endif #ifdef MPP_LAND endif @@ -1915,7 +2065,7 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & iret = nf_inq_varid(ncid,"time", varid) iret = nf_put_vara_int(ncid, varid, (/1/), (/1/), seconds_since) -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then #ifdef MPP_LAND call write_IO_rt_real(LATVAL,xdumd) if( my_id .eq. io_id) then @@ -1944,11 +2094,6 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & if( my_id .eq. io_id) then #endif - - - - - do n = 1,nsoil if(n == 1) then asldpth(n) = -sldpth(n) @@ -1963,12 +2108,12 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & #ifdef MPP_LAND endif ! end of my_id .eq. io_id #endif -#endif +endif endif !!! end of if block output_count == 0 output_count = output_count + 1 -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then !-- 3-d soils do n = 1, nsoil #ifdef MPP_LAND @@ -1986,29 +2131,26 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & endif #endif enddo !-n soils -#endif +endif -#ifdef HYDRO_REALTIME - if ( (iocflag .ge. 0) .and. (iocflag .ne. 4) ) then -#endif +! All but long range +if ( (io_config_outputs .ge. 0) .and. (io_config_outputs .ne. 4) ) then #ifdef MPP_LAND - call write_IO_rt_real(ZWATTABLRT,xdumd) + call write_IO_rt_real(ZWATTABLRT,xdumd) #else - xdumd(:,:) = ZWATTABLRT(:,:) + xdumd(:,:) = ZWATTABLRT(:,:) #endif #ifdef MPP_LAND - if(my_id .eq. io_id) then + if (my_id .eq. io_id) then #endif - iret = nf_inq_varid(ncid, "zwattablrt", varid) - iret = nf_put_vara_real(ncid, varid, (/1,1,output_count/), (/ixrtd,jxrtd,1/), xdumd) + iret = nf_inq_varid(ncid, "zwattablrt", varid) + iret = nf_put_vara_real(ncid, varid, (/1,1,output_count/), (/ixrtd,jxrtd,1/), xdumd) #ifdef MPP_LAND - endif -#endif -#ifdef HYDRO_REALTIME endif #endif +endif -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then #ifdef MPP_LAND call write_IO_rt_real(QBDRYRT,xdumd) #else @@ -2036,27 +2178,24 @@ subroutine output_rt(igrid, split_output_count, ixrt, jxrt, nsoil, & #ifdef MPP_LAND endif #endif -#endif +endif -#ifdef HYDRO_REALTIME - if ( (iocflag .ge. 0) .and. (iocflag .ne. 4) ) then -#endif +! All but long range +if ( io_config_outputs .ne. 4 ) then #ifdef MPP_LAND - call write_IO_rt_real(SFCHEADSUBRT,xdumd) + call write_IO_rt_real(SFCHEADSUBRT,xdumd) #else - xdumd(:,:) = SFCHEADSUBRT(:,:) + xdumd(:,:) = SFCHEADSUBRT(:,:) #endif #ifdef MPP_LAND - if(my_id .eq. io_id) then + if (my_id .eq. io_id) then #endif - iret = nf_inq_varid(ncid, "sfcheadsubrt", varid) - iret = nf_put_vara_real(ncid, varid, (/1,1,output_count/), (/ixrtd,jxrtd,1/), xdumd) + iret = nf_inq_varid(ncid, "sfcheadsubrt", varid) + iret = nf_put_vara_real(ncid, varid, (/1,1,output_count/), (/ixrtd,jxrtd,1/), xdumd) #ifdef MPP_LAND - endif -#endif -#ifdef HYDRO_REALTIME endif #endif +endif #ifdef MPP_LAND if(my_id .eq. io_id) then @@ -2151,7 +2290,7 @@ subroutine output_gw_spinup(igrid, split_output_count, ixrt, jxrt, & #endif - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) sec_since_date = 'seconds since '//date(1:4)//'-'//date(6:7)//'-'//date(9:10)//' '//date(12:13)//':'//date(15:16)//' UTC' sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' @@ -2496,7 +2635,7 @@ subroutine sub_output_gw(igrid, split_output_count, ixrt, jxrt, nsoil, & #endif - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) sec_since_date = 'seconds since '//date(1:4)//'-'//date(6:7)//'-'//date(9:10)//' '//date(12:13)//':'//date(15:16)//' UTC' sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' @@ -2848,6 +2987,7 @@ subroutine sub_output_gw(igrid, split_output_count, ixrt, jxrt, nsoil, & end subroutine sub_output_gw !NOte: output_chrt is the old version comparing to "output_chrt_bak". + subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & startdate, date, chlon, chlat, hlink, zelev, qlink, dtrt_ch, K, & STRMFRXSTPTS, order_to_write, NLINKSL, channel_option, gages, gageMiss, & @@ -2855,7 +2995,9 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & #ifdef WRF_HYDRO_NUDGING , nudge & #endif - , accLndRunOff, accQLateral, accStrmvolrt, accBucket, UDMP_OPT & + , accSfcLatRunoff, accBucket & + , qSfcLatRunoff, qBucket, qBtmVertRunoff & + , UDMP_OPT & ) implicit none @@ -2903,6 +3045,8 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & integer :: stationdim, dimdata, varid, charid, n integer :: obsdim, dimdataO, charidO + integer :: timedim, timedim2 + character(len=34) :: sec_valid_date integer :: iret,i, start_pos, prev_pos, order_to_write!-- order_to_write is the lowest stream order to output integer :: start_posO, prev_posO, nlk @@ -2934,14 +3078,17 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & INTEGER OTXDIMS(OTDIMS) ! variable shape INTEGER OTSTART(OTDIMS), OTCOUNT(OTDIMS) - real, dimension(:), intent(in) :: accLndRunOff, accQLateral, accStrmvolrt, accBucket + real*8, dimension(:), intent(in) :: accSfcLatRunoff, accBucket + real, dimension(:), intent(in) :: qSfcLatRunoff, qBucket, qBtmVertRunoff !! currently, this is the time of the hydro model, it's !! lsm time (olddate) plus one lsm timestep !call geth_newdate(hydroTime, date, nint(lsmDt)) hydroTime=date - seconds_since = int(dtrt_ch)*(K-1) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) + sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & + //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' ! order_to_write = 2 !-- 1 all; 6 fewest nstations = 0 ! total number of channel points to display @@ -3073,16 +3220,27 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & iret = nf_def_dim(ncid, "recNum", NF_UNLIMITED, dimdata) !--for linked list approach iret = nf_def_dim(ncid, "station", nstations, stationdim) - + iret = nf_def_dim(ncid, "time", 1, timedim) iret = nf_def_dim(ncid2, "recNum", NF_UNLIMITED, dimdataO) !--for linked list approach iret = nf_def_dim(ncid2, "station", nobs, obsdim) + iret = nf_def_dim(ncid2, "time", 1, timedim2) !- station location definition all, lat iret = nf_def_var(ncid,"latitude",NF_FLOAT, 1, (/stationdim/), varid) +#ifdef HYDRO_D + write(6,*) "iret 2.1, ", iret, stationdim +#endif iret = nf_put_att_text(ncid,varid,'long_name',16,'Station latitude') +#ifdef HYDRO_D + write(6,*) "iret 2.2", iret +#endif iret = nf_put_att_text(ncid,varid,'units',13,'degrees_north') +#ifdef HYDRO_D + write(6,*) "iret 2.3", iret +#endif + !- station location definition obs, lat iret = nf_def_var(ncid2,"latitude",NF_FLOAT, 1, (/obsdim/), varid) @@ -3129,43 +3287,71 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & !-- prevChild iret = nf_def_var(ncid,"prevChild",NF_INT,1,(/dimdata/), varid) iret = nf_put_att_text(ncid,varid,'long_name',57,'record number of the previous record for the same station') - iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) +!ywtmp iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) + iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) iret = nf_def_var(ncid2,"prevChild",NF_INT,1,(/dimdataO/), varid) iret = nf_put_att_text(ncid2,varid,'long_name',57,'record number of the previous record for the same station') - iret = nf_put_att_int(ncid2,varid,'_FillValue',NF_INT,2,-1) +!ywtmp iret = nf_put_att_int(ncid2,varid,'_FillValue',NF_INT,2,-1) + iret = nf_put_att_int(ncid2,varid,'_FillValue',2,-1) !-- lastChild iret = nf_def_var(ncid,"lastChild",NF_INT,1,(/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',30,'latest report for this station') - iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) +!ywtmp iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) + iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) iret = nf_def_var(ncid2,"lastChild",NF_INT,1,(/obsdim/), varid) iret = nf_put_att_text(ncid2,varid,'long_name',30,'latest report for this station') - iret = nf_put_att_int(ncid2,varid,'_FillValue',NF_INT,2,-1) +!ywtmp iret = nf_put_att_int(ncid2,varid,'_FillValue',NF_INT,2,-1) + iret = nf_put_att_int(ncid2,varid,'_FillValue',2,-1) ! !- flow definition, var if(UDMP_OPT .eq. 1) then - iret = nf_def_var(ncid, "accLndRunOff", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',28,'ACCUMULATED runoff from land') - - iret = nf_def_var(ncid, "accQLateral", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',24,'Total ACCUMULATED runoff') - - iret = nf_def_var(ncid, "accStrmvolrt", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',39,'ACCUMULATED runoff from terrain routing') - - iret = nf_def_var(ncid, "accBucket", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',32,'ACCUMULATED runoff from gw bucket') - + !! FLUXES to channel + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + iret = nf_def_var(ncid, "qSfcLatRunoff", NF_FLOAT, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + if(nlst_rt(did)%OVRTSWCRT .eq. 1) then !123456789112345678921234567 + iret = nf_put_att_text(ncid,varid,'long_name',27,'runoff from terrain routing') + else + iret = nf_put_att_text(ncid,varid,'long_name',6,'runoff') + end if + iret = nf_def_var(ncid, "qBucket", NF_FLOAT, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + ! 12345678911234567892 + iret = nf_put_att_text(ncid,varid,'long_name',19,'flux from gw bucket') + end if + + !! Bucket influx + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) then + iret = nf_def_var(ncid, "qBtmVertRunoff", NF_FLOAT, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + ! 123456789112345678921234567893123456 + iret = nf_put_att_text(ncid,varid,'long_name',36,'runoff from bottom of soil to bucket') + end if + + !! ACCUMULATIONS + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + iret = nf_def_var(ncid, "accSfcLatRunoff", NF_DOUBLE, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',7,'meter^3') + if(nlst_rt(did)%OVRTSWCRT .eq. 1) then + iret = nf_put_att_text(ncid,varid,'long_name',39, & + ! 123456789112345678921234567893123456789 + 'ACCUMULATED runoff from terrain routing') + else + iret = nf_put_att_text(ncid,varid,'long_name',28,'ACCUMULATED runoff from land') + end if + iret = nf_def_var(ncid, "accBucket", NF_DOUBLE, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',8,'meter^3') + ! 12345678911234567892123456789312345 + iret = nf_put_att_text(ncid,varid,'long_name',33,'ACCUMULATED runoff from gw bucket') + endif endif - + iret = nf_def_var(ncid, "streamflow", NF_FLOAT, 1, (/dimdata/), varid) iret = nf_put_att_text(ncid,varid,'units',13,'meter^3 / sec') iret = nf_put_att_text(ncid,varid,'long_name',10,'River Flow') @@ -3201,11 +3387,11 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & ! !- order definition, var iret = nf_def_var(ncid, "order", NF_INT, 1, (/dimdata/), varid) iret = nf_put_att_text(ncid,varid,'long_name',21,'Strahler Stream Order') - iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) + iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) iret = nf_def_var(ncid2, "order", NF_INT, 1, (/dimdataO/), varid) iret = nf_put_att_text(ncid2,varid,'long_name',21,'Strahler Stream Order') - iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) + iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) !-- station id ! define character-position dimension for strings of max length 11 @@ -3224,13 +3410,13 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & ! !- time definition, timeObs - iret = nf_def_var(ncid,"time_observation",NF_INT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',34,sec_since_date) - iret = nf_put_att_text(ncid,varid,'long_name',19,'time of observation') + iret = nf_def_var(ncid,"time",NF_INT, 1, (/timedim/), varid) + iret = nf_put_att_text(ncid,varid,'units',34,sec_valid_date) + iret = nf_put_att_text(ncid,varid,'long_name',17,'valid output time') - iret = nf_def_var(ncid2,"time_observation",NF_INT, 1, (/dimdataO/), varid) - iret = nf_put_att_text(ncid2,varid,'units',34,sec_since_date) - iret = nf_put_att_text(ncid2,varid,'long_name',19,'time of observation') + iret = nf_def_var(ncid2,"time",NF_INT, 1, (/timedim2/), varid) + iret = nf_put_att_text(ncid2,varid,'units',34,sec_valid_date) + iret = nf_put_att_text(ncid2,varid,'long_name',17,'valid output time') iret = nf_put_att_text(ncid, NF_GLOBAL, "Conventions",32, convention) iret = nf_put_att_text(ncid2, NF_GLOBAL, "Conventions",32, convention) @@ -3238,25 +3424,29 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & convention(1:32) = "Unidata Observation Dataset v1.0" iret = nf_put_att_text(ncid, NF_GLOBAL, "Conventions",32, convention) iret = nf_put_att_text(ncid, NF_GLOBAL, "cdm_datatype",7, "Station") + iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_max",4, "90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_min",5, "-90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_max",5, "180.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_min",6, "-180.0") - iret = nf_put_att_text(ncid, NF_GLOBAL, "time_coverage_start",19, date19start) - iret = nf_put_att_text(ncid, NF_GLOBAL, "stationDimension",7, "station") + + iret = nf_put_att_text(ncid, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) + iret = nf_put_att_text(ncid, NF_GLOBAL, "station_dimension",7, "station") iret = nf_put_att_real(ncid, NF_GLOBAL, "missing_value", NF_FLOAT, 1, -9E15) - iret = nf_put_att_int(ncid, NF_GLOBAL, "stream order output",NF_INT,1,order_to_write) + iret = nf_put_att_int(ncid, NF_GLOBAL, "stream_order_output",NF_INT,1,order_to_write) iret = nf_put_att_text(ncid2, NF_GLOBAL, "Conventions",32, convention) iret = nf_put_att_text(ncid2, NF_GLOBAL, "cdm_datatype",7, "Station") + iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lat_max",4, "90.0") iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lat_min",5, "-90.0") iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lon_max",5, "180.0") iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lon_min",6, "-180.0") - iret = nf_put_att_text(ncid2, NF_GLOBAL, "time_coverage_start",19, date19start) - iret = nf_put_att_text(ncid2, NF_GLOBAL, "stationDimension",7, "station") + + iret = nf_put_att_text(ncid2, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) + iret = nf_put_att_text(ncid2, NF_GLOBAL, "station_dimension",7, "station") iret = nf_put_att_real(ncid2, NF_GLOBAL, "missing_value", NF_FLOAT, 1, -9E15) - iret = nf_put_att_int(ncid2, NF_GLOBAL, "stream order output",NF_INT,1,order_to_write) + iret = nf_put_att_int(ncid2, NF_GLOBAL, "stream_order_output",NF_INT,1,order_to_write) iret = nf_enddef(ncid) iret = nf_enddef(ncid2) @@ -3327,22 +3517,35 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & start_pos = (cnt+1)+(nstations*(output_count-1)) !!--time in seconds since startdate - iret = nf_inq_varid(ncid,"time_observation", varid) - iret = nf_put_vara_int(ncid, varid, (/start_pos/), (/1/), seconds_since) + iret = nf_inq_varid(ncid,"time", varid) + iret = nf_put_vara_int(ncid, varid, (/1/), (/1/), seconds_since) if(UDMP_OPT .eq. 1) then - iret = nf_inq_varid(ncid,"accLndRunOff", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accLndRunOff(i)) - - iret = nf_inq_varid(ncid,"accQLateral", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accQLateral(i)) + !! FLUXES to channel + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + iret = nf_inq_varid(ncid,"qSfcLatRunoff", varid) + iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qSfcLatRunoff(i)) + + iret = nf_inq_varid(ncid,"qBucket", varid) + iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qBucket(i)) + end if - iret = nf_inq_varid(ncid,"accStrmvolrt", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accStrmvolrt(i)) + !! FLUXES to bucket + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) then + iret = nf_inq_varid(ncid,"qBtmVertRunoff", varid) + iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qBtmVertRunoff(i)) + end if - iret = nf_inq_varid(ncid,"accBucket", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accBucket(i)) - endif + !! ACCUMULATIONS + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + iret = nf_inq_varid(ncid,"accSfcLatRunoff", varid) + iret = nf_put_vara_double(ncid, varid, (/start_pos/), (/1/), accSfcLatRunoff(i)) + + iret = nf_inq_varid(ncid,"accBucket", varid) + iret = nf_put_vara_double(ncid, varid, (/start_pos/), (/1/), accBucket(i)) + end if + endif iret = nf_inq_varid(ncid,"streamflow", varid) iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qlink(i,1)) @@ -3392,17 +3595,17 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & !yw write(55,117) seconds_since,trim(date),cnt,chlon(i),chlat(i), & 118 FORMAT(I8,",",A10,1X,A8,", ",A15,",",F10.5,",",F8.5,",",F9.3,",",F12.3,",",F6.3) !write(55,118) seconds_since, date(1:10), date(12:19), & -#ifndef HYDRO_REALTIME + write(55,118) seconds_since, hydroTime(1:10), hydroTime(12:19), & gages(i), chlon(i), chlat(i), & qlink(i,1), qlink(i,1)*35.314666711511576, hlink(i) -#endif + !yw 117 FORMAT(I8,1X,A25,1X,I7,1X,F10.5,1X,F8.5,1X,F9.3,1x,F12.3,1X,F6.3) !yw 117 FORMAT(I8,1X,A10,1X,A8,1x,I7,1X,F10.5,1X,F8.5,1X,F9.3,1x,F12.3,1X,F6.3) !!--time in seconds since startdate - iret = nf_inq_varid(ncid2,"time_observation", varid) - iret = nf_put_vara_int(ncid2, varid, (/start_posO/), (/1/), seconds_since) + iret = nf_inq_varid(ncid2,"time", varid) + iret = nf_put_vara_int(ncid2, varid, (/1/), (/1/), seconds_since) iret = nf_inq_varid(ncid2,"streamflow", varid) iret = nf_put_vara_real(ncid2, varid, (/start_posO/), (/1/), qlink(i,1)) @@ -3458,9 +3661,9 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & strmfrxstpts(i), chlon(i), chlat(i), & qlink(i,1), qlink(i,1)*35.314666711511576, hlink(i) - !!--time in seconds since startdate - iret = nf_inq_varid(ncid2,"time_observation", varid) - iret = nf_put_vara_int(ncid2, varid, (/start_posO/), (/1/), seconds_since) + !!--time in seconds since startdate + iret = nf_inq_varid(ncid2,"time", varid) + iret = nf_put_vara_int(ncid2, varid, (/1/), (/1/), seconds_since) iret = nf_inq_varid(ncid2,"streamflow", varid) iret = nf_put_vara_real(ncid2, varid, (/start_posO/), (/1/), qlink(i,1)) @@ -3510,10 +3713,10 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & iret = nf_redef(ncid) date19(1:19) = "0000-00-00_00:00:00" date19(1:len_trim(date)) = date - iret = nf_put_att_text(ncid, NF_GLOBAL, "time_coverage_end", 19, date19) + iret = nf_put_att_text(ncid, NF_GLOBAL, "model_output_valid_time", 19, trim(nlst_rt(1)%olddate)) iret = nf_redef(ncid2) - iret = nf_put_att_text(ncid2, NF_GLOBAL, "time_coverage_end", 19, date19) + iret = nf_put_att_text(ncid2, NF_GLOBAL, "model_output_valid_time", 19, trim(nlst_rt(1)%olddate)) iret = nf_enddef(ncid) iret = nf_sync(ncid) @@ -3527,21 +3730,21 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & iret = nf_close(ncid2) endif - if(allocated(chanlat)) deallocate(chanlat) - if(allocated(chanlon)) deallocate(chanlon) - if(allocated(elevation)) deallocate(elevation) - if(allocated(station_id)) deallocate(station_id) - if(allocated(lOrder)) deallocate(lOrder) - if(allocated(rec_num_of_station)) deallocate(rec_num_of_station) - if(allocated(stname)) deallocate(stname) - - if(allocated(chanlatO)) deallocate(chanlatO) - if(allocated(chanlonO)) deallocate(chanlonO) - if(allocated(elevationO)) deallocate(elevationO) - if(allocated(station_idO)) deallocate(station_idO) - if(allocated(lOrderO)) deallocate(lOrderO) - if(allocated(rec_num_of_stationO)) deallocate(rec_num_of_stationO) - if(allocated(stnameO)) deallocate(stnameO) + deallocate(chanlat) + deallocate(chanlon) + deallocate(elevation) + deallocate(station_id) + deallocate(lOrder) + deallocate(rec_num_of_station) + deallocate(stname) + + deallocate(chanlatO) + deallocate(chanlonO) + deallocate(elevationO) + deallocate(station_idO) + deallocate(lOrderO) + deallocate(rec_num_of_stationO) + deallocate(stnameO) #ifdef HYDRO_D print *, "Exited Subroutine output_chrt" #endif @@ -3550,7 +3753,6 @@ subroutine output_chrt(igrid, split_output_count, NLINKS, ORDER, & 20 format(i8,',',f12.7,',',f10.7,',',f6.2,',',i3) end subroutine output_chrt - !-- output the channel route in an IDV 'station' compatible format !Note: This version has pool output performance need to be !solved. We renamed it from output_chrt to be output_chrt_bak. @@ -3561,7 +3763,9 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, #ifdef WRF_HYDRO_NUDGING , nudge & #endif - , accLndRunOff, accQLateral, accStrmvolrt, accBucket, UDMP_OPT & + , accSfcLatRunoff, accBucket & + , qSfcLatRunoff, qBucket, qBtmVertRunoff & + , UDMP_OPT & ) implicit none @@ -3642,14 +3846,15 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, INTEGER OTXDIMS(OTDIMS) ! variable shape INTEGER OTSTART(OTDIMS), OTCOUNT(OTDIMS) - real,dimension(:), intent(in) :: accLndRunOff, accQLateral, accStrmvolrt, accBucket + real*8, dimension(:), intent(in) :: accSfcLatRunoff, accBucket + real, dimension(:), intent(in) :: qSfcLatRunoff, qBucket, qBtmVertRunoff !! currently, this is the time of the hydro model, it's !! lsm time (olddate) plus one lsm timestep !call geth_newdate(hydroTime, date, nint(lsmDt)) hydroTime=date - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' @@ -3719,7 +3924,7 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, #endif #ifdef WRFIO_NCD_NO_LARGE_FILE_SUPPORT - iret = nf_create(trim(output_flnm), NF_CLOBBER, ncid) + iret = nf_create(trim(output_flnm), NF_CLOBBER, ncid #else iret = nf_create(trim(output_flnm), IOR(NF_CLOBBER,NF_64BIT_OFFSET), ncid) #endif @@ -3862,23 +4067,49 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, ! !- flow definition, var if(UDMP_OPT .eq. 1) then - iret = nf_def_var(ncid, "accLndRunOff", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',13,'unknow') - iret = nf_put_att_text(ncid,varid,'long_name',10,'ACCUMULATED runoff from land') - - iret = nf_def_var(ncid, "accQLateral", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',13,'unknow') - iret = nf_put_att_text(ncid,varid,'long_name',10,'Total ACCUMULATED runoff') - - iret = nf_def_var(ncid, "accStrmvolrt", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',13,'unknow') - iret = nf_put_att_text(ncid,varid,'long_name',10,'ACCUMULATED runoff from terrain routing') - iret = nf_def_var(ncid, "accBucket", NF_FLOAT, 1, (/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'units',13,'unknow') - iret = nf_put_att_text(ncid,varid,'long_name',10,'ACCUMULATED runoff from gw bucket') + !! FLUXES to channel + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + iret = nf_def_var(ncid, "qSfcLatRunoff", NF_FLOAT, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + if(nlst_rt(did)%OVRTSWCRT .eq. 1) then !123456789112345678921234567 + iret = nf_put_att_text(ncid,varid,'long_name',27,'runoff from terrain routing') + else + iret = nf_put_att_text(ncid,varid,'long_name',6,'runoff') + end if + iret = nf_def_var(ncid, "qBucket", NF_FLOAT, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + ! 12345678911234567892 + iret = nf_put_att_text(ncid,varid,'long_name',19,'flux from gw bucket') + end if + + !! Bucket influx + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) then + iret = nf_def_var(ncid, "qBtmVertRunoff", NF_FLOAT, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + ! 123456789112345678921234567893123456 + iret = nf_put_att_text(ncid,varid,'long_name',36,'runoff from bottom of soil to bucket') + end if + + !! ACCUMULATIONS + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + iret = nf_def_var(ncid, "accSfcLatRunoff", NF_DOUBLE, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',7,'meter^3') + if(nlst_rt(did)%OVRTSWCRT .eq. 1) then + iret = nf_put_att_text(ncid,varid,'long_name',39, & + ! 123456789112345678921234567893123456789 + 'ACCUMULATED runoff from terrain routing') + else + iret = nf_put_att_text(ncid,varid,'long_name',28,'ACCUMULATED runoff from land') + end if + iret = nf_def_var(ncid, "accBucket", NF_DOUBLE, 1, (/dimdata/), varid) + iret = nf_put_att_text(ncid,varid,'units',8,'meter^3') + ! 12345678911234567892123456789312345 + iret = nf_put_att_text(ncid,varid,'long_name',33,'ACCUMULATED runoff from gw bucket') + endif endif - + iret = nf_def_var(ncid, "streamflow", NF_FLOAT, 1, (/dimdata/), varid) iret = nf_put_att_text(ncid,varid,'units',13,'meter^3 / sec') iret = nf_put_att_text(ncid,varid,'long_name',10,'River Flow') @@ -3902,7 +4133,6 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, ! iret = nf_put_att_text(ncid,varid,'units',13,'meter^3 / sec') ! iret = nf_put_att_text(ncid,varid,'long_name',14,'abs streamflow') -#ifndef HYDRO_REALTIME ! !- head definition, var iret = nf_def_var(ncid, "head", NF_FLOAT, 1, (/dimdata/), varid) iret = nf_put_att_text(ncid,varid,'units',5,'meter') @@ -3911,7 +4141,6 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, iret = nf_def_var(ncid2, "head", NF_FLOAT, 1, (/dimdataO/), varid) iret = nf_put_att_text(ncid2,varid,'units',5,'meter') iret = nf_put_att_text(ncid2,varid,'long_name',11,'River Stage') -#endif ! !- order definition, var iret = nf_def_var(ncid, "order", NF_INT, 1, (/dimdata/), varid) @@ -3953,12 +4182,12 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, convention(1:32) = "Unidata Observation Dataset v1.0" iret = nf_put_att_text(ncid, NF_GLOBAL, "Conventions",32, convention) iret = nf_put_att_text(ncid, NF_GLOBAL, "cdm_datatype",7, "Station") -#ifndef HYDRO_REALTIME + iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_max",4, "90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_min",5, "-90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_max",5, "180.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_min",6, "-180.0") -#endif + iret = nf_put_att_text(ncid, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) iret = nf_put_att_text(ncid, NF_GLOBAL, "station_dimension",7, "station") iret = nf_put_att_real(ncid, NF_GLOBAL, "missing_value", NF_FLOAT, 1, -9E15) @@ -3966,12 +4195,12 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, iret = nf_put_att_text(ncid2, NF_GLOBAL, "Conventions",32, convention) iret = nf_put_att_text(ncid2, NF_GLOBAL, "cdm_datatype",7, "Station") -#ifndef HYDRO_REALTIME + iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lat_max",4, "90.0") iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lat_min",5, "-90.0") iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lon_max",5, "180.0") iret = nf_put_att_text(ncid2, NF_GLOBAL, "geospatial_lon_min",6, "-180.0") -#endif + iret = nf_put_att_text(ncid2, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) iret = nf_put_att_text(ncid2, NF_GLOBAL, "station_dimension",7, "station") iret = nf_put_att_real(ncid2, NF_GLOBAL, "missing_value", NF_FLOAT, 1, -9E15) @@ -4050,18 +4279,31 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, iret = nf_put_vara_int(ncid, varid, (/1/), (/1/), seconds_since) if(UDMP_OPT .eq. 1) then - iret = nf_inq_varid(ncid,"accLndRunOff", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accLndRunOff(i)) - - iret = nf_inq_varid(ncid,"accQLateral", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accQLateral(i)) + !! FLUXES to channel + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + iret = nf_inq_varid(ncid,"qSfcLatRunoff", varid) + iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qSfcLatRunoff(i)) + + iret = nf_inq_varid(ncid,"qBucket", varid) + iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qBucket(i)) + end if - iret = nf_inq_varid(ncid,"accStrmvolrt", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accStrmvolrt(i)) + !! FLUXES to bucket + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) then + iret = nf_inq_varid(ncid,"qBtmVertRunoff", varid) + iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qBtmVertRunoff(i)) + end if - iret = nf_inq_varid(ncid,"accBucket", varid) - iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), accBucket(i)) - endif + !! ACCUMULATIONS + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + iret = nf_inq_varid(ncid,"accSfcLatRunoff", varid) + iret = nf_put_vara_double(ncid, varid, (/start_pos/), (/1/), accSfcLatRunoff(i)) + + iret = nf_inq_varid(ncid,"accBucket", varid) + iret = nf_put_vara_double(ncid, varid, (/start_pos/), (/1/), accBucket(i)) + end if + endif iret = nf_inq_varid(ncid,"streamflow", varid) iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qlink(i,1)) @@ -4074,10 +4316,8 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, ! iret = nf_inq_varid(ncid,"pos_streamflow", varid) ! iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), abs(qlink(i,1))) -#ifndef HYDRO_REALTIME iret = nf_inq_varid(ncid,"head", varid) iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), hlink(i)) -#endif iret = nf_inq_varid(ncid,"order", varid) iret = nf_put_vara_int(ncid, varid, (/start_pos/), (/1/), ORDER(i)) @@ -4113,11 +4353,11 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, !yw write(55,117) seconds_since,trim(date),cnt,chlon(i),chlat(i), & 118 FORMAT(I8,",",A10,1X,A8,", ",A15,",",F10.5,",",F8.5,",",F9.3,",",F12.3,",",F6.3) !write(55,118) seconds_since, date(1:10), date(12:19), & -#ifndef HYDRO_REALTIME + write(55,118) seconds_since, hydroTime(1:10), hydroTime(12:19), & gages(i), chlon(i), chlat(i), & qlink(i,1), qlink(i,1)*35.314666711511576, hlink(i) -#endif + !yw 117 FORMAT(I8,1X,A25,1X,I7,1X,F10.5,1X,F8.5,1X,F9.3,1x,F12.3,1X,F6.3) !yw 117 FORMAT(I8,1X,A10,1X,A8,1x,I7,1X,F10.5,1X,F8.5,1X,F9.3,1x,F12.3,1X,F6.3) @@ -4133,10 +4373,8 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, iret = nf_put_vara_real(ncid2, varid, (/start_posO/), (/1/), nudge(i)) #endif -#ifndef HYDRO_REALTIME iret = nf_inq_varid(ncid2,"head", varid) iret = nf_put_vara_real(ncid2, varid, (/start_posO/), (/1/), hlink(i)) -#endif iret = nf_inq_varid(ncid,"order", varid) iret = nf_put_vara_int(ncid2, varid, (/start_posO/), (/1/), ORDER(i)) @@ -4188,10 +4426,8 @@ subroutine output_chrt_bak(igrid, split_output_count, NLINKS, ORDER, iret = nf_inq_varid(ncid2,"streamflow", varid) iret = nf_put_vara_real(ncid2, varid, (/start_posO/), (/1/), qlink(i,1)) -#ifndef HYDRO_REALTIME iret = nf_inq_varid(ncid2,"head", varid) iret = nf_put_vara_real(ncid2, varid, (/start_posO/), (/1/), hlink(i)) -#endif iret = nf_inq_varid(ncid,"order", varid) iret = nf_put_vara_int(ncid2, varid, (/start_posO/), (/1/), ORDER(i)) @@ -4286,7 +4522,9 @@ subroutine mpp_output_chrt(gnlinks,gnlinksl,map_l2g,igrid, & #ifdef WRF_HYDRO_NUDGING , nudge & #endif - , accLndRunOff, accQLateral, accStrmvolrt, accBucket, UDMP_OPT & + , accSfcLatRunoff, accBucket & + , qSfcLatRunoff, qBucket, qBtmVertRunoff & + , UDMP_OPT & ) USE module_mpp_land @@ -4326,8 +4564,10 @@ subroutine mpp_output_chrt(gnlinks,gnlinksl,map_l2g,igrid, & real,allocatable,dimension(:,:) :: g_qlink integer :: gsize character(len=15),allocatable,dimension(:) :: g_gages - real,allocatable,dimension(:) :: g_accLndRunOff, g_accQLateral, g_accStrmvolrt, g_accBucket - real, dimension(:), intent(in) :: accLndRunOff, accQLateral, accStrmvolrt, accBucket + real*8, dimension(:), intent(in) :: accSfcLatRunoff, accBucket + real , dimension(:), intent(in) :: qSfcLatRunoff, qBucket, qBtmVertRunoff + real*8,allocatable,dimension(:) :: g_accSfcLatRunoff, g_accBucket + real ,allocatable,dimension(:) :: g_qSfcLatRunoff, g_qBucket, g_qBtmVertRunoff gsize = gNLINKS if(gnlinksl .gt. gsize) gsize = gnlinksl @@ -4344,17 +4584,35 @@ subroutine mpp_output_chrt(gnlinks,gnlinksl,map_l2g,igrid, & allocate(g_STRMFRXSTPTS(gsize )) allocate(g_gages(gsize)) - allocate(g_accLndRunOff(gsize )) - allocate(g_accQLateral(gsize )) - allocate(g_accStrmvolrt(gsize )) - allocate(g_accBucket(gsize )) + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + allocate(g_qSfcLatRunoff( gsize )) + allocate(g_qBucket( gsize )) + endif + + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) & + allocate(g_qBtmVertRunoff( gsize )) + + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + allocate(g_accSfcLatRunoff(gsize )) + allocate(g_accBucket( gsize )) + endif else - allocate(g_accLndRunOff(1)) - allocate(g_accQLateral(1)) - allocate(g_accStrmvolrt(1)) - allocate(g_accBucket(1)) + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + allocate(g_qSfcLatRunoff( 1)) + allocate(g_qBucket( 1)) + end if + + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) & + allocate(g_qBtmVertRunoff( 1)) + + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + allocate(g_accSfcLatRunoff(1)) + allocate(g_accBucket( 1)) + end if allocate(g_chlon(1)) allocate(g_chlat(1)) @@ -4384,15 +4642,24 @@ subroutine mpp_output_chrt(gnlinks,gnlinksl,map_l2g,igrid, & call ReachLS_write_io(chlon, g_chlon) call ReachLS_write_io(chlat, g_chlat) call ReachLS_write_io(zelev, g_zelev) -!yw This function does not work correctly for gages -!yw call ReachLS_write_io(gages, g_gages) + + call ReachLS_write_io(gages, g_gages) call ReachLS_write_io(STRMFRXSTPTS, g_STRMFRXSTPTS) call ReachLS_write_io(hlink, g_hlink) - call ReachLS_write_io(accLndRunOff, g_accLndRunOff) - call ReachLS_write_io(accQLateral, g_accQLateral) - call ReachLS_write_io(accStrmvolrt, g_accStrmvolrt) - call ReachLS_write_io(accBucket, g_accBucket) + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + call ReachLS_write_io(qSfcLatRunoff, g_qSfcLatRunoff) + call ReachLS_write_io(qBucket, g_qBucket) + end if + + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) & + call ReachLS_write_io(qBtmVertRunoff, g_qBtmVertRunoff) + + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + call ReachLS_write_io(accSfcLatRunoff, g_accSfcLatRunoff) + call ReachLS_write_io(accBucket, g_accBucket) + end if else call write_chanel_real(qlink(:,1),map_l2g,gnlinks,nlinks,g_qlink(:,1)) @@ -4414,7 +4681,9 @@ subroutine mpp_output_chrt(gnlinks,gnlinksl,map_l2g,igrid, & #ifdef WRF_HYDRO_NUDGING , g_nudge & #endif - , g_accLndRunOff, g_accQLateral, g_accStrmvolrt, g_accBucket, UDMP_OPT & + , g_accSfcLatRunoff, g_accBucket & + , g_qSfcLatRunoff, g_qBucket, g_qBtmVertRunoff & + , UDMP_OPT & ) end if @@ -4430,10 +4699,11 @@ subroutine mpp_output_chrt(gnlinks,gnlinksl,map_l2g,igrid, & #ifdef WRF_HYDRO_NUDGING if(allocated(g_nudge)) deallocate(g_nudge) #endif - if(allocated(g_accLndRunOff)) deallocate(g_accLndRunOff) - if(allocated(g_accQLateral)) deallocate(g_accQLateral) - if(allocated(g_accStrmvolrt)) deallocate(g_accStrmvolrt) - if(allocated(g_accBucket)) deallocate(g_accBucket) + if(allocated(g_qSfcLatRunoff)) deallocate(g_qSfcLatRunoff) + if(allocated(g_qBucket)) deallocate(g_qBucket) + if(allocated(g_qBtmVertRunoff)) deallocate(g_qBtmVertRunoff) + if(allocated(g_accSfcLatRunoff)) deallocate(g_accSfcLatRunoff) + if(allocated(g_accBucket)) deallocate(g_accBucket) end subroutine mpp_output_chrt @@ -4483,8 +4753,8 @@ subroutine mpp_output_lakes2(lake_index,igrid, split_output_count, NLAKES, & integer, intent(in) :: igrid, K integer, intent(in) :: split_output_count integer, intent(in) :: NLAKES - real, dimension(NLAKES), intent(in) :: latlake,lonlake,elevlake,resht - real, dimension(NLAKES), intent(in) :: qlakei,qlakeo !-- inflow and outflow of lake + real, dimension(NLAKES), intent(inout) :: latlake,lonlake,elevlake,resht + real, dimension(NLAKES), intent(inout) :: qlakei,qlakeo !-- inflow and outflow of lake real, intent(in) :: dtrt_ch integer, dimension(NLAKES), intent(in) :: LAKEIDM ! lake id @@ -4555,7 +4825,7 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & ! sec_since_date = 'seconds since '//date(1:4)//'-'//date(6:7)//'-'//date(9:10)//' '//date(12:13)//':'//date(15:16)//' UTC' ! seconds_since = int(dtrt_ch)*output_count - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' @@ -4597,7 +4867,7 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & iret = nf_def_dim(ncid, "station", nlakes, stationdim) iret = nf_def_dim(ncid, "time", 1, timedim) -#ifndef HYDRO_REALTIME +!#ifndef HYDRO_REALTIME !- station location definition, lat iret = nf_def_var(ncid,"latitude",NF_FLOAT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',13,'Lake latitude') @@ -4609,29 +4879,29 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & iret = nf_put_att_text(ncid,varid,'units',12,'degrees_east') ! !-- lake's phyical elevation - iret = nf_def_var(ncid,"altitude",NF_FLOAT, 1, (/stationdim/), varid) - iret = nf_put_att_text(ncid,varid,'long_name',13,'Lake altitude') - iret = nf_put_att_text(ncid,varid,'units',6,'meters') -#endif +! iret = nf_def_var(ncid,"altitude",NF_FLOAT, 1, (/stationdim/), varid) +! iret = nf_put_att_text(ncid,varid,'long_name',13,'Lake altitude') +! iret = nf_put_att_text(ncid,varid,'units',6,'meters') +!#endif !-- parent index - iret = nf_def_var(ncid,"parent_index",NF_INT,1,(/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'long_name',33,'index of the lake for this record') +! iret = nf_def_var(ncid,"parent_index",NF_INT,1,(/dimdata/), varid) +! iret = nf_put_att_text(ncid,varid,'long_name',33,'index of the lake for this record') !-- prevChild - iret = nf_def_var(ncid,"prevChild",NF_INT,1,(/dimdata/), varid) - iret = nf_put_att_text(ncid,varid,'long_name',54,'record number of the previous record for the same lake') +! iret = nf_def_var(ncid,"prevChild",NF_INT,1,(/dimdata/), varid) +! iret = nf_put_att_text(ncid,varid,'long_name',54,'record number of the previous record for the same lake') !ywtmp iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) - iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) +! iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) !-- lastChild - iret = nf_def_var(ncid,"lastChild",NF_INT,1,(/stationdim/), varid) - iret = nf_put_att_text(ncid,varid,'long_name',27,'latest report for this lake') +! iret = nf_def_var(ncid,"lastChild",NF_INT,1,(/stationdim/), varid) +! iret = nf_put_att_text(ncid,varid,'long_name',27,'latest report for this lake') !ywtmp iret = nf_put_att_int(ncid,varid,'_FillValue',NF_INT,2,-1) - iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) +! iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) ! !- water surface elevation - iret = nf_def_var(ncid, "elevation", NF_FLOAT, 1, (/dimdata/), varid) + iret = nf_def_var(ncid, "wse", NF_FLOAT, 1, (/dimdata/), varid) iret = nf_put_att_text(ncid,varid,'units',6,'meters') iret = nf_put_att_text(ncid,varid,'long_name',23,'Water Surface Elevation') @@ -4665,12 +4935,12 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & convention(1:32) = "Unidata Observation Dataset v1.0" iret = nf_put_att_text(ncid, NF_GLOBAL, "Conventions",32, convention) iret = nf_put_att_text(ncid, NF_GLOBAL, "cdm_datatype",7, "Station") -#ifndef HYDRO_REALTIME +!#ifndef HYDRO_REALTIME iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_max",4, "90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_min",5, "-90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_max",5, "180.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_min",6, "-180.0") -#endif +!#endif iret = nf_put_att_text(ncid, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) iret = nf_put_att_text(ncid, NF_GLOBAL, "station_dimension",7, "station") !! iret = nf_put_att_text(ncid, NF_GLOBAL, "observation_dimension",6, "recNum") @@ -4678,7 +4948,7 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & iret = nf_put_att_real(ncid, NF_GLOBAL, "missing_value", NF_FLOAT, 1, -9E15) iret = nf_enddef(ncid) -#ifndef HYDRO_REALTIME +!#ifndef HYDRO_REALTIME !-- write latitudes iret = nf_inq_varid(ncid,"latitude", varid) iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), LATLAKE) @@ -4688,9 +4958,9 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), LONLAKE) !-- write physical height of lake - iret = nf_inq_varid(ncid,"altitude", varid) - iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), elevlake) -#endif +! iret = nf_inq_varid(ncid,"altitude", varid) +! iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), elevlake) +!#endif !-- write station id's do i=1,nlakes @@ -4718,7 +4988,7 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & iret = nf_inq_varid(ncid,"time_observation", varid) iret = nf_put_vara_int(ncid, varid, (/start_pos/), (/1/), seconds_since) - iret = nf_inq_varid(ncid,"elevation", varid) + iret = nf_inq_varid(ncid,"wse", varid) iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), resht(i)) iret = nf_inq_varid(ncid,"inflow", varid) @@ -4728,15 +4998,15 @@ subroutine output_lakes(igrid, split_output_count, NLAKES, & iret = nf_put_vara_real(ncid, varid, (/start_pos/), (/1/), qlakeo(i)) !-- station index.. will repeat for every timesstep - iret = nf_inq_varid(ncid,"parent_index", varid) - iret = nf_put_vara_int(ncid, varid, (/start_pos/), (/1/), cnt) +! iret = nf_inq_varid(ncid,"parent_index", varid) +! iret = nf_put_vara_int(ncid, varid, (/start_pos/), (/1/), cnt) !--record number of previous record for same station - prev_pos = cnt+(nlakes*(output_count-1)) - if(output_count.ne.1) then !-- only write next set of records - iret = nf_inq_varid(ncid,"prevChild", varid) - iret = nf_put_vara_int(ncid, varid, (/start_pos/), (/1/), prev_pos) - endif +! prev_pos = cnt+(nlakes*(output_count-1)) +! if(output_count.ne.1) then !-- only write next set of records +! iret = nf_inq_varid(ncid,"prevChild", varid) +! iret = nf_put_vara_int(ncid, varid, (/start_pos/), (/1/), prev_pos) +! endif cnt=cnt+1 !--indices are 0 based rec_num_of_lake(cnt) = start_pos-1 !-- save position for last child, 0-based!! @@ -4805,8 +5075,7 @@ subroutine output_lakes2(igrid, split_output_count, NLAKES, & sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' - - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) if (output_count == 0) then @@ -4833,31 +5102,31 @@ subroutine output_lakes2(igrid, split_output_count, NLAKES, & iret = nf_def_dim(ncid, "time", 1, timedim) -#ifndef HYDRO_REALTIME +!#ifndef HYDRO_REALTIME !- station location definition, lat iret = nf_def_var(ncid,"latitude",NF_FLOAT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',13,'Lake latitude') iret = nf_put_att_text(ncid,varid,'units',13,'degrees_north') -#endif +!#endif !- station location definition, LAKEIDM iret = nf_def_var(ncid,"lake_id",NF_INT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',14,'Lake COMMON ID') -#ifndef HYDRO_REALTIME +!#ifndef HYDRO_REALTIME !- station location definition, long iret = nf_def_var(ncid,"longitude",NF_FLOAT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',14,'Lake longitude') iret = nf_put_att_text(ncid,varid,'units',12,'degrees_east') ! !-- lake's phyical elevation - iret = nf_def_var(ncid,"altitude",NF_FLOAT, 1, (/stationdim/), varid) - iret = nf_put_att_text(ncid,varid,'long_name',13,'Lake altitude') - iret = nf_put_att_text(ncid,varid,'units',6,'meters') -#endif +! iret = nf_def_var(ncid,"altitude",NF_FLOAT, 1, (/stationdim/), varid) +! iret = nf_put_att_text(ncid,varid,'long_name',13,'Lake altitude') +! iret = nf_put_att_text(ncid,varid,'units',6,'meters') +!#endif ! !- water surface elevation - iret = nf_def_var(ncid, "elevation", NF_FLOAT, 1, (/stationdim/), varid) + iret = nf_def_var(ncid, "wse", NF_FLOAT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'units',6,'meters') iret = nf_put_att_text(ncid,varid,'long_name',23,'Water Surface Elevation') @@ -4876,12 +5145,12 @@ subroutine output_lakes2(igrid, split_output_count, NLAKES, & date19(1:19) = "0000-00-00_00:00:00" date19(1:len_trim(startdate)) = startdate -#ifndef HYDRO_REALTIME +!#ifndef HYDRO_REALTIME iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_max",4, "90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_min",5, "-90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_max",5, "180.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_min",6, "-180.0") -#endif +!#endif iret = nf_put_att_text(ncid, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) iret = nf_put_att_real(ncid, NF_GLOBAL, "missing_value", NF_FLOAT, 1, -9E15) iret = nf_enddef(ncid) @@ -4889,7 +5158,7 @@ subroutine output_lakes2(igrid, split_output_count, NLAKES, & iret = nf_inq_varid(ncid,"time", varid) iret = nf_put_vara_int(ncid, varid, (/1/), (/1/), seconds_since) -#ifndef HYDRO_REALTIME +!#ifndef HYDRO_REALTIME !-- write latitudes iret = nf_inq_varid(ncid,"latitude", varid) iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), LATLAKE) @@ -4899,12 +5168,12 @@ subroutine output_lakes2(igrid, split_output_count, NLAKES, & iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), LONLAKE) !-- write physical height of lake - iret = nf_inq_varid(ncid,"altitude", varid) - iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), elevlake) -#endif +! iret = nf_inq_varid(ncid,"altitude", varid) +! iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), elevlake) +!#endif !-- write elevation of lake - iret = nf_inq_varid(ncid,"elevation", varid) + iret = nf_inq_varid(ncid,"wse", varid) iret = nf_put_vara_real(ncid, varid, (/1/), (/NLAKES/), resht ) !-- write elevation of inflow @@ -4924,9 +5193,8 @@ subroutine output_lakes2(igrid, split_output_count, NLAKES, & output_count = output_count + 1 - iret = nf_redef(ncid) - - iret = nf_put_att_text(ncid, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) + iret = nf_redef(ncid) + iret = nf_put_att_text(ncid, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) iret = nf_put_att_text(ncid, NF_GLOBAL, "model_output_valid_time", 19, trim(nlst_rt(1)%olddate)) iret = nf_enddef(ncid) @@ -5027,7 +5295,7 @@ subroutine output_chrtgrd(igrid, split_output_count, ixrt,jxrt, & integer :: seconds_since - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' @@ -5131,7 +5399,8 @@ subroutine read_chan_forcing( & indir,olddate,startdate,hgrid,& ixrt,jxrt,QSTRMVOLRT_ACC,QINFLOWBASE,QSUBRT) ! This subrouting is going to read channel forcing for -! channel only simulations (ie when CHANRTSWCRT = 2) +! the old, channel-only simulations (ie when CHANRTSWCRT = 2) +! forced by RTOUT_DOMAIN files. implicit none #include @@ -5228,7 +5497,7 @@ end subroutine get2d_int SUBROUTINE MPP_READ_ROUTEDIM(did,g_IXRT,g_JXRT, GCH_NETLNK,GNLINKS,IXRT,JXRT, & route_chan_f,route_link_f, & route_direction_f, NLINKS, & - CH_NETLNK, channel_option, geo_finegrid_flnm, NLINKSL, UDMP_OPT) + CH_NETLNK, channel_option, geo_finegrid_flnm, NLINKSL, UDMP_OPT,NLAKES) USE module_mpp_land @@ -5248,10 +5517,10 @@ SUBROUTINE MPP_READ_ROUTEDIM(did,g_IXRT,g_JXRT, GCH_NETLNK,GNLINKS,IXRT,JXRT, & INTEGER, DIMENSION(IXRT,JXRT) :: LAKE_MSKRT REAL, DIMENSION(IXRT,JXRT) :: LAT, LON INTEGER, INTENT(IN) :: UDMP_OPT - integer:: i,j + integer:: i,j, NLAKES - CHARACTER(len=256) :: route_chan_f, route_link_f,route_direction_f - CHARACTER(len=256) :: geo_finegrid_flnm + CHARACTER(len=*) :: route_chan_f, route_link_f,route_direction_f + CHARACTER(len=*) :: geo_finegrid_flnm ! CHARACTER(len=*) :: geo_finegrid_flnm ! integer, allocatable, dimension(:) :: tmp_int @@ -5264,7 +5533,7 @@ SUBROUTINE MPP_READ_ROUTEDIM(did,g_IXRT,g_JXRT, GCH_NETLNK,GNLINKS,IXRT,JXRT, & g_CH_NETLNK = -9999 CALL READ_ROUTEDIM(g_IXRT, g_JXRT, route_chan_f, route_link_f, & route_direction_f, GNLINKS, & - g_CH_NETLNK, channel_option,geo_finegrid_flnm,NLINKSL, UDMP_OPT) + g_CH_NETLNK, channel_option,geo_finegrid_flnm,NLINKSL, UDMP_OPT,nlakes) call get_NLINKSL(NLINKSL, channel_option, route_link_f) else allocate(g_CH_NETLNK(1,1)) @@ -5272,6 +5541,7 @@ SUBROUTINE MPP_READ_ROUTEDIM(did,g_IXRT,g_JXRT, GCH_NETLNK,GNLINKS,IXRT,JXRT, & call mpp_land_bcast_int1(GNLINKS) call mpp_land_bcast_int1(NLINKSL) + call mpp_land_bcast_int1(NLAKES) call decompose_RT_int(g_CH_NETLNK,GCH_NETLNK,g_IXRT,g_JXRT,ixrt,jxrt) @@ -5328,9 +5598,9 @@ SUBROUTINE READ_ROUTING_seq(IXRT,JXRT,ELRT,CH_NETRT,CH_LNKRT,LKSATFAC,route_topo integer :: I,J, iret, jj, channel_option, UDMP_OPT CHARACTER(len=256) :: var_name - CHARACTER(len=*) :: route_topo_f - CHARACTER(len=*) :: route_chan_f - CHARACTER(len=*) :: geo_finegrid_flnm + CHARACTER(len=* ) :: route_topo_f + CHARACTER(len=* ) :: route_chan_f + CHARACTER(len=* ) :: geo_finegrid_flnm var_name = "TOPOGRAPHY" @@ -5461,9 +5731,9 @@ subroutine output_lsm(outFile,did) iret = nf_def_var(ncid,"sh2ox"//trim(tmpStr),NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) end do - iret = nf_def_var(ncid,"smcmax1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) - iret = nf_def_var(ncid,"smcref1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) - iret = nf_def_var(ncid,"smcwlt1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) + !iret = nf_def_var(ncid,"smcmax1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) + !iret = nf_def_var(ncid,"smcref1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) + !iret = nf_def_var(ncid,"smcwlt1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) iret = nf_def_var(ncid,"infxsrt",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) iret = nf_def_var(ncid,"sfcheadrt",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) @@ -5475,9 +5745,9 @@ subroutine output_lsm(outFile,did) call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%stc,"stc") call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%smc,"smc") call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%sh2ox,"sh2ox") - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCMAX1,"smcmax1") - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCREF1,"smcref1" ) - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCWLT1,"smcwlt1" ) + !call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCMAX1,"smcmax1") + !call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCREF1,"smcref1" ) + !call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCWLT1,"smcwlt1" ) call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%INFXSRT,"infxsrt" ) call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SFCHEADRT,"sfcheadrt" ) @@ -5526,7 +5796,7 @@ subroutine RESTART_OUT_nc(outFile,did) call flush(6) #endif #else - iret = nf_create(trim(outFile), IOR(NF_CLOBBER,NF_64BIT_OFFSET), ncid) + iret = nf_create(trim(outFile), ior(NF_CLOBBER,NF_64BIT_OFFSET), ncid) #ifdef HYDRO_D write(6,*) "yyywww using large netcdf file definition. " call flush(6) @@ -5545,6 +5815,10 @@ subroutine RESTART_OUT_nc(outFile,did) #ifdef MPP_LAND if(IO_id.eq.my_id) then #endif + + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + ! define dimension for variables iret = nf_def_dim(ncid, "depth", nlst_rt(did)%nsoil, dimid_soil) !-- 3-d soils @@ -5560,17 +5834,22 @@ subroutine RESTART_OUT_nc(outFile,did) iret = nf_def_dim(ncid, "iyrt", rt_domain(did)%jxrt, dimid_jxrt) #endif - if(nlst_rt(did)%channel_option .eq. 3) then - iret = nf_def_dim(ncid, "links", rt_domain(did)%gnlinks, dimid_links) - else - iret = nf_def_dim(ncid, "links", rt_domain(did)%gnlinksl, dimid_links) - endif - iret = nf_def_dim(ncid, "basns", rt_domain(did)%gnumbasns, dimid_basns) - if(rt_domain(did)%nlakes .gt. 0) then - iret = nf_def_dim(ncid, "lakes", rt_domain(did)%nlakes, dimid_lakes) - endif + endif ! neither channel_only nor channelBucket_only + + if(nlst_rt(did)%channel_option .eq. 3) then + iret = nf_def_dim(ncid, "links", rt_domain(did)%gnlinks, dimid_links) + else + iret = nf_def_dim(ncid, "links", rt_domain(did)%gnlinksl, dimid_links) + endif + iret = nf_def_dim(ncid, "basns", rt_domain(did)%gnumbasns, dimid_basns) + if(rt_domain(did)%nlakes .gt. 0) then + iret = nf_def_dim(ncid, "lakes", rt_domain(did)%nlakes, dimid_lakes) + endif + + !define variables + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then -!define variables do n = 1, nlst_rt(did)%nsoil if( n .lt. 10) then write(tmpStr, '(i1)') n @@ -5582,14 +5861,22 @@ subroutine RESTART_OUT_nc(outFile,did) iret = nf_def_var(ncid,"sh2ox"//trim(tmpStr),NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) end do - iret = nf_def_var(ncid,"smcmax1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) - iret = nf_def_var(ncid,"smcref1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) - iret = nf_def_var(ncid,"smcwlt1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) + !iret = nf_def_var(ncid,"smcmax1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) + !iret = nf_def_var(ncid,"smcref1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) + !iret = nf_def_var(ncid,"smcwlt1",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) iret = nf_def_var(ncid,"infxsrt",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) iret = nf_def_var(ncid,"soldrain",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) iret = nf_def_var(ncid,"sfcheadrt",NF_FLOAT,2,(/dimid_ix,dimid_jx/),varid) - if(nlst_rt(did)%SUBRTSWCRT.EQ.1.OR.nlst_rt(did)%OVRTSWCRT.EQ.1 .or. nlst_rt(did)%GWBASESWCRT .ne. 0) then + end if ! neither channel_only nor channelBucket_only + + if(nlst_rt(did)%SUBRTSWCRT .eq. 1 .or. & + nlst_rt(did)%OVRTSWCRT .eq. 1 .or. & + nlst_rt(did)%GWBASESWCRT .ne. 0 ) then + + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + iret = nf_def_var(ncid,"QBDRYRT",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) iret = nf_def_var(ncid,"infxswgt",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) iret = nf_def_var(ncid,"sfcheadsubrt",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) @@ -5602,38 +5889,53 @@ subroutine RESTART_OUT_nc(outFile,did) iret = nf_def_var(ncid,"sh2owgt"//trim(tmpStr),NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) end do iret = nf_def_var(ncid,"qstrmvolrt",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) - iret = nf_def_var(ncid,"RETDEPRT",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) + !AD_CHANGE: Not needed in RESTART + !iret = nf_def_var(ncid,"RETDEPRT",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) + end if ! neither channel_only nor channelBucket_only + if(nlst_rt(did)%CHANRTSWCRT.eq.1) then + if(nlst_rt(did)%channel_option .eq. 3) & + iret = nf_def_var(ncid,"hlink",NF_FLOAT,1,(/dimid_links/),varid) + iret = nf_def_var(ncid,"qlink1",NF_FLOAT,1,(/dimid_links/),varid) + iret = nf_def_var(ncid,"qlink2",NF_FLOAT,1,(/dimid_links/),varid) + if(nlst_rt(did)%channel_option .eq. 3) & + iret = nf_def_var(ncid,"cvol",NF_FLOAT,1,(/dimid_links/),varid) + if(rt_domain(did)%nlakes .gt. 0) then + iret = nf_def_var(ncid,"resht",NF_FLOAT,1,(/dimid_lakes/),varid) + iret = nf_def_var(ncid,"qlakeo",NF_FLOAT,1,(/dimid_lakes/),varid) + iret = nf_def_var(ncid,"qlakei",NF_FLOAT,1,(/dimid_lakes/),varid) + endif + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) & + iret = nf_def_var(ncid,"lake_inflort",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) + + !! JLM: who wants these? They can be put back if someone cares. + !! But just calculate accQLateral locally so the redundant variable isnt held in + !! memory with all the other variables + !if(nlst_rt(did)%UDMP_OPT .eq. 1) then + ! iret = nf_def_var(ncid,"accSfcLatRunoff",NF_DOUBLE,1,(/dimid_links/),varid) + ! iret = nf_def_var(ncid,"accQLateral", NF_DOUBLE,1,(/dimid_links/),varid) + ! iret = nf_def_var(ncid,"qSfcLatRunoff",NF_DOUBLE,1,(/dimid_links/),varid) + ! iret = nf_def_var(ncid,"accBucket", NF_DOUBLE,1,(/dimid_links/),varid) + !endif + + end if ! CHANRTSWCRT .eq. 1 + if(nlst_rt(did)%GWBASESWCRT.eq.1) then - if(nlst_rt(did)%CHANRTSWCRT.EQ.1) then - iret = nf_def_var(ncid,"hlink",NF_FLOAT,1,(/dimid_links/),varid) - iret = nf_def_var(ncid,"qlink1",NF_FLOAT,1,(/dimid_links/),varid) - iret = nf_def_var(ncid,"qlink2",NF_FLOAT,1,(/dimid_links/),varid) - iret = nf_def_var(ncid,"cvol",NF_FLOAT,1,(/dimid_links/),varid) - if(rt_domain(did)%nlakes .gt. 0) then - iret = nf_def_var(ncid,"resht",NF_FLOAT,1,(/dimid_lakes/),varid) - iret = nf_def_var(ncid,"qlakeo",NF_FLOAT,1,(/dimid_lakes/),varid) - endif - iret = nf_def_var(ncid,"lake_inflort",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - iret = nf_def_var(ncid,"accLndRunOff",NF_FLOAT,1,(/dimid_links/),varid) - iret = nf_def_var(ncid,"accQLateral",NF_FLOAT,1,(/dimid_links/),varid) - iret = nf_def_var(ncid,"accStrmvolrt",NF_FLOAT,1,(/dimid_links/),varid) - iret = nf_def_var(ncid,"accBucket",NF_FLOAT,1,(/dimid_links/),varid) - endif - end if - if(nlst_rt(did)%GWBASESWCRT.EQ.1) then + if( nlst_rt(did)%channel_only .eq. 0) then - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - iret = nf_def_var(ncid,"z_gwsubbas",NF_FLOAT,1,(/dimid_links/),varid) - else - iret = nf_def_var(ncid,"z_gwsubbas",NF_FLOAT,1,(/dimid_basns/),varid) - endif + if(nlst_rt(did)%UDMP_OPT .eq. 1) then + iret = nf_def_var(ncid,"z_gwsubbas",NF_FLOAT,1,(/dimid_links/),varid) + else + iret = nf_def_var(ncid,"z_gwsubbas",NF_FLOAT,1,(/dimid_basns/),varid) + endif + end if ! not channel_only : dont use buckets in channel only runs + !yw test bucket model ! iret = nf_def_var(ncid,"gwbas_pix_ct",NF_FLOAT,1,(/dimid_basns/),varid) ! iret = nf_def_var(ncid,"gw_buck_exp",NF_FLOAT,1,(/dimid_basns/),varid) @@ -5642,132 +5944,154 @@ subroutine RESTART_OUT_nc(outFile,did) ! iret = nf_def_var(ncid,"qin_gwsubbas",NF_FLOAT,1,(/dimid_basns/),varid) ! iret = nf_def_var(ncid,"qinflowbase",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) ! iret = nf_def_var(ncid,"qout_gwsubbas",NF_FLOAT,1,(/dimid_basns/),varid) - end if - if(nlst_rt(did)%gwBaseSwCRT .eq. 3)then - iret = nf_def_var(ncid,"HEAD",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) - end if - end if + end if ! GWBASESWCRT .eq.1 + + !! What is this option?? + if(nlst_rt(did)%gwBaseSwCRT .eq. 3)then + iret = nf_def_var(ncid,"HEAD",NF_FLOAT,2,(/dimid_ixrt,dimid_jxrt/),varid) + end if + + end if ! end if(nlst_rt(did)%SUBRTSWCRT .eq. 1 .or. & +! nlst_rt(did)%OVRTSWCRT .eq. 1 .or. & +! nlst_rt(did)%GWBASESWCRT .ne. 0 ) -! put global attribute - iret = nf_put_att_int(ncid,NF_GLOBAL,"his_out_counts",NF_INT, 1,rt_domain(did)%his_out_counts) - iret = nf_put_att_text(ncid,NF_GLOBAL,"Restart_Time",19,nlst_rt(did)%olddate(1:19)) - iret = nf_put_att_text(ncid,NF_GLOBAL,"Since_Date",19,nlst_rt(did)%sincedate(1:19)) - iret = nf_put_att_real(ncid,NF_GLOBAL,"DTCT",NF_REAL, 1,nlst_rt(did)%DTCT) - iret = nf_enddef(ncid) + ! put global attribute + iret = nf_put_att_int(ncid,NF_GLOBAL,"his_out_counts",NF_INT, 1,rt_domain(did)%his_out_counts) + iret = nf_put_att_text(ncid,NF_GLOBAL,"Restart_Time",19,nlst_rt(did)%olddate(1:19)) + iret = nf_put_att_text(ncid,NF_GLOBAL,"Since_Date",19,nlst_rt(did)%sincedate(1:19)) + iret = nf_put_att_real(ncid,NF_GLOBAL,"DTCT",NF_REAL, 1,nlst_rt(did)%DTCT) + iret = nf_put_att_int(ncid, NF_GLOBAL, "channel_only", NF_INT, 1, & + nlst_rt(did)%channel_only) + iret = nf_put_att_int(ncid, NF_GLOBAL, "channelBucket_only", NF_INT, 1, & + nlst_rt(did)%channelBucket_only) + + !! end definition + iret = nf_enddef(ncid) + #ifdef MPP_LAND - endif +endif ! my_id .eq. io_id #endif - call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%stc,"stc") - call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%smc,"smc") - call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%sh2ox,"sh2ox") +if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCMAX1,"smcmax1") - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCREF1,"smcref1" ) - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCWLT1,"smcwlt1" ) - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%INFXSRT,"infxsrt" ) - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%soldrain,"soldrain" ) - call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%sfcheadrt,"sfcheadrt" ) + call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%stc,"stc") + call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%smc,"smc") + call w_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%sh2ox,"sh2ox") + !call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCMAX1,"smcmax1") + !call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCREF1,"smcref1" ) + !call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCWLT1,"smcwlt1" ) + call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%INFXSRT,"infxsrt" ) + call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%soldrain,"soldrain" ) + call w_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%sfcheadrt,"sfcheadrt" ) - if(nlst_rt(did)%SUBRTSWCRT.EQ.1.OR.nlst_rt(did)%OVRTSWCRT.EQ.1 .or. nlst_rt(did)%GWBASESWCRT .ne. 0) then - call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QBDRYRT, "QBDRYRT" ) - call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%INFXSWGT, "infxswgt" ) - call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%SFCHEADSUBRT, "SFCHEADSUBRT" ) - call w_rst_rt_nc3(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,nlst_rt(did)%nsoil,rt_domain(did)%SH2OWGT, "sh2owgt" ) - call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QSTRMVOLRT, "qstrmvolrt" ) - call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%RETDEPRT, "RETDEPRT" ) +end if ! neither channel_only nor channelBucket_only -!yw test +if(nlst_rt(did)%SUBRTSWCRT .eq. 1 .or. & + nlst_rt(did)%OVRTSWCRT .eq. 1 .or. & + nlst_rt(did)%GWBASESWCRT .ne. 0 ) then + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + + call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QBDRYRT, "QBDRYRT" ) + call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%INFXSWGT, "infxswgt" ) + call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%SFCHEADSUBRT, "sfcheadsubrt" ) + call w_rst_rt_nc3(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,nlst_rt(did)%nsoil,rt_domain(did)%SH2OWGT, "sh2owgt" ) + call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QSTRMVOLRT_ACC, "qstrmvolrt" ) + !AD_CHANGE: Not needed in RESTART + !call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%RETDEPRT, "RETDEPRT" ) -!yw test + end if ! neither channel_only nor channelBucket_only + if(nlst_rt(did)%CHANRTSWCRT.eq.1) then - if(nlst_rt(did)%CHANRTSWCRT.EQ.1) then - if(nlst_rt(did)%channel_option .eq. 3) then - call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%HLINK,"hlink" & -#ifdef MPP_LAND - ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & -#endif - ) - else - call w_rst_crt_reach(ncid,rt_domain(did)%HLINK, "hlink" & -#ifdef MPP_LAND - ,rt_domain(did)%gnlinksl& -#endif - ) - endif - if(nlst_rt(did)%channel_option .eq. 3) then - call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%QLINK(:,1),"qlink1" & + if(nlst_rt(did)%channel_option .eq. 3) then + call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%HLINK,"hlink" & #ifdef MPP_LAND - ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & -#endif - ) - else - call w_rst_crt_reach(ncid,rt_domain(did)%QLINK(:,1), "qlink1" & -#ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & + ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & #endif - ) - endif - - + ) +! JLM: currently hlink is not a prognostic variable for channel_options 1 & 2 +! else +! call w_rst_crt_reach(ncid,rt_domain(did)%HLINK, "hlink" & +!#ifdef MPP_LAND +! ,rt_domain(did)%gnlinksl& +!#endif +! ) + endif - if(nlst_rt(did)%channel_option .eq. 3) then - call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%QLINK(:,2),"qlink2" & + if(nlst_rt(did)%channel_option .eq. 3) then + call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%QLINK(:,1),"qlink1" & #ifdef MPP_LAND - ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & -#endif - ) - else - call w_rst_crt_reach(ncid,rt_domain(did)%QLINK(:,2), "qlink2" & -#ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & -#endif - ) - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call w_rst_crt_reach(ncid,rt_domain(did)%accLndRunOff, "accLndRunOff" & -#ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & + ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & #endif - ) - call w_rst_crt_reach(ncid,rt_domain(did)%accQLateral, "accQLateral" & -#ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & -#endif - ) - call w_rst_crt_reach(ncid,rt_domain(did)%accStrmvolrt, "accStrmvolrt" & -#ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & -#endif - ) - call w_rst_crt_reach(ncid,rt_domain(did)%accBucket, "accBucket" & + ) + else + call w_rst_crt_reach(ncid,rt_domain(did)%QLINK(:,1), "qlink1" & #ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & + ,rt_domain(did)%gnlinksl & #endif - ) - endif ! end if of UDMP_OPT .eq. 1 - endif - - - + ) + endif - if(nlst_rt(did)%channel_option .eq. 3) then - call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%cvol,"cvol" & + if(nlst_rt(did)%channel_option .eq. 3) then + call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%QLINK(:,2),"qlink2" & #ifdef MPP_LAND - ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & + ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & #endif - ) - else - call w_rst_crt_reach(ncid,rt_domain(did)%cvol, "cvol" & + ) + else + call w_rst_crt_reach(ncid,rt_domain(did)%QLINK(:,2), "qlink2" & #ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & + ,rt_domain(did)%gnlinksl & #endif - ) - endif + ) + +!! JLM If someone really wants the accumulated fluxes in the restart file, you can add them back. +!! But Calculate accQLateral locally +! if(nlst_rt(did)%UDMP_OPT .eq. 1) then +! call w_rst_crt_reach(ncid,rt_domain(did)%accSfcLatRunoff, "accSfcLatRunoff" & +!#ifdef MPP_LAND +! ,rt_domain(did)%gnlinksl & +!#endif +! ) +! call w_rst_crt_reach(ncid,rt_domain(did)%accQLateral, "accQLateral" & +!#ifdef MPP_LAND +! ,rt_domain(did)%gnlinksl & +!#endif +! ) +! call w_rst_crt_reach(ncid,rt_domain(did)%qSfcLatRunoff, "qSfcLatRunoff" & +!#ifdef MPP_LAND +! ,rt_domain(did)%gnlinksl & +!#endif +! ) +! call w_rst_crt_reach(ncid,rt_domain(did)%accBucket, "accBucket" & +!#ifdef MPP_LAND +! ,rt_domain(did)%gnlinksl & +!#endif +! ) +! endif ! end if of UDMP_OPT .eq. 1 + endif ! channel_option .eq. 3 + + + !! Cvol is not prognostic for Musk-cunge. + if(nlst_rt(did)%channel_option .eq. 3) then + call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%cvol,"cvol" & +#ifdef MPP_LAND + ,rt_domain(did)%map_l2g, rt_domain(did)%gnlinks & +#endif + ) +! else +! call w_rst_crt_reach(ncid,rt_domain(did)%cvol, "cvol" & +!#ifdef MPP_LAND +! ,rt_domain(did)%gnlinksl & +!#endif +! ) + endif ! call w_rst_crt_nc1(ncid,rt_domain(did)%nlinks,rt_domain(did)%resht,"resht" & @@ -5777,37 +6101,49 @@ subroutine RESTART_OUT_nc(outFile,did) ! ) - call w_rst_crt_nc1_lake(ncid,rt_domain(did)%nlakes,rt_domain(did)%resht,"resht" & + call w_rst_crt_nc1_lake(ncid,rt_domain(did)%nlakes,rt_domain(did)%resht,"resht" & #ifdef MPP_LAND - ,rt_domain(did)%lake_index & + ,rt_domain(did)%lake_index & #endif - ) + ) - call w_rst_crt_nc1_lake(ncid,rt_domain(did)%nlakes,rt_domain(did)%qlakeo,"qlakeo" & + call w_rst_crt_nc1_lake(ncid,rt_domain(did)%nlakes,rt_domain(did)%qlakeo,"qlakeo" & #ifdef MPP_LAND - ,rt_domain(did)%lake_index & + ,rt_domain(did)%lake_index & #endif - ) + ) + call w_rst_crt_nc1_lake(ncid,rt_domain(did)%nlakes,rt_domain(did)%qlakei,"qlakei" & +#ifdef MPP_LAND + ,rt_domain(did)%lake_index & +#endif + ) + + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) & + call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%LAKE_INFLORT,"lake_inflort") - call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%LAKE_INFLORT,"lake_inflort") + end if ! if(nlst_rt(did)%CHANRTSWCRT.eq.1) - end if + if(nlst_rt(did)%GWBASESWCRT.eq.1) then + !call w_rst_crt_nc1g(ncid,rt_domain(did)%numbasns,rt_domain(did)%z_gwsubbas,"z_gwsubbas" ) + if( nlst_rt(did)%channel_only .eq. 0) then - if(nlst_rt(did)%GWBASESWCRT.EQ.1) then -! call w_rst_crt_nc1g(ncid,rt_domain(did)%numbasns,rt_domain(did)%z_gwsubbas,"z_gwsubbas" ) - if(nlst_rt(did)%UDMP_OPT .eq. 1) then + if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call w_rst_crt_reach(ncid,rt_domain(did)%z_gwsubbas, "z_gwsubbas" & + call w_rst_crt_reach(ncid,rt_domain(did)%z_gwsubbas, "z_gwsubbas" & #ifdef MPP_LAND - ,rt_domain(did)%gnlinksl & + ,rt_domain(did)%gnlinksl & #endif - ) - else - call w_rst_gwbucket_real(ncid,rt_domain(did)%numbasns,rt_domain(did)%gnumbasns, & - rt_domain(did)%basnsInd, rt_domain(did)%z_gwsubbas,"z_gwsubbas" ) - endif + ) + else + call w_rst_gwbucket_real(ncid,rt_domain(did)%numbasns,rt_domain(did)%gnumbasns, & + rt_domain(did)%basnsInd, rt_domain(did)%z_gwsubbas,"z_gwsubbas" ) + endif + + end if ! not channel_only : dont use buckets in channel only runs + !yw test bucket model ! call w_rst_crt_nc1g(ncid,rt_domain(did)%numbasns,rt_domain(did)%gwbas_pix_ct,"gwbas_pix_ct" ) ! call w_rst_crt_nc1g(ncid,rt_domain(did)%numbasns,rt_domain(did)%gw_buck_exp,"gw_buck_exp" ) @@ -5816,11 +6152,18 @@ subroutine RESTART_OUT_nc(outFile,did) ! call w_rst_crt_nc1g(ncid,rt_domain(did)%numbasns,rt_domain(did)%qin_gwsubbas,"qin_gwsubbas" ) ! call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%qinflowbase,"qinflowbase") ! call w_rst_crt_nc1g(ncid,rt_domain(did)%numbasns,rt_domain(did)%qout_gwsubbas,"qout_gwsubbas" ) - end if - if(nlst_rt(did)%GWBASESWCRT.EQ.3) then - call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,gw2d(did)%ho, "HEAD" ) - end if - end if + end if ! GWBASESWCRT .eq. 1 + + if(nlst_rt(did)%GWBASESWCRT.eq.3) then + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) & + call w_rst_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,gw2d(did)%ho, "HEAD" ) + end if + +end if ! end if(nlst_rt(did)%SUBRTSWCRT .eq. 1 .or. & +! nlst_rt(did)%OVRTSWCRT .eq. 1 .or. & +! nlst_rt(did)%GWBASESWCRT .ne. 0 ) + #ifdef MPP_LAND if(IO_id.eq.my_id) & @@ -5876,6 +6219,7 @@ subroutine RESTART_OUT_bi(outFile,did) write(iunit,ERR=101) rt_domain(did)%cvol write(iunit,ERR=101) rt_domain(did)%resht write(iunit,ERR=101) rt_domain(did)%qlakeo + write(iunit,ERR=101) rt_domain(did)%qlakei write(iunit,ERR=101) rt_domain(did)%LAKE_INFLORT end if if(nlst_rt(did)%GWBASESWCRT.EQ.1) then @@ -5886,8 +6230,9 @@ subroutine RESTART_OUT_bi(outFile,did) write(iunit,ERR=101) rt_domain(did)%INFXSWGT write(iunit,ERR=101) rt_domain(did)%SFCHEADSUBRT write(iunit,ERR=101) rt_domain(did)%SH2OWGT - write(iunit,ERR=101) rt_domain(did)%QSTRMVOLRT - write(iunit,ERR=101) rt_domain(did)%RETDEPRT + write(iunit,ERR=101) rt_domain(did)%QSTRMVOLRT_ACC + !AD_CHANGE: Not needed in RESTART + !write(iunit,ERR=101) rt_domain(did)%RETDEPRT endif end if @@ -5968,6 +6313,7 @@ subroutine RESTART_in_bi(inFileTmp,did) read(iunit,ERR=101) rt_domain(did)%cvol read(iunit,ERR=101) rt_domain(did)%resht read(iunit,ERR=101) rt_domain(did)%qlakeo + read(iunit,ERR=101) rt_domain(did)%qlakei read(iunit,ERR=101) rt_domain(did)%LAKE_INFLORT end if if(nlst_rt(did)%GWBASESWCRT.EQ.1) then @@ -5978,7 +6324,9 @@ subroutine RESTART_in_bi(inFileTmp,did) read(iunit,ERR=101) rt_domain(did)%INFXSWGT read(iunit,ERR=101) rt_domain(did)%SFCHEADSUBRT read(iunit,ERR=101) rt_domain(did)%SH2OWGT - read(iunit,ERR=101) rt_domain(did)%QSTRMVOLRT + read(iunit,ERR=101) rt_domain(did)%QSTRMVOLRT_ACC + !AD_CHANGE: This is overwriting the RETDEPRTFAC version, so causes issues when changing that factor. + !No need to have in restart since live calculated. !read(iunit,ERR=101) rt_domain(did)%RETDEPRT endif end if @@ -6011,7 +6359,11 @@ subroutine w_rst_rt_nc2(ncid,ix,jx,inVar,varName) call write_IO_rt_real(inVar,varTmp) if(my_id .eq. IO_id) then iret = nf_inq_varid(ncid,varName, varid) - iret = nf_put_vara_real(ncid, varid, (/1,1/), (/global_rt_nx,global_rt_ny/),varTmp) + if(iret .eq. 0) then + iret = nf_put_vara_real(ncid, varid, (/1,1/), (/global_rt_nx,global_rt_ny/),varTmp) + else + write(6,*) "Error: variable not defined in rst file before write: ", varName + endif endif if(allocated(varTmp)) deallocate(varTmp) #else @@ -6142,7 +6494,7 @@ subroutine w_rst_crt_nc1_lake(ncid,n,inVar,varName & return end subroutine w_rst_crt_nc1_lake - subroutine w_rst_crt_reach(ncid,inVar,varName & + subroutine w_rst_crt_reach_real(ncid,inVar,varName & #ifdef MPP_LAND , gnlinksl& #endif @@ -6174,7 +6526,44 @@ subroutine w_rst_crt_reach(ncid,inVar,varName & iret = nf_put_vara_real(ncid, varid, (/1/), (/n/),inVar) #endif return - end subroutine w_rst_crt_reach + end subroutine w_rst_crt_reach_real + + + subroutine w_rst_crt_reach_real8(ncid,inVar,varName & +#ifdef MPP_LAND + , gnlinksl& +#endif + ) + implicit none + integer:: ncid,varid , iret, n + character(len=*) varName + real*8, dimension(:) :: inVar + +#ifdef MPP_LAND + integer:: gnlinksl + real*8,allocatable,dimension(:) :: g_var + if(my_id .eq. io_id) then + allocate(g_var(gnlinksl)) + g_var = 0 + else + allocate(g_var(1) ) + endif + + call ReachLS_write_io(inVar, g_var) + if(my_id .eq. IO_id) then + iret = nf_inq_varid(ncid,varName, varid) + iret = nf_put_vara_double(ncid, varid, (/1/), (/gnlinksl/),g_var) + endif + if(allocated(g_var)) deallocate(g_var) +#else + n = size(inVar,1) + iret = nf_inq_varid(ncid,varName, varid) + iret = nf_put_vara_double(ncid, varid, (/1/), (/n/),inVar) +#endif + return + end subroutine w_rst_crt_reach_real8 + + subroutine w_rst_crt_nc1(ncid,n,inVar,varName & #ifdef MPP_LAND @@ -6259,143 +6648,251 @@ subroutine read_rst_gwbucket_real(ncid,outV,numbasns,& end do end subroutine read_rst_gwbucket_real - subroutine RESTART_IN_NC(inFile,did) - implicit none - character(len=*) inFile - integer :: ierr, iret,ncid, did +subroutine RESTART_IN_NC(inFile,did) - integer :: i, j +implicit none +character(len=*) inFile +integer :: ierr, iret,ncid, did +integer :: channel_only_in, channelBucket_only_in +integer :: i, j #ifdef MPP_LAND - if(IO_id .eq. my_id) then +if(IO_id .eq. my_id) then #endif !open a netcdf file - iret = nf_open(trim(inFile), NF_NOWRITE, ncid) + iret = nf_open(trim(inFile), NF_NOWRITE, ncid) #ifdef MPP_LAND - endif - call mpp_land_bcast_int1(iret) +endif +call mpp_land_bcast_int1(iret) #endif - if (iret /= 0) then - write(*,'("Problem opening file: ''", A, "''")') & - trim(inFile) - call hydro_stop("In RESTART_IN_NC() - Problem opening file") - endif +if (iret /= 0) then + write(*,'("Problem opening file: ''", A, "''")') & + trim(inFile) + call hydro_stop("In RESTART_IN_NC() - Problem opening file") +endif #ifdef MPP_LAND - if(IO_id .eq. my_id) then +if(IO_id .eq. my_id) then #endif - iret = NF_GET_ATT_INT(ncid, NF_GLOBAL, 'his_out_counts', rt_domain(did)%his_out_counts) - iret = NF_GET_ATT_REAL(ncid, NF_GLOBAL, 'DTCT', nlst_rt(did)%DTCT) - iret = nf_get_att_text(ncid,NF_GLOBAL,"Since_Date",nlst_rt(did)%sincedate(1:19)) - if(iret /= 0) nlst_rt(did)%sincedate = nlst_rt(did)%startdate - if(nlst_rt(did)%DTCT .gt. 0) then - nlst_rt(did)%DTCT = min(nlst_rt(did)%DTCT, nlst_rt(did)%DTRT_CH) - else - nlst_rt(did)%DTCT = nlst_rt(did)%DTRT_CH - endif + + !! Dont use a restart from a channel_only run if you're not running channel_only + iret = nf_get_att_int(ncid, NF_GLOBAL, "channel_only", channel_only_in) + if(iret .eq. 0) then !! If channel_only attribute prsent, then proceed with this logic + + iret = nf_get_att_int(ncid, NF_GLOBAL, "channelBucket_only", channelBucket_only_in) + + iret=0 ! borrow the variable for our own error flagging + !! Hierarchy of model restarting ability. + !! 1) Full model restarts: all model runs (full, channel_only and channelBucket_only) + !! No test needed here. + + !! 2) channelBucket_only restarts: channelBucket_only and channel_only runs + if(channelBucket_only_in .eq. 1) then + if(nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) iret=1 + end if + + !! 3) channel_only restarts: only channel_only runs + if(channel_only_in .eq. 1) then + if(nlst_rt(did)%channel_only .eq. 0) iret=1 + end if + + if(iret .eq. 1) then + + !! JLM Why dont we adopt this strategy elsewhere, e.g. define logUnit as a module variable. + !! JLM Would massively cut down on #ifdefs and repetitive code in certain parts of the code. +#ifdef NCEP_WCOSS + logUnit=78 +#else + logUnit=6 +#endif + + write(logUnit,*) 'Restart is not respecting the hierarchy of model restarting ability:' + write(logUnit,*) '1) Full model restarts: all model runs (full, channel_only and channelBucket_only),' + write(logUnit,*) '2) channelBucket_only restarts: channelBucket_only and channel_only runs,' + write(logUnit,*) '3) channel_only restarts: only channel_only runs.' + write(logUnit,*) 'Diagnostics:' + write(logUnit,*) 'channel_only restart present:', channel_only_in + write(logUnit,*) 'channel_only run:', nlst_rt(did)%channel_only + write(logUnit,*) 'channelBucket_only restart present:', channelBucket_only_in + write(logUnit,*) 'channelBucket_only run:', nlst_rt(did)%channelBucket_only + call flush(logUnit) + + call hydro_stop('Channel Only: Restart file in consistent with forcing type.') + end if + end if + + iret = NF_GET_ATT_INT(ncid, NF_GLOBAL, 'his_out_counts', rt_domain(did)%his_out_counts) + iret = NF_GET_ATT_REAL(ncid, NF_GLOBAL, 'DTCT', nlst_rt(did)%DTCT) + iret = nf_get_att_text(ncid,NF_GLOBAL,"Since_Date",nlst_rt(did)%sincedate(1:19)) +! if( nlst_rt(did)%channel_only .eq. 1 .or. & +! nlst_rt(did)%channelBucket_only .eq. 1 ) & +! iret = nf_get_att_text(ncid,NF_GLOBAL,"Restart_Time",nlst_rt(did)%olddate(1:19)) + if(iret /= 0) nlst_rt(did)%sincedate = nlst_rt(did)%startdate + if(nlst_rt(did)%DTCT .gt. 0) then + nlst_rt(did)%DTCT = min(nlst_rt(did)%DTCT, nlst_rt(did)%DTRT_CH) + else + nlst_rt(did)%DTCT = nlst_rt(did)%DTRT_CH + endif + #ifdef MPP_LAND - endif - call mpp_land_bcast_int1(rt_domain(did)%out_counts) - call mpp_land_bcast_real1(nlst_rt(did)%DTCT) +endif + +!yw call mpp_land_bcast_int1(rt_domain(did)%out_counts) +! Not sure what caused the problem. added out_counts = 1 as a temporary fix for the hydro output. +rt_domain(did)%out_counts = 1 + +call mpp_land_bcast_real1(nlst_rt(did)%DTCT) +!if( nlst_rt(did)%channel_only .eq. 1 .or. & +! nlst_rt(did)%channelBucket_only .eq. 1 ) & +! call mpp_land_bcast_char(19, nlst_rt(did)%olddate) +!! call mpp_land_bcast_char(19, nlst_rt(did)%sincedate) ! why not? we read it in. #endif #ifdef HYDRO_D - write(6,*) "nlst_rt(did)%nsoil=",nlst_rt(did)%nsoil +write(6,*) "nlst_rt(did)%nsoil=",nlst_rt(did)%nsoil #endif - if(nlst_rt(did)%rst_typ .eq. 1 ) then - call read_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%stc,"stc") - call read_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%smc,"smc") - call read_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%sh2ox,"sh2ox") - call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%INFXSRT,"infxsrt") - call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%sfcheadrt,"sfcheadrt") - call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%soldrain,"soldrain") - endif +if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + + if(nlst_rt(did)%rst_typ .eq. 1 ) then + + call read_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%stc,"stc") + call read_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%smc,"smc") + call read_rst_nc3(ncid,rt_domain(did)%ix,rt_domain(did)%jx,nlst_rt(did)%nsoil,rt_domain(did)%sh2ox,"sh2ox") + call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%INFXSRT,"infxsrt") + call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%sfcheadrt,"sfcheadrt") + call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%soldrain,"soldrain") -!yw check + end if ! rst_typ .eq. 1 + !yw check - call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCMAX1,"smcmax1") - call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCREF1,"smcref1") - call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCWLT1,"smcwlt1") - - - if(nlst_rt(did)%SUBRTSWCRT.EQ.1.OR.nlst_rt(did)%OVRTSWCRT.EQ.1 .or. nlst_rt(did)%GWBASESWCRT .ne. 0) then - call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%INFXSWGT,"infxswgt") - call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%SFCHEADSUBRT,"SFCHEADSUBRT") - call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QBDRYRT,"QBDRYRT") - call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QSTRMVOLRT,"qstrmvolrt") - !call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%RETDEPRT,"RETDEPRT") - call read_rst_rt_nc3(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,nlst_rt(did)%nsoil,rt_domain(did)%SH2OWGT,"sh2owgt") - - - if(nlst_rt(did)%CHANRTSWCRT.EQ.1) then - if(nlst_rt(did)%channel_option .eq. 3) then - call read_rst_crt_stream_nc(ncid,rt_domain(did)%HLINK,rt_domain(did)%NLINKS,"hlink",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) - call read_rst_crt_stream_nc(ncid,rt_domain(did)%QLINK(:,1),rt_domain(did)%NLINKS,"qlink1",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) - call read_rst_crt_stream_nc(ncid,rt_domain(did)%QLINK(:,2),rt_domain(did)%NLINKS,"qlink2",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) - call read_rst_crt_stream_nc(ncid,rt_domain(did)%CVOL,rt_domain(did)%NLINKS,"cvol",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) - else - call read_rst_crt_reach_nc(ncid,rt_domain(did)%HLINK,"hlink",rt_domain(did)%GNLINKSL) - call read_rst_crt_reach_nc(ncid,rt_domain(did)%QLINK(:,1),"qlink1",rt_domain(did)%GNLINKSL) - call read_rst_crt_reach_nc(ncid,rt_domain(did)%QLINK(:,2),"qlink2",rt_domain(did)%GNLINKSL) - call read_rst_crt_reach_nc(ncid,rt_domain(did)%CVOL,"cvol",rt_domain(did)%GNLINKSL) - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - ! read in the statistic value - call read_rst_crt_reach_nc(ncid,rt_domain(did)%accLndRunOff,"accLndRunOff",rt_domain(did)%GNLINKSL) - call read_rst_crt_reach_nc(ncid,rt_domain(did)%accQLateral,"accQLateral",rt_domain(did)%GNLINKSL) - call read_rst_crt_reach_nc(ncid,rt_domain(did)%accStrmvolrt,"accStrmvolrt",rt_domain(did)%GNLINKSL) - call read_rst_crt_reach_nc(ncid,rt_domain(did)%accBucket,"accBucket",rt_domain(did)%GNLINKS) - endif - endif + !call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCMAX1,"smcmax1") + !call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCREF1,"smcref1") + !call read_rst_nc2(ncid,rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%SMCWLT1,"smcwlt1") - if(rt_domain(did)%NLAKES .gt. 0) then - call read_rst_crt_nc(ncid,rt_domain(did)%RESHT,rt_domain(did)%NLAKES,"resht") - call read_rst_crt_nc(ncid,rt_domain(did)%QLAKEO,rt_domain(did)%NLAKES,"qlakeo") - endif - call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%LAKE_INFLORT,"lake_inflort") +endif ! neither channel_only nor channelBucket_only - end if +if(nlst_rt(did)%SUBRTSWCRT .eq. 1 .or. & + nlst_rt(did)%OVRTSWCRT .eq. 1 .or. & + nlst_rt(did)%GWBASESWCRT .ne. 0 ) then + !! JLM ?? restarting channel depends on these options? + + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + + if(nlst_rt(did)%SUBRTSWCRT.eq.1.or.nlst_rt(did)%OVRTSWCRT.eq.1) then + + call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%INFXSWGT,"infxswgt") + call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%SFCHEADSUBRT,"sfcheadsubrt") + call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QBDRYRT,"QBDRYRT") + call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%QSTRMVOLRT_ACC,"qstrmvolrt") + !AD_CHANGE: This is overwriting the RETDEPRTFAC version, so causes issues when changing that factor. + !No need to have in restart since live calculated. + !call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%RETDEPRT,"RETDEPRT") + call read_rst_rt_nc3(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,nlst_rt(did)%nsoil,rt_domain(did)%SH2OWGT,"sh2owgt") + endif - if(nlst_rt(did)%GWBASESWCRT.EQ.1.AND.nlst_rt(did)%GW_RESTART.NE.0 .and. rt_domain(did)%gnumbasns .gt. 0) then - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call read_rst_crt_reach_nc(ncid,rt_domain(did)%z_gwsubbas,"z_gwsubbas",rt_domain(did)%GNLINKSL) - else - call read_rst_gwbucket_real(ncid,rt_domain(did)%z_gwsubbas,rt_domain(did)%numbasns,& - rt_domain(did)%gnumbasns,rt_domain(did)%basnsInd, "z_gwsubbas") - endif - end if - if(nlst_rt(did)%GWBASESWCRT.EQ.3) then - call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,gw2d(did)%ho,"HEAD") - end if - end if + end if ! neither channel_only nor channelBucket_only - if(nlst_rt(did)%rstrt_swc.eq.1) then !Switch for rest of restart accum vars... -#ifdef HYDRO_D - print *, "1 Resetting RESTART Accumulation Variables to 0...",nlst_rt(did)%rstrt_swc -#endif - rt_domain(did)%INFXSRT=0. - rt_domain(did)%LAKE_INFLORT=0. - rt_domain(did)%QSTRMVOLRT=0. - rt_domain(did)%accLndRunOff = 0. - rt_domain(did)%accQLateral = 0. - rt_domain(did)%accStrmvolrt = 0. - rt_domain(did)%accBucket = 0. - end if + if(nlst_rt(did)%CHANRTSWCRT.eq.1) then + if(nlst_rt(did)%channel_option .eq. 3) then + !! Have not setup channel_only for gridded routing YET + call read_rst_crt_stream_nc(ncid,rt_domain(did)%HLINK,rt_domain(did)%NLINKS,"hlink",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) + call read_rst_crt_stream_nc(ncid,rt_domain(did)%QLINK(:,1),rt_domain(did)%NLINKS,"qlink1",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) + call read_rst_crt_stream_nc(ncid,rt_domain(did)%QLINK(:,2),rt_domain(did)%NLINKS,"qlink2",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) + call read_rst_crt_stream_nc(ncid,rt_domain(did)%CVOL,rt_domain(did)%NLINKS,"cvol",rt_domain(did)%GNLINKS,rt_domain(did)%map_l2g) + else + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) & + call read_rst_crt_reach_nc(ncid,rt_domain(did)%HLINK,"hlink",rt_domain(did)%GNLINKSL) + call read_rst_crt_reach_nc(ncid,rt_domain(did)%HLINK,"hlink",rt_domain(did)%GNLINKSL) + call read_rst_crt_reach_nc(ncid,rt_domain(did)%QLINK(:,1),"qlink1",rt_domain(did)%GNLINKSL) + call read_rst_crt_reach_nc(ncid,rt_domain(did)%QLINK(:,2),"qlink2",rt_domain(did)%GNLINKSL) + !call read_rst_crt_reach_nc(ncid,rt_domain(did)%CVOL,"cvol",rt_domain(did)%GNLINKSL) + !if(nlst_rt(did)%UDMP_OPT .eq. 1) then + ! read in the statistic value + !call read_rst_crt_reach_nc(ncid,rt_domain(did)%accSfcLatRunoff,"accSfcLatRunoff",rt_domain(did)%GNLINKSL) + !call read_rst_crt_reach_nc(ncid,rt_domain(did)%accQLateral,"accQLateral",rt_domain(did)%GNLINKSL) + !call read_rst_crt_reach_nc(ncid,rt_domain(did)%qSfcLatRunoff,"qSfcLatRunoff",rt_domain(did)%GNLINKSL) + !call read_rst_crt_reach_nc(ncid,rt_domain(did)%accBucket,"accBucket",rt_domain(did)%GNLINKS) + !endif + endif + if(rt_domain(did)%NLAKES .gt. 0) then + call read_rst_crt_nc(ncid,rt_domain(did)%RESHT,rt_domain(did)%NLAKES,"resht") + call read_rst_crt_nc(ncid,rt_domain(did)%QLAKEO,rt_domain(did)%NLAKES,"qlakeo") + call read_rst_crt_nc(ncid,rt_domain(did)%QLAKEI,rt_domain(did)%NLAKES,"qlakei") + endif + + if( nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + + if(nlst_rt(did)%SUBRTSWCRT.eq.1.or.nlst_rt(did)%OVRTSWCRT.eq.1) then + call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%LAKE_INFLORT,"lake_inflort") + endif + end if + end if ! end if(nlst_rt(did)%CHANRTSWCRT.eq.1) + + if(nlst_rt(did)%GWBASESWCRT .eq. 1 .and. & + nlst_rt(did)%GW_RESTART .ne. 0 .and. & + rt_domain(did)%gnumbasns .gt. 0 ) then + + if( nlst_rt(did)%channel_only .eq. 0 ) then + + if(nlst_rt(did)%UDMP_OPT .eq. 1) then + call read_rst_crt_reach_nc(ncid,rt_domain(did)%z_gwsubbas,"z_gwsubbas",rt_domain(did)%GNLINKSL) + else + call read_rst_gwbucket_real(ncid,rt_domain(did)%z_gwsubbas,rt_domain(did)%numbasns,& + rt_domain(did)%gnumbasns,rt_domain(did)%basnsInd, "z_gwsubbas") + endif + + end if ! if( nlst_rt(did)%channel_only .eq. 0 ) then + + end if ! end if(nlst_rt(did)%GWBASESWCRT .eq. 1 .and. & +! nlst_rt(did)%GW_RESTART .ne. 0 .and. & +! rt_domain(did)%gnumbasns .gt. 0 ) + + !! JLM: WHat is this option?? + if(nlst_rt(did)%GWBASESWCRT.eq.3) then + if(nlst_rt(did)%SUBRTSWCRT.eq.1.or.nlst_rt(did)%OVRTSWCRT.eq.1) then + call read_rt_nc2(ncid,rt_domain(did)%ixrt,rt_domain(did)%jxrt,gw2d(did)%ho,"HEAD") + endif + end if + +end if ! end if(nlst_rt(did)%SUBRTSWCRT .eq. 1 .or. & +! nlst_rt(did)%OVRTSWCRT .eq. 1 .or. & +! nlst_rt(did)%GWBASESWCRT .ne. 0 ) + +!! Resetting these after writing the t=0 output file instead so that no information is +!! lost. +!if(nlst_rt(did)%rstrt_swc.eq.1) then !Switch for rest of restart accum vars... +!#ifdef HYDRO_D +! print *, "1 Resetting RESTART Accumulation Variables to 0...",nlst_rt(did)%rstrt_swc +!#endif +!! JLM: +!! Reset of accumulation variables move to end of subroutine +!! Routing/module_HYDRO_drv.F: HYDRO_ini +!! See comments there. +!! Conensed, commented code: +!! rt_domain(did)%LAKE_INFLORT=0.!rt_domain(did)%QSTRMVOLRT=0. +!end if + #ifdef MPP_LAND - if(my_id .eq. IO_id) & +if(my_id .eq. IO_id) & #endif - iret = nf_close(ncid) + iret = nf_close(ncid) #ifdef HYDRO_D - write(6,*) "end of RESTART_IN" - call flush(6) +write(6,*) "end of RESTART_IN" +call flush(6) #endif - return - end subroutine RESTART_IN_nc +return +end subroutine RESTART_IN_nc + subroutine read_rst_nc3(ncid,ix,jx,NSOIL,var,varStr) implicit none @@ -6688,14 +7185,20 @@ subroutine read_rst_crt_stream_nc(ncid,var_out,n,varStr,gnlinks,map_l2g) return end subroutine read_rst_crt_stream_nc - subroutine read_rst_crt_reach_nc(ncid,var_out,varStr,gnlinksl) + subroutine read_rst_crt_reach_nc_real(ncid,var_out,varStr,gnlinksl, fatalErr) implicit none integer :: ncid, varid, n, iret, gnlinksl character(len=*) :: varStr integer :: l, g real, dimension(:) :: var_out + logical, optional, intent(in) :: fatalErr + logical :: fatalErr_local + real :: scale_factor, add_offset + integer :: ovrtswcrt_in, ss + real,allocatable,dimension(:) :: var, varTmp - real,allocatable,dimension(:) :: var + fatalErr_local = .false. + if(present(fatalErr)) fatalErr_local=fatalErr n = size(var_out,1) @@ -6717,12 +7220,116 @@ subroutine read_rst_crt_reach_nc(ncid,var_out,varStr,gnlinksl) call mpp_land_bcast_int1(iret) if (iret /= 0) then #ifdef HYDRO_D - print*, 'variable not found: name = "', trim(varStr)//'"' + print*, 'read_rst_crt_reach_nc: variable not found: name = "', trim(varStr)//'"' #endif - if(allocated(var)) deallocate(var) + if(allocated(var)) deallocate(var) + + !! JLM: is this desirable? + !! JLM I think so, maybe an option to this routine specifying if errors are fatal? + if (fatalErr_local) & + call hydro_stop("read_rst_crt_reach_nc: variable not found: "//trim(varStr)) + + return + endif + + if(my_id .eq. IO_id) then +#ifdef HYDRO_D + print*, "read restart variable ", varStr + call flush(6) +#endif + + var = 0.0 + iret = nf_get_var_real(ncid, varid, var) + !! JLM: need a check here. + + iret = nf90_get_att(ncid, varid, 'scale_factor', scale_factor) + if(iret .eq. 0) var = var * scale_factor + iret = nf90_get_att(ncid, varid, 'add_offset', add_offset) + if(iret .eq. 0) var = var + add_offset + + !! NWM channel-only forcings have to be "decoded"/unshuffled. + !! As of NWM1.2 the following global attribute is different/identifiable + !! for files created when io_form_outputs=1,2 (not 0). + iret = nf_get_att_int(ncid, NF_GLOBAL, 'dev_OVRTSWCRT', ovrtswcrt_in) + if((nlst_rt(did)%channel_only .eq. 1 .or. nlst_rt(did)%channelBucket_only .eq. 1) .and. & + iret .eq. 0) then + allocate(varTmp(gnlinksl)) + do ss=1,gnlinksl + varTmp(rt_domain(did)%ascendIndex(ss)+1)=var(ss) + end do + var=varTmp + deallocate(varTmp) + end if + endif + + call ReachLS_decomp(var, var_out) + if(allocated(var)) deallocate(var) +#else + iret = nf_inq_varid(ncid, trim(varStr), varid) + if (iret /= 0) then +#ifdef HYDRO_D + print*, 'variable not found: name = "', trim(varStr)//'"' +#endif + if(allocated(var)) deallocate(var) return endif +#ifdef HYDRO_D + print*, "read restart variable ", varStr +#endif + iret = nf_get_var_real(ncid, varid, var_out) + if(allocated(var)) deallocate(var) +#endif + + return + end subroutine read_rst_crt_reach_nc_real + + + subroutine read_rst_crt_reach_nc_real8(ncid, var_out, varStr, gnlinksl, fatalErr) + implicit none + integer, intent(in) :: ncid, gnlinksl + real*8, dimension(:), intent(inout) :: var_out + character(len=*), intent(in) :: varStr + logical, optional, intent(in) :: fatalErr + + integer :: varid, n, iret, l, g + logical :: fatalErr_local + real*8,allocatable,dimension(:) :: var + real :: scale_factor, add_offset + + fatalErr_local = .false. + if(present(fatalErr)) fatalErr_local=fatalErr + + n = size(var_out,1) + +#ifdef MPP_LAND + if(my_id .eq. IO_id) then + allocate(var(gnlinksl)) + else + allocate(var(1)) + endif +#else + allocate(var(n)) +#endif +#ifdef MPP_LAND + if(my_id .eq. IO_id) then + iret = nf_inq_varid(ncid, trim(varStr), varid) + endif + call mpp_land_bcast_int1(iret) + if (iret /= 0) then +#ifdef HYDRO_D + print*, 'read_rst_crt_reach_nc: variable not found: name = "', trim(varStr)//'"' +#endif + + if(allocated(var)) deallocate(var) + + !! JLM: is this desirable? + !! JLM I think so, maybe an option to this routine specifying if errors are fatal? + if (fatalErr_local) & + call hydro_stop("read_rst_crt_reach_nc: variable not found: "//trim(varStr)) + + return + endif #ifdef HYDRO_D print*, "read restart variable ", varStr call flush(6) @@ -6730,6 +7337,13 @@ subroutine read_rst_crt_reach_nc(ncid,var_out,varStr,gnlinksl) if(my_id .eq. IO_id) then var = 0.0 iret = nf_get_var_real(ncid, varid, var) + !! JLM need a check here... + + iret = nf90_get_att(ncid, varid, 'scale_factor', scale_factor) + if(iret .eq. 0) var = var * scale_factor + iret = nf90_get_att(ncid, varid, 'add_offset', add_offset) + if(iret .eq. 0) var = var + add_offset + endif call ReachLS_decomp(var, var_out) if(allocated(var)) deallocate(var) @@ -6748,864 +7362,923 @@ subroutine read_rst_crt_reach_nc(ncid,var_out,varStr,gnlinksl) iret = nf_get_var_real(ncid, varid, var_out) if(allocated(var)) deallocate(var) #endif - - return - end subroutine read_rst_crt_reach_nc + end subroutine read_rst_crt_reach_nc_real8 + subroutine hrldas_out() end subroutine hrldas_out - SUBROUTINE READ_CHROUTING1(IXRT,JXRT,fgDEM,CH_NETRT,CH_LNKRT, LAKE_MSKRT, & - FROM_NODE, TO_NODE, TYPEL, ORDER, MAXORDER, NLINKS, & - NLAKES, MUSK, MUSX, QLINK, CHANLEN, MannN, So, ChSSlp, Bw, & - LAKEIDA, HRZAREA, LAKEMAXH,WEIRH, WEIRC, WEIRL, ORIFICEC, ORIFICEA, & - ORIFICEE, LATLAKE, LONLAKE, ELEVLAKE, LAKEIDM, LAKEIDX, & - route_link_f, & - route_lake_f, route_direction_f, route_order_f, & - CHANRTSWCRT,dist, ZELEV, LAKENODE, CH_NETLNK, & - CHANXI, CHANYJ, CHLAT, CHLON, & - channel_option,LATVAL,LONVAL, & - STRMFRXSTPTS,geo_finegrid_flnm , NLINKSL, LINKID, GNLINKSL,UDMP_OPT & +subroutine READ_CHROUTING1( & + IXRT, JXRT, fgDEM, CH_NETRT, & + CH_LNKRT, LAKE_MSKRT, FROM_NODE, TO_NODE, & + TYPEL, ORDER, MAXORDER, NLINKS, & + NLAKES, CHANLEN, MannN, So, & + ChSSlp, Bw, HRZAREA, LAKEMAXH, & + WEIRH, WEIRC, WEIRL, ORIFICEC, & + ORIFICEA, ORIFICEE, LATLAKE, LONLAKE, & + ELEVLAKE, dist, ZELEV, LAKENODE, & + CH_NETLNK, CHANXI, CHANYJ, CHLAT, & + CHLON, channel_option, LATVAL, LONVAL, & + STRMFRXSTPTS, geo_finegrid_flnm, route_lake_f, LAKEIDM, UDMP_OPT & !! no comma at end #ifdef MPP_LAND - ,Link_Location & + ,Link_Location & #endif - ,gages, gageMiss) + ) + #ifdef MPP_LAND - use module_mpp_land, only: my_id, io_id +use module_mpp_land, only: my_id, io_id #endif #include - INTEGER, INTENT(IN) :: IXRT,JXRT, UDMP_OPT - INTEGER :: CHANRTSWCRT, NLINKS, NLAKES, NLINKSL, GNLINKSL - REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: fgDEM - INTEGER, DIMENSION(IXRT,JXRT) :: DIRECTION - INTEGER, DIMENSION(IXRT,JXRT) :: GSTRMFRXSTPTS - INTEGER, INTENT(IN), DIMENSION(IXRT,JXRT) :: CH_NETRT, CH_LNKRT - INTEGER, INTENT(INOUT), DIMENSION(IXRT,JXRT) :: LAKE_MSKRT - INTEGER, DIMENSION(IXRT,JXRT) :: GORDER !-- gridded stream orderk -#ifdef MPP_LAND - INTEGER, DIMENSION(IXRT,JXRT) :: Link_Location !-- gridded stream orderk - INTEGER :: LNLINKSL -!yw INTEGER, dimension(LNLINKSL) :: LLINKID -#endif - INTEGER :: I,J,K,channel_option - REAL, INTENT(OUT), DIMENSION(IXRT,JXRT) :: LATVAL, LONVAL - CHARACTER(len=28) :: dir +integer, intent(IN) :: IXRT,JXRT, UDMP_OPT +integer :: CHANRTSWCRT, NLINKS, NLAKES +real, intent(IN), dimension(IXRT,JXRT) :: fgDEM +integer, dimension(IXRT,JXRT) :: DIRECTION +integer, dimension(IXRT,JXRT) :: GSTRMFRXSTPTS +integer, intent(IN), dimension(IXRT,JXRT) :: CH_NETRT, CH_LNKRT +integer, intent(INOUT), dimension(IXRT,JXRT) :: LAKE_MSKRT +integer, dimension(IXRT,JXRT) :: GORDER !-- gridded stream orderk +#ifdef MPP_LAND +integer, dimension(IXRT,JXRT) :: Link_Location !-- gridded stream orderk +integer :: LNLINKSL +#endif +integer :: I,J,K,channel_option +real, intent(OUT), dimension(IXRT,JXRT) :: LATVAL, LONVAL +character(len=28) :: dir !Dummy inverted grids from arc - !----DJG,DNY New variables for channel and lake routing - CHARACTER(len=155) :: header - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: FROM_NODE - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: ZELEV - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: CHLAT,CHLON +character(len=155) :: header +integer, intent(INOUT), dimension(NLINKS) :: FROM_NODE +real, intent(INOUT), dimension(NLINKS) :: ZELEV +real, intent(INOUT), dimension(NLINKS) :: CHLAT,CHLON - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: TYPEL - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: TO_NODE,ORDER - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: STRMFRXSTPTS +integer, intent(INOUT), dimension(NLINKS) :: TYPEL +integer, intent(INOUT), dimension(NLINKS) :: TO_NODE,ORDER +integer, intent(INOUT), dimension(NLINKS) :: STRMFRXSTPTS - INTEGER, INTENT(INOUT) :: MAXORDER - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: MUSK, MUSX !muskingum - REAL, INTENT(INOUT), DIMENSION(:,:) :: QLINK !channel flow - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: CHANLEN !channel length - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: MannN, So !mannings N - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: LAKENODE,LINKID ! identifies which nodes pour into which lakes - REAL, INTENT(IN) :: dist(ixrt,jxrt,9) +integer, intent(INOUT) :: MAXORDER +real, intent(INOUT), dimension(NLINKS) :: CHANLEN !channel length +real, intent(INOUT), dimension(NLINKS) :: MannN, So !mannings N +integer, intent(INOUT), dimension(NLINKS) :: LAKENODE !,LINKID ! identifies which nodes pour into which lakes +real, intent(IN) :: dist(ixrt,jxrt,9) - INTEGER, INTENT(IN), DIMENSION(IXRT,JXRT) :: CH_NETLNK - REAL, DIMENSION(IXRT,JXRT) :: ChSSlpG,BwG,MannNG !channel properties on Grid - REAL, DIMENSION(IXRT,JXRT) :: chanDepth, elrt +integer, intent(IN), dimension(IXRT,JXRT) :: CH_NETLNK +real, dimension(IXRT,JXRT) :: ChSSlpG,BwG,MannNG !channel properties on Grid +real, dimension(IXRT,JXRT) :: chanDepth, elrt !-- store the location x,y location of the channel element - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: CHANXI, CHANYJ +integer, intent(INOUT), dimension(NLINKS) :: CHANXI, CHANYJ +integer , dimension(:) :: LAKEIDM !--reservoir/lake attributes - REAL, INTENT(INOUT), DIMENSION(:) :: HRZAREA - INTEGER, INTENT(INOUT), DIMENSION(:) :: LAKEIDM !lake id for LAKES_Modeled in the LAKEPARM table (.nc or .tbl) - - REAL, INTENT(INOUT), DIMENSION(:) :: LAKEMAXH, WEIRH - REAL, INTENT(INOUT), DIMENSION(:) :: WEIRC - REAL, INTENT(INOUT), DIMENSION(:) :: WEIRL - REAL, INTENT(INOUT), DIMENSION(:) :: ORIFICEC - REAL, INTENT(INOUT), DIMENSION(:) :: ORIFICEA - REAL, INTENT(INOUT), DIMENSION(:) :: ORIFICEE - REAL, INTENT(INOUT), DIMENSION(:) :: LATLAKE,LONLAKE,ELEVLAKE - REAL, INTENT(INOUT), DIMENSION(:) :: ChSSlp, Bw - - INTEGER, INTENT(INOUT), DIMENSION(:) :: LAKEIDA !the COM lake id for each link on the full nlinks database - INTEGER, INTENT(INOUT), DIMENSION(:) :: LAKEIDX !the sequential index of lakes (1 to Nlakes) mapped to COMID - - INTEGER, DIMENSION(NLAKES,NLINKSL) :: tmpTO !a variable to hold hold the to of links for Lake Outlet Iding - INTEGER, DIMENSION(NLAKES) :: LAKELINKID !temporarily store the outlet index for each modeled lake - +real, intent(INOUT), dimension(:) :: HRZAREA - character(len=15), intent(inout), dimension(nlinks) :: gages !! need to respect the default values - character(len=15), intent(in) :: gageMiss +real, intent(INOUT), dimension(:) :: LAKEMAXH, WEIRH +real, intent(INOUT), dimension(:) :: WEIRC +real, intent(INOUT), dimension(:) :: WEIRL +real, intent(INOUT), dimension(:) :: ORIFICEC +real, intent(INOUT), dimension(:) :: ORIFICEA +real, intent(INOUT), dimension(:) :: ORIFICEE +real, intent(INOUT), dimension(:) :: LATLAKE,LONLAKE,ELEVLAKE +real, intent(INOUT), dimension(:) :: ChSSlp, Bw - CHARACTER(len=256) :: route_link_f - CHARACTER(len=256) :: route_lake_f - CHARACTER(len=256) :: route_direction_f - CHARACTER(len=256) :: route_order_f - CHARACTER(len=256) :: geo_finegrid_flnm - CHARACTER(len=256) :: var_name +character(len=* ) :: geo_finegrid_flnm, route_lake_f +character(len=256) :: var_name - INTEGER :: tmp, cnt, ncid, iret, jj,ct - INTEGER :: IOstatus, OUTLAKEID +integer :: tmp, cnt, ncid, iret, jj,ct +integer :: IOstatus, OUTLAKEID - real :: gc,n - integer :: did +real :: gc,n +integer :: did +logical :: fexist - did = 1 +did = 1 !--------------------------------------------------------- ! End Declarations !--------------------------------------------------------- - LAKEIDX = -999 - MAXORDER = -9999 - LAKELINKID = 0 + +!LAKEIDX = -999 +!LAKELINKID = 0 +MAXORDER = -9999 !initialize GSTRM - GSTRMFRXSTPTS = -9999 +GSTRMFRXSTPTS = -9999 !yw initialize the array. - to_node = MAXORDER - from_node = MAXORDER +to_node = MAXORDER +from_node = MAXORDER #ifdef MPP_LAND - Link_location = MAXORDER +Link_location = MAXORDER #endif -#ifdef HYDRO_D - print *, "reading routing initialization files..." - print *, "route direction", route_direction_f - print *, "route order", route_order_f - print *, "route linke",route_link_f - print *, "route lake",route_lake_f -#endif +var_name = "LATITUDE" +call nreadRT2d_real ( & + var_name,LATVAL,ixrt,jxrt,trim(geo_finegrid_flnm)) -!DJG Edited code here to retrieve data from hires netcdf file.... +var_name = "LONGITUDE" +call nreadRT2d_real( & + var_name,LONVAL,ixrt,jxrt,trim(geo_finegrid_flnm)) -!!-- read regardless; commented out on 7/21/14 +var_name = "LAKEGRID" +call nreadRT2d_int(& + var_name,LAKE_MSKRT,ixrt,jxrt,trim(geo_finegrid_flnm)) - var_name = "LATITUDE" - call nreadRT2d_real ( & - var_name,LATVAL,ixrt,jxrt,trim(geo_finegrid_flnm)) +var_name = "FLOWDIRECTION" +call nreadRT2d_int(& + var_name,DIRECTION,ixrt,jxrt,trim(geo_finegrid_flnm)) - var_name = "LONGITUDE" - call nreadRT2d_real( & - var_name,LONVAL,ixrt,jxrt,trim(geo_finegrid_flnm)) - - var_name = "LAKEGRID" - call nreadRT2d_int(& - var_name,LAKE_MSKRT,ixrt,jxrt,trim(geo_finegrid_flnm)) +var_name = "STREAMORDER" +call nreadRT2d_int(& + var_name,GORDER,ixrt,jxrt,trim(geo_finegrid_flnm)) - var_name = "FLOWDIRECTION" - call nreadRT2d_int(& - var_name,DIRECTION,ixrt,jxrt,trim(geo_finegrid_flnm)) - var_name = "STREAMORDER" - call nreadRT2d_int(& - var_name,GORDER,ixrt,jxrt,trim(geo_finegrid_flnm)) +var_name = "frxst_pts" +call nreadRT2d_int(& + var_name,GSTRMFRXSTPTS,ixrt,jxrt,trim(geo_finegrid_flnm)) +!!!Flip y-dimension of highres grids from exported Arc files... - var_name = "frxst_pts" - call nreadRT2d_int(& - var_name,GSTRMFRXSTPTS,ixrt,jxrt,trim(geo_finegrid_flnm)) +var_name = "CHAN_DEPTH" +call nreadRT2d_real( & + var_name,chanDepth,ixrt,jxrt,trim(geo_finegrid_flnm)) -!!!Flip y-dimension of highres grids from exported Arc files... +if(nlst_rt(did)%GWBASESWCRT .eq. 3) then + elrt = fgDEM - chanDepth +else + elrt = fgDEM !ywtmp +endif - var_name = "CHAN_DEPTH" - call nreadRT2d_real( & - var_name,chanDepth,ixrt,jxrt,trim(geo_finegrid_flnm)) +ct = 0 - if(nlst_rt(did)%GWBASESWCRT .eq. 3) then - elrt = fgDEM - chanDepth - else - elrt = fgDEM !ywtmp - endif - - ct = 0 - ! temp fix for buggy Arc export... - do j=1,jxrt - do i=1,ixrt - if(DIRECTION(i,j).eq.-128) DIRECTION(i,j)=128 - end do - end do +do j=1,jxrt + do i=1,ixrt + if(DIRECTION(i,j).eq.-128) DIRECTION(i,j)=128 + end do +end do + + + +cnt = 0 +BwG = 0.0 +ChSSlpG = 0.0 +MannNG = 0.0 +TYPEL = 0 +MannN = 0.0 +Bw = 0.0 +ChSSlp = 0.0 -!- read the grid regardless of routing method - cnt = 0 - BwG = 0.0 - ChSSlpG = 0.0 - MannNG = 0.0 - TYPEL = 0 - MannN = 0.0 - Bw = 0.0 - ChSSlp = 0.0 +if (channel_option .eq. 3) then + +#ifdef MPP_LAND + if(my_id .eq. IO_id) then +#endif + + if (NLAKES .gt. 0) then + inquire (file=trim(route_lake_f), exist=fexist) + if(fexist) then + ! use netcdf lake file of LAKEPARM.nc + iret = nf_open(trim(route_lake_f), NF_NOWRITE, ncid) + if( iret .eq. 0 ) then + iret = nf_close(ncid) + write(6,*) "Before read LAKEPARM from NetCDF ", trim(route_lake_f) + write(6,*) "NLAKES = ", NLAKES + call flush(6) + call read_route_lake_netcdf(trim(route_lake_f),HRZAREA, & + LAKEMAXH, WEIRH, WEIRC,WEIRL, ORIFICEC, & + ORIFICEA, ORIFICEE, LAKEIDM, latlake, lonlake, ELEVLAKE) + else + open(unit=79,file=trim(route_lake_f), form='formatted',status='old') + write(6,*) "Before read LAKEPARM from text ", trim(route_lake_f) + write(6,*) "NLAKES = ", NLAKES + call flush(6) + read(79,*) header !-- read the lake file + do i=1, NLAKES + read (79,*,err=5101) tmp, HRZAREA(i),LAKEMAXH(i), & + WEIRC(i), WEIRL(i), ORIFICEC(i), ORIFICEA(i), ORIFICEE(i),& + LATLAKE(i), LONLAKE(i),ELEVLAKE(i), WEIRH(i) + enddo +5101 continue + close(79) + endif !endif for iret + else ! lake parm files does not exist + call hydro_stop("Fatal error: route_lake_f must be specified in the hydro.namelist") + !write(6,*) "ERROR: route_lake_f required for lakes" + !write(6,*) "NLAKES = ", NLAKES + !call flush(6) + endif !endif for fexist + endif ! endif for nlakes + +#ifdef MPP_LAND + endif + + if(NLAKES .gt. 0) then + call mpp_land_bcast_real(NLAKES,HRZAREA) + call mpp_land_bcast_real(NLAKES,LAKEMAXH) + call mpp_land_bcast_real(NLAKES,WEIRH ) + call mpp_land_bcast_real(NLAKES,WEIRC ) + call mpp_land_bcast_real(NLAKES,WEIRL ) + call mpp_land_bcast_real(NLAKES,ORIFICEC) + call mpp_land_bcast_real(NLAKES,ORIFICEA) + call mpp_land_bcast_real(NLAKES,ORIFICEE) + call mpp_land_bcast_real(NLAKES,LATLAKE ) + call mpp_land_bcast_real(NLAKES,LONLAKE ) + call mpp_land_bcast_real(NLAKES,ELEVLAKE) + endif +#endif +end if !! channel_option .eq. 3 - if (UDMP_OPT .eq. 1) goto 299 +if (UDMP_OPT .eq. 1) return !DJG inv DO j = JXRT,1,-1 !rows - DO j = 1,JXRT !rows - DO i = 1 ,IXRT !colsumns - If (CH_NETRT(i, j) .ge. 0) then !get its direction and assign its elevation and order - If ((DIRECTION(i, j) .EQ. 64) .AND. (j + 1 .LE. JXRT) ) then !North - if(CH_NETRT(i,j+1).ge.0) then +do j = 1,JXRT !rows + do i = 1 ,IXRT !colsumns + + if (CH_NETRT(i, j) .ge. 0) then !get its direction and assign its elevation and order + + if ((DIRECTION(i, j) .eq. 64) .and. (j + 1 .le. JXRT) ) then !North + if(CH_NETRT(i,j+1).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - FROM_NODE(cnt) = CH_NETLNK(i, j) - TO_NODE(cnt) = CH_NETLNK(i, j + 1) - CHANLEN(cnt) = dist(i,j,1) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + FROM_NODE(cnt) = CH_NETLNK(i, j) + TO_NODE(cnt) = CH_NETLNK(i, j + 1) + CHANLEN(cnt) = dist(i,j,1) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else if ((DIRECTION(i, j) .EQ. 128) .AND. (i + 1 .LE. IXRT) & - .AND. (j + 1 .LE. JXRT) ) then !North East - if(CH_NETRT(i+1,j+1).ge.0) then + endif + + else if ((DIRECTION(i, j) .eq. 128) .and. (i + 1 .le. IXRT) & + .and. (j + 1 .le. JXRT) ) then !North East + + if(CH_NETRT(i+1,j+1).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - FROM_NODE(cnt) = CH_NETLNK(i, j) - TO_NODE(cnt) = CH_NETLNK(i + 1, j + 1) - CHANLEN(cnt) = dist(i,j,2) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + FROM_NODE(cnt) = CH_NETLNK(i, j) + TO_NODE(cnt) = CH_NETLNK(i + 1, j + 1) + CHANLEN(cnt) = dist(i,j,2) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else if ((DIRECTION(i, j) .EQ. 1) .AND. (i + 1 .LE. IXRT) ) then !East - if(CH_NETRT(i+1,j).ge.0) then + endif + + else if ((DIRECTION(i, j) .eq. 1) .and. (i + 1 .le. IXRT) ) then !East + + if(CH_NETRT(i+1,j).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - FROM_NODE(cnt) = CH_NETLNK(i, j) - TO_NODE(cnt) = CH_NETLNK(i + 1, j) - CHANLEN(cnt) = dist(i,j,3) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + FROM_NODE(cnt) = CH_NETLNK(i, j) + TO_NODE(cnt) = CH_NETLNK(i + 1, j) + CHANLEN(cnt) = dist(i,j,3) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else if ((DIRECTION(i, j) .EQ. 2) .AND. (i + 1 .LE. IXRT) & - .AND. (j - 1 .NE. 0) ) then !south east - if(CH_NETRT(i+1,j-1).ge.0) then + endif + + else if ((DIRECTION(i, j) .eq. 2) .and. (i + 1 .le. IXRT) & + .and. (j - 1 .ne. 0) ) then !south east + + if(CH_NETRT(i+1,j-1).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - FROM_NODE(cnt) = CH_NETLNK(i, j) - TO_NODE(cnt) = CH_NETLNK(i + 1, j - 1) - CHANLEN(cnt) = dist(i,j,4) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + FROM_NODE(cnt) = CH_NETLNK(i, j) + TO_NODE(cnt) = CH_NETLNK(i + 1, j - 1) + CHANLEN(cnt) = dist(i,j,4) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else if ((DIRECTION(i, j) .EQ. 4) .AND. (j - 1 .NE. 0) ) then !due south - if(CH_NETRT(i,j-1).ge.0) then + endif + + else if ((DIRECTION(i, j) .eq. 4) .and. (j - 1 .ne. 0) ) then !due south + + if(CH_NETRT(i,j-1).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - FROM_NODE(cnt) = CH_NETLNK(i, j) - TO_NODE(cnt) = CH_NETLNK(i, j - 1) - CHANLEN(cnt) = dist(i,j,5) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + FROM_NODE(cnt) = CH_NETLNK(i, j) + TO_NODE(cnt) = CH_NETLNK(i, j - 1) + CHANLEN(cnt) = dist(i,j,5) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else if ((DIRECTION(i, j) .EQ. 8) .AND. (i - 1 .GT. 0) & - .AND. (j - 1 .NE. 0) ) then !south west - if(CH_NETRT(i-1,j-1).ge.0) then + endif + + else if ((DIRECTION(i, j) .eq. 8) .and. (i - 1 .gt. 0) & + .and. (j - 1 .ne. 0) ) then !south west + + if(CH_NETRT(i-1,j-1).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - FROM_NODE(cnt) = CH_NETLNK(i,j) - TO_NODE(cnt) = CH_NETLNK(i - 1, j - 1) - CHANLEN(cnt) = dist(i,j,6) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + FROM_NODE(cnt) = CH_NETLNK(i,j) + TO_NODE(cnt) = CH_NETLNK(i - 1, j - 1) + CHANLEN(cnt) = dist(i,j,6) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else if ((DIRECTION(i, j) .EQ. 16) .AND. (i - 1 .GT. 0) ) then !West - if(CH_NETRT(i-1,j).ge.0) then + endif + + else if ((DIRECTION(i, j) .eq. 16) .and. (i - 1 .gt. 0) ) then !West + + if(CH_NETRT(i-1,j).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - TO_NODE(cnt) = CH_NETLNK(i - 1, j) - CHANLEN(cnt) = dist(i,j,7) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + TO_NODE(cnt) = CH_NETLNK(i - 1, j) + CHANLEN(cnt) = dist(i,j,7) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else if ((DIRECTION(i, j) .EQ. 32) .AND. (i - 1 .GT. 0) & - .AND. (j + 1 .LE. JXRT) ) then !North West - if(CH_NETRT(i-1,j+1).ge.0) then + endif + + else if ((DIRECTION(i, j) .eq. 32) .and. (i - 1 .gt. 0) & + .and. (j + 1 .le. JXRT) ) then !North West + + if(CH_NETRT(i-1,j+1).ge.0) then #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - FROM_NODE(cnt) = CH_NETLNK(i, j) - TO_NODE(cnt) = CH_NETLNK(i - 1, j + 1) - CHANLEN(cnt) = dist(i,j,8) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + FROM_NODE(cnt) = CH_NETLNK(i, j) + TO_NODE(cnt) = CH_NETLNK(i - 1, j + 1) + CHANLEN(cnt) = dist(i,j,8) + CHANXI(cnt) = i + CHANYJ(cnt) = j +#ifdef MPP_LAND + Link_Location(i,j) = cnt #endif - endif - else + endif + else #ifdef HYDRO_D -! print *, "NO MATCH", i,j,CH_NETLNK(i,j),DIRECTION(i,j),i + 1,j - 1 !south east + !print *, "NO MATCH", i,j,CH_NETLNK(i,j),DIRECTION(i,j),i + 1,j - 1 !south east #endif - End If - - End If !CH_NETRT check for this node - - END DO - END DO + end if + + end if !CH_NETRT check for this node + + end do +end do #ifdef HYDRO_D - print *, "after exiting the channel, this many nodes", cnt - write(*,*) " " +print *, "after exiting the channel, this many nodes", cnt +write(*,*) " " #endif !Find out if the boundaries are on an edge !DJG inv DO j = JXRT,1,-1 - DO j = 1,JXRT - DO i = 1 ,IXRT - If (CH_NETRT(i, j) .ge. 0) then !get its direction +do j = 1,JXRT + do i = 1 ,IXRT + if (CH_NETRT(i, j) .ge. 0) then !get its direction + + if (DIRECTION(i, j).eq. 64) then + if( j + 1 .gt. JXRT) then !-- 64's can only flow north + goto 101 - If (DIRECTION(i, j).EQ. 64) then - if( j + 1 .GT. JXRT) then !-- 64's can only flow north - goto 101 - elseif ( CH_NETRT(i,j+1) .lt. 0) then !North - goto 101 - endif - goto 102 -101 continue + elseif ( CH_NETRT(i,j+1) .lt. 0) then !North + + goto 101 + endif + goto 102 +101 continue #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if(j+1 .GT. JXRT) then !-- an edge + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if(j+1 .gt. JXRT) then !-- an edge TYPEL(cnt) = 1 - elseif(LAKE_MSKRT(i,j+1).gt.0) then + elseif(LAKE_MSKRT(i,j+1).gt.0) then TYPEL(cnt) = 2 LAKENODE(cnt) = LAKE_MSKRT(i,j+1) - else + else TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,1) - CHANXI(cnt) = i - CHANYJ(cnt) = j + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,1) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_Location(i,j) = cnt + Link_Location(i,j) = cnt #endif #ifdef HYDRO_D -! print *, "Pour Point N", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt + ! print *, "Pour Point N", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt #endif -102 continue +102 continue + + else if ( DIRECTION(i, j) .eq. 128) then - else if ( DIRECTION(i, j) .EQ. 128) then - if ((i + 1 .GT. IXRT) & !-- 128's can flow out of the North or East edge - .OR. (j + 1 .GT. JXRT)) then ! this is due north edge - goto 201 - elseif (CH_NETRT(i + 1, j + 1).lt.0) then !North East - goto 201 - endif + !-- 128's can flow out of the North or East edge + if ((i + 1 .gt. IXRT) .or. (j + 1 .gt. JXRT)) then ! this is due north edge + goto 201 + elseif (CH_NETRT(i + 1, j + 1).lt.0) then !North East + goto 201 + endif !#endif - goto 202 -201 continue + goto 202 +201 continue #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if((i+1 .GT. IXRT) .OR. (j+1 .GT. JXRT)) then ! an edge - TYPEL(cnt) = 1 - elseif(LAKE_MSKRT(i+1,j+1).gt.0) then - TYPEL(cnt) = 2 - LAKENODE(cnt) = LAKE_MSKRT(i+1,j+1) - else - TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,2) - CHANXI(cnt) = i - CHANYJ(cnt) = j + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if((i+1 .gt. IXRT) .or. (j+1 .gt. JXRT)) then ! an edge + TYPEL(cnt) = 1 + elseif(LAKE_MSKRT(i+1,j+1).gt.0) then + TYPEL(cnt) = 2 + LAKENODE(cnt) = LAKE_MSKRT(i+1,j+1) + else + TYPEL(cnt) = 1 + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,2) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_Location(i,j) = cnt + Link_Location(i,j) = cnt #endif #ifdef HYDRO_D -! print *, "Pour Point NE", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt + !print *, "Pour Point NE", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt #endif -202 continue +202 continue + + else if (DIRECTION(i, j) .eq. 1) then - else if (DIRECTION(i, j) .EQ. 1) then - if(i + 1 .GT. IXRT) then !-- 1's can only flow due east - goto 301 - elseif(CH_NETRT(i + 1, j) .lt. 0) then !East - goto 301 - endif - goto 302 -301 continue -#ifdef MPP_LAND - cnt = CH_NETLNK(i,j) -#else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if(i+1 .GT. IXRT) then !an edge - TYPEL(cnt) = 1 - elseif(LAKE_MSKRT(i+1,j).gt.0) then - TYPEL(cnt) = 2 - LAKENODE(cnt) = LAKE_MSKRT(i+1,j) - else - TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,3) - CHANXI(cnt) = i - CHANYJ(cnt) = j -#ifdef MPP_LAND - Link_Location(i,j) = cnt -#endif -#ifdef HYDRO_D -! print *, "Pour Point E", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt -#endif -302 continue - else if (DIRECTION(i, j) .EQ. 2) then - if((i + 1 .GT. IXRT) & !-- 2's can flow out of east or south edge - .OR. (j - 1 .EQ. 0)) then !-- this is the south edge - goto 401 - elseif (CH_NETRT(i + 1, j - 1) .lt.0) then !south east - goto 401 - endif - goto 402 -401 continue + if(i + 1 .gt. IXRT) then !-- 1's can only flow due east + goto 301 + elseif(CH_NETRT(i + 1, j) .lt. 0) then !East + goto 301 + endif + goto 302 +301 continue #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if((i+1 .GT. IXRT) .OR. (j-1 .EQ. 0)) then !an edge - TYPEL(cnt) = 1 - elseif(LAKE_MSKRT(i+1,j-1).gt.0) then - TYPEL(cnt) = 2 - LAKENODE(cnt) = LAKE_MSKRT(i+1,j-1) - else - TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,4) - CHANXI(cnt) = i - CHANYJ(cnt) = j + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if(i+1 .gt. IXRT) then !an edge + TYPEL(cnt) = 1 + elseif(LAKE_MSKRT(i+1,j).gt.0) then + TYPEL(cnt) = 2 + LAKENODE(cnt) = LAKE_MSKRT(i+1,j) + else + TYPEL(cnt) = 1 + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,3) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_Location(i,j) = cnt + Link_Location(i,j) = cnt #endif #ifdef HYDRO_D -! print *, "Pour Point SE", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt + !print *, "Pour Point E", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt #endif -402 continue +302 continue - else if (DIRECTION(i, j) .EQ. 4) then - if(j - 1 .EQ. 0) then !-- 4's can only flow due south - goto 501 - elseif (CH_NETRT(i, j - 1) .lt. 0) then !due south - goto 501 - endif - goto 502 -501 continue + else if (DIRECTION(i, j) .eq. 2) then + + !-- 2's can flow out of east or south edge + if((i + 1 .gt. IXRT) .or. (j - 1 .eq. 0)) then !-- this is the south edge + goto 401 + elseif (CH_NETRT(i + 1, j - 1) .lt.0) then !south east + goto 401 + endif + goto 402 +401 continue #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if(j-1 .EQ. 0) then !- an edge - TYPEL(cnt) =1 - elseif(LAKE_MSKRT(i,j-1).gt.0) then - TYPEL(cnt) = 2 - LAKENODE(cnt) = LAKE_MSKRT(i,j-1) - else - TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,5) - CHANXI(cnt) = i - CHANYJ(cnt) = j + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if((i+1 .gt. IXRT) .or. (j-1 .eq. 0)) then !an edge + TYPEL(cnt) = 1 + elseif(LAKE_MSKRT(i+1,j-1).gt.0) then + TYPEL(cnt) = 2 + LAKENODE(cnt) = LAKE_MSKRT(i+1,j-1) + else + TYPEL(cnt) = 1 + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,4) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_Location(i,j) = cnt + Link_Location(i,j) = cnt #endif #ifdef HYDRO_D -! print *, "Pour Point S", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt + !print *, "Pour Point SE", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt #endif -502 continue +402 continue + + else if (DIRECTION(i, j) .eq. 4) then - else if ( DIRECTION(i, j) .EQ. 8) then - if( (i - 1 .LE. 0) & !-- 8's can flow south or west - .OR. (j - 1 .EQ. 0)) then !-- this is the south edge - goto 601 - elseif (CH_NETRT(i - 1, j - 1).lt.0) then !south west - goto 601 - endif - goto 602 -601 continue + if(j - 1 .eq. 0) then !-- 4's can only flow due south + goto 501 + elseif (CH_NETRT(i, j - 1) .lt. 0) then !due south + goto 501 + endif + goto 502 +501 continue #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if( (i-1 .EQ. 0) .OR. (j-1 .EQ. 0) ) then !- an edge + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if(j-1 .eq. 0) then !- an edge + TYPEL(cnt) =1 + elseif(LAKE_MSKRT(i,j-1).gt.0) then + TYPEL(cnt) = 2 + LAKENODE(cnt) = LAKE_MSKRT(i,j-1) + else TYPEL(cnt) = 1 - elseif(LAKE_MSKRT(i-1,j-1).gt.0) then - TYPEL(cnt) = 2 - LAKENODE(cnt) = LAKE_MSKRT(i-1,j-1) - else - TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,6) - CHANXI(cnt) = i - CHANYJ(cnt) = j + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,5) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_Location(i,j) = cnt + Link_Location(i,j) = cnt #endif #ifdef HYDRO_D -! print *, "Pour Point SW", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt -#endif -602 continue - else if (DIRECTION(i, j) .EQ. 16) then - if( i - 1 .LE.0) then !16's can only flow due west - goto 701 - elseif( CH_NETRT(i - 1, j).lt.0) then !West - goto 701 - endif - goto 702 -701 continue + !print *, "Pour Point S", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt +#endif +502 continue + + else if ( DIRECTION(i, j) .eq. 8) then + + !-- 8's can flow south or west + if( (i - 1 .le. 0) .or. (j - 1 .eq. 0)) then !-- this is the south edge + goto 601 + elseif (CH_NETRT(i - 1, j - 1).lt.0) then !south west + goto 601 + endif + goto 602 +601 continue #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if(i-1 .EQ. 0) then !-- an edge - TYPEL(cnt) = 1 - elseif(LAKE_MSKRT(i-1,j).gt.0) then - TYPEL(cnt) = 2 - LAKENODE(cnt) = LAKE_MSKRT(i-1,j) - else - TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,7) - CHANXI(cnt) = i - CHANYJ(cnt) = j + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if( (i-1 .eq. 0) .or. (j-1 .eq. 0) ) then !- an edge + TYPEL(cnt) = 1 + elseif(LAKE_MSKRT(i-1,j-1).gt.0) then + TYPEL(cnt) = 2 + LAKENODE(cnt) = LAKE_MSKRT(i-1,j-1) + else + TYPEL(cnt) = 1 + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,6) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_Location(i,j) = cnt + Link_Location(i,j) = cnt #endif #ifdef HYDRO_D -! print *, "Pour Point W", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt + !print *, "Pour Point SW", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt #endif -702 continue +602 continue - else if ( DIRECTION(i, j) .EQ. 32) then - if( (i - 1 .LE. 0) & !-- 32's can flow either west or north - .OR. (j + 1 .GT. JXRT)) then !-- this is the north edge - goto 801 - elseif (CH_NETRT(i - 1, j + 1).lt.0) then !North West - goto 801 - endif - goto 802 -801 continue + else if (DIRECTION(i, j) .eq. 16) then + + if( i - 1 .le.0) then !16's can only flow due west + goto 701 + elseif( CH_NETRT(i - 1, j).lt.0) then !West + goto 701 + endif + goto 702 +701 continue #ifdef MPP_LAND - cnt = CH_NETLNK(i,j) + cnt = CH_NETLNK(i,j) #else - cnt = cnt + 1 -#endif - ORDER(cnt) = GORDER(i,j) - STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) - ZELEV(cnt) = ELRT(i,j) - MannN(cnt) = MannNG(i,j) - ChSSlp(cnt) = ChSSlpG(i,j) - Bw(cnt) = BwG(i,j) - CHLAT(cnt) = LATVAL(i,j) - CHLON(cnt) = LONVAL(i,j) - if( (i-1 .EQ. 0) .OR. (j+1 .GT. JXRT)) then !-- an edge + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if(i-1 .eq. 0) then !-- an edge TYPEL(cnt) = 1 - elseif(LAKE_MSKRT(i-1,j+1).gt.0) then - TYPEL(cnt) = 2 - LAKENODE(cnt) = LAKE_MSKRT(i-1,j+1) - else - TYPEL(cnt) = 1 - endif - FROM_NODE(cnt) = CH_NETLNK(i, j) - CHANLEN(cnt) = dist(i,j,8) - CHANXI(cnt) = i - CHANYJ(cnt) = j + elseif(LAKE_MSKRT(i-1,j).gt.0) then + TYPEL(cnt) = 2 + LAKENODE(cnt) = LAKE_MSKRT(i-1,j) + else + TYPEL(cnt) = 1 + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,7) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_Location(i,j) = cnt + Link_Location(i,j) = cnt #endif #ifdef HYDRO_D -! print *, "Pour Point NW", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt + ! print *, "Pour Point W", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt #endif -802 continue - endif - endif !CH_NETRT check for this node - END DO - END DO +702 continue + + else if ( DIRECTION(i, j) .eq. 32) then + !-- 32's can flow either west or north + if( (i - 1 .le. 0) .or. (j + 1 .gt. JXRT)) then !-- this is the north edge + goto 801 + elseif (CH_NETRT(i - 1, j + 1).lt.0) then !North West + goto 801 + endif + goto 802 +801 continue #ifdef MPP_LAND -#ifdef HYDRO_D - print*, "my_id=",my_id, "cnt = ", cnt -#endif -#endif - + cnt = CH_NETLNK(i,j) +#else + cnt = cnt + 1 +#endif + ORDER(cnt) = GORDER(i,j) + STRMFRXSTPTS(cnt) = GSTRMFRXSTPTS(i,j) + ZELEV(cnt) = ELRT(i,j) + MannN(cnt) = MannNG(i,j) + ChSSlp(cnt) = ChSSlpG(i,j) + Bw(cnt) = BwG(i,j) + CHLAT(cnt) = LATVAL(i,j) + CHLON(cnt) = LONVAL(i,j) + if( (i-1 .eq. 0) .or. (j+1 .gt. JXRT)) then !-- an edge + TYPEL(cnt) = 1 + elseif(LAKE_MSKRT(i-1,j+1).gt.0) then + TYPEL(cnt) = 2 + LAKENODE(cnt) = LAKE_MSKRT(i-1,j+1) + else + TYPEL(cnt) = 1 + endif + FROM_NODE(cnt) = CH_NETLNK(i, j) + CHANLEN(cnt) = dist(i,j,8) + CHANXI(cnt) = i + CHANYJ(cnt) = j #ifdef MPP_LAND - Link_location = CH_NETLNK - call MPP_CHANNEL_COM_INT(Link_location,ixrt,jxrt,TYPEL,NLINKS,99) + Link_Location(i,j) = cnt #endif - -! jump to here if UDMP_OPT .eq. 1 -299 continue - -!---- read in link routing data if not routing on grid, but on link network - IF (channel_option .eq. 3) THEN - -#ifdef MPP_LAND - if(my_id .eq. IO_id) then +#ifdef HYDRO_D + !print *, "Pour Point NW", TYPEL(cnt), LAKENODE(cnt), CHANLEN(cnt), cnt #endif +802 continue - if (NLAKES.gt.0) then !read in only if there are lakes - open(unit=79,file='LAKEPARM.TBL', form='formatted',status='old') - write(6,*) "before read(79) header for LAKEPARM.TBL" - call flush(6) - read(79,*) header !-- read the lake file - endif + endif + endif !CH_NETRT check for this node + end do +end do - do i=1, NLAKES - read (79,*,err=5101) tmp, HRZAREA(i),LAKEMAXH(i), & - WEIRC(i), WEIRL(i), ORIFICEC(i), ORIFICEA(i), ORIFICEE(i),& - LATLAKE(i), LONLAKE(i),ELEVLAKE(i), WEIRH(i) - enddo -5101 continue - close(79) #ifdef MPP_LAND - endif - - if(NLAKES .gt. 0) then - call mpp_land_bcast_real(NLAKES,HRZAREA) - call mpp_land_bcast_real(NLAKES,LAKEMAXH) - call mpp_land_bcast_real(NLAKES,WEIRH ) - call mpp_land_bcast_real(NLAKES,WEIRC ) - call mpp_land_bcast_real(NLAKES,WEIRL ) - call mpp_land_bcast_real(NLAKES,ORIFICEC) - call mpp_land_bcast_real(NLAKES,ORIFICEA) - call mpp_land_bcast_real(NLAKES,ORIFICEE) - call mpp_land_bcast_real(NLAKES,LATLAKE ) - call mpp_land_bcast_real(NLAKES,LONLAKE ) - call mpp_land_bcast_real(NLAKES,ELEVLAKE) - endif -#endif - -!!-- if routing on link network, read those data too - ELSEIF ((CHANRTSWCRT.eq.1.or.CHANRTSWCRT.eq.2).AND.channel_option .ne. 3) then ! not routing on grid, read from file ? do we need the channel switch? - - call readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f,maxorder, & - LINKID, TO_NODE, TYPEL, ORDER , & - QLINK,CHLON, CHLAT, ZELEV, MUSK, MUSX, CHANLEN, & - MannN, So, ChSSlp, Bw, LAKEIDA, HRZAREA, & - LAKEMAXH, WEIRH, WEIRC, WEIRL, ORIFICEC, & - ORIFICEA, ORIFICEE, gages, gageMiss, & - LAKEIDM,NLAKES, latlake, lonlake) - +#ifdef HYDRO_D +print*, "my_id=",my_id, "cnt = ", cnt +#endif +#endif + +#ifdef MPP_LAND +Link_location = CH_NETLNK +call MPP_CHANNEL_COM_INT(Link_location,ixrt,jxrt,TYPEL,NLINKS,99) +call MPP_CHANNEL_COM_INT(Link_location,ixrt,jxrt,LAKENODE,NLINKS,99) +#endif + +end subroutine READ_CHROUTING1 + + +!! Author JLM. +!! Separate the 2D channel routing memory from the vector/routelink channel routing memory. +subroutine read_routelink(& + TO_NODE, TYPEL, ORDER, MAXORDER, & + NLAKES, MUSK, MUSX, & + QLINK, CHANLEN, MannN, So, & + ChSSlp, Bw, LAKEIDA, HRZAREA, & + LAKEMAXH, WEIRH, WEIRC, WEIRL, & + ORIFICEC, ORIFICEA, ORIFICEE, LATLAKE, & + LONLAKE, ELEVLAKE, LAKEIDM, LAKEIDX, & + route_link_f, route_lake_f, ZELEV, CHLAT, & + CHLON, NLINKSL, LINKID, GNLINKSL, & + NLINKS, gages, gageMiss ) + +integer, intent(INOUT), dimension(NLINKS) :: TO_NODE, TYPEL, ORDER +integer, intent(INOUT) :: MAXORDER +integer :: NLAKES +real, intent(INOUT), dimension(NLINKS) :: MUSK, MUSX +real, intent(INOUT), dimension(:,:) :: QLINK !channel flow +real, intent(INOUT), dimension(NLINKS) :: CHANLEN, MannN, So +real, intent(INOUT), dimension(:) :: ChSSlp, Bw +integer, intent(INOUT), dimension(:) :: LAKEIDA !lake COMid 4all link on full nlinks database +real, intent(INOUT), dimension(:) :: HRZAREA +real, intent(INOUT), dimension(:) :: LAKEMAXH, WEIRH, WEIRC, WEIRL +real, intent(INOUT), dimension(:) :: ORIFICEC, ORIFICEA, ORIFICEE +real, intent(INOUT), dimension(:) :: LATLAKE, LONLAKE, ELEVLAKE +integer, intent(INOUT), dimension(:) :: LAKEIDM !lake id in LAKEPARM table (.nc or .tbl) +integer, intent(INOUT), dimension(:) :: LAKEIDX !seq index of lakes(1:Nlakes) mapped to COMID +character(len=256) :: route_link_f, route_lake_f +real, intent(INOUT), dimension(NLINKS) :: ZELEV, CHLAT, CHLON +integer :: NLINKS, NLINKSL +integer, intent(INOUT), dimension(NLINKS) :: LINKID ! which nodes pour into which lakes +integer :: GNLINKSL +character(len=15), intent(inout), dimension(nlinks) :: gages !! need to respect the default values +character(len=15), intent(in) :: gageMiss +integer :: did + +!! local variables +integer, dimension(NLAKES) :: LAKELINKID !temporarily store the outlet index for each modeled lake + +did = 1 +LAKELINKID = 0 + +call readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f,maxorder, & + LINKID, TO_NODE, TYPEL, ORDER , & + QLINK,CHLON, CHLAT, ZELEV, MUSK, MUSX, CHANLEN, & + MannN, So, ChSSlp, Bw, LAKEIDA, HRZAREA, & + LAKEMAXH, WEIRH, WEIRC, WEIRL, ORIFICEC, & + ORIFICEA, ORIFICEE, gages, gageMiss, & + LAKEIDM, NLAKES, latlake, lonlake,ELEVLAKE) + !--- get the lake configuration here. #ifdef MPP_LAND - call nhdLakeMap_mpp(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,LINKID, LAKEIDM, LAKEIDA, GNLINKSL) -! call nhdLakeMap(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,LINKID, LAKEIDM, LAKEIDA) +call nhdLakeMap_mpp(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, & + TO_NODE, LINKID, LAKEIDM, LAKEIDA, GNLINKSL ) +!call nhdLakeMap(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,LINKID, LAKEIDM, LAKEIDA #else - call nhdLakeMap(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,LINKID, LAKEIDM, LAKEIDA) +call nhdLakeMap(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,LINKID, LAKEIDM, LAKEIDA) #endif - - + #ifdef MPP_LAND - if(NLAKES .gt. 0) then -! call mpp_land_bcast_int(NLINKSL,LAKEIDA) -! call mpp_land_bcast_int(NLINKSL,LAKEIDX) - - call mpp_land_bcast_real(NLAKES,HRZAREA) - call mpp_land_bcast_int(NLAKES,LAKEIDM) - call mpp_land_bcast_real(NLAKES,LAKEMAXH) - call mpp_land_bcast_real(NLAKES,WEIRH ) - call mpp_land_bcast_real(NLAKES,WEIRC ) - call mpp_land_bcast_real(NLAKES,WEIRL ) - call mpp_land_bcast_real(NLAKES,ORIFICEC) - call mpp_land_bcast_real(NLAKES,ORIFICEA) - call mpp_land_bcast_real(NLAKES,ORIFICEE) - call mpp_land_bcast_real(NLAKES,LATLAKE ) - call mpp_land_bcast_real(NLAKES,LONLAKE ) - call mpp_land_bcast_real(NLAKES,ELEVLAKE) - endif +if(NLAKES .gt. 0) then + ! call mpp_land_bcast_int(NLINKSL,LAKEIDA) + ! call mpp_land_bcast_int(NLINKSL,LAKEIDX) + call mpp_land_bcast_real(NLAKES,HRZAREA) + call mpp_land_bcast_int(NLAKES,LAKEIDM) + call mpp_land_bcast_real(NLAKES,LAKEMAXH) + call mpp_land_bcast_real(NLAKES,WEIRH ) + call mpp_land_bcast_real(NLAKES,WEIRC ) + call mpp_land_bcast_real(NLAKES,WEIRL ) + call mpp_land_bcast_real(NLAKES,ORIFICEC) + call mpp_land_bcast_real(NLAKES,ORIFICEA) + call mpp_land_bcast_real(NLAKES,ORIFICEE) + call mpp_land_bcast_real(NLAKES,LATLAKE ) + call mpp_land_bcast_real(NLAKES,LONLAKE ) + call mpp_land_bcast_real(NLAKES,ELEVLAKE) +endif #endif - ENDIF !channel option is 1 or 2 (linked routing) +end subroutine read_routelink - RETURN !from READ_CHROUTING1 -!DJG ----------------------------------------------------- - END SUBROUTINE READ_CHROUTING1 subroutine readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f, maxorder, & LINKID, TO_NODE, TYPEL, ORDER , & @@ -7613,7 +8286,7 @@ subroutine readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f, maxorder, & MannN, So, ChSSlp, Bw, LAKEIDA, HRZAREA, & LAKEMAXH,WEIRH, WEIRC, WEIRL, ORIFICEC, & ORIFICEA, ORIFICEE, gages, gageMiss,& - LAKEIDM,NLAKES, latlake, lonlake) + LAKEIDM,NLAKES, latlake, lonlake, ELEVLAKE) implicit none character(len=*) :: route_link_f,route_lake_f @@ -7632,7 +8305,7 @@ subroutine readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f, maxorder, & !NLAKES INTEGER, intent(out), dimension(:) :: LAKEIDM REAL, intent(out), dimension(:) :: HRZAREA,LAKEMAXH, WEIRC, WEIRL, ORIFICEC,WEIRH, & - ORIFICEA, ORIFICEE + ORIFICEA, ORIFICEE, ELEVLAKE !end NLAKES INTEGER, dimension(GNLINKSL) :: tmpLAKEIDA, tmpLINKID, tmpTO_NODE, tmpTYPEL, tmpORDER @@ -7711,7 +8384,7 @@ subroutine readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f, maxorder, & if(routeLakeNetcdf) then call read_route_lake_netcdf(route_lake_f,HRZAREA, & LAKEMAXH, WEIRH, WEIRC, WEIRL, ORIFICEC, & - ORIFICEA, ORIFICEE, LAKEIDM, latlake, lonlake) + ORIFICEA, ORIFICEE, LAKEIDM, latlake, lonlake, ELEVLAKE) endif !!- initialize channel if missing in input @@ -7738,7 +8411,7 @@ subroutine readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f, maxorder, & call ReachLS_decomp(tmpMUSK, MUSK ) call ReachLS_decomp(tmpMUSX, MUSX ) call ReachLS_decomp(tmpCHANLEN, CHANLEN) - call ReachLS_decomp(tmpMannN, MannN ) + call ReachLS_decomp(tmpMannN, MannN ) call ReachLS_decomp(tmpSo, So ) call ReachLS_decomp(tmpChSSlp, ChSSlp ) call ReachLS_decomp(tmpBw, Bw ) @@ -7752,8 +8425,7 @@ subroutine readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f, maxorder, & ! call ReachLS_decomp(tmpORIFICEA, ORIFICEA) ! call ReachLS_decomp(tmpORIFICEE, ORIFICEE) -!yw This function does not work correctly for gages. -!yw call ReachLS_decomp(tmpGages, gages) + call ReachLS_decomp(tmpGages, gages) call mpp_land_bcast_int1(MAXORDER) if(NLAKES .gt. 0) then @@ -7766,6 +8438,7 @@ subroutine readLinkSL( GNLINKSL,NLINKSL,route_link_f, route_lake_f, maxorder, & call mpp_land_bcast_real(NLAKES, ORIFICEA) call mpp_land_bcast_real(NLAKES, ORIFICEE) call mpp_land_bcast_int(NLAKES, LAKEIDM) + call mpp_land_bcast_real(NLAKES, ELEVLAKE) endif @@ -7850,176 +8523,165 @@ end subroutine readLinkSL !yw continue - SUBROUTINE MPP_READ_CHROUTING_new(IXRT,JXRT,ELRT,CH_NETRT, CH_LNKRT,LAKE_MSKRT, & - FROM_NODE, TO_NODE, TYPEL, ORDER, MAXORDER, NLINKS, & - NLAKES, MUSK, MUSX, QLINK, CHANLEN, MannN, So, ChSSlp, Bw, & - LAKEIDA,HRZAREA, LAKEMAXH, WEIRH, WEIRC, WEIRL, ORIFICEC, ORIFICEA, & - ORIFICEE, LATLAKE, LONLAKE, ELEVLAKE, LAKEIDM, LAKEIDX, & - route_link_f, & - route_lake_f, route_direction_f, route_order_f, & - CHANRTSWCRT,dist, ZELEV, LAKENODE, CH_NETLNK, & - CHANXI, CHANYJ, CHLAT, CHLON, & - channel_option,LATVAL,& - LONVAL,STRMFRXSTPTS,geo_finegrid_flnm,NLINKSL, LINKID, GNLINKSL,UDMP_OPT,g_ixrt,g_jxrt, & - gnlinks,GCH_NETLNK, map_l2g, link_location,yw_mpp_nlinks, & - lake_index, nlinks_index, gages, gageMiss) - implicit none - INTEGER, INTENT(IN) :: IXRT,JXRT,g_IXRT,g_JXRT, GNLINKS, UDMP_OPT - INTEGER :: CHANRTSWCRT, NLINKS, NLAKES, NLINKSL - INTEGER :: I,J,channel_option - CHARACTER(len=28) :: dir +subroutine MPP_READ_CHROUTING_new(& + IXRT, JXRT, ELRT, CH_NETRT, & + CH_LNKRT, LAKE_MSKRT, FROM_NODE, TO_NODE, & + TYPEL, ORDER, MAXORDER, NLINKS, & + NLAKES, CHANLEN, MannN, So, & + ChSSlp, Bw, HRZAREA, LAKEMAXH, & + WEIRH, WEIRC, WEIRL, ORIFICEC, & + ORIFICEA, ORIFICEE, LATLAKE, LONLAKE, & + ELEVLAKE, dist, ZELEV, LAKENODE, & + + CH_NETLNK, CHANXI, CHANYJ, CHLAT, & + CHLON, channel_option, LATVAL, LONVAL, & + STRMFRXSTPTS, geo_finegrid_flnm, route_lake_f, LAKEIDM, UDMP_OPT, & + g_ixrt, g_jxrt, gnlinks, GCH_NETLNK, & + map_l2g, link_location, yw_mpp_nlinks, lake_index, & + nlinks_index) -!----DJG,DNY New variables for channel and lake routing - CHARACTER(len=155) :: header - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: FROM_NODE - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: ZELEV - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: CHLAT,CHLON - - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: TYPEL - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: TO_NODE,ORDER - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: STRMFRXSTPTS - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: LAKEIDA !identifies which links in the domain are id'd as lakes - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: LAKEIDX ! the integer lake id. - - INTEGER, INTENT(INOUT) :: MAXORDER - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: MUSK, MUSX !muskingum - REAL, INTENT(INOUT), DIMENSION(:,:) :: QLINK !channel flow - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: CHANLEN !channel length - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: MannN, So !mannings N - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: LAKENODE,LINKID ! identifies which nodes pour into which lakes - REAL, INTENT(IN) :: dist(ixrt,jxrt,9) - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: map_l2g +implicit none +integer, intent(IN) :: IXRT,JXRT,g_IXRT,g_JXRT, GNLINKS, UDMP_OPT +integer :: CHANRTSWCRT, NLINKS, NLAKES +integer :: I,J,channel_option +character(len=28) :: dir + +character(len=155) :: header +integer, intent(INOUT), dimension(NLINKS) :: FROM_NODE +real, intent(INOUT), dimension(NLINKS) :: ZELEV +real, intent(INOUT), dimension(NLINKS) :: CHLAT,CHLON + +integer, intent(INOUT), dimension(NLINKS) :: TYPEL +integer, intent(INOUT), dimension(NLINKS) :: TO_NODE,ORDER +integer, intent(INOUT), dimension(NLINKS) :: STRMFRXSTPTS + +integer, intent(INOUT) :: MAXORDER +real, intent(INOUT), dimension(NLINKS) :: CHANLEN !channel length +real, intent(INOUT), dimension(NLINKS) :: MannN, So !mannings N +integer, intent(INOUT), dimension(NLINKS) :: LAKENODE ! identifies which nodes pour into which lakes +real, intent(IN) :: dist(ixrt,jxrt,9) +integer, intent(INOUT), dimension(NLINKS) :: map_l2g !-- store the location x,y location of the channel element - INTEGER, INTENT(INOUT), DIMENSION(NLINKS) :: CHANXI, CHANYJ - -!--reservoir/lake attributes - INTEGER, INTENT(INOUT), DIMENSION(NLAKES) :: LAKEIDM - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: HRZAREA - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: LAKEMAXH, WEIRH - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: WEIRC - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: WEIRL - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: ORIFICEC - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: ORIFICEA - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: ORIFICEE - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: LATLAKE,LONLAKE,ELEVLAKE - REAL, INTENT(INOUT), DIMENSION(NLINKS) :: ChSSlp, Bw - character(len=15), intent(inout), dimension(nlinks) :: gages - character(len=15), intent(in) :: gageMiss - - CHARACTER(len=256) :: route_link_f - CHARACTER(len=256) :: route_lake_f - CHARACTER(len=256) :: route_direction_f - CHARACTER(len=256) :: route_order_f - CHARACTER(len=256) :: geo_finegrid_flnm - CHARACTER(len=256) :: var_name - - INTEGER :: tmp, cnt, ncid - real :: gc,n - - INTEGER, INTENT(IN), DIMENSION(IXRT,JXRT) :: CH_NETLNK,GCH_NETLNK - REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: ELRT - INTEGER, INTENT(IN), DIMENSION(IXRT,JXRT) :: CH_NETRT, CH_LNKRT - INTEGER, INTENT(OUT), DIMENSION(IXRT,JXRT) :: LAKE_MSKRT, link_location - REAL, INTENT(OUT), DIMENSION(IXRT,JXRT) :: latval,lonval - integer :: k - INTEGER, DIMENSION(nlinks) :: node_table, nlinks_index - INTEGER, DIMENSION(nlakes) :: lake_index - integer :: yw_mpp_nlinks , l, mpp_nlinks, GNLINKSL - - - - call READ_CHROUTING1(IXRT,JXRT,ELRT,CH_NETRT, CH_LNKRT, LAKE_MSKRT, & - FROM_NODE, TO_NODE, TYPEL, ORDER, MAXORDER, NLINKS, & - NLAKES, MUSK, MUSX, QLINK, CHANLEN, MannN, So, ChSSlp, Bw, & - LAKEIDA,HRZAREA, LAKEMAXH, WEIRH, WEIRC, WEIRL, ORIFICEC, ORIFICEA, & - ORIFICEE, LATLAKE, LONLAKE, ELEVLAKE, LAKEIDM, LAKEIDX, & - route_link_f, & - route_lake_f, route_direction_f, route_order_f, & - CHANRTSWCRT,dist, ZELEV, LAKENODE, CH_NETLNK, & - CHANXI, CHANYJ, CHLAT, CHLON, & - channel_option,LATVAL,LONVAL, & - STRMFRXSTPTS,geo_finegrid_flnm , NLINKSL, LINKID, GNLINKSL,UDMP_OPT & -#ifdef MPP_LAND - ,Link_Location & -#endif - ,gages, gageMiss) - - call mpp_land_max_int1(MAXORDER) - - if(MAXORDER .eq. 0) MAXORDER = -9999 - - lake_index = -99 - if(channel_option .eq. 3) then - do j = 1, jxrt - do i = 1, ixrt - if (LAKE_MSKRT(i,j) .gt. 0) then - lake_index(LAKE_MSKRT(i,j)) = LAKE_MSKRT(i,j) - endif - enddo - enddo - endif +integer, intent(INOUT), dimension(NLINKS) :: CHANXI, CHANYJ + +real, intent(INOUT), dimension(NLAKES) :: HRZAREA +real, intent(INOUT), dimension(NLAKES) :: LAKEMAXH, WEIRH +real, intent(INOUT), dimension(NLAKES) :: WEIRC +real, intent(INOUT), dimension(NLAKES) :: WEIRL +real, intent(INOUT), dimension(NLAKES) :: ORIFICEC +real, intent(INOUT), dimension(NLAKES) :: ORIFICEA +real, intent(INOUT), dimension(NLAKES) :: ORIFICEE +real, intent(INOUT), dimension(NLAKES) :: LATLAKE,LONLAKE,ELEVLAKE +real, intent(INOUT), dimension(NLINKS) :: ChSSlp, Bw +character(len=* ) :: geo_finegrid_flnm, route_lake_f +character(len=256) :: var_name + +integer :: tmp, cnt, ncid +real :: gc,n + +integer, intent(IN), dimension(IXRT,JXRT) :: CH_NETLNK,GCH_NETLNK +real, intent(IN), dimension(IXRT,JXRT) :: ELRT +integer, intent(IN), dimension(IXRT,JXRT) :: CH_NETRT, CH_LNKRT +integer, intent(OUT), dimension(IXRT,JXRT) :: LAKE_MSKRT, link_location +real, intent(OUT), dimension(IXRT,JXRT) :: latval,lonval +integer :: k +integer, dimension(nlinks) :: node_table, nlinks_index +integer, dimension(nlakes) :: lake_index, LAKEIDM +integer :: yw_mpp_nlinks , l, mpp_nlinks + + +call READ_CHROUTING1( & + IXRT, JXRT, ELRT, CH_NETRT,& + CH_LNKRT, LAKE_MSKRT, FROM_NODE, TO_NODE, & + TYPEL, ORDER, MAXORDER, NLINKS, & + NLAKES, CHANLEN, MannN, So, & + ChSSlp, Bw, HRZAREA, LAKEMAXH,& + WEIRH, WEIRC, WEIRL, ORIFICEC,& + ORIFICEA, ORIFICEE, LATLAKE, LONLAKE, & + ELEVLAKE, dist, ZELEV, LAKENODE,& + CH_NETLNK, CHANXI, CHANYJ, CHLAT, & + CHLON, channel_option, LATVAL, LONVAL, & + STRMFRXSTPTS, geo_finegrid_flnm, route_lake_f, LAKEIDM, UDMP_OPT & +#ifdef MPP_LAND + ,Link_Location & +#endif + ) + +call mpp_land_max_int1(MAXORDER) + +if(MAXORDER .eq. 0) MAXORDER = -9999 + +lake_index = -99 +if(channel_option .eq. 3) then + do j = 1, jxrt + do i = 1, ixrt + if (LAKE_MSKRT(i,j) .gt. 0) then + lake_index(LAKE_MSKRT(i,j)) = LAKE_MSKRT(i,j) + endif + enddo + enddo +endif - - CHANXI = 0 - CHANYj = 0 - do j = 1, jxrt - do i = 1, ixrt - if(CH_NETLNK(i,j) .gt. 0) then - CHANXI(CH_NETLNK(i,j)) = i - CHANYJ(CH_NETLNK(i,j)) = j - endif - end do - end do - node_table = 0 - yw_mpp_nlinks = 0 - do j = 1, jxrt - do i = 1, ixrt - if(CH_NETLNK(i,j) .ge. 0) then - if( (i.eq.1) .and. (left_id .ge. 0) ) then - continue - elseif ( (i.eq. ixrt) .and. (right_id .ge. 0) ) then - continue - elseif ( (j.eq. 1) .and. (down_id .ge. 0) ) then - continue - elseif ( (j.eq. jxrt) .and. (up_id .ge. 0) ) then - continue - else - l = CH_NETLNK(i,j) - ! if(from_node(l) .gt. 0 .and. to_node(l) .gt. 0) then - yw_mpp_nlinks = yw_mpp_nlinks + 1 - nlinks_index(yw_mpp_nlinks) = l - ! endif - endif - endif - end do - end do +CHANXI = 0 +CHANYj = 0 +do j = 1, jxrt + do i = 1, ixrt + if(CH_NETLNK(i,j) .gt. 0) then + CHANXI(CH_NETLNK(i,j)) = i + CHANYJ(CH_NETLNK(i,j)) = j + endif + end do +end do + +node_table = 0 +yw_mpp_nlinks = 0 +do j = 1, jxrt + do i = 1, ixrt + if(CH_NETLNK(i,j) .ge. 0) then + if( (i.eq.1) .and. (left_id .ge. 0) ) then + continue + elseif ( (i.eq. ixrt) .and. (right_id .ge. 0) ) then + continue + elseif ( (j.eq. 1) .and. (down_id .ge. 0) ) then + continue + elseif ( (j.eq. jxrt) .and. (up_id .ge. 0) ) then + continue + else + l = CH_NETLNK(i,j) + ! if(from_node(l) .gt. 0 .and. to_node(l) .gt. 0) then + yw_mpp_nlinks = yw_mpp_nlinks + 1 + nlinks_index(yw_mpp_nlinks) = l + ! endif + endif + endif + end do +end do #ifdef HYDRO_D - write(6,*) "nlinks=", nlinks, " yw_mpp_nlinks=", yw_mpp_nlinks," nlakes=", nlakes - call flush(6) -#endif - if(NLAKES .gt. 0) then - call mpp_land_bcast_real(NLAKES,HRZAREA) - call mpp_land_bcast_real(NLAKES,LAKEMAXH) - call mpp_land_bcast_real(NLAKES,WEIRC) - call mpp_land_bcast_real(NLAKES,WEIRC) - call mpp_land_bcast_real(NLAKES,WEIRL) - call mpp_land_bcast_real(NLAKES,ORIFICEC) - call mpp_land_bcast_real(NLAKES,ORIFICEA) - call mpp_land_bcast_real(NLAKES,ORIFICEE) - call mpp_land_bcast_real(NLAKES,LATLAKE) - call mpp_land_bcast_real(NLAKES,LONLAKE) - call mpp_land_bcast_real(NLAKES,ELEVLAKE) - endif - +write(6,*) "nlinks=", nlinks, " yw_mpp_nlinks=", yw_mpp_nlinks," nlakes=", nlakes +call flush(6) +#endif +if(NLAKES .gt. 0) then + call mpp_land_bcast_real(NLAKES,HRZAREA) + call mpp_land_bcast_real(NLAKES,LAKEMAXH) + call mpp_land_bcast_real(NLAKES,WEIRC) + call mpp_land_bcast_real(NLAKES,WEIRC) + call mpp_land_bcast_real(NLAKES,WEIRL) + call mpp_land_bcast_real(NLAKES,ORIFICEC) + call mpp_land_bcast_real(NLAKES,ORIFICEA) + call mpp_land_bcast_real(NLAKES,ORIFICEE) + call mpp_land_bcast_real(NLAKES,LATLAKE) + call mpp_land_bcast_real(NLAKES,LONLAKE) + call mpp_land_bcast_real(NLAKES,ELEVLAKE) +endif - link_location = CH_NETLNK +link_location = CH_NETLNK - return +return - end SUBROUTINE MPP_READ_CHROUTING_new +end subroutine MPP_READ_CHROUTING_new #endif @@ -8219,13 +8881,15 @@ end subroutine read_route_link_netcdf subroutine read_route_lake_netcdf(route_lake_file, & HRZAREA, LAKEMAXH, WEIRH, WEIRC, WEIRL, & ORIFICEC, ORIFICEA, ORIFICEE, LAKEIDM, & - lakelat, lakelon) + lakelat, lakelon, ELEVLAKE) implicit none character(len=*), intent(in) :: route_lake_file integer, dimension(:), intent(out) :: LAKEIDM real, dimension(:), intent(out) :: HRZAREA, LAKEMAXH, WEIRC, WEIRL, WEIRH real, dimension(:), intent(out) :: ORIFICEC, ORIFICEA, ORIFICEE, lakelat, lakelon +real, dimension(:), intent(out) :: ELEVLAKE + integer :: iRet, ncid, ii, varid logical :: fatal_if_error @@ -8241,17 +8905,21 @@ subroutine read_route_lake_netcdf(route_lake_file, & if (fatal_IF_ERROR) call hydro_stop("read_route_lake_netcdf: Problem opening file.") endif -call get_1d_netcdf_int(ncid, 'lake_id', LAKEIDM, 'read_route_lake_netcdf', .TRUE.) +call get_1d_netcdf_int(ncid, 'lake_id', LAKEIDM,'read_route_lake_netcdf', .TRUE.) call get_1d_netcdf_real(ncid, 'LkArea', HRZAREA, 'read_route_lake_netcdf', .TRUE.) -call get_1d_netcdf_real(ncid, 'LkMxH', LAKEMAXH, 'read_route_lake_netcdf', .TRUE.) -call get_1d_netcdf_real(ncid, 'WeirH', WEIRH, 'read_route_lake_netcdf', .TRUE.) +!rename the LAKEPARM input vars for Elev instead of Ht, 08/23/17 LKR/DY +call get_1d_netcdf_real(ncid, 'LkMxE', LAKEMAXH, 'read_route_lake_netcdf', .TRUE.) +!rename WeirH to WeirE +call get_1d_netcdf_real(ncid, 'WeirE', WEIRH, 'read_route_lake_netcdf', .TRUE.) call get_1d_netcdf_real(ncid, 'WeirC', WEIRC, 'read_route_lake_netcdf', .TRUE.) call get_1d_netcdf_real(ncid, 'WeirL', WEIRL, 'read_route_lake_netcdf', .TRUE.) call get_1d_netcdf_real(ncid, 'OrificeC', ORIFICEC, 'read_route_lake_netcdf', .TRUE.) call get_1d_netcdf_real(ncid, 'OrificeA', ORIFICEA, 'read_route_lake_netcdf', .TRUE.) call get_1d_netcdf_real(ncid, 'OrificeE', ORIFICEE, 'read_route_lake_netcdf', .TRUE.) -call get_1d_netcdf_real(ncid, 'lat', lakelat, 'read_route_lake_netcdf', .TRUE.) -call get_1d_netcdf_real(ncid, 'lon', lakelon, 'read_route_lake_netcdf', .TRUE.) +call get_1d_netcdf_real(ncid, 'lat', lakelat, 'read_route_lake_netcdf', .TRUE.) +call get_1d_netcdf_real(ncid, 'lon', lakelon, 'read_route_lake_netcdf', .TRUE.) +!remove the alt var. and add initial fractional depth var. LKR/DY +call get_1d_netcdf_real(ncid, 'ifd', ELEVLAKE, 'read_route_lake_netcdf', .FALSE.) iRet = nf90_close(ncId) if (iRet /= nf90_noErr) then @@ -8393,6 +9061,8 @@ function get_netcdf_dim(file, dimName, callingRoutine, fatalErr) if (iret /= nf90_noerr) then write(*,'("Problem opening file: ", A)') trim(file) if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + if(.not. fatalErr_local) get_netcdf_dim = -99 + if(.not. fatalErr_local) return endif iRet = nf90_inq_dimid(ncId, trim(dimName), dimId) @@ -8400,6 +9070,8 @@ function get_netcdf_dim(file, dimName, callingRoutine, fatalErr) write(*,'("Problem getting the dimension ID ", A)') & '"' // trim(dimName) // '" in file: ' // trim(file) if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + if(.not. fatalErr_local) get_netcdf_dim = -99 + if(.not. fatalErr_local) return endif iRet = nf90_inquire_dimension(ncId, dimId, len= get_netcdf_dim) @@ -8407,29 +9079,33 @@ function get_netcdf_dim(file, dimName, callingRoutine, fatalErr) write(*,'("Problem getting the dimension length of ", A)') & '"' // trim(dimName) // '" in file: ' // trim(file) if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + if(.not. fatalErr_local) get_netcdf_dim = -99 + if(.not. fatalErr_local) return endif iRet = nf90_close(ncId) if (iret /= nf90_noerr) then write(*,'("Problem closing file: ", A)') trim(file) if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + if(.not. fatalErr_local) get_netcdf_dim = -99 + if(.not. fatalErr_local) return endif end function get_netcdf_dim ! read the GWBUCET Parm for NHDPlus subroutine readBucket_nhd(infile, numbasns, gw_buck_coeff, gw_buck_exp, & - z_max, LINKID, nhdBuckMask) + z_max, z_init, LINKID, nhdBuckMask) implicit none integer :: numbasns integer, dimension(numbasns) :: LINKID - real, dimension(numbasns) :: gw_buck_coeff, gw_buck_exp, z_max + real, dimension(numbasns) :: gw_buck_coeff, gw_buck_exp, z_max, z_init integer, dimension(numbasns) :: nhdBuckMask character(len=*) :: infile ! define temp array integer :: i,j,k, gnid, ncid, varid, ierr, dimid, iret integer, allocatable, dimension(:) :: tmpLinkid - real, allocatable, dimension(:) :: tmpCoeff, tmpExp, tmpz_max + real, allocatable, dimension(:) :: tmpCoeff, tmpExp, tmpz_max, tmpz_init ! get gnid #ifdef MPP_LAND @@ -8453,6 +9129,7 @@ subroutine readBucket_nhd(infile, numbasns, gw_buck_coeff, gw_buck_exp, & allocate(tmpCoeff(gnid)) allocate(tmpExp(gnid)) allocate(tmpz_max(gnid)) + allocate(tmpz_init(gnid)) #ifdef MPP_LAND if(my_id .eq. io_id ) then #endif @@ -8478,6 +9155,13 @@ subroutine readBucket_nhd(infile, numbasns, gw_buck_coeff, gw_buck_exp, & endif iret = nf_get_var_real(ncid, varid, tmpz_max) + iret = nf_inq_varid(ncid,"Zinit", varid) + if(iret /= 0) then + print * , "could not find Zinit from ", infile + call hydro_stop("Failed to read BUCKETPARM") + endif + iret = nf_get_var_real(ncid, varid, tmpz_init) + iret = nf_inq_varid(ncid, "ComID", varid) if(iret /= 0) then print * , "could not find ComID from ", infile @@ -8490,6 +9174,7 @@ subroutine readBucket_nhd(infile, numbasns, gw_buck_coeff, gw_buck_exp, & call mpp_land_bcast_real_1d(tmpCoeff) call mpp_land_bcast_real_1d(tmpExp) call mpp_land_bcast_real_1d(tmpz_max) + call mpp_land_bcast_real_1d(tmpz_init) call mpp_land_bcast_int(gnid ,tmpLinkid) endif #endif @@ -8501,6 +9186,7 @@ subroutine readBucket_nhd(infile, numbasns, gw_buck_coeff, gw_buck_exp, & gw_buck_coeff(k) = tmpCoeff(i) gw_buck_exp(k) = tmpExp(i) z_max(k) = tmpz_max(i) + z_init(k) = tmpz_init(i) nhdBuckMask(k) = 1 goto 301 endif @@ -8511,6 +9197,7 @@ subroutine readBucket_nhd(infile, numbasns, gw_buck_coeff, gw_buck_exp, & if(allocated(tmpCoeff)) deallocate(tmpCoeff) if(allocated(tmpExp)) deallocate(tmpExp) if(allocated(tmpz_max)) deallocate(tmpz_max) + if(allocated(tmpz_init)) deallocate(tmpz_init) if(allocated(tmpLinkid)) deallocate(tmpLinkid) end subroutine readBucket_nhd @@ -8523,16 +9210,24 @@ end subroutine readBucket_nhd ! ) #ifdef MPP_LAND - subroutine mpp_output_chrt2(gnlinks,gnlinksl,map_l2g,igrid, & - split_output_count, NLINKS, ORDER, & - startdate, date, chlon, chlat, hlink,zelev,qlink,dtrt_ch, & - K,NLINKSL,channel_option,linkid & + subroutine mpp_output_chrt2( & + gnlinks, gnlinksl, map_l2g, & + igrid, split_output_count, & + NLINKS, ORDER, & + startdate, date, & + chlon, chlat, & + hlink, zelev, & + qlink, dtrt_ch, K, & + NLINKSL, channel_option, & + linkid & #ifdef WRF_HYDRO_NUDGING - , nudge & + , nudge & #endif - , QLateral, iocflag ,velocity & - , accLndRunOff, accQLateral, accStrmvolrt, accBucket, & - UDMP_OPT & + , QLateral, io_config_outputs & + , velocity & + , accSfcLatRunoff, accBucket & + , qSfcLatRunoff, qBucket & + , qBtmVertRunoff, UDMP_OPT & ) USE module_mpp_land @@ -8554,8 +9249,9 @@ subroutine mpp_output_chrt2(gnlinks,gnlinksl,map_l2g,igrid, & real, dimension(:), intent(in) :: nudge #endif real, dimension(:), intent(in) :: QLateral, velocity - integer, intent(in) :: iocflag - real, dimension(:), intent(in) :: accLndRunOff, accQLateral, accStrmvolrt, accBucket + integer, intent(in) :: io_config_outputs + real*8, dimension(:), intent(in) :: accSfcLatRunoff, accBucket + real , dimension(:), intent(in) :: qSfcLatRunoff, qBucket, qBtmVertRunoff integer, intent(in) :: UDMP_OPT integer :: channel_option @@ -8571,11 +9267,14 @@ subroutine mpp_output_chrt2(gnlinks,gnlinksl,map_l2g,igrid, & integer, allocatable,dimension(:) :: g_order, g_linkid real,allocatable,dimension(:,:) :: g_qlink integer :: gsize - real, allocatable, dimension(:) :: g_accLndRunOff, g_accQLateral, g_accStrmvolrt, g_accBucket - real, allocatable, dimension(:) :: g_QLateral, g_velocity + real*8, allocatable, dimension(:) :: g_accSfcLatRunoff, g_accBucket + real , allocatable, dimension(:) :: g_qSfcLatRunoff, g_qBucket, g_qBtmVertRunoff + real, allocatable, dimension(:) :: g_QLateral, g_velocity gsize = gNLINKS if(gnlinksl .gt. gsize) gsize = gnlinksl + + if(my_id .eq. io_id ) then allocate(g_chlon(gsize )) allocate(g_chlat(gsize )) @@ -8588,20 +9287,39 @@ subroutine mpp_output_chrt2(gnlinks,gnlinksl,map_l2g,igrid, & allocate(g_order(gsize )) allocate(g_linkid(gsize )) - allocate(g_accLndRunOff(gsize )) - allocate(g_accQLateral(gsize )) - allocate(g_accStrmvolrt(gsize )) - allocate(g_accBucket(gsize )) + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + allocate(g_qSfcLatRunoff( gsize )) + allocate(g_qBucket( gsize )) + end if + + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) & + allocate(g_qBtmVertRunoff( gsize )) + + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + allocate(g_accSfcLatRunoff(gsize )) + allocate(g_accBucket( gsize )) + end if allocate(g_QLateral(gsize )) allocate(g_velocity(gsize )) else - allocate(g_accLndRunOff(1)) - allocate(g_accQLateral(1)) - allocate(g_accStrmvolrt(1)) - allocate(g_accBucket(1)) + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + allocate(g_qSfcLatRunoff( 1)) + allocate(g_qBucket( 1)) + end if + + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) & + allocate(g_qBtmVertRunoff( 1)) + + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + allocate(g_accSfcLatRunoff(1)) + allocate(g_accBucket( 1)) + end if + allocate(g_QLateral(1)) allocate(g_velocity(1)) @@ -8632,16 +9350,27 @@ subroutine mpp_output_chrt2(gnlinks,gnlinksl,map_l2g,igrid, & call ReachLS_write_io(chlat, g_chlat) call ReachLS_write_io(zelev, g_zelev) - call ReachLS_write_io(accLndRunOff, g_accLndRunOff) - call ReachLS_write_io(accQLateral, g_accQLateral) - call ReachLS_write_io(accStrmvolrt, g_accStrmvolrt) - call ReachLS_write_io(accBucket, g_accBucket) + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + call ReachLS_write_io(qSfcLatRunoff, g_qSfcLatRunoff) + call ReachLS_write_io(qBucket, g_qBucket) + end if + + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) & + call ReachLS_write_io(qBtmVertRunoff, g_qBtmVertRunoff) - call ReachLS_write_io(QLateral, g_QLateral) - call ReachLS_write_io(velocity, g_velocity) - call ReachLS_write_io(hlink,g_hlink) + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + call ReachLS_write_io(accSfcLatRunoff, g_accSfcLatRunoff) + call ReachLS_write_io(accBucket, g_accBucket) + end if + + call ReachLS_write_io(QLateral, g_QLateral) + call ReachLS_write_io(velocity, g_velocity) + !yw call write_chanel_real(hlink,map_l2g,gnlinks,nlinks,g_hlink) + call ReachLS_write_io(hlink,g_hlink) else + call write_chanel_real(qlink(:,1),map_l2g,gnlinks,nlinks,g_qlink(:,1)) call write_chanel_real(qlink(:,2),map_l2g,gnlinks,nlinks,g_qlink(:,2)) call write_chanel_int(order,map_l2g,gnlinks,nlinks,g_order) @@ -8660,11 +9389,13 @@ subroutine mpp_output_chrt2(gnlinks,gnlinksl,map_l2g,igrid, & #ifdef WRF_HYDRO_NUDGING , g_nudge & #endif - , g_QLateral, iocflag,g_velocity & - , g_accLndRunOff, g_accQLateral, g_accStrmvolrt, g_accBucket, & - UDMP_OPT & + , g_QLateral, io_config_outputs, g_velocity & + , g_accSfcLatRunoff, g_accBucket & + , g_qSfcLatRunoff, g_qBucket, g_qBtmVertRunoff & + , UDMP_OPT & ) end if + call mpp_land_sync() if(allocated(g_order)) deallocate(g_order) if(allocated(g_chlon)) deallocate(g_chlon) @@ -8673,12 +9404,20 @@ subroutine mpp_output_chrt2(gnlinks,gnlinksl,map_l2g,igrid, & if(allocated(g_zelev)) deallocate(g_zelev) if(allocated(g_qlink)) deallocate(g_qlink) if(allocated(g_linkid)) deallocate(g_linkid) + #ifdef WRF_HYDRO_NUDGING if(allocated(g_nudge)) deallocate(g_nudge) #endif + if(allocated(g_QLateral)) deallocate(g_QLateral) if(allocated(g_velocity)) deallocate(g_velocity) + if(allocated(g_qSfcLatRunoff)) deallocate(g_qSfcLatRunoff) + if(allocated(g_qBucket)) deallocate(g_qBucket) + if(allocated(g_qBtmVertRunoff)) deallocate(g_qBtmVertRunoff) + if(allocated(g_accSfcLatRunoff)) deallocate(g_accSfcLatRunoff) + if(allocated(g_accBucket)) deallocate(g_accBucket) + end subroutine mpp_output_chrt2 #endif @@ -8697,9 +9436,10 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & #ifdef WRF_HYDRO_NUDGING , nudge & #endif - , QLateral, iocflag, velocity & - , accLndRunOff, accQLateral, accStrmvolrt, accBucket, & - UDMP_OPT & + , QLateral, io_config_outputs, velocity & + , accSfcLatRunoff, accBucket & + , qSfcLatRunoff, qBucket, qBtmVertRunoff & + , UDMP_OPT & ) implicit none @@ -8718,9 +9458,10 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & real, dimension(:), intent(in) :: nudge #endif real, dimension(:), intent(in) :: QLateral, velocity - integer, intent(in) :: iocflag - real, dimension(nlinks), intent(in) :: accLndRunOff, accQLateral, accStrmvolrt, accBucket - integer, intent(in) :: UDMP_OPT + integer, intent(in) :: io_config_outputs + real*8, dimension(nlinks), intent(in) :: accSfcLatRunoff, accBucket + real , dimension(nlinks), intent(in) :: qSfcLatRunoff, qBucket, qBtmVertRunoff + integer :: UDMP_OPT character(len=*), intent(in) :: startdate character(len=*), intent(in) :: date @@ -8772,7 +9513,7 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & character(len=19) :: date19, date19start - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) if(channel_option .ne. 3) then @@ -8791,7 +9532,7 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & date19start(1:len_trim(startdate)) = startdate(1:4)//'-'//startdate(6:7)//'-'//startdate(9:10)//'_' & //startdate(12:13)//':'//startdate(15:16)//':00' - seconds_since = int(nlst_rt(1)%dt*(rt_domain(1)%out_counts-1)) + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) sec_valid_date = 'seconds since '//nlst_rt(1)%startdate(1:4)//'-'//nlst_rt(1)%startdate(6:7)//'-'//nlst_rt(1)%startdate(9:10) & //' '//nlst_rt(1)%startdate(12:13)//':'//nlst_rt(1)%startdate(15:16)//' UTC' @@ -8814,7 +9555,7 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & iret = nf_def_dim(ncid, "station", nstations, stationdim) iret = nf_def_dim(ncid, "time", 1, timedim) -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then !- station location definition all, lat iret = nf_def_var(ncid,"latitude",NF_FLOAT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',16,'Station latitude') @@ -8844,25 +9585,7 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & ! iret = nf_def_var(ncid,"lastChild",NF_INT,1,(/stationdim/), varid) ! iret = nf_put_att_text(ncid,varid,'long_name',30,'latest report for this station') ! iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) -#endif - - if(UDMP_OPT .eq. 1) then - iret = nf_def_var(ncid, "accLndRunOff", NF_FLOAT, 1, (/stationdim/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',28,'ACCUMULATED runoff from land') - - iret = nf_def_var(ncid, "accQLateral", NF_FLOAT, 1, (/stationdim/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',24,'Total ACCUMULATED runoff') - - iret = nf_def_var(ncid, "accStrmvolrt", NF_FLOAT, 1, (/stationdim/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',39,'ACCUMULATED runoff from terrain routing') - - iret = nf_def_var(ncid, "accBucket", NF_FLOAT, 1, (/stationdim/), varid) - iret = nf_put_att_text(ncid,varid,'units',8,'meter^3?') - iret = nf_put_att_text(ncid,varid,'long_name',32,'ACCUMULATED runoff from gw bucket') - endif +endif iret = nf_def_var(ncid,"time",NF_INT, 1, (/timedim/), varid) iret = nf_put_att_text(ncid,varid,'units',34,sec_valid_date) @@ -8888,7 +9611,7 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & iret = nf_put_att_text(ncid,varid,'long_name',11,'River Stage') endif !#ifdef HYDRO_REALTIME -! if ( (channel_option .ne. 3) .and. (iocflag .ge. 0) ) then +! if ( (channel_option .ne. 3) .and. (io_config_outputs .ge. 0) ) then ! iret = nf_def_var(ncid, "head", NF_FLOAT, 1, (/stationdim/), varid) ! iret = nf_put_att_text(ncid,varid,'units',5,'meter') ! iret = nf_put_att_text(ncid,varid,'long_name',11,'River Stage') @@ -8897,51 +9620,112 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & !-- NEW lateral inflow definition, var - if ( (channel_option .ne. 3) .and. (iocflag .ge. 0) ) then + if ( (channel_option .ne. 3) .and. (io_config_outputs .ge. 0) ) then iret = nf_def_var(ncid, "q_lateral", NF_FLOAT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'units',13,'meter^3 / sec') iret = nf_put_att_text(ncid,varid,'long_name',25,'Runoff into channel reach') endif !-- NEW velocity definition, var - if ( (channel_option .ne. 3) .and. (iocflag .ge. 0) .and. (iocflag .ne. 4) ) then + if ( (channel_option .ne. 3) .and. (io_config_outputs .ge. 0) .and. (io_config_outputs .ne. 4) ) then iret = nf_def_var(ncid, "velocity", NF_FLOAT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'units',9,'meter/sec') iret = nf_put_att_text(ncid,varid,'long_name',14,'River Velocity') endif -#ifndef HYDRO_REALTIME +if (io_config_outputs .le. 0) then ! !- order definition, var iret = nf_def_var(ncid, "order", NF_INT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',21,'Strahler Stream Order') iret = nf_put_att_int(ncid,varid,'_FillValue',2,-1) -#endif +endif !-- station id ! define character-position dimension for strings of max length 11 iret = nf_def_var(ncid, "station_id", NF_INT, 1, (/stationdim/), varid) iret = nf_put_att_text(ncid,varid,'long_name',10,'Station id') + !! JLM: Write/define a global attribute of the file as the LSM timestep. Enforce + !! JLM: force_type=9 only reads these discharges to the channel if the LSM timesteps match. + + if(UDMP_OPT .eq. 1 .and. nlst_rt(did)%output_channelBucket_influx .ne. 0) then + !! channel & channelBucketOnly global atts + iret = nf_put_att_int(ncid, NF_GLOBAL, 'OVRTSWCRT', & + NF_INT, 1, nlst_rt(1)%OVRTSWCRT ) + iret = nf_put_att_int(ncid, NF_GLOBAL, 'NOAH_TIMESTEP', & + NF_INT, 1, int(nlst_rt(1)%dt) ) + iret = nf_put_att_int(ncid, NF_GLOBAL, "channel_only", & + NF_INT, 1, nlst_rt(did)%channel_only ) + iret = nf_put_att_int(ncid, NF_GLOBAL, "channelBucket_only", & + NF_INT, 1, nlst_rt(did)%channelBucket_only ) + + !! FLUXES to channel + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + iret = nf_def_var(ncid, "qSfcLatRunoff", NF_FLOAT, 1, (/stationdim/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + if(nlst_rt(did)%OVRTSWCRT .eq. 1) then !123456789112345678921234567 + iret = nf_put_att_text(ncid,varid,'long_name',27,'runoff from terrain routing') + else + iret = nf_put_att_text(ncid,varid,'long_name',6,'runoff') + end if + iret = nf_def_var(ncid, "qBucket", NF_FLOAT, 1, (/stationdim/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + ! 1234567891234567892 + iret = nf_put_att_text(ncid,varid,'long_name',19,'flux from gw bucket') + end if + + !! Bucket influx + !! In channel_only mode, there are not valie qBtmVertRunoff values + if(nlst_rt(did)%output_channelBucket_influx .eq. 2 .and. & + nlst_rt(did)%channel_only .eq. 0 ) then + iret = nf_def_var(ncid, "qBtmVertRunoff", NF_FLOAT, 1, (/stationdim/), varid) + iret = nf_put_att_text(ncid,varid,'units',9,'meter^3/s') + ! 123456789112345678921234567893123456 + iret = nf_put_att_text(ncid,varid,'long_name',36,'runoff from bottom of soil to bucket') + endif + + !! ACCUMULATIONS + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + iret = nf_def_var(ncid, "accSfcLatRunoff", NF_DOUBLE, 1, (/stationdim/), varid) + iret = nf_put_att_text(ncid,varid,'units',7,'meter^3') + if(nlst_rt(did)%OVRTSWCRT .eq. 1) then + iret = nf_put_att_text(ncid,varid,'long_name',39, & + ! 123456789112345678921234567893123456789 + 'ACCUMULATED runoff from terrain routing') + else + iret = nf_put_att_text(ncid,varid,'long_name',28,'ACCUMULATED runoff from land') + end if + + iret = nf_def_var(ncid, "accBucket", NF_DOUBLE, 1, (/stationdim/), varid) + iret = nf_put_att_text(ncid,varid,'units',8,'meter^3') + iret = nf_put_att_text(ncid,varid,'long_name',33,'ACCUMULATED flux from gw bucket') + endif + endif + convention(1:32) = "Unidata Observation Dataset v1.0" iret = nf_put_att_text(ncid, NF_GLOBAL, "Conventions",32, convention) iret = nf_put_att_text(ncid, NF_GLOBAL, "cdm_datatype",7, "Station") -#ifndef HYDRO_REALTIME + +if (io_config_outputs .le. 0) then iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_max",4, "90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lat_min",5, "-90.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_max",5, "180.0") iret = nf_put_att_text(ncid, NF_GLOBAL, "geospatial_lon_min",6, "-180.0") -#endif +endif iret = nf_put_att_text(ncid, NF_GLOBAL, "model_initialization_time", 19, trim(nlst_rt(1)%startdate)) iret = nf_put_att_text(ncid, NF_GLOBAL, "station_dimension",7, "station") iret = nf_put_att_real(ncid, NF_GLOBAL, "missing_value", NF_FLOAT, 1, -9E15) iret = nf_put_att_int(ncid, NF_GLOBAL, "stream_order_output",NF_INT,1,1) - + !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + !! END DEF iret = nf_enddef(ncid) iret = nf_inq_varid(ncid,"time", varid) iret = nf_put_vara_int(ncid, varid, (/1/), (/1/), seconds_since) -#ifndef HYDRO_REALTIME + +if (io_config_outputs .le. 0) then !-- write latitudes iret = nf_inq_varid(ncid,"latitude", varid) iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), chlat) @@ -8957,7 +9741,7 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & !-- write order iret = nf_inq_varid(ncid,"order", varid) iret = nf_put_vara_int(ncid, varid, (/1/), (/nstations/), ORDER) -#endif +endif !-- write stream flow iret = nf_inq_varid(ncid,"streamflow", varid) @@ -8975,7 +9759,7 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), hlink) endif !#ifdef HYDRO_REALTIME -! if ( (channel_option .ne. 3) .and. (iocflag .ge. 0) ) then +! if ( (channel_option .ne. 3) .and. (io_config_outputs .ge. 0) ) then ! ! dummy value for now ! iret = nf_inq_varid(ncid,"head", varid) ! iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), chlon*0.-9999.) @@ -8983,52 +9767,60 @@ subroutine output_chrt2(igrid, split_output_count, NLINKS, ORDER, & !#endif !-- write lateral inflow - if ( (channel_option .ne. 3) .and. (iocflag .ge. 0) ) then + if ( (channel_option .ne. 3) .and. (io_config_outputs .ge. 0) ) then iret = nf_inq_varid(ncid,"q_lateral", varid) iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), QLateral) endif !-- writelvelocity (dummy value for now) - if ( (channel_option .ne. 3) .and. (iocflag .ge. 0) .and. (iocflag .ne. 4) ) then + if ( (channel_option .ne. 3) .and. (io_config_outputs .ge. 0) .and. (io_config_outputs .ne. 4) ) then iret = nf_inq_varid(ncid,"velocity", varid) iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), velocity) endif - if(UDMP_OPT .eq. 1) then - - iret = nf_inq_varid(ncid,"accLndRunOff", varid) - iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), accLndRunOff) - - iret = nf_inq_varid(ncid,"accQLateral", varid) - iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), accQLateral) - - iret = nf_inq_varid(ncid,"accStrmvolrt", varid) - iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), accStrmvolrt) - - iret = nf_inq_varid(ncid,"accBucket", varid) - iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), accBucket) + !! JLM: Write/define a global attribute of the file as the LSM timestep. Enforce + !! JLM: force_type=9 only reads these discharges to the channel if the LSM timesteps match. + if(UDMP_OPT .eq. 1 .and. nlst_rt(did)%output_channelBucket_influx .ne. 0) then + !! FLUXES + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + iret = nf_inq_varid(ncid,"qSfcLatRunoff", varid) + iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), qSfcLatRunoff) + + iret = nf_inq_varid(ncid,"qBucket", varid) + iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), qBucket) + end if + !! Bucket model influxes + if(nlst_rt(did)%output_channelBucket_influx .eq. 2 .and. & + nlst_rt(did)%channel_only .eq. 0 ) then + iret = nf_inq_varid(ncid,"qBtmVertRunoff", varid) + iret = nf_put_vara_real(ncid, varid, (/1/), (/nstations/), qBtmVertRunoff) + endif + + !! ACCUMULATIONS + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + iret = nf_inq_varid(ncid,"accSfcLatRunoff", varid) + iret = nf_put_vara_double(ncid, varid, (/1/), (/nstations/), accSfcLatRunoff) + + iret = nf_inq_varid(ncid,"accBucket", varid) + iret = nf_put_vara_double(ncid, varid, (/1/), (/nstations/), accBucket) + end if endif - !-- write id iret = nf_inq_varid(ncid,"station_id", varid) iret = nf_put_vara_int(ncid, varid, (/1/), (/nstations/), linkid) - - iret = nf_redef(ncid) date19(1:19) = "0000-00-00_00:00:00" date19(1:len_trim(date)) = date iret = nf_put_att_text(ncid, NF_GLOBAL, "model_output_valid_time", 19, trim(nlst_rt(1)%olddate)) - - iret = nf_enddef(ncid) - iret = nf_sync(ncid) - - iret = nf_close(ncid) + iret = nf_sync(ncid) + iret = nf_close(ncid) #ifdef HYDRO_D print *, "Exited Subroutine output_chrt" @@ -9099,6 +9891,10 @@ subroutine output_GW_Diag(did) deallocate(g_qin_gwsubbas, g_qout_gwsubbas, g_z_gwsubbas, g_basnsInd) endif + if(allocated(g_qin_gwsubbas)) deallocate(g_qin_gwsubbas) + if(allocated(g_qout_gwsubbas)) deallocate(g_qout_gwsubbas) + if(allocated(g_z_gwsubbas)) deallocate(g_z_gwsubbas) + # else ! open (unit=51,file='GW_inflow.txt',form='formatted',& ! status='unknown',position='append') @@ -9260,10 +10056,9 @@ end subroutine output_gw_netcdf !------------------------------- end gw netcdf output - subroutine read_NSIMLAKES(NLAKES,route_lake_f) integer :: NLAKES - CHARACTER(len=256) :: route_lake_f + CHARACTER(len=* ) :: route_lake_f character(len=256) :: route_lake_f_r integer :: lenRouteLakeFR, iRet, ncid, dimId @@ -9284,9 +10079,20 @@ subroutine read_NSIMLAKES(NLAKES,route_lake_f) if(routeLakeNetcdf) then write(6,'("getting NLAKES from: ''", A, "''")') trim(route_lake_f) - NLAKES = get_netcdf_dim(trim(route_lake_f), 'nlakes', & - 'read_NSIMLAKES', fatalErr=.true.) - else + NLAKES = -99 + NLAKES = get_netcdf_dim(trim(route_lake_f), 'feature_id', & + 'read_NSIMLAKES', fatalErr=.false.) + if (NLAKES .eq. -99) then + ! We were unsucessful in getting feature_id, try linkDim + NLAKES = get_netcdf_dim(trim(route_lake_f), 'nlakes', & + 'read_NSIMLAKES', fatalErr=.false.) + endif + if (NLAKES .eq. -99) then + ! Neither the feature_id nor nlakes dimensions were found in + ! the LAKEPARM file. Throw an error... + call hydro_stop("Could not find either feature_id or nlakes in LAKEPARM netcdf file.") + endif + else !yw for IOC reach based routing, if netcdf lake file is not set from the hydro.namelist, ! we will assume that no lake will be assimulated. write(6,*) "No lake nectdf file defined. NLAKES is set to be zero." @@ -9397,8 +10203,9 @@ subroutine nhdLakeMap_mpp(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,L integer, dimension(:), intent(in) :: LINKID, LAKEIDA integer, dimension(:), intent(inout) :: LAKEIDM integer, intent(in) :: NLAKES, NLINKSL ,GNLINKSL - integer, dimension(NLINKSL) :: OUTLAKEID - integer :: i,size ,j,k, kk, num, maxNum, m, mm +!yw integer, dimension(NLINKSL) :: OUTLAKEID + integer, allocatable, dimension(:) :: OUTLAKEID + integer :: i,size2 ,j,k, kk, num, maxNum, m, mm, tmpSize integer, allocatable, dimension(:) :: gLINKID, tmpTYPEL, tmpLINKID, ind, & tmplakeida, tmpoutlakeid, tmpTO_NODE, gLAKEIDA, gLAKEIDX integer, allocatable, dimension(:,:) :: gtonodeout @@ -9407,6 +10214,9 @@ subroutine nhdLakeMap_mpp(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,L integer tmpBuf(GNLINKSL) + tmpSize = size(TO_NODE,1) + allocate(OUTLAKEID(tmpSize)) + allocate (gto(GNLINKSL)) if(my_id .eq. io_id) then @@ -9469,19 +10279,19 @@ subroutine nhdLakeMap_mpp(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,L endif end do end do - size = kk - if(allocated(gto)) deallocate (gto) + size2 = kk + deallocate (gto) allocate(gLINKID(gnlinksl)) call gBcastValue(LINKID,gLINKID) - do i = 1, size + do i = 1, size2 k = ind(i) tmpLINKID(i) = gLINKID(k) enddo allocate(gLAKEIDA(gnlinksl)) call gBcastValue(LAKEIDA(1:NLINKSL),gLAKEIDA(1:gnlinksl) ) - do i = 1, size + do i = 1, size2 k = ind(i) tmpLAKEIDA(i) = gLAKEIDA(k) enddo @@ -9546,8 +10356,8 @@ subroutine nhdLakeMap_mpp(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,L ! call flush(70+my_id) ! end do - call TONODE2RSL(ind,tmpTYPEL,size,gNLINKSL,NLINKSL,TYPEL(1:NLINKSL), -999 ) - call TONODE2RSL(ind,tmpOUTLAKEID,size,gNLINKSL,NLINKSL,OUTLAKEID(1:NLINKSL), -999 ) + call TONODE2RSL(ind,tmpTYPEL,size2,gNLINKSL,NLINKSL,TYPEL(1:NLINKSL), -999 ) + call TONODE2RSL(ind,tmpOUTLAKEID,size2,gNLINKSL,NLINKSL,OUTLAKEID(1:NLINKSL), -999 ) ! assign the the inflow nodes to the lank with a new TO_NODE id, which is the outflow link @@ -9579,14 +10389,11 @@ subroutine nhdLakeMap_mpp(NLAKES, NLINKSL, TYPEL, LAKELINKID, LAKEIDX, TO_NODE,L endif ENDDO ENDDO - if(allocated(gLINKID)) deallocate(gLINKID) - if(allocated(gTYPEL)) deallocate(gTYPEL) - if(allocated(gOUTLAKEID)) deallocate(gOUTLAKEID) - if(allocated(tmpTYPEL)) deallocate(tmpTYPEL) - if(allocated(tmpLINKID)) deallocate(tmpLINKID) - if(allocated(tmpTO_NODE)) deallocate(tmpTO_NODE) - if(allocated(tmpLAKEIDA)) deallocate(tmpLAKEIDA) - if(allocated(tmpOUTLAKEID)) deallocate(tmpOUTLAKEID) + deallocate(gLINKID) + deallocate(gTYPEL) + deallocate(gOUTLAKEID) + + deallocate(tmpTYPEL,tmpLINKID, tmpTO_NODE, tmpLAKEIDA, tmpOUTLAKEID,OUTLAKEID) ! do k = 1, NLINKSL @@ -9826,7 +10633,6 @@ subroutine output_lake_types( inNLINKS, inLINKID, inTYPEL ) integer :: iret integer :: ncid, varid - integer, parameter :: did=1 integer :: linkdim character(len=256), parameter :: output_flnm = "LAKE_TYPES.nc" @@ -9919,5 +10725,313 @@ subroutine output_lake_types( inNLINKS, inLINKID, inTYPEL ) end subroutine output_lake_types +subroutine hdtbl_out_nc(did,ncid,count,count_flag,varName,varIn,descrip,ixd,jxd) + implicit none + integer :: did, iret, ncid, ixd,jxd, ix,jx, err_flag,count_flag, count,varid + real, allocatable, dimension(:,:) :: xdump + real, dimension(:,:) :: varIn + character(len=*) :: descrip + character(len=*) ::varName + +#ifdef MPP_LAND + ix=global_nx + jx=global_ny +#else + ix=RT_DOMAIN(did)%ix + jx=RT_DOMAIN(did)%jx +#endif + if( count == 0 .and. count_flag == 0) then + count_flag = 1 +#ifdef MPP_LAND + if(my_id .eq. IO_id) then +#endif +#ifdef WRFIO_NCD_NO_LARGE_FILE_SUPPORT + iret = nf_create(trim(nlst_rt(did)%hydrotbl_f), NF_CLOBBER, ncid) +#else + iret = nf_create(trim(nlst_rt(did)%hydrotbl_f), IOR(NF_CLOBBER,NF_64BIT_OFFSET), ncid) +#endif +#ifdef MPP_LAND + endif + call mpp_land_bcast_int1(iret) +#endif + if (iret /= 0) then + call hydro_stop("FATAL ERROR: - Problem nf_create in nc of hydrotab_f file") + endif + +#ifdef MPP_LAND + if(my_id .eq. IO_id) then +#endif + iret = nf_def_dim(ncid, "west_east", ix, ixd) !-- make a decimated grid + iret = nf_def_dim(ncid, "south_north", jx, jxd) +#ifdef MPP_LAND + endif +#endif + endif ! count == 0 + + + if( count == 1 ) then ! define variables +#ifdef MPP_LAND + if(my_id .eq. io_id) then +#endif + iret = nf_def_var(ncid,trim(varName),NF_FLOAT, 2, (/ixd,jxd/), varid) + ! iret = nf_put_att_text(ncid,varid,'description',256,trim(descrip)) + iret = nf_put_att_text(ncid,varid,'description',4,"test") +#ifdef MPP_LAND + endif +#endif + endif !!! end of count == 1 + + if (count == 2) then ! write out the variables + if(count_flag == 2) iret = nf_enddef(ncid) + count_flag = 3 +#ifdef MPP_LAND + if(my_id .eq. io_id) then +#endif + allocate (xdump(ix, jx)) +#ifdef MPP_LAND + else + allocate (xdump(1, 1)) + endif +#endif + +#ifdef MPP_LAND + call write_io_real(varIn,xdump) + if(my_id .eq. io_id) iret = nf_inq_varid(ncid,trim(varName), varid) + if(my_id .eq. io_id) iret = nf_put_vara_real(ncid,varid, (/1,1/), (/ix,jx/),xdump) +#else + iret = nf_inq_varid(ncid,trim(varName), varid) + iret = nf_put_vara_real(ncid,varid, (/1,1/), (/ix,jx/),varIn) +#endif + + deallocate(xdump) + endif !! end of count == 2 + if(count == 3 .and. count_flag == 3) then + count_flag = 4 +#ifdef MPP_LAND + if(my_id .eq. io_id ) & +#endif + iret = nf_close(ncid) + endif !! end of count == 3 + + +end subroutine hdtbl_out_nc +subroutine hdtbl_out(did) + implicit none + integer :: did, ncid, count,count_flag, i, ixd,jxd + do i = 0,3 + count = i + count_flag = i + call hdtbl_out_nc(did,ncid, count,count_flag,"SMCMAX1",rt_domain(did)%SMCMAX1,"",ixd,jxd) + call hdtbl_out_nc(did,ncid, count,count_flag,"SMCREF1",rt_domain(did)%SMCREF1,"",ixd,jxd) + call hdtbl_out_nc(did,ncid, count,count_flag,"SMCWLT1",rt_domain(did)%SMCWLT1,"",ixd,jxd) + call hdtbl_out_nc(did,ncid, count,count_flag,"OV_ROUGH2D",rt_domain(did)%OV_ROUGH2D,"",ixd,jxd) + call hdtbl_out_nc(did,ncid, count,count_flag,"LKSAT",rt_domain(did)%LKSAT,"",ixd,jxd) + end do + +end subroutine hdtbl_out +subroutine hdtbl_in_nc(did) + implicit none + integer :: did + call read2dlsm(did,trim(nlst_rt(did)%hydrotbl_f),"SMCMAX1",rt_domain(did)%SMCMAX1) + call read2dlsm(did,trim(nlst_rt(did)%hydrotbl_f),"SMCREF1",rt_domain(did)%SMCREF1) + call read2dlsm(did,trim(nlst_rt(did)%hydrotbl_f),"SMCWLT1",rt_domain(did)%SMCWLT1) + call read2dlsm(did,trim(nlst_rt(did)%hydrotbl_f),"OV_ROUGH2D",rt_domain(did)%OV_ROUGH2D) + call read2dlsm(did,trim(nlst_rt(did)%hydrotbl_f),"LKSAT",rt_domain(did)%LKSAT) +end subroutine hdtbl_in_nc +subroutine read2dlsm(did,file,varName,varOut) + implicit none + integer :: did, ncid ,ierr,iret + character(len=*) :: file,varName + real,dimension(:,:) :: varOut + character(len=256) :: units +#ifdef MPP_LAND + real,allocatable,dimension(:,:) :: tmpArr + if(my_id .eq. io_id) then + allocate(tmpArr(global_nx,global_ny)) + iret = nf_open(trim(file), NF_NOWRITE, ncid) + call get_2d_netcdf(trim(varName), ncid, tmpArr, units, global_nx, global_ny, & + .false., ierr) + iret = nf_close(ncid) + else + allocate(tmpArr(1,1)) + endif + call decompose_data_real (tmpArr,varOut) + deallocate(tmpArr) +#else + iret = nf_open(trim(file), NF_NOWRITE, ncid) + call get_2d_netcdf(trim(varName), ncid, varOut, units, rt_domain(did)%ix, rt_domain(did)%jx, & + .false., ierr) + iret = nf_close(ncid) +#endif + +end subroutine read2dlsm + + +subroutine read_channel_only (olddateIn, hgrid, indir, dtbl) +!use module_HYDRO_io, only: read_rst_crt_reach_nc +use module_RT_data, only: rt_domain +use module_mpp_land,only: mpp_land_bcast_int1, my_id, io_id +use Module_Date_utilities_rt, only: geth_newdate +use module_namelist, only: nlst_rt +implicit none +#include +integer :: iret, did, len, ncid +integer :: dtbl +character :: hgrid +character(len=*):: olddateIn,indir +character(len=19) :: olddate +character(len=256):: fileName +real*8, allocatable, dimension(:):: accBucket_in, accSfcLatRunoff_in +real , allocatable, dimension(:):: qBucket_in, qSfcLatRunoff_in +integer, parameter :: r8 = selected_real_kind(8) +real*8, parameter :: zeroDbl=0.0000000000000000000_r8 +integer :: ovrtswcrt_in, noah_timestep_in, channel_only_in, channelBucket_only_in +character(len=86) :: attNotInFileMsg + +did = 1 +len = size(rt_domain(did)%QLATERAL,1) +!! if len is .le. 0, this whole thing is pointless. huh? + +if(my_id .eq. io_id) then + call geth_newdate(olddate,olddateIn,dtbl) + fileName = trim(indir)//"/"//& + olddate(1:4)//olddate(6:7)//olddate(9:10)//olddate(12:13)//& + olddate(15:16)//".CHRTOUT_DOMAIN"//hgrid +#ifdef HYDRO_D + print*, " Channel only input forcing file: ",trim(fileName) +#endif /* HYDRO_D */ + iret = nf_open(trim(fileName), NF_NOWRITE, ncid) +endif + +call mpp_land_bcast_int1(iret) +if (iret .ne. 0) then + call hydro_stop( "FATAL ERROR: read forcing data for CHANNEL_ONLY failed. ") +endif + +!! --------------------------------------------------------------------------- +!! Consistency checks - global att checking. +if(my_id .eq. io_id) then + + attNotInFileMsg=& !! lenght fixed above + 'Fatal error for channel only: the following global attribute not in the forcing file: ' + + !! 1) overland routing v squeegee?? + !!if(nlst_rt(did)%OVRTSWCRT .eq. 1) then + iret = nf_get_att_int(ncid, NF_GLOBAL, 'OVRTSWCRT', ovrtswcrt_in) + if(iret .ne. 0) iret = nf_get_att_int(ncid, NF_GLOBAL, 'dev_OVRTSWCRT', ovrtswcrt_in) + if(iret .ne. 0) call hydro_stop(attNotInFileMsg // 'OVRTSWCRT & dev_OVRTSWCRT not in ' // trim(fileName) ) + if(nlst_rt(1)%ovrtswcrt .ne. ovrtswcrt_in) & + call hydro_stop('Channel only: OVRTSWCRT or dev_OVRSWCRT in forcing file does not match run config.') + + !! 2) NOAH_TIMESTEP same? + iret = nf_get_att_int(ncid, NF_GLOBAL, 'NOAH_TIMESTEP', noah_timestep_in) + if(iret .ne. 0) iret = nf_get_att_int(ncid, NF_GLOBAL, 'dev_NOAH_TIMESTEP', noah_timestep_in) + if(iret .ne. 0) call hydro_stop(attNotInFileMsg // 'NOAH_TIMESTEP & dev_NOAH_TIMESTEP not in ' // trim(fileName) ) + if(nlst_rt(1)%dt .ne. noah_timestep_in) & + call hydro_stop('Channel only: NOAH_TIMESTEP or dev_NOAH_TIMESTEP in forcing file does not match run config.') + + !! 3) channel_only or channelBucket_only? + iret = nf_get_att_int(ncid, NF_GLOBAL, "channel_only", channel_only_in) + if(iret .ne. 0) iret = nf_get_att_int(ncid, NF_GLOBAL, "dev_channel_only", channel_only_in) + if(iret .ne. 0) call hydro_stop(attNotInFileMsg // 'channel_only not in ' // trim(fileName) ) + + iret = nf_get_att_int(ncid, NF_GLOBAL, "channelBucket_only", channelBucket_only_in) + if(iret .ne. 0) iret = nf_get_att_int(ncid, NF_GLOBAL, "dev_channelBucket_only", channel_only_in) + if(iret .ne. 0) call hydro_stop(attNotInFileMsg // 'channelBucket_only not in ' // trim(fileName) ) + !! See table of fatal combinations on wiki: https://wiki.ucar.edu/display/wrfhydro/Channel+Only + !! First row: Can it even get to this combination? NO. + !if( (nlst_rt(did)%channel_only .eq. 0 .and. nlst_rt(did)%channelBucket_only .eq. 0) .and. & + ! (channel_only_in .eq. 1 .or. channelBucket_only_in .eq. 1) ) & + ! call hydro_stop('Channel Only: Forcing files in consistent with forcing type.') + !! Second row: + if(nlst_rt(did)%channel_only .eq. 1 .and. channelBucket_only_in .eq. 1) & + write(6,*) "Warning: channelBucket_only output forcing channel_only run" + +end if + + !! --------------------------------------------------------------------------- + !! FLUXES or accumulations? NOT SUPPORTING accumulations to be read in. +!! FLUXES +if(nlst_rt(did)%channel_only .eq. 1 .or. & + nlst_rt(did)%channelBucket_only .eq. 1 ) then + + allocate(qBucket_in(len)) + allocate(qSfcLatRunoff_in(len)) + qBucket_in = 0.0 + qSfcLatRunoff_in = 0.0 + + !! Surface Lateral Fluxes (currenly include exfiltration from subsurface) + call read_rst_crt_reach_nc(ncid, qSfcLatRunoff_in, "qSfcLatRunoff", & + rt_domain(did)%GNLINKSL, fatalErr=.true. ) + + !! Fluxes from (channel only) or to (channelBucket only) bucket? + !! Fluxes from bucket. + if(nlst_rt(did)%channel_only .eq. 1) then + call read_rst_crt_reach_nc(ncid, qBucket_in, "qBucket", & + rt_domain(did)%GNLINKSL, fatalErr=.true.) + rt_domain(did)%qout_gwsubbas = qBucket_in + rt_domain(did)%QLateral = qBucket_in + qSfcLatRunoff_in + endif + + !! Fluxes to bucket + if(nlst_rt(did)%channelBucket_only .eq. 1) then + call read_rst_crt_reach_nc(ncid, qBucket_in, "qBtmVertRunoff", & + rt_domain(did)%GNLINKSL, fatalErr=.true.) + rt_domain(did)%qin_gwsubbas = qBucket_in + rt_domain(did)%QLateral = qSfcLatRunoff_in + end if + + deallocate(qBucket_in, qSfcLatRunoff_in) +end if + +!! Accumulations - NOT SUPPORTED, MAY NEVER BE. +!! How to figure out if fluxes or accums force?? +if(.FALSE.) then + allocate(accBucket_in(len)) + allocate(accSfcLatRunoff_in(len)) + accBucket_in = zeroDbl + accSfcLatRunoff_in = zeroDbl + + call read_rst_crt_reach_nc(ncid, accSfcLatRunoff_in, "accSfcLatRunoff", & + rt_domain(did)%GNLINKSL, fatalErr=.true.) + !! Could worry about bucket being off or not output... + call read_rst_crt_reach_nc(ncid, accBucket_in, "accBucket", & + rt_domain(did)%GNLINKSL, fatalErr=.true.) + + !! Calculate the current + if(len .gt. 0) then !! would the length be zero on some images? + rt_domain(did)%qout_gwsubbas = & + real( (accBucket_in - rt_domain(did)%accBucket)/nlst_rt(did)%DT ) + rt_domain(did)%QLateral = & + real( rt_domain(did)%qout_gwsubbas + & + (accSfcLatRunoff_in - rt_domain(did)%accSfcLatRunoff)/nlst_rt(did)%DT ) + + !! Negative accumulations imply accumulations were zeroed, e.g. the code was restarted + if(any(rt_domain(did)%QLateral .lt. 0)) & + rt_domain(did)%QLateral = real( (accSfcLatRunoff_in)/nlst_rt(did)%DT ) + if(any(rt_domain(did)%qout_gwsubbas .lt. 0)) & + rt_domain(did)%qout_gwsubbas = real( (accBucket_in)/nlst_rt(did)%DT ) + + !! /\ ORDER MATTERS \/ because the pre-input accumulations are needed above. + !! else below would be zero. + rt_domain(did)%accBucket = accBucket_in + rt_domain(did)%accSfcLatRunoff = accSfcLatRunoff_in + + end if + + deallocate(accBucket_in, accSfcLatRunoff_in) +end if + +if(my_id .eq. io_id) then + iret = nf_close(ncid) +#ifdef HYDRO_D + print*, "finish read channel only forcing " +#endif /* HYDRO_D */ +endif +call flush(6) + +end subroutine read_channel_only + +!--------------------------------------------------------------------------- end module module_HYDRO_io diff --git a/hydro/Routing/module_NWM_io.F b/hydro/Routing/module_NWM_io.F new file mode 100644 index 0000000000..28a3681403 --- /dev/null +++ b/hydro/Routing/module_NWM_io.F @@ -0,0 +1,5360 @@ +! Module for handling National Water Model streamflow, land surface, +! gridded routing, lake, and groundwater output. + +! Logan Karsten +! National Center for Atmospheric Research +! Research Applications Laboratory +! karsten@ucar.edu +! 303-497-2693 + +module module_NWM_io + +implicit none + +! Module-wide variables +integer, private :: ftnNoahMP ! Private NetCDF file handle since output routine + ! called multiple times for one file. +contains + +!============================================================================== +! Program Name: output_chrt_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output routine for channel points for the National Water Model. +! History Log: +! 3/6/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. + +! To add some information as global attribute for the model configuration +! here we get a character variable for the io_config_outputs +function GetModelConfigType (io_config_outputs) result(modelConfigType) + integer io_config_outputs + character (len=64) :: modelConfigType + if (io_config_outputs .eq. 0) then + ! All + modelConfigType = "default" + else if (io_config_outputs .eq. 1) then + ! Analysis and Assimilation + modelConfigType = "analysis_and_assimilation" + else if (io_config_outputs .eq. 2) then + ! Short Range + modelConfigType = "short_range" + else if (io_config_outputs .eq. 3) then + ! Medium Range + modelConfigType = "medium_range" + else if (io_config_outputs .eq. 4) then + ! Long Range + modelConfigType = "long_range" + else if (io_config_outputs .eq. 5) then + ! Retrospective + modelConfigType = "retrospective" + else if (io_config_outputs .eq. 6) then + ! Diagnostic + modelConfigType = "diagnostic" + else + ! call nwmCheck(diagFlag,1,'ERROR: Invalid IOC flag provided by namelist file.') + endif +end function GetModelConfigType + +subroutine output_chrt_NWM(domainId) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use module_mpp_land + use module_mpp_reachls, only: ReachLS_write_io +#endif + implicit none + + ! Pass in "did" value from hydro driving program. + integer, intent(in) :: domainId + + ! Derived types. + type(chrtMeta) :: fileMeta + + ! Local variables + integer :: nudgeFlag, mppFlag, diagFlag + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDate ! Start of model simulation, represented as a string. + character(len=256) :: output_flnm ! CHRTOUT_DOMAIN filename + integer :: iret ! NetCDF return statuses + integer :: ftn ! NetCDF file handle + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: dimId(3) ! Dimension ID values created during NetCDF created. + integer :: varId ! Variable ID value created as NetCDF variables are created and populated. + integer :: timeId ! Dimension ID for the time dimension. + integer :: refTimeId ! Dimension ID for the reference time dimension. + integer :: coordVarId ! Variable to hold crs + integer :: featureVarId, elevVarId, orderVarId ! Misc NetCDF variable id values + integer :: latVarId, lonVarId ! Lat/lon NetCDF variable id values. + integer :: varRange(2) ! Local storage of min/max valid range values. + real :: varRangeReal(2) ! Local storage of min/max valid range values. + integer :: gSize ! Global size of channel point array. + integer :: indVarId,ftnRt ! values related to extraction of ascending order index values from the RouteLink file. + integer :: iTmp, indTmp ! Misc integer values. + integer :: ierr, myId ! MPI return status, process ID + integer :: ascFlag ! Flag for if ascendingIndex is present + ! Establish local, allocatable arrays + ! These are used to hold global output arrays, and global output arrays after + ! sorting has taken place by ascending feature_id value. + real, allocatable, dimension(:) :: strFlowLocal,velocityLocal + real, allocatable, dimension(:,:) :: g_qlink + integer, allocatable, dimension(:) :: g_linkid,g_order + real, allocatable, dimension(:) :: g_chlat,g_chlon,g_hlink,g_zelev + real, allocatable, dimension(:) :: g_QLateral,g_velocity + real, allocatable, dimension(:) :: g_nudge,g_qSfcLatRunoff + real, allocatable, dimension(:) :: g_qBucket,g_qBtmVertRunoff,g_accBucket + real*8, allocatable, dimension(:) :: g_accSfcLatRunoff + real, allocatable, dimension(:,:) :: g_qlinkOut + integer, allocatable, dimension(:) :: g_orderOut,g_linkidOut + real, allocatable, dimension(:) :: g_chlatOut,g_chlonOut,g_hlinkOut,g_zelevOut + real, allocatable, dimension(:) :: g_QLateralOut,g_velocityOut + real, allocatable, dimension(:) :: g_nudgeOut,g_qSfcLatRunoffOut + real, allocatable, dimension(:) :: g_qBucketOut,g_qBtmVertRunoffOut,g_accBucketOut + real*8, allocatable, dimension(:) :: g_accSfcLatRunoffOut + real, allocatable, dimension(:,:) :: varOutReal ! Array holding output variables in real format + integer, allocatable, dimension(:) :: varOutInt ! Array holding output variables after + ! scale_factor/add_offset have been applied. + integer, allocatable, dimension(:) :: chIndArray ! Array of index values for + !each channel point. feature_id will need to be sorted in ascending order once + !data is collected into the global array. From there, the index values are + !re-sorted, and used to re-sort output arrays. + integer, allocatable, dimension(:) :: g_outInd ! Array of index values for strahler order. + integer :: numPtsOut + real, allocatable, dimension(:,:) :: varMetaReal + integer, allocatable, dimension(:,:) :: varMetaInt + + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + + ! Initialize the ascFlag to 1 + ascFlag = 1 + + ! Establish macro variables to hlep guide this subroutine. +#ifdef WRF_HYDRO_NUDGING + nudgeFlag = 1 +#else + nudgeFlag = 0 +#endif + +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + if(nlst_rt(domainId)%CHRTOUT_DOMAIN .eq. 0) then + ! No output requested here, return to parent calling program/subroutine. + return + endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Initialize NWM dictionary derived type containing all the necessary metadat + ! for the output file. + call initChrtDict(fileMeta,diagFlag,myId) + + ! Depending on the NWM forecast config, we will be outputting different + ! varibles. DO NOT MODIFY THESE ARRAYS WITHOUT CONSULTING NCAR OR + ! OWP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + if (nlst_rt(1)%io_config_outputs .eq. 0) then + ! All + fileMeta%outFlag(:) = [1,1,1,1,1,0,0,0,0,0] + else if (nlst_rt(1)%io_config_outputs .eq. 1) then + ! Analysis and Assimilation + fileMeta%outFlag(:) = [1,0,0,1,0,0,0,0,0,0] + else if (nlst_rt(1)%io_config_outputs .eq. 2) then + ! Short Range + fileMeta%outFlag(:) = [1,0,0,1,0,0,0,0,0,0] + else if (nlst_rt(1)%io_config_outputs .eq. 3) then + ! Medium Range + fileMeta%outFlag(:) = [1,0,0,1,0,0,0,0,0,0] + else if (nlst_rt(1)%io_config_outputs .eq. 4) then + ! Long Range + fileMeta%outFlag(:) = [1,0,0,1,0,0,0,0,0,0] + else if (nlst_rt(1)%io_config_outputs .eq. 5) then + ! Retrospective + fileMeta%outFlag(:) = [1,0,1,1,0,0,0,0,0,0] + else if (nlst_rt(1)%io_config_outputs .eq. 6) then + ! Diagnostics + fileMeta%outFlag(:) = [1,0,1,1,0,0,0,0,0,0] + else + call nwmCheck(diagFlag,1,'ERROR: Invalid IOC flag provided by namelist file.') + endif + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + ! First step is to collect and assemble all data that will be written to the + ! NetCDF file. If we are not using MPI, we bypass the collection step through + ! MPI. + if(mppFlag .eq. 1) then + if(nlst_rt(domainId)%channel_option .ne. 3) then + gsize = rt_domain(domainId)%gnlinksl + else + gsize = rt_domain(domainId)%gnlinks + endif + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(myId .eq. 0) then + ! Allocate memory for output. + allocate(g_chlon(gsize)) + allocate(g_chlat(gsize)) + allocate(g_hlink(gsize)) + allocate(g_zelev(gsize)) + allocate(g_qlink(gsize,2)) + allocate(g_order(gsize)) + allocate(g_linkid(gsize)) + allocate(g_QLateral(gsize)) + allocate(g_velocity(gsize)) + allocate(g_nudge(gsize)) + allocate(g_qSfcLatRunoff(gsize)) + allocate(g_qBucket(gsize)) + allocate(g_qBtmVertRunoff(gsize)) + allocate(g_accSfcLatRunoff(gsize)) + allocate(g_accBucket(gsize)) + allocate(g_chlonOut(gsize)) + allocate(g_chlatOut(gsize)) + allocate(g_hlinkOut(gsize)) + allocate(g_zelevOut(gsize)) + allocate(g_qlinkOut(gsize,2)) + allocate(g_orderOut(gsize)) + allocate(g_QLateralOut(gsize)) + allocate(g_velocityOut(gsize)) + allocate(g_nudgeOut(gsize)) + allocate(g_qSfcLatRunoffOut(gsize)) + allocate(g_qBucketOut(gsize)) + allocate(g_qBtmVertRunoffOut(gsize)) + allocate(g_accSfcLatRunoffOut(gsize)) + allocate(g_accBucketOut(gsize)) + allocate(chIndArray(gsize)) + allocate(g_linkidOut(gsize)) + allocate(g_outInd(gsize)) + else + allocate(g_chlon(1)) + allocate(g_chlat(1)) + allocate(g_hlink(1)) + allocate(g_zelev(1)) + allocate(g_qlink(1,2)) + allocate(g_order(1)) + allocate(g_linkid(1)) + allocate(g_QLateral(1)) + allocate(g_velocity(1)) + allocate(g_nudge(1)) + allocate(g_qSfcLatRunoff(1)) + allocate(g_qBucket(1)) + allocate(g_qBtmVertRunoff(1)) + allocate(g_accSfcLatRunoff(1)) + allocate(g_accBucket(1)) + allocate(g_chlonOut(1)) + allocate(g_chlatOut(1)) + allocate(g_hlinkOut(1)) + allocate(g_zelevOut(1)) + allocate(g_qlinkOut(1,2)) + allocate(g_orderOut(1)) + allocate(g_QLateralOut(1)) + allocate(g_velocityOut(1)) + allocate(g_nudgeOut(1)) + allocate(g_qSfcLatRunoffOut(1)) + allocate(g_qBucketOut(1)) + allocate(g_qBtmVertRunoffOut(1)) + allocate(g_accSfcLatRunoffOut(1)) + allocate(g_accBucketOut(1)) + allocate(chIndArray(1)) + allocate(g_linkidOut(1)) + allocate(g_outInd(1)) + endif + + ! Allocate local streamflow and velocity arrays. We need to do a check to + ! for lake_type 2. However, we cannot set the values in the global array + ! to missing as this causes the model to crash. + allocate(strFlowLocal(RT_DOMAIN(domainId)%NLINKS)) + allocate(velocityLocal(RT_DOMAIN(domainId)%NLINKS)) + strFlowLocal = RT_DOMAIN(domainId)%QLINK(:,1) + velocityLocal = RT_DOMAIN(domainId)%velocity + + ! Sync everything up before the next step. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Loop through all the local links on this processor. For lake_type + ! of 2, we need to manually set the streamflow and velocity values + ! to the model NDV value. + if (RT_DOMAIN(domainId)%NLAKES .gt. 0) then + do iTmp=1,RT_DOMAIN(domainId)%NLINKS + if (RT_DOMAIN(domainId)%TYPEL(iTmp) .eq. 2) then + strFlowLocal(iTmp) = fileMeta%modelNdv + velocityLocal(iTmp) = fileMeta%modelNdv + endif + end do + endif + + ! Collect arrays from various processors through MPI, and + ! assemble into global arrays previously allocated. + if(nlst_rt(domainId)%channel_option .ne. 3) then + ! Reach-based routing collection +#ifdef MPP_LAND + call ReachLS_write_io(strFlowLocal,g_qlink(:,1)) + call ReachLS_write_io(RT_DOMAIN(domainId)%QLINK(:,2),g_qlink(:,2)) + call ReachLS_write_io(RT_DOMAIN(domainId)%ORDER,g_order) + call ReachLS_write_io(RT_DOMAIN(domainId)%linkid,g_linkid) + call ReachLS_write_io(RT_DOMAIN(domainId)%CHLAT,g_chlat) + call ReachLS_write_io(RT_DOMAIN(domainId)%CHLON,g_chlon) + call ReachLS_write_io(RT_DOMAIN(domainId)%ZELEV,g_zelev) + call ReachLS_write_io(RT_DOMAIN(domainId)%QLateral,g_QLateral) + call ReachLS_write_io(velocityLocal,g_velocity) + call ReachLS_write_io(RT_DOMAIN(domainId)%HLINK,g_hlink) + ! Optional outputs + if(nudgeFlag .eq. 1)then +#ifdef WRF_HYDRO_NUDGING + fileMeta%outFlag(2) = 1 ! Set output flag to on. + call ReachLS_write_io(RT_DOMAIN(domainID)%nudge,g_nudge) +#endif + else + fileMeta%outFlag(2) = 0 ! Set output flag to off. + endif + if(nlst_rt(domainId)%UDMP_OPT .eq. 1) then + ! Currently, we only allow channel-only outputs to be produced for + ! NWM configurations. + if(nlst_rt(domainId)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(domainId)%output_channelBucket_influx .eq. 2) then + fileMeta%outFlag(6) = 1 + fileMeta%outFlag(7) = 1 + call ReachLS_write_io(RT_DOMAIN(domainId)%qSfcLatRunoff,g_qSfcLatRunoff) + call ReachLS_write_io(RT_DOMAIN(domainId)%qBucket,g_qBucket) + endif + if(nlst_rt(domainId)%output_channelBucket_influx .eq. 2 .and. & + nlst_rt(domainId)%channel_only .eq. 0 ) then + fileMeta%outFlag(8) = 1 + call ReachLS_write_io(RT_DOMAIN(domainId)%qin_gwsubbas,g_qBtmVertRunoff) + endif + if(nlst_rt(domainId)%output_channelBucket_influx .eq. 3) then + !! JLM: unsure the following will work... but this is caveated in namelist. + fileMeta%outFlag(9) = 1 + fileMeta%outFlag(10) = 1 + call ReachLS_write_io(RT_DOMAIN(domainId)%accSfcLatRunoff,g_accSfcLatRunoff) + call ReachLS_write_io(RT_DOMAIN(domainId)%qBucket,g_accBucket) + endif + else + if(nlst_rt(domainId)%output_channelBucket_influx .ne. 0) then + ! For reach-based routing (non-NWM), we currently do not support + ! these outputs. Politely alert the user..... + call postDiagMsg(diagFlag,'WARNING: Channel-only outputs not available for UDMPT = 0 on reach-based routing.') + endif + endif +#endif + else + ! Gridded routing collection + call write_chanel_real(strFlowLocal,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_qlink(:,1)) + call write_chanel_real(RT_DOMAIN(domainId)%QLINK(:,2),rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_qlink(:,2)) + call write_chanel_real(RT_DOMAIN(domainId)%CHLAT,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_chlat) + call write_chanel_real(RT_DOMAIN(domainId)%CHLON,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_chlon) + call write_chanel_real(RT_DOMAIN(domainId)%HLINK,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_hlink) + call write_chanel_int(RT_DOMAIN(domainId)%ORDER,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_order) + call write_chanel_int(RT_DOMAIN(domainId)%linkid,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_linkid) + call write_chanel_real(RT_DOMAIN(domainId)%ZELEV,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_zelev) + call write_chanel_real(RT_DOMAIN(domainId)%QLateral,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_QLateral) + call write_chanel_real(velocityLocal,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_velocity) + if(nlst_rt(domainId)%output_channelBucket_influx .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: This channelBucket_influx only available for reach-based routing.') + endif + if(nudgeFlag .eq. 1)then +#ifdef WRF_HYDRO_NUDGING + fileMeta%outFlag(2) = 1 ! Set output flag to on. + call write_chanel_real(RT_DOMAIN(domainID)%nudge,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_nudge) +#endif + else + fileMeta%outFlag(2) = 0 ! Set output flag to off. + endif + endif + + else + gSize = rt_domain(domainId)%nlinksl + ! No MPI - We are running on a single processor + allocate(g_chlon(gsize)) + allocate(g_chlat(gsize)) + allocate(g_hlink(gsize)) + allocate(g_zelev(gsize)) + allocate(g_qlink(gsize,2)) + allocate(g_order(gsize)) + allocate(g_linkid(gsize)) + allocate(g_QLateral(gsize)) + allocate(g_velocity(gsize)) + allocate(g_nudge(gsize)) + allocate(g_qSfcLatRunoff(gsize)) + allocate(g_qBucket(gsize)) + allocate(g_qBtmVertRunoff(gsize)) + allocate(g_accSfcLatRunoff(gsize)) + allocate(g_accBucket(gsize)) + allocate(g_chlonOut(gsize)) + allocate(g_chlatOut(gsize)) + allocate(g_hlinkOut(gsize)) + allocate(g_zelevOut(gsize)) + allocate(g_qlinkOut(gsize,2)) + allocate(g_orderOut(gsize)) + allocate(g_QLateralOut(gsize)) + allocate(g_velocityOut(gsize)) + allocate(g_nudgeOut(gsize)) + allocate(g_qSfcLatRunoffOut(gsize)) + allocate(g_qBucketOut(gsize)) + allocate(g_qBtmVertRunoffOut(gsize)) + allocate(g_accSfcLatRunoffOut(gsize)) + allocate(g_accBucketOut(gsize)) + allocate(chIndArray(gsize)) + allocate(g_linkidOut(gsize)) + allocate(g_outInd(gsize)) + g_chlon = RT_DOMAIN(domainId)%CHLON + g_chlat = RT_DOMAIN(domainId)%CHLAT + g_zelev = RT_DOMAIN(domainId)%ZELEV + g_order = RT_DOMAIN(domainId)%ORDER + g_linkid = RT_DOMAIN(domainId)%linkid + g_hlink = RT_DOMAIN(domainId)%HLINK + g_qlink = RT_DOMAIN(domainId)%QLINK + g_QLateral = RT_DOMAIN(domainId)%QLateral + g_velocity = RT_DOMAIN(domainId)%velocity + ! Optional outputs + if(nudgeFlag .eq. 1)then +#ifdef WRF_HYDRO_NUDGING + fileMeta%outFlag(2) = 1 ! Set output flag to on. + g_nudge = RT_DOMAIN(domainID)%nudge +#endif + endif + if(nlst_rt(domainId)%UDMP_OPT .eq. 1) then + ! Currently, we only allow channel-only outputs to be produced for + ! NWM configurations. + if(nlst_rt(domainId)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(domainId)%output_channelBucket_influx .eq. 2) then + fileMeta%outFlag(6) = 1 + fileMeta%outFlag(7) = 1 + g_qSfcLatRunoff = RT_DOMAIN(domainId)%qSfcLatRunoff + g_qBucket = RT_DOMAIN(domainId)%qBucket + endif + if(nlst_rt(domainId)%output_channelBucket_influx .eq. 2) then + fileMeta%outFlag(8) = 1 + g_qBtmVertRunoff = RT_DOMAIN(domainId)%qin_gwsubbas + endif + if(nlst_rt(domainId)%output_channelBucket_influx .eq. 3) then + fileMeta%outFlag(9) = 1 + fileMeta%outFlag(10) = 1 + g_accSfcLatRunoff = RT_DOMAIN(domainId)%accSfcLatRunoff + g_accBucket = RT_DOMAIN(domainId)%qBucket + endif + else + if(nlst_rt(domainId)%output_channelBucket_influx .ne. 0) then + ! For reach-based routing (non-NWM), we currently do not support + ! these outputs. Politely alert the user..... + call postDiagMsg(diagFlag,'WARNING: Channel-only outputs not available for UDMPT = 0 on reach-based routing.') + endif + endif + endif + + ! Calculate datetime information. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDate = trim(nlst_rt(domainId)%startdate(1:4)//"-"//& + nlst_rt(domainId)%startdate(6:7)//& + &"-"//nlst_rt(domainId)%startdate(9:10)//" "//& + nlst_rt(domainId)%startdate(12:13)//":"//& + nlst_rt(domainId)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDate,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(nlst_rt(1)%out_dt*(rt_domain(1)%out_counts-1)) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(domainId)%olddate(1:4)//'-'//& + nlst_rt(domainId)%olddate(6:7)//'-'//& + nlst_rt(domainId)%olddate(9:10)//'_'//& + nlst_rt(domainId)%olddate(12:13)//':'//& + nlst_rt(domainId)%olddate(15:16)//':'//& + nlst_rt(domainId)%olddate(18:19)) + initTime = trim(nlst_rt(domainId)%startdate(1:4)//'-'//& + nlst_rt(domainId)%startdate(6:7)//'-'//& + nlst_rt(domainId)%startdate(9:10)//'_'//& + nlst_rt(domainId)%startdate(12:13)//':'//& + nlst_rt(domainId)%startdate(15:16)//':'//& + nlst_rt(domainId)%startdate(18:19)) + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + nlst_rt(1)%out_dt + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 60/nlst_rt(1)%out_dt) * nlst_rt(1)%out_dt + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 60 / nlst_rt(1)%out_dt) ! # number of valid time (#of output files) + + ! Compose output file name. + write(output_flnm, '(A12,".CHRTOUT_DOMAIN",I1)')nlst_rt(domainId)%olddate(1:4)//& + nlst_rt(domainId)%olddate(6:7)//nlst_rt(domainId)%olddate(9:10)//& + nlst_rt(domainId)%olddate(12:13)//nlst_rt(domainId)%olddate(15:16), nlst_rt(domainId)%igrid + + ! Only run NetCDF library calls to output data if we are on the master + ! processor. + if(myId .eq. 0) then + if(nlst_rt(domainId)%channel_option .ne. 3) then + ! Read in index values from Routelink that will be used to sort output + ! variables by ascending feature_id. + iret = nf90_open(trim(nlst_rt(1)%route_link_f),NF90_NOWRITE,ncid=ftnRt) + call nwmCheck(diagFlag,iret,'ERROR: Unable to open RouteLink file for index extraction') + iret = nf90_inq_varid(ftnRt,'ascendingIndex',indVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: ascendingIndex not found in RouteLink file. No resorting will take place.') + ascFlag = 0 + endif + if(ascFlag .eq. 1) then + iret = nf90_get_var(ftnRt,indVarId,chIndArray) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract ascendingIndex from RouteLink file.') + endif + iret = nf90_close(ftnRt) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close RouteLink file.') + else + ascFlag = 0 + endif + ! Place all output arrays into one real array that will be looped over + ! during conversion to compressed integer format. + if(ascFlag .eq. 1) then + ! Sort feature_id values by ascending values using the index array + ! extracted from the RouteLink file. + do iTmp=1,gSize + indTmp = chIndArray(iTmp) + indTmp = indTmp + 1 ! Python starts index values at 0, so we need to add one. + g_linkidOut(iTmp) = g_linkid(indTmp) + g_qlinkOut(iTmp,1) = g_qlink(indTmp,1) + g_nudgeOut(iTmp) = g_nudge(indTmp) + g_QLateralOut(iTmp) = g_QLateral(indTmp) + g_velocityOut(iTmp) = g_velocity(indTmp) + g_hlinkOut(iTmp) = g_hlink(indTmp) + g_qSfcLatRunoffOut(iTmp) = g_qSfcLatRunoff(indTmp) + g_qBucketOut(iTmp) = g_qBucket(indTmp) + g_qBtmVertRunoffOut(iTmp) = g_qBtmVertRunoff(indTmp) + g_accSfcLatRunoffOut(iTmp) = g_accSfcLatRunoff(indTmp) + g_accBucketOut(iTmp) = g_accBucket(indTmp) + g_chlatOut(iTmp) = g_chlat(indTmp) + g_chlonOut(iTmp) = g_chlon(indTmp) + g_orderOut(iTmp) = g_order(indTmp) + g_zelevOut(iTmp) = g_zelev(indTmp) + end do + else + g_linkidOut = g_linkid + g_qlinkOut(:,1) = g_qlink(:,1) + g_nudgeOut = g_nudge + g_QLateralOut = g_QLateral + g_velocityOut = g_velocity + g_hlinkOut = g_hlink + g_qSfcLatRunoffOut = g_qSfcLatRunoff + g_qBucketOut = g_qBucket + g_qBtmVertRunoffOut = g_qBtmVertRunoff + g_accSfcLatRunoffOut = g_accSfcLatRunoff + g_accBucketOut = g_accBucket + g_chlatOut = g_chlat + g_chlonOut = g_chlon + g_orderOut = g_order + g_zelevOut = g_zelev + endif + + ! Calculate index values based on minimum strahler order to write. + ! Initialize the index array to 0 + g_outInd = 0 + + where(g_orderOut .ge. nlst_rt(domainId)%order_to_write) g_outInd = 1 + numPtsOut = sum(g_outInd) + + if(numPtsOut .eq. 0) then + ! Write warning message to user showing there are NO channel points to + ! write. Simply return to the main calling function. + call postDiagMsg(diagFlag,"WARNING: No channel points found for CHRTOUT.") + return + endif + + ! Loop through all channel points if we are running gridded routing. + ! Assign an arbitrary index value as the linkid field is read in as 0 from + ! the Fulldom file. + if(nlst_rt(domainId)%channel_option .eq. 3) then + do iTmp=1,gSize + g_linkidOut(iTmp) = iTmp + end do + endif + + allocate(varOutReal(fileMeta%numVars,numPtsOut)) + allocate(varOutInt(numPtsOut)) + allocate(varMetaReal(3,numPtsOut)) + allocate(varMetaInt(2,numPtsOut)) + + varOutReal(1,:) = PACK(g_qlinkOut(:,1),g_outInd == 1) + varOutReal(2,:) = PACK(g_nudgeOut,g_outInd == 1) + varOutReal(3,:) = PACK(g_QLateralOut,g_outInd == 1) + varOutReal(4,:) = PACK(g_velocityOut,g_outInd == 1) + varOutReal(5,:) = PACK(g_hlinkOut,g_outInd == 1) + varOutReal(6,:) = PACK(g_qSfcLatRunoffOut,g_outInd == 1) + varOutReal(7,:) = PACK(g_qBucketOut,g_outInd == 1) + varOutReal(8,:) = PACK(g_qBtmVertRunoffOut,g_outInd == 1) + varOutReal(9,:) = PACK(g_accSfcLatRunoffOut,g_outInd == 1) + varOutReal(10,:) = PACK(g_accBucketOut,g_outInd == 1) + varMetaReal(1,:) = PACK(g_chlatOut,g_outInd == 1) + varMetaReal(2,:) = PACK(g_chlonOut,g_outInd == 1) + varMetaReal(3,:) = PACK(g_zelevOut,g_outInd == 1) + varMetaInt(1,:) = PACK(g_orderOut,g_outInd == 1) + varMetaInt(2,:) = PACK(g_linkidOut,g_outInd == 1) + + ! Mask out missing values + where ( varOutReal == fileMeta%modelNdv ) varOutReal = -9999.0 + + ! Open output NetCDF file for writing. + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create CHRTOUT NetCDF file.') + + ! Write global attributes. + iret = nf90_put_att(ftn,NF90_GLOBAL,"featureType",trim(fileMeta%fType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create featureType attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_initialization_time",trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model init attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"station_dimension",trim(fileMeta%stDim)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create st. dimension attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_valid_time",trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model valid attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_total_valid_times",fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model total valid time attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"stream_order_output",fileMeta%stOrder) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create order attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"cdm_datatype",trim(fileMeta%cdm)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create CDM attribute') + !iret = nf90_put_att(ftn,NF90_GLOBAL,"esri_pe_string",trim(fileMeta%esri)) + !call nwmCheck(diagFlag,iret,'ERROR: Unable to create ESRI attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"Conventions",trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create conventions attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + + ! Create global attributes specific to running output through the + ! channel-only configuration of the model. + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_OVRTSWCRT",nlst_rt(domainId)%OVRTSWCRT) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_OVRTSWCRT attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_NOAH_TIMESTEP",int(nlst_rt(domainId)%dt)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_NOAH_TIMESTEP attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_channel_only",nlst_rt(domainId)%channel_only) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_channel_only attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_channelBucket_only",nlst_rt(domainId)%channelBucket_only) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_channelBucket_only attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,'dev','dev_ prefix indicates development/internal meta data') + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev attribute') + + ! Create dimensions + !iret = nf90_def_dim(ftn,"feature_id",gSize,dimId(1)) + iret = nf90_def_dim(ftn,"feature_id",numPtsOut,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id dimension') + iret = nf90_def_dim(ftn,"time",NF90_UNLIMITED,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time dimension') + iret = nf90_def_dim(ftn,"reference_time",1,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftn,"time",nf90_int,dimId(2),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftn,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftn,"reference_time",nf90_int,dimId(3),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create a crs variable. + ! NOTE - For now, we are hard-coding in for lat/lon points. However, this + ! may be more flexible in future iterations. + iret = nf90_def_var(ftn,'crs',nf90_char,varid=coordVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create crs variable.') + iret = nf90_put_att(ftn,coordVarId,'transform_name','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place transform_name attribute into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'grid_mapping_name','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping_name attribute into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'esri_pe_string','GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",& + &SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",& + &0.0174532925199433]];-400 -400 1000000000;& + &-100000 10000;-100000 10000;8.98315284119521E-09;0.001;0.001;IsHighPrecision') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'spatial_ref','GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",& + &SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",& + &0.0174532925199433]];-400 -400 1000000000;& + &-100000 10000;-100000 10000;8.98315284119521E-09;0.001;0.001;IsHighPrecision') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place spatial_ref into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'long_name','CRS definition') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'longitude_of_prime_meridian',0.0) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place longitude_of_prime_meridian into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'_CoordinateAxes','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place _CoordinateAxes into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'semi_major_axis',6378137.0) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place semi_major_axis into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'semi_minor_axis',6356752.31424518) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place semi_minor_axis into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'inverse_flattening',298.257223563) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place inverse_flattening into crs variable.') + + ! Create feature_id variable + iret = nf90_def_var(ftn,"feature_id",nf90_int,dimId(1),featureVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id variable.') + iret = nf90_put_att(ftn,featureVarId,'long_name',trim(fileMeta%featureIdLName)) + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'comment',trim(fileMeta%featureIdComment)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place comment attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'cf_role',trim(fileMeta%cfRole)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place cf_role attribute into feature_id variable') + + ! Create channel lat/lon variables + iret = nf90_def_var(ftn,"latitude",nf90_float,dimId(1),latVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create latitude variable.') + iret = nf90_put_att(ftn,latVarId,'long_name',trim(fileMeta%latLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into latitude variable') + iret = nf90_put_att(ftn,latVarId,'standard_name',trim(fileMeta%latStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into latitude variable') + iret = nf90_put_att(ftn,latVarId,'units',trim(fileMeta%latUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into latitude variable') + iret = nf90_def_var(ftn,"longitude",nf90_float,dimId(1),lonVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create longitude variable.') + iret = nf90_put_att(ftn,lonVarId,'long_name',trim(fileMeta%lonLName)) + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into longitude variable') + iret = nf90_put_att(ftn,lonVarId,'standard_name',trim(fileMeta%lonStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into longitude variable') + iret = nf90_put_att(ftn,lonVarId,'units',trim(fileMeta%lonUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into longitude variable') + + ! Create channel order variable + iret = nf90_def_var(ftn,"order",nf90_int,dimId(1),orderVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create order variable.') + iret = nf90_put_att(ftn,orderVarId,'long_name',trim(fileMeta%orderLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into order variable') + iret = nf90_put_att(ftn,orderVarId,'standard_name',trim(fileMeta%orderStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into order variable') + + ! Create channel elevation variable + iret = nf90_def_var(ftn,"elevation",nf90_float,dimId(1),elevVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create elevation variable.') + iret = nf90_put_att(ftn,elevVarId,'long_name',trim(fileMeta%elevLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into elevation variable') + iret = nf90_put_att(ftn,elevVarId,'standard_name',trim(fileMeta%elevStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into elevation variable') + iret = nf90_put_att(ftn,elevVarId,'units',trim(fileMeta%elevUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into elevation variable') + + ! Define deflation levels for these meta-variables. For now, we are going to + ! default to a compression level of 2. Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,featureVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for feature_id.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + iret = nf90_def_var_deflate(ftn,latVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for latitude.') + iret = nf90_def_var_deflate(ftn,lonVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for longitude.') + iret = nf90_def_var_deflate(ftn,orderVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for order.') + iret = nf90_def_var_deflate(ftn,elevVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for elevation.') + endif + + ! Allocate memory for the output variables, then place the real output + ! variables into a single array. This array will be accessed throughout the + ! output looping below for conversion to compressed integer values. + ! Loop through and create each output variable, create variable attributes, + ! and insert data. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! First create variable + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,dimId(1),varId) + else + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,dimId(1),varId) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to create variable:'//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinComp(iTmp) + varRange(2) = fileMeta%validMaxComp(iTmp) + varRangeReal(1) = fileMeta%validMinReal(iTmp) + varRangeReal(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are using a + ! compression level of 2. In addition, we are choosing to turn the shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent writing + ! output. Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftn,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'coordinates',trim(fileMeta%coordNames(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place coordinates attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable '//trim(fileMeta%varNames(iTmp))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'scale_factor',fileMeta%scaleFactor(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place scale_factor attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'add_offset',fileMeta%addOffset(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place add_offset attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRange) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + else + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRangeReal) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + endif + endif + end do + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take CHRTOUT file out of definition mode') + + ! Loop through all possible output variables, and convert floating points + ! to integers via prescribed scale_factor/add_offset, then write to the + ! NetCDF variable. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! We are outputing this variable. + ! Convert reals to integer. If this is time zero, check to see if we + ! need to convert all data to NDV + if(minSinceSim .eq. 0 .and. fileMeta%timeZeroFlag(iTmp) .eq. 0) then + varOutInt(:) = fileMeta%fillComp(iTmp) + varOutReal(iTmp,:) = fileMeta%fillReal(iTmp) + else + varOutInt(:) = NINT((varOutReal(iTmp,:)-fileMeta%addOffset(iTmp))/fileMeta%scaleFactor(iTmp)) + endif + ! Get NetCDF variable id. + iret = nf90_inq_varid(ftn,trim(fileMeta%varNames(iTmp)),varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find variable ID for var: '//trim(fileMeta%varNames(iTmp))) + + ! Put data into NetCDF file + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_var(ftn,varId,varOutInt) + else + iret = nf90_put_var(ftn,varId,varOutReal(iTmp,:)) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into output variable: '//trim(fileMeta%varNames(iTmp))) + endif + end do + + ! Place link ID values into the NetCDF file + iret = nf90_inq_varid(ftn,'feature_id',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate feature_id in NetCDF file.') + iret = nf90_put_var(ftn,varId,varMetaInt(2,:)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into feature_id output variable.') + + iret = nf90_inq_varid(ftn,'latitude',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate latitude in NetCDF file.') + iret = nf90_put_var(ftn,varId,varMetaReal(1,:)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into latitude output variable.') + + iret = nf90_inq_varid(ftn,'longitude',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate longitude in NetCDF file.') + iret = nf90_put_var(ftn,varId,varMetaReal(2,:)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into longitude output variable.') + + iret = nf90_inq_varid(ftn,'order',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate order in NetCDF file.') + iret = nf90_put_var(ftn,varId,varMetaInt(1,:)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into order output variable.') + + iret = nf90_inq_varid(ftn,'elevation',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate elevation in NetCDF file.') + iret = nf90_put_var(ftn,varId,varMetaReal(3,:)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into elevation output variable.') + + ! Place time values into time variables. + iret = nf90_inq_varid(ftn,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftn,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + ! Close the output file + iret = nf90_close(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close CHRTOUT file.') + + endif ! End if we are on master processor. + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Deallocate all memory. + if(myId .eq. 0) then + deallocate(varOutReal) + deallocate(varOutInt) + deallocate(varMetaReal) + deallocate(varMetaInt) + endif + deallocate(g_chlonOut) + deallocate(g_chlatOut) + deallocate(g_hlinkOut) + deallocate(g_zelevOut) + deallocate(g_qlinkOut) + deallocate(g_orderOut) + deallocate(g_QLateralOut) + deallocate(g_velocityOut) + deallocate(g_nudgeOut) + deallocate(g_qSfcLatRunoffOut) + deallocate(g_qBucketOut) + deallocate(g_qBtmVertRunoffOut) + deallocate(g_accSfcLatRunoffOut) + deallocate(g_accBucketOut) + deallocate(chIndArray) + deallocate(g_linkidOut) + deallocate(g_chlon) + deallocate(g_chlat) + deallocate(g_hlink) + deallocate(g_zelev) + deallocate(g_qlink) + deallocate(g_order) + deallocate(g_linkid) + deallocate(g_QLateral) + deallocate(g_nudge) + deallocate(g_qSfcLatRunoff) + deallocate(g_qBucket) + deallocate(g_qBtmVertRunoff) + deallocate(g_accSfcLatRunoff) + deallocate(g_accBucket) + deallocate(strFlowLocal) + deallocate(velocityLocal) + deallocate(g_outInd) + +end subroutine output_chrt_NWM + +!============================================================================== +! Program Name: output_NoahMP_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output routine for NoahMP grids for the National Water Model. +! History Log: +! 3/6/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. + +subroutine output_NoahMP_NWM(outDir,iGrid,output_timestep,itime,startdate,date,ixPar,jxPar,zNum,varReal,vegTyp,varInd) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use module_mpp_land +#endif + implicit none + + ! Subroutine arguments + character(len=*), intent(in) :: outDir ! Output directory to place output. + integer, intent(in) :: iGrid ! Grid number + integer, intent(in) :: output_timestep ! Output timestep we are on. + integer, intent(in) :: itime ! the noalMP time step we are in + character(len=19),intent(in) :: startdate ! Model simulation start date + character(len=19),intent(in) :: date ! Current model date + integer, intent(in) :: ixPar,jxPar ! I/J dimensions of local grid. + integer, intent(in) :: zNum ! Number of vertical layers (most of the time 1) + real, intent(in) :: varReal(ixPar,zNum,jxPar) ! Variable data to be written. + integer, intent(inout) :: vegTyp(ixPar,jxPar) ! Vegetation type grid used to mask out variables. + integer, intent(in) :: varInd ! Variable index used to extact meta-data from. + + ! Derived types. + type(ldasMeta) :: fileMeta + + ! Local variables + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDateTmp ! Start of model simulation, represented as a string. + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: mppFlag, diagFlag + character(len=1024) :: output_flnm ! Output file name + integer :: iret ! NetCDF return status + integer :: ftn ! NetCDF file handle + integer :: dimId(6) ! NetCDF dimension ID values + integer :: varId ! NetCDF variable ID value + integer :: timeId ! NetCDF time variable ID + integer :: refTimeId ! NetCDF reference_time variable ID + integer :: coordVarId ! NetCDF coordinate variable ID + integer :: xVarId,yVarId ! NetCDF x/y variable ID + integer :: ierr, myId ! MPI related values + integer :: varRange(2) ! Local storage of valid min/max values + real :: varRangeReal(2) ! Local storage of valid min/max values + integer :: iTmp,jTmp,zTmp,jTmp2,iTmp2 + integer :: ftnGeo,geoXVarId,geoYVarId + integer :: waterVal ! Value in HRLDAS in WRFINPUT file used to define water bodies for masking + ! Allocatable arrays to hold global output arrays, and local arrays for + ! conversion to integers. + integer, allocatable, dimension(:,:) :: localCompTmp, globalCompTmp + integer, allocatable, dimension(:,:,:) :: globalOutComp + real, allocatable, dimension(:,:,:) :: globalOutReal + real, allocatable, dimension(:,:) :: globalRealTmp + real*8, allocatable, dimension(:) :: yCoord,xCoord,yCoord2 + real, allocatable, dimension(:,:,:) :: varRealTmp + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + ! Sync up processes. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Initialize water type to 16. + ! NOTE THIS MAY CHANGE IN THE FUTURE!!!!! + waterVal = 16 + + ! Initialize NWM dictionary derived type containing all the necessary + ! metadata for the output file. + call initLdasDict(fileMeta,myId,diagFlag) + + ! Calculate necessary datetime information that will go into the output file. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDateTmp = trim(nlst_rt(1)%startdate(1:4)//"-"//& + nlst_rt(1)%startdate(6:7)//& + &"-"//nlst_rt(1)%startdate(9:10)//" "//& + nlst_rt(1)%startdate(12:13)//":"//& + nlst_rt(1)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDateTmp,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(itime * nlst_rt(1)%dt / 60) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(1)%olddate(1:4)//'-'//& + nlst_rt(1)%olddate(6:7)//'-'//& + nlst_rt(1)%olddate(9:10)//'_'//& + nlst_rt(1)%olddate(12:13)//':'//& + nlst_rt(1)%olddate(15:16)//':'//& + nlst_rt(1)%olddate(18:19)) + initTime = trim(nlst_rt(1)%startdate(1:4)//'-'//& + nlst_rt(1)%startdate(6:7)//'-'//& + nlst_rt(1)%startdate(9:10)//'_'//& + nlst_rt(1)%startdate(12:13)//':'//& + nlst_rt(1)%startdate(15:16)//':'//& + nlst_rt(1)%startdate(18:19)) + + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + output_timestep / 60 ! output_timestep is in seconds + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 3600 / output_timestep ) * output_timestep / 60 + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 3600 / output_timestep ) ! # number of valid time (#of output files) + + ! Depending on the NWM forecast config, we will be outputting different + ! varibles. DO NOT MODIFY THESE ARRAYS WITHOUT CONSULTING NCAR OR + ! OWP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + if(nlst_rt(1)%io_config_outputs .eq. 0) then + ! All + fileMeta%outFlag(:) = [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 1) then + ! Analysis and Assimilation + fileMeta%outFlag(:) = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,1,0,0,1,0,1] + else if(nlst_rt(1)%io_config_outputs .eq. 2) then + ! Short Range + fileMeta%outFlag(:) = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,1,0,0,1,0,1] + else if(nlst_rt(1)%io_config_outputs .eq. 3) then + ! Medium Range + fileMeta%outFlag(:) = [0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,1,& + 0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,& + 0,0,1,1,1,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,1,1,1,1,0,1] + else if(nlst_rt(1)%io_config_outputs .eq. 4) then + ! Long Range + fileMeta%outFlag(:) = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,& + 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,1,1,0,1,1,0] + else if(nlst_rt(1)%io_config_outputs .eq. 5) then + ! Retrospective + fileMeta%outFlag(:) = [0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,& !1-20 + 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& !21-40 + 0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& !41-60 + 1,0,1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,& !61-80 + 0,0,0,0,0,0,0,0,0,1,0,0,0,0,0] !81-95 + else if(nlst_rt(1)%io_config_outputs .eq. 6) then + ! Diagnostics + fileMeta%outFlag(:) = [0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,1,& + 1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,& + 1,0,1,1,1,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,1,1,1,1,1,1] + else + call nwmCheck(diagFlag,1,'ERROR: Invalid IOC flag provided by namelist file.') + endif + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(varInd .eq. 1) then + ! We are on the first variable, we need to create the output file with + ! attributes first. + if(myId .eq. 0) then + ! We are on the I/O node. Create output file. + if (mod(output_timestep,3600) == 0) then + write(output_flnm, '(A,"/",A12,".LDASOUT_DOMAIN",I1)') outdir,date(1:4)//& + date(6:7)//date(9:10)//date(12:13)//date(15:16), igrid + elseif (mod(output_timestep,60) == 0) then + write(output_flnm, '(A,"/",A12,".LDASOUT_DOMAIN",I1)') outdir,date(1:4)//& + date(6:7)//date(9:10)//date(12:13)//date(15:16), igrid + else + write(output_flnm, '(A,"/",A14,".LDASOUT_DOMAIN",I1)') outdir,date(1:4)//& + date(6:7)//date(9:10)//date(12:13)//date(15:16)//date(18:19), igrid + endif + + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create LDASOUT NetCDF file.') + ftnNoahMP = ftn + + ! Write global attributes + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,'TITLE',trim(fileMeta%title)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place TITLE attribute into LDASOUT file.') + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,'model_initialization_time',trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model init time attribute into LDASOUT file.') + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,'model_output_valid_time',trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model output time attribute into LDASOUT file.') + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,'model_total_valid_times',fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model total_valid_times attribute into LDASOUT file.') + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,'Conventions',trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place CF conventions attribute into LDASOUT file.') + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftnNoahMP,NF90_GLOBAL,"GDAL_DataType","Generic") + call nwmCheck(diagFlag,iret,'ERROR: Unable to create GDAL_DataType attribute') + + ! Create dimensions + iret = nf90_def_dim(ftnNoahMP,'time',NF90_UNLIMITED,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define time dimension') + iret = nf90_def_dim(ftnNoahMP,'x',global_nx,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define x dimension') + iret = nf90_def_dim(ftnNoahMP,'y',global_ny,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define y dimension') + iret = nf90_def_dim(ftnNoahMP,'soil_layers_stag',fileMeta%numSoilLayers,dimId(4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define soil_layers_stag dimension') + iret = nf90_def_dim(ftnNoahMP,'snow_layers',fileMeta%numSnowLayers,dimId(5)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define snow_layers dimension') + iret = nf90_def_dim(ftnNoahMP,'reference_time',1,dimId(6)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define reference_time dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftnNoahMP,"time",nf90_int,dimId(1),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftnNoahMP,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftnNoahMP,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftnNoahMP,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftnNoahMP,"reference_time",nf90_int,dimId(6),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftnNoahMP,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftnNoahMP,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftnNoahMP,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create x/y coordinate variables + iret = nf90_def_var(ftnNoahMP,'x',nf90_double,dimId(2),xVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create x coordinate variable') + do iTmp=1,fileMeta%nxRealAtts + iret = nf90_put_att(ftnNoahMP,xVarId,trim(fileMeta%xFloatAttNames(iTmp)),& + fileMeta%xRealAttVals(iTmp,1:fileMeta%xRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x floating point attributes into LDASOUT file.') + end do + do iTmp=1,fileMeta%nxCharAtts + iret = nf90_put_att(ftnNoahMP,xVarId,trim(fileMeta%xCharAttNames(iTmp)),trim(fileMeta%xCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x string point attributes into LDASOUT file.') + end do + iret = nf90_def_var(ftnNoahMP,'y',nf90_double,dimId(3),yVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create y coordinate variable') + do iTmp=1,fileMeta%nyRealAtts + iret = nf90_put_att(ftnNoahMP,yVarId,trim(fileMeta%yFloatAttNames(iTmp)),& + fileMeta%yRealAttVals(iTmp,1:fileMeta%yRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y floating point attributes into LDASOUT file.') + end do + do iTmp=1,fileMeta%nyCharAtts + iret = nf90_put_att(ftnNoahMP,yVarId,trim(fileMeta%yCharAttNames(iTmp)),trim(fileMeta%yCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y string point attributes into LDASOUT file.') + end do + + ! Define compression if chosen. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + iret = nf90_def_var_deflate(ftn,xVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for x.') + iret = nf90_def_var_deflate(ftn,yVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for y.') + endif + + ! Translate crs variable info from land spatial metadata file to output + ! file. + iret = nf90_def_var(ftnNoahMP,'crs',nf90_char,varid=coordVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create crs variable in LDASOUT file.') + do iTmp=1,fileMeta%nCrsRealAtts + iret = nf90_put_att(ftnNoahMP,coordVarId,trim(fileMeta%crsFloatAttNames(iTmp)),& + fileMeta%crsRealAttVals(iTmp,1:fileMeta%crsRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs floating point attributes into LDASOUT file.') + end do + do iTmp=1,fileMeta%nCrsCharAtts + iret = nf90_put_att(ftnNoahMP,coordVarId,trim(fileMeta%crsCharAttNames(iTmp)),trim(fileMeta%crsCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs string point attributes into LDASOUT file.') + end do + + ! Loop through all possible variables and create them, along with their + ! metadata attributes. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + if(fileMeta%numLev(iTmp) .eq. fileMeta%numSoilLayers) then + iret = nf90_def_var(ftnNoahMP,trim(fileMeta%varNames(iTmp)),nf90_int,(/dimId(2),dimId(4),dimId(3),dimId(1)/),varId) + else if(fileMeta%numLev(iTmp) .eq. fileMeta%numSnowLayers) then + iret = nf90_def_var(ftnNoahMP,trim(fileMeta%varNames(iTmp)),nf90_int,(/dimId(2),dimId(5),dimId(3),dimId(1)/),varId) + else if(fileMeta%numLev(iTmp) .eq. 1) then + iret = nf90_def_var(ftnNoahMP,trim(fileMeta%varNames(iTmp)),nf90_int,(/dimId(2),dimId(3),dimId(1)/),varId) + endif + else + if(fileMeta%numLev(iTmp) .eq. fileMeta%numSoilLayers) then + iret = nf90_def_var(ftnNoahMP,trim(fileMeta%varNames(iTmp)),nf90_float,(/dimId(2),dimId(4),dimId(3),dimId(1)/),varId) + else if(fileMeta%numLev(iTmp) .eq. fileMeta%numSnowLayers) then + iret = nf90_def_var(ftnNoahMP,trim(fileMeta%varNames(iTmp)),nf90_float,(/dimId(2),dimId(5),dimId(3),dimId(1)/),varId) + else if(fileMeta%numLev(iTmp) .eq. 1) then + iret = nf90_def_var(ftnNoahMP,trim(fileMeta%varNames(iTmp)),nf90_float,(/dimId(2),dimId(3),dimId(1)/),varId) + endif + endif + call nwmCheck(diagFlag,iret,"ERROR: Unable to create variable: "//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinComp(iTmp) + varRange(2) = fileMeta%validMaxComp(iTmp) + varRangeReal(1) = fileMeta%validMinReal(iTmp) + varRangeReal(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are using a + ! compression level of 2. In addition, we are choosing to turn the shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent writing output. + ! Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftnNoahMP,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftnNoahMP,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable: '//trim(fileMeta%varNames(iTmp))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_att(ftnNoahMP,varId,'_FillValue',fileMeta%fillComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'missing_value',fileMeta%missingComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'scale_factor',fileMeta%scaleFactor(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place scale_factor attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'add_offset',fileMeta%addOffset(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place add_offset attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'valid_range',varRange) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + else + iret = nf90_put_att(ftnNoahMP,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftnNoahMP,varId,'valid_range',varRangeReal) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + endif + ! Place necessary geospatial attributes into the variable. + do iTmp2=1,fileMeta%nCrsCharAtts + if(trim(fileMeta%crsCharAttNames(iTmp2)) .eq. 'esri_pe_string') then + iret = nf90_put_att(ftnNoahMP,varId,trim(fileMeta%crsCharAttNames(iTmp2)),trim(fileMeta%crsCharAttVals(iTmp2))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string attribute into '//trim(fileMeta%varNames(iTmp))) + endif + end do + endif ! End if output flag is on + end do ! end looping through variable output list. + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftnNoahMP) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take LDASOUT file out of definition mode') + + ! Read in coordinates from GeoGrid file. These will be placed into the + ! output file coordinate variables. + allocate(xCoord(global_nx)) + allocate(yCoord(global_ny)) + allocate(yCoord2(global_ny)) + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnGeo) + if(iret .ne. 0) then + ! Spatial metadata file not found for land grid. Warn the user no + ! file was found, and set x/y coordinates to -9999.0 + call postDiagMsg(diagFlag,'WARNING: Unable to find LAND spatial metadata file') + xCoord = -9999.0 + yCoord = -9999.0 + yCoord2 = -9999.0 + else + iret = nf90_inq_varid(ftnGeo,'x',geoXVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x coordinate in geoGrid file') + iret = nf90_get_var(ftnGeo,geoXVarId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract x coordinate from geoGrid file') + iret = nf90_inq_varid(ftnGeo,'y',geoYVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y coordinate in geoGrid file') + iret = nf90_get_var(ftnGeo,geoYVarId,yCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract y coordinate from geoGrid file') + + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close geoGrid file.') + ! Reverse Y coordinates. They are read in reverse. + jTmp2 = 0 + do jTmp = global_ny,1,-1 + jTmp2 = jTmp2 + 1 + yCoord2(jTmp2) = yCoord(jTmp) + end do + endif + + ! Place coordinate values into output file + iret = nf90_inq_varid(ftnNoahMP,'x',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate x coordinate variable.') + iret = nf90_put_var(ftnNoahMP,varId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into x coordinate variable') + iret = nf90_inq_varid(ftnNoahMP,'y',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate y coordinate variable') + iret = nf90_put_var(ftnNoahMP,varId,yCoord2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into y coordinate variable') + deallocate(xCoord) + deallocate(yCoord) + deallocate(yCoord2) + + ! Place time values into time variables. + iret = nf90_inq_varid(ftnNoahMP,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftnNoahMP,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftnNoahMP,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftnNoahMP,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + end if ! End if we are on the I/O processor. + endif ! End if we are on the first variable + + ! Sync up all processes + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Place data into NetCDF file. This involves a few steps: + ! 1.) Allocate an integer array of local grid size. + ! 2.) Allocate an integer array of global grid size. + ! 3.) Make a copy of the floating point grid so it can be + ! masked out where water bodies exist, or missing NoahMP values + ! exist. + ! 4.) Loop through real local grid, convert floating point + ! values to integer via scale_factor/add_offset. If + ! missing value found, assign FillValue caluclated + ! in the dictionary. + ! 5.) Use MPP utilities to collect local integer arrays + ! into global integer array. + ! 6.) Write global integer array into output file. + if(fileMeta%outFlag(varInd) .eq. 1) then + ! Output flag on for this variable. + ! Allocate memory + if(myId .eq. 0) then + allocate(globalOutComp(global_nx,fileMeta%numLev(varInd),global_ny)) + allocate(globalCompTmp(global_nx,global_ny)) + allocate(globalOutReal(global_nx,fileMeta%numLev(varInd),global_ny)) + allocate(globalRealTmp(global_nx,global_ny)) + else + allocate(globalOutComp(1,1,1)) + allocate(globalCompTmp(1,1)) + allocate(globalOutReal(1,1,1)) + allocate(globalRealTmp(1,1)) + endif + allocate(localCompTmp(ixPar,jxPar)) + allocate(varRealTmp(ixPar,fileMeta%numLev(varInd),jxPar)) + globalOutComp = fileMeta%fillComp(varInd) + globalOutReal = fileMeta%fillReal(varInd) + + ! Sync up processes + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + varRealTmp = varReal + ! Reset any missing values that may exist. + where ( varRealTmp .eq. fileMeta%modelNdv ) varRealTmp = fileMeta%fillReal(varInd) + where ( varRealTmp .eq. fileMeta%modelNdvInt ) varRealTmp = fileMeta%fillReal(varInd) + where ( varRealTmp .eq. fileMeta%modelNdv2 ) varRealTmp = fileMeta%fillReal(varInd) + where ( varRealTmp .eq. fileMeta%modelNdv3 ) varRealTmp = fileMeta%fillReal(varInd) + where (varRealTmp .ne. varRealTmp) varRealTmp = fileMeta%fillReal(varInd) + do zTmp = 1,fileMeta%numLev(varInd) + localCompTmp = fileMeta%fillComp(varInd) + globalCompTmp = fileMeta%fillComp(varInd) + globalRealTmp = fileMeta%fillReal(varInd) + where ( vegTyp .eq. waterVal) varRealTmp(:,zTmp,:) = fileMeta%fillReal(varInd) + ! Check to see if we are on time 0. If the flag is set to 0 for time 0 + ! outputs, convert all data to a fill. If we are time 0, make sure we + ! don't need to fill the grid in with NDV values. + if(minSinceSim .eq. 0 .and. fileMeta%timeZeroFlag(varInd) .eq. 0) then + localCompTmp = fileMeta%fillComp(varInd) + varRealTmp = fileMeta%fillReal(varInd) + else + localCompTmp = NINT((varRealTmp(:,zTmp,:)-fileMeta%addOffset(varInd))/fileMeta%scaleFactor(varInd)) + endif + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call write_IO_int(localCompTmp,globalCompTmp) + call write_IO_real(varRealTmp(:,zTmp,:),globalRealTmp) +#endif + else + globalCompTmp = localCompTmp + globalRealTmp = varRealTmp(:,zTmp,:) + endif + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + ! Place output into global array to be written to NetCDF file. + if(myId .eq. 0) then + globalOutComp(:,zTmp,:) = globalCompTmp + globalOutReal(:,zTmp,:) = globalRealTmp + endif + end do + + ! Sync up processes + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Write array out to NetCDF file. + if(myId .eq. 0) then + iret = nf90_inq_varid(ftnNoahMP,trim(fileMeta%varNames(varInd)),varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find variable ID for var: '//trim(fileMeta%varNames(varInd))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + if(fileMeta%numLev(varInd) .eq. 1) then + iret = nf90_put_var(ftnNoahMP,varId,globalOutComp,(/1,1,1/),(/global_nx,global_ny,1/)) + else + iret = nf90_put_var(ftnNoahMP,varId,globalOutComp,(/1,1,1,1/),(/global_nx,fileMeta%numLev(varInd),global_ny,1/)) + endif + else + if(fileMeta%numLev(varInd) .eq. 1) then + iret = nf90_put_var(ftnNoahMP,varId,globalOutReal,(/1,1,1/),(/global_nx,global_ny,1/)) + else + iret = nf90_put_var(ftnNoahMP,varId,globalOutReal,(/1,1,1,1/),(/global_nx,fileMeta%numLev(varInd),global_ny,1/)) + endif + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into output variable: '//trim(fileMeta%varNames(varInd))) + endif + + ! Deallocate memory for this variable. + deallocate(globalOutComp) + deallocate(globalCompTmp) + deallocate(globalOutReal) + deallocate(globalRealTmp) + deallocate(localCompTmp) + deallocate(varRealTmp) + + endif + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(myId .eq. 0) then + ! Only close the file if we are finished with the very last variable. + if(varInd .eq. fileMeta%numVars) then + ! Close the output file + iret = nf90_close(ftnNoahMP) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LDASOUT file.') + endif + endif + + +end subroutine output_NoahMP_NWM + +!============================================================================== +! Program Name: output_rt_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output routine for terrain routing variables +! for the National Water Model. +! History Log: +! 3/6/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. + +subroutine output_rt_NWM(domainId,iGrid) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use module_mpp_land +#endif + implicit none + + ! subroutine arguments + integer, intent(in) :: domainId + integer, intent(in) :: iGrid + + ! Derived types. + type(rtDomainMeta) :: fileMeta + + ! Local variables + integer :: mppFlag, diagFlag + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDate ! Start of model simulation, represented as a string. + character(len=256) :: output_flnm ! CHRTOUT_DOMAIN filename + integer :: iret ! NetCDF return statuses + integer :: ftn ! NetCDF file handle + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: dimId(5) ! Dimension ID values created during NetCDF created. + integer :: varId ! Variable ID value created as NetCDF variables are created and populated. + integer :: timeId ! Dimension ID for the time dimension. + integer :: refTimeId ! Dimension ID for the reference time dimension. + integer :: xVarId,yVarId,coordVarId ! Coordinate variable NC ID values + integer :: varRange(2) ! Local storage for valid min/max ranges + real :: varRangeReal(2) ! Local storage for valid min/max ranges + integer :: ierr, myId ! MPI return status, process ID + integer :: iTmp,jTmp,jTmp2,iTmp2,zTmp + real :: varRealTmp ! Local copy of floating point lake value + integer :: ftnGeo,geoXVarId,geoYVarId + ! Allocatable arrays to hold either x/y coordinate information, + ! or the grid of output values to be converted to integer via scale_factor + ! and add_offset. + integer, allocatable, dimension(:,:) :: localCompTmp + integer, allocatable, dimension(:,:,:) :: globalOutComp + real, allocatable, dimension(:,:) :: localRealTmp + real, allocatable, dimension(:,:,:) :: globalOutReal + real*8, allocatable, dimension(:) :: yCoord,xCoord,yCoord2 + integer :: numLev ! This will be 4 for soil moisture, and 1 for all other variables. + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + +! Establish macro variables to hlep guide this subroutine. +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Some sanity checking here. + if(nlst_rt(domainId)%RTOUT_DOMAIN .eq. 0) then + ! No output requested here. Return to the parent calling program. + return + endif + + ! Initialize NWM dictionary derived type containing all the necessary metadat + ! for the output file. + call initRtDomainDict(fileMeta,myId,diagFlag) + + if(nlst_rt(domainId)%io_config_outputs .eq. 0) then + ! All + fileMeta%outFlag(:) = [1,1,1,1,1] + else if(nlst_rt(domainId)%io_config_outputs .eq. 1) then + ! Analysis and Assimilation + fileMeta%outFlag(:) = [1,1,0,0,0] + else if(nlst_rt(domainId)%io_config_outputs .eq. 2) then + ! Short Range + fileMeta%outFlag(:) = [1,1,0,0,0] + else if(nlst_rt(domainId)%io_config_outputs .eq. 3) then + ! Medium Range + fileMeta%outFlag(:) = [1,1,0,0,0] + else if(nlst_rt(domainId)%io_config_outputs .eq. 4) then + ! Long Range + fileMeta%outFlag(:) = [1,1,0,0,0] + else if(nlst_rt(domainId)%io_config_outputs .eq. 5) then + ! Retrospective + fileMeta%outFlag(:) = [1,1,0,0,0] + else if(nlst_rt(domainId)%io_config_outputs .eq. 6) then + ! Diagnostics + fileMeta%outFlag(:) = [1,1,0,0,0] + else + call nwmCheck(diagFlag,1,'ERROR: Invalid IOC flag provided by namelist file.') + endif + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + ! Calculate datetime information. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDate = trim(nlst_rt(domainId)%startdate(1:4)//"-"//& + nlst_rt(domainId)%startdate(6:7)//& + &"-"//nlst_rt(domainId)%startdate(9:10)//" "//& + nlst_rt(domainId)%startdate(12:13)//":"//& + nlst_rt(domainId)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDate,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(nlst_rt(1)%out_dt*(rt_domain(1)%out_counts-1)) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(domainId)%olddate(1:4)//'-'//& + nlst_rt(domainId)%olddate(6:7)//'-'//& + nlst_rt(domainId)%olddate(9:10)//'_'//& + nlst_rt(domainId)%olddate(12:13)//':'//& + nlst_rt(domainId)%olddate(15:16)//':'//& + nlst_rt(domainId)%olddate(18:19)) + initTime = trim(nlst_rt(domainId)%startdate(1:4)//'-'//& + nlst_rt(domainId)%startdate(6:7)//'-'//& + nlst_rt(domainId)%startdate(9:10)//'_'//& + nlst_rt(domainId)%startdate(12:13)//':'//& + nlst_rt(domainId)%startdate(15:16)//':'//& + nlst_rt(domainId)%startdate(18:19)) + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + nlst_rt(1)%out_dt + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 60/nlst_rt(1)%out_dt) * nlst_rt(1)%out_dt + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 60 / nlst_rt(1)%out_dt) ! # number of valid time (#of output files) + + ! Create output filename + write(output_flnm, '(A12,".RTOUT_DOMAIN",I1)') nlst_rt(domainId)%olddate(1:4)//& + nlst_rt(domainId)%olddate(6:7)//& + nlst_rt(domainId)%olddate(9:10)//& + nlst_rt(domainId)%olddate(12:13)//& + nlst_rt(domainId)%olddate(15:16), igrid + + if(myId .eq. 0) then + ! Create output NetCDF file for writing. + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create RT_DOMAIN NetCDF file.') + + ! Write global attributes + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_initialization_time',trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model init time attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_output_valid_time',trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model output time attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_total_valid_times',fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model total valid times attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'Conventions',trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place CF conventions attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"GDAL_DataType","Generic") + call nwmCheck(diagFlag,iret,'ERROR: Unable to create GDAL_DataType attribute') + + ! Create dimensions + iret = nf90_def_dim(ftn,'time',NF90_UNLIMITED,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define time dimension') + iret = nf90_def_dim(ftn,'x',RT_DOMAIN(domainId)%g_ixrt,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define x dimension') + iret = nf90_def_dim(ftn,'y',RT_DOMAIN(domainId)%g_jxrt,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define y dimension') + iret = nf90_def_dim(ftn,'reference_time',1,dimId(4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define reference_time dimension') + iret = nf90_def_dim(ftn,'soil_layers_stag',fileMeta%numSoilLayers,dimId(5)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define soil_layers_stag dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftn,"time",nf90_int,dimId(1),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftn,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftn,"reference_time",nf90_int,dimId(4),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create x/y coordinate variables + iret = nf90_def_var(ftn,'x',nf90_double,dimId(2),xVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create x coordinate variable') + do iTmp=1,fileMeta%nxRealAtts + iret = nf90_put_att(ftn,xVarId,trim(fileMeta%xFloatAttNames(iTmp)),& + fileMeta%xRealAttVals(iTmp,1:fileMeta%xRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x floating point attributes into RTDOMAIN file.') + end do + do iTmp=1,fileMeta%nxCharAtts + iret = nf90_put_att(ftn,xVarId,trim(fileMeta%xCharAttNames(iTmp)),trim(fileMeta%xCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x string point attributes into RTDOMAIN file.') + end do + iret = nf90_def_var(ftn,'y',nf90_double,dimId(3),yVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create y coordinate variable') + do iTmp=1,fileMeta%nyRealAtts + iret = nf90_put_att(ftn,yVarId,trim(fileMeta%yFloatAttNames(iTmp)),& + fileMeta%yRealAttVals(iTmp,1:fileMeta%yRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y floating point attributes into RTDOMAIN file.') + end do + do iTmp=1,fileMeta%nyCharAtts + iret = nf90_put_att(ftn,yVarId,trim(fileMeta%yCharAttNames(iTmp)),trim(fileMeta%yCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y string point attributes into RTDOMAIN file.') + end do + + ! Define compression for meta-variables only if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + iret = nf90_def_var_deflate(ftn,xVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for x.') + iret = nf90_def_var_deflate(ftn,yVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for y.') + endif + + ! Translate crs variable info from land spatial metadata file to output + ! file. + iret = nf90_def_var(ftn,'crs',nf90_char,varid=coordVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create crs variable in RT_DOMAIN file.') + do iTmp=1,fileMeta%nCrsRealAtts + iret = nf90_put_att(ftn,coordVarId,trim(fileMeta%crsFloatAttNames(iTmp)),& + fileMeta%crsRealAttVals(iTmp,1:fileMeta%crsRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs floating point attributes into RT_DOMAIN file.') + end do + do iTmp=1,fileMeta%nCrsCharAtts + iret = nf90_put_att(ftn,coordVarId,trim(fileMeta%crsCharAttNames(iTmp)),trim(fileMeta%crsCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs string point attributes into RT_DOMAIN file.') + end do + + ! Loop through all possible variables and create them, along with their + ! metadata attributes. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + if(iTmp .eq. 5) then + ! Soil Moisture + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,(/dimId(2),dimId(5),dimId(3),dimId(1)/),varId) + else + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,(/dimId(2),dimId(5),dimId(3),dimId(1)/),varId) + endif + else + ! All other variables + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,(/dimId(2),dimId(3),dimId(1)/),varId) + else + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,(/dimId(2),dimId(3),dimId(1)/),varId) + endif + endif + call nwmCheck(diagFlag,iret,"ERROR: Unable to create variable: "//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinComp(iTmp) + varRange(2) = fileMeta%validMaxComp(iTmp) + varRangeReal(1) = fileMeta%validMinReal(iTmp) + varRangeReal(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are using a + ! compression level of 2. In addition, we are choosing to turn the shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent writing output. + ! Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftn,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable: '//trim(fileMeta%varNames(iTmp))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'scale_factor',fileMeta%scaleFactor(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place scale_factor attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'add_offset',fileMeta%addOffset(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place add_offset attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRange) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + else + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRangeReal) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + endif + ! Place necessary geospatial attributes into the variable. + do iTmp2=1,fileMeta%nCrsCharAtts + if(trim(fileMeta%crsCharAttNames(iTmp2)) .eq. 'esri_pe_string') then + iret = nf90_put_att(ftn,varId,trim(fileMeta%crsCharAttNames(iTmp2)),trim(fileMeta%crsCharAttVals(iTmp2))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string attribute into '//trim(fileMeta%varNames(iTmp))) + endif + end do + endif + end do ! end looping through variable output list. + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take RT_DOMAIN file out of definition mode') + + ! Read in coordinates from FullDom file. These will be placed into the + ! output file coordinate variables. + allocate(xCoord(RT_DOMAIN(domainId)%g_ixrt)) + allocate(yCoord(RT_DOMAIN(domainId)%g_jxrt)) + allocate(yCoord2(RT_DOMAIN(domainId)%g_jxrt)) + iret = nf90_open(trim(nlst_rt(domainId)%geo_finegrid_flnm),NF90_NOWRITE,ncid=ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to open FullDom file') + iret = nf90_inq_varid(ftnGeo,'x',geoXVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x coordinate in FullDom file') + iret = nf90_get_var(ftnGeo,geoXVarId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract x coordinate from FullDom file') + iret = nf90_inq_varid(ftnGeo,'y',geoYVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y coordinate in FullDom file') + iret = nf90_get_var(ftnGeo,geoYVarId,yCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract y coordinate from FullDom file') + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close geoGrid file.') + + ! Reverse Y coordinates. They are read in reverse. + jTmp2 = 0 + do jTmp = RT_DOMAIN(domainId)%g_jxrt,1,-1 + jTmp2 = jTmp2 + 1 + yCoord2(jTmp2) = yCoord(jTmp) + end do + ! Place coordinate values into output file + iret = nf90_inq_varid(ftn,'x',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate x coordinate variable.') + iret = nf90_put_var(ftn,varId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into x coordinate variable') + iret = nf90_inq_varid(ftn,'y',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate y coordinate variable') + iret = nf90_put_var(ftn,varId,yCoord2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into y coordinate variable') + deallocate(xCoord) + deallocate(yCoord) + deallocate(yCoord2) + + ! Place time values into time variables. + iret = nf90_inq_varid(ftn,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftn,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + endif ! End if statement if on I/O ID + + ! Synce up processes. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Loop through each variable, collect local routing grid variables into a + ! global routing grid and output through the master I/O process. + do iTmp2=1,fileMeta%numVars + + ! Specify the number of vertical levels we are dealing with + if(iTmp2 .eq. 5) then + numLev = 4 + else + numLev = 1 + endif + + if(fileMeta%outFlag(iTmp2) .eq. 1) then + !Allocate memory necessary + if(myId .eq. 0) then + allocate(globalOutComp(RT_DOMAIN(domainId)%g_ixrt,numLev,RT_DOMAIN(domainId)%g_jxrt)) + allocate(globalOutReal(RT_DOMAIN(domainId)%g_ixrt,numLev,RT_DOMAIN(domainId)%g_jxrt)) + else + allocate(globalOutComp(1,1,1)) + allocate(globalOutReal(1,1,1)) + endif + ! Allocate local memory + allocate(localCompTmp(RT_DOMAIN(domainId)%ixrt,RT_DOMAIN(domainId)%jxrt)) + allocate(localRealTmp(RT_DOMAIN(domainId)%ixrt,RT_DOMAIN(domainId)%jxrt)) + ! Initialize arrays to prescribed NDV value. + globalOutComp = fileMeta%fillComp(iTmp2) + globalOutReal = fileMeta%fillReal(iTmp2) + + ! Loop through the number of levels. + do zTmp=1,numLev + ! Initialize arrays to prescribed NDV value. + localCompTmp = fileMeta%fillComp(iTmp2) + localRealTmp = fileMeta%fillReal(iTmp2) + + ! Sync up processes + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Loop through output array and convert floating point values to + ! integers via scale_factor/add_offset. + do iTmp = 1,RT_DOMAIN(domainId)%ixrt + do jTmp = 1,RT_DOMAIN(domainId)%jxrt + if(iTmp2 .eq. 1) then + varRealTmp = RT_DOMAIN(domainId)%ZWATTABLRT(iTmp,jTmp) + else if(iTmp2 .eq. 2) then + varRealTmp = RT_DOMAIN(domainId)%SFCHEADSUBRT(iTmp,jTmp) + else if(iTmp2 .eq. 3) then + varRealTmp = RT_DOMAIN(domainId)%QSTRMVOLRT_ACC(iTmp,jTmp) + else if(iTmp2 .eq. 4) then + varRealTmp = RT_DOMAIN(domainId)%QBDRYRT(iTmp,jTmp) + else if(iTmp2 .eq. 5) then + varRealTmp = RT_DOMAIN(domainId)%SMCRT(iTmp,jTmp,zTmp) + endif + + ! Run a quick gross check on values to ensure they aren't outside our + ! defined limits. + !if(varRealTmp .lt. fileMeta%validMinReal(iTmp2)) then + ! varRealTmp = fileMeta%fillReal(iTmp2) + !endif + !if(varRealTmp .gt. fileMeta%validMaxReal(iTmp2)) then + ! varRealTmp = fileMeta%fillReal(iTmp2) + !endif + if(varRealTmp .ne. varRealTmp) then + varRealTmp = fileMeta%fillReal(iTmp2) + endif + ! If we are on time 0, make sure we don't need to fill in the + ! grid with NDV values. + if(minSinceSim .eq. 0 .and. fileMeta%timeZeroFlag(iTmp2) .eq. 0) then + localCompTmp(iTmp,jTmp) = fileMeta%fillComp(iTmp2) + localRealTmp(iTmp,jTmp) = fileMeta%fillReal(iTmp2) + else + if(varRealTmp .eq. fileMeta%modelNdv) then + localCompTmp(iTmp,jTmp) = INT(fileMeta%fillComp(iTmp2)) + localRealTmp(iTmp,jTmp) = fileMeta%fillReal(iTmp2) + else + localCompTmp(iTmp,jTmp) = NINT((varRealTmp-fileMeta%addOffset(iTmp2))/fileMeta%scaleFactor(iTmp2)) + localRealTmp(iTmp,jTmp) = varRealTmp + endif + endif + end do + end do + ! Collect local integer arrays into the global integer grid to be + ! written out. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call write_IO_rt_int(localCompTmp,globalOutComp(:,zTmp,:)) + call write_IO_rt_real(localRealTmp,globalOutReal(:,zTmp,:)) +#endif + else + globalOutComp(:,zTmp,:) = localCompTmp + globalOutReal(:,zTmp,:) = localRealTmp + endif + + ! Sync up processes + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + end do ! End looping through levels + + ! Write output to NetCDF file. + if(myId .eq. 0) then + iret = nf90_inq_varid(ftn,trim(fileMeta%varNames(iTmp2)),varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find variable ID for var: '//trim(fileMeta%varNames(iTmp2))) + if(numLev .eq. 1) then + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_var(ftn,varId,globalOutComp,(/1,1,1/),(/RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt,1/)) + else + iret = nf90_put_var(ftn,varId,globalOutReal,(/1,1,1/),(/RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt,1/)) + endif + else + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_var(ftn,varId,globalOutComp,(/1,1,1,1/),(/RT_DOMAIN(domainId)%g_ixrt,numLev,RT_DOMAIN(domainId)%g_jxrt,1/)) + else + iret = nf90_put_var(ftn,varId,globalOutReal,(/1,1,1,1/),(/RT_DOMAIN(domainId)%g_ixrt,numLev,RT_DOMAIN(domainId)%g_jxrt,1/)) + endif + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into output variable: '//trim(fileMeta%varNames(iTmp2))) + endif + + ! Deallocate memory for this variable. + deallocate(globalOutComp) + deallocate(localCompTmp) + deallocate(globalOutReal) + deallocate(localRealTmp) + endif + end do + + if(myId .eq. 0) then + ! Close the output file + iret = nf90_close(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close RT_DOMAIN file.') + endif + + +end subroutine output_rt_NWM + +!============================================================================== +! Program Name: output_lakes_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output routine for lake points for the National Water Model. +! History Log: +! 3/6/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. + +subroutine output_lakes_NWM(domainId,iGrid) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use module_mpp_land +#endif + implicit none + + integer, intent(in) :: domainId + integer, intent(in) :: iGrid + + ! Derived types. + type(lakeMeta) :: fileMeta + + ! Local variables + integer :: mppFlag, diagFlag + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDate ! Start of model simulation, represented as a string. + character(len=256) :: output_flnm ! CHRTOUT_DOMAIN filename + integer :: iret ! NetCDF return statuses + integer :: ftn ! NetCDF file handle + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: dimId(3) ! Dimension ID values created during NetCDF created. + integer :: varId ! Variable ID value created as NetCDF variables are created and populated. + integer :: timeId ! Dimension ID for the time dimension. + integer :: refTimeId ! Dimension ID for the reference time dimension. + integer :: coordVarId ! Variable to hold crs + integer :: featureVarId ! feature_id NetCDF variable ID + integer :: latVarId, lonVarId ! lat/lon NetCDF variable ID values + integer :: elevVarId ! elevation NetCDF variable ID + integer :: varRange(2) ! Local storage of valid min/max values + real :: varRangeReal(2) ! Local storage of valid min/max values + integer :: gSize ! Global size of lake out arrays + integer :: iTmp + integer :: ftnRt,indVarId,indTmp ! For the feature_id sorting process. + integer :: ierr, myId ! MPI return status, process ID + integer :: ascFlag ! Flag for resorting timeseries output by feature_id. + ! Allocatable arrays to hold output variables. + real, allocatable, dimension(:) :: g_lakeLat,g_lakeLon,g_lakeElev + real, allocatable, dimension(:) :: g_lakeInflow,g_lakeOutflow + integer, allocatable, dimension(:) :: g_lakeid + real, allocatable, dimension(:) :: g_lakeLatOut,g_lakeLonOut,g_lakeElevOut + real, allocatable, dimension(:) :: g_lakeInflowOut,g_lakeOutflowOut + integer, allocatable, dimension(:) :: g_lakeidOut + real, allocatable, dimension(:,:) :: varOutReal ! Array holding output variables in real format + integer, allocatable, dimension(:) :: varOutInt ! Array holding output variables after + ! scale_factor/add_offset + ! have been applied. + integer, allocatable, dimension(:) :: chIndArray ! Array of index values for + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + + !each channel point. feature_id will need to be sorted in ascending order once + !data is collected into the global array. From there, the index values are + !re-sorted, and used to re-sort output arrays. + + ! Initialize the ascFlag. + ascFlag = 1 + + ! Establish macro variables to hlep guide this subroutine. +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Some sanity checking here. + if(nlst_rt(domainId)%outlake .eq. 0) then + ! No output requested here. Return to the parent calling program. + return + endif + + ! Initialize NWM dictionary derived type containing all the necessary metadat + ! for the output file. + call initLakeDict(fileMeta,myId,diagFlag) + + if(nlst_rt(1)%io_config_outputs .eq. 0) then + ! All + fileMeta%outFlag(:) = [1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 1) then + ! Analysis and Assimilation + fileMeta%outFlag(:) = [1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 2) then + ! Short Range + fileMeta%outFlag(:) = [1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 3) then + ! Medium Range + fileMeta%outFlag(:) = [1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 4) then + ! Long Range + fileMeta%outFlag(:) = [1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 5) then + ! Retrospective + fileMeta%outFlag(:) = [1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 6) then + ! Diagnostics + fileMeta%outFlag(:) = [1,1] + else + call nwmCheck(diagFlag,1,'ERROR: Invalid IOC flag provided by namelist file.') + endif + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + ! First step is to collect and assemble all data that will be written to the + ! NetCDF file. If we are not using MPI, we bypass the collection step through + ! MPI. + if(mppFlag .eq. 1) then + gSize = rt_domain(domainId)%NLAKES + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + allocate(g_lakeLon(gsize)) + allocate(g_lakeLat(gsize)) + allocate(g_lakeElev(gsize)) + allocate(g_lakeInflow(gsize)) + allocate(g_lakeOutflow(gsize)) + allocate(g_lakeid(gsize)) + if(myId .eq. 0) then + allocate(g_lakeLonOut(gsize)) + allocate(g_lakeLatOut(gsize)) + allocate(g_lakeElevOut(gsize)) + allocate(g_lakeInflowOut(gsize)) + allocate(g_lakeOutflowOut(gsize)) + allocate(g_lakeidOut(gsize)) + allocate(chIndArray(gsize)) + endif + + g_lakeLat = RT_DOMAIN(domainID)%LATLAKE + g_lakeLon = RT_DOMAIN(domainID)%LONLAKE + g_lakeElev = RT_DOMAIN(domainID)%RESHT + g_lakeInflow = RT_DOMAIN(domainID)%QLAKEI + g_lakeOutflow = RT_DOMAIN(domainID)%QLAKEO + g_lakeid = RT_DOMAIN(domainId)%LAKEIDM + + ! Sync everything up before the next step. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Collect arrays from various processors through MPI, and + ! assemble into global arrays previously allocated. +#ifdef MPP_LAND + call write_lake_real(g_lakeLat,RT_DOMAIN(domainId)%lake_index,gsize) + call write_lake_real(g_lakeLon,RT_DOMAIN(domainId)%lake_index,gsize) + call write_lake_real(g_lakeElev,RT_DOMAIN(domainId)%lake_index,gsize) + call write_lake_real(g_lakeInflow,RT_DOMAIN(domainId)%lake_index,gsize) + call write_lake_real(g_lakeOutflow,RT_DOMAIN(domainId)%lake_index,gsize) +#endif + else + gSize = rt_domain(domainId)%NLAKES + ! No MPI - single processor + allocate(g_lakeLon(gsize)) + allocate(g_lakeLat(gsize)) + allocate(g_lakeElev(gsize)) + allocate(g_lakeInflow(gsize)) + allocate(g_lakeOutflow(gsize)) + allocate(g_lakeid(gsize)) + allocate(g_lakeLonOut(gsize)) + allocate(g_lakeLatOut(gsize)) + allocate(g_lakeElevOut(gsize)) + allocate(g_lakeInflowOut(gsize)) + allocate(g_lakeOutflowOut(gsize)) + allocate(g_lakeidOut(gsize)) + allocate(chIndArray(gsize)) + g_lakeLat = RT_DOMAIN(domainID)%LATLAKE + g_lakeLon = RT_DOMAIN(domainID)%LONLAKE + g_lakeElev = RT_DOMAIN(domainID)%RESHT + g_lakeInflow = RT_DOMAIN(domainID)%QLAKEI + g_lakeOutflow = RT_DOMAIN(domainID)%QLAKEO + g_lakeid = RT_DOMAIN(domainId)%LAKEIDM + endif + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Calculate datetime information. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDate = trim(nlst_rt(domainId)%startdate(1:4)//"-"//& + nlst_rt(domainId)%startdate(6:7)//& + &"-"//nlst_rt(domainId)%startdate(9:10)//" "//& + nlst_rt(domainId)%startdate(12:13)//":"//& + nlst_rt(domainId)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDate,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(nlst_rt(1)%out_dt*(rt_domain(1)%out_counts-1)) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(domainId)%olddate(1:4)//'-'//& + nlst_rt(domainId)%olddate(6:7)//'-'//& + nlst_rt(domainId)%olddate(9:10)//'_'//& + nlst_rt(domainId)%olddate(12:13)//':'//& + nlst_rt(domainId)%olddate(15:16)//':'//& + nlst_rt(domainId)%olddate(18:19)) + initTime = trim(nlst_rt(domainId)%startdate(1:4)//'-'//& + nlst_rt(domainId)%startdate(6:7)//'-'//& + nlst_rt(domainId)%startdate(9:10)//'_'//& + nlst_rt(domainId)%startdate(12:13)//':'//& + nlst_rt(domainId)%startdate(15:16)//':'//& + nlst_rt(domainId)%startdate(18:19)) + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + nlst_rt(1)%out_dt + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 60/nlst_rt(1)%out_dt) * nlst_rt(1)%out_dt + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 60 / nlst_rt(1)%out_dt) ! # number of valid time (#of output files) + + ! Compose output file name. + write(output_flnm, '(A12,".LAKEOUT_DOMAIN",I1)')nlst_rt(domainId)%olddate(1:4)//& + nlst_rt(domainId)%olddate(6:7)//nlst_rt(domainId)%olddate(9:10)//& + nlst_rt(domainId)%olddate(12:13)//nlst_rt(domainId)%olddate(15:16),nlst_rt(domainId)%igrid + + ! Only run NetCDF library calls to output data if we are on the master + ! processor. + if(myId .eq. 0) then + ! Read in index values from Routelink that will be used to sort output + ! variables by ascending feature_id. + iret = nf90_open(trim(nlst_rt(1)%route_lake_f),NF90_NOWRITE,ncid=ftnRt) + call nwmCheck(diagFlag,iret,'ERROR: Unable to open LAKEPARM file for index extraction') + iret = nf90_inq_varid(ftnRt,'ascendingIndex',indVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: ascendingIndex not found in LAKEPARM file. No resorting will take place.') + ascFlag = 0 + endif + if(ascFlag .eq. 1) then + iret = nf90_get_var(ftnRt,indVarId,chIndArray) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract ascendingIndex from LAKEPARM file.') + endif + iret = nf90_close(ftnRt) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAKEPARM file.') + + ! Place all output arrays into one real array that will be looped over + ! during conversion to compressed integer format. + allocate(varOutReal(fileMeta%numVars,gSize)) + allocate(varOutInt(gSize)) + if(ascFlag .eq. 1) then + ! Sort feature_id values by ascending values using the index array + ! extracted from the RouteLink file. + do iTmp=1,gSize + indTmp = chIndArray(iTmp) + indTmp = indTmp + 1 ! Python starts index values at 0, so we need to add one. + g_lakeInflowOut(iTmp) = g_lakeInflow(indTmp) + g_lakeOutflowOut(iTmp) = g_lakeOutflow(indTmp) + g_lakeLonOut(iTmp) = g_lakeLon(indTmp) + g_lakeLatOut(iTmp) = g_lakeLat(indTmp) + g_lakeElevOut(iTmp) = g_lakeElev(indTmp) + g_lakeidOut(iTmp) = g_lakeid(indTmp) + end do + else + g_lakeInflowOut = g_lakeInflow + g_lakeOutflowOut = g_lakeOutflow + g_lakeLonOut = g_lakeLon + g_lakeLatOut = g_lakeLat + g_lakeElevOut = g_lakeElev + g_lakeidOut = g_lakeid + endif + varOutReal(1,:) = g_lakeInflowOut(:) + varOutReal(2,:) = g_lakeOutflowOut(:) + + ! Mask out missing values + where ( varOutReal == fileMeta%modelNdv ) varOutReal = -9999.0 + + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create LAKEOUT NetCDF file.') + + ! Write global attributes. + iret = nf90_put_att(ftn,NF90_GLOBAL,"featureType",trim(fileMeta%fType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create featureType attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_initialization_time",trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model init attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"station_dimension",trim(fileMeta%lakeDim)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create st. dimension attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_valid_time",trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model valid attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_total_valid_times",fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model total valid times attribute') + !iret = nf90_put_att(ftn,NF90_GLOBAL,"esri_pe_string",trim(fileMeta%esri)) + !call nwmCheck(diagFlag,iret,'ERROR: Unable to create ESRI attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"Conventions",trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create conventions attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + + ! Create dimensions + iret = nf90_def_dim(ftn,"feature_id",gSize,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id dimension') + iret = nf90_def_dim(ftn,"time",NF90_UNLIMITED,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time dimension') + iret = nf90_def_dim(ftn,"reference_time",1,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftn,"time",nf90_int,dimId(2),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftn,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftn,"reference_time",nf90_int,dimId(3),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create a crs variable. + ! NOTE - For now, we are hard-coding in for lat/lon points. However, this + ! may be more flexible in future iterations. + iret = nf90_def_var(ftn,'crs',nf90_char,varid=coordVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create crs variable.') + iret = nf90_put_att(ftn,coordVarId,'transform_name','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place transform_name attribute into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'grid_mapping_name','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping_name attribute into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'esri_pe_string','GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",& + &SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",& + &0.0174532925199433]];-400 -400 1000000000;& + &-100000 10000;-100000 10000;8.98315284119521E-09;0.001;0.001;IsHighPrecision') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'spatial_ref','GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",& + &SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",& + &0.0174532925199433]];-400 -400 1000000000;& + &-100000 10000;-100000 10000;8.98315284119521E-09;0.001;0.001;IsHighPrecision') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place spatial_ref into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'long_name','CRS definition') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'longitude_of_prime_meridian',0.0) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place longitude_of_prime_meridian into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'_CoordinateAxes','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place _CoordinateAxes into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'semi_major_axis',6378137.0) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place semi_major_axis into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'semi_minor_axis',6356752.31424518) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place semi_minor_axis into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'inverse_flattening',298.257223563) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place inverse_flattening into crs variable.') + + ! Create feature_id variable + iret = nf90_def_var(ftn,"feature_id",nf90_int,dimId(1),featureVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id variable.') + iret = nf90_put_att(ftn,featureVarId,'long_name',trim(fileMeta%featureIdLName)) + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'comment',trim(fileMeta%featureIdComment)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place comment attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'cf_role',trim(fileMeta%cfRole)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place cf_role attribute into feature_id variable') + + ! Create lake lat/lon variables + iret = nf90_def_var(ftn,"latitude",nf90_float,dimId(1),latVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create latitude variable.') + iret = nf90_put_att(ftn,latVarId,'long_name',trim(fileMeta%latLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into latitude variable') + iret = nf90_put_att(ftn,latVarId,'standard_name',trim(fileMeta%latStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into latitude variable') + iret = nf90_put_att(ftn,latVarId,'units',trim(fileMeta%latUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into latitude variable') + iret = nf90_def_var(ftn,"longitude",nf90_float,dimId(1),lonVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create longitude variable.') + iret = nf90_put_att(ftn,lonVarId,'long_name',trim(fileMeta%lonLName)) + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into longitude variable') + iret = nf90_put_att(ftn,lonVarId,'standard_name',trim(fileMeta%lonStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into longitude variable') + iret = nf90_put_att(ftn,lonVarId,'units',trim(fileMeta%lonUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into longitude variable') + + ! Create channel elevation variable + iret = nf90_def_var(ftn,"water_sfc_elev",nf90_float,dimId(1),elevVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create water_sfc_elev variable.') + iret = nf90_put_att(ftn,elevVarId,'long_name',trim(fileMeta%elevLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into water_sfc_elev variable') + iret = nf90_put_att(ftn,elevVarId,'units',trim(fileMeta%elevUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into water_sfc_elev variable') + + ! Define deflation levels for these meta-variables. For now, we are going to + ! default to a compression level of 2. Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,featureVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for feature_id.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + iret = nf90_def_var_deflate(ftn,latVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for latitude.') + iret = nf90_def_var_deflate(ftn,lonVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for longitude.') + iret = nf90_def_var_deflate(ftn,elevVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for elevation.') + endif + + ! Allocate memory for the output variables, then place the real output + ! variables into a single array. This array will be accessed throughout the + ! output looping below for conversion to compressed integer values. + ! Loop through and create each output variable, create variable attributes, + ! and insert data. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! First create variable + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,dimId(1),varId) + else + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,dimId(1),varId) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to create variable:'//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinComp(iTmp) + varRange(2) = fileMeta%validMaxComp(iTmp) + varRangeReal(1) = fileMeta%validMinReal(iTmp) + varRangeReal(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are using a + ! compression level of 2. In addition, we are choosing to turn the shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent writing output. + ! Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftn,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'coordinates',trim(fileMeta%coordNames(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place coordinates attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable '//trim(fileMeta%varNames(iTmp))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'scale_factor',fileMeta%scaleFactor(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place scale_factor attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'add_offset',fileMeta%addOffset(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place add_offset attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRange) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + else + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRangeReal) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + endif + endif + end do + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take LAKETOUT file out of definition mode') + + ! Place lake ID, elevation, lat, and lon values into appropriate + ! variables. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! We are outputing this variable. + ! Convert reals to integer. If we are on time 0, make sure we don't + ! need to fill in with NDV values. + if(minSinceSim .eq. 0 .and. fileMeta%timeZeroFlag(iTmp) .eq. 0) then + varOutInt(:) = fileMeta%fillComp(iTmp) + varOutReal(iTmp,:) = fileMeta%fillReal(iTmp) + else + varOutInt(:) = NINT((varOutReal(iTmp,:)-fileMeta%addOffset(iTmp))/fileMeta%scaleFactor(iTmp)) + endif + ! Get NetCDF variable id. + iret = nf90_inq_varid(ftn,trim(fileMeta%varNames(iTmp)),varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find variable ID for var: '//trim(fileMeta%varNames(iTmp))) + + ! Put data into NetCDF file + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_var(ftn,varId,varOutInt) + else + iret = nf90_put_var(ftn,varId,varOutReal(iTmp,:)) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into output variable: '//trim(fileMeta%varNames(iTmp))) + endif + end do + + ! Place link ID values into the NetCDF file + iret = nf90_inq_varid(ftn,'feature_id',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate feature_id in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_lakeidOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into feature_id output variable.') + + ! Place lake metadata into NetCDF file + iret = nf90_inq_varid(ftn,'water_sfc_elev',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate water_sfc_elev in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_lakeElevOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into water_sfc_elev output variable.') + + iret = nf90_inq_varid(ftn,'latitude',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate latitude in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_lakeLatOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into latitude output variable.') + + iret = nf90_inq_varid(ftn,'longitude',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate longitude in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_lakeLonOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into longitude output variable.') + + ! Place time values into time variables. + iret = nf90_inq_varid(ftn,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftn,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + ! Close the output file + iret = nf90_close(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAKE file.') + + endif ! End if we are on master processor. + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Deallocate all memory + if(myId .eq. 0) then + deallocate(varOutReal) + deallocate(varOutInt) + endif + deallocate(g_lakeLon) + deallocate(g_lakeLat) + deallocate(g_lakeElev) + deallocate(g_lakeInflow) + deallocate(g_lakeOutflow) + deallocate(g_lakeid) + if(myId .eq. 0) then + deallocate(g_lakeLonOut) + deallocate(g_lakeLatOut) + deallocate(g_lakeElevOut) + deallocate(g_lakeInflowOut) + deallocate(g_lakeOutflowOut) + deallocate(g_lakeidOut) + deallocate(chIndArray) + endif + + +end subroutine output_lakes_NWM + +!================================================================== +! Program Name: output_chrtout_grd_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Ouptut routine for gridden streamflow variables +! for non-reach based routing. +! History Log: +! 8/6/17 - Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. + +subroutine output_chrtout_grd_NWM(domainId,iGrid) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use module_mpp_land + use module_mpp_reachls, only: ReachLS_write_io +#endif + implicit none + + ! subroutine arguments + integer, intent(in) :: domainId + integer, intent(in) :: iGrid + + ! Derived types. + type(chrtGrdMeta) :: fileMeta + + ! Local variables + integer :: mppFlag, diagFlag + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDate ! Start of model simulation, represented as a string. + character(len=256) :: output_flnm ! CHRTOUT_GRID filename + integer :: iret ! NetCDF return statuses + integer :: ftn ! NetCDF file handle + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: dimId(4) ! Dimension ID values created during NetCDF created. + integer :: varId ! Variable ID value created as NetCDF variables are created and populated. + integer :: timeId ! Dimension ID for the time dimension. + integer :: refTimeId ! Dimension ID for the reference time dimension. + integer :: xVarId,yVarId,coordVarId ! Coordinate variable NC ID values + integer :: varRange(2) ! Local storage for valid min/max ranges + real :: varRangeReal(2) ! Local storage for valid min/max ranges + integer :: ierr, myId ! MPI return status, process ID + integer :: ftnGeo,geoXVarId,geoYVarId + integer :: iTmp,jTmp,jTmp2,iTmp2 + integer :: gNumLnks,lNumLnks + integer :: indexVarId + ! Allocatable array to hold temporary streamflow for checking + real, allocatable, dimension(:) :: strFlowLocal + ! Allocatable array to hold global qlink values + real, allocatable, dimension(:,:) :: g_qlink + ! Allocatable array to hold streamflow index values + integer, allocatable, dimension(:,:) :: CH_NETLNK + ! allocatable global array to hold grid of output streamflow values + integer, allocatable, dimension(:,:) :: tmpFlow + real, allocatable, dimension(:,:) :: tmpFlowReal + ! allocatable arrays to hold coordinate values + real*8, allocatable, dimension(:) :: yCoord,xCoord,yCoord2 + + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + +! Establish macro variables to hlep guide this subroutine. +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + ! We will print a warning to the user if they request CHRTOUT_GRID under + ! reach-based routing. Currently, this is not supported as we don't have a + ! way to map reaches to individual cells on the channel grid in the Fulldom + ! file. + if(nlst_rt(domainId)%CHRTOUT_GRID .eq. 1) then + if(nlst_rt(domainId)%channel_option .ne. 3) then + call postDiagMsg(diagFlag,'WARNING: CHRTOUT_GRID only available for gridded channel routing, not reach-based routing.') + return + endif + endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Some sanity checking here. + if(nlst_rt(domainId)%CHRTOUT_GRID .eq. 0) then + ! No output requested here. Return to the parent calling program. + return + endif + + ! Initialize qlink arrays and collect data from processors for output. + gNumLnks = rt_domain(domainId)%gnlinks + lNumLnks = rt_domain(domainId)%NLINKS + if(myId .eq. 0) then + ! Channel index values + allocate(CH_NETLNK(RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt)) + ! Global qlink values + allocate(g_qlink(gNumLnks,2) ) + ! Grid of global streamflow values via scale_factor/add_offset + allocate(tmpFlow(RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt)) + allocate(tmpFlowReal(RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt)) + else + allocate(CH_NETLNK(1,1)) + allocate(g_qlink(1,2) ) + allocate(tmpFlow(1,1)) + allocate(tmpFlowReal(1,1)) + endif + ! Allocate local streamflow array. We need to do a check to + ! for lake_type 2. However, we cannot set the values in the global array + ! to missing as this causes the model to crash. + allocate(strFlowLocal(RT_DOMAIN(domainId)%NLINKS)) + strFlowLocal = RT_DOMAIN(domainId)%QLINK(:,1) + ! Loop through all the local links on this processor. For lake_type + ! of 2, we need to manually set the streamflow values + ! to the model NDV value. + if (RT_DOMAIN(domainId)%NLAKES .gt. 0) then + do iTmp=1,RT_DOMAIN(domainId)%NLINKS + if (RT_DOMAIN(domainId)%TYPEL(iTmp) .eq. 2) then + strFlowLocal(iTmp) = fileMeta%modelNdv + endif + end do + endif + if(nlst_rt(domainId)%channel_option .eq. 3) then + call write_chanel_real(strFlowLocal,RT_DOMAIN(domainId)%map_l2g,gNumLnks,lNumLnks,g_qlink(:,1)) + call write_chanel_real(RT_DOMAIN(domainId)%qlink(:,2),RT_DOMAIN(domainId)%map_l2g,gNumLnks,lNumLnks,g_qlink(:,2)) + endif + call write_IO_rt_int(RT_DOMAIN(domainId)%GCH_NETLNK, CH_NETLNK) + + ! Initialize NWM dictionary derived type containing all the necessary metadat + ! for the output file. + call initChrtGrdDict(fileMeta,myId,diagFlag) + + ! For now, we will default to outputting all variables until further notice. + fileMeta%outFlag(:) = [1] + + ! Calculate datetime information. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDate = trim(nlst_rt(domainId)%startdate(1:4)//"-"//& + nlst_rt(domainId)%startdate(6:7)//& + &"-"//nlst_rt(domainId)%startdate(9:10)//" "//& + nlst_rt(domainId)%startdate(12:13)//":"//& + nlst_rt(domainId)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDate,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(nlst_rt(1)%out_dt*(rt_domain(1)%out_counts-1)) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(domainId)%olddate(1:4)//'-'//& + nlst_rt(domainId)%olddate(6:7)//'-'//& + nlst_rt(domainId)%olddate(9:10)//'_'//& + nlst_rt(domainId)%olddate(12:13)//':'//& + nlst_rt(domainId)%olddate(15:16)//':'//& + nlst_rt(domainId)%olddate(18:19)) + initTime = trim(nlst_rt(domainId)%startdate(1:4)//'-'//& + nlst_rt(domainId)%startdate(6:7)//'-'//& + nlst_rt(domainId)%startdate(9:10)//'_'//& + nlst_rt(domainId)%startdate(12:13)//':'//& + nlst_rt(domainId)%startdate(15:16)//':'//& + nlst_rt(domainId)%startdate(18:19)) + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + nlst_rt(1)%out_dt + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 60/nlst_rt(1)%out_dt) * nlst_rt(1)%out_dt + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 60 / nlst_rt(1)%out_dt) ! # number of valid time (#of output files) + + ! Create output filename + write(output_flnm, '(A12,".CHRTOUT_GRID",I1)') nlst_rt(domainId)%olddate(1:4)//& + nlst_rt(domainId)%olddate(6:7)//& + nlst_rt(domainId)%olddate(9:10)//& + nlst_rt(domainId)%olddate(12:13)//& + nlst_rt(domainId)%olddate(15:16), igrid + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + if(myId .eq. 0) then + ! Create output NetCDF file for writing. + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create RT_DOMAIN NetCDF file.') + + ! Write global attributes + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_initialization_time',trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model init time attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_output_valid_time',trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model output time attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_total_valid_times',fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model total valid times attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'Conventions',trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place CF conventions attribute into RT_DOMAIN file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"GDAL_DataType","Generic") + call nwmCheck(diagFlag,iret,'ERROR: Unable to create GDAL_DataType attribute') + + ! Create dimensions + iret = nf90_def_dim(ftn,'time',NF90_UNLIMITED,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define time dimension') + iret = nf90_def_dim(ftn,'x',RT_DOMAIN(domainId)%g_ixrt,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define x dimension') + iret = nf90_def_dim(ftn,'y',RT_DOMAIN(domainId)%g_jxrt,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define y dimension') + iret = nf90_def_dim(ftn,'reference_time',1,dimId(4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define reference_time dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftn,"time",nf90_int,dimId(1),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftn,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftn,"reference_time",nf90_int,dimId(4),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create x/y coordinate variables + iret = nf90_def_var(ftn,'x',nf90_double,dimId(2),xVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create x coordinate variable') + do iTmp=1,fileMeta%nxRealAtts + iret = nf90_put_att(ftn,xVarId,trim(fileMeta%xFloatAttNames(iTmp)),& + fileMeta%xRealAttVals(iTmp,1:fileMeta%xRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x floating point attributes into CHRTOUT_GRID file.') + end do + do iTmp=1,fileMeta%nxCharAtts + iret = nf90_put_att(ftn,xVarId,trim(fileMeta%xCharAttNames(iTmp)),trim(fileMeta%xCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x string point attributes into CHRTOUT_GRID file.') + end do + iret = nf90_def_var(ftn,'y',nf90_double,dimId(3),yVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create y coordinate variable') + do iTmp=1,fileMeta%nyRealAtts + iret = nf90_put_att(ftn,yVarId,trim(fileMeta%yFloatAttNames(iTmp)),& + fileMeta%yRealAttVals(iTmp,1:fileMeta%yRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y floating point attributes into CHRTOUT_GRID file.') + end do + do iTmp=1,fileMeta%nyCharAtts + iret = nf90_put_att(ftn,yVarId,trim(fileMeta%yCharAttNames(iTmp)),trim(fileMeta%yCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y string point attributes into CHRTOUT_GRID file.') + end do + + ! Define compression for meta-variables only if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + iret = nf90_def_var_deflate(ftn,xVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for x.') + iret = nf90_def_var_deflate(ftn,yVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for y.') + endif + + ! Translate crs variable info from land spatial metadata file to output + ! file. + iret = nf90_def_var(ftn,'crs',nf90_char,varid=coordVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create crs variable in CHRTOUT_GRID file.') + do iTmp=1,fileMeta%nCrsRealAtts + iret = nf90_put_att(ftn,coordVarId,trim(fileMeta%crsFloatAttNames(iTmp)),& + fileMeta%crsRealAttVals(iTmp,1:fileMeta%crsRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs floating point attributes into CHRTOUT_GRID file.') + end do + do iTmp=1,fileMeta%nCrsCharAtts + iret = nf90_put_att(ftn,coordVarId,trim(fileMeta%crsCharAttNames(iTmp)),trim(fileMeta%crsCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs string point attributes into CHRTOUT_GRID file.') + end do + + ! Create channel index variable. + iret = nf90_def_var(ftn,'index',nf90_int,(/dimId(2),dimId(3)/),varid=indexVarId) + iret = nf90_put_att(ftn,indexVarId,'_FillValue',-9999) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable index') + iret = nf90_put_att(ftn,indexVarId,'missing_value',-9999) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable index') + iret = nf90_put_att(ftn,indexVarId,'long_name','Streamflow Index Value') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable index') + iret = nf90_put_att(ftn,indexVarId,'units','-') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable index') + iret = nf90_put_att(ftn,indexVarId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable: index') + ! Place necessary geospatial attributes into the variable. + do iTmp2=1,fileMeta%nCrsCharAtts + if(trim(fileMeta%crsCharAttNames(iTmp2)) .eq. 'esri_pe_string') then + iret = nf90_put_att(ftn,indexVarId,trim(fileMeta%crsCharAttNames(iTmp2)),trim(fileMeta%crsCharAttVals(iTmp2))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string attribute into '//trim(fileMeta%varNames(iTmp))) + endif + end do + ! Define compression for meta-variables only if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,indexVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for index.') + endif + + ! Loop through all possible variables and create them, along with their + ! metadata attributes. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,(/dimId(2),dimId(3),dimId(1)/),varId) + else + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,(/dimId(2),dimId(3),dimId(1)/),varId) + endif + call nwmCheck(diagFlag,iret,"ERROR: Unable to create variable: "//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinComp(iTmp) + varRange(2) = fileMeta%validMaxComp(iTmp) + varRangeReal(1) = fileMeta%validMinReal(iTmp) + varRangeReal(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are + ! using a + ! compression level of 2. In addition, we are choosing to turn the + ! shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent + ! writing output. + ! Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftn,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable: '//trim(fileMeta%varNames(iTmp))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'scale_factor',fileMeta%scaleFactor(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place scale_factor attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'add_offset',fileMeta%addOffset(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place add_offset attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRange) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + else + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRangeReal) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + endif + ! Place necessary geospatial attributes into the variable. + do iTmp2=1,fileMeta%nCrsCharAtts + if(trim(fileMeta%crsCharAttNames(iTmp2)) .eq. 'esri_pe_string') then + iret = nf90_put_att(ftn,varId,trim(fileMeta%crsCharAttNames(iTmp2)),trim(fileMeta%crsCharAttVals(iTmp2))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string attribute into '//trim(fileMeta%varNames(iTmp))) + endif + end do + endif + end do ! end looping through variable output list. + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take RT_DOMAIN file out of definition mode') + + ! Read in coordinates from FullDom file. These will be placed into the + ! output file coordinate variables. + allocate(xCoord(RT_DOMAIN(domainId)%g_ixrt)) + allocate(yCoord(RT_DOMAIN(domainId)%g_jxrt)) + allocate(yCoord2(RT_DOMAIN(domainId)%g_jxrt)) + iret = nf90_open(trim(nlst_rt(domainId)%geo_finegrid_flnm),NF90_NOWRITE,ncid=ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to open FullDom file') + iret = nf90_inq_varid(ftnGeo,'x',geoXVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x coordinate in FullDom file') + iret = nf90_get_var(ftnGeo,geoXVarId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract x coordinate from FullDom file') + iret = nf90_inq_varid(ftnGeo,'y',geoYVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y coordinate in FullDom file') + iret = nf90_get_var(ftnGeo,geoYVarId,yCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract y coordinate from FullDom file') + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close geoGrid file.') + + ! Reverse Y coordinates. They are read in reverse. + jTmp2 = 0 + do jTmp = RT_DOMAIN(domainId)%g_jxrt,1,-1 + jTmp2 = jTmp2 + 1 + yCoord2(jTmp2) = yCoord(jTmp) + end do + ! Place coordinate values into output file + iret = nf90_inq_varid(ftn,'x',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate x coordinate variable.') + iret = nf90_put_var(ftn,varId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into x coordinate variable') + iret = nf90_inq_varid(ftn,'y',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate y coordinate variable') + iret = nf90_put_var(ftn,varId,yCoord2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into y coordinate variable') + deallocate(xCoord) + deallocate(yCoord) + deallocate(yCoord2) + + ! Place streamflow index values into output file. + iret = nf90_inq_varid(ftn,'index',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate index variable.') + iret = nf90_put_var(ftn,varId,CH_NETLNK,(/1,1/),(/RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt/)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place CH_NETLNK values into index variable.') + + ! Place time values into time variables. + iret = nf90_inq_varid(ftn,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftn,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + ! Since the only variable we are "looping" over for output is streamflow, + ! handle below. If other variables are added later, we can modify this + ! section. + do jTmp=1,RT_DOMAIN(domainId)%g_jxrt + do iTmp=1,RT_DOMAIN(domainId)%g_ixrt + if(CH_NETLNK(iTmp,jTmp).GE.0) then + tmpFlow(iTmp,jTmp) = NINT((g_qlink(CH_NETLNK(iTmp,jTmp),1)-fileMeta%addOffset(1))/fileMeta%scaleFactor(1)) + tmpFlowReal(iTmp,jTmp) = g_qlink(CH_NETLNK(iTmp,jTmp),1) + else + tmpFlow(iTmp,jTmp) = fileMeta%fillComp(1) + tmpFlowReal(iTmp,jTmp) = fileMeta%fillReal(1) + endif + enddo + enddo + + ! Place streamflow grid into output file. + iret = nf90_inq_varid(ftn,'streamflow',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate streamflow variable.') + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_var(ftn,varId,tmpFlow,(/1,1,1/),(/RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt,1/)) + else + iret = nf90_put_var(ftn,varId,tmpFlowReal,(/1,1,1/),(/RT_DOMAIN(domainId)%g_ixrt,RT_DOMAIN(domainId)%g_jxrt,1/)) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to place streamflow values into CHRTOUT_GRID') + + endif ! End if statement if on I/O ID + +! Synce up processes. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(myId .eq. 0) then + ! Close the output file + iret = nf90_close(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close RT_DOMAIN file.') + endif + + ! Deallocate memory as needed + deallocate(g_qlink, CH_NETLNK, tmpFlow, tmpFlowReal, strFlowLocal) + +end subroutine output_chrtout_grd_NWM + +!=============================================================================== +! Program Name: output_lsmOut_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output routine fro diagnostic LSM grids. +! History Log: +! 8/9/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files. None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. + +subroutine output_lsmOut_NWM(domainId) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use module_mpp_land +#endif + implicit none + + ! Subroutine arguments + integer, intent(in) :: domainId + + ! Derived types. + type(lsmMeta) :: fileMeta + + ! Local variables + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDateTmp ! Start of model simulation, represented as a string. + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: mppFlag, diagFlag + character(len=1024) :: output_flnm ! Output file name + integer :: iret ! NetCDF return status + integer :: ftn ! NetCDF file handle + integer :: dimId(4) ! NetCDF dimension ID values + integer :: varId ! NetCDF variable ID value + integer :: timeId ! NetCDF time variable ID + integer :: refTimeId ! NetCDF reference_time variable ID + integer :: coordVarId ! NetCDF coordinate variable ID + integer :: xVarId,yVarId ! NetCDF x/y variable ID + integer :: ierr, myId ! MPI related values + !integer :: varRange(2) ! Local storage of valid min/max values + real :: varRange(2) ! Local storage of valid min/max values + integer :: iTmp,jTmp,iTmp2,jTmp2 + integer :: ftnGeo,geoXVarId,geoYVarId + integer :: waterVal ! Value in HRLDAS in WRFINPUT file used to define water bodies for masking + real*8, allocatable, dimension(:) :: yCoord,xCoord,yCoord2 + real :: varRealTmp + real, allocatable, dimension(:,:) :: localRealTmp, globalOutReal + !integer, allocatable, dimension(:,:) :: globalCompTmp, localCompTmp + + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + ! Sync up processes. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Some sanity checking here. + if(nlst_rt(domainId)%LSMOUT_DOMAIN .eq. 0) then + ! No output requested here. Return to the parent calling program. + return + endif + + ! Call routine to initialize metadata structure + call initLsmOutDict(fileMeta,myId,diagFlag) + + ! Initialize the water type + waterVal = rt_domain(domainId)%iswater + + ! Calculate necessary datetime information that will go into the output file. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDateTmp = trim(nlst_rt(1)%startdate(1:4)//"-"//& + nlst_rt(1)%startdate(6:7)//& + &"-"//nlst_rt(1)%startdate(9:10)//" "//& + nlst_rt(1)%startdate(12:13)//":"//& + nlst_rt(1)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDateTmp,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(nlst_rt(1)%out_dt*(rt_domain(1)%out_counts-1)) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(1)%olddate(1:4)//'-'//& + nlst_rt(1)%olddate(6:7)//'-'//& + nlst_rt(1)%olddate(9:10)//'_'//& + nlst_rt(1)%olddate(12:13)//':'//& + nlst_rt(1)%olddate(15:16)//':'//& + nlst_rt(1)%olddate(18:19)) + initTime = trim(nlst_rt(1)%startdate(1:4)//'-'//& + nlst_rt(1)%startdate(6:7)//'-'//& + nlst_rt(1)%startdate(9:10)//'_'//& + nlst_rt(1)%startdate(12:13)//':'//& + nlst_rt(1)%startdate(15:16)//':'//& + nlst_rt(1)%startdate(18:19)) + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + nlst_rt(1)%out_dt + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 60/nlst_rt(1)%out_dt) * nlst_rt(1)%out_dt + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 60 / nlst_rt(1)%out_dt) ! # number of valid time (#of output files) + + ! For now, will always default to outputting all available + ! variables since the nature of this output file is + ! diagnostic in nature. + fileMeta%outFlag(:) = [1,1,1,1,1,1,1,1,1,1,1,1,1,1] + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(myId .eq. 0) then + ! We are on the I/O node. Create output file. + write(output_flnm,'(A12,".LSMOUT_DOMAIN",I1)') nlst_rt(domainId)%olddate(1:4)//& + nlst_rt(domainId)%olddate(6:7)//nlst_rt(domainId)%olddate(9:10)//& + nlst_rt(domainId)%olddate(12:13)//nlst_rt(domainId)%olddate(15:16)// & + nlst_rt(domainId)%hgrid + + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create LSMOUT NetCDF file.') + + ! Write global attributes + iret = nf90_put_att(ftn,NF90_GLOBAL,'TITLE',trim(fileMeta%title)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place TITLE attribute into LDASOUT file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_initialization_time',trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model init time attribute into LDASOUT file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'model_output_valid_time',trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model output time attribute into LDASOUT file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'modle_total_valid_time',fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place model total valid time attribute into LDASOUT file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,'Conventions',trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place CF conventions attribute into LDASOUT file.') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"GDAL_DataType","Generic") + call nwmCheck(diagFlag,iret,'ERROR: Unable to create GDAL_DataType attribute') + + ! Create dimensions + iret = nf90_def_dim(ftn,'time',NF90_UNLIMITED,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define time dimension') + iret = nf90_def_dim(ftn,'x',global_nx,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define x dimension') + iret = nf90_def_dim(ftn,'y',global_ny,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define y dimension') + iret = nf90_def_dim(ftn,'reference_time',1,dimId(4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define reference_time dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftn,"time",nf90_int,dimId(1),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftn,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftn,"reference_time",nf90_int,dimId(4),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create x/y coordinate variables + iret = nf90_def_var(ftn,'x',nf90_double,dimId(2),xVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create x coordinate variable') + do iTmp=1,fileMeta%nxRealAtts + iret = nf90_put_att(ftn,xVarId,trim(fileMeta%xFloatAttNames(iTmp)),& + fileMeta%xRealAttVals(iTmp,1:fileMeta%xRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x floating point attributes into LSMOUT file.') + end do + do iTmp=1,fileMeta%nxCharAtts + iret = nf90_put_att(ftn,xVarId,trim(fileMeta%xCharAttNames(iTmp)),trim(fileMeta%xCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place x string point attributes into LSMOUT file.') + end do + iret = nf90_def_var(ftn,'y',nf90_double,dimId(3),yVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create y coordinate variable') + do iTmp=1,fileMeta%nyRealAtts + iret = nf90_put_att(ftn,yVarId,trim(fileMeta%yFloatAttNames(iTmp)),& + fileMeta%yRealAttVals(iTmp,1:fileMeta%yRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y floating point attributes into LSMOUT file.') + end do + do iTmp=1,fileMeta%nyCharAtts + iret = nf90_put_att(ftn,yVarId,trim(fileMeta%yCharAttNames(iTmp)),trim(fileMeta%yCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place y string point attributes into LSMOUT file.') + end do + + ! Define compression for meta-variables. Only compress if io_form_outputs is set + ! to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + iret = nf90_def_var_deflate(ftn,xVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for x.') + iret = nf90_def_var_deflate(ftn,yVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for y.') + endif + + ! Translate crs variable info from land spatial metadata file to output + ! file. + iret = nf90_def_var(ftn,'crs',nf90_char,varid=coordVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create crs variable in LSMOUT file.') + do iTmp=1,fileMeta%nCrsRealAtts + iret = nf90_put_att(ftn,coordVarId,trim(fileMeta%crsFloatAttNames(iTmp)),& + fileMeta%crsRealAttVals(iTmp,1:fileMeta%crsRealAttLen(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs floating point attributes into LSMOUT file.') + end do + do iTmp=1,fileMeta%nCrsCharAtts + iret = nf90_put_att(ftn,coordVarId,trim(fileMeta%crsCharAttNames(iTmp)),trim(fileMeta%crsCharAttVals(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place crs string point attributes into LSMOUT file.') + end do + + ! Loop through all possible variables and create them, along with their + ! metadata attributes. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + !iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,(/dimId(2),dimId(3),dimId(1)/),varId) + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,(/dimId(2),dimId(3),dimId(1)/),varId) + call nwmCheck(diagFlag,iret,"ERROR: Unable to create variable: "//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinReal(iTmp) + varRange(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are using a + ! compression level of 2. In addition, we are choosing to turn the shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent writing output. + ! Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable: '//trim(fileMeta%varNames(iTmp))) + ! Place necessary geospatial attributes into the variable. + do iTmp2=1,fileMeta%nCrsCharAtts + if(trim(fileMeta%crsCharAttNames(iTmp2)) .eq. 'esri_pe_string') then + iret = nf90_put_att(ftn,varId,trim(fileMeta%crsCharAttNames(iTmp2)),trim(fileMeta%crsCharAttVals(iTmp2))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string attribute into '//trim(fileMeta%varNames(iTmp))) + endif + end do + endif ! End if output flag is on + end do ! end looping through variable output list. + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take LSMOUT file out of definition mode') + + ! Read in coordinates from GeoGrid file. These will be placed into the + ! output file coordinate variables. + allocate(xCoord(global_nx)) + allocate(yCoord(global_ny)) + allocate(yCoord2(global_ny)) + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnGeo) + if(iret .ne. 0) then + ! Spatial metadata file not found for land grid. Warn the user no + ! file was found, and set x/y coordinates to -9999.0 + call postDiagMsg(diagFlag,'WARNING: Unable to find LAND spatial metadata file') + xCoord = -9999.0 + yCoord = -9999.0 + yCoord2 = -9999.0 + else + iret = nf90_inq_varid(ftnGeo,'x',geoXVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x coordinate in geoGrid file') + iret = nf90_get_var(ftnGeo,geoXVarId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract x coordinate from geoGrid file') + iret = nf90_inq_varid(ftnGeo,'y',geoYVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y coordinate in geoGrid file') + iret = nf90_get_var(ftnGeo,geoYVarId,yCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract y coordinate from geoGrid file') + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close geoGrid file.') + ! Reverse Y coordinates. They are read in reverse. + jTmp2 = 0 + do jTmp = global_ny,1,-1 + jTmp2 = jTmp2 + 1 + yCoord2(jTmp2) = yCoord(jTmp) + end do + endif + + ! Place coordinate values into output file + iret = nf90_inq_varid(ftn,'x',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate x coordinate variable.') + iret = nf90_put_var(ftn,varId,xCoord) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into x coordinate variable') + iret = nf90_inq_varid(ftn,'y',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate y coordinate variable') + iret = nf90_put_var(ftn,varId,yCoord2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into y coordinate variable') + deallocate(xCoord) + deallocate(yCoord) + deallocate(yCoord2) + + ! Place time values into time variables. + iret = nf90_inq_varid(ftn,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftn,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + end if ! End if we are on the I/O processor. + + ! Sync up all processes + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Allocate temporary local memory + allocate(localRealTmp(rt_domain(domainId)%ix,rt_domain(domainId)%jx)) + + ! Loop through all possible variables to output. Collect the data to the + ! global grid and output to the necessary NetCDF variable. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! Allocate memory necessary + if(myId .eq. 0) then + allocate(globalOutReal(global_nx,global_ny)) + else + allocate(globalOutReal(1,1)) + endif + + ! Sync up processes + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Loop through the local array and convert floating point values + ! to integer via scale_factor/add_offset. If the pixel value + ! falls within a water class value, leave as ndv. + do iTmp2 = 1,rt_domain(domainId)%ix + do jTmp2 = 1,rt_domain(domainId)%jx + if(iTmp .eq. 1) then + varRealTmp = rt_domain(domainId)%stc(iTmp2,jTmp2,1) + else if(iTmp .eq. 2) then + varRealTmp = rt_domain(domainId)%smc(iTmp2,jTmp2,1) + else if(iTmp .eq. 3) then + varRealTmp = rt_domain(domainId)%sh2ox(iTmp2,jTmp2,1) + else if(iTmp .eq. 4) then + varRealTmp = rt_domain(domainId)%stc(iTmp2,jTmp2,2) + else if(iTmp .eq. 5) then + varRealTmp = rt_domain(domainId)%smc(iTmp2,jTmp2,2) + else if(iTmp .eq. 6) then + varRealTmp = rt_domain(domainId)%sh2ox(iTmp2,jTmp2,2) + else if(iTmp .eq. 7) then + varRealTmp = rt_domain(domainId)%stc(iTmp2,jTmp2,3) + else if(iTmp .eq. 8) then + varRealTmp = rt_domain(domainId)%smc(iTmp2,jTmp2,3) + else if(iTmp .eq. 9) then + varRealTmp = rt_domain(domainId)%sh2ox(iTmp2,jTmp2,3) + else if(iTmp .eq. 10) then + varRealTmp = rt_domain(domainId)%stc(iTmp2,jTmp2,4) + else if(iTmp .eq. 11) then + varRealTmp = rt_domain(domainId)%smc(iTmp2,jTmp2,4) + else if(iTmp .eq. 12) then + varRealTmp = rt_domain(domainId)%sh2ox(iTmp2,jTmp2,4) + else if(iTmp .eq. 13) then + varRealTmp = rt_domain(domainId)%INFXSRT(iTmp2,jTmp2) + else if(iTmp .eq. 14) then + varRealTmp = rt_domain(domainId)%SFCHEADRT(iTmp2,jTmp2) + endif + + ! For now, we are foregoing converting these variables to integer + ! via scale_factor/add_offset. This file is meant for diagnostic + ! purposes, so we want to keep full precision. + localRealTmp(iTmp2,jTmp2) = varRealTmp + + ! If we are on time 0, make sure we don't need to fill in the + ! grid with NDV values. + !if(minSinceSim .eq. 0 .and. fileMeta%timeZeroFlag(iTmp) .eq. 0) then + ! localCompTmp(iTmp2,jTmp2) = fileMeta%fillComp(iTmp) + !else + ! if(varRealTmp .eq. fileMeta%modelNdv) then + ! localCompTmp(iTmp2,jTmp2) = INT(fileMeta%fillComp(iTmp)) + ! else + ! localCompTmp(iTmp2,jTmp2) = NINT((varRealTmp-fileMeta%addOffset(iTmp))/fileMeta%scaleFactor(iTmp)) + ! endif + ! if(vegTyp(iTmp2,jTmp2) .eq. waterVal) then + ! localCompTmp(iTmp2,jTmp2) = INT(fileMeta%fillComp(iTmp)) + ! endif + !endif + enddo + enddo + ! Collect local 2D arrays to global 2D array + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call write_IO_real(localRealTmp,globalOutReal) +#endif + else + globalOutReal = localRealTmp + endif + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Write array out to NetCDF file + if(myId .eq. 0) then + iret = nf90_inq_varid(ftn,trim(fileMeta%varNames(iTmp)),varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find variable ID for var: '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_var(ftn,varId,globalOutReal,(/1,1,1/),(/global_nx,global_ny,1/)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into output variable: '//trim(fileMeta%varNames(iTmp))) + endif + + deallocate(globalOutReal) + endif + enddo + + if(myId .eq. 0) then + ! Close the output file + iret = nf90_close(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LSMOUT_DOMAIN file.') + endif + + deallocate(localRealTmp) + +end subroutine output_lsmOut_NWM + +!============================================================================== +! Program Name: output_frxstPts +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output frxstPts ASCII file from streamflow at forecast points +! defined in the Fulldom file. +! History Log: +! 9/18/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. +subroutine output_frxstPts(domainId) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict +#ifdef MPP_LAND + use module_mpp_land + use module_mpp_reachls, only: ReachLS_write_io +#endif +implicit none + + ! Pass in "did" value from hydro driving program. + integer, intent(in) :: domainId + + ! Local variables + integer :: mppFlag, diagFlag, ierr, myId + integer :: seconds_since + integer :: gSize, iTmp, numPtsOut + integer, allocatable, dimension(:) :: g_STRMFRXSTPTS, g_outInd + real, allocatable, dimension(:,:) :: g_qlink, g_qlinkOut + real, allocatable, dimension(:) :: g_chlat, g_chlon, g_hlink, strFlowLocal + integer, allocatable, dimension(:) :: frxstPtsLocal, g_STRMFRXSTPTSOut + real, allocatable, dimension(:) :: g_chlatOut, g_chlonOut, g_hlinkOut + integer, allocatable, dimension(:) :: g_linkid, g_linkidOut + +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + if(nlst_rt(domainId)%frxst_pts_out .eq. 0) then + ! No output requested here, return to parent calling program/subroutine. + return + endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Calculate datetime information + seconds_since = int(nlst_rt(1)%out_dt*60*(rt_domain(1)%out_counts-1)) + + ! First step is to allocate a global array of index values. This "index" + ! array will be used to subset after collection has taken place. Also, + ! the sum of this array will be used to determine the size of the output + ! arrays. + if(mppFlag .eq. 1) then + if(nlst_rt(domainId)%channel_option .ne. 3) then + gSize = rt_domain(domainId)%gnlinksl + else + gSize = rt_domain(domainId)%gnlinks + endif + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(myId .eq. 0) then + allocate(g_STRMFRXSTPTS(gSize)) + allocate(g_outInd(gSize)) + allocate(g_qlink(gSize,2)) + allocate(g_chlat(gSize)) + allocate(g_chlon(gSize)) + allocate(g_hlink(gSize)) + allocate(g_linkid(gSize)) + else + allocate(g_STRMFRXSTPTS(1)) + allocate(g_outInd(1)) + allocate(g_qlink(1,2)) + allocate(g_chlat(1)) + allocate(g_chlon(1)) + allocate(g_hlink(1)) + allocate(g_linkid(1)) + endif + + ! Initialize the index array to 0 + g_outInd = 0 + + ! Allocate local streamflow arrays. We need to do a check to + ! for lake_type 2. However, we cannot set the values in the global array + ! to missing as this causes the model to crash. + allocate(strFlowLocal(RT_DOMAIN(domainId)%NLINKS)) + allocate(frxstPtsLocal(RT_DOMAIN(domainId)%NLINKS)) + strFlowLocal = RT_DOMAIN(domainId)%QLINK(:,1) + frxstPtsLocal = rt_domain(domainId)%STRMFRXSTPTS + + ! Sync everything up before the next step. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Loop through all the local links on this processor. For lake_type + ! of 2, we need to manually set the streamflow values + ! to the model NDV value. + if (RT_DOMAIN(domainId)%NLAKES .gt. 0) then + do iTmp=1,RT_DOMAIN(domainId)%NLINKS + if (RT_DOMAIN(domainId)%TYPEL(iTmp) .eq. 2) then + !strFlowLocal(iTmp) = fileMeta%modelNdv + strFlowLocal(iTmp) = -9.E15 + frxstPtsLocal(iTmp) = -9999 + endif + end do + endif + + ! Collect arrays from various processors + if(nlst_rt(domainId)%channel_option .eq. 3) then + call write_chanel_int(frxstPtsLocal,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_STRMFRXSTPTS) + call write_chanel_real(strFlowLocal,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_qlink(:,1)) + call write_chanel_real(RT_DOMAIN(domainId)%QLINK(:,2),rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_qlink(:,2)) + call write_chanel_real(RT_DOMAIN(domainId)%CHLAT,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_chlat) + call write_chanel_real(RT_DOMAIN(domainId)%CHLON,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_chlon) + call write_chanel_real(RT_DOMAIN(domainId)%HLINK,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_hlink) + else + call ReachLS_write_io(strFlowLocal,g_qlink(:,1)) + call ReachLS_write_io(RT_DOMAIN(domainId)%QLINK(:,2),g_qlink(:,2)) + call ReachLS_write_io(RT_DOMAIN(domainId)%linkid,g_linkid) + call ReachLS_write_io(RT_DOMAIN(domainId)%CHLAT,g_chlat) + call ReachLS_write_io(RT_DOMAIN(domainId)%CHLON,g_chlon) + call ReachLS_write_io(RT_DOMAIN(domainId)%HLINK,g_hlink) + endif + + deallocate(strFlowLocal) + deallocate(frxstPtsLocal) + + else + ! Running sequentially on a single processor. + gSize = rt_domain(domainId)%nlinks + allocate(g_STRMFRXSTPTS(gSize)) + allocate(g_outInd(gSize)) + allocate(g_chlon(gSize)) + allocate(g_chlat(gSize)) + allocate(g_hlink(gSize)) + allocate(g_qlink(gSize,2)) + allocate(g_linkid(gSize)) + + ! Initialize the index array to 0 + g_outInd = 0 + + g_STRMFRXSTPTS = rt_domain(domainId)%STRMFRXSTPTS + g_chlon = RT_DOMAIN(domainId)%CHLON + g_chlat = RT_DOMAIN(domainId)%CHLAT + g_hlink = RT_DOMAIN(domainId)%HLINK + g_qlink = RT_DOMAIN(domainId)%QLINK + g_linkid = RT_DOMAIN(domainId)%linkid + endif + + if(myId .eq. 0) then + ! Set index values to 1 where we have forecast points. + if(nlst_rt(domainId)%channel_option .eq. 3) then + where(g_STRMFRXSTPTS .ne. -9999) g_outInd = 1 + endif + + if(nlst_rt(domainId)%channel_option .ne. 3) then + ! Check to see if we have any gages that need to be added for reach-based + ! routing. + call checkRouteGages(diagFlag,gSize,g_outInd) + endif + + ! Filter out any missing values that may have filtered through to this + ! point. + where(g_qlink(:,1) .le. -9999) g_outInd = 0 + + ! Allocate output arrays based on size of number of forecast points. + numPtsOut = SUM(g_outInd) + + if(numPtsOut .eq. 0) then + ! Write warning message to user showing there are NO forecast points to + ! write. Simply return to the main calling function. + call postDiagMsg(diagFlag,'WARNING: No forecast or gage points found for frxstPtsOut. No file will be created.') + return + endif + + ! Allocate output arrays based on number of output forecast points. + allocate(g_STRMFRXSTPTSOut(numPtsOut)) + allocate(g_chlonOut(numPtsOut)) + allocate(g_chlatOut(numPtsOut)) + allocate(g_hlinkOut(numPtsOut)) + allocate(g_qlinkOut(numPtsOut,2)) + allocate(g_linkidOut(numPtsOut)) + + ! Subset global arrays for forecast points. + g_STRMFRXSTPTSOut = PACK(g_STRMFRXSTPTS,g_outInd == 1) + g_chlonOut = PACK(g_chlon,g_outInd == 1) + g_chlatOut = PACK(g_chlat,g_outInd == 1) + g_hlinkOut = PACK(g_hlink,g_outInd == 1) + g_qlinkOut(:,1) = PACK(g_qlink(:,1),g_outInd == 1) + g_qlinkOut(:,2) = PACK(g_qlink(:,2),g_outInd == 1) + g_linkidOut = PACK(g_linkid,g_outInd == 1) + + ! Open the output file. + open (unit=55,file='frxst_pts_out.txt',status='unknown',position='append') + + ! Loop through forecast points and write output. + do iTmp=1,numPtsOut + if(nlst_rt(domainId)%channel_option .eq. 3) then + ! Instead of a gage ID, we are simply going to output the forecast + ! point number assigned during the pre-processing. +117 FORMAT(I8,",",A10,1X,A8,",",I12,",",F10.5,",",F8.5,",",F15.3,",",F18.3,",",F6.3) + write(55,117) seconds_since, nlst_rt(domainId)%olddate(1:18),& + nlst_rt(domainId)%olddate(12:19),& + g_STRMFRXSTPTSOut(iTmp),g_chlonOut(iTmp),& + g_chlatOut(iTmp),g_qlinkOut(iTmp,1),& + g_qlinkOut(iTmp,1)*35.314666711511576,& + g_hlinkOut(iTmp) + else + write(55,117) seconds_since, nlst_rt(domainId)%olddate(1:18),& + nlst_rt(domainId)%olddate(12:19),& + g_linkidOut(iTmp),g_chlonOut(iTmp),& + g_chlatOut(iTmp),g_qlinkOut(iTmp,1),& + g_qlinkOut(iTmp,1)*35.314666711511576,& + g_hlinkOut(iTmp) + endif + end do + + ! Close the output file + close(55) + else + allocate(g_STRMFRXSTPTSOut(1)) + allocate(g_chlonOut(1)) + allocate(g_chlatOut(1)) + allocate(g_hlinkOut(1)) + allocate(g_qlinkOut(1,2)) + allocate(g_linkidOut(1)) + endif + + ! Deallocate memory + deallocate(g_STRMFRXSTPTS) + deallocate(g_STRMFRXSTPTSOut) + deallocate(g_chlonOut) + deallocate(g_chlatOut) + deallocate(g_hlinkOut) + deallocate(g_qlinkOut) + deallocate(g_linkidOut) + deallocate(g_chlat) + deallocate(g_chlon) + deallocate(g_hlink) + deallocate(g_qlink) + deallocate(g_outInd) + deallocate(g_linkid) + +end subroutine output_frxstPts + +!============================================================================== +! Program Name: output_chanObs_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output routine for channel points at predefined forecast points. +! History Log: +! 9/19/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. +subroutine output_chanObs_NWM(domainId) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use module_mpp_land + use module_mpp_reachls, only: ReachLS_write_io +#endif + implicit none + + ! Pass in "did" value from hydro driving program. + integer, intent(in) :: domainId + + ! Derived types. + type(chObsMeta) :: fileMeta + + ! Local variables + integer :: nudgeFlag, mppFlag, diagFlag + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDate ! Start of model simulation, represented as a string. + character(len=256) :: output_flnm ! CHRTOUT_DOMAIN filename + integer :: iret ! NetCDF return statuses + integer :: ftn ! NetCDF file handle + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: dimId(3) ! Dimension ID values created during NetCDF created. + integer :: varId ! Variable ID value created as NetCDF variables are created and populated. + integer :: timeId ! Dimension ID for the time dimension. + integer :: refTimeId ! Dimension ID for the reference time dimension. + integer :: coordVarId ! Variable to hold crs + integer :: featureVarId, elevVarId, orderVarId ! Misc NetCDF variable id values + integer :: latVarId, lonVarId ! Lat/lon NetCDF variable id values. + integer :: varRange(2) ! Local storage of min/max valid range values. + real :: varRangeReal(2) ! Local storage of min/max valid range values. + integer :: gSize ! Global size of channel point array. + integer :: numPtsOut ! Number of forecast/gage points + integer :: iTmp, indTmp ! Misc integer values. + integer :: ierr, myId ! MPI return status, process ID + ! Establish local, allocatable arrays + ! These are used to hold global output arrays, and global output arrays after + ! sorting has taken place by ascending feature_id value. + real, allocatable, dimension(:) :: strFlowLocal,velocityLocal + real, allocatable, dimension(:,:) :: g_qlink + integer, allocatable, dimension(:) :: g_linkid,g_order + real, allocatable, dimension(:) :: g_chlat,g_chlon,g_hlink,g_zelev + real, allocatable, dimension(:,:) :: g_qlinkOut + integer, allocatable, dimension(:) :: g_orderOut,g_linkidOut + real, allocatable, dimension(:) :: g_chlatOut,g_chlonOut,g_hlinkOut,g_zelevOut + real, allocatable, dimension(:,:) :: varOutReal ! Array holding output variables in real format + integer, allocatable, dimension(:) :: varOutInt ! Array holding output variables after + ! scale_factor/add_offset + ! have been applied. + integer, allocatable, dimension(:) :: g_STRMFRXSTPTS, g_outInd + integer, allocatable, dimension(:) :: frxstPtsLocal, g_STRMFRXSTPTSOut + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + + ! Establish macro variables to hlep guide this subroutine. +#ifdef WRF_HYDRO_NUDGING + nudgeFlag = 1 +#else + nudgeFlag = 0 +#endif + +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + if(nlst_rt(domainId)%CHANOBS_DOMAIN .eq. 0) then + ! No output requested here, return to parent calling program/subroutine. + return + endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Initialize NWM dictionary derived type containing all the necessary metadat + ! for the output file. + call initChanObsDict(fileMeta,diagFlag,myId) + + ! For now, keep all output variables on, regardless of IOC flag + fileMeta%outFlag(:) = [1] + + ! Calculate datetime information. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDate = trim(nlst_rt(domainId)%startdate(1:4)//"-"//& + nlst_rt(domainId)%startdate(6:7)//& + &"-"//nlst_rt(domainId)%startdate(9:10)//" "//& + nlst_rt(domainId)%startdate(12:13)//":"//& + nlst_rt(domainId)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDate,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(nlst_rt(1)%out_dt*(rt_domain(1)%out_counts-1)) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(domainId)%olddate(1:4)//'-'//& + nlst_rt(domainId)%olddate(6:7)//'-'//& + nlst_rt(domainId)%olddate(9:10)//'_'//& + nlst_rt(domainId)%olddate(12:13)//':'//& + nlst_rt(domainId)%olddate(15:16)//':'//& + nlst_rt(domainId)%olddate(18:19)) + initTime = trim(nlst_rt(domainId)%startdate(1:4)//'-'//& + nlst_rt(domainId)%startdate(6:7)//'-'//& + nlst_rt(domainId)%startdate(9:10)//'_'//& + nlst_rt(domainId)%startdate(12:13)//':'//& + nlst_rt(domainId)%startdate(15:16)//':'//& + nlst_rt(domainId)%startdate(18:19)) + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + nlst_rt(1)%out_dt + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 60/nlst_rt(1)%out_dt) * nlst_rt(1)%out_dt + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 60 / nlst_rt(1)%out_dt) ! # number of valid time (#of output files) + + ! Compose output file name. + write(output_flnm,'(A12,".CHANOBS_DOMAIN",I1)')nlst_rt(domainId)%olddate(1:4)//& + nlst_rt(domainId)%olddate(6:7)//nlst_rt(domainId)%olddate(9:10)//& + nlst_rt(domainId)%olddate(12:13)//nlst_rt(domainId)%olddate(15:16),& + nlst_rt(domainId)%igrid + + + ! First step is to allocate a global array of index values. This "index" + ! array will be used to subset after collection has taken place. Also, + ! the sum of this array will be used to determine the size of the output + ! arrays. + if(mppFlag .eq. 1) then + if(nlst_rt(domainId)%channel_option .ne. 3) then + gSize = rt_domain(domainId)%gnlinksl + else + gSize = rt_domain(domainId)%gnlinks + endif + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(myId .eq. 0) then + allocate(g_STRMFRXSTPTS(gSize)) + allocate(g_outInd(gSize)) + allocate(g_qlink(gSize,2)) + allocate(g_chlat(gSize)) + allocate(g_chlon(gSize)) + allocate(g_hlink(gSize)) + allocate(g_zelev(gSize)) + allocate(g_order(gSize)) + allocate(g_linkid(gSize)) + else + allocate(g_STRMFRXSTPTS(1)) + allocate(g_outInd(1)) + allocate(g_qlink(1,2)) + allocate(g_chlat(1)) + allocate(g_chlon(1)) + allocate(g_hlink(1)) + allocate(g_zelev(1)) + allocate(g_order(1)) + allocate(g_linkid(1)) + endif + + ! Initialize the index array to 0 + g_outInd = 0 + + ! Allocate local streamflow arrays. We need to do a check to + ! for lake_type 2. However, we cannot set the values in the global array + ! to missing as this causes the model to crash. + allocate(strFlowLocal(RT_DOMAIN(domainId)%NLINKS)) + allocate(frxstPtsLocal(RT_DOMAIN(domainId)%NLINKS)) + strFlowLocal = RT_DOMAIN(domainId)%QLINK(:,1) + frxstPtsLocal = rt_domain(domainId)%STRMFRXSTPTS + + ! Sync everything up before the next step. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Loop through all the local links on this processor. For lake_type + ! of 2, we need to manually set the streamflow values + ! to the model NDV value. + if (RT_DOMAIN(domainId)%NLAKES .gt. 0) then + do iTmp=1,RT_DOMAIN(domainId)%NLINKS + if (RT_DOMAIN(domainId)%TYPEL(iTmp) .eq. 2) then + !strFlowLocal(iTmp) = fileMeta%modelNdv + strFlowLocal(iTmp) = -9.E15 + frxstPtsLocal(iTmp) = -9999 + endif + end do + endif + + ! Collect arrays from various processors + if(nlst_rt(domainId)%channel_option .eq. 3) then + call write_chanel_int(frxstPtsLocal,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_STRMFRXSTPTS) + call write_chanel_real(strFlowLocal,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_qlink(:,1)) + call write_chanel_real(RT_DOMAIN(domainId)%QLINK(:,2),rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_qlink(:,2)) + call write_chanel_real(RT_DOMAIN(domainId)%CHLAT,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_chlat) + call write_chanel_real(RT_DOMAIN(domainId)%CHLON,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_chlon) + call write_chanel_real(RT_DOMAIN(domainId)%HLINK,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_hlink) + call write_chanel_int(RT_DOMAIN(domainId)%linkid,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_linkid) + call write_chanel_int(RT_DOMAIN(domainId)%ORDER,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_order) + call write_chanel_real(RT_DOMAIN(domainId)%ZELEV,rt_domain(domainId)%map_l2g,gSize,rt_domain(domainId)%nlinks,g_zelev) + else + call ReachLS_write_io(frxstPtsLocal,g_STRMFRXSTPTS) + call ReachLS_write_io(strFlowLocal,g_qlink(:,1)) + call ReachLS_write_io(RT_DOMAIN(domainId)%QLINK(:,2),g_qlink(:,2)) + call ReachLS_write_io(RT_DOMAIN(domainId)%ORDER,g_order) + call ReachLS_write_io(RT_DOMAIN(domainId)%linkid,g_linkid) + call ReachLS_write_io(RT_DOMAIN(domainId)%CHLAT,g_chlat) + call ReachLS_write_io(RT_DOMAIN(domainId)%CHLON,g_chlon) + call ReachLS_write_io(RT_DOMAIN(domainId)%ZELEV,g_zelev) + call ReachLS_write_io(RT_DOMAIN(domainId)%HLINK,g_hlink) + endif + + deallocate(strFlowLocal) + deallocate(frxstPtsLocal) + + else + ! Running sequentially on a single processor. + gSize = rt_domain(domainId)%nlinks + allocate(g_STRMFRXSTPTS(gSize)) + allocate(g_outInd(gSize)) + allocate(g_chlon(gSize)) + allocate(g_chlat(gSize)) + allocate(g_hlink(gSize)) + allocate(g_qlink(gSize,2)) + allocate(g_linkid(gSize)) + allocate(g_order(gSize)) + allocate(g_zelev(gSize)) + + ! Initialize the index array to 0 + g_outInd = 0 + + g_STRMFRXSTPTS = rt_domain(domainId)%STRMFRXSTPTS + g_chlon = RT_DOMAIN(domainId)%CHLON + g_chlat = RT_DOMAIN(domainId)%CHLAT + g_hlink = RT_DOMAIN(domainId)%HLINK + g_qlink = RT_DOMAIN(domainId)%QLINK + g_linkid = RT_DOMAIN(domainId)%linkid + g_order = RT_DOMAIN(domainId)%ORDER + g_zelev = RT_DOMAIN(domainId)%ZELEV + endif + + if(myId .eq. 0) then + ! Set index values to 1 where we have forecast points. + if(nlst_rt(domainId)%channel_option .eq. 3) then + where(g_STRMFRXSTPTS .ne. -9999) g_outInd = 1 + endif + + if(nlst_rt(domainId)%channel_option .ne. 3) then + ! Check to see if we have any gages that need to be added for + ! reach-based + ! routing. + call checkRouteGages(diagFlag,gSize,g_outInd) + endif + + ! Filter out any missing values that may have filtered through to this + ! point. + where(g_qlink(:,1) .le. -9999) g_outInd = 0 + + ! Allocate output arrays based on size of number of forecast points. + numPtsOut = SUM(g_outInd) + + if(numPtsOut .eq. 0) then + ! Write warning message to user showing there are NO forecast points to + ! write. Simply return to the main calling function. + call postDiagMsg(diagFlag,'WARNING: No forecast or gage points found for CHANOBS. No file will be created.') + return + endif + + ! Allocate output arrays based on number of output forecast points. + allocate(g_STRMFRXSTPTSOut(numPtsOut)) + allocate(g_chlonOut(numPtsOut)) + allocate(g_chlatOut(numPtsOut)) + allocate(g_hlinkOut(numPtsOut)) + allocate(g_qlinkOut(numPtsOut,2)) + allocate(g_linkidOut(numPtsOut)) + allocate(g_orderOut(numPtsOut)) + allocate(g_zelevOut(numPtsOut)) + + ! Subset global arrays for forecast points. + g_STRMFRXSTPTSOut = PACK(g_STRMFRXSTPTS,g_outInd == 1) + g_chlonOut = PACK(g_chlon,g_outInd == 1) + g_chlatOut = PACK(g_chlat,g_outInd == 1) + g_hlinkOut = PACK(g_hlink,g_outInd == 1) + g_qlinkOut(:,1) = PACK(g_qlink(:,1),g_outInd == 1) + g_qlinkOut(:,2) = PACK(g_qlink(:,2),g_outInd == 1) + g_linkidOut = PACK(g_linkid,g_outInd == 1) + g_orderOut = PACK(g_order,g_outInd == 1) + g_zelevOut = PACK(g_zelev,g_outInd == 1) + + allocate(varOutReal(fileMeta%numVars,numPtsOut)) + allocate(varOutInt(numPtsOut)) + + varOutReal(1,:) = g_qlinkOut(:,1) + + ! Mask out missing values + where ( varOutReal == fileMeta%modelNdv ) varOutReal = -9999.0 + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + ! Create NetCDF for output. + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create CHANOBS NetCDF file.') + + ! Write global attributes. + iret = nf90_put_att(ftn,NF90_GLOBAL,"featureType",trim(fileMeta%fType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create featureType attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_initialization_time",trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model init attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"station_dimension",trim(fileMeta%stDim)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create st. dimension attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_valid_time",trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model valid attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_total_valid_times",fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model total valid times attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"stream_order_output",fileMeta%stOrder) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create order attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"cdm_datatype",trim(fileMeta%cdm)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create CDM attribute') + !iret = nf90_put_att(ftn,NF90_GLOBAL,"esri_pe_string",trim(fileMeta%esri)) + !call nwmCheck(diagFlag,iret,'ERROR: Unable to create ESRI attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"Conventions",trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create conventions attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + + ! Create global attributes specific to running output through the + ! channel-only configuration of the model. + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_OVRTSWCRT",nlst_rt(domainId)%OVRTSWCRT) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_OVRTSWCRT attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_NOAH_TIMESTEP",int(nlst_rt(domainId)%dt)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_NOAH_TIMESTEP attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_channel_only",nlst_rt(domainId)%channel_only) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_channel_only attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"dev_channelBucket_only",nlst_rt(domainId)%channelBucket_only) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev_channelBucket_only attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,'dev','dev_ prefix indicates development/internal meta data') + call nwmCheck(diagFlag,iret,'ERROR: Unable to create dev attribute') + + ! Create dimensions + iret = nf90_def_dim(ftn,"feature_id",numPtsOut,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id dimension') + iret = nf90_def_dim(ftn,"time",NF90_UNLIMITED,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time dimension') + iret = nf90_def_dim(ftn,"reference_time",1,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftn,"time",nf90_int,dimId(2),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftn,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftn,"reference_time",nf90_int,dimId(3),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create a crs variable. + ! NOTE - For now, we are hard-coding in for lat/lon points. However, this + ! may be more flexible in future iterations. + iret = nf90_def_var(ftn,'crs',nf90_char,varid=coordVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create crs variable.') + iret = nf90_put_att(ftn,coordVarId,'transform_name','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place transform_name attribute into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'grid_mapping_name','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping_name attribute into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'esri_pe_string','GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",& + &SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",& + &0.0174532925199433]];-400 -400 1000000000;& + &-100000 10000;-100000 10000;8.98315284119521E-09;0.001;0.001;IsHighPrecision') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place esri_pe_string into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'spatial_ref','GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",& + &SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",& + &0.0174532925199433]];-400 -400 1000000000;& + &-100000 10000;-100000 10000;8.98315284119521E-09;0.001;0.001;IsHighPrecision') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place spatial_ref into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'long_name','CRS definition') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'longitude_of_prime_meridian',0.0) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place longitude_of_prime_meridian into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'_CoordinateAxes','latitude longitude') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place _CoordinateAxes into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'semi_major_axis',6378137.0) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place semi_major_axis into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'semi_minor_axis',6356752.31424518) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place semi_minor_axis into crs variable.') + iret = nf90_put_att(ftn,coordVarId,'inverse_flattening',298.257223563) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place inverse_flattening into crs variable.') + + ! Create feature_id variable + iret = nf90_def_var(ftn,"feature_id",nf90_int,dimId(1),featureVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id variable.') + ! Specify these attributes based on channel routing methods specified by + ! user. + if(nlst_rt(domainId)%channel_option .eq. 3) then + iret = nf90_put_att(ftn,featureVarId,'long_name','User Specified Forecast Points') + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'comment','Forecast Points Specified in Fulldom file') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place comment attribute into feature_id variable') + else + iret = nf90_put_att(ftn,featureVarId,'long_name',trim(fileMeta%featureIdLName)) + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'comment',trim(fileMeta%featureIdComment)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place comment attribute into feature_id variable') + endif + iret = nf90_put_att(ftn,featureVarId,'cf_role',trim(fileMeta%cfRole)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place cf_role attribute into feature_id variable') + + ! Create channel lat/lon variables + iret = nf90_def_var(ftn,"latitude",nf90_float,dimId(1),latVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create latitude variable.') + iret = nf90_put_att(ftn,latVarId,'long_name',trim(fileMeta%latLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into latitude variable') + iret = nf90_put_att(ftn,latVarId,'standard_name',trim(fileMeta%latStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into latitude variable') + iret = nf90_put_att(ftn,latVarId,'units',trim(fileMeta%latUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into latitude variable') + iret = nf90_def_var(ftn,"longitude",nf90_float,dimId(1),lonVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create longitude variable.') + iret = nf90_put_att(ftn,lonVarId,'long_name',trim(fileMeta%lonLName)) + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into longitude variable') + iret = nf90_put_att(ftn,lonVarId,'standard_name',trim(fileMeta%lonStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into longitude variable') + iret = nf90_put_att(ftn,lonVarId,'units',trim(fileMeta%lonUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into longitude variable') + + ! Create channel order variable + iret = nf90_def_var(ftn,"order",nf90_int,dimId(1),orderVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create order variable.') + iret = nf90_put_att(ftn,orderVarId,'long_name',trim(fileMeta%orderLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into order variable') + iret = nf90_put_att(ftn,orderVarId,'standard_name',trim(fileMeta%orderStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into order variable') + + ! Create channel elevation variable + iret = nf90_def_var(ftn,"elevation",nf90_float,dimId(1),elevVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create elevation variable.') + iret = nf90_put_att(ftn,elevVarId,'long_name',trim(fileMeta%elevLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into elevation variable') + iret = nf90_put_att(ftn,elevVarId,'standard_name',trim(fileMeta%elevStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place stndard_name attribute into elevation variable') + + ! Define deflation levels for these meta-variables. For now, we are going + ! to + ! default to a compression level of 2. Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,featureVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for feature_id.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + iret = nf90_def_var_deflate(ftn,latVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for latitude.') + iret = nf90_def_var_deflate(ftn,lonVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for longitude.') + iret = nf90_def_var_deflate(ftn,orderVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for order.') + iret = nf90_def_var_deflate(ftn,elevVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for elevation.') + endif + ! Allocate memory for the output variables, then place the real output + ! variables into a single array. This array will be accessed throughout + ! the + ! output looping below for conversion to compressed integer values. + ! Loop through and create each output variable, create variable + ! attributes, + ! and insert data. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! First create variable + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,dimId(1),varId) + else + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,dimId(1),varId) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to create variable:'//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinComp(iTmp) + varRange(2) = fileMeta%validMaxComp(iTmp) + varRangeReal(1) = fileMeta%validMinReal(iTmp) + varRangeReal(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are + ! using a + ! compression level of 2. In addition, we are choosing to turn the + ! shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent + ! writing + ! output. Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftn,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'coordinates',trim(fileMeta%coordNames(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place coordinates attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'grid_mapping','crs') + call nwmCheck(diagFlag,iret,'ERROR: Unable to place grid_mapping attribute into variable '//trim(fileMeta%varNames(iTmp))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'scale_factor',fileMeta%scaleFactor(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place scale_factor attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'add_offset',fileMeta%addOffset(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place add_offset attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRange) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + else + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRangeReal) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + endif + endif + end do + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take CHRTOUT file out of definition mode') + + ! Loop through all possible output variables, and convert floating + ! points + ! to integers via prescribed scale_factor/add_offset, then write to the + ! NetCDF variable. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! We are outputing this variable. + ! Convert reals to integer. If this is time zero, check to see if we + ! need to convert all data to NDV + if(minSinceSim .eq. 0 .and. fileMeta%timeZeroFlag(iTmp) .eq. 0) then + varOutInt(:) = fileMeta%fillComp(iTmp) + varOutReal(iTmp,:) = fileMeta%fillReal(iTmp) + else + varOutInt(:) = NINT((varOutReal(iTmp,:)-fileMeta%addOffset(iTmp))/fileMeta%scaleFactor(iTmp)) + endif + ! Get NetCDF variable id. + iret = nf90_inq_varid(ftn,trim(fileMeta%varNames(iTmp)),varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find variable ID for var: '//trim(fileMeta%varNames(iTmp))) + + ! Put data into NetCDF file + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_var(ftn,varId,varOutInt) + else + iret = nf90_put_var(ftn,varId,varOutReal(iTmp,:)) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into output variable: '//trim(fileMeta%varNames(iTmp))) + endif + end do + + ! Place link ID values into the NetCDF file + iret = nf90_inq_varid(ftn,'feature_id',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate feature_id in NetCDF file.') + ! If we are running gridded routing, output the user-specified forecast + ! point numbers. Otherwise, output the reach ID values. + if(nlst_rt(domainId)%channel_option .eq. 3) then + iret = nf90_put_var(ftn,varId,g_STRMFRXSTPTSOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into feature_id output variable.') + else + iret = nf90_put_var(ftn,varId,g_linkidOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into feature_id output variable.') + endif + + iret = nf90_inq_varid(ftn,'latitude',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate latitude in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_chlatOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into latitude output variable.') + + iret = nf90_inq_varid(ftn,'longitude',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate longitude in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_chlonOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into longitude output variable.') + + iret = nf90_inq_varid(ftn,'order',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate order in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_orderOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into order output variable.') + + iret = nf90_inq_varid(ftn,'elevation',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate elevation in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_zelevOut) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into elevation output variable.') + + ! Place time values into time variables. + iret = nf90_inq_varid(ftn,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftn,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + ! Close the output file + iret = nf90_close(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close CHANOBS file.') + + deallocate(varOutReal) + deallocate(varOutInt) + else + allocate(g_STRMFRXSTPTSOut(1)) + allocate(g_chlonOut(1)) + allocate(g_chlatOut(1)) + allocate(g_hlinkOut(1)) + allocate(g_qlinkOut(1,2)) + allocate(g_linkidOut(1)) + allocate(g_zelevOut(1)) + allocate(g_orderOut(1)) + endif + + ! Deallocate memory + deallocate(g_STRMFRXSTPTS) + deallocate(g_STRMFRXSTPTSOut) + deallocate(g_chlonOut) + deallocate(g_chlatOut) + deallocate(g_hlinkOut) + deallocate(g_qlinkOut) + deallocate(g_linkidOut) + deallocate(g_zelevOut) + deallocate(g_orderOut) + deallocate(g_chlat) + deallocate(g_chlon) + deallocate(g_hlink) + deallocate(g_qlink) + deallocate(g_outInd) + deallocate(g_linkid) + deallocate(g_zelev) + deallocate(g_order) + + +end subroutine output_chanObs_NWM + +!============================================================================== +! Program Name: output_gw_NWM +! Author(s)/Contact(s): Logan R Karsten +! Abstract: Output routine for groundwater buckets. +! History Log: +! 9/22/17 -Created, LRK. +! Usage: +! Parameters: None. +! Input Files: None. +! Output Files: None. +! Condition codes: None. +! +! User controllable options: None. +subroutine output_gw_NWM(domainId,iGrid) + use module_rt_data, only: rt_domain + use module_namelist, only: nlst_rt + use Module_Date_utilities_rt, only: geth_newdate, geth_idts + use module_NWM_io_dict + use netcdf +#ifdef MPP_LAND + use MODULE_mpp_GWBUCKET, only: gw_write_io_real, gw_write_io_int + use module_mpp_land + use module_mpp_reachls, only: ReachLS_write_io +#endif + implicit none + + integer, intent(in) :: domainId + integer, intent(in) :: iGrid + + ! Derived types. + type(gwMeta) :: fileMeta + + ! Local variables + integer :: mppFlag, diagFlag + integer :: minSinceSim ! Number of minutes since beginning of simulation. + integer :: minSinceEpoch1 ! Number of minutes from EPOCH to the beginning of the model simulation. + integer :: minSinceEpoch ! Number of minutes from EPOCH to the current model valid time. + character(len=16) :: epochDate ! EPOCH represented as a string. + character(len=16) :: startDate ! Start of model simulation, represented as a string. + character(len=256) :: output_flnm ! CHRTOUT_DOMAIN filename + integer :: iret ! NetCDF return statuses + integer :: ftn ! NetCDF file handle + character(len=256) :: validTime ! Global attribute time string + character(len=256) :: initTime ! Global attribute time string + integer :: dimId(3) ! Dimension ID values created during NetCDF created. + integer :: varId ! Variable ID value created as NetCDF variables are created and populated. + integer :: timeId ! Dimension ID for the time dimension. + integer :: refTimeId ! Dimension ID for the reference time dimension. + integer :: featureVarId ! feature_id NetCDF variable ID + integer :: varRange(2) ! Local storage of valid min/max values + real :: varRangeReal(2) ! Local storage of valid min/max values + integer :: gSize ! Global size of lake out arrays + integer :: iTmp + integer :: indVarId,indTmp ! For the feature_id sorting process. + integer :: ierr, myId ! MPI return status, process ID + integer :: gnbasns + ! Allocatable arrays to hold output variables. + real, allocatable, dimension(:) :: g_qin_gwsubbas,g_qout_gwsubbas,g_z_gwsubbas + integer, allocatable, dimension(:) :: g_basnsInd + real, allocatable, dimension(:,:) :: varOutReal ! Array holding output variables in real format + integer, allocatable, dimension(:) :: varOutInt ! Array holding output variables after + ! scale_factor/add_offset + ! have been applied. + character (len=64) :: modelConfigType ! This is character verion (long name) for the io_config_outputs + + ! Establish macro variables to hlep guide this subroutine. +#ifdef MPP_LAND + mppFlag = 1 +#else + mppFlag = 0 +#endif + +#ifdef HYDRO_D + diagFlag = 1 +#else + diagFlag = 0 +#endif + + ! If we are running over MPI, determine which processor number we are on. + ! If not MPI, then default to 0, which is the I/O ID. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call MPI_COMM_RANK( MPI_COMM_WORLD, myId, ierr ) + call nwmCheck(diagFlag,ierr,'ERROR: Unable to determine MPI process ID.') +#endif + else + myId = 0 + endif + + ! Some sanity checking here. + if(nlst_rt(domainId)%output_gw .eq. 0) then + ! No output requested here. Return to the parent calling program. + return + endif + + ! Initialize NWM dictionary derived type containing all the necessary metadat + ! for the output file. + call initGwDict(fileMeta) + + if(nlst_rt(1)%io_config_outputs .eq. 0) then + ! All + fileMeta%outFlag(:) = [1,1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 1) then + ! Analysis and Assimilation + fileMeta%outFlag(:) = [1,1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 2) then + ! Short Range + fileMeta%outFlag(:) = [1,1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 3) then + ! Medium Range + fileMeta%outFlag(:) = [1,1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 4) then + ! Long Range + fileMeta%outFlag(:) = [1,1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 5) then + ! Retrospective + fileMeta%outFlag(:) = [1,1,1] + else if(nlst_rt(1)%io_config_outputs .eq. 6) then + ! Diagnostics + fileMeta%outFlag(:) = [1,1,1] + else + call nwmCheck(diagFlag,1,'ERROR: Invalid IOC flag provided by namelist file.') + endif + + ! call the GetModelConfigType function + modelConfigType = GetModelConfigType(nlst_rt(1)%io_config_outputs) + + gnbasns = rt_domain(domainId)%gnumbasns + gSize = gnbasns + + ! Collect and assemble local groundwater bucket arrays to a global array for + ! output. + if(mppFlag .eq. 1) then + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + if(myId .eq. 0) then + allocate(g_qin_gwsubbas(rt_domain(domainId)%gnumbasns)) + allocate(g_qout_gwsubbas(rt_domain(domainId)%gnumbasns)) + allocate(g_z_gwsubbas(rt_domain(domainId)%gnumbasns)) + allocate(g_basnsInd(rt_domain(domainId)%gnumbasns)) + else + allocate(g_qin_gwsubbas(1)) + allocate(g_qout_gwsubbas(1)) + allocate(g_z_gwsubbas(1)) + allocate(g_basnsInd(1)) + endif + + if(nlst_rt(domainId)%UDMP_OPT .eq. 1) then + ! This is ONLYL for NWM configuration with NHD channel routing. NCAR + ! reach-based routing has the GW physics initialized the same as with + ! gridded routing. + !ADCHANGE: Note units conversion from m3 to m3/s for UPDMP=1 only + call ReachLS_write_io(rt_domain(domainId)%qin_gwsubbas/nlst_rt(domainId)%DT,g_qin_gwsubbas) + call ReachLS_write_io(rt_domain(domainId)%qout_gwsubbas,g_qout_gwsubbas) + !ADCHANGE: Note units conversion from m to mm for UPDMP=1 only + call ReachLS_write_io(rt_domain(domainId)%z_gwsubbas*1000.,g_z_gwsubbas) + call ReachLS_write_io(rt_domain(domainId)%linkid,g_basnsInd) + else + call gw_write_io_real(rt_domain(domainId)%numbasns,rt_domain(domainId)%qin_gwsubbas, & + rt_domain(domainId)%basnsInd,g_qin_gwsubbas) + call gw_write_io_real(rt_domain(domainId)%numbasns,rt_domain(domainId)%qout_gwsubbas, & + rt_domain(domainId)%basnsInd,g_qout_gwsubbas) + call gw_write_io_real(rt_domain(domainId)%numbasns,rt_domain(domainId)%z_gwsubbas, & + rt_domain(domainId)%basnsInd,g_z_gwsubbas) + call gw_write_io_int(rt_domain(domainId)%numbasns,rt_domain(domainId)%basnsInd, & + rt_domain(domainId)%basnsInd,g_basnsInd) + endif + + else + allocate(g_qin_gwsubbas(rt_domain(domainId)%gnumbasns)) + allocate(g_qout_gwsubbas(rt_domain(domainId)%gnumbasns)) + allocate(g_z_gwsubbas(rt_domain(domainId)%gnumbasns)) + allocate(g_basnsInd(rt_domain(domainId)%gnumbasns)) + + !ADCHANGE: Note units conversion from m3 to m3/s for UPDMP=1 only + g_qin_gwsubbas = rt_domain(domainId)%qin_gwsubbas/nlst_rt(domainId)%DT + g_qout_gwsubbas = rt_domain(domainId)%qout_gwsubbas + g_z_gwsubbas = rt_domain(domainId)%z_gwsubbas + !ADCHANGE: Note units conversion from m to mm for UPDMP=1 only + if(nlst_rt(domainId)%UDMP_OPT .eq. 1) g_z_gwsubbas = g_z_gwsubbas * 1000. + g_basnsInd = rt_domain(domainId)%linkid + endif + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Calculate datetime information. + ! First compose strings of EPOCH and simulation start date. + epochDate = trim("1970-01-01 00:00") + startDate = trim(nlst_rt(domainId)%startdate(1:4)//"-"//& + nlst_rt(domainId)%startdate(6:7)//& + &"-"//nlst_rt(domainId)%startdate(9:10)//" "//& + nlst_rt(domainId)%startdate(12:13)//":"//& + nlst_rt(domainId)%startdate(15:16)) + ! Second, utilize NoahMP date utilities to calculate the number of minutes + ! from EPOCH to the beginning of the model simulation. + call geth_idts(startDate,epochDate,minSinceEpoch1) + ! Third, calculate the number of minutes since the beginning of the + ! simulation. + minSinceSim = int(nlst_rt(1)%out_dt*(rt_domain(1)%out_counts-1)) + ! Fourth, calculate the total number of minutes from EPOCH to the current + ! model time step. + minSinceEpoch = minSinceEpoch1 + minSinceSim + ! Fifth, compose global attribute time strings that will be used. + validTime = trim(nlst_rt(domainId)%olddate(1:4)//'-'//& + nlst_rt(domainId)%olddate(6:7)//'-'//& + nlst_rt(domainId)%olddate(9:10)//'_'//& + nlst_rt(domainId)%olddate(12:13)//':'//& + nlst_rt(domainId)%olddate(15:16)//':'//& + nlst_rt(domainId)%olddate(18:19)) + initTime = trim(nlst_rt(domainId)%startdate(1:4)//'-'//& + nlst_rt(domainId)%startdate(6:7)//'-'//& + nlst_rt(domainId)%startdate(9:10)//'_'//& + nlst_rt(domainId)%startdate(12:13)//':'//& + nlst_rt(domainId)%startdate(15:16)//':'//& + nlst_rt(domainId)%startdate(18:19)) + ! Replace default values in the dictionary. + fileMeta%initTime = trim(initTime) + fileMeta%validTime = trim(validTime) + + ! calculate the minimum and maximum time + fileMeta%timeValidMin = minSinceEpoch1 + nlst_rt(1)%out_dt + fileMeta%timeValidMax = minSinceEpoch1 + int(nlst_rt(1)%khour * 60/nlst_rt(1)%out_dt) * nlst_rt(1)%out_dt + + ! calculate total_valid_time + fileMeta%totalValidTime = int(nlst_rt(1)%khour * 60 / nlst_rt(1)%out_dt) ! # number of valid time (#of output files) + + ! Compose output file name. + write(output_flnm,'(A12,".GWOUT_DOMAIN",I1)')nlst_rt(domainId)%olddate(1:4)//& + nlst_rt(domainId)%olddate(6:7)//nlst_rt(domainId)%olddate(9:10)//& + nlst_rt(domainId)%olddate(12:13)//nlst_rt(domainId)%olddate(15:16),nlst_rt(domainId)%igrid + + ! Only run NetCDF library calls to output data if we are on the master + ! processor. + if(myId .eq. 0) then + ! Place all output arrays into one real array that will be looped over + ! during conversion to compressed integer format. + allocate(varOutReal(fileMeta%numVars,gSize)) + allocate(varOutInt(gSize)) + + varOutReal(1,:) = g_qin_gwsubbas + varOutReal(2,:) = g_qout_gwsubbas + varOutReal(3,:) = g_z_gwsubbas + + ! Mask out missing values + where ( varOutReal == fileMeta%modelNdv ) varOutReal = -9999.0 + + iret = nf90_create(trim(output_flnm),cmode=nf90_hdf5,ncid = ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create GWOUT NetCDF file.') + + ! Write global attributes. + iret = nf90_put_att(ftn,NF90_GLOBAL,"featureType",trim(fileMeta%fType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create featureType attribute') + !iret = nf90_put_att(ftn,NF90_GLOBAL,"proj4",trim(fileMeta%proj4)) + !call nwmCheck(diagFlag,iret,'ERROR: Unable to create proj4 attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_initialization_time",trim(fileMeta%initTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model init attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"station_dimension",trim(fileMeta%gwDim)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create st. dimension attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_valid_time",trim(fileMeta%validTime)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model valid attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_total_valid_times",fileMeta%totalValidTime) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model total valid times attribute') + !iret = nf90_put_att(ftn,NF90_GLOBAL,"esri_pe_string",trim(fileMeta%esri)) + !call nwmCheck(diagFlag,iret,'ERROR: Unable to create ESRI attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"Conventions",trim(fileMeta%conventions)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create conventions attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_version",trim(fileMeta%outVersion)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_version attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_output_type",trim(fileMeta%modelOutputType)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_output_type attribute') + iret = nf90_put_att(ftn,NF90_GLOBAL,"model_configuration",modelConfigType) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create model_configuration attribute') + + ! Create dimensions + iret = nf90_def_dim(ftn,"feature_id",gSize,dimId(1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id dimension') + iret = nf90_def_dim(ftn,"time",NF90_UNLIMITED,dimId(2)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time dimension') + iret = nf90_def_dim(ftn,"reference_time",1,dimId(3)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time dimension') + + ! Create and populate reference_time and time variables. + iret = nf90_def_var(ftn,"time",nf90_int,dimId(2),timeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create time variable') + iret = nf90_put_att(ftn,timeId,'long_name',trim(fileMeta%timeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'standard_name',trim(fileMeta%timeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into time variable') + iret = nf90_put_att(ftn,timeId,'units',trim(fileMeta%timeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_min',fileMeta%timeValidMin) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_min attribute into time variable') + iret = nf90_put_att(ftn,timeId,'valid_max',fileMeta%timeValidMax) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_max attribute into time variable') + iret = nf90_def_var(ftn,"reference_time",nf90_int,dimId(3),refTimeId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'long_name',trim(fileMeta%rTimeLName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'standard_name',trim(fileMeta%rTimeStName)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place standard_name attribute into reference_time variable') + iret = nf90_put_att(ftn,refTimeId,'units',trim(fileMeta%rTimeUnits)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into reference_time variable') + + ! Create feature_id variable + iret = nf90_def_var(ftn,"feature_id",nf90_int,dimId(1),featureVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to create feature_id variable.') + iret = nf90_put_att(ftn,featureVarId,'long_name',trim(fileMeta%featureIdLName)) + call nwmCheck(diagFlag,iret,'ERROR: Uanble to place long_name attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'comment',trim(fileMeta%featureIdComment)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place comment attribute into feature_id variable') + iret = nf90_put_att(ftn,featureVarId,'cf_role',trim(fileMeta%cfRole)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place cf_role attribute into feature_id variable') + + ! Define deflation levels for these meta-variables. For now, we are going + ! to + ! default to a compression level of 2. Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,timeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for time.') + iret = nf90_def_var_deflate(ftn,featureVarId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for feature_id.') + iret = nf90_def_var_deflate(ftn,refTimeId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression level for reference_time.') + endif + + ! Allocate memory for the output variables, then place the real output + ! variables into a single array. This array will be accessed throughout + ! the + ! output looping below for conversion to compressed integer values. + ! Loop through and create each output variable, create variable + ! attributes, + ! and insert data. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! First create variable + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_int,dimId(1),varId) + else + iret = nf90_def_var(ftn,trim(fileMeta%varNames(iTmp)),nf90_float,dimId(1),varId) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to create variable:'//trim(fileMeta%varNames(iTmp))) + + ! Extract valid range into a 1D array for placement. + varRange(1) = fileMeta%validMinComp(iTmp) + varRange(2) = fileMeta%validMaxComp(iTmp) + varRangeReal(1) = fileMeta%validMinReal(iTmp) + varRangeReal(2) = fileMeta%validMaxReal(iTmp) + + ! Establish a compression level for the variables. For now we are using a + ! compression level of 2. In addition, we are choosing to turn the shuffle + ! filter off for now. Kelley Eicher did some testing with this and + ! determined that the benefit wasn't worth the extra time spent writing output. + ! Only compress if io_form_outputs is set to 1. + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 3)) then + iret = nf90_def_var_deflate(ftn,varId,0,1,2) + call nwmCheck(diagFlag,iret,'ERROR: Unable to define compression for: '//trim(fileMeta%varNames(iTmp))) + endif + + ! Create variable attributes + iret = nf90_put_att(ftn,varId,'long_name',trim(fileMeta%longName(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place long_name attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'units',trim(fileMeta%units(iTmp))) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place units attribute into variable '//trim(fileMeta%varNames(iTmp))) + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingComp(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'scale_factor',fileMeta%scaleFactor(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place scale_factor attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'add_offset',fileMeta%addOffset(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place add_offset attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRange) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + else + iret = nf90_put_att(ftn,varId,'_FillValue',fileMeta%fillReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place Fill value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'missing_value',fileMeta%missingReal(iTmp)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place missing value attribute into variable '//trim(fileMeta%varNames(iTmp))) + iret = nf90_put_att(ftn,varId,'valid_range',varRangeReal) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place valid_range attribute into variable '//trim(fileMeta%varNames(iTmp))) + endif + endif + end do + + ! Remove NetCDF file from definition mode. + iret = nf90_enddef(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to take GWOUT file out of definition mode') + + ! Place groundwater bucket ID, lat, and lon values into appropriate + ! variables. + do iTmp=1,fileMeta%numVars + if(fileMeta%outFlag(iTmp) .eq. 1) then + ! We are outputing this variable. + ! Convert reals to integer. If we are on time 0, make sure we don't + ! need to fill in with NDV values. + if(minSinceSim .eq. 0 .and. fileMeta%timeZeroFlag(iTmp) .eq. 0) then + varOutInt(:) = fileMeta%fillComp(iTmp) + varOutReal(iTmp,:) = fileMeta%fillReal(iTmp) + else + varOutInt(:) = NINT((varOutReal(iTmp,:)-fileMeta%addOffset(iTmp))/fileMeta%scaleFactor(iTmp)) + endif + ! Get NetCDF variable id. + iret = nf90_inq_varid(ftn,trim(fileMeta%varNames(iTmp)),varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find variable ID for var: '//trim(fileMeta%varNames(iTmp))) + + ! Put data into NetCDF file + if((nlst_rt(1)%io_form_outputs .eq. 1) .or. (nlst_rt(1)%io_form_outputs .eq. 2)) then + iret = nf90_put_var(ftn,varId,varOutInt) + else + iret = nf90_put_var(ftn,varId,varOutReal(iTmp,:)) + endif + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into output variable: '//trim(fileMeta%varNames(iTmp))) + endif + end do + + ! Place link ID values into the NetCDF file + iret = nf90_inq_varid(ftn,'feature_id',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate feature_id in NetCDF file.') + iret = nf90_put_var(ftn,varId,g_basnsInd) + call nwmCheck(diagFlag,iret,'ERROR: Unable to place data into feature_id output variable.') + + ! Place time values into time variables. + iret = nf90_inq_varid(ftn,'time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into time variable') + iret = nf90_inq_varid(ftn,'reference_time',varId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to locate reference_time variable') + iret = nf90_put_var(ftn,varId,minSinceEpoch1) + call nwmCheck(diagFlag,iret,'ERROR: Failure to place data into reference_time variable') + + ! Close the output file + iret = nf90_close(ftn) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close GWOUT file.') + endif + + ! Sync all processes up. + if(mppFlag .eq. 1) then +#ifdef MPP_LAND + call mpp_land_sync() +#endif + endif + + ! Deallocate all memory + if(myId .eq. 0) then + deallocate(varOutReal) + deallocate(varOutInt) + endif + deallocate(g_qin_gwsubbas) + deallocate(g_qout_gwsubbas) + deallocate(g_z_gwsubbas) + deallocate(g_basnsInd) +end subroutine output_gw_NWM + +subroutine postDiagMsg(diagFlag,diagMsg) + implicit none + + ! Subroutine arguments. + integer, intent(in) :: diagFlag + character(len=*), intent(in) :: diagMsg + + ! Only write out message if the diagnostic WRF_HYDRO_D flag was + ! set to 1 + if (diagFlag .eq. 1) then + print*, trim(diagMsg) + end if +end subroutine postDiagMsg + +subroutine nwmCheck(diagFlag,iret,msg) + implicit none + + ! Subroutine arguments. + integer, intent(in) :: diagFlag,iret + character(len=*), intent(in) :: msg + + ! Check status. If status of command is not 0, then post the error message + ! if WRF_HYDRO_D was set to be 1. + if (iret .ne. 0) then + call hydro_stop(trim(msg)) + end if + +end subroutine nwmCheck + +subroutine checkRouteGages(diagFlag,nElements,indexArray) + use module_namelist, only : nlst_rt + use netcdf + use module_HYDRO_io, only : get_1d_netcdf_text + implicit none + + ! Subroutine arguments. + integer, intent(in) :: diagFlag + integer, intent(in) :: nElements + integer, intent(inout), dimension(nElements) :: indexArray + character(len=15), dimension(nElements) :: gages + + ! Local variables + integer :: iret, ftnRt, gageVarId + + ! This subroutine will check for a Routelink file, then check for a "gages" + ! variable. If any gages are found, the indexArray is updated and passed back + ! to the calling subroutine. + iret = nf90_open(trim(nlst_rt(1)%route_link_f),NF90_NOWRITE,ncid=ftnRt) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Did not find Routelink file for gage location in output routines.') + ! No Routelink file found. Simply return to the parent calling subroutine. + return + endif + + iret = nf90_inq_varid(ftnRt,'gages',gageVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Did not find gages in Routelink for forecast points output.') + ! No gages variable found. Simply return to the parent calling routine.' + return + endif + + call get_1d_netcdf_text(ftnRt, 'gages', gages, 'checkRouteGages',.true.) + + ! Loop over gages. If a non-empty string is found, then change the indexArray + ! value for that element from 0 to 1. + where(gages .ne. ' ') indexArray = 1 + where(gages .eq. '') indexArray = 0 + + iret = nf90_close(ftnRt) + + if(iret .ne. 0) then + call nwmCheck(diagFlag,iret,'ERROR: Unable to close Routelink file for gages extraction.') + endif + +end subroutine checkRouteGages + +end module module_NWM_io diff --git a/hydro/Routing/module_NWM_io_dict.F b/hydro/Routing/module_NWM_io_dict.F new file mode 100644 index 0000000000..d144ac1c41 --- /dev/null +++ b/hydro/Routing/module_NWM_io_dict.F @@ -0,0 +1,2475 @@ +! Module for handling all associated scale_factor, add_offset, and +! attributes for individual files across various possible +! National Water Model output files. In the future, this will move to a +! table that the user will be able to switch on/off variables for +! outputting. For now, attributes, etc will be stored here. + +! Logan Karsten +! National Center for Atmospheric Research +! Research Applications Laboratory +! karsten at ucar dot edu + +module module_NWM_io_dict +implicit none + +! Declare parameter values for module. +character (len=512), parameter :: codeVersion = "WRF-Hydro v5.0.0" +integer, parameter :: numChVars = 10 +integer, parameter :: numLdasVars = 95 +integer, parameter :: numRtDomainVars = 5 +integer, parameter :: numLakeVars = 2 +integer, parameter :: numChGrdVars = 1 +integer, parameter :: numLsmVars = 14 +integer, parameter :: numChObsVars = 1 +integer, parameter :: numGwVars = 3 +integer :: i + +! Declare public types that will hold metadata +public :: chrtMeta ! Public CHRTOUT metadata for NWM output. +public :: ldasMeta ! Public LDASOUT metadata for NWM output. +public :: rtDomainMeta ! Public RT_DOMAIN metadata for NWM output. +public :: lakeMeta ! Public lake metadata for NWM output +public :: chrtGrdMeta ! Public CHRTOUT_GRID metadata for NWM output. +public :: lsmMeta ! Public metadata for LSMOUT output. +public :: chObsMeta ! Public CHANOBS metadata for NWM output. +public :: gwMeta ! Public groundwater metadata. + +! Establish types for each output type +type chrtMeta + ! Variable names + character (len=64), dimension(numChVars) :: varNames + integer :: numVars = numChVars + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "channel_rt" + character (len=64) :: modelConfigType + ! Output variable attributes + real, dimension(numChVars) :: scaleFactor ! scale_factor values used for each + ! variable to converte from real to + ! integer. + real, dimension(numChVars) :: addOffset ! add_offset values for each variable. + character (len=64), dimension(numChVars) :: longName ! Long names for each variable. + character (len=64), dimension(numChVars) :: units ! Units for each variable. + character (len=64), dimension(numChVars) :: coordNames ! Coordinate names for each variable. + integer*8, dimension(numChVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numChVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numChVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numChVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numChVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numChVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numChVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numChVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numChVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numChVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This was done because time 0 + ! output does not all contain valid data. + real :: modelNdv ! NDV value represented within the model code + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + ! feature_id attributes + character (len=64) :: featureIdLName ! long_name - usually Reach ID + character (len=256) :: featureIdComment ! Comment attribute + character (len=64) :: cfRole ! cf_role attribute + ! latitude variable attributes + character (len=64) :: latLName ! long_name + character (len=64) :: latUnits ! units + character (len=64) :: latStName ! Standard Name + ! longitude variable attributes + character (len=64) :: lonLName ! long_name + character (len=64) :: lonUnits ! units + character (len=64) :: lonStName ! Standard Name + ! Elevation variable attributes + character (len=64) :: elevLName ! long_name + character (len=64) :: elevUnits ! units + character (len=64) :: elevStName ! Standard Name + ! Order variable attributes + character (len=64) :: orderLName ! long_name + character (len=64) :: orderStName ! Standard Name + ! Global attributes + character (len=128) :: fType ! featureType attribute + character (len=128) :: proj4 ! proj4 attribute + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: stDim ! station_dimension attribute + integer :: stOrder ! stream_order_output attribute + character (len=128) :: cdm ! cdm_datatype attribute + character (len=1024) :: esri ! esri_pe_string attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + + +end type chrtMeta + +type ldasMeta + ! Variable names + character (len=64), dimension(numLdasVars) :: varNames + integer :: numVars = numLdasVars + integer :: numSnowLayers = 3 + integer :: numSoilLayers = 4 + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "land" + character (len=64) :: modelConfigType + + ! Output variable attributes + real, dimension(numLdasVars) :: scaleFactor ! scale_factor values used for each + ! variable to converte from + ! real to + ! integer. + real, dimension(numLdasVars) :: addOffset ! add_offset values for each variable. + character (len=128), dimension(numLdasVars) :: longName ! Long names for each variable. + character (len=64), dimension(numLdasVars) :: units ! Units for each variable. + integer, dimension(numLdasVars) :: numLev ! Number of levels for each variable. + integer*8, dimension(numLdasVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numLdasVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numLdasVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numLdasVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numLdasVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numLdasVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numLdasVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numLdasVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numLdasVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numLdasVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This was done because time 0 + ! output does not all contain valid data. + real :: modelNdv ! NDV value represented within the model code + real :: modelNdv2 ! Alternative NDV value in NoahMP + real :: modelNdv3 ! Alternative NDV value in NoahMP + integer :: modelNdvInt ! NDV value represented in model as integer + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + ! Establish a proj4 string + character (len=1024) :: proj4 + ! Establish crs-related variables. + character(len=1024), dimension(20) :: crsCharAttNames,crsFloatAttNames + character(len=1024), dimension(20) :: crsCharAttVals + real, dimension(20,20) :: crsRealAttVals + real, dimension(20) :: crsRealAttLen + integer :: nCrsRealAtts, nCrsCharAtts + ! Establish x/y related variables. + character(len=1024), dimension(20) :: xCharAttNames,xFloatAttNames + character(len=1024), dimension(20) :: xCharAttVals + real, dimension(20,20) :: xRealAttVals + integer, dimension(20) :: xRealAttLen + integer :: nxRealAtts, nxCharAtts + character(len=1024), dimension(20) :: yCharAttNames,yFloatAttNames + character(len=1024), dimension(20) :: yCharAttVals + real, dimension(20,20) :: yRealAttVals + integer, dimension(20) :: yRealAttLen + integer :: nyRealAtts, nyCharAtts + + ! Global attributes + character (len=128) :: title ! File TITLE + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + +end type ldasMeta + +type rtDomainMeta + ! Variable names + character (len=64), dimension(numRtDomainVars) :: varNames + integer :: numVars = numRtDomainVars + integer :: numSoilLayers = 4 + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "terrain_rt" + character (len=64) :: modelConfigType + + ! Output variable attributes + real, dimension(numRtDomainVars) :: scaleFactor ! scale_factor values used for each + ! variable to converte from + ! real to + ! integer. + real, dimension(numRtDomainVars) :: addOffset ! add_offset values for each variable. + character (len=64), dimension(numRtDomainVars) :: longName ! Long names for each variable. + character (len=64), dimension(numRtDomainVars) :: units ! Units for each variable. + character (len=64), dimension(numRtDomainVars) :: coordNames ! Coordinate names for each variable. + integer*8, dimension(numRtDomainVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numRtDomainVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numRtDomainVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numRtDomainVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numRtDomainVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numRtDomainVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numRtDomainVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numRtDomainVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numRtDomainVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numRtDomainVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This was done because time 0 + ! output does not all contain valid data. + real :: modelNdv ! NDV value represented within the model code + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + real :: yRes, xRes ! Resoltution in meters + + ! Establish a proj4 string + character (len=1024) :: proj4 + ! Establish crs-related variables. + character(len=1024), dimension(20) :: crsCharAttNames,crsFloatAttNames + character(len=1024), dimension(20) :: crsCharAttVals + real, dimension(20,20) :: crsRealAttVals + real, dimension(20) :: crsRealAttLen + integer :: nCrsRealAtts, nCrsCharAtts + ! Establish x/y related variables. + character(len=1024), dimension(20) :: xCharAttNames,xFloatAttNames + character(len=1024), dimension(20) :: xCharAttVals + real, dimension(20,20) :: xRealAttVals + integer, dimension(20) :: xRealAttLen + integer :: nxRealAtts, nxCharAtts + character(len=1024), dimension(20) :: yCharAttNames,yFloatAttNames + character(len=1024), dimension(20) :: yCharAttVals + real, dimension(20,20) :: yRealAttVals + integer, dimension(20) :: yRealAttLen + integer :: nyRealAtts, nyCharAtts + + ! Global attributes + integer :: decimation ! Decimation factor + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + +end type rtDomainMeta + +type lakeMeta + ! Variable names + character (len=64), dimension(numLakeVars) :: varNames + integer :: numVars = numLakeVars + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "reservoir" + character (len=64) :: modelConfigType + + ! Output variable attributes + real, dimension(numLakeVars) :: scaleFactor ! scale_factor values used for each + ! variable to converte from + ! real to + ! integer. + real, dimension(numLakeVars) :: addOffset ! add_offset values for each variable. + character (len=64), dimension(numLakeVars) :: longName ! Long names for each variable. + character (len=64), dimension(numLakeVars) :: units ! Units for each variable. + character (len=64), dimension(numLakeVars) :: coordNames ! Coordinate names for each variable. + integer*8, dimension(numLakeVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numLakeVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numLakeVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numLakeVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numLakeVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numLakeVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numLakeVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numLakeVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numLakeVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numLakeVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This was done because time 0 + ! output does not all contain valid data. + real :: modelNdv ! NDV value represented within the model code + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + ! lake_id attributes + character (len=64) :: lakeIdLName ! long_name - usually Lake COMMON ID + character (len=256) :: LakeIdComment ! Comment attribute + ! feature_id attributes + character (len=64) :: featureIdLName ! long_name - usually lake COMMON ID + character (len=256) :: featureIdComment ! Comment attribute + character (len=64) :: cfRole ! cf_role attribute + ! latitude variable attributes + character (len=64) :: latLName ! long_name + character (len=64) :: latUnits ! units + character (len=64) :: latStName ! Standard Name + ! longitude variable attributes + character (len=64) :: lonLName ! long_name + character (len=64) :: lonUnits ! units + character (len=64) :: lonStName ! Standard Name + ! elevation variable attributes + character (len=64) :: elevLName ! long_name + character (len=64) :: elevUnits ! units + character (len=64) :: elevStName ! Standard Name + ! Global attributes + character (len=128) :: fType ! featureType attribute + character (len=128) :: proj4 ! proj4 attribute + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: lakeDim ! lake_dimension attribute + character (len=128) :: cdm ! cdm_datatype attribute + character (len=1024) :: esri ! esri_pe_string attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + +end type lakeMeta + +type chrtGrdMeta + ! Variable names + character (len=64), dimension(numChGrdVars) :: varNames + integer :: numVars = numChGrdVars + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "channel_rt" + character (len=64) :: modelConfigType + + ! Output variable attributes + real, dimension(numChGrdVars) :: scaleFactor ! scale_factor values for each + ! variable to convert from + ! real to integer. + real, dimension(numChGrdVars) :: addOffset ! add_offset values for each variable. + character (len=64), dimension(numChGrdVars) :: longName ! longname for each variable + character (len=64), dimension(numChGrdVars) :: units ! Units for each variable. + character (len=64), dimension(numChGrdVars) :: coordNames ! Coordinate names for each variable. + integer*8, dimension(numChGrdVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numChGrdVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numChGrdVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numChGrdVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numChGrdVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numChGrdVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numChGrdVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numChGrdVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numChGrdVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numChGrdVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This + ! was done because time 0 + ! output does not all + ! contain valid data. + real :: modelNdv ! NDV value represented within the model code + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + real :: yRes, xRes ! Resoltution in meters + + ! Establish a proj4 string + character (len=1024) :: proj4 + ! Establish crs-related variables. + character(len=1024), dimension(20) :: crsCharAttNames,crsFloatAttNames + character(len=1024), dimension(20) :: crsCharAttVals + real, dimension(20,20) :: crsRealAttVals + real, dimension(20) :: crsRealAttLen + integer :: nCrsRealAtts, nCrsCharAtts + ! Establish x/y related variables. + character(len=1024), dimension(20) :: xCharAttNames,xFloatAttNames + character(len=1024), dimension(20) :: xCharAttVals + real, dimension(20,20) :: xRealAttVals + integer, dimension(20) :: xRealAttLen + integer :: nxRealAtts, nxCharAtts + character(len=1024), dimension(20) :: yCharAttNames,yFloatAttNames + character(len=1024), dimension(20) :: yCharAttVals + real, dimension(20,20) :: yRealAttVals + integer, dimension(20) :: yRealAttLen + integer :: nyRealAtts, nyCharAtts + + ! Global attributes + integer :: decimation ! Decimation factor + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + +end type chrtGrdMeta + +type lsmMeta + ! Variable names + character (len=64), dimension(numLsmVars) :: varNames + integer :: numVars = numLsmVars + integer :: numSnowLayers = 3 + integer :: numSoilLayers = 4 + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "land" + character (len=64) :: modelConfigType + + ! Output variable attributes + real, dimension(numLsmVars) :: scaleFactor ! scale_factor values used for each + ! variable to converte from + ! real to + ! integer. + real, dimension(numLsmVars) :: addOffset ! add_offset values for each variable. + character (len=64), dimension(numLsmVars) :: longName ! Long names for each variable. + character (len=64), dimension(numLsmVars) :: units ! Units for each variable. + integer, dimension(numLsmVars) :: numLev ! Number of levels for each variable. + integer*8, dimension(numLsmVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numLsmVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numLsmVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numLsmVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numLsmVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numLsmVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numLsmVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numLsmVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numLsmVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numLsmVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This was + ! done because time 0 + ! output does not all contain + ! valid data. + real :: modelNdv ! NDV value represented within the model code + integer :: modelNdvInt ! NDV value represented in model as integer + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + + ! Establish a proj4 string + character (len=1024) :: proj4 + ! Establish crs-related variables. + character(len=1024), dimension(20) :: crsCharAttNames,crsFloatAttNames + character(len=1024), dimension(20) :: crsCharAttVals + real, dimension(20,20) :: crsRealAttVals + real, dimension(20) :: crsRealAttLen + integer :: nCrsRealAtts, nCrsCharAtts + ! Establish x/y related variables. + character(len=1024), dimension(20) :: xCharAttNames,xFloatAttNames + character(len=1024), dimension(20) :: xCharAttVals + real, dimension(20,20) :: xRealAttVals + integer, dimension(20) :: xRealAttLen + integer :: nxRealAtts, nxCharAtts + character(len=1024), dimension(20) :: yCharAttNames,yFloatAttNames + character(len=1024), dimension(20) :: yCharAttVals + real, dimension(20,20) :: yRealAttVals + integer, dimension(20) :: yRealAttLen + integer :: nyRealAtts, nyCharAtts + + ! Global attributes + character (len=128) :: title ! File TITLE + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + +end type lsmMeta + +type chObsMeta + ! Variable names + character (len=64), dimension(numChObsVars) :: varNames + integer :: numVars = numChObsVars + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "channel_rt" + character (len=64) :: modelConfigType + + ! Output variable attributes + real, dimension(numChObsVars) :: scaleFactor ! scale_factor values used for + ! each variable to convert + ! from real to integer + real, dimension(numChObsVars) :: addOffset ! add_offset values for each variable. + character (len=64), dimension(numChObsVars) :: longName ! Long names for each variable. + character (len=64), dimension(numChObsVars) :: units ! Units for each variable. + character (len=64), dimension(numChObsVars) :: coordNames ! Coordinate names for each variable. + integer*8, dimension(numChObsVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numChObsVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numChObsVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numChObsVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numChObsVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numChObsVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numChObsVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numChObsVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numChObsVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numChObsVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This was + ! done because time 0 + ! output does not all contain valid data. + real :: modelNdv ! NDV value represented within the model code + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + ! feature_id attributes + character (len=64) :: featureIdLName ! long_name - usually Reach ID + character (len=256) :: featureIdComment ! Comment attribute + character (len=64) :: cfRole ! cf_role attribute + ! latitude variable attributes + character (len=64) :: latLName ! long_name + character (len=64) :: latUnits ! units + character (len=64) :: latStName ! Standard Name + ! longitude variable attributes + character (len=64) :: lonLName ! long_name + character (len=64) :: lonUnits ! units + character (len=64) :: lonStName ! Standard Name + ! Elevation variable attributes + character (len=64) :: elevLName ! long_name + character (len=64) :: elevUnits ! units + character (len=64) :: elevStName ! Standard Name + ! Order variable attributes + character (len=64) :: orderLName ! long_name + character (len=64) :: orderStName ! Standard Name + ! Global attributes + character (len=128) :: fType ! featureType attribute + character (len=128) :: proj4 ! proj4 attribute + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: stDim ! station_dimension attribute + integer :: stOrder ! stream_order_output attribute + character (len=128) :: cdm ! cdm_datatype attribute + character (len=1024) :: esri ! esri_pe_string attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + +end type chObsMeta + +type gwMeta + ! Variable names + character (len=64), dimension(numGwVars) :: varNames + integer :: numVars = numGwVars + character (len=512) :: outVersion = codeVersion + character (len=512) :: modelOutputType = "groundwater_rt" + character (len=64) :: modelConfigType + + ! Output variable attributes + real, dimension(numGwVars) :: scaleFactor ! scale_factor values used for each + ! variable to converte from + ! real to + ! integer. + real, dimension(numGwVars) :: addOffset ! add_offset values for each variable. + character (len=64), dimension(numGwVars) :: longName ! Long names for each variable. + character (len=64), dimension(numGwVars) :: units ! Units for each variable. + !character (len=64), dimension(numGwVars) :: coordNames ! Coordinate names for each variable. + integer*8, dimension(numGwVars) :: validMinComp ! Valid min (after conversion to integer) + integer*8, dimension(numGwVars) :: validMaxComp ! Valid max (after conversion to integer) + real, dimension(numGwVars) :: validMinReal ! Valid minimum (before conversion to integer) + real, dimension(numGwVars) :: validMaxReal ! Valid maximum (before converstion to integer) + integer*8, dimension(numGwVars) :: missingComp ! Missing value attribute (after conversion to integer) + real, dimension(numGwVars) :: missingReal ! Missing value attribute (before conversion to integer) + real, dimension(numGwVars) :: fillReal ! Fill value (before conversion to integer) + integer*8, dimension(numGwVars) :: fillComp ! Fill value (after conversion to integer) + integer, dimension(numGwVars) :: outFlag ! 0/1 flag to turn outputting off/on + integer, dimension(numGwVars) :: timeZeroFlag ! 0/1 flag to either set variable to all NDV values or output + ! the actual data. This was + ! done because time 0 + ! output does not all contain + ! valid data. + real :: modelNdv ! NDV value represented within the model code + ! Time variable attribues + character (len=64) :: timeLName ! long_name - usually valid output time + character (len=64) :: timeUnits ! Usually seconds since 1/1/1970 + character (len=64) :: timeStName ! standard_name - usually time + integer :: timeValidMin ! the minimum time each configuration can have, time of the first output file + integer :: timeValidMax ! the maximum time each configuration can have, time of the last output file + ! Reference time attributes + character (len=64) :: rTimeLName ! long_name - usually model initialization time + character (len=64) :: rTimeStName ! standard_name - usually forecast_reference_time + character (len=64) :: rTimeUnits ! Usually seconds since 1/1/1970 + ! lake_id attributes + character (len=64) :: gwIdLName ! long_name - usually gw bucket ID + character (len=256) :: gwIdComment ! Comment attribute + ! feature_id attributes + character (len=64) :: featureIdLName ! long_name - usually gw bucket ID + character (len=256) :: featureIdComment ! Comment attribute + character (len=64) :: cfRole ! cf_role attribute + ! latitude variable attributes + !character (len=64) :: latLName ! long_name + !character (len=64) :: latUnits ! units + !character (len=64) :: latStName ! Standard Name + ! longitude variable attributes + !character (len=64) :: lonLName ! long_name + !character (len=64) :: lonUnits ! units + !character (len=64) :: lonStName ! Standard Name + ! elevation variable attributes + !character (len=64) :: elevLName ! long_name + !character (len=64) :: elevUnits ! units + !character (len=64) :: elevStName ! Standard Name + ! Global attributes + character (len=128) :: fType ! featureType attribute + !character (len=128) :: proj4 ! proj4 attribute + character (len=128) :: initTime ! model_initialization_time attribute + character (len=128) :: validTime ! model_output_valid_time attribute + character (len=128) :: gwDim ! gw_dimension attribute + !character (len=128) :: cdm ! cdm_datatype attribute + !character (len=1024) :: esri ! esri_pe_string attribute + character (len=128) :: conventions ! Conventions string + integer :: totalValidTime ! # number of valid time (#of output files) + +end type gwMeta + +contains + +subroutine initChrtDict(chrtOutDict,diagFlag,procId) + use module_namelist, only: nlst_rt + use netcdf + implicit none + + type(chrtMeta), intent(inout) :: chrtOutDict + integer, intent(inout) :: diagFlag + integer, intent(inout) :: procId + + ! Local variables + integer :: ftnMeta,iret + integer :: projVarId + + chrtOutDict%modelNdv = -9.E15 + ! CHRTOUT FILES + + ! Pull spatial metadata information about the modeling domain from the land + ! spatial metadata file. + if(procId .eq. 0) then + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnMeta) + if(iret .ne. 0) then + ! Spatial metadata file not found for land grid. + call postDiagMsg(diagFlag,'WARNING: Unable to open LAND spatial metadata file.') + chrtOutDict%proj4 = '' + chrtOutDict%esri = '' + else + ! First pull metadata on coordinate system. + iret = nf90_inq_varid(ftnMeta,'crs',projVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find crs in LAND spatial metadata file') + chrtOutDict%proj4 = '' + chrtOutDict%esri = '' + else + iret = nf90_get_att(ftnMeta,projVarId,'esri_pe_string',chrtOutDict%esri) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find esri_pe_string in LAND spatial metadata file.') + chrtOutDict%esri = '' + endif + iret = nf90_get_att(ftnMeta,NF90_GLOBAL,'proj4',chrtOutDict%proj4) + ! We are going to put a relaxed constraint on the proj4 string. + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: proj4 string not found. Defaulting to blank string.') + chrtOutDict%proj4 = '' + endif + endif + ! Close the file + iret = nf90_close(ftnMeta) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAND spatial metadata file.') + endif + endif + + ! NOTE !!!!! If you see PLC, this means OWP has no desire to output these, + ! which means meta-data standards have yet to be determined + ! for these variables. Fill in if it's desired to output.... + ! First establish global attributes for the channel output files + chrtOutDict%fType = 'timeSeries' + chrtOutDict%initTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + chrtOutDict%validTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + chrtOutDict%stDim = 'feature_id' + chrtOutDict%stOrder = 1 + chrtOutDict%cdm = 'Station' + chrtOutDict%conventions = 'CF-1.6' + + ! Next establish time attribues + chrtOutDict%timeLName = 'valid output time' + chrtOutDict%timeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + chrtOutDict%timeStName = 'time' + chrtOutDict%rTimeLName = 'model initialization time' + chrtOutDict%rTimeStName = 'forecast_reference_time' + chrtOutDict%rTimeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + + ! Esatablish lat/lon attributes + chrtOutDict%latLName = "Feature latitude" + chrtOutDict%latUnits = "degrees_north" + chrtOutDict%latStName = "latitude" + chrtOutDict%lonLName = "Feature longitude" + chrtOutDict%lonUnits = "degrees_east" + chrtOutDict%lonStName = "longitude" + + ! Establish streamflw order attributes + chrtOutDict%orderLName = "Streamflow Order" + chrtOutDict%orderStName = "order" + + ! Establish point elevation attributes + chrtOutDict%elevLName = "Feature Elevation" + chrtOutDict%elevUnits = "meters" + chrtOutDict%elevStName = "Elevation" + + ! Next establish feature_id attributes. Given this is merged community, we + chrtOutDict%featureIdLName = 'Reach ID' + chrtOutDict%featureIdComment = 'Gage Points Specified by User in Routelink file' + chrtOutDict%cfRole = 'timeseries_id' + + ! Now establish attributes for output variables. + !chrtOutDict%varNames(:) = (/"streamflow","nudge","q_lateral","velocity",& + ! "Head","qSfcLatRunoff","qBucket",& + ! "qBtmVertRunoff","AccSfcLatRunoff","accBucket"/) + chrtOutDict%varNames(:) = [character(len=64) :: "streamflow","nudge","q_lateral","velocity",& + "Head","qSfcLatRunoff","qBucket",& + "qBtmVertRunoff","AccSfcLatRunoff","accBucket"] + chrtOutDict%longName(:) = [character(len=64) :: "River Flow","Amount of stream flow alteration",& + "Runoff into channel reach","River Velocity",& + "River Stage","Runoff from terrain routing",& + "Flux from gw bucket",& + "Runoff from bottom of soil to bucket",& + "Accumulated runoff from terrain routing",& + "Accumulated runoff from gw bucket"] + chrtOutDict%units(:) = [character(len=64) :: "m3 s-1","m3 s-1","m3 s-1","ms-1",& + "meter","m3 s-1","m3 s-1",& + "m3","m3","m3"] + chrtOutDict%coordNames(:) = [character(len=64) :: "latitude longitude","latitude longitude",& + "latitude longitude","latitude longitude",& + "latitude longitude","latitude longitude",& + "latitude longitude","latitude longitude",& + "latitude longitude","latitude longitude"] + chrtOutDict%scaleFactor(:) = [0.01,0.01,0.1,0.01,0.01,0.001,0.001,0.001,& + 0.01,0.01] + chrtOutDict%addOffset(:) = [0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0] + ! Initialize all output flags to 0. Modify (if absolutely necessary) in the + ! output subroutine. + chrtOutDict%outFlag(:) = [0,0,0,0,0,0,0,0,0,0] + chrtOutDict%timeZeroFlag(:) = [1,1,1,1,1,1,1,1,1,1] + chrtOutDict%fillReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0] + chrtOutDict%missingReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0] + chrtOutDict%validMinReal(:) = [0.0,-500000.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0] + chrtOutDict%validMaxReal(:) = [500000.0,500000.0,500000.0,500000.0,500000.0,& + 500000.0,500000.0,500000.0,500000.0,500000.0] + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numChVars + chrtOutDict%fillComp(i) = int((chrtOutDict%fillReal(i)+chrtOutDict%addOffset(i))/chrtOutDict%scaleFactor(i)) + chrtOutDict%missingComp(i) = int((chrtOutDict%missingReal(i)+chrtOutDict%addOffset(i))/chrtOutDict%scaleFactor(i)) + chrtOutDict%validMinComp(i) = int((chrtOutDict%validMinReal(i)+chrtOutDict%addOffset(i))/chrtOutDict%scaleFactor(i)) + chrtOutDict%validMaxComp(i) = int((chrtOutDict%validMaxReal(i)+chrtOutDict%addOffset(i))/chrtOutDict%scaleFactor(i)) + end do +end subroutine initChrtDict + +subroutine initLdasDict(ldasOutDict,procId,diagFlag) + use module_namelist, only: nlst_rt + use netcdf + implicit none + + type(ldasMeta), intent(inout) :: ldasOutDict + integer, intent(inout) :: procId + integer, intent(inout) :: diagFlag + integer :: ftnMeta,projVarId,xVarId,yVarId + integer :: iret + integer :: crsRealAttCnt,xRealAttCnt,yRealAttCnt + integer :: crsCharAttCnt,xCharAttCnt,yCharAttCnt + integer :: i, nCrsAtts,nxAtts,nyAtts + integer :: charFlag + integer :: floatFlag + character(len=512) :: tmpAttName + integer :: xtypeTmp + integer :: tmpLen + + ! LDASOUT FILES + + ldasOutDict%modelNdv = 9.9692099683868690E36 + ldasOutDict%modelNdv2 = -1.E33 + ldasOutDict%modelNdv3 = -1.E36 + ldasOutDict%modelNdvInt = -2147483647 + + ! First establish global attributes. + ldasOutDict%title = "OUTPUT FROM " // codeVersion + ldasOutDict%initTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + ldasOutDict%validTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + ldasOutDict%conventions = "CF-1.6" + + ! Next establish time attributes + ldasOutDict%timeLName = "valid output time" + ldasOutDict%timeUnits = "minutes since 1970-01-01 00:00:00 UTC" + ldasOutDict%timeStName = "time" + ldasOutDict%rTimeLName = "model initialization time" + ldasOutDict%rTimeUnits = "minutes since 1970-01-01 00:00:00 UTC" + ldasOutDict%rTimeStName = "forecast_reference_time" + + crsRealAttCnt = 0 + crsCharAttCnt = 0 + xRealAttCnt = 0 + xCharAttCnt = 0 + yRealAttCnt = 0 + yCharAttCnt = 0 + + ! Pull spatial metadata information about the modeling domain from the land + ! spatial metadata file. + if(procId .eq. 0) then + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnMeta) + if(iret .ne. 0) then + ! Spatial metadata file not found for land grid. + call postDiagMsg(diagFlag,'WARNING: Unable to open LAND spatial metadata file. No crs variable or attributes will be created.') + ldasOutDict%nCrsCharAtts = 0 + ldasOutDict%nCrsRealAtts = 0 + ldasOutDict%nxCharAtts = 0 + ldasOutDict%nxRealAtts = 0 + ldasOutDict%nyCharAtts = 0 + ldasOutDict%nyRealAtts = 0 + ldasOutDict%proj4 = '' + else + iret = nf90_get_att(ftnMeta,NF90_GLOBAL,'proj4',ldasOutDict%proj4) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find proj4 global attribute. Defaulting to blank string.') + ldasOutDict%proj4 = '' + endif + charFlag = 0 + floatFlag = 0 + ! Find the crs variable and pull out the attributes, their names, and + ! their values. This will be translated to output files. + iret = nf90_inq_varid(ftnMeta,'crs',projVarId) + ! For now we are going to allow the code to move forward without + ! finding this variable. In the future, we will probably restrict the + ! code to ensure things are more seamless. + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the crs variable. No crs variable or attributes will be created.') + ldasOutDict%nCrsCharAtts = 0 + ldasOutDict%nCrsRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,projVarId,nAtts=nCrsAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find crs number of attributes') + do i =1,nCrsAtts + iret = nf90_inq_attname(ftnMeta,projVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from crs variable.') + iret = nf90_inquire_attribute(ftnMeta,projVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from crs variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + ldasOutDict%crsCharAttNames(crsCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),ldasOutDict%crsCharAttVals(crsCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsCharAttCnt = crsCharAttCnt + 1 + else + ldasOutDict%crsFloatAttNames(crsRealAttCnt+1) = trim(tmpAttName) + ldasOutDict%crsRealAttLen(crsRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),ldasOutDict%crsRealAttVals(crsRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsRealAttCnt = crsRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + ldasOutDict%nCrsRealAtts = crsRealAttCnt + ldasOutDict%nCrsCharAtts = crsCharAttCnt + + endif + + ! Next pull the attributes from the x/y dimensions + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'x',xVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the x variable. No x variable or attributes will be created.') + ldasOutDict%nxCharAtts = 0 + ldasOutDict%nxRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,xVarId,nAtts=nxAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x number of attributes') + do i =1,nxAtts + iret = nf90_inq_attname(ftnMeta,xVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from x variable.') + iret = nf90_inquire_attribute(ftnMeta,xVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from x variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + ldasOutDict%xCharAttNames(xCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),ldasOutDict%xCharAttVals(xCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xCharAttCnt = xCharAttCnt + 1 + else + ldasOutDict%xFloatAttNames(xRealAttCnt+1) = trim(tmpAttName) + ldasOutDict%xRealAttLen(xRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),ldasOutDict%xRealAttVals(xRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xRealAttCnt = xRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + ldasOutDict%nxRealAtts = xRealAttCnt + ldasOutDict%nxCharAtts = xCharAttCnt + + endif + + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'y',yVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the y variable. No y variable or attributes will be created.') + ldasOutDict%nyCharAtts = 0 + ldasOutDict%nyRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,yVarId,nAtts=nyAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y number of attributes') + do i =1,nyAtts + iret = nf90_inq_attname(ftnMeta,yVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from y variable.') + iret = nf90_inquire_attribute(ftnMeta,yVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from y variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + ldasOutDict%yCharAttNames(yCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),ldasOutDict%yCharAttVals(yCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yCharAttCnt = yCharAttCnt + 1 + else + ldasOutDict%yFloatAttNames(yRealAttCnt+1) = trim(tmpAttName) + ldasOutDict%yRealAttLen(yRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),ldasOutDict%yRealAttVals(yRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yRealAttCnt = yRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + ldasOutDict%nyRealAtts = yRealAttCnt + ldasOutDict%nyCharAtts = yCharAttCnt + + endif + ! Close the file + iret = nf90_close(ftnMeta) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAND spatial metadata file.') + endif + endif + + ! Now establish metadata attributes for variables. ESRI string is defined + ! above and applies to all gridded variables for LDASOUT. + ldasOutDict%varNames(:) = [character(len=64) :: "IVGTYP","ISLTYP","FVEG","LAI","SAI","SWFORC",& + "COSZ","LWFORC","RAINRATE","EMISS","FSA","FIRA",& + "GRDFLX","HFX","LH","ECAN","EDIR","ALBEDO","ETRAN",& + "UGDRNOFF","SFCRNOFF","CANLIQ","CANICE","ZWT","WA",& + "WT","ACCPRCP","ACCECAN","ACCEDIR","ACCETRAN","SAV",& + "TR","EVC","IRC","SHC","IRG","SHG","EVG","GHV","SAG",& + "IRB","SHB","EVB","GHB","TRAD","TG","TV","TAH","TGV",& + "TGB","T2MV","T2MB","Q2MV","Q2MB","EAH","FWET",& + "ZSNSO_SN","SNICE","SNLIQ","SOIL_T","SOIL_W","SNOW_T",& + "SOIL_M","SNOWH","SNEQV","QSNOW","ISNOW","FSNO",& + "ACSNOW","ACSNOM","CM","CH","CHV","CHB","CHLEAF",& + "CHUC","CHV2","CHB2","LFMASS","RTMASS","STMASS",& + "WOOD","STBLCP","FASTCP","NEE","GPP","NPP","PSN",& + "APAR","ACCET","CANWAT","SOILICE","SOILSAT_TOP",& + "SOILSAT","SNOWT_AVG"] + ldasOutDict%longName(:) = [character(len=128) :: "Dominant vegetation category",& + "Dominant soil category",& + "Green Vegetation Fraction",& + "Leaf area index",& + "Stem area index",& + "Shortwave forcing",& + "Cosine of zenith angle",& + "Longwave forcing",& + "Precipitation rate",& + "Grid emissivity",& + "Total absorbed SW radiation",& + "Total net LW radiation to atmosphere",& + "Heat flux into the soil",& + "Total sensible heat to the atmosphere",& + "Total latent heat to the atmosphere",& + "Canopy water evaporation rate",& + "Direct from soil evaporation rate",& + "Surface albedo",& + "Transpiration rate",& + "Accumulated underground runoff",& + "Accumulated surface runoff",& + "Canopy liquid water content",& + "Canopy ice water content",& + "Depth to water table",& + "Water in aquifer",& + "Water in aquifer and saturated soil",& + "Accumulated precip",& + "Accumulated canopy evap",& + "Accumulated direct soil evap",& + "Accumulated transpiration",& + "Solar radiative heat flux absorbed by vegetation",& + "Transpiration heat",& + "Canopy evap heat",& + "Canopy net LW rad",& + "Canopy sensible heat",& + "Ground net LW rad",& + "Ground sensible heat",& + "Ground evap heat",& + "Ground heat flux + to soil vegetated",& + "Solar radiative heat flux absorbed by ground",& + "Net LW rad to atm bare",& + "Sensible heat atm bare",& + "Evaporation heat to atm bare",& + "Ground heat flux + to soil bare",& + "Surface radiative temperature",& + "Ground temperature",& + "Vegetation temperature",& + "Canopy air temperature",& + "Ground surface Temp vegetated",& + "Ground surface Temp bare",& + "2m Air Temp vegetated",& + "2m Air Temp bare",& + "2m mixing ratio vegetated",& + "2m mixing ratio bare",& + "Canopy air vapor pressure",& + "Wetted or snowed fraction of canopy",& + "Snow layer depths from snow surface",& + "Snow layer ice",& + "Snow layer liquid water",& + "soil temperature",& + "liquid volumetric soil moisture",& + "snow temperature",& + "volumetric soil moisture, the dimensionless ratio of water volume (m3) to soil volume (m3)",& + "Snow depth",& + "Snow water equivalent",& + "Snowfall rate",& + "Number of snow layers",& + "Snow-cover fraction on the ground",& + "accumulated snow fall",& + "accumulated melting water out of snow bottom",& + "Momentum drag coefficient",& + "Sensible heat exchange coefficient",& + "Exchange coefficient vegetated",& + "Exchange coefficient bare",& + "Exchange coefficient leaf",& + "Exchange coefficient bare",& + "Exchange coefficient 2-meter vegetated",& + "Exchange coefficient 2-meter bare",& + "Leaf mass",& + "Mass of fine roots",& + "Stem mass",& + "Mass of wood and woody roots",& + "Stable carbon in deep soil",& + "Short-lived carbon in shallow soil",& + "Net ecosystem exchange",& + "Net instantaneous assimilation",& + "Net primary productivity",& + "Total photosynthesis",& + "Photosynthesis active energy by canopy",& + "Accumulated total ET",& + "Total canopy water (liquid + ice)",& + "fraction of soil moisture that is ice",& + "fraction of soil saturation, top 2 layers",& + "fraction of soil saturation, column integrated",& + "average snow temperature (by layer mass)"] + ldasOutDict%units(:) = [character(len=64) :: "category","category","-","-","-",& + "W m-2","-","W m-2","kg m-2s-1",& + "-","W m-2","W m-2","W m-2","W m-2","W m-2","kg m-2s-1","kg m-2s-1","-","kg m-2s-1",& + "mm","mm","mm","mm","m","kg m-2","kg m-2",& + "mm","mm","mm","mm",& + "W m-2","W m-2","W m-2","W m-2","W m-2",& + "W m-2","W m-2","W m-2","W m-2",& + "W m-2","W m-2","W m-2","W m-2","W m-2",& + "K","K","K","K","K","K","K","K",& + "kg/kg","kg/kg","Pa","fraction",& + "m","mm","mm","K","m3 m-3","K","m3 m-3",& + "m","kg m-2","mm s-1","count","1","mm","mm",& + "-","-","m s-1","m s-1","m s-1","m s-1","m s-1","m s-1",& + "g m-2","g m-2","g m-2","g m-2","g m-2","g m-2","g m-2s-1 CO2",& + "g m-2s-1 C","g m-2s-1 C","umol CO2 m-2 s-1","W m-2",& + "mm","mm","1","1","1","K"] + ldasOutDict%scaleFactor(:) = [1.0,1.0,0.01,0.1,0.1,0.1,0.01,0.1,0.000001,0.01,& + 0.1,0.1,0.1,0.1,0.1,0.000001,0.000001,0.01,& + 0.000001,0.01,0.001,0.01,0.01,0.00001,0.01,& + 0.01,0.01,0.01,0.01,0.01,0.1,0.1,0.1,0.1,& + 0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,& + 0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.0001,0.0001,& + 0.1,0.01,0.00001,0.01,0.01,0.1,0.01,0.1,0.01,& + 0.0001,0.1,0.000001,1.0,0.001,0.01,0.01,0.00001,& + 0.00001,0.00001,0.00001,0.00001,0.00001,0.00001,& + 0.00001,0.01,0.01,0.01,0.01,0.01,0.01,0.01,0.01,& + 0.01,0.01,0.01,0.01,0.01,0.01,0.001,0.001,0.1] + ldasOutDict%addOffset(:) = [0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0] + ! Note that output flags will be set in the the output routine, and will vary + ! by the IOC flag specified in hydro.namelist. + ldasOutDict%outFlag(:) = [0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,& + 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] + ldasOutDict%timeZeroFlag(:) = [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] + ldasOutDict%numLev(:) = [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,3,3,4,& + 4,3,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,& + 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] + ldasOutDict%missingReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0] + ldasOutDict%fillReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0,-9999.0] + ldasOutDict%validMinReal(:) = [0.0,0.0,0.0,0.0,0.0,-1000.0,-1.0,-1500.0,0.0,0.0,-1500.0,-1500.0,-1500.0,-1500.0,-1500.0,-100.0,-100.0,0.0,& + -100.0,-100.0,0.0,-5.0,-5.0,0.0,0.0,0.0,0.0,-100.0,-100.0,-100.0,-1500.0,-1500.0,-1500.0,-1500.0,-1500.0,& + -1500.0,-1500.0,-1500.0,-1500.0,-1500.0,-1500.0,-1500.0,-1500.0,-1500.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,-1000.0,0.0,-100.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,-5.0,-5.0,-5.0,-5.0,-5.0,-5.0,-5.0,-5.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,-1000.0,-5.0,0.0,0.0,0.0,0.0] + ldasOutDict%validMaxReal(:) = [100.0,100.0,1.0,20.0,20.0,3000.0,1.0,1500.0,100.0,1.0,1500.0,1500.0,1500.0,1500.0,1500.0,100.0,100.0,1.0,100.0,& + 100000.0,100000.0,30000.0,30000.0,10.0,10000.0,10000.0,1.0E+6,1.0E+6,1.0E+6,& + 1.0E+6,1500.0,1500.0,1500.0,1500.0,1500.0,1500.0,1500.0,1500.0,1500.0,1500.0,1500.0,1500.0,& + 1500.0,1500.0,400.0,400.0,400.0,400.0,400.0,400.0,400.0,400.0,1.0,1.0,100000.0,1.0,100.0,100000.0,100000.0,& + 400.0,1.0,400.0,1.0,100.0,100000.0,100.0,10.0,1.0,100000.0,100000.0,5.0,5.0,5.0,5.0,5.0,5.0,5.0,5.0,1000.0,1000.0,& + 1000.0,1000.0,5000.0,5000.0,1000.0,1000.0,1000.0,1000.0,1000.0,1.0E+6,30000.0,1.0,1.0,1.0,400.0] + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numLdasVars + ldasOutDict%fillComp(i) = NINT((ldasOutDict%fillReal(i)+ldasOutDict%addOffset(i))/ldasOutDict%scaleFactor(i)) + ldasOutDict%missingComp(i) = NINT((ldasOutDict%missingReal(i)+ldasOutDict%addOffset(i))/ldasOutDict%scaleFactor(i)) + ldasOutDict%validMinComp(i) = NINT((ldasOutDict%validMinReal(i)+ldasOutDict%addOffset(i))/ldasOutDict%scaleFactor(i)) + ldasOutDict%validMaxComp(i) = NINT((ldasOutDict%validMaxReal(i)+ldasOutDict%addOffset(i))/ldasOutDict%scaleFactor(i)) + end do + +end subroutine initLdasDict + +subroutine initRtDomainDict(rtDomainDict,procId,diagFlag) + use module_namelist, only: nlst_rt + use netcdf + implicit none + + type(rtDomainMeta), intent(inout) :: rtDomainDict + integer, intent(inout) :: procId,diagFlag + integer :: ftnMeta,projVarId,xVarId,yVarId,ftnGeo + integer :: xDimId,numColLand,numColHydro + real :: resLand,resHydro,aggFactor + integer :: iret + integer :: crsRealAttCnt,xRealAttCnt,yRealAttCnt + integer :: crsCharAttCnt,xCharAttCnt,yCharAttCnt + integer :: i, nCrsAtts,nxAtts,nyAtts + integer :: charFlag + integer :: floatFlag + character(len=512) :: tmpAttName + integer :: xtypeTmp + integer :: tmpLen + ! RT_DOMAIN files + + rtDomainDict%modelNdv = -9.E15 + + ! First establish global attributes. + rtDomainDict%initTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + rtDomainDict%validTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + rtDomainDict%decimation = 1 + rtDomainDict%conventions = "CF-1.6" + + ! Next establish time attributes + rtDomainDict%timeLName = "valid output time" + rtDomainDict%timeUnits = "minutes since 1970-01-01 00:00:00 UTC" + rtDomainDict%timeStName = "time" + rtDomainDict%rTimeLName = "model initialization time" + rtDomainDict%rTimeUnits = "minutes since 1970-01-01 00:00:00 UTC" + rtDomainDict%rTimeStName = "forecast_reference_time" + + crsRealAttCnt = 0 + crsCharAttCnt = 0 + xRealAttCnt = 0 + xCharAttCnt = 0 + yRealAttCnt = 0 + yCharAttCnt = 0 + + ! Pull spatial metadata information about the modeling domain from the + ! Fulldom file. + if(procId .eq. 0) then + iret = nf90_open(trim(nlst_rt(1)%geo_finegrid_flnm),NF90_NOWRITE,ncid=ftnMeta) + if(iret .ne. 0) then + ! Spatial metadata file not found for hydro grid. + call postDiagMsg(diagFlag,'WARNING: Unable to open Fulldom metadata file. No crs variable or attributes will be created.') + rtDomainDict%nCrsCharAtts = 0 + rtDomainDict%nCrsRealAtts = 0 + rtDomainDict%nxCharAtts = 0 + rtDomainDict%nxRealAtts = 0 + rtDomainDict%nyCharAtts = 0 + rtDomainDict%nyRealAtts = 0 + rtDomainDict%proj4 = '' + else + iret = nf90_get_att(ftnMeta,NF90_GLOBAL,'proj4',rtDomainDict%proj4) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find proj4 global attribute. Defaulting to blank string.') + rtDomainDict%proj4 = '' + endif + charFlag = 0 + floatFlag = 0 + ! Find the crs variable and pull out the attributes, their names, and + ! their values. This will be translated to output files. + iret = nf90_inq_varid(ftnMeta,'crs',projVarId) + ! For now we are going to allow the code to move forward without + ! finding this variable. In the future, we will probably restrict the + ! code to ensure things are more seamless. + + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the crs variable. No crs variable or attributes will be created.') + rtDomainDict%nCrsCharAtts = 0 + rtDomainDict%nCrsRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,projVarId,nAtts=nCrsAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find crs number of attributes') + do i =1,nCrsAtts + iret = nf90_inq_attname(ftnMeta,projVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from crs variable.') + iret = nf90_inquire_attribute(ftnMeta,projVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from crs variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + rtDomainDict%crsCharAttNames(crsCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),rtDomainDict%crsCharAttVals(crsCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsCharAttCnt = crsCharAttCnt + 1 + else + rtDomainDict%crsFloatAttNames(crsRealAttCnt+1) = trim(tmpAttName) + rtDomainDict%crsRealAttLen(crsRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),rtDomainDict%crsRealAttVals(crsRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsRealAttCnt = crsRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + rtDomainDict%nCrsRealAtts = crsRealAttCnt + rtDomainDict%nCrsCharAtts = crsCharAttCnt + + endif + + ! Next pull the attributes from the x/y dimensions + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'x',xVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the x variable. No x variable or attributes will be created.') + rtDomainDict%nxCharAtts = 0 + rtDomainDict%nxRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,xVarId,nAtts=nxAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x number of attributes') + do i =1,nxAtts + iret = nf90_inq_attname(ftnMeta,xVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from x variable.') + iret = nf90_inquire_attribute(ftnMeta,xVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from x variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + rtDomainDict%xCharAttNames(xCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),rtDomainDict%xCharAttVals(xCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xCharAttCnt = xCharAttCnt + 1 + else + rtDomainDict%xFloatAttNames(xRealAttCnt+1) = trim(tmpAttName) + rtDomainDict%xRealAttLen(xRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),rtDomainDict%xRealAttVals(xRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xRealAttCnt = xRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + rtDomainDict%nxRealAtts = xRealAttCnt + rtDomainDict%nxCharAtts = xCharAttCnt + + endif + + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'y',yVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the y variable. No y variable or attributes will be created.') + rtDomainDict%nyCharAtts = 0 + rtDomainDict%nyRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,yVarId,nAtts=nyAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y number of attributes') + do i =1,nyAtts + iret = nf90_inq_attname(ftnMeta,yVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from y variable.') + iret = nf90_inquire_attribute(ftnMeta,yVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from y variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + rtDomainDict%yCharAttNames(yCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),rtDomainDict%yCharAttVals(yCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yCharAttCnt = yCharAttCnt + 1 + else + rtDomainDict%yFloatAttNames(yRealAttCnt+1) = trim(tmpAttName) + rtDomainDict%yRealAttLen(yRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),rtDomainDict%yRealAttVals(yRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yRealAttCnt = yRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + rtDomainDict%nyRealAtts = yRealAttCnt + rtDomainDict%nyCharAtts = yCharAttCnt + endif + ! Close the file + iret = nf90_close(ftnMeta) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close Fulldom file.') + endif + + ! Next get the number of columns on the land grid. This will be used to + ! calculate the resolution of the routing grid in meters and aggfactor. + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnGeo) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to open LAND Spatial Metadata file. Defaulting to missing values.') + numColLand = -9999 + resLand = -9999 + else + iret = nf90_inq_dimid(ftnGeo,'x',xDimId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x dimension in LAND spatial Metadata file') + iret = nf90_inquire_dimension(ftnGeo,xDimId,len=numColLand) + call nwmCheck(diagFlag,iret,'ERROR: Unable to retrieve number of columns in the LAND spatial metadata file') + iret = nf90_inq_varid(ftnMeta,'x',xVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x variable in LAND spatial metadata file') + iret = nf90_get_att(ftnMeta,xVarId,'resolution',resLand) + call nwmCheck(diagFlag,iret,'ERROR: Unable to get x resolution in LAND spatial metadata file') + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close the LAND spatial metadata file') + endif + + ! Next get the number of columns on the high-resolution routing grid. + ! This will be used to calculate the resolution of the routing grid in + ! meters. + iret = nf90_open(trim(nlst_rt(1)%geo_finegrid_flnm),NF90_NOWRITE,ncid=ftnGeo) + if(iret .ne. 0) then + call nwmCheck(diagFlag,iret,'ERROR: Unable to open Fulldom file') + else + iret = nf90_inq_dimid(ftnGeo,'x',xDimId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x dimension in Fulldom file') + iret = nf90_inquire_dimension(ftnGeo,xDimId,len=numColHydro) + call nwmCheck(diagFlag,iret,'ERROR: Unable to retrieve number of columns in the Fulldom file') + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close the Fulldom file') + endif + + ! Calculate the aggregation factor and resolution of the hydro routing + ! grid. + if(numColLand .ne. -9999) then + aggFactor = float(numColHydro/numColLand) + resHydro = resLand/aggFactor + else + resHydro = -9999 + endif + + rtDomainDict%xRes = resHydro + rtDomainDict%yRes = resHydro + + endif + + rtDomainDict%varNames(:) = [character(len=64) :: "zwattablrt","sfcheadsubrt","QSTRMVOLRT",& + "QBDRYRT","SOIL_M"] + rtDomainDict%longName(:) = [character(len=64) :: "water table depth","surface head",& + "channel inflow",& + "accumulated value of the boundary flux, + into domain - out of domain",& + "volumetric soil moisture"] + rtDomainDict%units(:) = [character(len=64) :: "m","mm","mm","mm","m3 m-3"] + rtDomainDict%scaleFactor(:) = [0.1,1.0,1.0,1.0,0.01] + rtDomainDict%addOffset(:) = [0.0,0.0,0.0,0.0,0.0] + rtDomainDict%outFlag(:) = [0,0,0,0,0] + rtDomainDict%timeZeroFlag(:) = [1,1,1,1,1] + rtDomainDict%missingReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0] + rtDomainDict%fillReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0] + rtDomainDict%validMinReal(:) = [0.0,0.0,0.0,-1000000.0,0.0] + rtDomainDict%validMaxReal(:) = [100.0,1000000.0,1000000.0,1000000.0,100.0] + + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numRtDomainVars + rtDomainDict%fillComp(i) = NINT((rtDomainDict%fillReal(i)+rtDomainDict%addOffset(i))/rtDomainDict%scaleFactor(i)) + rtDomainDict%missingComp(i) = NINT((rtDomainDict%missingReal(i)+rtDomainDict%addOffset(i))/rtDomainDict%scaleFactor(i)) + rtDomainDict%validMinComp(i) = NINT((rtDomainDict%validMinReal(i)+rtDomainDict%addOffset(i))/rtDomainDict%scaleFactor(i)) + rtDomainDict%validMaxComp(i) = NINT((rtDomainDict%validMaxReal(i)+rtDomainDict%addOffset(i))/rtDomainDict%scaleFactor(i)) + end do + +end subroutine initRtDomainDict + +subroutine initLakeDict(lakeOutDict,diagFlag,procId) + use module_namelist, only: nlst_rt + use netcdf + implicit none + + type(lakeMeta), intent(inout) :: lakeOutDict + integer, intent(inout) :: diagFlag + integer, intent(inout) :: procId + + ! Local variables + integer :: ftnMeta,iret + integer :: projVarId + + lakeOutDict%modelNdv = -9.E15 + ! LAKE FILES + ! NOTE !!!!! If you see PLC, this means OWP has no desire to output these, + ! which means meta-data standards have yet to be determined + ! for these variables. Fill in if it's desired to output.... + ! First establish global attributes for the channel output files + lakeOutDict%fType = 'timeSeries' + lakeOutDict%initTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + lakeOutDict%validTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + lakeOutDict%lakeDim = 'lake_id' + lakeOutDict%cdm = 'PLACEHOLDER' + lakeOutDict%conventions = 'CF-1.6' + + ! Pull spatial metadata information about the modeling domain from the land + ! spatial metadata file. + if(procId .eq. 0) then + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnMeta) + if(iret .ne. 0) then + ! Spatial metadata file not found for land grid. + call postDiagMsg(diagFlag,'WARNING: Unable to open LAND spatial metadata file.') + lakeOutDict%proj4 = '' + lakeOutDict%esri = '' + else + ! First pull metadata on coordinate system. + iret = nf90_inq_varid(ftnMeta,'crs',projVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find crs in LAND spatial metadata file') + lakeOutDict%proj4 = '' + lakeOutDict%esri = '' + else + iret = nf90_get_att(ftnMeta,projVarId,'esri_pe_string',lakeOutDict%esri) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find esri_pe_string in LAND spatial metadata file.') + lakeOutDict%esri = '' + endif + iret = nf90_get_att(ftnMeta,NF90_GLOBAL,'proj4',lakeOutDict%proj4) + ! We are going to put a relaxed constraint on the proj4 string. + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: proj4 string not found. Defaulting to blank string.') + lakeOutDict%proj4 = '' + endif + endif + ! Close the file + iret = nf90_close(ftnMeta) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAND spatial metadata file.') + endif + endif + + ! Next establish time attribues + lakeOutDict%timeLName = 'valid output time' + lakeOutDict%timeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + lakeOutDict%timeStName = 'time' + lakeOutDict%rTimeLName = 'model initialization time' + lakeOutDict%rTimeStName = 'forecast_reference_time' + lakeOutDict%rTimeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + + ! Establish elevation variable attributes + lakeOutDict%elevLName = "Water Surface Elevation" + lakeOutDict%elevUnits = "m" ! meters + + ! Establish feature_id attributes + lakeOutDict%featureIdLName = "Lake ComID" + lakeOutDict%featureIdComment = "ComID from NHDPlusV2 waterbody layer" + lakeOutDict%cfRole = 'timeseries_id' + + ! Esatablish lat/lon attributes + lakeOutDict%latLName = "Lake latitude" + lakeOutDict%latUnits = "degrees_north" + lakeOutDict%latStName = "latitude" + lakeOutDict%lonLName = "Lake longitude" + lakeOutDict%lonUnits = "degrees_east" + lakeOutDict%lonStName = "longitude" + + lakeOutDict%varNames(:) = [character(len=64) :: 'inflow','outflow'] + lakeOutDict%longName(:) = [character(len=64) :: 'Lake Inflow','Lake Outflow'] + lakeOutDict%units(:) = [character(len=64) :: 'm3 s-1','m3 s-1'] + lakeOutDict%coordNames(:) = [character(len=64) :: 'latitude longitude','latitude longitude'] + lakeOutDict%scaleFactor(:) = [0.01,0.01] + lakeOutDict%addOffset(:) = [0.0,0.0] + lakeOutDict%outFlag(:) = [0,0] + lakeOutDict%timeZeroFlag(:) = [1,1] + lakeOutDict%fillReal(:) = [-9999.0,-9999.0] + lakeOutDict%missingReal(:) = [-9999.0,-9999.0] + lakeOutDict%validMinReal(:) = [-10000.0,-10000.0] + lakeOutDict%validMaxreal(:) = [10000.0,10000.0] + + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numLakeVars + lakeOutDict%fillComp(i) = NINT((lakeOutDict%fillReal(i)+lakeOutDict%addOffset(i))/lakeOutDict%scaleFactor(i)) + lakeOutDict%missingComp(i) = NINT((lakeOutDict%missingReal(i)+lakeOutDict%addOffset(i))/lakeOutDict%scaleFactor(i)) + lakeOutDict%validMinComp(i) = NINT((lakeOutDict%validMinReal(i)+lakeOutDict%addOffset(i))/lakeOutDict%scaleFactor(i)) + lakeOutDict%validMaxComp(i) = NINT((lakeOutDict%validMaxReal(i)+lakeOutDict%addOffset(i))/lakeOutDict%scaleFactor(i)) + end do + +end subroutine initLakeDict + +subroutine initChrtGrdDict(chrtGrdDict,procId,diagFlag) + use module_namelist, only: nlst_rt + use netcdf + implicit none + + type(chrtGrdMeta), intent(inout) :: chrtGrdDict + integer, intent(inout) :: procId,diagFlag + integer :: ftnMeta,projVarId,xVarId,yVarId,ftnGeo + integer :: xDimId,numColLand,numColHydro + real :: resLand,resHydro,aggFactor + integer :: iret + integer :: crsRealAttCnt,xRealAttCnt,yRealAttCnt + integer :: crsCharAttCnt,xCharAttCnt,yCharAttCnt + integer :: i, nCrsAtts,nxAtts,nyAtts + integer :: charFlag + integer :: floatFlag + character(len=512) :: tmpAttName + integer :: xtypeTmp + integer :: tmpLen + !CHRTOUT_GRID files + + chrtGrdDict%modelNdv = -9.E15 + + ! First establish global attributes. + chrtGrdDict%initTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + chrtGrdDict%validTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + chrtGrdDict%decimation = 1 + chrtGrdDict%conventions = "CF-1.6" + + ! Next establish time attributes + chrtGrdDict%timeLName = "valid output time" + chrtGrdDict%timeUnits = "minutes since 1970-01-01 00:00:00 UTC" + chrtGrdDict%timeStName = "time" + chrtGrdDict%rTimeLName = "model initialization time" + chrtGrdDict%rTimeUnits = "minutes since 1970-01-01 00:00:00 UTC" + chrtGrdDict%rTimeStName = "forecast_reference_time" + + crsRealAttCnt = 0 + crsCharAttCnt = 0 + xRealAttCnt = 0 + xCharAttCnt = 0 + yRealAttCnt = 0 + yCharAttCnt = 0 + + ! Pull spatial metadata information about the modeling domain from the + ! Fulldom file. + if(procId .eq. 0) then + iret = nf90_open(trim(nlst_rt(1)%geo_finegrid_flnm),NF90_NOWRITE,ncid=ftnMeta) + if(iret .ne. 0) then + ! Spatial metadata file not found for hydro grid. + call postDiagMsg(diagFlag,'WARNING: Unable to open Fulldom file. No crs variable or attributes will be created.') + chrtGrdDict%nCrsCharAtts = 0 + chrtGrdDict%nCrsRealAtts = 0 + chrtGrdDict%nxCharAtts = 0 + chrtGrdDict%nxRealAtts = 0 + chrtGrdDict%nyCharAtts = 0 + chrtGrdDict%nyRealAtts = 0 + chrtGrdDict%proj4 = '' + else + iret = nf90_get_att(ftnMeta,NF90_GLOBAL,'proj4',chrtGrdDict%proj4) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find proj4 global attribute. Defaulting to blank string.') + chrtGrdDict%proj4 = '' + endif + charFlag = 0 + floatFlag = 0 + ! Find the crs variable and pull out the attributes, their names, and + ! their values. This will be translated to output files. + iret = nf90_inq_varid(ftnMeta,'crs',projVarId) + ! For now we are going to allow the code to move forward without + ! finding this variable. In the future, we will probably restrict the + ! code to ensure things are more seamless. + + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the crs variable. No crs variable or attributes will be created.') + chrtGrdDict%nCrsCharAtts = 0 + chrtGrdDict%nCrsRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,projVarId,nAtts=nCrsAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find crs number of attributes') + do i =1,nCrsAtts + iret = nf90_inq_attname(ftnMeta,projVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from crs variable.') + iret = nf90_inquire_attribute(ftnMeta,projVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from crs variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + chrtGrdDict%crsCharAttNames(crsCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),chrtGrdDict%crsCharAttVals(crsCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsCharAttCnt = crsCharAttCnt + 1 + else + chrtGrdDict%crsFloatAttNames(crsRealAttCnt+1) = trim(tmpAttName) + chrtGrdDict%crsRealAttLen(crsRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),chrtGrdDict%crsRealAttVals(crsRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsRealAttCnt = crsRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + chrtGrdDict%nCrsRealAtts = crsRealAttCnt + chrtGrdDict%nCrsCharAtts = crsCharAttCnt + endif + + ! Next pull the attributes from the x/y dimensions + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'x',xVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the x variable. No x variable or attributes will be created.') + chrtGrdDict%nxCharAtts = 0 + chrtGrdDict%nxRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,xVarId,nAtts=nxAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x number of attributes') + do i =1,nxAtts + iret = nf90_inq_attname(ftnMeta,xVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from x variable.') + iret = nf90_inquire_attribute(ftnMeta,xVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from x variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + chrtGrdDict%xCharAttNames(xCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),chrtGrdDict%xCharAttVals(xCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xCharAttCnt = xCharAttCnt + 1 + else + chrtGrdDict%xFloatAttNames(xRealAttCnt+1) = trim(tmpAttName) + chrtGrdDict%xRealAttLen(xRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),chrtGrdDict%xRealAttVals(xRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xRealAttCnt = xRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + chrtGrdDict%nxRealAtts = xRealAttCnt + chrtGrdDict%nxCharAtts = xCharAttCnt + endif + + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'y',yVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the y variable. No y variable or attributes will be created.') + chrtGrdDict%nyCharAtts = 0 + chrtGrdDict%nyRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,yVarId,nAtts=nyAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y number of attributes') + do i =1,nyAtts + iret = nf90_inq_attname(ftnMeta,yVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from y variable.') + iret = nf90_inquire_attribute(ftnMeta,yVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from y variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + chrtGrdDict%yCharAttNames(yCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),chrtGrdDict%yCharAttVals(yCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yCharAttCnt = yCharAttCnt + 1 + else + chrtGrdDict%yFloatAttNames(yRealAttCnt+1) = trim(tmpAttName) + chrtGrdDict%yRealAttLen(yRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),chrtGrdDict%yRealAttVals(yRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yRealAttCnt = yRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + chrtGrdDict%nyRealAtts = yRealAttCnt + chrtGrdDict%nyCharAtts = yCharAttCnt + endif + ! Close the file + iret = nf90_close(ftnMeta) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAND spatial metadata file.') + + endif + + ! Next get the number of columns on the land grid. This will be used to + ! calculate the resolution of the routing grid in meters and aggfactor. + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnGeo) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to open LAND Spatial Metadata file. Defaulting to missing values.') + numColLand = -9999 + resLand = -9999 + else + iret = nf90_inq_dimid(ftnGeo,'x',xDimId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x dimension in LAND spatial Metadata file') + iret = nf90_inquire_dimension(ftnGeo,xDimId,len=numColLand) + call nwmCheck(diagFlag,iret,'ERROR: Unable to retrieve number of columns in the LAND spatial metadata file') + iret = nf90_inq_varid(ftnMeta,'x',xVarId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x variable in LAND spatial metadata file') + iret = nf90_get_att(ftnMeta,xVarId,'resolution',resLand) + call nwmCheck(diagFlag,iret,'ERROR: Unable to get x resolution in LAND spatial metadata file') + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close the LAND spatial metadata file') + endif + + ! Next get the number of columns on the high-resolution routing grid. + ! This will be used to calculate the resolution of the routing grid in + ! meters. + iret = nf90_open(trim(nlst_rt(1)%geo_finegrid_flnm),NF90_NOWRITE,ncid=ftnGeo) + if(iret .ne. 0) then + call nwmCheck(diagFlag,iret,'ERROR: Unable to open Fulldom file') + else + iret = nf90_inq_dimid(ftnGeo,'x',xDimId) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x dimension in Fulldom file') + iret = nf90_inquire_dimension(ftnGeo,xDimId,len=numColHydro) + call nwmCheck(diagFlag,iret,'ERROR: Unable to retrieve number of columns in the Fulldom file') + iret = nf90_close(ftnGeo) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close the Fulldom file') + endif + + ! Calculate the aggregation factor and resolution of the hydro routing + ! grid. + if(numColLand .ne. -9999) then + aggFactor = float(numColHydro/numColLand) + resHydro = resLand/aggFactor + else + resHydro = -9999 + endif + + chrtGrdDict%xRes = resHydro + chrtGrdDict%yRes = resHydro + + endif + + chrtGrdDict%varNames(:) = [character(len=64) :: "streamflow"] + chrtGrdDict%longName(:) = [character(len=64) :: "River Flow"] + chrtGrdDict%units(:) = [character(len=64) :: "m3 s-1"] + chrtGrdDict%scaleFactor(:) = [0.1] + chrtGrdDict%addOffset(:) = [0.0] + chrtGrdDict%outFlag(:) = [0] + chrtGrdDict%timeZeroFlag(:) = [1] + chrtGrdDict%missingReal(:) = [-9999.0] + chrtGrdDict%fillReal(:) = [-9999.0] + chrtGrdDict%validMinReal(:) = [0.0] + chrtGrdDict%validMaxReal(:) = [500000.0] + + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numChGrdVars + chrtGrdDict%fillComp(i) = NINT((chrtGrdDict%fillReal(i)+chrtGrdDict%addOffset(i))/chrtGrdDict%scaleFactor(i)) + chrtGrdDict%missingComp(i) = NINT((chrtGrdDict%missingReal(i)+chrtGrdDict%addOffset(i))/chrtGrdDict%scaleFactor(i)) + chrtGrdDict%validMinComp(i) = NINT((chrtGrdDict%validMinReal(i)+chrtGrdDict%addOffset(i))/chrtGrdDict%scaleFactor(i)) + chrtGrdDict%validMaxComp(i) = NINT((chrtGrdDict%validMaxReal(i)+chrtGrdDict%addOffset(i))/chrtGrdDict%scaleFactor(i)) + end do + +end subroutine initChrtGrdDict + +subroutine initLsmOutDict(lsmOutDict,procId,diagFlag) + use module_namelist, only: nlst_rt + use netcdf + implicit none + + type(lsmMeta), intent(inout) :: lsmOutDict + integer, intent(inout) :: procId + integer, intent(inout) :: diagFlag + integer :: ftnMeta,projVarId,xVarId,yVarId + integer :: iret + integer :: crsRealAttCnt,xRealAttCnt,yRealAttCnt + integer :: crsCharAttCnt,xCharAttCnt,yCharAttCnt + integer :: i, nCrsAtts,nxAtts,nyAtts + integer :: charFlag + integer :: floatFlag + character(len=512) :: tmpAttName + integer :: xtypeTmp + integer :: tmpLen + !LSMOUT files + + lsmOutDict%modelNdv = 9.9692099683868690E36 + lsmOutDict%modelNdvInt = -2147483647 + + ! First establish global attributes. + lsmOutDict%title = "OUTPUT FROM " // codeVersion + lsmOutDict%initTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + lsmOutDict%validTime = "1970-01-01_00:00:00" ! This will be calculated in I/O code. + lsmOutDict%conventions = "CF-1.6" + + ! Next establish time attributes + lsmOutDict%timeLName = "valid output time" + lsmOutDict%timeUnits = "minutes since 1970-01-01 00:00:00 UTC" + lsmOutDict%timeStName = "time" + lsmOutDict%rTimeLName = "model initialization time" + lsmOutDict%rTimeUnits = "minutes since 1970-01-01 00:00:00 UTC" + lsmOutDict%rTimeStName = "forecast_reference_time" + + crsRealAttCnt = 0 + crsCharAttCnt = 0 + xRealAttCnt = 0 + xCharAttCnt = 0 + yRealAttCnt = 0 + yCharAttCnt = 0 + + ! Pull spatial metadata information about the modeling domain from the land + ! spatial metadata file. + if(procId .eq. 0) then + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnMeta) + if(iret .ne. 0) then + ! Spatial metadata file not found for land grid. + call postDiagMsg(diagFlag,'WARNING: Unable to open LAND spatial metadata file. No crs variable or attributes will be created.') + lsmOutDict%nCrsCharAtts = 0 + lsmOutDict%nCrsRealAtts = 0 + lsmOutDict%nxCharAtts = 0 + lsmOutDict%nxRealAtts = 0 + lsmOutDict%nyCharAtts = 0 + lsmOutDict%nyRealAtts = 0 + lsmOutDict%proj4 = '' + else + iret = nf90_get_att(ftnMeta,NF90_GLOBAL,'proj4',lsmOutDict%proj4) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find proj4 global attribute. Defaulting to blank string.') + lsmOutDict%proj4 = '' + endif + charFlag = 0 + floatFlag = 0 + ! Find the crs variable and pull out the attributes, their names, and + ! their values. This will be translated to output files. + iret = nf90_inq_varid(ftnMeta,'crs',projVarId) + ! For now we are going to allow the code to move forward without + ! finding this variable. In the future, we will probably restrict the + ! code to ensure things are more seamless. + + ! code to ensure things are more seamless. + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the crs variable. No crs variable or attributes will be created.') + lsmOutDict%nCrsCharAtts = 0 + lsmOutDict%nCrsRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,projVarId,nAtts=nCrsAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find crs number of attributes') + do i =1,nCrsAtts + iret = nf90_inq_attname(ftnMeta,projVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from crs variable.') + iret = nf90_inquire_attribute(ftnMeta,projVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from crs variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + lsmOutDict%crsCharAttNames(crsCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),lsmOutDict%crsCharAttVals(crsCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsCharAttCnt = crsCharAttCnt + 1 + else + lsmOutDict%crsFloatAttNames(crsRealAttCnt+1) = trim(tmpAttName) + lsmOutDict%crsRealAttLen(crsRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,projVarId,trim(tmpAttName),lsmOutDict%crsRealAttVals(crsRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull crs attributes') + crsRealAttCnt = crsRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + lsmOutDict%nCrsRealAtts = crsRealAttCnt + lsmOutDict%nCrsCharAtts = crsCharAttCnt + + endif + + ! Next pull the attributes from the x/y dimensions + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'x',xVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the x variable. No x variable or attributes will be created.') + lsmOutDict%nxCharAtts = 0 + lsmOutDict%nxRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,xVarId,nAtts=nxAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find x number of attributes') + do i =1,nxAtts + iret = nf90_inq_attname(ftnMeta,xVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from x variable.') + iret = nf90_inquire_attribute(ftnMeta,xVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from x variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + lsmOutDict%xCharAttNames(xCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),lsmOutDict%xCharAttVals(xCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xCharAttCnt = xCharAttCnt + 1 + else + lsmOutDict%xFloatAttNames(xRealAttCnt+1) = trim(tmpAttName) + lsmOutDict%xRealAttLen(xRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,xVarId,trim(tmpAttName),lsmOutDict%xRealAttVals(xRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull x attributes') + xRealAttCnt = xRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + lsmOutDict%nxRealAtts = xRealAttCnt + lsmOutDict%nxCharAtts = xCharAttCnt + + endif + + charFlag = 0 + floatFlag = 0 + iret = nf90_inq_varid(ftnMeta,'y',yVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to locate the y variable. No y variable or attributes will be created.') + lsmOutDict%nyCharAtts = 0 + lsmOutDict%nyRealAtts = 0 + else + iret = nf90_inquire_variable(ftnMeta,yVarId,nAtts=nyAtts) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find y number of attributes') + do i =1,nyAtts + iret = nf90_inq_attname(ftnMeta,yVarId,i,name=tmpAttName) + call nwmCheck(diagFlag,iret,'ERROR: Unable to extract attribute names from y variable.') + iret = nf90_inquire_attribute(ftnMeta,yVarId,trim(tmpAttName),xtype=xtypeTmp,len=tmpLen) + call nwmCheck(diagFlag,iret,'ERROR: Unable to find attribute types from y variable.') + select case (xtypeTmp) + case (NF90_FLOAT) + floatFlag = 1 + case (NF90_CHAR) + charFlag = 1 + case (NF90_SHORT) + floatFlag = 1 + case (NF90_USHORT) + floatFlag = 1 + case (NF90_INT) + floatFlag = 1 + case (NF90_UINT) + floatFlag = 1 + case (NF90_INT64) + floatFlag = 1 + case (NF90_UINT64) + floatFlag = 1 + case (NF90_DOUBLE) + floatFlag = 1 + case (NF90_STRING) + charFlag = 1 + end select + if(charFlag .eq. 1) then + lsmOutDict%yCharAttNames(yCharAttCnt+1) = trim(tmpAttName) + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),lsmOutDict%yCharAttVals(yCharAttCnt+1)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yCharAttCnt = yCharAttCnt + 1 + else + lsmOutDict%yFloatAttNames(yRealAttCnt+1) = trim(tmpAttName) + lsmOutDict%yRealAttLen(yRealAttCnt+1) = tmpLen + iret = nf90_get_att(ftnMeta,yVarId,trim(tmpAttName),lsmOutDict%yRealAttVals(yRealAttCnt+1,1:tmpLen)) + call nwmCheck(diagFlag,iret,'ERROR: Unable to pull y attributes') + yRealAttCnt = yRealAttCnt + 1 + endif + charFlag = 0 + floatFlag = 0 + end do + lsmOutDict%nyRealAtts = yRealAttCnt + lsmOutDict%nyCharAtts = yCharAttCnt + + endif + ! Close the file + iret = nf90_close(ftnMeta) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAND spatial metadata file.') + endif + + endif + + lsmOutDict%varNames(:) = [character(len=64) :: "stc1","smc1","sh2ox1","stc2",& + "smc2","sh2ox2","stc3","smc3","sh2ox3","stc4",& + "smc4","sh2ox4","infxsrt","sfcheadrt"] + lsmOutDict%longName(:) = [character(len=64) :: "Soil temperature in the top layer",& + "Soil moisture in the top layer",& + "Volumetric soil moisture in the top layer",& + "Soil temperature in the second layer",& + "Soil moisture in the second layer",& + "Volumetric soil moisture in the second layer",& + "Soil temperature in the third layer",& + "Soil moisture in the third layer",& + "Volumetric soil moisture in the third layer",& + "Soil temperature in the fourth layer",& + "Soil moisture in the fourth layer",& + "Volumetric soil moisture in the fourth layer",& + "Infiltration excess","Surface head"] + lsmOutDict%units(:) = [character(len=64) :: "K","fraction","fraction",& + "K","fraction","fraction","K","fraction",& + "fraction","K","fraction","fraction",& + "mm","mm"] + lsmOutDict%scaleFactor(:) = [0.1,0.01,0.01,0.1,0.01,0.01,0.1,0.01,0.01,& + 0.1,0.01,0.01,1.0,1.0] + lsmOutDict%addOffset(:) = [0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,& + 0.0,0.0,0.0,0.0] + lsmOutDict%timeZeroFlag(:) = [1,1,1,1,1,1,1,1,1,1,1,1,1,1] + lsmOutDict%numLev(:) = [1,1,1,1,1,1,1,1,1,1,1,1,1,1] + lsmOutDict%missingReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0] + lsmOutDict%fillReal(:) = [-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,-9999.0,& + -9999.0,-9999.0,-9999.0,-9999.0] + lsmOutDict%validMinReal(:) = [150.0,0.0,0.0,150.0,0.0,0.0,150.0,0.0,0.0,& + 150.0,0.0,0.0,0.0,0.0] + lsmOutDict%validMaxReal(:) = [400.0,1.0,1.0,400.0,1.0,1.0,400.0,1.0,1.0,& + 400.0,1.0,1.0,100000.0,100000.0] + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numLsmVars + lsmOutDict%fillComp(i) = NINT((lsmOutDict%fillReal(i)+lsmOutDict%addOffset(i))/lsmOutDict%scaleFactor(i)) + lsmOutDict%missingComp(i) = NINT((lsmOutDict%missingReal(i)+lsmOutDict%addOffset(i))/lsmOutDict%scaleFactor(i)) + lsmOutDict%validMinComp(i) = NINT((lsmOutDict%validMinReal(i)+lsmOutDict%addOffset(i))/lsmOutDict%scaleFactor(i)) + lsmOutDict%validMaxComp(i) = NINT((lsmOutDict%validMaxReal(i)+lsmOutDict%addOffset(i))/lsmOutDict%scaleFactor(i)) + end do + +end subroutine initLsmOutDict + +subroutine initChanObsDict(chObsDict,diagFlag,procId) + use module_namelist, only : nlst_rt + use netcdf + implicit none + + type(chObsMeta), intent(inout) :: chObsDict + integer, intent(inout) :: diagFlag + integer, intent(inout) :: procId + + ! Local variables + integer :: ftnMeta, iret + integer :: projVarId + + chObsDict%modelNdv = -9.E15 + !CHANOBS FILES + + ! Pull spatial metadata information about the modeling domain from the land + ! spatial metadata file. + if(procId .eq. 0) then + iret = nf90_open(trim(nlst_rt(1)%land_spatial_meta_flnm),NF90_NOWRITE,ncid=ftnMeta) + if(iret .ne. 0) then + ! Spatial metadata file not found for land grid. + call postDiagMsg(diagFlag,'WARNING: Unable to open LAND spatial metadata file.') + chObsDict%proj4 = '' + chObsDict%esri = '' + else + ! First pull metadata on coordinate system. + iret = nf90_inq_varid(ftnMeta,'crs',projVarId) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find crs in LAND spatial metadata file') + chObsDict%proj4 = '' + chObsDict%esri = '' + else + iret = nf90_get_att(ftnMeta,projVarId,'esri_pe_string',chObsDict%esri) + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: Unable to find esri_pe_string in LAND spatial metadata file.') + chObsDict%esri = '' + endif + iret = nf90_get_att(ftnMeta,NF90_GLOBAL,'proj4',chObsDict%proj4) + ! We are going to put a relaxed constraint on the proj4 string. + if(iret .ne. 0) then + call postDiagMsg(diagFlag,'WARNING: proj4 string not found. Defaulting to blank string.') + chObsDict%proj4 = '' + endif + endif + ! Close the file + iret = nf90_close(ftnMeta) + call nwmCheck(diagFlag,iret,'ERROR: Unable to close LAND spatial metadata file.') + endif + endif + + chObsDict%fType = 'timeSeries' + chObsDict%initTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + chObsDict%validTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + chObsDict%stDim = 'feature_id' + chObsDict%stOrder = 1 + chObsDict%cdm = 'Station' + chObsDict%conventions = 'CF-1.6' + + ! Next establish time attribues + chObsDict%timeLName = 'valid output time' + chObsDict%timeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + chObsDict%timeStName = 'time' + chObsDict%rTimeLName = 'model initialization time' + chObsDict%rTimeStName = 'forecast_reference_time' + chObsDict%rTimeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + + ! Esatablish lat/lon attributes + chObsDict%latLName = "Feature latitude" + chObsDict%latUnits = "degrees_north" + chObsDict%latStName = "latitude" + chObsDict%lonLName = "Feature longitude" + chObsDict%lonUnits = "degrees_east" + chObsDict%lonStName = "longitude" + + ! Establish streamflw order attributes + chObsDict%orderLName = "Streamflow Order" + chObsDict%orderStName = "order" + + ! Establish point elevation attributes + chObsDict%elevLName = "Feature Elevation" + chObsDict%elevUnits = "meters" + chObsDict%elevStName = "Elevation" + + ! Next establish feature_id attributes + chObsDict%featureIdLName = 'Reach ID' + chObsDict%featureIdComment = 'NHDPlusv2 ComIDs within CONUS, arbitrary Reach IDs outside of CONUS' + chObsDict%cfRole = 'timeseries_id' + + chObsDict%varNames(:) = [character(len=64) :: "streamflow"] + chObsDict%longName(:) = [character(len=64) :: "River Flow"] + chObsDict%units(:) = [character(len=64) :: "m3 s-1"] + chObsDict%coordNames(:) = [character(len=64) :: "latitude longitude"] + chObsDict%scaleFactor(:) = [0.01] + chObsDict%addOffset(:) = [0.0] + ! Initialize all output flags to 0. Modify (if absolutely necessary) in the + ! output subroutine. + chObsDict%outFlag(:) = [0] + chObsDict%timeZeroFlag(:) = [1] + chObsDict%fillReal(:) = [-9999.0] + chObsDict%missingReal(:) = [-9999.0] + chObsDict%validMinReal(:) = [0.0] + chObsDict%validMaxReal(:) = [500000.0] + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numChObsVars + chObsDict%fillComp(i) = int((chObsDict%fillReal(i)+chObsDict%addOffset(i))/chObsDict%scaleFactor(i)) + chObsDict%missingComp(i) = int((chObsDict%missingReal(i)+chObsDict%addOffset(i))/chObsDict%scaleFactor(i)) + chObsDict%validMinComp(i) = int((chObsDict%validMinReal(i)+chObsDict%addOffset(i))/chObsDict%scaleFactor(i)) + chObsDict%validMaxComp(i) = int((chObsDict%validMaxReal(i)+chObsDict%addOffset(i))/chObsDict%scaleFactor(i)) + end do + +end subroutine initChanObsDict + +subroutine initGwDict(gwOutDict) + implicit none + + type(gwMeta), intent(inout) :: gwOutDict + + gwOutDict%modelNdv = -9.E15 + + gwOutDict%fType = 'timeSeries' + !gwOutDict%proj4 = '+proj=longlat +datum=NAD83 +no_defs' + gwOutDict%initTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + gwOutDict%validTime = '1970-01-01_00:00:00' ! This will be calculated in I/O code + gwOutDict%gwDim = 'gw_id' + !gwOutDict%cdm = 'PLACEHOLDER' + !gwOutDict%esri = 'GEOGCS[GCS_North_American_1983,DATUM[D_North_American_1983,& + ! &SPHEROID[GRS_1980,6378137.0,298.257222101]],& + ! &PRIMEM[Greenwich,0.0],UNIT[Degree,0.017453292519943295]]' + gwOutDict%conventions = 'CF-1.6' + + ! Next establish time attribues + gwOutDict%timeLName = 'valid output time' + gwOutDict%timeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + gwOutDict%timeStName = 'time' + gwOutDict%rTimeLName = 'model initialization time' + gwOutDict%rTimeStName = 'forecast_reference_time' + gwOutDict%rTimeUnits = 'minutes since 1970-01-01 00:00:00 UTC' + + ! Establish elevation variable attributes + !gwOutDict%elevLName = "Water Surface Elevation" + !gwOutDict%elevUnits = "meters" + + ! Establish feature_id attributes + gwOutDict%featureIdLName = "Groundwater Bucket ID" + gwOutDict%featureIdComment = "Groundwater Bucket ID" + gwOutDict%cfRole = 'timeseries_id' + + ! Esatablish lat/lon attributes + !gwOutDict%latLName = "Groundwater Bucket latitude" + !gwOutDict%latUnits = "degrees_north" + !gwOutDict%latStName = "latitude" + !gwOutDict%lonLName = "Groundwater Bucket longitude" + !gwOutDict%lonUnits = "degrees_east" + !gwOutDict%lonStName = "longitude" + + gwOutDict%varNames(:) = [character(len=64) :: 'inflow','outflow','depth'] + gwOutDict%longName(:) = [character(len=64) :: 'Bucket Inflow','Bucket Outflow','Bucket Depth'] + gwOutDict%units(:) = [character(len=64) :: 'm3 s-1','m3 s-1','mm'] + !gwOutDict%coordNames(:) = [character(len=64) :: 'latitude longitude','latitude longitude','latitude longitude'] + gwOutDict%scaleFactor(:) = [0.01,0.01,0.1] + gwOutDict%addOffset(:) = [0.0,0.0,0.0] + gwOutDict%outFlag(:) = [0,0,0] + gwOutDict%timeZeroFlag(:) = [0,0,1] + gwOutDict%fillReal(:) = [-9999.0,-9999.0,-9999.0] + gwOutDict%missingReal(:) = [-9999.0,-9999.0,-9999.0] + gwOutDict%validMinReal(:) = [-10000.0,-10000.0,-10000.0] + gwOutDict%validMaxreal(:) = [10000.0,10000.0,10000.0] + + ! Loop through and calculate missing/fill/min/max values that will be placed + ! into the NetCDF attributes after scale_factor/add_offset are applied. + do i=1,numGwVars + gwOutDict%fillComp(i) = NINT((gwOutDict%fillReal(i)+gwOutDict%addOffset(i))/gwOutDict%scaleFactor(i)) + gwOutDict%missingComp(i) = NINT((gwOutDict%missingReal(i)+gwOutDict%addOffset(i))/gwOutDict%scaleFactor(i)) + gwOutDict%validMinComp(i) = NINT((gwOutDict%validMinReal(i)+gwOutDict%addOffset(i))/gwOutDict%scaleFactor(i)) + gwOutDict%validMaxComp(i) = NINT((gwOutDict%validMaxReal(i)+gwOutDict%addOffset(i))/gwOutDict%scaleFactor(i)) +end do + +end subroutine initGwDict + +subroutine postDiagMsg(diagFlag,diagMsg) + implicit none + + ! Subroutine arguments. + integer, intent(in) :: diagFlag + character(len=*), intent(in) :: diagMsg + + ! Only write out message if the diagnostic WRF_HYDRO_D flag was + ! set to 1 + if (diagFlag .eq. 1) then + print*, trim(diagMsg) + end if + +end subroutine postDiagMsg + +subroutine nwmCheck(diagFlag,iret,msg) + implicit none + + ! Subroutine arguments. + integer, intent(in) :: diagFlag,iret + character(len=*), intent(in) :: msg + + ! Check status. If status of command is not 0, then post the error message + ! if WRF_HYDRO_D was set to be 1. + if (iret .ne. 0) then + call hydro_stop(trim(msg)) + end if + +end subroutine nwmCheck + +end module module_NWM_io_dict diff --git a/hydro/Routing/module_RT.F b/hydro/Routing/module_RT.F index ab36ef1901..416c472e55 100644 --- a/hydro/Routing/module_RT.F +++ b/hydro/Routing/module_RT.F @@ -22,10 +22,11 @@ MODULE module_Routing #ifdef MPP_LAND use module_gw_baseflow, only: pix_ct_1 use module_HYDRO_io, only: mpp_read_routedim, read_routing_seq, mpp_read_chrouting_new, & - mpp_read_simp_gw + mpp_read_simp_gw, read_routelink, get_nlinksl use MODULE_mpp_ReachLS, only: ReachLS_ini, getlocalindx, getToInd - USE module_mpp_land, only : left_id, up_id, right_id, down_id, mpp_land_com_integer, mpp_land_bcast_int, & - updateLake_seq + USE module_mpp_land, only : left_id, up_id, right_id, down_id, mpp_land_com_integer, & + mpp_land_bcast_int, mpp_land_bcast_int1, & + updateLake_seq use module_mpp_GWBUCKET, only : collectSizeInd #else !yw use module_HYDRO_io, only: read_routedim, read_routing_old, read_chrouting,read_simp_gw @@ -43,6 +44,11 @@ MODULE module_Routing #endif #endif + integer, parameter :: r8 = selected_real_kind(8) + real*8, parameter :: zeroDbl=0.0000000000000000000_r8 + integer, parameter :: r4 = selected_real_kind(4) + real , parameter :: zeroFlt=0.0000000000000000000_r4 + CONTAINS subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) @@ -87,149 +93,222 @@ subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) if(rt_domain(did)%NLAKES .eq. 0) NLAKES = 1 if(rt_domain(did)%NLINKSL .eq. 0) NLINKSL = 1 + rt_domain(did)%iswater = 0 + rt_domain(did)%isurban = 0 + rt_domain(did)%isoilwater = 0 + !DJG Allocate routing and disaggregation arrays #ifdef HYDRO_D write(6,*) " rt_allocate ***** ixrt,jxrt, nsoil", ixrt,jxrt, nsoil #endif + if(nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + + allocate( rt_domain(did)%DSMC (NSOIL) ) + rt_domain(did)%dsmc = 0 + allocate( rt_domain(did)%SMCRTCHK (NSOIL) ) + rt_domain(did)%SMCRTCHK = 0 + allocate( rt_domain(did)%SH2OAGGRT (NSOIL) ) + rt_domain(did)%SH2OAGGRT = 0 + allocate( rt_domain(did)%STCAGGRT (NSOIL) ) + rt_domain(did)%STCAGGRT = 0 + allocate( rt_domain(did)%SMCAGGRT (NSOIL) ) + rt_domain(did)%SMCAGGRT = 0 + + if(nlst_rt(did)%UDMP_OPT .eq. 1) then + allocate ( RT_DOMAIN(did)%landRunOff (ixrt,jxrt) ) + endif + + allocate( rt_domain(did)%SMCRT (IXRT,JXRT,NSOIL) ) + rt_domain(did)%SMCRT = 0.0 + allocate( rt_domain(did)%soiltypRT (IXRT,JXRT) ) + !! + + allocate( rt_domain(did)%SOXRT (IXRT,JXRT) ) + rt_domain(did)%SOXRT = 0.0 + allocate( rt_domain(did)%SOYRT (IXRT,JXRT) ) + rt_domain(did)%SOYRT = 0.0 + allocate( rt_domain(did)%SO8RT (IXRT,JXRT,8) ) + rt_domain(did)%SO8RT = -999 + allocate( rt_domain(did)%SO8RT_D (IXRT,JXRT,3) ) + rt_domain(did)%SO8RT_D = 0.0 + allocate( rt_domain(did)%OVROUGHRT (IXRT,JXRT) ) + ! + + !allocate( rt_domain(did)%QSUBBDRYTRT (IXRT,JXRT) ) + !rt_domain(did)%QSUBBDRYTRT = 0.0 + allocate( rt_domain(did)%OVROUGHRTFAC (IXRT,JXRT) ) + rt_domain(did)%OVROUGHRT = 0.0 + allocate( rt_domain(did)%RETDEPRT (IXRT,JXRT) ) + ! + + allocate( rt_domain(did)%RETDEPRTFAC (IXRT,JXRT) ) + ! + + allocate( rt_domain(did)%SFCHEADSUBRT(IXRT,JXRT) ) + rt_domain(did)%SFCHEADSUBRT= 0.0 + allocate( rt_domain(did)%INFXSUBRT (IXRT,JXRT) ) + rt_domain(did)%INFXSUBRT = 0.0 + allocate( rt_domain(did)%INFXSWGT (IXRT,JXRT) ) + rt_domain(did)%INFXSWGT = 0.0 + allocate( rt_domain(did)%LKSATRT (IXRT,JXRT) ) + rt_domain(did)%LKSATRT = 0.0 + allocate( rt_domain(did)%LKSATFAC (IXRT,JXRT) ) + rt_domain(did)%LKSATFAC = 0.0 + allocate( rt_domain(did)%QSUBRT (IXRT,JXRT) ) + rt_domain(did)%QSUBRT = 0.0 + allocate( rt_domain(did)%ZWATTABLRT (IXRT,JXRT) ) + rt_domain(did)%ZWATTABLRT = 0.0 + allocate( rt_domain(did)%QSUBBDRYRT (IXRT,JXRT) ) + rt_domain(did)%QSUBBDRYRT = 0.0 + allocate( rt_domain(did)%SOLDEPRT (IXRT,JXRT) ) + rt_domain(did)%SOLDEPRT = 0.0 + allocate( rt_domain(did)%q_sfcflx_x (IXRT,JXRT) ) + rt_domain(did)%q_sfcflx_x = 0.0 + allocate( rt_domain(did)%q_sfcflx_y (IXRT,JXRT) ) + rt_domain(did)%q_sfcflx_y = 0.0 + allocate( rt_domain(did)%SMCMAXRT (IXRT,JXRT,NSOIL) ) + rt_domain(did)%SMCMAXRT = 0.0 + allocate( rt_domain(did)%SMCWLTRT (IXRT,JXRT,NSOIL) ) + rt_domain(did)%SMCWLTRT = 0.0 + allocate( rt_domain(did)%SH2OWGT (IXRT,JXRT,NSOIL) ) + rt_domain(did)%SH2OWGT = 0.0 + allocate( rt_domain(did)%INFXSAGGRT (IXRT,JXRT) ) + rt_domain(did)%INFXSAGGRT = 0.0 + allocate( rt_domain(did)%DHRT (IXRT,JXRT) ) + rt_domain(did)%DHRT = 0.0 + allocate( rt_domain(did)%QSTRMVOLRT (IXRT,JXRT) ) + rt_domain(did)%QSTRMVOLRT = 0.0 + allocate( rt_domain(did)%QSTRMVOLRT_TS (IXRT,JXRT) ) + rt_domain(did)%QSTRMVOLRT_TS = 0.0 + allocate( rt_domain(did)%QSTRMVOLRT_ACC (IXRT,JXRT) ) + rt_domain(did)%QSTRMVOLRT_ACC = 0.0 + allocate( rt_domain(did)%QBDRYRT (IXRT,JXRT) ) + rt_domain(did)%QBDRYRT = 0.0 + allocate( rt_domain(did)%SUB_RESID (ixrt,jxrt) ) + rt_domain(did)%SUB_RESID = 0.0 + + ! tmp array + allocate( rt_domain(did)%SMCREFRT (IXRT,JXRT,NSOIL) ) + ! tmp + + !! Variables (formerly?) needed for channel_only + allocate( rt_domain(did)%ELRT (IXRT,JXRT) ) + rt_domain(did)%ELRT = 0.0 + allocate( rt_domain(did)%LAKE_MSKRT (IXRT,JXRT) ) + rt_domain(did)%LAKE_MSKRT = -9999 + allocate( rt_domain(did)%LAKE_INFLORT(IXRT,JXRT) ) + rt_domain(did)%LAKE_INFLORT= 0.0 + allocate( rt_domain(did)%LAKE_INFLORT_TS(IXRT,JXRT) ) + allocate( rt_domain(did)%LAKE_INFLORT_DUM(IXRT,JXRT) ) + rt_domain(did)%LAKE_INFLORT_DUM= 0.0 + allocate( rt_domain(did)%LATVAL (ixrt,jxrt) ) + allocate( rt_domain(did)%LONVAL (ixrt,jxrt) ) + rt_domain(did)%LONVAL = 0.0 + rt_domain(did)%LATVAL = 0.0 - allocate( rt_domain(did)%DSMC (NSOIL) ) - rt_domain(did)%dsmc = 0 + !DJG Allocate routing and disaggregation arrays + allocate(rt_domain(did)%qinflowbase (IXRT,JXRT) ) + rt_domain(did)%qinflowbase = 0.0 + + allocate(rt_domain(did)%gw_strm_msk (IXRT,JXRT) ) + rt_domain(did)%gw_strm_msk = 0 + allocate(rt_domain(did)%gw_strm_msk_lind (IXRT,JXRT) ) - allocate( rt_domain(did)%SMCRTCHK (NSOIL) ) - rt_domain(did)%SMCRTCHK = 0 + ! allocate land surface grid variables + allocate( rt_domain(did)%SMC (IX,JX,NSOIL) ) + rt_domain(did)%SMC = 0.25 + allocate( rt_domain(did)%SICE (IX,JX,NSOIL) ) + rt_domain(did)%SICE = 0. + ! allocate( rt_domain(did)%dist_lsm (ixrt,jxrt,9) ) + ! allocate( rt_domain(did)%lat_lsm (ixrt,jxrt) ) + ! allocate( rt_domain(did)%lon_lsm (ixrt,jxrt) ) + + ! allocate( rt_domain(did)%SICE (IX,JX,NSOIL) ) + allocate( rt_domain(did)%SMCMAX1 (IX,JX) ) + rt_domain(did)%SMCMAX1 = 0.0 + !rt_domain(did)%SMCMAX1 = 0.434 + allocate( rt_domain(did)%STC (IX,JX,NSOIL) ) + rt_domain(did)%STC = 282.0 + allocate( rt_domain(did)%SH2OX(IX,JX,NSOIL) ) + rt_domain(did)%SH2OX = rt_domain(did)%SMC + allocate( rt_domain(did)%SMCWLT1 (IX,JX) ) + rt_domain(did)%SMCWLT1 = 0.0 + allocate( rt_domain(did)%SMCREF1 (IX,JX) ) + rt_domain(did)%SMCREF1 = 0.0 + allocate( rt_domain(did)%VEGTYP (IX,JX) ) + rt_domain(did)%VEGTYP = 0 - allocate( rt_domain(did)%SH2OAGGRT (NSOIL) ) - rt_domain(did)%SH2OAGGRT = 0 - allocate( rt_domain(did)%STCAGGRT (NSOIL) ) - allocate( rt_domain(did)%SMCAGGRT (NSOIL) ) - rt_domain(did)%STCAGGRT = 0 - rt_domain(did)%SMCAGGRT = 0 + allocate( rt_domain(did)%OV_ROUGH2d (IX,JX) ) + + allocate( rt_domain(did)%SOILTYP (IX,JX) ) - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - allocate ( RT_DOMAIN(did)%landRunOff (ixrt,jxrt) ) - endif - + allocate( rt_domain(did)%GWSUBBASMSK (IX,JX) ) + rt_domain(did)%GWSUBBASMSK = 0 + allocate( rt_domain(did)%SLDPTH(NSOIL) ) + rt_domain(did)%SLDPTH = 0.0 + allocate( rt_domain(did)%SO8LD_D (IX,JX,3) ) + rt_domain(did)%SO8LD_D = 0.0 + allocate( rt_domain(did)%SO8LD_Vmax (IX,JX) ) + rt_domain(did)%SO8LD_Vmax = 0.0 + allocate( rt_domain(did)%SFCHEADRT (IX,JX) ) + rt_domain(did)%SFCHEADRT = 0.0 + allocate( rt_domain(did)%INFXSRT (IX,JX) ) + rt_domain(did)%INFXSRT = 0.0 + allocate( rt_domain(did)%TERRAIN (IX,JX) ) + rt_domain(did)%TERRAIN = 0.0 + allocate( rt_domain(did)%LKSAT (IX,JX) ) + rt_domain(did)%LKSAT = 0.0 + allocate( rt_domain(did)%SOLDRAIN (IX,JX) ) + rt_domain(did)%SOLDRAIN = 0.0 + + end if ! neither channel_only nor channelBucket_only - allocate( rt_domain(did)%SMCRT (IXRT,JXRT,NSOIL) ) - allocate( rt_domain(did)%soiltypRT (IXRT,JXRT) ) - allocate( rt_domain(did)%ELRT (IXRT,JXRT) ) - allocate( rt_domain(did)%SOXRT (IXRT,JXRT) ) - allocate( rt_domain(did)%SOYRT (IXRT,JXRT) ) - allocate( rt_domain(did)%SO8RT (IXRT,JXRT,8) ) - allocate( rt_domain(did)%SO8RT_D (IXRT,JXRT,3) ) - allocate( rt_domain(did)%OVROUGHRT (IXRT,JXRT) ) -! allocate( rt_domain(did)%QSUBBDRYTRT (IXRT,JXRT) ) -! rt_domain(did)%QSUBBDRYTRT = 0.0 - - allocate( rt_domain(did)%OVROUGHRTFAC (IXRT,JXRT) ) - allocate( rt_domain(did)%RETDEPRT (IXRT,JXRT) ) - allocate( rt_domain(did)%RETDEPRTFAC (IXRT,JXRT) ) - allocate( rt_domain(did)%SFCHEADSUBRT(IXRT,JXRT) ) - allocate( rt_domain(did)%INFXSUBRT (IXRT,JXRT) ) - allocate( rt_domain(did)%INFXSWGT (IXRT,JXRT) ) - allocate( rt_domain(did)%LKSATRT (IXRT,JXRT) ) - allocate( rt_domain(did)%LKSATFAC (IXRT,JXRT) ) - allocate( rt_domain(did)%QSUBRT (IXRT,JXRT) ) - allocate( rt_domain(did)%ZWATTABLRT (IXRT,JXRT) ) - allocate( rt_domain(did)%QSUBBDRYRT (IXRT,JXRT) ) - allocate( rt_domain(did)%SOLDEPRT (IXRT,JXRT) ) - allocate( rt_domain(did)%q_sfcflx_x (IXRT,JXRT) ) - allocate( rt_domain(did)%q_sfcflx_y (IXRT,JXRT) ) - allocate( rt_domain(did)%SMCMAXRT (IXRT,JXRT,NSOIL) ) - allocate( rt_domain(did)%SMCWLTRT (IXRT,JXRT,NSOIL) ) - allocate( rt_domain(did)%SH2OWGT (IXRT,JXRT,NSOIL) ) - allocate( rt_domain(did)%INFXSAGGRT (IXRT,JXRT) ) - allocate( rt_domain(did)%DHRT (IXRT,JXRT) ) - allocate( rt_domain(did)%QSTRMVOLRT (IXRT,JXRT) ) - - - allocate( rt_domain(did)%QSTRMVOLRT_TS (IXRT,JXRT) ) - allocate( rt_domain(did)%QSTRMVOLRT_DUM (IXRT,JXRT) ) - allocate( rt_domain(did)%QBDRYRT (IXRT,JXRT) ) - - allocate( rt_domain(did)%CH_NETRT (IXRT,JXRT) ) - - allocate( rt_domain(did)%LAKE_MSKRT (IXRT,JXRT) ) - allocate( rt_domain(did)%LAKE_INFLORT(IXRT,JXRT) ) - allocate( rt_domain(did)%LAKE_INFLORT_TS(IXRT,JXRT) ) - allocate( rt_domain(did)%LAKE_INFLORT_DUM(IXRT,JXRT) ) - - allocate( rt_domain(did)%SUB_RESID (ixrt,jxrt) ) - allocate( rt_domain(did)%LATVAL (ixrt,jxrt) ) - allocate( rt_domain(did)%LONVAL (ixrt,jxrt) ) + + !! needed regardless + allocate( rt_domain(did)%dist_lsm (ix,jx,9) ) + rt_domain(did)%dist_lsm = 0.0 + allocate( rt_domain(did)%lat_lsm (ix,jx) ) + allocate( rt_domain(did)%lon_lsm (ix,jx) ) + rt_domain(did)%timestep_flag = 1 ! default is cold start allocate( rt_domain(did)%dist (ixrt,jxrt,9) ) + rt_domain(did)%dist = -999 + + !! This is needed for channelBucket_only + !! because the bucket area (basns_area) depends on the initialization of the + !! UDMP code, this is a required variable. + !! JLM: could these be deallocated under channel_only + if(nlst_rt(did)%channel_only .eq. 0) then + allocate( rt_domain(did)%CH_NETRT (IXRT,JXRT) ) + rt_domain(did)%CH_NETRT = 0.0 + allocate( rt_domain(did)%CH_LNKRT (IXRT,JXRT) ) + rt_domain(did)%CH_LNKRT = 0.0 + endif -! tmp array - allocate( rt_domain(did)%SMCREFRT (IXRT,JXRT,NSOIL) ) -!!!! tmp - rt_domain(did)%dist = -999 - rt_domain(did)%SMCRT = 0.0 - rt_domain(did)%ELRT = 0.0 - rt_domain(did)%SOXRT = 0.0 - rt_domain(did)%SOYRT = 0.0 - rt_domain(did)%SO8RT = -999 - rt_domain(did)%SO8RT_D = 0.0 - rt_domain(did)%OVROUGHRT = 0.0 - rt_domain(did)%SFCHEADSUBRT= 0.0 - rt_domain(did)%INFXSUBRT = 0.0 - rt_domain(did)%INFXSWGT = 0.0 - rt_domain(did)%LKSATRT = 0.0 - rt_domain(did)%LKSATFAC = 0.0 - rt_domain(did)%QSUBRT = 0.0 - rt_domain(did)%ZWATTABLRT = 0.0 - rt_domain(did)%QSUBBDRYRT = 0.0 - rt_domain(did)%SOLDEPRT = 0.0 - rt_domain(did)%q_sfcflx_x = 0.0 - rt_domain(did)%q_sfcflx_y = 0.0 - rt_domain(did)%SMCMAXRT = 0.0 - rt_domain(did)%SMCWLTRT = 0.0 - rt_domain(did)%SH2OWGT = 0.0 - rt_domain(did)%INFXSAGGRT = 0.0 - rt_domain(did)%DHRT = 0.0 - rt_domain(did)%QSTRMVOLRT = 0.0 - rt_domain(did)%QSTRMVOLRT_DUM = 0.0 - rt_domain(did)%QBDRYRT = 0.0 - - rt_domain(did)%CH_NETRT = 0.0 - - rt_domain(did)%LAKE_MSKRT = -9999 - rt_domain(did)%LAKE_INFLORT= 0.0 - rt_domain(did)%LAKE_INFLORT_DUM= 0.0 - - rt_domain(did)%SUB_RESID = 0.0 - rt_domain(did)%LATVAL = 0.0 - rt_domain(did)%LONVAL = 0.0 - - - rt_domain(did)%timestep_flag = 1 ! default is cold start - - allocate( rt_domain(did)%CH_LNKRT (IXRT,JXRT) ) - rt_domain(did)%CH_LNKRT = 0.0 - - IF (CHANRTSWCRT.EQ.1 .or. CHANRTSWCRT .eq. 2) THEN !IF/then for channel routing - allocate( rt_domain(did)%CH_NETLNK (IXRT,JXRT) ) - rt_domain(did)%CH_NETLNK = 0.0 - - allocate( rt_domain(did)%GCH_NETLNK (IXRT,JXRT) ) - rt_domain(did)%GCH_NETLNK = 0.0 - - - -!DJG,DNY Allocate channel routing and lake routing arrays + if (CHANRTSWCRT.eq.1 .or. CHANRTSWCRT .eq. 2) then !IF/then for channel routing + + !! JLM TODO: clean up this section for routing options, group 2D variables. + + allocate( rt_domain(did)%CH_NETLNK (IXRT,JXRT) ) + rt_domain(did)%CH_NETLNK = 0.0 + allocate( rt_domain(did)%GCH_NETLNK (IXRT,JXRT) ) + rt_domain(did)%GCH_NETLNK = 0.0 #ifdef MPP_LAND allocate( rt_domain(did)%LAKE_INDEX(NLAKES) ) + rt_domain(did)%lake_index = -99 allocate( rt_domain(did)%nlinks_INDEX(nsizes) ) - allocate( rt_domain(did)%Link_location(ixrt,jxrt)) + allocate( rt_domain(did)%Link_location(ixrt,jxrt) ) #endif allocate( rt_domain(did)%CH_LNKRT_SL (IXRT,JXRT) ) - rt_domain(did)%CH_LNKRT_SL = -99 - + rt_domain(did)%CH_LNKRT_SL = -99 + rt_domain(did)%MAXORDER = -9999 + !tmp if( nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 3 ) then !tmp NLINKS = rt_domain(did)%NLINKSL !tmp NLAKES = rt_domain(did)%NLINKSL @@ -245,6 +324,7 @@ subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) allocate( rt_domain(did)%TYPEL(nsizes) ) allocate( rt_domain(did)%ORDER(nsizes) ) allocate( rt_domain(did)%QLINK(nsizes,2) ) + #ifdef WRF_HYDRO_NUDGING allocate( rt_domain(did)%nudge(nsizes) ) #endif @@ -262,20 +342,24 @@ subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) allocate( rt_domain(did)%LAKEIDM(NLAKES) ) allocate( rt_domain(did)%HRZAREA(NLAKES) ) allocate( rt_domain(did)%LAKEMAXH(NLAKES) ) + allocate( rt_domain(did)%ELEVLAKE(NLAKES) ) allocate( rt_domain(did)%WEIRH(NLAKES) ) allocate( rt_domain(did)%WEIRC(NLAKES) ) allocate( rt_domain(did)%WEIRL(NLAKES) ) allocate( rt_domain(did)%ORIFICEC(NLAKES) ) allocate( rt_domain(did)%ORIFICEA(NLAKES) ) allocate( rt_domain(did)%ORIFICEE(NLAKES) ) + rt_domain(did)%HRZAREA = 0.0 rt_domain(did)%WEIRH = 0.0 rt_domain(did)%WEIRC = 0.0 rt_domain(did)%WEIRL = 0.0 rt_domain(did)%LAKEMAXH = 0.0 + rt_domain(did)%ELEVLAKE= 0.0 rt_domain(did)%ORIFICEC = 0.0 rt_domain(did)%ORIFICEA = 0.0 rt_domain(did)%ORIFICEE = 0.0 + endif @@ -287,18 +371,37 @@ subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) ! allocate( rt_domain(did)%ORIFICEE(nsizes) ) if(nsizes .gt. 0) then - allocate( rt_domain(did)%accLndRunOff(nsizes) ) - allocate( rt_domain(did)%accQLateral(nsizes) ) - allocate( rt_domain(did)%accStrmvolrt(nsizes) ) - allocate( rt_domain(did)%accBucket(nsizes) ) - rt_domain(did)%accLndRunOff = 0 - rt_domain(did)%accQLateral = 0 - rt_domain(did)%accStrmvolrt = 0 - rt_domain(did)%accBucket = 0 + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 2 ) then + allocate( rt_domain(did)%accSfcLatRunoff(1) ) + allocate( rt_domain(did)%accBucket( 1) ) + allocate( rt_domain(did)%qSfcLatRunoff( nsizes) ) + allocate( rt_domain(did)%qBucket( nsizes) ) + endif + + if(nlst_rt(did)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(did)%output_channelBucket_influx .eq. 3 ) & + allocate( rt_domain(did)%qBtmVertRunoff( 1) ) + if(nlst_rt(did)%output_channelBucket_influx .eq. 2) then + allocate( rt_domain(did)%qBtmVertRunoff(nsizes) ) + rt_domain(did)%qBtmVertRunoff = zeroFlt + endif + + if(nlst_rt(did)%output_channelBucket_influx .eq. 3) then + allocate( rt_domain(did)%accSfcLatRunoff(nsizes) ) + allocate( rt_domain(did)%accBucket( nsizes) ) + allocate( rt_domain(did)%qSfcLatRunoff( 1) ) + allocate( rt_domain(did)%qBucket( 1) ) + rt_domain(did)%accSfcLatRunoff = zeroDbl + rt_domain(did)%accBucket = zeroDbl + rt_domain(did)%qSfcLatRunoff = zeroFlt + rt_domain(did)%qBucket = zeroFlt + endif + allocate( rt_domain(did)%QLateral(nsizes) ) - rt_domain(did)%QLateral = 0 allocate( rt_domain(did)%velocity(nsizes) ) - rt_domain(did)%velocity = 0 + rt_domain(did)%QLateral = zeroFlt + rt_domain(did)%velocity = zeroFlt endif if( nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2 ) then @@ -313,7 +416,7 @@ subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) allocate( rt_domain(did)%CVOL(nsizes) ) allocate( rt_domain(did)%LATLAKE(NLAKES) ) allocate( rt_domain(did)%LONLAKE(NLAKES) ) - allocate( rt_domain(did)%ELEVLAKE(NLAKES) ) +! allocate( rt_domain(did)%ELEVLAKE(NLAKES) ) allocate( rt_domain(did)%LAKENODE(nsizes) ) allocate( rt_domain(did)%RESHT(NLAKES),STAT=istatus ) allocate( rt_domain(did)%QLAKEI(NLAKES),STAT=istatus ) @@ -348,7 +451,7 @@ subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) rt_domain(did)%LATLAKE = 0.0 rt_domain(did)%LONLAKE = 0.0 - rt_domain(did)%ELEVLAKE = 0.0 +! rt_domain(did)%ELEVLAKE = 0.0 rt_domain(did)%LAKENODE = 0.0 rt_domain(did)%RESHT = 0.0 rt_domain(did)%QLAKEI = 0.0 @@ -357,171 +460,140 @@ subroutine rt_allocate(did,ix,jx,ixrt,jxrt,nsoil,CHANRTSWCRT) #ifdef WRF_HYDRO_NUDGING rt_domain(did)%nudge = 0 #endif - rt_domain(did)%HLINK = 0.0 !--used for diffusion only rt_domain(did)%MannN = 0.0 rt_domain(did)%LINKID = 0.0 - - rt_domain(did)%So = 0.01 + rt_domain(did)%So = 0.01 endif rt_domain(did)%restQSTRM = .true. END IF !IF/then for channel routing + rt_domain(did)%out_counts = 0 + rt_domain(did)%his_out_counts = 0 + rt_domain(did)%rst_counts = 1 - !DJG Allocate routing and disaggregation arrays - allocate(rt_domain(did)%qinflowbase (IXRT,JXRT) ) - allocate(rt_domain(did)%gw_strm_msk (IXRT,JXRT) ) - allocate(rt_domain(did)%gw_strm_msk_lind (IXRT,JXRT) ) +#ifdef HYDRO_D + write(6,*) "***** finish rt_allocate " +#endif -!!! allocate land surface grid variables - allocate( rt_domain(did)%SMC (IX,JX,NSOIL) ) - allocate( rt_domain(did)%SICE (IX,JX,NSOIL) ) -! allocate( rt_domain(did)%dist_lsm (ixrt,jxrt,9) ) -! allocate( rt_domain(did)%lat_lsm (ixrt,jxrt) ) -! allocate( rt_domain(did)%lon_lsm (ixrt,jxrt) ) - allocate( rt_domain(did)%dist_lsm (ix,jx,9) ) - allocate( rt_domain(did)%lat_lsm (ix,jx) ) - allocate( rt_domain(did)%lon_lsm (ix,jx) ) - -! allocate( rt_domain(did)%SICE (IX,JX,NSOIL) ) - allocate( rt_domain(did)%SMCMAX1 (IX,JX) ) - allocate( rt_domain(did)%STC (IX,JX,NSOIL) ) - allocate( rt_domain(did)%SH2OX(IX,JX,NSOIL) ) - allocate( rt_domain(did)%SMCWLT1 (IX,JX) ) - allocate( rt_domain(did)%SMCREF1 (IX,JX) ) - allocate( rt_domain(did)%VEGTYP (IX,JX) ) - allocate( rt_domain(did)%SOILTYP (IX,JX) ) - allocate( rt_domain(did)%GWSUBBASMSK (IX,JX) ) - allocate( rt_domain(did)%SLDPTH(NSOIL) ) - allocate( rt_domain(did)%SO8LD_D (IX,JX,3) ) - allocate( rt_domain(did)%SO8LD_Vmax (IX,JX) ) - allocate( rt_domain(did)%SFCHEADRT (IX,JX) ) - allocate( rt_domain(did)%INFXSRT (IX,JX) ) - allocate( rt_domain(did)%TERRAIN (IX,JX) ) - allocate( rt_domain(did)%LKSAT (IX,JX) ) - allocate( rt_domain(did)%SOLDRAIN (IX,JX) ) +end subroutine rt_allocate - rt_domain(did)%dist_lsm = 0.0 +subroutine getChanDim(did) +use module_namelist, only: nlst_rt +use module_RT_data, only: rt_domain +implicit none + +integer ixrt,jxrt, ix,jx, did, i,j +integer, allocatable,dimension(:,:) :: CH_NETLNK, GCH_NETLNK +!INTEGER, dimension( rt_domain(did)%ixrt,GCH_NETLNK(ixrt,jxrt)) :: GCH_NETLNK, CH_NETLNK - rt_domain(did)%qinflowbase = 0.0 - rt_domain(did)%gw_strm_msk = 0 - rt_domain(did)%SMC = 0.25 - rt_domain(did)%SICE = 0. -! rt_domain(did)%SMCMAX1 = 0.434 - rt_domain(did)%SMCMAX1 = 0.0 - rt_domain(did)%STC = 282.0 - rt_domain(did)%SH2OX = rt_domain(did)%SMC - rt_domain(did)%SMCWLT1 = 0.0 - rt_domain(did)%SMCREF1 = 0.0 - rt_domain(did)%VEGTYP = 0 - rt_domain(did)%GWSUBBASMSK = 0 - rt_domain(did)%SLDPTH = 0.0 - rt_domain(did)%SO8LD_D = 0.0 - rt_domain(did)%SO8LD_Vmax = 0.0 - rt_domain(did)%SFCHEADRT = 0.0 - rt_domain(did)%INFXSRT = 0.0 - rt_domain(did)%TERRAIN = 0.0 - rt_domain(did)%LKSAT = 0.0 - rt_domain(did)%SOLDRAIN = 0.0 - - rt_domain(did)%out_counts = 0 - rt_domain(did)%his_out_counts = 0 - rt_domain(did)%rst_counts = 1 +real :: Vmax -#ifdef HYDRO_D - write(6,*) "***** finish rt_allocate " -#endif +ix = rt_domain(did)%ix +jx = rt_domain(did)%jx +ixrt = rt_domain(did)%ixrt +jxrt = rt_domain(did)%jxrt - end subroutine rt_allocate +if(nlst_rt(did)%rtFlag .eq. 0) return - subroutine getChanDim(did) +if(nlst_rt(did)%channel_only .eq. 1 .or. & + nlst_rt(did)%channelBucket_only .eq. 1 ) then - - use module_namelist, only: nlst_rt - use module_RT_data, only: rt_domain - implicit none - - integer ixrt,jxrt, ix,jx, did, i,j - INTEGER, allocatable,dimension(:,:) :: CH_NETLNK, GCH_NETLNK -! INTEGER, dimension( rt_domain(did)%ixrt,GCH_NETLNK(ixrt,jxrt)) :: GCH_NETLNK, CH_NETLNK + !! Try to avoid some of the 2-d initialization. + !! if this is successful, it most likely will not work for gridded channel (opt 3) - real :: Vmax - - ix = rt_domain(did)%ix - jx = rt_domain(did)%jx - ixrt = rt_domain(did)%ixrt - jxrt = rt_domain(did)%jxrt + if(my_id .eq. io_id) then + call get_NLINKSL(rt_domain(did)%NLINKSL, nlst_rt(did)%channel_option, nlst_rt(did)%route_link_f) + end if + call mpp_land_bcast_int1(rt_domain(did)%NLINKSL) - if(nlst_rt(did)%rtFlag .eq. 0) return - allocate(CH_NETLNK(ixrt,jxrt)) - allocate(GCH_NETLNK(ixrt,jxrt)) + if(nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2) then + rt_domain(did)%GNLINKSL = rt_domain(did)%NLINKSL + + call ReachLS_ini(rt_domain(did)%GNLINKSL,rt_domain(did)%nlinksl, & + rt_domain(did)%linklsS, rt_domain(did)%linklsE ) + else + rt_domain(did)%GNLINKSL = 1 + rt_domain(did)%NLINKSL = 1 + endif + if(nlst_rt(did)%UDMP_OPT .eq. 1) & + call read_NSIMLAKES(rt_domain(did)%NLAKES,nlst_rt(did)%route_lake_f) + + call rt_allocate(did,rt_domain(did)%ix,rt_domain(did)%jx,& + rt_domain(did)%ixrt,rt_domain(did)%jxrt, nlst_rt(did)%nsoil,nlst_rt(did)%CHANRTSWCRT) + + return + +endif + + +allocate(CH_NETLNK(ixrt,jxrt)) +allocate(GCH_NETLNK(ixrt,jxrt)) - IF (nlst_rt(did)%CHANRTSWCRT.EQ.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2) THEN !IF/then for channel routing +if (nlst_rt(did)%CHANRTSWCRT.eq.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2) then !IF/then for channel routing #ifdef MPP_LAND - CALL MPP_READ_ROUTEDIM(did, rt_domain(did)%g_IXRT,rt_domain(did)%g_JXRT, & - GCH_NETLNK, rt_domain(did)%GNLINKS, & + call MPP_READ_ROUTEDIM(did, rt_domain(did)%g_IXRT,rt_domain(did)%g_JXRT, & + GCH_NETLNK, rt_domain(did)%GNLINKS, & #else - CALL READ_ROUTEDIM( & + call READ_ROUTEDIM( & #endif IXRT, JXRT, nlst_rt(did)%route_chan_f, nlst_rt(did)%route_link_f, & nlst_rt(did)%route_direction_f, & rt_domain(did)%NLINKS, & CH_NETLNK, nlst_rt(did)%channel_option, nlst_rt(did)%geo_finegrid_flnm, & - rt_domain(did)%NLINKSL, nlst_rt(did)%udmp_opt ) + rt_domain(did)%NLINKSL, nlst_rt(did)%udmp_opt , rt_domain(did)%nlakes) #ifndef MPP_LAND - call get_NLINKSL(rt_domain(did)%NLINKSL, nlst_rt(did)%channel_option, nlst_rt(did)%route_link_f) + call get_NLINKSL(rt_domain(did)%NLINKSL, nlst_rt(did)%channel_option, nlst_rt(did)%route_link_f) #endif - #ifdef HYDRO_D - write(6,*) "before rt_allocate after READ_ROUTEDIM" + write(6,*) "before rt_allocate after READ_ROUTEDIM" #endif + if(nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2) then - if(nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2) then - rt_domain(did)%GNLINKSL = rt_domain(did)%NLINKSL + rt_domain(did)%GNLINKSL = rt_domain(did)%NLINKSL -#ifdef MPP_LAND - - call ReachLS_ini(rt_domain(did)%GNLINKSL,rt_domain(did)%nlinksl, & - rt_domain(did)%linklsS, rt_domain(did)%linklsE ) +#ifdef MPP_LAND + call ReachLS_ini(rt_domain(did)%GNLINKSL,rt_domain(did)%nlinksl, & + rt_domain(did)%linklsS, rt_domain(did)%linklsE ) #else - rt_domain(did)%linklsS = 1 - rt_domain(did)%linklsE = rt_domain(did)%NLINKSL + rt_domain(did)%linklsS = 1 + rt_domain(did)%linklsE = rt_domain(did)%NLINKSL #endif - else - rt_domain(did)%GNLINKSL = 1 - rt_domain(did)%NLINKSL = 1 - endif + else + rt_domain(did)%GNLINKSL = 1 + rt_domain(did)%NLINKSL = 1 + endif #ifndef MPP_LAND - GCH_NETLNK = CH_NETLNK + GCH_NETLNK = CH_NETLNK #endif - endif +endif - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call read_NSIMLAKES(rt_domain(did)%NLAKES,nlst_rt(did)%route_lake_f) - endif +if(nlst_rt(did)%UDMP_OPT .eq. 1) then + call read_NSIMLAKES(rt_domain(did)%NLAKES,nlst_rt(did)%route_lake_f) +endif - call rt_allocate(did,rt_domain(did)%ix,rt_domain(did)%jx,& - rt_domain(did)%ixrt,rt_domain(did)%jxrt, nlst_rt(did)%nsoil,nlst_rt(did)%CHANRTSWCRT) +call rt_allocate(did,rt_domain(did)%ix,rt_domain(did)%jx,& + rt_domain(did)%ixrt,rt_domain(did)%jxrt, nlst_rt(did)%nsoil,nlst_rt(did)%CHANRTSWCRT) - IF (nlst_rt(did)%CHANRTSWCRT.EQ.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2) THEN !IF/then for channel routing - rt_domain(did)%CH_NETLNK = CH_NETLNK - rt_domain(did)%GCH_NETLNK = GCH_NETLNK - endif +if (nlst_rt(did)%CHANRTSWCRT.eq.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2) then !IF/then for channel routing + rt_domain(did)%CH_NETLNK = CH_NETLNK + rt_domain(did)%GCH_NETLNK = GCH_NETLNK +endif - if(allocated(CH_NETLNK)) deallocate(CH_NETLNK) - if(allocated(GCH_NETLNK)) deallocate(GCH_NETLNK) +if(allocated(CH_NETLNK)) deallocate(CH_NETLNK) +if(allocated(GCH_NETLNK)) deallocate(GCH_NETLNK) - end subroutine getChanDim +end subroutine getChanDim !=================================================================================================== subroutine LandRT_ini(did) @@ -570,102 +642,151 @@ subroutine LandRT_ini(did) nlst_rt(did)%OVRTSWCRT .eq.1 .or. & nlst_rt(did)%GWBASESWCRT .ne. 0) then + if(nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + #ifdef HYDRO_D - print *, "Terrain routing initialization..." + print *, "Terrain routing initialization..." #endif - call READ_ROUTING_seq ( & - rt_domain(did)%IXRT,rt_domain(did)%JXRT,rt_domain(did)%ELRT,rt_domain(did)%CH_NETRT, & - rt_domain(did)%CH_LNKRT, & - rt_domain(did)%LKSATFAC,trim(nlst_rt(did)%route_topo_f),& - nlst_rt(did)%route_chan_f,nlst_rt(did)%geo_finegrid_flnm , & - rt_domain(did)%OVROUGHRTFAC,rt_domain(did)%RETDEPRTFAC, & - nlst_rt(did)%channel_option, nlst_rt(did)%udmp_opt) + call READ_ROUTING_seq ( & + rt_domain(did)%IXRT,rt_domain(did)%JXRT,rt_domain(did)%ELRT,rt_domain(did)%CH_NETRT, & + rt_domain(did)%CH_LNKRT, & + rt_domain(did)%LKSATFAC,trim(nlst_rt(did)%route_topo_f),& + nlst_rt(did)%route_chan_f,nlst_rt(did)%geo_finegrid_flnm , & + rt_domain(did)%OVROUGHRTFAC,rt_domain(did)%RETDEPRTFAC, & + nlst_rt(did)%channel_option, nlst_rt(did)%udmp_opt) + !yw CALL READ_ROUTING_old(rt_domain(did)%IXRT,rt_domain(did)%JXRT,rt_domain(did)%ELRT,rt_domain(did)%CH_NETRT, & - if (nlst_rt(did)%CHANRTSWCRT.eq.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2) then !IF/then for channel routing + if (nlst_rt(did)%CHANRTSWCRT.eq.1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2) then !IF/then for channel routing #ifdef MPP_LAND - CALL MPP_READ_CHROUTING_new( & + call MPP_READ_CHROUTING_new( & #else - CALL READ_CHROUTING1( & + call READ_CHROUTING1( & !! NOT TESTED #endif - rt_domain(did)%IXRT,rt_domain(did)%JXRT,rt_domain(did)%ELRT,rt_domain(did)%CH_NETRT, & - rt_domain(did)%CH_LNKRT, rt_domain(did)%LAKE_MSKRT, & - rt_domain(did)%FROM_NODE, rt_domain(did)%TO_NODE, rt_domain(did)%TYPEL, rt_domain(did)%ORDER, & - rt_domain(did)%MAXORDER,rt_domain(did)%NLINKS, & - rt_domain(did)%NLAKES, rt_domain(did)%MUSK, rt_domain(did)%MUSX, rt_domain(did)%QLINK,& - rt_domain(did)%CHANLEN, rt_domain(did)%MannN, rt_domain(did)%So, rt_domain(did)%ChSSlp, rt_domain(did)%Bw, & - rt_domain(did)%LAKEIDA, & - rt_domain(did)%HRZAREA, rt_domain(did)%LAKEMAXH, rt_domain(did)%WEIRH, rt_domain(did)%WEIRC, & - rt_domain(did)%WEIRL, rt_domain(did)%ORIFICEC, & - rt_domain(did)%ORIFICEA, rt_domain(did)%ORIFICEE, rt_domain(did)%LATLAKE, rt_domain(did)%LONLAKE, & - rt_domain(did)%ELEVLAKE, rt_domain(did)%LAKEIDM, rt_domain(did)%LAKEIDX, & - nlst_rt(did)%route_link_f,nlst_rt(did)%route_lake_f, & - nlst_rt(did)%route_direction_f, nlst_rt(did)%route_order_f, & - nlst_rt(did)%CHANRTSWCRT,rt_domain(did)%dist, rt_domain(did)%ZELEV, rt_domain(did)%LAKENODE, rt_domain(did)%CH_NETLNK, & - rt_domain(did)%CHANXI, rt_domain(did)%CHANYJ, & - rt_domain(did)%CHLAT, rt_domain(did)%CHLON, nlst_rt(did)%channel_option,& - rt_domain(did)%latval, rt_domain(did)%lonval,& - rt_domain(did)%STRMFRXSTPTS,nlst_rt(did)%geo_finegrid_flnm, rt_domain(did)%NLINKSL, rt_domain(did)%LINKID, rt_domain(did)%GNLINKSL & - ,nlst_rt(did)%UDMP_OPT & - + rt_domain(did)%IXRT, rt_domain(did)%JXRT, & + rt_domain(did)%ELRT, rt_domain(did)%CH_NETRT, & + rt_domain(did)%CH_LNKRT, rt_domain(did)%LAKE_MSKRT, & + rt_domain(did)%FROM_NODE, rt_domain(did)%TO_NODE, & + rt_domain(did)%TYPEL, rt_domain(did)%ORDER, & + rt_domain(did)%MAXORDER, rt_domain(did)%NLINKS, & + rt_domain(did)%NLAKES, rt_domain(did)%CHANLEN, & + rt_domain(did)%MannN, rt_domain(did)%So, & + rt_domain(did)%ChSSlp, rt_domain(did)%Bw, & + rt_domain(did)%HRZAREA, rt_domain(did)%LAKEMAXH, & + rt_domain(did)%WEIRH, rt_domain(did)%WEIRC, & + rt_domain(did)%WEIRL, rt_domain(did)%ORIFICEC, & + rt_domain(did)%ORIFICEA, rt_domain(did)%ORIFICEE, & + rt_domain(did)%LATLAKE, rt_domain(did)%LONLAKE, & + rt_domain(did)%ELEVLAKE, rt_domain(did)%dist, & + rt_domain(did)%ZELEV, rt_domain(did)%LAKENODE, & + rt_domain(did)%CH_NETLNK, rt_domain(did)%CHANXI, & + rt_domain(did)%CHANYJ, rt_domain(did)%CHLAT, & + rt_domain(did)%CHLON, nlst_rt(did)%channel_option, & + rt_domain(did)%latval, rt_domain(did)%lonval, & + rt_domain(did)%STRMFRXSTPTS, nlst_rt(did)%geo_finegrid_flnm, & + nlst_rt(did)%route_lake_f, rt_domain(did)%LAKEIDM,nlst_rt(did)%UDMP_OPT & !! no comma #ifdef MPP_LAND - ,rt_domain(did)%g_IXRT,rt_domain(did)%g_JXRT & - ,rt_domain(did)%gnlinks,rt_domain(did)%GCH_NETLNK, rt_domain(did)%map_l2g & - ,rt_domain(did)%link_location, rt_domain(did)%yw_mpp_nlinks,rt_domain(did)%lake_index,rt_domain(did)%nlinks_index & + ,rt_domain(did)%g_IXRT, rt_domain(did)%g_JXRT & + ,rt_domain(did)%gnlinks, rt_domain(did)%GCH_NETLNK & + ,rt_domain(did)%map_l2g, rt_domain(did)%link_location, & + rt_domain(did)%yw_mpp_nlinks,rt_domain(did)%lake_index, & + rt_domain(did)%nlinks_index & #endif - ,rt_domain(did)%gages, rt_domain(did)%gageMiss ) + ) + + end if !! CHANRTSWCRT 1 or 2 -!ADCHANGE: Add lake reach output + end if !! neither channel_only nor channelBucket_only + + + if((nlst_rt(did)%CHANRTSWCRT .eq. 1 .or. nlst_rt(did)%CHANRTSWCRT .eq. 2) .and. & + (nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2) ) then + call read_routelink( & + rt_domain(did)%TO_NODE, rt_domain(did)%TYPEL, & + rt_domain(did)%ORDER, rt_domain(did)%MAXORDER, & + rt_domain(did)%NLAKES, rt_domain(did)%MUSK, & + rt_domain(did)%MUSX, & + rt_domain(did)%QLINK, rt_domain(did)%CHANLEN, & + rt_domain(did)%MannN, rt_domain(did)%So, & + rt_domain(did)%ChSSlp, rt_domain(did)%Bw, & + rt_domain(did)%LAKEIDA, rt_domain(did)%HRZAREA, & + rt_domain(did)%LAKEMAXH, rt_domain(did)%WEIRH, & + rt_domain(did)%WEIRC, rt_domain(did)%WEIRL, & + rt_domain(did)%ORIFICEC, rt_domain(did)%ORIFICEA, & + rt_domain(did)%ORIFICEE, rt_domain(did)%LATLAKE, & + rt_domain(did)%LONLAKE, rt_domain(did)%ELEVLAKE, & + rt_domain(did)%LAKEIDM, rt_domain(did)%LAKEIDX, & + nlst_rt(did)%route_link_f, nlst_rt(did)%route_lake_f, & + rt_domain(did)%ZELEV, rt_domain(did)%CHLAT, & + rt_domain(did)%CHLON, rt_domain(did)%NLINKSL, & + rt_domain(did)%LINKID, rt_domain(did)%GNLINKSL, & + rt_domain(did)%NLINKS, rt_domain(did)%gages, & + rt_domain(did)%gageMiss ) + end if + + !ADCHANGE: Add lake reach output #ifdef HYDRO_D - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - call output_lake_types( rt_domain(did)%GNLINKSL, rt_domain(did)%LINKID, rt_domain(did)%TYPEL ) - endif +if(nlst_rt(did)%UDMP_OPT .eq. 1) then + call output_lake_types( rt_domain(did)%GNLINKSL, rt_domain(did)%LINKID, rt_domain(did)%TYPEL ) +endif #endif #ifdef OUTPUT_CHAN_CONN #ifdef MPP_LAND - connCalcTimeEnd = MPI_Wtime() + connCalcTimeEnd = MPI_Wtime() #else - call cpu_time(connCalcTimeEnd) + call cpu_time(connCalcTimeEnd) #endif - if (nlst_rt(did)%channel_option .eq. 3) then - call output_chan_connectivity( & - rt_domain(did)%CHLAT, & !! Channel grid lat - rt_domain(did)%CHLON, & !! Channel grid lat - rt_domain(did)%CHANLEN, & !! The distance between channel grid centers in m. - rt_domain(did)%FROM_NODE, & !! Index of a given cell and ... - rt_domain(did)%TO_NODE, & !! ... the index which it flows to. - rt_domain(did)%CHANXI, & !! Index on fine/routing - rt_domain(did)%CHANYJ, & !! grid of grid cells. - rt_domain(did)%TYPEL, & !! Link type - rt_domain(did)%LAKENODE & !! Lake indexing - ) - end if - - !if(my_id .eq. io_id) & - print '("Time to calculate channel connectivity= ",f6.3," seconds.")', & - connCalcTimeEnd-connCalcTimeStart - call exit(17) !! bail if you're just calculating output connectivity. + if ((nlst_rt(did)%CHANRTSWCRT .eq. 1) .and. (nlst_rt(did)%channel_option .eq. 3)) then + call output_chan_connectivity( & + rt_domain(did)%CHLAT, & !! Channel grid lat + rt_domain(did)%CHLON, & !! Channel grid lat + rt_domain(did)%CHANLEN, & !! The distance between channel grid centers in m. + rt_domain(did)%FROM_NODE, & !! Index of a given cell and ... + rt_domain(did)%TO_NODE, & !! ... the index which it flows to. + rt_domain(did)%CHANXI, & !! Index on fine/routing + rt_domain(did)%CHANYJ, & !! grid of grid cells. + rt_domain(did)%TYPEL, & !! Link type + rt_domain(did)%LAKENODE & !! Lake indexing + ) + end if + + !if(my_id .eq. io_id) & + print '("Time to calculate channel connectivity= ",f6.3," seconds.")', & + connCalcTimeEnd-connCalcTimeStart + call exit(17) !! bail if you're just calculating output connectivity. #endif ! end OUTPUT_CHAN_CONN - if(nlst_rt(did)%UDMP_OPT .eq. 1) then - ! get NHDPLUS mapping function. -! call UDMP_ini(rt_domain(did)%GNLINKSL,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%CH_LNKRT , & - call UDMP_ini(rt_domain(did)%GNLINKSL,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%CH_NETRT , & - nlst_rt(did)%OVRTSWCRT, nlst_rt(did)%SUBRTSWCRT, rt_domain(did)%dist(:,:,9) ) + ! The UDMP_ini effectively sets the nhd gw bucket area (that field is not used from the file) + ! this may be the only dependence of the nhd_routing on the UDMAPING in channelBucket_only + if(nlst_rt(did)%channel_only .eq. 0) then + + if(nlst_rt(did)%UDMP_OPT .eq. 1) then + ! get NHDPLUS mapping function. + ! call UDMP_ini(rt_domain(did)%GNLINKSL,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%CH_LNKRT , & + call UDMP_ini( rt_domain(did)%GNLINKSL, rt_domain(did)%ixrt, & + rt_domain(did)%jxrt, rt_domain(did)%CH_NETRT , & + nlst_rt(did)%OVRTSWCRT, nlst_rt(did)%SUBRTSWCRT, & + rt_domain(did)%dist(:,:,9) ) #ifdef HYDRO_D - write(6,*) "after UDMP_ini " - call flush(6) + write(6,*) "after UDMP_ini " + call flush(6) #endif - endif + endif + + end if ! end not channel_only + - if (nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2) then + if ( (nlst_rt(did)%CHANRTSWCRT .eq. 1) .and. & + (nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2) ) then #ifdef MPP_LAND + if(nlst_rt(did)%UDMP_OPT .eq. 1) then ! NHDPLUS rt_domain(did)%LNLINKSL = LNUMRSL @@ -673,7 +794,9 @@ subroutine LandRT_ini(did) do k = 1,LNUMRSL rt_domain(did)%LLINKID(k) = LUDRSL(k)%myid end do + else + allocate (buf(rt_domain(did)%GNLINKS) ) buf = -99 do j = 1, rt_domain(did)%jxrt @@ -710,9 +833,9 @@ subroutine LandRT_ini(did) endif end do - if(allocated(buf)) deallocate(buf) + if(allocated(buf)) deallocate(buf) - endif ! end if block for UDMP_OPT + endif ! end if block for UDMP_OPT do k = 1, rt_domain(did)%LNLINKSL do j = 1, rt_domain(did)%jxrt @@ -753,316 +876,324 @@ subroutine LandRT_ini(did) !!$ end if !!$ end do - endif ! end of channel option if block + endif ! end of if (nlst_rt(did)%channel_option .eq. 1 .or. nlst_rt(did)%channel_option .eq. 2) + +end if ! end of if (nlst_rt(did)%SUBRTSWCRT .eq.1 .or. & nlst_rt(did)%OVRTSWCRT .eq.1 .or. & +! nlst_rt(did)%GWBASESWCRT .ne. 0) then - endif - END IF !yw allocate(tmp_int(rt_domain(did)%GNLINKS)) !yw allocate(tmp_real(rt_domain(did)%GNLINKS)) +if(nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then -!DJG Temporary hardwire of RETDEPRT,RETDEP_CHAN -!DJG will later make this a function of SOLTYP and VEGTYP -! OVROUGHRT(i,j) = 0.01 - -rt_domain(did)%RETDEPRT = 0.001 ! units (mm) -rt_domain(did)%RETDEP_CHAN = 0.001 - - -!DJG Need to insert call for acquiring routing fields here... -!DJG include as a subroutine in module module_Noahlsm_wrfcode_input.F -!DJG Calculate terrain slopes 'SOXRT,SOYRT' from subgrid elevation 'ELRT' - - -rt_domain(did)%so8rt = -999 -Vmax = 0.0 -do j=2,rt_domain(did)%JXRT-1 - do i=2,rt_domain(did)%IXRT-1 - rt_domain(did)%SOXRT(i,j)=(rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j))/rt_domain(did)%dist(i,j,3) - rt_domain(did)%SOYRT(i,j)=(rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i,j+1))/rt_domain(did)%dist(i,j,1) - !DJG Introduce reduction in retention depth as a linear function of terrain slope - if (nlst_rt(did)%RT_OPTION.eq.2) then - if (rt_domain(did)%SOXRT(i,j).gt.rt_domain(did)%SOYRT(i,j)) then - Vmax=rt_domain(did)%SOXRT(i,j) - else - Vmax=rt_domain(did)%SOYRT(i,j) + !DJG Temporary hardwire of RETDEPRT,RETDEP_CHAN + !DJG will later make this a function of SOLTYP and VEGTYP + ! OVROUGHRT(i,j) = 0.01 + + rt_domain(did)%RETDEPRT = 0.001 ! units (mm) + rt_domain(did)%RETDEP_CHAN = 0.001 + + + !DJG Need to insert call for acquiring routing fields here... + !DJG include as a subroutine in module module_Noahlsm_wrfcode_input.F + !DJG Calculate terrain slopes 'SOXRT,SOYRT' from subgrid elevation 'ELRT' + + rt_domain(did)%so8rt = -999 + Vmax = 0.0 + do j=2,rt_domain(did)%JXRT-1 + do i=2,rt_domain(did)%IXRT-1 + rt_domain(did)%SOXRT(i,j)=(rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j))/rt_domain(did)%dist(i,j,3) + rt_domain(did)%SOYRT(i,j)=(rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i,j+1))/rt_domain(did)%dist(i,j,1) + !DJG Introduce reduction in retention depth as a linear function of terrain slope + if (nlst_rt(did)%RT_OPTION.eq.2) then + if (rt_domain(did)%SOXRT(i,j).gt.rt_domain(did)%SOYRT(i,j)) then + Vmax=rt_domain(did)%SOXRT(i,j) + else + Vmax=rt_domain(did)%SOYRT(i,j) + end if + + if (Vmax.gt.0.1) then + rt_domain(did)%RETDEPRT(i,j)=0. + else + rt_domain(did)%RETDEPFRAC=Vmax/0.1 + rt_domain(did)%RETDEPRT(i,j)=rt_domain(did)%RETDEPRT(i,j)*(1.-rt_domain(did)%RETDEPFRAC) + if (rt_domain(did)%RETDEPRT(i,j).lt.0.) rt_domain(did)%RETDEPRT(i,j)=0. + end if end if - if (Vmax.gt.0.1) then - rt_domain(did)%RETDEPRT(i,j)=0. - else - rt_domain(did)%RETDEPFRAC=Vmax/0.1 - rt_domain(did)%RETDEPRT(i,j)=rt_domain(did)%RETDEPRT(i,j)*(1.-rt_domain(did)%RETDEPFRAC) - if (rt_domain(did)%RETDEPRT(i,j).lt.0.) rt_domain(did)%RETDEPRT(i,j)=0. - end if - end if - - rt_domain(did)%SO8RT(i,j,1) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i,j+1))/rt_domain(did)%dist(i,j,1) - rt_domain(did)%SO8RT_D(i,j,1) = i - rt_domain(did)%SO8RT_D(i,j,2) = j + 1 - rt_domain(did)%SO8RT_D(i,j,3) = 1 - Vmax = rt_domain(did)%SO8RT(i,j,1) - - rt_domain(did)%SO8RT(i,j,2) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j+1))/rt_domain(did)%dist(i,j,2) - if(rt_domain(did)%SO8RT(i,j,2) .gt. Vmax ) then - rt_domain(did)%SO8RT_D(i,j,1) = i + 1 - rt_domain(did)%SO8RT_D(i,j,2) = j + 1 - rt_domain(did)%SO8RT_D(i,j,3) = 2 - Vmax = rt_domain(did)%SO8RT(i,j,2) - end if - - rt_domain(did)%SO8RT(i,j,3) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j))/rt_domain(did)%dist(i,j,3) - if(rt_domain(did)%SO8RT(i,j,3) .gt. Vmax ) then - rt_domain(did)%SO8RT_D(i,j,1) = i + 1 - rt_domain(did)%SO8RT_D(i,j,2) = j - rt_domain(did)%SO8RT_D(i,j,3) = 3 - Vmax = rt_domain(did)%SO8RT(i,j,3) - end if - - rt_domain(did)%SO8RT(i,j,4) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j-1))/rt_domain(did)%dist(i,j,4) - if(rt_domain(did)%SO8RT(i,j,4) .gt. Vmax ) then - rt_domain(did)%SO8RT_D(i,j,1) = i + 1 - rt_domain(did)%SO8RT_D(i,j,2) = j - 1 - rt_domain(did)%SO8RT_D(i,j,3) = 4 - Vmax = rt_domain(did)%SO8RT(i,j,4) - end if - - rt_domain(did)%SO8RT(i,j,5) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i,j-1))/rt_domain(did)%dist(i,j,5) - if(rt_domain(did)%SO8RT(i,j,5) .gt. Vmax ) then - rt_domain(did)%SO8RT_D(i,j,1) = i - rt_domain(did)%SO8RT_D(i,j,2) = j - 1 - rt_domain(did)%SO8RT_D(i,j,3) = 5 - Vmax = rt_domain(did)%SO8RT(i,j,5) - end if - - rt_domain(did)%SO8RT(i,j,6) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i-1,j-1))/rt_domain(did)%dist(i,j,6) - if(rt_domain(did)%SO8RT(i,j,6) .gt. Vmax ) then - rt_domain(did)%SO8RT_D(i,j,1) = i - 1 - rt_domain(did)%SO8RT_D(i,j,2) = j - 1 - rt_domain(did)%SO8RT_D(i,j,3) = 6 - Vmax = rt_domain(did)%SO8RT(i,j,6) - end if - - rt_domain(did)%SO8RT(i,j,7) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i-1,j))/rt_domain(did)%dist(i,j,7) - if(rt_domain(did)%SO8RT(i,j,7) .gt. Vmax ) then - rt_domain(did)%SO8RT_D(i,j,1) = i - 1 - rt_domain(did)%SO8RT_D(i,j,2) = j - rt_domain(did)%SO8RT_D(i,j,3) = 7 - Vmax = rt_domain(did)%SO8RT(i,j,7) - end if - - rt_domain(did)%SO8RT(i,j,8) = & - (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i-1,j+1))/rt_domain(did)%dist(i,j,8) - if(rt_domain(did)%SO8RT(i,j,8) .gt. Vmax ) then - rt_domain(did)%SO8RT_D(i,j,1) = i - 1 + rt_domain(did)%SO8RT(i,j,1) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i,j+1))/rt_domain(did)%dist(i,j,1) + rt_domain(did)%SO8RT_D(i,j,1) = i rt_domain(did)%SO8RT_D(i,j,2) = j + 1 - rt_domain(did)%SO8RT_D(i,j,3) = 8 - Vmax = rt_domain(did)%SO8RT(i,j,8) - end if - - !DJG Introduce reduction in retention depth as a linear function of terrain slope - if (nlst_rt(did)%RT_OPTION.eq.1) then - if (Vmax.gt.0.75) then - rt_domain(did)%RETDEPRT(i,j)=0. - else - rt_domain(did)%RETDEPFRAC=Vmax/0.75 - rt_domain(did)%RETDEPRT(i,j)=rt_domain(did)%RETDEPRT(i,j)*(1.-rt_domain(did)%RETDEPFRAC) - if (rt_domain(did)%RETDEPRT(i,j).lt.0.) rt_domain(did)%RETDEPRT(i,j)=0. + rt_domain(did)%SO8RT_D(i,j,3) = 1 + Vmax = rt_domain(did)%SO8RT(i,j,1) + + rt_domain(did)%SO8RT(i,j,2) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j+1))/rt_domain(did)%dist(i,j,2) + if(rt_domain(did)%SO8RT(i,j,2) .gt. Vmax ) then + rt_domain(did)%SO8RT_D(i,j,1) = i + 1 + rt_domain(did)%SO8RT_D(i,j,2) = j + 1 + rt_domain(did)%SO8RT_D(i,j,3) = 2 + Vmax = rt_domain(did)%SO8RT(i,j,2) end if - end if - - + + rt_domain(did)%SO8RT(i,j,3) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j))/rt_domain(did)%dist(i,j,3) + if(rt_domain(did)%SO8RT(i,j,3) .gt. Vmax ) then + rt_domain(did)%SO8RT_D(i,j,1) = i + 1 + rt_domain(did)%SO8RT_D(i,j,2) = j + rt_domain(did)%SO8RT_D(i,j,3) = 3 + Vmax = rt_domain(did)%SO8RT(i,j,3) + end if + + rt_domain(did)%SO8RT(i,j,4) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i+1,j-1))/rt_domain(did)%dist(i,j,4) + if(rt_domain(did)%SO8RT(i,j,4) .gt. Vmax ) then + rt_domain(did)%SO8RT_D(i,j,1) = i + 1 + rt_domain(did)%SO8RT_D(i,j,2) = j - 1 + rt_domain(did)%SO8RT_D(i,j,3) = 4 + Vmax = rt_domain(did)%SO8RT(i,j,4) + end if + + rt_domain(did)%SO8RT(i,j,5) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i,j-1))/rt_domain(did)%dist(i,j,5) + if(rt_domain(did)%SO8RT(i,j,5) .gt. Vmax ) then + rt_domain(did)%SO8RT_D(i,j,1) = i + rt_domain(did)%SO8RT_D(i,j,2) = j - 1 + rt_domain(did)%SO8RT_D(i,j,3) = 5 + Vmax = rt_domain(did)%SO8RT(i,j,5) + end if + + rt_domain(did)%SO8RT(i,j,6) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i-1,j-1))/rt_domain(did)%dist(i,j,6) + if(rt_domain(did)%SO8RT(i,j,6) .gt. Vmax ) then + rt_domain(did)%SO8RT_D(i,j,1) = i - 1 + rt_domain(did)%SO8RT_D(i,j,2) = j - 1 + rt_domain(did)%SO8RT_D(i,j,3) = 6 + Vmax = rt_domain(did)%SO8RT(i,j,6) + end if + + rt_domain(did)%SO8RT(i,j,7) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i-1,j))/rt_domain(did)%dist(i,j,7) + if(rt_domain(did)%SO8RT(i,j,7) .gt. Vmax ) then + rt_domain(did)%SO8RT_D(i,j,1) = i - 1 + rt_domain(did)%SO8RT_D(i,j,2) = j + rt_domain(did)%SO8RT_D(i,j,3) = 7 + Vmax = rt_domain(did)%SO8RT(i,j,7) + end if + + rt_domain(did)%SO8RT(i,j,8) = & + (rt_domain(did)%ELRT(i,j)-rt_domain(did)%ELRT(i-1,j+1))/rt_domain(did)%dist(i,j,8) + if(rt_domain(did)%SO8RT(i,j,8) .gt. Vmax ) then + rt_domain(did)%SO8RT_D(i,j,1) = i - 1 + rt_domain(did)%SO8RT_D(i,j,2) = j + 1 + rt_domain(did)%SO8RT_D(i,j,3) = 8 + Vmax = rt_domain(did)%SO8RT(i,j,8) + end if + + !DJG Introduce reduction in retention depth as a linear function of terrain slope + if (nlst_rt(did)%RT_OPTION.eq.1) then + if (Vmax.gt.0.75) then + rt_domain(did)%RETDEPRT(i,j)=0. + else + rt_domain(did)%RETDEPFRAC=Vmax/0.75 + rt_domain(did)%RETDEPRT(i,j)=rt_domain(did)%RETDEPRT(i,j)*(1.-rt_domain(did)%RETDEPFRAC) + if (rt_domain(did)%RETDEPRT(i,j).lt.0.) rt_domain(did)%RETDEPRT(i,j)=0. + end if + end if + + + end do end do -end do - - -!Apply calibration scaling factors to sfc roughness and retention depth here... -rt_domain(did)%RETDEPRT = rt_domain(did)%RETDEPRT * rt_domain(did)%RETDEPRTFAC -rt_domain(did)%OVROUGHRT = rt_domain(did)%OVROUGHRT * rt_domain(did)%OVROUGHRTFAC - - -! calculate the slope for boundary + + + !Apply calibration scaling factors to sfc roughness and retention depth here... + rt_domain(did)%RETDEPRT = rt_domain(did)%RETDEPRT * rt_domain(did)%RETDEPRTFAC + rt_domain(did)%OVROUGHRT = rt_domain(did)%OVROUGHRT * rt_domain(did)%OVROUGHRTFAC + + ! AD new limit for RETDEPRT at 1mm, assuming larger values of RETDEPRTFAC possible + rt_domain(did)%RETDEPRT = min(rt_domain(did)%RETDEPRT, 1.0) + + ! calculate the slope for boundary #ifdef MPP_LAND -if(right_id .lt. 0) rt_domain(did)%SOXRT(rt_domain(did)%IXRT,:)= & - rt_domain(did)%SOXRT(rt_domain(did)%IXRT-1,:) -if(left_id .lt. 0) rt_domain(did)%SOXRT(1,:)=rt_domain(did)%SOXRT(2,:) -if(up_id .lt. 0) rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT)= & - rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT-1) -if(down_id .lt. 0) rt_domain(did)%SOYRT(:,1)=rt_domain(did)%SOYRT(:,2) + if(right_id .lt. 0) rt_domain(did)%SOXRT(rt_domain(did)%IXRT,:)= & + rt_domain(did)%SOXRT(rt_domain(did)%IXRT-1,:) + if(left_id .lt. 0) rt_domain(did)%SOXRT(1,:)=rt_domain(did)%SOXRT(2,:) + if(up_id .lt. 0) rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT)= & + rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT-1) + if(down_id .lt. 0) rt_domain(did)%SOYRT(:,1)=rt_domain(did)%SOYRT(:,2) #else -rt_domain(did)%SOXRT(rt_domain(did)%IXRT,:)=rt_domain(did)%SOXRT(rt_domain(did)%IXRT-1,:) -rt_domain(did)%SOXRT(1,:)=rt_domain(did)%SOXRT(2,:) -rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT)=rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT-1) -rt_domain(did)%SOYRT(:,1)=rt_domain(did)%SOYRT(:,2) + rt_domain(did)%SOXRT(rt_domain(did)%IXRT,:)=rt_domain(did)%SOXRT(rt_domain(did)%IXRT-1,:) + rt_domain(did)%SOXRT(1,:)=rt_domain(did)%SOXRT(2,:) + rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT)=rt_domain(did)%SOYRT(:,rt_domain(did)%JXRT-1) + rt_domain(did)%SOYRT(:,1)=rt_domain(did)%SOYRT(:,2) #endif - + #ifdef MPP_LAND -! communicate the value to -call MPP_LAND_COM_REAL(rt_domain(did)%RETDEPRT,rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) -call MPP_LAND_COM_REAL(rt_domain(did)%SOXRT,rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) -call MPP_LAND_COM_REAL(rt_domain(did)%SOYRT,rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) -do i = 1, 8 - call MPP_LAND_COM_REAL(rt_domain(did)%SO8RT(:,:,i),rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) -end do -do i = 1, 3 - call MPP_LAND_COM_INTEGER(rt_domain(did)%SO8RT_D(:,:,i),rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) -end do + ! communicate the value to + call MPP_LAND_COM_REAL(rt_domain(did)%RETDEPRT,rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) + call MPP_LAND_COM_REAL(rt_domain(did)%SOXRT,rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) + call MPP_LAND_COM_REAL(rt_domain(did)%SOYRT,rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) + do i = 1, 8 + call MPP_LAND_COM_REAL(rt_domain(did)%SO8RT(:,:,i),rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) + end do + do i = 1, 3 + call MPP_LAND_COM_INTEGER(rt_domain(did)%SO8RT_D(:,:,i),rt_domain(did)%IXRT,rt_domain(did)%JXRT,99) + end do #endif - - + +end if ! end of neither channel_only nor channelBucket_only + if(nlst_rt(did)%UDMP_OPT .eq. 1) then - allocate (rt_domain(did)%qout_gwsubbas (rt_domain(did)%nlinksL)) - rt_domain(did)%qout_gwsubbas = 0 - ! use different baseflow for NHDPlus - IF (nlst_rt(did)%GWBASESWCRT.GE.1) THEN - rt_domain(did)%numbasns = rt_domain(did)%NLINKSL - RT_DOMAIN(did)%gnumbasns = rt_domain(did)%gNLINKSL - - allocate (rt_domain(did)%z_gwsubbas (rt_domain(did)%numbasns )) - allocate (rt_domain(did)%nhdBuckMask(rt_domain(did)%numbasns )) ! default is -999 - - allocate (rt_domain(did)%qin_gwsubbas (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%gwbas_pix_ct (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%ct2_bas (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%bas_pcp (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%gw_buck_coeff (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%bas_id (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%gw_buck_exp(rt_domain(did)%numbasns)) - allocate (rt_domain(did)%z_max (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%basns_area (rt_domain(did)%numbasns)) - - rt_domain(did)%qin_gwsubbas = 0 - rt_domain(did)%z_gwsubbas = 0 - rt_domain(did)%gwbas_pix_ct = 0 - rt_domain(did)%bas_pcp = 0 - - rt_domain(did)%gw_buck_coeff = 0.04 - rt_domain(did)%gw_buck_exp = 0.2 - rt_domain(did)%z_max = 0.1 -!Temporary hardwire... + allocate (rt_domain(did)%qout_gwsubbas (rt_domain(did)%nlinksL)) + rt_domain(did)%qout_gwsubbas = 0 + ! use different baseflow for NHDPlus + if (nlst_rt(did)%GWBASESWCRT.ge.1) then + rt_domain(did)%numbasns = rt_domain(did)%NLINKSL + RT_DOMAIN(did)%gnumbasns = rt_domain(did)%gNLINKSL + + allocate (rt_domain(did)%z_gwsubbas (rt_domain(did)%numbasns )) + allocate (rt_domain(did)%nhdBuckMask(rt_domain(did)%numbasns )) ! default is -999 + + allocate (rt_domain(did)%qin_gwsubbas (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%gwbas_pix_ct (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%ct2_bas (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%bas_pcp (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%gw_buck_coeff (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%bas_id (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%gw_buck_exp(rt_domain(did)%numbasns)) + allocate (rt_domain(did)%z_max (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%basns_area (rt_domain(did)%numbasns)) + + rt_domain(did)%qin_gwsubbas = 0 + rt_domain(did)%z_gwsubbas = 0 + rt_domain(did)%gwbas_pix_ct = 0 + rt_domain(did)%bas_pcp = 0 + + rt_domain(did)%gw_buck_coeff = 0.04 + rt_domain(did)%gw_buck_exp = 0.2 + rt_domain(did)%z_max = 0.1 + + !Temporary hardwire... rt_domain(did)%z_gwsubbas = 0.05 ! This gets updated with spun-up GW level in GWBUCKPARM.TBL + + call readBucket_nhd(trim(nlst_rt(did)%GWBUCKPARM_file), rt_domain(did)%numbasns, & + rt_domain(did)%gw_buck_coeff, rt_domain(did)%gw_buck_exp, & + rt_domain(did)%z_max, rt_domain(did)%z_gwsubbas, rt_domain(did)%LINKID(1:rt_domain(did)%numbasns), & + rt_domain(did)%nhdBuckMask ) + !ADCHANGE: Added in read for z_init from GWBUCKPARM. Units coming in are mm but z_gwsubbas is in m + !for UDMP=1 so we convert units. + rt_domain(did)%z_gwsubbas = rt_domain(did)%z_gwsubbas/1000. - call readBucket_nhd(trim(nlst_rt(did)%GWBUCKPARM_file), rt_domain(did)%numbasns, & - rt_domain(did)%gw_buck_coeff, rt_domain(did)%gw_buck_exp, & - rt_domain(did)%z_max, rt_domain(did)%LINKID(1:rt_domain(did)%numbasns), & - rt_domain(did)%nhdBuckMask ) #ifdef HYDRO_D - write(6,*) "finish readBucket_nhd " - call flush(6) + write(6,*) "finish readBucket_nhd " + call flush(6) #endif - endif + endif + else -!--------------------------------------------------------------------- -!DJG If GW/Baseflow activated...Read in req'd fields... -!---------------------------------------------------------------------- -if (nlst_rt(did)%GWBASESWCRT.ge.1) then - if (nlst_rt(did)%GWBASESWCRT.eq.1.or.nlst_rt(did)%GWBASESWCRT.eq.2) then + + !--------------------------------------------------------------------- + !DJG If GW/Baseflow activated...Read in req'd fields... + !---------------------------------------------------------------------- + if (nlst_rt(did)%GWBASESWCRT.ge.1) then + if (nlst_rt(did)%GWBASESWCRT.eq.1.or.nlst_rt(did)%GWBASESWCRT.eq.2) then #ifdef HYDRO_D - print *, "new Simple GW-Bucket Scheme selected, retrieving files..." + print *, "new Simple GW-Bucket Scheme selected, retrieving files..." #endif #ifdef MPP_LAND - call MPP_READ_SIMP_GW( & + call MPP_READ_SIMP_GW( & #else - call READ_SIMP_GW( & + call READ_SIMP_GW( & #endif - rt_domain(did)%IX,rt_domain(did)%JX,rt_domain(did)%IXRT,& - rt_domain(did)%JXRT,rt_domain(did)%GWSUBBASMSK,nlst_rt(did)%gwbasmskfil,& - rt_domain(did)%gw_strm_msk,rt_domain(did)%numbasns,rt_domain(did)%ch_netrt,nlst_rt(did)%AGGFACTRT) - - - call SIMP_GW_IND(rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%GWSUBBASMSK, & - rt_domain(did)%numbasns,rt_domain(did)%gnumbasns,rt_domain(did)%basnsInd) - + rt_domain(did)%IX,rt_domain(did)%JX,rt_domain(did)%IXRT,& + rt_domain(did)%JXRT,rt_domain(did)%GWSUBBASMSK,nlst_rt(did)%gwbasmskfil,& + rt_domain(did)%gw_strm_msk,rt_domain(did)%numbasns,rt_domain(did)%ch_netrt,nlst_rt(did)%AGGFACTRT) + + + call SIMP_GW_IND(rt_domain(did)%ix,rt_domain(did)%jx,rt_domain(did)%GWSUBBASMSK, & + rt_domain(did)%numbasns,rt_domain(did)%gnumbasns,rt_domain(did)%basnsInd) + #ifdef HYDRO_D - write(6,*) "rt_domain(did)%gnumbasns, rt_domain(did)%numbasns, ", rt_domain(did)%gnumbasns , rt_domain(did)%numbasns + write(6,*) "rt_domain(did)%gnumbasns, rt_domain(did)%numbasns, ", rt_domain(did)%gnumbasns , rt_domain(did)%numbasns #endif #ifdef MPP_LAND - call collectSizeInd(rt_domain(did)%numbasns) + call collectSizeInd(rt_domain(did)%numbasns) #endif - call get_gw_strm_msk_lind (rt_domain(did)%IXRT, rt_domain(did)%JXRT, rt_domain(did)%gw_strm_msk,& - rt_domain(did)%numbasns,rt_domain(did)%basnsInd,rt_domain(did)%gw_strm_msk_lind) - - - allocate (rt_domain(did)%qout_gwsubbas (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%qin_gwsubbas (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%z_gwsubbas (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%gwbas_pix_ct (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%ct2_bas (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%bas_pcp (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%gw_buck_coeff (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%bas_id (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%gw_buck_exp(rt_domain(did)%numbasns)) - allocate (rt_domain(did)%z_max (rt_domain(did)%numbasns)) - allocate (rt_domain(did)%basns_area (rt_domain(did)%numbasns)) + call get_gw_strm_msk_lind (rt_domain(did)%IXRT, rt_domain(did)%JXRT, rt_domain(did)%gw_strm_msk,& + rt_domain(did)%numbasns,rt_domain(did)%basnsInd,rt_domain(did)%gw_strm_msk_lind) + + allocate (rt_domain(did)%qout_gwsubbas (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%qin_gwsubbas (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%z_gwsubbas (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%gwbas_pix_ct (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%ct2_bas (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%bas_pcp (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%gw_buck_coeff (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%bas_id (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%gw_buck_exp(rt_domain(did)%numbasns)) + allocate (rt_domain(did)%z_max (rt_domain(did)%numbasns)) + allocate (rt_domain(did)%basns_area (rt_domain(did)%numbasns)) #ifdef HYDRO_D - write(6,*) "end Simple GW-Bucket ..." - print *, "Simple GW-Bucket Scheme selected, retrieving files..." + write(6,*) "end Simple GW-Bucket ..." + print *, "Simple GW-Bucket Scheme selected, retrieving files..." #endif !Temporary hardwire... - rt_domain(did)%z_gwsubbas = 1. ! This gets updated with spun-up GW level in GWBUCKPARM.TBL - - - call read_GWBUCKPARM(rt_domain(did)%numbasns,rt_domain(did)%gnumbasns, rt_domain(did)%basnsInd, & - rt_domain(did)%gw_buck_coeff, rt_domain(did)%gw_buck_exp, rt_domain(did)%z_max, & - rt_domain(did)%z_gwsubbas, rt_domain(did)%bas_id,rt_domain(did)%basns_area) + rt_domain(did)%z_gwsubbas = 1. ! This gets updated with spun-up GW level in GWBUCKPARM.TBL + call read_GWBUCKPARM(trim(nlst_rt(did)%GWBUCKPARM_file),rt_domain(did)%numbasns, & + rt_domain(did)%gnumbasns, rt_domain(did)%basnsInd, & + rt_domain(did)%gw_buck_coeff, rt_domain(did)%gw_buck_exp, rt_domain(did)%z_max, & + rt_domain(did)%z_gwsubbas, rt_domain(did)%bas_id,rt_domain(did)%basns_area) !!! Determine number of stream pixels per GW basin for distribution... - #ifdef MPP_LAND call pix_ct_1(rt_domain(did)%gw_strm_msk,rt_domain(did)%ixrt,rt_domain(did)%jxrt,rt_domain(did)%gwbas_pix_ct,rt_domain(did)%numbasns, & - rt_domain(did)%gnumbasns,rt_domain(did)%basnsInd) + rt_domain(did)%gnumbasns,rt_domain(did)%basnsInd) #else rt_domain(did)%gwbas_pix_ct = 0. -! do k = 1, rt_domain(did)%numbasns -! bas = rt_domain(did)%basnsInd(k) + ! do k = 1, rt_domain(did)%numbasns + ! bas = rt_domain(did)%basnsInd(k) do i=1,rt_domain(did)%ixrt - do j=1,rt_domain(did)%jxrt - if (rt_domain(did)%gw_strm_msk(i,j).gt.0) then - bas = rt_domain(did)%gw_strm_msk(i,j) - rt_domain(did)%gwbas_pix_ct(bas) = & - rt_domain(did)%gwbas_pix_ct(bas) + 1.0 - endif - end do + do j=1,rt_domain(did)%jxrt + if (rt_domain(did)%gw_strm_msk(i,j).gt.0) then + bas = rt_domain(did)%gw_strm_msk(i,j) + rt_domain(did)%gwbas_pix_ct(bas) = & + rt_domain(did)%gwbas_pix_ct(bas) + 1.0 + endif + end do end do -! end do + ! end do #endif - #ifdef HYDRO_D - print *, "Starting GW basin levels...",rt_domain(did)%z_gwsubbas + print *, "Starting GW basin levels...",rt_domain(did)%z_gwsubbas #endif + ! BF gw2d model + elseif (nlst_rt(did)%GWBASESWCRT.ge.3) then - ! BF gw2d model - elseif (nlst_rt(did)%GWBASESWCRT.ge.3) then - - call readGW2d(gw2d(did)%ix, gw2d(did)%jx, & - gw2d(did)%hycond, gw2d(did)%ho, & - gw2d(did)%bot, gw2d(did)%poros, & - gw2d(did)%ltype, nlst_rt(did)%gwIhShift) - - gw2d(did)%elev = rt_domain(did)%elrt + call readGW2d(gw2d(did)%ix, gw2d(did)%jx, & + gw2d(did)%hycond, gw2d(did)%ho, & + gw2d(did)%bot, gw2d(did)%poros, & + gw2d(did)%ltype, nlst_rt(did)%gwIhShift) + + gw2d(did)%elev = rt_domain(did)%elrt - end if - -end if + end if ! end if (nlst_rt(did)%GWBASESWCRT.eq.1.or.nlst_rt(did)%GWBASESWCRT.eq.2) + + end if ! end if (nlst_rt(did)%GWBASESWCRT.ge.1) + !--------------------------------------------------------------------- !DJG End if GW/Baseflow activated... !---------------------------------------------------------------------- @@ -1086,8 +1217,10 @@ subroutine LandRT_ini(did) #else call CHAN_PARM_INIT (BOTWID,HLINK_INIT,CHAN_SS,CHMann) !Read chan parms from table... #endif - end if - if (nlst_rt(did)%channel_option .ne. 3) then + end if + + if (nlst_rt(did)%channel_option .ne. 3) then + #ifdef MPP_LAND if(my_id .eq. io_id) then #endif @@ -1096,15 +1229,7 @@ subroutine LandRT_ini(did) #ifdef MPP_LAND endif #endif - do j=1,rt_domain(did)%NLINKSL - do k = 1, rt_domain(did)%NLAKES - if(rt_domain(did)%LAKEIDM(k) .eq. rt_domain(did)%LINKID(j)) then - if (rt_domain(did)%TYPEL(j) .eq. 1) then !- for sparse network method this is a lake (type 0 is river) - rt_domain(did)%RESHT(k) = rt_domain(did)%LAKEMAXH(k) * 0.935 !-- assumes lake is ~90% MA, should put in Lake Parm - endif - endif - end do - end do + #ifdef MPP_LAND call updateLake_seq(rt_domain(did)%RESHT, rt_domain(did)%NLAKES,tmpRESHT) if(my_id .eq. io_id) then @@ -1112,8 +1237,9 @@ subroutine LandRT_ini(did) endif #endif - else !-- parameterize according to order of diffusion scheme, or if read from hi res file, use its value + else !-- parameterize according to order of diffusion scheme, or if read from hi res file, use its value !-- put condition within the if/then structure, which will assign a value if something is missing in hi res + do j=1,rt_domain(did)%NLINKS if (rt_domain(did)%ORDER(j) .eq. 1) then !-- smallest stream reach @@ -1210,52 +1336,59 @@ subroutine LandRT_ini(did) rt_domain(did)%CVOL(j) = (rt_domain(did)%Bw(j)+ 1/rt_domain(did)%ChSSLP(j)*rt_domain(did)%HLINK(j))*rt_domain(did)%HLINK(j)*rt_domain(did)%CHANLEN(j) !-- initalize channel volume end do - endif !Endif channel option eq 3 - do j=1,rt_domain(did)%NLAKES - rt_domain(did)%RESHT(j) = rt_domain(did)%LAKEMAXH(j) * 0.935 !-- lake is 99% full at start - end do + endif !End if channel option eq 3; else; + + +! Initialize Lake Elevations for Gridded and NWM routing. + do j=1,rt_domain(did)%NLAKES + rt_domain(did)%RESHT(j) = rt_domain(did)%ORIFICEE(j) + & + ((rt_domain(did)%LAKEMAXH(j) - rt_domain(did)%ORIFICEE(j) )* rt_domain(did)%ELEVLAKE(j)) + end do -end if ! Endif for channel routing setup + end if ! Endif for channel routing setup !----------------------------------------------------------------------- -rt_domain(did)%INFXSWGT = 1./(nlst_rt(did)%AGGFACTRT*nlst_rt(did)%AGGFACTRT) -rt_domain(did)%SH2OWGT = 1. -rt_domain(did)%SOLDEPRT = -1.0 * nlst_rt(did)%ZSOIL8(nlst_rt(did)%NSOIL) -rt_domain(did)%QSUBRT = 0.0 -rt_domain(did)%ZWATTABLRT = 0.0 -rt_domain(did)%QSUBBDRYRT = 0.0 -rt_domain(did)%QSTRMVOLRT = 0.0 -rt_domain(did)%QSTRMVOLRT = 0.0 -rt_domain(did)%QBDRYRT = 0.0 -rt_domain(did)%SFCHEADSUBRT = 0.0 -rt_domain(did)%INFXSUBRT = 0.0 -rt_domain(did)%DHRT = 0.0 -rt_domain(did)%LAKE_INFLORT = 0.0 -! rt_domain(did)%LAKE_INFLORT_DUM = 0.0 -rt_domain(did)%LAKE_CT = 0 -rt_domain(did)%STRM_CT = 0 -! rt_domain(did)%QSTRMVOLRT_DUM = 0.0 -rt_domain(did)%SOLDRAIN = 0.0 -rt_domain(did)%qinflowbase = 0.0 - -! rt_domain(did)%BASIN_MSK = 1 -! !DJG Initialize mass balance check variables... -rt_domain(did)%SMC_INIT=0. -rt_domain(did)%DSMC=0. -rt_domain(did)%DACRAIN=0. -rt_domain(did)%DSFCEVP=0. -rt_domain(did)%DCANEVP=0. -rt_domain(did)%DEDIR=0. -rt_domain(did)%DETT=0. -rt_domain(did)%DEPND=0. -rt_domain(did)%DESNO=0. -rt_domain(did)%DSFCRNFF=0. -rt_domain(did)%DQBDRY=0. -rt_domain(did)%SUMINFXS1=0. +if(nlst_rt(did)%channel_only .eq. 0 .and. & + nlst_rt(did)%channelBucket_only .eq. 0 ) then + + rt_domain(did)%INFXSWGT = 1./(nlst_rt(did)%AGGFACTRT*nlst_rt(did)%AGGFACTRT) + rt_domain(did)%SH2OWGT = 1. + rt_domain(did)%SOLDEPRT = -1.0 * nlst_rt(did)%ZSOIL8(nlst_rt(did)%NSOIL) + rt_domain(did)%QSUBRT = 0.0 + rt_domain(did)%ZWATTABLRT = 0.0 + rt_domain(did)%QSUBBDRYRT = 0.0 + rt_domain(did)%QSTRMVOLRT = 0.0 + rt_domain(did)%QBDRYRT = 0.0 + rt_domain(did)%SFCHEADSUBRT = 0.0 + rt_domain(did)%INFXSUBRT = 0.0 + rt_domain(did)%DHRT = 0.0 + rt_domain(did)%LAKE_INFLORT = 0.0 + rt_domain(did)%LAKE_CT = 0 + rt_domain(did)%STRM_CT = 0 + rt_domain(did)%SOLDRAIN = 0.0 + rt_domain(did)%qinflowbase = 0.0 + + ! rt_domain(did)%BASIN_MSK = 1 + ! !DJG Initialize mass balance check variables... + rt_domain(did)%SMC_INIT=0. + rt_domain(did)%DSMC=0. + rt_domain(did)%DACRAIN=0. + rt_domain(did)%DSFCEVP=0. + rt_domain(did)%DCANEVP=0. + rt_domain(did)%DEDIR=0. + rt_domain(did)%DETT=0. + rt_domain(did)%DEPND=0. + rt_domain(did)%DESNO=0. + rt_domain(did)%DSFCRNFF=0. + rt_domain(did)%DQBDRY=0. + rt_domain(did)%SUMINFXS1=0. + +end if ! end of neither channel_only nor channelBucket_only end subroutine LandRT_ini + subroutine deriveFromNode(did) implicit none integer :: did diff --git a/hydro/Routing/module_UDMAP.F b/hydro/Routing/module_UDMAP.F index e2983ddbb7..3a169e9589 100644 --- a/hydro/Routing/module_UDMAP.F +++ b/hydro/Routing/module_UDMAP.F @@ -311,10 +311,15 @@ subroutine UDMP2LOCAL(npid,ix,jx,rtmask, ter_rt_flag) if(LNUMRSL .gt. 0) then + allocate(LUDRSL(LNUMRSL)) allocate( basns_area(LNUMRSL) ) else - write(6,*) "Warning: no routing links found." +! When MPI is performed,for every subdomain in each process, all the links +! are listed and if there is no link in the subdomain then it is calling +! cleanBuf (memory cleaning purposes), this used to print a warning +! that is not necessary for the user to see it, therefore it is been commented out here +! write(6,*) "Warning: no routing links found." call cleanBuf() return endif diff --git a/hydro/Routing/module_channel_routing.F b/hydro/Routing/module_channel_routing.F index 5c1b274623..31962a0101 100644 --- a/hydro/Routing/module_channel_routing.F +++ b/hydro/Routing/module_channel_routing.F @@ -20,589 +20,317 @@ MODULE module_channel_routing #ifdef MPP_LAND - USE module_mpp_land - use MODULE_mpp_ReachLS, only : updatelinkv, & - ReachLS_write_io, gbcastvalue, & - gbcastreal2 - +use module_mpp_land +use MODULE_mpp_ReachLS, only : updatelinkv, & + ReachLS_write_io, gbcastvalue, & + gbcastreal2, linkls_s #endif - IMPLICIT NONE +implicit none - contains +contains ! ------------------------------------------------ ! FUNCTION MUSKING ! ------------------------------------------------ - REAL FUNCTION MUSKING(idx,qup,quc,qdp,dt,Km,X) +real function MUSKING(idx,qup,quc,qdp,dt,Km,X) - IMPLICIT NONE +implicit none !--local variables - REAL :: C1, C2, C3 - REAL :: Km !K travel time in hrs in reach - REAL :: X !weighting factors 0<=X<=0.5 - REAL :: dt !routing period in hrs - REAL :: avgbf !average base flow for initial condition - REAL :: qup !inflow from previous timestep - REAL :: quc !inflow of current timestep - REAL :: qdp !outflow of previous timestep - REAL :: dth !timestep in hours - INTEGER :: idx ! index - - dth = dt/3600 !hours in timestep - C1 = (dth - 2*Km*X)/(2*Km*(1-X)+dth) - C2 = (dth+2*Km*X)/(2*Km*(1-X)+dth) - C3 = (2*Km*(1-X)-dth)/(2*Km*(1-X)+dth) - MUSKING = (C1*quc)+(C2*qup)+(C3*qdp) +real :: C1, C2, C3 +real :: Km !K travel time in hrs in reach +real :: X !weighting factors 0<=X<=0.5 +real :: dt !routing period in hrs +real :: avgbf !average base flow for initial condition +real :: qup !inflow from previous timestep +real :: quc !inflow of current timestep +real :: qdp !outflow of previous timestep +real :: dth !timestep in hours +integer :: idx ! index + +dth = dt/3600 !hours in timestep +C1 = (dth - 2*Km*X)/(2*Km*(1-X)+dth) +C2 = (dth+2*Km*X)/(2*Km*(1-X)+dth) +C3 = (2*Km*(1-X)-dth)/(2*Km*(1-X)+dth) +MUSKING = (C1*quc)+(C2*qup)+(C3*qdp) ! ---------------------------------------------------------------- - END FUNCTION MUSKING +end function MUSKING ! ---------------------------------------------------------------- ! ------------------------------------------------ ! SUBROUTINE LEVELPOOL ! ------------------------------------------------ -SUBROUTINE LEVELPOOL(ln,qi0,qi1,qo1,ql,dt,H,ar,we,maxh,wc,wl,oe,oc,oa) - - !! ---------------------------- argument variables - !! All elevations should be relative to a common base (often belev(k)) - - real, intent(INOUT) :: H ! water elevation height (m) - real, intent(IN) :: dt ! routing period [s] - real, intent(IN) :: qi0 ! inflow at previous timestep (cms) - real, intent(IN) :: qi1 ! inflow at current timestep (cms) - real, intent(OUT) :: qo1 ! outflow at current timestep - real, intent(IN) :: ql ! lateral inflow - real, intent(IN) :: ar ! area of reservoir (km^2) - real, intent(IN) :: we ! bottom of weir elevation - real, intent(IN) :: wc ! weir coeff. - real, intent(IN) :: wl ! weir length (m) - real, intent(IN) :: oe ! orifice elevation - real, intent(IN) :: oc ! orifice coeff. - real, intent(IN) :: oa ! orifice area (m^2) - real, intent(IN) :: maxh ! max depth of reservoir before overtop (m) - integer, intent(IN) :: ln ! lake number - - !!DJG Add lake option switch here...move up to namelist in future versions... - integer :: LAKE_OPT ! Lake model option (move to namelist later) - real :: Htmp ! Temporary assign of incoming lake el. (m) - - !! ---------------------------- local variables - real :: sap ! local surface area values - real :: discharge ! storage discharge m^3/s - real :: tmp1, tmp2 - real :: dh, dh1, dh2, dh3 ! height function and 3 order RK - real :: It, Itdt_3, Itdt_2_3 - real :: maxWeirDepth !maximum capacity of weir - !! ---------------------------- subroutine body: from chow, mad mays. pg. 252 - !! -- determine from inflow hydrograph - - - !!DJG Set hardwire for LAKE_OPT...move specification of this to namelist in - !future versions... - LAKE_OPT = 2 - Htmp = H !temporary set of incoming lake water elevation... - - - !!DJG IF-block for lake model option 1 - outflow=inflow, 2 - Chow et al level - !pool, ..... - if (LAKE_OPT.eq.1) then ! If-block for simple pass through scheme.... - - qo1 = qi1 ! Set outflow equal to inflow at current time - H = Htmp ! Set new lake water elevation to incoming lake el. - - else if (LAKE_OPT.eq.2) then ! If-block for Chow et al level pool scheme - - It = qi0 - Itdt_3 = (qi0 + (qi1 + ql))/3 - Itdt_2_3 = (qi0 + (qi1 + ql))/3 + Itdt_3 - maxWeirDepth = maxh - we - - !-- determine Q(dh) from elevation-discharge relationship - !-- and dh1 - dh = H - we - if (dh .gt. maxWeirDepth) then - dh = maxWeirDepth - endif - - if (dh .gt. 0.0 ) then !! orifice and overtop discharge - tmp1 = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - tmp2 = wc * wl * (dh ** 2./3.) - discharge = tmp1 + tmp2 - - if (H .gt. 0.0) then - sap = (ar * 1.0E6 ) * (1 + (H - we) / H) - else - sap = 0.0 - endif +subroutine LEVELPOOL(ln,qi0,qi1,qo1,ql,dt,H,ar,we,maxh,wc,wl,oe,oc,oa) + +!! ---------------------------- argument variables +!! All elevations should be relative to a common base (often belev(k)) + +real, intent(INOUT) :: H ! water elevation height (m) +real, intent(IN) :: dt ! routing period [s] +real, intent(IN) :: qi0 ! inflow at previous timestep (cms) +real, intent(IN) :: qi1 ! inflow at current timestep (cms) +real, intent(OUT) :: qo1 ! outflow at current timestep +real, intent(IN) :: ql ! lateral inflow +real, intent(IN) :: ar ! area of reservoir (km^2) +real, intent(IN) :: we ! bottom of weir elevation +real, intent(IN) :: wc ! weir coeff. +real, intent(IN) :: wl ! weir length (m) +real, intent(IN) :: oe ! orifice elevation +real, intent(IN) :: oc ! orifice coeff. +real, intent(IN) :: oa ! orifice area (m^2) +real, intent(IN) :: maxh ! max depth of reservoir before overtop (m) +integer, intent(IN) :: ln ! lake number + +!!DJG Add lake option switch here...move up to namelist in future versions... +integer :: LAKE_OPT ! Lake model option (move to namelist later) +real :: Htmp ! Temporary assign of incoming lake el. (m) + +!! ---------------------------- local variables +real :: sap ! local surface area values +real :: discharge ! storage discharge m^3/s +real :: tmp1, tmp2 +real :: dh, dh1, dh2, dh3 ! Depth in weir, and height function for 3 order RK +real :: It, Itdt_3, Itdt_2_3 ! inflow hydrographs +real :: maxWeirDepth !maximum capacity of weir +!real :: hdiff_vol, qdiff_vol ! water balance check variables +!! ---------------------------- subroutine body: from chow, mad mays. pg. 252 +!! -- determine from inflow hydrograph + + +!!DJG Set hardwire for LAKE_OPT...move specification of this to namelist in +!future versions... +LAKE_OPT = 2 +Htmp = H !temporary set of incoming lake water elevation... +!hdiff_vol = 0.0 +!qdiff_vol = 0.0 + +!!DJG IF-block for lake model option 1 - outflow=inflow, 2 - Chow et al level +!pool, ..... +if (LAKE_OPT.eq.1) then ! If-block for simple pass through scheme.... + + qo1 = qi1 ! Set outflow equal to inflow at current time + H = Htmp ! Set new lake water elevation to incoming lake el. + +else if (LAKE_OPT.eq.2) then ! If-block for Chow et al level pool scheme + + It = qi0 + Itdt_3 = qi0 + ((qi1 + ql - qi0) * 0.33) + Itdt_2_3 = qi0 + ((qi1 + ql - qi0) * 0.67) + maxWeirDepth = maxh - we + + !assume vertically walled reservoir + !remove this when moving to a variable head area volume + sap = ar * 1.0E6 + + !-- determine Q(dh) from elevation-discharge relationship + !-- and dh1 + dh = H - we + if (dh .gt. maxWeirDepth) then + dh = maxWeirDepth + endif - else if ( H .gt. oe ) then !! only orifice flow,not full - discharge = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - sap = ar * 1.0E6 - else - discharge = 0.0 - sap = ar * 1.0E6 - endif + if (dh .gt. 0.0 ) then !! orifice and overtop discharge + tmp1 = oc * oa * sqrt(2. * 9.81 * ( H - oe ) ) + tmp2 = wc * wl * (dh ** (3./2.)) + discharge = tmp1 + tmp2 + else if ( H .gt. oe ) then !! only orifice flow,not full + discharge = oc * oa * sqrt(2. * 9.81 * ( H - oe ) ) + else + discharge = 0.0 + endif - if (sap .gt. 0) then + if (sap .gt. 0) then dh1 = ((It - discharge)/sap)*dt - else + else dh1 = 0.0 - endif - - !-- determine Q(H + dh1/3) from elevation-discharge relationship - !-- dh2 - dh = (H+dh1/3) - we - if (dh .gt. maxWeirDepth) then - dh = maxWeirDepth - endif - - if (dh .gt. 0.0 ) then !! orifice and overtop discharge - tmp1 = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - tmp2 = wc * wl * (dh ** 2./3.) - discharge = tmp1 + tmp2 - - if (H .gt. 0.0) then - sap = (ar * 1.0E6 ) * (1 + (H - we) / H) - else - sap = 0.0 - endif + endif - else if ( H .gt. oe ) then !! only orifice flow,not full - discharge = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - sap = ar * 1.0E6 - else - discharge = 0.0 - sap = ar * 1.0E6 - endif + !-- determine Q(H + dh1/3) from elevation-discharge relationship + !-- dh2 + dh = (H+dh1/3) - we + if (dh .gt. maxWeirDepth) then + dh = maxWeirDepth + endif - if (sap .gt. 0.0) then - dh2 = ((Itdt_3 - discharge)/sap)*dt - else - dh2 = 0.0 - endif + if (dh .gt. 0.0 ) then !! orifice and overtop discharge + tmp1 = oc * oa * sqrt(2. * 9.81 * ( (H+dh1/3.) - oe ) ) + tmp2 = wc * wl * (dh ** (3./2.)) + discharge = tmp1 + tmp2 + else if ( (H+dh1/3) .gt. oe ) then !! only orifice flow,not full + discharge = oc * oa * sqrt(2. * 9.81 * ( (H+dh1/3.) - oe ) ) + else + discharge = 0.0 + endif - !-- determine Q(H + 2/3 dh2) from elevation-discharge relationship - !-- dh3 - dh = (H + (0.667*dh2)) - we - if (dh .gt. maxWeirDepth) then - dh = maxWeirDepth - endif + if (sap .gt. 0.0) then + dh2 = ((Itdt_3 - discharge)/sap)*dt + else + dh2 = 0.0 + endif - if (dh .gt. 0.0 ) then !! orifice and overtop discharge - tmp1 = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - tmp2 = wc * wl * (dh ** 2./3.) - discharge = tmp1 + tmp2 + !-- determine Q(H + 2/3 dh2) from elevation-discharge relationship + !-- dh3 + dh = (H + (0.667*dh2)) - we + if (dh .gt. maxWeirDepth) then + dh = maxWeirDepth + endif - if (H .gt. 0.0) then - sap = (ar * 1.0E6 ) * (1 + (H - we) / H) - else - sap = 0.0 - endif + if (dh .gt. 0.0 ) then !! orifice and overtop discharge + tmp1 = oc * oa * sqrt(2. * 9.81 * ( (H+dh2*0.667) - oe ) ) + tmp2 = wc * wl * (dh ** (3./2.)) + discharge = tmp1 + tmp2 + else if ( (H+dh2*0.667) .gt. oe ) then !! only orifice flow,not full + discharge = oc * oa * sqrt(2. * 9.81 * ( (H+dh2*0.667) - oe ) ) + else + discharge = 0.0 + endif - else if ( H .gt. oe ) then !! only orifice flow,not full - discharge = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - sap = ar * 1.0E6 - else - discharge = 0.0 - sap = ar * 1.0E6 - endif - - if (sap .gt. 0.0) then + if (sap .gt. 0.0) then dh3 = ((Itdt_2_3 - discharge)/sap)*dt - else + else dh3 = 0.0 - endif + endif - !-- determine dh and H - dh = (dh1/4.) + (0.75*dh3) - H = H + dh + !-- determine dh and H + dh = (dh1/4.) + (0.75*dh3) + H = H + dh - !-- compute final discharge - dh = H - we - if (dh .gt. maxWeirDepth) then - dh = maxWeirDepth - endif - if (dh .gt. 0.0 ) then !! orifice and overtop discharge - tmp1 = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - tmp2 = wc * wl * (dh ** 2./3.) - discharge = tmp1 + tmp2 - - if (H .gt. 0.0) then - sap = (ar * 1.0E6 ) * (1 + (H - we) / H) - else - sap = 0.0 - endif + !-- compute final discharge + dh = H - we + if (dh .gt. maxWeirDepth) then + dh = maxWeirDepth + endif + if (dh .gt. 0.0 ) then !! orifice and overtop discharge + tmp1 = oc * oa * sqrt(2. * 9.81 * ( H - oe ) ) + tmp2 = wc * wl * (dh ** (3./2.)) + discharge = tmp1 + tmp2 + else if ( H .gt. oe ) then !! only orifice flow,not full + discharge = oc * oa * sqrt(2. * 9.81 * ( H - oe ) ) + else + discharge = 0.0 + endif - else if ( H .gt. oe ) then !! only orifice flow,not full - discharge = oc * oa * sqrt(2 * 9.81 * ( H - oe ) ) - sap = ar * 1.0E6 - else - discharge = 0.0 - sap = ar * 1.0E6 - endif + if(H .ge. maxh) then ! overtop condition + discharge = qi1 + H = maxh + endif - if(H .ge. maxh) then ! overtop condition - discharge = qi1 - H = maxh - endif + qo1 = discharge ! return the flow rate from reservoir - qo1 = discharge ! return the flow rate from reservoir +!#ifdef HYDRO_D +!#ifndef NCEP_WCOSS +! ! Water balance check +! qdiff_vol = (qi1+ql-qo1)*dt !m3 +! hdiff_vol = (H-Htmp)*sap !m3 +!22 format(f8.4,2x,f8.4,2x,f8.4,2x,f8.4,2x,f8.4,2x,f6.0,2x,f20.1,2x,f20.1) +! open (unit=67, & +! file='lake_massbalance_out.txt', status='unknown',position='append') +! write(67,22) Htmp, H, qi1, ql, qo1, dt, qdiff_vol, hdiff_vol +! close(67) +!#endif +!#endif 23 format('botof H dh orf wr Q',f8.4,2x,f8.4,2x,f8.3,2x,f8.3,2x,f8.2) 24 format('ofonl H dh sap Q ',f8.4,2x,f8.4,2x,f8.0,2x,f8.2) - - ELSE ! ELSE for LAKE_OPT.... - ENDIF ! ENDIF for LAKE_OPT.... - - RETURN + +else ! ELSE for LAKE_OPT.... +endif ! ENDIF for LAKE_OPT.... + +return ! ---------------------------------------------------------------- - END SUBROUTINE LEVELPOOL +end subroutine LEVELPOOL ! ---------------------------------------------------------------- - + ! ------------------------------------------------ ! FUNCTION Diffusive wave ! ------------------------------------------------ - REAL FUNCTION DIFFUSION(nod,z1,z20,h1,h2,dx,n, & - Bw, Cs) - IMPLICIT NONE +real function DIFFUSION(nod,z1,z20,h1,h2,dx,n, & + Bw, Cs) +implicit none !-- channel geometry and characteristics - REAL :: Bw !-bottom width (meters) - REAL :: Cs !-Channel side slope slope - REAL :: dx !-channel lngth (m) - REAL,intent(in) :: n !-mannings coefficient - REAL :: R !-Hydraulic radius - REAL :: AREA !- wetted area - REAL :: h1,h2 !-tmp height variables - REAL :: z1,z2 !-z1 is 'from', z2 is 'to' elevations - REAL :: z !-channel side distance - REAL :: w !-upstream weight - REAL :: Ku,Kd !-upstream and downstream conveyance - REAL :: Kf !-final face conveyance - REAL :: Sf !-friction slope - REAL :: sgn !-0 or 1 - INTEGER :: nod !- node - REAL :: z20, dzx +real :: Bw !-bottom width (meters) +real :: Cs !-Channel side slope slope +real :: dx !-channel lngth (m) +real,intent(in) :: n !-mannings coefficient +real :: R !-Hydraulic radius +real :: AREA !- wetted area +real :: h1,h2 !-tmp height variables +real :: z1,z2 !-z1 is 'from', z2 is 'to' elevations +real :: z !-channel side distance +real :: w !-upstream weight +real :: Ku,Kd !-upstream and downstream conveyance +real :: Kf !-final face conveyance +real :: Sf !-friction slope +real :: sgn !-0 or 1 +integer :: nod !- node +real :: z20, dzx ! added by Wei Yu for bad data. - dzx = (z1 - z20)/dx - if(dzx .lt. 0.002) then - z2 = z1 - dx*0.002 - else - z2 = z20 - endif +dzx = (z1 - z20)/dx +if(dzx .lt. 0.002) then + z2 = z1 - dx*0.002 +else + z2 = z20 +endif !end - if (n.le.0.0.or.Cs.le.0.or.Bw.le.0) then - print *, "Error in Diffusion function ->channel coefficients" - print *, "nod, n, Cs, Bw", nod, n, Cs, Bw - call hydro_stop("In DIFFUSION() - Error channel coefficients.") - endif +if (n.le.0.0.or.Cs.le.0.or.Bw.le.0) then + print *, "Error in Diffusion function ->channel coefficients" + print *, "nod, n, Cs, Bw", nod, n, Cs, Bw + call hydro_stop("In DIFFUSION() - Error channel coefficients.") +endif ! Sf = ((z1+h1)-(z2+h2))/dx !-- compute the friction slope - !if(z1 .eq. z2) then - ! Sf = ((z1-(z2-0.01))+(h1-h2))/dx !-- compute the friction slope - !else +!if(z1 .eq. z2) then +! Sf = ((z1-(z2-0.01))+(h1-h2))/dx !-- compute the friction slope +!else ! Sf = ((z1-z2)+(h1-h2))/dx !-- compute the friction slope - !endif +!endif !modifieed by Wei Yu for false geography data - if(abs(z1-z2) .gt. 1.0E5) then +if(abs(z1-z2) .gt. 1.0E5) then #ifdef HYDRO_D - print*, "WARNING: huge slope rest to 0 for channel grid.", z1,z2 + print*, "WARNING: huge slope rest to 0 for channel grid.", z1,z2 #endif - Sf = ((h1-h2))/dx !-- compute the friction slope - else - Sf = ((z1-z2)+(h1-h2))/dx !-- compute the friction slope - endif + Sf = ((h1-h2))/dx !-- compute the friction slope +else + Sf = ((z1-z2)+(h1-h2))/dx !-- compute the friction slope +endif !end modfication - sgn = SGNf(Sf) !-- establish sign - - w = 0.5*(sgn + 1.) !-- compute upstream or downstream weighting - - z = 1/Cs !--channel side distance (m) - R = ((Bw+z*h1)*h1)/(Bw+2*h1*sqrt(1+z*z)) !-- Hyd Radius - AREA = (Bw+z*h1)*h1 !-- Flow area - Ku = (1/n)*(R**(2./3.))*AREA !-- convenyance - - R = ((Bw+z*h2)*h2)/(Bw+2*h2*sqrt(1+z*z)) !-- Hyd Radius - AREA = (Bw+z*h2)*h2 !-- Flow area - Kd = (1/n)*(R**(2./3.))*AREA !-- convenyance - - Kf = (1-w)*Kd + w*Ku !-- conveyance - DIFFUSION = Kf * sqrt(abs(Sf))*sgn - - -100 format('z1,z2,h1,h2,kf,Dif, Sf, sgn ',f8.3,2x,f8.3,2x,f8.4,2x,f8.4,2x,f8.3,2x,f8.3,2x,f8.3,2x,f8.0) - - END FUNCTION DIFFUSION -! ---------------------------------------------------------------- - -! ------------------------------------------------ -! FUNCTION MUSKINGUM CUNGE -! ------------------------------------------------ - REAL FUNCTION MUSKINGCUNGE(idx,qup, quc, qdp, ql,& - dt,So,dx,n,Cs,Bw) - IMPLICIT NONE +sgn = SGNf(Sf) !-- establish sign -!--local variables - REAL :: C1, C2, C3, C4 - REAL :: Km !K travel time in hrs in reach - REAL :: X !weighting factors 0<=X<=0.5 - REAL :: dt !routing period in seconds - REAL :: qup !flow upstream previous timestep - REAL :: quc !flow upstream current timestep - REAL :: qdp !flow downstream previous timestep -! REAL :: qdc !flow downstream current timestep - REAL :: ql !lateral inflow through reach (m^3/sec) - REAL :: Ck ! wave celerity (m/s) - -!-- channel geometry and characteristics - REAL :: Bw ! bottom width (meters) - REAL :: Cs ! Channel side slope slope - REAL :: So ! Channel bottom slope % - REAL :: dx ! channel lngth (m) - REAL :: n ! mannings coefficient - REAL :: Tw ! top width at peak flow - REAL :: AREA ! Cross sectional area m^2 - REAL :: Z ! trapezoid distance (m) - REAL :: R ! Hydraulic radius - REAL :: WP ! wetted perimmeter - REAL :: h ! depth of flow - REAL :: h_0,h_1 ! secant method estimates - REAL :: Qj_0 ! secant method estimates - REAL :: Qj ! intermediate flow estimate - REAL :: D,D1 ! diffusion coeff - REAL :: dtr ! required timestep, minutes - REAL :: error - REAL :: hp !courant, previous height - INTEGER :: maxiter !maximum number of iterations - - -!-- local variables.. needed if channel is sub-divded - REAL :: a,b,c - INTEGER :: i,idx !-- channel segment counter - -!yw add - goto 101 - C1 = 0 - C2 = 0 - C3 = 0 - C4 = 0 - Km = 0 - X = 0 !weighting factors 0<=X<=0.5 - Ck = 0 - Tw = 0 ! top width at peak flow - AREA = 0 ! Cross sectional area m^2 - Z = 0 ! trapezoid distance (m) - R = 0 ! Hydraulic radius - WP = 0 ! wetted perimmeter - h = 0 ! depth of flow - h_0 = 0 - h_1 = 0 ! secant method estimates - Qj_0 = 0 ! secant method estimates - D = 0 - D1 = 0 ! diffusion coeff - dtr = 0 ! required timestep, minutes - error = 1.0 - hp = 0 !courant, previous height - maxiter = 0 - a = 0 -101 continue -!end yw - - c = 0.52 !-- coefficnets for finding dx/Ckdt - b = 1.15 - - if(Cs .eq.0) then - z = 1.0 - else - z = 1/Cs !channel side distance (m) - endif - - !qC = quc + ql !current upstream in reach - - if (n .le.0 .or. So .le. 0 .or. z .le. 0 .or. Bw .le. 0) then - print*, "Error in channel coefficients -> Muskingum cunge",n,So,z,Bw - call hydro_stop("In MUSKINGCUNGE() - Error in channel coefficients") - end if - - error = 1.0 - maxiter = 0 - a = 0.0 - - if ((quc+ql) .lt. 100) then - b=5 - else - b= 20 - endif - -!------------- Secant Method - h = (a+b)/2 !- upper interval - h_0 = 0.0 !- lower interval - Qj_0 = 0.0 !- initial flow of lower interval - - do while ((error .gt. 0.05 .and. maxiter .le. 100 .and. h .gt. 0.01)) - - !----- lower interval -------------------- - Tw = Bw + 2*z*h_0 !--top width of the channel inflow - Ck = (sqrt(So)/n)*(5./3.)*(h_0**0.667) !-- pg 287 Chow, Mdt, Mays - if(Ck .gt. 0.0) then - Km = dx/Ck !-- seconds Muskingum Param - if(Km .lt. dt) then - Km = dt - endif - else - Km = dt - endif - - if(Tw*So*Ck*dx .eq. 0.0) then - X = 0.25 - else - X = 0.5-(Qj_0/(2*Tw*So*Ck*dx)) - endif - - if(X .le. 0.0) then - X = 0.25 - elseif(X .gt. 0.35) then - X = 0.35 - endif - - D = (Km*(1 - X) + dt/2) !--seconds - if(D .eq. 0.0) then - print *, "FATAL ERROR: D is 0 in MUSKINGCUNGE", Km, X, dt,D - call hydro_stop("In MUSKINGCUNGE() - D is 0.") - endif - - C1 = (Km*X + dt/2)/D - C2 = (dt/2 - Km*X)/D - C3 = (Km*(1-X)-dt/2)/D - C4 = (ql*dt)/D !-- ql already multipled by the dx length - - if(h_0 .le. 0.0) then - AREA= 0.0 - WP = 0.0 - else - AREA = (Bw * h_0 + z * (h_0*h_0) ) - WP = (Bw * h_0 + z * (h_0*h_0)) / (Bw + 2 * h_0 * sqrt(1+z*z)) - endif - - if(WP .le. 0.0) then - Qj_0 = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) - else - Qj_0 = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) - ((1/n) * AREA * (WP**(2./3.)) * sqrt(So)) !f(x) - endif - - !--upper interval ----------- - Tw = Bw + 2*z*h !--top width of the channel inflow - Ck = (sqrt(So)/n)*(5./3.)*(h**0.667) !-- pg 287 Chow, Mdt, Mays - if(Ck .gt. 0.0) then - Km = dx/Ck !-- seconds Muskingum Param - if(Km .lt. dt) then - Km = dt - endif - else - Km = dt - endif - - if(Tw*So*Ck*dx .eq. 0.0) then - X = 0.25 - else - X = 0.5-(((C1*qup)+(C2*quc)+(C3*qdp) + C4)/(2*Tw*So*Ck*dx)) - endif - - if(X .le. 0.0) then - X = 0.25 - elseif(X .gt. 0.35) then - X = 0.35 - endif - - D = (Km*(1 - X) + dt/2) !--seconds - if(D .eq. 0.0) then - print *, "FATAL ERROR: D is 0 in MUSKINGCUNGE", Km, X, dt,D - call hydro_stop("In MUSKINGCUNGE() - D is 0.") - endif - - C1 = (Km*X + dt/2)/D - C2 = (dt/2 - Km*X)/D - C3 = (Km*(1-X)-dt/2)/D - C4 = (ql*dt)/D !-- ql already multipled by the dx length - - if(h .le. 0) then - AREA = 0.0 - WP = 0.0 - else - AREA = (Bw * h + z * (h*h) ) - WP = (Bw * h + z * (h*h)) / (Bw + 2 * h * sqrt(1+z*z)) - endif - - if(WP .le. 0.0) then - Qj = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) - else - Qj = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) -((1/n) * AREA * (WP**(2./3.)) * sqrt(So)) - endif - - if(Qj_0-Qj .ne. 0.0) then - h_1 = h - ((Qj * (h_0 - h))/(Qj_0 - Qj)) !update h, 3rd estimate - if(h_1 .lt. 0.0) then - h_1 = h - endif - else - h_1 = h - endif - - error = abs((h_1 - h)/h) !error is new estatimate and 2nd estimate - -! if(idx .eq. 626) then -! write(6,*) h_0,h,h_1,error -! endif - - h_0 = h - h = h_1 - maxiter = maxiter + 1 - - end do - - if((maxiter .ge. 100 .and. error .gt. 0.05) .or. h .gt. 100) then - - print*, "WARNING:" - print*, "id,err,iters,h", idx, error, maxiter, h - print*, "n,z,B,So,dx,X,dt,Km",n,z,Bw,So,dx,X,dt,Km - print*, "qup,quc,qdp,ql", qup,quc,qdp,ql - if(h.gt.100) then - print*, "FATAL ERROR: Water Elevation Calculation is Diverging" - call hydro_stop("In MUSKINGCUNGE() - Water Elevation Calculation is Diverging") - endif - endif +w = 0.5*(sgn + 1.) !-- compute upstream or downstream weighting -! if(idx .eq. 626) then -! write(6,*) ((C1*qup)+(C2*quc)+(C3*qdp) + C4) !-- pg 295 Bedient huber -! endif +z = 1/Cs !--channel side distance (m) +R = ((Bw+z*h1)*h1)/(Bw+2*h1*sqrt(1+z*z)) !-- Hyd Radius +AREA = (Bw+z*h1)*h1 !-- Flow area +Ku = (1/n)*(R**(2./3.))*AREA !-- convenyance -! MUSKINGCUNGE = h -!yw MUSKINGCUNGE = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) !-- pg 295 Bedient huber +R = ((Bw+z*h2)*h2)/(Bw+2*h2*sqrt(1+z*z)) !-- Hyd Radius +AREA = (Bw+z*h2)*h2 !-- Flow area +Kd = (1/n)*(R**(2./3.))*AREA !-- convenyance -!yw added for test +Kf = (1-w)*Kd + w*Ku !-- conveyance +DIFFUSION = Kf * sqrt(abs(Sf))*sgn - if(((C1*qup)+(C2*quc)+(C3*qdp) + C4) .lt. 0.0) then - MUSKINGCUNGE = MAX( ( (C1*qup)+(C2*quc) + C4),((C1*qup)+(C3*qdp) + C4) ) - else - MUSKINGCUNGE = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) !-- pg 295 Bedient huber - endif +100 format('z1,z2,h1,h2,kf,Dif, Sf, sgn ',f8.3,2x,f8.3,2x,f8.4,2x,f8.4,2x,f8.3,2x,f8.3,2x,f8.3,2x,f8.0) +end function DIFFUSION ! ---------------------------------------------------------------- - END FUNCTION MUSKINGCUNGE - +subroutine SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) - SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) +#ifdef HYDRO_D +use module_RT_data, only: rt_domain !! JLM: this is only used in a c3 paramter diagnostic print +#endif IMPLICIT NONE @@ -646,35 +374,7 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) REAL :: a,b,c INTEGER :: i !-- channel segment counter -!yw add - goto 101 - C1 = 0 - C2 = 0 - C3 = 0 - C4 = 0 - Km = 0 - X = 0 !weighting factors 0<=X<=0.5 - Ck = 0 - Tw = 0 ! top width at peak flow - AREA = 0 ! Cross sectional area m^2 - Z = 0 ! trapezoid distance (m) - R = 0 ! Hydraulic radius - WP = 0 ! wetted perimmeter - h = 0 ! depth of flow - h_0 = 0 - h_1 = 0 ! secant method estimates - Qj_0 = 0 ! secant method estimates - D = 0 - D1 = 0 ! diffusion coeff - dtr = 0 ! required timestep, minutes - error = 1.0 - hp = 0 !courant, previous height - maxiter = 0 - a = 0 -101 continue -!end yw - - c = 0.52 !-- coefficnets for finding dx/Ckdt + c = 0.52 !-- coefficnets for finding dx/Ckdt b = 1.15 if(Cs .eq.0) then @@ -708,8 +408,28 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) do while ((error .gt. 0.05 .and. maxiter .le. 100 .and. h .gt. 0.01)) !----- lower interval -------------------- - Tw = Bw + 2*z*h_0 !--top width of the channel inflow - Ck = (sqrt(So)/n)*(5./3.)*(h_0**0.667) !-- pg 287 Chow, Mdt, Mays + Tw = Bw + 2*z*h_0 !--top width of the channel inflow + if(h_0 .le. 0.0) then + AREA= 0.0 + R = 0.0 + WP = 0.0 + else + AREA = (Bw * h_0 + z * (h_0*h_0) ) + WP = (Bw + 2 * h_0 * sqrt(1+z*z)) + R = AREA/ WP + endif + + ! Ck = (sqrt(So)/n)*(5./3.)*(h_0**0.667) !-- pg 287 Chow, Mdt, Mays + ! This is for wide rectangle and not trapezoid so it was replaced + ! with the following + + if (h_0 .le. 0.0) then + Ck = 0.0 + else + Ck = (sqrt(So)/n)*((5./3.)*R**(2./3.) - & + ((2./3.)*R**(5./3.)*(2*sqrt(1+z*z)/(Bw+2*h_0*z)))) + endif + if(Ck .gt. 0.0) then Km = dx/Ck !-- seconds Muskingum Param if(Km .lt. dt) then @@ -727,8 +447,8 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) if(X .le. 0.0) then X = 0.25 - elseif(X .gt. 0.35) then - X = 0.35 + elseif(X .gt. 0.5) then + X = 0.5 endif D = (Km*(1 - X) + dt/2) !--seconds @@ -742,23 +462,37 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) C3 = (Km*(1-X)-dt/2)/D C4 = (ql*dt)/D !-- ql already multipled by the dx length - if(h_0 .le. 0.0) then - AREA= 0.0 - WP = 0.0 - else - AREA = (Bw * h_0 + z * (h_0*h_0) ) - WP = (Bw * h_0 + z * (h_0*h_0)) / (Bw + 2 * h_0 * sqrt(1+z*z)) - endif - if(WP .le. 0.0) then + if(R .le. 0.0) then Qj_0 = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) else - Qj_0 = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) - ((1/n) * AREA * (WP**(2./3.)) * sqrt(So)) !f(x) + Qj_0 = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) - ((1/n) * AREA * (R**(2./3.)) * sqrt(So)) !f(x) endif - + !--upper interval ----------- Tw = Bw + 2*z*h !--top width of the channel inflow - Ck = (sqrt(So)/n)*(5./3.)*(h**0.667) !-- pg 287 Chow, Mdt, Mays + + if(h .le. 0) then + AREA = 0.0 + WP = 0.0 + R = 0.0 + else + AREA = (Bw * h + z * (h*h) ) + WP = (Bw + 2 * h * sqrt(1+z*z)) + R = AREA / WP + endif + +! Ck = (sqrt(So)/n)*(5./3.)*(h**0.667) !-- pg 287 Chow, Mdt, Mays + ! This is for wide rectangle and not trapezoid so it was replaced + ! with the following + + if (h .le. 0.0) then + Ck = 0.0 + else + Ck = (sqrt(So)/n)*((5./3.)*R**(2./3.) - & + ((2./3.)*R**(5./3.)*(2*sqrt(1+z*z)/(Bw+2*h*z)))) + endif + if(Ck .gt. 0.0) then Km = dx/Ck !-- seconds Muskingum Param if(Km .lt. dt) then @@ -776,8 +510,8 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) if(X .le. 0.0) then X = 0.25 - elseif(X .gt. 0.35) then - X = 0.35 + elseif(X .gt. 0.5) then + X = 0.5 endif D = (Km*(1 - X) + dt/2) !--seconds @@ -791,18 +525,10 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) C3 = (Km*(1-X)-dt/2)/D C4 = (ql*dt)/D !-- ql already multipled by the dx length - if(h .le. 0) then - AREA = 0.0 - WP = 0.0 - else - AREA = (Bw * h + z * (h*h) ) - WP = (Bw * h + z * (h*h)) / (Bw + 2 * h * sqrt(1+z*z)) - endif - - if(WP .le. 0.0) then + if(R .le. 0.0) then Qj = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) else - Qj = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) -((1/n) * AREA * (WP**(2./3.)) * sqrt(So)) + Qj = ((C1*qup)+(C2*quc)+(C3*qdp) + C4) -((1/n) * AREA * (R**(2./3.)) * sqrt(So)) endif if(Qj_0-Qj .ne. 0.0) then @@ -829,15 +555,26 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) if((maxiter .ge. 100 .and. error .gt. 0.05) .or. h .gt. 100) then print*, "WARNING:" + print*,'RouteLink index:', idx + linkls_s(my_id+1) - 1 print*, "id,err,iters,h", idx, error, maxiter, h print*, "n,z,B,So,dx,X,dt,Km",n,z,Bw,So,dx,X,dt,Km print*, "qup,quc,qdp,ql", qup,quc,qdp,ql if(h.gt.100) then print*, "FATAL ERROR: Water Elevation Calculation is Diverging" - call hydro_stop("In MUSKINGCUNGE() - Water Elevation Calculation is Diverging") + call hydro_stop("In SUBMUSKINGCUNGE() - Water Elevation Calculation is Diverging") endif endif +#ifdef HYDRO_D + !! Getting information on c3. + !if(rt_domain(1)%gages(idx + linkls_s(my_id+1) - 1) .ne. rt_domain(1)%gageMiss) then + ! print*, rt_domain(1)%gages(idx+linkls_s(my_id+1)-1) +! if(rt_domain(1)%gages(idx) .ne. rt_domain(1)%gageMiss) then +! print*, rt_domain(1)%gages(idx) +! print*,'JLM submuskcunge idx, C3, C, D:', idx + linkls_s(my_id+1) - 1, C3, dt/(2*Km), X +! end if +#endif + !yw added for test if(((C1*qup)+(C2*quc)+(C3*qdp) + C4) .lt. 0.0) then ! MUSKINGCUNGE = MAX( ( (C1*qup)+(C2*quc) + C4),((C1*qup)+(C3*qdp) + C4) ) @@ -854,7 +591,6 @@ SUBROUTINE SUBMUSKINGCUNGE(qdc,vel,idx,qup,quc,qdp,ql,dt,So,dx,n,Cs,Bw) vel = (1./n) * (R **(2./3.)) * sqrt(So) ! average velocity in m/s ! ---------------------------------------------------------------- -!END FUNCTION MUSKINGCUNGE END SUBROUTINE SUBMUSKINGCUNGE ! ---------------------------------------------------------------- @@ -883,6 +619,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & QSUBRT, LAKEINFLORT, QSTRMVOLRT, TO_NODE, FROM_NODE, & TYPEL, ORDER, MAXORDER, NLINKS, CH_NETLNK, CH_NETRT, CH_LNKRT, & LAKE_MSKRT, DT, DTCT, DTRT_CH,MUSK, MUSX, QLINK, & + QLateral, & HLINK, ELRT, CHANLEN, MannN, So, ChSSlp, Bw, & RESHT, HRZAREA, LAKEMAXH, WEIRH, WEIRC, WEIRL, ORIFICEC, ORIFICEA, & ORIFICEE, ZELEV, CVOL, NLAKES, QLAKEI, QLAKEO, LAKENODE, & @@ -895,7 +632,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & #endif , CH_LNKRT_SL & ,gwBaseSwCRT, gwHead, qgw_chanrt, gwChanCondSw, gwChanCondConstIn, & - gwChanCondConstOut) + gwChanCondConstOut,velocity) IMPLICIT NONE @@ -932,6 +669,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & REAL , INTENT(INOUT), DIMENSION(:,:) :: QLINK REAL , DIMENSION(NLINKS,2) :: tmpQLINK REAL , INTENT(INOUT), DIMENSION(NLINKS) :: HLINK + REAL, dimension(NLINKS), intent(inout) :: QLateral !--lateral flow REAL, INTENT(IN) :: DT !-- model timestep REAL, INTENT(IN) :: DTRT_CH !-- routing timestep REAL, INTENT(INOUT) :: DTCT @@ -941,7 +679,9 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & INTEGER, INTENT(IN) :: MAXORDER, SUBRTSWCRT, & gwBaseSwCRT, gwChanCondSw real, intent(in) :: gwChanCondConstIn, gwChanCondConstOut ! aquifer-channel conductivity constant from namelist - REAL , INTENT(IN), DIMENSION(NLINKS) :: node_area + REAL , INTENT(IN), DIMENSION(NLINKS) :: node_area + REAL, DIMENSION(:), INTENT(inout) :: velocity + !DJG GW-chan coupling variables... REAL, DIMENSION(NLINKS) :: dzGwChanHead @@ -963,14 +703,17 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & REAL, INTENT(IN), DIMENSION(NLAKES) :: ORIFICEE !-- orrifce elevation (m) REAL, INTENT(INOUT), DIMENSION(NLAKES) :: RESHT !-- reservoir height (m) + REAL*8, DIMENSION(NLAKES) :: QLAKEI8 !-- lake inflow (cms) REAL, INTENT(INOUT), DIMENSION(NLAKES) :: QLAKEI !-- lake inflow (cms) REAL, DIMENSION(NLAKES) :: QLAKEIP !-- lake inflow previous timestep (cms) REAL, INTENT(INOUT), DIMENSION(NLAKES) :: QLAKEO !-- outflow from lake used in diffusion scheme INTEGER, INTENT(IN), DIMENSION(NLINKS) :: LAKENODE !-- outflow from lake used in diffusion scheme INTEGER, INTENT(IN), DIMENSION(NLINKS) :: LINKID !-- id of channel elements for linked scheme - REAL, DIMENSION(NLINKS) :: QLateral !--lateral flow + !REAL, DIMENSION(NLINKS) :: QLateral !--lateral flow REAL, DIMENSION(NLINKS) :: QSUM !--mass bal of node + REAL*8, DIMENSION(NLINKS) :: QSUM8 !--mass bal of node REAL, DIMENSION(NLAKES) :: QLLAKE !-- lateral inflow to lake in diffusion scheme + REAL*8, DIMENSION(NLAKES) :: QLLAKE8 !-- lateral inflow to lake in diffusion scheme !-- Local Variables INTEGER :: i,j,k,t,m,jj,kk,KRT,node @@ -991,7 +734,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & integer link_location(ixrt,jxrt) real ywtmp(ixrt,jxrt) integer LNLINKSL - INTEGER, dimension(LNLINKSL) :: LLINKID + integer, dimension(LNLINKSL) :: LLINKID real*8, dimension(LNLINKSL) :: LQLateral ! real*4, dimension(LNLINKSL) :: LQLateral integer, dimension(:) :: toNodeInd @@ -999,13 +742,14 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & integer :: nToNodeInd real, dimension(nToNodeInd,2) :: gQLINK #else - REAL*8, DIMENSION(NLINKS) :: LQLateral !--lateral flow + real*8, dimension(NLINKS) :: LQLateral !--lateral flow #endif integer flag integer :: n, kk2, nt, nsteps ! tmp QLAKEIP = 0 + QLAKEI8 = 0 HLINKTMP = 0 CVOLTMP = 0 CD = 0 @@ -1016,6 +760,8 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & !yw print *, "DRIVE_channel,option,nlinkl,nlinks!!", channel_option,NLINKSL,NLINKS +! print *, "DRIVE_channel, RESHT", RESHT + dzGwChanHead = 0. @@ -1050,6 +796,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & call updateLinkV(LQLateral, QLateral(1:NLINKSL)) #else + LQLateral = 0 !-- initial lateral flow to 0 for this reach do jj = 1, NLINKS !--------river grid points, convert depth in mm to rate across reach in m^3/sec @@ -1066,6 +813,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & end do ! jj QLateral = LQLateral + #endif ! QLateral = QLateral / nsteps @@ -1074,35 +822,30 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & !---------- route order 1 reaches which have no upstream inflow - do k=1, NLINKSL - if (ORDER(k) .eq. 1) then !-- first order stream has no headflow - - - if(TYPEL(k) .eq. 1) then !-- level pool route of reservoir - !CALL LEVELPOOL(1,0.0, 0.0, qd, QLINK(k,2), QLateral(k), & - ! DT, RESHT(k), HRZAREA(k), LAKEMAXH(k), & - ! WEIRC(k), WEIRL(k), ORIFICEE(i), ORIFICEC(k), ORIFICEA(k) ) - elseif (channel_option .eq. 1) then - Km = MUSK(k) - X = MUSX(k) - QLINK(k,2) = MUSKING(k,0.0, QLateral(k), QLINK(k,1), DTRT_CH, Km, X) !--current outflow - elseif (channel_option .eq. 2) then !-- upstream is assumed constant initial condition - - ! HLINK(k) = MUSKINGCUNGE(k,0.0,0.0,QLINK(k,1), & - QLINK(k,2) = MUSKINGCUNGE(k,0.0,0.0,QLINK(k,1), & - QLateral(k), DTRT_CH, So(k), CHANLEN(k), & - MannN(k), ChSSlp(k), Bw(k)) - - ! AREA = (Bw(k) * HLINK(k) + 1/ChSSlp(k) * HLINK(k)**2) - ! WP = (Bw(k) * HLINK(k) + 1/ChSSlp(k) * HLINK(k)**2) / (Bw(k) + 2 * HLINK(k) * sqrt(1+(1/ChSSlp(k))**2)) - ! QLINK(k,2) = 1/MannN(k) * AREA * WP**(2./3.) * sqrt(So(k)) - - else - print *, "FATAL ERROR: No channel option selected" - call hydro_stop("In drive_CHANNEL() -No channel option selected ") - endif - endif - end do +! do k=1, NLINKSL +! if (ORDER(k) .eq. 1) then !-- first order stream has no headflow + + +! if(TYPEL(k) .eq. 1) then !-- level pool route of reservoir +! !CALL LEVELPOOL(1,0.0, 0.0, qd, QLINK(k,2), QLateral(k), & +! ! DT, RESHT(k), HRZAREA(k), LAKEMAXH(k), & +! ! WEIRC(k), WEIRL(k), ORIFICEE(i), ORIFICEC(k), ORIFICEA(k) ) +! elseif (channel_option .eq. 1) then +! Km = MUSK(k) +! X = MUSX(k) +! QLINK(k,2) = MUSKING(k,0.0, QLateral(k), QLINK(k,1), DTRT_CH, Km, X) !--current outflow +! elseif (channel_option .eq. 2) then !-- upstream is assumed constant initial condition + +! call SUBMUSKINGCUNGE(QLINK(k,2), velocity(k), k, & +! 0.0,0.0, QLINK(k,1), QLateral(k), DTRT_CH, So(k), & +! CHANLEN(k), MannN(k), ChSSlp(k), Bw(k) ) + +! else +! print *, "FATAL ERROR: No channel option selected" +! call hydro_stop("In drive_CHANNEL() -No channel option selected ") +! endif +! endif +! end do #ifdef MPP_LAND gQLINK = 0 @@ -1113,7 +856,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & !---------- route other reaches, with upstream inflow tmpQlink = 0 do k = 1,NLINKSL - if (ORDER(k) .gt. 1 ) then !-- exclude first order stream +! if (ORDER(k) .gt. 1 ) then !-- exclude first order stream Quc = 0 Qup = 0 @@ -1148,39 +891,27 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & ! QLateral(k), DT, RESHT(k), HRZAREA(k), LAKEMAXH(k), & ! WEIRC(k), WEIRL(k),ORIFICEE(k), ORIFICEC(k), ORIFICEA(k)) - elseif (channel_option .eq. 1) then !muskingum routing + elseif (channel_option .eq. 1) then !muskingum routing Km = MUSK(k) X = MUSX(k) tmpQLINK(k,2) = MUSKING(k,Qup,(Quc+QLateral(k)),QLINK(k,1),DTRT_CH,Km,X) !upstream plust lateral inflow - elseif (channel_option .eq. 2) then ! muskingum cunge - - !HLINK(k) = MUSKINGCUNGE(k,Qup, Quc, QLINK(k,1), & - tmpQLINK(k,2) = MUSKINGCUNGE(k,Qup, Quc, QLINK(k,1), & - QLateral(k), DTRT_CH, So(k), CHANLEN(k), & - MannN(k), ChSSlp(k), Bw(k) ) + elseif (channel_option .eq. 2) then ! muskingum cunge - ! AREA = (Bw(k) * HLINK(k) + 1/ChSSLP(k) * HLINK(k)**2) - ! WP = (Bw(k) * HLINK(k) + 1/ChSSLP(k) * HLINK(k)**2) / (Bw(k) + 2 * HLINK(k) * sqrt(1+(1/ChSSLP(k))**2)) - ! tmpQLINK(k,2) = ((1/MannN(k)) * AREA * WP**(2./3.) * sqrt(So(k))) + call SUBMUSKINGCUNGE(tmpQLINK(k,2), velocity(k), LINKID(k), & + Qup,Quc, QLINK(k,1), QLateral(k), DTRT_CH, So(k), & + CHANLEN(k), MannN(k), ChSSlp(k), Bw(k)) + +! if(LINKID(k) .eq. 24800) then +! print *, "ZZ", ORDER(k),QLateral(k),QLINK(k,1), tmpQLINK(k,2) +! endif else print *, "FATAL ERROR: no channel option selected" call hydro_stop("In drive_CHANNEL() - no channel option selected") endif - endif !!! order(1) .ne. 1 +! endif !!! order(1) .ne. 1 end do !--k links -!yw check -! gQLINK = 0.0 -! call ReachLS_write_io(tmpQLINK(:,2), gQLINK(:,2)) -! call ReachLS_write_io(tmpQLINK(:,1), gQLINK(:,1)) -! write(6,*) " io_id = ", io_id -! if(my_id .eq. io_id) then -! write(71,*) gQLINK(:,1) -! call flush(71) -! call flush(72) -! endif - do k = 1, NLINKSL if(TYPEL(k) .ne. 1) then QLINK(k,2) = tmpQLINK(k,2) @@ -1188,19 +919,12 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & QLINK(k,1) = QLINK(k,2) !assing link flow of current to be previous for next time step end do -!#ifdef MPP_LAND -! call ReachLS_write_io(QLINK(:,2),buf1) -! if(my_id .eq. IO_id) write(73,*) buf1 -!#else -! write(73,*) QLINK(1:NLINKSL,2) -!#endif + end do ! nsteps #ifdef HYDRO_D - print *, "END OF ALL REACHES...",KRT,DT_STEPS + print *, "END OF ROUTE TIME...",KRT,DT_STEPS #endif - end do ! nsteps - ! END DO !-- krt timestep for muksingumcunge routing elseif(channel_option .eq. 3) then !--- route using the diffusion scheme on nodes not links @@ -1220,17 +944,20 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & ! call check_channel(77,HLINKTMP,1,nlinks) ! call MPP_CHANNEL_COM_REAL(Link_location,ixrt,jxrt,ZELEV,NLINKS,99) - crnt: DO !-- loop on the courant condition - QSUM = 0 !-- initialize the total flow out of each cell to zero - QLAKEI = 0 !-- set the lake inflow as zero - QLLAKE = 0 !-- initialize each lake's lateral inflow to zero - DT_STEPS=INT(DT/DTCT) !-- fix the timestep - QLateral = 0. + crnt: DO !-- loop on the courant condition + QSUM = 0. !-- initialize the total flow out of each cell to zero + QSUM8 = 0. !-- initialize the total flow out of each cell to zero + QLAKEI8 = 0. !-- set the lake inflow as zero + QLAKEI = 0. !-- set the lake inflow as zero + QLLAKE = 0. !-- initialize each lake's lateral inflow to zero + QLLAKE8 = 0. !-- initialize each lake's lateral inflow to zero + DT_STEPS = INT(DT/DTCT) !-- fix the timestep + QLateral = 0. !DJG GW-chan coupling variables... - if(gwBaseSwCRT == 3) then + if(gwBaseSwCRT == 3) then Q_GW_CHAN_FLUX = 0. qgw_chanrt = 0. - end if + end if ! ZWATTBLRT=1.0 !--HARDWIRE, remove this and pass in from subsfc/gw routing routines... @@ -1306,32 +1033,42 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & ((QSTRMVOLRT(CHANXI(i),CHANYJ(i))+& QINFLOWBASE(CHANXI(i),CHANYJ(i))) & /DT_STEPS*node_area(i)/1000/DTCT) - if((QLateral(CH_NETLNK(CHANXI(i),CHANYJ(i))).lt.0.) .and. (gwChanCondSw == 0)) then + if((QLateral(CH_NETLNK(CHANXI(i),CHANYJ(i))).lt.0.) .and. (gwChanCondSw == 0)) then #ifdef HYDRO_D print*, "i, CHANXI(i),CHANYJ(i) = ", i, CHANXI(i),CHANYJ(i) print *, "NEGATIVE Lat inflow...",QLateral(CH_NETLNK(CHANXI(i),CHANYJ(i))), & QSUBRT(CHANXI(i),CHANYJ(i)),QSTRMVOLRT(CHANXI(i),CHANYJ(i)), & QINFLOWBASE(CHANXI(i),CHANYJ(i)) #endif - end if - elseif(LAKE_MSKRT(CHANXI(i),CHANYJ(i)) .gt. 0 .and. & - (LAKE_MSKRT(CHANXI(i),CHANYJ(i)) .ne. -9999)) then !--a lake node - QLLAKE(LAKE_MSKRT(CHANXI(i),CHANYJ(i))) = & - QLLAKE(LAKE_MSKRT(CHANXI(i),CHANYJ(i))) + & + elseif (QLateral(CH_NETLNK(CHANXI(i),CHANYJ(i))) .gt. 1.0) then +!#ifdef HYDRO_D +! print *, "LatIn(Ql,Qsub,Qstrmvol)..",i,QLateral(CH_NETLNK(CHANXI(i),CHANYJ(i))), & +! QSUBRT(CHANXI(i),CHANYJ(i)),QSTRMVOLRT(CHANXI(i),CHANYJ(i)) +!#endif + end if + + elseif(LAKE_MSKRT(CHANXI(i),CHANYJ(i)) .gt. 0 .and. & +! (LAKE_MSKRT(CHANXI(i),CHANYJ(i)) .ne. -9999)) then !--a lake node + (CH_NETRT(CHANXI(i),CHANYJ(i)) .le. 0)) then !--a lake node + QLLAKE8(LAKE_MSKRT(CHANXI(i),CHANYJ(i))) = & + QLLAKE8(LAKE_MSKRT(CHANXI(i),CHANYJ(i))) + & (LAKEINFLORT(CHANXI(i),CHANYJ(i))+ & - QINFLOWBASE(CHANXI(i),CHANYJ(i)) & - /DT_STEPS*node_area(i)/1000/DTCT) - elseif(CH_NETRT(CHANXI(i),CHANYJ(i)) .gt. 0) then !pour out of lake + QINFLOWBASE(CHANXI(i),CHANYJ(i))) & + /DT_STEPS*node_area(i)/1000/DTCT + elseif(CH_NETRT(CHANXI(i),CHANYJ(i)) .gt. 0) then !pour out of lake QLateral(CH_NETLNK(CHANXI(i),CHANYJ(i))) = & QLAKEO(CH_NETRT(CHANXI(i),CHANYJ(i))) !-- previous timestep - endif nodeType + endif nodeType + ENDDO #ifdef MPP_LAND call MPP_CHANNEL_COM_REAL(Link_location,ixrt,jxrt,QLateral,NLINKS,99) if(NLAKES .gt. 0) then - call MPP_CHANNEL_COM_REAL(LAKE_MSKRT ,ixrt,jxrt,QLLAKE,NLAKES,99) + !yw call MPP_CHANNEL_COM_REAL(LAKE_MSKRT ,ixrt,jxrt,QLLAKE,NLAKES,99) + call sum_real8(QLLAKE8,NLAKES) + QLLAKE = QLLAKE8 endif #endif @@ -1368,24 +1105,25 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & DO i = 1,NLINKS !-- inflow to node across each face #endif if(TYPEL(i) .eq. 0) then !-- only regular nodes have to attribute - QSUM(TO_NODE(i)) = QSUM(TO_NODE(i)) + QLINK(i,1) + QSUM8(TO_NODE(i)) = QSUM8(TO_NODE(i)) + QLINK(i,1) endif END DO #ifdef MPP_LAND - call MPP_CHANNEL_COM_REAL(Link_location,ixrt,jxrt,qsum,NLINKS,0) + call MPP_CHANNEL_COM_REAL8(Link_location,ixrt,jxrt,qsum8,NLINKS,0) #endif + qsum = qsum8 #ifdef MPP_LAND - DO iyw = 1,yw_mpp_nlinks + do iyw = 1,yw_mpp_nlinks i = nlinks_index(iyw) #else - DO i = 1,NLINKS !-- outflow from node across each face + do i = 1,NLINKS !-- outflow from node across each face #endif QSUM(FROM_NODE(i)) = QSUM(FROM_NODE(i)) - QLINK(i,1) - END DO + end do #ifdef MPP_LAND call MPP_CHANNEL_COM_REAL(Link_location,ixrt,jxrt,qsum,NLINKS,99) #endif @@ -1395,10 +1133,10 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & #ifdef MPP_LAND - DO iyw = 1,yw_MPP_NLINKS + do iyw = 1,yw_MPP_NLINKS i = nlinks_index(iyw) #else - DO i = 1, NLINKS !--- compute volume and depth at each node + do i = 1, NLINKS !--- compute volume and depth at each node #endif if( TYPEL(i).eq.0 .and. CVOLTMP(i) .ge. 0.001 .and.(CVOLTMP(i)-QSUM(i)*DTCT)/CVOLTMP(i) .le. -0.01 ) then @@ -1453,13 +1191,13 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & #ifdef MPP_LAND - DO iyw = 1,yw_MPP_NLINKS + do iyw = 1,yw_MPP_NLINKS i = nlinks_index(iyw) #else - DO i = 1, NLINKS !--- compute volume and depth at each node + do i = 1, NLINKS !--- compute volume and depth at each node #endif - if(TYPEL(i) .eq. 0) then !-- regular channel grid point, compute volume + if(TYPEL(i) .eq. 0) then !-- regular channel grid point, compute volume CVOLTMP(i) = CVOLTMP(i) + (QSUM(i) + QLateral(i) )* DTCT if((CVOLTMP(i) .lt. 0) .and. (gwChanCondSw == 0)) then #ifdef HYDRO_D @@ -1469,56 +1207,60 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & CVOLTMP(i) =0 endif - elseif(TYPEL(i) .eq. 1) then !-- pour point, critical depth downstream + elseif(TYPEL(i) .eq. 1) then !-- pour point, critical depth downstream if (QSUM(i)+QLateral(i) .lt. 0) then else !DJG remove to have const. flux b.c.... CD(i) =CRITICALDEPTH(i,abs(QSUM(i)+QLateral(i)), Bw(i), 1./ChSSlp(i)) CD(i) = HLINKTMP(i) !This is a temp hardwire for flow depth for the pour point... - endif + endif ! change in volume is inflow, lateral flow, and outflow !yw DIFFUSION(i,ZELEV(i),ZELEV(i)-(So(i)*DXRT),HLINKTMP(i), & CVOLTMP(i) = CVOLTMP(i) + (QSUM(i) + QLateral(i) - & DIFFUSION(i,ZELEV(i),ZELEV(i)-(So(i)*CHANLEN(i)),HLINKTMP(i), & CD(i),CHANLEN(i), MannN(i), Bw(i), ChSSlp(i)) ) * DTCT - elseif (TYPEL(i) .eq. 2) then !--- into a reservoir, assume critical depth + elseif (TYPEL(i) .eq. 2) then !--- into a reservoir, assume critical depth if ((QSUM(i)+QLateral(i) .lt. 0) .and. (gwChanCondSw == 0)) then #ifdef HYDRO_D print *, i, 'CrtDpth Qsum+QLat into lake< 0',QSUM(i), QLateral(i) #endif - else + else !DJG remove to have const. flux b.c.... CD(i) =CRITICALDEPTH(i,abs(QSUM(i)+QLateral(i)), Bw(i), 1./ChSSlp(i)) CD(i) = HLINKTMP(i) !This is a temp hardwire for flow depth for the pour point... - endif + endif !-- compute volume in reach (m^3) CVOLTMP(i) = CVOLTMP(i) + (QSUM(i) + QLateral(i) - & DIFFUSION(i,ZELEV(i),ZELEV(i)-(So(i)*CHANLEN(i)),HLINKTMP(i), & CD(i) ,CHANLEN(i), MannN(i), Bw(i), ChSSlp(i)) ) * DTCT - !-- compute flow rate into lake from all contributing nodes (cms) - QLAKEI(LAKENODE(i)) = QLAKEI(LAKENODE(i)) + QLINK(FROM_NODE(i),1) - - else + else print *, "FATAL ERROR: This node does not have a type.. error TYPEL =", TYPEL(i) call hydro_stop("In drive_CHANNEL() - error TYPEL") - endif + endif - if(TYPEL(i) == 0) then !-- regular channel node, finalize head and flow - HLINKTMP(i) = HEAD(i, CVOLTMP(i)/CHANLEN(i),Bw(i),1/ChSSlp(i)) !--updated depth - else - HLINKTMP(i) = CD(i) !!! CRITICALDEPTH(i,QSUM(i)+QLateral(i), Bw(i), 1./ChSSlp(i)) !--critical depth is head - endif - - END DO !--- done processing all the links + if(TYPEL(i) == 0) then !-- regular channel node, finalize head and flow + HLINKTMP(i) = HEAD(i, CVOLTMP(i)/CHANLEN(i),Bw(i),1/ChSSlp(i)) !--updated depth + else + HLINKTMP(i) = CD(i) !!! CRITICALDEPTH(i,QSUM(i)+QLateral(i), Bw(i), 1./ChSSlp(i)) !--critical depth is head + endif + + if(TO_NODE(i) .gt. 0) then + if(LAKENODE(TO_NODE(i)) .gt. 0) then + QLAKEI8(LAKENODE(TO_NODE(i))) = QLAKEI8(LAKENODE(TO_NODE(i))) + QLINK(i,1) + endif + endif + END DO !--- done processing all the links #ifdef MPP_LAND call MPP_CHANNEL_COM_REAL(Link_location,ixrt,jxrt,CVOLTMP,NLINKS,99) call MPP_CHANNEL_COM_REAL(Link_location,ixrt,jxrt,CD,NLINKS,99) if(NLAKES .gt. 0) then - call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEI,NLAKES,99) +! call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEI,NLAKES,99) + call sum_real8(QLAKEI8,NLAKES) + QLAKEI = QLAKEI8 endif call MPP_CHANNEL_COM_REAL(Link_location,ixrt,jxrt,HLINKTMP,NLINKS,99) #endif @@ -1527,10 +1269,6 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & ! call check_channel(85,HLINKTMP,1,nlinks) ! call check_lake(86,QLAKEI,lake_index,nlakes) - - - - do i = 1, NLAKES !-- mass balances of lakes #ifdef MPP_LAND if(lake_index(i) .gt. 0) then @@ -1539,26 +1277,32 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & DTCT, RESHT(i), HRZAREA(i), WEIRH(i), LAKEMAXH(i), WEIRC(i), & WEIRL(i), ORIFICEE(i), ORIFICEC(i), ORIFICEA(i)) QLAKEIP(i) = QLAKEI(i) !-- store total lake inflow for this timestep + #ifdef MPP_LAND endif #endif enddo #ifdef MPP_LAND if(NLAKES .gt. 0) then - call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLLAKE,NLAKES,99) - call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,RESHT,NLAKES,99) - call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEO,NLAKES,99) - call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEI,NLAKES,99) - call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEIP,NLAKES,99) +!yw call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLLAKE,NLAKES,99) +!yw call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,RESHT,NLAKES,99) +!yw call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEO,NLAKES,99) +!yw call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEI,NLAKES,99) +!yw call MPP_CHANNEL_COM_REAL(LAKE_MSKRT,ixrt,jxrt,QLAKEIP,NLAKES,99) + call updateLake_grid(QLLAKE, nlakes,lake_index) + call updateLake_grid(RESHT, nlakes,lake_index) + call updateLake_grid(QLAKEO, nlakes,lake_index) + call updateLake_grid(QLAKEI, nlakes,lake_index) + call updateLake_grid(QLAKEIP,nlakes,lake_index) endif #endif #ifdef MPP_LAND - DO iyw = 1,yw_MPP_NLINKS + do iyw = 1,yw_MPP_NLINKS i = nlinks_index(iyw) #else - DO i = 1, NLINKS !--- compute volume and depth at each node + do i = 1, NLINKS !--- compute volume and depth at each node #endif if(TYPEL(i) == 0) then !-- regular channel node, finalize head and flow QLINK(i,1)=DIFFUSION(i,ZELEV(FROM_NODE(i)),ZELEV(TO_NODE(i)), & @@ -1572,9 +1316,9 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & #endif KRT = KRT + 1 !-- iterate on the timestep - IF(KRT .eq. DT_STEPS) EXIT crnt !-- up to the maximum time in interval + if(KRT .eq. DT_STEPS) exit crnt !-- up to the maximum time in interval - END DO crnt !--- DTCT timestep of DT_STEPS + end do crnt !--- DTCT timestep of DT_STEPS HLINK = HLINKTMP !-- update head based on final solution in timestep CVOL = CVOLTMP !-- update volume @@ -1590,7 +1334,7 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & if (KT .eq. 1) KT = KT + 1 - END SUBROUTINE drive_CHANNEL +end subroutine drive_CHANNEL ! ---------------------------------------------------------------- !-======================================= @@ -1885,7 +1629,7 @@ end subroutine smoth121 ! SUBROUTINE drive_CHANNEL for NHDPLUS ! ------------------------------------------------ - Subroutine drive_CHANNEL_RSL(UDMP_OPT,KT, IXRT,JXRT, & + subroutine drive_CHANNEL_RSL(UDMP_OPT,KT, IXRT,JXRT, & LAKEINFLORT, QSTRMVOLRT, TO_NODE, FROM_NODE, & TYPEL, ORDER, MAXORDER, CH_LNKRT, & LAKE_MSKRT, DT, DTCT, DTRT_CH,MUSK, MUSX, QLINK, & @@ -1904,132 +1648,135 @@ Subroutine drive_CHANNEL_RSL(UDMP_OPT,KT, IXRT,JXRT, & #ifdef WRF_HYDRO_NUDGING , nudge & #endif - - , accLndRunOff, accQLateral, accStrmvolrt, accBucket & + , accSfcLatRunoff, accBucket & + , qSfcLatRunoff, qBucket & , QLateral, velocity & - ,nsize , OVRTSWCRT, SUBRTSWCRT ) + , nsize , OVRTSWCRT, SUBRTSWCRT, channel_only, channelBucket_only) use module_UDMAP, only: LNUMRSL, LUDRSL + use module_namelist, only: nlst_rt #ifdef WRF_HYDRO_NUDGING - use module_stream_nudging, only: setup_stream_nudging, & - nudge_term_all, & - nudgeWAdvance + use module_RT_data, only: rt_domain + use module_stream_nudging, only: setup_stream_nudging, & + nudge_term_all, & + nudgeWAdvance, & + nudge_apply_upstream_muskingumCunge #endif - IMPLICIT NONE + implicit none ! -------- DECLARATIONS ------------------------ - INTEGER, INTENT(IN) :: IXRT,JXRT,channel_option, OVRTSWCRT, SUBRTSWCRT - INTEGER, INTENT(IN) :: NLAKES, NLINKSL, nlinks - integer, INTENT(INOUT) :: KT ! flag of cold start (1) or continue run. - REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: QSTRMVOLRT - REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: LAKEINFLORT - REAL, INTENT(IN), DIMENSION(IXRT,JXRT) :: QINFLOWBASE - real, dimension(ixrt,jxrt) :: landRunOff - - INTEGER, INTENT(IN), DIMENSION(IXRT,JXRT) :: CH_LNKRT - INTEGER, INTENT(IN), DIMENSION(IXRT,JXRT) :: CH_LNKRT_SL - - INTEGER, INTENT(IN), DIMENSION(IXRT,JXRT) :: LAKE_MSKRT - INTEGER, INTENT(IN), DIMENSION(:) :: ORDER, TYPEL !--link - INTEGER, INTENT(IN), DIMENSION(:) :: TO_NODE, FROM_NODE - INTEGER, INTENT(IN), DIMENSION(:) :: CHANXI, CHANYJ - REAL, INTENT(IN), DIMENSION(:) :: MUSK, MUSX - REAL, INTENT(IN), DIMENSION(:) :: CHANLEN - REAL, INTENT(IN), DIMENSION(:) :: So, MannN - REAL, INTENT(IN), DIMENSION(:) :: ChSSlp,Bw !--properties of nodes or links - REAL :: Km, X - REAL , INTENT(INOUT), DIMENSION(:,:) :: QLINK + integer, intent(IN) :: IXRT,JXRT,channel_option, OVRTSWCRT, SUBRTSWCRT + integer, intent(IN) :: NLAKES, NLINKSL, nlinks + integer, intent(INOUT) :: KT ! flag of cold start (1) or continue run. + real, intent(IN), dimension(IXRT,JXRT) :: QSTRMVOLRT + real, intent(IN), dimension(IXRT,JXRT) :: LAKEINFLORT + real, intent(IN), dimension(IXRT,JXRT) :: QINFLOWBASE + real, dimension(ixrt,jxrt) :: landRunOff + + integer, intent(IN), dimension(IXRT,JXRT) :: CH_LNKRT + integer, intent(IN), dimension(IXRT,JXRT) :: CH_LNKRT_SL + + integer, intent(IN), dimension(IXRT,JXRT) :: LAKE_MSKRT + integer, intent(IN), dimension(:) :: ORDER, TYPEL !--link + integer, intent(IN), dimension(:) :: TO_NODE, FROM_NODE + integer, intent(IN), dimension(:) :: CHANXI, CHANYJ + real, intent(IN), dimension(:) :: MUSK, MUSX + real, intent(IN), dimension(:) :: CHANLEN + real, intent(IN), dimension(:) :: So, MannN + real, intent(IN), dimension(:) :: ChSSlp,Bw !--properties of nodes or links + real :: Km, X + real , intent(INOUT), dimension(:,:) :: QLINK #ifdef WRF_HYDRO_NUDGING - real, intent(out), dimension(:) :: nudge + !! inout for applying previous nudge to upstream components of flow at gages + real, intent(inout), dimension(:) :: nudge #endif - REAL, DIMENSION(:), intent(out) :: QLateral, velocity !--lateral flow - real, dimension(:), intent(out) :: accLndRunOff, accQLateral, accStrmvolrt, accBucket - - REAL , DIMENSION(NLINKSL,2) :: tmpQLINK - REAL, INTENT(IN) :: DT !-- model timestep - REAL, INTENT(IN) :: DTRT_CH !-- routing timestep - REAL, INTENT(INOUT) :: DTCT - real :: minDTCT !BF minimum routing timestep - INTEGER, INTENT(IN) :: MAXORDER - REAL , INTENT(IN), DIMENSION(:) :: node_area - -!DJG GW-chan coupling variables... - REAL, DIMENSION(NLINKS) :: dzGwChanHead - REAL, DIMENSION(NLINKS) :: Q_GW_CHAN_FLUX !DJG !!! Change 'INTENT' to 'OUT' when ready to update groundwater state... - REAL, DIMENSION(IXRT,JXRT) :: ZWATTBLRT !DJG !!! Match with subsfce/gw routing & Change 'INTENT' to 'INOUT' when ready to update groundwater state... - - !-- lake params - - REAL, INTENT(IN), DIMENSION(:) :: HRZAREA !-- horizontal area (km^2) - REAL, INTENT(IN), DIMENSION(:) :: LAKEMAXH !-- maximum lake depth (m^2) - REAL, INTENT(IN), DIMENSION(:) :: WEIRH !-- lake depth (m^2) - REAL, INTENT(IN), DIMENSION(:) :: WEIRC !-- weir coefficient - REAL, INTENT(IN), DIMENSION(:) :: WEIRL !-- weir length (m) - REAL, INTENT(IN), DIMENSION(:) :: ORIFICEC !-- orrifice coefficient - REAL, INTENT(IN), DIMENSION(:) :: ORIFICEA !-- orrifice area (m^2) - REAL, INTENT(IN), DIMENSION(:) :: ORIFICEE !-- orrifce elevation (m) - INTEGER, INTENT(IN), DIMENSION(:) :: LAKEIDM !-- NHDPLUS lakeid for lakes to be modeled - - REAL, INTENT(INOUT), DIMENSION(:) :: RESHT !-- reservoir height (m) - REAL, INTENT(INOUT), DIMENSION(:) :: QLAKEI !-- lake inflow (cms) - REAL, DIMENSION(NLAKES) :: QLAKEIP !-- lake inflow previous timestep (cms) - REAL, INTENT(INOUT), DIMENSION(NLAKES) :: QLAKEO !-- outflow from lake used in diffusion scheme - - INTEGER, INTENT(IN), DIMENSION(:) :: LAKENODE !-- outflow from lake used in diffusion scheme - INTEGER, INTENT(IN), DIMENSION(:) :: LINKID !-- id of channel elements for linked scheme - INTEGER, INTENT(IN), DIMENSION(:) :: LAKEIDA !-- (don't need) NHDPLUS lakeid for all lakes in domain - INTEGER, INTENT(IN), DIMENSION(:) :: LAKEIDX !-- the sequential index of the lakes id by com id - - REAL, DIMENSION(NLINKS) :: QSUM !--mass bal of node - REAL, DIMENSION(NLAKES) :: QLLAKE !-- lateral inflow to lake in diffusion scheme - integer :: nsize - -!-- Local Variables - INTEGER :: i,j,k,t,m,jj,ii,lakeid, kk,KRT,node, UDMP_OPT - INTEGER :: DT_STEPS !-- number of timestep in routing - REAL :: Qup,Quc !--Q upstream Previous, Q Upstream Current, downstream Previous - REAL :: bo !--critical depth, bnd outflow just for testing - - REAL ,DIMENSION(NLINKS) :: CD !-- critical depth - real, DIMENSION(IXRT,JXRT) :: tmp - real, dimension(nlinks) :: tmp2 - REAL, INTENT(INOUT), DIMENSION(:) :: CVOL + real, dimension(:), intent(inout) :: QLateral !--lateral flow + real, dimension(:), intent(out) :: velocity + real*8, dimension(:), intent(inout) :: accSfcLatRunoff, accBucket + real , dimension(:), intent(out) :: qSfcLatRunoff , qBucket + + real , dimension(NLINKSL,2) :: tmpQLINK + real, intent(IN) :: DT !-- model timestep + real, intent(IN) :: DTRT_CH !-- routing timestep + real, intent(INOUT) :: DTCT + real :: minDTCT !BF minimum routing timestep + integer, intent(IN) :: MAXORDER + real , intent(IN), dimension(:) :: node_area + + !DJG GW-chan coupling variables... + real, dimension(NLINKS) :: dzGwChanHead + real, dimension(NLINKS) :: Q_GW_CHAN_FLUX !DJG !!! Change 'INTENT' to 'OUT' when ready to update groundwater state... + real, dimension(IXRT,JXRT) :: ZWATTBLRT !DJG !!! Match with subsfce/gw routing & Change 'INTENT' to 'INOUT' when ready to update groundwater state... + + !-- lake params + + real, intent(IN), dimension(:) :: HRZAREA !-- horizontal area (km^2) + real, intent(IN), dimension(:) :: LAKEMAXH !-- maximum lake depth (m^2) + real, intent(IN), dimension(:) :: WEIRH !-- lake depth (m^2) + real, intent(IN), dimension(:) :: WEIRC !-- weir coefficient + real, intent(IN), dimension(:) :: WEIRL !-- weir length (m) + real, intent(IN), dimension(:) :: ORIFICEC !-- orrifice coefficient + real, intent(IN), dimension(:) :: ORIFICEA !-- orrifice area (m^2) + real, intent(IN), dimension(:) :: ORIFICEE !-- orrifce elevation (m) + integer, intent(IN), dimension(:) :: LAKEIDM !-- NHDPLUS lakeid for lakes to be modeled + + real, intent(INOUT), dimension(:) :: RESHT !-- reservoir height (m) + real, intent(INOUT), dimension(:) :: QLAKEI !-- lake inflow (cms) + real, dimension(NLAKES) :: QLAKEIP !-- lake inflow previous timestep (cms) + real, intent(INOUT), dimension(NLAKES) :: QLAKEO !-- outflow from lake used in diffusion scheme + + integer, intent(IN), dimension(:) :: LAKENODE !-- outflow from lake used in diffusion scheme + integer, intent(IN), dimension(:) :: LINKID !-- id of channel elements for linked scheme + integer, intent(IN), dimension(:) :: LAKEIDA !-- (don't need) NHDPLUS lakeid for all lakes in domain + integer, intent(IN), dimension(:) :: LAKEIDX !-- the sequential index of the lakes id by com id + + real, dimension(NLINKS) :: QSUM !--mass bal of node + real, dimension(NLAKES) :: QLLAKE !-- lateral inflow to lake in diffusion scheme + integer :: nsize + + !-- Local Variables + integer :: i,j,k,t,m,jj,ii,lakeid, kk,KRT,node, UDMP_OPT + integer :: DT_STEPS !-- number of timestep in routing + real :: Qup,Quc !--Q upstream Previous, Q Upstream Current, downstream Previous + real :: bo !--critical depth, bnd outflow just for testing + + real ,dimension(NLINKS) :: CD !-- critical depth + real, dimension(IXRT,JXRT) :: tmp + real, dimension(nlinks) :: tmp2 + real, intent(INOUT), dimension(:) :: CVOL + #ifdef MPP_LAND - real*8, dimension(LNLINKSL) :: LQLateral - real*8, dimension(LNLINKSL) :: tmpLQLateral - real, dimension(NLINKSL) :: tmpQLateral - integer nlinks_index(:) - integer iyw, yw_mpp_nlinks, mpp_nlinks - real ywtmp(ixrt,jxrt) - integer LNLINKSL - integer, dimension(:) :: toNodeInd - integer, dimension(:,:) :: gtoNode - integer :: nToNodeInd - real, dimension(nToNodeInd,2) :: gQLINK + real*8, dimension(LNLINKSL) :: LQLateral + real*8, dimension(LNLINKSL) :: tmpLQLateral + real, dimension(NLINKSL) :: tmpQLateral + + integer nlinks_index(:) + integer iyw, yw_mpp_nlinks, mpp_nlinks + real ywtmp(ixrt,jxrt) + integer LNLINKSL + integer, dimension(:) :: toNodeInd + integer, dimension(:,:) :: gtoNode + integer :: nToNodeInd + real, dimension(nToNodeInd,2) :: gQLINK #else - real*8, dimension(NLINKS) :: tmpLQLateral - real, dimension(NLINKSL) :: tmpQLateral - real, dimension(NLINKSL) :: LQLateral + real*8, dimension(NLINKS) :: tmpLQLateral + real, dimension(NLINKSL) :: tmpQLateral + real, dimension(NLINKSL) :: LQLateral #endif - integer flag - - integer :: n, kk2, nt, nsteps ! tmp - real, dimension(:) :: qout_gwsubbas - real, allocatable,dimension(:) :: tmpQLAKEO, tmpQLAKEI, tmpRESHT - - - real, dimension(NLINKS) :: lcLndRunOff, lcQLateral, lcStrmvolrt, lcBucket ! local variables - - - - + integer flag + integer, intent(in) :: channel_only, channelBucket_only + + integer :: n, kk2, nt, nsteps ! tmp + real, intent(in), dimension(:) :: qout_gwsubbas + real, allocatable,dimension(:) :: tmpQLAKEO, tmpQLAKEI, tmpRESHT + #ifdef MPP_LAND - if(my_id .eq. io_id) then + if(my_id .eq. io_id) then #endif allocate(tmpQLAKEO(NLAKES)) allocate(tmpQLAKEI(NLAKES)) @@ -2041,10 +1788,10 @@ Subroutine drive_CHANNEL_RSL(UDMP_OPT,KT, IXRT,JXRT, & QLAKEIP = 0 CD = 0 node = 1 - QLateral = 0 QSUM = 0 QLLAKE = 0 dzGwChanHead = 0. + nsteps = (DT+0.5)/DTRT_CH #ifdef WRF_HYDRO_NUDGING !! Initialize nudging for the current timestep. @@ -2052,211 +1799,280 @@ Subroutine drive_CHANNEL_RSL(UDMP_OPT,KT, IXRT,JXRT, & call setup_stream_nudging(0) !! always zero b/c at beginning of hydro timestep #endif /* WRF_HYDRO_NUDGING */ - nsteps = (DT+0.5)/DTRT_CH - LQLateral = 0 !-- initial lateral flow to 0 for this reach +!--------------------------------------------- +if(channel_only .eq. 1 .or. channelBucket_only .eq. 1) then +#ifdef HYDRO_D + write(6,*), "channel_only or channelBucket_only is not zero. Special flux calculations." + call flush(6) +#endif /* HYDRO_D */ + +! if(nlst_rt(1)%output_channelBucket_influx .eq. 1 .or. & +! nlst_rt(1)%output_channelBucket_influx .eq. 2 ) & +! !! qScfLatRunoff = qLateral - qBucket +! qSfcLatRunoff(1:NLINKSL) = qLateral(1:NLINKSL) - qout_gwsubbas(1:NLINKSL) + + if(nlst_rt(1)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(1)%output_channelBucket_influx .eq. 2 ) then + + if(channel_only .eq. 1) & + !! qScfLatRunoff = qLateral - qBucket + qSfcLatRunoff(1:NLINKSL) = qLateral(1:NLINKSL) - qout_gwsubbas(1:NLINKSL) + + if(channelBucket_only .eq. 1) & + !! qScfLatRunoff = qLateral - qBucket + qSfcLatRunoff(1:NLINKSL) = qLateral(1:NLINKSL) + + end if + + if(nlst_rt(1)%output_channelBucket_influx .eq. 3) & + accSfcLatRunoff(1:NLINKSL) = qSfcLatRunoff * DT + +else + + QLateral = 0 !! the variable solved in this section. Channel only knows this already. + LQLateral = 0 !-- initial lateral flow to 0 for this reach + + tmpQLateral = 0 !! WHY DOES THIS tmp variable EXIST?? Only for accumulations?? + tmpLQLateral = 0 + + ! NHDPLUS maping + if(OVRTSWCRT .eq. 0) then + do k = 1, LNUMRSL + ! get from land grid runoff + do m = 1, LUDRSL(k)%ncell + ii = LUDRSL(k)%cell_i(m) + jj = LUDRSL(k)%cell_j(m) + LQLateral(k) = LQLateral(k)+landRunOff(ii,jj)*LUDRSL(k)%cellweight(m)/1000 & + *LUDRSL(k)%cellArea(m)/DT + tmpLQLateral(k) = tmpLQLateral(k)+landRunOff(ii,jj)*LUDRSL(k)%cellweight(m)/1000 & + *LUDRSL(k)%cellArea(m)/DT + end do + end do - tmpLQLateral = 0 - tmpQLateral = 0 - - ! NHDPLUS maping - if(OVRTSWCRT .eq. 0) then - do k = 1, LNUMRSL - ! get from land grid runoff - do m = 1, LUDRSL(k)%ncell - ii = LUDRSL(k)%cell_i(m) - jj = LUDRSL(k)%cell_j(m) - LQLateral(k) = LQLateral(k)+landRunOff(ii,jj)*LUDRSL(k)%cellweight(m)/1000 & - *LUDRSL(k)%cellArea(m)/DT - tmpLQLateral(k) = tmpLQLateral(k)+landRunOff(ii,jj)*LUDRSL(k)%cellweight(m)/1000 & - *LUDRSL(k)%cellArea(m)/DT - end do - end do #ifdef MPP_LAND - call updateLinkV(tmpLQLateral, tmpQLateral) + call updateLinkV(tmpLQLateral, tmpQLateral) #endif - if(NLINKSL .gt. 0) then - accLndRunOff(1:NLINKSL) = accLndRunOff(1:NLINKSL) + tmpQLateral(1:NLINKSL) * DT - endif - tmpLQLateral = 0 - tmpQLateral = 0 - endif + if(NLINKSL .gt. 0) then + if (nlst_rt(1)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(1)%output_channelBucket_influx .eq. 2 ) & + qSfcLatRunoff(1:NLINKSL) = tmpQLateral(1:NLINKSL) + if (nlst_rt(1)%output_channelBucket_influx .eq. 3) & + accSfcLatRunoff(1:NLINKSL) = accSfcLatRunoff(1:NLINKSL) + tmpQLateral(1:NLINKSL) * DT + endif + tmpLQLateral = 0 !! JLM:: These lines imply that squeege runoff does not count towards + tmpQLateral = 0 !! JLM:: accumulated runoff to be output but it does for internal QLateral? + !! JLM: But then the next accumulation is added to the amt before zeroing? result + !! JLM: should be identical to LQLateral.... I'm totally mystified. + endif + + !! JLM:: if ovrtswcrt=0 and subrtswcrt=1, then this accumulation is calculated twice for LQLateral??? + !! This impiles that if overland routing is off and subsurface routing is on, that + !! qstrmvolrt represents only the subsurface contribution to the channel. + if(OVRTSWCRT .ne. 0 .or. SUBRTSWCRT .ne. 0 ) then + do k = 1, LNUMRSL + ! get from channel grid + do m = 1, LUDRSL(k)%ngrids + ii = LUDRSL(k)%grid_i(m) + jj = LUDRSL(k)%grid_j(m) + LQLateral(k) = LQLateral(k) + QSTRMVOLRT(ii,jj)*LUDRSL(k)%weight(m)/1000 & + *LUDRSL(k)%nodeArea(m)/DT + tmpLQLateral(k) = tmpLQLateral(k) + QSTRMVOLRT(ii,jj)*LUDRSL(k)%weight(m)/1000 & + *LUDRSL(k)%nodeArea(m)/DT + end do + end do - if(OVRTSWCRT .ne. 0 .or. SUBRTSWCRT .ne. 0 ) then - do k = 1, LNUMRSL - ! get from channel grid - do m = 1, LUDRSL(k)%ngrids - ii = LUDRSL(k)%grid_i(m) - jj = LUDRSL(k)%grid_j(m) - LQLateral(k) = LQLateral(k) + QSTRMVOLRT(ii,jj)*LUDRSL(k)%weight(m)/1000 & - *LUDRSL(k)%nodeArea(m)/DT - tmpLQLateral(k) = tmpLQLateral(k) + QSTRMVOLRT(ii,jj)*LUDRSL(k)%weight(m)/1000 & - *LUDRSL(k)%nodeArea(m)/DT - end do - end do #ifdef MPP_LAND - call updateLinkV(tmpLQLateral, tmpQLateral) + call updateLinkV(tmpLQLateral, tmpQLateral) #endif - if(NLINKSL .gt. 0) then - accStrmvolrt(1:NLINKSL) = accStrmvolrt(1:NLINKSL) + tmpQLateral(1:NLINKSL) * DT - endif - endif + !! JLM:: again why output in this conditional ?? why not just output QLateral + !! after this section ???? + if(NLINKSL .gt. 0) then + if(nlst_rt(1)%output_channelBucket_influx .eq. 1 .OR. & + nlst_rt(1)%output_channelBucket_influx .eq. 2 ) & + qSfcLatRunoff(1:NLINKSL) = tmpQLateral(1:NLINKSL) + if(nlst_rt(1)%output_channelBucket_influx .eq. 3) & + accSfcLatRunoff(1:NLINKSL) = accSfcLatRunoff(1:NLINKSL) + tmpQLateral(1:NLINKSL) * DT + end if + + endif #ifdef MPP_LAND - call updateLinkV(LQLateral, QLateral(1:NLINKSL)) + call updateLinkV(LQLateral, QLateral(1:NLINKSL)) #else - call hydro_stop("fatal error: NHDPlus only works for parallel now.") - QLateral = LQLateral + call hydro_stop("fatal error: NHDPlus only works for parallel now.") + QLateral = LQLateral #endif +endif !! (channel_only .eq. 1 .or. channelBucket_only .eq. 1) then; else; endif - if(NLINKSL .gt. 0) then - QLateral(1:NLINKSL) = QLateral(1:NLINKSL) + qout_gwsubbas(1:NLINKSL) - endif - - ! accQLateral = accLndRunOff + QLateral * DT - if(NLINKSL .gt. 0) then - accQLateral(1:NLINKSL) = accQLateral(1:NLINKSL) + QLateral(1:NLINKSL) * DT - accBucket(1:NLINKSL) = accBucket(1:NLINKSL) + qout_gwsubbas(1:NLINKSL) * DT - endif +!--------------------------------------------- +!! If not running channelOnly, here is where the bucket model is picked up +if(channel_only .eq. 1) then +#ifdef HYDRO_D + write(6,*), "channel_only is not zero. No bucket." + call flush(6) +#endif /* HYDRO_D */ +else + !! REQUIRE BUCKET MODEL ON HERE? + if(NLINKSL .gt. 0) QLateral(1:NLINKSL) = QLateral(1:NLINKSL) + qout_gwsubbas(1:NLINKSL) +endif !! if(channel_only .eq. 1) then; else; endif + +if(nlst_rt(1)%output_channelBucket_influx .eq. 1 .or. & + nlst_rt(1)%output_channelBucket_influx .eq. 2 ) & + qBucket(1:NLINKSL) = qout_gwsubbas(1:NLINKSL) + +if(nlst_rt(1)%output_channelBucket_influx .eq. 3) & + accBucket(1:NLINKSL) = accBucket(1:NLINKSL) + qout_gwsubbas(1:NLINKSL) * DT + + +!--------------------------------------------- ! QLateral = QLateral / nsteps - - do nt = 1, nsteps - +do nt = 1, nsteps + #ifdef MPP_LAND - - gQLINK = 0 - call gbcastReal2(toNodeInd,nToNodeInd,QLINK(1:NLINKSL,2), NLINKSL, gQLINK(:,2)) - call gbcastReal2(toNodeInd,nToNodeInd,QLINK(1:NLINKSL,1), NLINKSL, gQLINK(:,1)) - !---------- route other reaches, with upstream inflow + gQLINK = 0 + call gbcastReal2(toNodeInd,nToNodeInd,QLINK(1:NLINKSL,2), NLINKSL, gQLINK(:,2)) + call gbcastReal2(toNodeInd,nToNodeInd,QLINK(1:NLINKSL,1), NLINKSL, gQLINK(:,1)) + !---------- route other reaches, with upstream inflow #endif - - tmpQlink = 0 + + tmpQlink = 0 #ifdef MPP_LAND - if(my_id .eq. io_id) then + if(my_id .eq. io_id) then #endif - tmpQLAKEO = QLAKEO - tmpQLAKEI = QLAKEI - tmpRESHT = RESHT + tmpQLAKEO = QLAKEO + tmpQLAKEI = QLAKEI + tmpRESHT = RESHT #ifdef MPP_LAND - endif + endif #endif - - - DO k = 1,NLINKSL - - Quc = 0 - Qup = 0 - - !process as standard link or a lake inflow link, or lake outflow link - ! link flowing out of lake, accumulate all the inflows with the revised TO_NODEs - ! TYPEL = -999 stnd; TYPEL=1 outflow from lake; TYPEL = 3 inflow to a lake - - if(TYPEL(k) .ne. 2) then ! don't process internal lake links only - + + + do k = 1,NLINKSL + + Quc = 0 + Qup = 0 + + !process as standard link or a lake inflow link, or lake outflow link + ! link flowing out of lake, accumulate all the inflows with the revised TO_NODEs + ! TYPEL = -999 stnd; TYPEL=1 outflow from lake; TYPEL = 3 inflow to a lake + + if(TYPEL(k) .ne. 2) then ! don't process internal lake links only + #ifdef MPP_LAND -!using mapping index - do n = 1, gtoNODE(k,1) - m = gtoNODE(k,n+1) - if(gQLINK(m,2) .gt. 0) Quc = Quc + gQLINK(m,2) !--accum of upstream inflow of current timestep (2) - if(gQLINK(m,1) .gt. 0) Qup = Qup + gQLINK(m,1) !--accum of upstream inflow of previous timestep (1) - end do ! do i + !using mapping index + do n = 1, gtoNODE(k,1) + m = gtoNODE(k,n+1) + !! JLM - I think gQLINK(,2) is actually previous. Global array never sees current. Seeing + !! current would require global communication at the end of each loop through k + !! (=kth reach). Additionally, how do you synchronize to make sure the upstream are all + !! done before doing the downstream? + if(gQLINK(m,2) .gt. 0) Quc = Quc + gQLINK(m,2) !--accum of upstream inflow of current timestep (2) + if(gQLINK(m,1) .gt. 0) Qup = Qup + gQLINK(m,1) !--accum of upstream inflow of previous timestep (1) + end do ! do i #else - do m = 1, NLINKSL - - if (LINKID(k) .eq. TO_NODE(m)) then - Quc = Quc + QLINK(m,2) !--accum of upstream inflow of current timestep (2) - Qup = Qup + QLINK(m,1) !--accum of upstream inflow of previous timestep (1) - endif - end do ! do m + do m = 1, NLINKSL + if (LINKID(k) .eq. TO_NODE(m)) then + Quc = Quc + QLINK(m,2) !--accum of upstream inflow of current timestep (2) + Qup = Qup + QLINK(m,1) !--accum of upstream inflow of previous timestep (1) + endif + end do ! do m #endif - endif !note that we won't process type 2 links, since they are internal to a lake - - -!yw ### process each link k, -! There is a situation that different k point to the same LAKEIDX -! if(TYPEL(k) .eq. 1 .and. LAKEIDX(k) .gt. 0) then !--link is a reservoir - if(TYPEL(k) .eq. 1 ) then !--link is a reservoir - - lakeid = LAKEIDX(k) - if(lakeid .ge. 0) then - CALL LEVELPOOL(lakeid,Qup, Quc, tmpQLINK(k,2), & - QLateral(k), DT, RESHT(lakeid), HRZAREA(lakeid), WEIRH(lakeid), LAKEMAXH(lakeid), & - WEIRC(lakeid), WEIRL(lakeid),ORIFICEE(lakeid), ORIFICEC(lakeid), ORIFICEA(lakeid)) - - QLAKEO(lakeid) = tmpQLINK(k,2) !save outflow to lake - QLAKEI(lakeid) = Quc !save inflow to lake - endif -105 continue + endif !note that we won't process type 2 links, since they are internal to a lake + + + !yw ### process each link k, + ! There is a situation that different k point to the same LAKEIDX + ! if(TYPEL(k) .eq. 1 .and. LAKEIDX(k) .gt. 0) then !--link is a reservoir + if(TYPEL(k) .eq. 1 ) then !--link is a reservoir + + lakeid = LAKEIDX(k) + if(lakeid .ge. 0) then + call LEVELPOOL(lakeid,Qup, Quc, tmpQLINK(k,2), & + QLateral(k), DTRT_CH, RESHT(lakeid), HRZAREA(lakeid), WEIRH(lakeid), LAKEMAXH(lakeid), & + WEIRC(lakeid), WEIRL(lakeid),ORIFICEE(lakeid), ORIFICEC(lakeid), ORIFICEA(lakeid)) - - elseif (channel_option .eq. 1) then !muskingum routing - Km = MUSK(k) - X = MUSX(k) - tmpQLINK(k,2) = MUSKING(k,Qup,(Quc+QLateral(k)),QLINK(k,1),DTRT_CH,Km,X) !upstream plust lateral inflow - - elseif (channel_option .eq. 2) then ! muskingum cunge, don't process internal lake nodes TYP=2 -! tmpQLINK(k,2) = MUSKINGCUNGE(k,Qup, Quc, QLINK(k,1), & -! QLateral(k), DTRT_CH, So(k), CHANLEN(k), & -! MannN(k), ChSSlp(k), Bw(k) ) - - CALL SUBMUSKINGCUNGE(tmpQLINK(k,2),velocity(k), k,Qup, Quc, QLINK(k,1), & - QLateral(k), DTRT_CH, So(k), CHANLEN(k), & - MannN(k), ChSSlp(k), Bw(k) ) - - else + QLAKEO(lakeid) = tmpQLINK(k,2) !save outflow to lake + QLAKEI(lakeid) = Quc !save inflow to lake + endif +105 continue + + + elseif (channel_option .eq. 1) then !muskingum routing + Km = MUSK(k) + X = MUSX(k) + tmpQLINK(k,2) = MUSKING(k,Qup,(Quc+QLateral(k)),QLINK(k,1),DTRT_CH,Km,X) !upstream plust lateral inflow + + elseif (channel_option .eq. 2) then ! muskingum cunge, don't process internal lake nodes TYP=2 + ! tmpQLINK(k,2) = MUSKINGCUNGE(k,Qup, Quc, QLINK(k,1), & + ! QLateral(k), DTRT_CH, So(k), CHANLEN(k), & + ! MannN(k), ChSSlp(k), Bw(k) ) + +#ifdef WRF_HYDRO_NUDGING + call nudge_apply_upstream_muskingumCunge( Qup, Quc, nudge(k), k ) +#endif + + call SUBMUSKINGCUNGE(& + tmpQLINK(k,2), velocity(k), LINKID(k), Qup, Quc, QLINK(k,1), & + QLateral(k), DTRT_CH, So(k), CHANLEN(k), & + MannN(k), ChSSlp(k), Bw(k) ) + + else #ifdef HYDRO_D - print *, " no channel option selected" + print *, " no channel option selected" #endif - call hydro_stop("drive_CHANNEL") - endif - - END DO !--k links - + call hydro_stop("drive_CHANNEL") + endif + + end do !--k links + + #ifdef MPP_LAND - call updateLake_seq(QLAKEO,nlakes,tmpQLAKEO) - call updateLake_seq(QLAKEI,nlakes,tmpQLAKEI) - call updateLake_seq(RESHT,nlakes,tmpRESHT) + call updateLake_seq(QLAKEO,nlakes,tmpQLAKEO) + call updateLake_seq(QLAKEI,nlakes,tmpQLAKEI) + call updateLake_seq(RESHT,nlakes,tmpRESHT) #endif - - do k = 1, NLINKSL !tmpQLINK? - if(TYPEL(k) .ne. 2) then !only the internal lake nodes don't have info.. but need to save QLINK of lake out too - QLINK(k,2) = tmpQLINK(k,2) - endif - QLINK(k,1) = QLINK(k,2) !assigng link flow of current to be previous for next time step - end do - - -#ifdef WRF_HYDRO_NUDGING - if(.not. nudgeWAdvance) call nudge_term_all(qlink, nudge, int(nt*dtrt_ch)) + + do k = 1, NLINKSL !tmpQLINK? + if(TYPEL(k) .ne. 2) then !only the internal lake nodes don't have info.. but need to save QLINK of lake out too + QLINK(k,2) = tmpQLINK(k,2) + endif + QLINK(k,1) = QLINK(k,2) !assigng link flow of current to be previous for next time step + end do + + +#ifdef WRF_HYDRO_NUDGING + if(.not. nudgeWAdvance) call nudge_term_all(qlink, nudge, int(nt*dtrt_ch)) #endif /* WRF_HYDRO_NUDGING */ - - + + !#ifdef HYDRO_D -! print *, "END OF ALL REACHES...",KRT,DT_STEPS +! print *, "END OF ALL REACHES...",KRT,DT_STEPS !#endif + +end do ! nsteps - end do ! nsteps - - if (KT .eq. 1) KT = KT + 1 +if (KT .eq. 1) KT = KT + 1 #ifdef MPP_LAND - if(my_id .eq. io_id) then - if(allocated(tmpQLAKEO)) deallocate(tmpQLAKEO) - if(allocated(tmpQLAKEI)) deallocate(tmpQLAKEI) - if(allocated(tmpRESHT)) deallocate(tmpRESHT) - endif +if(my_id .eq. io_id) then + if(allocated(tmpQLAKEO)) deallocate(tmpQLAKEO) + if(allocated(tmpQLAKEI)) deallocate(tmpQLAKEI) + if(allocated(tmpRESHT)) deallocate(tmpRESHT) +endif #endif - if (KT .eq. 1) KT = KT + 1 +if (KT .eq. 1) KT = KT + 1 ! redundant? - END SUBROUTINE drive_CHANNEL_RSL +end subroutine drive_CHANNEL_RSL ! ---------------------------------------------------------------- -END MODULE module_channel_routing +end module module_channel_routing +!! Is this outside the module scope on purpose? #ifdef MPP_LAND subroutine checkReach(ii, inVar) use module_mpp_land diff --git a/hydro/Routing/module_date_utilities_rt.F b/hydro/Routing/module_date_utilities_rt.F index 1b71ea793c..a15d66f3ca 100644 --- a/hydro/Routing/module_date_utilities_rt.F +++ b/hydro/Routing/module_date_utilities_rt.F @@ -464,7 +464,6 @@ subroutine geth_newdate (ndate, odate, idt) end subroutine geth_newdate subroutine geth_idts (newdate, olddate, idt) - implicit none ! From 2 input mdates ('YYYY-MM-DD HH:MM:SS.ffff'), diff --git a/hydro/Routing/module_lsm_forcing.F b/hydro/Routing/module_lsm_forcing.F index 0e23d53903..3097f24d91 100644 --- a/hydro/Routing/module_lsm_forcing.F +++ b/hydro/Routing/module_lsm_forcing.F @@ -179,7 +179,7 @@ subroutine readland_hrldas(geo_static_flnm,ix,jx,land_cat,soil_cat,vegtyp,soltyp integer, dimension(ix,jx) :: vegtyp_inv, soiltyp_inv,xdum_int integer flag ! flag = 1 from wrfsi, flag =2 from WPS. CHARACTER(len=256) :: var_name - + integer :: istmp, iswater, isoilwater, isother ! Open the NetCDF file. ierr = nf_open(geo_static_flnm, NF_NOWRITE, ncid) @@ -256,7 +256,15 @@ subroutine readland_hrldas(geo_static_flnm,ix,jx,land_cat,soil_cat,vegtyp,soltyp endif - +! Default values based on USGS +iswater = 16 +isoilwater = 14 +isother = 28 ! what is this?? + +ierr = NF_GET_ATT_INT(ncid, NF_GLOBAL, 'ISWATER', istmp) +if (ierr .eq. NF_NOERR) iswater = istmp +ierr = NF_GET_ATT_INT(ncid, NF_GLOBAL, 'ISOILWATER', istmp) +if (ierr .eq. NF_NOERR) isoilwater = istmp ! Close the NetCDF file ierr = nf_close(ncid) @@ -265,12 +273,14 @@ subroutine readland_hrldas(geo_static_flnm,ix,jx,land_cat,soil_cat,vegtyp,soltyp call hydro_stop("In readland_hrldas() - NF_CLOSE problem") endif + write(6, *) "readland_hrldas: ISWATER ISOILWATER", iswater, isoilwater + ! Make sure vegtyp and soltyp are consistent when it comes to water points, ! by setting soil category to water when vegetation category is water, and ! vice-versa. - where (vegtyp == 28) vegtyp = 16 - where (vegtyp == 16) soltyp = 14 - where (soltyp == 14) vegtyp = 16 + where (vegtyp == isother) vegtyp = iswater + where (vegtyp == iswater) soltyp = isoilwater + where (soltyp == isoilwater) vegtyp = iswater !DJG test for deep gw function... ! where (soltyp <> 14) soltyp = 1 @@ -2230,485 +2240,485 @@ subroutine geth_newdate (ndate, odate, idt) end subroutine geth_newdate - subroutine read_hydro_forcing_mpp1( & - indir,olddate,hgrid, & - ix,jx,forc_typ,snow_assim, & - T2,q2x,u,v,pres,xlong,short,prcp1,& - lai,fpar,snodep,dt,k,prcp_old) +subroutine read_hydro_forcing_mpp1( & + indir,olddate,hgrid, & + ix,jx,forc_typ,snow_assim, & + T2,q2x,u,v,pres,xlong,short,prcp1,& + lai,fpar,snodep,dt,k,prcp_old) ! This subrouting is going to read different forcing. - implicit none - ! in variable - character(len=*) :: olddate,hgrid,indir - character(len=256) :: filename - integer :: ix,jx,forc_typ,k,snow_assim ! k is time loop - real,dimension(ix,jx):: T2,q2x,u,v,pres,xlong,short,prcp1,& - prcpnew,weasd,snodep,prcp0,prcp2,prcp_old - real :: dt, wrf_dt - ! tmp variable - character(len=256) :: inflnm, inflnm2, product - integer :: i,j,mmflag,ierr_flg - real,dimension(ix,jx):: lai,fpar - character(len=4) nwxst_t - logical :: fexist - - inflnm = trim(indir)//"/"//& - olddate(1:4)//olddate(6:7)//olddate(9:10)//olddate(12:13)//& - ".LDASIN_DOMAIN"//hgrid +implicit none +! in variable +character(len=*) :: olddate,hgrid,indir +character(len=256) :: filename +integer :: ix,jx,forc_typ,k,snow_assim ! k is time loop +real,dimension(ix,jx):: T2,q2x,u,v,pres,xlong,short,prcp1,& + prcpnew,weasd,snodep,prcp0,prcp2,prcp_old +real :: dt, wrf_dt +! tmp variable +character(len=256) :: inflnm, inflnm2, product +integer :: i,j,mmflag,ierr_flg +real,dimension(ix,jx):: lai,fpar +character(len=4) nwxst_t +logical :: fexist + +inflnm = trim(indir)//"/"//& + olddate(1:4)//olddate(6:7)//olddate(9:10)//olddate(12:13)//& + ".LDASIN_DOMAIN"//hgrid !!!DJG... Call READFORC_(variable) Subroutine for forcing data... !!!DJG HRLDAS Format Forcing with hour format filename (NOTE: precip must be in mm/s!!!) - if(FORC_TYP.eq.1) then -!!Create forcing data filename... - call geth_newdate(out_date,olddate,nint(dt)) - inflnm = trim(indir)//"/"//& - out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& - ".LDASIN_DOMAIN"//hgrid - inquire (file=trim(inflnm), exist=fexist) +!!! FORC_TYPE 1 ============================================================================ +if(FORC_TYP.eq.1) then + !!Create forcing data filename... + call geth_newdate(out_date,olddate,nint(dt)) + inflnm = trim(indir)//"/"//& + out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& + ".LDASIN_DOMAIN"//hgrid + + inquire (file=trim(inflnm), exist=fexist) + #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - if ( .not. fexist ) then - print*, "no forcing data found", inflnm - call hydro_stop("In read_hydro_forcing_mpp1() - no forcing data found") - endif + if ( .not. fexist ) then + print*, "no forcing data found", inflnm + call hydro_stop("In read_hydro_forcing_mpp1() - no forcing data found") + endif #ifdef HYDRO_D - print*, "read forcing data at ", OLDDATE, trim(inflnm) + print*, "read forcing data at ", OLDDATE, trim(inflnm) #endif - CALL READFORC_HRLDAS_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & - PRES,XLONG,SHORT,PRCP1,LAI,FPAR) - - where(PRCP1 .lt. 0) PRCP1= 0 ! set minimum to be 0 - where(PRCP1 .gt. 0.138889) PRCP1= 0.138889 ! set maximum to be 500 mm/h - - end if - - + call READFORC_HRLDAS_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & + PRES,XLONG,SHORT,PRCP1,LAI,FPAR) + + where(PRCP1 .lt. 0) PRCP1= 0 ! set minimum to be 0 + where(PRCP1 .gt. 0.138889) PRCP1= 0.138889 ! set maximum to be 500 mm/h + +end if +!!! FORC_TYPE 2 ============================================================================ !!!DJG HRLDAS Forcing with minute format filename (NOTE: precip must be in mm/s!!!) - if(FORC_TYP.eq.2) then +if(FORC_TYP.eq.2) then + !!Create forcing data filename... - call geth_newdate(out_date,olddate,nint(dt)) - inflnm = trim(indir)//"/"//& - out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& - out_date(15:16)//".LDASIN_DOMAIN"//hgrid - inquire (file=trim(inflnm), exist=fexist) + call geth_newdate(out_date,olddate,nint(dt)) + inflnm = trim(indir)//"/"//& + out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& + out_date(15:16)//".LDASIN_DOMAIN"//hgrid + inquire (file=trim(inflnm), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - if ( .not. fexist ) then - print*, "no forcing data found", inflnm - call hydro_stop("In read_hydro_forcing_mpp1() - no forcing data found") - endif - CALL READFORC_HRLDAS_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & - PRES,XLONG,SHORT,PRCP1,LAI,FPAR) - - where(PRCP1 .lt. 0) PRCP1= 0 ! set minimum to be 0 - where(PRCP1 .gt. 0.138889) PRCP1= 0.138889 ! set maximum to be 500 mm/h - end if - - + if ( .not. fexist ) then + print*, "no forcing data found", inflnm + call hydro_stop("In read_hydro_forcing_mpp1() - no forcing data found") + endif + call READFORC_HRLDAS_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & + PRES,XLONG,SHORT,PRCP1,LAI,FPAR) + + where(PRCP1 .lt. 0) PRCP1= 0 ! set minimum to be 0 + where(PRCP1 .gt. 0.138889) PRCP1= 0.138889 ! set maximum to be 500 mm/h +end if +!!! FORC_TYPE 3 ============================================================================ !!!DJG WRF Output File Direct Ingest Forcing... - if(FORC_TYP.eq.3) then -!!Create forcing data filename... - inflnm = trim(indir)//"/"//& - "wrfout_d0"//hgrid//"_"//& - olddate(1:4)//"-"//olddate(6:7)//"-"//olddate(9:10)//& - "_"//olddate(12:13)//":00:00" - - inquire (file=trim(inflnm), exist=fexist) +if(FORC_TYP.eq.3) then + !!Create forcing data filename... + inflnm = trim(indir)//"/"//& + "wrfout_d0"//hgrid//"_"//& + olddate(1:4)//"-"//olddate(6:7)//"-"//olddate(9:10)//& + "_"//olddate(12:13)//":00:00" + + inquire (file=trim(inflnm), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - if ( .not. fexist ) then - print*, "no forcing data found", inflnm - call hydro_stop("read_hydro_forcing_seq") - endif - - do i_forcing = 1, int(24*3600/dt) - wrf_dt = i_forcing*dt - call geth_newdate(out_date,olddate,nint(wrf_dt)) - inflnm2 = trim(indir)//"/"//& - "wrfout_d0"//hgrid//"_"//& - out_date(1:4)//"-"//out_date(6:7)//"-"//out_date(9:10)//& - "_"//out_date(12:13)//":00:00" - inquire (file=trim(inflnm2), exist=fexist) + if ( .not. fexist ) then + print*, "no forcing data found", inflnm + call hydro_stop("read_hydro_forcing_seq") + endif + + do i_forcing = 1, int(24*3600/dt) + wrf_dt = i_forcing*dt + call geth_newdate(out_date,olddate,nint(wrf_dt)) + inflnm2 = trim(indir)//"/"//& + "wrfout_d0"//hgrid//"_"//& + out_date(1:4)//"-"//out_date(6:7)//"-"//out_date(9:10)//& + "_"//out_date(12:13)//":00:00" + inquire (file=trim(inflnm2), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - if (fexist ) goto 991 - end do -991 continue - - if(.not. fexist) then - write(6,*) "Error: could not find file ",trim(inflnm2) - call hydro_stop("In read_hydro_forcing_mpp1() - could not find WRF forcing file") - endif + if (fexist ) goto 991 + end do +991 continue + + if(.not. fexist) then + write(6,*) "Error: could not find file ",trim(inflnm2) + call hydro_stop("In read_hydro_forcing_mpp1() - could not find WRF forcing file") + endif #ifdef HYDRO_D - print*, "read WRF forcing data: ", trim(inflnm) - print*, "read WRF forcing data: ", trim(inflnm2) + print*, "read WRF forcing data: ", trim(inflnm) + print*, "read WRF forcing data: ", trim(inflnm2) #endif + + + call READFORC_WRF_mpp(inflnm2,IX,JX,OLDDATE,T2,Q2X,U,V, & + PRES,XLONG,SHORT,PRCPnew,lai,fpar) + call READFORC_WRF_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & + PRES,XLONG,SHORT,prcp0,lai,fpar) + PRCP1=(PRCPnew-prcp0)/wrf_dt !Adjustment to convert accum to rate...(mm/s) + +end if - CALL READFORC_WRF_mpp(inflnm2,IX,JX,OLDDATE,T2,Q2X,U,V, & - PRES,XLONG,SHORT,PRCPnew,lai,fpar) - CALL READFORC_WRF_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & - PRES,XLONG,SHORT,prcp0,lai,fpar) - PRCP1=(PRCPnew-prcp0)/wrf_dt !Adjustment to convert accum to rate...(mm/s) - - end if - - - - - +!!! FORC_TYPE4 ============================================================================ !!!DJG CONSTant, idealized forcing... - if(FORC_TYP.eq.4) then -! Impose a fixed diurnal cycle... -! assumes model timestep is 1 hr -! assumes K=1 is 12z (Ks or ~ sunrise) -! First Precip... -! IF (K.GE.1 .and. K.LE.2) THEN - IF (K.EQ.1) THEN - PRCP1 =25.4/3600.0 !units mm/s (Simulates 1"/hr for first time step...) - ELSEIF (K.GT.1) THEN - PRCP1 = 0. - END IF -! Other Met. Vars... - T2=290.0 + 3.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) - Q2X = 0.01 - U = 1.0 - V = 1.0 - PRES = 100000.0 - XLONG=400.0 + 25.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) - SHORT=450.0 + 450.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) - end if - - - - - +if(FORC_TYP.eq.4) then + ! Impose a fixed diurnal cycle... + ! assumes model timestep is 1 hr + ! assumes K=1 is 12z (Ks or ~ sunrise) + ! First Precip... + ! IF (K.GE.1 .and. K.LE.2) THEN + if (K.eq.1) then + PRCP1 =25.4/3600.0 !units mm/s (Simulates 1"/hr for first time step...) + elseif (K.gt.1) then + PRCP1 = 0. + end if + ! Other Met. Vars... + T2=290.0 + 3.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) + Q2X = 0.01 + U = 1.0 + V = 1.0 + PRES = 100000.0 + XLONG=400.0 + 25.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) + SHORT=450.0 + 450.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) +end if + + +!!! FORC_TYPE 5 ============================================================================ !!!DJG Idealized Met. w/ Specified Precip. Forcing Data...(Note: input precip units here are in 'mm/hr') ! This option uses hard-wired met forcing EXCEPT precipitation which is read in ! from a single, separate input file called 'YYYYMMDDHHMM.PRECIP_FORCING.nc' ! - if(FORC_TYP.eq.5) then -! Standard Met. Vars... - T2=290.0 + 3.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) - Q2X = 0.01 - U = 1.0 - V = 1.0 - PRES = 100000.0 - XLONG=400.0 + 25.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) - SHORT=450.0 + 450.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) - -!Get specified precip.... +if(FORC_TYP.eq.5) then + ! Standard Met. Vars... + T2=290.0 + 3.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) + Q2X = 0.01 + U = 1.0 + V = 1.0 + PRES = 100000.0 + XLONG=400.0 + 25.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) + SHORT=450.0 + 450.0*(cos((2*3.1416*K/24.0)-12.0*2*3.1416/24.0)) + + !Get specified precip.... !!!VIP, dimensions of grid are currently hardwired in input subroutine!!! -! product = "trmm" -! inflnm = trim(indir)//"/"//"sat_domain1.nc" -!!Create forcing data filename... - inflnm = trim(indir)//"/"//& - olddate(1:4)//olddate(6:7)//olddate(9:10)//olddate(12:13)//& - olddate(15:16)//".PRECIP_FORCING.nc" - inquire (file=trim(inflnm), exist=fexist) + ! product = "trmm" + ! inflnm = trim(indir)//"/"//"sat_domain1.nc" + !!Create forcing data filename... + inflnm = trim(indir)//"/"//& + olddate(1:4)//olddate(6:7)//olddate(9:10)//olddate(12:13)//& + olddate(15:16)//".PRECIP_FORCING.nc" + inquire (file=trim(inflnm), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - if ( .not. fexist ) then - print*, "no specified precipitation data found", inflnm - call hydro_stop("In read_hydro_forcing_mpp1() - no specified precipitation data found") - endif - - PRCP1 = 0. - PRCP_old = PRCP1 - + if ( .not. fexist ) then + print*, "no specified precipitation data found", inflnm + call hydro_stop("In read_hydro_forcing_mpp1() - no specified precipitation data found") + endif + + PRCP1 = 0. + PRCP_old = PRCP1 + #ifdef HYDRO_D - print *, "Opening supplemental precipitation forcing file...",inflnm + print *, "Opening supplemental precipitation forcing file...",inflnm #endif - CALL READFORC_MDV_mpp(inflnm,IX,JX, & - PRCP2,mmflag,ierr_flg) - -!If radar or spec. data is ok use if not, skip to original NARR data... - IF (ierr_flg.eq.0) then ! use spec. precip -!Convert units if necessary - IF (mmflag.eq.0) then !Convert pcp grid to units of mm/s... - PRCP1=PRCP2/DT !convert from mm to mm/s + call READFORC_MDV_mpp(inflnm,IX,JX, & + PRCP2,mmflag,ierr_flg) + + !If radar or spec. data is ok use if not, skip to original NARR data... + if (ierr_flg.eq.0) then ! use spec. precip + !Convert units if necessary + if (mmflag.eq.0) then !Convert pcp grid to units of mm/s... + PRCP1=PRCP2/DT !convert from mm to mm/s #ifdef HYDRO_D - print*, "Supplemental pcp is accumulated pcp/dt. " + print*, "Supplemental pcp is accumulated pcp/dt. " #endif - else - PRCP1=PRCP2 !assumes PRCP2 is in mm/s + else + PRCP1=PRCP2 !assumes PRCP2 is in mm/s #ifdef HYDRO_D - print*, "Supplemental pcp is rate. " + print*, "Supplemental pcp is rate. " #endif - END IF ! Endif mmflag - ELSE ! either stop or default to original forcing data... + end if ! Endif mmflag + else ! either stop or default to original forcing data... #ifdef HYDRO_D - print *,"Current RADAR precip data not found !!! Using previous available file..." + print *,"Current RADAR precip data not found !!! Using previous available file..." #endif - PRCP1 = PRCP_old - END IF ! Endif ierr_flg - -! Loop through data to screen for plausible values - do i=1,ix - do j=1,jx - if (PRCP1(i,j).lt.0.) PRCP1(i,j)= PRCP_old(i,j) - if (PRCP1(i,j).gt.0.138889) PRCP1(i,j)=0.138889 !set max pcp intens = 500 mm/h - end do - end do - - end if - - - + PRCP1 = PRCP_old + end if ! Endif ierr_flg + + ! Loop through data to screen for plausible values + do i=1,ix + do j=1,jx + if (PRCP1(i,j).lt.0.) PRCP1(i,j)= PRCP_old(i,j) + if (PRCP1(i,j).gt.0.138889) PRCP1(i,j)=0.138889 !set max pcp intens = 500 mm/h + end do + end do + +end if +!!! FORC_TYPE 6 ============================================================================ !!!DJG HRLDAS Forcing with hourly format filename with specified precipitation forcing... ! This option uses HRLDAS-formatted met forcing EXCEPT precipitation which is read in ! from a single, separate input file called 'YYYYMMDDHHMM.PRECIP_FORCING.nc' - if(FORC_TYP.eq.6) then - -!!Create forcing data filename... - +if(FORC_TYP.eq.6) then + + !!Create forcing data filename... + #ifdef MPP_LAND if(my_id .eq. io_id) then #endif - do i_forcing = 1, nint(3600*12/dt) - call geth_newdate(out_date,olddate,nint(dt*i_forcing)) - inflnm = trim(indir)//"/"//& - out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& - ".LDASIN_DOMAIN"//hgrid - - inquire (file=trim(inflnm), exist=fexist) - if(fexist) goto 101 - enddo -101 continue + do i_forcing = 1, nint(3600*12/dt) + call geth_newdate(out_date,olddate,nint(dt*i_forcing)) + inflnm = trim(indir)//"/"//& + out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& + ".LDASIN_DOMAIN"//hgrid + + inquire (file=trim(inflnm), exist=fexist) + if(fexist) goto 101 + enddo +101 continue #ifdef MPP_LAND endif - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - - if ( .not. fexist ) then + + if ( .not. fexist ) then #ifdef MPP_LAND - if(my_id .eq. io_id) then + if(my_id .eq. io_id) then #endif - do i_forcing = 1, nint(3600*12/dt) - call geth_newdate(out_date,olddate,nint(dt*i_forcing)) - inflnm = trim(indir)//"/"//& - out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& - out_date(15:16)//".LDASIN_DOMAIN"//hgrid - inquire (file=trim(inflnm), exist=fexist) - if(fexist) goto 102 - end do -102 continue + do i_forcing = 1, nint(3600*12/dt) + call geth_newdate(out_date,olddate,nint(dt*i_forcing)) + inflnm = trim(indir)//"/"//& + out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& + out_date(15:16)//".LDASIN_DOMAIN"//hgrid + inquire (file=trim(inflnm), exist=fexist) + if(fexist) goto 102 + end do +102 continue #ifdef MPP_LAND - endif - call mpp_land_bcast_logical(fexist) + endif + call mpp_land_bcast_logical(fexist) #endif - endif - - - if ( .not. fexist ) then + endif + + + if ( .not. fexist ) then #ifdef HYDRO_D - print*, "no ATM forcing data found at this time", inflnm + print*, "no ATM forcing data found at this time", inflnm #endif - else + else #ifdef HYDRO_D - print*, "reading forcing data at this time", inflnm + print*, "reading forcing data at this time", inflnm #endif - - CALL READFORC_HRLDAS_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & - PRES,XLONG,SHORT,PRCP1,LAI,FPAR) - PRCP_old = PRCP1 ! This assigns new precip to last precip as a fallback for missing data... - endif - - -!Get specified precip.... -!!!VIP, dimensions of grid are currently hardwired in input subroutine!!! -!!Create forcing data filename... - call geth_newdate(out_date,olddate,nint(dt)) - inflnm = trim(indir)//"/"//& - out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& - out_date(15:16)//".PRECIP_FORCING.nc" - inquire (file=trim(inflnm), exist=fexist) + + call READFORC_HRLDAS_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & + PRES,XLONG,SHORT,PRCP1,LAI,FPAR) + PRCP_old = PRCP1 ! This assigns new precip to last precip as a fallback for missing data... + endif + + + !Get specified precip.... + !VIP, dimensions of grid are currently hardwired in input subroutine!!! + !!Create forcing data filename... + call geth_newdate(out_date,olddate,nint(dt)) + inflnm = trim(indir)//"/"//& + out_date(1:4)//out_date(6:7)//out_date(9:10)//out_date(12:13)//& + out_date(15:16)//".PRECIP_FORCING.nc" + inquire (file=trim(inflnm), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif #ifdef HYDRO_D - if(my_id .eq. io_id) then - if(fexist) then - print*, "using specified pcp forcing: ",trim(inflnm) - else - print*, "no specified pcp forcing: ",trim(inflnm) - endif - endif + if(my_id .eq. io_id) then + if(fexist) then + print*, "using specified pcp forcing: ",trim(inflnm) + else + print*, "no specified pcp forcing: ",trim(inflnm) + endif + endif #endif - if ( .not. fexist ) then - prcp1 = PRCP_old ! for missing pcp data use analysis/model input - else - CALL READFORC_MDV_mpp(inflnm,IX,JX, & - PRCP2,mmflag,ierr_flg) -!If radar or spec. data is ok use if not, skip to original NARR data... - if(ierr_flg .ne. 0) then + if ( .not. fexist ) then + prcp1 = PRCP_old ! for missing pcp data use analysis/model input + else + call READFORC_MDV_mpp(inflnm,IX,JX, & + PRCP2,mmflag,ierr_flg) + !If radar or spec. data is ok use if not, skip to original NARR data... + if(ierr_flg .ne. 0) then #ifdef HYDRO_D - print*, "WARNING: pcp reading problem: ", trim(inflnm) -#endif - PRCP1=PRCP_old - else - PRCP1=PRCP2 !assumes PRCP2 is in mm/s - IF (mmflag.eq.0) then !Convert pcp grid to units of mm/s... - PRCP1=PRCP2/DT !convert from mm to mm/s - END IF ! Endif mmflag + print*, "WARNING: pcp reading problem: ", trim(inflnm) +#endif + PRCP1=PRCP_old + else + PRCP1=PRCP2 !assumes PRCP2 is in mm/s + if (mmflag.eq.0) then !Convert pcp grid to units of mm/s... + PRCP1=PRCP2/DT !convert from mm to mm/s + end if ! Endif mmflag #ifdef HYDRO_D - if(my_id .eq. io_id) then - print*, "replace pcp successfully! ",trim(inflnm) - endif + if(my_id .eq. io_id) then + print*, "replace pcp successfully! ",trim(inflnm) + endif #endif - endif - endif - - -! Loop through data to screen for plausible values - where(PRCP1 .lt. 0) PRCP1=PRCP_old - where(PRCP1 .gt. 10 ) PRCP1= PRCP_old - do i=1,ix - do j=1,jx - if (PRCP1(i,j).lt.0.) PRCP1(i,j)=0.0 - if (PRCP1(i,j).gt.0.138889) PRCP1(i,j)=0.138889 !set max pcp intens = 500 mm/h - end do - end do -! write(80,*) prcp1 - - end if + endif + endif + + + ! Loop through data to screen for plausible values + where(PRCP1 .lt. 0) PRCP1=PRCP_old + where(PRCP1 .gt. 10 ) PRCP1= PRCP_old + do i=1,ix + do j=1,jx + if (PRCP1(i,j).lt.0.) PRCP1(i,j)=0.0 + if (PRCP1(i,j).gt.0.138889) PRCP1(i,j)=0.138889 !set max pcp intens = 500 mm/h + end do + end do + ! write(80,*) prcp1 + +end if +!!! FORC_TYPE 7 ============================================================================ !!!! FORC_TYP 7: uses WRF forcing data plus additional pcp forcing. - if(FORC_TYP.eq.7) then - -!!Create forcing data filename... - inflnm = trim(indir)//"/"//& - "wrfout_d0"//hgrid//"_"//& - olddate(1:4)//"-"//olddate(6:7)//"-"//olddate(9:10)//& - "_"//olddate(12:13)//":00:00" - - inquire (file=trim(inflnm), exist=fexist) +if(FORC_TYP.eq.7) then + + !!Create forcing data filename... + inflnm = trim(indir)//"/"//& + "wrfout_d0"//hgrid//"_"//& + olddate(1:4)//"-"//olddate(6:7)//"-"//olddate(9:10)//& + "_"//olddate(12:13)//":00:00" + + inquire (file=trim(inflnm), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - - - if ( .not. fexist ) then + + + if ( .not. fexist ) then #ifdef HYDRO_D - print*, "no forcing data found", inflnm -#endif - else - do i_forcing = 1, int(24*3600/dt) - wrf_dt = i_forcing*dt - call geth_newdate(out_date,olddate,nint(wrf_dt)) - inflnm2 = trim(indir)//"/"//& - "wrfout_d0"//hgrid//"_"//& - out_date(1:4)//"-"//out_date(6:7)//"-"//out_date(9:10)//& - "_"//out_date(12:13)//":00:00" - inquire (file=trim(inflnm2), exist=fexist) + print*, "no forcing data found", inflnm +#endif + else + do i_forcing = 1, int(24*3600/dt) + wrf_dt = i_forcing*dt + call geth_newdate(out_date,olddate,nint(wrf_dt)) + inflnm2 = trim(indir)//"/"//& + "wrfout_d0"//hgrid//"_"//& + out_date(1:4)//"-"//out_date(6:7)//"-"//out_date(9:10)//& + "_"//out_date(12:13)//":00:00" + inquire (file=trim(inflnm2), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif - if (fexist ) goto 992 - end do -992 continue - + if (fexist ) goto 992 + end do +992 continue + #ifdef HYDRO_D - print*, "read WRF forcing data: ", trim(inflnm) - print*, "read WRF forcing data: ", trim(inflnm2) -#endif - CALL READFORC_WRF_mpp(inflnm2,IX,JX,OLDDATE,T2,Q2X,U,V, & - PRES,XLONG,SHORT,PRCPnew,lai,fpar) - CALL READFORC_WRF_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & - PRES,XLONG,SHORT,prcp0,lai,fpar) - PRCP1=(PRCPnew-prcp0)/wrf_dt !Adjustment to convert accum to rate...(mm/s) - PRCP_old = PRCP1 - endif - -!Get specified precip.... -!!!VIP, dimensions of grid are currently hardwired in input subroutine!!! -!!Create forcing data filename... - inflnm = trim(indir)//"/"//& - olddate(1:4)//olddate(6:7)//olddate(9:10)//olddate(12:13)//& - olddate(15:16)//".PRECIP_FORCING.nc" - inquire (file=trim(inflnm), exist=fexist) + print*, "read WRF forcing data: ", trim(inflnm) + print*, "read WRF forcing data: ", trim(inflnm2) +#endif + call READFORC_WRF_mpp(inflnm2,IX,JX,OLDDATE,T2,Q2X,U,V, & + PRES,XLONG,SHORT,PRCPnew,lai,fpar) + call READFORC_WRF_mpp(inflnm,IX,JX,OLDDATE,T2,Q2X,U,V, & + PRES,XLONG,SHORT,prcp0,lai,fpar) + PRCP1=(PRCPnew-prcp0)/wrf_dt !Adjustment to convert accum to rate...(mm/s) + PRCP_old = PRCP1 + endif + + !Get specified precip.... + !VIP, dimensions of grid are currently hardwired in input subroutine!!! + !!Create forcing data filename... + inflnm = trim(indir)//"/"//& + olddate(1:4)//olddate(6:7)//olddate(9:10)//olddate(12:13)//& + olddate(15:16)//".PRECIP_FORCING.nc" + inquire (file=trim(inflnm), exist=fexist) #ifdef MPP_LAND - call mpp_land_bcast_logical(fexist) + call mpp_land_bcast_logical(fexist) #endif #ifdef HYDRO_D - if(fexist) then - print*, "using specified pcp forcing: ",trim(inflnm) - else - print*, "no specified pcp forcing: ",trim(inflnm) - endif + if(fexist) then + print*, "using specified pcp forcing: ",trim(inflnm) + else + print*, "no specified pcp forcing: ",trim(inflnm) + endif #endif - if ( .not. fexist ) then - prcp1 = PRCP_old ! for missing pcp data use analysis/model input - else - CALL READFORC_MDV_mpp(inflnm,IX,JX, & - PRCP2,mmflag,ierr_flg) -!If radar or spec. data is ok use if not, skip to original NARR data... - if(ierr_flg .ne. 0) then + if ( .not. fexist ) then + prcp1 = PRCP_old ! for missing pcp data use analysis/model input + else + call READFORC_MDV_mpp(inflnm,IX,JX, & + PRCP2,mmflag,ierr_flg) + !If radar or spec. data is ok use if not, skip to original NARR data... + if(ierr_flg .ne. 0) then #ifdef HYDRO_D - print*, "WARNING: pcp reading problem: ", trim(inflnm) -#endif - PRCP1=PRCP_old - else - PRCP1=PRCP2 !assumes PRCP2 is in mm/s - IF (mmflag.eq.0) then !Convert pcp grid to units of mm/s... - write(6,*) "using supplemental pcp time interval ", DT - PRCP1=PRCP2/DT !convert from mm to mm/s - else - write(6,*) "using supplemental pcp rates " - END IF ! Endif mmflag + print*, "WARNING: pcp reading problem: ", trim(inflnm) +#endif + PRCP1=PRCP_old + else + PRCP1=PRCP2 !assumes PRCP2 is in mm/s + if (mmflag.eq.0) then !Convert pcp grid to units of mm/s... + write(6,*) "using supplemental pcp time interval ", DT + PRCP1=PRCP2/DT !convert from mm to mm/s + else + write(6,*) "using supplemental pcp rates " + end if ! Endif mmflag #ifdef HYDRO_D - print*, "replace pcp successfully! ",trim(inflnm) + print*, "replace pcp successfully! ",trim(inflnm) #endif - endif - endif + endif + endif + + + ! Loop through data to screen for plausible values + where(PRCP1 .lt. 0) PRCP1=PRCP_old + where(PRCP1 .gt. 10 ) PRCP1= PRCP_old ! set maximum to be 500 mm/h + where(PRCP1 .gt. 0.138889) PRCP1= 0.138889 ! set maximum to be 500 mm/h +end if -! Loop through data to screen for plausible values - where(PRCP1 .lt. 0) PRCP1=PRCP_old - where(PRCP1 .gt. 10 ) PRCP1= PRCP_old ! set maximum to be 500 mm/h - where(PRCP1 .gt. 0.138889) PRCP1= 0.138889 ! set maximum to be 500 mm/h - end if !!!!DJG Check for snow data assimilation... - - if (SNOW_ASSIM .eq. 1) then - -! Every 24 hours, update the snow field from analyses. - if(forc_typ .ne. 3 .or. forc_typ .ne. 6) then - if ( OLDDATE(12:13) == "00") then - CALL READSNOW_FORC_mpp(inflnm,IX,JX,WEASD,SNODEP) - endif - else - CALL READSNOW_FORC_mpp(inflnm,IX,JX,WEASD,SNODEP) - endif - - end if +if (SNOW_ASSIM .eq. 1) then + + ! Every 24 hours, update the snow field from analyses. + if(forc_typ .ne. 3 .or. forc_typ .ne. 6) then + if ( OLDDATE(12:13) == "00") then + call READSNOW_FORC_mpp(inflnm,IX,JX,WEASD,SNODEP) + endif + else + call READSNOW_FORC_mpp(inflnm,IX,JX,WEASD,SNODEP) + endif + +end if #ifdef PRECIP_DOUBLE #ifdef HYDRO_D - print*,'PRECIP DOUBLE' +print*,'PRECIP DOUBLE' #endif - PRCP1 = PRCP1 * 2.0 +PRCP1 = PRCP1 * 2.0 #endif - end subroutine read_hydro_forcing_mpp1 +end subroutine read_hydro_forcing_mpp1 + + subroutine READFORC_HRLDAS_mpp(flnm,ix,jx,target_date, t,q,u,v,p,lw,sw,pcp,lai,fpar) implicit none @@ -2749,6 +2759,7 @@ subroutine READFORC_HRLDAS_mpp(flnm,ix,jx,target_date, t,q,u,v,p,lw,sw,pcp,lai,f call hydro_stop("In READFORC_HRLDAS_mpp() - Problem opening netcdf file") endif + if(my_id .eq. io_id ) call get_2d_netcdf("T2D", ncid,buf2, units, global_nx, global_ny, .TRUE., ierr) call decompose_data_real (buf2,t) if(my_id .eq. io_id ) call get_2d_netcdf("Q2D", ncid,buf2, units, global_nx, global_ny, .TRUE., ierr) diff --git a/hydro/Routing/rtFunction.F b/hydro/Routing/rtFunction.F deleted file mode 100644 index 9334307f11..0000000000 --- a/hydro/Routing/rtFunction.F +++ /dev/null @@ -1,222 +0,0 @@ - subroutine exeRouting (did) - use module_RT_data, only: rt_domain - use module_GW_baseflow_data, only: gw2d - use module_GW_baseflow, only: simp_gw_buck, gwstep - use module_channel_routing, only: drive_channel - use module_namelist, only: nlst_rt - -#ifdef MPP_LAND - use module_mpp_land -#endif - - - implicit none - integer did, i - real, dimension(RT_DOMAIN(did)%IXRT,RT_DOMAIN(did)%JXRT):: & - QSTRMVOLRT_DUM,LAKE_INFLORT_DUM, & - QSTRMVOLRT_TS, LAKE_INFLORT_TS - - real :: dx - integer ii,jj,kk - - - IF (nlst_rt(did)%SUBRTSWCRT.EQ.1 .or. nlst_rt(did)%OVRTSWCRT.EQ.1 .or. nlst_rt(did)%GWBASESWCRT .ne. 0) THEN - - QSTRMVOLRT_DUM = RT_DOMAIN(did)%QSTRMVOLRT - LAKE_INFLORT_DUM = RT_DOMAIN(did)%LAKE_INFLORT - -#ifdef HYDRO_D - write(6,*) "*****yw******start drive_RT " -#endif - - - -! write(6,*) "yyww RT_DOMAIN(did)%SH2OX(15,1,7)= ", RT_DOMAIN(did)%SH2OX(15,1,7) - - call drive_RT( RT_DOMAIN(did)%IX,RT_DOMAIN(did)%JX,nlst_rt(did)%NSOIL,& - RT_DOMAIN(did)%IXRT,RT_DOMAIN(did)%JXRT, & - RT_DOMAIN(did)%SMC,RT_DOMAIN(did)%STC,RT_DOMAIN(did)%SH2OX, & - RT_DOMAIN(did)%INFXSRT,RT_DOMAIN(did)%SFCHEADRT,RT_DOMAIN(did)%SMCMAX1,& - RT_DOMAIN(did)%SMCREF1,RT_DOMAIN(did)%LKSAT, & - RT_DOMAIN(did)%SMCWLT1, RT_DOMAIN(did)%SMCRTCHK,RT_DOMAIN(did)%DSMC,& - RT_DOMAIN(did)%ZSOIL, RT_DOMAIN(did)%SMCAGGRT,& - RT_DOMAIN(did)%STCAGGRT,RT_DOMAIN(did)%SH2OAGGRT, & - RT_DOMAIN(did)%SLDPTH,RT_DOMAIN(did)%VEGTYP,RT_DOMAIN(did)%SOLDEPRT,& - RT_DOMAIN(did)%INFXSAGGRT,RT_DOMAIN(did)%DHRT,RT_DOMAIN(did)%QSTRMVOLRT, & - RT_DOMAIN(did)%QBDRYRT,RT_DOMAIN(did)%LAKE_INFLORT,& - RT_DOMAIN(did)%SFCHEADSUBRT,RT_DOMAIN(did)%INFXSWGT,& - RT_DOMAIN(did)%LKSATRT, & - RT_DOMAIN(did)%INFXSUBRT,RT_DOMAIN(did)%OVROUGHRT,& - RT_DOMAIN(did)%QSUBRT,RT_DOMAIN(did)%ZWATTABLRT, & - RT_DOMAIN(did)%QSUBBDRYRT, & - RT_DOMAIN(did)%RETDEPRT,RT_DOMAIN(did)%SOXRT,RT_DOMAIN(did)%SOYRT,& - RT_DOMAIN(did)%SUB_RESID,RT_DOMAIN(did)%SMCRT,& - RT_DOMAIN(did)%SMCMAXRT,RT_DOMAIN(did)%SMCWLTRT, & - RT_DOMAIN(did)%SH2OWGT,RT_DOMAIN(did)%LAKE_MSKRT,& - RT_DOMAIN(did)%CH_NETRT, RT_DOMAIN(did)%dist, & - RT_DOMAIN(did)%LSMVOL,RT_DOMAIN(did)%DSMCTOT, & - RT_DOMAIN(did)%SMCTOT1,& - RT_DOMAIN(did)%SMCTOT2,RT_DOMAIN(did)%suminfxs1, & - RT_DOMAIN(did)%suminfxsrt,RT_DOMAIN(did)%SO8RT, & - RT_DOMAIN(did)%SO8RT_D,nlst_rt(did)%AGGFACTRT, & - nlst_rt(did)%SUBRTSWCRT,nlst_rt(did)%OVRTSWCRT, & - RT_DOMAIN(did)%LAKE_CT, RT_DOMAIN(did)%STRM_CT, & - nlst_rt(did)%RT_OPTION,RT_DOMAIN(did)%OV_ROUGH, & - RT_DOMAIN(did)%INFXSAGG1RT,RT_DOMAIN(did)%SFCHEADAGG1RT,& - RT_DOMAIN(did)%SFCHEADAGGRT,& - nlst_rt(did)%DTRT, & - nlst_rt(did)%DT,RT_DOMAIN(did)%LAKE_INFLOTRT,& - RT_DOMAIN(did)%QBDRYTRT,RT_DOMAIN(did)%QSUBBDRYTRT,& - RT_DOMAIN(did)%QSTRMVOLTRT,RT_DOMAIN(did)%q_sfcflx_x,& - RT_DOMAIN(did)%q_sfcflx_y,RT_DOMAIN(did)%LKSATFAC,& - RT_DOMAIN(did)%OVROUGHRTFAC,rt_domain(did)%dist_lsm(:,:,9) ) - - QSTRMVOLRT_TS = RT_DOMAIN(did)%QSTRMVOLRT-QSTRMVOLRT_DUM - LAKE_INFLORT_TS = RT_DOMAIN(did)%LAKE_INFLORT-LAKE_INFLORT_DUM - -#ifdef HYDRO_D - write(6,*) "*****yw******end drive_RT " -#endif - end if - - - -!------------------------------------------------------------------ -!DJG Begin GW/Baseflow Routines -!------------------------------------------------------------------- - - IF (nlst_rt(did)%GWBASESWCRT.GE.1) THEN ! Switch to activate/specify GW/Baseflow - -! IF (nlst_rt(did)%GWBASESWCRT.GE.1000) THEN ! Switch to activate/specify GW/Baseflow - - If (nlst_rt(did)%GWBASESWCRT.EQ.1.OR.nlst_rt(did)%GWBASESWCRT.EQ.2) Then ! Call simple bucket baseflow scheme - -#ifdef HYDRO_D - write(6,*) "*****yw******start simp_gw_buck " -#endif - - call simp_gw_buck(RT_DOMAIN(did)%ix,RT_DOMAIN(did)%jx,RT_DOMAIN(did)%ixrt,& - RT_DOMAIN(did)%jxrt,RT_DOMAIN(did)%numbasns,RT_DOMAIN(did)%basns_area,& - RT_DOMAIN(did)%gwsubbasmsk, RT_DOMAIN(did)%INFXSRT, & - RT_DOMAIN(did)%SOLDRAIN, & - RT_DOMAIN(did)%z_gwsubbas,& - RT_DOMAIN(did)%qin_gwsubbas,RT_DOMAIN(did)%qout_gwsubbas,& - RT_DOMAIN(did)%qinflowbase,& - RT_DOMAIN(did)%gw_strm_msk,RT_DOMAIN(did)%gwbas_pix_ct, & - RT_DOMAIN(did)%dist,nlst_rt(did)%DT,& - RT_DOMAIN(did)%gw_buck_coeff,RT_DOMAIN(did)%gw_buck_exp, & - RT_DOMAIN(did)%z_max,& - nlst_rt(did)%GWBASESWCRT,nlst_rt(did)%OVRTSWCRT) - - -#ifdef MPP_LAND - if(my_id .eq. IO_id) then -#endif - - open (unit=51,file='GW_inflow.txt',form='formatted',& - status='unknown',position='append') - open (unit=52,file='GW_outflow.txt',form='formatted',& - status='unknown',position='append') - open (unit=53,file='GW_zlev.txt',form='formatted',& - status='unknown',position='append') - do i=1,RT_DOMAIN(did)%numbasns - write (51,951) i,nlst_rt(did)%olddate,rt_domain(did)%qin_gwsubbas(i) -951 FORMAT(I3,1X,A19,1X,F11.3) - write (52,951) i,nlst_rt(did)%olddate,rt_domain(did)%qout_gwsubbas(i) - write (53,951) i,nlst_rt(did)%olddate,rt_domain(did)%z_gwsubbas(i) - end do - close(51) - close(52) - close(53) -#ifdef MPP_LAND - endif -#endif - -#ifdef HYDRO_D - write(6,*) "*****yw******end simp_gw_buck " -#endif - -!!!For parameter setup runs output the percolation for each basin, -!!!otherwise comment out this output... - else if (nlst_rt(did)%GWBASESWCRT .eq. 3) then - -#ifdef HYDRO_D - write(6,*) "*****bf******start 2d_gw_model " -#endif - - DX = abs(nlst_rt(did)%DXRT0 * nlst_rt(did)%AGGFACTRT) - - call gwstep(gw2d(did)%ix, gw2d(did)%jx, gw2d(did)%dx, & - gw2d(did)%ltype, gw2d(did)%elev, gw2d(did)%bot, & - gw2d(did)%hycond, gw2d(did)%poros, gw2d(did)%compres, & - gw2d(did)%ho, gw2d(did)%h, gw2d(did)%convgw, & - gw2d(did)%ebot, gw2d(did)%eocn, gw2d(did)%dt, & - gw2d(did)%istep) - - -! bftodo head postprocessing block -! GW-SOIL-CHANNEL interaction section - gw2d(did)%ho = gw2d(did)%h - -#ifdef HYDRO_D - write(6,*) "*****bf******end 2d_gw_model " -#endif - - End if - - END IF !DJG (End if for RTE SWC activation) -!------------------------------------------------------------------ -!DJG End GW/Baseflow Routines -!------------------------------------------------------------------- - -!------------------------------------------------------------------- -!------------------------------------------------------------------- -!DJG,DNY Begin Channel and Lake Routing Routines -!------------------------------------------------------------------- - IF (nlst_rt(did)%CHANRTSWCRT.EQ.1 .or. nlst_rt(did)%CHANRTSWCRT.EQ.2) THEN - - call drive_CHANNEL(RT_DOMAIN(did)%timestep_flag,RT_DOMAIN(did)%IXRT,RT_DOMAIN(did)%JXRT, & - nlst_rt(did)%SUBRTSWCRT, RT_DOMAIN(did)%QSUBRT, & - LAKE_INFLORT_TS, QSTRMVOLRT_TS,& - RT_DOMAIN(did)%TO_NODE, RT_DOMAIN(did)%FROM_NODE, RT_DOMAIN(did)%TYPEL,& - RT_DOMAIN(did)%ORDER, RT_DOMAIN(did)%MAXORDER, RT_DOMAIN(did)%NLINKS,& - RT_DOMAIN(did)%CH_NETLNK, RT_DOMAIN(did)%CH_NETRT, & - RT_DOMAIN(did)%LAKE_MSKRT, nlst_rt(did)%DT, nlst_rt(did)%DTRT, & - RT_DOMAIN(did)%MUSK, RT_DOMAIN(did)%MUSX, RT_DOMAIN(did)%QLINK, & - RT_DOMAIN(did)%HLINK, RT_DOMAIN(did)%ELRT,RT_DOMAIN(did)%CHANLEN,& - RT_DOMAIN(did)%MannN,RT_DOMAIN(did)%So, RT_DOMAIN(did)%ChSSlp, & - RT_DOMAIN(did)%Bw,& - RT_DOMAIN(did)%RESHT, RT_DOMAIN(did)%HRZAREA, RT_DOMAIN(did)%LAKEMAXH,& - RT_DOMAIN(did)%WEIRC, RT_DOMAIN(did)%WEIRL, RT_DOMAIN(did)%ORIFICEC, & - RT_DOMAIN(did)%ORIFICEA, & - RT_DOMAIN(did)%ORIFICEE, RT_DOMAIN(did)%ZELEV, RT_DOMAIN(did)%CVOL, & - RT_DOMAIN(did)%NLAKES, RT_DOMAIN(did)%QLAKEI, RT_DOMAIN(did)%QLAKEO,& - RT_DOMAIN(did)%LAKENODE, RT_DOMAIN(did)%dist, & - RT_DOMAIN(did)%QINFLOWBASE, RT_DOMAIN(did)%CHANXI, & - RT_DOMAIN(did)%CHANYJ, nlst_rt(did)%channel_option, & - RT_DOMAIN(did)%RETDEP_CHAN & - , RT_DOMAIN(did)%node_area & -#ifdef MPP_LAND - ,RT_DOMAIN(did)%lake_index,RT_DOMAIN(did)%link_location,& - RT_DOMAIN(did)%mpp_nlinks,RT_DOMAIN(did)%nlinks_index, & - RT_DOMAIN(did)%yw_mpp_nlinks & -#endif - ) - endif - -#ifdef HYDRO_D - write(6,*) "*****yw******end drive_CHANNEL " -#endif - - end subroutine exeRouting - - subroutine time_seconds(i3) - integer time_array(8) - real*8 i3 - call date_and_time(values=time_array) - i3 = time_array(4)*24*3600+time_array(5) * 3600 + time_array(6) * 60 + & - time_array(7) + 0.001 * time_array(8) - return - end subroutine time_seconds - - diff --git a/hydro/Run/HYDRO.TBL b/hydro/Run/HYDRO.TBL deleted file mode 100644 index 1d691a08e9..0000000000 --- a/hydro/Run/HYDRO.TBL +++ /dev/null @@ -1,51 +0,0 @@ - 28 USGS for OV_ROUGH - SFC_ROUGH' - 0.025, 'Urban and Built-Up Land' - 0.035, 'Dryland Cropland and Pasture' - 0.035, 'Irrigated Cropland and Pasture' - 0.055, 'Mixed Dryland/Irrigated Cropland and Pasture' - 0.035, 'Cropland/Grassland Mosaic' - 0.068, 'Cropland/Woodland Mosaic' - 0.055, 'Grassland' - 0.055, 'Shrubland' - 0.055, 'Mixed Shrubland/Grassland' - 0.055, 'Savanna' - 0.200, 'Deciduous Broadleaf Forest' - 0.200, 'Deciduous Needleleaf Forest' - 0.200, 'Evergreen Broadleaf Forest' - 0.200, 'Evergreen Needleleaf Forest' - 0.200, 'Mixed Forest' - 0.005, 'Water Bodies' - 0.070, 'Herbaceous Wetland' - 0.070, 'Wooded Wetland' - 0.035, 'Barren or Sparsely Vegetated' - 0.055, 'Herbaceous Tundra' - 0.055, 'Wooded Tundra' - 0.055, 'Mixed Tundra' - 0.055, 'Bare Ground Tundra' - 0.010, 'Snow or Ice' - 0.010, 'Playa' - 0.100, 'Lava' - 0.010, 'White Sand' - 0.005, 'Non-Ocean Water Bodies' -19, for SATDK -SATDK MAXSMC REFSMC WLTSMC QTZ ' -1.07E-6, 0.339, 0.236, 0.010, 0.92, 'SAND' -1.41E-5, 0.421, 0.383, 0.028, 0.82, 'LOAMY SAND' -5.23E-6, 0.434, 0.383, 0.047, 0.60, 'SANDY LOAM' -2.81E-6, 0.476, 0.360, 0.084, 0.25, 'SILT LOAM' -2.81E-6, 0.476, 0.383, 0.084, 0.10, 'SILT' -3.38E-6, 0.439, 0.329, 0.066, 0.40, 'LOAM' -4.45E-6, 0.404, 0.314, 0.067, 0.60, 'SANDY CLAY LOAM' -2.04E-6, 0.464, 0.387, 0.120, 0.10, 'SILTY CLAY LOAM' -2.45E-6, 0.465, 0.382, 0.103, 0.35, 'CLAY LOAM' -7.22E-6, 0.406, 0.338, 0.100, 0.52, 'SANDY CLAY' -1.34E-6, 0.468, 0.404, 0.126, 0.10, 'SILTY CLAY' -9.74E-7, 0.468, 0.412, 0.138, 0.25, 'CLAY' -3.38E-6, 0.439, 0.329, 0.066, 0.05, 'ORGANIC MATERIAL' - 0.0, 1.0, 0.0, 0.0, 0.60, 'WATER' -1.75E-5, 0.20, 0.170, 0.006, 0.07, 'BEDROCK' -1.41E-5, 0.421, 0.283, 0.028, 0.25, 'OTHER(land-ice)' -9.74E-7, 0.468, 0.454, 0.030, 0.60, 'PLAYA' -1.41E-4, 0.200, 0.170, 0.006, 0.52, 'LAVA' -1.07E-6, 0.339, 0.236, 0.01, 0.92, 'WHITE SAND' diff --git a/hydro/Run/hydro.namelist b/hydro/Run/hydro.namelist deleted file mode 100644 index 376d762aab..0000000000 --- a/hydro/Run/hydro.namelist +++ /dev/null @@ -1,102 +0,0 @@ -&HYDRO_nlist - -!!!! SYSTEM COUPLING !!!! -!Specify what is being coupled with WRF-Hydro: 1=HRLDAS (offline Noah-LSM), 2=WRF, 3=NASA/LIS, 4=CLM - sys_cpl = 1 - - - - -!!!! MODEL INPUT DATA FILES !!! -!Specify land surface model gridded static input data file...(e.g.: "geo_em.d03.nc") - GEO_STATIC_FLNM = "./DOMAIN/geo_em.d01.nc.conus_1km" - -!Specify the static high-resolution routing terrain input data file...(e.g.: "Fulldom_hires_hydrofile.nc") - GEO_FINEGRID_FLNM = "./DOMAIN/Fulldom_hires_netcdf_file_nhd_mask.nc" - -!Specify the name of the restart file if starting from restart...comment out with '!' if not... -!RESTART_FILE = 'HYDRO_RST.2013-09-11_02:00_DOMAIN3' - - - - -!!!! MODEL SETUP AND I/O CONTROL !!!! -!Specify the domain or nest number identifier...(integer) - IGRID = 1 - -!Specify the restart file write frequency...(minutes, value of -99999 provides monthly restart files) -!rst_dt = -99999 - rst_dt = 360 - -!Specify the output file write frequency...(minutes) - out_dt = 60 ! minutes - -!Specify the number of output times to be contained within each output history file...(integer) -! SET = 1 WHEN RUNNING CHANNEL ROUTING ONLY/CALIBRATION SIMS!!! -! SET = 1 WHEN RUNNING COUPLED TO WRF!!! - SPLIT_OUTPUT_COUNT = 1 - -!Switch to overwrite the restart or initialization of soil variables with values from the routing restart file (=0-no reset, 1-yes reset using routing restart) - rst_typ = 1 - -!Switch to set restart accumulation variables = 0 (0-no reset, 1-yes reset to 0.0) - RSTRT_SWC = 0 - -!Switches to specify if routing restart files are to be read in/output in a flat binary format (=0 no, 1-yes read/write in binary format) - rst_bi_in = 1 ! read restart in binary format - rst_bi_out = 1 ! output restart in binary format - -!Routing output netcdf file control...(=0 no files written, =1 files are written) - CHRTOUT_DOMAIN = 1 ! Netcdf and ASCII point timeseries output at all channel points and at user-define points (frxst_pts) - CHRTOUT_GRID = 1 ! Netcdf grid of channel streamflow values - LSMOUT_DOMAN = 0 ! Netcdf grid of variables passed between LSM and routing components - RTOUT_DOMAIN = 1 ! Netcdf grid of terrain routing variables on routing grid - output_gw = 0 ! Netcdf grid of groundwater-baseflow bucket information - outlake = 0 ! Netcdf point timeseries output of lake information - -!Specify the minimum stream order to output to netcdf point file...(integer) -!Note: lower value of stream order produces more output. - order_to_write = 1 - - - - -!!!! PHYSICS OPTIONS AND RELATED SETTINGS !!!! -!Switch for terrain adjustment of incoming solar radiation: 0=no, 1=yes -!Note: This option is not yet active in Verion 3.0... -! WRF has this capability so be careful not to double apply the correction!!! - TERADJ_SOLAR = 0 - -!Specify the grid spacing of the terrain routing grid...(meters) - DXRT = 250 -!Specify the integer multiple between the land model grid and the terrain routing grid...(integer) - AGGFACTRT = 4 -!Specify the routing model timestep...(seconds) - DTRT = 4 - - -!Switch activate saturated subsurface routing...(0=no, 1=yes) - SUBRTSWCRT = 1 - - -!Switch activate surface overland flow routing...(0=no, 1=yes) - OVRTSWCRT = 1 -!Switch to specify channel routing Routing Option: 1=Seepest Descent (D8) 2=CASC2D - rt_option = 1 - - -!Switch to activate channel routing option...((0=no, 1=yes) - CHANRTSWCRT = 1 -!Switch specify channel routing option: 1=Muskingam-reach, 2=Musk.-Cunge-reach, 3=Diff.Wave-gridded - channel_option =3 -!Specify the reach file for reach-based routing options...(Only req'd for channel_options 1&2) - route_link_f = "" - - -!Switch to activate baseflow bucket model...(0=none, 1=exp. bucket, 2=pass-through) - GWBASESWCRT = 0 -!Specify baseflow/bucket model initialization...(0=cold start from table, 1=restart file) - GW_RESTART = 0 -!Groundwater/baseflow mask specified on land surface model grid...(Only required if baseflow bucket model is active) - gwbasmskfil = "" -/ diff --git a/hydro/arc/Makefile.Noah b/hydro/arc/Makefile.Noah index c0ac997773..e51a8f41b1 100644 --- a/hydro/arc/Makefile.Noah +++ b/hydro/arc/Makefile.Noah @@ -1,5 +1,8 @@ # Makefile all: + @if [ ! -d "Run" ]; then \ + (mkdir Run);\ + fi (rm -f Run/wrf_hydro.exe ) (make -f Makefile.comm BASIC) @if [ -d "LandModel_cpl" ]; then \ diff --git a/hydro/arc/Makefile.NoahMP b/hydro/arc/Makefile.NoahMP index e4b2aa4395..91bdbbd3d0 100644 --- a/hydro/arc/Makefile.NoahMP +++ b/hydro/arc/Makefile.NoahMP @@ -1,5 +1,8 @@ # Makefile all: + @if [ ! -d "Run" ]; then \ + (mkdir Run);\ + fi (rm -f Run/wrf_hydro.exe ) (make -f Makefile.comm BASIC) @if [ -d "LandModel_cpl" ]; then \ diff --git a/hydro/arc/macros.gordon b/hydro/arc/macros.gordon new file mode 100644 index 0000000000..9477fa48ac --- /dev/null +++ b/hydro/arc/macros.gordon @@ -0,0 +1,45 @@ +.IGNORE: + +ifeq ($(HYDRO_REALTIME),1) +HYDRO_REALTIME = -DHYDRO_REALTIME +else +HYDRO_REALTIME = +endif + +ifeq ($(WRF_HYDRO),1) +WRF_HYDRO = -DWRF_HYDRO $(HYDRO_REALTIME) +else +WRF_HYDRO = +endif + +ifeq ($(WRF_HYDRO_RAPID),1) +WRF_HYDRO = -DWRF_HYDRO -DWRF_HYDRO_RAPID $(HYDRO_REALTIME) +endif + +ifeq ($(HYDRO_D),1) +HYDRO_D = -DHYDRO_D $(WRF_HYDRO) +else +HYDRO_D = $(WRF_HYDRO) +endif + +ifeq ($(WRFIO_NCD_LARGE_FILE_SUPPORT),1) +WRFIO_NCD_LARGE_FILE_SUPPORT = -DWRFIO_NCD_LARGE_FILE_SUPPORT +else +WRFIO_NCD_LARGE_FILE_SUPPORT = +endif + + +RMD = rm -f +COMPILER90 = ftn +FORMAT_FREE = -FR +BYTESWAPIO = -convert big_endian +F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) $(BYTESWAPIO) +MODFLAG = -I./ -I../../MPP -I../MPP -I../mod +LDFLAGS = +CPP = cpp +CPPFLAGS = -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +LIBS = +NETCDFINC = $(NETCDF_INC) +NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf +NETCDF_INC = /opt/cray/netcdf-hdf5parallel/4.3.2/INTEL/140/include +NETCDF_LIB = /opt/cray/netcdf-hdf5parallel/4.3.2/INTEL/140/lib diff --git a/hydro/arc/macros.gordon.debug b/hydro/arc/macros.gordon.debug new file mode 100644 index 0000000000..e5058e16c1 --- /dev/null +++ b/hydro/arc/macros.gordon.debug @@ -0,0 +1,46 @@ +.IGNORE: + +ifeq ($(HYDRO_REALTIME),1) +HYDRO_REALTIME = -DHYDRO_REALTIME +else +HYDRO_REALTIME = +endif + +ifeq ($(WRF_HYDRO),1) +WRF_HYDRO = -DWRF_HYDRO $(HYDRO_REALTIME) +else +WRF_HYDRO = +endif + +ifeq ($(WRF_HYDRO_RAPID),1) +WRF_HYDRO = -DWRF_HYDRO -DWRF_HYDRO_RAPID $(HYDRO_REALTIME) +endif + +ifeq ($(HYDRO_D),1) +HYDRO_D = -DHYDRO_D $(WRF_HYDRO) +else +HYDRO_D = $(WRF_HYDRO) +endif + +ifeq ($(WRFIO_NCD_LARGE_FILE_SUPPORT),1) +WRFIO_NCD_LARGE_FILE_SUPPORT = -DWRFIO_NCD_LARGE_FILE_SUPPORT +else +WRFIO_NCD_LARGE_FILE_SUPPORT = +endif + + +RMD = rm -f +COMPILER90 = ftn +FORMAT_FREE = -FR +BYTESWAPIO = -convert big_endian +F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) $(BYTESWAPIO) +F90FLAGS += -g -traceback +MODFLAG = -I./ -I../../MPP -I../MPP -I../mod +LDFLAGS = +CPP = cpp +CPPFLAGS = -C -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +LIBS = +NETCDFINC = $(NETCDF_INC) +NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf +NETCDF_INC = /opt/cray/netcdf-hdf5parallel/4.3.2/INTEL/140/include +NETCDF_LIB = /opt/cray/netcdf-hdf5parallel/4.3.2/INTEL/140/lib diff --git a/hydro/arc/macros.mpp.IBM.xlf90_r b/hydro/arc/macros.mpp.IBM.xlf90_r index 880e80895c..c95c2c165d 100644 --- a/hydro/arc/macros.mpp.IBM.xlf90_r +++ b/hydro/arc/macros.mpp.IBM.xlf90_r @@ -37,7 +37,7 @@ MODFLAG = -I./ -I ../MPP -I../../MPP -I ../mod LDFLAGS = CPP = cpp LIBS = -CPPFLAGS = -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +CPPFLAGS = -C -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) NETCDFINC = $(NETCDF_INC) NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.mpp.gfort b/hydro/arc/macros.mpp.gfort index c58e5ce199..94912d6c09 100644 --- a/hydro/arc/macros.mpp.gfort +++ b/hydro/arc/macros.mpp.gfort @@ -34,13 +34,33 @@ else WRFIO_NCD_LARGE_FILE_SUPPORT = endif +ifeq ($(WRF_HYDRO_NUDGING),1) +WRF_HYDRO_NUDGING = -DWRF_HYDRO_NUDGING +else +WRF_HYDRO_NUDGING = +endif + +ifeq ($(OUTPUT_CHAN_CONN),1) +OUTPUT_CHAN_CONN = -DOUTPUT_CHAN_CONN +else +OUTPUT_CHAN_CONN = +endif + +ifeq ($(PRECIP_DOUBLE),1) +PRECIP_DOUBLE = -DPRECIP_DOUBLE +else +PRECIP_DOUBLE = +endif + + RMD = rm -f COMPILER90= mpif90 F90FLAGS = -w -c -ffree-form -ffree-line-length-none -fconvert=big-endian -frecord-marker=4 MODFLAG = -I"./" -I"../../MPP" -I"../MPP" -I"../mod" LDFLAGS = CPP = cpp -CPPFLAGS = -P -xassembler-with-cpp -traditional -DMPP_LAND -I"../Data_Rec" $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +CPPFLAGS = -P -xassembler-with-cpp -traditional -DMPP_LAND -I"../Data_Rec" $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) $(PRECIP_DOUBLE) + LIBS = NETCDFINC = $(NETCDF_INC) NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.mpp.ifort b/hydro/arc/macros.mpp.ifort index ce3bc09606..8ea976e91c 100644 --- a/hydro/arc/macros.mpp.ifort +++ b/hydro/arc/macros.mpp.ifort @@ -90,7 +90,7 @@ F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) MODFLAG = -I./ -I ../../MPP -I ../MPP -I ../mod LDFLAGS = CPP = cpp -CPPFLAGS = -P -traditional -DMPP_LAND -I ../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) $(PRECIP_DOUBLE) +CPPFLAGS = -P -traditional -nostdinc -DMPP_LAND -I ../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) $(PRECIP_DOUBLE) LIBS = NETCDFINC = $(NETCDF_INC) NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.mpp.ifort.luna b/hydro/arc/macros.mpp.ifort.luna index 24778bc2a0..ac50b13446 100644 --- a/hydro/arc/macros.mpp.ifort.luna +++ b/hydro/arc/macros.mpp.ifort.luna @@ -81,6 +81,12 @@ else PRECIP_DOUBLE = endif +ifeq ($(NCEP_WCOSS),1) +NCEP_WCOSS = -DNCEP_WCOSS +else +NCEP_WCOSS = +endif + RMD = rm -f COMPILER90 = ftn @@ -88,9 +94,9 @@ FORMAT_FREE = -FR BYTESWAPIO = -convert big_endian F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) $(BYTESWAPIO) MODFLAG = -I./ -I ../../MPP -I ../MPP -I ../mod -LDFLAGS = +LDFLAGS = $(HDF5_LDFLAGS) CPP = cpp -CPPFLAGS = -P -traditional -DMPP_LAND -I ../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) $(PRECIP_DOUBLE) -LIBS = +CPPFLAGS = -P -traditional -DMPP_LAND -I ../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) $(PRECIP_DOUBLE) $(NCEP_WCOSS) +LIBS =$(Z_LIB) NETCDFINC = $(NETCDF_INC) NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.mpp.linux b/hydro/arc/macros.mpp.linux index 203bad579b..e9a70cc7fa 100644 --- a/hydro/arc/macros.mpp.linux +++ b/hydro/arc/macros.mpp.linux @@ -61,7 +61,7 @@ LDFLAGS = $(F90FLAGS) MODFLAG = -I./ -I ../../MPP -I ../MPP -I ../mod LDFLAGS = CPP = cpp -CPPFLAGS = -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) $(PRECIP_DOUBLE) +CPPFLAGS = -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) $(PRECIP_DOUBLE) LIBS = NETCDFINC = $(NETCDF_INC) -NETCDFLIB = -Wl,-rpath,$(NETCDF_LIB) -L$(NETCDF_LIB) -lnetcdff -lnetcdf +NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.mpp.mpiifort b/hydro/arc/macros.mpp.mpiifort new file mode 100644 index 0000000000..ffbcbef295 --- /dev/null +++ b/hydro/arc/macros.mpp.mpiifort @@ -0,0 +1,55 @@ +.IGNORE: + +ifeq ($(HYDRO_REALTIME),1) +HYDRO_REALTIME = -DHYDRO_REALTIME +else +HYDRO_REALTIME = +endif + +ifeq ($(WRF_HYDRO),1) +WRF_HYDRO = -DWRF_HYDRO $(HYDRO_REALTIME) +else +WRF_HYDRO = +endif + +ifeq ($(WRF_HYDRO_RAPID),1) +WRF_HYDRO = -DWRF_HYDRO -DWRF_HYDRO_RAPID $(HYDRO_REALTIME) +endif + +ifeq ($(HYDRO_D),1) +HYDRO_D = -DHYDRO_D $(WRF_HYDRO) +else +HYDRO_D = $(WRF_HYDRO) +endif + +ifeq ($(WRFIO_NCD_LARGE_FILE_SUPPORT),1) +WRFIO_NCD_LARGE_FILE_SUPPORT = -DWRFIO_NCD_LARGE_FILE_SUPPORT +else +WRFIO_NCD_LARGE_FILE_SUPPORT = +endif + +################# +# NEMS Settings # +################# + +FC = mpiifort -g -openmp -mkl=sequential -align array32byte -lmkl_intel_lp64 -lmkl_core -lmkl_sequential -lpthread -openmp -convert big_endian -assume byterecl -mkl=sequential + +# -g : produce symbolic debug information in object file + +###################### +# WRF Hydro Settings # +###################### + +RMD = rm -f +COMPILER90 = $(FC) +F90FLAGS = -w -c -ftz -fno-alias -fp-model precise -FR +# -w : disable all warnings +# -c : compile to object (.o) only, do not link +# -ftz : enable flush denormal results to zero +MODFLAG = -I./ -I../../MPP -I../MPP -I../mod +LDFLAGS = +CPP = cpp +CPPFLAGS = -P -traditional -DMPP_LAND -I ../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +LIBS = +NETCDFINC = $(NETCDF)/include +NETCDFLIB = -L$(NETCDF)/lib -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.seq.IBM.xlf90_r b/hydro/arc/macros.seq.IBM.xlf90_r index 099daa3b32..8ae1f928be 100644 --- a/hydro/arc/macros.seq.IBM.xlf90_r +++ b/hydro/arc/macros.seq.IBM.xlf90_r @@ -36,7 +36,7 @@ COMPILER90= xlf90_r F90FLAGS = -c -O2 -qfree=f90 -qmaxmem=819200 MODFLAG = -I./ -I ../../MPP -I ../MPP -I ../mod LDFLAGS = -CPP = cpp -P +CPP = cpp -C -P CPPFLAGS = -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) LIBS = NETCDFINC = $(NETCDF_INC) diff --git a/hydro/arc/macros.seq.gfort b/hydro/arc/macros.seq.gfort index dd6bdb3ff9..f443cf106f 100644 --- a/hydro/arc/macros.seq.gfort +++ b/hydro/arc/macros.seq.gfort @@ -41,7 +41,7 @@ F90FLAGS = -w -c -ffree-form -ffree-line-length-none -fconvert=big-endian MODFLAG = -I./ -I../mod LDFLAGS = CPP = cpp -CPPFLAGS = -P -xassembler-with-cpp -traditional -I"../Data_Rec" $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +CPPFLAGS = -C -P -xassembler-with-cpp -traditional -I"../Data_Rec" $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) LIBS = NETCDFINC = $(NETCDF_INC) NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.seq.ifort b/hydro/arc/macros.seq.ifort index 7e16c80e42..96802f9fd7 100644 --- a/hydro/arc/macros.seq.ifort +++ b/hydro/arc/macros.seq.ifort @@ -54,7 +54,7 @@ F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise -FR -conver MODFLAG = -I./ -I ../mod LDFLAGS = CPP = cpp -CPPFLAGS = -P -traditional -I ../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) +CPPFLAGS = -C -P -traditional -I ../Data_Rec $(HYDRO_D) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) LIBS = NETCDFINC = $(NETCDF_INC) NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.seq.linux b/hydro/arc/macros.seq.linux index 367e34218b..ef71707991 100644 --- a/hydro/arc/macros.seq.linux +++ b/hydro/arc/macros.seq.linux @@ -55,7 +55,7 @@ LDFLAGS = $(F90FLAGS) MODFLAG = -I./ -I ../mod LDFLAGS = CPP = cpp -CPPFLAGS = -P -traditional -I ../Data_Rec $(HYDRO_D) $(WRF_HYDRO) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) +CPPFLAGS = -C -P -traditional -I ../Data_Rec $(HYDRO_D) $(WRF_HYDRO) $(SPATIAL_SOIL) $(WRFIO_NCD_LARGE_FILE_SUPPORT) $(WRF_HYDRO_NUDGING) $(OUTPUT_CHAN_CONN) LIBS = NETCDFINC = $(NETCDF_INC) -NETCDFLIB = -Wl,-rpath,$(NETCDF_LIB) -L$(NETCDF_LIB) -lnetcdff -lnetcdf +NETCDFLIB = -L$(NETCDF_LIB) -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.theia b/hydro/arc/macros.theia new file mode 100644 index 0000000000..a46cb0f59b --- /dev/null +++ b/hydro/arc/macros.theia @@ -0,0 +1,96 @@ +.IGNORE: + +ifeq ($(HYDRO_REALTIME),1) +HYDRO_REALTIME = -DHYDRO_REALTIME +else +HYDRO_REALTIME = +endif + +ifeq ($(WRF_HYDRO),1) +WRF_HYDRO = -DWRF_HYDRO $(HYDRO_REALTIME) +else +WRF_HYDRO = +endif + +ifeq ($(WRF_HYDRO_RAPID),1) +WRF_HYDRO = -DWRF_HYDRO -DWRF_HYDRO_RAPID $(HYDRO_REALTIME) +endif + +ifeq ($(HYDRO_D),1) +HYDRO_D = -DHYDRO_D $(WRF_HYDRO) +else +HYDRO_D = $(WRF_HYDRO) +endif + +ifeq ($(WRFIO_NCD_LARGE_FILE_SUPPORT),1) +WRFIO_NCD_LARGE_FILE_SUPPORT = -DWRFIO_NCD_LARGE_FILE_SUPPORT +else +WRFIO_NCD_LARGE_FILE_SUPPORT = +endif + +ifneq ($(origin ESMFMKFILE), environment) +$(error Environment variable ESMFMKFILE was not set.) +endif +include $(ESMFMKFILE) + +RMD = rm -f +COMPILER90 = $(ESMF_F90COMPILER) +FORMAT_FREE = -FR +BYTESWAPIO = -convert big_endian +F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) $(BYTESWAPIO) +# -w Disables all warning messages +# -c Prevents linking. +# -g Produces symbolic debug information in the object +# file. +# -ftz Flushes denormal results to zero when the application +# is in the gradual underflow mode. +# -align all Tells the compiler to add padding bytes whenever +# possible to obtain the natural alignment of data +# items in common blocks, derived types, and record +# structures. +# -fno-alias Specifies that aliasing should not be assumed in +# the program. +# -fp-model precise Enables value-safe optimizations on floating- +# point data and rounds intermediate results to +# source-defined precision. +# -FR Specifies source files are in free format +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -u Sets the default type of a variable to undefined +# (IMPLICIT NONE) +# -traceback Tells the compiler to generate extra information in +# the object file to allow the display of source file +# traceback information at run time when a severe +# error occurs. +# -fpe0 Floating-point invalid, divide-by-zero, and +# overflow exceptions are enabled +# -nomixed_str_len_arg The hidden length passed for a character argument +# is to be placed in sequential order at the end of +# the argument list. [default] +# -names lowercase Causes the compiler to ignore case differences in +# identifiers and to convert external names to +# lowercase. [default] +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -assume byterecl Specifies that the units for the OPEN statement +# RECL specifier (record length) value are in bytes +# for unformatted data files, not longwords (four- +# byte units) +MODFLAG = -I./ -I../../MPP -I../MPP -I../mod +LDFLAGS = +CPP = cpp +CPPFLAGS = -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +# -C: Do not discard comments. +# -P: Inhibit generation of linemarkers in the output +# from the preprocessor. +# -traditional: Try to imitate the behavior of old-fashioned C +# preprocessors, as opposed to ISO C preprocessors. +LIBS = +NETCDFINC = $(NETCDF)/include +NETCDFLIB = -L$(NETCDF)/lib -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.theia.debug b/hydro/arc/macros.theia.debug new file mode 100644 index 0000000000..a310f72082 --- /dev/null +++ b/hydro/arc/macros.theia.debug @@ -0,0 +1,97 @@ +.IGNORE: + +ifeq ($(HYDRO_REALTIME),1) +HYDRO_REALTIME = -DHYDRO_REALTIME +else +HYDRO_REALTIME = +endif + +ifeq ($(WRF_HYDRO),1) +WRF_HYDRO = -DWRF_HYDRO $(HYDRO_REALTIME) +else +WRF_HYDRO = +endif + +ifeq ($(WRF_HYDRO_RAPID),1) +WRF_HYDRO = -DWRF_HYDRO -DWRF_HYDRO_RAPID $(HYDRO_REALTIME) +endif + +ifeq ($(HYDRO_D),1) +HYDRO_D = -DHYDRO_D $(WRF_HYDRO) +else +HYDRO_D = $(WRF_HYDRO) +endif + +ifeq ($(WRFIO_NCD_LARGE_FILE_SUPPORT),1) +WRFIO_NCD_LARGE_FILE_SUPPORT = -DWRFIO_NCD_LARGE_FILE_SUPPORT +else +WRFIO_NCD_LARGE_FILE_SUPPORT = +endif + +ifneq ($(origin ESMFMKFILE), environment) +$(error Environment variable ESMFMKFILE was not set.) +endif +include $(ESMFMKFILE) + +RMD = rm -f +COMPILER90 = $(ESMF_F90COMPILER) +FORMAT_FREE = -FR +BYTESWAPIO = -convert big_endian +F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) $(BYTESWAPIO) +F90FLAGS += -g -traceback +# -w Disables all warning messages +# -c Prevents linking. +# -g Produces symbolic debug information in the object +# file. +# -ftz Flushes denormal results to zero when the application +# is in the gradual underflow mode. +# -align all Tells the compiler to add padding bytes whenever +# possible to obtain the natural alignment of data +# items in common blocks, derived types, and record +# structures. +# -fno-alias Specifies that aliasing should not be assumed in +# the program. +# -fp-model precise Enables value-safe optimizations on floating- +# point data and rounds intermediate results to +# source-defined precision. +# -FR Specifies source files are in free format +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -u Sets the default type of a variable to undefined +# (IMPLICIT NONE) +# -traceback Tells the compiler to generate extra information in +# the object file to allow the display of source file +# traceback information at run time when a severe +# error occurs. +# -fpe0 Floating-point invalid, divide-by-zero, and +# overflow exceptions are enabled +# -nomixed_str_len_arg The hidden length passed for a character argument +# is to be placed in sequential order at the end of +# the argument list. [default] +# -names lowercase Causes the compiler to ignore case differences in +# identifiers and to convert external names to +# lowercase. [default] +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -assume byterecl Specifies that the units for the OPEN statement +# RECL specifier (record length) value are in bytes +# for unformatted data files, not longwords (four- +# byte units) +MODFLAG = -I./ -I../../MPP -I../MPP -I../mod +LDFLAGS = +CPP = cpp +CPPFLAGS = -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +# -C: Do not discard comments. +# -P: Inhibit generation of linemarkers in the output +# from the preprocessor. +# -traditional: Try to imitate the behavior of old-fashioned C +# preprocessors, as opposed to ISO C preprocessors. +LIBS = +NETCDFINC = $(NETCDF)/include +NETCDFLIB = -L$(NETCDF)/lib -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.yellowstone b/hydro/arc/macros.yellowstone new file mode 100644 index 0000000000..a46cb0f59b --- /dev/null +++ b/hydro/arc/macros.yellowstone @@ -0,0 +1,96 @@ +.IGNORE: + +ifeq ($(HYDRO_REALTIME),1) +HYDRO_REALTIME = -DHYDRO_REALTIME +else +HYDRO_REALTIME = +endif + +ifeq ($(WRF_HYDRO),1) +WRF_HYDRO = -DWRF_HYDRO $(HYDRO_REALTIME) +else +WRF_HYDRO = +endif + +ifeq ($(WRF_HYDRO_RAPID),1) +WRF_HYDRO = -DWRF_HYDRO -DWRF_HYDRO_RAPID $(HYDRO_REALTIME) +endif + +ifeq ($(HYDRO_D),1) +HYDRO_D = -DHYDRO_D $(WRF_HYDRO) +else +HYDRO_D = $(WRF_HYDRO) +endif + +ifeq ($(WRFIO_NCD_LARGE_FILE_SUPPORT),1) +WRFIO_NCD_LARGE_FILE_SUPPORT = -DWRFIO_NCD_LARGE_FILE_SUPPORT +else +WRFIO_NCD_LARGE_FILE_SUPPORT = +endif + +ifneq ($(origin ESMFMKFILE), environment) +$(error Environment variable ESMFMKFILE was not set.) +endif +include $(ESMFMKFILE) + +RMD = rm -f +COMPILER90 = $(ESMF_F90COMPILER) +FORMAT_FREE = -FR +BYTESWAPIO = -convert big_endian +F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) $(BYTESWAPIO) +# -w Disables all warning messages +# -c Prevents linking. +# -g Produces symbolic debug information in the object +# file. +# -ftz Flushes denormal results to zero when the application +# is in the gradual underflow mode. +# -align all Tells the compiler to add padding bytes whenever +# possible to obtain the natural alignment of data +# items in common blocks, derived types, and record +# structures. +# -fno-alias Specifies that aliasing should not be assumed in +# the program. +# -fp-model precise Enables value-safe optimizations on floating- +# point data and rounds intermediate results to +# source-defined precision. +# -FR Specifies source files are in free format +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -u Sets the default type of a variable to undefined +# (IMPLICIT NONE) +# -traceback Tells the compiler to generate extra information in +# the object file to allow the display of source file +# traceback information at run time when a severe +# error occurs. +# -fpe0 Floating-point invalid, divide-by-zero, and +# overflow exceptions are enabled +# -nomixed_str_len_arg The hidden length passed for a character argument +# is to be placed in sequential order at the end of +# the argument list. [default] +# -names lowercase Causes the compiler to ignore case differences in +# identifiers and to convert external names to +# lowercase. [default] +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -assume byterecl Specifies that the units for the OPEN statement +# RECL specifier (record length) value are in bytes +# for unformatted data files, not longwords (four- +# byte units) +MODFLAG = -I./ -I../../MPP -I../MPP -I../mod +LDFLAGS = +CPP = cpp +CPPFLAGS = -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +# -C: Do not discard comments. +# -P: Inhibit generation of linemarkers in the output +# from the preprocessor. +# -traditional: Try to imitate the behavior of old-fashioned C +# preprocessors, as opposed to ISO C preprocessors. +LIBS = +NETCDFINC = $(NETCDF)/include +NETCDFLIB = -L$(NETCDF)/lib -lnetcdff -lnetcdf diff --git a/hydro/arc/macros.yellowstone.debug b/hydro/arc/macros.yellowstone.debug new file mode 100644 index 0000000000..e89c79975e --- /dev/null +++ b/hydro/arc/macros.yellowstone.debug @@ -0,0 +1,97 @@ +.IGNORE: + +ifeq ($(HYDRO_REALTIME),1) +HYDRO_REALTIME = -DHYDRO_REALTIME +else +HYDRO_REALTIME = +endif + +ifeq ($(WRF_HYDRO),1) +WRF_HYDRO = -DWRF_HYDRO $(HYDRO_REALTIME) +else +WRF_HYDRO = +endif + +ifeq ($(WRF_HYDRO_RAPID),1) +WRF_HYDRO = -DWRF_HYDRO -DWRF_HYDRO_RAPID $(HYDRO_REALTIME) +endif + +ifeq ($(HYDRO_D),1) +HYDRO_D = -DHYDRO_D $(WRF_HYDRO) +else +HYDRO_D = $(WRF_HYDRO) +endif + +ifeq ($(WRFIO_NCD_LARGE_FILE_SUPPORT),1) +WRFIO_NCD_LARGE_FILE_SUPPORT = -DWRFIO_NCD_LARGE_FILE_SUPPORT +else +WRFIO_NCD_LARGE_FILE_SUPPORT = +endif + +ifneq ($(origin ESMFMKFILE), environment) +$(error Environment variable ESMFMKFILE was not set.) +endif +include $(ESMFMKFILE) + +RMD = rm -f +COMPILER90 = $(ESMF_F90COMPILER) +FORMAT_FREE = -FR +BYTESWAPIO = -convert big_endian +F90FLAGS = -w -c -ftz -align all -fno-alias -fp-model precise $(FORMAT_FREE) $(BYTESWAPIO) +F90FLAGS += -g -traceback +# -w Disables all warning messages +# -c Prevents linking. +# -g Produces symbolic debug information in the object +# file. +# -ftz Flushes denormal results to zero when the application +# is in the gradual underflow mode. +# -align all Tells the compiler to add padding bytes whenever +# possible to obtain the natural alignment of data +# items in common blocks, derived types, and record +# structures. +# -fno-alias Specifies that aliasing should not be assumed in +# the program. +# -fp-model precise Enables value-safe optimizations on floating- +# point data and rounds intermediate results to +# source-defined precision. +# -FR Specifies source files are in free format +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -u Sets the default type of a variable to undefined +# (IMPLICIT NONE) +# -traceback Tells the compiler to generate extra information in +# the object file to allow the display of source file +# traceback information at run time when a severe +# error occurs. +# -fpe0 Floating-point invalid, divide-by-zero, and +# overflow exceptions are enabled +# -nomixed_str_len_arg The hidden length passed for a character argument +# is to be placed in sequential order at the end of +# the argument list. [default] +# -names lowercase Causes the compiler to ignore case differences in +# identifiers and to convert external names to +# lowercase. [default] +# -convert big_endian Specifies that the format will be big endian for +# INTEGER*1, INTEGER*2, INTEGER*4, or INTEGER*8, +# and big endian IEEE floating-point for REAL*4, +# REAL*8, REAL*16, COMPLEX*8, COMPLEX*16, or COM- +# PLEX*32. +# -assume byterecl Specifies that the units for the OPEN statement +# RECL specifier (record length) value are in bytes +# for unformatted data files, not longwords (four- +# byte units) +MODFLAG = -I./ -I../../MPP -I../MPP -I../mod +LDFLAGS = +CPP = cpp +CPPFLAGS = -C -P -traditional -DMPP_LAND -I../Data_Rec $(HYDRO_D) $(WRFIO_NCD_LARGE_FILE_SUPPORT) +# -C: Do not discard comments. +# -P: Inhibit generation of linemarkers in the output +# from the preprocessor. +# -traditional: Try to imitate the behavior of old-fashioned C +# preprocessors, as opposed to ISO C preprocessors. +LIBS = +NETCDFINC = $(NETCDF)/include +NETCDFLIB = -L$(NETCDF)/lib -lnetcdff -lnetcdf diff --git a/hydro/configure b/hydro/configure index a98e9d1c17..a7b65c2c87 100755 --- a/hydro/configure +++ b/hydro/configure @@ -1,113 +1,130 @@ -#!/usr/bin/perl - - if(! defined($ENV{NETCDF_INC})){ - if(defined($ENV{NETCDF})) { - $tt = `echo "NETCDF_INC = \${NETCDF}/include" > macros.tmp` ; - } else { - print"Error: environment variable NETCDF_INC not defined. \n"; - exit(0); - } - } - - ${NETCDF_LIB} = $ENV{NETCDF_LIB}; - if(! defined($ENV{NETCDF_LIB})){ - if(defined($ENV{NETCDF})) { - $tt = `echo "NETCDF_LIB = \${NETCDF}/lib" >> macros.tmp` ; - ${NETCDF_LIB} = $ENV{NETCDF}."/lib"; - } else { - print"Error: environment variable NETCDF_LIB not defined. \n"; - exit(0); - } - } - - if(! -e "${NETCDF_LIB}/libnetcdff.a"){ - $tt = `echo "NETCDFLIB = -L${NETCDF_LIB} -lnetcdf" >> macros.tmp `; - } - - if(-e macros) {system (rm -f macros);} -# if(-e Makefile) {system "rm -f Makefile" ;} - -# system("cp arc/Makefile ."); - - if($#ARGV == 0) { - $response = shift(@ARGV) ; - print("Configure hydro: $response \n"); - }else { - print "Please select from following supported options. \n\n"; - - print " 1. Linux PGI compiler sequential \n"; - print " 2. Linux PGI compiler dmpar \n"; - print " 3. IBM AIX compiler sequential, xlf90_r\n"; - print " 4. IBM AIX compiler dmpar \n"; - print " 5. Linux gfort compiler sequential \n"; - print " 6. Linux gfort compiler dmpar \n"; - print " 7. Linux ifort compiler sequential \n"; - print " 8. Linux ifort compiler dmpar \n"; - print " 9. Linux ifort compiler dmpar (WCOSS Luna) \n"; - print " 0. exit only \n"; - - printf "\nEnter selection [%d-%d] : ",0,9 ; - - $response = ; - chop($response); - } - - use Switch; - switch ($response) { - case 1 { - # sequential linux - system "cp arc/macros.seq.linux macros"; - system "cp arc/Makefile.seq Makefile.comm"; - } - - case 2 { - # mpp linux - system "cp arc/macros.mpp.linux macros"; - system "cp arc/Makefile.mpp Makefile.comm"; - } - - case 3 { - # sequential IBM AIX - system "cp arc/macros.seq.IBM.xlf90_r macros"; - system "cp arc/Makefile.seq Makefile.comm"; - } - - case 4 { - # mpp IBM AIX - system "cp arc/macros.mpp.IBM.xlf90_r macros"; - system "cp arc/Makefile.mpp Makefile.comm"; - } - - case 5 { - # GFORTRAN only - system "cp arc/macros.seq.gfort macros"; - system "cp arc/Makefile.seq Makefile.comm"; - } - - case 6 { - # GFORTRAN dmpar only - system "cp arc/macros.mpp.gfort macros"; - system "cp arc/Makefile.mpp Makefile.comm"; - } - case 7 { - # ifort sequential - system "cp arc/macros.seq.ifort macros"; - system "cp arc/Makefile.seq Makefile.comm"; - } - case 8 { - # ifort dmpar only - system "cp arc/macros.mpp.ifort macros"; - system "cp arc/Makefile.mpp Makefile.comm"; - } - case 9 { - # ifort Luna dmpar only - system "cp arc/macros.mpp.ifort.luna macros"; - system "cp arc/Makefile.mpp Makefile.comm"; - } - - else {print "no selection $response\n"; last} - } - if(! (-e lib)) {mkdir lib;} - if(! (-e mod)) {mkdir mod;} - if(-e "macros.tmp") { system("cat macros macros.tmp > macros.a; rm -f macros.tmp; mv macros.a macros");} - # if((-d "LandModel") ) {system "cat macros LandModel/user_build_options.bak > LandModel/user_build_options";} +#!/bin/bash + +theArgument=$1 + +################################### +## Setup the NetCDF include and LIB variables. +## If Neither is set and $NETCDF is not set, +## then try nc-config. If that fails, all fails. + +if [[ -z $NETCDF_INC ]]; then + if [[ -z $NETCDF ]]; then + NETCDF_INC=`nc-config --includedir 2> /dev/null` + else + NETCDF_INC=${NETCDF}/include + fi + if [[ -z $NETCDF_INC ]]; then + echo "Error: environment variable NETCDF_INC not defined." + exit 1 + fi + echo "NETCDF_INC = ${NETCDF_INC}" > macros.tmp +fi + +if [[ -z $NETCDF_LIB ]]; then + if [[ -z $NETCDF ]]; then + NETCDF_LIB=`nc-config --libs | cut -c3- | cut -d' ' -f1` + else + NETCDF_LIB=${NETCDF}/lib + fi + if [[ -z $NETCDF_LIB ]]; then + echo "Error: environment variable NETCDF_LIB not defined." + exit 1 + fi + echo "NETCDF_LIB = ${NETCDF_LIB}" >> macros.tmp +fi + +if [[ ! -e ${NETCDF_LIB}/libnetcdff.a ]]; then + echo "NETCDFLIB = -L${NETCDF_LIB} -lnetcdf" >> macros.tmp +fi + +################################### +## File/dir setups +if [[ -e macros ]]; then rm -f macros; fi +if [[ ! -e lib ]]; then mkdir lib; fi +if [[ ! -e mod ]]; then mkdir mod; fi + + +################################### +## If no argument was supplied, get all interactive. +if [[ -z $theArgument ]]; then + echo "Please select from following supported linux compilers" + echo "using either the number or key (not case sensitive):" + echo + echo "Number Key Description" + echo "--------------------------------------------" + echo " 1 pgi PGI parallel" + echo " 2 gfort gfortran parallel" + echo " 3 ifort intel parallel (incl. Theia)" + echo " 4 luna ifort parallel (WCOSS Luna)" + echo " 0 exit exit" + echo + read -p "Enter selection: " theArgument + echo +fi + +## remove case sensitivity +theArgument=`echo $theArgument | tr '[:upper:]' '[:lower:]'` + + +################################### +## What to do with the choice + +if [[ $theArgument -eq 1 ]] || [[ $theArgument == pgi ]]; then + cp arc/macros.mpp.linux macros + cp arc/Makefile.mpp Makefile.comm + echo "Configured: PGI" +fi + +if [[ $theArgument -eq 2 ]] || [[ $theArgument == gfort ]]; then + cp arc/macros.mpp.gfort macros + cp arc/Makefile.mpp Makefile.comm + echo "Configured: gfort" +fi + +if [[ $theArgument -eq 3 ]] || [[ $theArgument == ifort ]]; then + ## theia login machines self identify as "tfe" and have + ## their own intel macros. We handle luna more explicitly... + if [[ $HOSTNAME != *tfe* ]]; then + cp arc/macros.mpp.ifort macros + echo "Configured: ifort" + else + cp arc/macros.mpp.ifort.theia macros + echo "Configured: ifort on Theia" + fi + cp arc/Makefile.mpp Makefile.comm +fi + +if [[ $theArgument -eq 4 ]] || [[ $theArgument == luna ]]; then + cp arc/macros.mpp.ifort.luna macros + cp arc/Makefile.mpp Makefile.comm + echo "Configured: ifort on Luna" +fi + +## The above result in a new macros file which was +## previously deleted. If it does not exist, none +## were chosen. +if [[ ! -e macros ]]; then + echo "No compiler selected. Exiting" + if [[ -e macros.tmp ]]; then rm -f macros.tmp; fi + # failure + exit 1 +fi + +# PGI sequential +# cp arc/macros.seq.linux macros +# cp arc/Makefile.seq Makefile.comm +# gfortran sequential +#zystem "cp arc/macros.seq.gfort macros +#cp arc/Makefile.seq Makefile.comm +# ifort sequential +#cp arc/macros.seq.ifort macros +#cp arc/Makefile.seq Makefile.comm + +if [[ -e macros.tmp ]]; then + cat macros macros.tmp > macros.a + rm -f macros.tmp + mv macros.a macros +fi + +## success +exit 0 diff --git a/hydro/nudging/Makefile b/hydro/nudging/Makefile new file mode 100644 index 0000000000..e07f482fcb --- /dev/null +++ b/hydro/nudging/Makefile @@ -0,0 +1,46 @@ +# Makefile +# +.SUFFIXES: +.SUFFIXES: .o .F + +include ../macros + +OBJS = \ + module_date_utils_nudging.o \ + module_stream_nudging.o \ + module_nudging_io.o \ + module_nudging_utils.o + + +all: $(OBJS) + +#module_RT.o: module_RT.F +# @echo "" +# $(CPP) $(CPPFLAGS) $(*).F > $(*).f +# $(COMPILER90) -o $(@) $(F90FLAGS) $(MODFLAG) $(*).f +# $(RMD) $(*).f +# @echo "" +# cp *.mod ../mod + +.F.o: + @echo "" + $(CPP) $(CPPFLAGS) -I$(NETCDFINC) $(*).F > $(*).f +# $(COMPILER90) -o $(@) $(F90FLAGS) $(MODFLAG) $(*).f + $(COMPILER90) -o $(@) $(F90FLAGS) $(MODFLAG) -I$(NETCDF_INC) $(*).f +# $(RMD) $(*).f + @echo "" + ar -r ../lib/libHYDRO.a $(@) + cp *.mod ../mod + +# +# Dependencies: +# +module_nudging_io.o: ../Data_Rec/module_namelist.o \ + module_date_utils_nudging.o + +module_stream_nudging.o: module_nudging_utils.o \ + module_nudging_io.o + + +clean: + rm -f *.o *.mod *.stb *~ *.f diff --git a/hydro/nudging/Nudging_frxst_gage.csv b/hydro/nudging/Nudging_frxst_gage.csv new file mode 100644 index 0000000000..3a5795c23c --- /dev/null +++ b/hydro/nudging/Nudging_frxst_gage.csv @@ -0,0 +1,8 @@ +!Header lines with ! comment are allowed. +!Remaining lines are comma separated values +!Only two columns are used, additional are ignored but might be helpful to you. +!frxst_pts(as in Fulldom.*.nc), gageId (as in timeslice files), ignored.... +1,06730200,BOULDER_CREEK_AT_NORTH_75TH_ST._NEAR_BOULDER_CO +2,06730160,FOURMILE_CANYON_CREEK_NEAR_SUNSHINE_CO +3,06727410,FOURMILE_CREEK_AT_LOGAN_MILL_ROAD_NEAR_CRISMAN_CO +4,06727500,FOURMILE_CREEK_AT_ORODELL_CO \ No newline at end of file diff --git a/hydro/nudging/module_date_utils_nudging.F b/hydro/nudging/module_date_utils_nudging.F new file mode 100644 index 0000000000..58d1ed7e16 --- /dev/null +++ b/hydro/nudging/module_date_utils_nudging.F @@ -0,0 +1,1345 @@ +! Program Name: +! Author(s)/Contact(s): +! Abstract: +! History Log: +! +! Usage: +! Parameters: +! Input Files: +! +! Output Files: +! +! +! Condition codes: +! +! If appropriate, descriptive troubleshooting instructions or +! likely causes for failures could be mentioned here with the +! appropriate error code +! +! User controllable options: + +module module_date_utils_nudging +contains + +!=================================================================================================== +! Subroutine Name: geth_newdate +! Author(s)/Contact(s): +! Wei Yu? or NoahMP developers? +! James L McCreight, jamesmcc>")') mon + print*, "FATAL ERROR: Function monthabbr_to_mm: Unrecognized mon" + call hydro_stop("monthabbr_to_mm") + +endif +end function monthabbr_to_mm + +!=================================================================================================== +! Subroutine Name: swap_date_format +! Author(s)/Contact(s): +! Wei Yu? or NoahMP developers? +! James L McCreight, jamesmcc>")') indate + call hydro_stop("swap_date_format") +#endif + end select +else + select case (inlen) + case (8) + ! YYYYMMDD + outdate = indate(1:4)//"-"//indate(5:6)//"-"//indate(7:8) + case (10) + ! YYYYMMDDHH + outdate = indate(1:4)//"-"//indate(5:6)//"-"//indate(7:8)//"_"//& + indate(9:10) + case (12) + ! YYYYMMDDHHmm + outdate = indate(1:4)//"-"//indate(5:6)//"-"//indate(7:8)//"_"//& + indate(9:10)//":"//indate(11:12) + case (14) + ! YYYYMMDDHHmmss + outdate = indate(1:4)//"-"//indate(5:6)//"-"//indate(7:8)//"_"//& + indate(9:10)//":"//indate(11:12)//":"//indate(13:14) + case (15,16,17,18) + ! YYYYMMDDHHmmssf[f[f[f]]] + outdate = indate(1:4)//"-"//indate(5:6)//"-"//indate(7:8)//"_"//& + indate(9:10)//":"//indate(11:12)//":"//indate(13:14)//"."//indate(15:inlen) + case default + + write(*,'("FATAL ERROR: Unrecognized length: <", A,">")') indate + call hydro_stop("swap_date_format") + + end select +endif + +end subroutine swap_date_format + +!=================================================================================================== +! Function Name: mm_to_monthabbr +! Author(s)/Contact(s): +! Wei Yu? or NoahMP developers? +! James L McCreight, jamesmcc> 0 .and. ii < 13 ) then + mon = month(ii) +else + + print*, "FATAL ERROR: mm_to_monthabbr" + call hydro_stop("mm_to_monthabbr") + +endif +end function mm_to_monthabbr + +!=================================================================================================== +! Function Name: round_resolution_minute +! Author(s)/Contact(s): +! James L McCreight, jamesmcc> +! Input Files: +! +! Output Files: +! +! +! Condition codes: +! +! If appropriate, descriptive troubleshooting instructions or +! likely causes for failures could be mentioned here with the +! appropriate error code +! +! User controllable options: + +module module_nudging_io + +use netcdf +use module_namelist, only: nlst_rt +use module_RT_data, only: rt_domain + +implicit none +#include + +!======================== +! lastObs structure, corresponding to nudgingLastObs.YYYY-mm-dd_HH:MM:ss.nc +! How observations from the past are carried forward. +! This type is extended in module_stream_nudging +type lastObsStructure + character(len=15) :: usgsId + real, allocatable, dimension(:) :: lastObsDischarge + real, allocatable, dimension(:) :: lastObsModelDischarge + character(len=19), allocatable, dimension(:) :: lastObsTime + real, allocatable, dimension(:) :: lastObsQuality +end type lastObsStructure + +integer, parameter :: did = 1 + +contains + +!=================================================================================================== +! Program Name: +! subroutine find_timeslice_file +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Return a single file path/names of timeslice files given a single date. +! History Log: +! 6/4/15 - Created, +! Usage: +! Parameters: +! q +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: namelist option for nlst_rt(did)%timeSlicePath +! Notes: + +function find_timeslice_file(date, obsResolution) +implicit none +character(len=256) :: find_timeslice_file ! Output +character(len=19), intent(in) :: date ! Input +character(len=2), intent(in) :: obsResolution ! Input +!Internals +character(len=256) :: tmpTimeSlice +logical :: fileExists + +#ifdef HYDRO_D +print*,'Ndg: start find_timeslice_file' +call flush(6) +#endif + +find_timeslice_file='' +! is there a file with this name? +! note files are not resolved below minutes. +tmpTimeSlice = trim(nlst_rt(did)%timeSlicePath) // date // "." // & + obsResolution // 'min.usgsTimeSlice.ncdf' +inquire(FILE=tmpTimeSlice, EXIST=fileExists) +if (fileExists) find_timeslice_file = trim(tmpTimeSlice) + +#ifdef HYDRO_D +print*,'Ndg: timeSlice file: ', tmpTimeSlice +print*,'Ndg: file found: ', fileExists +print*,'Ndg: finish find_timeslice_file' +call flush(6) +#endif + +end function find_timeslice_file + +!=================================================================================================== +! Program Name: +! subroutine read_timeslice_file +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Return the contents of a timeslice file. +! History Log: +! 6/4/15 - Created, +! Usage: +! Parameters: +! +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: namelist option for nlst_rt(did)%timeSlicePath +! Notes: + +subroutine read_timeslice_file( & + timeSliceFile, & !! IN: char, file path/name + sanityQcDischarge, & !! IN: perform sanity check qc? + sliceTime, & !! OUT: the file time. + updateTime, & !! OUT: the time the file was updated. + sliceResolution, & !! OUT: temporal resolution of the file in minutes. + gageId, & !! OUT: integer, the USGS gage ID. + gageTime, & !! OUT: output converted for comparision to model time?? + gageQC, & !! OUT: quality control flag for discharge + gageDischarge, & !! OUT: real, the m3/s observed discharge + fatalErr, & !! IN: logical, are IO errors fatal? + errStatus & !! OUT: count of errors encountered + ) + +implicit none +character(len=256), intent(in) :: timeSliceFile +logical, intent(in) :: sanityQcDischarge +character(len=19), intent(out) :: sliceTime +character(len=19), intent(out) :: updateTime +character(len=2), intent(out) :: sliceResolution +character(len=15), intent(out), dimension(:) :: gageId +character(len=19), intent(out), dimension(:) :: gageTime +real, intent(out), dimension(:) :: gageQC +real, intent(out), dimension(:) :: gageDischarge +logical, intent(in) :: fatalErr +integer, intent(out) :: errStatus + +integer*2, allocatable, dimension(:) :: gageQCIn +integer :: iRet, ncId, fileNameLen, errStatusOut +character(len=19) :: caller +real, parameter :: zero = 0.0000000000000 +real, parameter :: oneHundred = 100.0000000000000 + +#ifdef HYDRO_D +print*,'Ndg: start read_timeslice_file' +write(*,'("Ndg: read_timeslice_file: ''", A, "''")') trim(timeSliceFile) +call flush(6) +#endif + +caller = 'read_timeslice_file' +errStatus=0 + +iRet = nf90_open(trim(timeSliceFile), nf90_nowrite, ncid) +if (iRet /= nf90_NoErr) then + write(*,'("Problem opening timeSliceFile: ''", A, "''")') trim(timeSliceFile) + if(fatalErr) call hydro_stop('read_timeslice_file') + errStatus=errStatus+1 +endif + +!! global atts +iRet = nf90_get_att(ncid, nf90_global, 'sliceCenterTimeUTC', sliceTime) +if (iRet /= nf90_NoErr) errStatus=errStatus+1 +iRet = nf90_get_att(ncid, nf90_global, 'fileUpdateTimeUTC', updateTime) +if (iRet /= nf90_NoErr) errStatus=errStatus+1 +iRet = nf90_get_att(ncid, nf90_global, 'sliceTimeResolutionMinutes', sliceResolution) +if (iRet /= nf90_NoErr) errStatus=errStatus+1 + +! variables +call get_1d_netcdf_text(ncid, 'stationId', gageId, caller, & + fatalErr, errStatusOut) +errStatus=errStatus+errStatusOut +call get_1d_netcdf_text(ncid, 'time', gageTime, caller, & + fatalErr, errStatusOut) +errStatus=errStatus+errStatusOut +call get_1d_netcdf_real(ncid, 'discharge', gageDischarge, caller, & + fatalErr, errStatusOut) +errStatus=errStatus+errStatusOut + +!! the quality short integer needs scaled +allocate(gageQCIn(size(gageQC))) +call get_1d_netcdf_int2(ncid, 'discharge_quality', gageQCIn, caller, & + fatalErr, errStatusOut) +errStatus=errStatus+errStatusOut +gageQC=gageQCIn/oneHundred +deallocate(gageQCIn) + +!! JLM TODO fix temporary hardwire QC sanity checks +if (sanityQcDischarge) then + !! First, quality check on the quality flag! + where(gageQC .lt. 0 .or. gageQC .gt. 1) gageQC=0 + !! Now flow QC. + where(gageDischarge .le. 0.000) gageQC=0 + !! peak flow on MS river *2 + !! http://nwis.waterdata.usgs.gov/nwis/peak?site_no=07374000&agency_cd=USGS&format=html + !! baton rouge 1945: 1,473,000cfs=41,711cfs, multiply it roughly by 2 + where(gageDischarge .ge. 90000.0) gageQC=0 + if(any(gageQc .eq. 0)) then + write(6,*) 'Ndg: some gageQC set to zero' + endif +endif + +iRet = nf90_close(ncId) +if (iRet /= nf90_NoErr) then + write(*,'("Problem closing timeSliceFile: ''", A, "''")') trim(timeSliceFile) + if(fatalErr) call hydro_stop('read_timeslice_file') + errStatus=errStatus+1 +endif + +#ifdef HYDRO_D +print*,'Ndg: finish read_timeslice_file' +call flush(6)! +#endif + +end subroutine read_timeslice_file + +!=================================================================================================== +! Program Name: +! subroutine read_reach_gage_collocation +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Read the gages column from the "RouteLink.nc" netcdf file specifing the channel topology. +! History Log: +! 7/20/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! netcdf file RouteLink.nc or other name ending with .nc. +! Output Files: +! Condition codes: +! User controllable options: +! Notes: Currently no csv support, but basic code is in place though commented out. + +subroutine read_reach_gage_collocation(gageIds) +use module_namelist, only: nlst_rt +implicit none +character(len=15), dimension(:), intent(out) :: gageIds +!integer, dimension(:), intent(out) :: gageIds + +integer :: ncid , iRet, varId +logical :: fatal_if_error +character(len=256) :: route_link_f_r, route_link_f, varName +integer :: lenRouteLinkFR ! so the preceeding var chan be changed without changing code +logical :: routeLinkNetcdf + +#ifdef HYDRO_D +print*,'Ndg: Starting read_reach_gage_collocation' +#endif + +varName = 'gages' +!! is RouteLink file netcdf (*.nc) or csv (*.csv) +route_link_f = nlst_rt(did)%route_link_f +route_link_f_r = adjustr(route_link_f) +lenRouteLinkFR = len(route_link_f_r) +routeLinkNetcdf = route_link_f_r( (lenRouteLinkFR-2):lenRouteLinkFR) .eq. '.nc' + +if(routeLinkNetcdf) then + +!! part of this could become a get_1d_netcdf + iRet = nf90_open(trim(route_link_f), nf90_NoWrite, ncId) + if (iRet /= nf90_NoErr) then + write(6,'("read_reach_gage_collocation: Problem opening file ''", A, "''")') trim(route_link_f) + call hydro_stop("read_reach_gage_collocation") + endif + + iRet = nf90_inq_varid(ncid, varName, varid) + if (iRet /= nf90_NoErr) then + print*,"Ndg: read_reach_gage_collocation: variable: " // trim(varName) + call hydro_stop("read_reach_gage_collocation") + end if + + iRet = nf90_get_var(ncid, varid, gageIds) + if (iRet /= nf90_NoErr) then + print*,"Ndg: read_reach_gage_collocation: value: " // trim(varName) + call hydro_stop("read_reach_gage_collocation") + end if + + iRet = nf90_close(ncid) + if (iRet /= nf90_NoErr) then + print*,"Ndg: read_reach_gage_collocation: closing: " // trim(varName) + call hydro_stop("read_reach_gage_collocation") + end if + +else + call hydro_stop('read_reach_gage_collocation: csv not currently supported.') + !! here's some code to start from if/when we do want to support csv for this. + !open(unit=79,file=trim(route_link_f),form='formatted',status='old') + !read(79,*) header + !print *, "header ", header, "NLINKSL = ", NLINKSL, GNLINKSL + !call flush(6) + !do i=1,GNLINKSL + ! read (79,*) tmpLINKID(i), tmpFROM_NODE(i), tmpTO_NODE(i), tmpCHLON(i), & + ! tmpCHLAT(i), tmpZELEV(i), tmpTYPEL(i), tmpORDER(i), & + ! tmpQLINK(i,1), tmpMUSK(i), tmpMUSX(i), tmpCHANLEN(i), & + ! tmpMannN(i), tmpSo(i), tmpChSSlp(i), tmpBw(i), & + ! tmpHRZAREA(i), tmpLAKEMAXH(i), tmpWEIRC(i), tmpWEIRL(i), & + ! tmpORIFICEC(i), tmpORIFICEA(i), tmpORIFICEE(i) + ! ! if (So(i).lt.0.005) So(i) = 0.005 !-- impose a minimum slope requireement + ! if (tmpORDER(i) .gt. MAXORDER) MAXORDER = tmpORDER(i) + !end do + !close(79) +end if ! routeLinkNetcdf + +#ifdef HYDRO_D +print*,'Ndg: Finish read_reach_gage_collocation' +call flush(6) +#endif + +end subroutine read_reach_gage_collocation + +!=================================================================================================== +! Program Name: +! subroutine read_gridded_nudging_frxst_gage_csv +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! For gridded channel routine, the mechanism is to use forecast points to +! identify gages. This file determines the collocation of the two. See the +! file in the nudging/ directory for more info. +! History Log: +! 6/22/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: Nudging_frxst_gage.csv +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine read_gridded_nudging_frxst_gage_csv(frxstId, gageId, nGages) +implicit none +integer, dimension(:), intent(out) :: frxstId +character(len=15), dimension(:), intent(out) :: gageId +integer, intent(out) :: nGages + +character(len=5000) :: line +integer :: ii, colCount, lineCount, lastCommaPos, tmpInt + +#ifdef HYDRO_D +print*,'Ndg: start read_gridded_nudging_frxst_gage_csv' +#endif +frxstId=-9999 + +lineCount = 0 + +#ifndef NCEP_WCOSS +open(117, file = 'Nudging_frxst_gage.csv' ) +#else +open(26) +#endif +do +#ifndef NCEP_WCOSS + read(117, '( a )', end = 200 ) line +#else + read(26, '( a )', end = 200 ) line +#endif + if( line( 1:1 ) == '!' ) cycle + colCount = 1 + lastCommaPos = 0 + do ii = 1, len( line ) + + if( line( ii:ii ) == '!' ) exit + + if (ii .eq. 1) lineCount = lineCount + 1 + + if( line( ii:ii ) == ',' ) then + if(colCount .eq. 1) then + read (line((lastCommaPos+1):(ii-1)),'(I5)') tmpInt + frxstId(lineCount) = tmpInt + end if + if(colCount .eq. 2) gageId(lineCount) = trim(line((lastCommaPos+1):(ii-1))) + colCount = colCount + 1 + lastCommaPos = ii + end if + + if(colCount .eq. 3) cycle + + end do +end do + +#ifndef NCEP_WCOSS +close(117) +#else +close(26) +#endif + +200 continue + +#ifdef HYDRO_D +nGages = lineCount +print*,"Ndg: nGages: ", nGages +print*,"Ndg: frxstId: ", frxstId(1:nGages) +print*,"Ndg: gageId:", gageId(1:nGages) +print*,'Ndg: finish read_gridded_nudging_frxst_gage_csv' +call flush(6) +#endif + +end subroutine read_gridded_nudging_frxst_gage_csv + +!=================================================================================================== +! Program Name: +! subroutine read_nudging_param_file +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Set up the default nudging parameters with the model initialization. +! History Log: +! 6/22/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: Nudging_frxst_gage.csv +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine read_nudging_param_file( & + paramFile, & !! IN: char, file path/name + gageId, & !! OUT: integer, the USGS gage ID. + gageR, & !! OUT: output converted for comparision to model time?? + gageG, & !! OUT: quality control flag for discharge + gageTau, & !! OUT: real the half-window for NN/IDW interp + gageQThresh, & !! OUT: real the half-window for NN/IDW interp + gageExpCoeff & !! OUT: real, params for exponent-based temporal persistence +) +implicit none +character(len=256), intent(in) :: paramFile +character(len=15), intent(out), dimension(:) :: gageId +real, intent(out), dimension(:) :: gageR +real, intent(out), dimension(:) :: gageG +real, intent(out), dimension(:) :: gageTau +real, intent(out), dimension(:,:,:) :: gageQThresh +real, intent(out), dimension(:,:,:) :: gageExpCoeff + +integer :: iRet, ncId, varId, dimId, fileNameLen, errStatus +character(len=23) :: caller + +#ifdef HYDRO_D +print*,'Ndg: start read_nudging_param_file' +write(*,'("Ndg: paramFile: ''", A, "''")') trim(paramFile) +call flush(6) +#endif + +caller='read_nudging_param_file' + +iRet = nf90_open(trim(paramFile), nf90_NoWrite, ncid) +if (iRet /= nf90_NoErr) then + write(6,'("read_nudging_param_file: Problem opening file ''", A, "''")') trim(paramFile) + call hydro_stop("read_nudging_param_file") +endif + +call get_1d_netcdf_text(ncid, 'stationId', gageId, caller, .TRUE., errStatus) +call get_1d_netcdf_real(ncid, 'R', gageR, caller, .TRUE., errStatus) +call get_1d_netcdf_real(ncid, 'G', gageG, caller, .TRUE., errStatus) +call get_1d_netcdf_real(ncid, 'tau', gageTau, caller, .TRUE., errStatus) + +if(size(gageExpCoeff,2) .ne. 0 .and. size(gageExpCoeff,3) .ne. 0) then + call get_3d_netcdf_real(ncid, 'qThresh', gageQThresh, caller, .true., errStatus) + call get_3d_netcdf_real(ncid, 'expCoeff', gageExpCoeff, caller, .true., errStatus) +end if + +iRet = nf90_close(ncId) +if (iRet /= nf90_NoErr) then + write(*,'("Problem closing paramFile: ''", A, "''")') trim(paramFile) + call hydro_stop('read_nudging_param_file') +endif + +#ifdef HYDRO_D +print*,'Ndg: finish read_nudging_param_file' +call flush(6) +#endif + +end subroutine read_nudging_param_file + + +!=================================================================================================== +! Subroutine Name: +! subroutine write_nwis_not_in_RLAndParams +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Write a log file of gages supplied by NWIS but which are not found in +! the intersection of our Route_Link gages and our parameter file gages. +! Perhaps they were not picked up by us as available, +! or they are simply not in NHD+. +! History Log: +! 11/04/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: + +subroutine write_nwis_not_in_RLAndParams( gageId, count ) +implicit none +character(len=15), dimension(:), intent(in) :: gageId +integer, intent(in) :: count +integer :: cc + +#ifndef NCEP_WCOSS +open (unit=919,file='NWIS_gages_not_in_RLAndParams.txt',status='unknown',position='append') +#else +open (unit=27,status='unknown',position='append') +#endif + +do cc=1,count + +#ifndef NCEP_WCOSS + write(919,'(A15)') gageId(cc) +#else + write(27,'(A15)') gageId(cc) +#endif + +end do + +#ifndef NCEP_WCOSS +close(919) +#else +close(27) +#endif + +end subroutine write_nwis_not_in_RLAndParams + + +!=================================================================================================== +! Subroutine Name: +! subroutine write_nudging_last_obs +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Write out the last observations collected over time. +! History Log: +! 02/03/16 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: Needs better error handling... + +subroutine write_nudging_last_obs(lastObsStr, modelTime, g_nudge) + +implicit none + +!Arugments +type(lastObsStructure), intent(in), dimension(:) :: lastObsStr +character(len=19), intent(in) :: modelTime +real, intent(in), dimension(:) :: g_nudge + +! Local +character(len=37) :: outFileName +integer :: nSpace, nTime, nFeature, tt, ss +integer :: ncid, iret, varid, dimIdTimeStr, dimIdStnStr, dimIdNTime, dimIdNStn, dimIdNFeature +character(len=15), allocatable, dimension(:) :: charArr15 +character(len=19), allocatable, dimension(:,:) :: charArr19 +real, allocatable, dimension(:,:) :: tmpFloat +integer*2, allocatable, dimension(:,:) :: qualityInt2 + +#ifdef HYDRO_D +print*,'Ndg: start write_nudging_last_obs' +flush(6) +#endif + +nSpace = size(lastObsStr) +nTime = size(lastObsStr(1)%lastObsDischarge) +nFeature = size(g_nudge) + +! !1234567891123456789212345678931234567 +outFileName='nudgingLastObs.' // modelTime // '.nc' + +! create file +iret = nf90_create(outFileName, nf90_clobber, ncid) + +! create dimensions +! station id has length of the number of gages +! feature id has length of the number of reaches/features. +iret = nf90_def_dim(ncid, "timeStrLen", 19, dimIdTimeStr) +iret = nf90_def_dim(ncid, "timeInd", nTime, dimIdNTime) +iret = nf90_def_dim(ncid, "stationIdStrLen", 15, dimIdStnStr) +iret = nf90_def_dim(ncid, "stationIdInd", nf90_unlimited, dimIdNStn) +iret = nf90_def_dim(ncid, "feature_id", nFeature, dimIdNFeature) + +!! gageId def var +iret = nf90_def_var(ncid, "stationId", nf90_char, (/ dimIdStnStr, dimIdNstn /), varid) +iret = nf90_put_att(ncid, varid, 'long_name', "USGS station identifer of length 15") +iret = nf90_def_var_deflate(ncid, varid, 0, 1, 2) + +!! time def var +iret = nf90_def_var(ncid, "time", nf90_char, (/ dimIdTimeStr, dimIdNTime, dimIdNStn /), varid) +iret = nf90_put_att(ncid, varid, 'units', "UTC") +iret = nf90_put_att(ncid, varid, 'long_name', "YYYY-mm-dd_HH:MM:SS UTC") +iret = nf90_def_var_deflate(ncid, varid, 0, 1, 2) + +! discharge def var +iret = nf90_def_var(ncid, "discharge", nf90_float, (/ dimIdNTime, dimIdNstn /), varid) +iret = nf90_put_att(ncid, varid, 'units', "m^3/s") +iret = nf90_put_att(ncid, varid, 'long_name', "Discharge.cubic_meters_per_second") +iret = nf90_def_var_deflate(ncid, varid, 0, 1, 2) + +! model discharge def var +iret = nf90_def_var(ncid, "model_discharge", nf90_float, (/ dimIdNTime, dimIdNstn /), varid) +iret = nf90_put_att(ncid, varid, 'units', "m^3/s") +iret = nf90_put_att(ncid, varid, 'long_name', "modelDischarge.cubic_meters_per_second") +iret = nf90_def_var_deflate(ncid, varid, 0, 1, 2) + +! discharge quality def var +iret = nf90_def_var(ncid, "discharge_quality", nf90_short, (/ dimIdNTime, dimIdNstn /), varid) +iret = nf90_put_att(ncid, varid, 'units', "-") +iret = nf90_put_att(ncid, varid, 'long_name', "Discharge quality 0 to 100 to be scaled by 100.") +iret = nf90_def_var_deflate(ncid, varid, 0, 1, 2) + +! nudge def var +iret = nf90_def_var(ncid, "nudge", nf90_float, (/ dimIdNFeature /), varid) +iret = nf90_put_att(ncid, varid, 'units', "m3 s-1") +iret = nf90_put_att(ncid, varid, 'long_name', "Amount of stream flow alteration") +iret = nf90_def_var_deflate(ncid, varid, 0, 1, 2) + +!! global attributes +iret = nf90_put_att(ncid, nf90_global, "modelTimeAtOutput", modelTime) + +!! end definition +iret = nf90_enddef(ncid) + +!! gageId write var +iret = nf90_inq_varid(ncid, "stationId", varid) +allocate(charArr15(nSpace)) +charArr15=lastObsStr(:)%usgsId + +iret = nf90_put_var(ncid, varid, charArr15) +deallocate(charArr15) + +! time write var +iret = nf90_inq_varid(ncid, "time", varid) +allocate(charArr19(nTime,nSpace)) +do tt=1,nTime + do ss=1,nSpace + charArr19(tt,ss) = lastObsStr(ss)%lastObsTime(tt) + end do +end do +iret = nf90_put_var(ncid, varid, charArr19) +deallocate(charArr19) + +! discharge write var +iret = nf90_inq_varid(ncid, "discharge", varid) +allocate(tmpFloat(nTime,nSpace)) +do tt=1,nTime + do ss=1,nSpace + tmpFloat(tt,ss) = lastObsStr(ss)%lastObsDischarge(tt) + end do +end do +iret = nf90_put_var(ncid, varid, tmpFloat) +deallocate(tmpFloat) + +! model discharge write var +iret = nf90_inq_varid(ncid, "model_discharge", varid) +allocate(tmpFloat(nTime,nSpace)) +do tt=1,nTime + do ss=1,nSpace + tmpFloat(tt,ss) = lastObsStr(ss)%lastObsModelDischarge(tt) + end do +end do +iret = nf90_put_var(ncid, varid, tmpFloat) +deallocate(tmpFloat) + +! discharge_quality write var +iret = nf90_inq_varid(ncid, "discharge_quality", varid) +allocate(qualityInt2(nTime,nSpace)) +do tt=1,nTime + do ss=1,nSpace + qualityInt2(tt,ss) = nint(100*lastObsStr(ss)%lastObsQuality(tt), kind=2) +end do +end do +iret = nf90_put_var(ncid, varid, qualityInt2) +deallocate(qualityInt2) + +! discharge_quality write var +iret = nf90_inq_varid(ncid, "nudge", varid) +iret = nf90_put_var(ncid, varid, g_nudge) + +!! close +iret= nf90_close(ncid) + +#ifdef HYDRO_D +print*,'Ndg: end write_nudging_last_obs' +flush(6) +#endif + +end subroutine write_nudging_last_obs + + +!=================================================================================================== +! Program Name: +! subroutine find_nudging_last_obs_file +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Return a single file path/names of nudging last obs file given a single date. +! History Log: +! 2/9/16 - Created, +! Usage: +! Parameters: +! date +! Input Files: nudgingLastObs.YYYY-mm-dd_HH:MM:SS.nc +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +function find_nudging_last_obs_file(fileName) +implicit none +character(len=256) :: find_nudging_last_obs_file ! Output +character(len=256), intent(in) :: fileName +!Internals +logical :: fileExists +#ifdef HYDRO_D +print*,'Ndg: start find_nudging_last_obs_file' +flush(6) +#endif + +find_nudging_last_obs_file='' +! is there a file with this name? +! note files are not resolved below minutes. +inquire(FILE=fileName, EXIST=fileExists) +if (fileExists) find_nudging_last_obs_file = trim(fileName) + +#ifdef HYDRO_D +print*,'Ndg: last obs file: ', trim(fileName) +print*,'Ndg: file found: ', fileExists +print*,'Ndg: finish find_nudging_last_obs_file' +flush(6) +#endif + +end function find_nudging_last_obs_file + + +!=================================================================================================== +! Subroutine Name: +! subroutine read_nudging_last_obs +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! read in the last observations collected over time. +! History Log: +! 02/03/16 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: Needs better error handling... + +subroutine read_nudging_last_obs(fileName, lastObsStr, g_nudge) + +implicit none +character(len=*), intent(in) :: fileName +type(lastObsStructure), intent(inout), dimension(:) :: lastObsStr +real, intent(inout), dimension(:) :: g_nudge + +integer :: nSpace, nTime, tt, ss +integer:: ncid, iret, varid +real, allocatable, dimension(:,:) :: tmpFloat +integer*2, allocatable, dimension(:,:) :: qualityInt2 +character(len=19), allocatable, dimension(:,:) :: charArr19 +character(len=15), allocatable, dimension(:) :: charArr15 + +print*,'read_nudging_last_obs' + +nSpace = size(lastObsStr) +nTime = size(lastObsStr(1)%lastObsDischarge) + +iret = nf90_open(fileName, nf90_nowrite, ncid) + +!! gageId read var +allocate(charArr15(nSpace)) +iret = nf90_inq_varid(ncid, "stationId", varid) +iret = nf90_get_var(ncid, varid, charArr15) +lastObsStr(:)%usgsId=charArr15 +deallocate(charArr15) + +! time read var +iret = nf90_inq_varid(ncid, "time", varid) +allocate(charArr19(nTime,nSpace)) +iret = nf90_get_var(ncid, varid, charArr19) +do tt=1,nTime + do ss=1,nSpace + lastObsStr(ss)%lastObsTime(tt)=charArr19(tt,ss) + end do +end do +deallocate(charArr19) + +! discharge read var +iret = nf90_inq_varid(ncid, "discharge", varid) +allocate(tmpFloat(nTime,nSpace)) +iret = nf90_get_var(ncid, varid, tmpFloat) +do tt=1,nTime + do ss=1,nSpace + lastObsStr(ss)%lastObsDischarge(tt) = tmpFloat(tt,ss) + end do +end do +deallocate(tmpFloat) + +! model discharge read var +iret = nf90_inq_varid(ncid, "model_discharge", varid) +allocate(tmpFloat(nTime,nSpace)) +iret = nf90_get_var(ncid, varid, tmpFloat) +do tt=1,nTime + do ss=1,nSpace + lastObsStr(ss)%lastObsModelDischarge(tt) = tmpFloat(tt,ss) + end do +end do +deallocate(tmpFloat) + +!discharge _quality read var +iret = nf90_inq_varid(ncid, "discharge_quality", varid) +allocate(qualityInt2(nTime,nSpace)) +iret = nf90_get_var(ncid, varid, qualityInt2) +do tt=1,nTime + do ss=1,nSpace + lastObsStr(ss)%lastObsQuality(tt) = qualityInt2(tt,ss)/real(100) + end do +end do +deallocate(qualityInt2) + +iret = nf90_inq_varid(ncid, "nudge", varid) +if(iret .eq. nf90_noerr) then + iret = nf90_get_var(ncid, varid, g_nudge) +else + g_nudge=0.0000000000 +end if + +!! close +iret= nf90_close(ncid) + +#ifdef HYDRO_D +print*,'Ndg: end read_nudging_last_obs' +flush(6) +#endif + +end subroutine read_nudging_last_obs + + +!=================================================================================================== +! Subroutine Name: +! subroutine read_network_reexpression +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Read the three netcdf files which allow the stream network to be traversed with +! indexing. +! History Log: +! 7/23/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: + +subroutine read_network_reexpression( & + file, & ! file with dims of the stream ntwk + upGo, & ! where each ind came from, upstream + upStart, & ! where each ind's upstream links start in upGo + upEnd, & ! where each ind's upstream links end in upGo + downGo, & ! where each ind goes, downstream + downStart, & ! where each ind's downstream links start in downGo + downEnd ) ! where each ind's downstream links end in downGo + +implicit none + +character(len=*), intent(in) :: file +integer*4, dimension(:), intent(out) :: upGo +integer*4, dimension(:), intent(out) :: upStart +integer*4, dimension(:), intent(out) :: upEnd +integer*4, dimension(:), intent(out) :: downGo +integer*4, dimension(:), intent(out) :: downStart +integer*4, dimension(:), intent(out) :: downEnd + +character(len=25) :: subroutineName +integer :: iRet, ncid, errStatus +#ifdef HYDRO_D +print*,"Ndg: start read_network_reexpression" +flush(6) +#endif + +subroutineName = 'read_network_reexpression' + +iRet = nf90_open(trim(file), nf90_nowrite, ncid) +if (iRet /= nf90_noerr) then + write(*,'("read_network_reexpression: Problem opening: ''", A, "''")') trim(file) + call hydro_stop(subroutineName // ": Problem opening file: " // file) +endif + +call get_1d_netcdf_int4(ncid, 'upGo', upGo, subroutineName, .TRUE., errStatus) +call get_1d_netcdf_int4(ncid, 'upStart', upStart, subroutineName, .TRUE., errStatus) +call get_1d_netcdf_int4(ncid, 'upEnd', upEnd, subroutineName, .TRUE., errStatus) +call get_1d_netcdf_int4(ncid, 'downGo', downGo, subroutineName, .TRUE., errStatus) +call get_1d_netcdf_int4(ncid, 'downStart', downStart, subroutineName, .TRUE., errStatus) +call get_1d_netcdf_int4(ncid, 'downEnd', downEnd, subroutineName, .TRUE., errStatus) + +iRet = nf90_close(ncId) +if (iRet /= nf90_noerr) then + write(*,'("read_network_reexpression: Problem closing: ''", A, "''")') trim(file) + call hydro_stop(subroutineName // ": Problem closing file: " // file) +end if + +#ifdef HYDRO_D +print*,"Ndg: finish read_network_reexpression" +flush(6) +#endif + +end subroutine read_network_reexpression + +!=================================================================================================== +! Subroutine Name: +! subroutine output_chan_connectivity +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! For gridded channel routing, write the channel connectivity to a netcdf file +! so channel analyses can be performed offline. Do it here so any changes to the +! topology calculation are maintained without external code. +! History Log: +! 5/27/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes : +! One day it might be worth writing code to read the files output by this code, +! depending on the time spent on the calculations when restarting a domain: +! is recalculation faster than reading in the file written by this routine? + +subroutine output_chan_connectivity( & + inCHLAT, inCHLON, & !! Channel grid lat, lon. + inCHANLEN, & !! The distance between channel grid centers in m. + inFROM_NODE, inTO_NODE, & !! Index of a given cell and the index which it flows to. + inCHANXI, inCHANYJ, & !! Index on fine/routing grid of grid cells. + inTYPEL, inLAKENODE & !! Lake type? and node? indications. +) + + +#ifdef MPP_LAND +use module_mpp_land +#endif + +implicit none +#include + +!! These are the names used in module_HYDRO_io.F: SUBROUTINE READ_CHROUTING1 +real, dimension(:), intent(in) :: inCHLAT, inCHLON, inCHANLEN +integer, dimension(:), intent(in) :: inFROM_NODE, inTO_NODE, inCHANXI, inCHANYJ, inTYPEL, inLAKENODE + +integer :: nStreamCells, streamCellDimID +integer :: iret, projInfo_flag +integer :: ncid, ncstatic, varid + + +real :: long_cm, lat_po, fe, fn +real, dimension(2) :: sp +! JLM this could go to a namelist for flexibility +character(len=256), parameter :: output_flnm = "CHANNEL_CONNECTIVITY.nc" + +real, allocatable, dimension(:) :: CHLAT, CHLON, CHANLEN +integer, allocatable, dimension(:) :: FROM_NODE, TO_NODE, CHANXI, CHANYJ, TYPEL, LAKENODE + +!! handle the parallelization in this routine instead of in the main code. + +#ifdef MPP_LAND + +if(my_id .eq. io_id) then + allocate( chLat(rt_domain(did)%gnlinks), chLon(rt_domain(did)%gnlinks) ) + allocate( chanLen(rt_domain(did)%gnlinks), from_node(rt_domain(did)%gnlinks) ) + allocate( to_node(rt_domain(did)%gnlinks), chanXI(rt_domain(did)%gnlinks) ) + allocate( chanYJ(rt_domain(did)%gnlinks), typeL(rt_domain(did)%gnlinks) ) + allocate( lakeNode(rt_domain(did)%gnlinks) ) +else + allocate(chLat(1), chLon(1), chanLen(1), from_node(1), to_node(1) ) + allocate(chanXI(1), chanYJ(1), typeL(1), lakeNode(1)) +end if + +call write_chanel_real(inChLat, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, chLat) +call write_chanel_real(inChLon, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, chLon) +call write_chanel_real(inChanLen, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, chanLen) +call write_chanel_int(inFrom_node, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, from_node) +call write_chanel_int(inTo_node, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, to_node) +call write_chanel_int(inChanXI, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, chanXI) +call write_chanel_int(inChanYJ, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, chanYJ) +call write_chanel_int(inTypeL, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, typeL) +call write_chanel_int(inLakeNode, rt_domain(did)%map_l2g, & + rt_domain(did)%gnlinks, rt_domain(did)%nlinks, lakeNode) + +#else + +allocate( chLat(rt_domain(did)%nlinks), chLon(rt_domain(did)%nlinks) ) +allocate( chanLen(rt_domain(did)%nlinks), from_node(rt_domain(did)%nlinks) ) +allocate( to_node(rt_domain(did)%nlinks), chanXI(rt_domain(did)%nlinks) ) +allocate( chanYJ(rt_domain(did)%nlinks), typeL(rt_domain(did)%nlinks) ) +allocate( lakeNode(rt_domain(did)%nlinks) ) + +chLat = inChLat +chLon = inChLon +chanlen = inChanlen +from_node = inFrom_node +to_node = inTo_node +chanXI = inChanXI +chanYJ = inChanYJ +typeL = inTypeL +lakeNode = inLakeNode + +#endif + + +#ifdef MPP_LAND +if(my_id .eq. io_id) then +#endif + + !! jlm: check that all the input variables have the same dimensions? Or will that happen + !! by defult when trying to write to ncdf? + + ! Open the finemesh static files to obtain projection information + ! jlm: this seems optional, might be nice if output is used for plotting/GIS. + ! jlm: set did:=1 in nlst_rt +#ifdef HYDRO_D + write(*,'("geo_finegrid_flnm: ''", A, "''")') trim(nlst_rt(did)%geo_finegrid_flnm) +#endif + + iret = nf_open(trim(nlst_rt(1)%geo_finegrid_flnm), NF_NOWRITE, ncstatic) + + if (iret /= 0) then + write(*,'("Problem opening geo_finegrid file: ''", A, "''")') & + trim(nlst_rt(1)%geo_finegrid_flnm) + write(*,*) "HIRES_OUTPUT will not be georeferenced..." + projInfo_flag = 0 + else + projInfo_flag = 1 + endif + + if(projInfo_flag.eq.1) then !if/then hires_georef + ! Get projection information from finegrid netcdf file + iret = NF_INQ_VARID(ncstatic,'lambert_conformal_conic',varid) + if(iret .eq. 0) & + iret = NF_GET_ATT_REAL(ncstatic, varid, 'longitude_of_central_meridian', long_cm) + iret = NF_GET_ATT_REAL(ncstatic, varid, 'latitude_of_projection_origin', lat_po) + iret = NF_GET_ATT_REAL(ncstatic, varid, 'false_easting', fe) + iret = NF_GET_ATT_REAL(ncstatic, varid, 'false_northing', fn) + iret = NF_GET_ATT_REAL(ncstatic, varid, 'standard_parallel', sp) + end if !endif hires_georef + iret = nf_close(ncstatic) + + + ! Create the channel connectivity file +#ifdef HYDRO_D + print*,'Ndg: output_flnm = "'//trim(output_flnm)//'"' + flush(6) +#endif + +#ifdef WRFIO_NCD_NO_LARGE_FILE_SUPPORT + write(6,*) "using normal netcdf file for CHANNEL_CONNECTIVITY" + iret = nf_create(trim(output_flnm), NF_CLOBBER, ncid) +#else + write(6,*) "using large netcdf file for CHANNEL_CONNECTIVITY" + iret = nf_create(trim(output_flnm), ior(NF_CLOBBER,NF_64BIT_OFFSET), ncid) +#endif + + if (iret /= 0) then + print*,"Ndg: Problem nf_create" + call hydro_stop("output_channel_connectivity") + endif + + nStreamCells=size(CHLON,1) +#ifdef HYDRO_D + print*,'Ndg: nStreamCells:', nStreamCells + flush(6) +#endif + + ! Dimension definitions + iret = nf_def_dim(ncid, "nStreamCells", nStreamCells, streamCellDimID) + + ! Variable definitions + ! LATITUDE - float + iret = nf_def_var(ncid, "LATITUDE", NF_FLOAT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid,varid, 'long_name', 22, 'Upstream cell latitude') + iret = nf_put_att_text(ncid,varid, 'standard_name', 8, 'LATITUDE') + iret = nf_put_att_text(ncid,varid, 'units', 5, 'deg North') + + ! LONGITUDE - float + iret = nf_def_var(ncid, "LONGITUDE", NF_FLOAT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'long_name', 23, 'Upstream cell longitude') + iret = nf_put_att_text(ncid, varid, 'standard_name', 9, 'LONGITUDE') + iret = nf_put_att_text(ncid, varid, 'units', 8, 'deg East') + + ! CHANLEN - float + ! JLM: should check if pour points have chanLen, should they? + iret = nf_def_var(ncid, "CHANLEN", NF_FLOAT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'units', 1,'m') + iret = nf_put_att_text(ncid, varid, 'long_name', 58, & + 'distance between stream cell center points with downstream') + iret = nf_put_att_real(ncid, varid, 'missing_value', NF_REAL, 1, -9E15) + + + + ! FROM_NODE - integer + iret = nf_def_var(ncid, "FROM_NODE", NF_INT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'units', 5, 'index') + iret = nf_put_att_text(ncid, varid, 'long_name', 19, 'Upstream cell index') + iret = nf_put_att_int(ncid, varid, 'missing_value', NF_INT, 1, -9999) + + ! TO_NODE - integer + iret = nf_def_var(ncid, "TO_NODE", NF_INT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'units', 5, 'index') + iret = nf_put_att_text(ncid, varid, 'long_name', 21, 'Downstream cell index') + iret = nf_put_att_int(ncid, varid, 'missing_value', NF_INT, 1, -9999) + + ! CHANXI - integer + iret = nf_def_var(ncid, "CHANXI", NF_INT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'units', 5, 'index') + iret = nf_put_att_text(ncid, varid, 'long_name', 34, 'Upstream cell x index on fine grid') + iret = nf_put_att_int(ncid, varid, 'missing_value', NF_INT, 1, -9999) + + ! CHANYJ - integer + iret = nf_def_var(ncid, "CHANYJ", NF_INT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'units', 5, 'index') + iret = nf_put_att_text(ncid, varid, 'long_name', 34, 'Upstream cell y index on fine grid') + iret = nf_put_att_int(ncid, varid, 'missing_value', NF_INT, 1, -9999) + + ! TYPEL - integer + iret = nf_def_var(ncid, "TYPEL", NF_INT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'units', 5, 'code') + iret = nf_put_att_text(ncid, varid, 'long_name', 80, & + 'Link Type 0 is channel 1 is pour point crit depth downstream 2 is reservoir lake') + + ! LAKENODE - integer + iret = nf_def_var(ncid, "LAKENODE", NF_INT, 1, (/ streamCellDimID /), varid) + iret = nf_put_att_text(ncid, varid, 'units', 5, 'index') + iret = nf_put_att_text(ncid, varid, 'long_name', 32, 'Index of lake in downstream cell') + + + ! Projection information + if(projInfo_flag .eq. 1) then + iret = nf_def_var(ncid, "lambert_conformal_conic", NF_INT, 0, 0, varid) + iret = nf_put_att_text(ncid, varid, 'grid_mapping_name', 23, 'lambert_conformal_conic') + iret = nf_put_att_real(ncid, varid, 'longitude_of_central_meridian', NF_FLOAT, 1, long_cm) + iret = nf_put_att_real(ncid, varid, 'latitude_of_projection_origin', NF_FLOAT, 1, lat_po) + iret = nf_put_att_real(ncid, varid, 'false_easting', NF_FLOAT, 1, fe) + iret = nf_put_att_real(ncid, varid, 'false_northing', NF_FLOAT, 1, fn) + iret = nf_put_att_real(ncid, varid, 'standard_parallel', NF_FLOAT, 2, sp) + end if + + ! End NCDF definition section + iret = nf_enddef(ncid) + + ! Put data in to the file + + ! Data for the dim? JLM: no, seems pointless index, if not necessary + !iret = nf_inq_varid(ncid,"nStreamCells", varid) + !iret = nf_put_vara_int(ncid, varid, (/1/), (/ nStreamCells /), 1:nStreamCells - or however you) + + ! Reals + iret = nf_inq_varid(ncid, "LATITUDE", varid) + iret = nf_put_vara_real(ncid, varid, (/1/), (/ nStreamCells /), CHLAT) + + iret = nf_inq_varid(ncid, "LONGITUDE", varid) + iret = nf_put_vara_real(ncid, varid, (/1/), (/ nStreamCells /), CHLON) + + iret = nf_inq_varid(ncid, "CHANLEN", varid) + iret = nf_put_vara_real(ncid, varid, (/1/), (/ nStreamCells /), CHANLEN) + + ! Integers + iret = nf_inq_varid(ncid, "FROM_NODE", varid) + iret = nf_put_vara_int(ncid, varid, (/1/), (/ nStreamCells /), FROM_NODE) + + iret = nf_inq_varid(ncid, "TO_NODE", varid) + iret = nf_put_vara_int(ncid, varid, (/1/), (/ nStreamCells /), TO_NODE) + + iret = nf_inq_varid(ncid, "CHANXI", varid) + iret = nf_put_vara_int(ncid, varid, (/1/), (/ nStreamCells /), CHANXI) + + iret = nf_inq_varid(ncid, "CHANYJ", varid) + iret = nf_put_vara_int(ncid, varid, (/1/), (/ nStreamCells /), CHANYJ) + + iret = nf_inq_varid(ncid, "TYPEL", varid) + iret = nf_put_vara_int(ncid, varid, (/1/), (/ nStreamCells /), TYPEL) + + iret = nf_inq_varid(ncid, "LAKENODE", varid) + iret = nf_put_vara_int(ncid, varid, (/1/), (/ nStreamCells /), LAKENODE) + + + ! Close the file + iret = nf_close(ncid) + +#ifdef MPP_LAND +endif + +deallocate(chLat, chLon, chanLen, from_node, to_node, chanXI, chanYJ, typeL, lakeNode) + +if(my_id .eq. io_id) then +#endif +#ifdef HYDRO_D + write(6,*) "end of output_chan_connectivity" + flush(6) +#endif +#ifdef MPP_LAND +endif +#endif + +end subroutine output_chan_connectivity + +!=================================================================================================== +! Program Names: +! get_1d_netcdf_real, get_1d_netcdf_int4 +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Read a variable of real or integer type from an open netcdf file, respectively. +! History Log: +! 7/17/15 -Created, JLM. +! Usage: +! Parameters: +! See definitions. +! Input Files: +! This file is refered to by it's "ncid" obtained from nc_open +! prior to calling this routine. +! Output Files: +! None. +! Condition codes: +! hydro_stop is passed "get_1d_netcdf". +! User controllable options: +! Notes: +! Could define an interface for these. + +subroutine get_1d_netcdf_int2(ncid, varName, var, callingRoutine, fatal_if_error, errStatus) +implicit none +integer*4, intent(in) :: ncid !! the file identifier +character(len=*), intent(in) :: varName +integer*2, dimension(:), intent(out) :: var +character(len=*), intent(in) :: callingRoutine +logical, intent(in) :: fatal_if_error +integer, intent(out) :: errStatus +integer :: varid, iret +errStatus=0 +iRet = nf90_inq_varid(ncid, varName, varid) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_int2: variable: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_int2") + errStatus=errStatus+1 +end if +iRet = nf90_get_var(ncid, varid, var) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_int2: values: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_int2") + errStatus=errStatus+1 +end if +end subroutine get_1d_netcdf_int2 + + +subroutine get_1d_netcdf_int4(ncid, varName, var, callingRoutine, fatal_if_error, errStatus) +implicit none +integer*4, intent(in) :: ncid !! the file identifier +character(len=*), intent(in) :: varName +integer, dimension(:), intent(out) :: var +character(len=*), intent(in) :: callingRoutine +logical, intent(in) :: fatal_if_error +integer, intent(out) :: errStatus +integer :: varid, iret +errStatus=0 +iRet = nf90_inq_varid(ncid, varName, varid) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_int4: variable: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_int4") + errStatus=errStatus+1 +end if +iRet = nf90_get_var(ncid, varid, var) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_int4: values: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_int4") + errStatus=errStatus+1 +end if +end subroutine get_1d_netcdf_int4 + + +subroutine get_1d_netcdf_real(ncid, varName, var, callingRoutine, fatal_if_error, errStatus) +implicit none +integer, intent(in) :: ncid !! the file identifier +character(len=*), intent(in) :: varName +real, dimension(:), intent(out) :: var +character(len=*), intent(in) :: callingRoutine +logical, intent(in) :: fatal_if_error +integer, intent(out) :: errStatus +integer :: varId, iRet +errStatus=0 +iRet = nf90_inq_varid(ncid, varName, varid) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_real: variable: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_real") + errStatus=errStatus+1 +end if +iRet = nf90_get_var(ncid, varid, var) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_real: values: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_real") + errStatus=errStatus+1 +end if +end subroutine get_1d_netcdf_real + + +subroutine get_1d_netcdf_text(ncid, varName, var, callingRoutine, fatal_if_error, errStatus) +implicit none +character(len=*), dimension(:), intent(out) :: var +integer, intent(in) :: ncid !! the file identifier +character(len=*), intent(in) :: varName +character(len=*), intent(in) :: callingRoutine +logical, intent(in) :: fatal_if_error +integer, intent(out) :: errStatus +integer :: varId, iRet +errStatus=0 +iRet = nf90_inq_varid(ncid, varName, varid) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_text: variable: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_text") + errStatus=errStatus+1 +end if +iRet = nf90_get_var(ncid, varid, var) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_1d_netcdf_text: values: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_1d_netcdf_text") + errStatus=errStatus+1 +end if +end subroutine get_1d_netcdf_text + + +!============================================================================== +! 3D real +subroutine get_3d_netcdf_real(ncid, varName, var, callingRoutine, fatal_if_error, errStatus) +implicit none +integer, intent(in) :: ncid !! the file identifier +character(len=*), intent(in) :: varName +real, dimension(:,:,:), intent(out) :: var +character(len=*), intent(in) :: callingRoutine +logical, intent(in) :: fatal_if_error +integer, intent(out) :: errStatus +integer :: varId, iRet +errStatus=0 +iRet = nf90_inq_varid(ncid, varName, varid) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_3d_netcdf_real: variable: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_3d_netcdf_real") + errStatus=errStatus+1 +end if +iRet = nf90_get_var(ncid, varid, var) +if (iret /= nf90_NoErr) then + print*, trim(callingRoutine) // ": get_3d_netcdf_real: values: " // trim(varName) + if (fatal_IF_ERROR) call hydro_stop("get_3d_netcdf_real") + errStatus=errStatus+1 +end if +end subroutine get_3d_netcdf_real + +!=================================================================================================== +! Program Names: +! get_netcdf_dim +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Get the length of a provided dimension. +! History Log: +! 7/23/15 -Created, JLM. +! Usage: +! Parameters: +! file: character, the file to query +! dimName: character, the name of the dimension +! callingRoutine: character, the name of the calling routine for error messages +! Input Files: +! Specified argument. +! Output Files: +! Condition codes: +! hydro_stop is called. . +! User controllable options: +! Notes: + +function get_netcdf_dim(file, dimName, callingRoutine, fatalErr) +implicit none +integer :: get_netcdf_dim !! return value, zero if failure +character(len=*), intent(in) :: file, dimName, callingRoutine +logical, optional, intent(in) :: fatalErr +logical :: fatalErr_local +integer :: ncId, dimId, iRet + +fatalErr_local = .false. +if(present(fatalErr)) fatalErr_local=fatalErr + +#ifdef HYDRO_D +write(*,'("getting dimension from file: ''", A, "''")') trim(file) +flush(6) +#endif + +iRet = nf90_open(trim(file), nf90_NOWRITE, ncId) +if (iret /= nf90_noerr) then + write(*,'("Problem opening file: ''", A, "''")') trim(file) + if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + get_netcdf_dim = 0 + return +endif + +iRet = nf90_inq_dimid(ncId, trim(dimName), dimId) +if (iret /= nf90_noerr) then + write(*,'("Problem getting the dimension ID: ''", A, "''")') trim(file) + if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + get_netcdf_dim = 0 + return +endif + +iRet = nf90_inquire_dimension(ncId, dimId, len= get_netcdf_dim) +if (iret /= nf90_noerr) then + write(*,'("Problem getting the dimension length: ''", A, "''")') trim(file) + if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + get_netcdf_dim = 0 + return +endif + +iRet = nf90_close(ncId) +if (iret /= nf90_noerr) then + write(*,'("Problem closing file: ''", A, "''")') trim(file) + if(fatalErr_local) call hydro_stop(trim(callingRoutine) // ': get_netcdf_dim') + get_netcdf_dim = 0 + return +endif +end function get_netcdf_dim + + +!=================================================================================================== +end module module_nudging_io + diff --git a/hydro/nudging/module_nudging_utils.F b/hydro/nudging/module_nudging_utils.F new file mode 100644 index 0000000000..884a7234de --- /dev/null +++ b/hydro/nudging/module_nudging_utils.F @@ -0,0 +1,297 @@ +! Program Name: +! Author(s)/Contact(s): +! Abstract: +! History Log: +! +! Usage: +! Parameters: +! Input Files: +! +! Output Files: +! +! +! Condition codes: +! +! If appropriate, descriptive troubleshooting instructions or +! likely causes for failures could be mentioned here with the +! appropriate error code +! +! User controllable options: + +module module_nudging_utils + +real :: totalNudgeTime +integer :: sysClockCountRate, sysClockCountMax +character(len=4) :: clockType + +contains + +!=================================================================================================== +! NOTE for whichUtilites +! whUniLoop was fastest for single index searches. +! I still havent tested multiple index searches (which and whichLoop) + + +!=================================================================================================== +! Program Names: +! functions: whichPack and whichLoop +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Identify indices in a vector which are TRUE, reutrns zero length vector +! if there are no matches. +! History Log: +! 6/04/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: +! JLM: Recent catastrophic failure reported for pack on ifort, with work arround. +! JLM: https://software.intel.com/en-us/forums/topic/559308#comments + +subroutine whichPack(theMask, which, nWhich) +implicit none +logical, allocatable, intent(in), dimension(:) :: theMask +integer, intent(out), dimension(:) :: which +integer, intent(out) :: nwhich + +integer :: ii +which = -9999 +nWhich = sum( (/ (1, ii=1,size(theMask)) /), mask=theMask) +if(nWhich .gt. size(which)) then + which = -9999 + return +end if +which(1:nWhich) = pack( (/ (ii, ii=1,size(theMask)) /), mask=theMask) +end subroutine whichPack + +subroutine whichLoop(theMask, which, nWhich) +implicit none +logical, intent(in), dimension(:) :: theMask +integer, intent(out), dimension(:) :: which +integer, intent(out) :: nwhich + +integer :: ii +which = -9999 +nWhich = 1 +do ii=1,size(theMask) + if(nWhich .gt. size(which)) then + which = -9999 + return + end if + if(theMask(ii)) then + which(nWhich)=ii + nWhich = nWhich + 1 + endif +end do +nWhich = nWhich-1 +end subroutine whichLoop + +!=================================================================================================== +! Program Names: +! function: whUnique +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Identify THE index in a logical vector which is TRUE. Returns +! -1 if not unique or none are true. +! History Log: +! 6/04/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: + +function whUnique(theMask, unsafe) + implicit none + integer :: whUnique !! return value + logical, allocatable, dimension(:), intent(in) :: theMask + logical, optional, intent(in) :: unsafe + integer, allocatable, dimension(:) :: whUniques + integer :: i, nMatches + if(present(unsafe)) then + !whUniques=pack( (/ (i, i=1,size(theMask)) /), mask= theMask) + !whUnique = whUniques(1) + whUnique=sum( (/ (i, i=1,size(theMask)) /), mask= theMask) + else + nMatches = sum( (/ (1, i=1,size(theMask)) /), mask= theMask ) + if (nMatches .gt. 1 .OR. nMatches .eq. 0) then + whUnique=-1 + else + whUnique=sum( (/ (i, i=1,size(theMask)) /), mask= theMask) + end if + end if +end function whUnique + + +!=================================================================================================== +! Program Names: +! function: whUnique +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Simply returns the first match, no check for uniques. On gfortran this +! was the fastest of the bunch even/especially for max indices on huge arrays. +! History Log: +! 6/04/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: + +function whUniLoop(theMask) + implicit none + integer :: whUniLoop !! return value + logical, allocatable, dimension(:), intent(in) :: theMask + integer :: ii + whUniLoop = -9999 + do ii=1,size(theMask) + if(theMask(ii)) then + whUniLoop = ii + return + end if + end do +end function whUniLoop + +!=================================================================================================== +! Program Names: +! function: whInLoop +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Identify the indices of elements in a first vector which are present in the +! second vector, returns 0 for no matches. This can be slow, it's a double do/for loop. +! History Log: +! 6/04/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: Can be slow, use with caution. + +! parallelize this? |||||||||||||||||||||||||||||||||| +subroutine whichInLoop(vecToSearch, vecToMatch, which, nWhich) +implicit none +character(len=15), intent(in), dimension(:) :: vecToSearch +character(len=15), intent(in), dimension(:) :: vecToMatch +integer, intent(out), dimension(:) :: which +integer, intent(out) :: nWhich +integer :: ii, jj +which = -9999 +nWhich = 0 +do ii=1,size(vecToSearch) + do jj=1,size(vecToMatch) + if(trim(adjustl(vecToSearch(ii))) .eq. trim(adjustl(vecToMatch(jj)))) then + which(ii)=ii + nWhich = nWhich + 1 + exit + end if + end do +end do +end subroutine whichInLoop + + +! parallelize this? |||||||||||||||||||||||||||||||||| +subroutine whichInLoop2(vecToSearch, vecToMatch, which, nWhich) +implicit none +character(len=15), intent(in), dimension(:) :: vecToSearch +character(len=15), intent(in), dimension(:) :: vecToMatch +integer, intent(out), dimension(:) :: which +integer, intent(out) :: nWhich +integer :: ii, jj +which = -9999 +nWhich = 0 +do ii=1,size(vecToSearch) + if(any(vecToMatch .eq. vecToSearch(ii))) then + which(ii)=ii + nWhich = nWhich + 1 + end if +end do +end subroutine whichInLoop2 + + +!=================================================================================================== +! Program Names: +! accum_nudging_time +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Tally up the total cpu or wall time used by nudging. +! History Log: +! 8/20/15 -Created, JLM. +! Usage: +! Parameters: +! start, end: real times for end-diff timing & accumulation +! sectionLabel: prints a message with the timing for the section +! print*, 'Ndg: ' // sectionLabel // '(seconds ' // trim(clockType) // ' time):', diff +! optional - accum: accumulate this towards the overall time or simply print the above +! message? Do not accum for nested sections of code, but still give the diagnostic. +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: +subroutine accum_nudging_time(start, end, sectionLabel, accum) +implicit none +real, intent(in) :: start, end +character(len=*), intent(in) :: sectionLabel +logical, optional, intent(in):: accum +logical :: accumLocal +real :: diff +accumLocal=.TRUE. +if(present(accum)) accumLocal = accum +diff=end-start +if(clockType.eq.'wall') then + if(diff .lt. 0) diff = diff + sysClockCountMax + diff=diff/sysClockCountRate +endif +if (accumLocal) totalNudgeTime = totalNudgeTime + diff + +print*,'Ndg: Timing: ' // sectionLabel // ' (' // trim(clockType) // ' time, seconds):', diff + +if(accumLocal) print*,'Ndg: Timing: accum totalNudgeTime: ',totalNudgeTime +end subroutine accum_nudging_time + + +!=================================================================================================== +! Program Names: +! nudging_timer +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Return your choice of cpu time or wall time +! History Log: +! 8/20/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: +subroutine nudging_timer(time) +implicit none +real, intent(inout) :: time +integer :: count +if(clockType.eq.'cpu') call cpu_time(time) +if(clockType.eq.'wall') then + call system_clock(count=count) + time=real(count) +end if +end subroutine nudging_timer + + +!=================================================================================================== +end module module_nudging_utils + diff --git a/hydro/nudging/module_stream_nudging.F b/hydro/nudging/module_stream_nudging.F new file mode 100644 index 0000000000..f477f00eb9 --- /dev/null +++ b/hydro/nudging/module_stream_nudging.F @@ -0,0 +1,3051 @@ +! Program Name: +! Author(s)/Contact(s): +! Abstract: +! History Log: +! +! Usage: +! Parameters: +! Input Files: +! +! Output Files: +! +! +! Condition codes: +! +! If appropriate, descriptive troubleshooting instructions or +! likely causes for failures could be mentioned here with the +! appropriate error code +! +! User controllable options: + +module module_stream_nudging + +use module_namelist, only: nlst_rt +use module_nudging_io, only: lastObsStructure +#ifdef MPP_LAND + use module_mpp_land + use module_mpp_reachls, only: ReachLS_write_io +#endif + +implicit none +!=================================================================================================== +! Module Variables + +!======================== +! obs and obsTime data structures. Each entry in obsTime holds a timeslice file, with the +! individual obs in the obsStr. +type obsStructure + character(len=15) :: usgsId ! the 15 char USGS identifier. + character(len=19) :: obsTime ! observation at gage dims: nGages + real :: obsDischarge ! observation at gage dims: nGages + real :: obsQC ! quality control factpr [0,1] + integer :: obsStaticInd ! the index to the obsStaticStr where static info is kept + real :: innov ! obs-modeled +end type obsStructure + +type obsTimeStructure + character(len=19) :: time + character(len=19) :: updateTime + integer, allocatable, dimension(:) :: allCellInds ! cell indices affected at this time + integer, allocatable, dimension(:) :: nGageCell ! number of gages for each affected cell ind + type(obsStructure), allocatable, dimension(:) :: obsStr ! the obs at this file time / timeslice +end type obsTimeStructure + +! The top level structure used to solve the nudges +type(obsTimeStructure), allocatable, dimension(:) :: obsTimeStr ! size=nObsTimes + +!======================== +! lastObs structure, corresponding to nudgingLastObs.YYYY-mm-dd_HH:MM:ss.nc +! How observations from the past are carried forward. +! Type defined in module_nudging_io.F +type(lastObsStructure), allocatable, dimension(:) :: lastObsStr + +!======================== +! This holds static information for a given gage for a given cycle (when R, G, and tau) do not +! change. +! The "lastObs" variables are not exactly static... they were an afterthought and this was +! by far the best place for them to live. +type, extends(lastObsStructure) :: obsStaticStructure + !! Inherited components + !!character(len=15) :: usgsId ! the 15 char USGS identifier. + !!real :: lastObsDischarge(:) ! last observed discharge + !!character(len=19) :: lastObsTime(:) ! time of last obs discharge (.le.hydroTime) + !!real :: lastObsQuality(:) ! quality of the last obs discharge + !!real :: lastObsModelDischarge(:) ! the modeled discharge value at the time of the last obs + !! New components + integer :: obsCellInd ! index of obs on model channel network, for distance calc + real :: R, G, tau ! the nudging parameters at this gage. + integer, allocatable, dimension(:) :: cellsAffected ! indices of cells affected + real, allocatable, dimension(:) :: dist ! optional: dist to affected cells, optional + real, allocatable, dimension(:) :: ws ! spatial cressman weights at affected cells discharge. +end type obsStaticStructure + +! The static obs/gage information - store here to perform calculations +! only once per cycle. +! Currently the dimensions of this are fixed to 10000 which should +! work for the forseeable future. May want to consider some routine for +! augmenting this size if necessary. +type(obsStaticStructure), allocatable, dimension(:) :: obsStaticStr + +!! The number of up/down stream links which can be collected +!! using R to solve which links are "neighboring". +!! This value applies to both directions, it's the number +!! of links per R. +integer, parameter :: maxNeighLinksDim=5000 + +!======================== +! Node and gage collocation - For reach based routing, corresponds to the "gage" column +! of RouteLink.nc. +type nodeGageStructure + integer, allocatable, dimension(:) :: nodeId + character(len=15), allocatable, dimension(:) :: usgsId +end type nodeGageStructure +type(nodeGageStructure) :: nodeGageTmp, nodeGageStr +integer :: nGagesDomain ! the number of gages specified + +!======================== +! Nudging parameters structure, corresponding to NudgeParams.nc file. +!! for dealloction purposes, might be better to put the dimension onthe derived type. +type nudgingParamStructure + character(len=15), allocatable, dimension(:) :: usgsId + real, allocatable, dimension(:) :: R + real, allocatable, dimension(:) :: G + real, allocatable, dimension(:) :: tau + real, allocatable, dimension(:,:,:) :: qThresh !! gage, month, nThresh + real, allocatable, dimension(:,:,:) :: expCoeff !! gage, month, nThresh +end type nudgingParamStructure +type(nudgingParamStructure) :: nudgingParamsTmp, nudgingParamsStr + +!======================== +! Network reExpression structure, corresponding to netwkReExFile.nc +type netwkReExpStructure + integer*4, allocatable, dimension(:) :: go + integer*4, allocatable, dimension(:) :: start + integer*4, allocatable, dimension(:) :: end +end type netwkReExpStructure +type(netwkReExpStructure) :: downNetwkStr, upNetwkStr + +!======================== +! Track gages from NWIS not in our param file and not in the intersection or +! the Route_Link gages and the gages in the parameter file. +integer, parameter :: maxNwisNotRLAndParamsCount=20000 +character(len=15), dimension(maxNwisNotRLAndParamsCount) :: nwisNotRLAndParams +integer :: nwisNotRLAndParamsCount + +!======================== +! Random data +real, allocatable, dimension(:) :: t0Discharge + +!======================== +! Control book keeping +logical :: nudgeThisLsmTimeStep + +!! JLM: these options are hardcoded/hardwired for now, evnt go in namelist +integer, parameter :: obsResolutionInt = 15 ! minutes +real, parameter :: obsCheckFreq = 90 ! minutes +logical, parameter :: filterObsToDom = .TRUE. +character(len=15), parameter :: missingGage = ' ' +logical, parameter :: nudgeWAdvance = .FALSE. +character(len=4), parameter :: nudgingClockType = 'wall' +logical, parameter :: sanityQcDischarge = .true. +logical, parameter :: readTimesliceErrFatal = .false. +logical, parameter :: futureLastObsFatal = .true. +logical, parameter :: futureLastObsZero = .false. +real, parameter :: invDistTimeWeightExp = 5.000 +real, parameter :: noConstInterfCoeff = 1.0 !0.500 + +! hydro.namelist: &NUDGING_nlist variables. +character(len=256) :: nudgingParamFile +character(len=256) :: netwkReExFile +character(len=256) :: nudgingLastObsFile !! passed by namelist +character(len=256) :: nudgingLastObsFileTry !! either the passed or, if not passed, a default +logical :: readTimesliceParallel +logical :: temporalPersistence +logical :: persistBias +logical :: biasWindowBeforeT0 +integer :: nTimesLastObs !! aka nlst_rt(did)%nLastObs +integer :: minNumPairsBiasPersist +integer :: maxAgePairsBiasPersist +logical :: invDistTimeWeightBias +logical :: noConstInterfBias + +!======================== +! Space book keeping +logical :: nudgeSpatial = .true. !! is spatial interpolation of nudging active? +integer, parameter :: did=1 !! 1 for WRF-uncoupled runs... + +!======================== +! Time book keeping +real :: maxTau +integer :: nObsTimes +character(len=19) :: lsmTime, initTime +integer :: lsmDt !1234567890123456789 +character(len=19), parameter :: missingLastObsTime='9999999999999999999' +character(len=2) :: obsResolution +logical :: gotT0Discharge + +#ifdef HYDRO_D +integer, parameter :: flushUnit=6 +logical, parameter :: flushAll=.true. +#endif + +#ifdef MPP_LAND +!======================== +! Parallel book keeping +real, allocatable, dimension(:) :: chanlen_image0 !A global version kept on image 0 +#endif + + +contains + +!=================================================================================================== +! Program Names: +! init_stream_nudging_clock +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! One-time initialization of diagnostic stream nuding clock. +! History Log: +! 10/08/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: None. +! Condition codes: this only gets called if #ifdef HYDRO_D? +! User controllable options: None. +! Notes: + +subroutine init_stream_nudging_clock +use module_nudging_utils, only: totalNudgeTime, & + sysClockCountRate, & + sysClockCountMax, & + clockType + +implicit none +totalNudgeTime = 0. ! Nudging time accumulation init. +call system_clock(count_rate=sysClockCountRate, count_max=sysClockCountMax) +clockType = trim(nudgingClockType) +!!$#ifdef HYDRO_D /* un-ifdef to get timing results */ +!!$print*,'Ndg: totalNudgeTime: ', totalNudgeTime +!!$print*,'Ndg: sysClockCountRate: ', sysClockCountRate +!!$print*,'Ndg: sysClockCountMax: ', sysClockCountMax +!!$print*,'Ndg: clockType: ', trim(nudgingClockType) +!!$if(flushAll) flush(flushUnit) +!!$#endif /* HYDRO_D un-ifdef to get timing results */ +end subroutine init_stream_nudging_clock + + +!=================================================================================================== +! Program Names: +! init_stream_nudging +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! One-time initialization of certain stream nuding information. Some of this infomation +! may be updated later in the run, but probably not frequently. +! History Log: +! 7/23/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: currently hardwired module variables +! nudgingParamFile +! gageGageDistFile +! netwkReExFile +! Output Files: None. +! Condition codes: +! User controllable options: None. +! Notes: + +subroutine init_stream_nudging + +use module_RT_data, only: rt_domain +use module_nudging_utils, only: whichInLoop2, & + nudging_timer, & + accum_nudging_time +use module_nudging_io, only: get_netcdf_dim, & + read_gridded_nudging_frxst_gage_csv, & + read_reach_gage_collocation, & + read_nudging_param_file, & + read_network_reexpression, & + find_nudging_last_obs_file, & + read_nudging_last_obs +use module_mpp_reachls, only: ReachLS_decomp + +implicit none + +integer :: nLinks, nLinksL +!integer, dimension(nlinks) :: strmFrxstPts +integer :: did=1 +integer :: ii, kk, ll, tt, count, toSize, fromSize +integer :: nParamGages, nParamMonth, nParamThresh, nParamThreshCat, nGgDists, nGgDistsKeep +integer :: nWhGageDists1, nWhGageDists2, nGagesWParamsDom +integer, allocatable, dimension(:) :: whParamsDom +real, allocatable, dimension(:) :: g_nudge +integer :: downSize, upSize, baseSize, nStnLastObs +character(len=256) :: lastObsFile !! confirms existence of a file +logical :: lastObsFileFound +!!$#ifdef HYDRO_D /* un-ifdef to get timing results */ +!!$real :: startCodeTimeAcc, endCodeTimeAcc +!!$ +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) & +!!$#endif +!!$ call nudging_timer(startCodeTimeAcc) +!!$#endif /* HYDRO_D */ /* un-ifdef to get timing results */ + +!!$#ifdef HYDRO_D +!!$print*, "Ndg: Start init_stream_nudging" +!!$#ifdef MPP_LAND +!!$print*, 'Ndg: PARALLEL NUDGING!' +!!$#endif +!!$if(flushAll) flush(flushUnit) +!!$#endif /* HYDRO_D */ + +!! this ifdef is bizarre problem with pgf compiler +!#ifdef WRF_HYDRO_NUDGING !JLM +nudgingParamFile = nlst_rt(did)%nudgingParamFile +netwkReExFile = nlst_rt(did)%netwkReExFile +readTimesliceParallel = nlst_rt(did)%readTimesliceParallel +temporalPersistence = nlst_rt(did)%temporalPersistence +persistBias = nlst_rt(did)%persistBias +biasWindowBeforeT0 = nlst_rt(did)%biasWindowBeforeT0 +nudgingLastObsFile = nlst_rt(did)%nudgingLastObsFile +nTimesLastObs = nlst_rt(did)%nLastObs +minNumPairsBiasPersist = nlst_rt(did)%minNumPairsBiasPersist +maxAgePairsBiasPersist = nlst_rt(did)%maxAgePairsBiasPersist +invDistTimeWeightBias = nlst_rt(did)%invDistTimeWeightBias +noConstInterfBias = nlst_rt(did)%noConstInterfBias +!#endif + +nLinks = RT_DOMAIN(did)%NLINKS ! For gridded channel routing +#ifdef MPP_LAND +nLinksL = RT_DOMAIN(did)%gNLINKSL ! For reach-based routing in parallel, no decomp for nudging +#else +nLinksL = RT_DOMAIN(did)%NLINKSL ! For reach-based routing +#endif + +!Variable init +nwisNotRLAndParams = missingGage +nwisNotRLAndParamsCount=0 +gotT0Discharge = .false. + +!================================================= +! 0. This routine is called with condition that chanrtswcrt.ne.0 in module_HYDRO_drv + +!================================================= +! 1. Gage link/node collocation. +! which gages are actually in the domain? +! Musk routines: use routelink csv! New column for associated gage Id for each link. +! Grid channel : frxst_pts layer in Fulldom, and a new Nudge_frxst_gage.csv file, which +! simply contains frxst_pts index and the associated gage ID, *** may be blank?*** +!======================== +!!$! Gridded channel routing is option 3 +!!$if (nlst_rt(did)%channel_option .eq. 3) then +!!$ strmfrxstpts = RT_DOMAIN(did)%STRMFRXSTPTS +!!$ ! For gridded channel routing, setup the relationship between frxst_pts and gage IDs via +!!$ ! the Nudging_frxst_gage.csv. +!!$ ! For now this is a csv, but it should be netcdf in the long run. +!!$#ifdef HYDRO_D +!!$ print*, 'Ndg: Start initializing Nudging_frxst_gage.csv' +!!$#endif +!!$ !! allocate the maximum number of gages, say 8000. +!!$ allocate(nodeGageTmp%nodeId(maxGages), nodeGageTmp%usgsId(maxGages)) +!!$ ! This actually returns frxst point from the file... +!!$ call read_gridded_nudging_frxst_gage_csv(nodeGageTmp%nodeId, nodeGageTmp%usgsId, nGagesDomain) +!!$ ! ... we'll convert this to index on the stream network. +!!$ allocate(nodeGageStr%nodeId(nGagesDomain), nodeGageStr%usgsId(nGagesDomain)) +!!$ +!!$ !! JLM: need to handle desired frxst points which are not gages. +!!$ !! Need to make sure these are a complete set 1:nGages. +!!$ do ll=1,nLinks +!!$ if(strmFrxstPts(ll) .ne. -9999) then +!!$ nodeGageStr%nodeId(strmFrxstPts(ll)) = ll +!!$ nodeGageStr%usgsId(strmFrxstPts(ll)) = adjustr(nodeGageTmp%usgsId(strmFrxstPts(ll))) +!!$ end if +!!$ end do +!!$ +!!$ deallocate(nodeGageTmp%nodeId, nodeGageTmp%usgsId) +!!$ +!!$#ifdef HYDRO_D +!!$ print*,nGagesDomain +!!$ print*,nodeGageStr%nodeId +!!$ print*,nodeGageStr%usgsId +!!$ print*, 'Ndg: Finish initializing Nudging_frxst_gage.csv' +!!$#endif +!!$end if ! gridded channel models + +!======================== +! Muskingum routines are channel_options 1 and 2 +if (nlst_rt(did)%channel_option .eq. 1 .or. & + nlst_rt(did)%channel_option .eq. 2) then + + ! For reach-based/muskingum routing methods, we are currently requiring + ! the netcdf file for input of gages. + +#ifdef MPP_LAND + if(my_id .eq. io_id) then +#endif + +#ifdef HYDRO_D + print*, 'Ndg: Start initializing reach gages (netcdf)' + if(flushAll) flush(flushUnit) +#endif + + allocate(nodeGageTmp%usgsId(nLinksL)) + call read_reach_gage_collocation(nodeGageTmp%usgsId) + + nGagesDomain=0 + !check: nLinksL .eq. size(nodeGageTmp%usgsId) + !do ll=1,nLinksL + do ll=1,size(nodeGageTmp%usgsId) + if(nodeGageTmp%usgsId(ll) .ne. missingGage) nGagesDomain=nGagesDomain+1 + end do + + if(nGagesDomain .gt. 0) then + allocate(nodeGageStr%nodeId(nGagesDomain), nodeGageStr%usgsId(nGagesDomain)) + nodeGageStr%usgsId = pack(nodeGageTmp%usgsId, mask=nodeGageTmp%usgsId .ne. missingGage) + ! This just index, we are NOT using comIds in nudging. + ! nodeGageStr%nodeId = pack(rt_domain(did)%linkId, mask=nodeGageTmp%usgsId .ne. '') + nodeGageStr%nodeId = pack((/(ii, ii=1,nLinksL)/), mask=nodeGageTmp%usgsId .ne. missingGage) + end if + deallocate(nodeGageTmp%usgsId) + +#ifdef HYDRO_D + print*,'Ndg: nGagesDomain:',nGagesDomain + print*,'Ndg: nLinksL', nLinksL + print*,"Ndg: size(nodeGageStr%nodeId):", size(nodeGageStr%nodeId) + print*,& + 'Ndg: nodeGageStr%usgsId((size(nodeGageStr%nodeId)-nGagesDomain+1):(size(nodeGageStr%nodeId))):',& + nodeGageStr%usgsId((size(nodeGageStr%nodeId)-nGagesDomain+1):(size(nodeGageStr%nodeId))) + print*,'Ndg: Finish initializing reach gages (netcdf)' + if(flushAll) flush(flushUnit) +#endif + +#ifdef MPP_LAND + end if ! my_id .eq. io_id + !! Broadcast + call mpp_land_bcast_int1(nGagesDomain) + if(my_id .ne. io_id) then + allocate(nodeGageStr%nodeId(nGagesDomain)) + allocate(nodeGageStr%usgsId(nGagesDomain)) + endif + call mpp_land_bcast_char1d(nodeGageStr%usgsId) + call mpp_land_bcast_int1d(nodeGageStr%nodeId) +#endif + +end if ! muskingum channel models + +!================================================= +! 3. Read nudging parameter files and reduce to the gages in the domain (nGagesDomain, etc above). +#ifdef MPP_LAND +if(my_id .eq. IO_id) then +#endif + nParamGages = get_netcdf_dim(nudgingParamFile, 'stationIdInd', 'init_stream_nudging') + + nParamMonth=0 + nParamThresh=0 + nParamThreshCat=0 + if(temporalPersistence) then + nParamMonth = get_netcdf_dim(nudgingParamFile, 'monthInd', 'init_stream_nudging') + nParamThresh = get_netcdf_dim(nudgingParamFile, 'threshInd', 'init_stream_nudging') + nParamThreshCat = get_netcdf_dim(nudgingParamFile, 'threshCatInd', 'init_stream_nudging') + +#ifdef HYDRO_D + print*,'Ndg: nParamGages: ', nParamGages + print*,'Ndg: nParamGages', nParamGages + print*,'Ndg: nParamMonth', nParamMonth + print*,'Ndg: nParamThresh', nParamThresh + print*,'Ndg: nParamThreshCat', nParamThreshCat + if(flushAll) flush(flushUnit) +#endif + + if(nParamMonth.eq.0 .or. nParamThresh.eq.0 .or. nParamThreshCat.eq.0) then + temporalPersistence = .false. + nParamThresh=0 + nParamMonth=0 + else if((nParamThresh+1) .ne. nParamThreshCat) then + temporalPersistence = .false. + nParamThresh=0 + nParamMonth=0 + end if + endif !temporal persistence + +#ifdef HYDRO_D + print*,'Ndg: nParamGages: ', nParamGages + print*,'Ndg: nParamMonth', nParamMonth + print*,'Ndg: nParamThresh', nParamThresh + print*,'Ndg: nParamThreshCat', nParamThreshCat + print*,'Ndg: temporalPersistence: ', temporalPersistence + if(flushAll) flush(flushUnit) +#endif + + allocate(nudgingParamsTmp%usgsId( nParamGages)) + allocate(nudgingParamsTmp%R( nParamGages)) + allocate(nudgingParamsTmp%G( nParamGages)) + allocate(nudgingParamsTmp%tau( nParamGages)) + allocate(nudgingParamsTmp%qThresh( nParamThresh, nParamMonth, nParamGages)) + allocate(nudgingParamsTmp%expCoeff(nParamThresh+1, nParamMonth, nParamGages)) + + call read_nudging_param_file(nudgingParamFile, & + nudgingParamsTmp%usgsId, & + nudgingParamsTmp%R, & + nudgingParamsTmp%G, & + nudgingParamsTmp%tau, & + nudgingParamsTmp%qThresh, & + nudgingParamsTmp%expCoeff ) + +#ifdef HYDRO_D + do ii=1,nParamThresh + print*,'Ndg: minval( nudgingParamsTmp%qThresh(ii,:,:)), ii=', ii,': ', & + minval( nudgingParamsTmp%qThresh(ii,:,:)) + end do + do ii=1,nParamThreshCat + print*,'Ndg: minval( nudgingParamsTmp%expCoeff(ii,:,:)), ii=', ii,': ', & + minval( nudgingParamsTmp%expCoeff(ii,:,:)) + end do + if(flushAll) flush(flushUnit) +#endif + + ! Reduce the parameters to just the gages in the domain + allocate(whParamsDom(nParamGages)) + + call whichInLoop2(nudgingParamsTmp%usgsId, nodeGageStr%usgsId, whParamsDom, nGagesWParamsDom) + +#ifdef HYDRO_D + if(nGagesWParamsDom .ne. nGagesDomain) then + print*,'Ndg: WARNING Gages are apparently missing from the nudgingParams.nc file' + print*,'Ndg: WARNING nGagesWParamsDom: ', nGagesWParamsDom + print*,'Ndg: WARNING nGagesDomain: ', nGagesDomain + if(flushAll) flush(flushUnit) + end if +#endif + + allocate(nudgingParamsStr%usgsId(nGagesWParamsDom)) + allocate(nudgingParamsStr%R( nGagesWParamsDom)) + allocate(nudgingParamsStr%G( nGagesWParamsDom)) + allocate(nudgingParamsStr%tau( nGagesWParamsDom)) + if(temporalPersistence) then + allocate(nudgingParamsStr%qThresh( nParamThresh, nParamMonth, nGagesWParamsDom)) + allocate(nudgingParamsStr%expCoeff(nParamThresh+1, nParamMonth, nGagesWParamsDom)) + end if + + count=1 + do kk=1,nParamGages + if(whParamsDom(kk) .gt. 0) then + nudgingParamsStr%usgsId(count) = nudgingParamsTmp%usgsId(kk) + nudgingParamsStr%R(count) = nudgingParamsTmp%R(kk) + nudgingParamsStr%G(count) = nudgingParamsTmp%G(kk) + nudgingParamsStr%tau(count) = nudgingParamsTmp%tau(kk) + if(temporalPersistence) then + nudgingParamsStr%qThresh( :,:,count) = nudgingParamsTmp%qThresh( :,:,kk) + nudgingParamsStr%expCoeff(:,:,count) = nudgingParamsTmp%expCoeff(:,:,kk) + endif + count=count+1 + end if + end do + + deallocate(whParamsDom) + deallocate(nudgingParamsTmp%usgsId, nudgingParamsTmp%R ) + deallocate(nudgingParamsTmp%G, nudgingParamsTmp%tau) + if(temporalPersistence) then + deallocate(nudgingParamsTmp%qThresh) + deallocate(nudgingParamsTmp%expCoeff) + end if + +#ifdef HYDRO_D + print*,'Ndg: nudgingParamsStr%usgsId', nudgingParamsStr%usgsId(size(nudgingParamsStr%usgsId)) + print*,'Ndg: nudgingParamsStr%R', nudgingParamsStr%R(size(nudgingParamsStr%R)) + print*,'Ndg: nudgingParamsStr%G', nudgingParamsStr%G(size(nudgingParamsStr%G)) + print*,'Ndg: nudgingParamsStr%tau', nudgingParamsStr%tau(size(nudgingParamsStr%tau)) + if(temporalPersistence) then + print*,'Ndg: nudgingParamsStr%qThresh', nudgingParamsStr%qThresh(1,1,size(nudgingParamsStr%tau)) + print*,'Ndg: nudgingParamsStr%expCoeff',nudgingParamsStr%expCoeff(1,1,size(nudgingParamsStr%tau)) + end if +if(flushAll) flush(flushUnit) +#endif /* HYDRO_D */ +#ifdef MPP_LAND +endif ! my_id .eq. io_id + +!! Broadcast +call mpp_land_bcast_int1(nGagesWParamsDom) +if(my_id .ne. io_id) then + allocate(nudgingParamsStr%usgsId(nGagesWParamsDom)) + allocate(nudgingParamsStr%R(nGagesWParamsDom)) + allocate(nudgingParamsStr%G(nGagesWParamsDom)) + allocate(nudgingParamsStr%tau(nGagesWParamsDom)) +endif +call mpp_land_bcast_char1d(nudgingParamsStr%usgsId) +call mpp_land_bcast_real_1d(nudgingParamsStr%R) +call mpp_land_bcast_real_1d(nudgingParamsStr%G) +call mpp_land_bcast_real_1d(nudgingParamsStr%tau) +call mpp_land_bcast_logical(temporalPersistence) +if(temporalPersistence) then + call mpp_land_bcast_int1(nParamThresh) + call mpp_land_bcast_int1(nParamMonth) + if(my_id .ne. io_id) then + allocate(nudgingParamsStr%qThresh( nParamThresh, nParamMonth, nGagesWParamsDom)) + allocate(nudgingParamsStr%expCoeff(nParamThresh+1, nParamMonth, nGagesWParamsDom)) + endif + + call mpp_land_bcast_real3d(nudgingParamsStr%qThresh) + call mpp_land_bcast_real3d(nudgingParamsStr%expCoeff) +end if ! temporalPersistence +#endif /* MPP_LAND */ + + +allocate(obsStaticStr(size(nudgingParamsStr%usgsId))) +! This seems silly now that I'm solving the whole thing at init. +obsStaticStr(:)%R = nudgingParamsStr%R +obsStaticStr(:)%G = nudgingParamsStr%G +obsStaticStr(:)%tau = nudgingParamsStr%tau +obsStaticStr(:)%usgsId = nudgingParamsStr%usgsId +do ll=1,size(nudgingParamsStr%usgsId) + allocate(obsStaticStr(ll)%lastObsDischarge( nlst_rt(did)%nLastObs)) + allocate(obsStaticStr(ll)%lastObsModelDischarge(nlst_rt(did)%nLastObs)) + allocate(obsStaticStr(ll)%lastObsTime( nlst_rt(did)%nLastObs)) + allocate(obsStaticStr(ll)%lastObsQuality( nlst_rt(did)%nLastObs)) +end do + +!================================================= +! 4. Read in 'nudgingLastObs.nc' file (initialization and broadcasting come later) +#ifdef MPP_LAND +if(my_id .eq. io_id) then + if(temporalPersistence) then + + !! Initalizing the structure is not contingent upon there + !! being a file on disk + do ll=1,size(obsStaticStr(:)%usgsId) + obsStaticStr(ll)%lastObsDischarge = real(-9999) + obsStaticStr(ll)%lastObsModelDischarge = real(-9999) + do tt=1,nTimesLastObs + obsStaticStr(ll)%lastObsTime(tt) = missingLastObsTime + enddo + obsStaticStr(ll)%lastObsQuality = real(0) !! keep this zero + end do + + !! if blank, look for file at the current/init time + if(trim(nudgingLastObsFile) .eq. '') then + nudgingLastObsFileTry = 'nudgingLastObs.' // nlst_rt(did)%olddate // '.nc' + else + nudgingLastObsFileTry = nudgingLastObsFile + end if + lastObsFile = find_nudging_last_obs_file(nudgingLastObsFileTry) + if(trim(lastObsFile) .ne. '') then + nStnLastObs = get_netcdf_dim(nudgingLastObsFileTry, 'stationIdInd', 'init_stream_nudging') + if(nStnLastObs .gt. 0) then + print*,'Reading in nudgingLastObsFileTry: ', trim(nudgingLastObsFileTry) + allocate(lastObsStr(nStnLastObs)) + do ll=1,nStnLastObs + allocate(lastObsStr(ll)%lastObsDischarge( nlst_rt(did)%nLastObs)) + allocate(lastObsStr(ll)%lastObsModelDischarge(nlst_rt(did)%nLastObs)) + allocate(lastObsStr(ll)%lastObsTime( nlst_rt(did)%nLastObs)) + allocate(lastObsStr(ll)%lastObsQuality( nlst_rt(did)%nLastObs)) + end do + + allocate(g_nudge(rt_domain(1)%gnlinksl)) + call read_nudging_last_obs(nudgingLastObsFileTry, lastObsStr, g_nudge) + + end if ! nStnLastObs .gt. 0 -> read the file + endif! trim(lastObsFile).ne.'' + end if ! temporalPersistence +else + allocate(g_nudge(1)) +endif + +if(my_id .eq. io_id) lastObsFileFound=allocated(g_nudge) +call mpp_land_bcast_logical(lastObsFileFound) +if(lastObsFileFound) then + call ReachLS_decomp(g_nudge, RT_DOMAIN(1)%nudge) + if(my_id .eq. io_id) deallocate(g_nudge) +endif +if(my_id .NE. io_id) deallocate(g_nudge) +#endif + +!================================================= +! 5. Sort out which gages are actually in the domain. +! JLM: there can be an inconsistency between the gages with parameters +! JLM: and the gages with distances. +! JLM: How to handle locations without parameters? +! JLM: How to determine the functional list of gages in the domain? +! + +!================================================= +! 6. Set up the global time parameters +#ifdef MPP_LAND +! MPP need to broadcast the initial time and setup the dt +if(my_id .eq. io_id) then + lsmDt = nlst_rt(did)%dt +endif +call mpp_land_bcast_int1(lsmDt) +#else +lsmDt = nlst_rt(did)%dt +#endif + +!S - -+- - ! +!E ! - -+- - +! |- - - -L* * * *|- - - -|- - - -| +! t t w w w w t t +! - time chunks of obsResolution +! | separators denoting lsmDt chunks +! * obsRresolution points in the current lsmDt/hydro time advance +! + is the center of the assim window size = tau*2, at that the hydro time +! ! are the bounds of all assim windows +! L is LSM time +! S-E The start and end times for hydro advance +! t denotes times needed by size of tau +! w denotes times needed by size of lsmDt +! Regardless of tau, need window of size (2*tau+lsmDt) +! which will have (2*tau+lsmDt)/obsResolution+1 observation times in it +! the +1 is for the zeroth time. + +maxTau = maxval(nudgingParamsStr%tau) ! This is fixed as tau does not change for a cycle. +write(obsResolution, '(i0.2)') obsResolutionInt +nObsTimes = 2*ceiling(maxTau/obsResolutionInt) + ceiling(real(lsmDt)/(60.*obsResolutionInt)) + 1 + +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) then +#endif + print*,'Ndg: obsResolution:',obsResolution + print*,'Ndg: maxTau: ', maxTau + print*,'Ndg: nObsTimes: ', nObsTimes + if(flushAll) flush(flushUnit) +#ifdef MPP_LAND +end if +#endif +#endif + +allocate(obsTimeStr(nObsTimes)) +!! initialize these as blanks and 'none' +obsTimeStr(:)%time = '' +obsTimeStr(:)%updateTime = 'none' + +#ifdef MPP_LAND +!================================================= +! 8. MPP: Keep a copy of the full chanlen on image 0 +!! only necessary if doing spatial nudging interpolation +if(my_id .eq. io_id) allocate(chanlen_image0(nLinksL)) +if(my_id .ne. io_id) allocate(chanlen_image0(1)) !! memory fix, the next call modifies it's second arg +call ReachLS_write_io(rt_domain(did)%chanlen, chanlen_image0) +#endif + + +!================================================= +! 9. Solve obsStaticStr once and for all on image 0 (could parallelize) +! This also solves nudgeSpatial: is spatial nudging active? Needed in 10. +! Remove lastObsStr (only needed for ingest of nudingLastObs/restart file). +call obs_static_to_struct() +#ifdef MPP_LAND +if(my_id .eq. io_id) then +#endif + if(allocated(lastObsStr)) deallocate(lastObsStr) +#ifdef MPP_LAND +endif +#endif + +!================================================= +!10. Solve the bias terms for when biasWindowBeforeT0 = .TRUE. (in the forecast) + +!if(persistBias .and. biasWindowBeforeT0) then +! do gg=1,nGages......... +! ! solve the bias +! end do ! gg=1,nGages +!end if ! if(persistBias) then + +!================================================= +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*, "Ndg: Finish init_stream_nudging" +if(flushAll) flush(flushUnit) +#endif + +!!$#ifdef HYDRO_D /* un-ifdef to get timing results */ +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) then +!!$#endif +!!$ call nudging_timer(endCodeTimeAcc) +!!$ call accum_nudging_time(startCodeTimeAcc, endCodeTimeAcc, 'init_stream_nudging', .true.) +!!$#ifdef MPP_LAND +!!$end if +!!$#endif +!!$if(flushAll) flush(flushUnit) +!!$#endif /* HYDRO_D */ /* un-ifdef to get timing results */ + +end subroutine init_stream_nudging + +!=================================================================================================== +! Program Names: +! subroutine setup_stream_nudging +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Setup the nudging for the current hydroTime, only establishes the +! shared obsTimeStr above. +! History Log: +! 6/04/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine setup_stream_nudging(hydroDT) + +use module_RT_data, only: rt_domain +use module_nudging_utils, only: whichLoop, & + whUniLoop, & + accum_nudging_time, & + nudging_timer + +use module_date_utils_nudging, only: geth_newdate, & + round_resolution_minute, & + geth_idts +implicit none + +integer, intent(in) :: hydroDT ! the number of seconds of hydro advance from lsmTime +!integer :: ff +integer :: ii, tt, oo +character(len=19) :: hydroTime, obsHydroTime ! hydro model time and corresponding observation +character(len=19), dimension(nObsTimes) :: obsTimes ! obs times in the current window +integer :: oldDiff, nShiftLeft + +logical, allocatable, dimension(:) :: theMask +integer, allocatable, dimension(:) :: whObsMiss +logical, allocatable, dimension(:) :: obsTimeStrAllocated + +integer :: nObsMiss +integer :: did=1 !! jlm: assuming did=1 +integer :: nWhObsMiss + +#ifdef MPP_LAND +integer :: nGages, nCellsInR, cc, nLinkAff, nStatic, iiImage +#endif + +!!$#ifdef HYDRO_D /* un-ifdef to get timing results */ +!!$real :: startCodeTime, endCodeTime +!!$real :: startCodeTimeOuter +!!$ +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) & +!!$#endif +!!$ call nudging_timer(startCodeTimeOuter) +!!$if(flushAll) flush(flushUnit) +!!$#endif /* HYDRO_D :: un-ifdef to get timing results */ + +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif + print*,'Ndg: start setup_stream_nudging' +if(flushAll) flush(flushUnit) +#endif /* HYDRO_D */ + +!!$#ifdef HYDRO_D +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) & +!!$#endif +!!$ call nudging_timer(startCodeTime) +!!$if(flushAll) flush(flushUnit) +!!$#endif /* HYDRO_D */ + +!#ifdef MPP_LAND - just do this section on all images. There is no IO. +! The hydro model time as a string. +#ifdef MPP_LAND +!update and broadcast the lsm time +if(my_id .eq. io_id) lsmTime = nlst_rt(did)%olddate +if(my_id .eq. io_id) initTime = nlst_rt(did)%startdate +call mpp_land_bcast_char(19, lsmTime ) +call mpp_land_bcast_char(19, initTime) +# else +lsmTime = nlst_rt(did)%olddate +initTime = nlst_rt(did)%startdate +#endif + +! This is apparently fixed so that olddate is lsmTime and not +! behind by 1 lsm timestep when the hydro model is run. +!call geth_newdate(hydroTime, nlst_rt(1)%olddate, hydroDT+nint(nlst_rt(1)%dt)) +!call geth_newdate(hydroTime, lsmTimeMinusDt, hydroDT+lsmDt) +call geth_newdate(hydroTime, lsmTime, hydroDT) + +! Calculate the closest multiple of obsResolution to the hydroTime +obsHydroTime = round_resolution_minute(hydroTime, obsResolutionInt) +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: obsHydroTime: ', obsHydroTime +if(flushAll) flush(flushUnit) +#endif + +! Now solve all of the observation times in the current nudging window. +! nObsTimes is set at init from maxTau and obsResolution. +! These times correspond to the timestamps on the observation files, which +! mark the center of the time period they represent with width obsResolution. +do tt=1,nObsTimes + call geth_newdate(obsTimes(tt), obsHydroTime, & + !obsResolutionInt*(tt - (nObsTimes+1)/2 )*60) + (tt-1-ceiling(maxTau/obsResolutionInt))*60*obsResolutionInt ) +end do + +! If this is the first setup, these are all blank. This is their init value. +if(all(obsTimeStr(:)%time .eq. '')) obsTimeStr(:)%time = obsTimes + +!print*,'Ndg: hydroTime: ', hydroTime +!print*,'Ndg: obsHydroTime: ', obsHydroTime +!print*,'Ndg: obsTimes: ', obsTimes +!print*,'Ndg: obsTimeStr: before obsTimeStr(:)%time: ', obsTimeStr(:)%time + +! If there are existing observations older than the first obsTime for this +! nudging window, shift them left. This should just shift one position left +! with each advance in time resolution. +call geth_idts(obsTimeStr(1)%time, obsTimes(1), oldDiff) +!print*,"Ndg: olddiff:", oldDiff +if(oldDiff .eq. 0) then + nShiftLeft=0 +else + ! nShiftLeft should not exceed nObsTimes + nShiftLeft = min( abs(oldDiff/obsResolutionInt/60), nObsTimes ) +end if +!print*,"Ndg: nShiftLeft:", nShiftLeft + +if(nShiftLeft .gt. 0 .and. nShiftLeft .lt. nObsTimes) then + do tt=1,nObsTimes-nShiftLeft + + obsTimeStr(tt)%time = obsTimeStr(tt+nShiftLeft)%time + obsTimeStr(tt)%updateTime = obsTimeStr(tt+nShiftLeft)%updateTime + + if(allocated(obsTimeStr(tt)%allCellInds)) deallocate(obsTimeStr(tt)%allCellInds) + if(allocated(obsTimeStr(tt)%nGageCell)) deallocate(obsTimeStr(tt)%nGageCell) + if(allocated(obsTimeStr(tt)%obsStr)) deallocate(obsTimeStr(tt)%obsStr) + + if(allocated(obsTimeStr(tt+nShiftLeft)%allCellInds)) then + allocate(obsTimeStr(tt)%allCellInds(size(obsTimeStr(tt+nShiftLeft)%allCellInds))) + obsTimeStr(tt)%allCellInds = obsTimeStr(tt+nShiftLeft)%allCellInds + end if + + if(allocated(obsTimeStr(tt+nShiftLeft)%nGageCell)) then + allocate(obsTimeStr(tt)%nGageCell(size(obsTimeStr(tt+nShiftLeft)%nGageCell))) + obsTimeStr(tt)%nGageCell = obsTimeStr(tt+nShiftLeft)%nGageCell + end if + + if(allocated(obsTimeStr(tt+nShiftLeft)%obsStr)) then + allocate(obsTimeStr(tt)%obsStr(size(obsTimeStr(tt+nShiftLeft)%obsStr))) + obsTimeStr(tt)%obsStr = obsTimeStr(tt+nShiftLeft)%obsStr + end if + + end do +endif +if(nShiftLeft .gt. 0) then + ! here tt= nObsTimes + do tt=nObsTimes-nShiftLeft+1,nObsTimes + obsTimeStr(tt)%time = obsTimes(tt) !'' !! JLM is this a fix? why? + obsTimeStr(tt)%updateTime = 'none' + if(allocated(obsTimeStr(tt)%allCellInds)) deallocate(obsTimeStr(tt)%allCellInds) + if(allocated(obsTimeStr(tt)%nGageCell)) deallocate(obsTimeStr(tt)%nGageCell) + if(allocated(obsTimeStr(tt)%obsStr)) deallocate(obsTimeStr(tt)%obsStr) + end do +end if + +!if(.NOT. all(obsTimeStr(:)%time .EQ. obsTimes)) & +! call hydro_stop("obsTimeStr(:)%times not what they should be. Please investigate.") + +! Updates obs already in memory if flag is set. +! Not going to be used for IOC. This will happen later. +! Should the frequency be in model time or in real time? Probably real time +! and will require a clock time of 'obsLast' checked in obsTimeStr? +! call check_for_new_obs() + +! Read in obs at times not already checked, eg. new obs this window +! Obs not already checked have updateTime='none' +! Obs already checked for with: +! : a missing file have updateTime='no file' +! : no observations in the domain have updateTime='no obs'. +#ifdef MPP_LAND +if(my_id .eq. io_id) then +#endif + nWhObsMiss = size(obsTimeStr(:)%updateTime) + allocate(theMask(nWhObsMiss), whObsMiss(nWhObsMiss) ) + do ii=1,size(obsTimeStr(:)%updateTime) + theMask(ii) = trim(obsTimeStr(ii)%updateTime) .eq. 'none' + end do + call whichLoop(theMask, whObsMiss, nObsMiss) + deallocate(theMask) +#ifdef MPP_LAND +end if + +! Broadcast the basic info above. +call mpp_land_bcast_int1(nWhObsMiss) +if(my_id .ne. io_id) then + if(allocated(whObsMiss)) deallocate(whObsMiss) + allocate(whObsMiss(nWhObsMiss)) +endif +call mpp_land_bcast_int1d(whObsMiss) +call mpp_land_bcast_int1(nObsMiss) +#endif + +!!$#ifdef HYDRO_D +!!$if(my_id .eq. io_id) then +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup1: prelim', .false.) +!!$ call nudging_timer(startCodeTime) +!!$if(flushAll) flush(flushUnit) +!!$endif +!!$#endif + +!bring in timeslice files +allocate(obsTimeStrAllocated(nObsMiss)) + +do ii=1,nObsMiss ! if nObsMiss is zero, this loop is skipped? +#ifdef MPP_LAND + if(readTimesliceParallel) then + iiImage = mod(ii-1,numprocs) + else + iiImage = 0 + end if + if(my_id .eq. iiImage) then !! this would give parallel IO +#endif + tt = whObsMiss(ii) + ! set/reset this obsTime + obsTimeStr(tt)%time = obsTimes(tt) + obsTimeStr(tt)%updateTime = 'none' + !! This might be paranoid/overkill... + if(allocated(obsTimeStr(tt)%allCellInds)) deallocate(obsTimeStr(tt)%allCellInds) + if(allocated(obsTimeStr(tt)%nGageCell)) deallocate(obsTimeStr(tt)%nGageCell) + if(allocated(obsTimeStr(tt)%obsStr)) deallocate(obsTimeStr(tt)%obsStr) + call timeslice_file_to_struct(tt) ! uses obsTimeStr%time to get file + obsTimeStrAllocated(ii) = allocated(obsTimeStr(tt)%obsStr) + !obsTimeStrAllocated = allocated(obsTimeStr(tt)%obsStr) +#ifdef MPP_LAND + end if ! my_id .eq. iiImage +#endif +end do + +!!$#ifdef HYDRO_D +!!$if(my_id .eq. io_id) then +!!$ !print*,'Ndg: obsTimeStr(tt)%time: ',obsTimeStr(tt)%time +!!$ !print*,'Ndg: obsTimeStrAllocated(ii), ii: ', obsTimeStrAllocated(ii), ii +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup2.0: timeslice_file_to_struct before bcast', .false.) +!!$ !call nudging_timer(startCodeTime) ! skip this b/c there's no mpi sync till after next section +!!$ if(flushAll) flush(flushUnit) +!!$endif +!!$#endif + +#ifdef MPP_LAND +! broadcast the IO from above +do ii=1,nObsMiss ! if nObsMiss is zero, this loop is skipped? + if(readTimesliceParallel) then + iiImage = mod(ii-1,numprocs) + else + iiImage = 0 + end if + tt = whObsMiss(ii) + ! broadcast + ! Here have to expose some of the guts of timeslice_file_to_struct + ! Note nGages depends on ii/tt + call mpp_land_bcast_int1_root(tt, iiImage) + call mpp_land_bcast_logical_root(obsTimeStrAllocated(ii), iiImage) + if(obsTimeStrAllocated(ii)) then + if(my_id .eq. iiImage) nGages=size(obsTimeStr(tt)%obsStr) + call mpp_land_bcast_int1_root(nGages, iiImage) + if(my_id .ne. iiImage) then + if(allocated(obsTimeStr(tt)%obsStr)) deallocate(obsTimeStr(tt)%obsStr) + allocate(obsTimeStr(tt)%obsStr(nGages)) + endif + ! Variables in order assigned in the call in timeslice_file_to_struct + call mpp_land_bcast_char_root(19,obsTimeStr(tt)%time, iiImage) + call mpp_land_bcast_char_root(19,obsTimeStr(tt)%updateTime, iiImage) + call mpp_land_bcast_char1d_root(obsTimeStr(tt)%obsStr(:)%usgsId, iiImage) + call mpp_land_bcast_char1d_root(obsTimeStr(tt)%obsStr(:)%obsTime, iiImage) + call mpp_land_bcast_real_1d_root(obsTimeStr(tt)%obsStr(:)%obsQC, iiImage) + call mpp_land_bcast_real_1d_root(obsTimeStr(tt)%obsStr(:)%obsDischarge, iiImage) + end if +end do +#endif + +!!$#ifdef HYDRO_D +!!$if(my_id .eq. io_id) then +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup2.1: timeslice_file_to_struct after bcast', .false.) +!!$ call nudging_timer(startCodeTime) ! images are synched so reset timer +!!$ if(flushAll) flush(flushUnit) +!!$endif +!!$#endif + +!! get index of static info in obsStaticStr +do ii=1,nObsMiss ! if nObsMiss is zero, this loop is skipped? +#ifdef MPP_LAND + if(readTimesliceParallel) then + iiImage = mod(ii-1,numprocs) + else + iiImage = 0 + end if + if(my_id .eq. iiImage) then + tt = whObsMiss(ii) +#endif + if(obsTimeStrAllocated(ii)) then + allocate(theMask(size(obsStaticStr%usgsId))) + do oo=1,size(obsTimeStr(tt)%obsStr(:)%obsStaticInd) + ! If the gage is not in the parameter file, skip it + if(.not. any(nudgingParamsStr%usgsId .eq. obsTimeStr(tt)%obsStr(oo)%usgsId)) then + !! If you ended up here, then filterObsToDom should not be on... + if(filterObsToDom) call hydro_stop('obs_static_to_struct: logical clash with filterObsToDom') + call accumulate_nwis_not_in_RLAndParams(nwisNotRLAndParams, & + nwisNotRLAndParamsCount, & + obsTimeStr(tt)%obsStr(oo)%usgsId) + cycle !! skip this observation. + endif + theMask = obsStaticStr%usgsId .eq. obsTimeStr(tt)%obsStr(oo)%usgsId + !! This is a double (tripple?!) for loop... thanks to whUniLoop + obsTimeStr(tt)%obsStr(oo)%obsStaticInd = whUniLoop(theMask) + end do + deallocate(theMask) + end if ! oo +#ifdef MPP_LAND + end if ! ii +#endif +end do + +!!$#ifdef HYDRO_D +!!$if(my_id .eq. io_id) then +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup3: obs_static_to_struct', .false.) +!!$ call nudging_timer(startCodeTime) +!!$ if(flushAll) flush(flushUnit) +!!$endif +!!$#endif + +#ifdef MPP_LAND +do ii=1,nObsMiss ! broadcast IO from above. (if nObsMiss is zero, this loop is skipped) + if(readTimesliceParallel) then + iiImage = mod(ii-1,numprocs) + else + iiImage = 0 + end if + ! broadcast + if(obsTimeStrAllocated(ii)) then + tt = whObsMiss(ii) + ! Treat obs_static_to_strutct + call mpp_land_bcast_int1d_root(obsTimeStr(tt)%obsStr(:)%obsStaticInd, iiImage) + call mpp_land_bcast_char1d_root(obsStaticStr(:)%usgsId, iiImage) + call mpp_land_bcast_int1d_root(obsStaticStr(:)%obsCellInd, iiImage) + call mpp_land_bcast_real_1d_root(obsStaticStr(:)%R, iiImage) + call mpp_land_bcast_real_1d_root(obsStaticStr(:)%G, iiImage) + call mpp_land_bcast_real_1d_root(obsStaticStr(:)%tau, iiImage) + + nStatic = sum( (/ (1, cc=1,size(obsStaticStr(:)%obsCellInd)) /), & + mask=obsStaticStr(:)%obsCellInd .ne. 0 ) + do cc=1,nStatic + if(my_id .eq. iiImage) nCellsInR = size(obsStaticStr(cc)%cellsAffected) + call mpp_land_bcast_int1_root(nCellsInR, iiImage) + if(my_id .ne. iiImage) then + if(allocated(obsStaticStr(cc)%cellsAffected)) deallocate(obsStaticStr(cc)%cellsAffected) + if(allocated(obsStaticStr(cc)%dist)) deallocate(obsStaticStr(cc)%dist) + if(allocated(obsStaticStr(cc)%ws)) deallocate(obsStaticStr(cc)%ws) + allocate(obsStaticStr(cc)%cellsAffected(nCellsInR)) + allocate(obsStaticStr(cc)%dist(nCellsInR)) + allocate(obsStaticStr(cc)%ws(nCellsInR)) + end if + call mpp_land_bcast_int1d_root(obsStaticStr(cc)%cellsAffected, iiImage) + call mpp_land_bcast_real_1d_root(obsStaticStr(cc)%dist, iiImage) + call mpp_land_bcast_real_1d_root(obsStaticStr(cc)%ws, iiImage) + end do + end if +end do +#endif + +!!$#ifdef HYDRO_D +!!$if(my_id .eq. io_id) then +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup4: bcast obs_static_struct', .false.) +!!$ call nudging_timer(startCodeTime) +!!$ if(flushAll) flush(flushUnit) +!!$endif +!!$#endif + +do ii=1,nObsMiss ! if nObsMiss is zero, this loop is skipped? +#ifdef MPP_LAND + iiImage = 0! causes issues also refactor tally_affected_links? mod(ii-1,numprocs) + if(my_id .eq. iiImage) then +#endif + tt = whObsMiss(ii) + if(obsTimeStrAllocated(ii)) call tally_affected_links(tt) + endif +#ifdef MPP_LAND +end do +#endif + +!!$#ifdef HYDRO_D +!!$if(my_id .eq. io_id) then +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup5: tally_affected_links', .false.) +!!$ call nudging_timer(startCodeTime) +!!$ if(flushAll) flush(flushUnit) +!!$endif +!!$#endif + +#ifdef MPP_LAND +do ii=1,nObsMiss ! if nObsMiss is zero, this loop is skipped? + iiImage = 0 ! this must happen on the same images as the above two mod(ii-1,numprocs) + ! broadcast + if(obsTimeStrAllocated(ii)) then + tt = whObsMiss(ii) + ! Treat tally_affected_links + if(my_id .eq. iiImage) nLinkAff = size(obsTimeStr(tt)%allCellInds) + call mpp_land_bcast_int1_root(nLinkAff, iiImage) + + if(my_id .ne. iiImage) then + if(allocated(obsTimeStr(tt)%allCellInds)) deallocate(obsTimeStr(tt)%allCellInds) + if(allocated(obsTimeStr(tt)%nGageCell)) deallocate(obsTimeStr(tt)%nGageCell) + allocate(obsTimeStr(tt)%allCellInds(nLinkAff)) + allocate(obsTimeStr(tt)%nGageCell(nLinkAff)) + end if + call mpp_land_bcast_int1d_root(obsTimeStr(tt)%allCellInds, iiImage) + call mpp_land_bcast_int1d_root(obsTimeStr(tt)%nGageCell, iiImage) + end if +end do +#endif + +!!$#ifdef HYDRO_D +!!$if(my_id .eq. io_id) then +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup6: after bcast tally_aff', .false.) +!!$ call nudging_timer(startCodeTime) +!!$ if(flushAll) flush(flushUnit) +!!$endif +!!$#endif + +#ifdef HYDRO_D +#ifdef MPP_LAND +!if(my_id .eq. io_id) then +if(my_id .eq. -5) then +#endif + print*,'Ndg: ' + print*,'Ndg: !-------------------------------------------------' + print*,'Ndg: obsTimeStr(tt=',tt,')' + print*,'Ndg: obsTimeStr(tt)%time:', obsTimeStr(tt)%time + print*,'Ndg: obsTimeStr(tt)%updateTime:', obsTimeStr(tt)%updateTime + print*,'Ndg: obsTimeStr(tt)%allCellInds:', obsTimeStr(tt)%allCellInds + print*,'Ndg: obsTimeStr(tt)%nGageCell:', obsTimeStr(tt)%nGageCell + if(trim(obsTimeStr(tt)%updateTime(1:7)) .ne. 'no file') then + print*,'Ndg: nobs:', size(obsTimeStr(tt)%obsStr) + print*,'Ndg: obsTimeStr(tt)%obsStr(1)%usgsId:', obsTimeStr(tt)%obsStr(1)%usgsId + print*,'Ndg: obsTimeStr(tt)%obsStr(1)%obsTime:', obsTimeStr(tt)%obsStr(1)%obsTime + print*,'Ndg: obsTimeStr(tt)%obsStr(1)%obsDischarge:', obsTimeStr(tt)%obsStr(1)%obsDischarge + print*,'Ndg: obsTimeStr(tt)%obsStr(1)%obsQC:', obsTimeStr(tt)%obsStr(1)%obsQC + print*,'Ndg: obsTimeStr(tt)%obsStr(1)%obsStaticInd:', obsTimeStr(tt)%obsStr(1)%obsStaticInd + end if + print*,'Ndg: !-------------------------------------------------' + print*,'Ndg: ' +#ifdef MPP_LAND +if(flushAll) flush(flushUnit) +end if +#endif +#endif /* HYDRO_D */ + +!!$#ifdef HYDRO_D +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) then +!!$#endif +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTime, endCodeTime, & +!!$ 'setup6: diagnostics at end', .false.) +!!$ if(flushAll) flush(flushUnit) +!!$#ifdef MPP_LAND +!!$endif +!!$#endif +!!$#endif /* HYDRO_D */ + +deallocate(obsTimeStrAllocated, whObsMiss) + +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: finish setup_stream_nudging' + +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) then +!!$#endif +!!$ call nudging_timer(endCodeTime) +!!$ call accum_nudging_time(startCodeTimeOuter, endCodeTime, & +!!$ 'setup7: finish/full setup_stream_nudging', .true. ) +!!$#ifdef MPP_LAND +!!$endif +!!$#endif + +if(flushAll) flush(flushUnit) +#endif /* HYDRO_D */ + +end subroutine setup_stream_nudging + +!=================================================================================================== +! Program Names: +! timeslice_file_to_struct +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Read a timeslice file, subset to observations in the domain, put into the +! obsTimeStr(timeIndex)%obsStr where obsTimeStr(timeIndex)%time impiles the +! file being read in and timeIndex is the only argument to this subroutine. +! History Log: +! 7/23/15 -Created, JLM. +! Usage: +! Parameters: +! timeIndex: the index corresponding to time in the obsTimeStr +! Input Files: Specified argument. +! Output Files: None. +! Condition codes: +! User controllable options: +! Namelist option, logical "filterObsToDom". This removes observations which are not in the +! domain. May be useful for running small domains using large data files. +! Notes: + +subroutine timeslice_file_to_struct(structIndex) +use module_nudging_utils, only: whichInLoop2 + +use module_nudging_io, only: find_timeslice_file, & + read_timeslice_file, & + get_netcdf_dim + +implicit none +integer, intent(in) :: structIndex + +character(len=19) :: thisTime !! the of this time/slice of the structure +character(len=256) :: fileName !! the corresponding obs file. + +integer :: nGages +integer, allocatable, dimension(:) :: whSliceInDom +integer :: nWhSliceInDom +integer :: count, ww, errStatus + +character(len=19) :: timeIn, updateTimeIn !! the time of file/slice and when it was updated +character(len=2) :: sliceResoIn !! the temporal resolution of the slice +character(len=19), allocatable, dimension(:) :: gageTimeIn !! +real, allocatable, dimension(:) :: gageQCIn !! +character(len=15), allocatable, dimension(:) :: usgsIdIn !! USGS ID +real, allocatable, dimension(:) :: gageDischargeIn !! m3/s + +! Is there a timeslice file? +thisTime = obsTimeStr(structIndex)%time +fileName = find_timeslice_file(thisTime, obsResolution) + +! If no file, note in updateTime and get out! +if(fileName .eq. '') then + obsTimeStr(structIndex)%updateTime='no file' +#ifdef HYDRO_D + print*,'Ndg: no timeSliceFile at this time: ', thisTime + if(flushAll) flush(flushUnit) +#endif + return +end if + +#ifdef HYDRO_D +print*,'Ndg: Found file:', fileName +print*,'Ndg: timeSlice: ',thisTime +print*,'Ndg: timeSliceFile:',trim(fileName), my_id +if(flushAll) flush(flushUnit) +#endif + +nGages=get_netcdf_dim(fileName, 'stationIdInd', & + 'timeslice_file_to_struct', & + readTimesliceErrFatal ) +! If the dimension comes back zero, there's an issue with the file. +! If the error is not fatal, then handle the file as missing & print an +! additional message +if(nGages .eq. 0) then + obsTimeStr(structIndex)%updateTime='no file' + print*,'Ndg: WARNING: issues with skipped timeSliceFile : ', thisTime + return +end if + +!! Reduce to just the observations in the domain or not? +if(filterObsToDom) then + + ! Bring in the full file to intermediate local variables. + !! JLM:: it would probably be more efficient to do this when readingin the netcdf files. + !! This capability is probably not needed for IOC, so I'm not doing it now. + allocate(usgsIdIn(nGages)) + allocate(gageTimeIn(nGages)) + allocate(gageQCIn(nGages)) + allocate(gageDischargeIn(nGages)) + + call read_timeslice_file(fileName, & + sanityQcDischarge, & + timeIn, & + updateTimeIn, & + sliceResoIn, & + usgsIdIn, & + gageTimeIn, & + gageQCIn, & + gageDischargeIn, & + readTimesliceErrFatal,& + errStatus ) + + if(errStatus .ne. 0) then + obsTimeStr(structIndex)%updateTime='no file' + print*,'Ndg: WARNING: issues with skipped timeSliceFile : ', thisTime + deallocate(usgsIdIn, gageTimeIn, gageQCIn, gageDischargeIn) + return + end if + + if(timeIn .NE. obsTimeStr(structIndex)%time) & + call hydro_stop('timeslice_file_to_struct: file time does not match structure') + if(obsResolution .NE. sliceResoIn) & + call hydro_stop('timeslice_file_to_struct: model and file timeslice resolution do not match.') + !save when the file was updated + obsTimeStr(structIndex)%updateTime = updateTimeIn + + allocate(whSliceInDom(size(usgsIdIn))) + call whichInLoop2(usgsIdIn, nodeGageStr%usgsId, whSliceInDom, nWhSliceInDom) + +#ifdef HYDRO_D +! print*,'Ndg: usgsIdIn: ', usgsIdIn +! print*,'Ndg: nodeGageStr%usgsId', nodeGageStr%usgsId + print*,'Ndg: nWhSliceInDom:', nWhSliceInDom + if(flushAll) flush(flushUnit) +#endif + allocate(obsTimeStr(structIndex)%obsStr(nWhSliceInDom)) + !! because these dont get set here, give them default values. + obsTimeStr(structIndex)%obsStr%obsStaticInd = 0 + obsTimeStr(structIndex)%obsStr%innov = -9999 + + if(nWhSliceInDom .gt. 0) then + count=1 + do ww=1,size(whSliceInDom) + if(whSliceInDom(ww) .gt. 0) then + obsTimeStr(structIndex)%obsStr(count)%usgsId = usgsIdIn(ww) + obsTimeStr(structIndex)%obsStr(count)%obsTime = gageTimeIn(ww) + obsTimeStr(structIndex)%obsStr(count)%obsQC = gageQCIn(ww) + obsTimeStr(structIndex)%obsStr(count)%obsDischarge = gageDischargeIn(ww) + count=count+1 + else + !! the gage is not in the domain/parameter file, record that this + !! gage is available but unable to be assimilated. + call accumulate_nwis_not_in_RLAndParams(nwisNotRLAndParams, & + nwisNotRLAndParamsCount, usgsIdIn(ww)) + end if + end do + end if + + deallocate(whSliceInDom) + deallocate(usgsIdIn, gageTimeIn, gageQCIn, gageDischargeIn) + +else ! dont filterObsToDom + + ! not reducing the obs file to the domain, can + ! bring in the full file directly to the structure. + allocate(obsTimeStr(structIndex)%obsStr(nGages)) + obsTimeStr(structIndex)%obsStr%obsStaticInd = 0 + obsTimeStr(structIndex)%obsStr%innov = -9999 + + call read_timeslice_file(fileName, & + sanityQcDischarge, & + timeIn, & + obsTimeStr(structIndex)%updateTime, & + sliceResoIn, & + obsTimeStr(structIndex)%obsStr(:)%usgsId, & + obsTimeStr(structIndex)%obsStr(:)%obsTime, & + obsTimeStr(structIndex)%obsStr(:)%obsQC, & + obsTimeStr(structIndex)%obsStr(:)%obsDischarge, & + readTimesliceErrFatal, & + errStatus ) + + if(errStatus .ne. 0) then + obsTimeStr(structIndex)%updateTime='no file' + print*,'Ndg: WARNING: issues with skipped timeSliceFile : ', thisTime + deallocate(obsTimeStr(structIndex)%obsStr) + return + end if + + if(timeIn .NE. obsTimeStr(structIndex)%time) & + call hydro_stop('timeslice_file_to_struct: file time does not match that in obsTimeStr') + if(obsResolution .NE. sliceResoIn) & + call hydro_stop('timeslice_file_to_struct: model and file timeslice resolution do not match.') + +endif !filterObsToDom + +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: finish timeslice_file_to_struct' +if(flushAll) flush(flushUnit) +#endif + +end subroutine timeslice_file_to_struct + +!=================================================================================================== +! Program Name: +! obs_static_to_struct +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! For new obs read in from file, determine the associate static data: +! link index, parameters, cellsAffected, distances, and weights. +! History Log: +! 8/5/15 -Created, JLM. +! Usage: +! Parameters: +! Input Files: Specified argument. +! Output Files: None. +! Condition codes: +! User controllable options: +! Notes: + +subroutine obs_static_to_struct() +use module_nudging_utils, only: whUniLoop + +implicit none +logical, allocatable, dimension(:) :: theMask +integer, dimension(maxNeighLinksDim) :: upAllInds, downAllInds ! the collected inds/links +real, dimension(maxNeighLinksDim) :: upAllDists, downAllDists ! distance at each collected ind +integer :: upLastInd, downLastInd ! # of inds/links collected so far +integer :: ll, whLastObsStr, tt +integer, allocatable, dimension(:) :: nCellsInR +logical :: setLastObsInfo + +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: start obs_static_to_struct' +if(flushAll) flush(flushUnit) +#endif + +! nudgingParamsStr was already reduced to the intersection of all the +! gages in the parameter file and all those defined in nodeGageStr (Route_Link) +! so this is minimal by construction. + + + +#ifdef MPP_LAND +if(my_id .eq. io_id) then +#endif + ! have to search for the corresponding nodeId/obsCellInd. seems like this + ! could have been done with making nudgingParamsStr, but it's not (necessary). + allocate(theMask(size(nodeGageStr%usgsId))) + ! loop over the entire structure and solve %obsCellind + nudgeSpatial=.false. + do ll=1,size(obsStaticStr%usgsId) + !! this will always have a match b/c all + !! obsStaticStr%usgsId=nudgingParamsStr$usgsId + !! are in nodeGageStr by construction + !! (if we were looping on nodeGageStr%usgsId this would not be assured) + theMask = nodeGageStr%usgsId .eq. obsStaticStr(ll)%usgsId + !! This is a double for loop... thanks to whUniLoop + obsStaticStr(ll)%obsCellInd = nodeGageStr%nodeId(whUniLoop(theMask)) + if(obsStaticStr(ll)%R .ge. chanlen_image0(obsStaticStr(ll)%obsCellInd)/2) & + nudgeSpatial=.true. + end do + deallocate(theMask) +#ifdef MPP_LAND +end if +!broadcast +call mpp_land_bcast_logical(nudgeSpatial) +call mpp_land_bcast_int1d(obsStaticStr(:)%obsCellInd) +#endif + + +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif + print*,'Ndg: nudgeSpatial = ', nudgeSpatial + +!! get the requsite files if necessary +!! this solves/allocates upNetwkStr and downNetwkStr +if(nudgeSpatial) call get_netwk_reexpression() + +! loop over the entire structure and solve +! 1) the spatial info: %cellsAffected, %dist, %ws +! 2) the lastObs info: %lastObsDischarge, %lastObsModelDischarge, %lastObsTime, %lastObsQuality +! 3) print diagnostics with or witout spatial info + +allocate(nCellsInR(size(obsStaticStr(:)%usgsId))) +#ifdef MPP_LAND +if(my_id .eq. io_id) then +#endif + do ll=1,size(obsStaticStr(:)%usgsId) + + !! spatial static info + if(nudgeSpatial) then + + !! Now solve the spaital part of obsStaticStr + !--------------------- + ! Calculate cells affected by this gage + ! upstream to R keep distances + upLastInd = 0 + call distance_along_channel( & + upNetwkStr, & ! traversal structure in up/down direction + obsStaticStr(ll)%obsCellInd, & ! the starting link + 0.0000000000, & ! distance (m) at the starting node (this iter.) + obsStaticStr(ll)%R, & ! to traverse, in meters. + upAllInds, & ! collected links/inds + upAllDists, & ! distance to collected links + upLastInd ) ! index of last collected link in above 2 arrays. + + ! downstream to R keep distances + downLastInd = 0 + call distance_along_channel( & + downNetwkStr, & ! traversal structure in up/down direction + obsStaticStr(ll)%obsCellInd, & ! the starting link + 0.0000000000, & ! distance (m) at the starting node (this iter.) + obsStaticStr(ll)%R, & ! to traverse, in meters. + downAllInds, & ! collected links/inds + downAllDists, & ! distance to collected links + downLastInd ) ! index of last collected link in above 2 arrays. + + ! Collect the up and down stream cells + nCellsInR(ll) = 1 + upLastInd + downLastInd + allocate(obsStaticStr(ll)%cellsAffected(nCellsInR(ll))) + allocate(obsStaticStr(ll)%dist(nCellsInR(ll))) + allocate(obsStaticStr(ll)%ws(nCellsInR(ll))) + + obsStaticStr(ll)%cellsAffected(1) = obsStaticStr(ll)%obsCellInd + obsStaticStr(ll)%cellsAffected(2:(upLastInd+1)) = upAllInds(1:upLastInd) + obsStaticStr(ll)%cellsAffected((upLastInd+2):nCellsInR(ll)) = downAllInds(1:downLastInd) + + ! Distance is optional in obsStaticStr. Right now keeping it for diagnostic potential. + ! May replace with a local variable later when we dont want to keep it. + obsStaticStr(ll)%dist(1) = 0 + obsStaticStr(ll)%dist(2:(upLastInd+1)) = -1. * upAllDists(1:upLastInd) + obsStaticStr(ll)%dist((upLastInd+2):nCellsInR(ll)) = downAllDists(1:downLastInd) + + ! Calculate the cressman spatial weights + obsStaticStr(ll)%ws = & + ( obsStaticStr(ll)%R**2 - obsStaticStr(ll)%dist**2 ) / & + ( obsStaticStr(ll)%R**2 + obsStaticStr(ll)%dist**2 ) + + else + + ! Collect the up and down stream cells + nCellsInR(ll) = 1 + allocate(obsStaticStr(ll)%cellsAffected(nCellsInR(ll))) + allocate(obsStaticStr(ll)%dist(nCellsInR(ll))) + allocate(obsStaticStr(ll)%ws(nCellsInR(ll))) + + obsStaticStr(ll)%cellsAffected(1) = obsStaticStr(ll)%obsCellInd + obsStaticStr(ll)%dist(1) = 0 + obsStaticStr(ll)%ws = 1 + + end if ! nudgeSpatial + + if(temporalPersistence) then + ! the last obs "static" info + ! this puts in dummy values if none are found + setLastObsInfo = .false. + if(allocated(lastObsStr)) then + if(any(lastObsStr(:)%usgsId .eq. obsStaticStr(ll)%usgsId)) then + allocate(theMask(size(lastObsStr(:)%usgsId))) + theMask = lastObsStr(:)%usgsId .eq. obsStaticStr(ll)%usgsId + whLastObsStr = whUniLoop(theMask) + deallocate(theMask) + !! Drop in the entire derived type for each array index! Very nice. + obsStaticStr(ll)%lastObsStructure = lastObsStr(whLastObsStr) + setLastObsInfo = .true. + endif + endif + + if(.not. setLastObsInfo) then ! the gage did not have a last observation + obsStaticStr(ll)%lastObsDischarge = real(-9999) + obsStaticStr(ll)%lastObsModelDischarge = real(-9999) + do tt=1,nTimesLastObs + obsStaticStr(ll)%lastObsTime(tt) = missingLastObsTime + end do + obsStaticStr(ll)%lastObsQuality = real(0) !! keep this zero + end if + end if !temporalPersistence + +#ifdef HYDRO_D + ! diagnostics + if (my_id .eq. -5) then + ! 1 2 3 4 5 6 7 8 9 10 + !if( any( (/ 136, 981, 2242, 2845, 2946, 3014, 3066, 3068, 3072, 3158, 3228, & + ! 3325, 3328, 3330, 3353, 3374, 3398, 3416, 3445, 3487, 3536, & + ! 3621, 3667, 13554, 13651, 15062, 15311, 17450, 17394 /) & + ! .eq. obsStaticStr(ll)%obsCellInd ) )then + print*,'Ndg: ' + print*,'Ndg: !----------------------------------' + print*,'Ndg: ! obsStaticStr(',ll,'):' + print*,'Ndg: obsStaticStr(ll)%usgsId: ', obsStaticStr(ll)%usgsId + print*,'Ndg: obsStaticStr(ll)%obsCellInd: ', obsStaticStr(ll)%obsCellInd + print*,'Ndg: obsStaticStr(ll)%R: ', obsStaticStr(ll)%R + print*,'Ndg: obsStaticStr(ll)%G: ', obsStaticStr(ll)%G + print*,'Ndg: obsStaticStr(ll)%tau: ', obsStaticStr(ll)%tau + print*,'Ndg: obsStaticStr(ll)%cellsAffected: ', obsStaticStr(ll)%cellsAffected + print*,'Ndg: obsStaticStr(ll)%dist: ', obsStaticStr(ll)%dist + print*,'Ndg: obsStaticStr(ll)%ws: ', obsStaticStr(ll)%ws + if(temporalPersistence) then + print*,'Ndg: obsStaticStr(ll)%lastObsDischarge: ', obsStaticStr(ll)%lastObsDischarge + print*,'Ndg: obsStaticStr(ll)%lastObsDischarge: ', obsStaticStr(ll)%lastObsModelDischarge + print*,'Ndg: obsStaticStr(ll)%lastObsTime: ', obsStaticStr(ll)%lastObsTime + print*,'Ndg: obsStaticStr(ll)%lastObsQuality: ', obsStaticStr(ll)%lastObsQuality + endif + print*,'Ndg: !----------------------------------' + print*,'Ndg: ' + endif ! my_id .eq. -5 (off) or any of the diagnostic inds - toggle the comments. + if(flushAll) flush(flushUnit) +#endif /* HYDRO_D */ + + end do ! ll +#ifdef MPP_LAND +end if !! my_id .eq. io_id + +!broadcast %cellsAffected, %dist, %ws +do ll=1,size(obsStaticStr%usgsId) + call mpp_land_bcast_int1(nCellsInR(ll)) + if(my_id .ne. io_id) then + allocate(obsStaticStr(ll)%cellsAffected(nCellsInR(ll))) + allocate(obsStaticStr(ll)%dist(nCellsInR(ll))) + allocate(obsStaticStr(ll)%ws(nCellsInR(ll))) + endif + call mpp_land_bcast_int1d(obsStaticStr(ll)%cellsAffected) + call mpp_land_bcast_real_1d(obsStaticStr(ll)%dist) + call mpp_land_bcast_real_1d(obsStaticStr(ll)%ws) + + if(temporalPersistence) then + call mpp_land_bcast_real_1d(obsStaticStr(ll)%lastObsDischarge(:)) + call mpp_land_bcast_real_1d(obsStaticStr(ll)%lastObsModelDischarge(:)) + call mpp_land_bcast_char1d( obsStaticStr(ll)%lastObsTime(:)) + call mpp_land_bcast_real_1d(obsStaticStr(ll)%lastObsQuality(:)) + endif +end do +#endif /* MPP_LAND */ + +deallocate(nCellsInR) + +#ifdef HYDRO_D +print*,'Finnish obs_static_to_struct' +if(flushAll) flush(flushUnit) +#endif + +end subroutine obs_static_to_struct + + +!=================================================================================================== +! Subroutine Name: +! subroutine output_nudging_last_obs +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Collect and Write out the last observations collected over time. +! History Log: +! 02/09/16 -Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: None. +! Notes: Needs better error handling... + +subroutine output_nudging_last_obs() +use module_RT_data, only: rt_domain +use module_nudging_utils, only: whUniLoop +use module_nudging_io, only: write_nudging_last_obs +#ifdef MPP_LAND +use MODULE_mpp_ReachLS, only: linkls_s, linkls_e +implicit none +real, allocatable, dimension(:) :: g_nudge +logical, allocatable, dimension(:) :: theMask +integer :: whImage, oo +#endif + +if(.not. temporalPersistence) return + +#ifdef MPP_LAND +!! if MPP: last obs are being written on different processors, +!! get them back to image0 for output. +!! 1. loop over obsStaticStr. +!! 2. find the image holding obsCellInd +!! 3. communicate it's last ob back to image0. +allocate(theMask(size(linkls_s))) +do oo=1, size(obsStaticStr(:)%obsCellInd) + theMask = ( obsStaticStr(oo)%obsCellInd .ge. linkls_s .and. & + obsStaticStr(oo)%obsCellInd .le. linkls_e ) + whImage = whUniLoop(theMask) - 1 + if(whImage .eq. io_id) continue + call mpp_comm_1d_real(obsStaticStr(oo)%lastObsDischarge, whImage, io_id) + call mpp_comm_1d_real(obsStaticStr(oo)%lastObsModelDischarge, whImage, io_id) + call mpp_comm_1d_char(obsStaticStr(oo)%lastObsTime, whImage, io_id) + call mpp_comm_1d_real(obsStaticStr(oo)%lastObsQuality, whImage, io_id) +end do +deallocate(theMask) + +if(my_id .eq. io_id) then + allocate(g_nudge(rt_domain(1)%gnlinksl)) +else + allocate(g_nudge(1)) +end if +call ReachLS_write_io(RT_DOMAIN(1)%nudge,g_nudge) + +if(my_id .eq. io_id) & +#endif /* MPP_LAND */ + !! write out the last obs to file + call write_nudging_last_obs(obsStaticStr%lastObsStructure, & + nlst_rt(did)%olddate, & + g_nudge ) + +deallocate(g_nudge) + +end subroutine output_nudging_last_obs + + +!=================================================================================================== +! Program Name: +! accumulate_nwis_not_in_RLAndParams +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Keep a running, non-redundant log of gages seen in the forecast cycle +! (from nwis) which were not found in the intersection of the Route_Link +! gages and the parameter file gages. +! History Log: +! 11/4/15 - Created, JLM. +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine accumulate_nwis_not_in_RLAndParams(nwisNotRLAndParams_local, & + nwisNotRLAndParamsCount_local, & + gageId ) +implicit none +character(len=15), dimension(:), intent(inout) :: nwisNotRLAndParams_local +integer, intent(inout) :: nwisNotRLAndParamsCount_local +character(len=15), intent(in) :: gageId +if(.not. any(nwisNotRLAndParams_local .eq. gageId)) then + nwisNotRLAndParamsCount_local=nwisNotRLAndParamsCount_local+1 + if(nwisNotRLAndParamsCount .gt. size(nwisNotRLAndParams)) & + call hydro_stop('accumulate_nwis_not_in_RLAndParams: coutn of gages from NWIS not found ' // & + 'in intersection of RL and Param gages are exceeding the hardcoded limit:,'// & + ' maxNwisNotRLAndParamsCount') + nwisNotRLAndParams_local(nwisNotRLAndParamsCount_local)=gageId +end if +end subroutine accumulate_nwis_not_in_RLAndParams + + +!=================================================================================================== +! Program Name: +! distance_along_channel +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! Traverse the gridded channel network up or down stream, return the cumulative distance +! and indices of points visited. Going from one link to the next counts half the length +! of each as the distance. Conceptually that's midpoint to midpoint though there's really +! no midpoint. If half the length to the first midpoint exceeds R, no index is returned. +! That is, lastInd is zero. + +! History Log: +! 6/4/15 - Created, JLM. +! 8/7/15 - Heavily refactored to remove searching, JLM. +! Usage: +! Parameters: +! See formal arguments and their declarations +! Input Files: Specified argument. +! Output Files: None. +! Condition codes: +! User controllable options: +! Notes: +! The total number of links gathered is hardwired to 10,000 which is for both directions. In NHD+ +! the shortest link is 1m. If you managed to traverse just the shortest 10,000 links then you only +! go [R language: > sum(head(sort(reInd$length),10000))/1000 = 60.0745] 60km. This is the minimum +! upper bound on R implied by the choice of 10,000. If lastInd ever becomes 10,001 a fatal error +! is issued. + +recursive subroutine distance_along_channel(direction, & ! traversal structure in up/down direction + startInd, & ! the starting link + startDist, & ! distance at the starting node (this iter.) + radius, & ! to traverse, in meters. + allInds, & ! collected links/inds + allDists, & ! distance to collected links + lastInd ) ! index of last collected link in above. +use module_RT_data, only: rt_domain + +implicit none +type(netwkReExpStructure), intent(in) :: direction ! up/down NtwkStr with tarversal inds, pass by ref! +integer, intent(in) :: startInd ! the starting link +real, intent(in) :: startDist ! distance at the starting node (for this iteration) +real, intent(in) :: radius ! in meteres +integer, intent(inout), dimension(maxNeighLinksDim) :: allInds ! the collected inds/links +real, intent(inout), dimension(maxNeighLinksDim) :: allDists ! the distance at each collected ind +integer, intent(inout) :: lastInd ! the number of inds/links collected so far. + +! whGo is only > 1 upstream with a current max of 17 in NHD+ +integer :: go, nGo +integer :: gg +real :: newDist +integer, parameter :: did=1 + +!! this routine is only called on io_id + +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: start distance_along_channel' +if(flushAll) flush(flushUnit) +#endif + +if(direction%end(startInd) .eq. 0) return ! a pour point (downstream) or a 1st order link (upstream) + +nGo = direction%end(startInd) - direction%start(startInd) +nGo = nGo + 1 ! end-start+1 if end-start > 0 +do gg=0,nGo-1 + go = direction%go( direction%start(startInd) + gg ) + allInds(lastInd+1) = go +#ifdef MPP_LAND + newDist = ( chanlen_image0(startInd) + chanlen_image0(go) ) / 2. +#else + newDist = ( rt_domain(did)%chanlen(startInd) + rt_domain(did)%chanlen(go) ) / 2. +#endif + if(startDist + newDist .gt. radius) return ! strictly greater than. + allDists(lastInd+1) = startDist + newDist + lastInd = lastInd+1 + if(lastInd .ge. 10001) & + call hydro_stop('distance_along_channel: hardwired 10000 variable size exceeded. FIX.') + call distance_along_channel( & + direction, & ! the traversal structure, pass by reference. + go, & ! the new startInd is where we go from the old startInd + startDist+newDist, & ! a little bit further is where we start the next call. + radius, & ! static + allInds, & ! collected inds + allDists, & ! collected dists + lastInd ) ! the number collected so far +end do + +#ifdef HYDRO_D +print*,'Ndg: end distance_along_channel' +if(flushAll) flush(flushUnit) +#endif + +end subroutine distance_along_channel + +!=================================================================================================== +! Program Name: +! tally_affected_links +! Author(s)/Contact(s): +! James L McCreight +! Abstract: +! History Log: +! 8/11/15 +! Usage: call tally_affected_links(tt) +! Parameters: +! Input Files: None. +! Output Files: None. +! Condition codes: +! User controllable options: +! Notes: + +subroutine tally_affected_links(timeIndex) +use module_RT_data, only: rt_domain + +implicit none +integer, intent(in) :: timeIndex +integer, allocatable, dimension(:) :: affectedInds, nGageAffect +integer :: nlinks, ii, oo, cc, nLinkAff, indAff, staticInd +integer, parameter :: did=1 + +if (nlst_rt(did)%channel_option .eq. 3) nLinks = RT_DOMAIN(did)%NLINKS ! For gridded channel routing +if (nlst_rt(did)%channel_option .eq. 1 .or. & + nlst_rt(did)%channel_option .eq. 2 ) & + nLinks = & +#ifdef MPP_LAND + RT_DOMAIN(did)%gNLINKSL ! For reach-based routing in parallel +#else + RT_DOMAIN(did)%NLINKSL ! For reach-based routing +#endif + +allocate(affectedInds(nLinks), nGageAffect(nLinks)) + +affectedInds = 0 +nGageAffect = 0 + +! parallelize this |||||||||||||||||||||||||||||||||||||||| +do oo=1,size(obsTimeStr(timeIndex)%obsStr) + staticInd = obsTimeStr(timeIndex)%obsStr(oo)%obsStaticInd + if(staticInd .eq. 0) cycle + nLinkAff = size(obsStaticStr(staticInd)%cellsAffected) + do cc=1, nLinkAff + indAff = obsStaticStr(staticInd)%cellsAffected(cc) + affectedInds(indAff) = indAff + nGageAffect(indAff) = nGageAffect(indAff) + 1 + end do +end do + +! how many total cells affected? +nLinkAff = sum((/(1, ii=1,nLinks)/), mask=affectedInds .ne. 0) + +allocate(obsTimeStr(timeIndex)%allCellInds(nLinkAff)) +allocate(obsTimeStr(timeIndex)%nGageCell(nLinkAff)) + +obsTimeStr(timeIndex)%allCellInds = pack(affectedInds, mask=affectedInds .ne. 0) +obsTimeStr(timeIndex)%nGageCell = pack(nGageAffect, mask=nGageAffect .ne. 0) + +deallocate(affectedInds, nGageAffect) + +#ifdef HYDRO_D +print*,'Ndg: end tally_affected_links' +if(flushAll) flush(flushUnit) +#endif + +end subroutine tally_affected_links + + +!=================================================================================================== +! program name: +! time_wt +! author(s)/contact(s): +! James McCreight +! abstract: +! compute the temporal weight factor for an observation +! history log: +! 6/4/15 - created, +! 12/1/15 - moved to inverse distance +! usage: +! parameters: +! q +! input files: +! output files: +! condition codes: +! user controllable options: +! notes: + +real function time_wt(modelTime, tau, obsTime) +use module_date_utils_nudging, only: geth_idts +implicit none +character(len=19), intent(in) :: modelTime ! model time string +real, intent(in) :: tau ! tau half window (minutes) +character(len=19), intent(in) :: obsTime ! observation time string +! local variables +integer :: timeDiff +real, parameter :: ten = 10.000000000 +real, parameter :: one = 1.000000000 +real, parameter :: zero = 0.000000000 +integer, parameter :: zeroInt = 0 +!! returned timeDiff is in seconds +call geth_idts(obsTime, modelTime, timeDiff) +timeDiff = timeDiff / 60. ! minutes to match tau + +!! this is the old, ramped, wrf-style time weighting. +!time_wt = 0. ! = if(abs(timeDiff) .gt. tau) +!if(abs(timeDiff) .lt. tau/2.) time_wt = 1. +!if(abs(timeDiff) .ge. tau/2. .and. & +! abs(timeDiff) .le. tau ) time_wt = (tau - abs(timeDiff)) / (tau/2.) + +!this is the new, inverse distance weighting +if(abs(timeDiff) .gt. tau) then + time_wt = zero + return +end if +!! this function has a range of [1, 10^10] so that +!! the variable "weighting" in the function 'nudge_term_link' is +!! assuredly greater than 1e-8 if weights are calculated. +time_wt = (ten ** ten) * ((one/ten) ** (abs(timeDiff)/(tau/ten))) + +end function time_wt + +!!$!=================================================================================================== +!!$! Program Name: +!!$! x +!!$! Author(s)/Contact(s): +!!$! y +!!$! Abstract: +!!$! z +!!$! History Log: +!!$! 6/4/15 - Created, +!!$! Usage: +!!$! Parameters: +!!$! q +!!$! Input Files: +!!$! Output Files: +!!$! Condition codes: +!!$! User controllable options: +!!$! Notes: +!!$real function cress(rr,rrmax) +!!$implicit none +!!$real,intent(in):: rr,rrmax +!!$if(rr .ge. rrmax)then +!!$ cress = 0. +!!$else +!!$ cress = (rrmax - rr)/(rrmax + rr) +!!$endif +!!$end function cress + + +!=================================================================================================== +! Program Name: +! x +! Author(s)/Contact(s): +! Wu YH +! James McCreight >jamesmcc<>at<>ucar<>dot<>edu< +! Abstract: +! Calculate the innovations of obs. +! History Log: +! 2015.07.15 - Created. +! 2015.09.19 +! Usage: +! Parameters: +! q +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine nudge_innov(discharge) +implicit none +real, dimension(:,:), intent(in) :: discharge !! modeled discharge (m3/s) +integer :: tt, oo, nObsTt, linkInd, staticInd +if(.not. allocated(obsTimeStr)) return +do tt=1,size(obsTimeStr) + if(.not. allocated(obsTimeStr(tt)%obsStr)) cycle + nObsTt = size(obsTimeStr(tt)%obsStr) + do oo=1,nObsTt + staticInd = obsTimeStr(tt)%obsStr(oo)%obsStaticInd + linkInd = obsStaticStr(staticInd)%obsCellInd + obsTimeStr(tt)%obsStr(oo)%innov = & + ( obsTimeStr(tt)%obsStr(oo)%obsDischarge - discharge(linkInd,2) ) & + *obsTimeStr(tt)%obsStr(oo)%obsQC + enddo +end do +end subroutine nudge_innov + +!!$ +!=================================================================================================== +! Program Name: +! nudge_term_all +! Author(s)/Contact(s): +! Wu YH, James McCreight +! Abstract: +! Calculate the nudging term for one +! History Log: +! 2015.07.21 - Created, +! Usage: +! Parameters: +! q +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine nudge_term_all(discharge, nudgeAdj, hydroAdv) +use module_RT_data, only: rt_domain +use module_nudging_utils, only: nudging_timer, & + accum_nudging_time +#ifdef MPP_LAND +use MODULE_mpp_ReachLS, only: linkls_s, linkls_e, gNLinksL, ReachLS_write_io +#endif + +implicit none +real, dimension(:,:), intent(inout) :: discharge !! modeled discharge (m3/s) +real, dimension(:), intent(out) :: nudgeAdj !! nudge to modeled discharge (m3/s) +integer, intent(in) :: hydroAdv !! number of seconds the channel model has advanced + +real, allocatable, dimension(:) :: global_discharge !! modeled discharge (m3/s) + +integer :: ll, startInd, endInd, checkInd +real :: theNudge + +!!$#ifdef HYDRO_D /* un-ifdef to get timing results */ +!!$real :: startCodeTimeAcc, endCodeTimeAcc +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) & +!!$#endif /* MPP_LAND */ +!!$ call nudging_timer(startCodeTimeAcc) +!!$if(flushAll) flush(flushUnit) +!!$#endif /* HYDRO_D */ /* un-ifdef to get timing results */ + +#ifdef MPP_LAND +!! get global discharge. This is only needed if spatial interpolation. +!! eventually logic: if spatialNudging determines use of global_discharge +allocate(global_discharge(gNLinksL)) +call ReachLS_write_io(discharge(:,2), global_discharge) +call mpp_land_bcast_real_1d(global_discharge) +!! need to transform passed index to appropriate index for image +startInd=linkls_s(my_id+1) +endInd =linkls_e(my_id+1) +#else +startInd=1 +endInd =RT_DOMAIN(did)%NLINKSL +#endif + +if(.not. gotT0Discharge) then + allocate(t0Discharge(size(discharge(:,1)))) + t0Discharge = discharge(:,1) + gotT0Discharge = .true. +end if + +do ll=startInd, endInd ! ll is in the index of the global Route_Link + +#ifdef HYDRO_D + checkInd = -9999 ! 136 !2569347 !2139306 !213095 ! 2211014 ! see below as well + if(ll .eq. checkInd) then + print*,'Ndg: checkInd: -------------------------' + print*,"Ndg: checkInd: checkInd: ",checkInd + print*,'Ndg: checkInd: discharge(ll,2) before:',discharge(ll-startInd+1,2) + if(flushAll) flush(flushUnit) + end if +#endif + theNudge = nudge_term_link(ll-startInd+1, hydroAdv, global_discharge) + discharge(ll-startInd+1,2) = discharge(ll-startInd+1,2) + theNudge +#ifdef HYDRO_D + if(ll .eq. checkInd) then + print*,'Ndg: checkInd: theNudge:',theNudge + print*,'Ndg: checkInd: discharge(ll,2) after:',discharge(ll-startInd+1,2) + if(flushAll) flush(flushUnit) + endif +#endif +end do +!! the following only valid since nudge_term_all is applied after the time step. +nudgeAdj=discharge(:,2)-discharge(:,1) +discharge(:,1)=discharge(:,2) +deallocate(global_discharge) + +#ifdef HYDRO_D /* un-ifdef to get timing results */ +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) then +!!$#endif +!!$ call nudging_timer(endCodeTimeAcc) +!!$ call accum_nudging_time(startCodeTimeAcc, endCodeTimeAcc, 'nudge_term_all', .true.) +!!$#ifdef MPP_LAND +!!$endif +!!$#endif +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: finish nudge_term_all' +if(flushAll) flush(flushUnit) +#endif /* HYDRO_D */ /* un-ifdef to get timing results */ + +end subroutine nudge_term_all + + +!=================================================================================================== +! Program Name: +! nudge_term_link +! Author(s)/Contact(s): +! Wu YH, +! James L McCreight jamesmcc> return + if(.not. any(nudgingParamsStr%usgsId .eq. prstGageId)) return + +#ifdef HYDRO_D + print*,'Ndg: Persistence nudging execution' + if(flushAll) flush(flushUnit) +#endif + + !! 4) what is the index of this link/gage in nudgingParamsStr? + allocate(theMask(size(nudgingParamsStr%usgsId))) + theMask = nudgingParamsStr%usgsId .eq. prstGageId + whPrstParams = whUniLoop(theMask) + deallocate(theMask) + + !! --- Deal with the parameters --- + !! 5) what month is the flow in [1,12] + read(hydroTime(6:7),*) flowMonth + + !! 6) what thereshold is the flow? + whThresh=1 !! init value + do tt=1,size(nudgingParamsStr%qThresh,1) + if(discharge(obsInd) .gt. nudgingParamsStr%qThresh(tt, flowMonth, whPrstParams)) & + whThresh=tt+1 + end do + + !!7) get the parameter of the exponential decay + prstB=nudgingParamsStr%expCoeff(whThresh, flowMonth, whPrstParams) + + !! --- Deal with the last ob --- + !! 9) what is the time difference with the last ob/obs? + prstDtErrInt = -9999*60 ! JLM: magic value? set as a parameter above + do tt=nTimesLastObs,1,-1 + ! Conditons for rejecting obs + if(persistBias_local) then + if(.not. biasMask(tt)) continue + else + if(obsStaticStr(whGageId)%lastObsQuality(tt) .eq. 0) continue + end if + call geth_idts(hydroTime, obsStaticStr(whGageId)%lastObsTime(tt), prstDtErrInt) + if(prstDtErrInt .lt. zeroInt) then + print*,'initTime:', hydroTime + print*,'obsStaticStr(whGageId)%lastObsTime(tt):', obsStaticStr(whGageId)%lastObsTime(tt) + print*,'prstDtErrInt:',prstDtErrInt + print*,'Ndg: WARNING: lastObs times are in the future of the model time.' + if(futureLastObsFatal) then + call hydro_stop('nudge_term_link: negative prstDtErrInt: last obs in future') + else + prstDtErrInt=abs(prstDtErrInt) + end if + end if + exit + end do + ! By design, should not get here + if(prstDtErrInt .eq. -9999*60) then + persistBias_local=.false. + call hydro_stop('nudge_term_link: negative prstDtErrInt: still default value=-9999*60') + end if + prstDtErr = real(prstDtErrInt)/real(sixty) !! second -> minutes + + !! 10) what is the error or bias ? + + !! Always calculate the observation nudge error. + prstErr = obsStaticStr(whGageId)%lastObsDischarge(nTimesLastObs) - discharge(obsInd) + + !! Bias term. + if(persistBias_local) then + + if(invDistTimeWeightBias) then + + if(count(biasMask .and. (biasWeights.gt.zero)) .lt. minNumPairsBiasPersist) then + persistBias_local=.false. + else + + !! normalize to the latest (least) time difference and invert. + biasWeights=1./(biasWeights/minval(biasWeights, & + mask=biasMask .and. (biasWeights.gt.zero) )) + biasWeights=biasWeights**invDistTimeWeightExp !! = 5.000, hard coded above + + !! The less than equal to one prevents division by huge/infinite + !! numbers which may result from zero time differences. + + ! JLM OLD + biasWeightSum=sum(biasWeights, mask=biasMask .and. (biasWeights.gt.zero) ) + ! JLM NEW + !biasWeightSum=sum(biasWeights, mask=biasMask .and. & + ! (biasWeights.gt.zero) .and. & + ! (biasWeights.le.one) ) + + theBias = sum( biasWeights * & + (obsStaticStr(whGageId)%lastObsDischarge - & + obsStaticStr(whGageId)%lastObsModelDischarge), & + mask=biasMask .and. (biasWeights.gt.zero)) / & + biasWeightSum + + endif + + else + + !! Simple, straight average / unweighted, way of calculating bias + theBias = sum( obsStaticStr(whGageId)%lastObsDischarge - & + obsStaticStr(whGageId)%lastObsModelDischarge, mask=biasMask ) / & + max( 1, count(biasMask) ) + + end if + + if(noConstInterfBias) then + !! Game to reduce bias issues. + !! Maybe make this an option later if it works. + !! do I need to stash the t0 flow? It is not the same as the last ob or the lastObsModelDischarge + deltaT0Discharge = discharge(obsInd) - t0Discharge(linkIndIn) + + if(theBias .lt. zero .and. & + deltaT0Discharge .lt. zero ) then + + if(t0Discharge(linkIndIn) .gt. .01) then + !! Tweaks + !1!theBias=theBias - noConstInterfCoeff*(deltaT0Discharge) ! negative - negative + !2!theBias=theBias*(1-(noConstInterfCoeff*abs(deltaT0Discharge)/t0Discharge(linkIndIn))) + !3 + theBias = theBias*& + (1.0-(noConstInterfCoeff* & + ( (abs(deltaT0Discharge)/t0Discharge(linkIndIn)+.25)**2.5 - .25**2.5) ) ) + else + !! if the toDischarge is really small, zero out the bias. + theBias = zero + end if + theBias = min( theBias, zero ) ! do not let the bias go positive + theBias = max( theBias, -1*discharge(obsInd)/2. ) ! do not let the bias to remove be more than half the total flow. + + end if + + + if(theBias .gt. zero .and. & + deltaT0Discharge .gt. zero ) then + + if(t0Discharge(linkIndIn) .gt. .01) then + !! Tweaks + !1 !theBias = theBias - noConstInterfCoeff*(deltaT0Discharge) ! positive - positive + !2!theBias=theBias*(1-(noConstInterfCoeff*abs(deltaT0Discharge)/t0Discharge(linkIndIn))) + !3 + theBias = theBias*& + (1.0-(noConstInterfCoeff* & + ( (abs(deltaT0Discharge)/t0Discharge(linkIndIn)+.25)**2.5 - .25**2.5) ) ) + else + !! if the toDischarge is really small, use a naminal t0Discharge of .01 + theBias = theBias*& + (1.0-(noConstInterfCoeff* & + ( (abs(deltaT0Discharge)/.01+.25)**2.5 - .25**2.5) ) ) + end if + theBias = max( theBias, zero ) ! do not let the bias go negative + + end if + end if + + endif ! if (persistBias_local) + + + !! 11) solution + if(.not. persistBias_local) then + nudge_term_link = & + obsStaticStr(whGageId)%lastObsQuality(nTimesLastObs) * & + prstErr * exp(real(-1)*prstDtErr/prstB) + else + nudge_term_link = & + obsStaticStr(whGageId)%lastObsQuality(nTimesLastObs) * & + prstErr * exp(real(-1)*prstDtErr/prstB) + & + theBias * (1.0 - exp(real(-1)*prstDtErr/prstB) ) + + endif !! if(.not. persistBias_local) then; else; + + !! Currently cant get here... + if((prstDtErr .lt. zero) .and. futureLastObsZero) nudge_term_link = zero + + !! Ensure the nudge does not make the streamflow less than zero. + !! This is particularly important if persistBias + !! Is this OK as ZERO?? Musk-cunge allows it (in theory). + if (discharge(obsInd)+nudge_term_link .lt. zero) then + nudge_term_link = zero - discharge(obsInd) + smallestNudge + !print*,'JLM setting nudge_term_link + observed discharge to zero (or very small)', prstGageId + endif + + +#ifdef HYDRO_D + if(linkInd .eq. checkInd) then + print*,'Ndg: checkInd pst: -------------------' + print*,'Ndg: checkInd pst: usgsId: ', prstGageId + print*,'Ndg: checkInd pst: -------------------' + print*,'Ndg: checkInd pst: prstGageId: ', prstGageId + print*,'Ndg: checkInd pst: obsInd: ', obsInd + print*,'Ndg: checkInd pst: initTime:', initTime + print*,'Ndg: checkInd pst: hydroTime: ', hydroTime + print*,'Ndg: checkInd pst: flowmonth: ', flowMonth + print*,'Ndg: checkInd pst: lastObsTime: ', obsStaticStr(whGageId)%lastObsTime(nTimesLastObs) + print*,'Ndg: checkInd pst: time difference mins: ', prstDtErr + print*,'Ndg: checkInd pst: obsStaticStr(whGageId)%lastObsQuality: ', & + obsStaticStr(whGageId)%lastObsQuality(nTimesLastObs) + print*,'Ndg: checkInd pst: obsStaticStr(whGageId)%lastObsDischarge: ', & + obsStaticStr(whGageId)%lastObsDischarge(nTimesLastObs) + print*,'Ndg: checkInd pst: modeled discharge(obsInd): ', discharge(obsInd) + print*,'Ndg: checkInd pst: qThresh: ', nudgingParamsStr%qThresh(:, flowMonth, whPrstParams) + print*,'Ndg: checkInd pst: whThresh: ', whThresh + print*,'Ndg: checkInd pst: discharge difference:', prstErr + print*,'Ndg: checkInd pst: prstB:', prstB + print*,'Ndg: checkInd pst: time difference mins prstDtErr: ', prstDtErr + print*,'Ndg: checkInd pst: exponent term: ', exp(real(-1)*prstDtErr/prstB) + + if(persistBias_local) then + print*,'Ndg: checkInd pst: BIAS PERSISTENCE INFO' + do tt=1,nTimesLastObs + if(biasMask(tt)) then + print*,'checkInd: ---- tt:', tt + print*,'checkInd: Diff: ', obsStaticStr(whGageId)%lastObsDischarge(tt) - & + obsStaticStr(whGageId)%lastObsModelDischarge(tt) + print*,'checkInd: o - : ', obsStaticStr(whGageId)%lastObsDischarge(tt) + print*,'checkInd: m: ', obsStaticStr(whGageId)%lastObsModelDischarge(tt) + print*,'checkInd: biasWeights: ', biasWeights(tt) + end if + end do + print*,'Ndg: checkInd pst: max( 1, count(biasMask) ): ',max( 1, count(biasMask) ) + print*,'Ndg: checkInd pst: biasWeightSum: ', biasWeightSum + print*,'Ndg: checkInd pst: corr: ', corr + print*,'Ndg: checkInd pst: nCorr: ', nCorr + print*,'Ndg: checkInd pst: theBias:', theBias + print*,'Ndg: checkInd pst: theBias/corr:', theBias/corr + print*,'Ndg: checkInd pst: obsStaticStr(whGageId)%lastObsQuality(nTimesLastObs) *' + print*,'Ndg: checkInd pst: prstErr * exp(real(-1)*prstDtErr/prstB)', & + obsStaticStr(whGageId)%lastObsQuality(nTimesLastObs) * & + prstErr * exp(real(-1)*prstDtErr/prstB) + print*,'Ndg: checkInd pst: theBias * (1-exp(real(-1)*prstDtErr/prstB)):', & + theBias * (1-exp(real(-1)*prstDtErr/prstB)) + endif + + print*,'Ndg: checkInd pst: nudge_term_link: ', nudge_term_link + + if(flushAll) flush(flushUnit) + end if +#endif /* HYDRO_D */ +endif !! if(abs(weighting) .gt. smallestWeight) then !! 1.e-10 + +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: finish nudge_term_link' +if(flushAll) flush(flushUnit) +#endif + + +end function nudge_term_link + + +!=================================================================================================== +! Program Name: +! nudge_apply_upstream_muskingumCunge +! Author(s)/Contact(s): +! James L McCreight, +! Abstract: +! Gets the previous nudge into the collected upstream current and previous fluxes. +! History Log: +! 4/5/17 - Created, JLM +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine nudge_apply_upstream_muskingumCunge( qup, quc, np, k ) +use module_RT_data, only: rt_domain +implicit none +real, intent(inout) :: qup ! previous upstream inflows +real, intent(inout) :: quc ! current upstream inflows +real, intent(in) :: np ! previous nudge +integer, intent(in) :: k ! index of flow/routlink on local image + +!! If not on a gage... get out. +if(rt_domain(1)%gages(k) .eq. rt_domain(1)%gageMiss) return + +qup = qup + np +quc = quc + np + +end subroutine nudge_apply_upstream_muskingumCunge + +!=================================================================================================== +! Program Name: +! get_netwk_reexpression +! Author(s)/Contact(s): +! James L McCreight, +! Abstract: +! Bring in the network re-expression for indexed traversal +! of the stream network. +! History Log: +! 8/20/15 - Created, JLM +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes: Sets module derived type strs: upNetwkStr and downNetwkStr +subroutine get_netwk_reexpression +use module_RT_data, only: rt_domain +use module_nudging_io,only: read_network_reexpression, get_netcdf_dim + +implicit none +integer :: downSize, upSize, baseSize, nLinksL + +#ifdef MPP_LAND +nLinksL = RT_DOMAIN(did)%gNLINKSL ! For reach-based routing in parallel, no decomp for nudging +#else +nLinksL = RT_DOMAIN(did)%NLINKSL ! For reach-based routing +#endif + +#ifdef MPP_LAND +if(my_id .eq. IO_id) then +#endif + downSize = get_netcdf_dim(netwkReExFile, 'downDim', 'init_stream_nudging') + upSize = get_netcdf_dim(netwkReExFile, 'upDim', 'init_stream_nudging') + baseSize = get_netcdf_dim(netwkReExFile, 'baseDim', 'init_stream_nudging') + !if(baseSize .ne. nLinksL) call hydro_stop('init_stream_nudging: baseSize .ne. nLinksL') + + allocate(upNetwkStr%go(upSize)) + allocate(upNetwkStr%start(nLinksL)) + allocate(upNetwkStr%end(nLinksL)) + allocate(downNetwkStr%go(downSize)) + allocate(downNetwkStr%start(nLinksL)) + allocate(downNetwkStr%end(nLinksL)) + + call read_network_reexpression( & + netwkReExFile, & ! file with dims of the stream netwk + upNetwkStr%go, & ! where each ind came from, upstream + upNetwkStr%start, & ! where each ind's upstream links start in upGo + upNetwkStr%end, & ! where each ind's upstream links end in upGo + downNetwkStr%go, & ! where each ind goes, downstream + downNetwkStr%start, & ! where each ind's downstream links start in downGo + downNetwkStr%end ) ! where each ind's downstream links end in downGo + +#ifdef MPP_LAND +endif ! my_id .eq. io_id + +! Broadcast +call mpp_land_bcast_int1(upSize) +call mpp_land_bcast_int1(downSize) +if(my_id .ne. io_id) then + allocate(upNetwkStr%go(upSize)) + allocate(upNetwkStr%start(nLinksL)) + allocate(upNetwkStr%end(nLinksL)) + allocate(downNetwkStr%go(downSize)) + allocate(downNetwkStr%start(nLinksL)) + allocate(downNetwkStr%end(nLinksL)) +endif +call mpp_land_bcast_int1d(upNetwkStr%go) +call mpp_land_bcast_int1d(upNetwkStr%start) +call mpp_land_bcast_int1d(upNetwkStr%end) +call mpp_land_bcast_int1d(downNetwkStr%go) +call mpp_land_bcast_int1d(downNetwkStr%start) +call mpp_land_bcast_int1d(downNetwkStr%end) +#endif +end subroutine get_netwk_reexpression + + +!=================================================================================================== +! Program Name: +! finish_stream_nudging +! Author(s)/Contact(s): +! James L McCreight, +! Abstract: +! Finish off the nudging routines, memory and timing. +! History Log: +! 8/20/15 - Created, JLM +! Usage: +! Parameters: +! Input Files: +! Output Files: +! Condition codes: +! User controllable options: +! Notes: + +subroutine finish_stream_nudging +use module_nudging_utils, only: totalNudgeTime, & + nudging_timer, & + accum_nudging_time, & + whUniLoop +use module_nudging_io, only: write_nwis_not_in_RLAndParams +implicit none + +character(len=15), allocatable, dimension(:) :: nwisNotRLAndParamsGathered +character(len=15), allocatable, dimension(:) :: nwisNotRLAndParamsConsolidated +integer, dimension(numprocs) :: nwisNotRLAndParamsCountVector +integer :: nwisNotRLAndParamsCountConsolidated, gg, ii + +#ifdef HYDRO_D /* un-ifdef to get timing results */ +!!$real :: startCodeTimeAcc, endCodeTimeAcc +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif +print*,'Ndg: start finish_stream_nudging' +if(flushAll) flush(flushUnit) +!!$#ifdef MPP_LAND +!!$if(my_id .eq. io_id) & +!!$#endif +!!$ call nudging_timer(startCodeTimeAcc) +#endif /* HYDRO_D un-ifdef to get timing results */ + +!! accumulate_nwis_not_in_RLAndParams +!! because of parallel IO, accumulation is happening on +!! multiple images and these need to be consolidated before outputting. +! get the total of nwisNotRLAndParam gages on all images +nwisNotRLAndParamsCountVector(my_id+1) = nwisNotRLAndParamsCount +do ii=0,numprocs-1 + call mpp_land_bcast_int1_root(nwisNotRLAndParamsCountVector(ii+1), ii) +end do + +allocate(nwisNotRLAndParamsGathered(sum(nwisNotRLAndParamsCountVector))) + +#ifdef MPP_LAND +if(my_id .eq. io_id) & +#endif + allocate(nwisNotRLAndParamsConsolidated(sum(nwisNotRLAndParamsCountVector))) + +call write_IO_char_head(nwisNotRLAndParams, nwisNotRLAndParamsGathered, nwisNotRLAndParamsCountVector) + +if(my_id .eq. io_id) then + ! now consolidate these again... + nwisNotRLAndParamsCountConsolidated=0 + do gg=1,size(nwisNotRLAndParamsGathered) + call accumulate_nwis_not_in_RLAndParams(nwisNotRLAndParamsConsolidated, & + nwisNotRLAndParamsCountConsolidated, & + nwisNotRLAndParamsGathered(gg) ) + end do + if(nwisNotRLAndParamsCountConsolidated .gt. 0) & + call write_nwis_not_in_RLAndParams(nwisNotRLAndParamsConsolidated, & + nwisNotRLAndParamsCountConsolidated ) +endif + +!! deallocate local variables +if(allocated(nwisNotRLAndParamsGathered)) deallocate(nwisNotRLAndParamsGathered) +if(allocated(nwisNotRLAndParamsConsolidated)) deallocate(nwisNotRLAndParamsConsolidated) + +!! deallocate module variables here and time this +if(allocated(obsTimeStr)) deallocate(obsTimeStr) +if(allocated(obsStaticStr)) deallocate(obsStaticStr) +!if(allocated(nodeGageTmp%nodeId)) deallocate(nodeGageTmp%nodeId) +if(allocated(nodeGageTmp%usgsId)) deallocate(nodeGageTmp%usgsId) !redundant +if(allocated(nodeGageStr%nodeId)) deallocate(nodeGageStr%nodeId) +if(allocated(nodeGageStr%usgsId)) deallocate(nodeGageStr%usgsId) +if(allocated(nudgingParamsTmp%usgsId)) deallocate(nudgingParamsTmp%usgsId) !redundant +if(allocated(nudgingParamsTmp%R)) deallocate(nudgingParamsTmp%R) !redundant +if(allocated(nudgingParamsTmp%G)) deallocate(nudgingParamsTmp%G) !redundant +if(allocated(nudgingParamsTmp%tau)) deallocate(nudgingParamsTmp%tau) !redundant +if(allocated(nudgingParamsStr%usgsId)) deallocate(nudgingParamsStr%usgsId) +if(allocated(nudgingParamsStr%R)) deallocate(nudgingParamsStr%R) +if(allocated(nudgingParamsStr%G)) deallocate(nudgingParamsStr%G) +if(allocated(nudgingParamsStr%tau)) deallocate(nudgingParamsStr%tau) +if(allocated(nudgingParamsStr%qThresh)) deallocate(nudgingParamsStr%qThresh) +if(allocated(nudgingParamsStr%expCoeff)) deallocate(nudgingParamsStr%expCoeff) +if(allocated(upNetwkStr%go)) deallocate(upNetwkStr%go) +if(allocated(upNetwkStr%start)) deallocate(upNetwkStr%start) +if(allocated(upNetwkStr%end)) deallocate(upNetwkStr%end) +if(allocated(downNetwkStr%go)) deallocate(downNetwkStr%go) +if(allocated(downNetwkStr%start)) deallocate(downNetwkStr%start) +if(allocated(downNetwkStr%end)) deallocate(downNetwkStr%end) +if(allocated(chanlen_image0)) deallocate(chanlen_image0) + +!! print ouf the full timing results here. +!! dont i need to make another accumultion call here? +#ifdef HYDRO_D +#ifdef MPP_LAND +if(my_id .eq. io_id) then +#endif +!!$ call nudging_timer(endCodeTimeAcc) +!!$ call accum_nudging_time(startCodeTimeAcc, endCodeTimeAcc, 'very end of nudging', .true.) +!!$ print*,'Ndg: *nudge timing* TOTAL NUDGING TIME (seconds): ', totalNudgeTime + print*,'Ndg: end of finish_stream_nudging' + if(flushAll) flush(flushUnit) +#ifdef MPP_LAND +end if +#endif +#endif /* HYDRO_D */ + +end subroutine finish_stream_nudging + + + +end module module_stream_nudging diff --git a/hydro/template/HYDRO/CHANPARM.TBL b/hydro/template/HYDRO/CHANPARM.TBL new file mode 100644 index 0000000000..e3924d563f --- /dev/null +++ b/hydro/template/HYDRO/CHANPARM.TBL @@ -0,0 +1,13 @@ +Channel Parameters +StreamOrder +10,1, 'Bw HLINK ChSSlp MannN' +1, 1.5, 0.02, 3.0, 0.55 +2, 3.0, 0.02, 1.0, 0.35 +3, 5.0, 0.02, 0.5, 0.15 +4, 10., 0.03, 0.18, 0.10 +5, 20., 0.03, 0.05, 0.07 +6, 40., 0.03, 0.05, 0.05 +7, 60., 0.03, 0.05, 0.04 +8, 70., 0.10, 0.05, 0.03 +9, 80., 0.30, 0.05, 0.02 +10, 100., 0.30, 0.05, 0.01 diff --git a/hydro/template/HYDRO/HYDRO.TBL b/hydro/template/HYDRO/HYDRO.TBL index 1de05f5725..3f6380fe88 100644 --- a/hydro/template/HYDRO/HYDRO.TBL +++ b/hydro/template/HYDRO/HYDRO.TBL @@ -1,4 +1,4 @@ - 27 USGS for OV_ROUGH + 28 USGS for OV_ROUGH SFC_ROUGH' 0.025, 'Urban and Built-Up Land' 0.035, 'Dryland Cropland and Pasture' @@ -27,16 +27,17 @@ 0.010, 'Playa' 0.100, 'Lava' 0.010, 'White Sand' + 0.005, 'Non-Ocean Water Bodies' 19, for SATDK SATDK MAXSMC REFSMC WLTSMC QTZ ' -1.07E-6, 0.339, 0.236, 0.010, 0.92, 'SAND' -1.41E-5, 0.421, 0.383, 0.028, 0.82, 'LOAMY SAND' -5.23E-6, 0.434, 0.383, 0.047, 0.60, 'SANDY LOAM' +4.66E-5, 0.339, 0.192, 0.010, 0.92, 'SAND' +1.41E-5, 0.421, 0.283, 0.028, 0.82, 'LOAMY SAND' +5.23E-6, 0.434, 0.312, 0.047, 0.60, 'SANDY LOAM' 2.81E-6, 0.476, 0.360, 0.084, 0.25, 'SILT LOAM' -2.81E-6, 0.476, 0.383, 0.084, 0.10, 'SILT' +2.18E-6, 0.484, 0.347, 0.061, 0.10, 'SILT' 3.38E-6, 0.439, 0.329, 0.066, 0.40, 'LOAM' -4.45E-6, 0.404, 0.314, 0.067, 0.60, 'SANDY CLAY LOAM' -2.04E-6, 0.464, 0.387, 0.120, 0.10, 'SILTY CLAY LOAM' +4.45E-6, 0.404, 0.315, 0.069, 0.60, 'SANDY CLAY LOAM' +2.03E-6, 0.464, 0.387, 0.120, 0.10, 'SILTY CLAY LOAM' 2.45E-6, 0.465, 0.382, 0.103, 0.35, 'CLAY LOAM' 7.22E-6, 0.406, 0.338, 0.100, 0.52, 'SANDY CLAY' 1.34E-6, 0.468, 0.404, 0.126, 0.10, 'SILTY CLAY' @@ -47,4 +48,4 @@ SATDK MAXSMC REFSMC WLTSMC QTZ ' 1.41E-5, 0.421, 0.283, 0.028, 0.25, 'OTHER(land-ice)' 9.74E-7, 0.468, 0.454, 0.030, 0.60, 'PLAYA' 1.41E-4, 0.200, 0.170, 0.006, 0.52, 'LAVA' -1.07E-6, 0.339, 0.236, 0.01, 0.92, 'WHITE SAND' +4.66E-5, 0.339, 0.192, 0.010, 0.92, 'WHITE SAND' diff --git a/hydro/template/HYDRO/HYDRO_MODIS.TBL b/hydro/template/HYDRO/HYDRO_MODIS.TBL new file mode 100644 index 0000000000..1b8eac65f9 --- /dev/null +++ b/hydro/template/HYDRO/HYDRO_MODIS.TBL @@ -0,0 +1,43 @@ + 20 MODIS for OV_ROUGH + SFC_ROUGH' + 0.200, 'Evergreen Needleleaf Forest' + 0.200, 'Evergreen Broadleaf Forest' + 0.200, 'Deciduous Needleleaf Forest' + 0.200, 'Deciduous Broadleaf Forest' + 0.200, 'Mixed Forest' + 0.055, 'Shrubland' + 0.055, 'Mixed Shrubland/Grassland' + 0.055, 'Shrubland' + 0.055, 'Savanna' + 0.055, 'Grassland' + 0.070, 'Herbaceous Wetland' + 0.035, 'Dryland Cropland and Pasture' + 0.025, 'Urban and Built-Up Land' + 0.035, 'Cropland/Grassland Mosaic' + 0.010, 'Snow or Ice' + 0.035, 'Barren or Sparsely Vegetated' + 0.005, 'Water Bodies' + 0.055, 'Wooded Tundra' + 0.055, 'Mixed Tundra' + 0.055, 'Bare Ground Tundra' +19, for SATDK +SATDK MAXSMC REFSMC WLTSMC QTZ ' +4.66E-5, 0.339, 0.192, 0.010, 0.92, 'SAND' +1.41E-5, 0.421, 0.283, 0.028, 0.82, 'LOAMY SAND' +5.23E-6, 0.434, 0.312, 0.047, 0.60, 'SANDY LOAM' +2.81E-6, 0.476, 0.360, 0.084, 0.25, 'SILT LOAM' +2.18E-6, 0.484, 0.347, 0.061, 0.10, 'SILT' +3.38E-6, 0.439, 0.329, 0.066, 0.40, 'LOAM' +4.45E-6, 0.404, 0.315, 0.069, 0.60, 'SANDY CLAY LOAM' +2.03E-6, 0.464, 0.387, 0.120, 0.10, 'SILTY CLAY LOAM' +2.45E-6, 0.465, 0.382, 0.103, 0.35, 'CLAY LOAM' +7.22E-6, 0.406, 0.338, 0.100, 0.52, 'SANDY CLAY' +1.34E-6, 0.468, 0.404, 0.126, 0.10, 'SILTY CLAY' +9.74E-7, 0.468, 0.412, 0.138, 0.25, 'CLAY' +3.38E-6, 0.439, 0.329, 0.066, 0.05, 'ORGANIC MATERIAL' + 0.0, 1.0, 0.0, 0.0, 0.60, 'WATER' +1.41E-4, 0.20, 0.170, 0.006, 0.07, 'BEDROCK' +1.41E-5, 0.421, 0.283, 0.028, 0.25, 'OTHER(land-ice)' +9.74E-7, 0.468, 0.454, 0.030, 0.60, 'PLAYA' +1.41E-4, 0.200, 0.170, 0.006, 0.52, 'LAVA' +4.66E-5, 0.339, 0.192, 0.010, 0.92, 'WHITE SAND' diff --git a/hydro/template/HYDRO/hydro.namelist b/hydro/template/HYDRO/hydro.namelist index 0ac93c5772..0fecf902df 100644 --- a/hydro/template/HYDRO/hydro.namelist +++ b/hydro/template/HYDRO/hydro.namelist @@ -1,142 +1,223 @@ &HYDRO_nlist +!!!! ---------------------- SYSTEM COUPLING ----------------------- !!!! -!!!! SYSTEM COUPLING !!!! -!Specify what is being coupled: 1=HRLDAS (offline Noah-LSM), 2=WRF, 3=NASA/LIS, 4=CLM - sys_cpl = 1 +! Specify what is being coupled: 1=HRLDAS (offline Noah-LSM), 2=WRF, 3=NASA/LIS, 4=CLM +sys_cpl = 1 -!!!! MODEL INPUT DATA FILES !!! -!Specify land surface model gridded input data file...(e.g.: "geo_em.d03.nc") - GEO_STATIC_FLNM = "../DOMAIN/geo_em.d03.nc" +!!!! ------------------- MODEL INPUT DATA FILES ------------------- !!!! -!Specify the high-resolution routing terrain input data file...(e.g.: "Fulldom_hires_hydrofile.nc" - GEO_FINEGRID_FLNM = "../DOMAIN/Fulldom_hires_netcdf_file.nc" +! Specify land surface model gridded input data file (e.g.: "geo_em.d01.nc") +GEO_STATIC_FLNM = "./DOMAIN/geo_em.d01.nc" -!Specify the name of the restart file if starting from restart...comment out with '!' if not... - RESTART_FILE = 'HYDRO_RST.2013-09-12_04:00_DOMAIN3' +! Specify the high-resolution routing terrain input data file (e.g.: "Fulldom_hires.nc") +GEO_FINEGRID_FLNM = "./DOMAIN/Fulldom_hires.nc" -!!!! MODEL SETUP AND I/O CONTROL !!!! -!Specify the domain or nest number identifier...(integer) - IGRID = 3 +! Specify the spatial hydro parameters file (e.g.: "hydro2dtbl.nc") +! If you specify a filename and the file does not exist, it will be created for you. +HYDROTBL_F = "./DOMAIN/hydro2dtbl.nc" -!Specify the restart file write frequency...(minutes) - rst_dt = 120 -! rst_dt = 1440 +! Specify spatial metadata file for land surface grid. (e.g.: "GEOGRID_LDASOUT_Spatial_Metadata.nc") +LAND_SPATIAL_META_FLNM = "./DOMAIN/GEOGRID_LDASOUT_Spatial_Metadata.nc" -!Specify the output file write frequency...(minutes) - out_dt = 60 ! minutes +! Specify the name of the restart file if starting from restart...comment out with '!' if not... +RESTART_FILE = 'HYDRO_RST.2013-09-12_04:00_DOMAIN3' -!Specify the number of output times to be contained within each output history file...(integer) -! SET = 1 WHEN RUNNING CHANNEL ROUTING ONLY/CALIBRATION SIMS!!! -! SET = 1 WHEN RUNNING COUPLED TO WRF!!! - SPLIT_OUTPUT_COUNT = 1 - -! rst_typ = 1 : overwrite the soil variables from routing restart file. - rst_typ = 1 - -!Output netcdf file control - CHRTOUT_DOMAIN = 1 ! 0: nooutput. 1: Netcdf point timeseries output at all channel points - ! 2 : for fast output of stream flow variable. - CHRTOUT_GRID = 1 ! Netcdf grid of channel streamflow values - LSMOUT_DOMAIN = 0 ! Netcdf grid of variables passed between LSM and routing components - RTOUT_DOMAIN = 0 ! Netcdf grid of terrain routing variables on routing grid - output_gw = 0 ! Netcdf grid of GW - outlake = 0 ! Netcdf grid of lake - !0: no output. 1: point netcdf. 2: for fast output. - - rst_bi_in = 1 !0: use netcdf restart file. - !1: use parallel io for reading multiple restart files by each core. - rst_bi_out = 1 !0: use netcdf restart file. - !1: use parallel io for output multiple restart files. - - - -!Restart switch to set restart accumulation variables = 0 (0-no reset, 1-yes reset to 0.0) - RSTRT_SWC = 0 - -!Specify the minimum stream order to output to netcdf point file...(integer) -!Note: lower value of stream order produces more output. - order_to_write = 4 - -!!!! PHYSICS OPTIONS AND RELATED SETTINGS !!!! -!Switch for terrain adjustment of incoming solar radiation: 0=no, 1=yes -!Note: This option is not yet active in Verion 1.0... -! WRF has this capability so be careful not to double apply the correction!!! - TERADJ_SOLAR = 0 - -!Specify the number of soil layers (integer) and the depth of the bottom of each layer (meters)... -! Notes: In Version 1 of WRF-Hydro these must be the same as in the namelist.input file -! Future versions will permit this to be different. - NSOIL=4 - ZSOIL8(1) = -0.10 - ZSOIL8(2) = -0.40 - ZSOIL8(3) = -1.00 - ZSOIL8(4) = -2.00 - -!Specify the grid spacing of the terrain routing grid...(meters) - DXRT = 100.0 +!!!! --------------------- MODEL SETUP OPTIONS -------------------- !!!! -!Specify the integer multiple between the land model grid and the terrain routing grid...(integer) - AGGFACTRT = 10 +! Specify the domain or nest number identifier...(integer) +IGRID = 1 -!Specify the routing model timestep...(seconds) - DTRT_CH = 60 - DTRT_TER = 10 +! Specify the restart file write frequency...(minutes) +! A value of -99999 will output restarts on the first day of the month only. +rst_dt = 120 -!Switch activate subsurface routing...(0=no, 1=yes) - SUBRTSWCRT = 1 +! Reset the LSM soil states from the high-res routing restart file (1=overwrite, 0=no overwrite) +! NOTE: Only turn this option on if overland or subsurface rotuing is active! +rst_typ = 1 -!Switch activate surface overland flow routing...(0=no, 1=yes) - OVRTSWCRT = 1 -!Sspecify overland flow routing Routing Option: 1=Seepest Descent(D8) 2=CASC2D - rt_option = 1 +! Restart file format control +rst_bi_in = 0 !0: use netcdf input restart file (default) + !1: use parallel io for reading multiple restart files, 1 per core +rst_bi_out = 0 !0: use netcdf output restart file (default) + !1: use parallel io for outputting multiple restart files, 1 per core -!Switch to activate channel routing: - CHANRTSWCRT = 1 -!Specify channel routing option: 1=Muskingam-reach, 2=Musk.-Cunge-reach, 3=Diff.Wave-gridded, 4=Rapid routing. - channel_option = 2 +! Restart switch to set restart accumulation variables to 0 (0=no reset, 1=yes reset to 0.0) +RSTRT_SWC = 0 -!Specify the reach file for reach-based routing options... - ! route_link_f = "../DOMAIN/Route_Link.bak.csv" - ! route_link_f = "../DOMAIN/Route_Link.csv" - route_link_f = "DOMAIN/Route_Link_2.nc" +! Specify baseflow/bucket model initialization...(0=cold start from table, 1=restart file) +GW_RESTART = 1 -! simulated LAKE PARAM files, it will looking for LAKEPARM.TBL if this line has been commented. -route_lake_f = "../DOMAIN/LAKEPARM.nc" +!!!! -------------------- MODEL OUTPUT CONTROL -------------------- !!!! -!Switch to activate baseflow bucket model...(0=none, 1=exp. bucket, 2=pass-through) - GWBASESWCRT = 1 +! Specify the output file write frequency...(minutes) +out_dt = 60 -!Specify baseflow/bucket model initialization...(0=cold start from table, 1=restart file) - GW_RESTART = 1 - -!Groundwater/baseflow mask specified on land surface model grid... -!Note: Only required if baseflow bucket model is active - gwbasmskfil = "../DOMAIN/gw_basns_geogrid.txt" - GWBUCKPARM_file = "DOMAIN/GWBUCKPARM_NHD.nc" - -! Realtime IOC run configuration option: 0=diagnostic, 1=analysis, 2=short-range, 3=medium-range, 4=long-range -iocflag=1 - -! User defined mapping, such NHDPlus -!0: deafult none. 1: yes -UDMP_OPT = 1 -udmap_file = "DOMAIN/spatialweights_geo_em.d02._100m_fixedj.nc" +! Specify the number of output times to be contained within each output history file...(integer) +! SET = 1 WHEN RUNNING CHANNEL ROUTING ONLY/CALIBRATION SIMS!!! +! SET = 1 WHEN RUNNING COUPLED TO WRF!!! +SPLIT_OUTPUT_COUNT = 1 + +! Specify the minimum stream order to output to netcdf point file...(integer) +! Note: lower value of stream order produces more output. +order_to_write = 4 + +! Flag to turn on/off new I/O routines: 0 = deprecated output routines (use when running with Noah LSM), +! 1 = with scale/offset/compression, ! 2 = with scale/offset/NO compression, +! 3 = compression only, 4 = no scale/offset/compression (default) +io_form_outputs = 1 + +! Realtime run configuration option: +! 0=all (default), 1=analysis, 2=short-range, 3=medium-range, 4=long-range, 5=retrospective, +! 6=diagnostic (includes all of 1-4 outputs combined) +io_config_outputs = 1 + +! Option to write output files at time 0 (restart cold start time): 0=no, 1=yes (default) +t0OutputFlag = 1 + +! Options to output channel & bucket influxes. Only active for UDMP_OPT=1. +! Nonzero choice requires that out_dt above matches NOAH_TIMESTEP in namelist.hrldas. +! 0=None (default), 1=channel influxes (qSfcLatRunoff, qBucket) +! 2=channel+bucket fluxes (qSfcLatRunoff, qBucket, qBtmVertRunoff_toBucket) +! 3=channel accumulations (accSfcLatRunoff, accBucket) *** NOT TESTED *** +output_channelBucket_influx = 0 + +! Output netcdf file control +CHRTOUT_DOMAIN = 1 ! Netcdf point timeseries output at all channel points (1d) + ! 0 = no output, 1 = output +CHANOBS_DOMAIN = 0 ! Netcdf point timeseries at forecast points or gage points (defined in Routelink) + ! 0 = no output, 1 = output at forecast points or gage points. +CHRTOUT_GRID = 0 ! Netcdf grid of channel streamflow values (2d) + ! 0 = no output, 1 = output + ! NOTE: Not available with reach-based routing +LSMOUT_DOMAIN = 0 ! Netcdf grid of variables passed between LSM and routing components (2d) + ! 0 = no output, 1 = output + ! NOTE: No scale_factor/add_offset available +RTOUT_DOMAIN = 1 ! Netcdf grid of terrain routing variables on routing grid (2d) + ! 0 = no output, 1 = output +output_gw = 1 ! Netcdf GW output + ! 0 = no output, 1 = output +outlake = 1 ! Netcdf grid of lake values (1d) + ! 0 = no output, 1 = output +frxst_pts_out = 0 ! ASCII text file of forecast points or gage points (defined in Routelink) + ! 0 = no output, 1 = output + +!!!! ------------ PHYSICS OPTIONS AND RELATED SETTINGS ------------ !!!! + +! Specify the number of soil layers (integer) and the depth of the bottom of each layer... (meters) +! Notes: In Version 1 of WRF-Hydro these must be the same as in the namelist.input file. +! Future versions will permit this to be different. +NSOIL=4 +ZSOIL8(1) = -0.10 +ZSOIL8(2) = -0.40 +ZSOIL8(3) = -1.00 +ZSOIL8(4) = -2.00 + +! Specify the grid spacing of the terrain routing grid...(meters) +DXRT = 100.0 + +! Specify the integer multiple between the land model grid and the terrain routing grid...(integer) +AGGFACTRT = 10 + +! Specify the channel routing model timestep...(seconds) +DTRT_CH = 10 + +! Specify the terrain routing model timestep...(seconds) +DTRT_TER = 10 + +! Switch to activate subsurface routing...(0=no, 1=yes) +SUBRTSWCRT = 1 + +! Switch to activate surface overland flow routing...(0=no, 1=yes) +OVRTSWCRT = 1 + +! Specify overland flow routing option: 1=Seepest Descent (D8) 2=CASC2D (not active) +! NOTE: Currently subsurface flow is only steepest descent +rt_option = 1 + +! Switch to activate channel routing...(0=no, 1=yes) +CHANRTSWCRT = 1 + +! Specify channel routing option: 1=Muskingam-reach, 2=Musk.-Cunge-reach, 3=Diff.Wave-gridded +channel_option = 3 + +! Specify the reach file for reach-based routing options (e.g.: "Route_Link.nc") +!route_link_f = "./DOMAIN/Route_Link.nc" + +! Specify the lake parameter file (e.g.: "LAKEPARM.nc"). +! Note REQUIRED if lakes are on. +route_lake_f = "./DOMAIN/LAKEPARM.nc" + +! Switch to activate baseflow bucket model...(0=none, 1=exp. bucket, 2=pass-through) +GWBASESWCRT = 1 + +! Groundwater/baseflow 2d mask specified on land surface model grid (e.g.: "GWBASINS.nc") +!Note: Only required if baseflow model is active (1 or 2) and UDMP_OPT=0. +gwbasmskfil = "./DOMAIN/GWBASINS.nc" + +! Groundwater bucket parameter file (e.g.: "GWBUCKPARM.nc") +GWBUCKPARM_file = "./DOMAIN/GWBUCKPARM.nc" + +! User defined mapping, such NHDPlus: 0=no (default), 1=yes +UDMP_OPT = 0 + +! If on, specify the user-defined mapping file (e.g.: "spatialweights.nc") +!udmap_file = "./DOMAIN/spatialweights.nc" / &NUDGING_nlist +! Path to the "timeslice" observation files. +timeSlicePath = "./nudgingTimeSliceObs/" + nudgingParamFile = "DOMAIN/nudgingParams.nc" -netwkReExFile = "DOMAIN/netwkReExFile.nc" + +! Nudging restart file = "nudgingLastObsFile" +! nudgingLastObsFile defaults to '', which will look for nudgingLastObs.YYYY-mm-dd_HH:MM:SS.nc +! **AT THE INITALIZATION TIME OF THE RUN**. Set to a missing file to use no restart. +!nudgingLastObsFile = '/a/nonexistent/file/gives/nudging/cold/start' !! Parallel input of nudging timeslice observation files? readTimesliceParallel = .TRUE. ! temporalPersistence defaults to true, only runs if necessary params present. -temporalPersistence = .FALSE. - -! nudgingLastObsFile defaults to '', which will look for nudgingLastObs.YYYY-mm-dd_HH:MM:SS.nc -! **AT THE INITALIZATION TIME OF THE RUN**. Set to a missing file to use no restart. -nudgingLastObsFile = 'notAFile.junk' +temporalPersistence = .FALSE. + +! The total number of last (obs, modeled) pairs to save in nudgingLastObs for +! removal of bias. This is the maximum array length. (This option is active when persistBias=FALSE) +! (Default=960=10days @15min obs resolution, if all the obs are present and longer if not.) +nLastObs = 960 + +! If using temporalPersistence the last observation persists by default. +! This option instead persists the bias after the last observation. +persistBias = .FALSE. + +! AnA (FALSE) vs Forecast (TRUE) bias persistence. +! If persistBias: Does the window for calculating the bias end at +! model init time (=t0)? +! FALSE = window ends at model time (moving), +! TRUE = window ends at init=t0(fcst) time. +! (If commented out, Default=FALSE) +! Note: Perfect restart tests require this option to be .FALSE. +biasWindowBeforeT0 = .FALSE. + +! If persistBias: Only use this many last (obs, modeled) pairs. (If Commented out, Default=-1*nLastObs) +! > 0: apply an age-based filter, units=hours. +! = 0: apply no additional filter, use all available/usable obs. +! < 0: apply an count-based filter, units=count +maxAgePairsBiasPersist = -960 + +! If persistBias: The minimum number of last (obs, modeled) pairs, with age less than +! maxAgePairsBiasPersist, required to apply a bias correction. (default=8) +minNumPairsBiasPersist = 8 + +! If persistBias: give more weight to observations closer in time? (default=FALSE) +invDistTimeWeightBias = .TRUE. + +! If persistBias: "No constructive interference in bias correction?", Reduce the bias adjustment +! when the model and the bias adjustment have the same sign relative to the modeled flow at t0? +! (default=FALSE) +! Note: Perfect restart tests require this option to be .FALSE. +noConstInterfBias = .FALSE. / diff --git a/hydro/template/Noah/namelist.hrldas b/hydro/template/Noah/namelist.hrldas new file mode 100644 index 0000000000..079058a5e6 --- /dev/null +++ b/hydro/template/Noah/namelist.hrldas @@ -0,0 +1,51 @@ +&NOAHLSM_OFFLINE + + HRLDAS_CONSTANTS_FILE = "wrfinput_d01" + INDIR = "./FORCING" + OUTDIR = "." + + START_YEAR = 2013 + START_MONTH = 09 + START_DAY = 11 + START_HOUR = 00 + START_MIN = 00 + + RESTART_FILENAME_REQUESTED = 'RESTART.2013091100_DOMAIN1' + + ! Specification of simulation length in days OR hours + KDAY = 1440 + ! KHOUR = 1 + + ! Timesteps in units of seconds + FORCING_TIMESTEP = 3600 + NOAH_TIMESTEP = 60 + OUTPUT_TIMESTEP = 3600 + + ! Land surface model restart file write frequency + RESTART_FREQUENCY_HOURS = 6 + + ! Split output after split_output_count output times. + SPLIT_OUTPUT_COUNT = 1 + + ! Soil layer specification + NSOIL=4 + ZSOIL(1) = -0.10 + ZSOIL(2) = -0.40 + ZSOIL(3) = -1.00 + ZSOIL(4) = -2.00 + + ! Forcing data measurement heights + ZLVL = 2.0 ! for temp and humidity + ZLVL_WIND = 10.0 ! for wind variables + + IZ0TLND = 0 + SFCDIF_OPTION = 0 + UPDATE_SNOW_FROM_FORCING = .FALSE. + + ! Specification of forcing data: 1=HRLDAS-hr format, 2=HRLDAS-min format, + ! 3=WRF, 4=Idealized, 5=Ideal w/ Spec.Precip., + ! 6=HRLDAS-hr format w/ Spec. Precip, + ! 7=WRF w/Spec. Precip + FORC_TYP = 3 + +/ diff --git a/hydro/template/NoahMP/namelist.hrldas b/hydro/template/NoahMP/namelist.hrldas new file mode 100644 index 0000000000..e9d96e4477 --- /dev/null +++ b/hydro/template/NoahMP/namelist.hrldas @@ -0,0 +1,72 @@ +&NOAHLSM_OFFLINE + + HRLDAS_SETUP_FILE = "./DOMAIN/wrfinput_d01.nc" + INDIR = "./FORCING" + SPATIAL_FILENAME = "./DOMAIN/soil_properties.nc" + OUTDIR = "./" + + START_YEAR = 2013 + START_MONTH = 09 + START_DAY = 12 + START_HOUR = 04 + START_MIN = 00 + + RESTART_FILENAME_REQUESTED = "RESTART.2013091204_DOMAIN1" + + ! Specification of simulation length in days OR hours + KDAY = 1 + ! KHOUR = 8 + + ! Physics options (see the documentation for details) + DYNAMIC_VEG_OPTION = 4 + CANOPY_STOMATAL_RESISTANCE_OPTION = 1 + BTR_OPTION = 1 + RUNOFF_OPTION = 3 + SURFACE_DRAG_OPTION = 1 + FROZEN_SOIL_OPTION = 1 + SUPERCOOLED_WATER_OPTION = 1 + RADIATIVE_TRANSFER_OPTION = 3 + SNOW_ALBEDO_OPTION = 2 + PCP_PARTITION_OPTION = 1 + TBOT_OPTION = 2 + TEMP_TIME_SCHEME_OPTION = 3 + GLACIER_OPTION = 2 + SURFACE_RESISTANCE_OPTION = 4 + + ! Timesteps in units of seconds + FORCING_TIMESTEP = 3600 + NOAH_TIMESTEP = 3600 + OUTPUT_TIMESTEP = 3600 + + ! Land surface model restart file write frequency + RESTART_FREQUENCY_HOURS = 2 + + ! Split output after split_output_count output times. + SPLIT_OUTPUT_COUNT = 1 + + ! Soil layer specification + NSOIL=4 + soil_thick_input(1) = 0.10 + soil_thick_input(2) = 0.30 + soil_thick_input(3) = 0.60 + soil_thick_input(4) = 1.00 + + ! Forcing data measurement height for winds, temp, humidity + ZLVL = 10.0 + + ! Restart file format options + rst_bi_in = 0 !0: use netcdf input restart file + !1: use parallel io for reading multiple restart files (1 per core) + rst_bi_out = 0 !0: use netcdf output restart file + !1: use parallel io for outputting multiple restart files (1 per core) +/ + +&WRF_HYDRO_OFFLINE + + ! Specification of forcing data: 1=HRLDAS-hr format, 2=HRLDAS-min format, 3=WRF, + ! 4=Idealized, 5=Ideal w/ spec. precip, + ! 6=HRLDAS-hr format w/ spec. precip, + ! 7=WRF w/ spec. precip + FORC_TYP = 1 + +/ diff --git a/hydro/template/setEnvar.sh b/hydro/template/setEnvar.sh new file mode 100755 index 0000000000..5cf91afdd6 --- /dev/null +++ b/hydro/template/setEnvar.sh @@ -0,0 +1,24 @@ +#!/bin/bash + +# WRF-Hydro compile time options + +# This is a WRF environment variable. Always set to 1=On for compiling WRF-Hydro. +export WRF_HYDRO=1 + +# Enhanced diagnostic output for debugging: 0=Off, 1=On. +export HYDRO_D=1 + +# Spatially distributed parameters for NoahMP: 0=Off, 1=On. +export SPATIAL_SOIL=0 + +# RAPID model: 0=Off, 1=On. +export WRF_HYDRO_RAPID=0 + +# Large netcdf file support: 0=Off, 1=On. +export WRFIO_NCD_LARGE_FILE_SUPPORT=1 + +# WCOSS file units: 0=Off, 1=On. +export NCEP_WCOSS=0 + +# Streamflow nudging: 0=Off, 1=On. +export WRF_HYDRO_NUDGING=0 diff --git a/hydro/wrf_hydro_config b/hydro/wrf_hydro_config index 4754832466..4e0e8becb7 100755 --- a/hydro/wrf_hydro_config +++ b/hydro/wrf_hydro_config @@ -10,19 +10,35 @@ if($#ARGV ne 1) { print("Configure option for Hydro : $x $paropt \n"); if($x =~ "pgi") { - if($paropt eq 'serial') { system("./configure 1");} - else {system("./configure 2");} + if($paropt eq 'serial') { + # system("./configure 1"); + print "Error : option not defined in WRF-Hyro. \n"; + exit(1); + } + else {system("./configure 1"); exit(0);} } if($x =~ "aix") { + print "Error : option not defined. \n"; + exit(1); if($paropt eq 'serial') { system("./configure 3");} else {system("./configure 4");} } if($x =~ "gfortran") { - if($paropt eq 'serial') { system("./configure 5");} - else {system("./configure 6");} + if($paropt eq 'serial') { + # system("./configure 5"); + print "Error : option not defined in WRF-Hyro. \n"; + exit(1); + } + else {system("./configure 2"); exit(0);} } if($x =~ "ifort") { - if($paropt eq 'serial') { system("./configure 7");} - else {system("./configure 8");} + if($paropt eq 'serial') { + #system("./configure 7"); + print "Error : option not defined. \n"; + exit(1); + } + else {system("./configure 3"); exit(0);} } + print "Error : option not defined. \n"; + exit(1); diff --git a/inc/version_decl b/inc/version_decl index 7d767c57ee..3e532ebc2f 100644 --- a/inc/version_decl +++ b/inc/version_decl @@ -1 +1 @@ - CHARACTER (LEN=10) :: release_version = 'V4.0.3 ' + CHARACTER (LEN=10) :: release_version = 'V4.1 ' diff --git a/main/depend.common b/main/depend.common index 9bd2621aa6..7a2120a9df 100644 --- a/main/depend.common +++ b/main/depend.common @@ -248,6 +248,8 @@ module_shcu_camuwshcu.o: module_cam_support.o \ module_cam_physconst.o \ module_bl_camuwpbl_driver.o +module_shcu_deng.o: + module_cu_camzm_driver.o: ../share/module_model_constants.o \ module_cam_shr_kind_mod.o \ module_cam_support.o \ @@ -418,8 +420,6 @@ module_cam_mp_radconstants.o : module_cam_shr_kind_mod.o \ module_cam_support.o module_cam_infnan.o: module_cam_shr_kind_mod.o -module_ra_goddard.o : ../frame/module_wrf_error.o - module_mp_gsfcgce.o : ../frame/module_wrf_error.o \ module_mp_radar.o @@ -460,7 +460,8 @@ module_sf_noahmpdrv.o: module_sf_noahmplsm.o \ module_sf_noahmp_glacier.o \ module_sf_noahmp_groundwater.o \ module_sf_gecros.o \ - ../share/module_model_constants.o + ../share/module_model_constants.o \ + module_sf_urban.o module_sf_bep.o module_sf_bep_bem.o module_sf_noahlsm_glacial_only.o: module_sf_noahlsm.o module_sf_noahmplsm.o @@ -500,7 +501,6 @@ module_physics_addtendc.o: \ ../frame/module_state_description.o \ ../frame/module_configure.o - module_physics_init.o : \ module_ra_rrtm.o \ module_ra_rrtmg_lwf.o \ @@ -565,6 +565,7 @@ module_physics_init.o : \ module_cu_camzm_driver.o \ module_cu_kfcup.o \ module_shcu_camuwshcu.o \ + module_shcu_deng.o \ module_shcu_grims.o \ module_mp_sbu_ylin.o \ module_mp_wsm3.o \ @@ -578,6 +579,7 @@ module_physics_init.o : \ module_fddaobs_rtfdda.o \ module_mp_thompson.o \ module_mp_gsfcgce.o \ + module_mp_gsfcgce_4ice_nuwrf.o \ module_mp_morr_two_moment.o \ module_mp_milbrandt2mom.o \ module_mp_nssl_2mom.o \ @@ -591,6 +593,8 @@ module_physics_init.o : \ module_cam_mp_modal_aero_initialize_data_phys.o \ module_cam_support.o \ module_wind_fitch.o \ + module_gocart_coupling.o \ + module_data_gocart_dust.o \ ../frame/module_state_description.o \ ../frame/module_configure.o \ ../frame/module_wrf_error.o \ @@ -607,6 +611,7 @@ module_microphysics_driver.o: \ module_mp_fer_hires.o module_mp_HWRF.o \ module_mp_thompson.o \ module_mp_gsfcgce.o \ + module_mp_gsfcgce_4ice_nuwrf.o \ module_mp_morr_two_moment.o \ module_mp_morr_two_moment_aero.o \ module_mp_milbrandt2mom.o \ @@ -617,10 +622,13 @@ module_microphysics_driver.o: \ ../frame/module_state_description.o \ ../frame/module_wrf_error.o \ ../frame/module_configure.o \ + ../frame/module_comm_dm.o \ + ../frame/module_dm.o \ ../share/module_model_constants.o module_shallowcu_driver.o: \ module_shcu_camuwshcu_driver.o \ + module_shcu_deng.o \ ../frame/module_state_description.o \ ../share/module_model_constants.o @@ -786,7 +794,7 @@ module_diag_afwa.o: \ ../frame/module_configure.o \ ../frame/module_streams.o \ ../external/esmf_time_f90/module_utility.o \ - ../share/module_model_constants.o + ../share/module_model_constants.o module_diag_hailcast.o: \ ../frame/module_configure.o \ @@ -911,6 +919,17 @@ module_ltng_iccg.o : module_ra_aerosol.o :\ ../frame/module_wrf_error.o +module_gocart_coupling.o: + +module_ra_goddard.o : ../frame/module_wrf_error.o \ + module_gocart_coupling.o \ + module_checkerror.o + +module_mp_gsfcgce_4ice_nuwrf.o : ../frame/module_wrf_error.o \ + module_gocart_coupling.o \ + module_checkerror.o \ + module_mp_radar.o + # End of DEPENDENCIES for phys @@ -927,6 +946,8 @@ module_trajectory.o: ../frame/module_domain.o \ solve_interface.o: solve_em.int ../frame/module_domain.o ../frame/module_configure.o \ ../frame/module_timing.o ../frame/module_driver_constants.o \ + ../frame/module_wrf_error.o \ + ../frame/module_state_description.o ../phys/module_checkerror.o \ ../frame/module_wrf_error.o module_trajectory.o start_domain.o: start_domain_em.int wrf_timeseries.o track_driver.o ../frame/module_domain.o ../frame/module_configure.o ../share/module_llxy.o @@ -961,6 +982,8 @@ wrf_fddaobs_in.o: \ wrf_timeseries.o: wrf_tsin.o \ module_model_constants.o \ module_llxy.o \ + module_model_constants.o \ + module_string_tools.o \ ../frame/module_domain.o \ ../frame/module_configure.o \ ../frame/module_dm.o diff --git a/phys/Makefile b/phys/Makefile index 8fc05e4524..98b7675325 100644 --- a/phys/Makefile +++ b/phys/Makefile @@ -45,10 +45,12 @@ MODULES = \ module_bl_gwdo.o \ module_bl_myjurb.o \ module_bl_boulac.o \ + module_checkerror.o \ module_bl_camuwpbl_driver.o \ module_bl_mfshconvpbl.o \ module_shcu_camuwshcu_driver.o \ module_shcu_camuwshcu.o \ + module_shcu_deng.o \ module_shcu_grims.o \ module_shcu_nscv.o \ module_cu_camzm_driver.o \ @@ -69,6 +71,7 @@ MODULES = \ module_cu_ksas.o \ module_cu_nsas.o \ module_cu_sas.o \ + module_gocart_coupling.o \ module_cu_scalesas.o \ module_cu_osas.o \ module_cu_kfcup.o \ @@ -79,6 +82,7 @@ MODULES = \ module_mp_wsm3.o \ module_mp_wsm5.o \ module_mp_wsm6.o \ + module_mp_wsm7.o \ module_mp_etanew.o \ module_mp_fer_hires.o \ module_mp_HWRF.o \ @@ -87,13 +91,16 @@ MODULES = \ module_mp_fast_sbm.o \ module_ltng_lpi.o \ module_mp_gsfcgce.o \ + module_mp_gsfcgce_4ice_nuwrf.o \ module_mp_morr_two_moment.o \ module_mp_p3.o \ + module_mp_jensen_ishmael.o \ module_mp_morr_two_moment_aero.o \ module_mp_milbrandt2mom.o \ module_mp_nssl_2mom.o \ module_mp_wdm5.o \ module_mp_wdm6.o \ + module_mp_wdm7.o \ module_mp_cammgmp_driver.o \ module_ra_sw.o \ module_ra_clWRF_support.o \ @@ -192,7 +199,7 @@ FIRE_MODULES = \ module_fr_fire_core.o \ module_fr_fire_phys.o \ module_fr_fire_util.o - + DIAGNOSTIC_MODULES_EM = \ module_diag_afwa.o \ module_diag_cl.o \ diff --git a/phys/module_bl_gfsedmf.F b/phys/module_bl_gfsedmf.F index 3c9cf2c1f0..08f475a313 100755 --- a/phys/module_bl_gfsedmf.F +++ b/phys/module_bl_gfsedmf.F @@ -22,6 +22,9 @@ SUBROUTINE BL_GFSEDMF(U3D,V3D,TH3D,T3D,QV3D,QC3D,QI3D,P3D,PI3D, & U10,V10,ZNT, & DKU3D,DKT3D, & VAR_RIC,coef_ric_l,coef_ric_s,alpha,xland, & +#if (HWRF==1) + pert_pbl, ens_random_seed, ens_pblamp, & +#endif ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte ) @@ -111,6 +114,11 @@ SUBROUTINE BL_GFSEDMF(U3D,V3D,TH3D,T3D,QV3D,QC3D,QI3D,P3D,PI3D, & HEAT2D !ADDED BY KWON FOR SHALLOW CONV. +#if (HWRF==1) + integer,intent(in) :: ens_random_seed + real,intent(in) :: ens_pblamp + logical,intent(in) :: pert_pbl +#endif !wang REAL, DIMENSION(ims:ime, jms:jme), INTENT(IN) :: & U10, & @@ -373,6 +381,9 @@ SUBROUTINE BL_GFSEDMF(U3D,V3D,TH3D,T3D,QV3D,QC3D,QI3D,P3D,PI3D, & & prsi,del,prsl,prslk,phii,phil,deltim,disheat, & & dusfc,dvsfc,dtsfc,dqsfc,hpbl,hgamt,hgamq,dkt,dku, & & kinver,xkzm_m,xkzm_h,xkzm_s,lprnt,ipr,zol, & +#if (HWRF==1) + pert_pbl, ens_random_seed, ens_pblamp, & +#endif & VAR_RIC,coef_ric_l,coef_ric_s,alpha,xland1) @@ -537,6 +548,9 @@ subroutine moninedmf(ix,im,km,ntrac,ntcw,dv,du,tau,rtg, & & prsi,del,prsl,prslk,phii,phil,delt,dspheat, & & dusfc,dvsfc,dtsfc,dqsfc,hpbl,hgamt,hgamq,dkt,dku, & & kinver,xkzm_m,xkzm_h,xkzm_s,lprnt,ipr,zol, & +#if (HWRF==1) + pert_pbl, ens_random_seed, ens_pblamp, & +#endif & VAR_RIC,coef_ric_l,coef_ric_s,alpha,xland1) ! USE MODULE_GFS_MACHINE, only : kind_phys @@ -551,6 +565,11 @@ subroutine moninedmf(ix,im,km,ntrac,ntcw,dv,du,tau,rtg, & integer ipr integer ix, im, km, ntrac, ntcw, kpbl(im), kinver(im) ! +#if (HWRF==1) + integer,intent(in) :: ens_random_seed + real,intent(in) :: ens_pblamp + logical,intent(in) :: pert_pbl +#endif real(kind=kind_phys) delt, xkzm_m, xkzm_h, xkzm_s real(kind=kind_phys) dv(im,km), du(im,km), & & tau(im,km), rtg(im,km,ntrac), & @@ -689,6 +708,43 @@ subroutine moninedmf(ix,im,km,ntrac,ntcw,dv,du,tau,rtg, & ! parameter (actei = 0.23) parameter (actei = 0.7) +#if HWRF==1 + real*8 :: ran1 !zhang + real :: rr + logical,save :: pert_pbl_local !zhang + integer,save :: ens_random_seed_local,env_pp_local!zhang + integer :: ensda_physics_pert !zhang + real,save :: ens_pblamp_local !zhang + CHARACTER(len=3) :: env_memb,env_pp + data ens_random_seed_local/0/ + data env_pp_local/0/ + if ( ens_random_seed_local .eq. 0 ) then + CALL nl_get_ensda_physics_pert(1,ensda_physics_pert) + ens_random_seed_local=ens_random_seed + env_pp_local=ensda_physics_pert + pert_pbl_local=.false. + ens_pblamp_local=0.0 +! env_pp=1: do physics perturbations for ensda members, ens_random_seed must be 99 + if ( env_pp_local .eq. 1 ) then + if ( ens_random_seed .ne. 99 ) then + pert_pbl_local=.true. + ens_pblamp_local=ens_pblamp + else +! ens_random_seed=99 do physics perturbation for ensemble forecasts, env_pp must be zero + ens_random_seed_local=ens_random_seed + pert_pbl_local=pert_pbl + ens_pblamp_local=ens_pblamp + endif + else + ens_random_seed_local=ens_random_seed + pert_pbl_local=pert_pbl + ens_pblamp_local=ens_pblamp + endif + print*,"PBL==",ens_random_seed_local,pert_pbl_local,ens_pblamp_local,ensda_physics_pert +! print*, "zhang in pbl= one time ", pert_pbl_local,ens_random_seed_local, ens_pblamp_local + endif +! print*, "zhang in pbl=",pert_pbl_local, ens_random_seed_local, ens_pblamp_local +#endif ! Weiguo Wang added, height-dependent ALPHA ! smax=0.148 @@ -1057,6 +1113,19 @@ subroutine moninedmf(ix,im,km,ntrac,ntcw,dv,du,tau,rtg, & rbint = (crb(i)-rbdn(i))/(rbup(i)-rbdn(i)) endif hpbl(i) = zl(i,k-1) + rbint*(zl(i,k)-zl(i,k-1)) +#if (HWRF==1) +!zhang adding PBL perturtion +!zzz if ( pert_pbl_local .and. ens_random_seed_local .gt. 0 ) then + if ( pert_pbl_local ) then +! print*, "zhang PBL ens_random_seed==", ens_random_seed,ens_random_seed_local + ens_random_seed_local=ran1(-ens_random_seed_local)*1000 + rr=(2.0*ens_pblamp_local*ran1(-ens_random_seed_local)-ens_pblamp_local) +! print*, "zhang PBL aa", rr, ens_pblamp_local,ens_random_seed_local,HPBL(I) + HPBL(I) = HPBL(I)*(1.0+rr) +! print*, "zhang PBL bb", rr, ens_pblamp_local,ens_random_seed_local,HPBL(I) + endif +#endif + if(hpbl(i) < zi(i,kpbl(i))) kpbl(i) = kpbl(i) - 1 if(kpbl(i) <= 1) then ublflg(i) = .false. diff --git a/phys/module_bl_mynn.F b/phys/module_bl_mynn.F index ffe9f45f11..d98837471e 100644 --- a/phys/module_bl_mynn.F +++ b/phys/module_bl_mynn.F @@ -11,7 +11,7 @@ ! 5. cosmetic changes to adhere to WRF standard (remove common blocks, ! intent etc) !------------------------------------------------------------------- -!Modifications primarily from Joseph Olson and Jaymes Kenyon NOAA/GSD/MDB - CU/CIRES +!Modifications implemented by Joseph Olson and Jaymes Kenyon NOAA/GSD/MDB - CU/CIRES ! ! Departures from original MYNN (Nakanish & Niino 2009) ! 1. Addition of BouLac mixing length in the free atmosphere. @@ -35,12 +35,10 @@ ! Added Tripoli and Cotton (1981) correction. ! Added namelist option bl_mynn_cloudmix to test effect of mixing ! cloud species (default = 1: on). -! Added mass-flux option (bl_mynn_edmf, = 1 for StEM, 2 for TEMF). -! This option is off by default (=0). -! Related (hidden) options: +! Added mass-flux option (bl_mynn_edmf, = 1 for DMP mass-flux, 0: off). +! Related options: ! bl_mynn_edmf_mom = 1 : activate momentum transport in MF scheme ! bl_mynn_edmf_tke = 1 : activate TKE transport in MF scheme -! bl_mynn_edmf_part= 1 : activate areal partitioning of ED & MF ! Added mixing length option (bl_mynn_mixlength, see notes below) ! Added more sophisticated saturation checks, following Thompson scheme ! Added new cloud PDF option (bl_mynn_cloudpdf = 2) from Chaboureau @@ -55,7 +53,8 @@ ! Added Stochastic Parameter Perturbation (SPP) implementation. ! Many miscellaneous tweaks to the mixing lengths and stratus ! component of the subgrid clouds. -! v.4.0 Removed or added alternatives for WRF-specific functions/modules +! v.4.0 Removed or added alternatives to WRF-specific functions/modules +! for the sake of portability to other models. ! the sake of portability to other models. ! Further refinement of mass-flux scheme from SCM experiments with ! Wayne Angevine: switch to linear entrainment and back to @@ -67,13 +66,80 @@ ! New tridiagonal solver, which is supposedly 14% faster and more ! conservative. Impact seems very small. ! Many miscellaneous tweaks to the mixing lengths and stratus -! component of the subgrid clouds. -! +! component of the subgrid-scale (SGS) clouds. +! v4.1 Big improvements in downward SW radiation due to revision of subgrid clouds +! - better cloud fraction and subgrid scale mixing ratios. +! - may experience a small cool bias during the daytime now that high +! SW-down bias is greatly reduced... +! Some tweaks to increase the turbulent mixing during the daytime for +! bl_mynn_mixlength option 2 to alleviate cool bias (very small impact). +! Improved ensemble spread from changes to SPP in MYNN +! - now perturbing eddy diffusivity and eddy viscosity directly +! - now perturbing background rh (in SGS cloud calc only) +! - now perturbing entrainment rates in mass-flux scheme +! Added IF checks (within IFDEFS) to protect mixchem code from being used +! when HRRR smoke is used (no impact on regular non-wrf chem use) +! Important bug fix for wrf chem when transporting chemical species in MF scheme +! Removed 2nd mass-flux scheme (no only bl_mynn_edmf = 1, no option 2) +! Removed unused stochastic code for mass-flux scheme +! Changed mass-flux scheme to be integrated on interface levels instead of +! mass levels - impact is small +! Added option to mix 2nd moments in MYNN as opposed to the scalar_pblmix option. +! - activated with bl_mynn_mixscalars = 1; this sets scalar_pblmix = 0 +! - added tridagonal solver used in scalar_pblmix option to duplicate tendencies +! - this alone changes the interface call considerably from v4.0. +! Slight revision to TKE production due to radiation cooling at top of clouds +! Added the non-Guassian buoyancy flux function of Bechtold and Siebesma (1998, JAS). +! - improves TKE in SGS clouds +! Added heating due to dissipation of TKE (small impact, maybe + 0.1 C daytime PBL temp) +! Misc changes made for FV3/MPAS compatibility +! +! Many of these changes are now documented in Olson et al. (2019, +! NOAA Technical Memorandum) +! +! For more explanation of some configuration options, see "JOE's mods" below: !------------------------------------------------------------------- MODULE module_bl_mynn -!For WRF: +!================================================================== +!FV3 CONSTANTS +! use physcons, only : cp => con_cp, & +! & g => con_g, & +! & r_d => con_rd, & +! & r_v => con_rv, & +! & cpv => con_cvap, & +! & cliq => con_cliq, & +! & Cice => con_csol, & +! & rcp => con_rocp, & +! & XLV => con_hvap, & +! & XLF => con_hfus, & +! & EP_1 => con_fvirt, & +! & EP_2 => con_eps +! +! IMPLICIT NONE +! +! REAL , PARAMETER :: karman = 0.4 +! REAL , PARAMETER :: XLS = 2.85E6 +! REAL , PARAMETER :: p1000mb = 100000. +! REAL , PARAMETER :: rvovrd = r_v/r_d +! REAL , PARAMETER :: SVP1 = 0.6112 +! REAL , PARAMETER :: SVP2 = 17.67 +! REAL , PARAMETER :: SVP3 = 29.65 +! REAL , PARAMETER :: SVPT0 = 273.15 +! +! INTEGER , PARAMETER :: param_first_scalar = 1, & +! & p_qc = 2, & +! & p_qr = 0, & +! & p_qi = 2, & +! & p_qs = 0, & +! & p_qg = 0, & +! & p_qnc= 0, & +! & p_qni= 0 +! +!END FV3 CONSTANTS +!==================================================================== +!WRF CONSTANTS USE module_model_constants, only: & &karman, g, p1000mb, & &cp, r_d, r_v, rcp, xlv, xlf, xls, & @@ -83,40 +149,11 @@ MODULE module_bl_mynn USE module_state_description, only: param_first_scalar, & &p_qc, p_qr, p_qi, p_qs, p_qg, p_qnc, p_qni -!------------------------------------------------------------------- IMPLICIT NONE -!------------------------------------------------------------------- -!For non-WRF -! REAL , PARAMETER :: karman = 0.4 -! REAL , PARAMETER :: g = 9.81 -! REAL , PARAMETER :: r_d = 287. -! REAL , PARAMETER :: cp = 7.*r_d/2. -! REAL , PARAMETER :: r_v = 461.6 -! REAL , PARAMETER :: cpv = 4.*r_v -! REAL , PARAMETER :: cliq = 4190. -! REAL , PARAMETER :: Cice = 2106. -! REAL , PARAMETER :: rcp = r_d/cp -! REAL , PARAMETER :: XLS = 2.85E6 -! REAL , PARAMETER :: XLV = 2.5E6 -! REAL , PARAMETER :: XLF = 3.50E5 -! REAL , PARAMETER :: p1000mb = 100000. -! REAL , PARAMETER :: rvovrd = r_v/r_d -! REAL , PARAMETER :: SVP1 = 0.6112 -! REAL , PARAMETER :: SVP2 = 17.67 -! REAL , PARAMETER :: SVP3 = 29.65 -! REAL , PARAMETER :: SVPT0 = 273.15 -! REAL , PARAMETER :: EP_1 = R_v/R_d-1. -! REAL , PARAMETER :: EP_2 = R_d/R_v -! The following depends on the microphysics scheme used: -! INTEGER , PARAMETER :: param_first_scalar = 1 -! INTEGER , PARAMETER :: p_qc = 2 -! INTEGER , PARAMETER :: p_qr = 0 -! INTEGER , PARAMETER :: p_qi = 2 -! INTEGER , PARAMETER :: p_qs = 0 -! INTEGER , PARAMETER :: p_qg = 0 -! INTEGER , PARAMETER :: p_qnc= 0 -! INTEGER , PARAMETER :: p_qni= 0 +!END WRF CONSTANTS +!=================================================================== +! From here on, these are used for any model ! The parameters below depend on stability functions of module_sf_mynn. REAL, PARAMETER :: cphm_st=5.0, cphm_unst=16.0, & cphh_st=5.0, cphh_unst=16.0 @@ -168,7 +205,7 @@ MODULE module_bl_mynn ! Constants for cloud PDF (mym_condensation) REAL, PARAMETER :: rr2=0.7071068, rrp=0.3989423 -! 'parameters' for Poisson distribution (StEM EDMF scheme) +! 'parameters' for Poisson distribution (EDMF scheme) REAL, PARAMETER :: zero = 0.0, half = 0.5, one = 1.0, two = 2.0 !Use Canuto/Kitamura mod (remove Ric and negative TKE) (1:yes, 0:no) @@ -192,6 +229,9 @@ MODULE module_bl_mynn !Adding top-down diffusion driven by cloud-top radiative cooling INTEGER, PARAMETER :: bl_mynn_topdown = 0 + !Option to activate heating due to dissipation of TKE (to activate, set to 1.0) + REAL, PARAMETER :: dheat_opt = 1. + !option to print out more stuff for debugging purposes LOGICAL, PARAMETER :: debug_code = .false. @@ -293,7 +333,7 @@ MODULE module_bl_mynn ! * * ! * Variables worthy of special mention: * ! * tref : Reference temperature * -! * thl : Liquid water potential temperature * +! * thl : Liquid water potential temperature * ! * qw : Total water (water vapor+liquid water) content * ! * ql : Liquid water content * ! * vt, vq : Functions for computing the buoyancy flux * @@ -465,8 +505,7 @@ SUBROUTINE mym_initialize ( & & el, & & zi,theta, & & qkw,Psig_bl,cldfra_bl1D,bl_mynn_mixlength,& - & edmf_w1,edmf_a1,edmf_qc1,bl_mynn_edmf,& - & spp_pbl,rstoch_col) + & edmf_w1,edmf_a1,edmf_qc1,bl_mynn_edmf) ! DO k = kts+1,kte elq = el(k)*qkw(k) @@ -567,9 +606,7 @@ SUBROUTINE mym_level2 (kts,kte,& REAL :: rfc,f1,f2,rf1,rf2,smc,shc,& &ri1,ri2,ri3,ri4,duz,dtz,dqz,vtt,vqq,dtq,dzk,afk,abk,ri,rf -!JOE-Canuto/Kitamura mod REAL :: a2den -!JOE-end ! ev = 2.5e6 ! tv0 = 0.61*tref @@ -616,7 +653,7 @@ SUBROUTINE mym_level2 (kts,kte,& ! ** Gradient Richardson number ** ri = -gh(k)/MAX( duz, 1.0e-10 ) -!JOE-Canuto/Kitamura mod + !a2den is needed for the Canuto/Kitamura mod IF (CKmod .eq. 1) THEN a2den = 1. + MAX(ri,0.0) ELSE @@ -636,7 +673,6 @@ SUBROUTINE mym_level2 (kts,kte,& ri2 = rf1*smc ri3 = 4.0*rf2*smc -2.0*ri2 ri4 = ri2**2 -!JOE-end ! ** Flux Richardson number ** rf = MIN( ri1*( ri+ri2-SQRT(ri**2-ri3*ri+ri4) ), rfc ) @@ -679,8 +715,7 @@ SUBROUTINE mym_length ( & & el, & & zi,theta, & & qkw,Psig_bl,cldfra_bl1D,bl_mynn_mixlength,& - & edmf_w1,edmf_a1,edmf_qc1,bl_mynn_edmf,& - & spp_pbl,rstoch_col) + & edmf_w1,edmf_a1,edmf_qc1,bl_mynn_edmf) !------------------------------------------------------------------- @@ -704,7 +739,7 @@ SUBROUTINE mym_length ( & REAL, DIMENSION(kts:kte), INTENT(IN) :: theta REAL, DIMENSION(kts:kte) :: qtke,elBLmin,elBLavg,thetaw - REAL :: wt,wt2,zi,zi2,h1,h2,hs,elBLmin0,elBLavg0 + REAL :: wt,wt2,zi,zi2,h1,h2,hs,elBLmin0,elBLavg0,cldavg ! THE FOLLOWING CONSTANTS ARE IMPORTANT FOR REGULATING THE ! MIXING LENGTHS: @@ -713,7 +748,8 @@ SUBROUTINE mym_length ( & alp2, & ! for buoyancy length scale (elb) alp3, & ! for buoyancy enhancement factor of elb alp4, & ! for surface layer (els) in unstable conditions - alp5 ! for BouLac mixing length + alp5, & ! for BouLac mixing length or above PBLH + alp6 ! for mass-flux/ !THE FOLLOWING LIMITS DO NOT DIRECTLY AFFECT THE ACTUAL PBLH. !THEY ONLY IMPOSE LIMITS ON THE CALCULATION OF THE MIXING LENGTH @@ -735,9 +771,6 @@ SUBROUTINE mym_length ( & REAL :: afk,abk,zwk,zwk1,dzk,qdz,vflx,bv,tau_cloud,elb,els,els1,elf, & & el_stab,el_unstab,el_mf,el_stab_mf,elb_mf,PBLH_PLUS_ENT,el_les - INTEGER, INTENT(IN) :: spp_pbl - REAL, DIMENSION(kts:kte), INTENT(in) :: rstoch_col - ! tv0 = 0.61*tref ! gtr = 9.81/tref @@ -925,29 +958,31 @@ SUBROUTINE mym_length ( & alp2 = 0.3 alp3 = 2.0 alp4 = 10. - alp5 = 0.3 !obsolete? + alp5 = 0.3 !like alp2, but for free atmosphere + alp6 = 10.0 !used for MF mixing length instead of BouLac (x times MF) ! Impose limits on the height integration for elt and the transition layer depth - zi2=MAX(zi,minzi) + !zi2=MAX(zi,minzi) + zi2=MAX(zi, 100.) h1=MAX(0.3*zi2,mindz) h1=MIN(h1,maxdz) ! 1/2 transition layer depth - h2=h1/2.0 ! 1/4 transition layer depth + h2=h1*0.5 ! 1/4 transition layer depth - qtke(kts)=MAX(qke(kts)/2.,0.01) !tke at full sigma levels + qtke(kts)=MAX(0.5*qke(kts),0.01) !tke at full sigma levels qkw(kts) = SQRT(MAX(qke(kts),1.0e-10)) DO k = kts+1,kte afk = dz(k)/( dz(k)+dz(k-1) ) abk = 1.0 -afk qkw(k) = SQRT(MAX(qke(k)*abk+qke(k-1)*afk,1.0e-3)) - qtke(k) = (qkw(k)**2.)/2. ! q -> TKE + qtke(k) = 0.5*(qkw(k)**2.) ! q -> TKE END DO elt = 1.0e-5 vsc = 1.0e-5 ! ** Strictly, zwk*h(i,j) -> ( zwk*h(i,j)+z0 ) ** - PBLH_PLUS_ENT = MAX(zi, 100.) + PBLH_PLUS_ENT = MAX(zi+h1, 100.) k = kts+1 zwk = zw(k) DO WHILE (zwk .LE. PBLH_PLUS_ENT) @@ -969,15 +1004,16 @@ SUBROUTINE mym_length ( & DO k = kts+1,kte zwk = zw(k) !full-sigma levels + cldavg = 0.5*(cldfra_bl1D(k-1)+cldfra_bl1D(k)) ! ** Length scale limited by the buoyancy effect ** IF ( dtv(k) .GT. 0.0 ) THEN bv = SQRT( gtr*dtv(k) ) !elb_mf = alp2*qkw(k) / bv & - elb_mf = alp2*MAX(qkw(k),edmf_a1(k)*edmf_w1(k)) / bv & - & *( 1.0 + alp3/alp2*& - &SQRT( vsc/( bv*elt ) ) ) - elb = MIN(alp2*qkw(k)/bv, zwk) + elb_mf = MAX(alp2*qkw(k), & + &MAX(1.-2.0*cldavg,0.0)**0.5*alp6*edmf_a1(k)*edmf_w1(k)) / bv & + & *( 1.0 + alp3*SQRT( vsc/( bv*elt ) ) ) + elb = MIN(alp5*qkw(k)/bv, zwk) elf = elb/(1. + (elb/600.)) !bound free-atmos mixing length to < 600 m. !IF (zwk > zi .AND. elf > 400.) THEN ! ! COMPUTE BouLac mixing length @@ -997,7 +1033,7 @@ SUBROUTINE mym_length ( & ! velocity scale), except that elt is relpaced ! by zi, and zero is replaced by 1.0e-4 to ! prevent division by zero. - tau_cloud = MIN(MAX(0.5*zi/((gtr*zi*MAX(flt,1.0e-4))**(1.0/3.0)),10.),100.) + tau_cloud = MIN(MAX(0.5*zi/((gtr*zi*MAX(flt,1.0e-4))**(1.0/3.0)),25.),100.) !minimize influence of surface heat flux on tau far away from the PBLH. wt=.5*TANH((zwk - (zi2+h1))/h2) + .5 tau_cloud = tau_cloud*(1.-wt) + 50.*wt @@ -1035,17 +1071,6 @@ SUBROUTINE mym_length ( & END SELECT -! Stochastic perturbations of turbulent mixing length - if (spp_pbl==1) then - DO k = kts+1,kte - if (k.lt.25) then - zwk = zw(k) - el(k)= el(k) + el(k)* rstoch_col(k) * 1.5 * MAX(exp(-MAX(zwk-3000.,0.0)/2000.),0.01) - endif - END DO - endif - - #ifdef HARDCODE_VERTICAL # undef kts # undef kte @@ -1053,8 +1078,6 @@ SUBROUTINE mym_length ( & END SUBROUTINE mym_length -!JOE- BouLac Code Start - - ! ================================================================== SUBROUTINE boulac_length0(k,kts,kte,zw,dz,qtke,theta,lb1,lb2) ! @@ -1368,8 +1391,6 @@ SUBROUTINE boulac_length(kts,kte,zw,dz,qtke,theta,lb1,lb2) END SUBROUTINE boulac_length ! -!JOE-END BOULAC CODE - ! ================================================================== ! SUBROUTINE mym_turbulence: ! @@ -1455,7 +1476,7 @@ SUBROUTINE mym_turbulence ( & REAL :: e6c,dzk,afk,abk,vtt,vqq,& &cw25,clow,cupp,gamt,gamq,smd,gamv,elq,elh - REAL :: zi + REAL :: zi, cldavg REAL, DIMENSION(kts:kte), INTENT(in) :: theta REAL :: a2den, duz, ri, HLmod !JOE-Canuto/Kitamura mod @@ -1502,8 +1523,7 @@ SUBROUTINE mym_turbulence ( & & el, & & zi,theta, & & qkw,Psig_bl,cldfra_bl1D,bl_mynn_mixlength, & - & edmf_w1,edmf_a1,edmf_qc1,bl_mynn_edmf, & - & spp_pbl,rstoch_col) + & edmf_w1,edmf_a1,edmf_qc1,bl_mynn_edmf ) ! DO k = kts+1,kte @@ -1657,12 +1677,9 @@ SUBROUTINE mym_turbulence ( & Rsl2= 1.0 - 2.*Rsl !upper limit !IF (k==2)print*,"Dynamic limit RSL=",Rsl !IF (Rsl < 0.10 .OR. Rsl > 0.18) THEN - ! wrf_err_message = '--- ERROR: MYNN: Dynamic Cw '// & + ! print*,'--- ERROR: MYNN: Dynamic Cw '// & ! 'limit exceeds reasonable limits' - ! CALL wrf_message ( wrf_err_message ) - ! WRITE ( mynn_message , FMT='(A,F8.3)' ) & - ! " MYNN: Dynamic Cw limit needs attention=",Rsl - ! CALL wrf_debug ( 0 , mynn_message ) + ! print*," MYNN: Dynamic Cw limit needs attention=",Rsl !ENDIF !JOE-Canuto/Kitamura mod @@ -1767,6 +1784,25 @@ SUBROUTINE mym_turbulence ( & sm(k) = sh(k)*Prlimit ENDIF ENDIF +! +! Add min background stability function (diffusivity) within model levels +! with active plumes and low cloud fractions. + cldavg = 0.5*(cldfra_bl1D(k-1) + cldfra_bl1D(k)) + IF (edmf_a1(k) > 0.001 .OR. cldavg > 0.02) THEN + cldavg = 0.5*(cldfra_bl1D(k-1) + cldfra_bl1D(k)) + !sm(k) = MAX(sm(k), MAX(1.0 - 2.0*cldavg, 0.0)**0.33 * 0.03 * & + ! & MIN(10.*edmf_a1(k)*edmf_w1(k),1.0) ) + !sh(k) = MAX(sh(k), MAX(1.0 - 2.0*cldavg, 0.0)**0.33 * 0.03 * & + ! & MIN(10.*edmf_a1(k)*edmf_w1(k),1.0) ) + + ! for mass-flux columns + sm(k) = MAX(sm(k), 0.03*MIN(10.*edmf_a1(k)*edmf_w1(k),1.0) ) + sh(k) = MAX(sh(k), 0.03*MIN(10.*edmf_a1(k)*edmf_w1(k),1.0) ) + ! for clouds + sm(k) = MAX(sm(k), 0.03*MIN(cldavg,1.0) ) + sh(k) = MAX(sh(k), 0.03*MIN(cldavg,1.0) ) + + ENDIF ! elq = el(k)*qkw(k) elh = elq*qdiv @@ -1862,6 +1898,13 @@ SUBROUTINE mym_turbulence ( & qDISS1D(kts)=qDISS1D(kts+1) ENDIF + if (spp_pbl==1) then + DO k = kts,kte + dfm(k)= dfm(k) + dfm(k)* rstoch_col(k) * 1.5 * MAX(exp(-MAX(zw(k)-8000.,0.0)/2000.),0.001) + dfh(k)= dfh(k) + dfh(k)* rstoch_col(k) * 1.5 * MAX(exp(-MAX(zw(k)-8000.,0.0)/2000.),0.001) + END DO + endif + ! RETURN #ifdef HARDCODE_VERTICAL # undef kts @@ -1943,13 +1986,12 @@ SUBROUTINE mym_predict (kts,kte,& ! WA 8/3/15 REAL, DIMENSION(kts:kte+1), INTENT(INOUT) :: s_awqke,s_aw - INTEGER :: k,nz + INTEGER :: k REAL, DIMENSION(kts:kte) :: qkw, bp, rp, df3q REAL :: vkz,pdk1,phm,pdt1,pdq1,pdc1,b1l,b2l,onoff REAL, DIMENSION(kts:kte) :: dtz REAL, DIMENSION(kts:kte) :: a,b,c,d,x - nz=kte ! REGULATE THE MOMENTUM MIXING FROM THE MASS-FLUX SCHEME (on or off) IF (bl_mynn_edmf_tke == 0) THEN @@ -2020,13 +2062,13 @@ SUBROUTINE mym_predict (kts,kte,& !! d(k-kts+1)=rp(k)*delt + qke(k) - qke(k)*bp(k)*delt !! ENDDO - a(nz)=-1. !0. - b(nz)=1. - c(nz)=0. - d(nz)=0. + a(kte)=-1. !0. + b(kte)=1. + c(kte)=0. + d(kte)=0. -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,x) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,x) DO k=kts,kte ! qke(k)=max(d(k-kts+1), 1.e-4) @@ -2071,13 +2113,13 @@ SUBROUTINE mym_predict (kts,kte,& !! d(k-kts+1)=rp(k)*delt + tsq(k) - tsq(k)*bp(k)*delt !! ENDDO - a(nz)=-1. !0. - b(nz)=1. - c(nz)=0. - d(nz)=0. + a(kte)=-1. !0. + b(kte)=1. + c(kte)=0. + d(kte)=0. -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,x) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,x) DO k=kts,kte ! tsq(k)=d(k-kts+1) @@ -2114,13 +2156,13 @@ SUBROUTINE mym_predict (kts,kte,& !! d(k-kts+1)=rp(k)*delt + qsq(k) -qsq(k)*bp(k)*delt !! ENDDO - a(nz)=-1. !0. - b(nz)=1. - c(nz)=0. - d(nz)=0. + a(kte)=-1. !0. + b(kte)=1. + c(kte)=0. + d(kte)=0. -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,x) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,x) DO k=kts,kte ! qsq(k)=d(k-kts+1) @@ -2157,13 +2199,13 @@ SUBROUTINE mym_predict (kts,kte,& !! d(k-kts+1)=rp(k)*delt + cov(k) - cov(k)*bp(k)*delt !! ENDDO - a(nz)=-1. !0. - b(nz)=1. - c(nz)=0. - d(nz)=0. + a(kte)=-1. !0. + b(kte)=1. + c(kte)=0. + d(kte)=0. -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,x) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,x) DO k=kts,kte ! cov(k)=d(k-kts+1) @@ -2238,7 +2280,8 @@ SUBROUTINE mym_condensation (kts,kte, & & Sh, el, bl_mynn_cloudpdf,& & qc_bl1D, cldfra_bl1D, & & PBLH1,HFX1, & - & Vt, Vq, th, sgm) + & Vt, Vq, th, sgm, rmo, & + & spp_pbl,rstoch_col ) !------------------------------------------------------------------- @@ -2249,7 +2292,7 @@ SUBROUTINE mym_condensation (kts,kte, & # define kte HARDCODE_VERTICAL #endif - REAL, INTENT(IN) :: dx,PBLH1,HFX1 + REAL, INTENT(IN) :: dx,PBLH1,HFX1,rmo REAL, DIMENSION(kts:kte), INTENT(IN) :: dz REAL, DIMENSION(kts:kte), INTENT(IN) :: p,exner, thl, qw, & &tsq, qsq, cov, th @@ -2261,13 +2304,13 @@ SUBROUTINE mym_condensation (kts,kte, & DOUBLE PRECISION :: t3sq, r3sq, c3sq REAL :: qsl,esat,qsat,tlk,qsat_tl,dqsl,cld0,q1k,eq1,qll,& - &q2p,pt,rac,qt,t,xl,rsl,cpm,cdhdz,Fng,qww,alpha,beta,bb,ls_min,ls,wt + &q2p,pt,rac,qt,t,xl,rsl,cpm,cdhdz,Fng,qww,alpha,beta,bb,ls_min,ls,wt,cld_factor INTEGER :: i,j,k REAL :: erf !JOE: NEW VARIABLES FOR ALTERNATE SIGMA - REAL::dth,dtl,dqw,dzk + REAL::dth,dtl,dqw,dzk,els REAL, DIMENSION(kts:kte), INTENT(IN) :: Sh,el !JOE: variables for BL clouds @@ -2282,6 +2325,11 @@ SUBROUTINE mym_condensation (kts,kte, & REAL :: theta1, theta2, ht1, ht2 INTEGER :: k_tropo +! Stochastic + INTEGER, INTENT(IN) :: spp_pbl + REAL, DIMENSION(KTS:KTE) :: rstoch_col + REAL :: qw_pert + ! First, obtain an estimate for the tropopause height (k), using the method employed in the ! Thompson subgrid-cloud scheme. This height will be a consideration later when determining ! the "final" subgrid-cloud properties. @@ -2322,7 +2370,8 @@ SUBROUTINE mym_condensation (kts,kte, & !SATURATED VAPOR PRESSURE esat = esat_blend(t) !SATURATED SPECIFIC HUMIDITY - qsl=ep_2*esat/(p(k)-ep_3*esat) + !qsl=ep_2*esat/(p(k)-ep_3*esat) + qsl=ep_2*esat/max(1.e-4,(p(k)-ep_3*esat)) !dqw/dT: Clausius-Clapeyron dqsl = qsl*ep_2*ev/( rd*t**2 ) !RH (0 to 1.0) @@ -2359,7 +2408,8 @@ SUBROUTINE mym_condensation (kts,kte, & !SATURATED VAPOR PRESSURE esat = esat_blend(t) !SATURATED SPECIFIC HUMIDITY - qsl=ep_2*esat/(p(k)-ep_3*esat) + !qsl=ep_2*esat/(p(k)-ep_3*esat) + qsl=ep_2*esat/max(1.e-4,(p(k)-ep_3*esat)) !dqw/dT: Clausius-Clapeyron dqsl = qsl*ep_2*ev/( rd*t**2 ) !RH (0 to 1.0) @@ -2391,7 +2441,8 @@ SUBROUTINE mym_condensation (kts,kte, & !SATURATED VAPOR PRESSURE esat = esat_blend(t) !SATURATED SPECIFIC HUMIDITY - qsl=ep_2*esat/(p(k)-ep_3*esat) + !qsl=ep_2*esat/(p(k)-ep_3*esat) + qsl=ep_2*esat/max(1.e-4,(p(k)-ep_3*esat)) !dqw/dT: Clausius-Clapeyron dqsl = qsl*ep_2*ev/( rd*t**2 ) !RH (0 to 1.0) @@ -2414,8 +2465,12 @@ SUBROUTINE mym_condensation (kts,kte, & a(k) = 1./(1. + xl*rsl/cpm) ! CB02 variable "a" - qmq(k) = a(k) * (qw(k) - qsat_tl) ! saturation deficit/excess; + !SPP + qw_pert = qw(k) + qw(k)*0.5*rstoch_col(k)*real(spp_pbl) + + !qmq(k) = a(k) * (qw(k) - qsat_tl) ! saturation deficit/excess; ! the numerator of Q1 + qmq(k) = a(k) * (qw_pert - qsat_tl) b(k) = a(k)*rsl ! CB02 variable "b" @@ -2434,17 +2489,20 @@ SUBROUTINE mym_condensation (kts,kte, & ! in CB02 zagl = zagl + dz(k) + !Use analog to surface layer length scale to make the cloud mixing length scale + !become less than z in stable conditions. + els = zagl/(1.0 + 1.0*MIN( 0.5*dz(1)*MAX(rmo,0.0), 1. )) - ls_min = 400. + MIN(3.*MAX(HFX1,0.),500.) - ls_min = MIN(MAX(zagl,25.),ls_min) ! Let this be the minimum possible length scale: - if (zagl > PBLH1+2000.) ls_min = MAX(ls_min + 0.5*(PBLH1+2000.-zagl),400.) + ls_min = 300. + MIN(3.*MAX(HFX1,0.),300.) + ls_min = MIN(MAX(els,25.),ls_min) ! Let this be the minimum possible length scale: + if (zagl > PBLH1+2000.) ls_min = MAX(ls_min + 0.5*(PBLH1+2000.-zagl),300.) ! 25 m < ls_min(=zagl) < 300 m lfac=MIN(4.25+dx/4000.,6.) ! A dx-dependent multiplier for the master length scale: ! lfac(750 m) = 4.4 ! lfac(3 km) = 5.0 ! lfac(13 km) = 6.0 - ls = MAX(MIN(lfac*el(k),900.),ls_min) ! Bounded: ls_min < ls < 900 m + ls = MAX(MIN(lfac*el(k),600.),ls_min) ! Bounded: ls_min < ls < 600 m ! Note: CB02 use 900 m as a constant free-atmosphere length scale. ! Above 300 m AGL, ls_min remains 300 m. For dx = 3 km, the @@ -2570,21 +2628,10 @@ SUBROUTINE mym_condensation (kts,kte, & ql (k) = sgm(k)*(EXP(-1.) + 0.66*q1k + 0.086*q1k**2) ENDIF - !Next, adjust our initial estimates of cldfra and ql based - !on tropopause-height and PBLH considerations - !JAYMES: added 4 Nov 2016 - if ((cld(k) .gt. 0.) .or. (ql(k) .gt. 0.)) then - if (k .le. k_tropo) then - !At and below tropopause: impose an upper limit on ql; assume that - !a maximum of 0.5 percent supersaturation in water vapor can be - !available for cloud production - ql_limit = 0.005 * qsat_blend( th(k)*exner(k), p(k) ) - ql(k) = MIN( ql(k), ql_limit ) - else - !Above tropopause: eliminate subgrid clouds from CB scheme - cld(k) = 0. - ql(k) = 0. - endif + !Above tropopause: eliminate subgrid clouds from CB scheme + if (k .ge. k_tropo-1) then + cld(k) = 0. + ql(k) = 0. endif !Buoyancy-flux-related calculations follow... @@ -2600,8 +2647,19 @@ SUBROUTINE mym_condensation (kts,kte, & ! Fng = 1.-1.5*q1k !ENDIF ! For purposes of the buoyancy flux in stratus, we will use Fng = 1 - Fng = 1. - + !Fng = 1. + Q1(k)=MAX(Q1(k),-5.0) + IF (Q1(k) .GE. 1.0) THEN + Fng = 1.0 + ELSEIF (Q1(k) .GE. -1.7 .AND. Q1(k) < 1.0) THEN + Fng = EXP(-0.4*(Q1(k)-1.0)) + ELSEIF (Q1(k) .GE. -2.5 .AND. Q1(k) .LE. -1.7) THEN + Fng = 3.0 + EXP(-3.8*(Q1(k)+1.7)) + ELSE + Fng = MIN(23.9 + EXP(-1.6*(Q1(k)+2.5)), 60.) + ENDIF + Fng = MIN(Fng, 20.) + xl = xl_blend(t) bb = b(k)*t/th(k) ! bb is "b" in BCMT95. Their "b" differs from ! "b" in CB02 (i.e., b(k) above) by a factor @@ -2613,8 +2671,8 @@ SUBROUTINE mym_condensation (kts,kte, & alpha = 0.61*th(k) beta = (th(k)/t)*(xl/cp) - 1.61*th(k) - vt(k) = qww - MIN(cld(k),0.5)*beta*bb*Fng - 1. - vq(k) = alpha + MIN(cld(k),0.5)*beta*a(k)*Fng - tv0 + vt(k) = qww - MIN(cld(k),0.99)*beta*bb*Fng - 1. + vq(k) = alpha + MIN(cld(k),0.99)*beta*a(k)*Fng - tv0 ! vt and vq correspond to beta-theta and beta-q, respectively, ! in NN09, Eq. B8. They also correspond to the bracketed ! expressions in BCMT95, Eq. 15, since (s*ql/sigma^2) = cldfra*Fng @@ -2622,7 +2680,10 @@ SUBROUTINE mym_condensation (kts,kte, & ! the legacy vt and vq formulations (above). ! increase the cloud fraction estimate below PBLH+1km - if (zagl .lt. PBLH2+1000.) cld(k) = MIN( 1., 2.0*cld(k) ) + if (zagl .lt. PBLH2+1000.) then + cld_factor = 1.0 + MAX(0.0, ( RH(k) - 0.83 ) / 0.18 ) + cld(k) = MIN( 1., cld_factor*cld(k) ) + end if ! return a cloud condensate and cloud fraction for icloud_bl option: cldfra_bl1D(k) = cld(k) qc_bl1D(k) = ql(k) @@ -2666,26 +2727,32 @@ END SUBROUTINE mym_condensation ! ================================================================== SUBROUTINE mynn_tendencies(kts,kte, & &levflag,grav_settling, & - &delt,dz, & - &u,v,th,tk,qv,qc,qi,qni,qnc, & + &delt,dz,rho, & + &u,v,th,tk,qv,qc,qi,qnc,qni, & &p,exner, & &thl,sqv,sqc,sqi,sqw, & + &qnwfa,qnifa, & &ust,flt,flq,flqv,flqc,wspd,qcg, & &uoce,voce, & &tsq,qsq,cov, & &tcd,qcd, & &dfm,dfh,dfq, & - &Du,Dv,Dth,Dqv,Dqc,Dqi,Dqni, &!Dqnc, & - &vdfg1, & + &Du,Dv,Dth,Dqv,Dqc,Dqi,Dqnc,Dqni, & + &Dqnwfa,Dqnifa, & + &vdfg1,diss_heat, & &s_aw,s_awthl,s_awqt,s_awqv,s_awqc, & &s_awu,s_awv, & - &FLAG_QI,FLAG_QNI,FLAG_QC,FLAG_QNC, & + &s_awqnc,s_awqni, & + &s_awqnwfa,s_awqnifa, & + &FLAG_QC,FLAG_QI,FLAG_QNC,FLAG_QNI, & + &FLAG_QNWFA,FLAG_QNIFA, & &cldfra_bl1d, & &ztop_shallow,ktop_shallow, & &bl_mynn_cloudmix, & &bl_mynn_mixqt, & &bl_mynn_edmf, & - &bl_mynn_edmf_mom ) + &bl_mynn_edmf_mom, & + &bl_mynn_mixscalars ) !------------------------------------------------------------------- INTEGER, INTENT(in) :: kts,kte @@ -2697,8 +2764,10 @@ SUBROUTINE mynn_tendencies(kts,kte, & INTEGER, INTENT(in) :: grav_settling,levflag INTEGER, INTENT(in) :: bl_mynn_cloudmix,bl_mynn_mixqt,& - bl_mynn_edmf,bl_mynn_edmf_mom - LOGICAL, INTENT(IN) :: FLAG_QI,FLAG_QNI,FLAG_QC,FLAG_QNC + bl_mynn_edmf,bl_mynn_edmf_mom, & + bl_mynn_mixscalars + LOGICAL, INTENT(IN) :: FLAG_QI,FLAG_QNI,FLAG_QC,FLAG_QNC,& + FLAG_QNWFA,FLAG_QNIFA !! grav_settling = 1 or 2 for gravitational settling of droplets !! grav_settling = 0 otherwise @@ -2708,14 +2777,14 @@ SUBROUTINE mynn_tendencies(kts,kte, & ! flt - surface flux of thl ! flq - surface flux of qw - REAL,DIMENSION(kts:kte+1), INTENT(in) :: s_aw,s_awthl,s_awqt,& - s_awqv,s_awqc,s_awu,s_awv + REAL, DIMENSION(kts:kte+1), INTENT(in) :: s_aw,s_awthl,s_awqt,& + &s_awqnc,s_awqni,s_awqv,s_awqc,s_awu,s_awv,s_awqnwfa,s_awqnifa REAL, DIMENSION(kts:kte), INTENT(in) :: u,v,th,tk,qv,qc,qi,qni,qnc,& - &p,exner,dfq,dz,tsq,qsq,cov,tcd,qcd,cldfra_bl1d + &rho,p,exner,dfq,dz,tsq,qsq,cov,tcd,qcd,cldfra_bl1d,diss_heat REAL, DIMENSION(kts:kte), INTENT(inout) :: thl,sqw,sqv,sqc,sqi,& - &dfm,dfh + &qnwfa,qnifa,dfm,dfh REAL, DIMENSION(kts:kte), INTENT(inout) :: du,dv,dth,dqv,dqc,dqi,& - &dqni !,dqnc + &dqni,dqnc,dqnwfa,dqnifa REAL, INTENT(IN) :: delt,ust,flt,flq,flqv,flqc,wspd,uoce,voce,qcg,& ztop_shallow INTEGER, INTENT(IN) :: ktop_shallow @@ -2726,16 +2795,20 @@ SUBROUTINE mynn_tendencies(kts,kte, & !local vars REAL, DIMENSION(kts:kte) :: dtz,vt,vq,dfhc,dfmc !Kh for clouds (Pr < 2) - REAL, DIMENSION(kts:kte) :: sqv2,sqc2,sqi2,sqw2,qni2 !,qnc2 !AFTER MIXING + REAL, DIMENSION(kts:kte) :: sqv2,sqc2,sqi2,sqw2,qni2,qnc2, & !AFTER MIXING + qnwfa2,qnifa2 REAL, DIMENSION(kts:kte) :: zfac,plumeKh - REAL, DIMENSION(1:kte-kts+1) :: a,b,c,d,x - + REAL, DIMENSION(kts:kte) :: a,b,c,d,x + REAL, DIMENSION(kts:kte+1) :: rhoz, & !rho on model interface + & khdz, kmdz REAL :: rhs,gfluxm,gfluxp,dztop,maxdfh,mindfh,maxcf,maxKh,zw REAL :: grav_settling2,vdfg1 !Katata-fogdes - REAL :: t,esat,qsl,onoff - INTEGER :: k,kk,nz + REAL :: t,esat,qsl,onoff,kh,km,dzk + INTEGER :: k,kk - nz=kte-kts+1 + !Activate nonlocal mixing from the mass-flux scheme for + !scalars (0.0 = no; 1.0 = yes) + REAL, PARAMETER :: nonloc = 0.0 dztop=.5*(dz(kte)+dz(kte-1)) @@ -2748,34 +2821,29 @@ SUBROUTINE mynn_tendencies(kts,kte, & onoff=1.0 ENDIF - !set up values for background diffusivity when MF scheme is active -! maxdfh=maxval(dfh(1:14)) -! maxcf=maxval(cldfra_bl1D(kts:MAX(ktop_shallow,14))) - !allow maxKh to vary according to cloud fraction in lowest ~2 km -! maxKh = 1.*(1.-MIN(MAX(maxcf-0.5,0.0)/0.25, 0.9)) -! mindfh=min(maxKh,maxdfh*0.01) - -! zw=0. - DO k=kts,kte + !Prepare "constants" for diffusion equation. + !khdz = rho*Kh/dz + dtz(kts)=delt/dz(kts) + kh=dfh(kts)*dz(kts) + km=dfm(kts)*dz(kts) + rhoz(kts)=rho(kts) + khdz(kts)=rhoz(kts)*kh/dz(kts) + kmdz(kts)=rhoz(kts)*km/dz(kts) + DO k=kts+1,kte dtz(k)=delt/dz(k) - !IF (dfm(k) > dfh(k)) THEN - ! !in stable regime only, limit Prandtl number to < 2 within clouds - ! IF (qc(k) > 1.e-6 .OR. & - ! qi(k) > 1.e-6 .OR. & - ! cldfra_bl1D(k) > 0.05 ) THEN - ! dfh(k)= MAX(dfh(k),dfm(k)*0.5) - ! ENDIF - !ENDIF - !Add small minimum Km & Kh in MF updrafts is no stratus is in the column. - !Note that maxval of plumeKh is mindfh*0.15, with max at about 0.75*ztop_shallow -! IF (ktop_shallow > 0) THEN -! zfac(k) = min( max(1.-(zw/ztop_shallow), 0.01), 1.) -! plumeKh(k)=mindfh*max((ztop_shallow-zw)/ztop_shallow,0.0)*(1.-zfac(k))**2 -! dfh(k)=MAX(mindfh,dfh(k)) -! dfm(k)=MAX(mindfh,dfm(k)) -! ENDIF -! zw=zw+dz(k) + rhoz(k)=(rho(k)*dz(k-1) + rho(k-1)*dz(k))/(dz(k-1)+dz(k)) + + dzk = 0.5 *( dz(k)+dz(k-1) ) + kh = dfh(k)*dzk + km = dfm(k)*dzk + khdz(k)= rhoz(k)*kh/dzk + kmdz(k)= rhoz(k)*km/dzk ENDDO + rhoz(kte+1)=rho(kte) + kh=dfh(kte)*dz(kte) + km=dfm(kte)*dz(kte) + khdz(kte+1)=rhoz(kte+1)*kh/dz(kte) + kmdz(kte+1)=rhoz(kte+1)*km/dz(kte) !!============================================ !! u @@ -2803,25 +2871,25 @@ SUBROUTINE mynn_tendencies(kts,kte, & ENDDO !! no flux at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=0. +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=0. !! specified gradient at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=gradu_top*dztop +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=gradu_top*dztop !! prescribed value - a(nz)=0 - b(nz)=1. - c(nz)=0. - d(nz)=u(kte) + a(kte)=0 + b(kte)=1. + c(kte)=0. + d(kte)=u(kte) -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,x) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,x) DO k=kts,kte ! du(k)=(d(k-kts+1)-u(k))/delt @@ -2855,25 +2923,25 @@ SUBROUTINE mynn_tendencies(kts,kte, & ENDDO !! no flux at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=0. +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=0. !! specified gradient at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=gradv_top*dztop +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=gradv_top*dztop !! prescribed value - a(nz)=0 - b(nz)=1. - c(nz)=0. - d(nz)=v(kte) + a(kte)=0 + b(kte)=1. + c(kte)=0. + d(kte)=v(kte) -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,x) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,x) DO k=kts,kte ! dv(k)=(d(k-kts+1)-v(k))/delt @@ -2889,36 +2957,38 @@ SUBROUTINE mynn_tendencies(kts,kte, & a(k)=0. b(k)=1.+dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) c(k)= -dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) - d(k)=thl(k) + dtz(k)*flt + tcd(k)*delt -dtz(k)*s_awthl(kts+1) + d(k)=thl(k) + dtz(k)*flt + tcd(k)*delt & + & -dtz(k)*s_awthl(kts+1) + diss_heat(k)*delt*dheat_opt DO k=kts+1,kte-1 a(k)= -dtz(k)*dfh(k) + 0.5*dtz(k)*s_aw(k) b(k)=1.+dtz(k)*(dfh(k)+dfh(k+1)) + 0.5*dtz(k)*(s_aw(k)-s_aw(k+1)) c(k)= -dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) - d(k)=thl(k) + tcd(k)*delt + dtz(k)*(s_awthl(k)-s_awthl(k+1)) + d(k)=thl(k) + tcd(k)*delt + dtz(k)*(s_awthl(k)-s_awthl(k+1)) & + & + diss_heat(k)*delt*dheat_opt ENDDO !! no flux at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=0. +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=0. !! specified gradient at the top !assume gradthl_top=gradth_top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=gradth_top*dztop +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=gradth_top*dztop !! prescribed value - a(nz)=0. - b(nz)=1. - c(nz)=0. - d(nz)=thl(kte) + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=thl(kte) -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,x) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,x) DO k=kts,kte !thl(k)=d(k-kts+1) @@ -2952,24 +3022,24 @@ SUBROUTINE mynn_tendencies(kts,kte, & ENDDO !! no flux at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=0. +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=0. !! specified gradient at the top !assume gradqw_top=gradqv_top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=gradqv_top*dztop +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=gradqv_top*dztop !! prescribed value - a(nz)=0. - b(nz)=1. - c(nz)=0. - d(nz)=sqw(kte) + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=sqw(kte) -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,sqw2) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,sqw2) ! DO k=kts,kte ! sqw2(k)=d(k-kts+1) @@ -3002,13 +3072,13 @@ SUBROUTINE mynn_tendencies(kts,kte, & ENDDO ! prescribed value - a(nz)=0. - b(nz)=1. - c(nz)=0. - d(nz)=sqc(kte) + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=sqc(kte) -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,sqc2) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,sqc2) ! DO k=kts,kte ! sqc2(k)=d(k-kts+1) @@ -3030,7 +3100,7 @@ SUBROUTINE mynn_tendencies(kts,kte, & a(k)=0. b(k)=1.+dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) c(k)= -dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) - d(k)=sqv(k) + dtz(k)*flqv + qcd(k)*delt - dtz(k)*s_awqv(k+1) !note: using qt, not qv... + d(k)=sqv(k) + dtz(k)*flqv + qcd(k)*delt - dtz(k)*s_awqv(k+1) DO k=kts+1,kte-1 a(k)= -dtz(k)*dfh(k) + 0.5*dtz(k)*s_aw(k) @@ -3040,26 +3110,26 @@ SUBROUTINE mynn_tendencies(kts,kte, & ENDDO ! no flux at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=0. +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=0. ! specified gradient at the top ! assume gradqw_top=gradqv_top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=gradqv_top*dztop +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=gradqv_top*dztop ! prescribed value - a(nz)=0. - b(nz)=1. - c(nz)=0. - d(nz)=sqv(kte) + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=sqv(kte) -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,sqv2) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,sqv2) ! DO k=kts,kte ! sqv2(k)=d(k-kts+1) @@ -3088,26 +3158,26 @@ SUBROUTINE mynn_tendencies(kts,kte, & ENDDO !! no flux at the top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=0. +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=0. !! specified gradient at the top !assume gradqw_top=gradqv_top -! a(nz)=-1. -! b(nz)=1. -! c(nz)=0. -! d(nz)=gradqv_top*dztop +! a(kte)=-1. +! b(kte)=1. +! c(kte)=0. +! d(kte)=gradqv_top*dztop !! prescribed value - a(nz)=0. - b(nz)=1. - c(nz)=0. - d(nz)=sqi(kte) + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=sqi(kte) -! CALL tridiag(nz,a,b,c,d) - CALL tridiag2(nz,a,b,c,d,sqi2) +! CALL tridiag(kte,a,b,c,d) + CALL tridiag2(kte,a,b,c,d,sqi2) ! DO k=kts,kte ! sqi2(k)=d(k-kts+1) @@ -3119,58 +3189,182 @@ SUBROUTINE mynn_tendencies(kts,kte, & !!============================================ !! cloud ice number concentration (qni) !!============================================ -! diasbled this since scalar_pblmix option can be invoked instead -!IF (bl_mynn_cloudmix > 0 .AND. FLAG_QNI) THEN -! -! k=kts -! -! a(1)=0. -! b(1)=1.+dtz(k)*dfh(k+1) -! c(1)=-dtz(k)*dfh(k+1) -! -! rhs = qcd(k) -! -! d(1)=qni(k) !+ dtz(k)*flqc + rhs*delt -! -! DO k=kts+1,kte-1 -! kk=k-kts+1 -! a(kk)=-dtz(k)*dfh(k) -! b(kk)=1.+dtz(k)*(dfh(k)+dfh(k+1)) -! c(kk)=-dtz(k)*dfh(k+1) -! -! rhs = qcd(k) -! d(kk)=qni(k) !+ rhs*delt -! -! ENDDO -! +IF (bl_mynn_cloudmix > 0 .AND. FLAG_QNI .AND. & + bl_mynn_mixscalars > 0) THEN + + k=kts + + a(k)= -dtz(k)*khdz(k)/rho(k) + b(k)=1.+dtz(k)*(khdz(k+1)+khdz(k))/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qni(k) - dtz(k)*s_awqni(k+1)*nonloc + + DO k=kts+1,kte-1 + a(k)= -dtz(k)*khdz(k)/rho(k) + 0.5*dtz(k)*s_aw(k)*nonloc + b(k)=1.+dtz(k)*(khdz(k)+khdz(k+1))/rho(k) + & + & 0.5*dtz(k)*(s_aw(k)-s_aw(k+1))*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qni(k) + dtz(k)*(s_awqni(k)-s_awqni(k+1))*nonloc + ENDDO + !! prescribed value -! a(nz)=0. -! b(nz)=1. -! c(nz)=0. -! d(nz)=qni(kte) -! -! CALL tridiag(nz,a,b,c,d) -! -! DO k=kts,kte -! qni2(k)=d(k-kts+1) -! ENDDO -!ELSE + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=qni(kte) + +! CALL tridiag(kte,a,b,c,d) +! CALL tridiag2(kte,a,b,c,d,x) + CALL tridiag3(kte,a,b,c,d,x) + + DO k=kts,kte + !qni2(k)=d(k-kts+1) + qni2(k)=x(k) + ENDDO + +ELSE qni2=qni -!ENDIF +ENDIF !!============================================ -!! Compute tendencies and convert to mixing ratios for WRF. -!! Note that the momentum tendencies are calculated above. +!! cloud water number concentration (qnc) +!! include non-local transport !!============================================ + IF (bl_mynn_cloudmix > 0 .AND. FLAG_QNC .AND. & + bl_mynn_mixscalars > 0) THEN + + k=kts + + a(k)= -dtz(k)*khdz(k)/rho(k) + b(k)=1.+dtz(k)*(khdz(k+1)+khdz(k))/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qnc(k) - dtz(k)*s_awqnc(k+1)*nonloc + + DO k=kts+1,kte-1 + a(k)= -dtz(k)*khdz(k)/rho(k) + 0.5*dtz(k)*s_aw(k)*nonloc + b(k)=1.+dtz(k)*(khdz(k)+khdz(k+1))/rho(k) + & + & 0.5*dtz(k)*(s_aw(k)-s_aw(k+1))*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qnc(k) + dtz(k)*(s_awqnc(k)-s_awqnc(k+1))*nonloc + ENDDO + +!! prescribed value + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=qnc(kte) + +! CALL tridiag(kte,a,b,c,d) +! CALL tridiag2(kte,a,b,c,d,x) + CALL tridiag3(kte,a,b,c,d,x) + + DO k=kts,kte + !qnc2(k)=d(k-kts+1) + qnc2(k)=x(k) + ENDDO + +ELSE + qnc2=qnc +ENDIF + +!============================================ +! Water-friendly aerosols ( qnwfa ). +!============================================ +IF (bl_mynn_cloudmix > 0 .AND. FLAG_QNWFA .AND. & + bl_mynn_mixscalars > 0) THEN + + k=kts + + a(k)= -dtz(k)*khdz(k)/rho(k) + b(k)=1.+dtz(k)*(khdz(k) + khdz(k+1))/rho(k) - & + & 0.5*dtz(k)*s_aw(k+1)*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qnwfa(k) - dtz(k)*s_awqnwfa(k+1)*nonloc + + DO k=kts+1,kte-1 + a(k)= -dtz(k)*khdz(k)/rho(k) + 0.5*dtz(k)*s_aw(k)*nonloc + b(k)=1.+dtz(k)*(khdz(k) + khdz(k+1))/rho(k) + & + & 0.5*dtz(k)*(s_aw(k)-s_aw(k+1))*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qnwfa(k) + dtz(k)*(s_awqnwfa(k)-s_awqnwfa(k+1))*nonloc + ENDDO + +! prescribed value + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=qnwfa(kte) + +! CALL tridiag(kte,a,b,c,d) +! CALL tridiag2(kte,a,b,c,d,x) + CALL tridiag3(kte,a,b,c,d,x) DO k=kts,kte + !qnwfa2(k)=d(k) + qnwfa2(k)=x(k) + ENDDO + +ELSE + !If not mixing aerosols, set "updated" array equal to original array + qnwfa2=qnwfa +ENDIF + +!============================================ +! Ice-friendly aerosols ( qnifa ). +!============================================ +IF (bl_mynn_cloudmix > 0 .AND. FLAG_QNIFA .AND. & + bl_mynn_mixscalars > 0) THEN + + k=kts + + a(k)= -dtz(k)*khdz(k)/rho(k) + b(k)=1.+dtz(k)*(khdz(k) + khdz(k+1))/rho(k) - & + & 0.5*dtz(k)*s_aw(k+1)*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qnifa(k) - dtz(k)*s_awqnifa(k+1)*nonloc + + DO k=kts+1,kte-1 + a(k)= -dtz(k)*khdz(k)/rho(k) + 0.5*dtz(k)*s_aw(k)*nonloc + b(k)=1.+dtz(k)*(khdz(k) + khdz(k+1))/rho(k) + & + & 0.5*dtz(k)*(s_aw(k)-s_aw(k+1))*nonloc + c(k)= -dtz(k)*khdz(k+1)/rho(k) - 0.5*dtz(k)*s_aw(k+1)*nonloc + d(k)=qnifa(k) + dtz(k)*(s_awqnifa(k)-s_awqnifa(k+1))*nonloc + ENDDO + +! prescribed value + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=qnifa(kte) + +! CALL tridiag(kte,a,b,c,d) +! CALL tridiag2(kte,a,b,c,d,x) + CALL tridiag3(kte,a,b,c,d,x) - IF (bl_mynn_mixqt > 0) THEN + DO k=kts,kte + !qnifa2(k)=d(k-kts+1) + qnifa2(k)=x(k) + ENDDO + +ELSE + !If not mixing aerosols, set "updated" array equal to original array + qnifa2=qnifa +ENDIF + + +!!============================================ +!! Compute tendencies and convert to mixing ratios for WRF. +!! Note that the momentum tendencies are calculated above. +!!============================================ + + IF (bl_mynn_mixqt > 0) THEN + DO k=kts,kte t = th(k)*exner(k) !SATURATED VAPOR PRESSURE esat=esat_blend(t) !SATURATED SPECIFIC HUMIDITY - qsl=ep_2*esat/(p(k)-ep_3*esat) + !qsl=ep_2*esat/(p(k)-ep_3*esat) + qsl=ep_2*esat/max(1.e-4,(p(k)-ep_3*esat)) !IF (qsl >= sqw2(k)) THEN !unsaturated ! sqv2(k) = MAX(0.0,sqw2(k)) @@ -3189,67 +3383,98 @@ SUBROUTINE mynn_tendencies(kts,kte, & sqv2(k) = MAX(0., sqw2(k) - sqc2(k)) ! updated water vapor ENDIF !ENDIF - ENDIF + ENDDO + ENDIF - !===================== - ! WATER VAPOR TENDENCY - !===================== + !===================== + ! WATER VAPOR TENDENCY + !===================== + DO k=kts,kte Dqv(k)=(sqv2(k)/(1.-sqv2(k)) - qv(k))/delt !IF(-Dqv(k) > qv(k)) Dqv(k)=-qv(k) + ENDDO - !===================== - ! CLOUD WATER TENDENCY - !===================== - !qc fog settling tendency is now computed in module_bl_fogdes.F, so - !sqc should only be changed by eddy diffusion or mass-flux. - !print*,"FLAG_QC:",FLAG_QC - IF (bl_mynn_cloudmix > 0 .AND. FLAG_QC) THEN - Dqc(k)=(sqc2(k)/(1.-sqc2(k)) - qc(k))/delt - IF(Dqc(k)*delt + qc(k) < 0.) THEN - !print*,' neg qc: ',qsl,' ',sqw2(k),' ',sqi2(k),' ',sqc2(k),' ',qc(k),' ',tk(k) - Dqc(k)=-qc(k)/delt - ENDIF + IF (bl_mynn_cloudmix > 0) THEN + !===================== + ! CLOUD WATER TENDENCY + !===================== + !qc fog settling tendency is now computed in module_bl_fogdes.F, so + !sqc should only be changed by eddy diffusion or mass-flux. + !print*,"FLAG_QC:",FLAG_QC + IF (FLAG_QC) THEN + DO k=kts,kte + Dqc(k)=(sqc2(k)/(1.-sqv2(k)) - qc(k))/delt + IF(Dqc(k)*delt + qc(k) < 0.) THEN + !print*,' neg qc:',qsl,sqw2(k),sqi2(k),sqc2(k),qc(k),tk(k) + Dqc(k)=-qc(k)/delt + ENDIF + ENDDO + ELSE + DO k=kts,kte + Dqc(k) = 0. + ENDDO + ENDIF - !REMOVED MIXING OF QNC - PERFORMED IN THE SCALAR_PBLMIX OPTION - !IF (FLAG_QNC) THEN - ! IF(sqc2(k)>1.e-9)qnc2(k)=MAX(qnc2(k),1.e6) - ! Dqnc(k) = (qnc2(k)-qnc(k))/delt - ! IF(Dqnc(k)*delt + qnc(k) < 0.)Dqnc(k)=-qnc(k)/delt - !ELSE - ! Dqnc(k) = 0. - !ENDIF - ELSE - Dqc(k)=0. - !Dqnc(k)=0. - ENDIF + !=================== + ! CLOUD WATER NUM CONC TENDENCY + !=================== + IF (FLAG_QNC .AND. bl_mynn_mixscalars > 0) THEN + DO k=kts,kte + !IF(sqc2(k)>1.e-9)qnc2(k)=MAX(qnc2(k),1.e6) + Dqnc(k) = (qnc2(k)-qnc(k))/delt + !IF(Dqnc(k)*delt + qnc(k) < 0.)Dqnc(k)=-qnc(k)/delt + ENDDO + ELSE + DO k=kts,kte + Dqnc(k) = 0. + ENDDO + ENDIF - !=================== - ! CLOUD ICE TENDENCY - !=================== - IF (bl_mynn_cloudmix > 0 .AND. FLAG_QI) THEN - Dqi(k)=(sqi2(k)/(1.-sqi2(k)) - qi(k))/delt - IF(Dqi(k)*delt + qi(k) < 0.) THEN - !print*,' neg qi; ',qsl,' ',sqw2(k),' ',sqi2(k),' ',sqc2(k),' ',qi(k),' ',tk(k) - Dqi(k)=-qi(k)/delt - ENDIF + !=================== + ! CLOUD ICE TENDENCY + !=================== + IF (FLAG_QI) THEN + DO k=kts,kte + Dqi(k)=(sqi2(k)/(1.-sqv2(k)) - qi(k))/delt + IF(Dqi(k)*delt + qi(k) < 0.) THEN + ! !print*,' neg qi;',qsl,sqw2(k),sqi2(k),sqc2(k),qi(k),tk(k) + Dqi(k)=-qi(k)/delt + ENDIF + ENDDO + ELSE + DO k=kts,kte + Dqi(k) = 0. + ENDDO + ENDIF - !REMOVED MIXING OF QNI - PERFORMED IN THE SCALAR_PBLMIX OPTION - !SET qni2 = qni above, so all tendencies are zero - IF (FLAG_QNI) THEN + !=================== + ! CLOUD ICE NUM CONC TENDENCY + !=================== + IF (FLAG_QNI .AND. bl_mynn_mixscalars > 0) THEN + DO k=kts,kte Dqni(k)=(qni2(k)-qni(k))/delt - IF(Dqni(k)*delt + qni(k) < 0.)Dqni(k)=-qni(k)/delt - ELSE + !IF(Dqni(k)*delt + qni(k) < 0.)Dqni(k)=-qni(k)/delt + ENDDO + ELSE + DO k=kts,kte Dqni(k)=0. - ENDIF - ELSE + ENDDO + ENDIF + ELSE !-MIX CLOUD SPECIES? + !CLOUDS ARE NOT NIXED (when bl_mynn_cloudmix == 0) + DO k=kts,kte + Dqc(k)=0. + Dqnc(k)=0. Dqi(k)=0. Dqni(k)=0. - ENDIF + ENDDO + ENDIF - !=================== - ! THETA TENDENCY - !=================== - IF (FLAG_QI) THEN + !=================== + ! THETA TENDENCY + !=================== + IF (FLAG_QI) THEN + DO k=kts,kte Dth(k)=(thl(k) + xlvcp/exner(k)*sqc(k) & & + xlscp/exner(k)*sqi(k) & & - th(k))/delt @@ -3258,15 +3483,38 @@ SUBROUTINE mynn_tendencies(kts,kte, & !Dth(k)=(thl(k)*(1.+ xlvcp/MAX(tk(k),TKmin)*sqc2(k) & ! & + xlscp/MAX(tk(k),TKmin)*sqi2(k)) & ! & - th(k))/delt - ELSE + ENDDO + ELSE + DO k=kts,kte Dth(k)=(thl(k)+xlvcp/exner(k)*sqc2(k) - th(k))/delt !Use form from Tripoli and Cotton (1981) with their !suggested min temperature to improve accuracy. !Dth(k)=(thl(k)*(1.+ xlvcp/MAX(tk(k),TKmin)*sqc2(k)) & !& - th(k))/delt - ENDIF + ENDDO + ENDIF - ENDDO + !=================== + ! AEROSOL TENDENCIES + !=================== + IF (FLAG_QNWFA .AND. FLAG_QNIFA .AND. & + bl_mynn_mixscalars > 0) THEN + DO k=kts,kte + !===================== + ! WATER-friendly aerosols + !===================== + Dqnwfa(k)=(qnwfa2(k) - qnwfa(k))/delt + !===================== + ! Ice-friendly aerosols + !===================== + Dqnifa(k)=(qnifa2(k) - qnifa(k))/delt + ENDDO + ELSE + DO k=kts,kte + Dqnwfa(k)=0. + Dqnifa(k)=0. + ENDDO + ENDIF #ifdef HARDCODE_VERTICAL # undef kts @@ -3277,12 +3525,12 @@ END SUBROUTINE mynn_tendencies ! ================================================================== #if (WRF_CHEM == 1) - SUBROUTINE mynn_mix_chem(kts,kte, & + SUBROUTINE mynn_mix_chem(kts,kte, & levflag,grav_settling, & delt,dz, & nchem, kdvel, ndvel, num_vert_mix, & chem1, vd1, & - qni,qnc, & + qnc,qni, & p,exner, & thl,sqv,sqc,sqi,sqw, & ust,flt,flq,flqv,flqc,wspd,qcg, & @@ -3290,6 +3538,7 @@ SUBROUTINE mynn_mix_chem(kts,kte, & tsq,qsq,cov, & tcd,qcd, & dfm,dfh,dfq, & + s_aw, & s_awchem, & bl_mynn_cloudmix) @@ -3303,6 +3552,7 @@ SUBROUTINE mynn_mix_chem(kts,kte, & REAL, DIMENSION(kts:kte), INTENT(INOUT) :: thl,sqw,sqv,sqc,sqi REAL, INTENT(IN) :: delt,ust,flt,flq,flqv,flqc,wspd,uoce,voce,qcg INTEGER, INTENT(IN ) :: nchem, kdvel, ndvel, num_vert_mix + REAL, DIMENSION( kts:kte+1), INTENT(IN) :: s_aw REAL, DIMENSION( kts:kte, nchem ), INTENT(INOUT) :: chem1 REAL, DIMENSION( kts:kte+1,nchem), INTENT(IN) :: s_awchem REAL, DIMENSION( ndvel ), INTENT(INOUT) :: vd1 @@ -3313,12 +3563,10 @@ SUBROUTINE mynn_mix_chem(kts,kte, & REAL, DIMENSION(1:kte-kts+1) :: a,b,c,d REAL :: rhs,gfluxm,gfluxp,dztop REAL :: t,esl,qsl - INTEGER :: k,kk,nz + INTEGER :: k,kk INTEGER :: ic ! Chemical array loop index REAL, DIMENSION( kts:kte, nchem ) :: chem_new - nz=kte-kts+1 - dztop=.5*(dz(kte)+dz(kte-1)) DO k=kts,kte @@ -3333,27 +3581,25 @@ SUBROUTINE mynn_mix_chem(kts,kte, & k=kts a(1)=0. - b(1)=1.+dtz(k)*dfh(k+1) - c(1)=-dtz(k)*dfh(k+1) - ! d(1)=sqv(k) + dtz(k)*flqv + qcd(k)*delt - d(1)=chem1(k,ic) + dtz(k) * -vd1(ic)*chem1(1,ic) + b(1)=1.+dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) + c(1)=-dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) + d(1)=chem1(k,ic) + dtz(k) * -vd1(ic)*chem1(1,ic) - dtz(k)*s_awchem(k+1,ic) DO k=kts+1,kte-1 - kk=k-kts+1 - a(kk)=-dtz(k)*dfh(k) - b(kk)=1.+dtz(k)*(dfh(k)+dfh(k+1)) - c(kk)=-dtz(k)*dfh(k+1) + a(k)=-dtz(k)*dfh(k) + 0.5*dtz(k)*s_aw(k) + b(k)=1.+dtz(k)*(dfh(k)+dfh(k+1)) + 0.5*dtz(k)*(s_aw(k)-s_aw(k+1)) + c(k)=-dtz(k)*dfh(k+1) - 0.5*dtz(k)*s_aw(k+1) ! d(kk)=chem1(k,ic) + qcd(k)*delt - d(kk)=chem1(k,ic) + rhs*delt + dtz(k)*(s_awchem(k,ic)-s_awchem(k+1,ic)) + d(k)=chem1(k,ic) + rhs*delt + dtz(k)*(s_awchem(k,ic)-s_awchem(k+1,ic)) ENDDO ! prescribed value at top - a(nz)=0. - b(nz)=1. - c(nz)=0. - d(nz)=chem1(kte,ic) + a(kte)=0. + b(kte)=1. + c(kte)=0. + d(kte)=chem1(kte,ic) - CALL tridiag(nz,a,b,c,d) + CALL tridiag(kte,a,b,c,d) DO k=kts,kte chem_new(k,ic)=d(k-kts+1) @@ -3365,17 +3611,15 @@ END SUBROUTINE mynn_mix_chem ! ================================================================== SUBROUTINE retrieve_exchange_coeffs(kts,kte,& - &dfm,dfh,dfq,dz,& - &K_m,K_h,K_q) + &dfm,dfh,dz,K_m,K_h) !------------------------------------------------------------------- INTEGER , INTENT(in) :: kts,kte - REAL, DIMENSION(KtS:KtE), INTENT(in) :: dz,dfm,dfh,dfq + REAL, DIMENSION(KtS:KtE), INTENT(in) :: dz,dfm,dfh - REAL, DIMENSION(KtS:KtE), INTENT(out) :: & - &K_m, K_h, K_q + REAL, DIMENSION(KtS:KtE), INTENT(out) :: K_m, K_h INTEGER :: k @@ -3383,13 +3627,11 @@ SUBROUTINE retrieve_exchange_coeffs(kts,kte,& K_m(kts)=0. K_h(kts)=0. - K_q(kts)=0. DO k=kts+1,kte dzk = 0.5 *( dz(k)+dz(k-1) ) K_m(k)=dfm(k)*dzk K_h(k)=dfh(k)*dzk - K_q(k)=Sqfac*dfq(k)*dzk ENDDO END SUBROUTINE retrieve_exchange_coeffs @@ -3463,11 +3705,52 @@ subroutine tridiag2(n,a,b,c,d,x) end do end subroutine tridiag2 +! ================================================================== + subroutine tridiag3(kte,a,b,c,d,x) + +!ccccccccccccccccccccccccccccccc +! Aim: Inversion and resolution of a tridiagonal matrix +! A X = D +! Input: +! a(*) lower diagonal (Ai,i-1) +! b(*) principal diagonal (Ai,i) +! c(*) upper diagonal (Ai,i+1) +! d +! Output +! x results +!ccccccccccccccccccccccccccccccc + + implicit none + integer,intent(in) :: kte + integer, parameter :: kts=1 + real, dimension(kte) :: a,b,c,d + real ,dimension(kte),intent(out) :: x + integer :: in + +! integer kms,kme,kts,kte,in +! real a(kms:kme,3),c(kms:kme),x(kms:kme) + + do in=kte-1,kts,-1 + d(in)=d(in)-c(in)*d(in+1)/b(in+1) + b(in)=b(in)-c(in)*a(in+1)/b(in+1) + enddo + + do in=kts+1,kte + d(in)=d(in)-a(in)*d(in-1)/b(in-1) + enddo + + do in=kts,kte + x(in)=d(in)/b(in) + enddo + + return + end subroutine tridiag3 ! ================================================================== SUBROUTINE mynn_bl_driver( & &initflag,grav_settling, & &delt,dz,dx,znt, & - &u,v,w,th,qv,qc,qi,qni,qnc, & + &u,v,w,th,qv,qc,qi,qnc,qni, & + &qnwfa,qnifa, & &p,exner,rho,T3D, & &xland,ts,qsfc,qcg,ps, & &ust,ch,hfx,qfx,rmol,wspd, & @@ -3482,7 +3765,8 @@ SUBROUTINE mynn_bl_driver( & &Tsq,Qsq,Cov, & &RUBLTEN,RVBLTEN,RTHBLTEN, & &RQVBLTEN,RQCBLTEN,RQIBLTEN, & - &RQNIBLTEN, & + &RQNCBLTEN,RQNIBLTEN, & + &RQNWFABLTEN,RQNIFABLTEN, & &exch_h,exch_m, & &Pblh,kpbl, & &el_pbl, & @@ -3494,14 +3778,15 @@ SUBROUTINE mynn_bl_driver( & &icloud_bl,qc_bl,cldfra_bl, & &bl_mynn_edmf, & &bl_mynn_edmf_mom,bl_mynn_edmf_tke, & - &bl_mynn_edmf_part, & + &bl_mynn_mixscalars, & &bl_mynn_cloudmix,bl_mynn_mixqt, & &edmf_a,edmf_w,edmf_qt, & &edmf_thl,edmf_ent,edmf_qc, & &nupdraft,maxMF,ktop_shallow, & &spp_pbl,pattern_spp_pbl, & &RTHRATEN, & - &FLAG_QI,FLAG_QNI,FLAG_QC,FLAG_QNC & + &FLAG_QC,FLAG_QI,FLAG_QNC, & + &FLAG_QNI,FLAG_QNWFA,FLAG_QNIFA & &,IDS,IDE,JDS,JDE,KDS,KDE & &,IMS,IME,JMS,JME,KMS,KME & &,ITS,ITE,JTS,JTE,KTS,KTE) @@ -3518,12 +3803,13 @@ SUBROUTINE mynn_bl_driver( & LOGICAL, INTENT(IN) :: bl_mynn_tkeadvect INTEGER, INTENT(in) :: bl_mynn_edmf_mom INTEGER, INTENT(in) :: bl_mynn_edmf_tke - INTEGER, INTENT(in) :: bl_mynn_edmf_part + INTEGER, INTENT(in) :: bl_mynn_mixscalars INTEGER, INTENT(in) :: bl_mynn_cloudmix INTEGER, INTENT(in) :: bl_mynn_mixqt INTEGER, INTENT(in) :: icloud_bl - LOGICAL, INTENT(IN) :: FLAG_QI,FLAG_QNI,FLAG_QC,FLAG_QNC + LOGICAL, INTENT(IN) :: FLAG_QI,FLAG_QNI,FLAG_QC,FLAG_QNC,& + FLAG_QNWFA,FLAG_QNIFA INTEGER,INTENT(IN) :: & & IDS,IDE,JDS,JDE,KDS,KDE & @@ -3546,7 +3832,7 @@ SUBROUTINE mynn_bl_driver( & REAL, DIMENSION(IMS:IME,KMS:KME,JMS:JME), INTENT(in) :: dz,& &u,v,w,th,qv,p,exner,rho,T3D REAL, DIMENSION(IMS:IME,KMS:KME,JMS:JME), OPTIONAL, INTENT(in)::& - &qc,qi,qni,qnc + &qc,qi,qni,qnc,qnwfa,qnifa REAL, DIMENSION(IMS:IME,JMS:JME), INTENT(in) :: xland,ust,& &ch,rmol,ts,qsfc,qcg,ps,hfx,qfx, wspd,uoce,voce, vdfg,znt @@ -3557,7 +3843,8 @@ SUBROUTINE mynn_bl_driver( & REAL, DIMENSION(IMS:IME,KMS:KME,JMS:JME), INTENT(inout) :: & &RUBLTEN,RVBLTEN,RTHBLTEN,RQVBLTEN,RQCBLTEN,& - &RQIBLTEN,RQNIBLTEN,RTHRATEN !,RQNCBLTEN + &RQIBLTEN,RQNIBLTEN,RTHRATEN,RQNCBLTEN, & + &RQNWFABLTEN,RQNIFABLTEN REAL, DIMENSION(IMS:IME,KMS:KME,JMS:JME), INTENT(out) :: & &exch_h,exch_m @@ -3584,9 +3871,9 @@ SUBROUTINE mynn_bl_driver( & &qWT,qSHEAR,qBUOY,qDISS,dqke ! 3D budget arrays are not allocated when bl_mynn_tkebudget == 0. ! 1D (local) budget arrays are used for passing between subroutines. - REAL, DIMENSION(KTS:KTE) :: qWT1,qSHEAR1,qBUOY1,qDISS1,dqke1 + REAL, DIMENSION(KTS:KTE) :: qWT1,qSHEAR1,qBUOY1,qDISS1,dqke1,diss_heat - REAL, DIMENSION(IMS:IME,KMS:KME,JMS:JME) :: K_q,Sh3D + REAL, DIMENSION(IMS:IME,KMS:KME,JMS:JME) :: Sh3D REAL, DIMENSION(IMS:IME,KMS:KME,JMS:JME), INTENT(inout) :: & &qc_bl,cldfra_bl @@ -3595,9 +3882,9 @@ SUBROUTINE mynn_bl_driver( & ! WA 7/29/15 Mix chemical arrays #if (WRF_CHEM == 1) - INTEGER, INTENT(IN ) :: nchem, kdvel, ndvel, num_vert_mix - REAL, DIMENSION( ims:ime, kms:kme, jms:jme, nchem ), INTENT(INOUT) :: chem3d - REAL, DIMENSION( ims:ime, kdvel, jms:jme, ndvel ), INTENT(IN) :: vd3d + INTEGER, INTENT(IN ) :: nchem, kdvel, ndvel, num_vert_mix + REAL, DIMENSION( ims:ime, kms:kme, jms:jme, nchem ), INTENT(INOUT), OPTIONAL :: chem3d + REAL, DIMENSION( ims:ime, kdvel, jms:jme, ndvel ), INTENT(IN), OPTIONAL :: vd3d REAL, DIMENSION( kts:kte, nchem ) :: chem1 REAL, DIMENSION( kts:kte+1, nchem ) :: s_awchem1 REAL, DIMENSION( ndvel ) :: vd1 @@ -3613,14 +3900,15 @@ SUBROUTINE mynn_bl_driver( & REAL, DIMENSION(KTS:KTE) :: thetav,sh,u1,v1,w1,p1,ex1,dz1,th1,tk1,rho1,& & qke1,tsq1,qsq1,cov1,qv1,qi1,qc1,du1,dv1,dth1,dqv1,dqc1,dqi1, & - & k_m1,k_h1,k_q1,qni1,dqni1,qnc1 !,dqnc1 + & k_m1,k_h1,qni1,dqni1,qnc1,dqnc1,qnwfa1,qnifa1,dqnwfa1,dqnifa1 !JOE: mass-flux variables REAL, DIMENSION(KTS:KTE) :: dth1mf,dqv1mf,dqc1mf,du1mf,dv1mf REAL, DIMENSION(KTS:KTE) :: edmf_a1,edmf_w1,edmf_qt1,edmf_thl1,& edmf_ent1,edmf_qc1 REAL,DIMENSION(KTS:KTE+1) :: s_aw1,s_awthl1,s_awqt1,& - s_awqv1,s_awqc1,s_awu1,s_awv1,s_awqke1 + s_awqv1,s_awqc1,s_awu1,s_awv1,s_awqke1,& + s_awqnc1,s_awqni1,s_awqnwfa1,s_awqnifa1 REAL, DIMENSION(KTS:KTE+1) :: zw REAL :: cpm,sqcg,flt,flq,flqv,flqc,pmz,phh,exnerg,zet,& @@ -3628,7 +3916,7 @@ SUBROUTINE mynn_bl_driver( & !JOE-add GRIMS parameters & variables real,parameter :: d1 = 0.02, d2 = 0.05, d3 = 0.001 - real,parameter :: h1 = 0.33333335, h2 = 0.6666667 + real,parameter :: h1 = 0.33333333, h2 = 0.6666667 REAL :: govrth, sflux, bfx0, wstar3, wm2, wm3, delb !JOE-end GRIMS !JOE-top-down diffusion @@ -3660,9 +3948,14 @@ SUBROUTINE mynn_bl_driver( & JMD=(JMS+JME)/2 !*** End debugging +!WRF JTF=MIN0(JTE,JDE-1) ITF=MIN0(ITE,IDE-1) KTF=MIN0(KTE,KDE-1) +!FV3 +! JTF=JTE +! ITF=ITE +! KTF=KTE levflag=mynn_level @@ -3692,7 +3985,9 @@ SUBROUTINE mynn_bl_driver( & dqc1(kts:kte)=0.0 dqi1(kts:kte)=0.0 dqni1(kts:kte)=0.0 - !dqnc1(kts:kte)=0.0 + dqnc1(kts:kte)=0.0 + dqnwfa1(kts:kte)=0.0 + dqnifa1(kts:kte)=0.0 qc_bl1D(kts:kte)=0.0 cldfra_bl1D(kts:kte)=0.0 qc_bl1D_old(kts:kte)=0.0 @@ -3704,6 +3999,29 @@ SUBROUTINE mynn_bl_driver( & vt(kts:kte)=0.0 vq(kts:kte)=0.0 + DO j=JTS,JTF + DO k=KTS,KTE + DO i=ITS,ITF + exch_m(i,k,j)=0. + exch_h(i,k,j)=0. + ENDDO + ENDDO + ENDDO + + IF ( bl_mynn_tkebudget == 1) THEN + DO j=JTS,JTF + DO k=KTS,KTE + DO i=ITS,ITF + qWT(i,k,j)=0. + qSHEAR(i,k,j)=0. + qBUOY(i,k,j)=0. + qDISS(i,k,j)=0. + dqke(i,k,j)=0. + ENDDO + ENDDO + ENDDO + ENDIF + DO j=JTS,JTF DO i=ITS,ITF DO k=KTS,KTE !KTF @@ -3714,11 +4032,11 @@ SUBROUTINE mynn_bl_driver( & th1(k)=th(i,k,j) tk1(k)=T3D(i,k,j) rho1(k)=rho(i,k,j) - sqc(k)=qc(i,k,j)/(1.+qc(i,k,j)) + sqc(k)=qc(i,k,j)/(1.+qv(i,k,j)) sqv(k)=qv(i,k,j)/(1.+qv(i,k,j)) thetav(k)=th(i,k,j)*(1.+0.61*sqv(k)) IF (PRESENT(qi) .AND. FLAG_QI ) THEN - sqi(k)=qi(i,k,j)/(1.+qi(i,k,j)) + sqi(k)=qi(i,k,j)/(1.+qv(i,k,j)) sqw(k)=sqv(k)+sqc(k)+sqi(k) thl(k)=th(i,k,j)- xlvcp/exner(i,k,j)*sqc(k) & & - xlscp/exner(i,k,j)*sqi(k) @@ -3741,9 +4059,6 @@ SUBROUTINE mynn_bl_driver( & zw(k)=zw(k-1)+dz(i,k-1,j) ENDIF thvl(k)=thl(k)*(1.+0.61*sqv(k)) - exch_m(i,k,j)=0. - exch_h(i,k,j)=0. - K_q(i,k,j)=0. qke(i,k,j)=0.1-MIN(zw(k)*0.001, 0.0) !for initial PBLH calc only qke1(k)=qke(i,k,j) el(k)=el_pbl(i,k,j) @@ -3757,15 +4072,6 @@ SUBROUTINE mynn_bl_driver( & rstoch_col(k)=0.0 endif - - IF ( bl_mynn_tkebudget == 1) THEN - !TKE BUDGET VARIABLES - qWT(i,k,j)=0. - qSHEAR(i,k,j)=0. - qBUOY(i,k,j)=0. - qDISS(i,k,j)=0. - dqke(i,k,j)=0. - ENDIF ENDDO zw(kte+1)=zw(kte)+dz(i,kte,j) @@ -3844,16 +4150,18 @@ SUBROUTINE mynn_bl_driver( & qv1(k)= qv(i,k,j) qc1(k)= qc(i,k,j) sqv(k)= qv(i,k,j)/(1.+qv(i,k,j)) - sqc(k)= qc(i,k,j)/(1.+qc(i,k,j)) + sqc(k)= qc(i,k,j)/(1.+qv(i,k,j)) IF(icloud_bl > 0)cldfra_bl1D_old(k)=cldfra_bl(i,k,j) IF(icloud_bl > 0)qc_bl1D_old(k)=qc_bl(i,k,j) dqc1(k)=0.0 dqi1(k)=0.0 dqni1(k)=0.0 - !dqnc1(k)=0.0 + dqnc1(k)=0.0 + dqnwfa1(k)=0.0 + dqnifa1(k)=0.0 IF(PRESENT(qi) .AND. FLAG_QI)THEN qi1(k)= qi(i,k,j) - sqi(k)= qi(i,k,j)/(1.+qi(i,k,j)) + sqi(k)= qi(i,k,j)/(1.+qv(i,k,j)) sqw(k)= sqv(k)+sqc(k)+sqi(k) thl(k)= th(i,k,j) - xlvcp/exner(i,k,j)*sqc(k) & & - xlscp/exner(i,k,j)*sqi(k) @@ -3873,16 +4181,24 @@ SUBROUTINE mynn_bl_driver( & IF (PRESENT(qni) .AND. FLAG_QNI ) THEN qni1(k)=qni(i,k,j) - !print*,"MYNN: Flag_qni=",FLAG_QNI,qni(i,k,j) ELSE qni1(k)=0.0 ENDIF IF (PRESENT(qnc) .AND. FLAG_QNC ) THEN qnc1(k)=qnc(i,k,j) - !print*,"MYNN: Flag_qnc=",FLAG_QNC,qnc(i,k,j) ELSE qnc1(k)=0.0 ENDIF + IF (PRESENT(qnwfa) .AND. FLAG_QNWFA ) THEN + qnwfa1(k)=qnwfa(i,k,j) + ELSE + qnwfa1(k)=0.0 + ENDIF + IF (PRESENT(qnifa) .AND. FLAG_QNIFA ) THEN + qnifa1(k)=qnifa(i,k,j) + ELSE + qnifa1(k)=0.0 + ENDIF thetav(k)=th(i,k,j)*(1.+0.608*sqv(k)) thvl(k)=thl(k)*(1.+0.61*sqv(k)) p1(k) = p(i,k,j) @@ -3912,8 +4228,14 @@ SUBROUTINE mynn_bl_driver( & s_awu1(k)=0. s_awv1(k)=0. s_awqke1(k)=0. + s_awqnc1(k)=0. + s_awqni1(k)=0. + s_awqnwfa1(k)=0. + s_awqnifa1(k)=0. #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN + IF (PRESENT(chem3d) .AND. PRESENT(vd3d)) THEN ! WA 7/29/15 Set up chemical arrays DO ic = 1,nchem chem1(k,ic) = chem3d(i,k,j,ic) @@ -3924,6 +4246,18 @@ SUBROUTINE mynn_bl_driver( & vd1(ic) = vd3d(i,1,j,ic) ENDIF ENDDO + ELSE + DO ic = 1,nchem + chem1(k,ic) = 0. + s_awchem1(k,ic)=0. + ENDDO + DO ic = 1,ndvel + IF (k == KTS) THEN + vd1(ic) = 0. + ENDIF + ENDDO + ENDIF + ENDIF #endif IF (k==kts) THEN @@ -3943,6 +4277,10 @@ SUBROUTINE mynn_bl_driver( & s_awu1(kte+1)=0. s_awv1(kte+1)=0. s_awqke1(kte+1)=0. + s_awqnc1(kte+1)=0. + s_awqni1(kte+1)=0. + s_awqnwfa1(kte+1)=0. + s_awqnifa1(kte+1)=0. #if (WRF_CHEM == 1) DO ic = 1,nchem s_awchem1(kte+1,ic)=0. @@ -4012,7 +4350,8 @@ SUBROUTINE mynn_bl_driver( & &Sh,el,bl_mynn_cloudpdf, & &qc_bl1D,cldfra_bl1D, & &PBLH(i,j),HFX(i,j), & - &Vt, Vq, th1, sgm ) + &Vt, Vq, th1, sgm, rmol(i,j), & + &spp_pbl, rstoch_col ) !ADD TKE source driven by cloud top cooling IF (bl_mynn_topdown.eq.1)then @@ -4035,6 +4374,7 @@ SUBROUTINE mynn_bl_driver( & zminrad=zw(kk) + 0.5*dz1(kk) endif ENDDO + IF (MAX(kminrad,kpbl(i,j)) < 2)cloudflg = .false. IF (cloudflg) THEN zl1 = dz1(kts) k = MAX(kpbl(i,j)-1, kminrad-1) @@ -4104,13 +4444,15 @@ SUBROUTINE mynn_bl_driver( & ENDIF !end top-down check IF (bl_mynn_edmf == 1) THEN - !PRINT*,"Calling StEM Mass-Flux: i= ",i," j=",j - CALL StEM_mf( & + !PRINT*,"Calling DMP Mass-Flux: i= ",i," j=",j + CALL DMP_mf( & &kts,kte,delt,zw,dz1,p1, & &bl_mynn_edmf_mom, & &bl_mynn_edmf_tke, & + &bl_mynn_mixscalars, & &u1,v1,w1,th1,thl,thetav,tk1, & &sqw,sqv,sqc,qke1, & + &qnc1,qni1,qnwfa1,qnifa1, & &ex1,Vt,Vq,sgm, & &ust(i,j),flt,flq,flqv,flqc, & &PBLH(i,j),KPBL(i,j),DX, & @@ -4122,43 +4464,23 @@ SUBROUTINE mynn_bl_driver( & & edmf_thl1,edmf_ent1,edmf_qc1, & ! for the solver & s_aw1,s_awthl1,s_awqt1, & - & s_awqv1,s_awqc1,s_awu1,s_awv1, & - & s_awqke1, & + & s_awqv1,s_awqc1, & + & s_awu1,s_awv1,s_awqke1, & + & s_awqnc1,s_awqni1, & + & s_awqnwfa1,s_awqnifa1, & #if (WRF_CHEM == 1) & nchem,chem1,s_awchem1, & #endif & qc_bl1D,cldfra_bl1D, & - & FLAG_QI,FLAG_QC, & + & FLAG_QC,FLAG_QI, & + & FLAG_QNC,FLAG_QNI, & + & FLAG_QNWFA,FLAG_QNIFA, & & Psig_shcu(i,j), & & nupdraft(i,j),ktop_shallow(i,j), & & maxmf(i,j),ztop_shallow, & & spp_pbl,rstoch_col & ) - ELSEIF (bl_mynn_edmf == 2) THEN - CALL temf_mf( & - &kts,kte,delt,zw,p1,ex1, & - &u1,v1,w1,th1,thl,thetav, & - &sqw,sqv,sqc,qke1, & - &ust(i,j),flt,flq,flqv,flqc, & - &hfx(i,j),qfx(i,j),ts(i,j), & - &pblh(i,j),rho1,dfh,dx,znt(i,j),ep_2, & - ! outputs - updraft properties - & edmf_a1,edmf_w1,edmf_qt1, & - & edmf_thl1,edmf_ent1,edmf_qc1, & - ! for the solver - & s_aw1,s_awthl1,s_awqt1, & - & s_awqv1,s_awqc1, & - & s_awu1,s_awv1,s_awqke1, & -#if (WRF_CHEM == 1) - & nchem,chem1,s_awchem1, & -#endif - & qc_bl1D,cldfra_bl1D & - &,FLAG_QI,FLAG_QC & - &,Psig_shcu(i,j) & - &,spp_pbl,rstoch_col & - &,i,j,ids,ide,jds,jde & - ) ENDIF CALL mym_turbulence ( & @@ -4180,29 +4502,6 @@ SUBROUTINE mynn_bl_driver( & &TKEprodTD, & &spp_pbl,rstoch_col) - -! IF (bl_mynn_edmf > 0) THEN -! !DEBUG -! DO k=kts,kte -! IF (s_aw1(k)<0. .OR. s_aw1(k)>0.5) THEN -! PRINT*,"After Mass-Flux: i= ",i," j=",j," k=",k -! PRINT*," s_aw1=",s_aw1(k)," s_awthl1=",s_awthl1(k)," s_awqt1=",s_awqt1(k) -! PRINT*," s_awu1=",s_awu1(k)," s_awv1=",s_awu1(k) -! ENDIF -! ENDDO -! ENDIF - - IF (bl_mynn_edmf_part > 0 .AND. bl_mynn_edmf > 0) THEN - !Partition the fluxes from each component (ed & mf). - !Assume overlap of 50%: Reduce eddy diffusivities by 50% of the estimated - !area fraction of mass-flux scheme's updraft. - DO k=kts,kte - dfm(k)=dfm(k) * (1. - 0.5*edmf_a1(k)) - dfh(k)=dfh(k) * (1. - 0.5*edmf_a1(k)) - dfq(k)=dfq(k) * (1. - 0.5*edmf_a1(k)) - ENDDO - ENDIF - CALL mym_predict (kts,kte,levflag, & &delt, dz1, & &ust(i,j), flt, flq, pmz, phh, & @@ -4210,12 +4509,19 @@ SUBROUTINE mynn_bl_driver( & &Qke1, Tsq1, Qsq1, Cov1, & &s_aw1, s_awqke1, bl_mynn_edmf_tke) + DO k=kts,kte-1 + ! Set max dissipative heating rate close to 0.1 K per hour (=0.000027...) + diss_heat(k) = MIN(MAX(0.5*(qke1(k)**1.5)/(b1*MAX(0.5*(el(k)+el(k+1)),1.))/cp, 0.0),0.00002) + ENDDO + diss_heat(kte) = 0. + CALL mynn_tendencies(kts,kte, & &levflag,grav_settling, & - &delt, dz1, & - &u1, v1, th1, tk1, qv1, qc1, qi1, & - &qni1,qnc1, & + &delt, dz1, rho1, & + &u1, v1, th1, tk1, qv1, & + &qc1, qi1, qnc1, qni1, & &p1, ex1, thl, sqv, sqc, sqi, sqw,& + &qnwfa1, qnifa1, & &ust(i,j),flt,flq,flqv,flqc, & &wspd(i,j),qcg(i,j), & &uoce(i,j),voce(i,j), & @@ -4223,27 +4529,32 @@ SUBROUTINE mynn_bl_driver( & &tcd, qcd, & &dfm, dfh, dfq, & &Du1, Dv1, Dth1, Dqv1, & - &Dqc1, Dqi1, Dqni1, & !Dqnc1, & - &vdfg(i,j), & !JOE/Katata- fog deposition + &Dqc1, Dqi1, Dqnc1, Dqni1, & + &Dqnwfa1, Dqnifa1, & + &vdfg(i,j), diss_heat, & ! mass flux components &s_aw1,s_awthl1,s_awqt1, & &s_awqv1,s_awqc1,s_awu1,s_awv1, & - &FLAG_QI,FLAG_QNI,FLAG_QC,FLAG_QNC,& + &s_awqnc1,s_awqni1, & + &s_awqnwfa1,s_awqnifa1, & + &FLAG_QC,FLAG_QI,FLAG_QNC, & + &FLAG_QNI,FLAG_QNWFA,FLAG_QNIFA, & &cldfra_bl1d, & &ztop_shallow,ktop_shallow(i,j), & &bl_mynn_cloudmix, & &bl_mynn_mixqt, & &bl_mynn_edmf, & - &bl_mynn_edmf_mom) + &bl_mynn_edmf_mom, & + &bl_mynn_mixscalars ) #if (WRF_CHEM == 1) IF (bl_mynn_mixchem == 1) THEN - CALL mynn_mix_chem(kts,kte, & + CALL mynn_mix_chem(kts,kte, & levflag,grav_settling, & delt, dz1, & nchem, kdvel, ndvel, num_vert_mix, & chem1, vd1, & - qni1,qnc1, & + qnc1,qni1, & p1, ex1, thl, sqv, sqc, sqi, sqw,& ust(i,j),flt,flq,flqv,flqc, & wspd(i,j),qcg(i,j), & @@ -4252,32 +4563,20 @@ SUBROUTINE mynn_bl_driver( & tcd, qcd, & &dfm, dfh, dfq, & ! mass flux components - & s_awchem1, & + & s_aw1, & + & s_awchem1, & &bl_mynn_cloudmix) ENDIF #endif -! -! add mass flux tendencies and calculate the new variables. -! Now done implicitly in the mynn_tendencies subroutine -! do k=kts,kte -! du1(k)=du1(k)+du1mf(k) -! dv1(k)=dv1(k)+dv1mf(k) -! dth1(k)=dth1(k)+dth1mf(k) -! dqv1(k)=dqv1(k)+dqv1mf(k) -! that is supposed to be done by bl_fogdes -! dqc1(k)=dqc1(k)+dqc1mf(k) -! enddo CALL retrieve_exchange_coeffs(kts,kte,& - &dfm, dfh, dfq, dz1,& - &K_m1, K_h1, K_q1) + &dfm, dfh, dz1, K_m1, K_h1) !UPDATE 3D ARRAYS DO k=KTS,KTE !KTF exch_m(i,k,j)=K_m1(k) exch_h(i,k,j)=K_h1(k) - K_q(i,k,j)=K_q1(k) RUBLTEN(i,k,j)=du1(k) RVBLTEN(i,k,j)=dv1(k) RTHBLTEN(i,k,j)=dth1(k) @@ -4285,13 +4584,20 @@ SUBROUTINE mynn_bl_driver( & IF(bl_mynn_cloudmix > 0)THEN IF (PRESENT(qc) .AND. FLAG_QC) RQCBLTEN(i,k,j)=dqc1(k) IF (PRESENT(qi) .AND. FLAG_QI) RQIBLTEN(i,k,j)=dqi1(k) - !IF (PRESENT(qnc) .AND. FLAG_QNC) RQNCBLTEN(i,k,j)=dqnc1(k) - IF (PRESENT(qni) .AND. FLAG_QNI) RQNIBLTEN(i,k,j)=dqni1(k) ELSE IF (PRESENT(qc) .AND. FLAG_QC) RQCBLTEN(i,k,j)=0. IF (PRESENT(qi) .AND. FLAG_QI) RQIBLTEN(i,k,j)=0. - !IF (PRESENT(qnc) .AND. FLAG_QNC) RQNCBLTEN(i,k,j)=0. + ENDIF + IF(bl_mynn_cloudmix > 0 .AND. bl_mynn_mixscalars > 0)THEN + IF (PRESENT(qnc) .AND. FLAG_QNC) RQNCBLTEN(i,k,j)=dqnc1(k) + IF (PRESENT(qni) .AND. FLAG_QNI) RQNIBLTEN(i,k,j)=dqni1(k) + IF (PRESENT(qnwfa) .AND. FLAG_QNWFA) RQNWFABLTEN(i,k,j)=dqnwfa1(k) + IF (PRESENT(qnifa) .AND. FLAG_QNIFA) RQNIFABLTEN(i,k,j)=dqnifa1(k) + ELSE + IF (PRESENT(qnc) .AND. FLAG_QNC) RQNCBLTEN(i,k,j)=0. IF (PRESENT(qni) .AND. FLAG_QNI) RQNIBLTEN(i,k,j)=0. + IF (PRESENT(qnwfa) .AND. FLAG_QNWFA) RQNWFABLTEN(i,k,j)=0. + IF (PRESENT(qnifa) .AND. FLAG_QNIFA) RQNIFABLTEN(i,k,j)=0. ENDIF IF(icloud_bl > 0)THEN @@ -4299,38 +4605,29 @@ SUBROUTINE mynn_bl_driver( & qc_bl(i,k,j)=qc_bl1D(k) !*Psig_shcu(i,j) cldfra_bl(i,k,j)=cldfra_bl1D(k) !*Psig_shcu(i,j) - !Stochastic perturbations to cldfra_bl and qc_bl - if (spp_pbl==1) then - cldfra_bl(i,k,j)= cldfra_bl(i,k,j)*(1.0-rstoch_col(k)) - IF ((cldfra_bl(i,k,j) > 1.0) .or. (cldfra_bl(i,k,j) < 0.0)) then - cldfra_bl(i,k,j)=MAX(MIN(cldfra_bl(i,k,j),1.0),0.0) - ENDIF - ELSE - !DIAGNOSTIC-DECAY FOR SUBGRID-SCALE CLOUDS - IF (CLDFRA_BL(i,k,j) > cldfra_bl1D_old(k)) THEN - !KEEP UPDATED CLOUD FRACTION & MIXING RATIO - ELSE - !DECAY TIMESCALE FOR CALM CONDITION IS THE EDDY TURNOVER TIMESCALE, - !BUT FOR WINDY CONDITIONS, IT IS THE ADVECTIVE TIMESCALE. - !USE THE MINIMUM OF THE TWO. - ts_decay = MIN( 1800., 3.*dx/MAX(SQRT(u1(k)**2 + v1(k)**2), 1.0) ) - cldfra_bl(i,k,j)= MAX(cldfra_bl1D(k), cldfra_bl1D_old(k)-(0.25*delt/ts_decay)) - IF (cldfra_bl(i,k,j) > 0.01) THEN - IF (QC_BL(i,k,j) < 1E-5)QC_BL(i,k,j)= MAX(qc_bl1D_old(k), 1E-5) - ELSE - CLDFRA_BL(i,k,j)= 0. - QC_BL(i,k,j) = 0. - ENDIF + !DIAGNOSTIC-DECAY FOR SUBGRID-SCALE CLOUDS + IF (CLDFRA_BL(i,k,j) < cldfra_bl1D_old(k)) THEN + !DECAY TIMESCALE FOR CALM CONDITION IS THE EDDY TURNOVER + !TIMESCALE, BUT FOR + !WINDY CONDITIONS, IT IS THE ADVECTIVE TIMESCALE. USE THE + !MINIMUM OF THE TWO. + ts_decay = MIN( 1800., 3.*dx/MAX(SQRT(u1(k)**2 + v1(k)**2),1.0) ) + cldfra_bl(i,k,j)= MAX(cldfra_bl1D(k),cldfra_bl1D_old(k)-(0.25*delt/ts_decay)) + IF (cldfra_bl(i,k,j) < 0.005) THEN + CLDFRA_BL(i,k,j)= 0. + QC_BL(i,k,j) = 0. ENDIF ENDIF !Reapply checks on cldfra_bl and qc_bl to avoid FPEs in radiation driver ! when these two quantities are multiplied by eachother (they may have changed ! in the MF scheme: - IF (icloud_bl > 0) THEN - IF (QC_BL(i,k,j) < 1E-6 .AND. ABS(CLDFRA_BL(i,k,j)) > 0.1)QC_BL(i,k,j)= 1E-6 - IF (CLDFRA_BL(i,k,j) < 1E-2)CLDFRA_BL(i,k,j)= 0. - ENDIF + !IF (icloud_bl > 0) THEN + IF ( zw(k) < 3000.0 ) THEN + IF (QC_BL(i,k,j) < 5E-6 .AND. CLDFRA_BL(i,k,j) > 0.005) QC_BL(i,k,j)= 5E-6 + ELSE + IF (QC_BL(i,k,j) < 1E-8 .AND. CLDFRA_BL(i,k,j) > 0.005) QC_BL(i,k,j)= 1E-8 + ENDIF ENDIF el_pbl(i,k,j)=el(k) @@ -4630,6 +4927,8 @@ SUBROUTINE GET_PBLH(KTS,KTE,zi,thetav1D,qke1D,zw1D,dz1D,landsea,kzi) END SUBROUTINE GET_PBLH ! ================================================================== +! Dynamic Multi-Plume (DMP) Mass-Flux Scheme +! ! Much thanks to Kay Suslj of NASA-JPL for contributing the original version ! of this mass-flux scheme. Considerable changes have been made from it's ! original form. Some additions include: @@ -4639,17 +4938,17 @@ END SUBROUTINE GET_PBLH ! 4) some extra limits for numerical stability ! This scheme remains under development, so consider it experimental code. ! - SUBROUTINE StEM_mf( & + SUBROUTINE DMP_mf( & & kts,kte,dt,zw,dz,p, & & momentum_opt, & & tke_opt, & + & scalar_opt, & & u,v,w,th,thl,thv,tk, & & qt,qv,qc,qke, & + qnc,qni,qnwfa,qnifa, & & exner,vt,vq,sgm, & & ust,flt,flq,flqv,flqc, & & pblh,kpbl,DX,landsea,ts, & - ! outputs - tendencies - ! &dth,dqv,dqc,du,dv,& ! outputs - updraft properties & edmf_a,edmf_w, & & edmf_qt,edmf_thl, & @@ -4658,21 +4957,25 @@ SUBROUTINE StEM_mf( & & s_aw,s_awthl,s_awqt, & & s_awqv,s_awqc, & & s_awu,s_awv,s_awqke, & + & s_awqnc,s_awqni, & + & s_awqnwfa,s_awqnifa, & #if (WRF_CHEM == 1) - & nchem,chem,s_awchem, & + & nchem,chem,s_awchem, & #endif ! in/outputs - subgrid scale clouds & qc_bl1d,cldfra_bl1d, & ! inputs - flags for moist arrays - &F_QC,F_QI, & - &Psig_shcu, & + & F_QC,F_QI, & + F_QNC,F_QNI, & + & F_QNWFA,F_QNIFA, & + & Psig_shcu, & ! output info &nup2,ktop,maxmf,ztop, & ! unputs for stochastic perturbations &spp_pbl,rstoch_col) ! inputs: - INTEGER, INTENT(IN) :: KTS,KTE,momentum_opt,tke_opt,kpbl + INTEGER, INTENT(IN) :: KTS,KTE,KPBL,momentum_opt,tke_opt,scalar_opt #ifdef HARDCODE_VERTICAL # define kts 1 @@ -4684,17 +4987,17 @@ SUBROUTINE StEM_mf( & REAL, DIMENSION(KTS:KTE) :: rstoch_col REAL,DIMENSION(KTS:KTE), INTENT(IN) :: U,V,W,TH,THL,TK,QT,QV,QC,& - THV,P,qke,exner,dz + exner,dz,THV,P,qke,qnc,qni,qnwfa,qnifa REAL,DIMENSION(KTS:KTE+1), INTENT(IN) :: ZW !height at full-sigma REAL, INTENT(IN) :: DT,UST,FLT,FLQ,FLQV,FLQC,PBLH,& DX,Psig_shcu,landsea,ts - LOGICAL, OPTIONAL :: F_QC,F_QI + LOGICAL, OPTIONAL :: F_QC,F_QI,F_QNC,F_QNI,F_QNWFA,F_QNIFA - ! outputs - tendencies - ! REAL,DIMENSION(KTS:KTE), INTENT(OUT) :: DTH,DQV,DQC,DU,DV ! outputs - updraft properties REAL,DIMENSION(KTS:KTE), INTENT(OUT) :: edmf_a,edmf_w, & & edmf_qt,edmf_thl, edmf_ent,edmf_qc + !add one local edmf variable: + REAL,DIMENSION(KTS:KTE) :: edmf_th ! output INTEGER, INTENT(OUT) :: nup2,ktop REAL, INTENT(OUT) :: maxmf,ztop @@ -4704,6 +5007,10 @@ SUBROUTINE StEM_mf( & s_awqt, & s_awqv, & s_awqc, & + s_awqnc, & + s_awqni, & + s_awqnwfa, & + s_awqnifa, & s_awu, & s_awv, & s_awqke, s_aw2 @@ -4711,10 +5018,13 @@ SUBROUTINE StEM_mf( & REAL,DIMENSION(KTS:KTE), INTENT(INOUT) :: qc_bl1d,cldfra_bl1d INTEGER, PARAMETER :: NUP=10, debug_mf=0 - ! local variables - ! updraft properties - REAL,DIMENSION(KTS:KTE+1,1:NUP) :: UPW,UPTHL,UPQT,UPQC,UPQV, & - UPA,UPU,UPV,UPTHV,UPQKE + + !------------- local variables ------------------- + ! updraft properties defined on interfaces (k=1 is the top of the + ! first model layer + REAL,DIMENSION(KTS:KTE+1,1:NUP) :: UPW,UPTHL,UPQT,UPQC,UPQV, & + UPA,UPU,UPV,UPTHV,UPQKE,UPQNC, & + UPQNI,UPQNWFA,UPQNIFA ! entrainment variables REAL,DIMENSION(KTS:KTE,1:NUP) :: ENT,ENTf INTEGER,DIMENSION(KTS:KTE,1:NUP) :: ENTi @@ -4722,7 +5032,8 @@ SUBROUTINE StEM_mf( & INTEGER :: K,I,k50 REAL :: fltv,wstar,qstar,thstar,sigmaW,sigmaQT,sigmaTH,z0, & pwmin,pwmax,wmin,wmax,wlv,wtv,Psig_w,maxw,maxqc,wpbl - REAL :: B,QTn,THLn,THVn,QCn,Un,Vn,QKEn,Wn2,Wn,EntEXP,EntW,BCOEFF + REAL :: B,QTn,THLn,THVn,QCn,Un,Vn,QKEn,QNCn,QNIn,QNWFAn,QNIFAn, & + Wn2,Wn,EntEXP,EntW,BCOEFF,THVkm1,THVk,Pk ! w parameters REAL,PARAMETER :: & @@ -4763,9 +5074,13 @@ SUBROUTINE StEM_mf( & ! VARIABLES FOR CHABOUREAU-BECHTOLD CLOUD FRACTION REAL,DIMENSION(KTS:KTE), INTENT(INOUT) :: vt, vq, sgm - REAL :: sigq,xl,tlk,qsat_tl,rsl,cpm,a,qmq,mf_cf,diffqt,& + REAL :: sigq,xl,tlk,qsat_tl,rsl,cpm,a,qmq,mf_cf,Q1,diffqt,& Fng,qww,alpha,beta,bb,f,pt,t,q2p,b9,satvp,rhgrid + ! Variables for plume interpolation/saturation check + REAL,DIMENSION(KTS:KTE) :: exneri,dzi + REAL :: THp, QTp, QCp, esat, qsl + ! WA TEST 11/9/15 for consistent reduction of updraft params REAL :: csigma,acfac,EntThrottle @@ -4801,8 +5116,14 @@ SUBROUTINE StEM_mf( & UPQC=0. UPQV=0. UPQKE=0. + UPQNC=0. + UPQNI=0. + UPQNWFA=0. + UPQNIFA=0. #if (WRF_CHEM == 1) - UPCHEM(KTS:KTE+1,1:NUP,1:nchem)=0.0 + IF (bl_mynn_mixchem == 1) THEN + UPCHEM(KTS:KTE+1,1:NUP,1:nchem)=0.0 + ENDIF #endif ENT=0.001 ! Initialize mean updraft properties @@ -4813,7 +5134,9 @@ SUBROUTINE StEM_mf( & edmf_ent=0. edmf_qc =0. #if (WRF_CHEM == 1) - edmf_chem(kts:kte+1,1:nchem) = 0.0 + IF (bl_mynn_mixchem == 1) THEN + edmf_chem(kts:kte+1,1:nchem) = 0.0 + ENDIF #endif ! Initialize the variables needed for implicit solver s_aw=0. @@ -4824,8 +5147,14 @@ SUBROUTINE StEM_mf( & s_awu=0. s_awv=0. s_awqke=0. + s_awqnc=0. + s_awqni=0. + s_awqnwfa=0. + s_awqnifa=0. #if (WRF_CHEM == 1) - s_awchem(kts:kte+1,1:nchem) = 0.0 + IF (bl_mynn_mixchem == 1) THEN + s_awchem(kts:kte+1,1:nchem) = 0.0 + ENDIF #endif @@ -4902,16 +5231,18 @@ SUBROUTINE StEM_mf( & NUP2 = max(1,min(NUP,INT(dx*dcut/dl))) ! Criteria (2) and (4) !wspd_pbl=SQRT(MAX(u(kpbl)**2 + v(kpbl)**2, 0.01)) - maxwidth = 1.0*PBLH !- MIN(15.*MAX(wspd_pbl - 7.5, 0.), 0.3*PBLH) + maxwidth = 1.1*PBLH !- MIN(15.*MAX(wspd_pbl - 7.5, 0.), 0.3*PBLH) ! Criteria (3) - maxwidth = MIN(maxwidth,0.5*cloud_base) +! maxwidth = MIN(maxwidth,0.5*cloud_base) + maxwidth = MIN(maxwidth,0.75*cloud_base) ! Criteria (5) IF((landsea-1.5).LT.0)THEN IF (cloud_base .LT. 2000.) THEN - width_flx = MAX(MIN(1000.*(0.6*tanh((flt - 0.120)/0.03) + .5),1000.), 0.) + !width_flx = MAX(MIN(1000.*(0.6*tanh((flt - 0.120)/0.03) + .5),1000.), 0.) + width_flx = MAX(MIN(1000.*(0.6*tanh((flt - 0.090)/0.03) + .5),1000.), 0.) ELSE - !width_flx = MAX(MIN(1000.*(0.6*tanh((flt - 0.085)/0.04) + .5),1000.), 0.) - width_flx = MAX(MIN(1000.*(0.6*tanh((flt - 0.050)/0.03) + .5),1000.), 0.) + width_flx = MAX(MIN(1000.*(0.6*tanh((flt - 0.040)/0.03) + .5),1000.), 0.) + !width_flx = MAX(MIN(1000.*(0.6*tanh((flt - 0.050)/0.03) + .5),1000.), 0.) ENDIF maxwidth = MIN(maxwidth,width_flx) ENDIF @@ -4947,32 +5278,18 @@ SUBROUTINE StEM_mf( & ! Make updraft area (UPA) a function of the buoyancy flux ! acfac = .5*tanh((fltv - 0.05)/0.2) + .5 ! acfac = .5*tanh((fltv - 0.07)/0.09) + .5 - acfac = .5*tanh((fltv - 0.03)/0.09) + .5 +! acfac = .5*tanh((fltv - 0.03)/0.09) + .5 + acfac = .5*tanh((fltv - 0.02)/0.09) + .5 +! acfac = .5*tanh((fltv - 0.015)/0.05) + .5 UPA(1,I)=UPA(1,I)*acfac An2 = An2 + UPA(1,I) ! total fractional area of all plumes - !print*," plume size=",l,"; area=",An,"; total=",An2 + !print*," plume size=",l,"; area=",UPA(1,I),"; total=",An2 end do - ! get entrainment coefficient - ! get dz/L0 - !ENTf(kts:kte,1:Nup)=0.1 - !ENTi(kts:kte,1:Nup)=0.1 - !ENT(kts:kte,1:Nup)=0.001 - !do i=1,Nup2 - ! do k=kts+1,kte - ! ENTf(k,i)=(ZW(k)-ZW(k-1))/L0 ! input into Poisson - ! ENTf(k,i)=MIN(ENTf(k,i),9.9) !JOE: test avoiding FPE - ! ENTf(k,i)=MAX(ENTf(k,i),0.05) !JOE: test avoiding FPE - ! enddo - !enddo - ! get Poisson P(dz/L0) - !call Poisson(1,Nup2,kts+1,kte,ENTf,ENTi) - ! entrainent: Ent=Ent0/dz*P(dz/L0) - ! set initial conditions for updrafts z0=50. pwmin=0.1 ! was 0.5 - pwmax=0.5 ! was 3.0 + pwmax=0.4 ! was 3.0 wstar=max(1.E-2,(g/thv(1)*fltv*pblh)**(1./3.)) qstar=max(flq,1.0E-5)/wstar @@ -4993,7 +5310,7 @@ SUBROUTINE StEM_mf( & !recompute acfac for plume excess acfac = .5*tanh((fltv - 0.08)/0.07) + .5 - !SPECIFY SURFACE UPDRAFT PROPERTIES + !SPECIFY SURFACE UPDRAFT PROPERTIES AT MODEL INTERFACE BETWEEN K = 1 & 2 DO I=1,NUP !NUP2 IF(I > NUP2) exit wlv=wmin+(wmax-wmin)/NUP2*(i-1) @@ -5008,40 +5325,30 @@ SUBROUTINE StEM_mf( & !UPA(1,I)=0.5*ERF(wtv/(sqrt(2.)*sigmaW)) - 0.5*ERF(wlv/(sqrt(2.)*sigmaW)) !UPA(1,I)=0.25*ERF(wtv/(sqrt(2.)*sigmaW)) - 0.25*ERF(wlv/(sqrt(2.)*sigmaW)) !12.0 - UPU(1,I)=U(1) - UPV(1,I)=V(1) + UPU(1,I)=(U(KTS)*DZ(KTS+1)+U(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) + UPV(1,I)=(V(KTS)*DZ(KTS+1)+V(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) UPQC(1,I)=0 - !UPQT(1,I) =QT(1) +0.58*UPW(1,I)*sigmaQT/sigmaW - !UPTHV(1,I)=THV(1)+0.58*UPW(1,I)*sigmaTH/sigmaW - !Alternatively, initialize parcel over lowest 50m - UPQT(1,I) = 0. - UPTHV(1,I)= 0. - UPTHL(1,I)= 0. - k50=1 !for now, keep at lowest model layer... - DO k=1,k50 - UPQT(1,I) = UPQT(1,I) +QT(k) +0.58*UPW(1,I)*sigmaQT/sigmaW *acfac - UPTHV(1,I)= UPTHV(1,I)+THV(k)+0.58*UPW(1,I)*sigmaTH/sigmaW *acfac - UPTHL(1,I)= UPTHL(1,I)+THL(k)+0.58*UPW(1,I)*sigmaTH/sigmaW *acfac - ENDDO - UPQT(1,I) = UPQT(1,I)/REAL(k50) - UPTHV(1,I)= UPTHV(1,I)/REAL(k50) + !UPQC(1,I)=(QC(KTS)*DZ(KTS+1)+QC(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) + UPQT(1,I)=(QT(KTS)*DZ(KTS+1)+QT(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1))& + & +0.58*UPW(1,I)*sigmaQT/sigmaW + UPTHV(1,I)=(THV(KTS)*DZ(KTS+1)+THV(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) & + & +0.58*UPW(1,I)*sigmaTH/sigmaW !was UPTHL(1,I)= UPTHV(1,I)/(1.+svp1*UPQT(1,I)) !assume no saturated parcel at surface - UPTHL(1,I)= UPTHL(1,I)/REAL(k50) ! now, if the lowest layer is saturated, it will be counted for. - UPQKE(1,I)= QKE(1) + UPTHL(1,I)=(THL(KTS)*DZ(KTS+1)+THL(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) & + & +0.58*UPW(1,I)*sigmaTH/sigmaW + UPQKE(1,I)=(QKE(KTS)*DZ(KTS+1)+QKE(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) + UPQNC(1,I)=(QNC(KTS)*DZ(KTS+1)+QNC(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) + UPQNI(1,I)=(QNI(KTS)*DZ(KTS+1)+QNI(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) + UPQNWFA(1,I)=(QNWFA(KTS)*DZ(KTS+1)+QNWFA(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) + UPQNIFA(1,I)=(QNIFA(KTS)*DZ(KTS+1)+QNIFA(KTS+1)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN do ic = 1,nchem - UPCHEM(1,I,ic)= CHEM(1,ic) + UPCHEM(1,I,ic)= (CHEM(KTS,ic)*DZ(KTS+1)+CHEM(KTS+1,ic)*DZ(KTS))/(DZ(KTS)+DZ(KTS+1)) enddo + ENDIF #endif -! !DEBUG -! IF (UPA(1,I)<0. .OR. UPA(1,I)>0.5 .OR. wstar<0. .OR. wstar>4.0 .OR. & -! ABS(thstar)> 5. .OR. sigmaW>1.5) THEN -! PRINT*,"IN Mass-Flux: UPA(1,i)=",UPA(1,i) -! PRINT*," wstar=",wstar," qstar=",qstar -! PRINT*," thstar=",thstar," sigmaW=",sigmaW -! ENDIF - ENDDO EntThrottle = 0.001 !MAX(0.02/MAX((flt*1.25*1004.)-25.,5.),0.0002) @@ -5052,9 +5359,10 @@ SUBROUTINE StEM_mf( & QCn = 0. overshoot = 0 l = dl*I ! diameter of plume - DO k=KTS+1,KTE + DO k=KTS+1,KTE-1 !w-dependency for entrainment a la Tian and Kuang (2016) - ENT(k,i) = 0.5/(MIN(MAX(UPW(K-1,I),0.75),1.5)*l) + !ENT(k,i) = 0.5/(MIN(MAX(UPW(K-1,I),0.75),1.5)*l) + ENT(k,i) = 0.35/(MIN(MAX(UPW(K-1,I),0.75),1.5)*l) !Entrainment from Negggers (2015, JAMES) !ENT(k,i) = 0.02*l**-0.35 - 0.0009 !JOE - implement minimum background entrainment @@ -5065,15 +5373,23 @@ SUBROUTINE StEM_mf( & ENT(k,i)=ENT(k,i) + (ZW(k)-MIN(pblh+1500.,3500.))*5.0E-6 ENDIF IF(UPW(K-1,I) > 2.0) ENT(k,i) = ENT(k,i) + EntThrottle*(UPW(K-1,I) - 2.0) - ENT(k,i) = min(ENT(k,i),0.9/(ZW(k)-ZW(k-1))) + + !SPP + ENT(k,i) = ENT(k,i) * (1.0 - rstoch_col(k)) + + ENT(k,i) = min(ENT(k,i),0.9/(ZW(k+1)-ZW(k))) ! Linear entrainment: - EntExp= ENT(K,I)*(ZW(k)-ZW(k-1)) - QTn =UPQT(k-1,I) *(1.-EntExp) + QT(k-1)*EntExp - THLn=UPTHL(k-1,I)*(1.-EntExp) + THL(k-1)*EntExp - Un =UPU(k-1,I) *(1.-EntExp) + U(k-1)*EntExp - Vn =UPV(k-1,I) *(1.-EntExp) + V(k-1)*EntExp - QKEn=UPQKE(k-1,I)*(1.-EntExp) + QKE(k-1)*EntExp + EntExp= ENT(K,I)*(ZW(k+1)-ZW(k)) + QTn =UPQT(k-1,I) *(1.-EntExp) + QT(k)*EntExp + THLn=UPTHL(k-1,I)*(1.-EntExp) + THL(k)*EntExp + Un =UPU(k-1,I) *(1.-EntExp) + U(k)*EntExp + Vn =UPV(k-1,I) *(1.-EntExp) + V(k)*EntExp + QKEn=UPQKE(k-1,I)*(1.-EntExp) + QKE(k)*EntExp + QNCn=UPQNC(k-1,I)*(1.-EntExp) + QNC(k)*EntExp + QNIn=UPQNI(k-1,I)*(1.-EntExp) + QNI(k)*EntExp + QNWFAn=UPQNWFA(k-1,I)*(1.-EntExp) + QNWFA(k)*EntExp + QNIFAn=UPQNIFA(k-1,I)*(1.-EntExp) + QNIFA(k)*EntExp ! Exponential Entrainment: !EntExp= exp(-ENT(K,I)*(ZW(k)-ZW(k-1))) @@ -5084,18 +5400,27 @@ SUBROUTINE StEM_mf( & !QKEn=QKE(k)*(1-EntExp)+UPQKE(K-1,I)*EntExp #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN do ic = 1,nchem ! Exponential Entrainment: !chemn(ic) = chem(k,ic)*(1-EntExp)+UPCHEM(K-1,I,ic)*EntExp ! Linear entrainment: - chemn(ic)=UPCHEM(k-1,I,ic)*(1.-EntExp) + chem(k-1,ic)*EntExp + chemn(ic)=UPCHEM(k-1,i,ic)*(1.-EntExp) + chem(k,ic)*EntExp enddo + ENDIF #endif - ! get thvn,qcn - call condensation_edmf(QTn,THLn,(P(K)+P(K-1))/2.,ZW(k),THVn,QCn) + ! Define pressure at model interface + Pk =(P(k)*DZ(k+1)+P(k+1)*DZ(k))/(DZ(k+1)+DZ(k)) + ! Compute plume properties thvn and qcn + call condensation_edmf(QTn,THLn,Pk,ZW(k+1),THVn,QCn) - B=g*(0.5*(THVn+UPTHV(k-1,I))/THV(k-1) - 1.0) + ! Define environment THV at the model interface levels + THVk =(THV(k)*DZ(k+1)+THV(k+1)*DZ(k))/(DZ(k+1)+DZ(k)) + THVkm1=(THV(k-1)*DZ(k)+THV(k)*DZ(k-1))/(DZ(k-1)+DZ(k)) + +! B=g*(0.5*(THVn+UPTHV(k-1,I))/THV(k-1) - 1.0) + B=g*(THVn/THVk - 1.0) IF(B>0.)THEN BCOEFF = 0.15 !w typically stays < 2.5, so doesnt hit the limits nearly as much ELSE @@ -5120,6 +5445,10 @@ SUBROUTINE StEM_mf( & IF(Wn > UPW(K-1,I) + MIN(1.25*(ZW(k)-ZW(k-1))/200., 2.0) ) THEN Wn = UPW(K-1,I) + MIN(1.25*(ZW(k)-ZW(k-1))/200., 2.0) ENDIF + !Add symmetrical max decrease in w + IF(Wn < UPW(K-1,I) - MIN(1.25*(ZW(k)-ZW(k-1))/200., 2.0) ) THEN + Wn = UPW(K-1,I) - MIN(1.25*(ZW(k)-ZW(k-1))/200., 2.0) + ENDIF Wn = MIN(MAX(Wn,0.0), 3.0) IF (debug_mf == 1) THEN @@ -5135,10 +5464,10 @@ SUBROUTINE StEM_mf( & !Allow strongly forced plumes to overshoot if KE is sufficient IF (fltv > 0.05 .AND. Wn <= 0 .AND. overshoot == 0) THEN overshoot = 1 - IF ( THV(k)-THV(k-1) .GT. 0.0 ) THEN - bvf = SQRT( gtr*(THV(k)-THV(k-1))/(0.5*(dz(k)+dz(k-1))) ) + IF ( THVk-THVkm1 .GT. 0.0 ) THEN + bvf = SQRT( gtr*(THVk-THVkm1)/dz(k) ) !vertical Froude number - Frz = UPW(K-1,I)/(bvf*0.5*(dz(k)+dz(k-1))) + Frz = UPW(K-1,I)/(bvf*dz(k)) IF ( Frz >= 0.5 ) Wn = MIN(Frz,1.0)*UPW(K-1,I) ENDIF ELSEIF (fltv > 0.05 .AND. overshoot == 1) THEN @@ -5149,13 +5478,13 @@ SUBROUTINE StEM_mf( & !Limit very tall plumes ! Wn2=Wn2*EXP(-MAX(ZW(k)-(pblh+2000.),0.0)/1000.) ! IF(ZW(k) >= pblh+3000.)Wn2=0. - Wn=Wn*EXP(-MAX(ZW(k)-MIN(pblh+2000.,3000.),0.0)/1000.) - IF(ZW(k) >= MIN(pblh+3000.,4500.))Wn=0. + Wn=Wn*EXP(-MAX(ZW(k+1)-MIN(pblh+2000.,3000.),0.0)/1000.) + IF(ZW(k+1) >= MIN(pblh+3000.,4500.))Wn=0. !JOE- minimize the plume penetratration in stratocu-topped PBL - IF (fltv < 0.06) THEN - IF(ZW(k) >= pblh-200. .AND. qc(k) > 1e-5 .AND. I > 4) Wn=0. - ENDIF + ! IF (fltv < 0.06) THEN + ! IF(ZW(k+1) >= pblh-200. .AND. qc(k) > 1e-5 .AND. I > 4) Wn=0. + ! ENDIF IF (Wn > 0.) THEN UPW(K,I)=Wn !Wn !sqrt(Wn2) @@ -5166,11 +5495,17 @@ SUBROUTINE StEM_mf( & UPU(K,I)=Un UPV(K,I)=Vn UPQKE(K,I)=QKEn + UPQNC(K,I)=QNCn + UPQNI(K,I)=QNIn + UPQNWFA(K,I)=QNWFAn + UPQNIFA(K,I)=QNIFAn UPA(K,I)=UPA(K-1,I) #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN do ic = 1,nchem UPCHEM(k,I,ic) = chemn(ic) enddo + ENDIF #endif ktop = MAX(ktop,k) ELSE @@ -5205,38 +5540,62 @@ SUBROUTINE StEM_mf( & IF (ktop == 0) THEN ztop = 0.0 ELSE - ztop=zw(ktop) + ztop=zw(ktop+1) ENDIF IF(nup2 > 0) THEN - !Calclulate combined fluxes for all plumes + !Calculate the fluxes for each variable DO k=KTS,KTE IF(k > KTOP) exit - DO I=1,NUP !NUP2 + DO i=1,NUP !NUP2 IF(I > NUP2) exit - s_aw(k) = s_aw(K) + UPA(K,I)*UPW(K,I)*Psig_w * (1.0+rstoch_col(k)) - s_awthl(k)= s_awthl(K) + UPA(K,i)*UPW(K,I)*UPTHL(K,I)*Psig_w * (1.0+rstoch_col(k)) - s_awqt(k) = s_awqt(K) + UPA(K,i)*UPW(K,I)*UPQT(K,I)*Psig_w * (1.0+rstoch_col(k)) - s_awqc(k) = s_awqc(K) + UPA(K,i)*UPW(K,I)*UPQC(K,I)*Psig_w * (1.0+rstoch_col(k)) + s_aw(k+1) = s_aw(k+1) + UPA(K,i)*UPW(K,i)*Psig_w + s_awthl(k+1)= s_awthl(k+1) + UPA(K,i)*UPW(K,i)*UPTHL(K,i)*Psig_w + s_awqt(k+1) = s_awqt(k+1) + UPA(K,i)*UPW(K,i)*UPQT(K,i)*Psig_w + s_awqc(k+1) = s_awqc(k+1) + UPA(K,i)*UPW(K,i)*UPQC(K,i)*Psig_w IF (momentum_opt > 0) THEN - s_awu(k) = s_awu(K) + UPA(K,i)*UPW(K,I)*UPU(K,I)*Psig_w * (1.0+rstoch_col(k)) - s_awv(k) = s_awv(K) + UPA(K,i)*UPW(K,I)*UPV(K,I)*Psig_w * (1.0+rstoch_col(k)) + s_awu(k+1) = s_awu(k+1) + UPA(K,i)*UPW(K,i)*UPU(K,i)*Psig_w + s_awv(k+1) = s_awv(k+1) + UPA(K,i)*UPW(K,i)*UPV(K,i)*Psig_w ENDIF IF (tke_opt > 0) THEN - s_awqke(k)= s_awqke(K) + UPA(K,i)*UPW(K,I)*UPQKE(K,I)*Psig_w * (1.0+rstoch_col(k)) + s_awqke(k+1)= s_awqke(k+1) + UPA(K,i)*UPW(K,i)*UPQKE(K,i)*Psig_w ENDIF #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN do ic = 1,nchem - s_awchem(k,ic) = s_awchem(k,ic) + UPA(K,i)*UPW(K,I)*UPCHEM(K,I,ic)*Psig_w * (1.0+rstoch_col(k)) + s_awchem(k+1,ic) = s_awchem(k+1,ic) + UPA(K,i)*UPW(K,i)*UPCHEM(K,i,ic)*Psig_w enddo + ENDIF #endif ENDDO - s_awqv(k) = s_awqt(k) - s_awqc(k) + s_awqv(k+1) = s_awqt(k+1) - s_awqc(k+1) ENDDO + IF (scalar_opt > 0) THEN + DO k=KTS,KTE + IF(k > KTOP) exit + DO I=1,NUP !NUP2 + IF (I > NUP2) exit + s_awqnc(k+1)= s_awqnc(K+1) + UPA(K,i)*UPW(K,i)*UPQNC(K,i)*Psig_w + s_awqni(k+1)= s_awqni(K+1) + UPA(K,i)*UPW(K,i)*UPQNI(K,i)*Psig_w + s_awqnwfa(k+1)= s_awqnwfa(K+1) + UPA(K,i)*UPW(K,i)*UPQNWFA(K,i)*Psig_w + s_awqnifa(k+1)= s_awqnifa(K+1) + UPA(K,i)*UPW(K,i)*UPQNIFA(K,i)*Psig_w + ENDDO + ENDDO + ENDIF - !Flux limiter: Check for too large heat flux at first model level - flx1 = (s_awthl(kts+1)-s_awthl(kts))!/(0.5*(dz(k)+dz(k-1))) + !Flux limiter: Check for too large heat flux at top of first model layer + ! Given that the temperature profile is calculated as: + ! d(k)=thl(k) + dtz(k)*flt + tcd(k)*delt & + ! & -dtz(k)*s_awthl(kts+1) + diss_heat(k)*delt*dheat_opt + ! So, s_awthl(kts+1) must be less than flt + THVk = (THL(kts)*DZ(kts+1)+THL(kts+1)*DZ(kts))/(DZ(kts+1)+DZ(kts)) + flx1 = MAX(s_aw(kts+1)*(s_awthl(kts+1)/s_aw(kts+1) - THVk),0.0) + !flx1 = -dt/dz(kts)*s_awthl(kts+1) + !flx1 = (s_awthl(kts+1)-s_awthl(kts))!/(0.5*(dz(k)+dz(k-1))) + adjustment=1.0 + !Print*,"Flux limiter in MYNN-EDMF:" + !Print*,"flx1=",flx1," s_awthl(kts+1)=",s_awthl(kts+1)," s_awthl(kts)=",s_awthl(kts) IF (flx1 > fluxportion*flt .AND. flx1>0.0) THEN adjustment= fluxportion*flt/flx1 s_aw = s_aw*adjustment @@ -5244,6 +5603,10 @@ SUBROUTINE StEM_mf( & s_awqt = s_awqt*adjustment s_awqc = s_awqc*adjustment s_awqv = s_awqv*adjustment + s_awqnc= s_awqnc*adjustment + s_awqni= s_awqni*adjustment + s_awqnwfa= s_awqnwfa*adjustment + s_awqnifa= s_awqnifa*adjustment IF (momentum_opt > 0) THEN s_awu = s_awu*adjustment s_awv = s_awv*adjustment @@ -5252,26 +5615,31 @@ SUBROUTINE StEM_mf( & s_awqke= s_awqke*adjustment ENDIF #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN s_awchem = s_awchem*adjustment + ENDIF #endif UPA = UPA*adjustment ENDIF + !Print*,"adjustment=",adjustment," fluxportion=",fluxportion," flt=",flt !Calculate mean updraft properties for output: DO k=KTS,KTE-1 IF(k > KTOP) exit DO I=1,NUP !NUP2 IF(I > NUP2) exit - edmf_a(K)=edmf_a(K)+UPA(K+1,I) - edmf_w(K)=edmf_w(K)+UPA(K+1,I)*UPW(K+1,I) - edmf_qt(K)=edmf_qt(K)+UPA(K+1,I)*UPQT(K+1,I) - edmf_thl(K)=edmf_thl(K)+UPA(K+1,I)*UPTHL(K+1,I) - edmf_ent(K)=edmf_ent(K)+UPA(K+1,I)*ENT(K+1,I) - edmf_qc(K)=edmf_qc(K)+UPA(K+1,I)*UPQC(K+1,I) + edmf_a(K) =edmf_a(K) +UPA(K,i) + edmf_w(K) =edmf_w(K) +UPA(K,i)*UPW(K,i) + edmf_qt(K) =edmf_qt(K) +UPA(K,i)*UPQT(K,i) + edmf_thl(K)=edmf_thl(K)+UPA(K,i)*UPTHL(K,i) + edmf_ent(K)=edmf_ent(K)+UPA(K,i)*ENT(K,i) + edmf_qc(K) =edmf_qc(K) +UPA(K,i)*UPQC(K,i) #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN do ic = 1,nchem - edmf_chem(k,ic) = edmf_chem(k,ic) + UPA(K+1,I)*UPCHEM(k,I,ic) + edmf_chem(k,ic) = edmf_chem(k,ic) + UPA(K,I)*UPCHEM(k,i,ic) enddo + ENDIF #endif ENDDO @@ -5282,9 +5650,11 @@ SUBROUTINE StEM_mf( & edmf_ent(k)=edmf_ent(k)/edmf_a(k) edmf_qc(k)=edmf_qc(k)/edmf_a(k) #if (WRF_CHEM == 1) + IF (bl_mynn_mixchem == 1) THEN do ic = 1,nchem edmf_chem(k,ic) = edmf_chem(k,ic)/edmf_a(k) enddo + ENDIF #endif edmf_a(k)=edmf_a(k)*Psig_w @@ -5293,15 +5663,43 @@ SUBROUTINE StEM_mf( & ENDIF ENDDO + !First, compute exner, plume theta, and dz centered at interface + !Here, k=1 is the top of the first model layer. These values do not + !need to be defined at k=kte (unused level). + DO K=KTS,KTE-1 + exneri(k) = (exner(k)*DZ(k+1)+exner(k+1)*DZ(k))/(DZ(k+1)+DZ(k)) + edmf_th(k)= edmf_thl(k) + xlvcp/exneri(k)*edmf_qc(K) + dzi(k) = 0.5*(DZ(k)+DZ(k+1)) + ENDDO + !JOE: ADD CLDFRA_bl1d, qc_bl1d. Note that they have already been defined in -! mym_condensation. Here, a shallow-cu component is added. - DO K=KTS,KTE +! mym_condensation. Here, a shallow-cu component is added, but no cumulus +! clouds can be added at k=1 (start loop at k=2). + DO K=KTS+1,KTE-2 IF(k > KTOP) exit - IF(edmf_qc(k)>0.0)THEN + IF(0.5*(edmf_qc(k)+edmf_qc(k-1))>0.0)THEN + satvp = 3.80*exp(17.27*(th(k)-273.)/ & (th(k)-36.))/(.01*p(k)) rhgrid = max(.01,MIN( 1., qv(k) /satvp)) + !then interpolate plume thl, th, and qt to mass levels + THp = (edmf_th(k)*dzi(k-1)+edmf_th(k-1)*dzi(k))/(dzi(k-1)+dzi(k)) + QTp = (edmf_qt(k)*dzi(k-1)+edmf_qt(k-1)*dzi(k))/(dzi(k-1)+dzi(k)) + !convert TH to T + t = THp*exner(k) + !SATURATED VAPOR PRESSURE + esat = esat_blend(t) + !SATURATED SPECIFIC HUMIDITY + qsl=ep_2*esat/max(1.e-4,(p(k)-ep_3*esat)) + + !condensed liquid in the plume on mass levels + IF (edmf_qc(k)>0.0 .AND. edmf_qc(k-1)>0.0)THEN + QCp = 0.5*(edmf_qc(k)+edmf_qc(k-1)) + ELSE + QCp = MAX(0.0, QTp-qsl) + ENDIF + !COMPUTE CLDFRA & QC_BL FROM MASS-FLUX SCHEME and recompute vt & vq xl = xl_blend(tk(k)) ! obtain blended heat capacity @@ -5315,7 +5713,7 @@ SUBROUTINE StEM_mf( & b9 = a*rsl ! CB02 variable "b" q2p = xlvcp/exner(k) - pt = thl(k) +q2p*edmf_qc(k) ! potential temp + pt = thl(k) +q2p*QCp*0.5*(edmf_a(k)+edmf_a(k-1)) ! potential temp (env + plume) bb = b9*tk(k)/pt ! bb is "b9" in BCMT95. Their "b9" differs from ! "b9" in CB02 by a factor ! of T/theta. Strictly, b9 above is formulated in @@ -5324,7 +5722,7 @@ SUBROUTINE StEM_mf( & ! conversion is neglected here. qww = 1.+0.61*qt(k) alpha = 0.61*pt - t = th(k)*exner(k) + t = TH(k)*exner(k) beta = pt*xl/(t*cp) - 1.61*pt !Buoyancy flux terms have been moved to the end of this section... @@ -5334,44 +5732,52 @@ SUBROUTINE StEM_mf( & else f = 1.0 endif - sigq = 9.E-3 * edmf_a(k) * edmf_w(k) * f ! convective component of sigma (CB2005) - !sigq = MAX(sigq, 1.0E-4) + sigq = 9.E-3 * 0.5*(edmf_a(k)+edmf_a(k-1)) * & + & 0.5*(edmf_w(k)+edmf_w(k-1)) * f ! convective component of sigma (CB2005) + !sigq = MAX(sigq, 1.0E-4) sigq = SQRT(sigq**2 + sgm(k)**2) ! combined conv + stratus components - qmq = a * (qt(k) - qsat_tl) ! saturation deficit/excess; + qmq = a * (qt(k) - qsat_tl) ! saturation deficit/excess; ! the numerator of Q1 - mf_cf = min(max(0.5 + 0.36 * atan(1.55*(qmq/sigq)),0.02),0.6) + mf_cf = min(max(0.5 + 0.36 * atan(1.55*(qmq/sigq)),0.01),0.6) IF ( debug_code ) THEN print*,"In MYNN, StEM edmf" - print*," CB: qt=",qt(k)," qsat=",qsat_tl," satdef=",qt(k) - qsat_tl + print*," CB: env qt=",qt(k)," qsat=",qsat_tl + print*," satdef=",QTp - qsat_tl print*," CB: sigq=",sigq," qmq=",qmq," tlk=",tlk print*," CB: mf_cf=",mf_cf," cldfra_bl=",cldfra_bl1d(k)," edmf_a=",edmf_a(k) ENDIF - IF (rhgrid >= .93) THEN - !IN high RH, defer to stratus component if > convective component - cldfra_bl1d(k) = MAX(mf_cf, cldfra_bl1d(k)) - IF (cldfra_bl1d(k) > edmf_a(k)) THEN - qc_bl1d(k) = edmf_qc(k)*edmf_a(k)/cldfra_bl1d(k) - ELSE - cldfra_bl1d(k)=edmf_a(k) - qc_bl1d(k) = edmf_qc(k) - ENDIF - ELSE - IF (mf_cf > edmf_a(k)) THEN + + IF (cldfra_bl1d(k) < 0.5) THEN + IF (mf_cf > 0.5*(edmf_a(k)+edmf_a(k-1))) THEN cldfra_bl1d(k) = mf_cf - qc_bl1d(k) = edmf_qc(k)*edmf_a(k)/mf_cf + qc_bl1d(k) = QCp*0.5*(edmf_a(k)+edmf_a(k-1))/mf_cf ELSE - cldfra_bl1d(k)=edmf_a(k) - qc_bl1d(k) = edmf_qc(k) + cldfra_bl1d(k)=0.5*(edmf_a(k)+edmf_a(k-1)) + qc_bl1d(k) = QCp ENDIF ENDIF + !Now recalculate the terms for the buoyancy flux for mass-flux clouds: !See mym_condensation for details on these formulations. The !cloud-fraction bounding was added to improve cloud retention, !following RAP and HRRR testing. - Fng = 2.05 ! the non-Gaussian transport factor (assumed constant) - vt(k) = qww - MIN(0.20,cldfra_bl1D(k))*beta*bb*Fng - 1. - vq(k) = alpha + MIN(0.20,cldfra_bl1D(k))*beta*a*Fng - tv0 + !Fng = 2.05 ! the non-Gaussian transport factor (assumed constant) + !Use Bechtold and Siebesma (1998) piecewise estimation of Fng: + Q1 = qmq/MAX(sigq,1E-10) + Q1=MAX(Q1,-5.0) + IF (Q1 .GE. 1.0) THEN + Fng = 1.0 + ELSEIF (Q1 .GE. -1.7 .AND. Q1 < 1.0) THEN + Fng = EXP(-0.4*(Q1-1.0)) + ELSEIF (Q1 .GE. -2.5 .AND. Q1 .LE. -1.7) THEN + Fng = 3.0 + EXP(-3.8*(Q1+1.7)) + ELSE + Fng = MIN(23.9 + EXP(-1.6*(Q1+2.5)), 60.) + ENDIF + + vt(k) = qww - MIN(0.4,cldfra_bl1D(k))*beta*bb*Fng - 1. + vq(k) = alpha + MIN(0.4,cldfra_bl1D(k))*beta*a*Fng - tv0 ENDIF ENDDO @@ -5426,421 +5832,14 @@ SUBROUTINE StEM_mf( & ENDIF !END Debugging -! initialization of deltas -! DO k=kts,kte -! dth(k)=0. -! dqv(k)=0. -! dqc(k)=0. -! du(k)=0. -! dv(k)=0. -! ENDDO #ifdef HARDCODE_VERTICAL # undef kts # undef kte #endif -END SUBROUTINE StEM_MF +END SUBROUTINE DMP_MF !================================================================= -subroutine Poisson(istart,iend,jstart,jend,mu,POI) - - integer, intent(in) :: istart,iend,jstart,jend - real,dimension(istart:iend,jstart:jend),intent(in) :: MU - integer, dimension(istart:iend,jstart:jend), intent(out) :: POI - integer :: i,j - ! - ! do this only once - ! call init_random_seed - - do i=istart,iend - do j=jstart,jend - call random_Poisson(mu(i,j),.true.,POI(i,j)) - enddo - enddo - -end subroutine Poisson -!================================================================= -subroutine init_random_seed() - !JOE: PGI had problem! use iso_fortran_env, only: int64 - !JOE: PGI had problem! use ifport, only: getpid - implicit none - integer, allocatable :: seed(:) - integer :: i, n, un, istat, dt(8), pid - !JOE: PGI had problem! integer(int64) :: t - integer :: t - - call random_seed(size = n) - allocate(seed(n)) - - ! First try if the OS provides a random number generator - !JOE: PGI had problem! open(newunit=un, file="/dev/urandom", access="stream", & - un=191 - open(unit=un, file="/dev/urandom", access="stream", & - form="unformatted", action="read", status="old", iostat=istat) - - if (istat == 0) then - read(un) seed - close(un) - else - ! Fallback to XOR:ing the current time and pid. The PID is - ! useful in case one launches multiple instances of the same - ! program in parallel. - call system_clock(t) - if (t == 0) then - call date_and_time(values=dt) - !t = (dt(1) - 1970) * 365_int64 * 24 * 60 * 60 * 1000 & - ! + dt(2) * 31_int64 * 24 * 60 * 60 * 1000 & - ! + dt(3) * 24_int64 * 60 * 60 * 1000 & - ! + dt(5) * 60 * 60 * 1000 & - ! + dt(6) * 60 * 1000 + dt(7) * 1000 & - ! + dt(8) - t = dt(6) * 60 & ! only return seconds for smaller t - + dt(7) - end if - - !JOE: PGI had problem!pid = getpid() - ! for distributed memory jobs we need to fix this - !pid=1 - pid = 666 + MOD(t,10) !JOE: doesnt work for PG compilers: getpid() - - t = ieor(t, int(pid, kind(t))) - do i = 1, n - seed(i) = lcg(t) - end do - end if - call random_seed(put=seed) - - contains - - ! Pseudo-random number generator (PRNG) - ! This simple PRNG might not be good enough for real work, but is - ! sufficient for seeding a better PRNG. - function lcg(s) - - integer :: lcg - !JOE: PGI had problem! integer(int64) :: s - integer :: s - - if (s == 0) then - !s = 104729 - s = 1047 - else - !s = mod(s, 4294967296_int64) - s = mod(s, 71) - end if - !s = mod(s * 279470273_int64, 4294967291_int64) - s = mod(s * 23, 17) - !lcg = int(mod(s, int(huge(0), int64)), kind(0)) - lcg = int(mod(s, int(s/3.5))) - - end function lcg - - end subroutine init_random_seed - - -subroutine random_Poisson(mu,first,ival) -!********************************************************************** -! Translated to Fortran 90 by Alan Miller from: RANLIB -! -! Library of Fortran Routines for Random Number Generation -! -! Compiled and Written by: -! -! Barry W. Brown -! James Lovato -! -! Department of Biomathematics, Box 237 -! The University of Texas, M.D. Anderson Cancer Center -! 1515 Holcombe Boulevard -! Houston, TX 77030 -! -! Generates a single random deviate from a Poisson distribution with mean mu. -! Scalar Arguments: - REAL, INTENT(IN) :: mu !The mean of the Poisson distribution from which - !a random deviate is to be generated. - LOGICAL, INTENT(IN) :: first - INTEGER :: ival - -! TABLES: COEFFICIENTS A0-A7 FOR STEP F. FACTORIALS FACT -! COEFFICIENTS A(K) - FOR PX = FK*V*V*SUM(A(K)*V**K)-DEL -! SEPARATION OF CASES A AND B -! -! .. Local Scalars .. -!JOE: since many of these scalars conflict with globally declared closure constants (above), -! need to change XX to XX_s -! REAL :: b1, b2, c, c0, c1, c2, c3, del, difmuk, e, fk, fx, fy, g, & -! omega, px, py, t, u, v, x, xx - REAL :: b1_s, b2_s, c, c0, c1_s, c2_s, c3_s, del, difmuk, e, fk, fx, fy, g_s, & - omega, px, py, t, u, v, x, xx - REAL, SAVE :: s, d, p, q, p0 - INTEGER :: j, k, kflag - LOGICAL, SAVE :: full_init - INTEGER, SAVE :: l, m -! .. -! .. Local Arrays .. - REAL, SAVE :: pp(35) -! .. -! .. Data statements .. -!JOE: since many of these scalars conflict with globally declared closure constants (above), -! need to change XX to XX_s -! REAL, PARAMETER :: a0 = -.5, a1 = .3333333, a2 = -.2500068, a3 = .2000118, & - REAL, PARAMETER :: a0 = -.5, a1_s = .3333333, a2_s = -.2500068, a3 = .2000118, & - a4 = -.1661269, a5 = .1421878, a6 = -0.1384794, & - a7 = .1250060 - - REAL, PARAMETER :: fact(10) = (/ 1., 1., 2., 6., 24., 120., 720., 5040., & - 40320., 362880. /) - -!JOE: difmuk,fk,u errors - undefined - difmuk = 0. - fk = 1.0 - u = 0. - -! .. -! .. Executable Statements .. - IF (mu > 10.0) THEN -! C A S E A. (RECALCULATION OF S, D, L IF MU HAS CHANGED) - - IF (first) THEN - s = SQRT(mu) - d = 6.0*mu*mu - -! THE POISSON PROBABILITIES PK EXCEED THE DISCRETE NORMAL -! PROBABILITIES FK WHENEVER K >= M(MU). L=IFIX(MU-1.1484) -! IS AN UPPER BOUND TO M(MU) FOR ALL MU >= 10 . - - l = mu - 1.1484 - full_init = .false. - END IF - -! STEP N. NORMAL SAMPLE - random_normal() FOR STANDARD NORMAL DEVIATE - g_s = mu + s*random_normal() - IF (g_s > 0.0) THEN - ival = g_s - - ! STEP I. IMMEDIATE ACCEPTANCE IF ival IS LARGE ENOUGH - IF (ival>=l) RETURN - - ! STEP S. SQUEEZE ACCEPTANCE - SAMPLE U - fk = ival - difmuk = mu - fk - CALL RANDOM_NUMBER(u) - IF (d*u >= difmuk*difmuk*difmuk) RETURN - END IF - - ! STEP P. PREPARATIONS FOR STEPS Q AND H. - ! (RECALCULATIONS OF PARAMETERS IF NECESSARY) - ! .3989423=(2*PI)**(-.5) .416667E-1=1./24. .1428571=1./7. - ! THE QUANTITIES B1_S, B2_S, C3_S, C2_S, C1_S, C0 ARE FOR THE HERMITE - ! APPROXIMATIONS TO THE DISCRETE NORMAL PROBABILITIES FK. - ! C=.1069/MU GUARANTEES MAJORIZATION BY THE 'HAT'-FUNCTION. - - IF (.NOT. full_init) THEN - omega = .3989423/s - b1_s = .4166667E-1/mu - b2_s = .3*b1_s*b1_s - c3_s = .1428571*b1_s*b2_s - c2_s = b2_s - 15.*c3_s - c1_s = b1_s - 6.*b2_s + 45.*c3_s - c0 = 1. - b1_s + 3.*b2_s - 15.*c3_s - c = .1069/mu - full_init = .true. - END IF - - IF (g_s < 0.0) GO TO 50 - - ! 'SUBROUTINE' F IS CALLED (KFLAG=0 FOR CORRECT RETURN) - - kflag = 0 - GO TO 70 - - ! STEP Q. QUOTIENT ACCEPTANCE (RARE CASE) - - 40 IF (fy-u*fy <= py*EXP(px-fx)) RETURN - - ! STEP E. EXPONENTIAL SAMPLE - random_exponential() FOR STANDARD EXPONENTIAL - ! DEVIATE E AND SAMPLE T FROM THE LAPLACE 'HAT' - ! (IF T <= -.6744 THEN PK < FK FOR ALL MU >= 10.) - - 50 e = random_exponential() - CALL RANDOM_NUMBER(u) - u = u + u - one - t = 1.8 + SIGN(e, u) - IF (t <= (-.6744)) GO TO 50 - ival = mu + s*t - fk = ival - difmuk = mu - fk - - ! 'SUBROUTINE' F IS CALLED (KFLAG=1 FOR CORRECT RETURN) - - kflag = 1 - GO TO 70 - - ! STEP H. HAT ACCEPTANCE (E IS REPEATED ON REJECTION) - - 60 IF (c*ABS(u) > py*EXP(px+e) - fy*EXP(fx+e)) GO TO 50 - RETURN - - ! STEP F. 'SUBROUTINE' F. CALCULATION OF PX, PY, FX, FY. - ! CASE ival < 10 USES FACTORIALS FROM TABLE FACT - - 70 IF (ival>=10) GO TO 80 - px = -mu -!JOE: had error " Subscript #1 of FACT has value -858993459"; shouldn't be < 1. - !py = mu**ival/fact(ival+1) - py = mu**ival/fact(MAX(ival+1,1)) - GO TO 110 - - ! CASE ival >= 10 USES POLYNOMIAL APPROXIMATION - ! A0-A7 FOR ACCURACY WHEN ADVISABLE - ! .8333333E-1=1./12. .3989423=(2*PI)**(-.5) - - 80 del = .8333333E-1/fk - del = del - 4.8*del*del*del - v = difmuk/fk - IF (ABS(v)>0.25) THEN - px = fk*LOG(one + v) - difmuk - del - ELSE - px = fk*v*v* (((((((a7*v+a6)*v+a5)*v+a4)*v+a3)*v+a2_s)*v+a1_s)*v+a0) - del - END IF - py = .3989423/SQRT(fk) - 110 x = (half - difmuk)/s - xx = x*x - fx = -half*xx - fy = omega* (((c3_s*xx + c2_s)*xx + c1_s)*xx + c0) - IF (kflag <= 0) GO TO 40 - GO TO 60 - - !--------------------------------------------------------------------------- - ! C A S E B. mu < 10 - ! START NEW TABLE AND CALCULATE P0 IF NECESSARY - ELSE - - IF (first) THEN - m = MAX(1, INT(mu)) - l = 0 - !print*,"mu=",mu - !print*," mu=",mu," p=",EXP(-mu) - p = EXP(-mu) - q = p - p0 = p - END IF - - ! STEP U. UNIFORM SAMPLE FOR INVERSION METHOD - - DO - CALL RANDOM_NUMBER(u) - ival = 0 - IF (u <= p0) RETURN - - ! STEP T. TABLE COMPARISON UNTIL THE END PP(L) OF THE - ! PP-TABLE OF CUMULATIVE POISSON PROBABILITIES - ! (0.458=PP(9) FOR MU=10) - - IF (l == 0) GO TO 150 - j = 1 - IF (u > 0.458) j = MIN(l, m) - DO k = j, l - IF (u <= pp(k)) GO TO 180 - END DO - IF (l == 35) CYCLE - - ! STEP C. CREATION OF NEW POISSON PROBABILITIES P - ! AND THEIR CUMULATIVES Q=PP(K) - - 150 l = l + 1 - DO k = l, 35 - p = p*mu / k - q = q + p - pp(k) = q - IF (u <= q) GO TO 170 - END DO - l = 35 - END DO - - 170 l = k - 180 ival = k - RETURN - END IF - - RETURN - END subroutine random_Poisson - -!================================================================== - - FUNCTION random_normal() RESULT(fn_val) - - ! Adapted from the following Fortran 77 code - ! ALGORITHM 712, COLLECTED ALGORITHMS FROM ACM. - ! THIS WORK PUBLISHED IN TRANSACTIONS ON MATHEMATICAL SOFTWARE, - ! VOL. 18, NO. 4, DECEMBER, 1992, PP. 434-435. - - ! The function random_normal() returns a normally distributed pseudo-random - ! number with zero mean and unit variance. - - ! The algorithm uses the ratio of uniforms method of A.J. Kinderman - ! and J.F. Monahan augmented with quadratic bounding curves. - - REAL :: fn_val - - ! Local variables - REAL :: s = 0.449871, t = -0.386595, a = 0.19600, b = 0.25472, & - r1 = 0.27597, r2 = 0.27846, u, v, x, y, q - - ! Generate P = (u,v) uniform in rectangle enclosing acceptance region - - DO - CALL RANDOM_NUMBER(u) - CALL RANDOM_NUMBER(v) - v = 1.7156 * (v - half) - - ! Evaluate the quadratic form - x = u - s - y = ABS(v) - t - q = x**2 + y*(a*y - b*x) - - ! Accept P if inside inner ellipse - IF (q < r1) EXIT - ! Reject P if outside outer ellipse - IF (q > r2) CYCLE - ! Reject P if outside acceptance region - IF (v**2 < -4.0*LOG(u)*u**2) EXIT - END DO - - ! Return ratio of P coordinates as the normal deviate - fn_val = v/u - RETURN - - END FUNCTION random_normal - -!=============================================================== - - FUNCTION random_exponential() RESULT(fn_val) - - ! Adapted from Fortran 77 code from the book: - ! Dagpunar, J. 'Principles of random variate generation' - ! Clarendon Press, Oxford, 1988. ISBN 0-19-852202-9 - - ! FUNCTION GENERATES A RANDOM VARIATE IN [0,INFINITY) FROM - ! A NEGATIVE EXPONENTIAL DlSTRIBUTION WlTH DENSITY PROPORTIONAL - ! TO EXP(-random_exponential), USING INVERSION. - - REAL :: fn_val - - ! Local variable - REAL :: r - - DO - CALL RANDOM_NUMBER(r) - IF (r > zero) EXIT - END DO - - fn_val = -LOG(r) - RETURN - - END FUNCTION random_exponential - -!=============================================================== subroutine condensation_edmf(QT,THL,P,zagl,THV,QC) ! @@ -5860,10 +5859,9 @@ subroutine condensation_edmf(QT,THL,P,zagl,THV,QC) ! cp ! rvord .. rv/rd (1.6) - ! number of iterations niter=50 -! minimum difference +! minimum difference (usually converges in < 8 iterations with diff = 2e-5) diff=2.e-5 EXN=(P/p1000mb)**rcp @@ -5885,6 +5883,13 @@ subroutine condensation_edmf(QT,THL,P,zagl,THV,QC) !THV=(THL+xlv/cp*QC).*(1+(1-rvovrd)*(QT-QC)-QC); THV=(THL+xlv/cp*QC)*(1.+QT*(rvovrd-1.)-rvovrd*QC) + +! IF (QC > 0.0) THEN +! PRINT*,"EDMF SAT, p:",p," iterations:",i +! PRINT*," T=",T," THL=",THL," THV=",THV +! PRINT*," QS=",QS," QT=",QT," QC=",QC,"ratio=",qc/qs +! ENDIF + !THIS BASICALLY GIVE THE SAME RESULT AS THE PREVIOUS LINE !TH = THL + xlv/cp/EXN*QC !THV= TH*(1. + 0.608*QT) @@ -6006,18 +6011,26 @@ END FUNCTION esat_blend ! ==================================================================== - FUNCTION qsat_blend(t, P) + FUNCTION qsat_blend(t, P, waterice) ! JAYMES- this function extends function "esat" and returns a "blended" ! saturation mixing ratio. IMPLICIT NONE REAL, INTENT(IN):: t, P + CHARACTER(LEN=1), OPTIONAL, INTENT(IN) :: waterice + CHARACTER(LEN=1) :: wrt REAL :: qsat_blend,XC,ESL,ESI,RSLF,RSIF,chi + IF ( .NOT. PRESENT(waterice) ) THEN + wrt = 'b' + ELSE + wrt = waterice + ENDIF + XC=MAX(-80.,t-273.16) - IF (t .GE. 273.16) THEN + IF ((t .GE. 273.16) .OR. (wrt .EQ. 'w')) THEN ESL = J0+XC*(J1+XC*(J2+XC*(J3+XC*(J4+XC*(J5+XC*(J6+XC*(J7+XC*J8))))))) qsat_blend = 0.622*ESL/(P-ESL) ELSE IF (t .LE. 253.) THEN @@ -6061,810 +6074,6 @@ END FUNCTION xl_blend ! =================================================================== ! =================================================================== -! This is the mass flux part of the TEMF scheme from module_bl_temf.F, -! adapted for the MYNN context by Wayne Angevine June 2015. -! Variable strategy: TEMF external variables that have semantically -! comfortable counterparts in the MYNN-EDMF context have been changed to -! use those names. Otherwise the TEMF variable names have been kept but -! redefined as local variables. Only "moist" vars are used, whether -! updraft condenses or not. Some former local vars are replaced with -! externals. -! -! (Partial) list of conversions: -! wupd_temfx -> moist_w -! thup_temfx -> moist_thl -! qtup_temfx -> moist_qt -! qlup_temfx -> moist_qc -! cf3d_temfx -> cldfra_bl1d -! au -> moist_a - - SUBROUTINE temf_mf( & - & kts,kte,dt,zw,p,pi1d, & - & u,v,w,th,thl,thv,qt,qv,qc,& - & qke,ust,flt,flq,flqv,flqc,& - & hfx,qfx,tsk, & - & pblh,rho,dfh,dx,znt,ep_2, & - ! outputs - updraft properties - & edmf_a,edmf_w,edmf_qt, & - & edmf_thl,edmf_ent,edmf_qc,& - ! outputs - variables needed for solver - & s_aw,s_awthl,s_awqt, & - & s_awqv,s_awqc, & - & s_awu,s_awv,s_awqke, & -#if (WRF_CHEM == 1) - & nchem,chem,s_awchem, & -#endif - ! in/outputs - subgrid scale clouds - & qc_bl1d,cldfra_bl1d, & - ! inputs - flags for moist arrays - &F_QC,F_QI,psig, & - &spp_pbl,rstoch_col, & - &ii,jj,ids,ide,jds,jde) - - - ! inputs: - INTEGER, INTENT(IN) :: kts,kte,ii,jj,ids,ide,jds,jde - REAL,DIMENSION(kts:kte), INTENT(IN) :: u,v,w,th,thl,qt,qv,qc,thv,p,pi1d - REAL,DIMENSION(kts:kte), INTENT(IN) :: qke - REAL,DIMENSION(kts:kte+1), INTENT(IN) :: zw !height at full-sigma - REAL,DIMENSION(kts:kte), INTENT(IN) :: rho !density - REAL,DIMENSION(kts:kte), INTENT(IN) :: dfh !diffusivity for heat - REAL, INTENT(IN) :: dt,ust,flt,flq,flqv,flqc,hfx,qfx,tsk,pblh,dx,znt,ep_2,psig - LOGICAL, OPTIONAL :: f_qc,f_qi - - ! outputs - updraft properties - REAL,DIMENSION(kts:kte), INTENT(OUT) :: & - & edmf_a,edmf_w,edmf_qt, & - & edmf_thl,edmf_ent,edmf_qc - - ! outputs - variables needed for solver - REAL,DIMENSION(kts:kte+1) :: s_aw, & !sum ai*wis_awphi - s_awthl, & !sum ai*wi*phii - s_awqt, & - s_awqv, & - s_awqc, & - s_awu, & - s_awv, & - s_awqke -#if (WRF_CHEM == 1) - INTEGER, INTENT(IN) :: nchem - REAL,DIMENSION(kts:kte+1, nchem) :: chem - REAL,DIMENSION(kts:kte+1, nchem) :: s_awchem - INTEGER :: ic -#endif - - REAL,DIMENSION(kts:kte), INTENT(INOUT) :: qc_bl1d,cldfra_bl1d - -! Local variables -! -! EDMF constants - real, parameter :: CM = 0.03 ! Proportionality constant for subcloud MF - real, parameter :: Cdelt = 0.006 ! Prefactor for detrainment rate - real, parameter :: Cw = 0.5 ! Prefactor for surface wUPD - real, parameter :: Cc = 3.0 ! Prefactor for convective length scale - real, parameter :: lasymp = 200.0 ! Asymptotic length scale WA 11/20/09 - real, parameter :: hmax = 4000.0 ! Max hd,hct WA 11/20/09 - integer, parameter :: Nupd = 8 ! Number of updrafts -! - integer :: i, k, kt, nu ! Loop variable - integer:: h0idx - real:: h0 - real:: wstr, ang, wm - real, dimension( Nupd) :: hd,lcl,hct,ht - real:: convection_TKE_surface_src, sfcFTE - real:: sfcTHVF - real:: z0t - integer, dimension( Nupd) :: hdidx,lclidx,hctidx,htidx - integer:: hmax_idx - integer:: tval - real, dimension( kts:kte) :: zm, zt, dzm, dzt - real, dimension( kts:kte) :: thetal, qtot - real, dimension( kts:kte) :: u_temf, v_temf - real, dimension( kts:kte) :: rv, rl, rt - real, dimension( kts:kte) :: chi_poisson, gam - real, dimension( kts:kte) :: dthdz - real, dimension( kts:kte) :: lepsmin - real, dimension( kts:kte) :: thetav - real, dimension( kts:kte) :: dmoist_qtdz - real, dimension( kts:kte) :: B, Bmoist - real, dimension( kts:kte, Nupd) :: epsmf, deltmf, dMdz - real, dimension( kts:kte, Nupd) :: UUPD, VUPD - real, dimension( kts:kte, Nupd) :: thetavUPD, qlUPD, TEUPD - real, dimension( kts:kte, Nupd) :: thetavUPDmoist, wUPD_dry - real, dimension( kts:kte, Nupd) :: dthUPDdz, dwUPDdz - real, dimension( kts:kte, Nupd) :: dwUPDmoistdz - real, dimension( kts:kte, Nupd) :: dUUPDdz, dVUPDdz, dTEUPDdz - real, dimension( kts:kte, Nupd) :: TUPD, rstUPD, rUPD, rlUPD, qstUPD - real, dimension( kts:kte, Nupd) :: MUPD, wUPD, qtUPD, thlUPD, qcUPD - real, dimension( kts:kte, Nupd) :: aUPD, cldfraUPD, aUPDt - real, dimension( kts:kte) :: N2, S, Ri, beta, ftau, fth, ratio - real, dimension( kts:kte) :: TKE, TE2 - real, dimension( kts:kte) :: ustrtilde, linv, leps - real, dimension( kts:kte) :: km, kh - real, dimension( kts:kte) :: Fz, QFK, uwk, vwk - real, dimension( kts:kte) :: km_conv, kh_conv, lconv - real, dimension( kts:kte) :: alpha2, beta2 ! For thetav flux calculation - real, dimension( kts:kte) :: THVF, buoy_src, srcs - real, dimension( kts:kte) :: beta1 ! For saturation humidity calculations - real, dimension( kts:kte) :: MFCth - real Cepsmf ! Prefactor for entrainment rate - real red_fact ! for reducing MF components - real, dimension( kts:kte) :: edmf_u, edmf_v, edmf_qke ! Same format as registry vars, but not passed out - integer:: bdy_dist,taper_dist - real:: taper - - ! Stochastic - INTEGER, INTENT(IN) :: spp_pbl - REAL, DIMENSION(kts:kte), INTENT(in) :: rstoch_col - -#if (WRF_CHEM == 1) - real,dimension( kts:kte+1, nchem, Nupd) :: chemUPD, dchemUPDdz - real,dimension( kts:kte+1, nchem) :: edmf_chem -#endif - - ! Used to be TEMF external variables, now local - real, dimension( kts:kte, Nupd) :: & - shf_temfx, qf_temfx, uw_temfx, vw_temfx , & - mf_temfx - real, dimension( Nupd) :: hd_temfx, lcl_temfx, hct_temfx, cfm_temfx - logical is_convective - ! Vars for cloud fraction calculation - real, dimension( kts:kte) :: sigq, qst, satdef - real :: sigq2, rst, cldfra_sum, psig_w, maxw - -!---------------------------------------------------------------------- -! Grid staggering: Matlab version has mass and turbulence levels. -! WRF has full levels (with w) and half levels (u,v,theta,q*). Both -! sets of levels use the same indices (kts:kte). See pbl_driver or -! WRF Physics doc for (a few) details. -! So *mass levels correspond to half levels.* -! WRF full levels are ignored, we define our own turbulence levels -! in order to put the first one below the first half level. -! Another difference is that -! the Matlab version (and the Mauritsen et al. paper) consider the -! first mass level to be at z0 (effectively the surface). WRF considers -! the first half level to be above the effective surface. The first half -! level, at k=1, has nonzero values of u,v for example. Here we convert -! all incoming variables to internal ones with the correct indexing -! in order to make the code consistent with the Matlab version. We -! already had to do this for thetal and qt anyway, so the only additional -! overhead is for u and v. -! I use suffixes m for mass and t for turbulence as in Matlab for things -! like indices. -! Note that zsrf is the terrain height ASL, from Registry variable ht. -! Translations (Matlab to WRF): -! dzt -> calculated below -! dzm -> not supplied, calculated below -! k -> karman -! z0 -> znt -! z0t -> not in WRF, calculated below -! zt -> calculated below -! zm -> zw but NOTE zm(1) is now z0 (znt) and zm(2) is zw(1) -! -! Other notes: -! - I have often used 1 instead of kts below, because the scheme demands -! to know where the surface is. It won't work if kts .NE. 1. - - IF ( debug_code ) THEN - print*,' MYNN; in TEMF_MF, beginning' - ENDIF - - !JOE-initialize s_aw* variables - s_aw = 0. - s_awthl= 0. - s_awqt = 0. - s_awqv = 0. - s_awqc = 0. - s_awu = 0. - s_awv = 0. - s_awqke= 0. - edmf_a = 0. - edmf_w = 0. - edmf_qt= 0. !qt - edmf_thl=0. !thl - edmf_ent=0. - edmf_qc= 0. !qc - edmf_u=0. - edmf_v=0. - edmf_qke=0. - - z0t = znt - - do k = kts,kte - rv(k) = qv(k) / (1.-qv(k)) ! Water vapor - rl(k) = qc(k) / (1.-qc(k)) ! Liquid water - rt(k) = qt(k) ! Total water (without ice) - thetal(k) = thl(k) - qtot(k) = qt(k) - thetav(k) = thv(k) - end do - - do k = kts,kte - u_temf(k) = u(k) - v_temf(k) = v(k) - end do - - !taper off MF scheme when significant resolved-scale motions are present - !This function needs to be asymetric... - k = 1 - maxw = 0.0 - DO WHILE (ZW(k) < pblh + 500.) - maxw = MAX(maxw,ABS(W(k))) - k = k+1 - ENDDO - maxw = MAX(0.,maxw - 0.5) ! do nothing for small w, but - Psig_w = MAX(0.0, 1.0 - maxw/0.5) ! linearly taper off for w > 0.5 m/s - Psig_w = MIN(Psig_w, Psig) - !print*," maxw=", maxw," Psig_w=",Psig_w," Psig_shcu=",Psig_shcu - - ! Get delta height at half (mass) levels - zm(1) = znt - dzt(1) = zw(2) - zm(1) - ! Get height and delta at turbulence levels - zt(1) = (zw(2) - znt) / 2. - do kt = kts+1,kte - zm(kt) = zw(kt) ! Convert indexing from WRF to TEMF - zt(kt) = (zm(kt) + zw(kt+1)) / 2. - dzm(kt) = zt(kt) - zt(kt-1) - dzt(kt) = zw(kt+1) - zw(kt) - end do - dzm(1) = dzm(2) - - !print *,"In TEMF_MF zw = ", zw - !print *,"zm = ", zm - !print *,"zt = ", zt - !print *,"dzm = ", dzm - !print *,"dzt = ", dzt - - ! Gradients at first level - dthdz(1) = (thetal(2)-thetal(1)) / (zt(1) * log10(zm(2)/z0t)) - - !print *,"In TEMF_MF dthdz(1),thetal(2,1),tsk,zt(1),zm(2),z0t = ", & - ! dthdz(1),thetal(2),thetal(1),tsk,zt(1),zm(2),z0t - - ! Surface thetaV flux from Stull p.147 - sfcTHVF = hfx/(rho(1)*cp) * (1.+0.608*(qv(1)+qc(1))) + 0.608*thetav(1)*qfx - - ! WA use hd_temf to calculate w* instead of finding h0 here???? - ! Watch initialization! - h0idx = 1 - h0 = zm(1) - - lepsmin(kts) = 0. - - ! WA 2/11/13 find index just above hmax for use below - hmax_idx = kte-1 - - do k = kts+1,kte-1 - lepsmin(k) = 0. - - ! Mean gradients - dthdz(k) = (thetal(k+1) - thetal(k)) / dzt(k) - - ! Find h0 (should eventually be interpolated for smoothness) - if (thetav(k) > thetav(1) .AND. h0idx .EQ. 1) then - ! WA 9/28/11 limit h0 as for hd and hct - if (zm(k) < hmax) then - h0idx = k - h0 = zm(k) - else - h0idx = k - h0 = hmax - end if - end if - ! WA 2/11/13 find index just above hmax for use below - if (zm(k) > hmax) then - hmax_idx = min(hmax_idx,k) - end if - end do - - ! Gradients at top level - - dthdz(kte) = dthdz(kte-1) - - if ( hfx > 0.) then - wstr = (g * h0 / thetav(2) * hfx/(rho(1)*cp) ) ** (1./3.) - bdy_dist = min( min((ii-ids),(ide-ii)) , min((jj-jds),(jde-jj)) ) - taper_dist = 5 - ! JSK - linearly taper w-star near lateral boundaries (within 5 grid columns) - if (bdy_dist .LE. taper_dist) then - taper = max(0., min( 1., real(bdy_dist) / real(taper_dist) ) ) - wstr = wstr * taper - end if - else - wstr = 0. - end if - - !print *,"In TEMF_MF wstr,hfx,dthdz(1:2),h0 = ", wstr,hfx,dthdz(1),dthdz(2),h0 - IF ( debug_code ) THEN - print*,' MYNN; in TEMF_MF: wstr,hfx,dtdz1,dtdz2,h0:', wstr,hfx,dthdz(1),dthdz(2),h0 - ENDIF - - ! Set flag convective or not for use below - is_convective = wstr > 0. .AND. dthdz(1)<0. .AND. dthdz(2)<0. - ! WA 12/16/09 require two levels of negative (unstable) gradient - - !*** Mass flux block starts here *** - ! WA WFIP 11/13/15 allow multiple updrafts, deterministic for now - - if ( is_convective) then - - IF ( debug_code ) THEN - print *,"In TEMF_MF is_convective, wstr = ", wstr - ENDIF - - !Cepsmf = 2. / max(200.,h0) - Cepsmf = 1.0 / max(200.,h0) ! WA TEST reduce entrainment - ! Cepsmf = max(Cepsmf,0.002) - ! Cepsmf = max(Cepsmf,0.0015) ! WA TEST reduce max entrainment - ! Cepsmf = max(Cepsmf,0.0005) ! WA TEST reduce min entrainment - Cepsmf = max(Cepsmf,0.0010) ! WA TEST reduce min entrainment - - do nu = 1,Nupd - do k = kts,kte - ! Calculate lateral entrainment fraction for subcloud layer - ! epsilon and delta are defined on mass grid (half levels) - ! epsmf(k,nu) = Cepsmf * (1+0.2*(floor(nu - Nupd/2.))) ! WA for three updrafts - ! epsmf(k,nu) = Cepsmf * (1+0.05*(floor(nu - Nupd/2.))) ! WA for ten updrafts - ! epsmf(k,nu) = Cepsmf * (1+0.0625*(floor(nu - Nupd/2.))) ! WA for eight updrafts - ! epsmf(k,nu) = Cepsmf * (1+0.03*(floor(nu - Nupd/2.))) ! WA for eight updrafts, less spread - epsmf(k,nu) = Cepsmf * (1+0.25*(nu-1)) ! WA for eight updrafts, much more eps for some plumes, per Neggers 2015 fig. 15 - end do - - !IF ( debug_code ) THEN - print*,' MYNN; in TEMF_MF, Cepsmf, epsmf(1:13,nu)=', Cepsmf - print*," epsmf(1:13,nu)=",epsmf(1:13,nu) - !ENDIF - - ! Initialize updraft - thlUPD(1,nu) = thetal(1) + Cw*wstr - qtUPD(1,nu) = qtot(1) + 0.0*qfx/wstr - rUPD(1,nu) = qtUPD(1,nu) / (1. - qtUPD(1,nu)) - wUPD(1,nu) = Cw * wstr - wUPD_dry(1,nu) = Cw * wstr - UUPD(1,nu) = u_temf(1) - VUPD(1,nu) = v_temf(1) - thetavUPD(1,nu) = thlUPD(1,nu) * (1. + 0.608*qtUPD(1,nu)) ! WA Assumes no liquid - thetavUPDmoist(1,nu) = thetavUPD(1,nu) - TEUPD(1,nu) = qke(1) + g / thetav(1) * sfcTHVF - qlUPD(1,nu) = qc(1) ! WA allow environment liquid - TUPD(1,nu) = thlUPD(1,nu) * pi1d(1) - !rstUPD(1,nu) = rsat_temf(p(1),TUPD(1,nu),ep_2) - rstUPD(1,nu) = qsat_blend(TUPD(1,nu),p(1)) ! get saturation water vapor mixing ratio at tl and p - rlUPD(1,nu) = 0. -#if (WRF_CHEM == 1) - do ic = 1,nchem - chemUPD(1,ic,nu) = chem(1,ic) - enddo -#endif - - ! Calculate updraft parameters counting up - do k = 2,kte - ! WA 2/11/13 use hmax index to prevent oddness high up - if ( k < hmax_idx) then - dthUPDdz(k-1,nu) = -epsmf(k,nu) * (thlUPD(k-1,nu) - thetal(k-1)) - thlUPD(k,nu) = thlUPD(k-1,nu) + dthUPDdz(k-1,nu) * dzm(k-1) - dmoist_qtdz(k-1) = -epsmf(k,nu) * (qtUPD(k-1,nu) - qtot(k-1)) - qtUPD(k,nu) = qtUPD(k-1,nu) + dmoist_qtdz(k-1) * dzm(k-1) - thetavUPD(k,nu) = thlUPD(k,nu) * (1. + 0.608*qtUPD(k,nu)) ! WA Assumes no liquid - B(k-1) = g * (thetavUPD(k,nu) - thetav(k)) / thetav(k) - if ( wUPD_dry(k-1,nu) < 1e-15 ) then - wUPD_dry(k,nu) = 0. - else - dwUPDdz(k-1,nu) = -2. *epsmf(k,nu)*wUPD_dry(k-1,nu) + 0.33*B(k-1)/wUPD_dry(k-1,nu) - wUPD_dry(k,nu) = wUPD_dry(k-1,nu) + dwUPDdz(k-1,nu) * dzm(k-1) - end if - dUUPDdz(k-1,nu) = -epsmf(k,nu) * (UUPD(k-1,nu) - u_temf(k-1)) - UUPD(k,nu) = UUPD(k-1,nu) + dUUPDdz(k-1,nu) * dzm(k-1) - dVUPDdz(k-1,nu) = -epsmf(k,nu) * (VUPD(k-1,nu) - v_temf(k-1)) - VUPD(k,nu) = VUPD(k-1,nu) + dVUPDdz(k-1,nu) * dzm(k-1) - dTEUPDdz(k-1,nu) = -epsmf(k,nu) * (TEUPD(k-1,nu) - qke(k-1)) - TEUPD(k,nu) = TEUPD(k-1,nu) + dTEUPDdz(k-1,nu) * dzm(k-1) - ! Alternative updraft velocity based on moist thetav - ! Need thetavUPDmoist, qlUPD - rUPD(k,nu) = qtUPD(k,nu) / (1. - qtUPD(k,nu)) - ! WA Updraft temperature assuming no liquid - TUPD(k,nu) = thlUPD(k,nu) * pi1d(k) - ! Updraft saturation mixing ratio - !rstUPD(k,nu) = rsat_temf(p(k-1),TUPD(k,nu),ep_2) - rstUPD(k,nu) = qsat_blend(TUPD(k,nu),p(k-1)) - ! Correct to actual temperature (Sommeria & Deardorff 1977) - beta1(k) = 0.622 * (xlv/(r_d*TUPD(k,nu))) * (xlv/(cp*TUPD(k,nu))) - rstUPD(k,nu) = rstUPD(k,nu) * (1.0+beta1(k)*rUPD(k,nu)) / (1.0+beta1(k)*rstUPD(k,nu)) - qstUPD(k,nu) = rstUPD(k,nu) / (1. + rstUPD(k,nu)) - if (rUPD(k,nu) > rstUPD(k,nu)) then - rlUPD(k,nu) = rUPD(k,nu) - rstUPD(k,nu) - qlUPD(k,nu) = rlUPD(k,nu) / (1. + rlUPD(k,nu)) - thetavUPDmoist(k,nu) = (thlUPD(k,nu) + ((xlv/cp)*qlUPD(k,nu)/pi1d(k))) * & - (1. + 0.608*qstUPD(k,nu) - qlUPD(k,nu)) - else - rlUPD(k,nu) = 0. - qlUPD(k,nu) = qc(k-1) ! WA 4/6/10 allow environment liquid - thetavUPDmoist(k,nu) = thlUPD(k,nu) * (1. + 0.608*qtUPD(k,nu)) - end if - Bmoist(k-1) = g * (thetavUPDmoist(k,nu) - thetav(k)) / thetav(k) - if ( wUPD(k-1,nu) < 1e-15 ) then - wUPD(k,nu) = 0. - else - dwUPDmoistdz(k-1,nu) = -2. *epsmf(k,nu)*wUPD(k-1,nu) + 0.33*Bmoist(k-1)/wUPD(k-1,nu) - wUPD(k,nu) = wUPD(k-1,nu) + dwUPDmoistdz(k-1,nu) * dzm(k-1) - end if -#if (WRF_CHEM == 1) - do ic = 1,nchem - dchemUPDdz(k-1,ic,nu) = -epsmf(k,nu) * (chemUPD(k-1,ic,nu) - chem(k-1,ic)) - chemUPD(k,ic,nu) = chemUPD(k-1,ic,nu) + dchemUPDdz(k-1,ic,nu) * dzm(k-1) - enddo -#endif - else ! above hmax - thlUPD(k,nu) = thetal(k) - qtUPD(k,nu) = qtot(k) - wUPD_dry(k,nu) = 0. - UUPD(k,nu) = u_temf(k) - VUPD(k,nu) = v_temf(k) - TEUPD(k,nu) = qke(k) - qlUPD(k,nu) = qc(k-1) - wUPD(k,nu) = 0. -#if (WRF_CHEM == 1) - do ic = 1,nchem - chemUPD(k,ic,nu) = chem(k-1,ic) - enddo -#endif - end if - - IF ( debug_code ) THEN - IF ( ABS(wUPD(k,nu))>10. ) THEN - print*,' MYNN, in TEMF_MF, huge w at (nu,k):', nu,k - print *," thlUPD(1:k,nu) = ", thlUPD(1:k,nu) - print *," wUPD(1:k,nu) = ", wUPD(1:k,nu) - print *," Bmoist(1:k-1) = ", Bmoist(1:k-1) - print *," epsmf(1:k,nu) = ", epsmf(1:k,nu) - ENDIF - ENDIF - - ENDDO !end-k - - ! Find hd based on wUPD - if (wUPD_dry(1,nu) == 0.) then - hdidx(nu) = 1 - else - hdidx(nu) = kte ! In case wUPD <= 0 not found - do k = 2,kte - if (wUPD_dry(k,nu) <= 0. .OR. zm(k) > hmax) then - hdidx(nu) = k - ! goto 100 ! FORTRAN made me do it! - exit - end if - end do - end if - 100 hd(nu) = zm(hdidx(nu)) - - ! Find LCL, hct, and ht - lclidx(nu) = kte ! In case LCL not found - do k = kts,kte - if ( k < hmax_idx .AND. rUPD(k,nu) > rstUPD(k,nu)) then - lclidx(nu) = k - ! goto 200 - exit - end if - end do - 200 lcl(nu) = zm(lclidx(nu)) - - if (hd(nu) > lcl(nu)) then ! Forced cloud (at least) occurs - ! Find hct based on wUPDmoist - if (wUPD(1,nu) == 0.) then - hctidx(nu) = 1 - else - hctidx(nu) = kte ! In case wUPD <= 0 not found - do k = 2,kte - if (wUPD(k,nu) <= 0. .OR. zm(k) > hmax) then - hctidx(nu) = k - ! goto 300 ! FORTRAN made me do it! - exit - end if - end do - end if - 300 hct(nu) = zm(hctidx(nu)) - if (hctidx(nu) <= hdidx(nu)+1) then ! No active cloud - hct(nu) = hd(nu) - hctidx(nu) = hdidx(nu) - else - end if - else ! No cloud - hct(nu) = hd(nu) - hctidx(nu) = hdidx(nu) - end if - ht(nu) = max(hd(nu),hct(nu)) - htidx(nu) = max(hdidx(nu),hctidx(nu)) - - ! Now truncate updraft at ht with taper - do k = 1,kte - if (zm(k) < 0.9*ht(nu)) then ! Below taper region - tval = 1 - else if (zm(k) >= 0.9*ht(nu) .AND. zm(k) <= 1.0*ht(nu)) then - ! Within taper region - tval = 1. - ((zm(k) - 0.9*ht(nu)) / (1.0*ht(nu) - 0.9*ht(nu))) - else ! Above taper region - tval = 0. - end if - thlUPD(k,nu) = tval * thlUPD(k,nu) + (1-tval)*thetal(k) - thetavUPD(k,nu) = tval * thetavUPD(k,nu) + (1-tval)*thetav(k) - qtUPD(k,nu) = tval * qtUPD(k,nu) + (1-tval) * qtot(k) - if (k > 1) then - qlUPD(k,nu) = tval * qlUPD(k,nu) + (1-tval) * qc(k-1) - end if - UUPD(k,nu) = tval * UUPD(k,nu) + (1-tval) * u_temf(k) - VUPD(k,nu) = tval * VUPD(k,nu) + (1-tval) * v_temf(k) - TEUPD(k,nu) = tval * TEUPD(k,nu) + (1-tval) * qke(k) - if (zm(k) > ht(nu)) then ! WA this is just for cleanliness - wUPD(k,nu) = 0. - dwUPDmoistdz(k,nu) = 0. - wUPD_dry(k,nu) = 0. - dwUPDdz(k,nu) = 0. - end if -#if (WRF_CHEM == 1) - do ic = 1,nchem - chemUPD(k,ic,nu) = tval * chemUPD(k,ic,nu) + (1-tval) * chem(k,ic) - enddo -#endif - end do - - ! Calculate lateral detrainment rate for cloud layer - ! WA 8/5/15 constant detrainment - ! deltmf(1,nu) = Cepsmf - ! do k = 2,kte-1 - ! deltmf(k,nu) = deltmf(k-1,nu) - ! end do - ! deltmf(kte,nu) = Cepsmf - deltmf(:,nu) = epsmf(:,nu) ! WA TEST delt = eps everywhere - - ! Calculate mass flux (defined on turbulence levels) - mf_temfx(1,nu) = CM * wstr / Nupd - ! WA 3/2/16 limit max MF for stability - ! WA reduce the constant for improved numerical stability? - mf_temfx(1,nu) = min(mf_temfx(1,nu),0.2/Nupd) - do kt = 2,kte-1 - dMdz(kt,nu) = (epsmf(kt,nu) - deltmf(kt,nu)) * mf_temfx(kt-1,nu) * dzt(kt) - mf_temfx(kt,nu) = mf_temfx(kt-1,nu) + dMdz(kt,nu) - ! WA TEST 6/14/16 don't allow <0 - mf_temfx(kt,nu) = max(mf_temfx(kt,nu),0.0) - IF ( debug_code ) THEN - IF ( mf_temfx(kt,nu)>=0.2/NUPD ) THEN - print*,' MYNN, in TEMF_MF, huge MF at (nu,k):', nu,kt - print*," mf_temfx(1:kt,nu) = ", mf_temfx(1:kt,nu) - ENDIF - ENDIF - end do - mf_temfx(kte,nu) = 0. - - ! Calculate cloud fraction (on mass levels) - ! WA eventually replace this with the same saturation calculation - ! used in the MYNN code above for consistency. - ! WA TEST 6/14/16 make sure aUPD(1) is reasonable - aUPD(1,nu) = 0.06 / Nupd - do k = 2,kte - ! WA TEST 6/14/16 increase epsilon in test - ! if (wUPD(k-1,nu) >= 1.0e-15 .AND. wUPD(k,nu) >= 1.0e-15) then - if (wUPD(k-1,nu) >= 1.0e-5 .AND. wUPD(k,nu) >= 1.0e-5) then - aUPD(k,nu) = ((mf_temfx(k-1,nu)+mf_temfx(k,nu))/2.0) / & - ((wUPD(k-1,nu)+wUPD(k,nu))/2.0) ! WA average before divide, is that best? - else - aUPD(k,nu) = 0.0 - end if - sigq2 = aUPD(k,nu) * (qtUPD(k,nu)-qtot(k)) - if (sigq2 > 0.0) then - sigq(k) = sqrt(sigq2) - else - sigq(k) = 0.0 - end if - !rst = rsat_temf(p(k-1),th(k-1)*pi1d(k-1),ep_2) - rst = qsat_blend(th(k-1)*pi1d(k-1),p(k-1)) - qst(k) = rst / (1. + rst) - satdef(k) = qtot(k) - qst(k) - if (satdef(k) <= 0.0) then - if (sigq(k) > 1.0e-15) then - cldfraUPD(k,nu) = max(0.5 + 0.36 * atan(1.55*(satdef(k)/sigq(k))),0.0) / Nupd - else - cldfraUPD(k,nu) = 0.0 - end if - else - cldfraUPD(k,nu) = 1.0 / Nupd - end if - if (zm(k) < lcl(nu)) then - cldfraUPD(k,nu) = 0.0 - end if - end do - - end do ! loop over nu updrafts - - ! Add updraft areas into edmf_a, etc. - ! Add cloud fractions into cldfra_bl1d - !cldfra_bl1d(1) = 0.0 - cfm_temfx = 0.0 - do k = 2,kte - !cldfra_bl1d(k) = 0.0 - cldfra_sum = 0.0 - edmf_a(k) = 0.0 - edmf_w(k) = 0.0 - edmf_thl(k) = 0.0 - edmf_qt(k) = 0.0 - edmf_qc(k) = 0.0 - edmf_u(k) = 0.0 - edmf_v(k) = 0.0 - edmf_qke(k) = 0.0 - edmf_ent(k) = 0.0 -#if (WRF_CHEM == 1) - do ic = 1,nchem - edmf_chem(k,ic) = 0.0 - enddo -#endif - do nu = 1,Nupd - ! WA 7/5/16 put area on turbulence levels for consistency - aUPDt(k,nu) = mf_temfx(k,nu) / wUPD(k,nu) - if (aUPDt(k,nu) >= 1.0e-3 .AND. wUPD(k,nu) >= 1.0e-5) then - edmf_a(k) = edmf_a(k) + aUPDt(k,nu) - edmf_w(k) = edmf_w(k) + aUPDt(k,nu)*wUPD(k,nu) - edmf_thl(k) = edmf_thl(k) + aUPDt(k,nu)*thlUPD(k,nu) - edmf_qt(k) = edmf_qt(k) + aUPDt(k,nu)*qtUPD(k,nu) - edmf_qc(k) = edmf_qc(k) + aUPDt(k,nu)*qlUPD(k,nu) - edmf_u(k) = edmf_u(k) + aUPDt(k,nu)*UUPD(k,nu) - edmf_v(k) = edmf_v(k) + aUPDt(k,nu)*VUPD(k,nu) - edmf_qke(k) = edmf_qke(k) + aUPDt(k,nu)*TEUPD(k,nu) - edmf_ent(k) = edmf_ent(k) + aUPDt(k,nu)*epsmf(k,nu) - cldfra_sum = cldfra_sum + cldfraUPD(k,nu) -#if (WRF_CHEM == 1) - do ic = 1,nchem - edmf_chem(k,ic) = edmf_chem(k,ic) + aUPDt(k,nu)*chemUPD(k,ic,nu) - enddo -#endif - end if - end do - - IF ( debug_code ) THEN - ! print *,"In TEMF_MF edmf_w = ", edmf_w(1:10) - ! print *,"In TEMF_MF edmf_a = ", edmf_a(1:10) - ! print *,"In TEMF_MF edmf_thl = ", edmf_thl(1:10) - ! print *,"In TEMF_MF aUPD(2,:) = ", aUPD(2,:) - ! print *,"In TEMF_MF wUPD(2,:) = ", wUPD(2,:) - ! print *,"In TEMF_MF thlUPD(2,:) = ", thlUPD(2,:) - ENDIF - - ! WA TEST 6/14/16 don't divide by very small updrafts - !if (edmf_a(k)>0.) then - if (edmf_a(k)>1.e-3) then - edmf_w(k)=edmf_w(k)/edmf_a(k) - edmf_qt(k)=edmf_qt(k)/edmf_a(k) - edmf_thl(k)=edmf_thl(k)/edmf_a(k) - edmf_ent(k)=edmf_ent(k)/edmf_a(k) - edmf_qc(k)=edmf_qc(k)/edmf_a(k) - edmf_u(k)=edmf_u(k)/edmf_a(k) - edmf_v(k)=edmf_v(k)/edmf_a(k) - edmf_qke(k)=edmf_qke(k)/edmf_a(k) -#if (WRF_CHEM == 1) - do ic = 1,nchem - edmf_chem(k,ic) = edmf_chem(k,ic)/edmf_a(k) - enddo -#endif - - if (edmf_qc(k) > 0.0) then - IF (cldfra_sum > edmf_a(k)) THEN - cldfra_bl1d(k) = cldfra_sum - qc_bl1d(k) = edmf_qc(k)*edmf_a(k)/cldfra_sum - ELSE - cldfra_bl1d(k)=edmf_a(k) - qc_bl1d(k) = edmf_qc(k) - ENDIF - endif - endif - - ! Put max value so far into cfm - if (zt(k) <= hmax) then - cfm_temfx = max(cldfra_bl1d(k),cfm_temfx) - end if - end do - - !cldfra_bl1d(kte) = 0.0 - - ! Computing variables needed for solver - - do k=kts,kte ! do these in loop above - ! WA TEST 6/14/16 don't use very small updrafts to be consistent - ! with block above - if (edmf_a(k)>1.0e-3) then - s_aw(k) = edmf_a(k)*edmf_w(k)*psig_w * (1.0+rstoch_col(k)) - s_awthl(k)= edmf_a(k)*edmf_w(k)*edmf_thl(k)*psig_w * (1.0+rstoch_col(k)) - s_awqt(k) = edmf_a(k)*edmf_w(k)*edmf_qt(k)*psig_w * (1.0+rstoch_col(k)) - s_awqc(k) = edmf_a(k)*edmf_w(k)*edmf_qc(k)*psig_w * (1.0+rstoch_col(k)) - s_awqv(k) = s_awqt(k) - s_awqc(k) - s_awu(k) = edmf_a(k)*edmf_w(k)*edmf_u(k)*psig_w * (1.0+rstoch_col(k)) - s_awv(k) = edmf_a(k)*edmf_w(k)*edmf_v(k)*psig_w * (1.0+rstoch_col(k)) - s_awqke(k) = edmf_a(k)*edmf_w(k)*edmf_qke(k)*psig_w * (1.0+rstoch_col(k)) -#if (WRF_CHEM == 1) - do ic = 1,nchem - s_awchem(k,ic) = edmf_w(k)*edmf_chem(k,ic)*psig_w * (1.0+rstoch_col(k)) - enddo -#endif - endif - !now reduce diagnostic output array by psig - edmf_a(k)=edmf_a(k)*psig_w - enddo - - ! end if ! is_convective - ! Mass flux block ends here - else - edmf_a = 0. - edmf_w = 0. - edmf_qt = 0. - edmf_thl = 0. - edmf_ent = 0. - edmf_u = 0. - edmf_v = 0. - edmf_qke = 0. - s_aw = 0. - s_awthl= 0. - s_awqt = 0. - s_awqv = 0. - s_awqc = 0. - s_awu = 0. - s_awv = 0. - s_awqke= 0. - edmf_qc(1) = qc(1) - !qc_bl1d(1) = qc(1) - do k = kts+1,kte-1 - edmf_qc(k) = qc(k-1) - !qc_bl1d(k) = qc(k-1) - end do -#if (WRF_CHEM == 1) - do ic = 1,nchem - s_awchem(:,ic) = 0. - enddo -#endif - end if - !edmf_qc(kte) = qc(kte) - !qc_bl1d(kte) = qc(kte) - - !IF ( debug_code ) THEN - ! print *,"After TEMF_MF, s_aw = ", s_aw(1:5) - ! print *,"After TEMF_MF, s_awthl = ", s_awthl(1:5) - ! print *,"After TEMF_MF, s_awqt = ", s_awqt(1:5) - ! print *,"After TEMF_MF, s_awqc = ", s_awqc(1:5) - ! print *,"After TEMF_MF, s_awqv = ", s_awqv(1:5) - ! print *,"After TEMF_MF, s_awu = ", s_awu(1:5) - ! print *,"After TEMF_MF, s_awv = ", s_awv(1:5) - ! print *,"After TEMF_MF, s_awqke = ", s_awqke(1:5) - !ENDIF - -END SUBROUTINE temf_mf - -!-------------------------------------------------------------------- -! - real function rsat_temf(p,T,ep2) - -! Calculates the saturation mixing ratio with respect to liquid water -! Arguments are pressure (Pa) and absolute temperature (K) -! Uses the formula from the ARM intercomparison setup. -! Converted from Matlab by WA 7/28/08 - -implicit none -real p, T, ep2 -real temp, x -real, parameter :: c0 = 0.6105851e+3 -real, parameter :: c1 = 0.4440316e+2 -real, parameter :: c2 = 0.1430341e+1 -real, parameter :: c3 = 0.2641412e-1 -real, parameter :: c4 = 0.2995057e-3 -real, parameter :: c5 = 0.2031998e-5 -real, parameter :: c6 = 0.6936113e-8 -real, parameter :: c7 = 0.2564861e-11 -real, parameter :: c8 = -0.3704404e-13 - -temp = T - 273.15 - -x =c0+temp*(c1+temp*(c2+temp*(c3+temp*(c4+temp*(c5+temp*(c6+temp*(c7+temp*c8))))))) -rsat_temf = ep2*x/(p-x) - -return -end function rsat_temf - -!================================================================= +! =================================================================== END MODULE module_bl_mynn diff --git a/phys/module_bl_shinhong.F b/phys/module_bl_shinhong.F index ddae471798..cad43234d2 100644 --- a/phys/module_bl_shinhong.F +++ b/phys/module_bl_shinhong.F @@ -325,7 +325,7 @@ subroutine shinhong2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & real,parameter :: afac = 6.8,bfac = 6.8,pfac = 2.0,pfac_q = 2.0 real,parameter :: phifac = 8.,sfcfrac = 0.1 real,parameter :: d1 = 0.02, d2 = 0.05, d3 = 0.001 - real,parameter :: h1 = 0.33333335, h2 = 0.6666667 + real,parameter :: h1 = 0.33333333, h2 = 0.6666667 real,parameter :: ckz = 0.001,zfmin = 1.e-8,aphi5 = 5.,aphi16 = 16. real,parameter :: tmin=1.e-2 real,parameter :: gamcrt = 3.,gamcrq = 2.e-3 diff --git a/phys/module_bl_ysu.F b/phys/module_bl_ysu.F index 241b0f0a60..5349226139 100644 --- a/phys/module_bl_ysu.F +++ b/phys/module_bl_ysu.F @@ -1,7 +1,12 @@ !================================================================================================================= -!module_bl_ysu.F was modified to integrate MPAS-specific code -!integration took place between WRF Master Repository (from 28Feb2018) and MPAS HWT Repository (from 27Feb2018) -!WRF version is >V3.9.1.1 and MPAS module_bl_ysu.F was originally modified from WRFV3.8.1 +!module_bl_ysu.F was originally copied from ./phys/module_bl_ysu.F from WRF version 3.8.1. +!Laura D. Fowler (laura@ucar.edu) / 2016-10-26. + +!modifications to sourcecode for MPAS: +! * calculated the dry hydrostatic pressure using the dry air density. +! * added outputs of the vertical diffusivity coefficients. +! Laura D. Fowler (laura@ucar.edu) / 2016-10-26. + !================================================================================================================= !WRF:model_layer:physics ! @@ -22,11 +27,10 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & rqvblten,rqcblten,rqiblten,flag_qi, & cp,g,rovcp,rd,rovg,ep1,ep2,karman,xlv,rv, & dz8w,psfc, & - znu,znw,p_top, & znt,ust,hpbl,psim,psih, & xland,hfx,qfx,wspd,br, & dt,kpbl2d, & - exch_h, & + exch_h,exch_m, & wstar,delta, & u10,v10, & uoce,voce, & @@ -37,7 +41,6 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & its,ite, jts,jte, kts,kte, & !optional regime & - ,rho,kzhout,kzmout,kzqout & ) !------------------------------------------------------------------------------- implicit none @@ -148,7 +151,8 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & rqcblten ! real, dimension( ims:ime, kms:kme, jms:jme ) , & - intent(inout) :: exch_h + intent(inout) :: exch_h, & + exch_m real, dimension( ims:ime, jms:jme ) , & intent(inout) :: wstar real, dimension( ims:ime, jms:jme ) , & @@ -193,14 +197,6 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & real, dimension( ims:ime, kms:kme, jms:jme ) , & optional , & intent(inout) :: rqiblten -! - real, dimension( kms:kme ) , & - optional , & - intent(in ) :: znu, & - znw -! -! - real, optional, intent(in ) :: p_top ! real, dimension( ims:ime, jms:jme ) , & optional , & @@ -217,20 +213,7 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & dvsfc, & dtsfc, & dqsfc - real,intent(in),dimension(ims:ime,kms:kme,jms:jme),optional:: rho - real:: rho_d - real,intent(out),dimension(ims:ime,kms:kme,jms:jme),optional:: kzhout,kzmout,kzqout - if(present(kzhout) .and. present(kzmout) .and. present(kzqout)) then - do j = jts,jte - do k = kts,kte - do i = its,ite - kzhout(i,k,j) = 0. - kzmout(i,k,j) = 0. - kzqout(i,k,j) = 0. - enddo - enddo - enddo - endif + ! qv2d(its:ite,:) = 0.0 ! @@ -241,27 +224,6 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & pdhi(i,k) = p3di(i,k,j) enddo enddo -!For MPAS, we replace the hydrostatic pressures defined at theta and w points by -!the dry hydrostatic pressures (Laura D. Fowler): - if(present(rho)) then - 203 format(1x,i4,1x,i2,10(1x,e15.8)) - k = kte+1 - do i = its,ite - pdhi(i,k) = p3di(i,k,j) - enddo - do k = kte,kts,-1 - do i = its,ite - rho_d = rho(i,k,j) / (1. + qv3d(i,k,j)) - if(k.le.kte) pdhi(i,k) = pdhi(i,k+1) + g*rho_d*dz8w(i,k,j) - enddo - enddo - do k = kts,kte - do i = its,ite - pdh(i,k) = 0.5*(pdhi(i,k) + pdhi(i,k+1)) - enddo - enddo - endif -!MPAS specific end. do k = kts,kte do i = its,ite @@ -291,6 +253,7 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & ,dusfc=dusfc,dvsfc=dvsfc,dtsfc=dtsfc,dqsfc=dqsfc & ,dt=dt,rcl=1.0,kpbl1d=kpbl2d(ims,j) & ,exch_hx=exch_h(ims,kms,j) & + ,exch_mx=exch_m(ims,kms,j) & ,wstar=wstar(ims,j) & ,delta=delta(ims,j) & ,u10=u10(ims,j),v10=v10(ims,j) & @@ -298,11 +261,6 @@ subroutine ysu(u3d,v3d,th3d,t3d,qv3d,qc3d,qi3d,p3d,p3di,pi3d, & ,rthraten=rthraten(ims,kms,j),p2diORG=p3di(ims,kms,j) & ,ysu_topdown_pblmix=ysu_topdown_pblmix & ,ctopo=ctopo(ims,j),ctopo2=ctopo2(ims,j) & -#if defined(mpas) - ,kzh=kzhout(ims,kms,j) & - ,kzm=kzmout(ims,kms,j) & - ,kzq=kzqout(ims,kms,j) & -#endif ,ids=ids,ide=ide, jds=jds,jde=jde, kds=kds,kde=kde & ,ims=ims,ime=ime, jms=jms,jme=jme, kms=kms,kme=kme & ,its=its,ite=ite, jts=jts,jte=jte, kts=kts,kte=kte ) @@ -330,7 +288,7 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & xland,hfx,qfx,wspd,br, & dusfc,dvsfc,dtsfc,dqsfc, & dt,rcl,kpbl1d, & - exch_hx, & + exch_hx,exch_mx, & wstar,delta, & u10,v10, & uox,vox, & @@ -342,7 +300,6 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & its,ite, jts,jte, kts,kte, & !optional regime & - ,kzh,kzm,kzq & ) !------------------------------------------------------------------------------- implicit none @@ -412,7 +369,7 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & real,parameter :: afac = 6.8,bfac = 6.8,pfac = 2.0,pfac_q = 2.0 real,parameter :: phifac = 8.,sfcfrac = 0.1 real,parameter :: d1 = 0.02, d2 = 0.05, d3 = 0.001 - real,parameter :: h1 = 0.33333335, h2 = 0.6666667 + real,parameter :: h1 = 0.33333333, h2 = 0.6666667 real,parameter :: zfmin = 1.e-8,aphi5 = 5.,aphi16 = 16. real,parameter :: tmin=1.e-2 real,parameter :: gamcrt = 3.,gamcrq = 2.e-3 @@ -524,7 +481,8 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & !jdf added exch_hx ! real, dimension( ims:ime, kms:kme ) , & - intent(inout) :: exch_hx + intent(inout) :: exch_hx, & + exch_mx ! real, dimension( ims:ime ) , & intent(inout) :: u10, & @@ -586,8 +544,6 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & buoy_ysu real, dimension( ims:ime ) :: pblh_ysu,& vconvfx -! - real,intent(out),dimension(ims:ime,kms:kme),optional::kzh,kzm,kzq ! !------------------------------------------------------------------------------- ! @@ -690,17 +646,6 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & delta(i) = 0.0 wstar3_2(i) = 0.0 enddo -! - if(present(kzh) .and. present(kzm) .and. present(kzq)) then - do k = kts,kte - do i = its,ite - xkzh(i,k) = 0.0 - xkzm(i,k) = 0.0 - xkzhl(i,k) = 0.0 - xkzml(i,k) = 0.0 - enddo - enddo - endif ! do k = kts,klpbl do i = its,ite @@ -1449,6 +1394,7 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & al(i,k) = -dtodsu*dsdz2 ad(i,k) = ad(i,k)-au(i,k) ad(i,k+1) = 1.-al(i,k) + exch_mx(i,k+1) = xkzm(i,k) enddo enddo ! @@ -1493,16 +1439,6 @@ subroutine ysu2d(j,ux,vx,tx,qx,p2d,p2di,pi2d, & do i = its,ite kpbl1d(i) = kpbl(i) enddo -! - if(present(kzh) .and. present(kzm) .and. present(kzq)) then - do i = its,ite - do k = kts,kte - kzh(i,k) = xkzh(i,k) - kzm(i,k) = xkzm(i,k) - kzq(i,k) = xkzq(i,k) - enddo - enddo - endif ! end subroutine ysu2d !------------------------------------------------------------------------------- diff --git a/phys/module_checkerror.F b/phys/module_checkerror.F new file mode 100644 index 0000000000..272938ec97 --- /dev/null +++ b/phys/module_checkerror.F @@ -0,0 +1,395 @@ +!Modified to use wrf error routines by Eric Kemp, 2 Aug 2011 +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU + + module module_checkerror + implicit none + +!-------------------------------------------------------------------------------------------------- +! = Goddard Satellite Data Simulator Unit = +! +! NASA GSFC makes no representations about the suitability of software for any purpose. +! It is provided as is without express or implied warranty. Neither NASA GSFC (the US +! government) nor Principal Developers (their organizations) shall be liable for any +! damages suffered by the user of this software. In addition, please do not distribute +! the software to third party. +! +! Comments: +! This routine checks the presence of anomalous physical value. +! +! 1. How to use +! +! You can call subroutine checkerror like this. +! +! ! input input input input input input/output +! call checkerror( "subroutine name', 'parameter name', i_index, j_index, k_index, float_array(i,k,j) ) +! +! a) 'subroutine_name' must be the subroutine name that call check_error. +! +! +! b) 'parameter name' can be must be following characters: +! +! 'temperature_K' This is temperature in Kelvin. +! 'temperature_degC' This is temperature in degree Celcius. +! 'pressure_Pa' This is pressure in Pascal. +! 'radiationflux_W/m2' This is radiation flux in Watts per square meter. +! 'condensate_g/m3' This is cloud rain condensates in gram per cubic meter. +! 'condensate_kg/kg' This is cloud rain condensate in mixing ratio. +! 'aerosol_g/m3' This is aerosol in gram per cubic meter. +! 'aerosol_ug/kg' This is aerosol in mixing ratio. +! 'albedo' This is surface albedo. +! 'emissivity' This is surface emissivity +! +! c) float_array can be either single or double precision. But it must be zero dimension for interface. +! +! +! History: +! 02/2010 Toshi Matsui@NASA GSFC ; Initial +! +!---------------------------------------------------------------------------------------------- + +! +! Encapsulation control +! + private ! All parameters and subourtines are non accessible. + public checkerror ! Only this function is accesible. + +! ################################################################################ +! ############################ Module Interface ########################### +! ################################################################################ + + interface checkerror + module procedure checkerror_single + module procedure checkerror_double +! module procedure checkerror_integer + end interface + + contains + +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU + + subroutine checkerror_single(subroutine_name, param_id,i,k,j,input_real) + use, intrinsic :: ieee_arithmetic + implicit none + character*(*),intent(in) :: subroutine_name + character*(*),intent(in) :: param_id + integer,intent(in) :: i,k,j ! array index + real(4),intent(in) :: input_real + + character(len=132) :: string + + select case(trim(param_id)) + case('temperature_K') + + if(input_real < 0. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('temperature_degC') + + if(input_real < -274. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('pressure_Pa') + + if(input_real < 0. .or. input_real > 200000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('radiationflux_W/m2') + + if(input_real < -10000. .or. input_real > 10000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('condensate_g/m3') + + if(input_real < 0. .or. input_real > 10000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('condensate_kg/kg') + + if(input_real < 0. .or. input_real > 10000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('aerosol_g/m3') + + if(input_real < 0. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('aerosol_ug/kg') + + if(input_real < 0. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('albedo') + + if(input_real < 0. .or. input_real > 1. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('emissivity') + + if(input_real < 0. .or. input_real > 1. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + + case default +! print*,'MSG checkeror_float: There is no such param_id',trim(param_id) +! stop + write(string,*) 'MSG checkerror_float: There is no such param_id',trim(param_id) + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + end select + +! EMK...Check for infinity and NaNs + if (abs(input_real) >= huge(input_real)) then + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' Infinity at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + end if + + if (ieee_is_nan(input_real)) then + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' NaN at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + end if + + end subroutine checkerror_single + +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU + + subroutine checkerror_double(subroutine_name, param_id,i,k,j,input_real) + use, intrinsic :: ieee_arithmetic + implicit none + character*(*),intent(in) :: subroutine_name + character*(*),intent(in) :: param_id + integer,intent(in) :: i,k,j ! array index + real(8),intent(in) :: input_real + + character(len=132) :: string + + select case(trim(param_id)) + case('temperature_K') + + if(input_real < 0. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('temperature_degC') + + if(input_real < -274. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('pressure_Pa') + + if(input_real < 0. .or. input_real > 200000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('radiationflux_W/m2') + + if(input_real < -10000. .or. input_real > 10000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + + endif + + case('condensate_g/m3') + + if(input_real < 0. .or. input_real > 10000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('condensate_kg/kg') + + if(input_real < 0. .or. input_real > 10000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('aerosol_g/m3') + + if(input_real < 0. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('aerosol_ug/kg') + + if(input_real < 0. .or. input_real > 1000. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('albedo') + + if(input_real < 0. .or. input_real > 1. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case('emissivity') + + if(input_real < 0. .or. input_real > 1. ) then +! print*, 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& +! ' out of range at grid(i,k,j) =',i,k,j +! stop 'Terminate run.' + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' out of range at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + endif + + case default +! print*,'MSG checkerror_double: There is no such param_id',trim(param_id) +! stop + write(string,*) 'MSG checkerror_double: There is no such param_id',trim(param_id) + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + end select + +! EMK...Check for infinity and NaNs + if (abs(input_real) >= huge(input_real)) then + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' Infinity at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + end if + + if (ieee_is_nan(input_real)) then + write(string,*) 'MSG '//trim(subroutine_name)//': '//trim(param_id)//' =',input_real,& + ' NaN at grid(i,k,j) =',i,k,j + call wrf_message(string) + call wrf_error_fatal('Terminate run.') + end if + + end subroutine checkerror_double + +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU + + end module module_checkerror + +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU +!SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU SDSU diff --git a/phys/module_cu_ksas.F b/phys/module_cu_ksas.F index 310ead0d38..f6c92c507d 100644 --- a/phys/module_cu_ksas.F +++ b/phys/module_cu_ksas.F @@ -353,6 +353,11 @@ subroutine nsas2d(delt,delx,del,prsl,prsi,prslk,zl, & ! 16-11-01 ji-young han revised pgcon & bug fix in vshear ! 17-02-23 ji-young han revised xlamb ! 18-03-01 ji-young han kim sas +! 19-03-01 ji-yeon jang revised triggering ftn for higher resolution<10km +! yong-hee lee +! young cheol kwon +! eun-jeong lee bug fix in c0 for overshooting layer +! seung-bu park bug fix in xmb trigger ! ! usage: call phys_cps_sas(delt,delx,del,prsl,prsi,prslk,prsik,zl, & ! q2,q1,t1,u1,v1,rcs,slimsk,dot,cldwrk,rain, & @@ -405,6 +410,7 @@ subroutine nsas2d(delt,delx,del,prsl,prsi,prslk,zl, & ! lim et al. (2014, wea. forecasting) ! han et al. (2016, mon wea rev) ! kwon and hong (2017, mon wea rev) +! han and hong (2018, wea. forecasting) ! !------------------------------------------------------------------------------- implicit none @@ -576,7 +582,7 @@ subroutine nsas2d(delt,delx,del,prsl,prsi,prslk,zl, & sigma = min(sigma - 0.01684 * delx/1000. + 0.0842, 1.0) endif ! - cinpcr = cinpcrmn + 0.5*(cinpcrmx-cinpcrmn) * (1.-sigma) + cinpcr = (cinpcrmn + 0.5*(cinpcrmx-cinpcrmn)) * (1.-sigma) ! ! initialize arrays ! @@ -1061,6 +1067,20 @@ subroutine nsas2d(delt,delx,del,prsl,prsi,prslk,zl, & ! do k = kts1,kmax do i = its,ite + if (cnvflg(i).and.k.gt.kb(i)) then + alpha1 = min((-0.7*log(100.)+24.)*0.0001,c0) + beta1 = 0.07 +! + if (to(i,k).gt.t0c_) then + c0fac = alpha1 + else + c0fac = alpha1*exp(beta1*(to(i,k)-t0c_)) + endif +! + c0fac = max(0.0,c0fac) + c0t(i,k) = c0fac + endif +! if(cnvflg(i).and.k.gt.kb(i).and.k.lt.ktcon(i)) then dz1 = (zi(i,k+1) - zi(i,k)) gamma = el2orc * qeso(i,k) / (to(i,k)**2) @@ -1076,17 +1096,6 @@ subroutine nsas2d(delt,delx,del,prsl,prsi,prslk,zl, & ! check if there is excess moisture to release latent heat ! if(qcirs(i,k).gt.0. .and. k.ge.kbcon(i)) then - alpha1 = min((-0.7*log(100.)+24.)*0.0001,c0) - beta1 = 0.07 -! - if (to(i,k).gt.t0c_) then - c0fac = alpha1 - else - c0fac = alpha1*exp(beta1*(to(i,k)-t0c_)) - endif -! - c0fac = max(0.0,c0fac) - c0t(i,k) = c0fac etah = .5 * (eta(i,k) + eta(i,k-1)) if(ncloud.gt.0..and.k.gt.jmin(i)) then dp = 1000. * del(i,k) @@ -1819,6 +1828,18 @@ subroutine nsas2d(delt,delx,del,prsl,prsi,prslk,zl, & do k = kts1,kmax1 do i = its,ite if(cnvflg(i).and.k.gt.kb(i).and.k.lt.ktcon(i)) then + alpha1 = min((-0.7*log(100.)+24.)*0.0001,c0) + beta1 = 0.07 +! + if (to(i,k).gt.t0c_) then + c0fac = alpha1 + else + c0fac = alpha1*exp(beta1*(to(i,k)-t0c_)) + endif +! + c0fac = max(0.0,c0fac) + c0t(i,k) = c0fac +! dz = zi(i,k+1) - zi(i,k) gamma = el2orc * qeso(i,k) / (to(i,k)**2) xdby = hcko(i,k) - heso(i,k) @@ -2024,7 +2045,8 @@ subroutine nsas2d(delt,delx,del,prsl,prsi,prslk,zl, & endif pden(i) = p(i,kbcon(i))/to(i,kbcon(i))/rd_ pdot(i) = 10.* dot(i,kbcon(i)) - if (pden(i)*pdot(i).gt.xmb(i)) cnvflg(i) = .false. +! if (pden(i)*pdot(i).gt.xmb(i)) cnvflg(i) = .false. + if (xmb(i).lt.pdot(i)/g_) cnvflg(i) = .false. enddo totflg = .true. do i = its,ite diff --git a/phys/module_cu_mskf.F b/phys/module_cu_mskf.F index 46d01c5d9e..f1bcb06752 100644 --- a/phys/module_cu_mskf.F +++ b/phys/module_cu_mskf.F @@ -3387,10 +3387,18 @@ MODULE module_cu_mskf ! by introducing subgrid-scale cloud-radiation interactions. JGR, 119, ! 5317-5330, doi:10.1002/2014JD021504. ! -! Zheng et al., 2015: Improving High-Resolution Weather Forecasts using the +! Zheng et al., 2016: Improving High-Resolution Weather Forecasts using the ! Weather Research and Forecasting (WRF) Model with an Updated Kain-Fritsch -! Scheme. Revision - Mon. Wea. Rev. -!ckay +! Scheme. Mon. Wea. Rev., 144, 833-860 +! +! He, J., and K. Alapaty, 2018: Precipitation partitioning in multiscale atmospheric +! simulations: Impacts of stability restoration methods. Journal of Geophysical +! Research: Atmospheres, 123. https://doi.org/10.1029/2018JD028710 +! +! Glotfelty, T., K. Alapaty, J. He, P. Hawbecker, X. Song, and G. Zhang, 2019: +! The Weather Research and Forecasting Model with Aerosol Cloud Interactions +! (WRF-ACI): Development, Evaluation, and Initial Application. Mon. Wea. Rev., IN PRESS. +! !-------------------------------------------------------------------- ! Lookup table variables: INTEGER, PARAMETER :: KFNT=250,KFNP=220 @@ -5564,6 +5572,7 @@ SUBROUTINE MSKF_eta_PARA (I, J, & NIC=NINT(TIMEC/DT) TIMEC=FLOAT(NIC)*DT + TIMEC=MIN(TIMEC,86400.) !JRJ Ramboll: cap convective time scale at 24 hrs ! !...COMPUTE WIND SHEAR AND PRECIPITATION EFFICIENCY. ! diff --git a/phys/module_cu_scalesas.F b/phys/module_cu_scalesas.F index 3ee9beef89..937ed93172 100755 --- a/phys/module_cu_scalesas.F +++ b/phys/module_cu_scalesas.F @@ -19,6 +19,7 @@ SUBROUTINE CU_SCALESAS(DT,ITIMESTEP,STEPCU, & P_QC, & MOMMIX, & ! gopal's doing PGCON,sas_mass_flux, & + pert_sas, ens_random_seed, ens_sasamp, & shalconv,shal_pgcon, & HPBL2D,EVAP2D,HEAT2D, & !Kwon for shallow convection P_QI,P_FIRST_SCALAR, & @@ -134,6 +135,9 @@ SUBROUTINE CU_SCALESAS(DT,ITIMESTEP,STEPCU, & REAL, OPTIONAL, INTENT(IN) :: PGCON,sas_mass_flux,shal_pgcon INTEGER, OPTIONAL, INTENT(IN) :: shalconv REAL(kind=kind_phys) :: PGCON_USE,SHAL_PGCON_USE,massf + logical,optional,intent(in) :: pert_sas + integer,optional,intent(in) :: ens_random_seed + real,optional,intent(in) :: ens_sasamp INTEGER :: shalconv_use REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT) :: & RQCCUTEN, & @@ -444,7 +448,8 @@ SUBROUTINE CU_SCALESAS(DT,ITIMESTEP,STEPCU, & ! 2016-03-22 near final version of scale-aware convection call mfdeepcnv(im,im,kx,delt,del,prsl,ps,phil,ql, & & q1,t1,u1,v1,cldwrk,rn,kbot,ktop,kcnv,nint(slimsk),garea, & - & dot,ncloud,ud_mf,dd_mf,dt_mf,cnvw,cnvc, SIGMU_out,SCALEFUN_out) + & dot,ncloud,ud_mf,dd_mf,dt_mf,cnvw,cnvc, SIGMU_out,SCALEFUN_out, & + & pert_sas, ens_random_seed, ens_sasamp) do i=its,ite RAINCV1(I,J)=RN(I)*1000./STEPCU @@ -465,7 +470,10 @@ SUBROUTINE CU_SCALESAS(DT,ITIMESTEP,STEPCU, & ! 2016-03-22 near final version of scale-aware convection call mfshalcnv(im,im,kx,delt,del,prsl,ps,phil,ql, & & q1,t1,u1,v1,rn,kbot,ktop,kcnv,nint(slimsk),garea, & - & dot,ncloud,hpbl,ud_mf,dt_mf,cnvw,cnvc,SIGMU1_out,SCALEFUN1_out) + & dot,ncloud,hpbl,ud_mf,dt_mf,cnvw,cnvc,SIGMU1_out,SCALEFUN1_out, & + & pert_sas, ens_random_seed, ens_sasamp) + + DO I=ITS,ITE RAINCV2(I,J)=RN(I)*1000./STEPCU @@ -627,7 +635,9 @@ END SUBROUTINE scalesasinit subroutine mfdeepcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & & q1,t1,u1,v1,cldwrk,rn,kbot,ktop,kcnv,islimsk,garea, & - & dot,ncloud,ud_mf,dd_mf,dt_mf,cnvw,cnvc, sigmuout,scaldfunc) + & dot,ncloud,ud_mf,dd_mf,dt_mf,cnvw,cnvc, sigmuout,scaldfunc, & + & pert_sas, ens_random_seed, ens_sasamp) + ! ! use machine , only : kind_phys ! use funcphys , only : fpvs @@ -699,6 +709,10 @@ subroutine mfdeepcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & & ptem, ptem1, ptem2, & & pgcon ! + logical,optional,intent(in) :: pert_sas + integer,optional,intent(in) :: ens_random_seed + real,optional,intent(in) :: ens_sasamp + integer kb(im), kbcon(im), kbcon1(im), & & ktcon(im), ktcon1(im), ktconn(im), & & jmin(im), lmin(im), kbmax(im), & @@ -793,6 +807,43 @@ subroutine mfdeepcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & !c & .743,.813,.886,.947,1.138,1.377,1.896/ real(kind=kind_phys) tf, tcr, tcrf parameter (tf=233.16, tcr=263.16, tcrf=1.0/(tcr-tf)) + + +#if HWRF==1 + real*8 :: gasdev,ran1 !zhang + real :: rr !zhang + logical,save :: pert_sas_local !zhang + integer,save :: ens_random_seed_local,env_pp_local !zhang + integer :: ensda_physics_pert !zhang + real,save :: ens_sasamp_local !zhang + data ens_random_seed_local/0/ + data env_pp_local/0/ + CHARACTER(len=3) :: env_memb,env_pp + if ( ens_random_seed_local .eq. 0 ) then + CALL nl_get_ensda_physics_pert(1,ensda_physics_pert) + ens_random_seed_local=ens_random_seed + env_pp_local=ensda_physics_pert + pert_sas_local=.false. + ens_sasamp_local=0.0 +! env_pp=1: do physics perturbations for ensda members, ens_random_seed must be 99 + if ( env_pp_local .eq. 1 ) then + if ( ens_random_seed .ne. 99 ) then + pert_sas_local=.true. + ens_sasamp_local=ens_sasamp + else +! ens_random_seed=99 do physics perturbation for ensemble forecasts, env_pp must be zero + ens_random_seed_local=ens_random_seed + pert_sas_local=pert_sas + ens_sasamp_local=ens_sasamp + endif + else + ens_random_seed_local=ens_random_seed + pert_sas_local=pert_sas + ens_sasamp_local=ens_sasamp + endif + print*, "DESAS ==", ens_random_seed_local,pert_sas_local,ens_sasamp_local,ensda_physics_pert + endif +#endif ! !c----------------------------------------------------------------------- ! @@ -1164,6 +1215,18 @@ subroutine mfdeepcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & ptem1= .5*(cinpcrmx-cinpcrmn) cinpcr = cinpcrmx - ptem * ptem1 tem1 = pfld(i,kb(i)) - pfld(i,kbcon(i)) +#if HWRF==1 +! randomly perturb the convection trigger +!zz if( pert_sas_local .and. ens_random_seed_local .gt. 0 ) then + if( pert_sas_local ) then +!zz print*,"ens_random_seed==",ens_random_seed,ens_random_seed_local + ens_random_seed_local=ran1(-ens_random_seed_local)*1000 + rr=2.0*ens_sasamp_local*ran1(-ens_random_seed_local)-ens_sasamp_local +!zz print*, "zhang inde desas=a", cinpcr,ens_sasamp_local,ens_random_seed_local,cinpcr + cinpcr=cinpcr+rr +!zz print*, "zhang inde desas=b", cinpcr,ens_sasamp_local,ens_random_seed_local,cinpcr + endif +#endif if(tem1 > cinpcr) then cnvflg(i) = .false. endif @@ -2889,9 +2952,9 @@ end subroutine mfdeepcnv subroutine mfshalcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & & q1,t1,u1,v1,rn,kbot,ktop,kcnv,islimsk,garea, & -! & dot,ncloud,hpbl,ud_mf,dt_mf,cnvw,cnvc) - & dot,ncloud,hpbl,ud_mf,dt_mf,cnvw,cnvc,sigmagfm,scaldfunc) -! & dot,ncloud,hpbl,ud_mf,dt_mf,cnvw,cnvc,me) + & dot,ncloud,hpbl,ud_mf,dt_mf,cnvw,cnvc,sigmagfm,scaldfunc, & + & pert_sas, ens_random_seed, ens_sasamp) + ! ! use machine , only : kind_phys ! use funcphys , only : fpvs @@ -2951,6 +3014,10 @@ subroutine mfshalcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & & ptem, ptem1, & & pgcon ! + logical,optional,intent(in) :: pert_sas + integer,optional,intent(in) :: ens_random_seed + real,optional,intent(in) :: ens_sasamp + integer kb(im), kbcon(im), kbcon1(im), & & ktcon(im), ktcon1(im), ktconn(im), & & kbm(im), kmax(im) @@ -3024,6 +3091,44 @@ subroutine mfshalcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & ! real(kind=kind_phys) tf, tcr, tcrf parameter (tf=233.16, tcr=263.16, tcrf=1.0/(tcr-tf)) + +#if HWRF==1 + real*8 :: gasdev,ran1 !zhang + real :: rr !zhang + logical,save :: pert_sas_local !zhang + integer,save :: ens_random_seed_local,env_pp_local !zhang + integer :: ensda_physics_pert !zhang + real,save :: ens_sasamp_local !zhang + data ens_random_seed_local/0/ + data env_pp_local/0/ + CHARACTER(len=3) :: env_memb,env_pp + if ( ens_random_seed_local .eq. 0 ) then + CALL nl_get_ensda_physics_pert(1,ensda_physics_pert) + ens_random_seed_local=ens_random_seed + env_pp_local=ensda_physics_pert + pert_sas_local=.false. + ens_sasamp_local=0.0 +! env_pp=1: do physics perturbations for ensda members, ens_random_seed must be 99 + if ( env_pp_local .eq. 1 ) then + if ( ens_random_seed .ne. 99 ) then + pert_sas_local=.true. + ens_sasamp_local=ens_sasamp + else +! ens_random_seed=99 do physics perturbation for ensemble forecasts, env_pp must be zero + ens_random_seed_local=ens_random_seed + pert_sas_local=pert_sas + ens_sasamp_local=ens_sasamp + endif + else + ens_random_seed_local=ens_random_seed + pert_sas_local=pert_sas + ens_sasamp_local=ens_sasamp + endif + + print*, "SHSAS ==", ens_random_seed_local,pert_sas_local,ens_sasamp_local,ensda_physics_pert + endif +#endif + ! !c----------------------------------------------------------------------- ! @@ -3371,6 +3476,18 @@ subroutine mfshalcnv(im,ix,km,delt,delp,prslp,psp,phil,ql, & ptem1= .5*(cinpcrmx-cinpcrmn) cinpcr = cinpcrmx - ptem * ptem1 tem1 = pfld(i,kb(i)) - pfld(i,kbcon(i)) +#if HWRF==1 +! randomly perturb the convection trigger +!zzz if( pert_sas_local .and. ens_random_seed_local .gt. 0 ) then + if( pert_sas_local ) then +!zz print*, "zhang inde ens_random_seed=", ens_random_seed,ens_random_seed_local + ens_random_seed_local=ran1(-ens_random_seed_local)*1000 + rr=2.0*ens_sasamp_local*ran1(-ens_random_seed_local)-ens_sasamp_local +!zz print*, "zhang inde shsas=a", cinpcr,ens_sasamp_local,ens_random_seed_local,cinpcr + cinpcr=cinpcr+rr +!zz print*, "zhang inde shsas=b", cinpcr,ens_sasamp_local,ens_random_seed_local,cinpcr + endif +#endif if(tem1 > cinpcr) then cnvflg(i) = .false. endif diff --git a/phys/module_cumulus_driver.F b/phys/module_cumulus_driver.F index ece5262658..e83133a095 100644 --- a/phys/module_cumulus_driver.F +++ b/phys/module_cumulus_driver.F @@ -1152,6 +1152,10 @@ SUBROUTINE cumulus_driver(grid & ,P_QC=p_qc & ,MOMMIX=MOMMIX & ,pgcon=pgcon,sas_mass_flux=sas_mass_flux & +#if (HWRF==1) + ,pert_sas=pert_sas,ens_random_seed=ens_random_seed & + ,ens_sasamp=ens_sasamp & +#endif ,shalconv=shalconv,shal_pgcon=shal_pgcon & ,hpbl2d=hpbl2d,evap2d=evap2d,heat2d=heat2d & ,P_QI=p_qi,P_FIRST_SCALAR=param_first_scalar & diff --git a/phys/module_diag_afwa.F b/phys/module_diag_afwa.F index de6f1e5685..9166c37616 100644 --- a/phys/module_diag_afwa.F +++ b/phys/module_diag_afwa.F @@ -112,6 +112,7 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & TYPE(WRFU_Time) :: hist_time, aux2_time, CurrTime, StartTime TYPE(WRFU_TimeInterval) :: dtint, histint, aux2int LOGICAL :: is_after_history_dump, is_output_timestep, is_first_timestep + INTEGER , PARAMETER :: DEBUG_LEVEL = 1 ! Chirp the routine name for debugging purposes ! --------------------------------------------- @@ -180,19 +181,79 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & ! 3-D arrays for moisture variables ! --------------------------------- - DO i=ims, ime - DO k=kms, kme - DO j=jms, jme - qvapr(i,k,j) = moist(i,k,j,P_QV) - qrain(i,k,j) = moist(i,k,j,P_QR) - qsnow(i,k,j) = moist(i,k,j,P_QS) - qgrpl(i,k,j) = moist(i,k,j,P_QG) - qcloud(i,k,j) = moist(i,k,j,P_QC) - qice(i,k,j) = moist(i,k,j,P_QI) - ncloud(i,k,j) = scalar(i,k,j,P_QNC) + + IF ( F_QV ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + qvapr(i,k,j) = moist(i,k,j,P_QV) + ENDDO ENDDO ENDDO - ENDDO + END IF + IF ( F_QR ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + qrain(i,k,j) = moist(i,k,j,P_QR) + ENDDO + ENDDO + ENDDO + END IF + IF ( F_QS ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + qsnow(i,k,j) = moist(i,k,j,P_QS) + ENDDO + ENDDO + ENDDO + END IF + IF ( F_QG ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + qgrpl(i,k,j) = moist(i,k,j,P_QG) + ENDDO + ENDDO + ENDDO + END IF + IF ( F_QC ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + qcloud(i,k,j) = moist(i,k,j,P_QC) + ENDDO + ENDDO + ENDDO + END IF + IF ( F_QI ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + qice(i,k,j) = moist(i,k,j,P_QI) + ENDDO + ENDDO + ENDDO + END IF + IF ( F_QNC ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + ncloud(i,k,j) = scalar(i,k,j,P_QNC) + ENDDO + ENDDO + ENDDO + END IF + IF ( F_QNG ) THEN + DO i=ims, ime + DO k=kms, kme + DO j=jms, jme + ngraup(i,k,j) = scalar(i,k,j,P_QNG) + ENDDO + ENDDO + ENDDO + END IF ! Total pressure ! -------------- @@ -216,14 +277,28 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & ! Calculate relative humidity ! --------------------------- - DO i=ims,ime - DO k=kms,kme - DO j=jms,jme - rh(i,k,j)=calc_rh(ptot(i,k,j),grid%t_phy(i,k,j), qvapr(i,k,j)) - rh_cld(i,k,j)=calc_rh(ptot(i,k,j),grid%t_phy(i,k,j), qvapr(i,k,j)+qcloud(i,k,j)+qice(i,k,j)) + IF ( F_QV ) THEN + DO i=ims,ime + DO k=kms,kme + DO j=jms,jme + rh(i,k,j)=calc_rh(ptot(i,k,j),grid%t_phy(i,k,j), qvapr(i,k,j)) + ENDDO ENDDO ENDDO - ENDDO + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Option rh requires: QV' ) + END IF + IF ( F_QV .AND. F_QC .AND. F_QI ) THEN + DO i=ims,ime + DO k=kms,kme + DO j=jms,jme + rh_cld(i,k,j)=calc_rh(ptot(i,k,j),grid%t_phy(i,k,j), qvapr(i,k,j)+qcloud(i,k,j)+qice(i,k,j)) + ENDDO + ENDDO + ENDDO + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Option rh_cld requires: QV, QC, QI' ) + END IF ! Time-step precipitation (convective + nonconvective) ! -------------------------------------------------------------- @@ -236,26 +311,32 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & ! Calculate precipitable water ! ---------------------------- - nz=kme-kms+1 - DO i=ims,ime - DO j=jms,jme - grid % afwa_pwat ( i, j ) = Pwat( nz, & - qvapr(i,kms:kme,j), & - qcloud(i,kms:kme,j), & - dz8w(i,kms:kme,j), & - rho(i,kms:kme,j) ) + IF ( F_QV .AND. F_QC ) THEN + nz=kme-kms+1 + DO i=ims,ime + DO j=jms,jme + grid % afwa_pwat ( i, j ) = Pwat( nz, & + qvapr(i,kms:kme,j), & + qcloud(i,kms:kme,j), & + dz8w(i,kms:kme,j), & + rho(i,kms:kme,j) ) + ENDDO ENDDO - ENDDO + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Option pwat requires: QV, QC' ) + END IF ! After each history dump, reset max/min value arrays ! ---------------------------------------------------------------------- IF ( is_after_history_dump ) THEN - DO j = jms, jme - DO i = ims, ime - grid % wspd10max(i,j) = 0. - grid % afwa_llws(i,j) = 0. + IF ( config_flags % afwa_severe_opt == 1 ) THEN + DO j = jms, jme + DO i = ims, ime + grid % wspd10max(i,j) = 0. + grid % afwa_llws(i,j) = 0. + ENDDO ENDDO - ENDDO + ENDIF ENDIF ! Calculate the max 10 m wind speed between output times @@ -268,50 +349,53 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & ! higher of the surface and the blended winds. Blending ! is linear weighted between 50-150 mm/hr precip rates. ! ------------------------------------------------------- - DO j = jms, jme - DO i = ims, ime - wind_vel = uv_wind ( grid % u10(i,j) , grid % v10(i,j) ) - prate_mm_per_hr = ( grid % afwa_precip(i,j) / grid % dt ) * 3600. - - ! Is this an area of heavy precip? Calculate 1km winds to blend down - ! ------------------------------------------------------------------- - IF ( prate_mm_per_hr .GT. 50. ) THEN - is_target_level=.false. - DO k=kms,kme - IF ( ( zagl(i,k,j) >= 1000. ) .and. & - ( .NOT. is_target_level ) .and. & - ( k .ne. kms ) ) THEN - is_target_level = .true. - u1km = u_phy(i,k-1,j) + (1000. - (zagl(i,k-1,j))) & - * ((u_phy(i,k,j) - u_phy(i,k-1,j))/(zagl(i,k,j))) - v1km = v_phy(i,k-1,j) + (1000. - (zagl(i,k-1,j))) & - * ((v_phy(i,k,j) - v_phy(i,k-1,j))/(zagl(i,k,j))) - EXIT ! We've found our level, break the loop + IF ( config_flags % afwa_severe_opt == 1 ) THEN + DO j = jms, jme + DO i = ims, ime + wind_vel = uv_wind ( grid % u10(i,j) , grid % v10(i,j) ) + prate_mm_per_hr = ( grid % afwa_precip(i,j) / grid % dt ) * 3600. + + ! Is this an area of heavy precip? Calculate 1km winds to blend down + ! ------------------------------------------------------------------- + IF ( prate_mm_per_hr .GT. 50. ) THEN + is_target_level=.false. + DO k=kms,kme + IF ( ( zagl(i,k,j) >= 1000. ) .and. & + ( .NOT. is_target_level ) .and. & + ( k .ne. kms ) ) THEN + is_target_level = .true. + u1km = u_phy(i,k-1,j) + (1000. - (zagl(i,k-1,j))) & + * ((u_phy(i,k,j) - u_phy(i,k-1,j))/(zagl(i,k,j))) + v1km = v_phy(i,k-1,j) + (1000. - (zagl(i,k-1,j))) & + * ((v_phy(i,k,j) - v_phy(i,k-1,j))/(zagl(i,k,j))) + EXIT ! We've found our level, break the loop + ENDIF + ENDDO + + ! Compute blended wind + ! -------------------- + factor = MAX ( ( ( 150. - prate_mm_per_hr ) / 100. ), 0. ) + ublend = grid % u10(i,j) * factor + u1km * (1. - factor) + vblend = grid % v10(i,j) * factor + v1km * (1. - factor) + wind_blend = uv_wind ( ublend, vblend ) + + ! Set the surface wind to the blended wind if higher + ! -------------------------------------------------- + IF ( wind_blend .GT. wind_vel ) THEN + wind_vel = wind_blend ENDIF - ENDDO - - ! Compute blended wind - ! -------------------- - factor = MAX ( ( ( 150. - prate_mm_per_hr ) / 100. ), 0. ) - ublend = grid % u10(i,j) * factor + u1km * (1. - factor) - vblend = grid % v10(i,j) * factor + v1km * (1. - factor) - wind_blend = uv_wind ( ublend, vblend ) - - ! Set the surface wind to the blended wind if higher - ! -------------------------------------------------- - IF ( wind_blend .GT. wind_vel ) THEN - wind_vel = wind_blend ENDIF - ENDIF - - IF ( wind_vel .GT. grid % wspd10max(i,j) ) THEN - grid % wspd10max(i,j) = wind_vel - ENDIF + + IF ( wind_vel .GT. grid % wspd10max(i,j) ) THEN + grid % wspd10max(i,j) = wind_vel + ENDIF + ENDDO ENDDO - ENDDO + ENDIF ! Calculate 0-2000 foot (0 - 609.6 meter) shear. ! ---------------------------------------------- + IF ( config_flags % afwa_severe_opt == 1 ) THEN DO j = jts, jte DO i = its, ite is_target_level=.false. @@ -335,6 +419,7 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & ENDDO ENDDO ENDDO + ENDIF #if ( WRF_CHEM == 1 ) ! Surface dust concentration array (ug m-3) @@ -365,13 +450,11 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & IF ( is_after_history_dump ) THEN DO j = jms, jme DO i = ims, ime -! grid%wspd10max(i,j) = 0. grid%w_up_max(i,j) = 0. grid%w_dn_max(i,j) = 0. grid%tcoli_max(i,j) = 0. grid%grpl_flx_max(i,j) = 0. grid%up_heli_max(i,j) = 0. -! grid%refd_max(i,j) = 0. grid%afwa_tornado(i,j) = 0. grid%midrh_min_old(i,j) = grid%midrh_min(i,j) ! Save old midrh_min grid%midrh_min(i,j) = 999. @@ -386,74 +469,76 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & do_buoy_calc = .false. ENDIF - !-->RAS - ! We need to do some neighboring gridpoint comparisons in this next function; - ! set these values so we don't go off the edges of the domain. Updraft - ! duration on domain edges will always be 0. - ! ---------------------------------------------------------------------- - i_start = its - i_end = ite - j_start = jts - j_end = jte - - IF ( config_flags%open_xs .OR. config_flags%specified .OR. & - config_flags%nested) i_start = MAX( ids+1, its ) - IF ( config_flags%open_xe .OR. config_flags%specified .OR. & - config_flags%nested) i_end = MIN( ide-1, ite ) - IF ( config_flags%open_ys .OR. config_flags%specified .OR. & - config_flags%nested) j_start = MAX( jds+1, jts ) - IF ( config_flags%open_ye .OR. config_flags%specified .OR. & - config_flags%nested) j_end = MIN( jde-1, jte ) - IF ( config_flags%periodic_x ) i_start = its - IF ( config_flags%periodic_x ) i_end = ite - - CALL severe_wx_diagnostics ( grid % wspd10max & - , grid % w_up_max & - , grid % w_dn_max & - , grid % up_heli_max & - , grid % tcoli_max & - , grid % midrh_min_old & - , grid % midrh_min & - , grid % afwa_hail & - , grid % afwa_cape & - , grid % afwa_cin & -! , grid % afwa_cape_mu & -! , grid % afwa_cin_mu & - , grid % afwa_zlfc & - , grid % afwa_plfc & - , grid % afwa_lidx & - , llws & - , grid % afwa_tornado & - , grid % grpl_flx_max & - , grid % u10 & - , grid % v10 & - , grid % w_2 & - , grid % uh & - , grid % t_phy & - , grid % t2 & - , grid % z & - , grid % ht & - , grid % tornado_mask & - , grid % tornado_dur & - , grid % dt & - , grid % afwa_pwat & - , u_phy & - , v_phy & - , ptot & - , qice & - , qsnow & - , qgrpl & - , ngraup & - , qvapr, qrain, qcloud & - , rho & - , dz8w & - , rh & - , do_buoy_calc & - , ims, ime, jms, jme, kms, kme & - , its, ite, jts, jte & - , k_start, k_end & - , j_start, j_end, i_start, i_end ) + IF ( F_QV .AND. F_QR .AND. F_QC .AND. F_QI .AND. F_QS .AND. F_QG .AND. F_QNG ) THEN + !-->RAS + ! We need to do some neighboring gridpoint comparisons in this next function; + ! set these values so we don't go off the edges of the domain. Updraft + ! duration on domain edges will always be 0. + ! ---------------------------------------------------------------------- + i_start = its + i_end = ite + j_start = jts + j_end = jte + + IF ( config_flags%open_xs .OR. config_flags%specified .OR. & + config_flags%nested) i_start = MAX( ids+1, its ) + IF ( config_flags%open_xe .OR. config_flags%specified .OR. & + config_flags%nested) i_end = MIN( ide-1, ite ) + IF ( config_flags%open_ys .OR. config_flags%specified .OR. & + config_flags%nested) j_start = MAX( jds+1, jts ) + IF ( config_flags%open_ye .OR. config_flags%specified .OR. & + config_flags%nested) j_end = MIN( jde-1, jte ) + IF ( config_flags%periodic_x ) i_start = its + IF ( config_flags%periodic_x ) i_end = ite + + CALL severe_wx_diagnostics ( grid % wspd10max & + , grid % w_up_max & + , grid % w_dn_max & + , grid % up_heli_max & + , grid % tcoli_max & + , grid % midrh_min_old & + , grid % midrh_min & + , grid % afwa_hail & + , grid % afwa_cape & + , grid % afwa_cin & + , grid % afwa_zlfc & + , grid % afwa_plfc & + , grid % afwa_lidx & + , llws & + , grid % afwa_tornado & + , grid % grpl_flx_max & + , grid % u10 & + , grid % v10 & + , grid % w_2 & + , grid % uh & + , grid % t_phy & + , grid % t2 & + , grid % z & + , grid % ht & + , grid % tornado_mask & + , grid % tornado_dur & + , grid % dt & + , grid % afwa_pwat & + , u_phy & + , v_phy & + , ptot & + , qice & + , qsnow & + , qgrpl & + , ngraup & + , qvapr, qrain, qcloud & + , rho & + , dz8w & + , rh & + , do_buoy_calc & + , ims, ime, jms, jme, kms, kme & + , its, ite, jts, jte & + , k_start, k_end & + , j_start, j_end, i_start, i_end ) + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Option severe_wx_diagnostics requires: QV, QR, QC, QI, QS, QG, QNG' ) + END IF ENDIF ! afwa_severe_opt == 1 ! Calculate precipitation type diagnostics @@ -480,6 +565,7 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & , grid % t2 & , rh & , grid % z & + , dz8w & , grid % ht & , grid % afwa_precip & , grid % swdown & @@ -688,61 +774,69 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & , ips, ipe, jps, jpe, kps, kpe ) ENDIF ! afwa_vil_opt ==1 - ! Calculate icing and freezing level - ! ---------------------------------- - IF ( config_flags % afwa_icing_opt == 1 ) THEN - - ! Determine icing option from microphysics scheme - ! ----------------------------------------------- - - IF ( config_flags % mp_physics == GSFCGCESCHEME ) THEN - icing_opt=1 - ELSEIF ( config_flags % mp_physics == ETAMPNEW ) THEN - icing_opt=2 - ELSEIF ( config_flags % mp_physics == THOMPSON ) THEN - icing_opt=3 - ELSEIF ( config_flags % mp_physics == WSM5SCHEME .OR. & - config_flags % mp_physics == WSM6SCHEME ) THEN - icing_opt=4 - ELSEIF ( config_flags % mp_physics == MORR_TWO_MOMENT .OR. & - config_flags % mp_physics == MORR_TM_AERO ) THEN !TWG add 2017 - - ! Is this run with prognostic cloud droplets or no? - ! ------------------------------------------------- - IF (config_flags % progn > 0) THEN - icing_opt=6 + IF ( F_QR .AND. F_QC .AND. F_QNC ) THEN + ! Calculate icing and freezing level + ! ---------------------------------- + IF ( config_flags % afwa_icing_opt == 1 ) THEN + + ! Determine icing option from microphysics scheme + ! ----------------------------------------------- + + IF ( config_flags % mp_physics == GSFCGCESCHEME ) THEN + icing_opt=1 + ELSEIF ( config_flags % mp_physics == ETAMPNEW ) THEN + icing_opt=2 + ELSEIF ( config_flags % mp_physics == THOMPSON ) THEN + icing_opt=3 + ELSEIF ( config_flags % mp_physics == WSM5SCHEME .OR. & + config_flags % mp_physics == WSM6SCHEME ) THEN + icing_opt=4 + ELSEIF ( config_flags % mp_physics == MORR_TWO_MOMENT .OR. & + config_flags % mp_physics == MORR_TM_AERO ) THEN !TWG add 2017 + + ! Is this run with prognostic cloud droplets or no? + ! ------------------------------------------------- + IF (config_flags % progn > 0) THEN + icing_opt=6 + ELSE + icing_opt=5 + ENDIF + ELSEIF ( config_flags % mp_physics == WDM6SCHEME ) THEN + icing_opt=7 ELSE - icing_opt=5 + icing_opt=0 ! Not supported ENDIF - ELSEIF ( config_flags % mp_physics == WDM6SCHEME ) THEN - icing_opt=7 - ELSE - icing_opt=0 ! Not supported - ENDIF - - write ( message, * ) 'Calculating Icing with icing opt ',icing_opt - CALL wrf_debug( 100 , message ) - CALL icing_diagnostics ( icing_opt & - , grid % fzlev & - , grid % icing_lg & - , grid % icing_sm & - , grid % qicing_lg_max & - , grid % qicing_sm_max & - , grid % qicing_lg & - , grid % qicing_sm & - , grid % icingtop & - , grid % icingbot & - , grid % t_phy & - , grid % z & - , dz8w & - , rho & - , qrain & - , qcloud & - , ncloud & - , ids, ide, jds, jde, kds, kde & - , ims, ime, jms, jme, kms, kme & - , ips, ipe, jps, jpe, kps, kpe ) - ENDIF ! afwa_icing_opt + + IF ( icing_opt .NE. 0 ) THEN + write ( message, * ) 'Calculating Icing with icing opt ',icing_opt + CALL wrf_debug( 100 , message ) + CALL icing_diagnostics ( icing_opt & + , grid % fzlev & + , grid % icing_lg & + , grid % icing_sm & + , grid % qicing_lg_max & + , grid % qicing_sm_max & + , grid % qicing_lg & + , grid % qicing_sm & + , grid % icingtop & + , grid % icingbot & + , grid % t_phy & + , grid % z & + , dz8w & + , rho & + , qrain & + , qcloud & + , ncloud & + , ids, ide, jds, jde, kds, kde & + , ims, ime, jms, jme, kms, kme & + , ips, ipe, jps, jpe, kps, kpe ) + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Icing diagnostics not processed due to unknown MP scheme' ) + END IF + ENDIF ! afwa_icing_opt + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Option icing_diagnostics requires: QC, QR, QNC' ) + END IF ! Calculate visiblility diagnostics ! --------------------------------- @@ -808,50 +902,58 @@ SUBROUTINE afwa_diagnostics_driver ( grid , config_flags & ENDDO ENDDO - write ( message, * ) 'Calculating visibility' - CALL wrf_debug( 100 , message ) - CALL vis_diagnostics ( qcloud(ims:ime,k_start,jms:jme) & - , qrain(ims:ime,k_start,jms:jme) & - , qice(ims:ime,k_start,jms:jme) & - , qsnow(ims:ime,k_start,jms:jme) & - , qgrpl(ims:ime,k_start,jms:jme) & - , rho(ims:ime,k_start,jms:jme) & - , wind10m & - , wind125m & - , grid % afwa_pwat & - , grid % q2 & - , rh2m & - , rh20m & - , tv2m & - , tv20m & - , dustc & - , grid % afwa_vis & - , grid % afwa_vis_dust & - , grid % afwa_vis_alpha & - , ids, ide, jds, jde, kds, kde & - , ims, ime, jms, jme, kms, kme & - , ips, ipe, jps, jpe, kps, kpe ) + IF ( F_QC .AND. F_QR .AND. F_QI .AND. F_QS .AND. F_QG ) THEN + write ( message, * ) 'Calculating visibility' + CALL wrf_debug( 100 , message ) + CALL vis_diagnostics ( qcloud(ims:ime,k_start,jms:jme) & + , qrain(ims:ime,k_start,jms:jme) & + , qice(ims:ime,k_start,jms:jme) & + , qsnow(ims:ime,k_start,jms:jme) & + , qgrpl(ims:ime,k_start,jms:jme) & + , rho(ims:ime,k_start,jms:jme) & + , wind10m & + , wind125m & + , grid % afwa_pwat & + , grid % q2 & + , rh2m & + , rh20m & + , tv2m & + , tv20m & + , dustc & + , grid % afwa_vis & + , grid % afwa_vis_dust & + , grid % afwa_vis_alpha & + , ids, ide, jds, jde, kds, kde & + , ims, ime, jms, jme, kms, kme & + , ips, ipe, jps, jpe, kps, kpe ) + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Option vis_diagnostics requires: QC, QR, QI, QS, QG' ) + END IF ENDIF - ! Calculate cloud diagnostics - ! --------------------------- - IF ( config_flags % afwa_cloud_opt == 1 ) THEN - write ( message, * ) 'Calculating cloud' - CALL wrf_debug( 100 , message ) - CALL cloud_diagnostics (qcloud & - , qice & - , qsnow & - , rh_cld & - , dz8w & - , rho & - , grid % z & - , grid % ht & - , grid % afwa_cloud & - , grid % afwa_cloud_ceil & - , ids, ide, jds, jde, kds, kde & - , ims, ime, jms, jme, kms, kme & - , ips, ipe, jps, jpe, kps, kpe ) - ENDIF + IF ( F_QC .AND. F_QI .AND. F_QS ) THEN + ! Calculate cloud diagnostics + ! --------------------------- + IF ( config_flags % afwa_cloud_opt == 1 ) THEN + write ( message, * ) 'Calculating cloud' + CALL wrf_debug( 100 , message ) + CALL cloud_diagnostics (qcloud & + , qice & + , qsnow & + , rh_cld & + , dz8w & + , rho & + , grid % z & + , grid % ht & + , grid % afwa_cloud & + , grid % afwa_cloud_ceil & + , ids, ide, jds, jde, kds, kde & + , ims, ime, jms, jme, kms, kme & + , ips, ipe, jps, jpe, kps, kpe ) + ENDIF + ELSE + CALL wrf_debug ( DEBUG_LEVEL, 'Option cloud_diagnostics requires: QC, QI, QS' ) + END IF ENDIF ! is_output_timestep @@ -869,8 +971,6 @@ SUBROUTINE severe_wx_diagnostics ( wspd10max & , afwa_hail & , cape & , cin & -! , cape_mu & -! , cin_mu & , zlfc & , plfc & , lidx & @@ -954,14 +1054,6 @@ SUBROUTINE severe_wx_diagnostics ( wspd10max & , tornado_dur -! REAL, DIMENSION( ims:ime, jms:jme ), & -! INTENT( OUT) :: cape & -! , cin & -! , cape_mu & -! , cin_mu & -! , zlfc & -! , plfc & -! , lidx REAL, DIMENSION( ims:ime, jms:jme ), & INTENT(INOUT) :: cape & , cin & @@ -1703,6 +1795,7 @@ SUBROUTINE precip_type_diagnostics ( t_phy & , t2 & , rh & , z & + , dz8w & , ht & , precip & , swdown & @@ -1724,7 +1817,8 @@ SUBROUTINE precip_type_diagnostics ( t_phy & REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: t_phy & , rh & - , z + , z & + , dz8w REAL, DIMENSION( ims:ime, jms:jme ), & INTENT(IN ) :: t2 & , ht & @@ -1833,7 +1927,7 @@ SUBROUTINE precip_type_diagnostics ( t_phy & IF ((precip_type(i,j) .eq. 2 .or. precip_type(i,j) .eq. 3) .and. & t_phy(i,k,j) .gt. 273.15) THEN melt(i,j)=melt(i,j)+9.8*(((t_phy(i,k,j)-273.15)/273.15)* & - (z(i,k,j)-z(i,k-1,j))) + (dz8w(i,k,j))) IF (melt(i,j) .gt. total_melt) THEN precip_type(i,j)=1 ! Rain melt(i,j)=0.0 ! Reset melting energy in case it re-freezes diff --git a/phys/module_diag_trad_fields.F b/phys/module_diag_trad_fields.F index e9d650dcb6..bc7174c106 100644 --- a/phys/module_diag_trad_fields.F +++ b/phys/module_diag_trad_fields.F @@ -14,11 +14,13 @@ MODULE module_trad_fields SUBROUTINE trad_fields ( u,v,w,t,qv,zp,zb,pp,pb,p,pw, & msfux,msfuy,msfvx,msfvy,msftx,msfty, & f,e,sina,cosa, & - ht, & + qc,rho,dz8w, ht, & use_theta_m, & + psfc,rainc,rainnc,snownc,graupelnc,hailnc, & sealevelp, & temperature,pressure,geoheight, & umet,vmet,speed,dir, & + rain, liqrain, tpw,potential_t, rh, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & ips,ipe, jps,jpe, kps,kpe, & @@ -40,21 +42,26 @@ SUBROUTINE trad_fields ( u,v,w,t,qv,zp,zb,pp,pb,p,pw, & f,e,sina,cosa,ht INTEGER, INTENT(IN ) :: use_theta_m REAL , INTENT(IN ) , DIMENSION(ims:ime , kms:kme , jms:jme) :: u,v,w,t,qv,zp,zb,pp,pb,p,pw + + REAL , INTENT(IN ) , DIMENSION(ims:ime , kms:kme , jms:jme) :: qc, rho, dz8w + REAL , INTENT(IN ) , DIMENSION(ims:ime , jms:jme) :: psfc, rainc, rainnc, hailnc,graupelnc, snownc ! Output variables - REAL , INTENT( OUT) , DIMENSION(ims:ime , jms:jme) :: sealevelp REAL , INTENT( OUT) , DIMENSION(ims:ime , kms:kme , jms:jme) :: temperature , & pressure , & geoheight , & umet , & vmet , & speed , & + potential_t , & + rh , & dir + REAL , INTENT( OUT) , DIMENSION(ims:ime , jms:jme) :: sealevelp, rain, liqrain,tpw ! Local variables - REAL, DIMENSION(its:ite , jts:jte) :: pscf + REAL :: ptot REAL, PARAMETER :: eps = 0.622, t_kelvin = svpt0 , s1 = 243.5, s2 = svp2 , s3 = svp1*10., s4 = 611.0, s5 = 5418.12 REAL, PARAMETER :: zshul=75., tvshul=290.66 @@ -77,7 +84,7 @@ SUBROUTINE trad_fields ( u,v,w,t,qv,zp,zb,pp,pb,p,pw, & temperature(i,k,j) = ( ( t(i,k,j) + t0 ) * ( (pb(i,k,j)+pp(i,k,j)) / p1000mb ) ** rcp ) END IF - ! Hydrostatic ressure + ! Hydrostatic pressure pressure(i,k,j) = p(i,k,j) @@ -112,6 +119,20 @@ SUBROUTINE trad_fields ( u,v,w,t,qv,zp,zb,pp,pb,p,pw, & END IF END IF + ! Potential Temperature + + IF ( use_theta_m .EQ. 1 ) THEN + potential_t(i,k,j) = ( t(i,k,j) + t0 ) / ( 1. + (R_v/R_d) * qv(i,k,j) ) + ELSE + potential_t(i,k,j) = t(i,k,j) + t0 + END IF + + + ! Relative humidity + + ptot = pb(i,k,j)+pp(i,k,j) + rh(i,k,j) = calc_rh(ptot, temperature(i,k,j), qv(i,k,j)) + END DO i_loop_h END DO k_loop_h END DO j_loop_h @@ -137,7 +158,19 @@ SUBROUTINE trad_fields ( u,v,w,t,qv,zp,zb,pp,pb,p,pw, & sealevelp(i,j) = MSLP ( ht(i,j), pressure(i,kms,j), geoheight(i,kms,j) , & qv(i,kms,j), temperature(i,kms,j) ) - + + ! Total rainfall + + rain(i,j) = rainc(i,j) + rainnc(i,j) + + ! Total liquid rainfall + + liqrain(i,j) = rainc(i,j) + rainnc(i,j) - snownc(i,j) - graupelnc(i,j) - hailnc(i,j) + + ! Total precipitable water + + tpw(i,j) = PWAT(kme-kms+1, qv(i,kms:kme,j), qc(i,kms:kme,j), dz8w(i,kms:kme,j), rho(i,kms:kme,j)) + END DO i_loop_2 END DO j_loop_2 diff --git a/phys/module_diag_zld.F b/phys/module_diag_zld.F index b39a1cec26..f4cb94face 100644 --- a/phys/module_diag_zld.F +++ b/phys/module_diag_zld.F @@ -104,13 +104,12 @@ SUBROUTINE zld ( u,v,w,t,qv,zp,zb,pp,pb,p,pw, & ke_loop_half : DO ke = ke_h , kte-2 - zm = ABS(z_zl(kz)) + zu = ( zp(i,ke+1,j)+zb(i,ke+1,j) + zp(i,ke+2,j)+zb(i,ke+2,j) ) / 2.0 / g + zd = ( zp(i,ke ,j)+zb(i,ke ,j) + zp(i,ke+1,j)+zb(i,ke+1,j) ) / 2.0 / g IF ( z_zl(kz) .LT. 1 ) THEN - zu = ( zp(i,ke+1,j)+zb(i,ke+1,j) + zp(i,ke+2,j)+zb(i,ke+2,j) ) / 2.0 / 9.8 - ht(i,j) - zd = ( zp(i,ke ,j)+zb(i,ke ,j) + zp(i,ke+1,j)+zb(i,ke+1,j) ) / 2.0 / 9.8 - ht(i,j) + zm = ABS(z_zl(kz)) + ht(i,j) ELSE - zu = ( zp(i,ke+1,j)+zb(i,ke+1,j) + zp(i,ke+2,j)+zb(i,ke+2,j) ) / 2.0 / 9.8 - zd = ( zp(i,ke ,j)+zb(i,ke ,j) + zp(i,ke+1,j)+zb(i,ke+1,j) ) / 2.0 / 9.8 + zm = z_zl(kz) END IF IF ( ( zd .LE. zm ) .AND. ( zu .GT. zm ) ) THEN @@ -178,13 +177,12 @@ SUBROUTINE zld ( u,v,w,t,qv,zp,zb,pp,pb,p,pw, & ke_loop_full : DO ke = ke_f , kte-1 - zm = ABS(z_zl(kz)) + zu = ( zp(i,ke+1,j)+zb(i,ke+1,j) ) / g + zd = ( zp(i,ke ,j)+zb(i,ke ,j) ) / g IF ( z_zl(kz) .LT. 1 ) THEN - zu = ( zp(i,ke+1,j)+zb(i,ke+1,j) ) / 9.8 - ht(i,j) - zd = ( zp(i,ke ,j)+zb(i,ke ,j) ) / 9.8 - ht(i,j) + zm = ABS(z_zl(kz)) + ht(i,j) ELSE - zu = ( zp(i,ke+1,j)+zb(i,ke+1,j) ) / 9.8 - zd = ( zp(i,ke ,j)+zb(i,ke ,j) ) / 9.8 + zm = z_zl(kz) END IF IF ( ( zd .LE. zm ) .AND. & diff --git a/phys/module_diagnostics_driver.F b/phys/module_diagnostics_driver.F index 1d3650744e..29dc825796 100644 --- a/phys/module_diagnostics_driver.F +++ b/phys/module_diagnostics_driver.F @@ -38,7 +38,7 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & USE module_state_description, ONLY: num_moist, num_chem, num_tracer, num_scalar, & SKIP_PRESS_DIAGS, SKIP_Z_DIAGS, & DO_TRAD_FIELDS, & - P_QG, P_QH, P_QV, & + P_QG, P_QH, P_QV, P_QC, & P_QNG, P_QH, P_QNH, P_QR, P_QNR, & KESSLERSCHEME, LINSCHEME, SBU_YLINSCHEME, WSM3SCHEME, WSM5SCHEME, & WSM6SCHEME, ETAMPNEW, THOMPSON, THOMPSONAERO, & @@ -51,7 +51,7 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & ! From where we preferably are pulling g, Cp, etc. - USE module_model_constants, ONLY: g + USE module_model_constants, ONLY: g, R_v, R_d, Cp, T0, RCP ! This gives us the type definition for grid (domain) and some clock information. @@ -186,7 +186,13 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & k_start = kps k_end = kpe-1 + ! There are some fields that were defined in the first RK loop for + ! physics and are now a time-step old. + CALL update_phys_fields ( grid, config_flags, moist, & + ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + ips, ipe, jps, jpe, kps, kpe ) ! Lightning flash rate diagnostic production. @@ -292,6 +298,15 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & ,e=grid%e & ,sina=grid%sina & ,cosa=grid%cosa & + ! Input model diagnostic vraiables + ,rho=grid%rho & + ,dz8w=dz8w & + ,qc=moist(:,:,:,P_QC) & + ,rainc=grid%rainc & + ,rainnc=grid%rainnc & + ,snownc=grid%snownc & + ,graupelnc=grid%graupelnc & + ,hailnc=grid%hailnc & ! Terrestrial data ,ht=grid%ht & ! Namelist info @@ -305,6 +320,12 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & ,vmet=grid%vmet & ,speed=grid%speed & ,dir=grid%dir & + ,psfc=grid%psfc & + ,rain=grid%rain & + ,liqrain=grid%liqrain & + ,tpw=grid%tpw & + ,potential_t=grid%potential_t & + ,rh=grid%rh & ! Various indexes for declarations, loop bounds ,IDS=ids,IDE=ide, JDS=jds,JDE=jde, KDS=kds,KDE=kde & ,IMS=ims,IME=ime, JMS=jms,JME=jme, KMS=kms,KME=kme & @@ -901,7 +922,7 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & U=grid%u_2 & ,V=grid%v_2 & ,W=grid%w_2 & - ,t=grid%t_2 & + ,t=grid%th_phy_m_t0 & ,qv=moist(:,:,:,P_QV) & ,zp=grid%ph_2 & ,zb=grid%phb & @@ -972,7 +993,7 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & U=grid%u_2 & ,V=grid%v_2 & ,W=grid%w_2 & - ,t=grid%t_2 & + ,t=grid%th_phy_m_t0 & ,qv=moist(:,:,:,P_QV) & ,zp=grid%ph_2 & ,zb=grid%phb & @@ -1083,7 +1104,7 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & ,TSK=grid%tsk, TSK_MEAN=grid%tsk_mean & ,PMSL_MEAN=grid%pmsl_mean & ,T2=grid%t2, T2_MEAN=grid%t2_mean & - ,T=grid%t_2, P=grid%p, PB=grid%pb & + ,T=grid%th_phy_m_t0, P=grid%p, PB=grid%pb & ,MOIST=grid%moist(:,:,:,P_QV), HT=grid%ht & ,TH2=grid%th2, TH2_MEAN=grid%th2_mean & ,Q2=grid%q2, Q2_MEAN=grid%q2_mean & @@ -1136,7 +1157,8 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & ,PSFC=grid%psfc, PSFC_DTMP=grid%psfc_dtmp & ,TSK=grid%tsk, TSK_DTMP=grid%tsk_dtmp & ,T2=grid%t2, T2_DTMP=grid%t2_dtmp & - ,T=grid%t_2, P=grid%p, PB=grid%pb, MOIST=grid%moist(:,:,:,P_QV) & + ,T=grid%th_phy_m_t0, P=grid%p, PB=grid%pb & + ,MOIST=grid%moist(:,:,:,P_QV) & ,TH2=grid%th2, TH2_DTMP=grid%th2_dtmp & ,Q2=grid%q2, Q2_DTMP=grid%q2_dtmp & ,U10=grid%u10, U10_DTMP=grid%u10_dtmp & @@ -1179,5 +1201,59 @@ SUBROUTINE diagnostics_driver ( grid, config_flags, & END SUBROUTINE diagnostics_driver + + + SUBROUTINE update_phys_fields ( grid, config_flags, moist, & + ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + ips, ipe, jps, jpe, kps, kpe ) + + USE module_domain, ONLY : domain + USE module_configure, ONLY : grid_config_rec_type + USE module_state_description, ONLY: num_moist, P_Qv + USE module_model_constants, ONLY: g, R_v, R_d, Cp, T0, RCP + + TYPE ( domain ), INTENT(INOUT) :: grid + + ! We are not changing any of the namelist settings. + + TYPE ( grid_config_rec_type ), INTENT(IN) :: config_flags + + ! The 4d arrays are input only, no mods to them. + + REAL , DIMENSION(ims:ime,kms:kme,jms:jme,num_moist ) , INTENT(IN) :: moist + + ! Domain indices - no change to these puppies. + + INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + ips, ipe, jps, jpe, kps, kpe + + ! Local variables + + INTEGER :: i, j, k + + ! Moist or dry theta + + IF ( config_flags%use_theta_m .EQ. 1 ) THEN + DO j = jps, MIN(jde-1, jpe) + DO k = kps, kde-1 + DO i = ips, MIN(ide-1, ipe) + grid%th_phy_m_t0(i,k,j) = (grid%t_2(i,k,j)+T0) / & + (1.+(R_v/R_d)*moist(i,k,j,P_Qv)) - T0 + END DO + END DO + END DO + ELSE + DO j = jps, MIN(jde-1, jpe) + DO k = kps, kde-1 + DO i = ips, MIN(ide-1, ipe) + grid%th_phy_m_t0(i,k,j) = grid%t_2(i,k,j) + END DO + END DO + END DO + END IF + END SUBROUTINE update_phys_fields + END MODULE module_diagnostics_driver #endif diff --git a/phys/module_gocart_coupling.F b/phys/module_gocart_coupling.F new file mode 100644 index 0000000000..9fc52c13ea --- /dev/null +++ b/phys/module_gocart_coupling.F @@ -0,0 +1,10000 @@ +!#include +#ifdef WRF_CHEM +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + module module_gocart_coupling + use netcdf + + implicit none + +!--------------------------------------------------------------------- +! = Goddard Satellite Data Simulator Unit = +! +! +! NASA GSFC makes no representations about the suitability of software for any purpose. +! It is provided as is without express or implied warranty. Neither NASA GSFC (the US +! government) nor Principal Developers (their organizations) shall be liable for any +! damages suffered by the user of this software. In addition, please do not distribute +! the software to third party. +! +! +! Comments; This module is an interface that bridge GOCART & GCE or WRF to account for +! aerosol direct and indirect effect. +! +! 0. Change directory parameter gocart_dir = 'your directory' +! +! a) Aerosol Direct Effect (this must call every radiation time step) +! +! aero_opt ( convert aerosol mass into aerosol single-scattering properties. ) +! +! +! b) Aerosol Indirect Effect (initialize. Call just only once at the beggining.) +! +! * makelut_ccn_icn (Create CCN and IN candidate look-up table.) +! |-ccn_estimate( estimate total number concentrations of CCN, IN ) +! |-convert_mass2number( Convert aerosol mass mixing ratio to number mixing ratio ) +! |-opac_log_normal_pdf( compute probability density per width ) +! +! +! Aerosol Indirect Effect (call every microphysics time step) +! +! * mass2ccn ( convert aerosol mass into the concentrations of cloud condensation nuclei ) +! |-interp(Interpolate CCN LUT for a given temperature and super saturation rate ) +! +! * mass2icn ( convert aerosol mass into the concentrations of ice nuclei ) +! +! +! History; +! 11/2017 Toshi Matsui@NASA GSFC : Removed GOCART read routines. +! 11/2010 Toshi Matsui@NASA GSFC : Developed IN routine. +! 10/2010 Toshi Matsui@NASA GSFC : Developed CCN routine. +! 10/2008 Toshi Matsui@NASA GSFC ; Now it reads binary direct acess data with subset domain allocation +! 08/2008 Toshi Matsui@NASA GSFC ; Modified for 3hourly instantenous GOCART data +! 06/2007 Toshi Matsui@NASA GSFC : add LW aerosol optical proproperties +! 02/2007 Toshi Matsui@NASA GSFC ; initial, significant revision from code from H.Yu and M. Chin +!---------------------------------------------------------------------- + +! +! Encapsulation control +! + private ! encapsulate module parameters and subourtines. + +! +! public (accessible) subroutine +! + public :: & + aero_opt, & ! compute spectrum aerosol optical depths + mass2ccn, & ! convert GOCART aerosol mass into CCN #. + mass2icn, & ! convert GOCART aerosol mass into IN #. + makelut_ccn_icn ! make CCN look-up tables +! ############################################################################## + + logical,parameter :: gocart_verbose = .true. !if true, it provides alot of run-time comments. + +! ############################################################################## + + integer i,j,k,n,t,h !local looping variables + logical,save :: master !if true, this is master thread. + +! +! Mie table parameters +! + integer :: nrs !# of RH or sizes + integer :: nh !RH loop index + integer :: nsize !# of size for dust aerosols + 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). + + real,save :: Bex(tgmx,nwl,0:nrmx) ! SW Mass extinction coefficient [m2/g] + real,save :: w0(tgmx,nwl,0:nrmx) ! SW single scattering albedo [-] + real,save :: g(tgmx,nwl,0:nrmx) ! SW asymetry factor [-] + + real,save :: Bex_temp(tgmx,nwl,0:nrmx) ! temporary SW Mass extinction coefficient [m2/g] + real,save :: w0_temp(tgmx,nwl,0:nrmx) ! temporary SW single scattering albedo [-] + real,save :: g_temp(tgmx,nwl,0:nrmx) ! temporary SW asymetry factor [-] + + real,save :: Bex_lw(tgmx,nwl_lw,0:nrmx) ! LW Mass extinction coefficient [m2/g] + real,save :: w0_lw(tgmx,nwl_lw,0:nrmx) ! LW single scattering albedo [-] + real,save :: g_lw(tgmx,nwl_lw,0:nrmx) ! LW asymetry factor [-] + + real,save :: Bex_lw_temp(tgmx,nwl_lw,0:nrmx) ! temporary LW Mass extinction coefficient [m2/g] + real,save :: w0_lw_temp(tgmx,nwl_lw,0:nrmx) ! temporary LW single scattering albedo [-] + real,save :: g_lw_temp(tgmx,nwl_lw,0:nrmx) ! temporary LW asymetry factor [-] + + character :: aa*39 ! dummy character + character :: at*4 ! aerosol types + character*4,dimension(6),parameter :: mie_tbl = & + (/'suso', 'waso', 'soot', 'ssam', 'sscm', 'dust'/) + +! +! OPAC aerosol microphysics parameters +! + type particle_opac !OPAC paticle type + real :: inso,waso, soot, ssam, sscm, minm, miam, micm, mitr, suso + end type particle_opac + + type ( particle_opac) :: & ! + std ,& ! standard deviation [] + r_mode ,& ! mode radius [micron] + r_min ,& ! minmum radius [micron] + r_max ,& ! maximum radius [micron] + rho ! density [g/cm3] + + + real,parameter :: pi_const = 3.1415926535e0 + +!CCN IN LUT parameter + + integer, parameter :: mxpts_s = 46 ! LUT dimension for super saturation + real, parameter :: pts_s(mxpts_s) = & ! LUT super saturation vector [%] + (/ 1e-4, 2e-4, 3e-4, 4e-4, 5e-4, 6e-4, 7e-4, 8e-4, 9e-4,& + 1e-3, 2e-3, 3e-3, 4e-3, 5e-3, 6e-3, 7e-3, 8e-3, 9e-3,& + 1e-2, 2e-2, 3e-2, 4e-2, 5e-2, 6e-2, 7e-2, 8e-2, 9e-2,& + 1e-1, 2e-1, 3e-1, 4e-1, 5e-1, 6e-1, 7e-1, 8e-1, 9e-1,& + 1e-0, 2e-0, 3e-0, 4e-0, 5e-0, 6e-0, 7e-0, 8e-0, 9e-0,& + 1e+1 /) + + integer, parameter :: mxpts_t = 12 ! LUT dimension for temperature + real, parameter :: pts_t(mxpts_t) = & ! LUT temperature vector [K] for frozen hydrometeors + (/ 140., 160., 180., 200., 220., 240., 260., 280., & + 300., 320., 340., 360./) + + + real :: lut_ccn(1:mxpts_t,1:mxpts_s,1:tgmx) ! LUT for CCN # per unit mass mixing ratio + real :: lut_in_025(1:tgmx) ! LUT for aerosol # per unit mass mixing ratio [#/cm3 per 1g/m3] + + +! +! gocart variables +! + character(len=10) :: varname !gocart aerosol type + character(len=100) :: fname_in !gocart directly & input name + + real,parameter,public :: dust_frac(4)=(/ 0.01053,0.08421,0.25263,0.65263 /) !fraction for fine dust + + character*(*),parameter :: dir_direct = '/Users/matsui/Work/RADIATION/SDSU/GOCART/DIRECT/' !direct GOCART input + + +! +! Aerosol Optiocal Properties +! ai-> aerosol type index +! 1 = SO4 !sulfur and its precure +! 2 = BC1+BC2 !black carbon (soot) +! 3 = OC1 !non hygroscopic OC +! 4 = OC2 !hygroscopic OC +! 5 = SS1 !sea-salt accumulation mode +! 6 = SS2+SS3+SS4 !sea-salt coarse mode +! 7 = DU1 ! dust mode 1 +! 8 = DU1 ! dust mode 2 +! 9 = DU1 ! dust mode 3 +! 10 = DU1 ! dust mode 4 +! 11 = DU2 ! dust mode 5 +! 12 = DU3 ! dust mode 6 +! 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_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/ + + contains + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine init_opac + implicit none +!------------------------------------------------------------------------ +! Comments: Initialize OPAC aerosol microphysics parameters. +! +! History; +! 10/2010 Toshi Matsui ; Initial. +! +! Reference +! M. Hess, P. Koepke, and I. Schult (1998): Optical Properties of Aerosols and clouds: +! The software package OPAC, Bull. Am. Met. Soc., 79, 831-844. +!------------------------------------------------------------------------ + +! +! Microphysical properties of aerosol components in dry state. Parameters are linked to +! OPAC log-normal PSD function. +! + std%inso = 2.51e0 ; r_mode%inso = 0.471e0 ; r_min%inso = 0.005e0 ; r_max%inso = 20.0e0 ; rho%inso = 2.0e0 + std%waso = 2.24e0 ; r_mode%waso = 0.0212e0; r_min%waso = 0.005e0 ; r_max%waso = 20.0e0 ; rho%waso = 1.8e0 + std%soot = 2.00e0 ; r_mode%soot = 0.0118e0; r_min%soot = 0.005e0 ; r_max%soot = 20.0e0 ; rho%soot = 1.0e0 + std%ssam = 2.03e0 ; r_mode%ssam = 0.209e0 ; r_min%ssam = 0.005e0 ; r_max%ssam = 20.0e0 ; rho%ssam = 2.2e0 + std%sscm = 2.03e0 ; r_mode%sscm = 1.750e0 ; r_min%sscm = 0.005e0 ; r_max%sscm = 60.0e0 ; rho%sscm = 2.2e0 + std%minm = 1.95e0 ; r_mode%minm = 0.070e0 ; r_min%minm = 0.005e0 ; r_max%minm = 20.0e0 ; rho%minm = 2.6e0 + std%miam = 2.00e0 ; r_mode%miam = 0.390e0 ; r_min%miam = 0.005e0 ; r_max%miam = 20.0e0 ; rho%miam = 2.6e0 + std%micm = 2.15e0 ; r_mode%micm = 1.900e0 ; r_min%micm = 0.005e0 ; r_max%micm = 60.0e0 ; rho%micm = 2.6e0 + std%mitr = 2.20e0 ; r_mode%mitr = 0.500e0 ; r_min%mitr = 0.020e0 ; r_max%mitr = 5.0e0 ; rho%mitr = 2.6e0 + std%suso = 2.03e0 ; r_mode%suso = 0.0695e0; r_min%suso = 0.005e0 ; r_max%suso = 20.0e0 ; rho%suso = 1.7e0 + + end subroutine init_opac + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine mass2ccn(t_air,s,aero,ccn_out) + implicit none +!------------------------------------------------------------------------ +! Comments: Convert GOCART aerosol mass concentrations into CCN number conc +! as a function of temperature and super saturation rate following Kohler equation. +! +! - LUT approach - +! LUT approach is much faster than actual resolution of Kohler routine. +! Accuracy of LUT approach is generally within 3% (and mean accuracy is 0.41% in C3VP exp). +! Accuracy is defined as +! Accuracy[%] = abs(CCN_lut-CCN_nonlut)/CCN_non_lut * 100 +! +! 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 +! 4 = OC2 ! hygroscopic OC +! 5 = SS1 ! sea-salt accumulation mode +! 6 = SS2+SS3+SS4 !sea-salt coarse mode +! 7 = DU1 ! dust mode 1 +! 8 = DU1 ! dust mode 2 +! 9 = DU1 ! dust mode 3 +! 10 = DU1 ! dust mode 4 +! 11 = DU2 ! dust mode 5 +! 12 = DU3 ! dust mode 6 +! 13 = DU4 ! dust mode 7 +! 14 = DU5 ! dust mode 8 +! +! History; +! 02/2007 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + real,intent(in) :: t_air !air temperature [K] + real,intent(in) :: s !super saturation rate [%] + real,intent(in) :: aero(tgmx) !aerosol mass conc [g/m3] + real,intent(out) :: ccn_out ! CCN concentration [#/cm3] + + integer :: im !looping + real :: ccn !accmulating CCN conc [#/cm3] + real :: lut_ccn_interp(tgmx) ! interpolated LUT value + + + ccn_out = 0.e0 + +! +! If no super saturation.... +! + if( s <= 0.e0 ) then + ccn_out = 0.e0 !total number conc of CCN [#/cm3] + return + endif + + + ccn = 0.e0 !initialize + +! +! interpolate LUT for a given air temperature and super saturation +! + call interp( t_air, s, lut_ccn_interp ) + +! +! convert aerosol mass mixing ratio into CCN conc +! + do im = 1, tgmx + + ccn = ccn + aero(im)*lut_ccn_interp(im) ! CCN conc [#/cm3] + + enddo + +! +! CCN conc ranges from 100 ~ 10000 per cubic centimeter +! + ccn_out = min(10000.e0, max(100.e0, ccn) ) !total number conc of CCN [#/cm3] + + end subroutine mass2ccn + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine interp(t_air,s_rate,lut_ccn_interp) + implicit none + +!------------------------------------------------------------------------ +! Comments: Interpolate CCN LUT for a given temperature and super saturation +! rate. +! +! History; +! 02/2007 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + + real,intent(in) :: t_air !air temperature [K] + real,intent(in) :: s_rate !super saturation rate [%] + + real,intent(out) :: lut_ccn_interp(1:tgmx) !interpolated CCN LUT for a given temperature and super sat rate. + + real :: t, s !temperature and super saturation rate + integer :: it, is !looping indice + real :: wgt1_t, wgt2_t ! weight for interpolation + real :: wgt1_s, wgt2_s ! weight for interpolation! + + + t = t_air !temperature [K] + if( t_air < pts_t(1) ) t = pts_t(1) + if( t_air > pts_t(mxpts_t) ) t = pts_t(mxpts_t) + + s = s_rate !super saturation rate [%] + if( s_rate < pts_s(1) ) s = pts_s(1) + if( s_rate > pts_s(mxpts_s)) s = pts_s(mxpts_s) + + + it_loop: do it = 1, mxpts_t-1 + if( t >= pts_t(it) .and. t <= pts_t(it+1) ) then + wgt1_t = (pts_t(it+1) - t) / ( pts_t(it+1) - pts_t(it) ) + wgt2_t = 1.e0-wgt1_t + + do is = 1, mxpts_s-1 + if( s >= pts_s(is) .and. s <= pts_s(is+1) ) then + wgt1_s = (pts_s(is+1) - s) / ( pts_s(is+1) - pts_s(is) ) + wgt2_s = 1.e0-wgt1_s + + ! + ! interpolation of 4 point + ! + lut_ccn_interp(1:tgmx) = & + ( lut_ccn(it,is ,1:tgmx)*wgt1_t + lut_ccn(it+1,is ,1:tgmx)*wgt2_t ) * wgt1_s & + + ( lut_ccn(it,is+1,1:tgmx)*wgt1_t + lut_ccn(it+1,is+1,1:tgmx)*wgt2_t ) * wgt2_s + + exit it_loop + + endif + enddo + + endif + enddo it_loop + + end subroutine interp + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine mass2icn(p_air,t_air,aero,icn_out,ii,jj,kk) + use, intrinsic :: ieee_arithmetic + implicit none +!------------------------------------------------------------------------ +! Comments: Convert GOCART aerosol mass concentrations into IN number conc +! as a function of aimbient temperature following DeMott's empirical +! formulae [DeMott et al. 2010]. +! +! 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 +! 4 = OC2 ! hygroscopic OC +! 5 = SS1 ! sea-salt accumulation mode +! 6 = SS2+SS3+SS4 !sea-salt coarse mode +! 7 = DU1 ! dust mode 1 +! 8 = DU1 ! dust mode 2 +! 9 = DU1 ! dust mode 3 +! 10 = DU1 ! dust mode 4 +! 11 = DU2 ! dust mode 5 +! 12 = DU3 ! dust mode 6 +! 13 = DU4 ! dust mode 7 +! 14 = DU5 ! dust mode 8 +! +! History; +! 02/2007 Toshi Matsui@NASA GSFC ; Initial. +! +! Citations +! DeMott, P. J., Coauthors 2010: Predicting global atmospheric ice nuclei distributions and +! their impacts on climate. Proc. Natl. Acad. Sci. USA, 107:11217–11222. +! +!------------------------------------------------------------------------ + real,intent(in) :: p_air !air pressure [hPa] + real,intent(in) :: t_air !air temperature [K] + real,intent(in) :: aero(tgmx) !aerosol mass conc [g/m3] + real,intent(out) :: icn_out ! IN concentration [#/L] + + integer :: is !loop + integer, intent(in) :: ii, jj, kk + real :: n_025_tot ! total number conc of aerosol radius > 0.25 micron [#/cm3] + real :: n_025_std ! aerosol (r>0.25micron) conc in starndard atmosphere [#/scm3] + real :: icn_std ! ice nuclei conc in starndard atmosphere [#/scm3] + real :: t_fact !temperature factor + real :: icn_estimate ! estimated IN concentration [#/L] + integer :: result +! coefficient of empirical formulae in DeMott 2010 + real,parameter :: a = 0.0000594e0 + real,parameter :: b = 3.33e0 + real,parameter :: c = 0.0264e0 + real,parameter :: d = 0.0033 + + real,parameter :: p_std = 1013.e0 !standard pressure [hPa] + real,parameter :: t_std = 273.16e0 !standard temperature [K] + + icn_out = 0.e0 + + if( maxval( lut_in_025 ) == 0.e0 ) stop 'MSG mass2icn: you have not initialize lut_in_025 yet. Stop program' + +! +! Essentially integrate non-hygroscopic aerosols +! + n_025_tot = 0.e0 + + do is = 1, tgmx + n_025_tot = n_025_tot + lut_in_025(is)*aero(is) ! accumulating aerosol conc [#/cm3] + enddo + +! +! now convert everything into standard cm-3 (T=273k, P=1013mb). +! + n_025_std = n_025_tot * p_std*t_air/(p_air*t_std) ! [scm-3] + +! +! empirical formulae in DeMott 2010 based on starndard atmosphere. +! + t_fact = max(0.e0, 273.16e0 - t_air ) ! air temprature in deg celcius [degC] + + icn_std = a * (t_fact**b) * (n_025_std**( c*t_fact + d )) ! total number conc of IN [#/std L] + +! +! convert standard atmos value back to the actual model atmos condition. +! + icn_estimate = icn_std * (p_air*t_std) / (p_std*t_air) ! [#/std L] --> [#/L] + + if( ieee_is_nan( icn_estimate ) ) then + print*, 'NAN in mass2icn, i,j,k, icn_estimate = ', ii, jj, kk, icn_estimate + print*, 'icn_std, t_std, p_std, p_air, t_air =', icn_std, t_std, p_std, p_air, t_air + print*, 'aero = ', aero + endif + if( .NOT. ieee_is_finite( icn_estimate ) ) then + print*, 'INF in mass2icn, i,j,k, icn_estimate = ', ii, jj, kk, icn_estimate + print*, 'icn_std, t_std, p_std, p_air, t_air =', icn_std, t_std, p_std, p_air, t_air + print*, 'aero = ', aero + endif + +! +! IN conc ranges from 100 ~ 1000000 per litter based on DeMott et al. 2010 PNAS. +! +! icn_out = min(1.e6, max(1.e2 , icn_estimate) ) ! [#/L] + icn_out = min(1.e3, max(0.01e0 , icn_estimate) ) ! [#/L] + + end subroutine mass2icn + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine makelut_ccn_icn + implicit none +!------------------------------------------------------------------------ +! Comments: Create CCN and IN candidate look-up table as a function of super saturation rate +! and ambient temperature. +! +! History; +! 10/2010 Toshi Matsui ; Initial. +! +! Reference +!------------------------------------------------------------------------ + real,parameter :: q_in= 1.e0 !mass mixing ratio [g/m3] + real :: n_ccn ! CCN concentration [#/cm3] + real :: frac_ccn ! mass fraction of CCN for CN [-] + real :: n_gccn ! GCCN concentration [#/cm3] + real :: frac_gccn ! mass fraction of GCCN for CN [-] + real :: n_025 ! IN candidate concentration [#/cm3] + real :: frac_025 ! mass fraction of IN candidate for CN [-] + + real :: t_air ! air temprature [K] + real :: vant_fac ! van't Hoff factor [-] + real :: mol_wgt ! molecular weight of the chemical compnent of CN + real :: s ! super saturation rate + integer :: is, it ! for looping + + print *,' inside makelut_ccn_icn ' + + if(master) print*,'MSG: makelut_ccn_icn: making LUT of CCN and IN' + + call init_opac + +! +! hygroscopic species for Cloud Condensation Nuclei (CCN) +! + lut_in_025 = 0.e0 !initialize zero [#/cm3] + + lut_ccn = 0.e0 ! initialize + + TEMP_LOOP: do it = 1, mxpts_t + t_air = pts_t(it) ! temprature [K] + + SAT_LOOP : do is = 1, mxpts_s + s = pts_s(is) ! super saturation rate [%] + + ! Sulfate + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%suso, r_mode%suso, r_min%suso, & +! r_max%suso, rho%suso , lut_ccn(it,is,1), frac_ccn, n_gccn, frac_gccn,n_025,frac_025) + r_max%suso, rho%suso , lut_ccn(it,is,1), frac_ccn, n_gccn, frac_gccn,lut_in_025(1),frac_025) + + ! hydrophilic organic carbon (chemistry is treated as sulfate) + ! water soluble + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%waso, r_mode%waso, r_min%waso, & +! r_max%waso, rho%waso , lut_ccn(it,is,4) , frac_ccn, n_gccn, frac_gccn,n_025,frac_025) + r_max%waso, rho%waso , lut_ccn(it,is,4) , frac_ccn, n_gccn, frac_gccn,lut_in_025(4),frac_025) + ! Seasalt accumulation mode + vant_fac = 2.e0 ; mol_wgt = 58.44e0 ! NaCL + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%ssam, r_mode%ssam, r_min%ssam, & +! r_max%ssam, rho%ssam , lut_ccn(it,is,5), frac_ccn, n_gccn, frac_gccn,n_025,frac_025) + r_max%ssam, rho%ssam , lut_ccn(it,is,5), frac_ccn, n_gccn, frac_gccn,lut_in_025(5),frac_025) + + ! Seasalt coarse mode + vant_fac = 2.e0 ; mol_wgt = 58.44e0 ! NaCL + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%sscm, r_mode%sscm, r_min%sscm, & +! r_max%sscm, rho%sscm , lut_ccn(it,is,6), frac_ccn, n_gccn, frac_gccn,n_025,frac_025) + r_max%sscm, rho%sscm , lut_ccn(it,is,6), frac_ccn, n_gccn, frac_gccn,lut_in_025(6),frac_025) + + + enddo SAT_LOOP + + enddo TEMP_LOOP + +! +! Non-hygroscopic species for IN +! +! lut_in_025 = 0.e0 !initialize zero [#/cm3] + + ! soot + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%soot, r_mode%soot, r_min%soot, & + r_max%soot, rho%soot , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(2),frac_025) + + ! insoluble organic carbon + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%inso, r_mode%inso, r_min%inso, & + r_max%inso, rho%inso , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(3),frac_025) + + ! dust mode 1 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%minm, 0.0421, r_min%minm, & + r_max%minm, rho%minm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(7),frac_025) + + ! dust mode 2 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%minm, 0.0722, r_min%minm, & + r_max%minm, rho%minm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(8),frac_025) + + ! dust mode 3 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%minm, 0.1354, r_min%minm, & + r_max%minm, rho%minm , n_ccn, frac_ccn, n_gccn, frac_gccn, lut_in_025(9),frac_025) + + ! dust mode 4 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%miam, 0.2407, r_min%miam, & + r_max%miam, rho%miam , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(10),frac_025) + + ! dust mode 5 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%miam, 0.4212, r_min%miam, & + r_max%miam, rho%miam , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(11),frac_025) + + ! dust mode 6 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%miam, 0.7220, r_min%miam, & + r_max%miam, rho%miam , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(12),frac_025) + + ! dust mode 7 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%micm, 1.354, r_min%micm, & + r_max%micm, rho%micm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(13),frac_025) + + ! dust mode 8 + vant_fac = 3.e0 ; mol_wgt = 132.13e0 ! (NH4)2SO4 --> fake + call ccn_estimate( q_in, s, t_air, vant_fac, mol_wgt, std%micm, 2.407, r_min%micm, & + r_max%micm, rho%micm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(14),frac_025) + + print *,' done makelut_ccn_icn ' + + end subroutine makelut_ccn_icn + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine ccn_estimate( q , s, t_air, vant_fac, mol_wgt, std, r_mode, & + r_min, r_max, rho , n_ccn_out, frac_ccn , n_gccn_out, frac_gccn, & + n_025_out, frac_025) + implicit none +!------------------------------------------------------------------------ +! Comments: For given chemical composition, aerosol total mass, size distributions, +! this routine estimate total number concentrations of 1) CCN, 2) Giant CCN, and +! 3) IN-candidate aerosol (D>0.5micron), and correponding mass fractions. +! +! Caution for GCCN user. If you want to use GCCN and CCN simultaneously (e.g., RAMS microphysics) +! CCN conc must be corrected in this way. +! CCN (fine mode) = n_ccn_out - n_gccn_out +! +! History; +! 10/2010 Toshi Matsui ; Initial. +! +! Reference +! Stull, R. (2000), Meteorology for Scientists and Engineer, 502 pp., +! Brooks/ Cole Thomson Learning, Pacific Grove, Calif. +!------------------------------------------------------------------------ + real,intent(in) :: q ! aerosol mass mixing ratio [g/m3] + real,intent(in) :: s ! super saturation rate [%] + real,intent(in) :: t_air ! air temprature [K] + real,intent(in) :: vant_fac! van't Hoff factor [-] + real,intent(in) :: mol_wgt ! molecular weight of the chemical compnent of CN + real,intent(in) :: std ! standard deviation [] + real,intent(in) :: r_mode ! mode radius [micron] + real,intent(in) :: r_min ! minmum radius [micron] + real,intent(in) :: r_max ! maximum radius [micron] + real,intent(in) :: rho ! density [g/cm3] + + real,intent(out) :: n_ccn_out ! CCN concentration [#/cm3] + real,intent(out) :: frac_ccn ! mass fraction of CCN for CN [-] + real,intent(out) :: n_gccn_out! GCCN concentration [#/cm3] + real,intent(out) :: frac_gccn ! mass fraction of GCCN for CN [-] + real,intent(out) :: n_025_out ! IN candidate concentration [#/cm3] + real,intent(out) :: frac_025 ! mass fraction of IN candidate for CN [-] + + integer :: bin_max = 1000 !maximum of size bin + integer :: i ! loop index + real :: log_dr ! log-scale size bin width + real :: dr ! bin width [micron] + real :: r ! radius [micron] + real :: cum_pd ! cumulative pd + real :: pd ! probability density + real :: r15,r25 ! log-interplolated size bin boundary + real :: n_bin ! number conc per size bin [#/m3] + real :: n_ccn ! CCN conc [#/m3] + real :: n_gccn ! GCCN conc [#/m3] + real :: n_025 ! IN candidate conc [#/m3] + real :: q_bin ! mass per size bin [g/m3] + real :: q_ccn ! CCN mass [g/m3] + real :: q_gccn ! GCCN mass [g/m3] + real :: q_025 ! IN candidate mass [g/m3] + real :: r_cm ! particle radius in cm + real :: s_crit ! critical super saturation [%] + real,parameter :: r_gccn = 2.e0 ! giant CCN radius threshold [micron] + real,parameter :: r_in = 0.25e0 ! IN candidate radius threshold [micron] following [DeMott et al. 2010] + real :: q_unit + real :: n_tot + +! +! Convert aerosol mass mixing ratio to number mixing ratio. +! This is because log-normal PSD is designed for Ntot. +! + call convert_mass2number( q , std, r_mode, r_min, r_max, rho , n_tot ) + +! Initilize + cum_pd = 0.e0 + n_ccn = 0.e0 ; q_ccn = 0.e0 + n_gccn = 0.e0 ; q_gccn = 0.e0 + n_025 = 0.e0 ; q_025 = 0.e0 + +! +! set up bin size +! + log_dr = log10(r_max/r_min) / real(bin_max) ! logaritm of bin size + + r = r_min !initial particle radius [micron] + +! +! PSD integration +! + do while ( r < r_max ) + + r = r * ( 10.e0 ** log_dr ) ! particle dry radius [ micron ] + + r15 = r / (10.e0**(0.5e0*log_dr) ) + r25 = r * (10.e0**(0.5e0*log_dr) ) + dr = r25-r15 ! bin width [micron] + + call opac_log_normal_pdf(r,std,r_mode,pd) ! compute probability density per width + + n_bin = n_tot * pd * dr ! number per size bin [#/m3] + r_cm = r * 1.e-4 ! radius [cm] + q_unit = ( 4.e0/3.e0 * pi_const * r_cm*r_cm*r_cm * rho ) !mass per patcile [g] + q_bin = n_bin * q_unit ! mass per size bin [g/m3] + + ! + ! Estimate critical super saturation rate + ! + s_crit = sqrt( 1.278e-15 * mol_wgt / (vant_fac * q_unit * t_air*t_air*t_air ) ) * 100.e0 !Stull eq(8.5) + + + if(s > s_crit) then + n_ccn = n_ccn + n_bin ! total number conc of CCN [#/m3] + q_ccn = q_ccn + q_bin ! total q of CCN [g/m3] + endif + + if(s > s_crit .and. r > r_gccn) then + n_gccn = n_gccn + n_bin ! total number conc of GCCN [#/m3] + q_gccn = q_gccn + q_bin ! total q of GCCN [g/m3] + endif + + if(r > r_in) then + n_025 = n_025 + n_bin ! total number conc of IN candidate [#/m3] + q_025 = q_025 + q_bin ! total q of IN candidate [g/m3] + endif + + + cum_pd = cum_pd + pd * dr ! cumulative probability density for sanity check [-] + + enddo + + +! +! CCN output +! + n_ccn_out = n_ccn * 1.e-6 ! Cloud Condensation Nuclei concentrations [#/cm3] + frac_ccn = q_ccn / q ! mass fraction of CCN for CN [-] + +! +! GCCN output +! + n_gccn_out = n_gccn * 1.e-6 ! Giant Cloud Condensation Nuclei concentrations [#/cm3] + frac_gccn = q_gccn / q ! mass fraction of GCCN for CN [-] + +! +! IN candidate output +! + n_025_out = n_025 * 1.e-6 ! Aerosol (equivalent to Naer,0.5) concentrations [#/cm3] + frac_025 = q_025 / q ! mass fraction of GCCN for CN [-] + + end subroutine ccn_estimate + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine convert_mass2number( q_in, std, r_mode, r_min, r_max, rho , n_tot ) + implicit none + +!------------------------------------------------------------------------ +! Comments: convert aerosol mass mixing ratio to total number concentration +! following OPAC's log-normal size distribution. +! +! History; +! 10/2010 Toshi Matsui ; Initial. +! +! Reference +!------------------------------------------------------------------------ + real,intent(out) :: n_tot ! aerosol total number mixing ratio [#/m3] + real,intent(in) :: q_in ! aerosol mass mixing ratio [g/m3] + real,intent(in) :: std ! standard deviation [] + real,intent(in) :: r_mode ! mode radius [micron] + real,intent(in) :: r_min ! minmum radius [micron] + real,intent(in) :: r_max ! maximum radius [micron] + real,intent(in) :: rho ! density [g/cm3] + + integer :: bin_max = 1000 + integer :: i ! loop index + real :: log_dr ! log-scale size bin width + real :: dr ! bin width [micron] + real :: r ! radius [micron] + real :: cum_pd ! cumulative pd + real :: pd ! probability density + real :: r15,r25 ! log-interplolated size bin boundary + real :: n_bin ! number conc per size bin [#/m3] + real :: q_bin ! mass per size bin [g/m3] + real :: r_cm ! particle radius in cm + real :: q_unit !mass per unit particle [g] + real :: q_integrate + + real :: n_samp = 1.e5 ! [#/m3] + + cum_pd = 0.e0 + q_integrate = 0.e0 + + log_dr = log10(r_max/r_min) / real(bin_max) ! logaritm of bin size + + r = r_min !initial particle radius [micron] + + do while ( r < r_max ) + + r = r * ( 10.e0 ** log_dr ) ! particle dry radius [ micron ] + + r15 = r / (10.e0**(0.5e0*log_dr) ) + r25 = r * (10.e0**(0.5e0*log_dr) ) + dr = r25-r15 ! bin width [micron] + + call opac_log_normal_pdf(r,std,r_mode,pd) ! compute probability density per width + + n_bin = n_samp * pd * dr ! number conc per size bin [#/m3] + + r_cm = r * 1.e-4 ! radius [cm] + + q_unit = ( 4.e0/3.e0 * pi_const * r_cm*r_cm*r_cm * rho ) !mass per patcile [g] + + q_bin = n_bin * q_unit ! number conc per size bin [g/m3] + + cum_pd = cum_pd + pd * dr ! cumulative probability density for sanity check [-] + + q_integrate = q_integrate + q_bin ![g/m3] + + enddo + + n_tot = q_in * (n_samp / q_integrate) !total number concentration [#/m3] + + end subroutine convert_mass2number + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine opac_log_normal_pdf( r, std, r_mode, pd ) + implicit none +!------------------------------------------------------------------------ +! Comments: Function of unique OPAC-defined log-normal size distribution. +! +! History; +! 10/2010 Toshi Matsui ; Initial. +! +! Reference +! M. Hess, P. Koepke, and I. Schult (1998): Optical Properties of Aerosols and clouds: +! The software package OPAC, Bull. Am. Met. Soc., 79, 831-844. +!------------------------------------------------------------------------ + real,intent(in) :: r ! particle radius [micron] + real,intent(in) :: std ! standard deviation [] + real,intent(in) :: r_mode ! mode radius [micron] + real,intent(out) :: pd ! probability density + real :: a, b + + a = 1.e0 / ( sqrt(2.e0*pi_const) * r * log10(std) * log(10.e0) ) + + b = ( log10(r/r_mode) / log10(std) )**2 + + pd = a * exp( - 0.5e0 * b ) + + end subroutine opac_log_normal_pdf + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine read_mie_sw + implicit none + +!------------------------------------------------------------------------ +! Read aerosol mie table & assinge optical properties. +! Assinged values are saved for global variables at the top of module_gocart_offline. +! +! History; +! 02/2007 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + +!--------------local variables----------------------------- + integer,parameter :: nmt = 6 !# of mie tables + integer,parameter :: nrh = 36 !# of column (RH) for mie table + real :: mBex(nmt,nwl,nrh) ! Mass extinction coefficient [m2/g] + real :: nBex(tgmx,nwl,nrh) ! reasigned Mass extinction coefficient [m2/g] + real :: mw0(nmt,nwl,nrh) ! single scattering albedo [-] + real :: nw0(tgmx,nwl,nrh) ! reasigned single scattering albedo [-] + real :: mg(nmt,nwl,nrh) ! asymetry factor [-] + real :: ng(tgmx,nwl,nrh) ! reasigned asymetry factor [-] + real :: mRHr(nmt,nrh) ! relative humidity [-] + real :: nRHr(tgmx,nrh) ! reasigned relative humidity [-] + real :: w1, w2 !weight for pressure interpolation + real :: wl(nwl) ! wavelengh interval for SW radiation [um] + +! +! Mie table loop +! 1- "suso" :sulfate and its precursors +! 2- "waso" : water soluble organic carbon +! 3- "soot" : black carbon +! 4- "ssam" : sea salt (accumulation,fine mode) +! 5- "sscm" : sea salt (coarse mode) +! 6- "dust" : dust +! + print*,'MSG read_mie_sw; read mie tables' + + do t = 1, nmt !# of mie tables + at=mie_tbl(t) + nrs = nrh + if(at == "dust") nrs = 8 + open(1,file='mie.'//at//'.clirad',status='old') + read(1,*)aa + read(1,'(6x,36f10.2)')(mRHr(t,k),k=1,nrs) + read(1,'(/)') + read(1,'(a39)') aa + do k = 1,nwl + read(1,'(f6.3,36e10.3)')wl(k),(mBex(t,k,n),n=1,nrs) + end do + read(1,'(a39)') aa + do k = 1,nwl + read(1,'(6x,36e10.3)')(mw0(t,k,n),n=1,nrs) + end do + read(1,'(a39)') aa + do k = 1,nwl + read(1,'(6x,36e10.3)')(mg(t,k,n),n=1,nrs) + end do + close(1) + enddo +! +! Reasign the mie table for the following order +! + +! 1 = SO4 !sulfur and its precure + ai = 1 + nRHr(ai,:) = mRHr(1,:) + nBex(ai,:,:) = mBex(1,:,:) + nw0(ai,:,:) = mw0(1,:,:) + ng(ai,:,:) = mg(1,:,:) +! 2 = BC1+BC2 !black carbon (soot) + ai = 2 + nRHr(ai,:) = mRHr(3,:) + nBex(ai,:,:) = mBex(3,:,:) + nw0(ai,:,:) = mw0(3,:,:) + ng(ai,:,:) = mg(3,:,:) +! 3 = OC1 !non hygroscopic OC + ai = 3 + nRHr(ai,:) = mRHr(2,:) + do k = 1,nwl ; do n = 1,nrh + nBex(ai,k,n) = mBex(2,k,1) + nw0(ai,k,n) = mw0(2,k,1) + ng(ai,k,n) = mg(2,k,1) + enddo ; enddo +! 4 = OC2 !hygroscopic OC + ai = 4 + nRHr(ai,:) = mRHr(2,:) + nBex(ai,:,:) = mBex(2,:,:) + nw0(ai,:,:) = mw0(2,:,:) + ng(ai,:,:) = mg(2,:,:) +! 5 = SS1 !sea-salt accumulation mode + ai = 5 + nRHr(ai,:) = mRHr(4,:) + nBex(ai,:,:) = mBex(4,:,:) + nw0(ai,:,:) = mw0(4,:,:) + ng(ai,:,:) = mg(4,:,:) +! 6 = SS2+SS3+SS4 !sea-salt coarse mode + ai = 6 + nRHr(ai,:) = mRHr(5,:) + nBex(ai,:,:) = mBex(5,:,:) + nw0(ai,:,:) = mw0(5,:,:) + ng(ai,:,:) = mg(5,:,:) +! 7 = DU1 ! dust mode 1 +! 8 = DU1 ! dust mode 2 +! 9 = DU1 ! dust mode 3 +! 10 = DU1 ! dust mode 4 +! 11 = DU2 ! dust mode 5 +! 12 = DU3 ! dust mode 6 +! 13 = DU4 ! dust mode 7 +! 14 = DU5 ! dust mode 8 + do ai = 7 , 14 + nRHr(ai,:) = mRHr(1,:) + do k = 1,nwl ; do n = 1,nrh + nBex(ai,k,n) = mBex(6,k,ai-6) + nw0(ai,k,n) = mw0(6,k,ai-6) + ng(ai,k,n) = mg(6,k,ai-6) + enddo ; enddo + enddo +! +! Further interporate the Mie Table for RH every 1% +! This reduce CPU time in searching do loop in aero_opt +! + +!for RH 0 ~ 79% + do ai = 1, tgmx ; do k = 1,nwl ; do nh = 0, 79 + do n = 1, 16 + if(nh == nint(nRHr(ai,n)*100.) ) then + Bex_temp(ai,k,nh) = nBex(ai,k,n) + w0_temp(ai,k,nh) = nw0(ai,k,n) + g_temp(ai,k,nh) = ng(ai,k,n) + exit + elseif( nh > nint(nRHr(ai,n)*100.) .and. & + nh < nint(nRHr(ai,n+1)*100.) ) then + w2 = ( real(nh)/100. - nRHr(ai,n) ) / & + (nRHr(ai,n+1)-nRHr(ai,n) ) + w1 = max(min( 1.-w2,1. ),0.) + Bex_temp(ai,k,nh) = w1*nBex(ai,k,n)+w2*nBex(ai,k,n+1) + w0_temp(ai,k,nh) = w1*nw0(ai,k,n)+w2*nw0(ai,k,n+1) + g_temp(ai,k,nh) = w1*ng(ai,k,n)+w2*ng(ai,k,n+1) + exit + endif + enddo + enddo ; enddo ; enddo + +!for RH 80~99% + do ai = 1, tgmx ; do k = 1,nwl ; do nh = 80, nrmx + Bex_temp(ai,k,nh) = nBex(ai,k,nh-63) + w0_temp(ai,k,nh) = nw0(ai,k,nh-63) + g_temp(ai,k,nh) = ng(ai,k,nh-63) + enddo ; enddo ; enddo + +! Bex(1:tgmx,1:nwl,0:nrmx) = Bex_temp(1:tgmx,1:nwl,0:nrmx) +! w0(1:tgmx,1:nwl,0:nrmx) = w0_temp(1:tgmx,1:nwl,0:nrmx) +! g(1:tgmx,1:nwl,0:nrmx) = g_temp(1:tgmx,1:nwl,0:nrmx) + + end subroutine read_mie_sw + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine write_mie_sw + implicit none +!------------------------------------------------------------------------ +! write out aerosol mie table & assinge optical properties. +! Assinged values are saved for global variables at the top of module_gocart_offline. +! +! History; +! 02/2007 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + + open(1,file='mie_table.f90',status='replace') +! +! Bex +! + do ai = 1, tgmx !aerosol type + write(1,20) ai,ai!,nh,nh + do nh = 0, 99 + if(nh==nrmx) then + write(1,11) ( Bex_temp(ai,k,nh) , k =1,nwl ) + else + write(1,10) ( Bex_temp(ai,k,nh) , k =1,nwl ) + endif + enddo !nh + enddo !ai + +! +! single scattering albedo +! + do ai = 1, tgmx !aerosol type + write(1,21) ai,ai!,nh,nh + do nh = 0, 99 + if(nh==nrmx) then + write(1,11) ( w0_temp(ai,k,nh) , k =1,nwl ) + else + write(1,10) ( w0_temp(ai,k,nh) , k =1,nwl ) + endif + enddo !nh + enddo !ai + +! +! asymetry factor +! + do ai = 1, tgmx !aerosol type + write(1,22) ai,ai!,nh,nh + + do nh = 0, 99 + if(nh==nrmx) then + write(1,11) ( g_temp(ai,k,nh) , k =1,nwl ) + else + write(1,10) ( g_temp(ai,k,nh) , k =1,nwl ) + endif + enddo !nh + enddo !ai + + + 20 format(1x,"data (((Bex(ai,k,nh),ai=",i2,",",i2,"),k=1,11),nh=0,99)/ &") + 21 format(1x,"data (((w0(ai,k,nh),ai=",i2,",",i2,"),k=1,11),nh=0,99)/ &") + 22 format(1x,"data (((g(ai,k,nh),ai=",i2,",",i2,"),k=1,11),nh=0,99)/ &") + + 10 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4, & + ",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",&") + 11 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4, & + ",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,"/") + + close(1) + + end subroutine write_mie_sw + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine read_mie_lw + implicit none + +!------------------------------------------------------------------------ +! Read aerosol mie table (LW) & assinge optical properties. +! Assinged values are saved for global variables at the top of module_gocart_offline. +! +! History; +! 02/2007 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + +!--------------local variables----------------------------- + integer :: iwn,iwn1,iwn2,iwnb !wavenumber index + integer,parameter :: nb = 61 ! # of wave band for mie table + integer,parameter :: nmt = 6 ! # of mie tables + integer,parameter :: nrh = 36 ! # of column (RH) for mie table + real :: wlb(nb) ! band wavelength + real :: mBex(nmt,nb,nrh) ! Mass extinction coefficient [m2/g] + real :: nBex(tgmx,nb,nrh) ! reasigned Mass extinction coefficient [m2/g] + real :: mw0(nmt,nb,nrh) ! single scattering albedo [-] + real :: nw0(tgmx,nb,nrh) ! reasigned single scattering albedo [-] + real :: mg(nmt,nb,nrh) ! asymetry factor [-] + real :: ng(tgmx,nb,nrh) ! reasigned asymetry factor [-] + real :: mRHr(nmt,nrh) ! relative humidity [-] + real :: nRHr(tgmx,nrh) ! reasigned relative humidity [-] + real :: w1, w2 ! weight for pressure interpolation + + real :: Bext(tgmx,nb,0:nrmx) ! temporary Mass extinction coefficient [m2/g] + real :: w0t(tgmx,nb,0:nrmx) ! temporary single scattering albedo [-] + real :: gt(tgmx,nb,0:nrmx) ! temporary asymetry factor [-] + real :: Bex_wn(tgmx,250:4000,0:nrmx) !temp Bex array for wavenumber + real :: w0_wn(tgmx,250:4000,0:nrmx) !temp w0 array for wavenumber + real :: g_wn(tgmx,250:4000,0:nrmx) !temp g array for wavenumber + +!--------------mie table loop---------------------------------- +! 1- "suso" : sulfate and its precursors +! 2- "waso" : water soluble organic carbon +! 3- "soot" : black carbon +! 4- "ssam" : sea salt (accumulation,fine mode) +! 5- "sscm" : sea salt (coarse mode) +! 6- "dust" : dust + + print*,'MSG read_mie_lw; read mie tables for longwave band' + + do t = 1, nmt !# of mie tables + at=mie_tbl(t) + nrs = nrh + if(at == "dust") nrs = 8 + open(1,file='mie.'//at//'.out',status='old') + read(1,*)aa + read(1,'(6x,36f10.2)')(mRHr(t,k),k=1,nrs) + read(1,'(/)') + read(1,'(a39)') aa + do k = 1,nb + read(1,'(f6.3,36e10.3)')wlb(k),(mBex(t,k,n),n=1,nrs) + end do + read(1,'(a39)') aa + do k = 1,nb + read(1,'(6x,36e10.3)')(mw0(t,k,n),n=1,nrs) + end do + read(1,'(a39)') aa + do k = 1,nb + read(1,'(6x,36e10.3)')(mg(t,k,n),n=1,nrs) + end do + close(1) + enddo + +!------------Reasign the mie table for the following order +! 1 = SO4 !sulfur and its precure + ai = 1 + nRHr(ai,:) = mRHr(1,:) + nBex(ai,:,:) = mBex(1,:,:) + nw0(ai,:,:) = mw0(1,:,:) + ng(ai,:,:) = mg(1,:,:) +! 2 = BC1+BC2 !black carbon (soot) + ai = 2 + nRHr(ai,:) = mRHr(3,:) + nBex(ai,:,:) = mBex(3,:,:) + nw0(ai,:,:) = mw0(3,:,:) + ng(ai,:,:) = mg(3,:,:) +! 3 = OC1 !non hygroscopic OC + ai = 3 + nRHr(ai,:) = mRHr(2,:) + do k = 1,nb ; do n = 1,nrh + nBex(ai,k,n) = mBex(2,k,1) + nw0(ai,k,n) = mw0(2,k,1) + ng(ai,k,n) = mg(2,k,1) + enddo ; enddo +! 4 = OC2 !hygroscopic OC + ai = 4 + nRHr(ai,:) = mRHr(2,:) + nBex(ai,:,:) = mBex(2,:,:) + nw0(ai,:,:) = mw0(2,:,:) + ng(ai,:,:) = mg(2,:,:) +! 5 = SS1 !sea-salt accumulation mode + ai = 5 + nRHr(ai,:) = mRHr(4,:) + nBex(ai,:,:) = mBex(4,:,:) + nw0(ai,:,:) = mw0(4,:,:) + ng(ai,:,:) = mg(4,:,:) +! 6 = SS2+SS3+SS4 !sea-salt coarse mode + ai = 6 + nRHr(ai,:) = mRHr(5,:) + nBex(ai,:,:) = mBex(5,:,:) + nw0(ai,:,:) = mw0(5,:,:) + ng(ai,:,:) = mg(5,:,:) + +! 7 = DU1 ! dust mode 1 +! 8 = DU1 ! dust mode 2 +! 9 = DU1 ! dust mode 3 +! 10 = DU1 ! dust mode 4 +! 11 = DU2 ! dust mode 5 +! 12 = DU3 ! dust mode 6 +! 13 = DU4 ! dust mode 7 +! 14 = DU5 ! dust mode 8 + do ai = 7 , 14 + nRHr(ai,:) = mRHr(1,:) + do k = 1,nb ; do n = 1,nrh + nBex(ai,k,n) = mBex(6,k,ai-6) + nw0(ai,k,n) = mw0(6,k,ai-6) + ng(ai,k,n) = mg(6,k,ai-6) + enddo ; enddo + enddo + +! +!-----Further interporate the Mie Table for RH every 1% +! for RH 0 ~ 79% + do ai = 1, tgmx ; do k = 1,nb ; do nh = 0, 79 + do n = 1, 16 + if(nh == nint(nRHr(ai,n)*100.) ) then + Bext(ai,k,nh) = nBex(ai,k,n) + w0t(ai,k,nh) = nw0(ai,k,n) + gt(ai,k,nh) = ng(ai,k,n) + exit + elseif( nh > nint(nRHr(ai,n)*100.) .and. & + nh < nint(nRHr(ai,n+1)*100.) ) then + w2 = ( real(nh)/100. - nRHr(ai,n) ) / & + (nRHr(ai,n+1)-nRHr(ai,n) ) + w1 = max(min( 1.-w2,1. ),0.) + Bext(ai,k,nh) = w1*nBex(ai,k,n)+w2*nBex(ai,k,n+1) + w0t(ai,k,nh) = w1*nw0(ai,k,n)+w2*nw0(ai,k,n+1) + gt(ai,k,nh) = w1*ng(ai,k,n)+w2*ng(ai,k,n+1) + exit + endif + enddo + enddo ; enddo ; enddo + +!for RH 80~99% + do ai = 1, tgmx ; do k = 1,nb ; do nh = 80, nrmx + Bext(ai,k,nh) = nBex(ai,k,nh-63) + w0t(ai,k,nh) = nw0(ai,k,nh-63) + gt(ai,k,nh) = ng(ai,k,nh-63) + enddo ; enddo ; enddo + + +! +! reasinge Bex w0 g for 250~4000 wavenumber ranges +! + + do k = nb,20,-1 + iwn1 = nint(1./(wlb(k)/10000.)) + iwn2 = nint(1./(wlb(k-1)/10000.)) + iwnb = iwn2 - iwn1 + + Bex_wn(:,iwn1,:) = Bext(:,k,:) + Bex_wn(:,iwn2,:) = Bext(:,k-1,:) + w0_wn(:,iwn1,:) = w0t(:,k,:) + w0_wn(:,iwn2,:) = w0t(:,k-1,:) + g_wn(:,iwn1,:) = gt(:,k,:) + g_wn(:,iwn2,:) = gt(:,k-1,:) + + do iwn = iwn1+1, iwn2-1 + w2 = (real(iwn)-real(iwn1)) / real(iwnb) + w1 = max(min( 1.-w2,1. ),0.) + Bex_wn(:,iwn,:) = w1*Bext(:,k,:) + w2*Bext(:,k-1,:) + w0_wn(:,iwn,:) = w1*w0t(:,k,:) + w2*w0t(:,k-1,:) + g_wn(:,iwn,:) = w1*gt(:,k,:) + w2*gt(:,k-1,:) + enddo + + enddo + + +! +! average the broadband IR optical proerpties (1~9 band) +! + do iwn = 1, nwl_lw-1 + + iwn1 = waven(iwn) + iwn2 = waven(iwn+1) + iwnb = iwn2 - iwn1 + 1 + + + do ai = 1, tgmx ; do nh = 0, nrmx + Bex_lw_temp(ai, iwn, nh) = sum( Bex_wn(ai, iwn1:iwn2, nh)) / real(iwnb) + w0_lw_temp(ai, iwn, nh) = sum( w0_wn(ai, iwn1:iwn2, nh)) / real(iwnb) + g_lw_temp(ai, iwn, nh) = sum( g_wn(ai, iwn1:iwn2, nh)) / real(iwnb) + enddo ; enddo + + enddo +! +! for 10th band +! + do ai = 1, tgmx ; do nh = 0, nrmx + Bex_lw_temp(ai, 10, nh) = sum( Bex_wn(ai, 540:620, nh)) / 81. + w0_lw_temp(ai, 10, nh) = sum( w0_wn(ai, 540:620, nh)) / 81. + g_lw_temp(ai, 10, nh) = sum( g_wn(ai, 540:620, nh)) / 81. + enddo ; enddo + + +! Bex_lw(1:tgmx,1:nwl_lw,0:nrmx) = Bex_lw_temp(1:tgmx,1:nwl_lw,0:nrmx) +! w0_lw(1:tgmx,1:nwl_lw,0:nrmx) = w0_lw_temp(1:tgmx,1:nwl_lw,0:nrmx) +! g_lw(1:tgmx,1:nwl_lw,0:nrmx) = g_lw_temp(1:tgmx,1:nwl_lw,0:nrmx) + + + end subroutine read_mie_lw + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine write_mie_lw + implicit none +!------------------------------------------------------------------------ +! write out aerosol mie table & assinge optical properties. +! Assinged values are saved for global variables at the top of module_gocart_offline. +! +! History; +! 02/2007 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + + open(1,file='mie_lw_table.f90',status='replace') +! +! Bex +! + do ai = 1, tgmx !aerosol type + write(1,20) ai,ai!,nh,nh + do nh = 0, 99 + if(nh==nrmx) then + write(1,11) ( Bex_lw_temp(ai,k,nh) , k =1,nwl_lw ) + else + write(1,10) ( Bex_lw_temp(ai,k,nh) , k =1,nwl_lw ) + endif + enddo !nh + enddo !ai + +! +! single scattering albedo +! + do ai = 1, tgmx !aerosol type + write(1,21) ai,ai!,nh,nh + do nh = 0, 99 + if(nh==nrmx) then + write(1,11) ( w0_lw_temp(ai,k,nh) , k =1,nwl_lw ) + else + write(1,10) ( w0_lw_temp(ai,k,nh) , k =1,nwl_lw ) + endif + enddo !nh + enddo !ai + +! +! asymetry factor +! + do ai = 1, tgmx !aerosol type + write(1,22) ai,ai!,nh,nh + + do nh = 0, 99 + if(nh==nrmx) then + write(1,11) ( g_lw_temp(ai,k,nh) , k =1,nwl_lw ) + else + write(1,10) ( g_lw_temp(ai,k,nh) , k =1,nwl_lw ) + endif + enddo !nh + enddo !ai + + + 20 format(1x,"data (((Bex_lw(ai,k,nh),ai=",i2,",",i2,"),k=1,nwl_lw),nh=0,99)/ &") + 21 format(1x,"data (((w0_lw(ai,k,nh),ai=",i2,",",i2,"),k=1,nwl_lw),nh=0,99)/ &") + 22 format(1x,"data (((g_lw(ai,k,nh),ai=",i2,",",i2,"),k=1,nwl_lw),nh=0,99)/ &") + + 10 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4, & + ",",e9.4,",",e9.4,",",e9.4,",",e9.4,",&") + 11 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4, & + ",",e9.4,",",e9.4,",",e9.4,",",e9.4,"/") + + close(1) + + + end subroutine write_mie_lw + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine aero_opt(sw_or_lw,np,nband, pr,ta,sh,dz,aero,tau,ssa,asy) + implicit none +!------------------------------------------------------------------------ +! Subroutine aero_opt compute the optical properties from the model input. +! All the dimension here is model (GCE or 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 +! 4 = OC2 ! hygroscopic OC +! 5 = SS1 ! sea-salt accumulation mode +! 6 = SS2+SS3+SS4 !sea-salt coarse mode +! 7 = DU1 ! dust mode 1 +! 8 = DU1 ! dust mode 2 +! 9 = DU1 ! dust mode 3 +! 10 = DU1 ! dust mode 4 +! 11 = DU2 ! dust mode 5 +! 12 = DU3 ! dust mode 6 +! 13 = DU4 ! dust mode 7 +! 14 = DU5 ! dust mode 8 +! +! History; +! 02/2007 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + +!-----IO variables + character(len=2), intent(in) :: sw_or_lw ! character index that determines sw or lw radiation + integer, intent(in) :: np !model verical array size + integer, intent(in) :: nband !# of radiation bands + real, intent(in) :: aero(np,tgmx) !aerosol mass conc [g/m3] + real, intent(in) :: pr(np) !pressure [mb] + real, intent(in) :: ta(np) !temperature [K] + real, intent(in) :: sh(np) !specific humidity [g/g] + real, intent(in) :: dz(np) !layer thickness [m] + real, intent(out) :: tau(np,nband) !total aerosol optical depth + real, intent(out) :: ssa(np,nband) !total aerosol single scattering albedo + real, intent(out) :: asy(np,nband) !total aerosol asymetry factor + +!-----Local variables + integer :: rhi !RH index + real :: es !saturated vapor pressure [kPa] + real :: q !vapor mixing pressure [kPa] + real :: e !vapor pressure [kPa] + real :: rh(np) !relative humidity [-] + real :: ext !mass extinction coef [m2/g] + real :: tau_typ(tgmx) !optical depth for each aerosol type [-] + real :: ssa_typ(tgmx) !single scattering albedo for each aerosol type [-] + real :: asy_typ(tgmx) !asymetery factor for each aerosol type [-] + real :: w1, w2 !weight for pressure interpolation + +! +! compute relative humidity +! + do k = 1, np + es = 0.611 * exp( 5423.*( 1./273.15 - 1./ta(k) ) ) !over flat water + q = sh(k)/(1.-sh(k)) !mixing ratio + e = (q / (q+0.622)) * pr(k) * 0.1 !vapor pressure [mb] -> [kPa] + rh(k) = min( max(1e-5, e/es) , 0.99) !relative humidity (set upper limit 99%) + enddo + +! +! Compute total aerosol tau, ssa, & asy +! Algorithm: Total optical properties is computed as +! TAU = (tau1 + tau2 + tau3 +.... ) +! SSA = (tau1*w1 + tau2*w2 + tau3*w2 + .... ) / TAU +! ASY = (tau1*w1*g1 + tau2*w2*g1 + tau3*w2*g1 + .... ) / (TAU*SSA) +! + do k = 1, np !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 + + do n = 1,nband !wavelengh loop + + 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 + ext = Bex(t,n,rhi) + tau_typ(t) = ext * aero(k,t) * dz(k) + ssa_typ(t) = w0(t,n,rhi) + if(t>=7) ssa_typ(t) = w0(t,n,rhi) - 0.03 !toshii 3%down for dust 1-8 modes + asy_typ(t) = g(t,n,rhi) + else + 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) + if(t>=7) ssa_typ(t) = w1*w0(t,n,rhi) + w2*w0(t,n,rhi+1) - 0.03 !toshii 3%down for dust 1-8 modes + asy_typ(t) = w1*g(t,n,rhi) + w2*g(t,n,rhi+1) + 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(k,n) = sum( tau_typ(1:tgmx) ) + ssa(k,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx) ) / max(tau(k,n),1e-08) + asy(k,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx)*asy_typ(1:tgmx) ) & + / max(tau(k,n)*ssa(k,n),1e-08) + + enddo !n + + enddo ! vertical loop + + end subroutine aero_opt + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + end module module_gocart_coupling +#else + module module_gocart_coupling + contains + subroutine dummy + end subroutine dummy + end module module_gocart_coupling + +#endif + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD diff --git a/phys/module_microphysics_driver.F b/phys/module_microphysics_driver.F index 1483f3dc38..747a84fa48 100644 --- a/phys/module_microphysics_driver.F +++ b/phys/module_microphysics_driver.F @@ -49,8 +49,11 @@ SUBROUTINE microphysics_driver( & ,qvolg_curr,qvolh_curr & ,qir_curr,qib_curr & ! for P3 ,qi2_curr,qni2_curr,qir2_curr,qib2_curr & ! for P3 + ,qvoli_curr,qaoli_curr & ! for Jensen ISHMAEL + ,qvoli2_curr,qaoli2_curr & ! for Jensen ISHMAEL + ,qi3_curr,qni3_curr,qvoli3_curr,qaoli3_curr & ! for Jensen ISHMAEL ,effr_curr,ice_effr_curr,tot_effr_curr & - ,qic_effr_curr,qip_effr_curr,qid_effr_curr & + ,qic_effr_curr,qip_effr_curr,qid_effr_curr & ,f_qv,f_qc,f_qr,f_qi,f_qs,f_qg,f_qndrop,f_qni & ,f_qns,f_qnr,f_qng,f_qnc,f_qnn,f_qh,f_qnh & , f_qzr,f_qzi,f_qzs,f_qzg,f_qzh & @@ -59,6 +62,9 @@ SUBROUTINE microphysics_driver( & ,f_qnic,f_qnip,f_qnid & ,f_qir,f_qib & ! for P3 ,f_qi2,f_qni2,f_qir2,f_qib2 & ! for P3 + ,f_qvoli,f_qaoli & ! for Jensen ISHMAEL + ,f_qvoli2,f_qaoli2 & ! for Jensen ISHMAEL + ,f_qi3,f_qni3,f_qvoli3,f_qaoli3 & ! for Jensen ISHMAEL ,f_effr,f_ice_effr,f_tot_effr & ,f_qic_effr,f_qip_effr,f_qid_effr & ,cu_used & @@ -66,6 +72,19 @@ SUBROUTINE microphysics_driver( & ,qt_curr,f_qt & ,mp_restart_state,tbpvs_state,tbpvs0_state & ! for etampnew or fer_mp_hires ,hail,ice2 & ! for mp_gsfcgce +!NUWRF JJS 20110525 vvvvv + ,phys_tot, physc, physe, physd, physs, physm, physf& ! for gsfcgce + ,acphys_tot, acphysc, acphyse, acphysd & ! for gsfcgce + ,acphyss, acphysm, acphysf & ! for gsfcgce + + ,re_cloud_gsfc, re_rain_gsfc, re_ice_gsfc & + ,re_snow_gsfc, re_graupel_gsfc, re_hail_gsfc & ! cloud effective radius + ,precr3d, preci3d, precs3d, precg3d, prech3d & +#if ( WRF_CHEM == 1 ) + ,icn_diag, nc_diag & ! inline gocart + ,gsfcgce_gocart_coupling & +#endif +!NUWRF JJS 20110525 ^^^^^ ! ,ccntype & ! for mp_milbrandt2mom ,u,v,w,z & ,rainnc, rainncv & @@ -81,9 +100,19 @@ SUBROUTINE microphysics_driver( & ,vmi3d & ! for P3 ,di3d & ! for P3 ,rhopo3d & ! for P3 + ,phii3d & ! for Jensen ISHMAEL ,vmi3d_2 & ! for P3 ,di3d_2 & ! for P3 ,rhopo3d_2 & ! for P3 + ,phii3d_2 & ! for Jensen ISHMAEL + ,vmi3d_3 & ! for Jensen ISHMAEL + ,di3d_3 & ! for Jensen ISHMAEL + ,rhopo3d_3 & ! for Jensen ISHMAEL + ,phii3d_3 & ! for Jensen ISHMAEL + ,itype & ! for Jensen ISHMAEL + ,itype_2 & ! for Jensen ISHMAEL + ,itype_3 & ! for Jensen ISHMAEL + ! YLIN ! Added the RI_CURR array to the call ,ri_curr & @@ -118,18 +147,33 @@ SUBROUTINE microphysics_driver( & ,WSM6SCHEME, ETAMPNEW, FER_MP_HIRES, etamp_HWRF,THOMPSON, THOMPSONAERO, MORR_TWO_MOMENT & ,GSFCGCESCHEME, WDM5SCHEME, WDM6SCHEME, NSSL_2MOM, NSSL_2MOMCCN, NSSL_2MOMG & ,NSSL_1MOM,NSSL_1MOMLFO, FER_MP_HIRES_ADVECT & - ,MILBRANDT2MOM, P3_1CATEGORY, P3_1CATEGORY_NC !, P3_2CATEGORY ,MILBRANDT3MOM + ,WSM7SCHEME, WDM7SCHEME & + ,NUWRF4ICESCHEME & + ,MILBRANDT2MOM, P3_1CATEGORY, P3_1CATEGORY_NC, JENSEN_ISHMAEL !, P3_2CATEGORY ,MILBRANDT3MOM #else USE module_state_description, ONLY : & KESSLERSCHEME, LINSCHEME, SBU_YLINSCHEME, WSM3SCHEME, WSM5SCHEME & ,WSM6SCHEME, ETAMPNEW, FER_MP_HIRES, THOMPSON, THOMPSONAERO, FAST_KHAIN_LYNN, MORR_TWO_MOMENT & ,GSFCGCESCHEME, WDM5SCHEME, WDM6SCHEME, NSSL_2MOM, NSSL_2MOMCCN, NSSL_2MOMG & ,NSSL_1MOM,NSSL_1MOMLFO, FER_MP_HIRES_ADVECT & ! ,NSSL_3MOM & - ,MILBRANDT2MOM , CAMMGMPSCHEME,FULL_KHAIN_LYNN, P3_1CATEGORY, P3_1CATEGORY_NC, P3_2CATEGORY, MORR_TM_AERO !,MILBRANDT3MOM + ,WSM7SCHEME, WDM7SCHEME & + ,NUWRF4ICESCHEME & + ,MILBRANDT2MOM , CAMMGMPSCHEME,FULL_KHAIN_LYNN, P3_1CATEGORY, P3_1CATEGORY_NC, P3_2CATEGORY, MORR_TM_AERO, JENSEN_ISHMAEL !,MILBRANDT3MOM #if ( WRFPLUS == 1 ) USE module_state_description, ONLY : LSCONDSCHEME, MKESSLERSCHEME #endif #endif +#if ( WRF_CHEM == 1 ) +! NUWRF + USE module_state_description, ONLY : & + num_chem & !inline gocart + ,p_bc1, p_bc2, p_oc1, p_oc2 & !inline gocart + ,p_dust_1, p_dust_2, p_dust_3 & !inline gocart + ,p_dust_4, p_dust_5 & !inline gocart + ,p_sulf, p_seas_1, p_seas_2 & !inline gocart + ,p_seas_3, p_seas_4 + +#endif #ifdef DM_PARALLEL USE module_dm, ONLY : & @@ -158,19 +202,23 @@ SUBROUTINE microphysics_driver( & USE module_mp_wsm3 USE module_mp_wsm5 USE module_mp_wsm6 + USE module_mp_wsm7 USE module_mp_etanew USE module_mp_fer_hires USE module_mp_thompson USE module_mp_full_sbm USE module_mp_fast_sbm USE module_mp_gsfcgce + USE module_mp_gsfcgce_4ice_nuwrf, only: gsfcgce_4ice_nuwrf USE module_mp_morr_two_moment USE module_mp_p3 + USE module_mp_jensen_ishmael # if (EM_CORE == 1) USE module_mp_morr_two_moment_aero # endif USE module_mp_wdm5 USE module_mp_wdm6 + USE module_mp_wdm7 USE module_mp_milbrandt2mom # if (EM_CORE == 1) USE module_mp_cammgmp_driver, ONLY: CAMMGMP ! CAM5's microphysics driver @@ -371,6 +419,42 @@ SUBROUTINE microphysics_driver( & p8w, & pi_phy, & p +!NUWRF JJS 20101021 vvvvv + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT), OPTIONAL :: phys_tot, & + physc, & + physe, & + physd, & + physs, & + physm, & + physf, & + acphys_tot, & + acphysc, & + acphyse, & + acphysd, & + acphyss, & + acphysm, & + acphysf + +!NUWRF JJS 20101021 ^^^^^ +!NUWRF JJS 20140225 vvvvv + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT), OPTIONAL :: re_cloud_gsfc, & + re_rain_gsfc, & + re_ice_gsfc, & + re_snow_gsfc, & + re_graupel_gsfc, & + re_hail_gsfc + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + OPTIONAL, & + INTENT(INOUT) :: & + precr3d, & ! rain precipitation rate at all levels (kg/m2/s) + preci3d, & ! ice precipitation rate at all levels (kg/m2/s) + precs3d, & ! snow precipitation rate at all levels (kg/m2/s) + precg3d, & ! graupel precipitation rate at all levels (kg/m2/s) + prech3d ! graupel precipitation rate at all levels (kg/m2/s) +!NUWRF JJS 20140225 ^^^^^ + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ),INTENT(INOUT), OPTIONAL :: th_old,qv_old REAL,DIMENSION(ims:ime,kms:kme,jms:jme,num_scalar),INTENT(INOUT), OPTIONAL :: scalar INTEGER, DIMENSION( ims:ime , jms:jme ), INTENT(IN), OPTIONAL:: IVGTYP @@ -478,9 +562,13 @@ SUBROUTINE microphysics_driver( & ! Optional ! REAL, OPTIONAL, DIMENSION( ims:ime , kms:kme, jms:jme ) , INTENT(OUT) :: refl_10cm - REAL, OPTIONAL, DIMENSION( ims:ime , kms:kme, jms:jme ) , INTENT(OUT) :: vmi3d,di3d,rhopo3d, & ! for P3 - vmi3d_2,di3d_2,rhopo3d_2 ! for P3 - + REAL, OPTIONAL, DIMENSION( ims:ime , kms:kme, jms:jme ) , INTENT(OUT) :: vmi3d,di3d,rhopo3d, & ! for P3 + vmi3d_2,di3d_2,rhopo3d_2, & ! for P3 + phii3d, & ! for Jensen ISHMAEL + phii3d_2, & ! for Jensen ISHMAEL + vmi3d_3,di3d_3,rhopo3d_3, & ! for Jensen ISHMAEL + phii3d_3, & ! for Jensen ISHMAEL + itype,itype_2,itype_3 ! for Jensen ISHMAEL LOGICAL, OPTIONAL, INTENT(IN ) :: channel_switch REAL, OPTIONAL, INTENT(INOUT ) :: naer ! aerosol number concentration (/kg) REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) , OPTIONAL :: qnwfa2d, qnifa2d @@ -497,9 +585,12 @@ SUBROUTINE microphysics_driver( & ,qzr_curr,qzi_curr,qzs_curr,qzg_curr,qzh_curr & ,qir_curr,qib_curr & ! for P3 ,qi2_curr,qni2_curr,qir2_curr,qib2_curr & ! for P3 + ,qvoli_curr,qaoli_curr & ! for Jensen ISHMAEL + ,qvoli2_curr,qaoli2_curr & ! for Jensen ISHMAEL + ,qi3_curr,qni3_curr,qvoli3_curr,qaoli3_curr & ! for Jensen ISHMAEL ,effr_curr,ice_effr_curr,tot_effr_curr & ,qic_effr_curr,qip_effr_curr,qid_effr_curr & - ,kext_ql,kext_qs,kext_qg & + ,kext_ql,kext_qs,kext_qg & ,kext_qh,kext_qa & ,kext_qic,kext_qip,kext_qid,tempc,height & ,kext_ft_qic,kext_ft_qip,kext_ft_qid & @@ -540,7 +631,24 @@ SUBROUTINE microphysics_driver( & ,GRAUPELNC & ,GRAUPELNCV & ,HAILNC & - ,HAILNCV + ,HAILNCV + +#if ( WRF_CHEM == 1) +! NUWRF JJS 20110525 vvvvv +! for inline Gocart coupling + integer :: i24h + INTEGER, PARAMETER :: num_go = 14 ! number of the gocart aerosol species + REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_go) :: aero + REAL, DIMENSION( ims:ime, kms:kme, jms:jme), INTENT(OUT) :: icn_diag + REAL, DIMENSION( ims:ime, kms:kme, jms:jme), INTENT(OUT) :: nc_diag + integer, intent(in) :: gsfcgce_gocart_coupling ! EMK + REAL, PARAMETER :: frac(4)=(/ 0.01053,0.08421,0.25263,0.65263 /) !fraction for fine dust + +! NUWRF JJS 20110525 ^^^^^ +#endif + + + INTEGER,OPTIONAL,INTENT(IN ) :: id REAL , DIMENSION( ims:ime , jms:jme ) , OPTIONAL , & @@ -560,6 +668,9 @@ SUBROUTINE microphysics_driver( & ,f_qrimef & ,f_qir,f_qib & ! for P3 ,f_qi2,f_qni2,f_qir2,f_qib2 & ! for P3 + ,f_qvoli,f_qaoli & ! for Jensen ISHMAEL + ,f_qvoli2,f_qaoli2 & ! for Jensen ISHMAEL + ,f_qi3,f_qni3,f_qvoli3,f_qaoli3 & ! for Jensen ISHMAEL ,f_qnwfa, f_qnifa ! Added by G. Thompson @@ -745,6 +856,38 @@ SUBROUTINE microphysics_driver( & END IF END IF +#if ( WRF_CHEM == 1) +!NUWRF JJS 20110525 vvvvv +! Pack gocart aerosol species +! All aerosol species in chem are in "ug/kg-dryair" +! and conerted to (g/m**3) + + aero(:,:,:,:) = 0. + do k = kts, kte + do j = jts, jte + do i = its, ite + aero(i,k,j, 1) = max(0.0, chem(i,k,j,p_sulf)*1.0e-6*p(i,k,j)* & + 96.0/(8.314*th(i,k,j)*pi_phy(i,k,j))) ! 1 = SO4 + aero(i,k,j, 2) = max(0.0, (chem(i,k,j,p_bc1)+chem(i,k,j,p_bc2))*1.0e-6*rho(i,k,j)) ! 2 = BC1+BC2 + aero(i,k,j, 3) = max(0.0, chem(i,k,j,p_oc1)*1.0e-6*rho(i,k,j)*1.4e0) ! 3 = OC1 + aero(i,k,j, 4) = max(0.0, chem(i,k,j,p_oc2)*1.0e-6*rho(i,k,j)*1.4e0) ! 4 = OC2 + aero(i,k,j, 5) = max(0.0, chem(i,k,j,p_seas_1)*1.0e-6*rho(i,k,j)) ! 5 = SS1 + aero(i,k,j, 6) = max(0.0, (chem(i,k,j,p_seas_2)+chem(i,k,j,p_seas_3)+ & + chem(i,k,j,p_seas_4))*1.0e-6*rho(i,k,j)) ! 6 = SS2+SS3+SS4 + aero(i,k,j, 7) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(1)) ! 7 = DU1 dust mode 1 + aero(i,k,j, 8) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(2)) ! 8 = DU1 dust mode 2 + aero(i,k,j, 9) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(3)) ! 9 = DU1 dust mode 3 + aero(i,k,j,10) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(4)) ! 10 = DU1 dust mode 4 + aero(i,k,j,11) = max(0.0, chem(i,k,j,p_dust_2)*1.0e-6*rho(i,k,j)) ! 11 = DU2 dust mode 5 + aero(i,k,j,12) = max(0.0, chem(i,k,j,p_dust_3)*1.0e-6*rho(i,k,j)) ! 11 = DU3 dust mode 6 + aero(i,k,j,13) = max(0.0, chem(i,k,j,p_dust_4)*1.0e-6*rho(i,k,j)) ! 11 = DU4 dust mode 7 + aero(i,k,j,14) = max(0.0, chem(i,k,j,p_dust_5)*1.0e-6*rho(i,k,j)) ! 11 = DU5 dust mode 8 + enddo ! ! + enddo ! j + enddo ! k +!NUWRF JJS 20110525 ^^^^^ +#endif + micro_select: SELECT CASE(mp_physics) CASE (KESSLERSCHEME) @@ -1030,6 +1173,67 @@ SUBROUTINE microphysics_driver( & #endif ! + CASE (JENSEN_ISHMAEL) + CALL wrf_debug(100, 'microphysics_driver: jensen_ishmael ') + IF (PRESENT (QV_CURR) .AND. PRESENT (QC_CURR) .AND. & + PRESENT (QR_CURR) .AND. PRESENT (QNR_CURR) .AND. & + PRESENT (QI_CURR).AND. PRESENT (QNI_CURR) .AND. & + PRESENT (QVOLI_CURR) .AND. PRESENT (QAOLI_CURR) .AND. & + PRESENT (QI2_CURR).AND. PRESENT (QNI2_CURR) .AND. & + PRESENT (QVOLI2_CURR) .AND. PRESENT (QAOLI2_CURR) .AND. & + PRESENT (QI3_CURR).AND. PRESENT (QNI3_CURR) .AND. & + PRESENT (QVOLI3_CURR).AND. PRESENT (QAOLI3_CURR)) THEN + CALL mp_jensen_ishmael( & + ITIMESTEP=itimestep, & !* + DT_IN=dt, & !* + P=p, & !* + DZ=dz8w, & !* ! + TH=th, & !* + QV=qv_curr, & !* + QC=qc_curr, & !* + QR=qr_curr, & !* + NR=qnr_curr, & !* ! + QI1=qi_curr, & !* + NI1=qni_curr, & !* + AI1=qvoli_curr, & !* + CI1=qaoli_curr, & !* + QI2=qi2_curr, & !* + NI2=qni2_curr, & !* + AI2=qvoli2_curr, & !* + CI2=qaoli2_curr, & !* + QI3=qi3_curr, & !* + NI3=qni3_curr, & !* + AI3=qvoli3_curr, & !* + CI3=qaoli3_curr, & !* + IDS=ids,IDE=ide, JDS=jds,JDE=jde, KDS=kds,KDE=kde, & + IMS=ims,IME=ime, JMS=jms,JME=jme, KMS=kms,KME=kme, & + ITS=its,ITE=ite, JTS=jts,JTE=jte, KTS=kts,KTE=kte, & + RAINNC=RAINNC, & + RAINNCV=RAINNCV, & + SNOWNC=SNOWNC, & + SNOWNCV=SNOWNCV, & + diag_effc3d=re_cloud, & + diag_effi3d=re_ice, & + diag_dbz3d=refl_10cm, & + diag_vmi3d_1=vmi3d, & + diag_di3d_1=di3d, & + diag_rhopo3d_1=rhopo3d, & + diag_phii3d_1=phii3d, & + diag_vmi3d_2=vmi3d_2, & + diag_di3d_2=di3d_2, & + diag_rhopo3d_2=rhopo3d_2, & + diag_phii3d_2=phii3d_2, & + diag_vmi3d_3=vmi3d_3, & + diag_di3d_3=di3d_3, & + diag_rhopo3d_3=rhopo3d_3, & + diag_phii3d_3=phii3d_3, & + diag_itype_1=itype, & + diag_itype_2=itype_2, & + diag_itype_3=itype_3 & + ) + ELSE + Call wrf_error_fatal( 'arguments not present for calling jensen_ishamel') + ENDIF CASE (MORR_TWO_MOMENT) CALL wrf_debug(100, 'microphysics_driver: calling morrison two moment') @@ -1814,6 +2018,83 @@ SUBROUTINE microphysics_driver( & CALL wrf_error_fatal ( 'arguments not present for calling GSFCGCE' ) ENDIF + CASE (NUWRF4ICESCHEME) + CALL wrf_debug ( 100 , 'microphysics_driver: calling NUWRF4ICE' ) + IF ( PRESENT( QV_CURR ) .AND. PRESENT ( QC_CURR ) .AND. & + PRESENT( QR_CURR ) .AND. PRESENT ( QI_CURR ) .AND. & + PRESENT( QS_CURR ) .AND. PRESENT ( QG_CURR ) .AND. & + PRESENT( QH_CURR ) .AND. & + PRESENT( RAINNC ) .AND. PRESENT ( RAINNCV ) .AND. & + PRESENT( HAIL ) .AND. PRESENT ( ICE2 ) .AND. & + PRESENT( Z ) .AND. PRESENT ( W ) ) THEN + CALL gsfcgce_4ice_nuwrf( & + TH=th & + ,QV=qv_curr & + ,QL=qc_curr & + ,QR=qr_curr & + ,QI=qi_curr & + ,QS=qs_curr & + ,QH=qh_curr & + ,RHO=rho, PII=pi_phy, P=p, DT_IN=dt, Z=z & + ,HT=ht, DZ8W=dz8w, GRAV=G, W=w & + ,RHOWATER=rhowater, RHOSNOW=rhosnow & + ,ITIMESTEP=itimestep, XLAND=xland, DX=dx & + ,IDS=ids,IDE=ide, JDS=jds,JDE=jde, KDS=kds,KDE=kde & + ,IMS=ims,IME=ime, JMS=jms,JME=jme, KMS=kms,KME=kme & + ,ITS=its,ITE=ite, JTS=jts,JTE=jte, KTS=kts,KTE=kte & + ,RAINNC=rainnc, RAINNCV=rainncv & + ,SNOWNC=snownc, SNOWNCV=snowncv ,SR=sr & + ,GRAUPELNC=graupelnc ,GRAUPELNCV=graupelncv & + ,HAILNC=hailnc, HAILNCV=hailncv & + ,REFL_10CM=refl_10cm & ! added for radar reflectivity + ,diagflag=diagflag & ! added for radar reflectivity + ,do_radar_ref=do_radar_ref & ! added for radar reflectivity + ,F_QG=f_qg & + ,QG=qg_curr & +! ,IHAIL=hail, ICE4=ice2 & ! hardcoded in the 4ice scheme + ! ihail = 0, ice4=4 +!NUWRF JJS 20110525 vvvvv + ,PHYSC=physc, PHYSE=physe, PHYSD=physd & + ,PHYSS=physs, PHYSM=physm, PHYSF=physf & + ,ACPHYSC=acphysc, ACPHYSE=acphyse, ACPHYSD=acphysd & + ,ACPHYSS=acphyss, ACPHYSM=acphysm, ACPHYSF=acphysf & + ,RE_CLOUD_GSFC=re_cloud_gsfc & + ,RE_RAIN_GSFC=re_rain_gsfc & + ,RE_ICE_GSFC=re_ice_gsfc & + ,RE_SNOW_GSFC=re_snow_gsfc & + ,RE_GRAUPEL_GSFC=re_graupel_gsfc & + ,RE_HAIL_GSFC=re_hail_gsfc & + ,PRECR3D=precr3d,PRECI3D=preci3d,PRECS3D=precs3d & + ,PRECG3D=precg3d,PRECH3D=prech3d & +#if ( WRF_CHEM == 1) + ,AERO=aero & + ,ICN_DIAG=icn_diag, NC_DIAG=nc_diag, GID=ID & + ,CHEM_OPT=chem_opt & + ,GSFCGCE_GOCART_COUPLING=gsfcgce_gocart_coupling & +#endif +!NUWRF JJS 20110525 ^^^^^ + ) + + do j=jts,jte + do k=kts,kte + do i=its,ite + ! Snapshot total latent heating rate [K/s] + phys_tot(i,k,j) = physc(i,k,j) + physe(i,k,j) + & + physd(i,k,j) + physs(i,k,j) + physm(i,k,j) + & + physf(i,k,j) + ! Accumulated total latent heating [K] + acphys_tot(i,k,j) = acphysc(i,k,j) + acphyse(i,k,j) + & + acphysd(i,k,j) + acphyss(i,k,j) + acphysm(i,k,j) + & + acphysf(i,k,j) + + end do + end do + end do + + ELSE + CALL wrf_error_fatal ( 'arguments not present for calling NUWRF4ICESFCGCE' ) + ENDIF + CASE (LINSCHEME) CALL wrf_debug ( 100 , 'microphysics_driver: calling lin_et_al' ) IF ( PRESENT( QV_CURR ) .AND. PRESENT ( QC_CURR ) .AND. & @@ -2022,6 +2303,51 @@ SUBROUTINE microphysics_driver( & CALL wrf_error_fatal ( 'arguments not present for calling wsm6' ) ENDIF + CASE (WSM7SCHEME) + CALL wrf_debug ( 100 , 'microphysics_driver: calling wsm7' ) + IF ( PRESENT( QV_CURR ) .AND. PRESENT ( QC_CURR ) .AND. & + PRESENT( QR_CURR ) .AND. PRESENT ( QI_CURR ) .AND. & + PRESENT( QS_CURR ) .AND. PRESENT ( QG_CURR ) .AND. & + PRESENT( QH_CURR ) .AND. & + PRESENT( RAINNC ) .AND. PRESENT ( RAINNCV ) ) THEN + CALL wsm7( & + TH=th & + ,Q=qv_curr & + ,QC=qc_curr & + ,QR=qr_curr & + ,QI=qi_curr & + ,QS=qs_curr & + ,QG=qg_curr & + ,QH=qh_curr & + ,DEN=rho,PII=pi_phy,P=p,DELZ=dz8w & + ,DELT=dt,G=g,CPD=cp,CPV=cpv & + ,RD=r_d,RV=r_v,T0C=svpt0 & + ,EP1=ep_1, EP2=ep_2, QMIN=epsilon & + ,XLS=xls, XLV0=xlv, XLF0=xlf & + ,DEN0=rhoair0, DENR=rhowater & + ,CLIQ=cliq,CICE=cice,PSAT=psat & + ,RAIN=rainnc ,RAINNCV=rainncv & + ,SNOW=snownc ,SNOWNCV=snowncv & + ,SR=sr & + ,REFL_10CM=refl_10cm & ! added for radar reflectivity + ,diagflag=diagflag & ! added for radar reflectivity + ,do_radar_ref=do_radar_ref & ! added for radar reflectivity + ,GRAUPEL=graupelnc ,GRAUPELNCV=graupelncv & + ,HAIL=hailnc ,HAILNCV=hailncv & + ,has_reqc=has_reqc & ! for radiation + + ,has_reqi=has_reqi & + ,has_reqs=has_reqs & + ,re_cloud=re_cloud & + ,re_ice=re_ice & + ,re_snow=re_snow & ! for radiation - + ,IDS=ids,IDE=ide, JDS=jds,JDE=jde, KDS=kds,KDE=kde & + ,IMS=ims,IME=ime, JMS=jms,JME=jme, KMS=kms,KME=kme & + ,ITS=its,ITE=ite, JTS=jts,JTE=jte, KTS=kts,KTE=kte & + ) + ELSE + CALL wrf_error_fatal ( 'arguments not present for calling wsm7' ) + ENDIF + CASE (WDM5SCHEME) CALL wrf_debug ( 100 , 'microphysics_driver: calling wdm5' ) IF ( PRESENT( QV_CURR ) .AND. PRESENT ( QC_CURR ) .AND. & @@ -2115,6 +2441,59 @@ SUBROUTINE microphysics_driver( & ELSE CALL wrf_error_fatal ( 'arguments not present for calling wdm6') ENDIF + + CASE (WDM7SCHEME) + CALL wrf_debug ( 100 , 'microphysics_driver: calling wdm7' ) + IF ( PRESENT( QV_CURR ) .AND. PRESENT ( QC_CURR ) .AND. & + PRESENT( QR_CURR ) .AND. PRESENT ( QI_CURR ) .AND. & + PRESENT( QS_CURR ) .AND. PRESENT ( QG_CURR ) .AND. & + PRESENT( QH_CURR ) .AND. & + PRESENT( QNN_CURR ) .AND. PRESENT ( QNC_CURR ) .AND. & + PRESENT( QNR_CURR ).AND. & + PRESENT( RAINNC ) .AND. PRESENT ( RAINNCV ) ) THEN + CALL wdm7( & + TH=th & + ,Q=qv_curr & + ,QC=qc_curr & + ,QR=qr_curr & + ,QI=qi_curr & + ,QS=qs_curr & + ,QG=qg_curr & + ,QH=qh_curr & + ,NN=qnn_curr & + ,NC=qnc_curr & + ,NR=qnr_curr & + ,DEN=rho,PII=pi_phy,P=p,DELZ=dz8w & + ,DELT=dt,G=g,CPD=cp,CPV=cpv,CCN0=ccn_conc & ! RAS + ,RD=r_d,RV=r_v,T0C=svpt0 & + ,EP1=ep_1, EP2=ep_2, QMIN=epsilon & + ,XLS=xls, XLV0=xlv, XLF0=xlf & + ,DEN0=rhoair0, DENR=rhowater & + ,CLIQ=cliq,CICE=cice,PSAT=psat & + ,xland=xland & ! land mask, 1: land, 2: water + ,RAIN=rainnc ,RAINNCV=rainncv & + ,SNOW=snownc ,SNOWNCV=snowncv & + ,SR=sr & + ,REFL_10CM=refl_10cm & ! added for radar reflectivity + ,diagflag=diagflag & ! added for radar reflectivity + ,do_radar_ref=do_radar_ref & ! added for radar reflectivity + ,GRAUPEL=graupelnc ,GRAUPELNCV=graupelncv & + ,HAIL=hailnc ,HAILNCV=hailncv & + ,ITIMESTEP=itimestep & + ,has_reqc=has_reqc & ! for radiation + + ,has_reqi=has_reqi & + ,has_reqs=has_reqs & + ,re_cloud=re_cloud & + ,re_ice=re_ice & + ,re_snow=re_snow & ! for radiation - + ,IDS=ids,IDE=ide, JDS=jds,JDE=jde, KDS=kds,KDE=kde & + ,IMS=ims,IME=ime, JMS=jms,JME=jme, KMS=kms,KME=kme & + ,ITS=its,ITE=ite, JTS=jts,JTE=jte, KTS=kts,KTE=kte & + ) + ELSE + CALL wrf_error_fatal ( 'arguments not present for calling wdm7') + ENDIF + #if(NMM_CORE==1) CASE (ETAMP_HWRF) CALL wrf_debug ( 100 , 'microphysics_driver: calling etampnew_HWRF') diff --git a/phys/module_mp_gsfcgce.F b/phys/module_mp_gsfcgce.F index a58b93adae..73dc3145f2 100755 --- a/phys/module_mp_gsfcgce.F +++ b/phys/module_mp_gsfcgce.F @@ -4,8 +4,6 @@ MODULE module_mp_gsfcgce USE module_wrf_error - USE module_utility, ONLY: WRFU_Clock, WRFU_Alarm - USE module_domain, ONLY : HISTORY_ALARM, Is_alarm_tstep USE module_mp_radar !JJS 1/3/2008 vvvvv @@ -342,7 +340,6 @@ SUBROUTINE gsfcgce( th, & ! qiold, qsold, qgold, & rho, pii, p, itimestep, & refl_10cm, diagflag, do_radar_ref, & ! GT added for reflectivity calcs -! refl_10cm, grid_clock, grid_alarms, & ! GT added for reflectivity calcs ids,ide, jds,jde, kds,kde, & ! domain dims ims,ime, jms,jme, kms,kme, & ! memory dims its,ite, jts,jte, kts,kte & ! tile dims @@ -1244,7 +1241,6 @@ SUBROUTINE saticel_s (dt, ihail, itaobraun, ice2, istatmin, & qiwrf, qswrf, qgwrf, & rho_mks, pi_mks, p0_mks,itimestep, & refl_10cm, diagflag, do_radar_ref, & ! GT added for reflectivity calcs -! refl_10cm, grid_clock, grid_alarms, & ! GT added for reflectivity calcs ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte & @@ -1505,8 +1501,6 @@ SUBROUTINE saticel_s (dt, ihail, itaobraun, ice2, istatmin, & !+---+-----------------------------------------------------------------+ REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT):: refl_10cm ! GT -! TYPE (WRFU_Clock):: grid_clock -! TYPE (WRFU_Alarm), POINTER:: grid_alarms(:) REAL, DIMENSION(kts:kte):: qv1d, t1d, p1d, qr1d, qs1d, qg1d, dBZ diff --git a/phys/module_mp_gsfcgce_4ice_nuwrf.F b/phys/module_mp_gsfcgce_4ice_nuwrf.F new file mode 100644 index 0000000000..1b4aba6232 --- /dev/null +++ b/phys/module_mp_gsfcgce_4ice_nuwrf.F @@ -0,0 +1,4989 @@ +!added +!WRF:MODEL_LAYER:PHYSICS +!based on module_mp_gsfcgce_311_new_20101115_newdbz.F +!implemented conv/stra separation scheme +!--->cal_sepa +!on 06/11/2011 +! +!Implemented conv/stra diagnostic variable rainncv_sepa and rainnc_sepa +!--->var_sepa +!on 11/18/2011 +!Di +! +!added small fix to prevent underflow and overflow issues +!on 12/02/2011 +!EMK +! +!implemented 4ice writen by Steve Lang +!added tervrh.F_v3.0 +!on 08/06/2012 +! +!adding saticerh.F_v3.0 +!on 08/07/2012 +! +!from GCE saticerh.F_v3.08j, sgmap.F_v3.08t.clean +!consatrh.F_v3.08t, tervrh.F_v3.08t, and vqrqi.F_v3.05 +!on 12/09/2014 +!Di + +MODULE module_mp_gsfcgce_4ice_nuwrf + +#if (WRF_CHEM == 1) + use module_gocart_coupling +#endif + USE module_mp_radar + + INTEGER, PARAMETER, PRIVATE:: CHUNK = 16 + + LOGICAL, EXTERNAL :: wrf_dm_on_monitor + +!JJS 20140117 vvvvv + PRIVATE ! privatize all variables/subroutines in this module excepting public parameter below + PUBLIC :: gsfcgce_4ice_nuwrf +!JJS 20140117 ^^^^^ + +!JJS 1/3/2008 vvvvv + +! common /bt/ + REAL, PRIVATE :: rd1, rd2, al, cp + +! common /cont/ + REAL, PRIVATE :: c38, c358, c610, c149, & + c879, c172, c409, c76, & + c218, c580, c141 +! common /b3cs/ + REAL, PRIVATE :: ag, bg, as, bs, & + aw, bw, bgh, bgq, & + bsh, bsq, bwh, bwq, & + ah, bh, bh3, bhh, & + bhh5, bhq, bh3_2 + +! common /size/ + REAL, PRIVATE :: tnw, tns, tng, tnh, & + roqs, roqg, roqr, roqh + +! common /rterv/ + REAL, PRIVATE :: zrc, zgc, zsc, zhc, vrc, & + vrc0, vrc1, vrc2, vrc3, & + vgc, vsc, vhc +! common /rterv_2/ + REAL, PRIVATE :: zgc2, vgc2 + +! common /bsnw/ + REAL, PRIVATE :: rn11a + + REAL, PRIVATE :: rn17, rn19b, & + bnd3, rn23a, & + rn23b, rn30b, & + rn30c + +! common /rsnw/ + REAL, PRIVATE :: alv, alf, als, t0, t00, & + avc, afc, asc, esi, rn1, rn2, & + bnd2, rn3, rn4, rn5, rn50, & + rn51, rn52, rn53, rn6, rn60, & + rn61, rn62, rn63, rn7, rn8, & + rn9, rn10, rn101, rn102, rn10a, & + rn10b, rn10c, rn11, rn12, rn14, & + rn15, rn15a, rn16, rn171, rn172, & + rn17a, rn17b, rn17c, rn18, rn18a, & + rn19, rn191, rn192, rn19a, rn20, & + rn20a, rn20b, rn30, rn30a, rn21, & + bnd21, rn22, rn23, rn231, rn232, & + rn25, rn31, beta, rn32, rn33, & + rn331, rn332, rn34, rn35,rnn30a, & + rnn191,rnn192 + REAL, PRIVATE, DIMENSION( 31 ) :: rn12a, rn12b, rn13, rn25a + +! common /rsnw2h/ + REAL, PRIVATE :: hn9, hn10, hn10a, hn14, hn15a, hn16, & + hn17, hn17a, hn19, hn19a, hn20, hn20b + REAL, PRIVATE :: gn17,gn17a,gn17a2 !4ice revised + +! common /rainmap/ + REAL, PRIVATE :: draimax + +! common /snomap/ + real, PRIVATE :: xs,sno11,sno00,dsno11,dsno00,sexp11,sexp00,stt, & + stexp,sbase,tslopes,dsnomin,dsnomin4,slim +! common /grpmap/ + real, PRIVATE :: xg,grp11,grp00,dgrp11,dgrp00,gexp11,gexp00,gtt, & + gtexp,gbase,tslopeg,dgrpmin,dgrpmin4,glim +! common /haimap/ + real, PRIVATE :: hai00,hai11,htt0,htt1,haixp + +! common /b3cg_2/ + REAL, PRIVATE :: ag2, bg2, bgh2, bgq2, roqg2, qrog2 + +! common /rsnw2/ + REAL, PRIVATE :: rn142, rn152, rn15a2, rn17a2, rn192_2 + +! common /icemass/ + REAL, PRIVATE :: ami50, ami40, ami100 + +! common /BergCon/ + REAL, PRIVATE, DIMENSION( 31 ) :: BergCon1, BergCon2, & + BergCon3, BergCon4 + REAL, PRIVATE :: cmin + REAL, PRIVATE :: cpi +! + REAL, PRIVATE, DIMENSION( 31 ) :: aa1, aa2 + DATA aa1/.7939e-7, .7841e-6, .3369e-5, .4336e-5, .5285e-5, & + .3728e-5, .1852e-5, .2991e-6, .4248e-6, .7434e-6, & + .1812e-5, .4394e-5, .9145e-5, .1725e-4, .3348e-4, & + .1725e-4, .9175e-5, .4412e-5, .2252e-5, .9115e-6, & + .4876e-6, .3473e-6, .4758e-6, .6306e-6, .8573e-6, & + .7868e-6, .7192e-6, .6513e-6, .5956e-6, .5333e-6, & + .4834e-6/ + DATA aa2/.4006, .4831, .5320, .5307, .5319, & + .5249, .4888, .3894, .4047, .4318, & + .4771, .5183, .5463, .5651, .5813, & + .5655, .5478, .5203, .4906, .4447, & + .4126, .3960, .4149, .4320, .4506, & + .4483, .4460, .4433, .4413, .4382, & + .4361/ + +!+---+-----------------------------------------------------------------+ +!..The following 6 variables moved here to facilitate reflectivity +!.. calculation similar to other MP schemes, because when they get +!.. declared later in the code (now commented out), it makes things +!.. more difficult to integreate with the radar code. + REAL :: xnor, xnos, xnoh, xnog + REAL :: rhohail, rhograul +!.. Values will be defined in subroutine fall_flux --- JJS 20150731 +! REAL , PARAMETER :: xnor = 8.0e6 +! REAL , PARAMETER :: xnos = 1.6e7 +! REAL , PARAMETER :: xnoh = 2.0e5 +! REAL , PARAMETER :: xnog = 4.0e6 +! REAL , PARAMETER :: rhohail = 917. +! REAL , PARAMETER :: rhograul = 400. +!+---+-----------------------------------------------------------------+ + +!JJS 1/3/2008 ^^^^^ + +CONTAINS + +!-------------------------------------------------------------------- +! NASA/GSFC GCE +! Tao et al, 2001, Meteo. & Atmos. Phy., 97-137 +!-------------------------------------------------------------------- + SUBROUTINE gsfcgce_4ice_nuwrf( th & + ,qv, ql & + ,qr, qi & + ,qs, qh & ! 4ice + ,rho, pii, p, dt_in, z & + ,ht, dz8w, grav, w & + ,rhowater, rhosnow & + ,itimestep, xland, dx & + ,ids,ide, jds,jde, kds,kde & ! domain dims + ,ims,ime, jms,jme, kms,kme & ! memory dims + ,its,ite, jts,jte, kts,kte & ! tile dims + ,rainnc, rainncv & + ,snownc, snowncv, sr & + ,graupelnc, graupelncv & + ,refl_10cm, diagflag, do_radar_ref & + ,hailnc, hailncv & !Hail + ,f_qg, qg & + ,physc, physe, physd, physs, physm, physf & + ,acphysc, acphyse, acphysd, acphyss, acphysm, acphysf & + ,re_cloud_gsfc, re_rain_gsfc, re_ice_gsfc & + ,re_snow_gsfc, re_graupel_gsfc, re_hail_gsfc & ! cloud effective radius + ,preci3d, precs3d, precg3d, prech3d, precr3d & +#if ( WRF_CHEM == 1) +!JJS 20110525 vvvvv + ,aero, icn_diag, nc_diag, gid & +!JJS 20110525 ^^^^^ +! EMK + ,chem_opt & + ,gsfcgce_gocart_coupling & +#endif +!NUWRF END + ) + + +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- +! +! JJS 2/15/2005 +! + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde , & + ims,ime, jms,jme, kms,kme , & + its,ite, jts,jte, kts,kte + INTEGER, INTENT(IN ) :: itimestep + + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: & + th, & + qv, & + ql, & + qr, & + qi, & + qs, & + qg, & + qh + +!NUWRF BEGIN +#if ( WRF_CHEM == 1) +! JJS 20110525 vvvvv +! for inline Gocart coupling + INTEGER, PARAMETER :: num_go = 14 ! number of the gocart aerosol species + REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_go), intent(in) :: aero + REAL, DIMENSION( ims:ime, kms:kme, jms:jme), intent(out) :: icn_diag, nc_diag + INTEGER, INTENT(IN ) :: gid +! JJS 20110525 ^^^^^ + integer,intent(in) :: chem_opt ! EMK + integer,intent(in) :: gsfcgce_gocart_coupling ! EMK +#endif +!NUWRF END + +! + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN ) :: & + rho, & + pii, & + p, & + dz8w, & + z, & + w + + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: & + physc, & + physe, & + physd, & + physs, & + physm, & + physf, & + acphysc, & + acphyse, & + acphysd, & + acphyss, & + acphysm, & + acphysf, & + preci3d, & + precs3d, & + precg3d, & + prech3d, & + precr3d + + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: rainnc, & + rainncv, & + snownc, & + snowncv, & + sr, & + graupelnc, & + graupelncv,& + hailnc, & + hailncv + +!JJS 20140225 for calculation of effective radius of cloud species + REAL , DIMENSION( ims:ime , jms:jme ) , INTENT(IN) :: XLAND + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: re_cloud_gsfc, & + re_rain_gsfc, & + re_ice_gsfc, & + re_snow_gsfc, & + re_graupel_gsfc, & + re_hail_gsfc +!JJS 20140225 ^^^^^ + +!+---+-----------------------------------------------------------------+ + REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT):: & ! GT + refl_10cm + LOGICAL, OPTIONAL, INTENT(IN) :: diagflag + INTEGER, OPTIONAL, INTENT(IN) :: do_radar_ref +!+---+-----------------------------------------------------------------+ + + REAL , DIMENSION( ims:ime , jms:jme ) , INTENT(IN) :: ht + + REAL, INTENT(IN ) :: dt_in, & + grav, & + rhowater, & + rhosnow, & + dx + + LOGICAL, INTENT(IN), OPTIONAL :: F_QG + +! LOCAL VAR + +! + INTEGER :: itaobraun, istatmin, new_ice_sat, id + INTEGER :: improve + + INTEGER :: i, j, k, ip, ii, ic + INTEGER :: iskip, ih, icount, ibud, i24h + REAL :: hour + REAL :: dth, dqv, dqrest, dqall, dqall1, rhotot, a1, a2 + + REAL, DIMENSION(CHUNK, kms:kme):: th2d, qv2d, ql2d, qr2d + REAL, DIMENSION(CHUNK, kms:kme):: qi2d, qs2d, qg2d, qh2d + REAL, DIMENSION(CHUNK, kms:kme):: rho2d, pii2d, p2d, w2d + REAL, DIMENSION(CHUNK, kms:kme):: refc2d, refr2d, refi2d + REAL, DIMENSION(CHUNK, kms:kme):: refs2d, refg2d, refh2d + REAL, DIMENSION(CHUNK, kms:kme):: physc2d, physe2d, physd2d + REAL, DIMENSION(CHUNK, kms:kme):: physs2d, physm2d, physf2d + REAL, DIMENSION(CHUNK, kms:kme):: acphysc2d, acphyse2d, acphysd2d + REAL, DIMENSION(CHUNK, kms:kme):: acphyss2d, acphysm2d, acphysf2d + REAL, DIMENSION(CHUNK) :: xland1d + REAL, DIMENSION(CHUNK, kms:kme):: refl_10cm2d +#if ( WRF_CHEM == 1) + REAL, DIMENSION(CHUNK, kms:kme, num_go):: aero3d + REAL, DIMENSION(CHUNK, kms:kme):: icn_diag2d, nc_diag2d +#endif + +!----------------------------------------------------------------------- +!WRF radar reflectivity initialization only need to run once + + INTEGER:: NCALL=0 + +!----------------------------------------------------------------------- + + +! itaobraun: 0 for Tao's constantis, 1 for Braun's constants +!c if ( itaobraun.eq.1 ) --> betah=0.5*beta=-.46*0.5=-0.23; cn0=1.e-6 +!c if ( itaobraun.eq.0 ) --> betah=0.5*beta=-.6*0.5=-0.30; cn0=1.e-8 + itaobraun = 0 + +! Use Steve's new improvement 9/18/2009 + + improve = 8 + +!c new_ice_sat = 0, 1, 2, or 3 + new_ice_sat = 9 + +!c istatmin + istatmin = 180 + +!c id = 0 without in-line staticstics +!c id = 1 with in-line staticstics + id = 0 + +!c ibud = 0 no calculation of dth, dqv, dqrest and dqall +!c ibud = 1 yes + ibud = 0 + +!c set up constants used internally in GCE + + call consat_s ( itaobraun) + +! calculte fallflux and precipiation in MKS system + + call fall_flux( dt_in,ql, qr, qi, qs, qg, qh, p, & + rho, th, pii, z, dz8w, ht, rainnc, & + rainncv, grav,itimestep, & + preci3d, precs3d, precg3d, prech3d, precr3d, & + snownc, snowncv, sr, & + graupelnc, graupelncv, & + hailnc, hailncv, & + vgc, vgc2,vhc,bhq, & + improve, & + ims,ime, jms,jme, kms,kme, & ! memory dims + its,ite, jts,jte, kts,kte ) ! tile dims +!----------------------------------------------------------------------- + ! EMK NUWRF...Moved this WRF radar reflectivity initialization to after + ! fall_flux, as the rhohail and rhograul variables are set in that + ! subroutine. + + IF (NCALL .EQ. 0) THEN +!..Set these variables needed for computing radar reflectivity. These +!.. get used within radar_init to create other variables used in the +!.. radar module. + xam_r = 3.14159*rhowater/6. + xbm_r = 3. + xmu_r = 0. + xam_s = 3.14159*rhosnow/6. + xbm_s = 3. + xmu_s = 0. + xam_g = 3.14159*rhograul/6. + xbm_g = 3. + xmu_g = 0. + + call radar_init + NCALL = 1 + ENDIF +!+---+-----------------------------------------------------------------+ + +!c Negative values correction + +! iskip = 1 +! +! if (iskip.eq.0) then +! call negcor(qv,rho,dz8w,ims,ime,jms,jme,kms,kme, & +! itimestep,1, & +! its,ite,jts,jte,kts,kte) +! call negcor(ql,rho,dz8w,ims,ime,jms,jme,kms,kme, & +! itimestep,2, & +! its,ite,jts,jte,kts,kte) +! call negcor(qr,rho,dz8w,ims,ime,jms,jme,kms,kme, & +! itimestep,3, & +! its,ite,jts,jte,kts,kte) +! call negcor(qi,rho,dz8w,ims,ime,jms,jme,kms,kme, & +! itimestep,4, & +! its,ite,jts,jte,kts,kte) +! call negcor(qs,rho,dz8w,ims,ime,jms,jme,kms,kme, & +! itimestep,5, & +! its,ite,jts,jte,kts,kte) +! call negcor(qg,rho,dz8w,ims,ime,jms,jme,kms,kme, & +! itimestep,6, & +! its,ite,jts,jte,kts,kte) +!! else if (mod(itimestep,i24h).eq.1) then +!! print *,'no neg correction in mp at timestep=',itimestep +! endif ! iskip + +!c microphysics in GCE + +!$OMP PARALLEL DO & +!$OMP PRIVATE ( ic, j, ii, i, k ) & +!$OMP PRIVATE ( th2d, qv2d, ql2d, qr2d ) & +!$OMP PRIVATE ( qi2d, qs2d, qg2d, qh2d ) & +!$OMP PRIVATE ( rho2d, pii2d, p2d, w2d ) & +!$OMP PRIVATE ( refc2d, refr2d, refi2d, refs2d, refg2d, refh2d ) & +!$OMP PRIVATE ( physc2d, physe2d, physd2d, physs2d, physm2d, physf2d ) & +!$OMP PRIVATE ( acphysc2d, acphyse2d, acphysd2d, acphyss2d, acphysm2d, acphysf2d ) & +!$OMP PRIVATE ( xland1d, refl_10cm2d ) & +#if ( WRF_CHEM == 1) +!$OMP PRIVATE ( aero3d, icn_diag2d, nc_diag2d) & +#endif +!$OMP SCHEDULE(dynamic,1) + DO ip = 1,((1+(ite-its+1)/CHUNK)*CHUNK)*(jte-jts+1),CHUNK ! i-dim contains '(1+(ite-its+1)/CHUNK)' blocks of size 'CHUNK' + j = jts+(ip-1)/((1+(ite-its+1)/CHUNK)*CHUNK) + IF ( j .ge. jts .and. j .le. jte ) THEN ! j: [jts, jte] + ii = its+mod((ip-1),((1+(ite-its+1)/CHUNK)*CHUNK)) ! ii: [its, ((1+(ite-its+1)/CHUNK)*CHUNK)] + + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + xland1d(ic) = xland(i,j) + ENDDO + + do k = kts, kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + th2d(ic,k) = th(i,k,j) + qv2d(ic,k) = qv(i,k,j) + ql2d(ic,k) = ql(i,k,j) + qr2d(ic,k) = qr(i,k,j) + qi2d(ic,k) = qi(i,k,j) + qs2d(ic,k) = qs(i,k,j) + qg2d(ic,k) = qg(i,k,j) + qh2d(ic,k) = qh(i,k,j) + rho2d(ic,k) = rho(i,k,j) + pii2d(ic,k) = pii(i,k,j) + p2d(ic,k) = p(i,k,j) + w2d(ic,k) = w(i,k,j) + refl_10cm2d(ic,k)=refl_10cm(i,k,j) + refc2d(ic,k)=re_cloud_gsfc(i,k,j) + refr2d(ic,k)=re_rain_gsfc(i,k,j) + refi2d(ic,k)=re_ice_gsfc(i,k,j) + refs2d(ic,k)=re_snow_gsfc(i,k,j) + refg2d(ic,k)=re_graupel_gsfc(i,k,j) + refh2d(ic,k)=re_hail_gsfc(i,k,j) + physc2d(ic,k)=physc(i,k,j) + physe2d(ic,k)=physe(i,k,j) + physd2d(ic,k)=physd(i,k,j) + physs2d(ic,k)=physs(i,k,j) + physm2d(ic,k)=physm(i,k,j) + physf2d(ic,k)=physf(i,k,j) + acphysc2d(ic,k)=acphysc(i,k,j) + acphyse2d(ic,k)=acphyse(i,k,j) + acphysd2d(ic,k)=acphysd(i,k,j) + acphyss2d(ic,k)=acphyss(i,k,j) + acphysm2d(ic,k)=acphysm(i,k,j) + acphysf2d(ic,k)=acphysf(i,k,j) +#if ( WRF_CHEM == 1) + aero3d(ic,k,:)=aero(i,k,j,:) +#endif + ENDDO + enddo + + IF ( min(CHUNK,ite-ii+1) .gt. 0 ) THEN + call saticel_s( dt_in, dx, itaobraun, istatmin, & + new_ice_sat, id, improve, & + th2d, qv2d, ql2d, qr2d, & + qi2d, qs2d, qg2d, qh2d, & + rho2d, pii2d, p2d, w2d, & + itimestep, xland1d, & + refl_10cm2d, diagflag, do_radar_ref, & ! GT added for reflectivity calcs + ids,ide, jds,jde, kds,kde, & ! domain dims + ims,ime, jms,jme, kms,kme, & ! memory dims + its,ite, jts,jte, kts,kte, & ! tile dims +!NUWRF BEGIN + refc2d, refr2d, refi2d, refs2d, refg2d, refh2d, & ! cloud effective radius + physc2d, physe2d, physd2d, physs2d, physm2d, physf2d, & + acphysc2d, acphyse2d, acphysd2d, acphyss2d, acphysm2d, acphysf2d & + +#if ( WRF_CHEM == 1) +!JJS 20110525 vvvvv + ,aero3d, icn_diag2d, nc_diag2d, gid, & +!JJS 20110525 ^^^^^ +!EMK + chem_opt, & + gsfcgce_gocart_coupling & +#endif + ,ii, j, min(CHUNK,ite-ii+1)) +!NUWRF END + ENDIF + + do k = kts, kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + th(i,k,j) = th2d(ic,k) + qv(i,k,j) = qv2d(ic,k) + ql(i,k,j) = ql2d(ic,k) + qr(i,k,j) = qr2d(ic,k) + qi(i,k,j) = qi2d(ic,k) + qs(i,k,j) = qs2d(ic,k) + qg(i,k,j) = qg2d(ic,k) + qh(i,k,j) = qh2d(ic,k) + re_cloud_gsfc(i,k,j)=refc2d(ic,k) + re_rain_gsfc(i,k,j)=refr2d(ic,k) + re_ice_gsfc(i,k,j)=refi2d(ic,k) + re_snow_gsfc(i,k,j)=refs2d(ic,k) + re_graupel_gsfc(i,k,j)=refg2d(ic,k) + re_hail_gsfc(i,k,j)=refh2d(ic,k) + refl_10cm(i,k,j)=refl_10cm2d(ic,k) + physc(i,k,j)=physc2d(ic,k) + physe(i,k,j)=physe2d(ic,k) + physd(i,k,j)=physd2d(ic,k) + physs(i,k,j)=physs2d(ic,k) + physm(i,k,j)=physm2d(ic,k) + physf(i,k,j)=physf2d(ic,k) + acphysc(i,k,j)=acphysc2d(ic,k) + acphyse(i,k,j)=acphyse2d(ic,k) + acphysd(i,k,j)=acphysd2d(ic,k) + acphyss(i,k,j)=acphyss2d(ic,k) + acphysm(i,k,j)=acphysm2d(ic,k) + acphysf(i,k,j)=acphysf2d(ic,k) +#if ( WRF_CHEM == 1) + icn_diag(i,k,j)=icn_diag2d(ic,k) + nc_diag(i,k,j)=nc_diag2d(ic,k) +#endif + ENDDO + enddo + + ENDIF + ENDDO ! ip_loop + + END SUBROUTINE gsfcgce_4ice_nuwrf + + SUBROUTINE fall_flux ( dt, ql, qr, qi, qs, qg, qh, p, & + rho, th, pi_mks, z, dz8w, topo, rainnc, & + rainncv, grav, itimestep, & + preci3d, precs3d, precg3d, prech3d, precr3d, & + snownc, snowncv, sr, & + graupelnc, graupelncv, & + hailnc, hailncv, & + vgc, vgc2, vhc, bhq, & + improve, & + ims,ime, jms,jme, kms,kme, & ! memory dims + its,ite, jts,jte, kts,kte ) ! tile dims +!----------------------------------------------------------------------- +! adopted from Jiun-Dar Chern's codes for Purdue Regional Model +! adopted by Jainn J. Shi, 6/10/2005 +! modified by Goddard 7/24/2010 +! modified by Tao 11/12/2010 +!----------------------------------------------------------------------- + + IMPLICIT NONE + INTEGER, INTENT(IN ) :: improve, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + INTEGER, INTENT(IN ) :: itimestep + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: ql, qr, qi, qs, qg, qh + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN) :: th, pi_mks + + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: rainnc, rainncv, & + snownc, snowncv, sr, & + graupelnc, graupelncv, & + hailnc, hailncv + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN ) :: rho, z, dz8w, p + + REAL, INTENT(IN ) :: dt, grav, vgc, vgc2, vhc, bhq + + + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(IN ) :: topo + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(OUT) :: preci3d, precs3d, precg3d, prech3d, precr3d + +! temperary vars + + REAL, DIMENSION( kts:kte ) :: fv + REAL :: tmp1, term0 + REAL :: pptrain, pptsnow, & + pptgraul, pptice, ppthail + REAL :: qrz, qiz + REAL, DIMENSION( kts:kte ) :: qcz, qsz, qgz, qhz, & + zz, dzw, prez, rhoz, & + orhoz,r00 + REAL, DIMENSION( kts:kte ) :: csed, rsed, ised, ssed, gsed, hsed + + REAL, DIMENSION( kts:kte ) :: thz, piz + + INTEGER :: k, i, j +! + + REAL, DIMENSION( kts:kte ) :: vtr, vts, vtg, vth, vti + + REAL :: dtb, pi, consta, constc, gambp4, & + gamdp4, gam4pt5, gam4bbar + +! New local variable + REAL :: y1, y2, vr, vs, vg + REAL :: vgcr, vgcr2, vscf, & + vhcr, vhcr2 + REAL :: tair, tairc, fexp + REAL :: ftns, ftnsQ, ftng, ftngQ + REAL :: const_vt, const_d, const_m, bb1, bb2 + REAL, DIMENSION(7) :: aice, vice + REAL :: ftns0, ftng0 + REAL :: fros, fros0 + REAL :: qhz2,qgz2 + +! DATA tslopes/0./, tslopeg/0./ +! DATA const_vt//, const_d//, const_m// + DATA aice/1.e-6, 1.e-5, 1.e-4, 1.e-3, 0.01, 0.1, 1./ ! g/m**3 + DATA vice/5.,15.,30.,35.,40.,45.,50./ ! cm/s + DATA ftns/1./, ftng/1./ + + +! will be defined later using consat values + REAL :: rhowater + REAL :: rhosnow +!JJS 20140116 These variables are declared in the beginning of the module. +!JJS 20140116 No need to declared again here. +! REAL :: xnor +! REAL :: xnos +! REAL :: xnoh, rhohail +! REAL :: xnog, rhograul +! + + REAL , PARAMETER :: & +! constb = 0.8, constd = 0.25, o6 = 1./6., & + constb = 0.8, constd = 0.11, o6 = 1./6., & + cdrag = 0.6 + REAL , PARAMETER :: abar = 19.3, bbar = 0.37, & + p0 = 1.0e5 + REAL , PARAMETER :: rhoe_s = 1.29 + +! for terminal velocity flux + INTEGER :: min_q, max_q + REAL :: t_del_tv, del_tv, flux, fluxin, fluxout + LOGICAL :: notlast + +!----------------------------------------------------------------------- +! This program calculates precipitation fluxes due to terminal velocities. +!----------------------------------------------------------------------- + + dtb=dt + pi=acos(-1.) + +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + xnor = tnw*1.0e8 + rhowater = roqr*1000. + xnos = tns*1.0e8 ! Consistent with ConSat + rhosnow = roqs*1000. + +! tng and roqg are assigned with hail numbers in consat if (ihail.eq.1) + xnog = tng*1.0e8 + rhograul = roqg*1000. + xnoh = tnh*1.0e8 + rhohail = roqh*1000. + + consta=2115.0*0.01**(1-constb) +! constc=152.93*0.01**(1-constd) + constc=78.63*0.01**(1-constd) + +! Gamma function + gambp4=gammagce(constb+4.) + gamdp4=gammagce(constd+4.) + gam4pt5=gammagce(4.5) + gam4bbar=gammagce(4.+bbar) +! +! cmin=1.e-10 +! +!*********************************************************************** +! Calculate precipitation fluxes due to terminal velocities. +!*********************************************************************** +! +!- Calculate termianl velocity (vt?) of precipitation q?z +!- Find maximum vt? to determine the small delta t + +!$OMP PARALLEL DO & +!$OMP FIRSTPRIVATE(dtb, pi, rhowater, rhosnow, gambp4) & +!$OMP FIRSTPRIVATE(consta, constc, gamdp4, gam4pt5, gam4bbar) & +!$OMP PRIVATE(i,k,fv,tmp1,term0,pptrain, pptsnow,pptgraul, pptice, ppthail) & +!$OMP PRIVATE(qcz, qrz, qiz, qsz, qgz, qhz, zz, dzw, prez, rhoz, orhoz,r00) & +!$OMP PRIVATE(csed, rsed, ised, ssed, gsed, hsed) & +!$OMP PRIVATE(thz, piz) & +!$OMP PRIVATE(vtr, vts, vtg, vth, vti) & +!$OMP PRIVATE(y1, y2, vr, vs, vg) & +!$OMP PRIVATE(vgcr, vgcr2, vscf, vhcr, vhcr2) & +!$OMP PRIVATE(tair, tairc, fexp) & +!$OMP PRIVATE(ftns, ftnsQ, ftng, ftngQ) & +!$OMP PRIVATE(const_vt, const_d, const_m, bb1, bb2) & +!$OMP PRIVATE(aice, vice, ftns0, ftng0, fros, fros0, qhz2,qgz2) & +!$OMP PRIVATE(min_q, max_q) & +!$OMP PRIVATE(t_del_tv, del_tv, flux, fluxin, fluxout) & +!$OMP PRIVATE(notlast) & +!$OMP SCHEDULE(dynamic) + + j_loop: do j = jts, jte + i_loop: do i = its, ite + + do k = kts, kte + preci3d(i,k,j)=0. + precs3d(i,k,j)=0. + precg3d(i,k,j)=0. + prech3d(i,k,j)=0. + precr3d(i,k,j)=0. + ised(k)=0. + ssed(k)=0. + gsed(k)=0. + hsed(k)=0. + rsed(k)=0. + end do + + pptrain = 0. + pptsnow = 0. + pptgraul = 0. + ppthail = 0. + pptice = 0. + + ! in MKS system + do k = kts, kte + qcz(k)=ql(i,k,j) !Di + qsz(k)=qs(i,k,j) + qhz(k)=qh(i,k,j) + rhoz(k)=rho(i,k,j) + r00(k)=rhoz(k)*0.001 !rho in cgs + thz(k)=th(i,k,j) + piz(k)=pi_mks(i,k,j) + orhoz(k)=1./rhoz(k) + prez(k)=p(i,k,j) + fv(k)=sqrt(rhoe_s/rhoz(k)) +! fv(k)=sqrt(rho(i,1,j)/rhoz(k)) + zz(k)=z(i,k,j) + dzw(k)=dz8w(i,k,j) + enddo !k + + DO k = kts, kte + qgz(k)=qg(i,k,j) + ENDDO + +! +!-- rain +! + t_del_tv=0. + del_tv=dtb + notlast=.true. + DO while (notlast) +! + min_q=kte + max_q=kts-1 +! + + + do k=kts,kte-1 + + vtr(k)=0. + qrz=qr(i,k,j) + if (qrz .gt. cmin) then + min_q=min0(min_q,k) + max_q=max0(max_q,k) + +! old codes from Chern's in MKS +! min_q=min0(min_q,k) +! max_q=max0(max_q,k) + tmp1=sqrt(pi*rhowater*xnor/rhoz(k)/qrz) + tmp1=sqrt(tmp1) + vtr(k)=consta*gambp4*fv(k)/tmp1**constb + vtr(k)=vtr(k)/6. +! new codes from Steve's in cgs + tair=thz(k)*piz(k) + tairc=tair-t0 + y1=qrz ! rhoz(k) need to be in CGS + y2=qcz(k) ! rhoz(k) need to be in CGS + call vqrqi(1,r00(k),fv(k),y1,y2,tair,vtr(k)) !Di + vtr(k)=vtr(k) * 0.01 ! convert back to MKS !Di + + if (.not. vtr(k) .gt. 0.0) cycle ! EMK NUWRF Bug fix + + if (k .eq. 1) then + del_tv=amin1(del_tv,0.9*(zz(k)-topo(i,j))/vtr(k)) + else + del_tv=amin1(del_tv,0.9*(zz(k)-zz(k-1))/vtr(k)) + endif + endif + enddo !do K + + if (max_q .ge. min_q) then +! +!- Check if the summation of the small delta t >= big delta t +! (t_del_tv) (del_tv) (dtb) + + t_del_tv=t_del_tv+del_tv +! + if ( t_del_tv .ge. dtb ) then + notlast=.false. + del_tv=dtb+del_tv-t_del_tv + endif + +! use small delta t to calculate the qrz flux +! termi is the qrz flux pass in the grid box through the upper boundary +! termo is the qrz flux pass out the grid box through the lower boundary +! + fluxin=0. + do k=max_q,min_q,-1 + qrz=qr(i,k,j) + fluxout=rhoz(k)*vtr(k)*qrz + flux=(fluxin-fluxout)/rhoz(k)/dzw(k) + qrz=qrz+del_tv*flux + qrz=amax1(0.,qrz) + qr(i,k,j)=qrz + fluxin=fluxout + rsed(k)=rsed(k)+fluxin + enddo + if (min_q .eq. 1) then + pptrain=pptrain+fluxin*del_tv + else + qrz=qr(i,min_q-1,j) + qrz=qrz+del_tv* & + fluxin/rhoz(min_q-1)/dzw(min_q-1) + qrz=amax1(0.,qrz) !Di 10/23/2012 + qr(i,min_q-1,j)=qrz + endif +! + else + notlast=.false. + endif + ENDDO ! DO WHILE + +! +!-- snow +! + t_del_tv=0. + del_tv=dtb + notlast=.true. + + DO while (notlast) +! + min_q=kte + max_q=kts-1 + +! + do k=kts,kte-1 + vts(k)=0. + + if (qsz(k) .gt. cmin) then + min_q=min0(min_q,k) + max_q=max0(max_q,k) + +! old codes from Chern's in MKS + tmp1=sqrt(pi*rhosnow*xnos/rhoz(k)/qsz(k)) + tmp1=sqrt(tmp1) + vts(k)=constc*gamdp4*fv(k)/tmp1**constd + vts(k)=vts(k)/6. + +! new codes from Steve's in cgs + y1 = qsz(k) + vscf=vsc*fv(k) + + ftns=1. + ftns0=1. + tair=thz(k)*piz(k) + tairc=tair-t0 + + qhz2=qhz(k) + qgz2=qgz(k) + if (k .lt. kte-2 .and. tairc .ge. -5) then + qhz2=qhz(k+1) + qgz2=qgz(k+1) + endif + call sgmap(1,qsz(k),qgz(k),qgz2,qhz(k),qhz2,r00(k),tairc,ftns0) !snow intercept + ftns=ftns0**bsq + fros=1. + call sgmap(3,qsz(k),qgz(k),qgz2,qhz(k),qhz2,r00(k),tairc,fros0) !snow density + fros=fros0**bsq + vts(k)=max(vscf*(r00(k)*y1)**bsq/ftns/fros,0.e0) +! vts(k)=max(vscf*(r00*y1)**bsq/ftns, 0.0) +! ! bs, bsq, vscf are defined in new consat_s + vts(k)=vts(k) * 0.01 ! convert back to MKS + + if (k .eq. 1) then + del_tv=amin1(del_tv,0.9*(zz(k)-topo(i,j))/vts(k)) + else + del_tv=amin1(del_tv,0.9*(zz(k)-zz(k-1))/vts(k)) + endif !k + endif !cmin + enddo ! do k + + if (max_q .ge. min_q) then +! +! +!- Check if the summation of the small delta t >= big delta t +! (t_del_tv) (del_tv) (dtb) + + t_del_tv=t_del_tv+del_tv + + if ( t_del_tv .ge. dtb ) then + notlast=.false. + del_tv=dtb+del_tv-t_del_tv + endif + +! use small delta t to calculate the qsz flux +! termi is the qsz flux pass in the grid box through the upper boundary +! termo is the qsz flux pass out the grid box through the lower boundary +! + fluxin=0. + do k=max_q,min_q,-1 + fluxout=rhoz(k)*vts(k)*qsz(k) + flux=(fluxin-fluxout)/rhoz(k)/dzw(k) + qsz(k)=qsz(k)+del_tv*flux + qsz(k)=amax1(0.,qsz(k)) + qs(i,k,j)=qsz(k) + fluxin=fluxout + ssed(k)=ssed(k)+fluxin + enddo + if (min_q .eq. 1) then + pptsnow=pptsnow+fluxin*del_tv + else + qsz(min_q-1)=qsz(min_q-1)+del_tv* & + fluxin/rhoz(min_q-1)/dzw(min_q-1) + qsz(min_q-1)=amax1(0.,qsz(min_q-1)) !Di 10/23/2012 + qs(i,min_q-1,j)=qsz(min_q-1) + endif +! + else + notlast=.false. + endif + + ENDDO + +! +!--- graupel +! + + t_del_tv=0. + del_tv=dtb + notlast=.true. +! + DO while (notlast) +! + min_q=kte + max_q=kts-1 +! + do k=kts,kte-1 + vtg(k)=0. + + if (qgz(k) .gt. cmin) then + min_q=min0(min_q,k) + max_q=max0(max_q,k) + +! for graupel, based on RH (1984) +! new codes from Steve's in cgs +! y1=rhoz(k) * 0.001 * qgz(k) ! rhoz(k) need to be in CGS + y1 = qgz(k) + vgcr=vgc*fv(k) + vgcr2=vgc2*fv(k) + ftng=1. + ftng0=1. + tair=thz(k)*piz(k) + tairc=tair-t0 + qhz2=qhz(k) + qgz2=qgz(k) + if (k .lt. kte-2 .and. tairc .ge. -5) then + qhz2=qhz(k+1) + qgz2=qgz(k+1) + endif + call sgmap(2,qsz(k),qgz(k),qgz2,qhz(k),qhz2,r00(k),tairc,ftng0) !ftng0 is graupel intercept + ftng=ftng0**bgq + vtg(k)=amax1(vgcr*(r00(k)*y1)**bgq/ftng, 0.0) + ! bg, vgcr, bgq are defined in new consat_s + vtg(k)=vtg(k) * 0.01 ! convert back to MKS + if (y1.gt.qrog2)then !Di + ftng=ftng0**bgq2 !Di + vtg(k)=amax1(vgcr2*(r00(k)*y1)**bgq2/ftng, 0.0) !Di + ! bg, vgcr, bgq are defined in new consat_s !Di + vtg(k)=vtg(k) * 0.01 ! convert back to MKS + endif + + if (k .eq. 1) then + del_tv=amin1(del_tv,0.9*(zz(k)-topo(i,j))/vtg(k)) + else + del_tv=amin1(del_tv,0.9*(zz(k)-zz(k-1))/vtg(k)) + endif +! + endif !qgz + enddo !k + + if (max_q .ge. min_q) then +! +! +!- Check if the summation of the small delta t >= big delta t +! (t_del_tv) (del_tv) (dtb) + + t_del_tv=t_del_tv+del_tv + + if ( t_del_tv .ge. dtb ) then + notlast=.false. + del_tv=dtb+del_tv-t_del_tv + endif + +! use small delta t to calculate the qgz flux +! termi is the qgz flux pass in the grid box through the upper boundary +! termo is the qgz flux pass out the grid box through the lower boundary +! + fluxin=0. + do k=max_q,min_q,-1 + fluxout=rhoz(k)*vtg(k)*qgz(k) + flux=(fluxin-fluxout)/rhoz(k)/dzw(k) + qgz(k)=qgz(k)+del_tv*flux + qgz(k)=amax1(0.,qgz(k)) + qg(i,k,j)=qgz(k) + fluxin=fluxout + gsed(k)=gsed(k)+fluxin + enddo + if (min_q .eq. 1) then + pptgraul=pptgraul+fluxin*del_tv + else + qgz(min_q-1)=qgz(min_q-1)+del_tv* & + fluxin/rhoz(min_q-1)/dzw(min_q-1) + qgz(min_q-1)=amax1(0.,qgz(min_q-1)) !Di 10/23/2012 + qg(i,min_q-1,j)=qgz(min_q-1) + endif +! + else + notlast=.false. + endif +! + ENDDO +! +!--- hail +! + + t_del_tv=0. + del_tv=dtb + notlast=.true. +! + DO while (notlast) +! + min_q=kte + max_q=kts-1 + + do k=kts,kte-1 + vth(k)=0. + + if (qhz(k) .gt. cmin) then + min_q=min0(min_q,k) + max_q=max0(max_q,k) + +! new codes from Steve's in cgs + y1 = qhz(k) + vhcr=vhc/sqrt(r00(k)) !Di + vth(k)=amax1(vhcr*(y1*r00(k))**bhq, 0.e0) !Di + vth(k)=vth(k) * 0.01 ! convert back to MKS + + if (k .eq. 1) then + del_tv=amin1(del_tv,0.9*(zz(k)-topo(i,j))/vth(k)) + else + del_tv=amin1(del_tv,0.9*(zz(k)-zz(k-1))/vth(k)) + endif +! + endif !qhz + enddo !k + + if (max_q .ge. min_q) then +! +! +!- Check if the summation of the small delta t >= big delta t +! (t_del_tv) (del_tv) (dtb) + + t_del_tv=t_del_tv+del_tv + + if ( t_del_tv .ge. dtb ) then + notlast=.false. + del_tv=dtb+del_tv-t_del_tv + endif + +! use small delta t to calculate the qhz flux +! termi is the qhz flux pass in the grid box through the upper boundary +! termo is the qhz flux pass out the grid box through the lower boundary +! + fluxin=0. + do k=max_q,min_q,-1 + fluxout=rhoz(k)*vth(k)*qhz(k) + flux=(fluxin-fluxout)/rhoz(k)/dzw(k) + qhz(k)=qhz(k)+del_tv*flux + qhz(k)=amax1(0.,qhz(k)) + qh(i,k,j)=qhz(k) + fluxin=fluxout + hsed(k)=hsed(k)+fluxin + enddo + if (min_q .eq. 1) then + ppthail=ppthail+fluxin*del_tv + else + qhz(min_q-1)=qhz(min_q-1)+del_tv* & + fluxin/rhoz(min_q-1)/dzw(min_q-1) + qhz(min_q-1)=amax1(0.,qhz(min_q-1)) !Di 10/23/2012 + qh(i,min_q-1,j)=qhz(min_q-1) + endif +! + else + notlast=.false. + endif +! + ENDDO + +! +!-- cloud ice (03/21/02) follow Vaughan T.J. Phillips at GFDL +! + + t_del_tv=0. + del_tv=dtb + notlast=.true. +! + DO while (notlast) +! + min_q=kte + max_q=kts-1 +! + do k=kts,kte-1 + qiz=qi(i,k,j) + vti(k)=0. + if (qiz .gt. cmin) then + min_q=min0(min_q,k) + max_q=max0(max_q,k) + +! new codes from Steve's in cgs. + vti(k)=0. + y1=rhoz(k) * 1000. * qiz ! y1 in g/m**3 + if (y1 .ge. 1.e-6) then + y1=qiz + y2=qcz(k) + tair=thz(k)*piz(k) + tairc=tair-t0 + call vqrqi(2,r00(k),fv(k),y1,y2,tair,vti(k)) ! Di + endif !y1 + vti(k)=vti(k) * 0.01 ! convert back to MKS + +! EMK: prevent divsion by zero and underflow value + if (vti(k) .gt. 1.e-20) then + if (k .eq. 1) then + del_tv=amin1(del_tv,0.9*(zz(k)-topo(i,j))/vti(k)) + else + del_tv=amin1(del_tv,0.9*(zz(k)-zz(k-1))/vti(k)) + endif + endif +! else +! vti(k)=0. + endif + enddo + + if (max_q .ge. min_q) then +! +! +!- Check if the summation of the small delta t >= big delta t +! (t_del_tv) (del_tv) (dtb) + + t_del_tv=t_del_tv+del_tv + + if ( t_del_tv .ge. dtb ) then + notlast=.false. + del_tv=dtb+del_tv-t_del_tv + endif + +! use small delta t to calculate the qiz flux +! termi is the qiz flux pass in the grid box through the upper boundary +! termo is the qiz flux pass out the grid box through the lower boundary +! + + fluxin=0. + do k=max_q,min_q,-1 + qiz=qi(i,k,j) + fluxout=rhoz(k)*vti(k)*qiz + flux=(fluxin-fluxout)/rhoz(k)/dzw(k) + qiz=qiz+del_tv*flux + qiz=amax1(0.,qiz) + qi(i,k,j)=qiz + fluxin=fluxout + ised(k)=ised(k)+fluxin + enddo + if (min_q .eq. 1) then + pptice=pptice+fluxin*del_tv + else + qiz=qi(i,min_q-1,j) + qiz=qiz+del_tv* & + fluxin/rhoz(min_q-1)/dzw(min_q-1) + qiz=amax1(0.,qiz) !Di 10/23/2012 + qi(i,min_q-1,j)=qiz + endif +! + else + notlast=.false. + endif +! + ENDDO !notlast + + do k = kts, kte + preci3d(i,k,j)=ised(k) + precs3d(i,k,j)=ssed(k) + precg3d(i,k,j)=gsed(k) + prech3d(i,k,j)=hsed(k) + precr3d(i,k,j)=rsed(k) + end do + +! prnc(i,j)=prnc(i,j)+pptrain +! psnowc(i,j)=psnowc(i,j)+pptsnow +! pgrauc(i,j)=pgrauc(i,j)+pptgraul +! picec(i,j)=picec(i,j)+pptice +! + +! write(6,*) 'i=',i,' j=',j,' ', pptrain, pptsnow, pptgraul, pptice +! call flush(6) + + snowncv(i,j) = pptsnow + snownc(i,j) = snownc(i,j) + pptsnow + graupelncv(i,j) = pptgraul + graupelnc(i,j) = graupelnc(i,j) + pptgraul + hailncv(i,j) = ppthail + hailnc(i,j) = hailnc(i,j) + ppthail + RAINNCV(i,j) = pptrain + pptsnow + pptgraul + pptice + ppthail + RAINNC(i,j) = RAINNC(i,j) + pptrain + pptsnow + pptgraul + pptice + ppthail + sr(i,j) = 0. + if (RAINNCV(i,j) .gt. 0.) sr(i,j) = (pptsnow + pptgraul + pptice + ppthail) / RAINNCV(i,j) + + ENDDO i_loop + ENDDO j_loop + + + END SUBROUTINE fall_flux + +!----------------------------------------------------------------------- +!c Correction of negative values + SUBROUTINE negcor ( X, rho, dz8w, & + ims,ime, jms,jme, kms,kme, & ! memory dims + itimestep, ics, & + its,ite, jts,jte, kts,kte ) ! tile dims +!----------------------------------------------------------------------- + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: X + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN ) :: rho, dz8w + integer, INTENT(IN ) :: itimestep, ics + +!c Local variables +! REAL, DIMENSION( kts:kte ) :: Y1, Y2 + REAL :: A0, A1, A2 + + A1=0. + A2=0. + do k=kts,kte + do j=jts,jte + do i=its,ite + A1=A1+max(X(i,k,j), 0.)*rho(i,k,j)*dz8w(i,k,j) + A2=A2+max(-X(i,k,j), 0.)*rho(i,k,j)*dz8w(i,k,j) + enddo + enddo + enddo + +! A1=0.0 +! A2=0.0 +! do k=kts,kte +! A1=A1+Y1(k) +! A2=A2+Y2(k) +! enddo + + A0=0.0 + + if (A1.NE.0.0.and.A1.GT.A2) then + A0=(A1-A2)/A1 + + if (mod(itimestep,540).eq.0) then + if (ics.eq.1) then + write(61,*) 'kms=',kms,' kme=',kme,' kts=',kts,' kte=',kte + write(61,*) 'jms=',jms,' jme=',jme,' jts=',jts,' jte=',jte + write(61,*) 'ims=',ims,' ime=',ime,' its=',its,' ite=',ite + endif + if (ics.eq.1) then + write(61,*) 'qv timestep=',itimestep + write(61,*) ' A1=',A1,' A2=',A2,' A0=',A0 + else if (ics.eq.2) then + write(61,*) 'ql timestep=',itimestep + write(61,*) ' A1=',A1,' A2=',A2,' A0=',A0 + else if (ics.eq.3) then + write(61,*) 'qr timestep=',itimestep + write(61,*) ' A1=',A1,' A2=',A2,' A0=',A0 + else if (ics.eq.4) then + write(61,*) 'qi timestep=',itimestep + write(61,*) ' A1=',A1,' A2=',A2,' A0=',A0 + else if (ics.eq.5) then + write(61,*) 'qs timestep=',itimestep + write(61,*) ' A1=',A1,' A2=',A2,' A0=',A0 + else if (ics.eq.6) then + write(61,*) 'qg timestep=',itimestep + write(61,*) ' A1=',A1,' A2=',A2,' A0=',A0 + else + write(61,*) 'wrong cloud specieis number' + endif + endif + + do k=kts,kte + do j=jts,jte + do i=its,ite + X(i,k,j)=A0*AMAX1(X(i,k,j), 0.0) + enddo + enddo + enddo + endif + + END SUBROUTINE negcor + + SUBROUTINE consat_s ( itaobraun) + +!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +! c +! Tao, W.-K., and J. Simpson, 1989: Modeling study of a tropical c +! squall-type convective line. J. Atmos. Sci., 46, 177-202. c +! c +! Tao, W.-K., J. Simpson and M. McCumber, 1989: An ice-water c +! saturation adjustment. Mon. Wea. Rev., 117, 231-235. c + +! c +! Tao, W.-K., and J. Simpson, 1993: The Goddard Cumulus Ensemble c +! Model. Part I: Model description. Terrestrial, Atmospheric and c +! Oceanic Sciences, 4, 35-72. c +! c +! Tao, W.-K., J. Simpson, D. Baker, S. Braun, M.-D. Chou, B. c +! Ferrier,D. Johnson, A. Khain, S. Lang, B. Lynn, C.-L. Shie, c +! D. Starr, C.-H. Sui, Y. Wang and P. Wetzel, 2003: Microphysics, c +! radiation and surface processes in the Goddard Cumulus Ensemble c +! (GCE) model, A Special Issue on Non-hydrostatic Mesoscale c +! Modeling, Meteorology and Atmospheric Physics, 82, 97-137. c +! c +! Lang, S., W.-K. Tao, R. Cifelli, W. Olson, J. Halverson, S. c +! Rutledge, and J. Simpson, 2007: Improving simulations of c +! convective system from TRMM LBA: Easterly and Westerly regimes. c +! J. Atmos. Sci., 64, 1141-1164. c +! c +! Coded by Tao (1989-2003), modified by S. Lang (2006/07) c +! c +! Implemented into WRF by Roger Shi 2006/2007 c +! Additional modifications by Tao, Roger and Steve 2009 c +! July 25 2010 c +! Tao November 12 2010 c +!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + IMPLICIT NONE + +! itaobraun=0 ! see Tao and Simpson (1993) +! itaobraun=1 ! see Tao et al. (2003) + + integer :: itaobraun + real :: cn0 + + integer k + real :: ga3, ga4, ga5, ga7, ga8, ga9, ga3g2, ga4g2, ga5g2, ga6d + real :: ga3h, ga4h, ga5hh, bc1, dc1, esc, egs, erc, amc, ehs, ehg + real :: ehw, ehi, ehr, sc13, ga6, ga5gh2, egc, cpi2, grvt, tca, dwv + real :: dva, amw, ars, rw, cw, ci, cd1, cd2, ga3b, ga4b, ga6b, ga5bh + real :: ga3g, ga4g, ga5gh, ga3d, ga4d, ga5dh, ac1, ac2, ac3, cc1, eri + real :: ami, ESR, eiw, ui50, ri50, cmn, y1, egi, egr, apri, bpri + +!JJS 1/3/2008 vvvvv +!JJS the following common blocks have been moved to the top of +!JJS module_mp_gsfcgce.F +! +! real, dimension (1:31) :: a1, a2 +! data a1/.7939e-7,.7841e-6,.3369e-5,.4336e-5,.5285e-5,.3728e-5, & +! .1852e-5,.2991e-6,.4248e-6,.7434e-6,.1812e-5,.4394e-5,.9145e-5, & +! .1725e-4,.3348e-4,.1725e-4,.9175e-5,.4412e-5,.2252e-5,.9115e-6, & +! .4876e-6,.3473e-6,.4758e-6,.6306e-6,.8573e-6,.7868e-6,.7192e-6, & +! .6513e-6,.5956e-6,.5333e-6,.4834e-6/ +! data a2/.4006,.4831,.5320,.5307,.5319,.5249,.4888,.3894,.4047, & +! .4318,.4771,.5183,.5463,.5651,.5813,.5655,.5478,.5203,.4906, & +! .4447,.4126,.3960,.4149,.4320,.4506,.4483,.4460,.4433,.4413, & +! .4382,.4361/ +!JJS 1/3/2008 ^^^^^ + +!23456789012345678901234567890123456789012345678901234567890123456789012 +! ****************************************************************** +!JJS + cmin=1.e-20 + al = 2.5e10 + cp = 1.004e7 + rd1 = 1.e-3 + rd2 = 2.2 +!JJS + cpi=4.*atan(1.) + cpi2=cpi*cpi + grvt=980. !hail +! + c38=3.799052e3 + c358=35.86 + c610=6.1078e3 + c149=1.496286e-5 + c879=8.794142 + c172=17.26939 + c409=4098.026 + c76=7.66 + c218=21.87456 + c580=5807.695 + c141=1.414435e7 + +! + tca=2.43e3 + dwv=.226 + dva=1.718e-4 + amw=18.016 + ars=8.314e7 +! scv=2.2904487 +! + t0=273.16 + t00=238.16 + alv=2.5e10 !latent heat vaporization + alf=3.336e9 + als=2.8336e10 + avc=alv/cp + afc=alf/cp + asc=als/cp + rw=4.615e6 + cw=4.187e7 + ci=2.093e7 +!*** DEFINE THE COEFFICIENTS USED IN TERMINAL VELOCITY +!*** DEFINE THE DENSITY AND SIZE DISTRIBUTION OF PRECIPITATION +!********** HAIL OR GRAUPEL PARAMETERS ********** + +! tnw ! rain intercept (1/cm**4) +! roqr ! rain density (g/cm**3) +! tns ! snow intercept (1/cm**4) +! roqs ! snow density (g/cm**3) +! tng ! graupel intercept (1/cm**4) +! roqg ! graupel density (g/cm**3) + +!********** HAIL PARAMETERS ********** +! tnh = 0.002 !hail medium size + tnh = 0.01 +! tnh = 0.0002 !hail large size +! tnh = 0.02 !hail small size + roqh = 0.9 !hail + cd1=6.e-1 !hail + cd2=4.*grvt/(3.*cd1) !hail + ah=sqrt(cd2*roqh) !hail + bh=0.5 !hail + + +!!!!!!!!check /08/08/12!!!!!!!!!!!! + roqg=.3 !bulk density +! ag=341.84 !for bulk density of 0.4 + ag=330.22 !for bulk density of 0.3 +! ag=314.54 !for bulk density of 0.2 + bg=.36 + ag2=544.83 !for bulk density of 0.5 + bg2=.54 + tng=.04 + + roqg2=0.5 + qrog2=2.0 !g/m**3 +! qrog2=9.0 !g/m**3 !fixed size test + qrog2=qrog2*1.e-6 + ag=330.22 + ag2=544.83 + bg=0.36 + bg2=0.54 + +!********** SNOW PARAMETERS ********** +! 6/15/02 +! TNS=1. +! TNS=.08 ! if ice913=1, tao's + tns=.16 ! if ice913=0, tao's snow intercept + roqs=.1 ! snow density g/cm + as=78.63154 ! coefficient a in snow terminal velocity + bs=.11 ! coefficient b in snow terminal velocity + roqs=.05 ! snow density (g/cm**3) + tns=0.1 ! snow intercept (1/cm**4) + as=151.01 + bs=0.24 + +!********** RAIN PARAMETERS ********** + aw=2115. + bw=.8 + roqr=1. !not defined in Steve's + tnw=.08 !not defined in Steve's +!***************************************************************** + bgh=.5*bg + bgh2=.5*bg2 + bsh=.5*bs + bwh=.5*bw + bhh=.5*bh + bgq=.25*bg + bgq2=.25*bg2 + bsq=.25*bs + bwq=.25*bw + bhq=.25*bh !hail + +!*** define the snow and graupel size mapping parameters for improve=3 + tslopes=0.11177209 ! increase tns by 50 from 0 to -35C !sgmap000 + tslopeg=0.05756866 ! increase tng by 7.5 from 0 to -35C + + draimax=0.0500 !maximum rain diameter (cm) + draimax=draimax**4.*roqr*cpi + dsnomin=0.0100 !minimum snow diameter (cm) !fin16 + dsnomin4=dsnomin**4.*0.900*cpi !density at 100 microns + + dgrpmin=0.0135 !minimum graupel diameter (cm) + dgrpmin4=dgrpmin**4.*roqg*cpi + + xs=0.97 + sno11=0.70 !fin15 + sno00=-0.24 !fin17 + dsno11=3.25 !fin8 + dsno00=0.40 !fin12 + sexp11=1.5 !sgmapfin17 + sexp00=0.9 !fin15 + stt=-35. !iterate + stexp=0.42 !fin18 + slim=1.00 !fin5 + sbase=0.04000 !sgmap00s + + xg=0.98 + grp11=0.30 !sgmap00x + grp00=0.30 !sgmap00x + dgrp11=2.70 !sgmap001 + dgrp00=2.60 + gexp11=0.20 !sgmap004 + gexp00=0.20 !sgmap004 + gtt=-35. !sgmap006 made consistent + gtexp=0.40 + glim=0.90 + gbase=0.0130 !sgmap00u + + hai00=3.25 !g/m**3 fin20 + hai11=0.50 !g/m**3 fin20 + htt0=-5.00 !deg C fin20 + htt1=-50.00 !deg C fin20 + haixp=2.7 !exponent fin20 + +!**********GAMMA FUNCTION CALCULATIONS************* + ga3=2. + ga4=6. + ga5=24. + ga6=120. + ga7=720. + ga8=5040. + ga9=40320. +! + ga3b = gammagce(3.+bw) + ga4b = gammagce(4.+bw) + ga6b = gammagce(6.+bw) + ga5bh = gammagce((5.+bw)/2.) + ga3g = gammagce(3.+bg) + ga4g = gammagce(4.+bg) + ga5gh = gammagce((5.+bg)/2.) + ga3d = gammagce(3.+bs) + ga4d = gammagce(4.+bs) + ga5dh = gammagce((5.+bs)/2.) + + ga4g=11.63177 + ga3g=3.3233625 + ga5gh=1.608355 + if(bg.eq.0.37) ga4g=9.730877 + if(bg.eq.0.37) ga3g=2.887512 + if(bg.eq.0.37) ga5gh=1.526425 + if(bg.eq.0.36) ga4g=9.599978 + if(bg.eq.0.36) ga3g=2.857136 + if(bg.eq.0.36) ga5gh=1.520402 + if(bg2.eq.0.54) ga4g2=12.298653 + if(bg2.eq.0.54) ga3g2=3.474196 + if(bg2.eq.0.54) ga5gh2=1.635061 + ga3d=2.54925 + ga4d=8.285063 + ga5dh=1.456943 + if(bs.eq.0.57) ga3d=3.59304 + if(bs.eq.0.57) ga4d=12.82715 + if(bs.eq.0.57) ga5dh=1.655588 + if(bs.eq.0.24) ga3d=2.523508 + if(bs.eq.0.24) ga4d=8.176166 + if(bs.eq.0.24) ga5dh=1.451396 + if(bs.eq.0.11) ga3d=2.218906 + if(bs.eq.0.11) ga4d=6.900796 + if(bs.eq.0.11) ga5dh=1.382792 + + ga6d=144.93124 + if(bs.eq.0.24) ga6d=181.654791 + ga3h=gammagce(3.+bh) !hail + ga4h=gammagce(4.+bh) !hail + ga5hh=gammagce((5.+bh)/2.) !hail +! +!CCCCC LIN ET AL., 1983 OR LORD ET AL., 1984 CCCCCCCCCCCCCCCCC + ac1=aw + ac2=ag ! Steve only defines ac1 and ac2 + ac3=as ! need to talk about these 3 parameters. + + bc1=bw + cc1=as + dc1=bs + + zrc=(cpi*roqr*tnw)**0.25 + zsc=(cpi*roqs*tns)**0.25 + zgc=(cpi*roqg*tng)**0.25 + zgc2=(cpi*roqg2*tng)**0.25 + zhc=(cpi*roqh*tnh)**0.25 !hail + + vrc=aw*ga4b/(6.*zrc**bw) + + vrc0=-26.7 + vrc1=20600./zrc + vrc2=-204500./(zrc*zrc) + vrc3=906000./(zrc*zrc*zrc) + + vsc=as*ga4d/(6.*zsc**bs) + vgc=ag*ga4g/(6.*zgc**bg) + vgc2=ag2*ga4g2/(6.*zgc2**bg2) + vhc=ah*ga4h/(6.*zhc**bh) !hail +! **************************** + rn1=9.4e-15 + rn2=1.e-3 + bnd2=2.0e-3 ! if ice913=0 6/15/02 tao's + + esi=0.70 + rn3=.25*cpi*tns*as*esi*ga3d + + esc=0.45 + rn4=.25*cpi*esc*tns*as*ga3d + + eri=.1 ! 6/17/02 tao's ice913=0 (not 1) + rn5=.25*cpi*eri*tnw + rn50=-.267e2*ga3 + rn51=5.15e3*ga4 + rn52=-1.0225e4*ga5 + rn53=7.55e3*ga6 + + ami=1./(24.*6.e-9) ! 6/15/02 tao's + rn6=cpi2*eri*tnw*roqr*ami + rn60=-.267e2*ga6 + rn61=5.15e3*ga7 + rn62=-1.0225e4*ga8 + rn63=7.55e3*ga9 + + ESR=1. ! also if ice913=1 for tao's + rn7=cpi2*esr*tnw*tns*roqs + rn8=cpi2*esr*tnw*tns*roqr + + egs=.1 + rn9=cpi2*egs*tns*tng*roqs + + rn10=4.*tns + rn101=.65 + rn102=.44*sqrt(as/dva)*ga5dh + rn10a=alv*als*amw/(tca*ars) + rn10b=alv/tca + rn10c=ars/(dwv*amw) + + rn11=2.*cpi*tns*tca/alf + rn11a=cw/alf + + ami50=4.8e-7*(dsnomin*1.e4/2./50.)**3 + ami100=1.51e-7 ! improve < 3 + ami40=2.46e-7*.875**3 !fin24 35 microns + + eiw=1. + ui50=100. ! 6/15/02 tao's + ri50=dsnomin/2. + + cmn=1.05e-15 + rn12=cpi*eiw*ui50*ri50*ri50 + do k=1,31 + y1=1.-aa2(k) + rn13(k)=aa1(k)*y1/(ami50**y1-ami40**y1) + rn12a(k)=rn13(k)/ami50 + rn12b(k)=aa1(k)*ami50**aa2(k) + rn25a(k)=aa1(k)*cmn**aa2(k) + + BergCon1(k)=6.*aa1(k)*ami50**(aa2(k)-1.) + BergCon2(k)=-2.*aa1(k)*ami50**aa2(k)*1.2 + + BergCon3(k)=6.*aa2(k)/((aa2(k)+1.)*(aa2(k)+2.)) & + *aa1(k)*ami50**(aa2(k)-1.) + BergCon4(k)=2.*(1.-aa2(k))/((aa2(k)+1.)*(aa2(k)+2.)) & + *aa1(k)*ami50**aa2(k)*1.2 + enddo +! + egc=0.65 + rn14=.25*cpi*egc*ag*tng*ga3g + rn142=.25*cpi*egc*ag2*tng*ga3g2 !high dens graupel + + egi=.1 + rn15=.25*cpi*egi*tng*ag*ga3g + rn15a=.25*cpi*egi*tng*ag*ga3g + rn15a2=.25*cpi*egi*tng*ag2*ga3g2 !high dens graupel + rn152=.25*cpi*egi*tng*ag2*ga3g2 !high dens graupel + + egr=1. + rn16=cpi2*egr*tng*tnw*roqr + rn17=2.*cpi*tng + rn17a2=.31*ga5gh2*sqrt(ag2/dva) !high dens graupel + rn17b=cw-ci + rn17c=cw + rn171=2.*cpi*tng*alv*dwv + rn172=2.*cpi*tng*tca + rn17a=.31*ga5gh*sqrt(ag/dva) +! + apri=.66 + bpri=1.e-4 + bpri=0.5*bpri ! 6/17/02 tao's + rn18=20.*cpi2*bpri*tnw*roqr + rn18a=apri + rn191=.78 !Are this same as rnn191 (listed below)? + rn192=.31*ga5gh*sqrt(ag/dva) !Are this same as rnn192 (listed below)? + rn192_2=.31*ga5gh2*sqrt(ag2/dva) !high dens graupel + rn19b=cw/alf + rn19=2.*cpi*tng*tca/alf + rn19a=cw/alf +! + rn20=2.*cpi*tng + rn20a=als*als*amw/(tca*ars) + rn20b=als/tca + rn30a=alv*alv*amw/(tca*ars) + rn30=2.*cpi*tng + + bnd3=2.e-3 + rn21=1.e-3 + bnd21=1.5e-3 +! + erc=1. + rn22=.25*cpi*erc*tnw +! + rn23=2.*cpi*tnw + rn23a=.31*ga5bh*sqrt(ac1) + rn23b=alv*alv/rw + rn231=.78 + rn232=.31*ga3*sqrt(3.e3/dva) +! +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +!cc +!cc "c0" in routine "consat" (2d), "consatrh" (3d) +!cc if ( itaobraun.eq.1 ) --> betah=0.5*beta=-.46*0.5=-0.23; cn0=1.e-6 +!cc if ( itaobraun.eq.0 ) --> betah=0.5*beta=-.6*0.5=-0.30; cn0=1.e-8 + + itaobraun=0 + + cn0=1.e-8 + beta=-.6 +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +! + rn25=cn0 + rn30b=alv/tca + rn30c=ars/(dwv*amw) + rn31=1.e-17 + + rn32=4.*51.545e-4 +!! + rn33=4.*tns + rn331=.65 + rn332=.44*sqrt(as/dva)*ga5dh +! + amc=1./(24.*4.e-9) + rn34=cpi2*esc*amc*as*roqs*tns*ga6d + rn35=alv*alv/(cp*rw) + + gn17=2.*cpi*tng !4ice revised + gn17a=.31*ga5gh*sqrt(ag) !4ice revised + gn17a2=.31*ga5gh2*sqrt(ag2) !4ice revised + + ehs=1. + hn9=cpi2*ehs*tns*tnh*roqs + ehg=0.3 + hn10=cpi2*ehg*tng*tnh*roqg + ehw=1. + hn14=.25*cpi*ehw*tnh*ga3h*ah + ehi=1. + hn15a=.25*cpi*ehi*tnh*ga3h*ah + ehr=1. + hn16=cpi2*ehr*tnh*tnw*roqr + hn17=2.*cpi*tnh + hn17a=.31*ga5hh*sqrt(ah) + hn19=2.*cpi*tnh/alf + hn19a=.31*ga5hh*sqrt(ah) + hn10a=als*als/rw + hn20=2.*cpi*tnh + hn20b=.31*ga5hh*sqrt(ah) + +! JDC add schmidt number term + sc13 = 0.8420526 + rn102 = rn102 * sc13 + rn17a = rn17a * sc13 + rn17a2 = rn17a2 * sc13 + rn192 = rn192 * sc13 + rn192_2 = rn192_2 * sc13 + rn232 = rn232 * sc13 + rn332 = rn332 * sc13 + + END SUBROUTINE consat_s + +!JJS +!JJS REAL FUNCTION GAMMA(X) +!JJS Y=GAMMLN(X) +!JJS GAMMA=EXP(Y) +!JJS RETURN +!JJS END +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +!JJS real function GAMMLN (xx) + real function gammagce (xx) +!********************************************************************** + implicit none + + real*8 cof(6),stp,half,one,fpf,x,tmp,ser + data cof,stp / 76.18009173,-86.50532033,24.01409822, & + -1.231739516,.120858003e-2,-.536382e-5, 2.50662827465 / + data half,one,fpf / .5, 1., 5.5 / +! + real xx + real gammln + integer j + + x=xx-one + tmp=x+fpf + tmp=(x+half)*log(tmp)-tmp + ser=one + do j=1,6 + x=x+one + ser=ser+cof(j)/x + enddo !j + gammln=tmp+log(stp*ser) +!JJS + gammagce=exp(gammln) +!JJS + + END FUNCTION gammagce + +!DIR$ ATTRIBUTES FORCEINLINE :: sgmap + SUBROUTINE sgmap(isg,qcs,qcg,qcg2,qch,qch2,r00,tairc,ftnsg) +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +! compute base snow/graupel intercept scaling factor - ftnsg +! isg -- flag +! 1 ftnsg=snow intercept scaling factor +! 2 ftnsg=graupel intercept scaling factor +! 3 ftnsg=snow density scaling factor +! tns is the actual intercept +! +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + IMPLICIT NONE + +! common/size/ tnw,tns,tng,roqs,roqg,roqr !defined in the beginning of the module + integer, intent(in) :: isg +! integer, intent(in) :: i, j, k +! INTEGER, INTENT(IN) :: ims,ime, jms,jme, kms,kme, & +! its,ite, jts,jte, kts,kte + real, intent(in) :: r00, tairc +! real, DIMENSION( ims:ime, jms:jme, kms:kme ), intent(in) :: qcs,qcg, qch +! real, DIMENSION( its:ite, jts:jte, kts:kte ), intent(in) :: qcs,qcg, qch + real, intent(in) :: qcs,qcg,qcg2,qch,qch2 + real, intent(out) :: ftnsg + + +! LOCAL variables + +!! for snomap +! real :: xs,sno11,sno00,dsno11,dsno00,sexp11,sexp00,stt, & +! stexp,sbase,tslopes,dsnomin,slim +!! for grpmap +! real :: xg,grp11,grp00,dgrp11,dgrp00,gexp11,gexp00,gtt, & +! gtexp,gbase,tslopeg,dgrpmin, glim + + real :: taird, qsg, qsg1, xx, fexp !, cpi, cmin Di + real :: ftnsT, sno1, dsno1, sexp1, ftnsQ, tnsmax, densno + real :: ftngT, grp1, dgrp1, gexp1, ftngQ, tngmax + real :: hx, gx, hgx + real :: kk + real :: hai2, dhai1 +! CPI=4.*ATAN(1.) +! cmin=1.e-20 !4ice + + ftnsg=1. + +! if (isg.eq.1.or.isg.eq.3) qsg=qcs(i,k,j) +! if (isg.eq.2.) qsg = qcg(i,k,j) + if (isg.eq.1.or.isg.eq.3) qsg=qcs +!NUWRF EMK...Fix options 2 and 4. + if (isg.eq.2) qsg = qcg + if (isg.eq.4) qsg = qch + + if (qsg .gt. cmin) then + + qsg1=qsg*r00*1.e6 + +! if (isg.eq.1) then !snow + if(isg.eq.1.or.isg.eq.3)then !snow 4ice + taird=min(0.,max(stt,tairc)+0.0) + ftnsT=exp(-1.*tslopes*taird) + sno1=sno11 + dsno1=dsno11 + sexp1=sexp11 + + if (taird.gt.stt) then + sno1=sno00-(sno00-sno11)*(taird/stt)**stexp + dsno1=dsno00-(dsno00-dsno11)*(taird/stt)**stexp + sexp1=sexp00-(sexp00-sexp11)*(taird/stt)**stexp + endif !taird + + hx=0. + gx=0. + hgx=1. + + if(qch2*1.e6*r00.gt.0.008) & + hx=max(1.,qch2*1.e6*r00*125.) + if(qcg2*1.e6*r00.gt.0.040) & + gx=max(1.,qcg2*1.e6*r00*25.) + hgx=hx+gx + hgx=max(1.,hgx) + + xx=xs-xs*min(slim,max(0.,(qsg1-sno1)/dsno1)**sexp1) + ftnsT=ftnsT**xx + fexp=xx + ftnsQ=1.0 + ftnsQ=(qsg1/sbase)**fexp + ftnsg=ftnsT*ftnsQ*hgx + tnsmax=r00*qsg/dsnomin4 + + if (ftnsg*tns.gt.tnsmax) ftnsg=tnsmax/tns !4ice +! densno=0.004168*(ftnsg*tns/qsg/r00)**0.3115 !4ice Heymsfield et al. 2004 + densno=0.001996*(ftnsg*tns/qsg/r00)**0.2995 !Brandes et al. 2007 + if(isg.eq.3) ftnsg=min(densno,0.9)/roqs !4ice + + else if (isg.eq.2) then !graupel + taird=min(0.,max(gtt,tairc)+0.0) + ftngT=exp(-1.*tslopeg*taird) + grp1=grp11 + dgrp1=dgrp11 + gexp1=gexp11 + + if (taird.gt.gtt) then + grp1=grp00-(grp00-grp11)*(taird/gtt)**gtexp + dgrp1=dgrp00-(dgrp00-dgrp11)*(taird/gtt)**gtexp + gexp1=gexp00-(gexp00-gexp11)*(taird/gtt)**gtexp + endif !taird + + xx=xg-xg*min(glim,max(0.0,(qsg1-grp1)/dgrp1)**gexp1) + ftngT=ftngT**xx + fexp=xx + ftngQ=1.0 + ftngQ=(qsg1/gbase)**fexp + ftnsg=ftngT*ftngQ + tngmax=r00*qsg/dgrpmin4 + if (ftnsg*tng.gt.tngmax) ftnsg=tngmax/tng + + elseif(isg.eq.4)then !hail + hai2=hai00 + if(tairc.le.htt0.and.tairc.ge.htt1) & !fin18 + hai2=hai11+(hai00-hai11)*((tairc-htt1)/(htt0-htt1))**haixp !fin18 + if(tairc.le.htt1) hai2=hai11 !fin18 + dhai1=hai2 !x2 + if(qsg1.ge.hai2) & + ftnsg=1.0-0.80*min(max((qsg1-hai2)/dhai1,0.),1.) ! fin16 + + endif !isg + + endif !qsg + + end subroutine sgmap + +! compute fall speed of cloud rain and ice + SUBROUTINE vqrqi(isg,r00,fv,qri,ql,tair,ww1) +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +! compute fall speed of cloud rain and ice +! isg=1, for rain +! isg=2, for ice +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + implicit none + + integer, intent(in) :: isg + real, intent(in) :: r00, fv,qri,ql,tair + real, intent(inout) :: ww1 + +! LOCAL variables + integer :: ic + real :: y1,vr,vs,vg + real :: const_vt, const_d, const_m !cpi, cmin Di + real :: bb1, bb2,ice_fall + real :: bin_factor, ftnw, ftnwmin + real, dimension(7) :: aice, vice + data aice/1.e-6, 1.e-5, 1.e-4, 1.e-3, 0.01, 0.1, 1./ + data vice/5,15,30,35,40,45,50/ + +! cmin=1.e-40 +! CPI=4.*ATAN(1.) + ice_fall=0. + const_vt=1.49e4 + const_d=11.9 + const_m=1./5.38e7 + + y1=r00*qri + ww1=0. + + if (y1 .gt. cmin) then + + if (isg.eq.1) then ! rain + + ftnw=1. + if(ql.lt.cmin .and. tair .gt. t0)then + bin_factor=0.11*(1000.*qri)**(-1.27) + 0.98 + bin_factor=min(bin_factor, 1.30) + ftnw=1./bin_factor**3.35 + ftnwmin=r00*qri/draimax + if(qri.le.0.001) ftnw=max(ftnw,ftnwmin/tnw) + endif + + vs=sqrt( y1 ) + vg=sqrt( vs) +! vr=vrc0+vrc1*vg+vrc2*vs+vrc3*vg*vs + vr=vrc0+vrc1*vg/ftnw**0.25+vrc2*vs/ftnw**0.50+vrc3*vg*vs/ftnw**0.75 + ww1=max(fv*vr, 0.e0) + + + else if (isg.eq.2) then ! cloud ice + + y1=1.e6*r00*qri ! to g/m**3 + + if (y1 .gt. 1.e-6) then + y1=y1*1.e-3 + bb1=const_m*y1**0.25 + bb2=const_d*bb1**0.5 + ww1=max(const_vt*bb2**1.31, 0.0) + ww1=ww1*100. !cm/s + if (ww1 .gt. 50.) ww1=50. ! SLang + endif !y1 + endif !isg + endif !y1 + + end subroutine vqrqi + + SUBROUTINE saticel_s (dt, dx, itaobraun, istatmin, & + new_ice_sat, id, improve, & + ptwrf, qvwrf, qlwrf, qrwrf, & + qiwrf, qswrf, qgwrf, qhwrf, & + rho_mks, pi_mks, p0_mks, w_mks, & + itimestep, xland, & + refl_10cm, diagflag, do_radar_ref, & ! GT added for reflectivity calcs + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte, & +!NUWRF BEGIN + re_cloud_gsfc, re_rain_gsfc, re_ice_gsfc, & + re_snow_gsfc, re_graupel_gsfc, re_hail_gsfc, & ! cloud effective radius + physc, physe, physd, physs, physm, physf, & + acphysc, acphyse, acphysd, acphyss, acphysm, acphysf & +#if ( WRF_CHEM == 1) +!JJS 20110525 vvvvv + ,aero, icn_diag, nc_diag, gid, & +!JJS 20110525 ^^^^^ +! EMK + chem_opt, & + gsfcgce_gocart_coupling & +#endif + ,ii,j,irestrict) +!NUWRF END + +!----------------------------------------------------------------------- +! USE module_dm + IMPLICIT NONE +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +! c +! History: c +! c +! Coded by Tao (1989-2003), modified by S. Lang (2006/07) c +! c +! Implemented into WRF by Jainn Shi 2006/2007 c +! Improved by S. Lang (2008-2009) c +! Implemented by Tao, Jainn Shi and tested by Jainn Shi c +! Modified by Tao, Jul. 2010 c +! Modified by Tao, Aug. 2010 c +! Added 4ICE code (from S. Lang) into NU-WRF by Di Wu in 2014 c +! Added aerosol coupling by Jainn Shi, Mar. 2014 c +! Added cloud droplet eff. radius code by Jainn Shi, Dec. 2014 c +! Code optimization by J. Mielikainen (2016) c +! c +! References: c +! c +! Tao, W.-K., and J. Simpson, 1989: Modeling study of a tropical c +! squall-type convective line. J. Atmos. Sci., 46, 177-202. c +! c +! Tao, W.-K., J. Simpson and M. McCumber, 1989: An ice-water c +! saturation adjustment. Mon. Wea. Rev., 117, 231-235. c +! c +! c +! Tao, W.-K., and J. Simpson, 1993: The Goddard Cumulus Ensemble c +! Model. Part I: Model description. Terrestrial, Atmospheric and c +! Oceanic Sciences, 4, 35-72. c +! c +! Tao, W.-K., J. Simpson, D. Baker, S. Braun, M.-D. Chou, B. c +! Ferrier,D. Johnson, A. Khain, S. Lang, B. Lynn, C.-L. Shie, c +! D. Starr, C.-H. Sui, Y. Wang and P. Wetzel, 2003: Microphysics, c +! radiation and surface processes in the Goddard Cumulus Ensemble c +! (GCE) model, A Special Issue on Non-hydrostatic Mesoscale c +! Modeling, Meteorology and Atmospheric Physics, 82, 97-137. c +! c +! Lang, S., W.-K. Tao, R. Cifelli, W. Olson, J. Halverson, S. c +! Rutledge, and J. Simpson, 2007: Improving simulations of c +! convective system from TRMM LBA: Easterly and Westerly regimes. c +! J. Atmos. Sci., 64, 1141-1164. c +! c +! Tao, W.-K., J. J. Shi, S. Lang, C. Peters-Lidard, A. Hou, S. c +! Braun, and J. Simpson, 2007: New, improved bulk-microphysical c +! schemes for studying precipitation processes in WRF. Part I: c +! Comparisons with other schemes. c +! c +! Lang, S., W.-K. Tao, X. Zeng, and Y. Li, 2011: Reducing the Biases in c +! Simulated Radar Reflectivities from a Bulk Microphysics Scheme: c +! Tropical Convective Systems. J. Atmos. Sci., 68, 2306-2320. c +! c +! Shi, J. J., T. Matsui, W.-K. Tao, C. Peters-Lidard, M. Chin, Q. Tan, c +! K. Pickering, N. Guy, S. Lang, and E. Kemp., 2014: Implementation of c +! an Aerosol-Cloud Microphysics-Radiation Coupling into the NASA c +! Unified WRF: Simulation Results for the 6-7 August 2006 AMMA Special c +! Observing Period. Quart. J. Roy. Meteor. Soc., 140, 2158-2175, c +! doi:10.1002/qj.2286. c +! c +! Stephen E. Lang, Wei-Kuo Tao, Jiun-Dar Chern, Di Wu, c +! and Xiaowen Li, 2014: Benefits of a Fourth Ice Class c +! in the Simulated Radar Reflectivities of Convective Systems c +! Using a Bulk Microphysics Scheme. J. Atmos. Sci., 71, 3583–3612. c +! doi: http://dx.doi.org/10.1175/JAS-D-13-0330.1 c +! c +! Lang, S., W.-K. Tao, J.-D. Chern, D. Wu, and X. Li, 2014: c +! Benefits of a 4th ice class in the simulated radar reflectivities c +! of convective systems using a bulk microphysics scheme. J. Atmos. c +! Sci., 71, 3583-3612. doi: http://dx.doi.org/10.1175/JAS-D-13-0330.1 c +! c +! Tao, W.-K., D. Wu, S. Lang, J.-D. Chern, C. Peters-Lidard, c +! A. Fridlind, and T. Matsui (2016), High-resolution NU-WRF c +! simulations of a deep convective-precipitation system during c +! MC3E: Further improvements and comparisons between Goddard c +! microphysics schemes and observations, J. Geophys. Res. Atmos., c +! 121, 1278-1305, doi:10.1002/2015JD023986. c +! c +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +! +! COMPUTE ICE PHASE MICROPHYSICS AND SATURATION PROCESSES +! + +!cc using scott braun's way for pint, pidep computations + INTEGER, INTENT(IN ) :: itaobraun, improve, new_ice_sat + integer, intent(in) :: id + integer, intent(in) :: itimestep,istatmin + real, intent(in) :: dt ! timestep (second) + real, intent(in) :: dx ! grid resolution (meters) + real :: thresh_evap +!cc + +!JJS 20090623 vvvvv + integer, intent(in) :: ids,ide,jds,jde,kds,kde + integer, intent(in) :: ims,ime,jms,jme,kms,kme + integer, intent(in) :: its,ite,jts,jte,kts,kte + integer, intent(in) :: ii,j,irestrict ! global i-index inside local i-loops: ii+i-1 + integer i, k, kp + + real, dimension(CHUNK) :: afcp, alvr, ascp, avcp, rp0, pi0, pir, & + pr0, r00, rrs, rrq, fv0, fvs, cp409, & + rr0, zrr, zsr, zgr, zhr, & + cp580, cs580, cv409, vscf, vgcf, vgcf2, & + vhcr, dwvp, r3f, r4f, r5f, r6f, & + r12r, r14f ,r14f2, r15af, r15af2, r15f, r18r, & + r22f, r25rt, r32rt, r331r, r332rf, & + r34f + + real :: bg3, bg3_2, bgh5, bgh5_2, bs3 ,bs6, bsh5, bw3 ,bw6 ,bwh5, & + cmin, cmin1, cmin2, d2t, del, f2 ,f3, ft, qb0, r25a, r_nci, & + sccc, sddd, seee, sfff, smmm, ssss, tb0, temp, ucog ,ucog2, & + ucor ,ucos, ucoh, uwet, rdt, bnd1, c_nci, & + r10t, r20t, r23t + + real :: a_1, a_2, a_3, a_4 + real :: a_11, a_22, a_33, a_44 + real :: zdry, zwet, zwet0 + real :: vap_frac +!JJS 20090623 ^^^^^ + + real, dimension (CHUNK, kts:kte) :: fv + real, dimension (CHUNK, kts:kte) :: dpt, dqv + real, dimension (CHUNK, kts:kte) :: qcl, qrn, & + qci, qcs, qcg, qch + real, dimension (CHUNK, kts:kte) :: qsz, qgz,qhz +!JJS + real, dimension (CHUNK, kms:kme), INTENT(INOUT) & + :: ptwrf, qvwrf, & + qlwrf, qrwrf, & + qiwrf, qswrf, & + qgwrf, qhwrf + +!JJS in MKS + real, dimension (CHUNK, kms:kme), INTENT(IN ) & + :: rho_mks, & + pi_mks, & + p0_mks, & + w_mks +!JJS COMMON /BADV/ + real, dimension (CHUNK) :: & + vg, zg, & + ps, pg, & + prn, psn, & + pwacs, wgacr, & + pidep, pint, & + qsi, ssi, & + esi, esw, & + qsw, pr, & + ssw, pihom, & + pidw, pimlt, & + psaut, qracs, & + psaci, psacw, & + qsacw, praci, & + pmlts, pmltg, & + asss + +!JJS COMMON/BSAT/ + real, dimension (CHUNK) :: & + praut, pracw, & + psfw, psfi, & + dgacs, dgacw, & + dgaci, dgacr, & + pgacs, wgacs, & + qgacw, wgaci, & + qgacr, pgwet, & + pgaut, pracs, & + psacr, qsacr, & + pgfr, psmlt, & + pgmlt, psdep, & + pgdep, piacr, & + egs + +!JJS COMMON/BSAT1/ + real, dimension (CHUNK) :: & + pt, qv, & + qc, qr, & + qi, qs, & + qg, qh, & + tair, & + tairc, rtair, & + dep, dd, & + dd1, qvs, & + dm, rq, & + rsub1, col, & + cnd, ern, & + dlt1, dlt2, & + dlt3, dlt4, & + zr, vr, & + zs, vs + + +!JJS COMMON/BSAT2H/ + real, dimension (CHUNK) :: & + phfr,phmlt, & !4ice + dhacw,qhacw,dhacr,qhacr,whacr, & !4ice + dhaci,whaci,dhacs,phacs,whacs, & !4ice + dhacg,whacg,phwet,phdep,phsub, & !4ice + pvaph,primh,scv,dwv,tca !4ice + +!JJS COMMON/B5/ + real, dimension (CHUNK,kts:kte) :: rho !only in satice in cgs + +!JJS COMMON/B6/ + real, dimension (CHUNK, kts:kte) :: p0, pi, f0, ww1 + real, dimension (CHUNK, kts:kte) :: & + fd, fe, & + st, sv, & + sq, sc, & + se, sqa + +!JJS COMMON/BI/ IT(its:ite,jts:jte), ICS(its:ite,jts:jte,4) + integer, dimension (CHUNK) :: it + integer, dimension (CHUNK, 4) :: ics + + integer :: i24h + real :: r2is, r2ig, r2ih + + +!JJS COMMON/MICRO/ + real, dimension (CHUNK, kms:kme), INTENT(INOUT) :: & + physc, physe, physd, & + physs, physm, physf, & + acphysc, acphyse, acphysd, & + acphyss, acphysm, acphysf + +! EMK NUWRF + real, dimension(CHUNK, kts:kte) :: dbz + +!JJS 9/30/2009 for Steve's new improvement + + integer :: ihalmos + real :: xnsplnt, xmsplnt + real :: hmtemp1, hmtemp2, hmtemp3, hmtemp4 + real :: ftnw, ftnwmin + real :: xssi, fssi, rssi, xsubi, wssi + real :: dmicrons, dmicrong, dvair, alpha + real, dimension (CHUNK) :: tairN, tairI, & + ftns, ftng, & + ftns0, ftng0, & + ftnh, ftnh0, & + pihms, pihmg, & + pimm, pcfr, & + pssub, pgsub, & + fros, fros0, & + vi, zh, & + vh, pihmh, & + dda0, pvapg, & + pracg,qracg, & + qrimh,pg2h !4ice revised + + real, dimension (CHUNK) :: y1, y2, y3, y4, & + y5, y6, y7, y8 +! for Xiping's new dbz code + real :: hfact, sfact, yy1 + real :: xncld, esat, rv, rlapse_m + real :: delT, bhi !Di deleted cpi + real :: rc, ra, cna + real :: xccld, xknud, cunnf, diffar + real :: qgz2, qhz2 + + real :: r11t, r19t, r19at, r30t, r33t + real, dimension(CHUNK) :: r7rf, r8rf, r9rf, r16rf + real, dimension(CHUNK) :: r101r, r102rf, r191r, r192rf, r192rf2 + real, dimension(CHUNK) :: r231r, r232rf + real, dimension(CHUNK) :: h9r, h10r, h14r, h15ar, h16r, h17r, h17aq, & + h19aq, h19rt, h10ar, h20t, h20bq + real, dimension(CHUNK) :: bin_factor, rim_frac + real :: term1, term2, fdwv, dwv0 !JDC water vapor diffusivity correction term + integer :: iter + +!NUWRF BEGIN + +#if ( WRF_CHEM == 1) +! JJS 20110525 vvvvv +! for inline Gocart coupling + INTEGER, INTENT(IN ) :: gid + INTEGER, PARAMETER :: num_go = 14 ! number of the gocart aerosol species + REAL, DIMENSION( CHUNK, kms:kme, num_go), intent(in) :: aero + REAL, DIMENSION( CHUNK, kms:kme ), intent(out) :: icn_diag !IN concentration [#/Litre] + REAL, DIMENSION( CHUNK, kms:kme ), intent(out) :: nc_diag !cloud concentration [#/cm3] + integer,intent(in) :: chem_opt ! EMK + integer,intent(in) :: gsfcgce_gocart_coupling ! EMK + +! Local Variables + + real :: e_sat, e_dry !saturated and dry air water vapor [hPa, mb] + real :: rh_rad ! relative humidity [%] + real :: super_sat !super saturation [%] + real :: ccn_out(CHUNK) ! CCN conc [#/cm3] ! EMK TEST + real :: icn_out(CHUNK) ! IN conc [#/Litter] ! EMK TEST + real :: P_liu_daum ! autoconversion rate [g/cm3 s-1] ! + real :: re_liu_daum ! effective radius of cloud [micron] ! + real,parameter :: min_icn = 0.01 !minimum # conc of IN [#/Litre] + +! JJS 20110525 ^^^^^ +#endif + +!JJS 20140226 variables for the calculation of effective radius of cloud species + real, dimension (CHUNK, kms:kme) , INTENT(INOUT ) & + :: re_cloud_gsfc, re_rain_gsfc, & + re_ice_gsfc, re_snow_gsfc, & + re_graupel_gsfc, re_hail_gsfc + REAL , DIMENSION( CHUNK ) , INTENT(IN) :: XLAND + real, parameter :: roqi = 0.9179 ! ice density + real, parameter :: ccn_over_land = 1500 ! [#/cm3] climatological value + real, parameter :: ccn_over_water = 150 ! [#/cm3] climatological value + real :: L_cloud ! cloud water [g/cm3] ! + real :: I_cloud ! cloud water [g/cm3] ! + real :: mu, ccn_ref, lambda + real :: gamfac1, gamfac3 +!JJS 20140226 ^^^^^ +!NUWRF END + +!+---+-----------------------------------------------------------------+ + REAL, DIMENSION(CHUNK, kms:kme), INTENT(INOUT):: refl_10cm ! GT + + LOGICAL, OPTIONAL, INTENT(IN) :: diagflag + INTEGER, OPTIONAL, INTENT(IN) :: do_radar_ref +!+---+-----------------------------------------------------------------+ + +! JDC dwv0 is water vapor diffusivity at STP + dwv0 = 0.226 + +!JJS20090623 save + + if (itimestep.eq.1) then + do k = kts, kte +!dir$ vector aligned + DO i=1,irestrict + physc(i,k)=0. + physe(i,k)=0. + physd(i,k)=0. + physs(i,k)=0. + physf(i,k)=0. + physm(i,k)=0. + acphysc(i,k)=0. + acphyse(i,k)=0. + acphysd(i,k)=0. + acphyss(i,k)=0. + acphysf(i,k)=0. + acphysm(i,k)=0. + ENDDO + enddo !k + if ( wrf_dm_on_monitor() .and. i.eq.its .and. j.eq.jts ) then + write(6, *) ' latent heating variables have been initialized to 0. at timestep = ', itimestep + endif + endif + +!JJS convert from mks to cgs, and move from WRF grid to GCE grid + do k=kts,kte +!dir$ vector aligned + DO i=1,irestrict + rho(i,k)=rho_mks(i,k)*0.001 + p0(i,k)=p0_mks(i,k)*10.0 + pi(i,k)=pi_mks(i,k) + ww1(i,k)=w_mks(i,k)*100. + dpt(i,k)=ptwrf(i,k) + dqv(i,k)=qvwrf(i,k) + qcl(i,k)=qlwrf(i,k) + qrn(i,k)=qrwrf(i,k) + qci(i,k)=qiwrf(i,k) + qcs(i,k)=qswrf(i,k) + qcg(i,k)=qgwrf(i,k) + qch(i,k)=qhwrf(i,k) + ENDDO + enddo !k + + do k=kts,kte +!dir$ vector aligned + DO i=1,irestrict + fv(i,k)=sqrt(rho(i,1)/rho(i,k)) + ENDDO + enddo !k +!JJS + +! +! ****** THREE CLASSES OF ICE-PHASE (LIN ET AL, 1983) ********* + + d2t=dt + + r2ig=1. + r2is=1. + r2ih=1. + +!C TAO 2007 END + + cmin=1.e-20 +!JJS 10/7/2008 + cmin1=1.e-20 + cmin2=1.e-35 + + xssi=0.16 ! maximum allowable ice supersaturation from SEL + rssi=0.05 ! maximum allowable residual ice supersaturation SEL + xsubi=0.70 ! ice RH below which qi must sublimate + +! HALLET-MOSSOP RIME SPLINTERING parameters + ihalmos=1 + xnsplnt=370. ! peak # splinters per milligram of rime + xmsplnt=4.4e-8 ! mass of a splinter (from Ferrier 1994) + hmtemp1=-2. + hmtemp2=-4. + hmtemp3=-6. + hmtemp4=-8. + + it(:)=1 +!!!!!!!!08/07/12 + f2=rd1*d2t + f3=rd2*d2t + + ft=dt/d2t + + bw3=bw+3. + bs3=bs+3. + bg3=bg+3. + bh3=bh+3 + bsh5=2.5+bsh + bgh5=2.5+bgh + bhh5=2.5+bhh + bwh5=2.5+bwh + bw6=bw+6. + bs6=bs+6. +! betah=.5*beta + + r10t=rn10*d2t + r25a=rn25 + + rdt=1./d2t + r11t=rn11*d2t + r19t=rn19*d2t + r19at=rn19a*d2t + r20t=rn20*d2t + r23t=rn23*d2t + r30t=rn30*d2t + r33t=rn33*d2t + bg3_2=bg2+3 + bgh5_2=2.5+bgh2 + +!JJS 20150831 +! Calculate the threshold for reducing spurious evaporation +! a function of dx (grid resolution in km) + + thresh_evap = -39.974 * exp(-1.194 * dx/1000.) + + if ( wrf_dm_on_monitor() .and. itimestep.eq.1 .and. & + i.eq.its .and. j.eq.jts ) then + print *,'GSFCGCE 4ice scheme inside satice improve=',improve + print *,'dx, thresh_evap = ', dx, thresh_evap + print *,'no reduce suprious evaporation adjustment' + endif + + Rc=1.e-3 ! cloud droplet radius 10 microns + Ra=1.e-5 ! aerosol radius 0.1 microns + Cna=500. ! contact nuclei conc per cc + Bhi=1.01e-2 ! pollen (Deihl et al. 2006) + +!C ****************************************************************** + + do 1000 k=kts,kte + kp=k+1 + tb0=0. + qb0=0. + +!dir$ vector aligned + DO i=1,irestrict + +! EMK BUG FIX...Initialize variable +#if ( WRF_CHEM == 1) + ccn_out(i) = 0.e0 + icn_out(i) = 0.e0 + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcgce_gocart_coupling == 1) ) then + icn_diag(i,k) = icn_out(i) ! #/Litre + nc_diag(i,k) = ccn_out(i) ! #/cm3 + else + icn_diag(i,k) = 0. + nc_diag(i,k) = 0. + end if +#endif +! EMK END + + rp0(i)=3.799052e3/p0(i,k) + pi0(i)=pi(i,k) + pir(i)=1./(pi(i,k)) + pr0(i)=1./p0(i,k) + r00(i)=rho(i,k) + rr0(i)=1./rho(i,k) + rrs(i)=sqrt(rr0(i)) + rrq(i)=sqrt(rrs(i)) + f0(i,k)=al/cp/pi(i,k) + fv0(i)=fv(i,k) + fvs(i)=sqrt(fv(i,k)) + zrr(i)=1.e5*zrc*rrq(i) + zsr(i)=1.e5*zsc*rrq(i) + zgr(i)=1.e5*zgc*rrq(i) + zhr(i)=1.e5*zhc*rrq(i) + cp409(i)=c409*pi0(i) + cv409(i)=c409*avc ! + cp580(i)=c580*pi0(i) + cs580(i)=c580*asc ! + alvr(i)=r00(i)*alv + afcp(i)=afc*pir(i) + avcp(i)=avc*pir(i) + ascp(i)=asc*pir(i) + vscf(i)=vsc*fv0(i) + vgcf(i)=vgc*fv0(i) + vgcf2(i)=vgc2*fv0(i) + vhcr(i)=vhc*rrs(i) + dwvp(i)=c879*pr0(i) + + r3f(i)=rn3*fv0(i) + r4f(i)=rn4*fv0(i) + r5f(i)=rn5*fv0(i) + r6f(i)=rn6*fv0(i) + + r12r(i)=rn12*r00(i) + r14f(i)=rn14*fv0(i) + r14f2(i)=rn142*fv0(i) + r15f(i)=rn15*fv0(i) + r15af(i)=rn15a*fv0(i) !4ice revised + r15af2(i)=rn15a2*fv0(i) !4ice revised + r18r(i)=rn18*rr0(i) + r22f(i)=rn22*fv0(i) + r25rt(i)=rn25*rr0(i)*d2t + r32rt(i)=rn32*d2t*rrs(i) + + +!JJS added 10/1/2009 + r7rf(i)=rn7*rr0(i)*fv0(i) + r8rf(i)=rn8*rr0(i)*fv0(i) + r9rf(i)=rn9*rr0(i)*fv0(i) + r16rf(i)=rn16*rr0(i)*fv0(i) + r101r(i)=rn101*rr0(i) + r102rf(i)=rn102*rrs(i)*fvs(i) + r191r(i)=rn191*rr0(i) + r192rf(i)=rn192*rrs(i)*fvs(i) + r192rf2(i)=rn192_2*rrs(i)*fvs(i) + r331r(i)=rn331*rr0(i) + r332rf(i)=rn332*rrs(i)*fvs(i) + r34f(i)=rn34*fv0(i) + + r231r(i)=rn231*rr0(i) + r232rf(i)=rn232*rrs(i)*fvs(i) + + h9r(i)=hn9*rr0(i) + h10r(i)=hn10*rr0(i) + h14r(i)=hn14*rrs(i) + h15ar(i)=hn15a*rrs(i) + h16r(i)=hn16*rr0(i) + h17r(i)=hn17*rr0(i) + h17aq(i)=hn17a*rrq(i) + h19aq(i)=hn19a*rrq(i) + h19rt(i)=hn19*rr0(i)*d2t + h10ar(i)=hn10a*r00(i) + h20t(i)=hn20*d2t ! + h20bq(i)=hn20b*rrq(i) + + pt(i)=dpt(i,k) + qv(i)=dqv(i,k) + qc(i)=qcl(i,k) + qr(i)=qrn(i,k) + qi(i)=qci(i,k) + qs(i)=qcs(i,k) + qg(i)=qcg(i,k) + qh(i)=qch(i,k) + if (qc(i) .le. cmin) qc(i)=0.0 + if (qr(i) .le. cmin) qr(i)=0.0 + if (qi(i) .le. cmin) qi(i)=0.0 + if (qs(i) .le. cmin) qs(i)=0.0 + if (qg(i) .le. cmin) qg(i)=0.0 + if (qh(i) .le. cmin) qh(i)=0.0 + tair(i)=(pt(i)+tb0)*pi0(i) + tairc(i)=tair(i)-t0 + zr(i)=zrr(i) + zs(i)=zsr(i) + zg(i)=zgr(i) + zh(i)=zhr(i) + vr(i)=0.0 + vs(i)=0.0 + vg(i)=0.0 + vi(i)=0.0 + vh(i)=0.0 + + ftns(i)=1. + ftng(i)=1. + ftns0(i)=1. + ftng0(i)=1. + fros(i)=1. + ftnh(i)=1. + ftnh0(i)=1. + + cnd(i)=0.0 + dep(i)=0. + ern(i)=0.0 + pint(i)=0.0 + pidep(i)=0.0 + + psdep(i)=0. + pgdep(i)=0. + dd1(i)=0. + dd(i)=0. + pgsub(i)=0. + psmlt(i)=0. + pgmlt(i)=0. + pimlt(i)=0. + psacw(i)=0. + piacr(i)=0. + + pssub(i)=0.0 + pgsub(i)=0.0 + + psfw(i)=0.0 + psfi(i)=0.0 + pidep(i)=0.0 + + pgfr(i)=0. + psacr(i)=0. + wgacr(i)=0. + pihom(i)=0. + pidw(i)=0.0 + + psaut(i)=0.0 + psaci(i)=0.0 + praci(i)=0.0 + pwacs(i)=0.0 + qsacw(i)=0.0 + + pracs(i)=0.0 + qracs(i)=0.0 + qsacr(i)=0.0 + pgaut(i)=0.0 + + praut(i)=0.0 + pracw(i)=0.0 + pgfr(i)=0.0 + + qracs(i)=0.0 + + pgacs(i)=0.0 + qgacw(i)=0.0 + dgaci(i)=0.0 + dgacs(i)=0.0 + wgacs(i)=0.0 + wgaci(i)=0.0 + dgacw(i)=0.0 + dgacr(i)=0. + pgwet(i)=0.0 + + qgacr(i)=0.0 + + pihom(i)=0.0 + pimlt(i)=0.0 + pidw(i)=0.0 + pimm(i)=0.0 + pcfr(i)=0.0 + + pihms(i)=0.0 + pihmg(i)=0.0 + ftns(i)=1. + ftng(i)=1. + pmlts(i)=0.0 + pmltg(i)=0.0 + + phfr(i)=0.0 + phmlt(i)=0.0 + dhacw(i)=0.0 + qhacw(i)=0.0 + dhacr(i)=0.0 + qhacr(i)=0.0 + whacr(i)=0.0 + dhaci(i)=0.0 + whaci(i)=0.0 + dhacs(i)=0.0 + phacs(i)=0.0 + whacs(i)=0.0 + dhacg(i)=0.0 + whacg(i)=0.0 + phwet(i)=0.0 + phdep(i)=0.0 + phsub(i)=0.0 + pvapg(i)=0.0 + pvaph(i)=0.0 + primh(i)=0.0 + + dlt4(i)=0.0 + dlt3(i)=0.0 + dlt2(i)=0.0 + +! ****************************************************************** +! *** Y1 : DYNAMIC VISCOSITY OF AIR (U) +! *** DWV : DIFFUSIVITY OF WATER VAPOR IN AIR (PI) +! *** TCA : THERMAL CONDUCTIVITY OF AIR (KA) +! *** Y2 : KINETIC VISCOSITY (V) + + y1(i)=c149*tair(i)**1.5/(tair(i)+120.) + dwv(i)=dwvp(i)*tair(i)**1.81 + tca(i)=c141*y1(i) + scv(i)=1./((rr0(i)*y1(i))**.1666667*dwv(i)**.3333333) + + ENDDO +!dir$ vector aligned + DO i=1,irestrict + +!JJS for calculating processes related to both ice and warm rain + +! *** COMPUTE ZR,ZS,ZG,VR,VS,VG ***************************** + + if (qr(i) .gt. cmin) then + dd(i)=r00(i)*qr(i) + y1(i)=sqrt(dd(i)) + y2(i)=sqrt(y1(i)) + zr(i)=zrc/y2(i) + endif + + call vqrqi(1,r00(i),fv0(i),qr(i),qc(i),tair(i),vr(i)) + call vqrqi(2,r00(i),fv0(i),qi(i),qc(i),tair(i),vi(i)) + + ftns(i)=1. + ftns0(i)=1. + + qhz2=qhwrf(i,k) + qgz2=qgwrf(i,k) + if (k .lt. kte-2 .and. tairc(i) .ge. -5) then + qhz2=qhwrf(i,k+1) + qgz2=qgwrf(i,k+1) + endif + call sgmap(1,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftns0(i)) + call sgmap(3,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),fros0(i)) + + if (qs(i) .gt. cmin) then + dd(i)=r00(i)*qs(i) + y1(i)=dd(i)**.25 + ftns(i)=1. + ftns(i)=ftns0(i)**0.25 + fros(i)=1 !improve4 + fros(i)=fros0(i)**0.25 !improve4 + ZS(i)=ZSC/Y1(i)*ftns(i)*fros(i) !improve4 + ftns(i)=ftns0(i)**bsq + fros(i)=fros0(i)**bsq !improve4 + VS(i)=MAX(vscf(i)*DD(i)**BSQ/ftns(i)/fros(i), 0.) + endif + + ftng(i)=1. + ftng0(i)=1. + call sgmap(2,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftng0(i)) + + if (qg(i) .gt. cmin) then + dd(i)=r00(i)*qg(i) + y1(i)=dd(i)**.25 + ftng(i)=1. + ftng(i)=ftng0(i)**0.25 + + zg(i)=zgc/y1(i)*ftng(i) + if(dd(i).gt.qrog2) zg(i)=zgc2/y1(i)*ftng(i) + + ftng(i)=ftng0(i)**bgq + vg(i)=max(vgcf(i)*dd(i)**bgq/ftng(i), 0.0) + if(dd(i).gt.qrog2)then + ftng(i)=ftng0(i)**bgq2 + vg(i)=max(vgcf2(i)*dd(i)**bgq2/ftng(i), 0.e0) + endif !improve4 + endif !qg + + call sgmap(4,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftnh0(i)) + + if (qh(i) .gt. cmin) then + dd(i)=r00(i)*qh(i) + y1(i)=dd(i)**.25 + ftnh(i)=ftnh0(i)**0.25 + zh(i)=zhc/y1(i)*ftnh(i) + ftnh(i)=ftnh0(i)**bhq + vh(i)=max(vhcr(i)*dd(i)**bhq/ftnh(i), 0.0) + endif + + if (qr(i) .le. cmin1) vr(i)=0.0 + if (qs(i) .le. cmin1) vs(i)=0.0 + if (qg(i) .le. cmin1) vg(i)=0.0 + if (qi(i) .le. cmin1) vi(i)=0.0 + if (qh(i) .le. cmin1) vh(i)=0.0 + +!! ****************************************************************** +!! *** Y1 : DYNAMIC VISCOSITY OF AIR (U) +!! *** DWV : DIFFUSIVITY OF WATER VAPOR IN AIR (PI) +!! *** TCA : THERMAL CONDUCTIVITY OF AIR (KA) +!! *** Y2 : KINETIC VISCOSITY (V) +! + +!* 1 * PSAUT : AUTOCONVERSION OF QI TO QS ***1** +!* 3 * PSACI : ACCRETION OF QI TO QS ***3** +!* 4 * PSACW : ACCRETION OF QC BY QS (RIMING) (QSACW FOR PSMLT) ***4** +!* 5 * PRACI : ACCRETION OF QI BY QR ***5** +!* 6 * PIACR : ACCRETION OF QR OR QG BY QI ***6** +!* 34 * pwacs : collection of qs by qc **34** + + pihms(i)=0.0 + pihmg(i)=0.0 + psaut(i)=0.0 + psaci(i)=0.0 + praci(i)=0.0 + piacr(i)=0.0 + psacw(i)=0.0 + pwacs(i)=0.0 + qsacw(i)=0.0 + ftns(i)=1. + ftng(i)=1. + ftnh(i)=1. + ftns(i)=ftns0(i) + ftng(i)=ftng0(i) + + if (tair(i).lt.t0) then + + rn1=1./300. + bnd1=6.e-5 + esi(i)=0.25 + psaut(i)=r2is*max(rn1*esi(i)*(qi(i)-bnd1*fv0(i)*fv0(i)) ,0.0) + ftns(i)=ftns0(i) + ftng(i)=ftng0(i) + fros(i)=fros0(i) + ftnh(i)=ftnh0(i) + esi(i)=1.0 !esi constant in consatrh via r3f/rn3; use esi( ) to make f(T)/f(q) + dmicrons=(r00(i)*qs(i)/(roqs*fros(i))/cpi/(tns*ftns(i)))**.25*1.e4 + esi(i)=min(1.,(dmicrons/375.)**3.) ! f(dmicrons) + + y1(i)=1.0 + if (vs(i).gt.0.) y1(i)=abs((vs(i)-vi(i)) & + /vs(i)) + psaci(i)=r2is*y1(i)*r3f(i)*qi(i)/zs(i)**bs3*ftns(i)*esi(i) + if(qs(i).le.cmin) psaci(i)=0. + psacw(i)=r2is*r4f(i)*qc(i)/zs(i)**bs3*ftns(i) + if(qs(i).le.cmin) psacw(i)=0. + if (ihalmos.eq.1)then + y2(i)=0. + if((tairc(i).le.hmtemp1).and.(tairc(i).ge.hmtemp4)) & + y2(i)=0.5 + if((tairc(i).le.hmtemp2).and.(tairc(i).ge.hmtemp3)) & + y2(i)=1. + pihms(i)=r2ih*psacw(i)*y2(i)*xnsplnt*1000.*xmsplnt + psacw(i)=psacw(i)-pihms(i) + endif + pwacs(i)=r2is*r34f(i)*qc(i)/zs(i)**bs6*ftns(i)*fros(i) !improve4 + if(qs(i).le.cmin) pwacs(i)=0. + y1(i)=1./zr(i) + y2(i)=y1(i)*y1(i) + y3(i)=y1(i)*y2(i) + y5(i)=1.0 + if (vr(i).gt.0.) y5(i)=abs((vr(i)-vi(i)) & + /vr(i)) + dd(i)=y5(i)*r5f(i)*qi(i)*y3(i)*(rn50+rn51*y1(i) & + +rn52*y2(i)+rn53*y3(i)) + praci(i)=max(dd(i),0.0) + if (qr(i) .le. cmin) praci(i)=0. + y4(i)=y3(i)*y3(i) + dd1(i)=y5(i)*r6f(i)*qi(i)*y4(i)*(rn60+rn61*y1(i) & + +rn62*y2(i)+rn63*y3(i)) + + piacr(i)=max(dd1(i),0.0) + if (qr(i) .le. cmin) piacr(i)=0. + else + qsacw(i)=r2is*r4f(i)*qc(i)/zs(i)**bs3*ftns(i) + if (qs(i) .le. cmin) psacw(i)=0. + endif !tairc + + +!23456789012345678901234567890123456789012345678901234567890123456789012 +!* 21 * PRAUT AUTOCONVERSION OF QC TO QR **21** +!* 22 * PRACW : ACCRETION OF QC BY QR **22** + +#if (WRF_CHEM == 1) +!JJS 20110602 vvvvv + ! EMK...Only execute when GOCART and coupling are selected + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcgce_gocart_coupling == 1) ) then + ! sat vapor pressure [hPa,mb] + e_sat = 6.11 * exp( 5423. *( 1.0/273.15 - 1./tair(i) ) ) + ! dry air vapor pressure [hPa, mb] + e_dry = qv(i) / ( qv(i) + 0.622 ) * p0(i,k) * 1.e-3 ! p0 in [g*cm/s2/cm2] + rh_rad = max(1.e-6, e_dry/e_sat*100.) ! relative humidity [%] + super_sat = max(0.001, rh_rad - 100.e0) !super saturation [%] + ! + ! convert gocart aerosol mass conc to CN + ! + call mass2ccn(tair(i),super_sat,aero(i,k,:),ccn_out(i) ) + ! nc_cgs(i,k) = max(100., ccn_out) !diagnostic cloud droplet conc [#/cm3] + ccn_out(i) = max(100., ccn_out(i)) + +! rho_dryair = p0(i,k) / ( tair(i) * 2.87 * 1.0e6) ! dry air density [g/cm3] + L_cloud = qc(i) * rho(i,k) ! cloud water [g/cm3] + ! g/g g/cm3 + ! call auto_conversion( L_cloud, nc_cgs(i,k), P_liu_daum, re_liu_daum ) + call auto_conversion( L_cloud, ccn_out(i), P_liu_daum, re_liu_daum ) + + praut(i) = P_liu_daum / rho(i,k) !autoconversion rate [g/g s-1] + else + praut(i)=max(rn21*(qc(i)-bnd21),0.0) + end if ! if (gsfcgce_gocart_coupling == 1) +#else + praut(i)=max(rn21*(qc(i)-bnd21),0.0) +!JJS 20110602 ^^^^^ +#endif + + y1(i)=1./zr(i) + y2(i)=y1(i)*y1(i) + y3(i)=y1(i)*y2(i) + y4(i)=r22f(i)*qc(i)*y3(i)*(rn50+rn51*y1(i)+ & + rn52*y2(i)+rn53*y3(i)) + pracw(i)=max(y4(i), 0.0) + if(qr(i) .le. cmin) pracw(i)=0. + +!* 12 * PSFW : BERGERON PROCESSES FOR QS (KOENING, 1971) **12** +!* 13 * PSFI : BERGERON PROCESSES FOR QS **13** + + pidep(i)=0.0 + psfw(i)=0.0 + psfi(i)=0.0 + + ENDDO +!dir$ vector aligned + DO i=1,irestrict + + if (tair(i) .lt. t0) then + y1(i)=max( min(tairc(i), -1.), -31.) + it(i)=int(abs(y1(i))) + y1(i)=rn12a(it(i)) + y2(i)=rn12b(it(i)) + y3(i)=rn13(it(i)) + psfw(i)=r2is*max(d2t*y1(i)*(y2(i)+r12r(i)*qc(i))* & + qi(i), 0.0) + psfi(i)=r2is*y3(i)*qi(i) +! + y4(i)=1./(tair(i)-c358) + y5(i)=1./(tair(i)-c76) + qsw(i)=rp0(i)*exp(c172-c409*y4(i)) + qsi(i)=rp0(i)*exp(c218-c580*y5(i)) + hfact=(qv(i)+qb0-qsi(i))/(qsw(i)-qsi(i)+cmin1) + ! add cmin1 to prevent overflow of hfact + if(hfact.gt.1.) hfact=1. + sfact=1 + SSI(i)=(qv(i)+qb0)/qsi(i)-1. + + fssi=min(xssi,max(rssi,xssi*(tairc(i)+44.)/(44.0-38.0))) !improve4 max ssi f(tair) + fssi=rssi + wssi=ww1(i,k)/100.-2.0 + if(wssi.gt.0.) fssi=rssi+min(xssi,wssi*0.01) + fssi=min(ssi(i),fssi) + +! STEVE : PLEASE CHECK + if (tairc(i).le.-5.) then !meyers + r_nci=max(1.e-3*exp(-.639+12.96*fssi),0.528e-3) !meyers et al. + else + r_nci=min(1.e-3*exp(-.639+12.96*fssi),0.528e-3) !meyers et al. + endif !tairc + + if (r_nci.gt.15.) r_nci=15. !cap at 15000/liter + +! Cooper curve + if( tairc(i) .lt. -40.0 ) then + c_nci = 5.0e-6*exp(0.304*40.0) + else + c_nci = 5.0e-6*exp(0.304*abs(tairc(i))) + end if + r_nci = c_nci +! JDC cap r_nci to the amount corresponding to crystal size of ami50 + r_nci = max(r_nci,r00(i)*qi(i)/ami50) + +#if (WRF_CHEM == 1) + ! EMK...Only execute when GOCART and coupling is turned on. + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcgce_gocart_coupling == 1) ) then + !JJS 20110602 vvvvv + ! Conversion rate of cloud water to ice in the Bergeron porcess based on Meyer + DeMott formulae + ! + ! convert gocart aerosol mass conc to IN + ! p0 need to be converted from g*cm/s2/cm2 to mb (hPa) + ! call mass2icn(p0(i,k)*0.001,tair(i),aero(i,k,:), icn_out) +! call mass2icn(p0(i,k)*0.001,tair(i),aero(i,k,:), icn_out,i,k) + ! EMK...mass2icn requires i,j,k indices, but only prints + ! the values when an error occurs. In no case are the i,j,k + ! used to access a value in an array. + ! We will simply pass a bogus value of j=1 in the call + ! below. + call mass2icn(p0(i,k)*0.001,tair(i),aero(i,k,:), icn_out(i),& + i,1,k) + + icn_out(i) = min(1.e3, max(0.01e0 , icn_out(i)) ) + r_nci = icn_out(i) * 1.e-3 !DeMotto's formuale + !JJS 20110602 ^^^^^ + end if ! if (gsfcgce_gocart_coupling == 1) +#endif + + dd(i)=min((r00(i)*qi(i)/r_nci), ami40) !mean cloud ice mass + yy1=1.-aa2(it(i)) + sfact=(AMI50**YY1-AMI40**YY1)/(AMI50**YY1-dd(i)**YY1) + +!JDC water vapor diffusivity correction term + esi(i) = qsi(i)/rp0(i)*c610 + y3(i) = 1./tair(i) +! term1 = y3(i)*(rn10a*y3(i)-rn10b) + term1 = y3(i)*(rn20a*y3(i)-rn20b) + term2 = rn10c*tair(i)/esi(i) + dd(i) = term1+term2 + fdwv = dd(i)/(term1+term2*dwv0/dwv(i)) + psfw(i) = max( d2t*y1(i)*fdwv*(y2(i)*fdwv & + + r12r(i)*qc(i))*qi(i),0.0 ) + + psfw(i)=0.0 + + if (hfact.gt.0.) then + psfi(i)=r2is*psfi(i)*hfact*sfact*fdwv + else + psfi(i)=0. + endif !hfact + + if(qi(i).le.1.e-5*fv0(i)*fv0(i)) psfi(i)=0.0 + + endif !tair + + ENDDO +!dir$ vector aligned + DO i=1,irestrict + +!TTT***** QG=QG+MIN(PGDRY,PGWET) +!* 9 * PGACS : ACCRETION OF QS BY QG (DGACS,WGACS: DRY AND WET) ***9** +!* 14 * DGACW : ACCRETION OF QC BY QG (QGACW FOR PGMLT) **14** +!* 16 * DGACR : ACCRETION OF QR TO QG (QGACR FOR PGMLT) **16** +!*******PGDRY : DGACW+DGACI+DGACR+DGACS ****** +!* 15 * DGACI : ACCRETION OF QI BY QG (WGACI FOR WET GROWTH) **15** +!* 17 * PGWET : WET GROWTH OF QG **17** +!* Steve turned off PGWET, set PGWET = 0. +!* Steve turned off wgaci, set wgaci = 0. + + y1(i)=abs( vg(i)-vs(i) ) + y2(i)=zs(i)*zg(i) + y3(i)=5./y2(i) + y4(i)=.08*y3(i)*y3(i) + y5(i)=.05*y3(i)*y4(i) + y2(i)=y1(i)*(y3(i)/zs(i)**5+y4(i)/zs(i)**3 & + +y5(i)/zs(i)) + + pgacs(i)=r2ig*r2is*r9rf(i)*y2(i)*ftns(i)*ftng(i)*fros(i) !improve4 + if(qs(i).le.cmin) pgacs(i)=0. + if(qg(i).le.cmin) pgacs(i)=0. + dgacs(i)=pgacs(i) + dgacs(i)=0.0 !Lang et al. 2007 +!crh wgacs(i)=10.*r9rf(i)*y2(i) + wgacs(i)=0.0 + wgacs(i)=10.*r9rf(i)*y2(i)*ftns(i)*ftng(i)*fros(i) !4ice revised +! if(r00(i)*qg(i).gt.qrog2)then !4ice revised +! wgacs(i)=10.*r9rf(i)*y2(i)*ftns(i)*ftng(i)*fros(i) !4ice revised +! endif !4ice revised + if(qg(i).le.cmin) wgacs(i)=0. !4ice revised2 + if(qs(i).le.cmin) wgacs(i)=0. !4ice revised2 + + dhacs(i)=0.0 + whacs(i)=0.0 + y1(i)=abs( vh(i)-vs(i) ) + y2(i)=zs(i)*zh(i) + y3(i)=5./y2(i) + y4(i)=.08*y3(i)*y3(i) + y5(i)=.05*y3(i)*y4(i) + dd(i)=Y1(i)*(Y3(i)/ZS(i)**5+Y4(i)/ZS(i)**3 & + +Y5(i)/ZS(i)) + whacs(i)=r2ih*r2is*min(h9r(i)*dd(i)*ftnh(i)*ftns(i)*fros(i), & + qs(i)/d2t) + if(qs(i).le.cmin) whacs(i)=0. + if(qh(i).le.cmin) whacs(i)=0. + + dhacg(i)=0.0 + whacg(i)=0.0 + y1(i)=abs( vh(i)-vg(i) ) + y2(i)=zg(i)*zh(i) + y3(i)=5./y2(i) + y4(i)=.08*y3(i)*y3(i) + y5(i)=.05*y3(i)*y4(i) + dd(i)=Y1(i)*(Y3(i)/ZG(i)**5+Y4(i)/ZG(i)**3 & + +Y5(i)/ZG(i)) + whacg(i)=r2ih*r2ig*min(h10r(i)*dd(i)*ftnh(i)*ftng(i), & + qg(i)/d2t) + if(r00(i)*qg(i).gt.qrog2) & + whacg(i)=whacg(i)/roqg*roqg2*0.5 !reduce ehg for high dens grp + if(qg(i).le.cmin) whacg(i)=0. + if(qh(i).le.cmin) whacg(i)=0. + + y1(i)=1./zg(i)**bg3 + esi(i)=1.0 !egc constant in consatrh via r14f/rn14; use esi( ) to make f(T)/f(q) + dmicrong=(r00(i)*qg(i)/roqg/cpi/(tng*ftng(i)))**.25*1.e4 + if(r00(i)*qg(i).gt.qrog2)then + y1(i)=1./zg(i)**bg3_2 + dmicrong=(r00(i)*qg(i)/roqg2/cpi/(tng*ftng(i)))**.25*1.e4 + endif + esi(i)=min(1.,(dmicrong/500.)**1.1) ! f(dmicrons) + + dgacw(i)= r2ig*esi(i)*r14f(i)*qc(i)*y1(i)*ftng(i) + if(r00(i)*qg(i).gt.qrog2) & + dgacw(i)=r2ig*esi(i)*r14f2(i)*qc(i)*y1(i)*ftng(i) + if(qg(i).le.cmin) dgacw(i)=0. + + dhacw(i)=0.0 !4ice + y2(i)=1./zh(i)**bh3 !4ice + dhacw(i)=r2ih*max(h14r(i)*qc(i)*y2(i)*ftnh(i), 0.0) !4ice + if(qh(i).le.cmin) dhacw(i)=0. + + if(ihalmos.eq.1)then + y2(i)=0. + if ((tairc(i).le.hmtemp1).and.(tairc(i).ge.hmtemp4)) & + y2(i)=0.5 + if ((tairc(i).le.hmtemp2).and.(tairc(i).ge.hmtemp3)) & + y2(i)=1. + pihmg(i)=r2ig*dgacw(i)*y2(i)*xnsplnt*1000.*xmsplnt + dgacw(i)=r2ig*(dgacw(i)-pihmg(i)) + pihmh(i)=0.0 !4ice + pihmh(i)=r2ih*dhacw(i)*y2(i)*xnsplnt*1000.*xmsplnt !4ice + dhacw(i)=r2ih*(dhacw(i)-pihmh(i)) !4ice + endif !ihalmos + + qgacw(i)=r2ig*dgacw(i) + qhacw(i)=r2ih*dhacw(i) !4ice + y1(i)=1./zg(i)**bg3 + y5(i)=1.0 + if (vg(i).gt.0.) y5(i)=abs((vg(i)-vi(i))/vg(i)) + dgaci(i)= r2ig*y5(i)*r15f(i)*qi(i)*y1(i)*ftng(i) + if(qg(i).le.cmin) dgaci(i)=0. + dgaci(i)=0.0 + wgaci(i)=0.0 + wgaci(i)=y5(i)*r15af(i)*qi(i)*y1(i)*ftng(i) !4ice revised + if(r00(i)*qg(i).gt.qrog2)then !4ice revised + y1(i)=1./zg(i)**bg3_2 + wgaci(i)=y5(i)*r15af2(i)*qi(i)*y1(i)*ftng(i) !4ice revised + endif !4ice revised + if(qg(i).le.cmin) wgaci(i)=0. !4ice revised2 + + dhaci(i)=0.0 !4ice + whaci(i)=0.0 !4ice + y5(i)=1.0 !4ice + if(vh(i).gt.0.) y5(i)=abs((vh(i)-vi(i))/vh(i)) !4ice + y2(i)=1./zh(i)**bh3 !4ice + whaci(i)=r2ih*min(y5(i)*h15ar(i)*qi(i)*y2(i)*ftnh(i), & + qi(i)/d2t) !4ice + if(qh(i).le.cmin) whaci(i)=0. + + y1(i)=abs( vg(i)-vr(i) ) + y2(i)=zr(i)*zg(i) + y3(i)=5./y2(i) + y4(i)=.08*y3(i)*y3(i) + y5(i)=.05*y3(i)*y4(i) + dd(i)=r16rf(i)*y1(i)*(y3(i)/zr(i)**5+y4(i)/zr(i)**3 & + +y5(i)/zr(i))*ftng(i) + dgacr(i)=r2ig*max(dd(i),0.0) + if(qg(i).le.cmin) dgacr(i)=0. + if(qr(i).le.cmin) dgacr(i)=0. + qgacr(i)=dgacr(i) + + pracg(i)=0. + qracg(i)=0. + y2(i)=zr(i)*zg(i) + y3(i)=5./y2(i) + y4(i)=.08*y3(i)*y3(i) + y5(i)=.05*y3(i)*y4(i) + pracg(i)=r16rf(i)/roqr*roqg*y1(i)*(y3(i)/zg(i)**5+y4(i) & + /zg(i)**3+y5(i)/zg(i))*ftng(i) + if(r00(i)*qg(i).gt.qrog2) pracg(i)=pracg(i)/roqg*roqg2 + if(qg(i).le.cmin) pracg(i)=0. + if(qr(i).le.cmin) pracg(i)=0. + qracg(i)=min(d2t*pracg(i), qg(i)) + + y1(i)=abs( vh(i)-vr(i) ) + y2(i)=zr(i)*zh(i) + y3(i)=5./y2(i) + y4(i)=.08*y3(i)*y3(i) + y5(i)=.05*y3(i)*y4(i) + DD(i)=h16r(i)*Y1(i)*ftnh(i)*(Y3(i)/ZR(i)**5 & + +Y4(i)/ZR(i)**3+Y5(i)/ZR(i)) + dhacr(i)=r2ih*max(dd(i), 0.0) + if(qh(i).le.cmin) dhacr(i)=0. + if(qr(i).le.cmin) dhacr(i)=0. + qhacr(i)=dhacr(i) + + if (tair(i) .ge. t0) then + dgacs(i)=0.0 + wgacs(i)=0.0 !4ice revised + whacs(i)=0.0 + whacg(i)=0.0 + dgacw(i)=0.0 + dhacw(i)=0.0 !ice4 + dgaci(i)=0.0 + wgaci(i)=0.0 !4ice revised + whaci(i)=0.0 !ice4 + dgacr(i)=0.0 + pracg(i)=0.0 + dhacr(i)=0.0 + else + pgacs(i)=0.0 + qgacw(i)=0.0 + qhacw(i)=0.0 !ice4 + qgacr(i)=0.0 + qracg(i)=0.0 + qhacr(i)=0.0 + endif + + PGWET(i)=0.0 + if(tair(i) .lt. t0)then !4ice revised + +! NUWRF corrected by Steve and Roger to prevent division by 0 + y1(i)=1./(alf+rn17c*max(tairc(i),-75.0)) + y2(i)=r191r(i)/zg(i)**2+r192rf(i)/zg(i)**bgh5 !4ice revised chern + if(r00(i)*qg(i).gt.qrog2) & !4ice revised chern + y2(i)=(r191r(i)/zg(i)**2+r192rf2(i)/zg(i)**bgh5_2) !4ice revised chern + Y4(i)=ALVR(i)*DWV(i)*(RP0(i)-(QV(i)+QB0))-TCA(i)*TAIRC(i) !4ice revised + DD(i)=Y1(i)*(rn20*ftng(i)*Y4(i)*Y2(i)+(WGACI(i) & !4ice revised chern + +WGACS(i))*(ALF+RN17B*TAIRC(i))) !4ice revised + PGWET(i)=max(DD(i), 0.0) !4ice revised + if(qg(i).le.cmin) pgwet(i)=0. !4ice revised + endif !4ice revised + + + + phwet(i)=0.0 + if (tair(i) .lt. t0) then + y1(i)=1./(alf+rn17c*tairc(i)) + y3(i)=.78/zh(i)**2+h17aq(i)*scv(i)/zh(i)**bhh5 + Y4(i)=ALVR(i)*DWV(i)*(RP0(i)-(QV(i)+QB0))-TCA(i)*TAIRC(i) + DD(i)=Y1(i)*(h17r(i)*ftnh(i)*Y4(i)*Y3(i)+(WHACI(i)+WHACS(i) & + +WHACG(i))*(ALF+RN17B*TAIRC(i))) + phwet(i)=r2ih*max(DD(i), 0.0) + if(qh(i).le.cmin) phwet(i)=0. + endif !tair + + ENDDO +!dir$ vector aligned + DO i=1,irestrict + + !******** HANDLING THE NEGATIVE CLOUD WATER (QC) ****************** + y1(i)=qc(i)/d2t + psacw(i)=min(y1(i), psacw(i)) + pihms(i)=min(y1(i), pihms(i)) + praut(i)=min(y1(i), praut(i)) + pracw(i)=min(y1(i), pracw(i)) + psfw(i)= min(y1(i), psfw(i)) + dgacw(i)=min(y1(i), dgacw(i)) + pihmg(i)=min(y1(i), pihmg(i)) + dhacw(i)=min(y1(i), dhacw(i)) !4ice + pihmh(i)=min(y1(i), pihmh(i)) !4ice + qsacw(i)=min(y1(i), qsacw(i)) + qgacw(i)=min(y1(i), qgacw(i)) + qhacw(i)=min(y1(i), qhacw(i)) !4ice + + y1(i)=d2t*(psacw(i)+praut(i)+pracw(i)+psfw(i) & + +dgacw(i)+qsacw(i)+qgacw(i)+pihms(i)+pihmg(i) & + +dhacw(i)+qhacw(i)+pihmh(i)) !4ice + + qc(i)=qc(i)-y1(i) +! + if (qc(i) .lt. 0.0) then + y2(i)=1. + if (y1(i) .ne. 0.) y2(i)=qc(i)/y1(i)+1. + psacw(i)=psacw(i)*y2(i) + praut(i)=praut(i)*y2(i) + pracw(i)=pracw(i)*y2(i) + psfw(i)=psfw(i)*y2(i) + dgacw(i)=dgacw(i)*y2(i) + dhacw(i)=dhacw(i)*y2(i) + qsacw(i)=qsacw(i)*y2(i) + qgacw(i)=qgacw(i)*y2(i) + qhacw(i)=qhacw(i)*y2(i) + pihms(i)=pihms(i)*y2(i) + pihmg(i)=pihmg(i)*y2(i) + pihmh(i)=pihmh(i)*y2(i) !4ice + qc(i)=0.0 + endif + +! !4ice revised +! convert wet graupel to hail !4ice revised +! !4ice revised + y1(i)=dgacw(i)+dgacr(i) !4ice revised + if(Y1(i).lt..95*pgwet(i).or.y1(i).eq.0.)THEN !4ice revised + wgaci(i)=0.0 !4ice revised + wgacs(i)=0.0 !4ice revised + endif !4ice revised + pg2h(i)=0.0 !4ice revised + if(y1(i).gt.0..and.pgwet(i).gt.0..and. & !4ice revised + Y1(i).gt.1.0*pgwet(i))THEN !4ice revised +!test pg2h(i)=2.0*y1(i) !4ice revised + pg2h(i)=qg(i)/d2t !4ice revised +! pg2h(i)=qg(i)*0.647232/d2t !4ice revised Deff + pg2h(i)=min(pg2h(i), qg(i)/d2t) !4ice revised + endif !4ice revised + + whacr(i)=phwet(i)-dhacw(i)-whaci(i)-whacs(i)-whacg(i) !4ice + y2(i)=dhacw(i)+dhacr(i) !4ice + if(y2(i).lt.0.95*phwet(i).or.y2(i).eq.0.) THEN + whacr(i)=0.0 !4ice + whaci(i)=0.0 !4ice + whacg(i)=0.0 + whacs(i)=0.0 + endif + + primh(i)=0.0 + if(y2(i).gt.0..and.phwet(i).gt.0..and. Y2(i).lt..95*phwet(i)) THEN + + rim_frac(i)=2.0*min((1.-y2(i)/phwet(i))**2,1.0) + rim_frac(i)=rim_frac(i)*min((tairc(i)/(t00-t0))**2,1.0) +! primh(i)=rim_frac(i)*y2(i) + primh(i)=rim_frac(i)*dhacw(i) + primh(i)=min(primh(i), qh(i)/d2t) + endif + + ENDDO +!dir$ vector aligned + DO i=1,irestrict + +!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +!******** HANDLING THE NEGATIVE CLOUD ICE (QI) ****************** + y1(i)=qi(i)/d2t + psaut(i)=min(y1(i), psaut(i)) + psaci(i)=min(y1(i), psaci(i)) + praci(i)=min(y1(i), praci(i)) + psfi(i)= min(y1(i), psfi(i)) + dgaci(i)=min(y1(i), dgaci(i)) + wgaci(i)=min(y1(i), wgaci(i)) + whaci(i)=min(y1(i), whaci(i)) !4ice + + qi(i)=qi(i)+d2t*(pihms(i)+pihmg(i)+pihmh(i)) !fix SEL + + y1(i)=d2t*(psaut(i)+psaci(i)+praci(i)+psfi(i) & + +dgaci(i)+wgaci(i)+whaci(i)) + + qi(i)=qi(i)-y1(i) +! + if (qi(i) .lt. 0.0) then + y2(i)=1. + if (y1(i) .ne. 0.0) y2(i)=qi(i)/y1(i)+1. + psaut(i)=psaut(i)*y2(i) + psaci(i)=psaci(i)*y2(i) + praci(i)=praci(i)*y2(i) + psfi(i)=psfi(i)*y2(i) + dgaci(i)=dgaci(i)*y2(i) + wgaci(i)=wgaci(i)*y2(i) + whaci(i)=whaci(i)*y2(i) !4ice + qi(i)=0.0 + endif + + wgacr(i)=qgacr(i)+qgacw(i) + dlt3(i)=0.0 + if (qr(i) .lt. 1.e-4) dlt3(i)=1. + dlt4(i)=1. + + if (qc(i) .gt. 5.e-4) dlt4(i)=0.0 + + if (qs(i) .le. 1.e-4) dlt4(i)=1. + + if (tair(i) .ge. t0) then + dlt3(i)=0.0 + dlt4(i)=0.0 + endif + + pr(i)=d2t*(qsacw(i)+praut(i)+pracw(i)+wgacr(i) & + +qhacw(i)-qgacr(i)) + ps(i)=d2t*(psaut(i)+psaci(i)+dlt4(i)*psacw(i) & + +psfw(i)+psfi(i)) + pg(i)=d2t*(dlt3(i)*praci(i)+dgaci(i) & + +wgaci(i)+dgacw(i)+(1.-dlt4(i))*psacw(i) & + +primh(i)) !4ice revised + + +!* 7 * PRACS : ACCRETION OF QS BY QR ***7** +!* 8 * PSACR : ACCRETION OF QR BY QS (QSACR FOR PSMLT) ***8** +!* 2 * PGAUT : AUTOCONVERSION OF QS TO QG ***2** +!* 18 * PGFR : FREEZING OF QR TO QG **18** + + qracs(i)=0.0 + y1(i)=abs(vr(i)-vs(i)) + y2(i)=zr(i)*zs(i) + y3(i)=5./y2(i) + y4(i)=.08*y3(i)*y3(i) + y5(i)=.05*y3(i)*y4(i) + + pracs(i)=r2ig*r2is*(r7rf(i)*y1(i)*(y3(i)/zs(i)**5 & !improve4 + +y4(i)/zs(i)**3+y5(i)/zs(i))*ftns(i)*fros(i)) !improve4 + if(qs(i).le.cmin) pracs(i)=0. + if(qr(i).le.cmin) pracs(i)=0. + qracs(i)=r2ig*r2is*min(d2t*pracs(i), qs(i)) + psacr(i)=r2is*(r8rf(i)*y1(i)*(y3(i)/zr(i)**5 & + +y4(i)/zr(i)**3+y5(i)/zr(i))*ftns(i)) + if(qs(i).le.cmin) psacr(i)=0. + if(qr(i).le.cmin) psacr(i)=0. + qsacr(i)=psacr(i) + + if (tair(i) .ge. t0) then + pracs(i)=0.0 + psacr(i)=0.0 + else + qsacr(i)=0.0 + qracs(i)=0.0 + endif + +!* 18 * pgfr : freezing of qr to qg **18** + pgaut(i)=0.0 + pgfr(i)=0.0 + phfr(i)=0.0 + if (tair(i) .lt. t0) then + y1(i)=exp(rn18a*(t0-tair(i))) + if( qr(i).ge.0.)then + temp = 1./zr(i) + temp = temp*temp*temp*temp*temp*temp*temp + phfr(i)=r2ih*max(r18r(i)*(y1(i)-1.)*temp, 0.0) +! phfr(i)=r2ih*max(r18r(i)*(y1(i)-1.)/zr(i)**7., 0.0) + else + temp = 1./zr(i) + temp = temp*temp*temp*temp*temp*temp*temp + pgfr(i)=r2ig*max(r18r(i)*(y1(i)-1.)*temp, 0.0) +! pgfr(i)=r2ig*max(r18r(i)*(y1(i)-1.)/zr(i)**7., 0.0) + if(qr(i).le.cmin) pgfr(i)=0. + endif + endif + +!! +! endif ! for Processes 2, 7, 8, & 18 + +!******** HANDLING THE NEGATIVE RAIN WATER (QR) ******************* +!******** HANDLING THE NEGATIVE SNOW (QS) ******************* + + y1(i)=qr(i)/d2t + y2(i)=-qh(i)/d2t + piacr(i)=min(y1(i), piacr(i)) + dgacr(i)=min(y1(i), dgacr(i)) + dhacr(i)=min(y1(i), dhacr(i)) +! whacr(i)=min(y1(i), whacr(i)) +! whacr(i)=max(y2(i), whacr(i)) + psacr(i)=min(y1(i), psacr(i)) + pgfr(i)= min(y1(i), pgfr(i)) + phfr(i)= min(y1(i), phfr(i)) + del=0. + IF(whacr(i) .LT. 0.) DEL=1. + if(del.eq.1) whacr(i)=max(whacr(i),-dhacw(i)) !fix from JDC + dhacr(i)=min((1.-del)*whacr(i),dhacr(i)) + if(del.eq.1) dhacw(i)=dhacw(i)+del*whacr(i) !fix from JDC + y1(i)=(piacr(i)+dgacr(i)+dhacr(i)+psacr(i)+pgfr(i) & + +phfr(i))*d2t + qr(i)=qr(i)+pr(i)+qracs(i)-del*whacr(i)*d2t+qracg(i) !fix SEL + qr(i)=qr(i)-y1(i) !fix SEL + if (qr(i) .lt. 0.0) then + y2(i)=1. + if (y1(i) .ne. 0.0) y2(i)=qr(i)/y1(i)+1. + piacr(i)=piacr(i)*y2(i) + dgacr(i)=dgacr(i)*y2(i) + dhacr(i)=dhacr(i)*y2(i) +! if(whacr(i).gt.0.) whacr(i)=whacr(i)*y2(i) + pgfr(i)=pgfr(i)*y2(i) + phfr(i)=phfr(i)*y2(i) + psacr(i)=psacr(i)*y2(i) + qr(i)=0.0 + endif !qr + dlt2(i)=1. + if (qr(i) .gt. 1.e-4) dlt2(i)=0. + if (tair(i) .ge. t0) dlt2(i)=0. + y1(i)=qs(i)/d2t + pgacs(i)=min(y1(i), pgacs(i)) + dgacs(i)=min(y1(i), dgacs(i)) + wgacs(i)=min(y1(i), wgacs(i)) + whacs(i)=min(y1(i), whacs(i)) + pracs(i)=min(y1(i), pracs(i)) + pwacs(i)=min(y1(i), pwacs(i)) + + prn(i)=d2t*(dlt3(i)*piacr(i)+dlt2(i)*dgacr(i)+pgfr(i) & + +dlt2(i)*psacr(i)) + pracs(i)=(1.-dlt2(i))*pracs(i) + pwacs(i)=(1.-dlt4(i))*pwacs(i) + pracg(i)=(1.-dlt2(i))*pracg(i) + psn(i)=d2t*(pgacs(i)+dgacs(i)+wgacs(i) & + +pracs(i)+pwacs(i)+whacs(i)) + + qs(i)=qs(i)+ps(i)-qracs(i)-psn(i) + if (qs(i) .lt. 0.0) then + y2(i)=1. + if (psn(i) .ne. 0.) y2(i)=qs(i)/psn(i)+1. + pgacs(i)=pgacs(i)*y2(i) + dgacs(i)=dgacs(i)*y2(i) + wgacs(i)=wgacs(i)*y2(i) + whacs(i)=whacs(i)*y2(i) + pracs(i)=pracs(i)*y2(i) + pwacs(i)=pwacs(i)*y2(i) + qs(i)=0.0 + endif + psn(i)=d2t*(pgacs(i)+dgacs(i)+wgacs(i) & + +pracs(i)+pwacs(i)) + qg(i)=qg(i)+pg(i)+prn(i)+psn(i)-qracg(i) + qg(i)=qg(i)-d2t*(pracs(i)+whacg(i) & + +pracg(i) & !fix from JDC + +pg2h(i)) !fix from SEL + + if (qg(i) .lt. 0.0) then !fix from JDC + y2(i)=1. !fix from JDC + if (whacg(i)+pracg(i)+pg2h(i).ne. 0.) & !fix from JDC + y2(i)=qg(i)/(d2t*(whacg(i)+pracg(i)+pg2h(i)))+1. !fix from JDC & SEL + whacg(i)=whacg(i)*y2(i) !fix from JDC + pracg(i)=pracg(i)*y2(i) !fix from JDC + pg2h(i)=pg2h(i)*y2(i) !fix from SEL + qg(i)=0.0 !fix from JDC + endif + + qh(i)=qh(i)+d2t*(phfr(i)+(1.-dlt3(i))*piacr(i) & + +(1.-dlt3(i))*praci(i)+(1.-dlt2(i))*psacr(i) & + +pracs(i)+(1.-dlt2(i))*dgacr(i)+pracg(i) & + +dhacw(i)+dhacr(i)-primh(i)+whaci(i) & + +whacs(i)+whacg(i)+pg2h(i)) + + y1(i)=d2t*(psacw(i)+psfw(i)+dgacw(i)+piacr(i) & + +dgacr(i)+psacr(i)+pgfr(i)+phfr(i)+pihms(i) & + +pihmg(i)+dhacw(i)+dhacr(i) +pihmh(i)) & + -qracs(i) + pt(i)=pt(i)+afcp(i)*y1(i) + tair(i)=(pt(i)+tb0)*pi0(i) + +!* 11 * PSMLT : MELTING OF QS **11** +!* 19 * PGMLT : MELTING OF QG TO QR **19** + + psmlt(i)=0.0 + pgmlt(i)=0.0 + phmlt(i)=0.0 + + qhz2=qhwrf(i,k) + qgz2=qgwrf(i,k) + if (k .lt. kte-2 .and. tairc(i) .ge. -5) then + qhz2=qhwrf(i,k+1) + qgz2=qgwrf(i,k+1) + endif + call sgmap(1,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftns0(i)) + call sgmap(2,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftng0(i)) + call sgmap(3,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),fros0(i)) + call sgmap(4,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftnh0(i)) + + if (tair(i).ge.t0) then + tairc(i)=tair(i)-t0 + ftns(i)=1. + ftng(i)=1. + ftnh(i)=1. + ftns(i)=ftns0(i) + ftng(i)=ftng0(i) + ftnh(i)=ftnh0(i) + dd(i)=r11t*tairc(i)*(r101r(i)/zs(i)**2+r102rf(i) & + /zs(i)**bsh5)*ftns(i) + psmlt(i)=r2is*min(qs(i),max(dd(i),0.0)) + if (r00(i)*qg(i).gt.qrog2) then + y2(i)=(r191r(i)/zg(i)**2+r192rf2(i)/zg(i)**bgh5_2)*ftng(i) + else + y2(i)=(r191r(i)/zg(i)**2+r192rf(i)/zg(i)**bgh5)*ftng(i) + endif + dd1(i)=tairc(i)*(r19t*y2(i)+r19at*(qgacw(i) & + +qgacr(i))) + pgmlt(i)=r2ig*min(qg(i),max(dd1(i),0.0)) + + Y1(i)=TCA(i)*TAIRC(i)-ALVR(i)*DWV(i)*(RP0(i)-(QV(i)+QB0)) + Y3(i)=.78/ZH(i)**2+h19aq(i)*SCV(i)/ZH(i)**BHH5 + DDa0(i)=h19rt(i)*Y1(i)*Y3(i)*ftnh(i)+r19at*TAIRC(i)* & + (QHACW(i)+QHACR(i)) + PHMLT(i)=r2ih*max(0.0, min(DDa0(i), QH(i))) + + pt(i)=pt(i)-afcp(i)*(psmlt(i)+pgmlt(i)+phmlt(i)) + tair(i)=(pt(i)+tb0)*pi0(i) + qr(i)=qr(i)+psmlt(i)+pgmlt(i)+phmlt(i) + qs(i)=qs(i)-psmlt(i) + qg(i)=qg(i)-pgmlt(i) + qh(i)=qh(i)-phmlt(i) + + endif !tair ! processes 11 & 19 +! +!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +!* 24 * PIHOM : HOMOGENEOUS FREEZING OF QC TO QI (T < T00) **24** +!* 25 * PIDW : DEPOSITION GROWTH OF QC TO QI ( T0 < T <= T00) **25** +!* 26 * PIMLT : MELTING OF QI TO QC (T >= T0) **26** +!****** PIMM : IMMERSION FREEZING OF QC TO QI (T < T0) ****** +!****** PCFR : CONTACT NUCLEATION OF QC TO QI (T < T0) ****** + + if (qc(i).le.cmin1) qc(i)=0.0 + if (qi(i).le.cmin1) qi(i)=0.0 + + ftns(i)=1. + ftng(i)=1. + ftns0(i)=1. + ftng0(i)=1. + + qhz2=qhwrf(i,k) + qgz2=qgwrf(i,k) + if (k .lt. kte-2 .and. tairc(i) .ge. -5) then + qhz2=qhwrf(i,k+1) + qgz2=qgwrf(i,k+1) + endif + call sgmap(1,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftns0(i)) + call sgmap(2,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftng0(i)) + + if (tair(i).le.t00) then + pihom(i)=qc(i) + else + pihom(i)=0.0 + endif + if (tair(i).ge.t0) then + pimlt(i)=qi(i) + else + pimlt(i)=0.0 + endif + pidw(i)=0.0 + + if (tair(i) .lt. t0 .and. tair(i) .gt. t00) then + TAIRC(i)=TAIR(i)-T0 + y1(i) = max( min(tairc(i), -1.), -31.) + it(i) = int(abs(y1(i))) + y2(i)=aa1(it(i)) + y3(i) = aa2(it(i)) + if (tairc(i).le.-5.)then ! meyers + rtair(i)=1./(tair(i)-c76) + y5(i)=exp(c218-c580*rtair(i)) + qsi(i)=rp0(i)*y5(i) + SSI(i)=(qv(i)+qb0)/qsi(i)-1. + fssi=min(xssi,max(rssi,xssi*(tairc(i)+44.)/(44.0-38.0))) !max ssi f(tair) + fssi=rssi + wssi=ww1(i,k)/100.-2.0 + if(wssi.gt.0.) fssi=rssi+min(xssi,wssi*0.01) + fssi=min(ssi(i),fssi) + + r_nci=max(1.e-3*exp(-.639+12.96*fssi), 0.528e-3) ! meyers et al. + ! Roger found the bug on 2012/04/27 + if (r_nci.gt.15.) r_nci=15. !cap at 15000/liter + +! Cooper curve + if( tairc(i) .lt. -40.0 ) then + c_nci = 5.0e-6*exp(0.304*40.0) + else + c_nci = 5.0e-6*exp(0.304*abs(tairc(i))) + end if + r_nci = c_nci +! JDC cap r_nci to the amount corresponding to crystal size of ami50 + r_nci = max(r_nci,r00(i)*qi(i)/ami50) + +#if (WRF_CHEM == 1) + ! EMK...Only execute if GOCART and coupling is on + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcgce_gocart_coupling == 1) ) then + !JJS 20110602 vvvvv + ! Conversion rate of cloud water to ice in the Bergeron porcess based on Meyer + DeMott formulae + ! + ! convert gocart aerosol mass conc to IN + ! p0 need to be converted from g*cm/s2/cm2 to mb (hPa) + ! call mass2icn(p0(i,k)*0.001,tair(i),aero(i,k,:), icn_out) + ! icn_cgs(i,k) = max(min_icn, icn_out) * 1.e-3 !IN conc [#/cm3] <-- [#/Litter] + ! icn_cgs(i,k) = icn_out * 1.e-3 !IN conc [#/cm3] + ! r_nci = icn_cgs(i,k) !DeMotto's formuale + r_nci = icn_out(i) * 1.e-3 !DeMotto's formuale + !JJS 20110602 ^^^^^ + end if +#endif + + dd(i)=(r00(i)*qi(i)/r_nci)**y3(i) !meyers + PIDW(i)=min(rr0(i)*D2T*y2(i)*r_nci*dd(i), qc(i)) !meyers + +! JDC water vapor diffusivity correction term + esi(i) = qsi(i)/rp0(i)*c610 + y4(i) = 1./tair(i) +! term1 = y4(i)*(rn10a*y4(i)-rn10b) + term1 = y4(i)*(rn20a*y4(i)-rn20b) + term2 = rn10c*tair(i)/esi(i) + fdwv = (term1+term2)/(term1+term2*dwv0/dwv(i)) + PIDW(i)=min(rr0(i)*D2T*y2(i)*r_nci*dd(i)*fdwv,qc(i)) !meyers + endif !tairc + + pimm(i)=0.0 + pcfr(i)=0.0 + + if (qc(i) .gt. 0.0) then + y4(i) = 1./(tair(i)-c358) + qsw(i)=rp0(i)*exp(c172-c409*y4(i)) + xncld=qc(i)/4.e-9 !cloud number + esat=0.6112*exp(17.67*tairc(i)/(tairc(i)+243.5))*10. + rv=0.622*esat/(p0(i,k)/1000.-esat) + rlapse_m=980.616*(1.+2.5e6*rv/287./tair(i))/ & + (1004.67+2.5e6*2.5e6*rv*0.622/(287.*tair(i)*tair(i))) + delT=rlapse_m*ww1(i,k) !Roger + if (delT.lt.0.) delT=0. + Bhi=1.01e-2 + pimm(i)=xncld*Bhi*4.e-9*exp(-tairc(i))*delT*d2t*4.e-9 + + xccld=xncld*r00(i) !cloud number concentration + Xknud=7.37*tair(i)/(288.*Ra*p0(i,k)) ! Knudsen number + alpha=1.257+0.400*exp(-1.10/Xknud) ! Cunningham correction (P&Klett) + + cunnF=1.+alpha*Xknud ! Cunningham correction (P&Klett) + + if (tairc(i).ge.0.) then + dvair=(1.718+0.0049*tairc(i))*1.e-4 + !dynamic visc air (Prupp&Klett) + else + dvair=(1.718+0.0049*tairc(i)-1.2e-5*tairc(i)**2)*1.e-4 + !dynamic visc air (Prupp&Klett) + endif !tairc + DIFFar=1.3804e-16*tair(i)/6./cpi/dvair/Ra*cunnF !aerosol diffusion via P&Klett + if (qv(i)+qb0-qsw(i).lt.0.) then !only when cloud evaporating + pcfr(i)=4.e-9*4.*cpi*Rc*DIFFar*xccld*Cna*rr0(i)*d2t !Brownian part only via Cotton + endif + else !qc + tairc(i)=tair(i)-t0 + y1(i)=max( min(tairc(i), -1.), -31.) + it(i)=int(abs(y1(i))) + y2(i)=aa1(it(i)) + y3(i)=aa2(it(i)) + y4(i)=exp(abs(.5*tairc(i))) + dd(i)=(r00(i)*qi(i)/(r25a*y4(i)))**y3(i) + pidw(i)=min(r25rt(i)*y2(i)*y4(i)*dd(i),qc(i)) + endif !qc + endif !tair + + ENDDO +!dir$ vector aligned + DO i=1,irestrict + +! STEVE: PLEASE CHECK + y1(i)=pihom(i)+pidw(i)+pimm(i)+pcfr(i)-pimlt(i) + + if (y1(i).gt.qc(i)) then + y1(i)=qc(i) + y2(i)=1. + y3(i)=pihom(i)+pidw(i)+pimm(i)+pcfr(i) + if(y3(i).ne.0.) y2(i)=(qc(i)+pimlt(i))/y3(i) + pihom(i)=pihom(i)*y2(i) + pidw(i)=pidw(i)*y2(i) + pimm(i)=pimm(i)*y2(i) + pcfr(i)=pcfr(i)*y2(i) + endif !y1 + + pt(i)=pt(i)+afcp(i)*y1(i) + tair(i)=(pt(i)+tb0)*pi0(i) + qc(i)=qc(i)-y1(i) + qi(i)=qi(i)+y1(i) + +!* 31 * pint : initiation of qi **31** +!* 32 * pidep : deposition of qi **32** +! +! CALCULATION OF PINT USES DIFFERENT VALUES OF THE INTERCEPT AND SLOPE FOR +! THE FLETCHER EQUATION. ALSO, ONLY INITIATE MORE ICE IF THE NEW NUMBER +! CONCENTRATION EXCEEDS THAT ALREADY PRESENT. + + tair(i)=(pt(i)+tb0)*pi0(i) + if (tair(i) .lt. t0) then + if (qi(i) .le. cmin) qi(i)=0. + tairc(i)=tair(i)-t0 + rtair(i)=1./(tair(i)-c76) + y2(i)=exp(c218-c580*rtair(i)) + qsi(i)=rp0(i)*y2(i) + esi(i)=c610*y2(i) + ssi(i)=(qv(i)+qb0)/qsi(i)-1. + y1(i)=1./tair(i) + y3(i)=SQRT(qi(i)) +! JDC water vapor diffusivity correction term + term1 = y1(i)*(rn20a*y1(i)-rn20b) + term2 = rn10c*tair(i)/esi(i) + dd(i) = term1+term2 + fdwv = dd(i)/(term1+term2*dwv0/dwv(i)) + + dm(i)=max(qv(i)+qb0-qsi(i),0.0) + rsub1(i)=cs580(i)*qsi(i)*rtair(i)*rtair(i) + dep(i)=dm(i)/(1.+rsub1(i)) + if (tairc(i).le.-5.) then + y4(i)=1./(tair(i)-c358) + qsw(i)=rp0(i)*exp(c172-c409*y4(i)) + fssi=min(xssi,max(rssi,xssi*(tairc(i)+44.)/(44.-38.))) + fssi=rssi + wssi=ww1(i,k)/100.-2.0 + if(wssi.gt.0.) fssi=rssi+min(xssi,wssi*0.01) + fssi=min(ssi(i),fssi) +! r_nci=min(1.e-3*exp(-.639+12.96*fssi),1.) + r_nci=max(1.e-3*exp(-.639+12.96*fssi),0.528e-3) + if (r_nci.gt.15.) r_nci=15. + +! Cooper curve + if( tairc(i) .lt. -40.0 ) then + c_nci = 5.0e-6*exp(0.304*40.0) + else + c_nci = 5.0e-6*exp(0.304*abs(tairc(i))) + end if + r_nci = c_nci +! JDC cap r_nci to the amount corresponding to crystal size of ami50 + r_nci = max(r_nci,r00(i)*qi(i)/ami50) + +#if (WRF_CHEM == 1) + ! EMK...Only execute if GOCART and coupling is on + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcgce_gocart_coupling == 1) ) then + !JJS 20110602 vvvvv + ! Conversion rate of cloud water to ice in the Bergeron porcess based on Meyer + DeMott formulae + ! + ! convert gocart aerosol mass conc to IN + ! p0 need to be converted from g*cm/s2/cm2 to mb (hPa) + ! call mass2icn(p0(i,k)*0.001,tair(i),aero(i,k,:), icn_out) + ! icn_cgs(i,k) = max(min_icn, icn_out) * 1.e-3 !IN conc [#/cm3] <-- [#/Litter] + ! call mass2icn(p0(i,k)*0.001,tair(i),aero(i,k,:), icn_out,i,k) + ! icn_out = min(1.e3, max(0.01e0 , icn_out) ) + ! icn_cgs(i,k) = icn_out * 1.e-3 !IN conc [#/cm3] + ! r_nci = icn_cgs(i,k) !DeMotto's formuale + r_nci = icn_out(i) * 1.e-3 !DeMotto's formuale + !JJS 20110602 ^^^^^ + end if +#endif + + pidep(i)=max(R32RT(i)*1.e4*fssi*sqrt(r_nci)*y3(i)/ & !meyers + dd(i)*fdwv, -qi(i)) !fix SEL + if(qi(i).le.cmin) pidep(i)=0. + dd(i)=max(1.e-9*r_nci/r00(i)-qci(i,k)*1.e-9/ami50, 0.) + pint(i)=max(min(dd(i),dm(i)),0.) + pint(i)=min(pint(i)+pidep(i), dep(i)) + pt(i)=pt(i)+ascp(i)*pint(i) + tair(i)=(pt(i)+tb0)*pi0(i) + qv(i)=qv(i)-pint(i) + qi(i)=qi(i)+pint(i) + endif !taric + endif !tair + +! End of Process 31 & 32 + +! WRF satice has new_ice_sat option 0, 1 and 2 +! Steve's satice has new_ice_sat option 0, 1, 2, 3 and 9 +! option 0, 1 and 2 are identical in both satice +! I added option 3 below and wrapped them with "if (improve.eq.3)" + +!***** TAO ET AL (1989) SATURATION TECHNIQUE *********************** + +!!!! +!!! new_ice_sat option 9 from Steve's satice +!!! sequential, non-iterative, ssi +!!!! + + dep(i)=0.0 + cnd(i)=0.0 + tair(i)=(pt(i)+tb0)*pi0(i) + if (tair(i).ge.t00) THEN + y1(i)=1./(tair(i)-c358) + qsw(i)=rp0(i)*exp(c172-c409*y1(i)) + dd(i)=cp409(i)*y1(i)*y1(i) + dm(i)=qv(i)+qb0-qsw(i) + cnd(i)=dm(i)/(1.+avcp(i)*dd(i)*qsw(i)) +!c ****** condensation or evaporation of qc ****** + cnd(i)=max(-qc(i),cnd(i)) + +! JJS 20150831 +! if(ww1(i,k).ge.-10.) & ! for 1-km grid +! thresh_evap is a function of dx and defined in the beginning of the subroutine + + if(ww1(i,k) .ge. thresh_evap) cnd(i)=max(0.,cnd(i)) !reduce spurious evap + + pt(i)=pt(i)+avcp(i)*cnd(i) + tair(i)=(pt(i)+tb0)*pi0(i) + qv(i)=qv(i)-cnd(i) + qc(i)=qc(i)+cnd(i) + endif + if (tair(i).le.273.16) THEN +!c ****** deposition or sublimation of qi ****** + y1(i)=1./(tair(i)-c358) + qsw(i)=rp0(i)*exp(c172-c409*y1(i)) + y2(i)=1./(tair(i)-c76) + qsi(i)=rp0(i)*exp(c218-c580*y2(i)) + fssi=min(xssi,max(rssi,xssi*(tair(i)-t0+44.0)/(44.0-38.0))) + fssi=rssi + wssi=ww1(i,k)/100.-2.0 + if(wssi.gt.0.) fssi=rssi+min(xssi,wssi*0.01) + y3(i)=1.+min((qsw(i)-qsi(i))/qsi(i), fssi) + y4(i)=qsi(i)*y3(i) + if (tair(i).le.268.16.and.(qv(i)+qb0.gt.y4(i))) then + dd1(i)=cp580(i)*y2(i)*y2(i) + dep(i)=(qv(i)+qb0-y4(i))/(1.+ascp(i)*dd1(i)*y4(i)) + else if (qv(i)+qb0.lt.xsubi*qsi(i).and.qi(i).gt.cmin) then + dd1(i)=cp580(i)*y2(i)*y2(i) + dep(i)=(qv(i)+qb0-xsubi*qsi(i))/(1.+ascp(i)*dd1(i)*xsubi*qsi(i)) + dep(i)=max(-qi(i),dep(i)) + endif + if(ww1(i,k).ge.0.) & + dep(i)=max(0.,dep(i)) !reduce spurious sublimation + pt(i)=pt(i)+ascp(i)*dep(i) + tair(i)=(pt(i)+tb0)*pi0(i) + qv(i)=qv(i)-dep(i) + qi(i)=qi(i)+dep(i) + endif + +!* 10 * PSDEP : DEPOSITION OR SUBLIMATION OF QS **10** +!* 20 * PGSUB : SUBLIMATION OF QG **20** + + psdep(i)=0.0 + pgdep(i)=0.0 + phdep(i)=0.0 + pssub(i)=0.0 + pgsub(i)=0.0 + phsub(i)=0.0 + pvapg(i)=0.0 + pvaph(i)=0.0 + + if (qc(i)+qi(i).gt.1.e-5) then + dlt1(i)=1. + else + dlt1(i)=0. + endif + + if (tair(i) .lt. t0) then + rtair(i)=1./(tair(i)-c76) + y2(i)=exp(c218-c580*rtair(i)) + qsi(i)=rp0(i)*y2(i) + esi(i)=c610*y2(i) + ftns(i)=1. + ftng(i)=1. + ftnh(i)=1. + + SSI(i)=(QV(i)+QB0)/QSI(i)-1. + IF(SSI(i).GT.0.) DLT1(i)=1. + IF(SSI(i).LE.0.) DLT1(i)=0. + DM(i)=QV(i)+QB0-QSI(i) + RSUB1(i)=cs580(i)*QSI(i)*RTAIR(i)*RTAIR(i) + DD1(i)=DM(i)/(1.+RSUB1(i)) + Y3(i)=1./TAIR(i) +! JDC water vapor diffusivity correction + term1 = y3(i)*(rn20a*y3(i)-rn20b) + term2 = rn10c*tair(i)/esi(i) + dd(i) = term1+term2 + fdwv = dd(i)/(term1+term2*dwv0/dwv(i)) + TAIRC(i)=TAIR(i)-T0 +! + ftns(i)=1. + ftng(i)=1. + ftnh(i)=1. + ftns0(i)=1. + ftng0(i)=1. + qhz2=qhwrf(i,k) + qgz2=qgwrf(i,k) + if (k .lt. kte-2 .and. tairc(i) .ge. -5) then + qhz2=qhwrf(i,k+1) + qgz2=qgwrf(i,k+1) + endif + call sgmap(1,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftns0(i)) + call sgmap(2,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftng0(i)) + call sgmap(3,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),fros0(i)) + call sgmap(4,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftnh0(i)) + + ftns(i)=ftns0(i) + ftng(i)=ftng0(i) + ftnh(i)=ftnh0(i) + + Y4(i)=r10t*SSI(i)*(r101r(i)/ZS(i)**2+r102rf(i)/ZS(i)**BSH5) & + /DD(i)*ftns(i)*fdwv + PSDEP(i)=r2is*max(-QS(i), Y4(i)) + if(qs(i).le.cmin) psdep(i)=0. + DD(i)=Y3(i)*(RN20A*Y3(i)-RN20B)+RN10C*TAIR(i)/ESI(i) + Y2(i)=r191r(i)/ZG(i)**2+r192rf(i)/ZG(i)**BGH5 + if(r00(i)*qg(i).gt.qrog2) & + y2(i)=(r191r(i)/zg(i)**2+r192rf2(i)/zg(i)**bgh5_2) + PGDEP(i)=r2ig*MAX(-qg(i), R20T*SSI(i)*Y2(i)/DD(i) & + *ftng(i)*fdwv) + if(qg(i).le.cmin) pgdep(i)=0. + Y1(i)=h10ar(i)/(TCA(i)*TAIR(i)**2)+1./(DWV(i)*QSI(i)) + Y2(i)=.78/ZH(i)**2+h20bq(i)*SCV(i)/ZH(i)**BHH5 + PHDEP(i)=r2ih*MAX(-qh(i), h20t(i)*ftnh(i)*SSI(i)*Y2(i)/Y1(i)) + if(qh(i).le.cmin) phdep(i)=0. + PSSUB(i)=min(PSDEP(i), 0.) + PSDEP(i)=max(PSDEP(i), 0.) + PGSUB(i)=min(PGDEP(i), 0.) + PGDEP(i)=max(PGDEP(i), 0.) + PHSUB(i)=min(PHDEP(i), 0.) + PHDEP(i)=max(PHDEP(i), 0.) + +! ****************************************************************** + Y5(i)=min(0.,DD1(i)) + DD1(i)=max(0.,DD1(i)) + + IF(DLT1(i).EQ.1.)THEN !Di + Y1(i)=PSDEP(i)+PGDEP(i)+PHDEP(i) + IF(Y1(i).ge.DD1(i))THEN + PSDEP(i)=PSDEP(i)/Y1(i)*DD1(i) !... + PGDEP(i)=PGDEP(i)/Y1(i)*DD1(i) + PHDEP(i)=PHDEP(i)/Y1(i)*DD1(i) + ENDIF + ENDIF !Di + + if(qc(i).le.1.e-5) then + vap_frac=2.0*min((tairc(i)/(t00-t0))**2,1.0) + pvapg(i)=vap_frac*pgdep(i) + pvaph(i)=vap_frac*phdep(i) + endif + if(pgdep(i).gt.0.) & + pvapg(i)=min(pvapg(i),qg(i)+pgdep(i)) + if(phdep(i).gt.0.) & + pvaph(i)=min(pvaph(i),qh(i)+phdep(i)) + + + IF(DLT1(i).EQ.0.)THEN + Y1(i)=MAX(PSsub(i)+PGsub(i)+phsub(i), Y5(i)) + IF(Y5(i).gt.(PSsub(i)+PGsub(i)+phsub(i)))THEN + Y3(i)=(PSsub(i)+PGsub(i)+phsub(i)) + IF(Y3(i).ne.0.0)THEN + PSsub(i)=PSsub(i)/Y3(i)*Y5(i) + PGsub(i)=PGsub(i)/Y3(i)*Y5(i) + Phsub(i)=Phsub(i)/Y3(i)*Y5(i) + ENDIF + ENDIF + ENDIF + PSSUB(i)=-PSSUB(i) + PGSUB(i)=-PGSUB(i) + PHSUB(i)=-PHSUB(i) + Y1(i)=PSDEP(i)+PGDEP(i)+PHDEP(i) & + -PSsub(i)-PGsub(i)-PHsub(i) + + pt(i)=pt(i)+ascp(i)*y1(i) + tair(i)=(pt(i)+tb0)*pi0(i) + qv(i)=qv(i)-y1(i) + qs(i)=qs(i)+psdep(i)-pssub(i)+pvapg(i)+pvaph(i) + qg(i)=qg(i)+pgdep(i)-pgsub(i)-pvapg(i) + qh(i)=qh(i)+phdep(i)-phsub(i)-pvaph(i) + endif ! if (tair(i) .lt. t0) + +!* 23 * ERN : EVAPORATION OF QR (SUBSATURATION) **23** +! Steve did not make any improvement on this process + ern(i)=0.0 + if (qr(i) .gt. 0.0) then + tair(i)=(pt(i)+tb0)*pi0(i) + rtair(i)=1./(tair(i)-c358) + y2(i)=exp( c172-c409*rtair(i) ) + esw(i)=c610*y2(i) + qsw(i)=rp0(i)*y2(i) + ssw(i)=(qv(i)+qb0)/qsw(i)-1. + dm(i)=qv(i)+qb0-qsw(i) + rsub1(i)=cv409(i)*qsw(i)*rtair(i)*rtair(i) + dd1(i)=max(-dm(i)/(1.+rsub1(i)),0.0) + y3(i)=1./tair(i) +! JDC water vapor diffusivity correction term + term1 = y3(i)*(rn30a*y3(i)-rn10b) + term2 = rn10c*tair(i)/esw(i) + dd(i) = term1+term2 + fdwv = dd(i)/(term1+term2*dwv0/dwv(i)) + ftnw=1. + if (qr(i) .gt. cmin.and.tair(i).gt.t0) then !no need to check qc, no qc if ssw < 0 + bin_factor(i)=0.11*(1000.*qr(i))**(-1.27) + 0.98 + bin_factor(i)=min(bin_factor(i),1.30) + ftnw=1./bin_factor(i)**3.35 + ftnwmin=r00(i)*qr(i)/draimax + if(qr(i).le.0.001) ftnw=max(ftnw,ftnwmin/tnw) + + y4(i)=r00(i)*qr(i) + y1(i)=sqrt(y4(i)) + y2(i)=sqrt(y1(i)) + zr(i)=zrc/y2(i)*ftnw**0.25 + endif !qr + y1(i)=-r23t*ssw(i)*(r231r(i)/zr(i)**2+r232rf(i)/ & + zr(i)**3)/dd(i)*ftnw*fdwv + ern(i)=min(dd1(i),qr(i),max(y1(i),0.0)) + pt(i)=pt(i)-avcp(i)*ern(i) + tair(i)=(pt(i)+tb0)*pi0(i) + tairc(i)=tair(i)-t0 + qv(i)=qv(i)+ern(i) + qr(i)=qr(i)-ern(i) + endif !qr + +!!!! +!! add processes 30 & 33 fpr pmltg and pmlts +!! +!!!! + +!* 30 * pmltg : evaporation of melting qg **30** +!* 33 * pmlts : evaporation of melting qs **33** + + pmlts(i)=0.0 + pmltg(i)=0.0 + + tair(i)=(pt(i)+tb0)*pi0(i) + tairc(i)=tair(i)-t0 + + ftns0(i)=1. + ftng0(i)=1. + + qhz2=qhwrf(i,k) + qgz2=qgwrf(i,k) + if (k .lt. kte-2 .and. tairc(i) .ge. -5) then + qhz2=qhwrf(i,k+1) + qgz2=qgwrf(i,k+1) + endif + call sgmap(1,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftns0(i)) + call sgmap(2,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftng0(i)) + call sgmap(3,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),fros0(i)) + + if (tair(i) .ge. t0) then + ftns(i)=1. + ftng(i)=1. + ftns(i)=ftns0(i) + ftng(i)=ftng0(i) + rtair(i)=1./(t0-c358) + y2(i)=exp( c172-c409*rtair(i) ) + esw(i)=c610*y2(i) + qsw(i)=rp0(i)*y2(i) + ssw(i)=1.-(qv(i)+qb0)/qsw(i) + dm(i)=qsw(i)-qv(i)-qb0 + rsub1(i)=cv409(i)*qsw(i)*rtair(i)*rtair(i) + dd1(i)=max(dm(i)/(1.+rsub1(i)),0.0) + y3(i)=1./tair(i) +! JDC water vapor diffusivity correction term + term1 = y3(i)*(rn30a*y3(i)-rn10b) + term2 = rn10c*tair(i)/esw(i) + dd(i) = term1+term2 + fdwv = dd(i)/(term1+term2*dwv0/dwv(i)) + y1(i)=ftng(i)*r30t*ssw(i)*(r191r(i)/zg(i)**2+r192rf(i) & + /zg(i)**bgh5)/dd(i)*fdwv + if(r00(i)*qg(i).gt.qrog2) & + y1(i)=ftng(i)*r30t*ssw(i)*(r191r(i)/zg(i)**2+r192rf2(i) & + /zg(i)**bgh5_2)/dd(i)*fdwv + pmltg(i)=r2ig*min(qg(i),max(y1(i),0.0)) + y1(i)=ftns(i)*r33t*ssw(i)*(r331r(i)/zs(i)**2+r332rf(i) & + /zs(i)**bsh5)/dd(i)*fdwv + pmlts(i)=r2is*min(qs(i),max(y1(i),0.0)) + y1(i)=min(pmltg(i)+pmlts(i),dd1(i)) + pmltg(i)=y1(i)-pmlts(i) + pt(i)=pt(i)-ascp(i)*y1(i) + tair(i)=(pt(i)+tb0)*pi0(i) + qv(i)=qv(i)+y1(i) + qs(i)=qs(i)-pmlts(i) + qg(i)=qg(i)-pmltg(i) + endif !tair t0 +! end Processes 30 and 33 + + if (qc(i) .le. cmin) qc(i)=0. + if (qr(i) .le. cmin) qr(i)=0. + if (qi(i) .le. cmin) qi(i)=0. + if (qs(i) .le. cmin) qs(i)=0. + if (qg(i) .le. cmin) qg(i)=0. + if (qh(i) .le. cmin) qh(i)=0. + dpt(i,k)=pt(i) + dqv(i,k)=qv(i) + qcl(i,k)=qc(i) + qrn(i,k)=qr(i) + qci(i,k)=qi(i) + qcs(i,k)=qs(i) + qcg(i,k)=qg(i) + qch(i,k)=qh(i) + +!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +!c henry: please take a look (start) +!JJS modified by JJS on 5/1/2007 vvvvv + + dd(i)=max(-cnd(i), 0.) + cnd(i)=max(cnd(i), 0.) + dd1(i)=max(-dep(i), 0.) !bug fix by Di + dep(i)=max(dep(i), 0.) + del=0. + IF(whacr(i) .LT. 0.) DEL=1. + + +!!!!!!!!!!!DDDDDDDDDDDDDD double check + sccc=cnd(i) + seee=dd(i)+ern(i) + sddd=dep(i)+amax1(pint(i),0.0)+psdep(i)+pgdep(i)+phdep(i) + ssss=dd1(i)-amin1(pint(i),0.0)+pssub(i)+pgsub(i)+phsub(i)+pmlts(i)+pmltg(i) + smmm=psmlt(i)+pgmlt(i)+pimlt(i)+qracs(i)+phmlt(i)+qracg(i) & + -del*whacr(i) + sfff=psacw(i)*d2t+piacr(i)*d2t+psfw(i)*d2t+pgfr(i)*d2t & + +dgacw(i)*d2t+dgacr(i)*d2t+psacr(i)*d2t+pihom(i) & + +pidw(i)+pimm(i)+pcfr(i)+pihms(i)*d2t & + +pihmg(i)*d2t+phfr(i)*d2t+dhacw(i)*d2t+dhacr(i)*d2t+pihmh(i)*d2t + +! for snapsot diabatic heating rate (deg K / s) + physc(i,k) = avc * sccc / d2t !K/s + physe(i,k) = avc * seee / d2t !K/s + physd(i,k) = asc * sddd / d2t !K/s + physs(i,k) = asc * ssss / d2t !K/s + physf(i,k) = afc * sfff / d2t !K/s + physm(i,k) = afc * smmm / d2t !K/s +! for accmulated diabatic heating (unit: deg K, in potential temperature) + acphysc(i,k) = acphysc(i,k) + avcp(i) * sccc + acphyse(i,k) = acphyse(i,k) + avcp(i) * seee + acphysd(i,k) = acphysd(i,k) + ascp(i) * sddd + acphyss(i,k) = acphyss(i,k) + ascp(i) * ssss + acphysf(i,k) = acphysf(i,k) + afcp(i) * sfff + acphysm(i,k) = acphysm(i,k) + afcp(i) * smmm + +!JJS modified by JJS on 5/1/2007 ^^^^^ + +!JJS 2010/10/19 vvvvv +! radar reflectivity calculation + + call sgmap(1,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftns0(i)) !Di 20160114 + call sgmap(2,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftng0(i)) !Di 20160114 + call sgmap(3,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),fros0(i)) !Di 20160114 + call sgmap(4,qs(i),qg(i),qgz2,qh(i),qhz2,r00(i),tairc(i),ftnh0(i)) !Di 20160114 + + a_1=1.e6*r00(i)*qr(i) + a_2=1.e6*r00(i)*qs(i) + a_3=1.e6*r00(i)*qg(i) + a_4=1.e6*r00(i)*qh(i) + + ucor=3071.29/tnw**0.75 + ucos=687.97*roqs**0.25/tns**0.75 + ucog=687.97*roqg**0.25/tng**0.75 + ucog2=687.97*roqg2**.25/tng**.75 + ucoh=687.97*roqh**0.25/tnh**0.75 + uwet=4.464**0.95 + + ftnw=1. + if(qr(i).gt.cmin .and. qc(i).lt.cmin)then + bin_factor(i)=0.11*(1000.*qr(i))**(-1.27) + 0.98 +! bin_factor(i)=min(bin_factor(i),1.35) + bin_factor(i)=min(bin_factor(i),1.30) + ftnw=1./bin_factor(i)**3.50 + ftnwmin=r00(i)*qr(i)/draimax + if(qr(i).le.0.001) ftnw=max(ftnw,ftnwmin/tnw) + endif + a_11=ucor*(max(0.,a_1))**1.75/ftnw**0.75 + + ftns(i)=1. + ftng(i)=1. + ftns(i)=ftns0(i)**0.75 + ftng(i)=ftng0(i)**0.75 + ftnh(i)=ftnh0(i)**0.75 ! Di 20160114 + fros(i)=1. + fros(i)=fros0(i)**.25 + a_22=ucos*(max(0.,a_2))**1.75/ftns(i)*fros(i) + a_33=ucog*(max(0.,a_3))**1.75/ftng(i) + if(a_3.ge.qrog2) a_33=ucog2*(max(0.,a_3))**1.75/ftng(i) + a_44=ucoh*(max(0.,a_4))**1.75/ftnh(i) ! Di 20160114 + + IF (TAIR(i).LT.273.16) THEN + ZDRY = MAX(1.e-9,A_11+A_22+A_33+A_44) !rain,snow,graupel,hail,cloud ice,cloud water + DBZ(i,k) = 10.*ALOG10(ZDRY) + ELSE + ZWET0 = A_11+UWET*(A_22+A_33+A_44)**.95 + ZWET = MAX(1.e-9,ZWET0) + DBZ(i,k) = 10.*ALOG10(ZWET) + ENDIF + +!JJS 2010/10/19 ^^^^^ + + ENDDO +!dir$ vector aligned + DO i=1,irestrict + +#if ( WRF_CHEM == 1) + ! EMK...Nuclei only calculated when coupling + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcgce_gocart_coupling == 1) ) then + icn_diag(i,k) = icn_out(i) ! #/Litre + nc_diag(i,k) = ccn_out(i) ! #/cm3 + else + icn_diag(i,k) = 0 + nc_diag(i,k) = 0 + end if +#endif + +!JJS 20140305 vvvvv Calculate effective radius for all cloud species +! eff_rad is a function of the slope parameter (Lambda) + + ! rain + if (qrn(i,k) .lt. cmin) then + re_rain_gsfc(i,k) = 0.e0 + else + re_rain_gsfc(i,k) = eff_rad(zr(i)) + endif + ! snow + if (qcs(i,k) .lt. cmin) then + re_snow_gsfc(i,k) = 0.e0 + else + re_snow_gsfc(i,k) = eff_rad(zs(i)) + endif + ! graupel + if (qcg(i,k) .lt. cmin) then + re_graupel_gsfc(i,k) = 0.e0 + else + re_graupel_gsfc(i,k) = eff_rad(zg(i)) + endif + ! hail + if (qch(i,k) .lt. cmin) then + re_hail_gsfc(i,k) = 0.e0 + else + re_hail_gsfc(i,k) = eff_rad(zh(i)) + endif + +! for cloud water + + if (qcl(i,k) .lt. cmin) then + re_cloud_gsfc(i,k) = 0.e0 + else + L_cloud = qcl(i,k) * rho(i,k) ! cloud water [g/cm3] +#if (WRF_CHEM == 1) + ! when running with WRF_Chem and using aerosol coupling in Goddard MP + ! cpi: const_pi = 4.*atan(1.) ~ 3.1415 + ! roqr: 1.0 g/cm**3, liquid water density + ! roqi: 0.9179, ice density + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcgce_gocart_coupling == 1) ) then + ! for cloud water, estimate lambda (slope of gamma distribution) + mu = min(15.e0, (1000.E0/ccn_out(i) + 2.e0)) + gamfac3 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+3.e0) ) + gamfac1 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+1.e0) ) + lambda = (4.e0/3.e0*cpi*roqr*ccn_out(i)/L_cloud* & + gamfac1)**(1.e0/3.e0) ! [1/cm] + re_cloud_gsfc(i,k) = 1.e0/lambda * gamfac3 * 1.e4 !effective radius [micron] + else + ! when running with WRF_Chem but no aerosol coupling in Goddard MP + if (xland(i) .eq. 1.0) then + ccn_ref = ccn_over_land + else if (xland(i) .eq. 2.0) then + ccn_ref = ccn_over_water + else + print *,' xland is not 1. or 2., run stopped' + ! EMK NUWRF + call wrf_error_fatal(' xland is not 1. or 2., run stopped') +! stop + endif + ! for cloud water, estimate lambda (slope of gamma distribution) + mu = min(15.e0, (1000.E0/ccn_ref + 2.e0)) + gamfac3 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+3.e0) ) + gamfac1 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+1.e0) ) + lambda = (4.e0/3.e0*cpi*roqr*ccn_ref/L_cloud* & + gamfac1)**(1.e0/3.e0) ! [1/cm] + re_cloud_gsfc(i,k) = 1.e0/lambda * gamfac3 * 1.e4 !effective radius [micron] + endif ! chem_opt and gsfcgce_gocart_coupling +#else + ! Not running with WRF_Chem + ! ccn_over_land = 1500 ! [#/cm3] climatological value + ! ccn_over_water = 150 ! [#/cm3] climatological value + if (xland(i) .eq. 1.0) then + ccn_ref = ccn_over_land + else if (xland(i) .eq. 2.0) then + ccn_ref = ccn_over_water + else + print *,' xland is not 1. or 2., run stopped' + ! EMK NUWRF + call wrf_error_fatal(' xland is not 1. or 2., run stopped') +! stop + endif + ! for cloud water, estimate lambda (slope of gamma distribution) + mu = min(15.e0, (1000.E0/ccn_ref + 2.e0)) + gamfac3 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+3.e0) ) + gamfac1 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+1.e0) ) + lambda = (4.e0/3.e0*cpi*roqr*ccn_ref/L_cloud* & + gamfac1)**(1.e0/3.e0) ! [1/cm] + re_cloud_gsfc(i,k) = 1.e0/lambda * gamfac3 * 1.e4 !effective radius [micron] +#endif + endif ! qcl(i,k) < cmin test + +! for cloud ice + + if (qci(i,k) .lt. cmin) then + re_ice_gsfc(i,k) = 0.e0 + else +#if (WRF_CHEM == 1) +! ! when running with WRF_Chem and using aerosol coupling in Goddard MP +! I_cloud = qci(i,k) * rho(i,k) ! cloud ice [g/cm3] +! if ( (chem_opt == 300 .or. chem_opt == 301 .or. & +! chem_opt == 302 .or. chem_opt == 303) .and. & +! (gsfcgce_gocart_coupling == 1) ) then +! ! for cloud ice, estimate lambda (slope of gamma distribution) +! mu = min(15.e0, (1000.E0/(icn_out*1.e-3) + 2.e0)) +! gamfac3 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+3.e0) ) +! gamfac1 = ( gamma_toshi(mu+4.e0) / gamma_toshi(mu+1.e0) ) +! lambda = (4.e0/3.e0*cpi*roqi*icn_out*1.e-3/I_cloud* & +! gamfac1)**(1.e0/3.e0) ! [1/cm] +! re_ice_gsfc(i,k) = 1.e0/lambda * gamfac3 * 1.e4 !effective radius [micron] +! else + ! when running with WRF_Chem but no aerosol coupling in Goddard MP + ! for cloud ice effective radius depends on temperature profile, formula from GCE + re_ice_gsfc(i,k) = 125.e0 +(tair(i)-243.16)*5.e0 ! [micron] + if (tair(i) .gt. 243.16) re_ice_gsfc(i,k) = 125.e0 + if (tair(i) .lt. 223.16) re_ice_gsfc(i,k) = 25.e0 +! endif ! chem_opt and gsfcgce_gocart_coupling +#else + ! Not running with WRF_Chem + ! for cloud ice effective radius depends on temperature profile, formula from GCE + re_ice_gsfc(i,k) = 125.e0 +(tair(i)-243.16)*5.e0 ! [micron] + if (tair(i) .gt. 243.16) re_ice_gsfc(i,k) = 125.e0 + if (tair(i) .lt. 223.16) re_ice_gsfc(i,k) = 25.e0 +#endif + endif ! qci(i,k) < cmin test + +!JJS 20140305 ^^^^^ Calculate effective radius for all cloud species + + ENDDO + + 1000 continue + +!JJS **************************************************************** +!JJS convert from GCE grid back to WRF grid + do k=kts,kte +!dir$ vector aligned + DO i=1,irestrict + ptwrf(i,k) = dpt(i,k) + qvwrf(i,k) = dqv(i,k) + qlwrf(i,k) = qcl(i,k) + qrwrf(i,k) = qrn(i,k) + qiwrf(i,k) = qci(i,k) + qswrf(i,k) = qcs(i,k) + qgwrf(i,k) = qcg(i,k) + qhwrf(i,k) = qch(i,k) + ENDDO + enddo !k + +! **************************************************************** + +!+---+-----------------------------------------------------------------+ +! EMK NUWRF...Replace Greg Thompson's dBZ values with those calculated +! above. + IF ( PRESENT (diagflag) ) THEN + if (diagflag .and. do_radar_ref == 1) then + do k=kts,kte +!dir$ vector aligned + DO i=1,irestrict + refl_10cm(i,k) = max(-35.,dbz(i,k)) + ENDDO + end do + + endif + ENDIF +!+---+-----------------------------------------------------------------+ + + END SUBROUTINE saticel_s + + SUBROUTINE auto_conversion( L, N, P , re) + implicit none +!----------------------------------------------------------------------------------------------------- +! Comments: +! This subroutine compute auto conversion rate folloing Li and Daum [2004], which account for +! total cloud liquid water, particle number concentrations, PSD lambda, broadening parameters. +! +! History: +! 08/2010 Toshi Matsui@NASA GSFC : Initial. +! +! +! References: +! Liu, Y. and P. H. Daum, 2004: Parameterization of the autoconversion process. Part I: Analytical +! formulation of the Kessler-type parameterizations. J. Atmos. Sci, 61, 1539-1548. +!----------------------------------------------------------------------------------------------------- + real,intent(in) :: L ! cloud liquid water [g cm-3] + real,intent(in) :: N ! total number concentration [# cm-3] + real,intent(out) :: P ! auto conversion rate [g cm-3 s-1] + real,intent(out) :: re ! cloud effective radius [micron] + + real :: mu ! mu of gamma PSD [-] + real :: eta ! eta function [cm3 g-2 s-1] + real :: beta, beta1, beta2 ! beta function [-] + real :: gamfac , gfac1 , gfac2 ! gamma function [-] + real :: R6_6power ! mean radius of the sixth moment [cm] + real :: R6_thresh ! threshold of mean radius of the sixth moment [cm] + real :: R6 ! mean radius of the sixth moment [cm] + real :: Heaviside_func ! Heaviside step function (0 or 1) + real :: lambda ! slope of gamma size ditribution [1/cm] +! real :: No ! intercept [cm-4] + + real,parameter :: Rc = 10.e0 * 1.e-4 ! threshold of particle radus (10 micron) [cm] + real,parameter :: const_pi = 3.14159e0 ! pai + real,parameter :: const_kappa = 1.9e11 ! coefficient for water droplet collection kernel [cm-3 s-1] + ! from Long [1974, JAS]. +! real,parameter :: const_kappa = 1.9e11*10000.e0 !10000 is to adjust the order to keseller + + + real,parameter :: const_rho_liq = 1.e0 ! density of liquid water [g cm-3] + real,parameter :: eta_func = ((3.e0/(4.e0*const_pi*const_rho_liq))**2) * const_kappa ! eta function [cm3 g-2 s-1] + ! a part of (eq 27b) + + logical,parameter :: no_thresh = .true. ! logic to choose no threshold parameterization or not. + +! +! When no particel, no autoconversion. +! +! EMK BUG FIX...Prevent overflow for small but non-zero values of L +! if( N <= 0.e0 .or. L <= 0.e0 ) then + if( N <= 0.e0 .or. L <= 1.0e-32 ) then + P = 0.e0 + return + endif + +! +! check bad values of N and L +! +! if( N < 0.e0 ) stop 'MSG auto_conversion: N is negative, it must be positive' +! if( L < 0.e0 ) stop 'MSG auto_conversion: L is negative, it must be positive' +! if( L > 1.e0 ) stop 'MSG auto_conversion: L is greater than 1g/cm3.' + +! +! Empirical fit of mu as a function of total particle number concentrations. +! From Martin et al. (1994), assign gamma shape parameter mu for cloud +! drops according to general dispersion characteristics. +! disp=~0.25 for Maritime and 0.45 for Continental. +! Since disp=SQRT((mu+2)/(mu+1) - 1), mu varies from 15 for Maritime (pristine air) +! to 2 for Continental (really dirty air). if mu = 0 --> expnential distribution (narrow dist) +! + +! orig + mu = MIN(15.e0, (1000.E0/N + 2.e0)) + + +! +! gamma functions +! + gfac1 = gamma_toshi(mu+4.e0) + gfac2 = gamma_toshi(mu+1.e0) + gamfac = (gfac1/gfac2) + +! +! estimate lambda (slope of gamma distribution) +! + lambda = (4.e0/3.e0*const_pi*const_rho_liq*N/L*gamfac)**(1.e0/3.e0) ! [1/cm] + + + THRESH: if( no_thresh ) then !------------------------------------------- + +! +! threshold of particle radius (mean radius of the sixth moment ) +! + gfac1 = gamma_toshi(mu+7.e0) + gfac2 = gamma_toshi(mu+1.e0) + gamfac = (gfac1/gfac2) + + R6_6power = (1.e0 / lambda)**6.e0 * gamfac ![cm] (eq. A3) + +! +! auto conversion rate (eq. 26a) +! + P = const_kappa * N * R6_6power * L ! [g cm-3 s-1 ] +! [cm-3 s-1] * [#/cm3] * [cm6] * [g/cm3] + + + else !with threshold --------------------------------------------------- + +! +! Estimate eta under gamma PSD +! + beta1 = (6.e0+mu)*(5.e0+mu)*(4.e0+mu) + beta2 = (3.e0+mu)*(2.e0+mu)*(1.e0+mu) + beta = beta1 / beta2 + + eta = eta_func * beta ! eta function (eq 27b) [cm3 g-2 s-1] + +! +! threshold of particle radius (mean radius of the sixth moment ) +! + R6_thresh = beta * Rc ![cm] (pg 1545) + +! +! mean radius of the sixth moment +! + gfac1 = gamma_toshi(6.e0+mu+1.e0) + gfac2 = gamma_toshi(1.e0+mu) + gamfac = (gfac1/gfac2)**(1.e0/6.e0) + + R6 = (1.e0 / lambda) * gamfac ![cm] (eq. A3) + +! +! Heaviside step function +! + if ( R6 - R6_thresh <= 0.e0 ) then + Heaviside_func = 0.e0 + elseif( R6 - R6_thresh > 0.e0 ) then + Heaviside_func = 1.e0 + else + ! NUWRF EMK...User WRF's library to gracefully stop MPI. + write(wrf_err_message,*)'MSG: auto_conversion: Strange value of R6= ',R6 + call wrf_error_fatal(trim(wrf_err_message)) +! print*, 'MSG: auto_conversion: Strange value of R6= ', R6 ; stop + endif + +! +! auto conversion rate [g cm-3 s-1 ] (eq. 27a) +! + P = eta * (1.e0/N) * (L**3) * Heaviside_func + +! [cm3 g-2 s-1] * [cm3] * [g3/cm9] + + endif THRESH !------------------------------------------------------------ + + +! optional + +! +! estimate effective radius +! + gfac1 = gamma_toshi(mu+4.e0) + gfac2 = gamma_toshi(mu+3.e0) + gamfac = (gfac1/gfac2) + + re = 1.e0/lambda * gamfac * 1.e4 !effective radius [micron] + +! +! estimate No +! +! call gamma_function(mu+1.e0 ,gfac1) +! No = N * (lambda**(mu+1)) / gfac1 + + END subroutine auto_conversion + +!DIR$ ATTRIBUTES FORCEINLINE :: gamma_toshi + real function gamma_toshi(x) + +!--------------------------------------------------------------------------------------------------- +! Comments: +! compute the gamma function T(x) for single precision floating point. +! input : x --- argument of a(x) +! ( x is not equal to 0,-1,-2,... ) +! +! History: +! 09/2009 Toshi Matsui@NASA GSFC ; Adapted to SDSU +! +! References: +!---------------------------------------------------------------------------------------------------- + implicit double precision (a-h,o-z) + dimension g(26) + data g/1.0d0,0.5772156649015329d0, & + -0.6558780715202538d0, -0.420026350340952d-1, & + 0.1665386113822915d0,-.421977345555443d-1, & + -.96219715278770d-2, .72189432466630d-2, & + -.11651675918591d-2, -.2152416741149d-3, & + .1280502823882d-3, -.201348547807d-4, & + -.12504934821d-5, .11330272320d-5, & + -.2056338417d-6, .61160950d-8, & + .50020075d-8, -.11812746d-8, & + .1043427d-9, .77823d-11, & + -.36968d-11, .51d-12, & + -.206d-13, -.54d-14, .14d-14, .1d-15/ + real :: x + + pi=3.141592653589793d0 + if (x.eq.int(x)) then + if (x.gt.0.0d0) then + ga=1.0d0 + m1=int(x)-1 + do k=2,m1 + ga=ga*k + enddo + else + ga=1.0d+300 + endif + else + if (dabs(dble(x)).gt.1.0d0) then + z=dabs(dble(x)) + m=int(z) + r=1.0d0 + do k=1,m + r=r*(z-k) + enddo + z=z-m + else + z=dble(x) + endif + gr=g(26) + do k=25,1,-1 + gr=gr*z+g(k) + enddo + ga=1.0d0/(gr*z) + if (dabs(dble(x)).gt.1.0d0) then + ga=ga*r + if (x.lt.0.0d0) ga=-pi/(x*ga*dsin(pi*x)) + endif + endif + + gamma_toshi = real(ga) + + end function gamma_toshi + + SUBROUTINE Find_NaN_Inf_Double(Warning_MSG, real_input, i_in,j_in,k_in) + implicit none + + real,intent(inout) :: real_input !anykind of Non-dimensional input Real parameters + integer,intent(in) :: i_in, j_in, k_in + character*(*),intent(in) :: Warning_MSG + +! +! Find Infinity +! +!if( exp(-abs(real_input)) == 0.) then ! this formulae is bit slow + + if( 1e+10/real_input == 0. ) then + print*,'MSG Find_NaN_Inf: '//Warning_MSG//'Infinity at',i_in,j_in,k_in + real_input = 0. + return + endif + +! +! Find NaN +! + if( real_input==0. .or. real_input>0. .or. real_input<0. .or. real_input>=0. .or. real_input<=0. ) then + else + print*,'MSG Find_NaN_Inf: '//Warning_MSG//'NaN at',i_in,j_in,k_in + real_input = 0. + return + endif + + END SUBROUTINE Find_NaN_Inf_Double + +!+---+-----------------------------------------------------------------+ + + subroutine refl10cm_gsfc (qv1d, qr1d, qs1d, qg1d, & + t1d, p1d, dBZ, kts, kte, ii, jj) + + IMPLICIT NONE + +!..Sub arguments + INTEGER, INTENT(IN):: kts, kte, ii, jj + REAL, DIMENSION(kts:kte), INTENT(IN):: & + qv1d, qr1d, qs1d, qg1d, t1d, p1d + REAL, DIMENSION(kts:kte), INTENT(INOUT):: dBZ + +!..Local variables + REAL, DIMENSION(kts:kte):: temp, pres, qv, rho + REAL, DIMENSION(kts:kte):: rr, rs, rg + + DOUBLE PRECISION, DIMENSION(kts:kte):: ilamr, ilams, ilamg + DOUBLE PRECISION, DIMENSION(kts:kte):: N0_r, N0_s, N0_g + DOUBLE PRECISION:: lamr, lams, lamg + LOGICAL, DIMENSION(kts:kte):: L_qr, L_qs, L_qg + + REAL, DIMENSION(kts:kte):: ze_rain, ze_snow, ze_graupel + DOUBLE PRECISION:: fmelt_s, fmelt_g + + INTEGER:: i, k, k_0, kbot, n + LOGICAL:: melti + + DOUBLE PRECISION:: cback, x, eta, f_d + REAL, PARAMETER:: R=287. + REAL, PARAMETER:: PIx=3.1415926536 + +!+---+ + + do k = kts, kte + dBZ(k) = -35.0 + enddo + +!+---+-----------------------------------------------------------------+ +!..Put column of data into local arrays. +!+---+-----------------------------------------------------------------+ + do k = kts, kte + temp(k) = t1d(k) + qv(k) = MAX(1.E-10, qv1d(k)) + pres(k) = p1d(k) + rho(k) = 0.622*pres(k)/(R*temp(k)*(qv(k)+0.622)) + + if (qr1d(k) .gt. 1.E-9) then + rr(k) = qr1d(k)*rho(k) + N0_r(k) = xnor + lamr = (xam_r*xcrg(3)*N0_r(k)/rr(k))**(1./xcre(1)) + ilamr(k) = 1./lamr + L_qr(k) = .true. + else + rr(k) = 1.E-12 + L_qr(k) = .false. + endif + + if (qs1d(k) .gt. 1.E-9) then + rs(k) = qs1d(k)*rho(k) + N0_s(k) = xnos + lams = (xam_s*xcsg(3)*N0_s(k)/rs(k))**(1./xcse(1)) + ilams(k) = 1./lams + L_qs(k) = .true. + else + rs(k) = 1.E-12 + L_qs(k) = .false. + endif + + if (qg1d(k) .gt. 1.E-9) then + rg(k) = qg1d(k)*rho(k) + N0_g(k) = xnog + lamg = (xam_g*xcgg(3)*N0_g(k)/rg(k))**(1./xcge(1)) + ilamg(k) = 1./lamg + L_qg(k) = .true. + else + rg(k) = 1.E-12 + L_qg(k) = .false. + endif + enddo + +!+---+-----------------------------------------------------------------+ +!..Locate K-level of start of melting (k_0 is level above). +!+---+-----------------------------------------------------------------+ + melti = .false. + k_0 = kts + do k = kte-1, kts, -1 + if ( (temp(k).gt.273.15) .and. L_qr(k) & + .and. (L_qs(k+1).or.L_qg(k+1)) ) then + k_0 = MAX(k+1, k_0) + melti=.true. + goto 195 + endif + enddo + 195 continue + +!+---+-----------------------------------------------------------------+ +!..Assume Rayleigh approximation at 10 cm wavelength. Rain (all temps) +!.. and non-water-coated snow and graupel when below freezing are +!.. simple. Integrations of m(D)*m(D)*N(D)*dD. +!+---+-----------------------------------------------------------------+ + + do k = kts, kte + ze_rain(k) = 1.e-22 + ze_snow(k) = 1.e-22 + ze_graupel(k) = 1.e-22 + if (L_qr(k)) ze_rain(k) = N0_r(k)*xcrg(4)*ilamr(k)**xcre(4) + if (L_qs(k)) ze_snow(k) = (0.176/0.93) * (6.0/PIx)*(6.0/PIx) & + * (xam_s/900.0)*(xam_s/900.0) & + * N0_s(k)*xcsg(4)*ilams(k)**xcse(4) + if (L_qg(k)) ze_graupel(k) = (0.176/0.93) * (6.0/PIx)*(6.0/PIx) & + * (xam_g/900.0)*(xam_g/900.0) & + * N0_g(k)*xcgg(4)*ilamg(k)**xcge(4) + enddo + + +!+---+-----------------------------------------------------------------+ +!..Special case of melting ice (snow/graupel) particles. Assume the +!.. ice is surrounded by the liquid water. Fraction of meltwater is +!.. extremely simple based on amount found above the melting level. +!.. Uses code from Uli Blahak (rayleigh_soak_wetgraupel and supporting +!.. routines). +!+---+-----------------------------------------------------------------+ + + if (melti .and. k_0.ge.kts+1) then + do k = k_0-1, kts, -1 + +!..Reflectivity contributed by melting snow + if (L_qs(k) .and. L_qs(k_0) ) then + fmelt_s = MAX(0.005d0, MIN(1.0d0-rs(k)/rs(k_0), 0.99d0)) + eta = 0.d0 + lams = 1./ilams(k) + do n = 1, nrbins + x = xam_s * xxDs(n)**xbm_s + call rayleigh_soak_wetgraupel (x,DBLE(xocms),DBLE(xobms), & + fmelt_s, melt_outside_s, m_w_0, m_i_0, lamda_radar, & + CBACK, mixingrulestring_s, matrixstring_s, & + inclusionstring_s, hoststring_s, & + hostmatrixstring_s, hostinclusionstring_s) + f_d = N0_s(k)*xxDs(n)**xmu_s * DEXP(-lams*xxDs(n)) + eta = eta + f_d * CBACK * simpson(n) * xdts(n) + enddo + ze_snow(k) = SNGL(lamda4 / (pi5 * K_w) * eta) + endif + +!..Reflectivity contributed by melting graupel + + if (L_qg(k) .and. L_qg(k_0) ) then + fmelt_g = MAX(0.005d0, MIN(1.0d0-rg(k)/rg(k_0), 0.99d0)) + eta = 0.d0 + lamg = 1./ilamg(k) + do n = 1, nrbins + x = xam_g * xxDg(n)**xbm_g + call rayleigh_soak_wetgraupel (x,DBLE(xocmg),DBLE(xobmg), & + fmelt_g, melt_outside_g, m_w_0, m_i_0, lamda_radar, & + CBACK, mixingrulestring_g, matrixstring_g, & + inclusionstring_g, hoststring_g, & + hostmatrixstring_g, hostinclusionstring_g) + f_d = N0_g(k)*xxDg(n)**xmu_g * DEXP(-lamg*xxDg(n)) + eta = eta + f_d * CBACK * simpson(n) * xdtg(n) + enddo + ze_graupel(k) = SNGL(lamda4 / (pi5 * K_w) * eta) + endif + + enddo + endif + + do k = kte, kts, -1 + dBZ(k) = 10.*log10((ze_rain(k)+ze_snow(k)+ze_graupel(k))*1.d18) + enddo + + end subroutine refl10cm_gsfc + +!+---+-----------------------------------------------------------------+ + +!JJS 20140225 +! Calculate cloud droplet effective radius + real function eff_rad(lambda) + + use, intrinsic :: ieee_arithmetic + implicit none + +!--------------------------------------------------------------------------------------------------- +! Comments: +! Compute drop effective radius from slope parameters (lambda) of expoential size distribution. +! +! History: +! 02/2014 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!---------------------------------------------------------------------------------------------------- + real,intent(in) :: lambda ! intercept parameter [1/cm] + +! +! for no particles. +! + if ( lambda <= 0.e0 .or. ieee_is_nan(lambda) ) then + eff_rad = 0.e0 + return + endif + +! +! compute drop effective radius for exponential distribution N(D) = N0*exp(-lam*D) +! + eff_rad = 1.5e0 / (lambda*100.) * 1.0e+6 ! [micron] + + end function eff_rad + +END MODULE module_mp_gsfcgce_4ice_nuwrf + + diff --git a/phys/module_mp_jensen_ishmael.F b/phys/module_mp_jensen_ishmael.F new file mode 100644 index 0000000000..81a82aa884 --- /dev/null +++ b/phys/module_mp_jensen_ishmael.F @@ -0,0 +1,4701 @@ +module module_mp_jensen_ishmael + + !------------------------------------------------------------------------------------------------------! + ! This is the initial release of the Ice-Spheroids Habit Model with Aspect-ratio Evolution (ISHMAEL). ! + ! This code calculates the moisture tendencies of water vapor, cloud water, rainwater, and three ice ! + ! species which are planar-nucleated particles, columnar-nucleated particles, and aggregates. Planar- ! + ! and columnar-nucleated ice particles are parameterized as spheroids (two growth dimensions are ! + ! tracked), and ice particle shape and density evolution are predicted for vapor growth, sublimation, ! + ! riming, and melting. The model can produce various vapor-grown habits (which currently depend on the ! + ! environmental temperature and supersaturation), and the model predicts the change in ice particle ! + ! shape and density during riming. Ice particle fall speeds are diagnosed based on ice particle ! + ! properties. Aggregates are currently parameterized as spheroids with a fixed shape and density. Ice ! + ! is initiated as planar or columnar based on temperature. After nucleation, the shapes of particles ! + ! are not constrained, i.e., planar-nucleated particles can attain columnar shapes if the growth ! + ! conditions allow it. ! + ! ! + ! Predicting two ice particle dimensions requires two prognostic variables. Thus mass, number, and two ! + ! size-related mixing ratio are predicted for each ice species. That makes 12 prognostic variables ! + ! for ice. Just throw more processors at it. Rain mass and number and cloud mass are also predicted ! + ! See Jensen et al. 2017 (JAS), Jensen et al. 2018 (MWR), and Jensen et al. 2018 (JAS) for details. ! + ! ! + ! Author: Anders A. Jensen, NCAR-RAL, ajensen@ucar.edu, 303-497-8484 ! + ! Last modified: 29 March 2019 ! + !------------------------------------------------------------------------------------------------------! + + use module_wrf_error + + implicit none !.. You are welcome + + !.. Constants + real, private, parameter :: & + PI = 3.14159265, & !.. Pi = 3.14159265... until forever + G_HOME = 9.8, & !.. Gravity (m s^-1) + RD = 287.15, & !.. Dry air gas constant (J kg^-1 K^-1) + RV = 461.5, & !.. Moist air gas constant (J kg^-1 K^-1) + CP = 1004.0, & !.. Heat capacity Air (J kg^-1 K^-1) + CPW = 4218.0, & !.. Heat capacity Water (J kg^-1 K^-1) + RCP = 0.285856574, & !.. RD / CP + RHOW = 1000.0, & !.. Water density (kg m^-3) + T0 = 273.15, & !.. STP temperature (K) + P0 = 101325.0, & !.. STP pressure (Pa) + RHOI = 920.0, & !.. Bulk ice density (kg m^-3) + R0 = 1.27494 !.. Air density at 1000 mb, T=T0 (kg m^-3) + + !.. The lookup table arrays are itab for ice-cloud water collection + !.. and itabr for ice-rain collection. The lookup tables are read in + !.. the subroutine jensen_ishmael_init which occurs once. + real, private, allocatable, dimension(:,:,:,:,:) :: itab, itabr + + !.. Inherent growth ratio data is stored in the igrdata array + !.. The gamma_tab is a tabulation of the gamma function needed + !.. because ice particle shape evolves. + real, private, allocatable, dimension(:) :: igrdata, gamma_tab + + !.. Aggregation lookup tables arrays + real, private, allocatable, dimension(:,:,:) :: coltab, coltabn + + !.. Added for double precision + integer, parameter :: LUT_KIND_R4 = selected_real_kind(6) !.. 4 byte real + real(kind=LUT_KIND_R4), private, allocatable, dimension(:,:,:,:,:) :: itab_o, itabr_o + real(kind=LUT_KIND_R4), private, allocatable, dimension(:) :: gamma_tab_o + +contains + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. This subroutine currently reads in the ice-cloud collection, + !.. ice-rain collecion, gamma calculations, and inherent growth ratio + !.. data lookup tables and calculates the ice-ice aggregation lookup table. + + subroutine jensen_ishmael_init + implicit none + + integer :: i1, i2, i3, i4, icat + integer, parameter :: ncat=7,npair=35,ndn=60 + integer :: ipair(ncat,ncat) + real, dimension(ncat,9) :: dstprms + real, dimension(ncat) :: gnu,cfmas,pwmas,cfvt,pwvt,tablo,tabhi + + !.. Collection pairs + ipair=& + reshape((/0,0,3,7,11,15,19 ,1,0,5,9,13,17,21 & + ,2,4,22,24,0,0,0 ,6,8,23,28,0,0,0 & + ,10,12,25,29,35,0,0 ,14,16,26,30,32,0,0 & + ,18,20,27,31,33,34,0/), & + (/ncat,ncat/)) + + !.. Ice-ice collection lookup table properties (JYH) + dstprms=& + !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! cloud rain planar columnar aggreg graup hail + ! 1 2 3 4 5 6 7 ---> ncat + !----------------------------------------------------------------------- + reshape((/.5, .5, .318, .318, .5, .5, .5, & !.. shape (capacitance shape) + 524., 524., .333, .333, .496, 157., 471., & !.. cfmas (m=cfmas*D**pwmas) + 3., 3., 2.4, 2.4, 2.4, 3., 3., & !.. pwmas + 3173., 149., 4.836, 4.836, 3.084, 93.3, 161., & !.. cfvt (v = cfvt*D**pwvt) + 2., .5, 0.25, .25, .2, .5, .5, & !.. pwvt + 1.e-6, 1.e-6, 1.e-6, 1.e-6, 1.e-6, 1.e-6, 1.e-6, & !.. tablo (size limits for table) + 1.e-2, 1.e-2, 1.e-2, 1.e-2, 1.e-2, 1.e-2, 1.e-2, & !.. tabhi + .1e-5, .1e-4, .1e-5, .1e-5, .1e-4, .1e-4, .1e-4, & !.. dnmin (characteristic diam + .1e-2, .1e-1, .1e-1, .1e-1, .1e-1, .1e-1, .1e-1/), & !.. dnmax limits) + (/ncat,9/)) + + do icat=1,ncat + cfmas(icat)=dstprms(icat,2) + pwmas(icat)=dstprms(icat,3) + cfvt (icat)=dstprms(icat,4) + pwvt (icat)=dstprms(icat,5) + tablo(icat)=dstprms(icat,6) + tabhi(icat)=dstprms(icat,7) + gnu(icat) = 4.0 + enddo + + !.. Read in ice-cloud water collection lookup table + if(.not.allocated(itab_o)) then + allocate(itab_o(51,51,51,11,2)) + + open(20, FILE='ishmael-qi-qc.bin', FORM='unformatted') + do i1 = 1,51 + do i2 = 1,51 + do i3 = 1,51 + do i4 = 1,11 + read(20) itab_o(i1,i2,i3,i4,1), & + itab_o(i1,i2,i3,i4,2) + enddo + enddo + enddo + enddo + close(20) + print*, 'Jensen_ISHMAEL lookup table 1 of 3' + endif + + !.. Read in ice-rain collection lookup table + if(.not.allocated(itabr_o)) then + allocate(itabr_o(51,51,51,11,6)) + + open(30, FILE='ishmael-qi-qr.bin', FORM='unformatted') + do i1 = 1,51 + do i2 = 1,51 + do i3 = 1,51 + do i4 = 1,11 + read(30) itabr_o(i1,i2,i3,i4,1), & + itabr_o(i1,i2,i3,i4,2), & + itabr_o(i1,i2,i3,i4,3), & + itabr_o(i1,i2,i3,i4,4), & + itabr_o(i1,i2,i3,i4,5), & + itabr_o(i1,i2,i3,i4,6) + enddo + enddo + enddo + enddo + close(30) + print*, 'Jensen_ISHMAEL lookup table 2 of 3' + endif + + !.. Read in gamma function lookup table for speedy code + if(.not.allocated(gamma_tab_o)) then + allocate(gamma_tab_o(505001)) + + open(40, FILE='ishmael-gamma-tab.bin', FORM='unformatted') + do i1 = 1,505001 + read(40) gamma_tab_o(i1) + enddo + close(40) + print*, 'Jensen_ISHMAEL lookup table 3 of 3' + endif + + !.. Read in inhernent growth ratio data (-1C to -60C) + !.. This currently assumes columns below -20C (plates are used later in the code) + !.. From Chen and Lamb 1994 + if(.not.allocated(igrdata)) then + allocate(igrdata(60)) + + igrdata = & + (/ 0.910547, 0.81807, 0.6874, 0.60127, 1.59767, 2.32423, 2.08818, & + 1.61921, 1.15865, 0.863071, 0.617586, 0.453917, 0.351975, 0.28794, & + 0.269298, 0.28794, 0.333623, 0.418883, 0.56992, 0.796458, 1.14325, & + 1.64103, 1.90138, 1.82653, 1.61921, 1.47436, 1.32463, 1.25556, & + 1.22239, 1.206, 1.11522, 1.10751, 1.10738, 1.11484, 1.12234, & + 1.12221, 1.14529, 1.16884, 1.20104, 1.22573, 1.25094, 1.27666, & + 1.31183, 1.3388, 1.35704, 1.37553, 1.38479, 1.39411, 1.40349, & + 1.41294, 1.42245, 1.43202, 1.44166, 1.45137, 1.46114, 1.47097, & + 1.48087, 1.50105, 1.50087, 1.51098 /) + endif + + !.. make collection table (JYH) + !.. called only on initialization of the model + !.. coltab = mass mixing ratio collection + !.. coltabn = number mixing ratio collection + !.. ndn = table elements + !.. ncat = # of hydrometeor categories + if(.not.allocated(coltab)) then + allocate(coltab(ndn,ndn,npair)) + endif + + if(.not.allocated(coltabn)) then + allocate(coltabn(ndn,ndn,npair)) + endif + + !.. Call to build the aggregation lookup table (JYH) + call mkcoltb(ndn,ncat,coltab,coltabn,ipair,gnu,tablo,tabhi,cfmas,pwmas,cfvt,pwvt) + print*, 'Jensen_ISHMAEL aggregation lookup table built' + + itab = itab_o; itabr = itabr_o; gamma_tab = gamma_tab_o + + end subroutine jensen_ishmael_init + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. The main subroutine. + + subroutine MP_JENSEN_ISHMAEL(ITIMESTEP, DT_IN, P, DZ, & + TH, QV, QC, QR, NR, QI1, NI1, AI1, CI1, & + QI2, NI2, AI2, CI2, & + QI3, NI3, AI3, CI3, & + IDS,IDE, JDS,JDE, KDS,KDE, & + IMS,IME, JMS,JME, KMS,KME, & + ITS,ITE, JTS,JTE, KTS,KTE, & + RAINNC, RAINNCV, SNOWNC, SNOWNCV, & + diag_effc3d, diag_effi3d, diag_dbz3d, & + diag_vmi3d_1, diag_di3d_1, diag_rhopo3d_1, diag_phii3d_1, & + diag_vmi3d_2, diag_di3d_2, diag_rhopo3d_2, diag_phii3d_2, & + diag_vmi3d_3, diag_di3d_3, diag_rhopo3d_3, diag_phii3d_3, & + diag_itype_1,diag_itype_2,diag_itype_3 & + ) + + !.. ITIMESTEP - time step counter (integer) + !.. DT_IN - model time step (s) + !.. P - air pressure (Pa) + !.. DZ - difference in height over interface (m) + !.. TH - potential temperature (K) + !.. QV - water vapor mixing ratio (kg kg^-1) + !.. QC - cloud water mixing ratio (kg kg^-1) + !.. QR - rain water mixing ratio (kg kg^-1) + !.. NR - rain number concentration (kg^-1) + !.. QI1 - planar-nucleated mixing ratio (kg kg^-1) + !.. NI1 - planar-nucleated number mixing ratio (kg^-1) + !.. AI1 - planar-nucleated a^2c mixing ratio (m^3 kg^-1) + !.. CI1 - planar-nucleated c^2a mixing ratio (m^3 kg^-1) + !.. QI2 - columnar-nucleated mixing ratio (kg kg^-1) + !.. NI2 - columnar-nucleated number mixing ratio (kg^-1) + !.. AI2 - columnar-nucleated a^2c mixing ratio (m^3 kg^-1) + !.. CI2 - columnar-nucleated c^2a mixing ratio (m^3 kg^-1) + !.. QI3 - aggregate mixing ratio (kg kg^-1) + !.. NI3 - aggregate number mixing ratio (kg^-1) + !.. AI3 - aggregate a^2c mixing ratio (m^3 kg^-1) + !.. CI3 - aggregate c^2a mixing ratio (m^3 kg^-1) + !.. IDS,IDE - I domain start/end locations + !.. JDS,JDE - J domain start/end locations + !.. KDS,KDE - K domain start/end locations + !.. IMS,IME - I memory start/end locations + !.. JMS,JME - J memory start/end locations + !.. KMS,KME - K memory start/end locations + !.. ITS,ITE - I tile start/end locations + !.. JTS,JTE - J tile start/end locations + !.. KTS,KTE - K tile start/end locations + !.. RAINNC - total accumulated precipitation (mm) + !.. RAINNCV - total accumulated precipitation in a time step (mm) + !.. SNOWNC - total ice accumulated precipitation (mm) + !.. SNOWNCV - total ice accumulated precipitation in a time step (mm) + !.. DIAG_EFFC3D - Effective cloud water radius for coupling to radiation (m) + !.. DIAG_EFFI3D - Effective ice radius for coupling to radiation (m) + !.. DIAG_DBZ3D - 10-cm reflectivity (dBZ) + !.. DIAG_VMI3D_1 - planar-nucleated mass-weighted fall speeds (m s^-1) + !.. DIAG_VMI3D_2 - columnar-nucleated mass-weighted fall speeds (m s^-1) + !.. DIAG_VMI3D_3 - aggregate mass-weighted fall speeds (m s^-1) + !.. DIAG_DI3D_1 - planar-nucleated mass-weighted maximum diameter (m) + !.. DIAG_DI3D_2 - columnar-nucleated mass-weighted maximum diameter (m) + !.. DIAG_DI3D_3 - aggregate mass-weighted maximum diameter (m) + !.. DIAG_RHOPO3D_1 - planar-nucleated mass-weighted effective density (kg m^-3) + !.. DIAG_RHOPO3D_2 - columnar-nucleated mass-weighted effective density (kg m^-3) + !.. DIAG_RHOPO3D_3 - aggregate mass-weighted effective density (kg m^-3) + !.. DIAG_PHII3D_1 - planar-nucleated number-weighted aspect ratio + !.. DIAG_PHII3D_2 - columnar-nucleated number-weighted aspect ratio + !.. DIAG_PHII3D_3 - aggregate number-weighted aspect ratio + !.. DIAG_ITYPE_1 - currently not used + !.. DIAG_ITYPE_2 - currently not used + !.. DIAG_ITYPE_3 - currently not used + + implicit none + + !.. Grid variables + integer, intent(in) :: & + ids, ide, jds, jde, kds, kde , & + ims, ime, jms, jme, kms, kme , & + its, ite, jts, jte, kts, kte + + !.. Time and timestep + integer, intent(in) :: ITIMESTEP + real, intent(in) :: dt_in + + !.. 3D variables + real, dimension(ims:ime, kms:kme, jms:jme), intent(in) :: p, dz + + real, dimension(ims:ime, kms:kme, jms:jme), intent(inout) :: & + th, qv, qc, qr, nr, qi1, ni1, ai1, ci1, qi2, ni2, ai2, ci2, & + qi3, ni3, ai3, ci3, & + diag_effc3d, diag_effi3d, diag_dbz3d, & + diag_vmi3d_1, diag_di3d_1, diag_rhopo3d_1, diag_phii3d_1, & + diag_vmi3d_2, diag_di3d_2, diag_rhopo3d_2, diag_phii3d_2, & + diag_vmi3d_3, diag_di3d_3, diag_rhopo3d_3, diag_phii3d_3, & + diag_itype_1, diag_itype_2, diag_itype_3 + + !.. 2D variables + real, dimension(ims:ime, jms:jme), intent(inout) :: & + rainnc, rainncv, snownc, snowncv + + integer :: I,K,J + + !.. Define the ice species + !.. Do not change these without changing/knowing how nucleation works + integer, parameter :: CAT = 3 !.. Number of ice categories (species) + integer, parameter :: ICE1 = 1 !.. Ice initiated as planar + integer, parameter :: ICE2 = 2 !.. Ice initiated as columnar + integer, parameter :: ICE3 = 3 !.. Aggregates + + !.. Use tile locations for our variables + !.. Make everthing 1D for our loop + !.. These variables go in and out of newmicro + real, dimension(kts:kte) :: & + th1d, qv1d, qc1d, qr1d, nr1d, p1d, dz1d, & + effc1d, effi1d, dbz1d + + real, dimension(cat, kts:kte) :: & + qi1d, ni1d, ai1d, ci1d, & + vmi1d, di1d, rhopo1d, phii1d, icetype1d + + !.. Precipitation + real :: qrpre1d + real, dimension(cat) :: qipre1d + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Accumulated precipitation in one timestep (zero out before microphysics) + qrpre1d =0. + qipre1d(ICE1)=0. + qipre1d(ICE2)=0. + qipre1d(ICE3)=0. + + !.. Loop over the grid and send each vertical column into the microphysics routine + do j=jts,jte !.. j loop (north-south) + do i=its,ite !.. i loop (horizontal) + + !.. Get the 1D variables from WRF and zero out process rates + do k=kts,kte !.. k loop (vertical) + + !.. Thermo,rain,cloud,vapor,etc + TH1D(k) = TH(i,k,j) + QV1D(k) = QV(i,k,j) + QC1D(k) = QC(i,k,j) + QR1D(k) = QR(i,k,j) + NR1D(k) = NR(i,k,j) + P1D(k) = P(i,k,j) + DZ1D(k) = DZ(i,k,j) + EFFC1D(k) = 0. + EFFI1D(k) = 0. + DBZ1D(k) = -35. + !.. Planar-nucleated + QI1D(ICE1,k) = QI1(i,k,j) + NI1D(ICE1,k) = NI1(i,k,j) + AI1D(ICE1,k) = AI1(i,k,j) + CI1D(ICE1,k) = CI1(i,k,j) + VMI1D(ICE1,k) = 0. + DI1D(ICE1,k) = 0. + RHOPO1D(ICE1,k) = 0. + PHII1D(ICE1,k) = 0. + ICETYPE1D(ICE1,k) = 0. + !.. Columnar-nucleated + QI1D(ICE2,k) = QI2(i,k,j) + NI1D(ICE2,k) = NI2(i,k,j) + AI1D(ICE2,k) = AI2(i,k,j) + CI1D(ICE2,k) = CI2(i,k,j) + VMI1D(ICE2,k) = 0. + DI1D(ICE2,k) = 0. + RHOPO1D(ICE2,k) = 0. + PHII1D(ICE2,k) = 0. + ICETYPE1D(ICE2,k) = 0. + !.. Aggregates + QI1D(ICE3,k) = QI3(i,k,j) + NI1D(ICE3,k) = NI3(i,k,j) + AI1D(ICE3,k) = AI3(i,k,j) + CI1D(ICE3,k) = CI3(i,k,j) + VMI1D(ICE3,k) = 0. + DI1D(ICE3,k) = 0. + RHOPO1D(ICE3,k) = 0. + PHII1D(ICE3,k) = 0. + ICETYPE1D(ICE3,k) = 0. + enddo !.. (vertical k-loop) + + !.. Call me Ishmael. + call me_ishmael(itimestep, kts, kte, i, j, dt_in, p1d, dz1d, & + th1d, qv1d, qc1d, qr1d, nr1d, qi1d, ni1d, ai1d, ci1d, & + CAT, ICE1, ICE2, ICE3, effc1d, effi1d, dbz1d, icetype1d, & + vmi1d, di1d, rhopo1d, phii1d, qrpre1d, qipre1d) + + !.. Send the 1D columns from newmicro back to WRF + do k=kts,kte !.. k loop (vertical) + TH(i,k,j) = TH1D(k) + QV(i,k,j) = QV1D(k) + QC(i,k,j) = QC1D(k) + QR(i,k,j) = QR1D(k) + NR(i,k,j) = NR1D(k) + DIAG_EFFC3D(i,k,j) = max((min(EFFC1D(k),50.e-6)),2.51e-6) + DIAG_EFFI3D(i,k,j) = max((min(EFFI1D(k),999.e-6)),5.e-6) + DIAG_DBZ3D(i,k,j) = max(dbz1d(k),-35.) + !.. Planar-nucleated + QI1(i,k,j) = QI1D(ICE1,k) + NI1(i,k,j) = NI1D(ICE1,k) + AI1(i,k,j) = AI1D(ICE1,k) + CI1(i,k,j) = CI1D(ICE1,k) + DIAG_VMI3D_1(i,k,j) = vmi1d(ICE1,k) + DIAG_DI3D_1(i,k,j) = di1d(ICE1,k) + DIAG_RHOPO3D_1(i,k,j)= rhopo1d(ICE1,k) + DIAG_PHII3D_1(i,k,j) = phii1d(ICE1,k) + DIAG_ITYPE_1(i,k,j) = icetype1d(ICE1,k) + !.. Columnar-nucleated + QI2(i,k,j) = QI1D(ICE2,k) + NI2(i,k,j) = NI1D(ICE2,k) + AI2(i,k,j) = AI1D(ICE2,k) + CI2(i,k,j) = CI1D(ICE2,k) + DIAG_VMI3D_2(i,k,j) = vmi1d(ICE2,k) + DIAG_DI3D_2(i,k,j) = di1d(ICE2,k) + DIAG_RHOPO3D_2(i,k,j)= rhopo1d(ICE2,k) + DIAG_PHII3D_2(i,k,j) = phii1d(ICE2,k) + DIAG_ITYPE_2(i,k,j) = icetype1d(ICE2,k) + !.. Aggregates + QI3(i,k,j) = QI1D(ICE3,k) + NI3(i,k,j) = NI1D(ICE3,k) + AI3(i,k,j) = AI1D(ICE3,k) + CI3(i,k,j) = CI1D(ICE3,k) + DIAG_VMI3D_3(i,k,j) = vmi1d(ICE3,k) + DIAG_DI3D_3(i,k,j) = di1d(ICE3,k) + DIAG_RHOPO3D_3(i,k,j)= rhopo1d(ICE3,k) + DIAG_PHII3D_3(i,k,j) = phii1d(ICE3,k) + DIAG_ITYPE_3(i,k,j) = icetype1d(ICE3,k) + enddo + + !.. Accumulated precipitation and precipitation rates + !.. Frozen precipitation + SNOWNC(i,j) = SNOWNC(i,j) + qipre1d(ICE1) + qipre1d(ICE2) + qipre1d(ICE3) + SNOWNCV(i,j) = qipre1d(ICE1) + qipre1d(ICE2) + qipre1d(ICE3) + + !.. Total precipitation + RAINNC(i,j) = RAINNC(i,j) + qrpre1d + qipre1d(ICE1) + qipre1d(ICE2) + qipre1d(ICE3) + RAINNCV(i,j) = qrpre1d + qipre1d(ICE1) + qipre1d(ICE2) + qipre1d(ICE3) + + enddo ! i loop (horizontal) + enddo ! j loop (north-south) + + end subroutine MP_JENSEN_ISHMAEL + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. The microphysics + subroutine me_ishmael(it, kts, kte, i, j, dt, pres_e, dzmic, & + theta, qv, qc, qr, nr, qi, ni, ai, ci, CAT, ICE1, ICE2, ICE3, & + effc1d, effi1d, dbz1d, icetype1d, vmi1d, di1d, rhopo1d, phii1d, & + qrpre1d, qipre1d) + + implicit none + + !.. User logicals (all should be TRUE except for testing) + logical, parameter :: RIMING = .TRUE. ! Riming + logical, parameter :: RAIN_ICE = .TRUE. ! Rain-ice collection (for testing) + logical, parameter :: FREEZE_QC = .TRUE. ! Freeze cloud drops (Homogeneous) + logical, parameter :: SPLINTERS = .TRUE. ! Rime Splinters + logical, parameter :: WET_GROW = .TRUE. ! Wet growth + + !.. Input/Output variables from WRF + integer, intent(in) :: it, i, j !.. Integer timestep, model i and j + integer, intent(in) :: kts, kte !.. Tile k-start and k-end + integer, intent(in) :: CAT, ICE1, ICE2, ICE3 !.. Number of categories, planar and columnar index + real, intent(in) :: dt !.. Timestep + + real, dimension(kts:kte), intent(in) :: pres_e, dzmic !.. Pressure and dz + real, dimension(kts:kte), intent(inout) :: theta !.. Theta (K) + real, dimension(kts:kte), intent(inout) :: qv !.. Vapor mixing ratio (kg kg^-1) + real, dimension(kts:kte), intent(inout) :: qc !.. Cloud water mixing ratio (kg kg^-1) + real, dimension(kts:kte), intent(inout) :: qr !.. Rain mixing ratio (kg kg^-1) + real, dimension(kts:kte), intent(inout) :: nr !.. Rain number mixing ratio (# kg^-1) + + real, dimension(cat, kts:kte), intent(inout) :: qi !.. Ice mass mixing ratio (kg kg^-1) + real, dimension(cat, kts:kte), intent(inout) :: ni !.. Ice number mixing ratio (# kg^-1) + real, dimension(cat, kts:kte), intent(inout) :: ai !.. Ice a^2c mixing ratio (m^3 kg^-1) + real, dimension(cat, kts:kte), intent(inout) :: ci !.. Ice c^2a mixing ratio (m^3 kg^-1) + + !.. Ice diagnostics + real, dimension(kts:kte), intent(inout) :: effc1d, effi1d, dbz1d + real, dimension(cat, kts:kte), intent(inout) :: rhopo1d + real, dimension(cat, kts:kte), intent(inout) :: phii1d + real, dimension(cat, kts:kte), intent(inout) :: vmi1d + real, dimension(cat, kts:kte), intent(inout) :: di1d + real, dimension(cat, kts:kte), intent(inout) :: icetype1d + real :: dbzr,dbzsum + + real :: qrpre1d !.. Rain precipitation accumulation (mm) + real, dimension(cat) :: qipre1d !.. Ice liquid-equivalent precipitation accumulation (mm) + + !.. The Parameters + real, parameter :: NU = 4.0 !.. Ice distribution parameter (keep at 4) + !.. If changed, build new lookup tables + + real, parameter :: QSMALL = 1.e-12 !.. Smallest ice mass (kg kg^-1) + real, parameter :: QNSMALL= 1.25e-7 !.. Smallest ice number (# kg^-1) + real, parameter :: QASMALL= 1.e-24 !.. Smallest ice volume (m^-3 kg^-1) + real, parameter :: ao = 0.1e-6 !.. alphstr=ao^(1-deltastr) + real, parameter :: AR = 149.1 !.. 'a' parameter in rain fallspeed-size relation (m^(1-br)/s) + real, parameter :: BR = 0.5 !.. 'b' parameter in rain fallspeed-size relation + real, parameter :: F1R = 0.78 !.. Ventilation coefficient for rain + real, parameter :: F2R = 0.308 !.. Ventilation coefficient for rain + real, parameter :: LAMMAXR = 1./20.E-6 !.. Max allowed value for rain slope parameter (m^-1) + real, parameter :: LAMMINR = 1./2800.E-6 !.. Min allowed value for rain slope parameter (m^-1) + + !.. Local/Dummy variables + logical :: vgflag !.. Vapor growth flag to determine if vapor growth + !.. is producing subsaturated conditions + + logical, dimension(cat) :: has_ice !.. true if ice exists for an ice species + logical, dimension(cat) :: dry_growth !.. Wet growth/dry growth riming flag + integer :: k, cc, ccvar !.. k is the k-loop index, cc is the ice species index + integer :: gi !.. Index for the Gamma(NU) lookup + integer :: gi2, gi3 !.. Index for the Gamma(NU) lookup + integer :: numice !.. Number of ice species currently with ice + integer :: current_index !.. Used to determine number of ice species wi th mass > QSMALL + real, allocatable, dimension(:) :: icearray !.. Array with size of number + !.. of ice species with mass > QSMALL + real :: wetg !.. wet growth check + real :: gamma_arg !.. Gamma argument: Gamma(gamma_arg) + real, dimension(cat) :: ani, cni, rni !.. Characteristic a-,c-,r-axis sizes + real, dimension(cat) :: aniold, cniold, dsold + real :: alphstr !.. alpha_* = ao^(1-delta_*) + real :: alphv !.. alphv = 4/3*PI*alpha_* + real :: betam !.. betam = 2 + delta_* + real :: anf, cnf, rnf, iwcf !.. a-,c-,r-axis and iwc after vapor growth + real :: anfr, cnfr, rnfr, iwcfr !.. a-,c-,r-axis and iwc after riming + real :: phibr, phifr !.. aspect ratio before and after riming + real :: capgam !.. distribution-weighted capacitance (m) + real :: i_dt !.. inverse timestep + real :: i_cp !.. inverse heat capacity of air + real :: sink, source, ratio !.. Terms used to prevent over-depletion + real :: rrr !.. rain characteristic radius + + !.. Fall speed parameters + real :: phiivt, bl, al, aa, ba, qe, xn, bx, xm, f_c1, f_c2, bm, am, nre + + !.. Local variables for riming + real :: vir, vif, vfr, rhobarrime, rimedr, rimedrr, rimec1, rhobarwg + + !.. Local variables for ice nucleation, multiplication + real :: anuc, nibnuc(CAT), amass, cmass, fmult, nucfrac + real :: a_demott, b_demott, c_demott, d_demott + real :: curnum, ratel, ratekg, inrate + + !.. Local variables for vapor growth + real :: vi, iwci, nim3dum, prdsum, qcrimesum, qcrimesumr + + !.. Local variables for melting + real :: mfact, nimelt + + !.. Local variables for evaporation + real :: epsr, dumqv, dumqvs, arn + + !.. Some dummy variables + real :: dum, dum1, dumt, dumgam, dumgam2 + real :: tmpsum, tmpsumr, tmpmelt + + !.. Local variables for Radiation + real :: lrsig, sig, lwc, ncm3dum, r_n, phirad, radw1, radw2, radw3, totaliwc + + !.. Local variables for Aggregation + real :: dn1, dn2, dn3, phiagg1, phiagg2, phiagg3 + + !.. Fall speeds (some not used) and effectice ice radius variables + real, dimension(kts:kte) :: vtrm, vtrn, vtrmc, vtrnc, nc + real, dimension(cat, kts:kte) :: vtrni1, effi, vtrmi1, vtrzi1 + + !.. Lookup table values + real :: rrri, rrni, rqci, rdsi, rrho, proc(cat,2), procr(cat,6) + integer :: irri, irni, iqci, idsi, irho, iti + real :: qi_qc_nrm(cat), qi_qc_nrd(cat) + real :: qi_qr_nrm(cat), qi_qr_nrd(cat), qi_qr_nrn(cat) + + !.. Sedimentation variables + integer :: nn, nstep + real, dimension(kts:kte) :: fluxqr, fluxnr + real, dimension(cat, kts:kte) :: fluxqi, fluxni, fluxai, fluxci + real, dimension(cat) :: falltndqi, falltndni, falltndai, falltndci + real :: falltndqr, falltndnr, maxfall + logical :: sedi + logical :: domicro + + !.. The rest of the variables + real, dimension(kts:kte) :: rhoair, i_rhoair !.. Air density (kg m^-3) and inverse air density + real :: qcrimefrac(cat) !.. Qc_Rime/(Qc_Rime + Qr_Rime) + real :: gammnu !.. Gamma(NU) + real :: i_gammnu !.. 1/Gamma(NU) + real :: fourthirdspi !.. 4/3 * PI + real :: mnuccd !.. Deposition nucleation rate (kg kg^-1 s^-1) + real :: nnuccd !.. Deposition nucleation rate (# kg^-1) + real :: pcc !.. Cloud mass growth rate (kg kg^-1 s^-1) + real :: qagg(cat) !.. Aggregation mass tendency (kg kg^-1) + real :: nagg(cat) !.. Aggregation number tendency (# kg^-1) + real :: prd(cat) !.. Vapor growth rate (kg kg^-1 s^-1) + real :: nrd(cat) !.. Vapor growth number rate sublimation (# kg^-1 s^-1) + real :: ard(cat) !.. A-axis vapor growth rate mixing ratio (m kg^-1 s^-1) + real :: crd(cat) !.. C-axis vapor growth rate mixing ratio (m kg^-1 s^-1) + real :: prdr(cat) !.. Riming growth rate (kg kg^-1 s^-1) + real :: ardr(cat) !.. A-axis riming growth rate mixing ratio (m kg^-1 s^-1) + real :: crdr(cat) !.. C-axis riming growth rate mixing ratio (m kg^-1 s^-1) + real :: qmlt(cat) !.. Mass melting rate (kg kg^-1 s^-1) + real :: nmlt(cat) !.. Number melting rate (# kg^-1 s^-1) + real :: amlt(cat) !.. A-axis melting rate (m kg^-1 s^-1) + real :: cmlt(cat) !.. C-axis melting rate (m kg^-1 s^-1) + real :: rimesum(cat) !.. Ice-cloud rime mass rate (kg m^-3 s^-1) + real :: rimesumr(cat) !.. Ice-rain rime mass rate (kg m^-3 s^-1) + real :: rimetotal(cat) !.. Total rime mass rate (kg m^-3 s^-1) + real :: dQRfzri(cat) !.. Change in rain mass from ice-rain (kg kg^-1 s^-1) + real :: dQIfzri(cat) !.. Change in ice mass from ice-rain (kg kg^-1 s^-1) + real :: dNfzri(cat) !.. Change in ice number from ice-rain (# kg^-1 s^-1) + real :: dQImltri(cat) !.. Change in ice mass from ice-rain melt (kg kg^-1 s^-1) + real :: dNmltri(cat) !.. Change in ice number from ice-rain melt (# kg^-1 s^-1) + real :: numrateri(cat) !.. Number rate from ice-rain (value from lookkup table) + real :: rainrateri(cat) !.. Rain mass rate from ice-rain (value from lookkup table) + real :: icerateri(cat) !.. Ice mass rate from ice-rain (value from lookkup table) + real :: totalnuc(cat) !.. Total mass nucleated to ice (kg kg^-1 s^-1) + real :: totalnucn(cat) !.. Total number nucleated to ice (# kg^-1 s^-1) + real :: nim !.. Number of homogeneously frozen cloud drops (# kg^-1 s^-1) + real :: mim !.. Mass of homogeneously frozen cloud drops (kg kg^-1 s^-1) + real :: nimr !.. Number of homogeneously frozen rain drops (# kg^-1 s^-1) + real :: mimr !.. Mass of homogeneously frozen rain drops (kg kg^-1 s^-1) + real :: deltastr(cat) !.. Delta_* (Average inherent growth ratio) + real :: rhobar(cat) !.. Ice effective density (kg m^-3) + real :: rhodepout(cat) !.. Ice effective density (kg m^-3) + real :: dsdepout(cat) !.. Ice effective density (kg m^-3) + real :: rhorimeout(cat) !.. Ice effective density (kg m^-3) + real :: gdentotal !.. Total rime density from ice-cloud and ice-rain (kg m^-3) + real :: gdenavg(cat) !.. Rime density from ice-cloud (kg m^-3) + real :: gdenavgr(cat) !.. Rime density from ice-rain (kg m^-3) + real :: fv(cat) !.. Ventilation coefficient for diffusion + real :: fh(cat) !.. Ventilation coefficient for heat + real :: temp, i_temp !.. Air temperature (K) and inverse + real :: qvs !.. Liquid saturation vapor mixing ratio (kg kg^-1) + real :: qvi !.. Ice saturation vapor mixing ratio (kg kg^-1) + real :: sup !.. Liquid supersaturation ratio + real :: sui !.. Ice supersaturation ratio + real :: svpi !.. Ice saturation vapor pressure + real :: svpl !.. Liquid saturation vapor pressure + real :: qs0 !.. Saturation vapor mixing ratio at 0C (kg kg^-1) + real :: xxls !.. Latent heat of sublimation (J kg^-1) + real :: xxlv !.. Latent heat of vaporization (J kg^-1) + real :: xxlf !.. Latent heat of fusion (J kg^-1) + real :: ab !.. Latent heat correction parameter for growth + real :: abi !.. Latent heat correction parameter for growth (ice) + real :: mu !.. Dynamic visocity of air (kg m^-1 s^-1) + real :: dv !.. Diffusivity of water vapor in air (m^2 s^-1) + real :: kt !.. Thermal conductivity (W m^-1 K^-1) + real :: nsch !.. Schmidt number + real :: npr !.. Prandlt number + real :: lamr !.. Rain slope parameter n(D)=n0rr*exp(-lamr*D)dD + real :: n0rr !.. Rain distribution parameter + real :: prc !.. Autoconversion cloud water to rain (kg kg^-1 s^-1) + real :: nprc !.. Autoconversion cloud number loss (# kg^-1 s^-1) + real :: nprc1 !.. Autoconversion rain number gain (# kg^-1 s^-1) + real :: pre !.. Rain evpaoration rate (kg kg^-1 s^-1) + real :: npre !.. Rain evaporation number (# kg^-1 s^-1) + real :: pra !.. Rain accretion of cloud (kg kg^-1 s^-1) + real :: npra !.. Rain accretion of cloud number (# kg^-1 s^-1) + real :: nragg !.. Rain self-collection (# kg^-1 s^-1) + real :: igr !.. Inherent growth ratio + real :: qmult(cat) !.. Ice multiplication rate (kg kg^-1 s^-1) + real :: nmult(cat) !.. Ice number multiplication rate (# kg^-1 s^-1) + real :: mbiggr !.. Biggs freezing (kg kg^-1 s^-1) + real :: nbiggr !.. Biggs number freezing (# kg^-1 s^-1) + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. NU=4 is constant so gammnu=6 + gammnu = gamma(NU) + i_gammnu = 1./gammnu !.. Inverse gamma + i_dt = 1./dt !.. Inverse timestep + i_cp = 1./CP !.. Inverse heat capacity + fourthirdspi = 4./3.*PI !.. Four divided by three times pi + + !.. No need to loop through microphysics and sedimentation unless + !.. condensate exists + sedi = .false. + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + do k=kts,kte !.. Grid K loop + + !.. Check the column for condensate or supersaturation wrt liquid. + !.. If it is there, then do the microphysics + domicro= .false. + temp = theta(k)/(100000./pres_e(k))**(RCP) + svpl = polysvp(temp,0) + qvs = 0.622*svpl/(pres_e(k)-svpl) + sup = qv(k)/qvs-1. + + svpi = polysvp(temp,1) + qvi = 0.622*svpi/(pres_e(k)-svpi) + if(temp.gt.T0) qvi=qvs + sui = qv(k)/qvi-1. + + if(qc(k).gt.QSMALL.or.qr(k).gt.QSMALL.or.qi(ICE1,k).gt.QSMALL.or.& + qi(ICE2,k).gt.QSMALL.or.qi(ICE3,k).gt.QSMALL.or.sup.ge.0.) then + domicro= .true. + endif + + !.. If condensate or supersaturation wrt liquid, do microphysics + if(domicro) then + + if(allocated(icearray)) deallocate(icearray) + + numice = 0 !.. Number of species with ice + do cc = 1, cat !.. Loop over all ice species + has_ice(cc) = .false. + if(qi(cc,k).gt.QSMALL) then !.. Check for ice + + !.. Get the number of species with ice + has_ice(cc) = .true. + numice = numice + 1 + endif + enddo + + !.. Determine the number of ice species to loop over + !.. For vapor growth/riming, etc + if(numice.gt.0.and..not.allocated(icearray)) then + allocate(icearray(numice)) + current_index = 1 + do cc = 1, cat + if(has_ice(cc)) then + icearray(current_index) = cc + current_index = current_index + 1 + endif + enddo + endif + + !.. Initialize variables for all ice species and process rates + do cc = 1, cat !.. Ice variables + dry_growth(cc)=.true. + qcrimefrac(cc)=0. + rimetotal(cc)=0. + nmult(cc)=0. + qmult(cc)=0. + ani(cc)=0. + cni(cc)=0. + rni(cc)=0. + qagg(cc)=0. + nagg(cc)=0. + prd(cc) =0. + nrd(cc) =0. + ard(cc) =0. + crd(cc) =0. + prdr(cc)=0. + ardr(cc)=0. + crdr(cc)=0. + qmlt(cc)=0. + nmlt(cc)=0. + amlt(cc)=0. + cmlt(cc)=0. + deltastr(cc)=1. + dsold(cc)=1. + dsdepout(cc)=1. + rhobar(cc)=RHOI + rhodepout(cc)=RHOI + rhorimeout(cc)=RHOI + if(cc.eq.3) rhobar(cc)=50. + fv(cc)=1. + fh(cc)=1. + rimesum(cc)=0. + rimesumr(cc)=0. + numrateri(cc)=0. + rainrateri(cc)=0. + icerateri(cc)=0. + dQRfzri(cc)=0. + dQIfzri(cc)=0. + dNfzri(cc)=0. + dQImltri(cc)=0. + dNmltri(cc)=0. + gdenavg(cc)=400. + gdenavgr(cc)=400. + totalnuc(cc)=0. + totalnucn(cc)=0. + nibnuc(cc)=0. + aniold(cc)=0. + cniold(cc)=0. + proc(cc,1)=0. + proc(cc,2)=0. + qi_qc_nrm(cc)=0. + qi_qc_nrd(cc)=0. + qi_qr_nrm(cc)=0. + qi_qr_nrn(cc)=0. + qi_qr_nrd(cc)=0. + procr(cc,1)=0. + procr(cc,2)=0. + procr(cc,3)=0. + procr(cc,4)=0. + procr(cc,5)=0. + procr(cc,6)=0. + fluxqi(cc,k)=0. + fluxni(cc,k)=0. + fluxai(cc,k)=0. + fluxci(cc,k)=0. + falltndqi(cc)=0. + falltndni(cc)=0. + falltndai(cc)=0. + falltndci(cc)=0. + di1d(cc,k)=0. + vmi1d(cc,k)=0. + vtrmi1(cc,k)=0. + vtrni1(cc,k)=0. + vtrzi1(cc,k)=0. + rhopo1d(cc,k)=0. + phii1d(cc,k)=0. + qipre1d(cc)=0. + effi(cc,k)=0. + icetype1d(cc,k)=0. + enddo + dbz1d(k)=-35. + qrpre1d=0. + fluxqr(k)=0. + fluxnr(k)=0. + falltndqr=0.; falltndnr=0. + vtrm(k)=0.; vtrn(k)=0. + effc1d(k) = 0. + effi1d(k) = 0. + nprc =0.; npre=0.; npra=0.; pra=0.; prc=0. + nprc1=0.; nragg=0. + nim =0.; mim =0. + nimr=0.; mimr=0. + mbiggr=0.; nbiggr=0. + mnuccd=0.; nnuccd=0.; pcc=0.; fmult=0. + gdentotal=400. + rimedr=0.; rimedrr=0. + dbzr=0.; dbzsum=0. + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Temperature and temperature-dependent variables + i_temp= 1./temp + rhoair(k)= pres_e(k)/(RD*temp) + i_rhoair(k) = 1./rhoair(k) + svpi = polysvp(temp,1) + qvi = 0.622*svpi/(pres_e(k)-svpi) + if(temp.gt.T0) qvi=qvs + qs0 = 0.622*polysvp(T0,0)/(pres_e(k)-polysvp(T0,0)) + sui = qv(k)/qvi-1. + xxls = 3.15e6-2370.*temp+0.3337e6 + xxlv = 3.1484E6-2370.*temp + xxlf = xxls - xxlv + ab = 1.+(xxlv*qvs/(RV*temp**2))*xxlv*i_cp + abi = 1.+(xxls*qvi/(RV*temp**2))*xxls*i_cp + mu = 1.496E-6*temp**1.5/(temp+120.) + arn = ar*(R0*i_rhoair(k))**0.5 + dv = 8.794E-5*temp**1.81/pres_e(k) + kt = 2.3823e-2 +7.1177e-5*(temp-T0) + nsch = mu*i_rhoair(k)/dv + npr = mu*i_rhoair(k)/kt + + !.. Assume constant cloud drop number concentration (200 cm^-3) + nc(k) = 200.e6*i_rhoair(k) + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Ice Microphysics + + if(numice.gt.0) then !.. If one or more ice species have ice + tmpsum = 0. + tmpsumr= 0. + do ccvar = 1, numice + cc = icearray(ccvar) + + !.. Variable check + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + ani(cc) =max((((ai(cc,k)**2)/(ci(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + cni(cc) =max((((ci(cc,k)**2)/(ai(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + + !.. Set incoming volume limit after advection + !.. This is the smallest bulk volume for which we care about shape + !.. If smaller than this limit, assume spherical + if(ai(cc,k).lt.1.e-12.or.ci(cc,k).lt.1.e-12) then + ai(cc,k)=min(ai(cc,k),ci(cc,k)) + ci(cc,k)=ai(cc,k) + ani(cc)=(ai(cc,k)/ni(cc,k))**0.3333333333 + cni(cc)=(ci(cc,k)/ni(cc,k))**0.3333333333 + endif + + if(ani(cc).lt.2.e-6.or.cni(cc).lt.2.e-6) then + ani(cc)=2.e-6 + cni(cc)=2.e-6 + endif + + ci(cc,k) = cni(cc)**2*ani(cc)*ni(cc,k) + ai(cc,k) = ani(cc)**2*cni(cc)*ni(cc,k) + + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + dsold(cc) = deltastr(cc) + + !.. Check to keep ice properties in bounds + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Ice-cloud riming rates from lookup table + if(RIMING.and.qc(k).gt.1.e-7) then + + !.. The lookup table is in log space. Do not change the following 4 lines without + !.. changing the offline-built lookup table + rrni = 13.498*log10(0.5e6*rni(cc)) + rqci = 8.776*log10(1.0e7*(exp(qc(k))-1.)) + rdsi = 50.*(deltastr(cc) - 0.5) + rrho = 7.888*log10(0.02*rhobar(cc)) + irni = int(rrni) + iqci = int(rqci) + idsi = int(rdsi) + irho = int(rrho) + + !.. Small limit (stay in the bounds of the lookup table) + rrni = max(rrni,1.) + rqci = max(rqci,1.) + rdsi = max(rdsi,1.) + rrho = max(rrho,1.) + + irni = max(irni,1) + iqci = max(iqci,1) + idsi = max(idsi,1) + irho = max(irho,1) + + !.. Large limit (stay in the bounds of the lookup table) + rrni = min(rrni,real(size(itab,1))-1.) + rqci = min(rqci,real(size(itab,2))-1.) + rdsi = min(rdsi,real(size(itab,3))-1.) + rrho = min(rrho,real(size(itab,4))-1.) + + irni = min(irni,size(itab,1)-1) + iqci = min(iqci,size(itab,2)-1) + idsi = min(idsi,size(itab,3)-1) + irho = min(irho,size(itab,4)-1) + + do iti = 1, 2 + call access_lookup_table(itab,irni,iqci,idsi,irho,iti, & + rdsi,rrho,rqci,rrni,proc(cc,iti)) + enddo + + !.. proc(cc,1) is the normalized riming rate + !.. proc(cc,2) is related to the normalized rime density + !.. rimesum is the riming rate in kg m^-3 s^-1 + rimesum(cc) = max((proc(cc,1)*ni(cc,k)*nc(k)*rhoair(k)**2),0.) + qi_qc_nrm(cc)= proc(cc,1) + qi_qc_nrd(cc)= proc(cc,2) + + !.. Limit riming rate if too small + if((rimesum(cc)*i_rhoair(k)).lt.QSMALL) then + rimesum(cc) =0. + qi_qc_nrm(cc)=0. + qi_qc_nrd(cc)=0. + endif + endif !.. End ice-cloud riming + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Ice-rain riming rates from lookup table + if(RAIN_ICE.and.qr(k).gt.QSMALL) then + + nr(k) = max(nr(k),QNSMALL) + !.. Get rain size distribution properties + lamr = (PI*RHOW*nr(k)/qr(k))**0.333333333 + n0rr = nr(k)*lamr + if(lamr.LT.LAMMINR) then + lamr = LAMMINR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + elseif(lamr.gt.LAMMAXR) then + lamr = LAMMAXR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + endif + rrr = 0.5 * (1./lamr) + + !.. The lookup table is in log space. Do not change the following 4 lines without + !.. changing the offline-built lookup table + rrni = 13.498*log10(0.5e6*rni(cc)) + rrri= 23.273*log10(1.e5*rrr) + rdsi = 50.*(deltastr(cc) - 0.5) + rrho = 7.888*log10(0.02*rhobar(cc)) + + irni = int(rrni) + irri = int(rrri) + idsi = int(rdsi) + irho = int(rrho) + + !.. Small lookup table limit + rrni = max(rrni,1.) + rrri = max(rrri,1.) + rdsi = max(rdsi,1.) + rrho = max(rrho,1.) + + irni = max(irni,1) + irri = max(irri,1) + idsi = max(idsi,1) + irho = max(irho,1) + + !.. Large lookup table limit + rrni = min(rrni,real(size(itabr,1))-1.) + rrri = min(rrri,real(size(itabr,2))-1.) + rdsi = min(rdsi,real(size(itabr,3))-1.) + rrho = min(rrho,real(size(itabr,4))-1.) + + irni = min(irni,size(itabr,1)-1) + irri = min(irri,size(itabr,2)-1) + idsi = min(idsi,size(itabr,3)-1) + irho = min(irho,size(itabr,4)-1) + + do iti = 1, 6 + call access_lookup_table(itabr,irni,irri,idsi,irho,iti, & + rdsi,rrho,rrri,rrni,procr(cc,iti)) + enddo + + !.. procr(cc,4) is the normalized ice number tendency from ice-rain + !.. procr(cc,5) is the normalized rain mass tendency from ice-rain + !.. procr(cc,6) is the normalized ice mass tendency from ice-rain + numrateri(cc) = max((procr(cc,4)*ni(cc,k)*nr(k)*rhoair(k)),0.) + rainrateri(cc)= max((procr(cc,5)*ni(cc,k)*nr(k)*rhoair(k)),0.) + icerateri(cc) = max((procr(cc,6)*ni(cc,k)*nr(k)*rhoair(k)),0.) + + !.. Limit ice-rain rates if to small + if(rainrateri(cc).lt.QSMALL.or.icerateri(cc).lt.QSMALL) then + rainrateri(cc)=0. + icerateri(cc) =0. + numrateri(cc) =0. + endif + + if(temp.le.T0) then + !.. For temperatures less than melting point ice-rain freezes rain + if(qr(k).gt.0.1e-3.and.qi(cc,k).gt.0.1e-3) then + dQRfzri(cc) = rainrateri(cc) + dQIfzri(cc) = icerateri(cc) + dNfzri(cc) = numrateri(cc) + endif + else + !.. For temperatures greater than melting point ice-rain melts ice + dQImltri(cc) = icerateri(cc) + dNmltri(cc) = numrateri(cc) + endif + + !.. procr(cc,1) is the normalized riming rate + !.. procr(cc,2) is trelated to the he normalized rime density + !.. procr(cc,3) is the normalized loss in rain number from riming + !.. rimesumr is in kg m^-3 s^-1 + + !.. Ice-rain leads to riming when the fall speed of the collected rain is slower than + !.. the fall speed of the ice collector. Otherwise, ice-rain freezes rain + rimesumr(cc) = max((procr(cc,1)*ni(cc,k)*nr(k)*rhoair(k)**2),0.) + qi_qr_nrm(cc)= procr(cc,1) + qi_qr_nrd(cc)= procr(cc,2) + qi_qr_nrn(cc)= procr(cc,3) + + !.. Limit ice-rain riming if small + if((rimesumr(cc)*i_rhoair(k)).lt.QSMALL) then + rimesumr(cc) =0. + qi_qr_nrm(cc)=0. + qi_qr_nrd(cc)=0. + qi_qr_nrn(cc)=0. + endif + + endif !.. End ice-rain collection + + !.. Do not over-deplete cloud water or rain from ice-cloud and ice-rain + tmpsum = tmpsum + rimesum(cc) + tmpsumr= tmpsumr+ rimesumr(cc) + + if(ccvar.eq.numice) then !.. Check at end + + !.. Do not let ice-cloud collection overdeplete cloud water + sink = tmpsum*i_rhoair(k) + source = qc(k)*i_dt + if(sink.gt.source.and.qc(k).gt.QSMALL) then + ratio = source / sink + rimesum = rimesum*ratio + qi_qc_nrm= qi_qc_nrm*ratio + qi_qc_nrd= qi_qc_nrd*ratio + endif + + !.. Do not let ice-rain collection overdeplete rainwater + sink = tmpsum*i_rhoair(k) + source = qr(k)*i_dt + if(sink.gt.source.and.qr(k).gt.QSMALL) then + ratio = source / sink + rimesumr = rimesumr*ratio + qi_qr_nrm = qi_qr_nrm*ratio + qi_qr_nrd = qi_qr_nrd*ratio + qi_qr_nrn = qi_qr_nrn*ratio + endif + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Inital volume, iwc, #/m^3 for vapor growth + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + + vi = fourthirdspi*rni(cc)**3*gamma_tab(gi)*i_gammnu + iwci = ni(cc,k)*rhobar(cc)*vi*rhoair(k) + nim3dum=ni(cc,k)*rhoair(k) + + !.. Total riming rate (the heating goes into vapor growth) + rimetotal(cc) = rimesum(cc)+rimesumr(cc) + alphstr=ao**(1.-deltastr(cc)) + !.. Distribtuion-averaged capacitance (see Harrington et al. 2013) + capgam = capacitance_gamma(ani(cc), deltastr(cc), NU, alphstr, i_gammnu) + + !.. Inherent growth ratio data from Lamb and Scott 1972 and Chen and Lamb 1994 + !.. Assumes planar particles at temperatures below -20C (see Bailey and Hallett) + igr = get_igr(igrdata, temp) + if((temp-T0).lt.-20.) then + igr=0.7 + endif + + !.. This subroutine first calculates the bulk fall speeds, then the ventilation, + !.. and finally the vapor growth (or sublimation) rate. (See Harrington et al. 2013) + call vaporgrow(dt, ani(cc), cni(cc), rni(cc), igr, nim3dum, temp, rimetotal(cc), & + pres_e(k), NU, alphstr, sui, sup, qvs, qvi, mu, iwci, rhoair(k), qi(cc,k), & + dv, kt, ao, nsch, npr, gammnu, i_gammnu, fourthirdspi, svpi, xxls, xxlv, xxlf, & + capgam, vtrni1(cc,k), vtrmi1(cc,k), vtrzi1(cc,k), anf, cnf, rnf, iwcf, fv(cc), & + fh(cc), rhobar(cc), deltastr(cc),rhodepout(cc),dsdepout(cc)) + + !.. Vapor growth mass growth and axes rates + prd(cc)=(iwcf-iwci)*i_rhoair(k)*i_dt + prd(cc)=max(prd(cc),-qi(cc,k)*i_dt) + ard(cc)=(2.*(anf-ani(cc))*cni(cc)+(cnf-cni(cc))*ani(cc))*ani(cc)*ni(cc,k)*i_dt + crd(cc)=(2.*(cnf-cni(cc))*ani(cc)+(anf-ani(cc))*cni(cc))*cni(cc)*ni(cc,k)*i_dt + + !.. Sublimation number loss + if(prd(cc).lt.0..and.qi(cc,k).gt.QSMALL) then + nrd(cc)=prd(cc)*ni(cc,k)/qi(cc,k) + endif + + !.. Limit vapor growth if values small + if(abs(prd(cc)*dt).lt.(QSMALL*0.01)) then + prd(cc)=0. + nrd(cc)=0. + ard(cc)=0. + crd(cc)=0. + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Now calculated the mass growth and axes growth rates and density for riming + + !.. Check for wet-growth riming conditions + !.. See Lamb and Verlinde (2011) + if(WET_GROW) then + rimetotal(cc)=rimesum(cc)+rimesumr(cc) + call wet_growth_check(NU, temp, rhoair(k), xxlv, xxlf, qv(k), dv, kt, qs0, & + fv(cc), fh(cc), rimetotal(cc), rni(cc), ni(cc,k), dry_growth(cc)) + endif + + !.. If above the melting point, assume high-density riming + if(temp.gt.T0) then + dry_growth(cc) = .false. + endif + + !.. Initial rime volume and r-axis length + vir = vi + rnfr= rni(cc) + + !.. Calculate the ice-cloud rime density + !.. This is parameterized from Macklin (1962) and is described in + !.. Jensen et al. 2017 (JAS) + if(RIMING.and.qc(k).gt.QSMALL.and.qi_qc_nrm(cc).gt.0.) then + rimec1 = 0.0066 !.. Value at -10C + if((temp-T0).lt.-30.) then + rimec1 = 0.0036 + elseif((temp-T0).lt.-20.and.(temp-T0).ge.-30.) then + dum = (abs((temp-T0))-20.) / 10. + rimec1 = dum*(0.0036) + (1.-dum)*(0.004) + elseif((temp-T0).lt.-15.and.(temp-T0).ge.-20.) then + dum = (abs((temp-T0))-15.) / 5. + rimec1 = dum*(0.004) + (1.-dum)*(0.005) + elseif((temp-T0).lt.-10.and.(temp-T0).ge.-15.) then + dum = (abs((temp-T0))-10.) / 5. + rimec1 = dum*(0.005) + (1.-dum)*(0.0066) + elseif((temp-T0).lt.-5.and.(temp-T0).ge.-10.) then + dum = (abs((temp-T0))-5.) / 5. + rimec1 = dum*(0.0066) + (1.-dum)*(0.012) + elseif((temp-T0).ge.-5.) then + rimec1 = 0.012 + endif + gdenavg(cc) = (1000.*(0.8*tanh(rimec1*qi_qc_nrd(cc)/qi_qc_nrm(cc))+0.1)) + + if((temp-T0).gt.-5..and.(temp-T0).le.0.) then + dum = (abs((temp-T0))-0.) / 5. + gdenavg(cc) = dum*gdenavg(cc) + (1.-dum)*900. + endif + + if((temp-T0).gt.0..or..NOT.dry_growth(cc)) then + gdenavg(cc)=900. + endif + !.. Keep rime density between 50 and 900 kg m^-3 + gdenavg(cc) = max(gdenavg(cc),50.) + gdenavg(cc) = min(gdenavg(cc),900.) + + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + + !.. Change in r-axis from riming (based on the rime density) + rimedr = max(((qi_qc_nrm(cc)/gdenavg(cc))/((gamma_tab(gi)*i_gammnu)* & + 4.*PI*rni(cc)**2)),0.) + rnfr = rnfr + max((rimedr*nc(k)*rhoair(k)),0.)*dt + + endif !.. End ice-cloud rime density calculation + + !.. Calculate the ice-rain rime density + !.. This is parameterized from Macklin (1962) + if(RAIN_ICE.and.qr(k).gt.QSMALL.and.qi_qr_nrm(cc).gt.0.) then + rimec1 = 0.0066 !.. Value at -10C + if((temp-T0).lt.-30.) then + rimec1 = 0.0036 + elseif((temp-T0).lt.-20.and.(temp-T0).ge.-30.) then + dum = (abs((temp-T0))-20.) / 10. + rimec1 = dum*(0.0036) + (1.-dum)*(0.004) + elseif((temp-T0).lt.-15.and.(temp-T0).ge.-20.) then + dum = (abs((temp-T0))-15.) / 5. + rimec1 = dum*(0.004) + (1.-dum)*(0.005) + elseif((temp-T0).lt.-10.and.(temp-T0).ge.-15.) then + dum = (abs((temp-T0))-10.) / 5. + rimec1 = dum*(0.005) + (1.-dum)*(0.0066) + elseif((temp-T0).lt.-5.and.(temp-T0).ge.-10.) then + dum = (abs((temp-T0))-5.) / 5. + rimec1 = dum*(0.0066) + (1.-dum)*(0.012) + elseif((temp-T0).ge.-5.) then + rimec1 = 0.012 + endif + gdenavgr(cc) = (1000.*(0.8*tanh(rimec1*qi_qr_nrd(cc)/qi_qr_nrm(cc))+0.1)) + + if((temp-T0).gt.-5..and.(temp-T0).le.0.) then + dum = (abs((temp-T0))-0.) / 5. + gdenavgr(cc) = dum*gdenavgr(cc) + (1.-dum)*900. + endif + + if((temp-T0).gt.0..or..NOT.dry_growth(cc)) then + gdenavgr(cc)=900. + endif + !.. Keep rime density between 50 and 900 kg m^03 + gdenavgr(cc) = max(gdenavgr(cc),50.) + gdenavgr(cc) = min(gdenavgr(cc),900.) + + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + + !.. Change in r-axs from riming (based on rime density) + rimedrr = max(((qi_qr_nrm(cc)/gdenavgr(cc))/((gamma_tab(gi)*i_gammnu)* & + 4.*PI*rni(cc)**2)),0.) + rnfr = rnfr + max((rimedrr*nr(k)*rhoair(k)),0.)*dt + + endif !.. End ice-rain rime density calculation + + !.. Caculate the volume after riming + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + vfr = fourthirdspi*rnfr**3*gamma_tab(gi)*i_gammnu + vfr = max(vfr,vi) + rnfr= max(rnfr,rni(cc)) + + !.. Determine the fraction of rime mass from cloud versus small rain drops + !.. Update the ice density and iwc + if(rimetotal(cc).gt.0.and.vfr.gt.vi) then + qcrimefrac(cc) = rimesum(cc)/rimetotal(cc) + qcrimefrac(cc) = max(qcrimefrac(cc),0.) + qcrimefrac(cc) = min(qcrimefrac(cc),1.) + gdentotal = qcrimefrac(cc)*gdenavg(cc) + (1.-qcrimefrac(cc))*gdenavgr(cc) + rhobarrime = rhobar(cc) + rhorimeout(cc) = (rhobar(cc)*(vi/vfr))+(gdentotal*(1.-(vi/vfr))) + rhorimeout(cc) = min(rhorimeout(cc),RHOI) + iwcfr = rhorimeout(cc) * vfr * nim3dum + rhorimeout(cc) = gdentotal + rhorimeout(cc) = min(rhorimeout(cc),RHOI) + else + iwcfr= iwci + rnfr = rni(cc) + endif + + !.. For dry growth the drops freeze on contace and one axis (the axis perpendicular to the + !.. fall direction) grows + if(dry_growth(cc)) then + cnfr =cni(cc) + anfr =ani(cc) + phibr= 1. + if(rimetotal(cc).gt.0.and.vfr.gt.vi) then + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + phibr = cni(cc)/ani(cc)*gamma_tab(gi)*i_gammnu + if(phibr.eq.1.) then !.. Spherical ice + phifr= 1. + anfr = rnfr + cnfr = rnfr + elseif(phibr.gt.1.25) then !.. Prolate ice + phifr = phibr*(((rnfr/rni(cc))**3)**(-0.5)) + anfr = (ani(cc)/rni(cc)**(1.5))*rnfr**(1.5) + elseif(phibr.lt.0.8) then !.. Oblate ice + phifr = phibr*(rnfr/rni(cc))**3 + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + cnfr = phifr*anfr*gammnu/gamma_tab(gi) + else + phifr = phibr !.. Constant aspect ratio if quasi-spherical + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+2.+deltastr(cc) + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + anfr = ((vfr*gamma_tab(gi))/(fourthirdspi*phifr*gamma_tab(gi2)))**0.3333333333 + cnfr = phifr*anfr*gammnu/gamma_tab(gi) + endif + + !.. For long time steps, riming can cause oblate ice to become prolate or vise versa + !.. This prevents that from occuring + if(phibr.le.1..and.phifr.gt.1.) then + phifr = 0.99 + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+2.+deltastr(cc) + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + anfr = ((vfr*gamma_tab(gi))/(fourthirdspi*phifr*gamma_tab(gi2)))**0.3333333333 + cnfr = phifr*anfr*gammnu/gamma_tab(gi) + endif + + if(phibr.ge.1..and.phifr.lt.1.) then + phifr = 1.01 + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+2.+deltastr(cc) + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + anfr = ((vfr*gamma_tab(gi))/(fourthirdspi*phifr*gamma_tab(gi2)))**0.3333333333 + cnfr = phifr*anfr*gammnu/gamma_tab(gi) + endif + endif !.. End axis evolution from riming + + !.. Don't let the axes shrink from riming + cnfr=max(cnfr,cni(cc)) + anfr=max(anfr,ani(cc)) + + !.. Riming mass growth and axes rates + prdr(cc)=(iwcfr-iwci)*i_rhoair(k)*i_dt + ardr(cc)=(2.*(anfr-ani(cc))*cni(cc)+(cnfr-cni(cc))*ani(cc))*ani(cc)*ni(cc,k)*i_dt + crdr(cc)=(2.*(cnfr-cni(cc))*ani(cc)+(anfr-ani(cc))*cni(cc))*cni(cc)*ni(cc,k)*i_dt + + !.. These can never be negative + prdr(cc) = max(prdr(cc),0.) + ardr(cc) = max(ardr(cc),0.) + crdr(cc) = max(crdr(cc),0.) + + !.. If no rime mass, no axis growth + if(prdr(cc).eq.0.0) then + ardr(cc) = 0. + crdr(cc) = 0. + endif + + else !.. Wet Growth + + !.. For wet growth, mass is added but soaks into the particle and thus + !.. the density increases but the size does not + prdr(cc)=(iwcfr-iwci)*i_rhoair(k)*i_dt + ardr(cc)=0. + crdr(cc)=0. + + endif !.. End dry versus wet growth + + if(temp.gt.T0) then + + !.. Melting: ice shapes become more spherical + qmlt(cc)=2.*PI*(kt*fh(cc)*(T0-temp)+rhoair(cc)*xxlv*dv*fv(cc)*(qs0-qv(k)))/ & + xxlf*(ni(cc,k)*NU*max(ani(cc),cni(cc))) - & + (CPW/xxlf*(temp-T0)*(rimetotal(cc)/rhoair(k) + dQImltri(cc))) + + qmlt(cc)=min(qmlt(cc),0.) + qmlt(cc)=max(qmlt(cc),(-qi(cc,k)*i_dt)) + + !.. Don't let small very number mixing ratios (large sizes) cause ice precipitation + if(qmlt(cc).lt.0.) then + if(ai(cc,k).lt.1.e-12.or.ci(cc,k).lt.1.e-12) then + qmlt(cc)=-qi(cc,k)*i_dt + endif + endif + + nmlt(cc) = max((-ni(cc,k)*i_dt),(ni(cc,k)*qmlt(cc)/qi(cc,k)-dNmltri(cc))) + + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + tmpmelt=fourthirdspi*alphstr*gamma_tab(gi)*i_gammnu + + amlt(cc) = (1./tmpmelt)*(1./rhobar(cc))*qmlt(cc) + ai(cc,k)*nmlt(cc)/ni(cc,k) + cmlt(cc) = amlt(cc)*cni(cc)/ani(cc)*(1.+(2.*deltastr(cc)))/(2.+deltastr(cc)) + + endif + enddo !.. End the loop over ice speices + endif !.. End if ice + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Nucleation: this occurs outside of the ice species loop + + !.. Freeze evertying at temperatures below -35C + !.. That is how it happens in nature, right? + if(FREEZE_QC.and.qc(k).gt.QSMALL.and.temp.lt.(T0-35.)) then + mim = qc(k)*i_dt + nim = nc(k)*i_dt + endif + + if(FREEZE_QC.and.qr(k).gt.QSMALL.and.temp.lt.(T0-35.)) then + mimr = qr(k)*i_dt + nimr = nr(k)*i_dt + endif + + !.. Bigg (1953) freezing below -4C + if(qr(k).gt.QSMALL.and.temp.lt.(T0-4.)) then + nr(k) = max(nr(k),QNSMALL) + lamr = (PI*RHOW*nr(k)/qr(k))**0.333333333 + n0rr = nr(k)*lamr + if(lamr.LT.LAMMINR) then + lamr = LAMMINR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + elseif(lamr.gt.LAMMAXR) then + lamr = LAMMAXR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + endif + + mbiggr = 20.*PI*PI*RHOW*100.*nr(k)*(exp(0.66*(T0-temp))-1.)/lamr**3/lamr**3 + nbiggr = PI*100.*nr(k)*(exp(0.66*(T0-temp))-1.)/lamr**3 + mbiggr = min(mbiggr,qr(k)*i_dt) + nbiggr = min(nbiggr,nr(k)*i_dt) + endif + + !.. DeMott (2010) PNAS, Heterogeneous nuclation + if(temp.lt.T0.and.sup.ge.0.) then + + a_demott = 0.0000594 + b_demott = 3.33 + c_demott = 0.0264 + d_demott = 0.0033 + + !.. The 0.03 is the number of large aerosol (>0.5 microns) + !.. See Chagnon and Junge 1962 + inrate = a_demott * (273.16 - temp)**b_demott * & + 0.03**((c_demott*(273.16 - temp)) + d_demott) + inrate = inrate*1000.0 !.. #/L to #/m^3 + inrate = inrate*i_rhoair(k) !.. # kg^-1 + + if((((ni(ICE1,k)+ni(ICE2,k)+inrate)*rhoair(k))/1000.).le.10000.) then + mnuccd=(inrate)*(fourthirdspi*RHOI*(2.e-6)**3)*i_dt + nnuccd=inrate*i_dt + else + curnum = (ni(ICE1,k)+ni(ICE2,k))*rhoair(k)/1000. + ratel = max(0.,(10000.-curnum)) + ratekg = ratel*1000.*i_rhoair(k) + mnuccd=(ratekg)*(fourthirdspi*RHOI*(2.e-6)**3)*i_dt + nnuccd=ratekg*i_dt + endif + endif + + !.. Rime splinter (Hallett and Mossop 1974, Nature) + if(SPLINTERS) then + if(temp.lt.270.16.and.temp.gt.265.16) then + if (temp.GT.270.16) then + fmult = 0. + elseif(temp.le.270.16.and.temp.gt.268.16) then + fmult = (270.16-temp)/2. + elseif(temp.ge.265.16.and.temp.le.268.16) then + fmult = (temp-265.16)/3. + elseif(temp.lt.265.16) then + fmult = 0. + endif + endif + + do cc = 1, cat + if(prdr(cc).gt.0.) then + nmult(cc) = 35.E4*prdr(cc)*fmult*1000. + qmult(cc) = nmult(cc)*fourthirdspi*RHOI*(5.e-6)**3 + qmult(cc) = min(qmult(cc),prdr(cc)) + prdr(cc) = prdr(cc)-qmult(cc) + endif + enddo + endif + + !.. Aggregation (currently only for T < T0 + if(temp.le.T0) then + + if(qi(ICE1,k).gt.1.e-8.or.qi(ICE2,k).gt.1.e-8.or.qi(ICE3,k).gt.1.e-8) then + do cc = 1, cat + ni(cc,k) = max(ni(cc,k),QNSMALL) + ai(cc,k) = max(ai(cc,k),QASMALL) + ci(cc,k) = max(ci(cc,k),QASMALL) + enddo + + !.. Get characteristic diameters for aggregation + dn1 = 2.*((ai(ICE1,k)**2)/(ci(ICE1,k)*ni(ICE1,k)))**0.333333333333 + dn2 = 2.*((ci(ICE2,k)**2)/(ai(ICE2,k)*ni(ICE2,k)))**0.333333333333 + dn3 = 2.*((ai(ICE3,k)**2)/(ci(ICE3,k)*ni(ICE3,k)))**0.333333333333 + + dn1 = MIN(dn1,1.e-2) + dn2 = MIN(dn2,1.e-2) + dn3 = MIN(dn3,1.e-2) + + dn1 = MAX(dn1,1.e-6) + dn2 = MAX(dn2,1.e-6) + dn3 = MAX(dn3,1.e-6) + + !.. Get ice-one and ice-two aspect ratios + !.. Spherical paritcles aggregate at a slower rate than less spherical ones + gamma_arg = NU-1.+deltastr(1) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + phiagg1=ci(1,k)/ai(1,k)*gamma_tab(gi)*i_gammnu + + gamma_arg = NU-1.+deltastr(2) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + phiagg2=ci(2,k)/ai(2,k)*gamma_tab(gi)*i_gammnu + + phiagg1=MIN(phiagg1,100.) + phiagg1=MAX(phiagg1,0.01) + + phiagg2=MIN(phiagg2,100.) + phiagg2=MAX(phiagg2,0.01) + + !.. Ice-1 and ice-2 mass and number loss to aggregates occurs inside of aggregation + !.. After aggregation, ice-1 and ice-2 bulk distribution properties are adjusted + !.. assuming that aggregation did not cause the original shape and density of the + !.. unaggregated particles to change + call aggregation(dt,rhoair(k),temp,qi(ICE1,k),ni(ICE1,k),dn1,qi(ICE2,k),ni(ICE2,k),dn2, & + qi(ICE3,k),ni(ICE3,k),dn3,rhobar(ICE1),rhobar(ICE2),phiagg1,phiagg2,coltab, & + coltabn,qagg(ICE1),qagg(ICE2),qagg(ICE3),nagg(ICE1),nagg(ICE2),nagg(ICE3)) + endif !.. If ice mass mixing ratios are high enough to aggregate + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Warm Microphysics + + !.. Get raindrop size distribution parameters + if (qr(k).gt.QSMALL) then + nr(k) = max(nr(k),QNSMALL) + lamr = (PI*RHOW*nr(k)/qr(k))**0.333333333 + n0rr = nr(k)*lamr + if(lamr.LT.LAMMINR) then + lamr = LAMMINR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + elseif(lamr.gt.LAMMAXR) then + lamr = LAMMAXR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + endif + endif + + !.. note: nprc1 is change in Nr, + !.. nprc is change in Nc + !.. NOTE: NPRC IS CALCULATED BUT NOT CURRENTLY USED SINCE NC IS NOT PROGNOSED + !.. Auto conversion of cloud water to rain (Khairoutdinov and Kogan 2000) + if(qc(k).ge.1.E-6) then + PRC=1350.*qc(k)**2.47* & + (nc(k)/1.e6*rhoair(k))**(-1.79) + NPRC1 = PRC/(4./3.*PI*RHOW*(25.E-6)**3) + NPRC = PRC/(qc(k)/nc(k)) + NPRC = min(NPRC,nc(k)*i_dt) + NPRC1 = min(NPRC1,NPRC) + endif + + !.. Accretion of cloud water by rain Khairoutdinov and Kogan 2000) + !.. NOTE: NPRA CURRENTLY NOT USED SINCE NC IS NOT PROGNOSED + if(qr(k).ge.1.e-8.and.qc(k).ge.1.e-8) then + DUM=(qc(k)*qr(k)) + PRA = 67.*(DUM)**1.15 + NPRA = PRA/(qc(k)/nc(k)) + endif + + !.. Self-collection (Beheng 1994), Breakup (Verlinde and Cotton 1993) + if(qr(k).ge.1.e-8) then + dum1=300.e-6 + if(1./lamr.lt.dum1) then + dum=1. + elseif(1./lamr.ge.dum1) then + dum=2.-exp(2300.*(1./lamr-dum1)) + endif + nragg = -5.78*dum*nr(k)*qr(k)*rhoair(k) + endif + + !.. Evaporation of rain (Rutledge and Hobbs 1983) + if(qr(k).gt.QSMALL) then + epsr = 2.*PI*n0rr*rhoair(k)*dv* & + (F1R/(LAMR*LAMR)+ & + F2R*(arn*rhoair(k)/mu)**0.5* & + nsch**0.333333333*(gamma(5./2.+BR/2.))/ & + (lamr**(5./2.+BR/2.))) + else + epsr = 0. + endif + + if(qv(k).lt.qvs) then + pre = epsr*(qv(k)-qvs)/ab + pre = MIN(PRE,0.) + dumt = temp+xxlv*i_cp*pre*dt + dumqv = qv(k)-pre*dt + dumqvs = 0.622*polysvp(dumt,0)/ & + (pres_e(k)-polysvp(dumt,0)) + if(pre.lt.0..and.dumqv/dumqvs.gt.1.) then + pre=(qv(k)-qvs)*i_dt/ab + endif + else + pre = 0. + endif + + !.. Rain number mixing ratio loss from evaporation + if(pre.lt.0.) then + dum = pre*dt/qr(k) + dum = max(-1.,dum) + npre = dum*nr(k)/dt + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Updates after process-rate calculations + !.. For ice, updates to mass, number, volume, and volume + !.. times aspect ratio occur first for vapor growth, + !.. riming, and melting (shape is predicted to evolve). + !.. Next updates the bulk distribution shapes are done for + !.. nucleation and aggregation. For nucleation, ice particle shape + !.. itself does not change but the distribution shape becomes + !.. more spherical as nucleated particles are added. + + !.. Do not over-deplete + + !.. Cloud water + !.. First sum the total loss from riming + qcrimesum=0. + do cc = 1, cat + qcrimesum = qcrimesum + prdr(cc)*qcrimefrac(cc) + enddo + + sink =(prc+pra+qcrimesum+mim)*dt + source=qc(k) + if(sink.gt.source.and.qc(k).gt.QSMALL) then + ratio = source/sink + prc = prc*ratio + pra = pra*ratio + mim = mim*ratio + do cc = 1, cat + prdr(cc) = prdr(cc)*ratio + ardr(cc) = ardr(cc)*ratio + crdr(cc) = crdr(cc)*ratio + enddo + endif + + !.. Rain + !.. First sum the total loss from riming + qcrimesumr=0. + do cc = 1, cat + qcrimesumr = qcrimesumr + prdr(cc)*(1.-qcrimefrac(cc)) + enddo + + sink = (-pre+qcrimesumr+mimr+mbiggr)*dt + source = qr(k) + (pra+prc)*dt + do cc = 1, cat + source = source + (-qmlt(cc)*dt) + enddo + do cc = 1, cat + sink = sink + (dQRfzri(cc))*dt + enddo + if(sink.gt.source.and.qr(k).gt.QSMALL) then + ratio= source/sink + do cc = 1, cat + prdr(cc) = prdr(cc)*ratio + ardr(cc) = ardr(cc)*ratio + crdr(cc) = crdr(cc)*ratio + qi_qr_nrn(cc)=qi_qr_nrn(cc)*ratio + dQRfzri(cc) = dQRfzri(cc)*ratio + dQIfzri(cc) = dQIfzri(cc)*ratio + dNfzri(cc) = dNfzri(cc)*ratio + enddo + mimr = mimr*ratio + nimr = nimr*ratio + mbiggr =mbiggr*ratio + nbiggr =nbiggr*ratio + pre = pre*ratio + endif + + !.. Ice + if(igr.le.1.) then !.. Nucleation initiation to ice 1 + !.. Ice 1 + sink =(-qmlt(ICE1)-qagg(ICE1))*dt + source=qi(ICE1,k) + (prdr(ICE1))*dt + if(prd(ICE1).gt.0.) then + source = source + prd(ICE1)*dt + else + sink = sink + (-prd(ICE1))*dt + endif + + !.. Added because of ice initiation to ice 1 + source = source + (mnuccd+mim+mimr+mbiggr+dQIfzri(ICE2)+dQIfzri(ICE3))*dt + do cc = 1, cat + source = source + (qmult(cc)+dQRfzri(cc))*dt + enddo + + if(sink.gt.source.and.qi(ICE1,k).gt.QSMALL) then + ratio= source/sink + qmlt(ICE1) = qmlt(ICE1)*ratio + qagg(ICE1) = qagg(ICE1)*ratio + nagg(ICE1) = nagg(ICE1)*ratio + if(prd(ICE1).lt.0.) then + prd(ICE1) = prd(ICE1)*ratio + endif + endif + + !.. Ice 2 + sink =(dQIfzri(ICE2)-qmlt(ICE2)-qagg(ICE2))*dt + source=qi(ICE2,k) + (prdr(ICE2))*dt + if(prd(ICE2).gt.0.) then + source = source + prd(ICE2)*dt + else + sink = sink + (-prd(ICE2))*dt + endif + + if(sink.gt.source.and.qi(ICE2,k).gt.QSMALL) then + ratio= source/sink + dQIfzri(ICE2) = dQIfzri(ICE2)*ratio + dQRfzri(ICE2) = dQRfzri(ICE2)*ratio + dNfzri(ICE2) = dNfzri(ICE2)*ratio + qmlt(ICE2) = qmlt(ICE2)*ratio + qagg(ICE2) = qagg(ICE2)*ratio + nagg(ICE2) = nagg(ICE2)*ratio + if(prd(ICE2).lt.0.) then + prd(ICE2) = prd(ICE2)*ratio + endif + endif + !.. Ice 3 + sink =(dQIfzri(ICE3)-qmlt(ICE3))*dt + source=qi(ICE3,k) + (prdr(ICE3)+qagg(ICE3))*dt + if(prd(ICE3).gt.0.) then + source = source + prd(ICE3)*dt + else + sink = sink + (-prd(ICE3))*dt + endif + + if(sink.gt.source.and.qi(ICE3,k).gt.QSMALL) then + ratio= source/sink + dQIfzri(ICE3) = dQIfzri(ICE3)*ratio + dQRfzri(ICE3) = dQRfzri(ICE3)*ratio + dNfzri(ICE3) = dNfzri(ICE3)*ratio + qmlt(ICE3) = qmlt(ICE3)*ratio + if(prd(ICE3).lt.0.) then + prd(ICE3) = prd(ICE3)*ratio + endif + endif + else !.. nucleation to ice 2 + !.. Ice 2 + sink =(-qmlt(ICE2)-qagg(ICE2))*dt + source=qi(ICE2,k) + (prdr(ICE2))*dt + if(prd(ICE2).gt.0.) then + source = source + prd(ICE2)*dt + else + sink = sink + (-prd(ICE2))*dt + endif + + !.. Added because of ice initiation to ice 2 + source = source + (mnuccd+mim+mimr+mbiggr+dQIfzri(ICE1)+dQIfzri(ICE3))*dt + do cc = 1, cat + source = source + (qmult(cc)+dQRfzri(cc))*dt + enddo + + if(sink.gt.source.and.qi(ICE2,k).gt.QSMALL) then + ratio= source/sink + qmlt(ICE2) = qmlt(ICE2)*ratio + qagg(ICE2) = qagg(ICE2)*ratio + nagg(ICE2) = nagg(ICE2)*ratio + if(prd(ICE2).lt.0.) then + prd(ICE2) = prd(ICE2)*ratio + endif + endif + + !.. Ice 1 + sink =(dQIfzri(ICE1)-qmlt(ICE1)-qagg(ICE1))*dt + source=qi(ICE1,k) + (prdr(ICE1))*dt + if(prd(ICE1).gt.0.) then + source = source + prd(ICE1)*dt + else + sink = sink + (-prd(ICE1))*dt + endif + + if(sink.gt.source.and.qi(ICE1,k).gt.QSMALL) then + ratio= source/sink + dQIfzri(ICE1) = dQIfzri(ICE1)*ratio + dQRfzri(ICE1) = dQRfzri(ICE1)*ratio + dNfzri(ICE1) = dNfzri(ICE1)*ratio + qmlt(ICE1) = qmlt(ICE1)*ratio + qagg(ICE1) = qagg(ICE1)*ratio + nagg(ICE1) = nagg(ICE1)*ratio + if(prd(ICE1).lt.0.) then + prd(ICE1) = prd(ICE1)*ratio + endif + endif + !.. Ice 3 + sink =(dQIfzri(ICE3)-qmlt(ICE3))*dt + source=qi(ICE3,k) + (prdr(ICE3)+qagg(ICE3))*dt + if(prd(ICE3).gt.0.) then + source = source + prd(ICE3)*dt + else + sink = sink + (-prd(ICE3))*dt + endif + + if(sink.gt.source.and.qi(ICE3,k).gt.QSMALL) then + ratio= source/sink + dQIfzri(ICE3) = dQIfzri(ICE3)*ratio + dQRfzri(ICE3) = dQRfzri(ICE3)*ratio + dNfzri(ICE3) = dNfzri(ICE3)*ratio + qmlt(ICE3) = qmlt(ICE3)*ratio + if(prd(ICE3).lt.0.) then + prd(ICE3) = prd(ICE3)*ratio + endif + endif + endif + + !.. Do not let vapor growth of ice create subsaturated conditions + prdsum=0. + do cc = 1, cat + prdsum = prdsum + prd(cc) + enddo + vgflag = .false. + sink = prdsum + source=0.99*sui*qvi/abi*i_dt + if(sink.gt.source.and.sui.gt.0.) then + vgflag = .true. + ratio = source/sink + do cc = 1, cat + prd(cc) = prd(cc)*ratio + enddo + endif + + !.. Update to ice + do cc = 1, cat + + !.. Vapor growth update + if((qi(cc,k)+(prd(cc))*dt).gt.QSMALL.and.qi(cc,k).gt.QSMALL) then + rhobar(cc) = rhobar(cc)*(qi(cc,k)/(qi(cc,k)+(prd(cc))*dt)) + & + rhodepout(cc)*(1.-(qi(cc,k)/(qi(cc,k)+(prd(cc))*dt))) + else + rhobar(cc) = RHOI + endif + qi(cc,k)=qi(cc,k)+(prd(cc))*dt + ni(cc,k)=ni(cc,k)+(nrd(cc))*dt + ai(cc,k)=ai(cc,k)+(ard(cc))*dt + ci(cc,k)=ci(cc,k)+(crd(cc))*dt + + ni(cc,k) = max(ni(cc,k),QNSMALL) + ai(cc,k) = max(ai(cc,k),QASMALL) + ci(cc,k) = max(ci(cc,k),QASMALL) + + !.. If vapor growth of ice is going to cause + !.. subsaturated condtions, reduce vapor growth + !.. rates (done above) and rediagnose the axes + if(vgflag.and.qi(cc,k).gt.QSMALL) then + alphstr=ao**(1.-deltastr(cc)) + alphv=fourthirdspi*alphstr + betam=2.+deltastr(cc) + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + ani(cc)=((qi(cc,k)*gammnu)/(rhobar(cc)*ni(cc,k)*alphv* & + gamma_tab(gi)))**(1./betam) + cni(cc)=ao**(1.-deltastr(cc))*ani(cc)**deltastr(cc) + ai(cc,k)=ani(cc)**2*cni(cc)*ni(cc,k) + ci(cc,k)=cni(cc)**2*ani(cc)*ni(cc,k) + endif + enddo + + !.. Update to ice + do cc = 1, cat + !.. Riming update + if((qi(cc,k)+(prdr(cc))*dt).gt.QSMALL) then + if(dry_growth(cc)) then + rhobar(cc) = rhobar(cc)*(qi(cc,k)/(qi(cc,k)+(prdr(cc))*dt)) + & + rhorimeout(cc)*(1.-(qi(cc,k)/(qi(cc,k)+(prdr(cc))*dt))) + else + rhobar(cc) = rhobar(cc)*(qi(cc,k)/(qi(cc,k)+(prdr(cc))*dt)) + & + RHOW*(1.-(qi(cc,k)/(qi(cc,k)+(prdr(cc))*dt))) + rhobar(cc) = max(rhobar(cc),RHOI) + endif + else + rhobar(cc) = RHOI + endif + + qi(cc,k)=qi(cc,k)+(prdr(cc))*dt + ai(cc,k)=ai(cc,k)+(ardr(cc))*dt + ci(cc,k)=ci(cc,k)+(crdr(cc))*dt + + enddo + + !.. Keep everything in bounds after vapor growth and riming + do cc = 1, cat + if(qi(cc,k).gt.QSMALL) then + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + ani(cc) =max((((ai(cc,k)**2)/(ci(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + cni(cc) =max((((ci(cc,k)**2)/(ai(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + + ci(cc,k) = cni(cc)**2*ani(cc)*ni(cc,k) + ai(cc,k) = ani(cc)**2*cni(cc)*ni(cc,k) + + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + endif + enddo + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Update to ice after melting + if(temp.gt.T0) then + do cc = 1, cat + + if(qi(cc,k).gt.QSMALL) then + rhobar(cc) = rhobar(cc)*((qi(cc,k)+(qmlt(cc))*dt)/qi(cc,k)) + & + RHOW*((-qmlt(cc)*dt)/qi(cc,k)) + rhobar(cc) = min(rhobar(cc),RHOI) + else + rhobar(cc) = RHOI + endif + + qi(cc,k)=qi(cc,k)+qmlt(cc)*dt + ni(cc,k)=ni(cc,k)+nmlt(cc)*dt + ai(cc,k)=ai(cc,k)+amlt(cc)*dt + ci(cc,k)=ci(cc,k)+cmlt(cc)*dt + + !.. Small masses of leftover ice can become rain + if(qi(cc,k).le.QSMALL) then + qr(k) = qr(k) + qi(cc,k) + qi(cc,k)=0. + endif + + !.. Keep everyting in bounds after melting + if(qi(cc,k).gt.QSMALL) then + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + ani(cc) =max((((ai(cc,k)**2)/(ci(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + cni(cc) =max((((ci(cc,k)**2)/(ai(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + + ci(cc,k) = cni(cc)**2*ani(cc)*ni(cc,k) + ai(cc,k) = ani(cc)**2*cni(cc)*ni(cc,k) + + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + + !.. Melting should only make the average distribution more spherical + if(dsold(cc).le.1.) then + if(deltastr(cc).lt.dsold(cc)) then + deltastr(cc)=dsold(cc) + endif + if(deltastr(cc).gt.1.) then + deltastr(cc)=dsold(cc) + endif + else + if(deltastr(cc).gt.dsold(cc)) then + deltastr(cc)=dsold(cc) + endif + if(deltastr(cc).lt.1.) then + deltastr(cc)=dsold(cc) + endif + endif + cni(cc)=ao**(1.-deltastr(cc))*ani(cc)**deltastr(cc) + ai(cc,k)=ani(cc)**2*cni(cc)*ni(cc,k) + ci(cc,k)=cni(cc)**2*ani(cc)*ni(cc,k) + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + endif !.. End if ice exists after melting + enddo !.. Loop over all ices species + endif !.. End temperature above melting + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Update to vapor + qv(k)=qv(k)+(-pre-mnuccd)*dt + do cc = 1, cat + qv(k)=qv(k)+(-prd(cc))*dt + enddo + + !.. Update to cloud + qc(k)=qc(k)+(-prc-pra-mim)*dt + do cc = 1, cat + qc(k) = qc(k)-(prdr(cc)*qcrimefrac(cc)*dt) + enddo + + !.. Update to rain + qr(k)=qr(k)+(pre+prc+pra-mimr-mbiggr)*dt + nr(k)=nr(k)+(nprc1+nragg+npre-nimr-nbiggr)*dt + do cc = 1, cat + qr(k)=qr(k)+((-prdr(cc)*(1.-qcrimefrac(cc)))-qmlt(cc)-dQRfzri(cc))*dt + nr(k)=max((nr(k)+((-qi_qr_nrn(cc)*ni(cc,k)*nr(k)*rhoair(k))-nmlt(cc)-dNfzri(cc))*dt),0.) + enddo + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Store the number before nucleation for later use + do cc = 1, cat + nibnuc(cc)=ni(cc,k) + enddo + + if(igr.le.1.) then + !.. Nucleation to ice1 (planar-nuclated) + totalnuc(ICE1) =(mnuccd+mim+mimr+mbiggr+dQIfzri(ICE2)+dQIfzri(ICE3))*dt + totalnucn(ICE1)=(nnuccd+nim+nimr+nbiggr+dNfzri(ICE2)+dNfzri(ICE3))*dt + + do cc = 1, cat + totalnuc(ICE1) =totalnuc(ICE1) + (qmult(cc)+dQRfzri(cc))*dt + totalnucn(ICE1)=totalnucn(ICE1) + (nmult(cc))*dt + enddo + + qi(ICE1,k)=qi(ICE1,k)+totalnuc(ICE1) + ni(ICE1,k)=ni(ICE1,k)+totalnucn(ICE1) + + !.. Loss of ice2 from ice2-rain producing ice1 + qi(ICE2,k)=qi(ICE2,k)-(dQIfzri(ICE2))*dt + ni(ICE2,k)=ni(ICE2,k)-(dNfzri(ICE2))*dt + + !.. Loss of ice3 from ice3-rain producing ice1 + qi(ICE3,k)=qi(ICE3,k)-(dQIfzri(ICE3))*dt + ni(ICE3,k)=ni(ICE3,k)-(dNfzri(ICE3))*dt + else + + !.. Nucleation to ice2 (columnar-nucleated) + totalnuc(ICE2) =(mnuccd+mim+mimr+mbiggr+dQIfzri(ICE1)+dQIfzri(ICE3))*dt + totalnucn(ICE2)=(nnuccd+nim+nimr+nbiggr+dNfzri(ICE1)+dNfzri(ICE3))*dt + + do cc = 1, cat + totalnuc(ICE2) =totalnuc(ICE2) + (qmult(cc)+dQRfzri(cc))*dt + totalnucn(ICE2)=totalnucn(ICE2) + (nmult(cc))*dt + enddo + + qi(ICE2,k)=qi(ICE2,k)+totalnuc(ICE2) + ni(ICE2,k)=ni(ICE2,k)+totalnucn(ICE2) + + !.. Loss of ice1 from ice1-rain producing ice2 + qi(ICE1,k)=qi(ICE1,k)-(dQIfzri(ICE1))*dt + ni(ICE1,k)=ni(ICE1,k)-(dNfzri(ICE1))*dt + + !.. Loss of ice3 from ice3-rain producing ice2 + qi(ICE3,k)=qi(ICE3,k)-(dQIfzri(ICE3))*dt + ni(ICE3,k)=ni(ICE3,k)-(dNfzri(ICE3))*dt + + endif + + !.. Limit ice number concentrations to 1000/L + do cc = 1, cat + ni(cc,k)=min(ni(cc,k),(1000.*1000.*i_rhoair(k))) + enddo + + !.. Final check on rain and fall speed calculation + if (qr(k).gt.QSMALL) then + nr(k) = max(nr(k),QNSMALL) + lamr = (PI*RHOW*nr(k)/qr(k))**0.333333333 + n0rr = nr(k)*lamr + if(lamr.LT.LAMMINR) then + lamr = LAMMINR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + elseif(lamr.gt.LAMMAXR) then + lamr = LAMMAXR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + endif + vtrn(k) = ARN*(gamma(1.+BR))/LAMR**BR + vtrm(k) = ARN*(gamma(4.+BR))/6./LAMR**BR + vtrn(k) = min(vtrn(k),9.1) + vtrm(k) = min(vtrm(k),9.1) + + dbzr = rhoair(k)*nr(k)/lamr**3/lamr**3*720. + dbzr = 1.e18*dbzr + + else + !.. If only small mass of rain, push to vapor + qv(k)=qv(k)+qr(k) + theta(k)=theta(k)+theta(k)*i_temp*(qr(k)*xxlv)*i_cp + qr(k) =0. + nr(k) =0. + vtrm(k) =0. + vtrn(k) =0. + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + do cc = 1, cat + !.. Check for ice after nucleation and then update density and bulk distribution sizes + if(qi(cc,k).ge.QSMALL) then + ni(cc,k) =max(ni(cc,k),QNSMALL) + nucfrac = totalnuc(cc)/qi(cc,k) + nucfrac = min(nucfrac, 1.0) + nucfrac = max(nucfrac, 0.0) + + !.. Do not nucleate to aggregates + if(cc.eq.ICE3) then + nucfrac=0. + endif + + !.. Update density from nucleation + rhobar(cc) = RHOI*nucfrac + (1.-nucfrac)*rhobar(cc) + + !.. Keep everything in bounds + ai(cc,k) =max(ai(cc,k),QASMALL) + ci(cc,k) =max(ci(cc,k),QASMALL) + nibnuc(cc)=max(nibnuc(cc),QNSMALL) + + ani(cc) =max((((ai(cc,k)**2)/(ci(cc,k)*nibnuc(cc)))**0.333333333333),2.e-6) + cni(cc) =max((((ci(cc,k)**2)/(ai(cc,k)*nibnuc(cc)))**0.333333333333),2.e-6) + + ci(cc,k) = cni(cc)**2*ani(cc)*ni(cc,k) + ai(cc,k) = ani(cc)**2*cni(cc)*ni(cc,k) + + aniold(cc) = ani(cc) + cniold(cc) = cni(cc) + dsold(cc)=(log(cniold(cc))-log(ao))/(log(aniold(cc))-log(ao)) + + !.. Get the size distribution properties of nucleated particles + if(nucfrac.gt.1.e-5.and.totalnucn(cc).gt.0.) then + gamma_arg = NU+3. + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+4. + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + anuc=(((totalnuc(cc)*gammnu)/(RHOI*totalnucn(cc)*fourthirdspi* & + gamma_tab(gi)))**0.3333333)*gamma_tab(gi2)/gamma_tab(gi) + anuc = MAX(anuc,2.e-6) + anuc = MIN(anuc,3.e-3) + + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+3.+deltastr(cc) + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+2.+(2.*deltastr(cc)) + gi3=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + + amass=ani(cc)*gamma_tab(gi2)/gamma_tab(gi) + cmass=cni(cc)*gamma_tab(gi3)/gamma_tab(gi) + + !.. Mass-weighted size of old distribution and nucleated distribution + amass = amass*(1.-nucfrac) + anuc*nucfrac + cmass = cmass*(1.-nucfrac) + anuc*nucfrac + + !.. New ani and cni after nucleation + ani(cc) = amass*gamma_tab(gi)/gamma_tab(gi2) + cni(cc) = cmass*gamma_tab(gi)/gamma_tab(gi3) + + !.. New delta* (shape) after nucleation + if(ani(cc).gt.(1.1*ao).and.cni(cc).gt.(1.1*ao)) then + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + else + deltastr(cc)=1. + endif + + !.. Nucleation should only make the average distribution more spherical + if(dsold(cc).le.1.) then + if(deltastr(cc).lt.dsold(cc)) then + deltastr(cc)=dsold(cc) + endif + if(deltastr(cc).gt.1.) then + deltastr(cc)=dsold(cc) + endif + else + if(deltastr(cc).gt.dsold(cc)) then + deltastr(cc)=dsold(cc) + endif + if(deltastr(cc).lt.1.) then + deltastr(cc)=dsold(cc) + endif + endif + endif !.. End nucleation update distribution properties + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. This needs to be done because of transfer from e.g. + !.. ice1 to ice2 during nucleation. + !.. Assume constant density/delta*, loss of mass and number + + !..With the new delta* and density after nucleation re-diagnose a and c + !..Use the old density and deltastr for loss values e.g. q1 = q1 - (transfered to q2) + + alphstr=ao**(1.-deltastr(cc)) + alphv=fourthirdspi*alphstr + betam=2.+deltastr(cc) + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + ani(cc)=((qi(cc,k)*gammnu)/(rhobar(cc)*ni(cc,k)*alphv* & + gamma_tab(gi)))**(1./betam) + cni(cc)=ao**(1.-deltastr(cc))*ani(cc)**deltastr(cc) + + !.. volume and volume*aspect ratio process rates + ai(cc,k) = ai(cc,k) + cniold(cc)*nibnuc(cc)*2.*aniold(cc)*(ani(cc)-aniold(cc)) + & + nibnuc(cc)*aniold(cc)**2*(cni(cc)-cniold(cc)) + & + aniold(cc)**2*cniold(cc)*(ni(cc,k)-nibnuc(cc)) + + ci(cc,k) = ci(cc,k) + aniold(cc)*nibnuc(cc)*2.*cniold(cc)*(cni(cc)-cniold(cc)) + & + nibnuc(cc)*cniold(cc)**2*(ani(cc)-aniold(cc)) + & + cniold(cc)**2*aniold(cc)*(ni(cc,k)-nibnuc(cc)) + + !.. Keep everything in bounds + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + + if(ani(cc).gt.(1.1*ao).and.cni(cc).gt.(1.1*ao)) then + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + else + deltastr(cc)=1. + endif + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + ! Limit the fall speeds here to 25 m s^-1 + vtrzi1(cc,k)=min(vtrzi1(cc,k),25.) + vtrmi1(cc,k)=min(vtrmi1(cc,k),25.) + vtrni1(cc,k)=min(vtrni1(cc,k),25.) + else + + !.. If there is no ice even after nucleation, + !.. add remainder to vapor and update temperature + qv(k)=qv(k)+qi(cc,k) + theta(k)=theta(k)+theta(k)*i_temp*(qi(cc,k)*xxls)*i_cp + qi(cc,k)=0. + ai(cc,k)=0. + ni(cc,k)=0. + ci(cc,k)=0. + vtrzi1(cc,k)=0. + vtrmi1(cc,k)=0. + vtrni1(cc,k)=0. + endif !.. End check for ice + enddo !.. Loop over all ice species + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + if(temp.le.T0) then + !.. Aggregation occurs similarly to nulceation + !.. We assume that the loss of ice1 and ice2 to aggregates does + !.. not significantly change the shape and density of the + !.. remaining particles. Both ani and cni are updated + !.. with no change to density and delta*. + !.. Aggregation (see Jensen et al. 2017, 2018a, 2018b) + do cc = 1, cat + nibnuc(cc) = max(ni(cc,k),QNSMALL) + qi(cc,k) = qi(cc,k) + qagg(cc) + ni(cc,k) = ni(cc,k) + nagg(cc) + if(qi(cc,k).gt.QSMALL) then + + !.. Aggregate (unmelted) density and aspect ratio are assumed + !.. Force the shape of aggregates + if(cc.eq.ICE3) then + rhobar(cc)=50. + phiagg3 = 0.2 + ani(cc)=.5*dn3 + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + cni(cc)=phiagg3*ani(cc)*gammnu/gamma_tab(gi) + + ai(cc,k)=ani(cc)**2*cni(cc)*ni(cc,k) + ci(cc,k)=cni(cc)**2*ani(cc)*ni(cc,k) + + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + + if(ani(cc).gt.(1.1*ao).and.cni(cc).gt.(1.1*ao)) then + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + else + deltastr(cc)=1. + endif + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + else + + !.. Variable check on ice-1 and ice-2 after aggregation + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + ani(cc) =max((((ai(cc,k)**2)/(ci(cc,k)*nibnuc(cc)))**0.333333333333),2.e-6) + cni(cc) =max((((ci(cc,k)**2)/(ai(cc,k)*nibnuc(cc)))**0.333333333333),2.e-6) + + aniold(cc) = ani(cc) + cniold(cc) = cni(cc) + + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + + !.. Update ice1 and ice2 sizes after aggregation from + !.. updated mass and number mixiing ratios (transfer to aggregates) and an + !.. assumed constant deltastar + alphstr=ao**(1.-deltastr(cc)) + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + ani(cc) = ((qi(cc,k))/(ni(cc,k)*rhobar(cc)*fourthirdspi*alphstr*gamma_tab(gi)*i_gammnu))**& + (1./(2.+deltastr(cc))) + ani(cc)=max(ani(cc),2.e-6) + cni(cc)=alphstr*ani(cc)**deltastr(cc) + + !.. volume and volume*aspect ratio updates + ai(cc,k) = ai(cc,k) + cniold(cc)*nibnuc(cc)*2.*aniold(cc)*(ani(cc)-aniold(cc)) + & + nibnuc(cc)*aniold(cc)**2*(cni(cc)-cniold(cc)) + & + aniold(cc)**2*cniold(cc)*(ni(cc,k)-nibnuc(cc)) + + ci(cc,k) = ci(cc,k) + aniold(cc)*nibnuc(cc)*2.*cniold(cc)*(cni(cc)-cniold(cc)) + & + nibnuc(cc)*cniold(cc)**2*(ani(cc)-aniold(cc)) + & + cniold(cc)**2*aniold(cc)*(ni(cc,k)-nibnuc(cc)) + + !.. Keep everything in bounds + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + + if(ani(cc).gt.(1.1*ao).and.cni(cc).gt.(1.1*ao)) then + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + else + deltastr(cc)=1. + endif + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + endif + endif !.. If ice exist + enddo !.. Loop over all species + endif !.. If temperature < 273.15 K + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Update the thermodynamics + theta(k)=theta(k)+theta(k)*i_temp*((mnuccd)*xxls*i_cp*dt) + do cc = 1, cat + theta(k)=theta(k)+theta(k)*i_temp*((prd(cc))*xxls*i_cp*dt) + theta(k)=theta(k)+theta(k)*i_temp*((qmlt(cc))*xxlf*i_cp*dt) + enddo + + theta(k)=theta(k)+theta(k)*i_temp*(pre*xxlv)*i_cp*dt + + if(temp.le.T0) then + theta(k)=theta(k)+theta(k)*i_temp*(mim+mimr+mbiggr)*xxlf*i_cp*dt + + do cc = 1, cat + theta(k)=theta(k)+theta(k)*i_temp*(prdr(cc)+dQRfzri(cc))*xxlf*i_cp*dt + enddo + endif + + temp = theta(k)/(100000./pres_e(k))**(RCP) + i_temp= 1./temp + qvs = 0.622*polysvp(temp,0)/(pres_e(k)-polysvp(temp,0)) + xxlv = 3.1484E6-2370.*temp + rhoair(k)= pres_e(k)/(RD*temp) + i_rhoair(k) = 1./rhoair(k) + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Saturation adjustment for qc + pcc = (qv(k)-qvs) / (1.0 + xxlv**2*qvs/(CP*rv*temp**2))*i_dt + if (pcc*dt+qc(k).lt.0.) then + pcc=-qc(k)/dt + end if + theta(k)=theta(k) + theta(k)*i_temp*pcc*xxlv*i_cp*dt + qv(k) = qv(k) - pcc*dt + qc(k) = qc(k) + pcc*dt + + if(qc(k).le.QSMALL) then + qv(k)=qv(k)+qc(k) + theta(k)=theta(k)+theta(k)*i_temp*(qc(k)*xxlv)*i_cp + qc(k)=0. + nc(k)=0. + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Cloud water effective radius + lrsig = 1.3 + sig = log(lrsig) !.. Distribution standard deviation + lwc = qc(k)*rhoair(k) !.. liquid water content + ncm3dum = nc(k)*rhoair(k) + + if(ncm3dum .gt. 0.) then + r_n = ((lwc)/(fourthirdspi*ncm3dum*RHOW*exp(4.5*(sig**2))))**(0.33333333333) + else + r_n = 0. + endif + + effc1d(k) = r_n * (5.*EXP((sig**2)/2.)) + effc1d(k) = MIN(effc1d(k),50.e-6) + effc1d(k) = MAX(effc1d(k),2.51e-6) + + ! For now, assume cloud droplet fallspeed is zero + vtrmc(k) = 0.0 + vtrnc(k) = 0.0 + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Final check on ice before sedimentation + do cc = 1, cat + + if(qi(cc,k).gt.QSMALL) then + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + ani(cc) =max((((ai(cc,k)**2)/(ci(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + cni(cc) =max((((ci(cc,k)**2)/(ai(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + + ci(cc,k) = cni(cc)**2*ani(cc)*ni(cc,k) + ai(cc,k) = ani(cc)**2*cni(cc)*ni(cc,k) + + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + !.. Final check on aggregates + if(cc.eq.ICE3) then + if(temp.le.T0) then + rhobar(cc)=50. + phiagg3 = 0.2 + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + cni(cc)=phiagg3*ani(cc)*gammnu/gamma_tab(gi) + + ai(cc,k)=ani(cc)**2*cni(cc)*ni(cc,k) + ci(cc,k)=cni(cc)**2*ani(cc)*ni(cc,k) + endif + + if(ani(cc).gt.(1.1*ao).and.cni(cc).gt.(1.1*ao)) then + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + else + deltastr(cc)=1. + endif + !.. Keep aggregates spherical or oblate (for now) + deltastr(cc) = min(deltastr(cc),1.) + + alphstr=ao**(1.-deltastr(cc)) + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + ani(cc) = ((qi(cc,k))/(ni(cc,k)*rhobar(cc)*fourthirdspi*alphstr*& + gamma_tab(gi)/gammnu))**(1./(2.+deltastr(cc))) + + ani(cc) = max(ani(cc),2.e-6) + cni(cc)=alphstr*ani(cc)**deltastr(cc) + + !.. Final check on aggregate size (implicit breakup) + if(ani(cc).gt.0.5e-3) then + ani(cc)=0.5e-3 + cni(cc)=ao**(1.-deltastr(cc))*ani(cc)**deltastr(cc) + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + ni(cc,k) = (qi(cc,k))/(rhobar(cc)*fourthirdspi*ao**(1.-deltastr(cc))* & + ani(cc)**(2.+deltastr(cc))*gamma_tab(gi)/gammnu) + ni(cc,k)=max(ni(cc,k),QNSMALL) + endif + + ai(cc,k)=ani(cc)**2*cni(cc)*ni(cc,k) + ci(cc,k)=cni(cc)**2*ani(cc)*ni(cc,k) + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + endif ! Check on aggregates + + !.. Fall speed moved to here + !.. See Harrington et al. 2013 and Mitchell and Heymsfield 2005 + fv(cc) = 1.0 + fh(cc) = 1.0 + + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + phiivt = cni(cc)/ani(cc)*gamma_tab(gi)*i_gammnu + alphstr=ao**(1.-deltastr(cc)) + + !.. Determine coefficeients for the Best number for fall speeds + if(phiivt.lt.1.0)then + bl = 1. + al = 2. + aa = PI + ba = 2. + qe = (1.-phiivt)*(rhobar(cc)/RHOI) + phiivt + else if(phiivt .gt. 1.0)then + al = 2.0 + bl = 1. + aa = PI*alphstr + ba = deltastr(cc) + 1. + qe = 1.0 + else if(phiivt .eq. 1.0)then + bl = 1. + al = 2. + aa = PI + ba = 2. + qe = 1.0 + endif + qe = min(qe, 1.0) + + !.. Fall speed and ventilation (Best number formulation) + xn = 2./rhobar(cc)*(rhobar(cc)-rhoair(k))*G_HOME*rhoair(k)/mu**2 * & + (fourthirdspi*rhobar(cc))*alphstr*al**2/(aa*qe) * qe**(3./4.) + bx = deltastr(cc)+2.+2.*bl-ba + + !.. Number-average Best Number + xm = xn*ani(cc)**bx * (gamma(NU+bx))*i_gammnu + + !.. The following fall speed coefficients are from + !.. Mitchell and Heymsfiled 2005 + f_c1 = 4.0 / (5.83 * 5.83 * SQRT(0.6)) + f_c2 = (5.83 * 5.83) / 4.0 + bm = ((f_c1 * SQRT(xm)) / & + (2.0 * (SQRT(1.0 + f_c1 * SQRT(xm)) - 1.0) * & + (SQRT(1.0 + f_c1 * SQRT(xm))))) - & + (1.0e-5 * xm) / & + (f_c2 * (SQRT(1.0 + f_c1 * SQRT(xm)) - 1.0)**2.0) + am = ((f_c2 * (SQRT(1.0 + f_c1 * SQRT(xm)) - 1.0)**2.0) - & + (1.0e-5 * xm)) / (xm**bm) + + if(xm.gt.1.e8)then + am = 1.0865 + bm = 0.499 + endif + + !.. Reynolds Number + Nre = am*xm**bm + + !.. Number-averaged ice fall speed + vtrni1(cc,k) = min((mu/rhoair(k)*0.5 * am*(xn)**bm*ani(cc)**(bx*bm-1.) * & + (gamma(NU+bx*bm-1.))*i_gammnu),25.) + + !.. Mass-averaged ice fall speed + vtrmi1(cc,k) = min((mu/rhoair(k)*0.5 * am*(xn)**bm*ani(cc)**(bx*bm-1.) * & + (gamma(NU+bx*bm-1.+2.+deltastr(cc)))/(gamma(NU+2.+deltastr(cc)))),25.) + + !.. Remove size sorting when melting + if(temp.gt.T0.and.qmlt(cc).lt.0.) then + vtrni1(cc,k) = vtrmi1(cc,k) + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Determine the ice radiative properties + !.. For simlicity this is + !.. Planar ice: integral of a^2c / integral of a^2 + !.. Columnar ice: integral of a^2c / integral of a*c + + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + phirad = cni(cc)/ani(cc)*gamma_tab(gi)*i_gammnu + if(phirad.le.1.) then + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+2. + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + effi(cc,k) = cni(cc)*gamma_tab(gi)/gamma_tab(gi2) + else + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+1.+deltastr(cc) + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + effi(cc,k) = ani(cc)*gamma_tab(gi)/gamma_tab(gi2) + endif + + !.. For advection use volume and volume times aspect ratio mixing ratios + ci(cc,k) = cni(cc)**2*ani(cc)*ni(cc,k) + ai(cc,k) = ani(cc)**2*cni(cc)*ni(cc,k) + + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + ni(cc,k)=max(ni(cc,k),QNSMALL) + + else + !.. If not enough ice convert to vapor + qv(k)=qv(k)+qi(cc,k) + theta(k)=theta(k)+theta(k)*i_temp*(qi(cc,k)*xxls)*i_cp + qi(cc,k)=0. + ai(cc,k)=0. + ni(cc,k)=0. + ci(cc,k)=0. + vtrzi1(cc,k)=0. + vtrmi1(cc,k)=0. + vtrni1(cc,k)=0. + endif !.. If ice exists + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Output diagnostics + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + + !.. For aspect ratio diagnostic set lower size limit + if(ai(cc,k).gt.1.e-12.and.ci(cc,k).gt.1.e-12.and. & + ani(cc).gt.2.e-6.and.cni(cc).gt.2.e-6.and.qi(cc,k).gt.1.e-9) then + phii1d(cc,k) = cni(cc)/ani(cc)*gamma_tab(gi)*i_gammnu + rhopo1d(cc,k) = rhobar(cc) + endif + + gamma_arg = NU+3.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+2.+deltastr(cc) + gi2=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gamma_arg = NU+2.+(2.*deltastr(cc)) + gi3=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + + if(ai(cc,k).gt.1.e-12.and.ci(cc,k).gt.1.e-12.and. & + ani(cc).gt.2.e-6.and.cni(cc).gt.2.e-6.and.qi(cc,k).gt.1.e-9) then + di1d(cc,k) = MAX((2.*ani(cc)*gamma_tab(gi)/gamma_tab(gi2)), & + (2.*cni(cc)*gamma_tab(gi3)/gamma_tab(gi2))) + vmi1d(cc,k) = vtrmi1(cc,k) + endif + + if(ni(cc,k).gt.0..and.ani(cc).gt.0.) then + vtrzi1(cc,k) = 0.176/0.93*(6./PI)**2*((fourthirdspi*rhobar(cc)* & + (ao)**(1.-deltastr(cc)))/(2.**(2.+deltastr(cc))))**2 * & + rhoair(k)/900./900.*ni(cc,k)*(2.*ani(cc))**(2.*(2.+deltastr(cc))) * & + gamma(NU+2.*(2.+deltastr(cc)))*i_gammnu + vtrzi1(cc,k) = 1.e18*vtrzi1(cc,k) + else + vtrzi1(cc,k) = 0. + endif + enddo !.. Loop over all ice species + + dbzsum = dbzr + vtrzi1(ICE1,k) + vtrzi1(ICE2,k) + vtrzi1(ICE3,k) + if(dbzsum.ne.0.) then + dbz1d(k) = 10.*Log10(dbzsum) + dbz1d(k) = MAX(-35.,dbz1d(k)) + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Ice effective radius is a mass-weighting of all ice species + totaliwc = 0. + do cc = 1, cat + totaliwc = totaliwc + qi(cc,k) + enddo + if(totaliwc.gt.0.) then + radw1 = MAX((MIN((qi(ICE1,k)/totaliwc),1.)),0.) + radw2 = MAX((MIN((qi(ICE2,k)/totaliwc),1.)),0.) + radw3 = MAX((MIN((qi(ICE3,k)/totaliwc),1.)),0.) + effi1d(k) = MAX((MIN((effi(ICE1,k)*radw1 + effi(ICE2,k)*radw2 + & + effi(ICE3,k)*radw3),999.e-6)),5.e-6) + else + effi1d(k)=0. + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Check for rain or ice to do sedimentation + if(qr(k).gt.QSMALL) then + sedi=.true. + endif + do cc = 1, cat + if(qi(cc,k).gt.QSMALL) then + sedi=.true. + endif + enddo + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. else on domicro + else + + !.. If we don't do all of the above + !.. Push to vapor and get density for seimentation in the column + + xxls = 3.15e6-2370.*temp+0.3337e6 + xxlv = 3.1484E6-2370.*temp + + i_temp= 1./temp + rhoair(k)= pres_e(k)/(RD*temp) + i_rhoair(k) = 1./rhoair(k) + + qv(k)=qv(k)+qc(k)+qr(k) + theta(k)=theta(k)+theta(k)*i_temp*((qc(k)+qr(k))*xxlv)*i_cp + do cc = 1, cat + qv(k)=qv(k)+qi(cc,k) + theta(k)=theta(k)+theta(k)*i_temp*((qi(cc,k))*xxls)*i_cp + qi(cc,k)=0. + ni(cc,k)=0. + ai(cc,k)=0. + ci(cc,k)=0. + vtrmi1(cc,k)=0. + vtrni1(cc,k)=0. + vtrzi1(cc,k)=0. + vmi1d(cc,k)=0. + di1d(cc,k)=0. + phii1d(cc,k)=0. + rhopo1d(cc,k)=0. + qipre1d(cc) =0. + icetype1d(cc,k)=0. + enddo + + effc1d(k)=0. + effi1d(k)=0. + dbz1d(k)=-35. + qc(k)=0. + qr(k)=0. + nr(k)=0. + vtrm(k)=0. + vtrn(k)=0. + qrpre1d=0. + + endif !.. If domicro + enddo !.. do k = kts, kte + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Sedimentation (Reisner et al. 1998) + !.. Fallout terms are calculated on split time steps to ensure numerical stability (Courant < 1) + + nstep = 1 + maxfall=0. + + if(sedi) then + do k = kte,kts,-1 + + !.. Calculate number of split timesteps + maxfall = MAX(vtrmi1(ICE1,k),vtrni1(ICE1,k),vtrmi1(ICE2,k),vtrni1(ICE2,k), & + vtrmi1(ICE3,k),vtrni1(ICE3,k),vtrm(k),vtrn(k)) + nstep = MAX(INT(maxfall*dt/dzmic(k)+1.),nstep) + + do cc = 1, cat + qi(cc,k) = qi(cc,k)*rhoair(k) + ni(cc,k) = ni(cc,k)*rhoair(k) + ai(cc,k) = ai(cc,k)*rhoair(k) + ci(cc,k) = ci(cc,k)*rhoair(k) + enddo + + qr(k) = qr(k)*rhoair(k) + nr(k) = nr(k)*rhoair(k) + enddo + + do nn = 1, nstep + do k = kts, kte + + do cc = 1, cat + fluxqi(cc,k) = vtrmi1(cc,k)*qi(cc,k) + fluxni(cc,k) = vtrni1(cc,k)*ni(cc,k) + fluxai(cc,k) = vtrmi1(cc,k)*ai(cc,k) + fluxci(cc,k) = vtrmi1(cc,k)*ci(cc,k) + + enddo + fluxqr(k) = vtrm(k)*qr(k) + fluxnr(k) = vtrn(k)*nr(k) + enddo + + do cc = 1, cat + falltndqi(cc) = fluxqi(cc,KTE)/dzmic(KTE) + falltndni(cc) = fluxni(cc,KTE)/dzmic(KTE) + falltndai(cc) = fluxai(cc,KTE)/dzmic(KTE) + falltndci(cc) = fluxci(cc,KTE)/dzmic(KTE) + enddo + falltndqr = fluxqr(KTE)/dzmic(KTE) + falltndnr = fluxnr(KTE)/dzmic(KTE) + + do cc = 1, cat + qi(cc,KTE) = qi(cc,KTE)-falltndqi(cc)*dt/nstep + ni(cc,KTE) = ni(cc,KTE)-falltndni(cc)*dt/nstep + ai(cc,KTE) = ai(cc,KTE)-falltndai(cc)*dt/nstep + ci(cc,KTE) = ci(cc,KTE)-falltndci(cc)*dt/nstep + enddo + qr(KTE) = qr(KTE)-falltndqr*dt/nstep + nr(KTE) = nr(KTE)-falltndnr*dt/nstep + + + do k = kte-1,kts,-1 + do cc = 1, cat + falltndqi(cc) = (fluxqi(cc,k+1)-fluxqi(cc,k))/dzmic(k) + falltndni(cc) = (fluxni(cc,k+1)-fluxni(cc,k))/dzmic(k) + falltndai(cc) = (fluxai(cc,k+1)-fluxai(cc,k))/dzmic(k) + falltndci(cc) = (fluxci(cc,k+1)-fluxci(cc,k))/dzmic(k) + + enddo + falltndqr = (fluxqr(k+1)-fluxqr(k))/dzmic(k) + falltndnr = (fluxnr(k+1)-fluxnr(k))/dzmic(k) + + do cc = 1, cat + qi(cc,k) = qi(cc,k)+falltndqi(cc)*dt/nstep + ni(cc,k) = ni(cc,k)+falltndni(cc)*dt/nstep + ai(cc,k) = ai(cc,k)+falltndai(cc)*dt/nstep + ci(cc,k) = ci(cc,k)+falltndci(cc)*dt/nstep + + !.. GET PRECIPITATION AND SNOWFALL ACCUMULATION DURING THE TIME STEP + !.. FACTOR OF 1000 CONVERTS FROM M TO MM, BUT DIVISION BY DENSITY + !.. OF LIQUID WATER CANCELS THIS FACTOR OF 1000 + + !.. Ice precipitation rate + if(k.eq.kts.and.qi(cc,k).gt.1.e-9) then + qipre1d(cc) = qipre1d(cc)+fluxqi(cc,k)*dt/nstep + endif + + enddo + qr(k) = qr(k)+falltndqr*dt/nstep + nr(k) = nr(k)+falltndnr*dt/nstep + + !.. Rain precipitation rate + if(k.eq.kts.and.qr(k).gt.1.e-9) then + qrpre1d = qrpre1d + fluxqr(k)*dt/nstep + endif + enddo + enddo + + do k = kts, kte + do cc = 1, cat + qi(cc,k) = qi(cc,k)*i_rhoair(k) + ni(cc,k) = ni(cc,k)*i_rhoair(k) + ai(cc,k) = ai(cc,k)*i_rhoair(k) + ci(cc,k) = ci(cc,k)*i_rhoair(k) + enddo + qr(k) = qr(k)*i_rhoair(k) + nr(k) = nr(k)*i_rhoair(k) + enddo + endif + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Check after sedimentation + do k = kts, kte + temp = theta(k)/(100000./pres_e(k))**(RCP) + i_temp= 1./temp + xxls = 3.15e6-2370.*temp+0.3337e6 + xxlv = 3.1484E6-2370.*temp + + do cc = 1, CAT + if(qi(cc,k).gt.QSMALL) then + + !.. Keep variables in bounds + ni(cc,k)=max(ni(cc,k),QNSMALL) + ai(cc,k)=max(ai(cc,k),QASMALL) + ci(cc,k)=max(ci(cc,k),QASMALL) + ani(cc) =max((((ai(cc,k)**2)/(ci(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + cni(cc) =max((((ci(cc,k)**2)/(ai(cc,k)*ni(cc,k)))**0.333333333333),2.e-6) + + !.. Set incoming limit after sedimentation + !.. smallest values for which we care about shape + if(ai(cc,k).lt.1.e-12.or.ci(cc,k).lt.1.e-12) then + ai(cc,k)=min(ai(cc,k),ci(cc,k)) + ci(cc,k)=ai(cc,k) + ani(cc)=(ai(cc,k)/ni(cc,k))**0.3333333333 + cni(cc)=(ci(cc,k)/ni(cc,k))**0.3333333333 + endif + + if(ani(cc).lt.2.e-6.or.cni(cc).lt.2.e-6) then + ani(cc)=2.e-6 + cni(cc)=2.e-6 + endif + + ci(cc,k) = cni(cc)**2*ani(cc)*ni(cc,k) + ai(cc,k) = ani(cc)**2*cni(cc)*ni(cc,k) + + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + + !.. Final check on aggregates + if(cc.eq.ICE3) then + if(temp.le.T0) then + rhobar(cc)=50. + phiagg3 = 0.2 + gamma_arg = NU-1.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + cni(cc)=phiagg3*ani(cc)*gammnu/gamma_tab(gi) + endif + + ai(cc,k)=ani(cc)**2*cni(cc)*ni(cc,k) + ci(cc,k)=cni(cc)**2*ani(cc)*ni(cc,k) + + if(ani(cc).gt.(1.1*ao).and.cni(cc).gt.(1.1*ao)) then + deltastr(cc)=(log(cni(cc))-log(ao))/(log(ani(cc))-log(ao)) + else + deltastr(cc)=1. + endif + !.. Keep aggregates spherical or oblate (for now) + deltastr(cc) = min(deltastr(cc),1.) + + alphstr=ao**(1.-deltastr(cc)) + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + ani(cc) = ((qi(cc,k))/(ni(cc,k)*rhobar(cc)*fourthirdspi*alphstr*& + gamma_tab(gi)/gammnu))**(1./(2.+deltastr(cc))) + + ani(cc) = max(ani(cc),2.e-6) + cni(cc)=alphstr*ani(cc)**deltastr(cc) + + !.. Final check on aggregate size (implicit breakup) + if(ani(cc).gt.0.5e-3) then + ani(cc)=0.5e-3 + cni(cc)=ao**(1.-deltastr(cc))*ani(cc)**deltastr(cc) + gamma_arg = NU+2.+deltastr(cc) + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + ni(cc,k) = (qi(cc,k))/(rhobar(cc)*fourthirdspi*ao**(1.-deltastr(cc))* & + ani(cc)**(2.+deltastr(cc))*gamma_tab(gi)/gammnu) + ni(cc,k)=max(ni(cc,k),QNSMALL) + endif + + ai(cc,k)=ani(cc)**2*cni(cc)*ni(cc,k) + ci(cc,k)=cni(cc)**2*ani(cc)*ni(cc,k) + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + endif !.. Check on aggregates + + call var_check(NU, ao, fourthirdspi, gammnu, qi(cc,k), deltastr(cc), & + ani(cc), cni(cc), rni(cc), rhobar(cc), ni(cc,k), ai(cc,k), ci(cc,k), & + alphstr, alphv, betam) + + else + qv(k)=qv(k)+qi(cc,k) + theta(k)=theta(k)+theta(k)*i_temp*(qi(cc,k)*xxls)*i_cp + qi(cc,k)=0. + ni(cc,k)=0. + ai(cc,k)=0. + ci(cc,k)=0. + endif + enddo + + if(qr(k).gt.QSMALL) then + nr(k) = max(nr(k),QNSMALL) + lamr = (PI*RHOW*nr(k)/qr(k))**0.333333333 + n0rr = nr(k)*lamr + if(lamr.LT.LAMMINR) then + lamr = LAMMINR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + elseif(lamr.gt.LAMMAXR) then + lamr = LAMMAXR + n0rr = lamr**4*qr(k)/(PI*RHOW) + nr(k) = n0rr/lamr + endif + else + qv(k)=qv(k)+qr(k) + theta(k)=theta(k)+theta(k)*i_temp*(qr(k)*xxlv)*i_cp + qr(k) =0. + nr(k) =0. + endif + + enddo + + end subroutine me_ishmael + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. This subroutine keeps the ice properties in check + + subroutine var_check(NU, ao, fourthirdspi, gammnu, qidum, dsdum, ani, & + cni, rni, rbdum, nidum, aidum, cidum, alphstr, alphv, betam) + + implicit none + + REAL, INTENT(IN) :: NU, ao, fourthirdspi, gammnu, qidum + REAL :: voltmp, maxsize, gamma_arg + INTEGER :: gi + REAL, INTENT(INOUT) :: dsdum, ani, cni, rbdum, nidum, aidum, cidum + REAL, INTENT(OUT) :: rni, alphstr, alphv, betam + + !.. Deltastr check + if(dsdum.lt.0.55) then + dsdum=0.55 + ani=(cni/(ao**(1.-dsdum)))**(1./dsdum) + aidum=ani**2*cni*nidum + cidum=cni**2*ani*nidum + else if (dsdum.gt.1.3) then + dsdum=1.3 + cni=ao**(1.-dsdum)*ani**dsdum + aidum=ani**2*cni*nidum + cidum=cni**2*ani*nidum + endif + + alphstr=ao**(1.-dsdum) + alphv = fourthirdspi*alphstr + betam = 2.0 + dsdum + gamma_arg = NU+2.+dsdum + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + + !.. Ice density check + !.. Keep ice density between 50 and RHOI=920 kg m^-3 + if(ani.gt.2.e-6) then + rbdum = qidum*gammnu/(nidum*alphv* & + ani**betam*gamma_tab(gi)) + else + rbdum = RHOI + endif + + if(rbdum.gt.RHOI) then + rbdum=RHOI + ani=((qidum*gammnu)/(rbdum*nidum*alphv* & + gamma_tab(gi)))**(1./betam) + cni=ao**(1.-dsdum)*ani**dsdum + aidum=ani**2*cni*nidum + cidum=cni**2*ani*nidum + elseif(rbdum.lt.50.) then + rbdum=50. + ani=((qidum*gammnu)/(rbdum*nidum*alphv* & + gamma_tab(gi)))**(1./betam) + cni=ao**(1.-dsdum)*ani**dsdum + aidum=ani**2*cni*nidum + cidum=cni**2*ani*nidum + endif + + !.. Small ice limit + !.. Keep rni > 2 microns + rni= (qidum*3./(nidum*rbdum*4.*PI* & + (gamma_tab(gi)/gammnu)))**0.333333333333 + if(rni.lt.2.e-6) then + rni=2.e-6 + nidum=3.*qidum*gammnu/(4.*pi*rbdum*rni**3* & + (gamma_tab(gi))) + ani=((qidum*gammnu)/(rbdum*nidum*alphv* & + gamma_tab(gi)))**(1./betam) + cni=ao**(1.-dsdum)*ani**dsdum + aidum=ani**2*cni*nidum + cidum=cni**2*ani*nidum + endif + + !.. Large ice limit + !.. This is a number weighted diameter of 8 mm and + !.. a spherical mass weighted diameter of 14 mm + maxsize = max(ani,cni) + if (maxsize.gt.1.e-3) then + if(ani.ge.cni) then + ani = 1.e-3 + nidum=qidum*gammnu/(fourthirdspi*rbdum*ao**(1.-dsdum)*ani**(2.+dsdum)* & + (gamma_tab(gi))) + cni=ao**(1.-dsdum)*ani**dsdum + aidum=ani**2*cni*nidum + cidum=cni**2*ani*nidum + else + cni = 1.e-3 + ani = (cni/(ao**(1.-dsdum)))**(1./dsdum) + nidum=qidum*gammnu/(fourthirdspi*rbdum*ao**(1.-dsdum)*ani**(2.+dsdum)* & + (gamma_tab(gi))) + aidum=ani**2*cni*nidum + cidum=cni**2*ani*nidum + endif + rni= (qidum/(nidum*rbdum*fourthirdspi* & + (gamma_tab(gi)/gammnu)))**0.333333333333 + end if + + return + end subroutine var_check + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. This is the ventilation, fall speed, vapor growth routine + !.. See Harrington et al. 2013 + + subroutine vaporgrow(dt, ani, cni, rni, igr, nidum, temp, rimesum, presdum, & + NU, alphstr, sui, sup, qvs, qvi, mu, iwci, rhodum, qidum, dv, kt, ao, & + nsch, npr, gammnu, i_gammnu, fourthirdspi, svpi, xxls, xxlv, xxlf, & + capgam, vtbarb, vtbarbm, vtbarbz, anf, cnf, rnf, iwcf, fvdum, fhdum, & + rbdum, dsdum, rdout, dsdumout) + + + implicit none + + real, parameter :: QASMALL= 1.e-19 ! Smallest ice size for sublimation (squared) + REAL, INTENT(IN) :: dt, ani, cni, rni, igr, nidum, temp, presdum + REAL, INTENT(IN) :: NU, alphstr, mu, iwci, rhodum, qidum + REAL, INTENT(IN) :: dv, kt, ao, nsch, npr, gammnu, i_gammnu, fourthirdspi, svpi + REAL, INTENT(IN) :: xxls, xxlv, xxlf, capgam, rimesum, sui, sup, qvs, qvi, dsdum + REAL :: gammnubet, phii, fs, alphanr, bl, al, aa, ba + REAL :: xn, bx, xm, am, bm, f_c1, f_c2, del1, del2, alpha, afn, del + REAL :: xvent, ntherm, bv1, bv2, gv, bt1, bt2, gt, vtbranch, rhodep + REAL :: videp, vmin, betavol, vi, vf, cf, maxsui, qe, Nre, phif, gamma_arg, rbdumtmp + INTEGER :: gi, gi2 + REAL, INTENT(INOUT) :: vtbarb, vtbarbm, vtbarbz + REAL, INTENT(OUT) :: anf, cnf, rnf, iwcf, rdout + REAL, INTENT(INOUT) :: fvdum, fhdum, dsdumout, rbdum + + fvdum = 1.0 + fhdum = 1.0 + + dsdumout = dsdum + gamma_arg = NU-1.+dsdum + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + phii = cni/ani*gamma_tab(gi)*i_gammnu + fs = capgam/rni + alphanr = ani/rni**(3./(2.+igr)) + + !.. Determine coefficeients for the Best number for fall speeds + if(phii.lt.1.0)then + bl = 1. + al = 2. + aa = PI + ba = 2. + qe = (1.-phii)*(rbdum/RHOI) + phii + else if(phii .gt. 1.0)then + al = 2.0 + bl = 1. + aa = PI*alphstr + ba = dsdum + 1. + qe = 1.0 + else if(phii .eq. 1.0)then + bl = 1. + al = 2. + aa = pi + ba = 2. + qe = 1.0 + endif + qe = min(qe, 1.0) + + !.. Fall speed and ventilation (Best number formulation) + xn = 2./rbdum*(rbdum-rhodum)*G_HOME*rhodum/mu**2 * & + (fourthirdspi*rbdum)*alphstr*al**2/(aa*qe) * qe**(3./4.) + bx = dsdum+2.+2.*bl-ba + + !.. Number-average Best Number + xm = xn*ani**bx * (gamma(nu+bx))*i_gammnu + + !.. The following fall speed coefficients are from + !.. Mitchell and Heymsfiled 2005 + f_c1 = 4.0 / (5.83 * 5.83 * SQRT(0.6)) + f_c2 = (5.83 * 5.83) / 4.0 + bm = ((f_c1 * SQRT(xm)) / & + (2.0 * (SQRT(1.0 + f_c1 * SQRT(xm)) - 1.0) * & + (SQRT(1.0 + f_c1 * SQRT(xm))))) - & + (1.0e-5 * xm) / & + (f_c2 * (SQRT(1.0 + f_c1 * SQRT(xm)) - 1.0)**2.0) + am = ((f_c2 * (SQRT(1.0 + f_c1 * SQRT(xm)) - 1.0)**2.0) - & + (1.0e-5 * xm)) / (xm**bm) + + if(xm.gt.1.e8)then + am = 1.0865 + bm = 0.499 + endif + + !.. Reynolds Number + Nre = am*xm**bm + + !.. Number-averaged ice fall speed + vtbarb = mu/rhodum*0.5 * am*(xn)**bm*ani**(bx*bm-1.) * & + (gamma(nu+bx*bm-1.))*i_gammnu + + !.. Mass-averaged ice fall speed + vtbarbm = mu/rhodum*0.5 * am*(xn)**bm*ani**(bx*bm-1.) * & + (gamma(nu+bx*bm-1.+2.+dsdum))/(gamma(nu+2.+dsdum)) + + !.. Reflectivity-weighted fall speed (if needed) + vtbarbz = mu/rhodum*0.5 * am*(xn)**bm*ani**(bx*bm-1.) * & + exp(gammln(nu+bx*bm-1.+4.+2.*dsdum))/exp(gammln(nu+4.+2.*dsdum)) + + !.. Calculate Ventilation + xvent = nsch**0.333333333*Nre**0.5 + ntherm = Nre**0.5*npr**0.333333333 + if(xvent.le.1.0)then + bv1 = 1.0 + bv2 = 0.14 + gv = 2. + else + bv1 = 0.86 + bv2 = 0.28 + gv = 1. + endif + if(ntherm.lt.1.4)then + bt1 = 1.0 + bt2 = 0.108 + gt = 2.0 + else + bt1 = 0.78 + bt2 = 0.308 + gt = 1.0 + endif + fvdum = bv1 + bv2*xvent**gv + fhdum = bt1 + bt2*ntherm**gt + + if(temp.le.T0) then !.. If T < T0 do vapor growth/sublimation (otherwise assume water on surface) + + !.. Fall speed needed to determine when branching occurs + vtbranch = vtbarbm + + if(sup.ge.0.) then + maxsui = 1. + elseif(sui.ge.0..and.qvi.lt.qvs) then + maxsui = ((sui+1.)*qvi)/(qvs-qvi) - qvi/(qvs-qvi) + maxsui = min(maxsui,1.) + maxsui = max(maxsui,0.) + else + maxsui = 0. + endif + + !.. Vapor growth density + if(igr.le.1.) then !.. Planar + if(vtbranch.gt.0.) then + if(ani.gt.SQRT((dv*PI*2.*cni)/(vtbranch*nu))) then + rhodep = (RHOI*igr)*maxsui + RHOI*(1.-maxsui) + else + rhodep = RHOI + endif + else + rhodep = RHOI + endif + else !.. Columnar + rhodep = (RHOI/igr)*maxsui + RHOI*(1.-maxsui) + endif + !.. high limit on rhodep for vapor growth = 700 kg m^-3 + !.. Cotton et al. 2012 (QJRMS) + rhodep = min(rhodep,700.) + + !.. Vapor growth solution which includes heating from rime mass + !.. See J.P. Chen's thesis + alpha = (dv*fvdum*svpi*xxls)/(RV*kt*fhdum*temp) + if(nidum.gt.0.0.and.rimesum.gt.0.0) then + del1 = (xxlf*(rimesum/nidum)/(4.*PI*kt*fhdum*capgam)) * & + ((temp + alpha*((xxls/(RV*temp))-1.))**(-1.0)) + else + del1 = 0.0 + endif + del2 = sui * & + (((temp/alpha) + ((xxls/(RV*temp))-1.))**(-1.0)) + del = del1 + del2 + afn = ((dv*fvdum*polysvp(temp,1))/(RV*temp)) * & + (sui - del*((xxls/(RV*temp))-1.)) + + !.. During sublimation using polynomial removal of density + if(afn.lt.0.0) then + rhodep = rbdum + videp = rni**3 + vmin = (10.e-6)**3 + if(Vmin.lt.videp)then + betavol = log(RHOI/rbdum)*1./(log(Vmin/videp)) + rhodep = rbdum*(1.+betavol) + else + rhodep = rbdum + endif + endif + rhodep=max(rhodep,50.) + rhodep=min(rhodep,RHOI) + + gamma_arg = NU+2.+dsdum + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + gammnubet = gamma_tab(gi) + + !.. characteristic r-axis and a-axis after growth timestep + rnf = (max((rni**2 + 2.*afn*fs/rhodep*gammnu/gammnubet*dt),QASMALL))**(0.5) + anf = alphanr*rnf**(3./(2.+igr)) + + !.. Do not sublimation change the shape of ice from + !.. prolate to oblate or vice versa + phif = phii*(rnf**3/rni**3)**((igr-1.)/(igr+2.)) + if(sui.lt.0.0.or.afn.lt.0.0) then + if(phii.gt.1.0.and.phif.lt.1.0) then + phif = phii + alphanr = ani/rni + anf = alphanr*rnf + endif + if(phii.lt.1.0.and.phif.gt.1.0) then + phif = phii + alphanr = ani/rni + anf = alphanr*rnf + endif + + !.. Do not let sublimation create extreme shapes + if(phii.gt.1.) then + if(phif.gt.phii) then + phif = phii + alphanr = ani/rni + anf = alphanr*rnf + endif + else + if(phif.lt.phii) then + phif = phii + alphanr = ani/rni + anf = alphanr*rnf + endif + endif + endif + + vi = fourthirdspi*rni**3*gamma_tab(gi)*i_gammnu + vf = fourthirdspi*rnf**3*gamma_tab(gi)*i_gammnu + rdout = rhodep + rbdumtmp = rbdum*(vi/vf) + rhodep*(1.-vi/vf) + rbdumtmp = min(rbdumtmp,RHOI) + iwcf = nidum*rbdumtmp*vf + + !.. Update delta* from vapor growth/sublimation + if(igr.ne.1.0)then + + if(anf.gt.(1.1*ao)) then + dsdumout = (3.*log(rnf)-2.*log(anf)-log(ao))/ & + (log(anf)-log(ao)) + else + dsdumout=1. + endif + endif + + !.. Do not let particles sublimate to sizes that are too small + if(afn.lt.0..and.rnf.lt.1.e-6) then + rbdum =RHOI + rdout =RHOI + dsdumout =1. + phif =1. + alphanr = ani/rni + anf = alphanr*rnf + endif + + if(afn.lt.0..and.anf.lt.1.e-6) then + rbdum =RHOI + rdout =RHOI + dsdumout =1. + phif =1. + alphanr = ani/rni + anf = alphanr*rnf + endif + + + !.. Sublimation check + if(afn.lt.0..and.dsdumout.le.0.) then + dsdumout=1. + anf =rnf + endif + + !.. C-axis after vapor growth + gamma_arg = NU-1.+dsdumout + gi=MIN((MAX((NINT((gamma_arg*100000.)-355000+1)),1)),505001) + cnf = phif*anf*gammnu/gamma_tab(gi) + + else !.. T > T0 + + anf =ani + cnf =cni + rnf =rni + iwcf=iwci + endif + + end subroutine vaporgrow + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. This routine is used to calculate the distribution-averaged + !.. capacitance (see Harrington et al. 2013) + + real function capacitance_gamma(ani,dsdum,NU,alphstr,i_gammnu) + + implicit none + + REAL, INTENT(IN) :: ani, dsdum, NU, alphstr, i_gammnu + REAL :: a1, a2, b1, b2, c1, c2, d1, d2, gammad1, gammad2 + + !.. Oblate Spheroid + if (dsdum.le.1.0) then + a1 = 0.6369427 + a2 = 0.57*a1 + b1 = 0.0 + b2 = 0.95 + c1 = a1*alphstr**b1 + c2 = a2*alphstr**b2 + d1 = b1*(dsdum - 1.0) + 1.0 + d2 = b2*(dsdum - 1.0) + 1.0 + !.. Prolate Spheroid + elseif (dsdum.gt.1.) then + a1 = 0.5714285 + a2 = 0.75*a1 + b1 = -1.0 + b2 = -0.18 + c1 = a1*alphstr**(b1+1.0) + c2 = a2*alphstr**(b2+1.0) + d1 = b1*(dsdum - 1.0) + dsdum + d2 = b2*(dsdum - 1.0) + dsdum + endif + + if(dsdum.eq.1..and.nu.eq.1.) then + gammad1 = (gamma(nu+1.0)) + capacitance_gamma = ani*gammad1*i_gammnu + elseif(dsdum.le.1.)then + gammad1 = (gamma(nu+d1)) + gammad2 = (gamma(nu+d2)) + capacitance_gamma = c1*ani**d1 * gammad1*i_gammnu + & + c2*ani**d2 * gammad2*i_gammnu + elseif(dsdum.gt.1.) then + gammad1 = (gamma(nu+d1)) + gammad2 = (gamma(nu+d2)) + capacitance_gamma = c1*ani**d1 * gammad1*i_gammnu + & + c2*ani**d2 * gammad2*i_gammnu + endif + + return + end function capacitance_gamma + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + SUBROUTINE wet_growth_check(NU, temp, rhodum, xxlv, xxlf, qvdum, dv, kt, qs0, & + fvdum, fhdum, rimedum, rni, nidum, dgflag) + + IMPLICIT NONE + + !.. Check for wet growth conditions + !.. See Lamb and Verlinde (2011) + REAL, INTENT(IN) :: NU, temp, rhodum, xxlv, xxlf, qvdum, dv, kt + REAL, INTENT(IN) :: fvdum, fhdum, rni, nidum + REAL, INTENT(IN) :: qs0, rimedum + REAL :: wetg, dum + LOGICAL, INTENT(INOUT) :: dgflag + + dum=nidum*NU*2.*rni + wetg=2.*PI*dum*(kt*fhdum*(T0-temp)+rhodum*xxlv*dv*fvdum*(qs0-qvdum))/(xxlf + (CPW*(temp-T0))) + if(rimedum/rhodum.gt.wetg) then + dgflag = .false. + endif + + end subroutine wet_growth_check + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + real function polysvp(T,TYPE) + + !-------------------------------------------------------------- + !.. Taken from 'module_mp_morr_two_moment.F' (WRFV3.4) + + !.. COMPUTE SATURATION VAPOR PRESSURE + + !.. POLYSVP RETURNED IN UNITS OF PA. + !.. T IS INPUT IN UNITS OF K. + !.. TYPE REFERS TO SATURATION WITH RESPECT TO LIQUID (0) OR ICE (1) + + !.. REPLACE GOFF-GRATCH WITH FASTER FORMULATION FROM FLATAU ET AL. 1992, + !.. TABLE 4 (RIGHT-HAND COLUMN) + !-------------------------------------------------------------- + + IMPLICIT NONE + + REAL DUM + REAL T + INTEGER TYPE + !.. ice + real a0i,a1i,a2i,a3i,a4i,a5i,a6i,a7i,a8i + data a0i,a1i,a2i,a3i,a4i,a5i,a6i,a7i,a8i /& + 6.11147274, 0.503160820, 0.188439774e-1, & + 0.420895665e-3, 0.615021634e-5,0.602588177e-7, & + 0.385852041e-9, 0.146898966e-11, 0.252751365e-14/ + + !.. liquid + real a0,a1,a2,a3,a4,a5,a6,a7,a8 + + !.. V1.7 + data a0,a1,a2,a3,a4,a5,a6,a7,a8 /& + 6.11239921, 0.443987641, 0.142986287e-1, & + 0.264847430e-3, 0.302950461e-5, 0.206739458e-7, & + 0.640689451e-10,-0.952447341e-13,-0.976195544e-15/ + real dt + + !.. ICE + IF (TYPE.EQ.1) THEN + + dt = max(-80.,t-273.16) + polysvp = a0i + dt*(a1i+dt*(a2i+dt*(a3i+dt*(a4i+dt*(a5i+dt*(a6i+dt*(a7i+a8i*dt))))))) + polysvp = polysvp*100. + + END IF + + !.. LIQUID + IF (TYPE.EQ.0) THEN + + dt = max(-80.,t-273.16) + polysvp = a0 + dt*(a1+dt*(a2+dt*(a3+dt*(a4+dt*(a5+dt*(a6+dt*(a7+a8*dt))))))) + polysvp = polysvp*100. + + END IF + + end function polysvp + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Access and interpolate lookup table values (from Hugh Morrison) + subroutine access_lookup_table(itabdum,dumjj,dumii,dumi,dumk,index, & + dum1,dum2,dum4,dum5,proc) + + implicit none + + real :: itabdum(:,:,:,:,:), dum1,dum2,dum4,dum5,proc + real :: dproc1,dproc2,iproc1,gproc1,tmp1,tmp2 + integer :: dumjj,dumii,dumi,dumk,index + + !.. get value at current density index + !.. first interpolate for current rimed fraction index + dproc1 =itabdum(dumjj,dumii,dumi,dumk,index)+(dum1-real(dumi))* & + (itabdum(dumjj,dumii,dumi+1,dumk,index)-itabdum(dumjj,dumii,dumi,dumk,index)) + + dproc2 =itabdum(dumjj,dumii,dumi,dumk+1,index)+(dum1-real(dumi))* & + (itabdum(dumjj,dumii,dumi+1,dumk+1,index)-itabdum(dumjj,dumii,dumi,dumk+1,index)) + + iproc1=dproc1+(dum2-real(dumk))*(dproc2-dproc1) + + !.. linearly interpolate to get process rates for rimed fraction index + 1 + dproc1 =itabdum(dumjj,dumii+1,dumi,dumk,index)+(dum1-real(dumi))* & + (itabdum(dumjj,dumii+1,dumi+1,dumk,index)- & + itabdum(dumjj,dumii+1,dumi,dumk,index)) + + dproc2 =itabdum(dumjj,dumii+1,dumi,dumk+1,index)+(dum1-real(dumi))* & + (itabdum(dumjj,dumii+1,dumi+1,dumk+1,index)- & + itabdum(dumjj,dumii+1,dumi,dumk+1,index)) + + gproc1=dproc1+(dum2-real(dumk))*(dproc2-dproc1) + + tmp1=iproc1+(dum4-real(dumii))*(gproc1-iproc1) + + !.. get value at density index + 1 + !.. first interpolate for current rimed fraction index + dproc1 =itabdum(dumjj+1,dumii,dumi,dumk,index)+(dum1-real(dumi))* & + (itabdum(dumjj+1,dumii,dumi+1,dumk,index)- & + itabdum(dumjj+1,dumii,dumi,dumk,index)) + + dproc2 =itabdum(dumjj+1,dumii,dumi,dumk+1,index)+ & + (dum1-real(dumi))*(itabdum(dumjj+1,dumii,dumi+1,dumk+1,index)- & + itabdum(dumjj+1,dumii,dumi,dumk+1,index)) + + iproc1=dproc1+(dum2-real(dumk))*(dproc2-dproc1) + + !.. linearly interpolate to get process rates for rimed fraction index + 1 + dproc1 =itabdum(dumjj+1,dumii+1,dumi,dumk,index)+(dum1-real(dumi))* & + (itabdum(dumjj+1,dumii+1,dumi+1,dumk,index)- & + itabdum(dumjj+1,dumii+1,dumi,dumk,index)) + + dproc2 =itabdum(dumjj+1,dumii+1,dumi,dumk+1,index)+(dum1-real(dumi))* & + (itabdum(dumjj+1,dumii+1,dumi+1,dumk+1,index)- & + itabdum(dumjj+1,dumii+1,dumi,dumk+1,index)) + + gproc1=dproc1+(dum2-real(dumk))*(dproc2-dproc1) + + tmp2=iproc1+(dum4-real(dumii))*(gproc1-iproc1) + + !.. get final process rate + proc=tmp1+(dum5-real(dumjj))*(tmp2-tmp1) + + end subroutine access_lookup_table + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Computes ln(gamma(xx)) using Lanczos + real function gammln(xx) + + implicit none + + REAL :: xx + REAL*8 :: cof(6), stp, x, y, tmp, ser + INTEGER :: j + DATA cof, stp/76.18009172947146d0, & + -86.50532032941677d0, & + 24.01409824083091d0, & + -1.231739572450155d0, & + 0.1208650973866179d-2, & + -0.5395239384953d-5, & + 2.5066282746310005d0/ + x = xx + y = x + tmp = x + 5.5d0 + tmp = (x + 0.5d0) * log(tmp) - tmp + ser = 1.000000000190015d0 + do j = 1, 6 + y = y + 1.0d0 + ser = ser + cof(j) / y + enddo + + gammln = tmp + log(stp * ser / x) + + return + end function gammln + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + REAL FUNCTION GAMMA(X) + !---------------------------------------------------------------------- + ! + ! THIS ROUTINE CALCULATES THE GAMMA FUNCTION FOR A REAL ARGUMENT X. + ! COMPUTATION IS BASED ON AN ALGORITHM OUTLINED IN REFERENCE 1. + ! THE PROGRAM USES RATIONAL FUNCTIONS THAT APPROXIMATE THE GAMMA + ! FUNCTION TO AT LEAST 20 SIGNIFICANT DECIMAL DIGITS. COEFFICIENTS + ! FOR THE APPROXIMATION OVER THE INTERVAL (1,2) ARE UNPUBLISHED. + ! THOSE FOR THE APPROXIMATION FOR X .GE. 12 ARE FROM REFERENCE 2. + ! THE ACCURACY ACHIEVED DEPENDS ON THE ARITHMETIC SYSTEM, THE + ! COMPILER, THE INTRINSIC FUNCTIONS, AND PROPER SELECTION OF THE + ! MACHINE-DEPENDENT CONSTANTS. + ! + ! + !******************************************************************* + !******************************************************************* + ! + ! EXPLANATION OF MACHINE-DEPENDENT CONSTANTS + ! + ! BETA - RADIX FOR THE FLOATING-POINT REPRESENTATION + ! MAXEXP - THE SMALLEST POSITIVE POWER OF BETA THAT OVERFLOWS + ! XBIG - THE LARGEST ARGUMENT FOR WHICH GAMMA(X) IS REPRESENTABLE + ! IN THE MACHINE, I.E., THE SOLUTION TO THE EQUATION + ! GAMMA(XBIG) = BETA**MAXEXP + ! XINF - THE LARGEST MACHINE REPRESENTABLE FLOATING-POINT NUMBER; + ! APPROXIMATELY BETA**MAXEXP + ! EPS - THE SMALLEST POSITIVE FLOATING-POINT NUMBER SUCH THAT + ! 1.0+EPS .GT. 1.0 + ! XMININ - THE SMALLEST POSITIVE FLOATING-POINT NUMBER SUCH THAT + ! 1/XMININ IS MACHINE REPRESENTABLE + ! + ! APPROXIMATE VALUES FOR SOME IMPORTANT MACHINES ARE: + ! + ! BETA MAXEXP XBIG + ! + ! CRAY-1 (S.P.) 2 8191 966.961 + ! CYBER 180/855 + ! UNDER NOS (S.P.) 2 1070 177.803 + ! IEEE (IBM/XT, + ! SUN, ETC.) (S.P.) 2 128 35.040 + ! IEEE (IBM/XT, + ! SUN, ETC.) (D.P.) 2 1024 171.624 + ! IBM 3033 (D.P.) 16 63 57.574 + ! VAX D-FORMAT (D.P.) 2 127 34.844 + ! VAX G-FORMAT (D.P.) 2 1023 171.489 + ! + ! XINF EPS XMININ + ! + ! CRAY-1 (S.P.) 5.45E+2465 7.11E-15 1.84E-2466 + ! CYBER 180/855 + ! UNDER NOS (S.P.) 1.26E+322 3.55E-15 3.14E-294 + ! IEEE (IBM/XT, + ! SUN, ETC.) (S.P.) 3.40E+38 1.19E-7 1.18E-38 + ! IEEE (IBM/XT, + ! SUN, ETC.) (D.P.) 1.79D+308 2.22D-16 2.23D-308 + ! IBM 3033 (D.P.) 7.23D+75 2.22D-16 1.39D-76 + ! VAX D-FORMAT (D.P.) 1.70D+38 1.39D-17 5.88D-39 + ! VAX G-FORMAT (D.P.) 8.98D+307 1.11D-16 1.12D-308 + ! + !******************************************************************* + !******************************************************************* + ! + ! ERROR RETURNS + ! + ! THE PROGRAM RETURNS THE VALUE XINF FOR SINGULARITIES OR + ! WHEN OVERFLOW WOULD OCCUR. THE COMPUTATION IS BELIEVED + ! TO BE FREE OF UNDERFLOW AND OVERFLOW. + ! + ! + ! INTRINSIC FUNCTIONS REQUIRED ARE: + ! + ! INT, DBLE, EXP, LOG, REAL, SIN + ! + ! + ! REFERENCES: AN OVERVIEW OF SOFTWARE DEVELOPMENT FOR SPECIAL + ! FUNCTIONS W. J. CODY, LECTURE NOTES IN MATHEMATICS, + ! 506, NUMERICAL ANALYSIS DUNDEE, 1975, G. A. WATSON + ! (ED.), SPRINGER VERLAG, BERLIN, 1976. + ! + ! COMPUTER APPROXIMATIONS, HART, ET. AL., WILEY AND + ! SONS, NEW YORK, 1968. + ! + ! LATEST MODIFICATION: OCTOBER 12, 1989 + ! + ! AUTHORS: W. J. CODY AND L. STOLTZ + ! APPLIED MATHEMATICS DIVISION + ! ARGONNE NATIONAL LABORATORY + ! ARGONNE, IL 60439 + ! + !---------------------------------------------------------------------- + implicit none + INTEGER I,N + LOGICAL PARITY + REAL & + CONV,EPS,FACT,HALF,ONE,RES,SUM,TWELVE, & + TWO,X,XBIG,XDEN,XINF,XMININ,XNUM,Y,Y1,YSQ,Z,ZERO + REAL, DIMENSION(7) :: C + REAL, DIMENSION(8) :: P + REAL, DIMENSION(8) :: Q + REAL, PARAMETER :: xxx = 0.9189385332046727417803297 + !---------------------------------------------------------------------- + ! MATHEMATICAL CONSTANTS + !---------------------------------------------------------------------- + DATA ONE,HALF,TWELVE,TWO,ZERO/1.0E0,0.5E0,12.0E0,2.0E0,0.0E0/ + + + !---------------------------------------------------------------------- + ! MACHINE DEPENDENT PARAMETERS + !---------------------------------------------------------------------- + DATA XBIG,XMININ,EPS/35.040E0,1.18E-38,1.19E-7/,XINF/3.4E38/ + !---------------------------------------------------------------------- + ! NUMERATOR AND DENOMINATOR COEFFICIENTS FOR RATIONAL MINIMAX + ! APPROXIMATION OVER (1,2). + !---------------------------------------------------------------------- + DATA P/-1.71618513886549492533811E+0,2.47656508055759199108314E+1, & + -3.79804256470945635097577E+2,6.29331155312818442661052E+2, & + 8.66966202790413211295064E+2,-3.14512729688483675254357E+4, & + -3.61444134186911729807069E+4,6.64561438202405440627855E+4/ + DATA Q/-3.08402300119738975254353E+1,3.15350626979604161529144E+2, & + -1.01515636749021914166146E+3,-3.10777167157231109440444E+3, & + 2.25381184209801510330112E+4,4.75584627752788110767815E+3, & + -1.34659959864969306392456E+5,-1.15132259675553483497211E+5/ + !---------------------------------------------------------------------- + ! COEFFICIENTS FOR MINIMAX APPROXIMATION OVER (12, INF). + !---------------------------------------------------------------------- + DATA C/-1.910444077728E-03,8.4171387781295E-04, & + -5.952379913043012E-04,7.93650793500350248E-04, & + -2.777777777777681622553E-03,8.333333333333333331554247E-02, & + 5.7083835261E-03/ + !---------------------------------------------------------------------- + ! STATEMENT FUNCTIONS FOR CONVERSION BETWEEN INTEGER AND FLOAT + !---------------------------------------------------------------------- + CONV(I) = REAL(I) + PARITY=.FALSE. + FACT=ONE + N=0 + Y=X + IF(Y.LE.ZERO)THEN + !---------------------------------------------------------------------- + ! ARGUMENT IS NEGATIVE + !---------------------------------------------------------------------- + Y=-X + Y1=AINT(Y) + RES=Y-Y1 + IF(RES.NE.ZERO)THEN + IF(Y1.NE.AINT(Y1*HALF)*TWO)PARITY=.TRUE. + FACT=-PI/SIN(PI*RES) + Y=Y+ONE + ELSE + RES=XINF + GOTO 900 + ENDIF + ENDIF + !---------------------------------------------------------------------- + ! ARGUMENT IS POSITIVE + !---------------------------------------------------------------------- + IF(Y.LT.EPS)THEN + !---------------------------------------------------------------------- + ! ARGUMENT .LT. EPS + !---------------------------------------------------------------------- + IF(Y.GE.XMININ)THEN + RES=ONE/Y + ELSE + RES=XINF + GOTO 900 + ENDIF + ELSEIF(Y.LT.TWELVE)THEN + Y1=Y + IF(Y.LT.ONE)THEN + !---------------------------------------------------------------------- + ! 0.0 .LT. ARGUMENT .LT. 1.0 + !---------------------------------------------------------------------- + Z=Y + Y=Y+ONE + ELSE + !---------------------------------------------------------------------- + ! 1.0 .LT. ARGUMENT .LT. 12.0, REDUCE ARGUMENT IF NECESSARY + !---------------------------------------------------------------------- + N=INT(Y)-1 + Y=Y-CONV(N) + Z=Y-ONE + ENDIF + !---------------------------------------------------------------------- + ! EVALUATE APPROXIMATION FOR 1.0 .LT. ARGUMENT .LT. 2.0 + !---------------------------------------------------------------------- + XNUM=ZERO + XDEN=ONE + DO I=1,8 + XNUM=(XNUM+P(I))*Z + XDEN=XDEN*Z+Q(I) + END DO + RES=XNUM/XDEN+ONE + IF(Y1.LT.Y)THEN + !---------------------------------------------------------------------- + ! ADJUST RESULT FOR CASE 0.0 .LT. ARGUMENT .LT. 1.0 + !---------------------------------------------------------------------- + RES=RES/Y1 + ELSEIF(Y1.GT.Y)THEN + !---------------------------------------------------------------------- + ! ADJUST RESULT FOR CASE 2.0 .LT. ARGUMENT .LT. 12.0 + !---------------------------------------------------------------------- + DO I=1,N + RES=RES*Y + Y=Y+ONE + END DO + ENDIF + ELSE + !---------------------------------------------------------------------- + ! EVALUATE FOR ARGUMENT .GE. 12.0, + !---------------------------------------------------------------------- + IF(Y.LE.XBIG)THEN + YSQ=Y*Y + SUM=C(7) + DO I=1,6 + SUM=SUM/YSQ+C(I) + END DO + SUM=SUM/Y-Y+xxx + SUM=SUM+(Y-HALF)*LOG(Y) + RES=EXP(SUM) + ELSE + RES=XINF + GOTO 900 + ENDIF + ENDIF + !---------------------------------------------------------------------- + ! FINAL ADJUSTMENTS AND RETURN + !---------------------------------------------------------------------- + IF(PARITY)RES=-RES + IF(FACT.NE.ONE)RES=FACT/RES +900 GAMMA=RES + RETURN + ! ---------- LAST LINE OF GAMMA ---------- + END FUNCTION GAMMA + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Get the inherent growth ratio data as a function of temperature + real function get_igr(igrdatadum, temp) + + implicit none + + real :: igrdatadum(:), dum, igr1, igr2, temp + + !.. Inherent growth ratio (IGR) from data + !.. See Lamb and Scott (1972) and Chen and Lamb (1994) + if((temp-T0).ge.-59..and.(temp-T0).le.-1.) then + dum = (abs(real(int(temp-T0))) + 1.) - abs(temp-T0) + igr1 = igrdatadum(max((int(temp-T0)*(-1)),1)) + igr2 = igrdatadum(min(((int(temp-T0)*(-1))+1),60)) + get_igr = dum*igr1 + (1.-dum)*igr2 + elseif((temp-T0).gt.-1..and.(temp-T0).le.0.) then + dum = 1.0 - abs(temp-T0) + igr1 = 1.0 + igr2 = igrdatadum(1) + get_igr = dum*igr1 + (1.-dum)*igr2 + elseif((temp-T0).ge.-60..and.(temp-T0).lt.-59.) then + dum = 60.0 - abs(temp-T0) + igr1 = igrdatadum(59) + igr2 = igrdatadum(60) + get_igr = dum*igr1 + (1.-dum)*igr2 + elseif((temp-T0).lt.-60.) then + get_igr = igrdatadum(60) + else + get_igr = 1. + endif + + end function get_igr + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Aggregation routine (see Jensen et al. 2017, implentation by JYH and AAJ) + !.. See Walko et al. 1995 and Meyers et al. 1997 for more details + subroutine aggregation(dtdum,rhoairdum,tempdum,qdum1,ndum1,ddum1,qdum2,ndum2,ddum2, & + qdum3,ndum3,ddum3,rhodum1,rhodum2,phidum1,phidum2,coltab,coltabn, & + qagg1,qagg2,qagg3,nagg1,nagg2,nagg3) + + implicit none + + real, parameter :: QNSMALL= 1.25e-7 ! Smallest ice number + integer icat,k,kp1,kp2,isnow,ipris,it,ihab,jhab + integer, parameter :: ncat=7,npair=35,ndn=60,nftab=1000,ngam=5000,nz=1 + real, parameter :: rsmall=1.e-12 + real gnu(ncat),shape(ncat),cfmas(ncat),pwmas(ncat),& + cfden(ncat),pwden(ncat)& + ,cfvt(ncat),pwvt(ncat),tablo(ncat),tabhi(ncat),tabloln(ncat),& + tabhiln(ncat)& + ,dnmin(ncat),dnmax(ncat),vtfac(ncat),pow1(ncat),pow2(ncat),& + frefac1(ncat)& + ,frefac2(ncat),cfmasft(ncat),dict(ncat),dbmi(ncat),& + gamm(ncat),gamn1(ncat)& + ,gam(ngam,ncat),ncrossloss,rcrossloss,nselfloss,& + rselfloss,ncrossgain,rcrossgain,nselfgain,rselfgain + real rictmin,rictmax,rict,rictmm,dtlt,totalc(nz),totaldc(nz) + real dn(nz,ncat),en(nz,ncat),qr(nz,ncat),r(nz,ncat),qq(nz,ncat) + real wct1(nz,ncat),wct2(nz,ncat),rxfer(nz,ncat,ncat),& + qrxfer(nz,ncat,ncat),enxfer(nz,ncat,ncat),& + parxfer(nz,ncat,ncat), paqrxfer(nz,ncat,ncat),& + paenxfer(nz,ncat,ncat), pprxfer(nz,ncat,ncat),& + ppqrxfer(nz,ncat,ncat), ppenxfer(nz,ncat,ncat) + real qs(nz),ns(nz),dns(nz),qa(nz),na(nz),dna(nz) + real t(nz,ncat),tc(nz),rhoa(nz),tk(nz),denfac(nz),eff(nz) + real ftable(nftab,ncat) + real, intent(IN) :: coltab(ndn,ndn,npair),coltabn(ndn,ndn,npair) + integer ipair(ncat,ncat),ict(nz,ncat) + real, dimension(ncat,9) :: dstprms + real, intent(IN) :: qdum1,ndum1,qdum2,ndum2,qdum3,ndum3,ddum1,ddum2 + real, intent(INOUT) :: qagg1,qagg2,qagg3,nagg1,nagg2,nagg3,ddum3 + real, intent(IN) :: rhodum1, rhodum2, phidum1, phidum2 + real :: rhoeff, phieff, rhoeffmax, phieffmax, efffact + real :: source3, sink3, source4, sink4, ratioagg + real, intent(IN) :: dtdum, rhoairdum, tempdum + + dstprms=& + !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! cloud rain planar columnar aggreg graup hail + ! 1 2 3 4 5 6 7 ---> ncat + !----------------------------------------------------------------------- + reshape((/.5, .5, .318, .318, .5, .5, .5, &!shape (capacitance shape) + 524., 524., .333, .333, .496, 157., 471., &!cfmas (m=cfmas*D**pwmas) + 3., 3., 2.4, 2.4, 2.4, 3., 3., &!pwmas + 3173., 149., 4.836, 4.836, 3.084, 93.3, 161., &!cfvt (v = cfvt*D**pwvt) + 2., .5, 0.25, .25, .2, .5, .5, &!pwvt + 1.e-6, 1.e-6, 1.e-6, 1.e-6, 1.e-6, 1.e-6, 1.e-6, &!tablo (size limits for table) + 1.e-2, 1.e-2, 1.e-2, 1.e-2, 1.e-2, 1.e-2, 1.e-2, &!tabhi + .1e-5, .1e-4, .1e-5, .1e-5, .1e-4, .1e-4, .1e-4, &!dnmin (characteristic diam + .1e-2, .1e-1, .1e-1, .1e-1, .1e-1, .1e-1, .1e-1/), &!dnmax limits) + (/ncat,9/)) + !----------------------------------------------------------------------- + + ipair=& + reshape((/0,0,3,7,11,15,19 ,1,0,5,9,13,17,21 & ! collection pairs + ,2,4,22,24,0,0,0 ,6,8,23,28,0,0,0 & + ,10,12,25,29,35,0,0 ,14,16,26,30,32,0,0 & + ,18,20,27,31,33,34,0/), & + (/ncat,ncat/)) + + do icat=1,ncat + shape(icat)=dstprms(icat,1) + cfmas(icat)=dstprms(icat,2) + pwmas(icat)=dstprms(icat,3) + cfvt (icat)=dstprms(icat,4) + pwvt (icat)=dstprms(icat,5) + tablo(icat)=dstprms(icat,6) + tabhi(icat)=dstprms(icat,7) + dnmin(icat)=dstprms(icat,8) + dnmax(icat)=dstprms(icat,9) + gnu(icat) = 4.0 ! shape distribution + + tabloln(icat)=log(tablo(icat)) + tabhiln(icat)=log(tabhi(icat)) + dict(icat) = float(ndn - 1) / (tabhiln(icat) - tabloln(icat)) + enddo + rictmin=1.0001 + rictmax=0.9999*float(ndn) + + !.. Collection integral multipliers for number and mass mixing ratio loss + !.. due to self collection from a cateogry. Multipliers for the gain term + !.. for aggregates given as well. Below this are the multipliers for + !.. cross collection. These should be correct but a more detailed + !.. mathematical treatment is warranted. JYH Sept 2016. + nselfloss = 1. + rselfloss = 1. + nselfgain = 1./2. + rselfgain = 1.0 + + ncrossloss = 1. + rcrossloss = 1.0 + ncrossgain = 1./2. + rcrossgain = 1.0 + + !.. Assumed mass-size coefficients + pwmas(3) = 3.0 + cfmas(3) = 3.14159/6.*250.*0.05 + pwmas(4) = 3.0 + cfmas(4) = 3.14159/6.*250.*0.05 + pwmas(5) = 3.0 + cfmas(5) = 3.14159/6.*50.*0.2 + + dtlt = dtdum ! time step + kp1 = 1 + kp2 = nz + ipris= 5 ! double moment + + !.. collection routine + !.. nz = # vertical levels + !.. kp1 = lowest level with cloud + !.. kp2 = higest level with cloud + !.. 3 => the first is the collector + !.. 3 => the second is the collectee + !.. 5 => where the collection goes (aggregates) + !.. dn(nz,ncat) = characteristic diameter + !.. en(nz,ncat) = number concentration + !.. r(nz,ncat) = mass mixing ratio + !.. qr(nz,ncat) = hydrometeor internal enthalpy + !.. qq(nz,ncat) = hydrometeor temperature (internal energy) + !.. t(nz,ncat) = hydrometeor temperature (air temperature) + !.. ict,wct1,wct2 -> table interpolation + !.. rhoa(nz) = air density + !.. denfac(nz) = sqrt(1/rhoa) + !.. eff(nz) = collection efficiency + !.. ipris = 5 double moment + !.. rxfer(nz,ncat,ncat) = change in mass mixing ratio due to collection + !.. enxfer(nz,ncat,ncat) = change in number concentration due to collection + !.. qrxfer(nz,ncat,ncat) = change in internal energy due to collection + !.. ipair,2 -> 2 is for self-collection, 1 if cross collection + + do k = 1,nz !.. nz = 1 currently (the k loop is done outsize of this routine) + rhoa(k) = rhoairdum + tk(k) = tempdum + + denfac(k) = sqrt(1./rhoa(k)) + dn(k,3) = ddum1 + en(k,3) = ndum1*rhoa(k) + r(k,3) = qdum1 + + dn(k,4) = ddum2 + en(k,4) = ndum2*rhoa(k) + r(k,4) = qdum2 + + qr(k,3) = 0.0 !.. internal energy... not needed so pass in zero + qq(k,3) = t(k,3) + t(k,3) = tk(k) - 273.15 + qr(k,4) = 0.0 !.. internal energy... not needed so pass in zero + qq(k,4) = t(k,3) + t(k,4) = t(k,3) + qr(k,5) = 0.0 + qq(k,5) = t(k,5) + t(k,5) = t(k,3) + + dn(k,5) = ddum3 + en(k,5) = ndum3*rhoa(k) + r(k,5) = qdum3 + + totaldc(k)=0. + enddo + + do it = 1,1 !.. One timestep at a time + do k = 1,nz !.. One vertical grid at a time + + do ihab = 1,7 + do jhab = 1,7 + + !.. planar = qice, columnar=qice2, aggregates = qice3 + !.. planar + columnar = aggregates (qice + qice2 -> qice3) + rxfer(k,ihab,jhab) = 0.0 + enxfer(k,ihab,jhab) = 0.0 + qrxfer(k,ihab,jhab) = 0.0 + rxfer(k,ihab,jhab) = 0.0 + enxfer(k,ihab,jhab) = 0.0 + qrxfer(k,ihab,jhab) = 0.0 + + !.. planar + aggregates = aggregates + parxfer(k,ihab,jhab) = 0.0 + paenxfer(k,ihab,jhab) = 0.0 + paqrxfer(k,ihab,jhab) = 0.0 + + !.. columnar + aggregates = aggregates + parxfer(k,ihab,jhab) = 0.0 + paenxfer(k,ihab,jhab) = 0.0 + paqrxfer(k,ihab,jhab) = 0.0 + + !.. Self collection (aggregates) + pprxfer(k,ihab,jhab) = 0.0 + ppenxfer(k,ihab,jhab) = 0.0 + ppqrxfer(k,ihab,jhab) = 0.0 + pprxfer(k,ihab,jhab) = 0.0 + ppenxfer(k,ihab,jhab) = 0.0 + ppqrxfer(k,ihab,jhab) = 0.0 + enddo + enddo + + !.. needed for table interpolation + rict=dict(3)*(log(max(1.e-10,dn(k,3)))-tabloln(3))+1. + rictmm=max(rictmin,min(rictmax,rict)) + ict(k,3)=int(rictmm) + wct2(k,3)=rictmm-float(ict(k,3)) + wct1(k,3)=1.0-wct2(k,3) + + !.. needed for table interpolation + rict=dict(4)*(log(max(1.e-10,dn(k,4)))-tabloln(4))+1. + rictmm=max(rictmin,min(rictmax,rict)) + ict(k,4)=int(rictmm) + wct2(k,4)=rictmm-float(ict(k,4)) + wct1(k,4)=1.0-wct2(k,4) + + !.. needed for table interpolation + rict=dict(5)*(log(max(1.e-10,dn(k,5)))-tabloln(5))+1. + rictmm=max(rictmin,min(rictmax,rict)) + ict(k,5)=int(rictmm) + wct2(k,5)=rictmm-float(ict(k,5)) + wct1(k,5)=1.0-wct2(k,5) + + totalc(k)=0. + enddo + + !.. planar + columnar = aggregates + !.. let high density reduce the collection efficiency + rhoeffmax = max(rhodum1,rhodum2) + phieffmax = max(min(phidum1,1./phidum1),min(phidum2,1./phidum2)) + if(rhoeffmax.le.400.) then + rhoeff = 1. + else + rhoeff = -0.001923*rhoeffmax + 1.76916 + endif + rhoeff = max(rhoeff,0.) + rhoeff = min(rhoeff,1.) + + !.. Spherical particles collect less efficiently than more extreme + !.. particle shapes + !.. Based on Connolly et al 2012 + !.. See Jensen et al. 2018b + if(phieffmax.le.0.03) then + phieff = 1. + elseif(phieffmax.gt.0.03.and.phieffmax.lt.0.5) then + phieff = 0.0001*((phieffmax+0.07)**(-4.)) + else + phieff = 0. + endif + + if(phieff.le.0.001) then + phieff = 0. + endif + + phieff = max(phieff,0.01) !.. Low limit currently set to 0.01 AAJ + phieff = min(phieff,1.) + efffact = phieff * rhoeff + + call col1 & + (nz,kp1,kp2,ndn,ncat,3,4,5 & + ,dtlt,dn,en,r,qr,qq,t,ict,wct1,wct2,rhoa,denfac,coltab & + ,coltabn,ipair,1.,eff,efffact,ipris,rxfer,qrxfer,enxfer) + call col1 & + (nz,kp1,kp2,ndn,ncat,4,3,5 & + ,dtlt,dn,en,r,qr,qq,t,ict,wct1,wct2,rhoa,denfac,coltab & + ,coltabn,ipair,1.,eff,efffact,ipris,rxfer,qrxfer,enxfer) + + !.. plates + aggregates = aggregates + rhoeffmax = rhodum1 + phieffmax = min(phidum1,1./phidum1) + + if(rhoeffmax.le.400.) then + rhoeff = 1. + else + rhoeff = -0.001923*rhoeffmax + 1.76916 + endif + rhoeff = max(rhoeff,0.) + rhoeff = min(rhoeff,1.) + + !.. Based on Connolly et al 2012 + !.. See Jensen et al. 2018b + if(phieffmax.le.0.03) then + phieff = 1. + elseif(phieffmax.gt.0.03.and.phieffmax.lt.0.5) then + phieff = 0.0001*((phieffmax+0.07)**(-4.)) + else + phieff = 0. + endif + + if(phieff.le.0.001) then + phieff = 0. + endif + + phieff = max(phieff,0.01) + phieff = min(phieff,1.) + efffact = phieff * rhoeff + + call col1 & + (nz,kp1,kp2,ndn,ncat,3,5,5 & + ,dtlt,dn,en,r,qr,qq,t,ict,wct1,wct2,rhoa,denfac,coltab & + ,coltabn,ipair,1.,eff,efffact,ipris,parxfer,paqrxfer,paenxfer) + + !.. Columnar + Aggregates = Aggregates + rhoeffmax = rhodum2 + phieffmax = min(phidum2,1./phidum2) + + if(rhoeffmax.le.400.) then + rhoeff = 1. + else + rhoeff = -0.001923*rhoeffmax + 1.76916 + endif + rhoeff = max(rhoeff,0.) + rhoeff = min(rhoeff,1.) + + !.. Based on Connolly et al 2012 + !.. See Jensen et al. 2018b + if(phieffmax.le.0.03) then + phieff = 1. + elseif(phieffmax.gt.0.03.and.phieffmax.lt.0.5) then + phieff = 0.0001*((phieffmax+0.07)**(-4.)) + else + phieff = 0. + endif + + if(phieff.le.0.001) then + phieff = 0. + endif + + phieff = max(phieff,0.01) + phieff = min(phieff,1.) + efffact = phieff * rhoeff + + call col1 & + (nz,kp1,kp2,ndn,ncat,4,5,5 & + ,dtlt,dn,en,r,qr,qq,t,ict,wct1,wct2,rhoa,denfac,coltab & + ,coltabn,ipair,1.,eff,efffact,ipris,parxfer,paqrxfer,paenxfer) + + !.. Plates + Plates = Aggregates + rhoeffmax = rhodum1 + phieffmax = min(phidum1,1./phidum1) + + if(rhoeffmax.le.400.) then + rhoeff = 1. + else + rhoeff = -0.001923*rhoeffmax + 1.76916 + endif + rhoeff = max(rhoeff,0.) + rhoeff = min(rhoeff,1.) + + !.. Based on Connolly et al 2012 + !.. See Jensen et al. 2018b + if(phieffmax.le.0.03) then + phieff = 1. + elseif(phieffmax.gt.0.03.and.phieffmax.lt.0.5) then + phieff = 0.0001*((phieffmax+0.07)**(-4.)) + else + phieff = 0. + endif + + if(phieff.le.0.001) then + phieff = 0. + endif + + phieff = max(phieff,0.01) + phieff = min(phieff,1.) + efffact = phieff * rhoeff + + call col1 & + (nz,kp1,kp2,ndn,ncat,3,3,5 & + ,dtlt,dn,en,r,qr,qq,t,ict,wct1,wct2,rhoa,denfac,coltab & + ,coltabn,ipair,1.,eff,efffact,ipris,pprxfer,ppqrxfer,ppenxfer) + + !.. Columns + Columns = Aggregates + rhoeffmax = rhodum2 + phieffmax = min(phidum2,1./phidum2) + + if(rhoeffmax.le.400.) then + rhoeff = 1. + else + rhoeff = -0.001923*rhoeffmax + 1.76916 + endif + rhoeff = max(rhoeff,0.) + rhoeff = min(rhoeff,1.) + + !.. Based on Connolly et al 2012 + !.. See Jensen et al. 2018b + if(phieffmax.le.0.03) then + phieff = 1. + elseif(phieffmax.gt.0.03.and.phieffmax.lt.0.5) then + phieff = 0.0001*((phieffmax+0.07)**(-4.)) + else + phieff = 0. + endif + + if(phieff.le.0.001) then + phieff = 0. + endif + + phieff = max(phieff,0.01) + phieff = min(phieff,1.) + efffact = phieff * rhoeff + + call col1 & + (nz,kp1,kp2,ndn,ncat,4,4,5 & + ,dtlt,dn,en,r,qr,qq,t,ict,wct1,wct2,rhoa,denfac,coltab & + ,coltabn,ipair,1.,eff,efffact,ipris,pprxfer,ppqrxfer,ppenxfer) + + efffact=1. + !.. Aggregate self collection + call col1 & + (nz,kp1,kp2,ndn,ncat,5,5,5 & + ,dtlt,dn,en,r,qr,qq,t,ict,wct1,wct2,rhoa,denfac,coltab & + ,coltabn,ipair,1.,eff,efffact,ipris,pprxfer,ppqrxfer,ppenxfer) + + do k = 1,nz + + !.. Do not over-deplete from aggregation + sink3 = rcrossloss*rxfer(k,3,5) + & + rcrossloss*parxfer(k,3,5) + & + rselfloss*pprxfer(k,3,5) + source3 = r(k,3) + + sink4 = rcrossloss*rxfer(k,4,5) + & + rcrossloss*parxfer(k,4,5) + & + rselfloss*pprxfer(k,4,5) + source4 = r(k,4) + + if(sink3.gt.source3.and.source3.gt.1.e-8) then + ratioagg= source3/sink3 + rxfer(k,3,5) = rxfer(k,3,5)*ratioagg + parxfer(k,3,5) = parxfer(k,3,5)*ratioagg + pprxfer(k,3,5) = pprxfer(k,3,5)*ratioagg + endif + + if(sink4.gt.source4.and.source4.gt.1.e-8) then + ratioagg= source4/sink4 + rxfer(k,4,5) = rxfer(k,4,5)*ratioagg + parxfer(k,4,5) = parxfer(k,4,5)*ratioagg + pprxfer(k,4,5) = pprxfer(k,4,5)*ratioagg + endif + + totaldc(k)=totaldc(k) + & + ncrossloss*enxfer(k,3,5)+ncrossloss*paenxfer(k,3,5)+ & + nselfloss*ppenxfer(k,3,5)+ & + ncrossloss*enxfer(k,4,5)+ncrossloss*paenxfer(k,4,5)+ & + nselfloss*ppenxfer(k,4,5) + + !.. qagg is the mass tendency, nagg is the number tendency + qagg1 = -rcrossloss*rxfer(k,3,5) - rcrossloss*parxfer(k,3,5) - rselfloss*pprxfer(k,3,5) + nagg1 = -ncrossloss*enxfer(k,3,5) - ncrossloss*paenxfer(k,3,5) - nselfloss*ppenxfer(k,3,5) + + qagg2 = -rcrossloss*rxfer(k,4,5) - rcrossloss*parxfer(k,4,5) - rselfloss*pprxfer(k,4,5) + nagg2 = -ncrossloss*enxfer(k,4,5) - ncrossloss*paenxfer(k,4,5) - nselfloss*ppenxfer(k,4,5) + + qagg3 = rcrossgain*rxfer(k,3,5) + rcrossgain*rxfer(k,4,5) + rcrossgain*parxfer(k,3,5) + & + rcrossgain*parxfer(k,4,5) + rselfgain*pprxfer(k,3,5) + rselfgain*pprxfer(k,4,5) + nagg3 = ncrossgain*enxfer(k,3,5) + ncrossgain*enxfer(k,4,5) + nselfgain*ppenxfer(k,3,5) + & + nselfgain*ppenxfer(k,4,5) - 0.5*ppenxfer(k,5,5) + + qagg1 = min(qagg1,0.) + qagg2 = min(qagg2,0.) + qagg3 = max(qagg3,0.) + + !.. Update to characteristic diameters after aggregation + !.. Note that for ice-one and ice-two, the axes will be re-diagnosed + !.. after aggregation based on delta*, so only output aggregation size + dn(k,5) = ((r(k,5)+qagg3)*rhoa(k)/(MAX((en(k,5)+nagg3),QNSMALL)*cfmas(5) & + *(gamma(gnu(5)+ & + pwmas(5)))/(gamma(gnu(5))) ) )**(1./pwmas(5)) + ddum3=dn(k,5) + + nagg1 = nagg1/rhoa(k) + nagg2 = nagg2/rhoa(k) + nagg3 = nagg3/rhoa(k) + + totalc(k)=0. + totalc(k) = en(k,3)+en(k,4) + 0. + + rxfer(k,3,5) = 0.0 + enxfer(k,3,5) = 0.0 + qrxfer(k,3,5) = 0.0 + + rxfer(k,4,5) = 0.0 + enxfer(k,4,5) = 0.0 + qrxfer(k,4,5) = 0.0 + enddo + enddo + + end subroutine aggregation + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Needed for the aggregation routine + subroutine col1(n1,k1,k2,ndn,ncat,mx,my,mz,dtlt,dn,en,r,qr,qq,t & + ,ict,wct1,wct2,dn0,denfac,coltab,coltabn,ipair,cr,eff,efdum,icf & + ,rxfer,qrxfer,enxfer) + integer ict(n1,*),ipair(ncat,ncat), ndn, ncat,n1 + real dn(n1,*),en(n1,*),r(n1,*),qr(n1,*),qq(n1,*),t(n1,*) & + ,wct1(n1,*),wct2(n1,*),dn0(*),denfac(*) & + ,coltab(ndn,ndn,*),eff(*),coltabn(ndn,ndn,*) & + ,rxfer(n1,ncat,ncat),qrxfer(n1,ncat,ncat),enxfer(n1,ncat,ncat) + integer :: k1, k2, mx, my, mz, icf, k, ip + real :: dtlt, cr, csizei, tmax, colamt, colamtn, wght, deltan,efdum + + ip=ipair(mx,my) + csizei=7.e4 + + do k=k1,k2 + + tmax=max(t(k,mx),t(k,my)) + + !.. efdum added by AAJ from ramsagg + !.. if takes into account the shape and density + !.. dependence on the collection efficiency + eff(k)=min(0.2,10.**(0.035*tmax-0.7))*efdum + + if(my.eq.6.and.qr(k,6).gt.0)eff(k)=1. + if(my.eq.7.and.qr(k,7).gt.0)eff(k)=1. + + !.. see note above on efdum + if(mz.eq.5.and.abs(t(k,mx)+14.).le.2.)eff(k)=1.4*efdum + + if(mx.eq.1)eff(k)=min(1.,dn(k,1)*csizei) + + colamt=dtlt*cr*0.785*eff(k)*denfac(k)/dn0(k) & + *en(k,mx)*en(k,my)*( & + wct1(k,mx)*wct1(k,my)*coltab(ict(k,mx) ,ict(k,my) ,ip) & + +wct2(k,mx)*wct1(k,my)*coltab(ict(k,mx)+1,ict(k,my) ,ip) & + +wct1(k,mx)*wct2(k,my)*coltab(ict(k,mx) ,ict(k,my)+1,ip) & + +wct2(k,mx)*wct2(k,my)*coltab(ict(k,mx)+1,ict(k,my)+1,ip)) + + colamt=min(colamt,r(k,mx)) + rxfer(k,mx,mz) = rxfer(k,mx,mz) + colamt + qrxfer(k,mx,mz) = qrxfer(k,mx,mz) + colamt * qq(k,mx) + + colamtn=dtlt*cr*0.785*eff(k)*denfac(k)/dn0(k) & + *en(k,mx)*en(k,my)*( & + wct1(k,mx)*wct1(k,my)*coltabn(ict(k,mx) ,ict(k,my) ,ip) & + +wct2(k,mx)*wct1(k,my)*coltabn(ict(k,mx)+1,ict(k,my) ,ip) & + +wct1(k,mx)*wct2(k,my)*coltabn(ict(k,mx) ,ict(k,my)+1,ip) & + +wct2(k,mx)*wct2(k,my)*coltabn(ict(k,mx)+1,ict(k,my)+1,ip)) + + colamtn=min(colamtn,en(k,mx)) + + if(icf.eq.5)then + + wght = min(max(0.,100.*abs(colamt)/max(1.e-20,r(k,mx))),1.) + deltan = colamtn*(1.-wght) + & + wght*en(k,mx) * colamt / max(1.e-20,r(k,mx)) + enxfer(k,mx,mz) = enxfer(k,mx,mz) + deltan + + endif + + enddo + return + end subroutine col1 + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Needed for the aggregation routine + subroutine mkcoltb(ndn,ncat,coltab,coltabn,ipair,gnu,tablo,tabhi & + ,cfmas,pwmas,cfvt,pwvt) + integer :: ncat + real :: coltab(ndn,ndn,35),gnu(ncat) & + ,tablo(ncat), tabhi(ncat), cfmas(ncat),pwmas(ncat) & + ,cfvt(ncat), pwvt(ncat), coltabn(ndn,ndn,35) + integer :: ipair(ncat,ncat), ix, iy, idny, idnx, idx, ndn + integer, parameter :: ndx=20 + real :: dx(ndx),gx(ndx),fx(20), gyn,gyn1,gyn2,gynp1,gynp2,gynp + real :: dxhi, dny, vny, dxlo, dnx, ans + + do ix=1,ncat + do iy=1,ncat + if(ipair(ix,iy).gt.0)then + gyn=(gamma(gnu(iy))) + gyn1=(gamma(gnu(iy)+1.))/gyn + gyn2=(gamma(gnu(iy)+2.))/gyn + gynp=(gamma(gnu(iy)+pwvt(iy)))/gyn + gynp1=(gamma(gnu(iy)+pwvt(iy)+1.))/gyn + gynp2=(gamma(gnu(iy)+pwvt(iy)+2.))/gyn + dxlo=tablo(ix)*0.01 + dxhi=tabhi(ix)*10.0 + do idny=1,ndn + dny=tablo(iy)*(tabhi(iy)/tablo(iy))**(float(idny-1) & + /float(ndn-1)) + vny=cfvt(iy)*dny**pwvt(iy) + do idnx=1,ndn + dnx=tablo(ix)*(tabhi(ix)/tablo(ix))**(float(idnx-1) & + /float(ndn-1)) + do idx=1,ndx + dx(idx)=dxlo*(dxhi/dxlo) & + **(float(idx-1)/float(ndx-1)) + fx(idx) = xjnum(dx(idx),cfvt(ix),pwvt(ix),cfvt(iy) & + ,pwvt(iy),vny,dnx,dny,gnu(ix),gnu(iy) & + ,gyn1,gyn2,gynp,gynp1,gynp2) + if(fx(idx).lt.1.e-15) then !.. low limit added by AAJ + fx(idx) = 0. + endif + gx(idx) = fx(idx) * cfmas(ix) & + * dx(idx) ** pwmas(ix) + enddo + call avint(dx,gx,ndx,dxlo,dxhi,ans) + coltab(idnx,idny,ipair(ix,iy))=max(0.,ans) + call avint(dx,fx,ndx,dxlo,dxhi,ans) + coltabn(idnx,idny,ipair(ix,iy))=max(0.,ans) + enddo + enddo + endif + enddo + enddo + return + end subroutine mkcoltb + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Needed for the aggregation routine + function xjnum(dx,cvx,pvx,cvy,pvy,vny,dnx,dny,xnu,ynu & + ,gyn1,gyn2,gynp,gynp1,gynp2) + implicit none + + real :: dx,cvx,pvx,cvy,pvy,vny,dnx,dny,xnu,ynu,gyn1,gyn2,gynp, & + gynp1,gynp2,xjnum & + ,dnxi,rdx,vx,dxy,ynup + + dnxi = 1. / dnx + rdx = dx * dnxi + vx = max((cvx * dx ** pvx),1.e-6) !.. low limit added by AAJ + dxy = (vx / cvy) ** (1. / pvy) / dny + dxy = max(dxy,1.e-5) + dxy = min(dxy,70.) + ynup = ynu + pvy + + if (rdx .lt. 38.) then + xjnum=exp(-rdx-gammln(xnu)-gammln(ynu))*rdx**(xnu-1.)*dnxi*( & + vx*(dx*dx*(gammap(ynu,dxy)-gammq(ynu,dxy)) & + +2.*dx*dny*gyn1*(gammap(ynu+1.,dxy)-gammq(ynu+1.,dxy)) & + +dny*dny*gyn2*(gammap(ynu+2.,dxy)-gammq(ynu+2.,dxy))) & + -vny*(dx*dx*gynp*(gammap(ynup,dxy)-gammq(ynup,dxy)) & + +2.*dx*dny*gynp1*(gammap(ynup+1.,dxy)-gammq(ynup+1.,dxy)) & + +dny*dny*gynp2*(gammap(ynup+2.,dxy)-gammq(ynup+2.,dxy)))) + else + xjnum=0. + endif + return + end function xjnum + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Used by aggregation + REAL FUNCTION GAMMQ(A,X) + + real :: x, a, gln, gamser + + IF (X .LT. A+1.) THEN + CALL LOWGSERIES(GAMSER,A,X,GLN) + GAMMQ = 1. - GAMSER + ELSE + CALL HIGHGCONTFRAC(GAMMQ,A,X,GLN) + END IF + RETURN + END FUNCTION GAMMQ + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Computes P(a, x) = lower_gamma(a, x) / gamma(a) + !.. Using either series solution or continued fractions + real function gammap(a, x) + + implicit none + + REAL :: a, x, gammaser, gammacf, gln + + if(x.lt.0.0.or.a.lt.0.0) then + write(*,*) 'x or a is less than zero' + write(*,*), x, a + return + endif + if(x.lt.(a + 1.0)) then + call lowgseries(gammaser, a, x, gln) + gammap = gammaser + else + call highgcontfrac(gammacf, a, x, gln) + gammap = 1.0 - gammacf + endif + + return + end function gammap + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Returns: gln = ln(gamma(a)) + !.. Returns: gammaser = lower_gamma(a, x) as a series solution + subroutine lowgseries(gammaser, a, x, gln) + + implicit none + + INTEGER, PARAMETER :: ITMAX = 100 + INTEGER :: n + REAL :: gammaser, a, x, gln, sum, del, ap + REAL, PARAMETER :: EPS = 3.0e-7 + + gln = gammln(a) + if(x.le.0) then + gammaser = 0.0 + return + endif + + ap=a + sum=1./a + del=sum + do n = 1, ITMAX + ap=ap+1. + del=del*x/ap + sum=sum+del + if(abs(del).lt.abs(sum)*EPS) exit + enddo + + gammaser = sum*exp(-x+a*log(x)-gln) + return + end subroutine lowgseries + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Returns: gln = ln(gamma(a)) + !.. Returns: gammacf = upper_gamma(a, x) as a continued fractions solution + subroutine highgcontfrac(gammacf, a, x, gln) + + implicit none + + INTEGER, PARAMETER :: ITMAX = 100 + INTEGER :: n + REAL :: gammacf, a, x, gln, b, c, d, h, del, an + REAL, PARAMETER :: EPS = 3.0e-7, FPMIN = 1.0e-30 + + gln = gammln(a) + b=x+1.-a + c=1./FPMIN + d=1./b + h=d + do n = 1, ITMAX + an=-n*(n-a) + b=b+2. + d=an*d+b + if(abs(d).lt.FPMIN) d = FPMIN + c=b+an/c + if(abs(c).lt.FPMIN) c = FPMIN + d = 1./d + del=d*c + h = h*del + if(abs(del-1.).lt.EPS) exit + enddo + + gammacf = exp(-x+a*log(x)-gln)*h + return + end subroutine highgcontfrac + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + !.. Used by aggregation +SUBROUTINE AVINT(X,Y,N,XLO,XUP,ANS) + DOUBLE PRECISION :: R3,RP5,SUM,SYL,SYL2,SYL3,SYU,SYU2,SYU3,X1,X2,X3 & + ,X12,X13,X23,TERM1,TERM2,TERM3,A,B,C,CA,CB,CC + REAL :: XLO,XUP,ANS,FL,FR,SLOPE + INTEGER :: N, I, INLFT,INRT,ISTART,ISTOP + REAL, DIMENSION(N) :: X,Y + + ANS =0.0 + IF (XLO-XUP) 3,100,200 +3 IF (N.LT.2) GO TO 215 + DO 5 I=2,N + IF (X(I).LE.X(I-1)) GO TO 210 + IF (X(I).GT.XUP) GO TO 6 +5 CONTINUE +6 CONTINUE + IF (N.GE.3) GO TO 9 + !.. special n=2 case + SLOPE = (Y(2)-Y(1))/(X(2)-X(1)) + FL = Y(1) + SLOPE*(XLO-X(1)) + FR = Y(2) + SLOPE*(XUP-X(2)) + ANS = 0.5*(FL+FR)*(XUP-XLO) + RETURN +9 CONTINUE + IF (X(N-2).LT.XLO) GO TO 205 + IF (X(3).GT.XUP) GO TO 205 + I = 1 +10 IF (X(I).GE.XLO) GO TO 15 + I = I+1 + GO TO 10 +15 INLFT = I + I = N +20 IF (X(I).LE.XUP) GO TO 25 + I = I-1 + GO TO 20 +25 INRT = I + IF ((INRT-INLFT).LT.2) GO TO 205 + ISTART = INLFT + IF (INLFT.EQ.1) ISTART = 2 + ISTOP = INRT + IF (INRT.EQ.N) ISTOP = N-1 + + R3 = 3.0D0 + RP5= 0.5D0 + SUM = 0.0 + SYL = XLO + SYL2= SYL*SYL + SYL3= SYL2*SYL + + DO 50 I=ISTART,ISTOP + X1 = X(I-1) + X2 = X(I) + X3 = X(I+1) + X12 = X1-X2 + X13 = X1-X3 + X23 = X2-X3 + TERM1 = DBLE(Y(I-1))/(X12*X13) + TERM2 =-DBLE(Y(I)) /(X12*X23) + TERM3 = DBLE(Y(I+1))/(X13*X23) + A = TERM1+TERM2+TERM3 + B = -(X2+X3)*TERM1 - (X1+X3)*TERM2 - (X1+X2)*TERM3 + C = X2*X3*TERM1 + X1*X3*TERM2 + X1*X2*TERM3 + IF (I-ISTART) 30,30,35 +30 CA = A + CB = B + CC = C + GO TO 40 +35 CA = 0.5*(A+CA) + CB = 0.5*(B+CB) + CC = 0.5*(C+CC) +40 SYU = X2 + SYU2= SYU*SYU + SYU3= SYU2*SYU + SUM = SUM + CA*(SYU3-SYL3)/R3 + CB*RP5*(SYU2-SYL2) + CC*(SYU-SYL) + CA = A + CB = B + CC = C + SYL = SYU + SYL2= SYU2 + SYL3= SYU3 +50 CONTINUE + SYU = XUP + ANS = SUM + CA*(SYU**3-SYL3)/R3 + CB*RP5*(SYU**2-SYL2) & + + CC*(SYU-SYL) +100 RETURN +200 PRINT*, 'Upper limit of integration not greater than lower limit.' + STOP 'AVINT2' +205 PRINT*, 'Less than 3 function values between integration limits.' + STOP 'AVINT3' +210 PRINT*, 'Abscissas not strictly increasing.' + STOP 'AVINT4' +215 PRINT*, 'Less than 2 function values were supplied.' + STOP 'AVINT5' + END SUBROUTINE + + !--------------------------------------------------------------------------------------------------------------! + !--------------------------------------------------------------------------------------------------------------! + +end module module_mp_jensen_ishmael + + !.. Full stop + diff --git a/phys/module_mp_lin.F b/phys/module_mp_lin.F index f38c5ad259..f091446233 100644 --- a/phys/module_mp_lin.F +++ b/phys/module_mp_lin.F @@ -4,8 +4,6 @@ MODULE module_mp_lin USE module_wrf_error - USE module_utility, ONLY: WRFU_Clock, WRFU_Alarm - USE module_domain, ONLY : HISTORY_ALARM, Is_alarm_tstep USE module_mp_radar ! REAL , PARAMETER, PRIVATE :: RH = 1.0 diff --git a/phys/module_mp_morr_two_moment.F b/phys/module_mp_morr_two_moment.F index 76988beda2..0c1b077557 100644 --- a/phys/module_mp_morr_two_moment.F +++ b/phys/module_mp_morr_two_moment.F @@ -84,8 +84,6 @@ MODULE MODULE_MP_MORR_TWO_MOMENT USE module_wrf_error - USE module_utility, ONLY: WRFU_Clock, WRFU_Alarm ! GT - USE module_domain, ONLY : HISTORY_ALARM, Is_alarm_tstep ! GT USE module_mp_radar ! USE WRF PHYSICS CONSTANTS diff --git a/phys/module_mp_morr_two_moment_aero.F b/phys/module_mp_morr_two_moment_aero.F index 5a07c30135..0a27d2e2d8 100644 --- a/phys/module_mp_morr_two_moment_aero.F +++ b/phys/module_mp_morr_two_moment_aero.F @@ -109,8 +109,6 @@ MODULE MODULE_MP_MORR_TWO_MOMENT_AERO USE module_wrf_error - USE module_utility, ONLY: WRFU_Clock, WRFU_Alarm ! GT - USE module_domain, ONLY : HISTORY_ALARM, Is_alarm_tstep ! GT USE module_mp_radar ! USE WRF PHYSICS CONSTANTS diff --git a/phys/module_mp_p3.F b/phys/module_mp_p3.F index 342ef9e73a..806c11a0f5 100644 --- a/phys/module_mp_p3.F +++ b/phys/module_mp_p3.F @@ -22,97 +22,133 @@ ! Jason Milbrandt (jason.milbrandt@canada.ca) ! !__________________________________________________________________________________________! ! ! -! Version: 2.8.2.4 ! -! Last updated: 2018-02-06 ! +! Version: 3.1.11 ! +! Last updated: 2019-03-07 ! !__________________________________________________________________________________________! MODULE MODULE_MP_P3 implicit none - public :: mp_p3_wrapper_wrf,mp_p3_wrapper_wrf_2cat,mp_p3_wrapper_gem,p3_main,polysvp1 + private + public :: mp_p3_wrapper_wrf,mp_p3_wrapper_wrf_2cat,mp_p3_wrapper_gem,p3_main,polysvp1,p3_init - private :: gamma,derf,find_lookupTable_indices_1a,find_lookupTable_indices_1b, & - find_lookupTable_indices_2,find_lookupTable_indices_3,get_cloud_dsd2, & - get_rain_dsd2,calc_bulkRhoRime,impose_max_total_Ni,check_values,qv_sat + integer, parameter :: STATUS_ERROR = -1 + integer, parameter :: STATUS_OK = 0 + integer, save :: global_status = STATUS_OK ! ice microphysics lookup table array dimensions - integer, private, parameter :: isize = 50 - integer, private, parameter :: iisize = 25 - integer, private, parameter :: zsize = 20 ! size of mom6 array in lookup_table (for future 3-moment) - integer, private, parameter :: densize = 5 - integer, private, parameter :: rimsize = 4 - integer, private, parameter :: rcollsize = 30 - integer, private, parameter :: tabsize = 12 ! number of quantities used from lookup table - integer, private, parameter :: colltabsize = 2 ! number of ice-rain collection quantities used from lookup table - integer, private, parameter :: collitabsize = 2 ! number of ice-ice collection quantities used from lookup table + integer, parameter :: isize = 50 + integer, parameter :: iisize = 25 + integer, parameter :: zsize = 20 ! size of mom6 array in lookup_table (for future 3-moment) + integer, parameter :: densize = 5 + integer, parameter :: rimsize = 4 + integer, parameter :: rcollsize = 30 + integer, parameter :: tabsize = 12 ! number of quantities used from lookup table + integer, parameter :: colltabsize = 2 ! number of ice-rain collection quantities used from lookup table + integer, parameter :: collitabsize = 2 ! number of ice-ice collection quantities used from lookup table - real, private, parameter :: real_rcollsize = real(rcollsize) + real, parameter :: real_rcollsize = real(rcollsize) - real, private, dimension(densize,rimsize,isize,tabsize) :: itab !ice lookup table values + real, dimension(densize,rimsize,isize,tabsize) :: itab !ice lookup table values !ice lookup table values for ice-rain collision/collection - double precision, private, dimension(densize,rimsize,isize,rcollsize,colltabsize) :: itabcoll + double precision, dimension(densize,rimsize,isize,rcollsize,colltabsize) :: itabcoll ! separated into itabcolli1 and itabcolli2, due to max of 7 dimensional arrays on some FORTRAN compilers - double precision, private, dimension(iisize,rimsize,densize,iisize,rimsize,densize) :: itabcolli1 - double precision, private, dimension(iisize,rimsize,densize,iisize,rimsize,densize) :: itabcolli2 + double precision, dimension(iisize,rimsize,densize,iisize,rimsize,densize) :: itabcolli1 + double precision, dimension(iisize,rimsize,densize,iisize,rimsize,densize) :: itabcolli2 ! integer switch for warm rain autoconversion/accretion schemes - integer, private :: iparam + integer :: iparam + +! number of diagnostic ice-phase hydrometeor types + integer, public, parameter :: n_qiType = 6 ! droplet spectral shape parameter for mass spectra, used for Seifert and Beheng (2001) ! warm rain autoconversion/accretion option only (iparam = 1) - real, private, dimension(16) :: dnu + real, dimension(16) :: dnu ! lookup table values for rain shape parameter mu_r - real, private, dimension(150) :: mu_r_table + real, dimension(150) :: mu_r_table ! lookup table values for rain number- and mass-weighted fallspeeds and ventilation parameters - real, private, dimension(300,10) :: vn_table,vm_table,revap_table + real, dimension(300,10) :: vn_table,vm_table,revap_table ! physical and mathematical constants - real, private :: rhosur,rhosui,ar,br,f1r,f2r,ecr,rhow,kr,kc,bimm,aimm,rin,mi0,nccnst, & + real :: rhosur,rhosui,ar,br,f1r,f2r,ecr,rhow,kr,kc,bimm,aimm,rin,mi0,nccnst, & eci,eri,bcn,cpw,e0,cons1,cons2,cons3,cons4,cons5,cons6,cons7, & inv_rhow,qsmall,nsmall,bsmall,zsmall,cp,g,rd,rv,ep_2,inv_cp,mw,osm, & vi,epsm,rhoa,map,ma,rr,bact,inv_rm1,inv_rm2,sig1,nanew1,f11,f21,sig2, & nanew2,f12,f22,pi,thrd,sxth,piov3,piov6,diff_nucthrs,rho_rimeMin, & - rho_rimeMax,inv_rho_rimeMax,max_total_Ni,dbrk,nmltratio,clbfact_sub, & - clbfact_dep + rho_rimeMax,inv_rho_rimeMax,max_total_Ni,dbrk,nmltratio,minVIS,maxVIS,& + mu_r_constant contains !==================================================================================================! - SUBROUTINE p3_init(lookup_file_dir,nCat) + subroutine p3_init(lookup_file_dir,nCat,model,stat,abort_on_err) !------------------------------------------------------------------------------------------! ! This subroutine initializes all physical constants and parameters needed by the P3 ! ! scheme, including reading in two lookup table files and creating a third. ! ! 'P3_INIT' be called at the first model time step, prior to first call to 'P3_MAIN'. ! !------------------------------------------------------------------------------------------! +#ifdef ECCCGEM + use iso_c_binding +#endif - implicit none + implicit none ! Passed arguments: - character*(*), intent(in) :: lookup_file_dir !directory of the lookup tables - integer, intent(in) :: nCat !number of free ice categories - - character(len=16), parameter :: version_p3 = '2.8.2' !version number of P3 package - character(len=1024) :: version_header_table1 !version number from header, table 1 - character(len=1024) :: version_header_table2 !version number from header, table 2 - character(len=1024) :: lookup_file_1 !lookup table, main - character(len=1024) :: lookup_file_2 !lookup table for ice-ice interactions + character*(*), intent(in) :: lookup_file_dir !directory of the lookup tables + integer, intent(in) :: nCat !number of free ice categories + integer, intent(out) :: stat !return status of subprogram + logical, intent(in) :: abort_on_err !abort when an error is encountered [.false.] + character(len=*), intent(in) :: model !driving model + +! Local variables and parameters: + logical, save :: is_init = .false. + character(len=16), parameter :: version_p3 = '3.1.11'!version number of P3 + character(len=16), parameter :: version_intended_table_1 = '4.1' !lookupTable_1 version intended for this P3 version + character(len=16), parameter :: version_intended_table_2 = '4.1' !lookupTable_2 version intended for this P3 version + character(len=1024) :: version_header_table_1 !version number read from header, table 1 + character(len=1024) :: version_header_table_2 !version number read from header, table 2 + character(len=1024) :: lookup_file_1 !lookup table, main + character(len=1024) :: lookup_file_2 !lookup table for ice-ice interactions character(len=1024) :: dumstr - integer :: i,j,k,ii,jj,kk,jjj,jjj2,jjjj,jjjj2 + integer :: i,j,k,ii,jj,kk,jjj,jjj2,jjjj,jjjj2,end_status,procnum,istat real :: lamr,mu_r,lamold,dum,initlamr,dm,dum1,dum2,dum3,dum4,dum5, & dum6,dd,amg,vt,dia,vn,vm + logical :: err_abort + +#ifdef ECCCGEM + include "rpn_comm.inc" +#endif !------------------------------------------------------------------------------------------! - lookup_file_1 = trim(lookup_file_dir)//'/'//'p3_lookup_table_1.dat-v'//trim(version_p3) - lookup_file_2 = trim(lookup_file_dir)//'/'//'p3_lookup_table_2.dat-v'//trim(version_p3) + lookup_file_1 = trim(lookup_file_dir)//'/'//'p3_lookup_table_1.dat-v'//trim(version_intended_table_1) + lookup_file_2 = trim(lookup_file_dir)//'/'//'p3_lookup_table_2.dat-v'//trim(version_intended_table_2) - !------------------------------------------------------------------------------------------! +!-- override for local path/filenames: +!lookup_file_1 = '/data/ords/armn/armngr8/storage_model/p3_lookup_tables/p3_lookup_table_1.dat-v'//trim(version_intended_table_1) +!lookup_file_2 = '/data/ords/armn/armngr8/storage_model/p3_lookup_tables/p3_lookup_table_2.dat-v'//trim(version_intended_table_2) +!lookup_file_1 = '/fs/site1/dev/eccc/mrd/rpnatm/jam003/storage_model/p3_lookup_tables/p3_lookup_table_1.dat-v'//trim(version_intended_table_1) +!lookup_file_2 = '/fs/site1/dev/eccc/mrd/rpnatm/jam003/storage_model/p3_lookup_tables/p3_lookup_table_2.dat-v'//trim(version_intended_table_2) +!== + +!------------------------------------------------------------------------------------------! + + end_status = STATUS_ERROR + err_abort = .false. +! if (present(abort_on_err)) err_abort = abort_on_err + err_abort = abort_on_err + if (is_init) then +! if (present(stat)) stat = STATUS_OK + stat = STATUS_OK + return + endif ! mathematical/optimization constants pi = 3.14159265 @@ -122,7 +158,7 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) piov6 = pi*sxth ! maximum total ice concentration (sum of all categories) - max_total_Ni = 500.e+3 !(m) + max_total_Ni = 2000.e+3 !(m) ! switch for warm-rain parameterization ! = 1 Seifert and Beheng 2001 @@ -151,9 +187,10 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) f1r = 0.78 f2r = 0.32 ecr = 1. - rhow = 997. + rhow = 1000. cpw = 4218. - inv_rhow = 1.e-3 !inverse of (max.) density of liquid water + inv_rhow = 1./rhow !inverse of (max.) density of liquid water + mu_r_constant = 0. !fixed shape parameter for mu_r ! limits for rime density [kg m-3] rho_rimeMin = 50. @@ -182,7 +219,7 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) ! mean size for soft lambda_r limiter [microns] dbrk = 600.e-6 ! ratio of rain number produced to ice number loss from melting - nmltratio = 0.2 + nmltratio = 0.5 ! saturation pressure at T = 0 C e0 = polysvp1(273.15,0) @@ -214,8 +251,6 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) f11 = 0.5*exp(2.5*(log(sig1))**2) f21 = 1. + 0.25*log(sig1) -! note: currently only set for a single mode, droplet activation code needs to -! be modified to include the second mode ! mode 2 inv_rm2 = 7.6923076e+5 ! inverse aerosol mean size (m-1) sig2 = 2.5 ! aerosol standard deviation @@ -223,6 +258,9 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) f12 = 0.5*exp(2.5*(log(sig2))**2) f22 = 1. + 0.25*log(sig2) + minVIS = 1. ! minimum visibility (m) + maxVIS = 99.e+3 ! maximum visibility (m) + ! parameters for droplet mass spectral shape, used by Seifert and Beheng (2001) ! warm rain scheme only (iparam = 1) dnu(1) = 0. @@ -242,35 +280,49 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) dnu(15) = 0.966 dnu(16) = 0.966 -! calibration factors for ice deposition and sublimation -! These are adjustable ad hoc factors used to increase or decrease deposition and/or -! sublimation rates. The representation of the ice capacitances are highly simplified -! and the appropriate values in the diffusional growth equation are uncertain. - clbfact_dep = 1. - clbfact_sub = 1. - !------------------------------------------------------------------------------------------! ! read in ice microphysics table + procnum = 0 +#ifdef ECCCGEM + call rpn_comm_rank(RPN_COMM_GRID,procnum,istat) + itab = 0. + itabcoll = 0.D0 + itabcolli1 = 0.D0 + itabcolli2 = 0.D0 +#endif + + IF_PROC0: if (procnum == 0) then + print* print*, ' P3 microphysics: v',version_p3 - print*, ' P3_INIT (reading/creating look-up tables) ...' + print*, ' P3_INIT (reading/creating look-up tables [v',trim(version_intended_table_1), & + ', v',trim(version_intended_table_2),']) ...' - open(unit=10,file=lookup_file_1, status='old') + open(unit=10, file=lookup_file_1, status='old', action='read') !-- check that table version is correct: - read(10,*) dumstr,version_header_table1 - if (trim(version_p3) /= version_header_table1(1:5)) then + ! note: to override and use a different lookup table, simply comment out + ! the 'return' below, and the 'stop' if using WRF + read(10,*) dumstr,version_header_table_1 + if (trim(version_intended_table_1) /= trim(version_header_table_1)) then print* - print*, '*** WARNING in P3_INIT ***' - print*, ' P3 package version: ',trim(version_p3) - print*, ' Lookup table 1 version: ',trim(version_header_table1) - print*, '******************************' + print*, '*********** WARNING in P3_INIT *************' + print*, ' Loading lookupTable_1: v',trim(version_header_table_1) + print*, ' P3 v',trim(version_p3),' is intended to use lookupTable_1: v', & + trim(version_intended_table_1) +! print*, ' -- ABORTING -- ' + print*, '************************************************' print* - !stop + global_status = STATUS_ERROR + if (trim(model) == 'WRF') then + print*,'Stopping in P3 init' + stop + endif endif - read(10,*) + IF_OK: if (global_status /= STATUS_ERROR) then + read(10,*) do jj = 1,densize do ii = 1,rimsize @@ -281,42 +333,74 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) itab(jj,ii,i,9),itab(jj,ii,i,10),itab(jj,ii,i,11), & itab(jj,ii,i,12) enddo -! read in table for ice-rain collection + !read in table for ice-rain collection do i = 1,isize do j = 1,rcollsize read(10,*) dum,dum,dum,dum,dum,itabcoll(jj,ii,i,j,1), & itabcoll(jj,ii,i,j,2),dum - itabcoll(jj,ii,i,j,1) = dlog10(itabcoll(jj,ii,i,j,1)) - itabcoll(jj,ii,i,j,2) = dlog10(itabcoll(jj,ii,i,j,2)) + itabcoll(jj,ii,i,j,1) = dlog10(max(itabcoll(jj,ii,i,j,1),1.d-90)) + itabcoll(jj,ii,i,j,2) = dlog10(max(itabcoll(jj,ii,i,j,2),1.d-90)) enddo enddo enddo enddo + endif IF_OK -! hm add fix to prevent end-of-file error in nested runs, 3/28/14 close(10) + endif IF_PROC0 + +#ifdef ECCCGEM + call rpn_comm_bcast(global_status,1,RPN_COMM_INTEGER,0,RPN_COMM_GRID,istat) +#endif + + if (global_status == STATUS_ERROR) then + if (err_abort) then + print*,'Stopping in P3 init' + call flush(6) + stop + endif + return + endif + +#ifdef ECCCGEM + call rpn_comm_bcast(itab,size(itab),RPN_COMM_REAL,0,RPN_COMM_GRID,istat) + call rpn_comm_bcast(itabcoll,size(itabcoll),RPN_COMM_DOUBLE_PRECISION,0,RPN_COMM_GRID,istat) +#endif + ! read in ice-ice collision lookup table !------------------------------------------------------------------------------------------! ! *** used for multicategory only *** - if (nCat>1) then + IF_NCAT: if (nCat>1) then + + IF_PROC0B: if (procnum == 0) then open(unit=10,file=lookup_file_2,status='old') - !-- check that table version is correct: - read(10,*) dumstr,version_header_table2 - if (trim(version_p3) /= version_header_table2(1:5)) then + !--check that table version is correct: + ! note: to override and use a different lookup table, simply comment out + ! the 'return' below, and 'stop' if using WRF + + read(10,*) dumstr,version_header_table_2 + if (trim(version_intended_table_2) /= trim(version_header_table_2)) then print* - print*, '*** WARNING in P3_INIT ***' - print*, ' P3 package version: ',trim(version_p3) - print*, ' Lookup table 2 version: ',trim(version_header_table2) - print*, '******************************' + print*, '*********** WARNING in P3_INIT *************' + print*, ' Loading lookupTable_2 version: ',trim(version_header_table_2) + print*, ' P3 v',trim(version_p3),' is intended to use lookupTable_2: v', & + trim(version_intended_table_2) +! print*, ' -- ABORTING -- ' + print*, '************************************************' print* - !stop + global_status = STATUS_ERROR + if (trim(model) == 'WRF') then + print*,'Stopping in P3 init' + stop + endif endif + IF_OKB: if (global_status /= STATUS_ERROR) then read(10,*) do i = 1,iisize @@ -325,8 +409,8 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) do ii = 1,iisize do jjj2 = 1,rimsize do jjjj2 = 1,densize - read(10,*) dum,dum,dum,dum,dum,dum,dum, & - itabcolli1(i,jjj,jjjj,ii,jjj2,jjjj2), & + read(10,*) dum,dum,dum,dum,dum,dum,dum, & + itabcolli1(i,jjj,jjjj,ii,jjj2,jjjj2), & itabcolli2(i,jjj,jjjj,ii,jjj2,jjjj2) enddo enddo @@ -334,15 +418,36 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) enddo enddo enddo + endif IF_OKB close(unit=10) - else ! for single cat + endif IF_PROC0B + +#ifdef ECCCGEM + call rpn_comm_bcast(global_status,1,RPN_COMM_INTEGER,0,RPN_COMM_GRID,istat) +#endif + + if (global_status == STATUS_ERROR) then + if (err_abort) then + print*,'Stopping in P3 init' + call flush(6) + stop + endif + return + endif + +#ifdef ECCCGEM + call rpn_comm_bcast(itabcolli1,size(itabcolli1),RPN_COMM_DOUBLE_PRECISION,0,RPN_COMM_GRID,istat) + call rpn_comm_bcast(itabcolli2,size(itabcolli2),RPN_COMM_DOUBLE_PRECISION,0,RPN_COMM_GRID,istat) +#endif + + else ! IF_NCAT for single cat itabcolli1 = 0. itabcolli2 = 0. - endif + endif IF_NCAT !------------------------------------------------------------------------------------------! @@ -354,37 +459,38 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) !print*, ' Generating rain lookup-table ...' do i = 1,150 ! loop over lookup table values - initlamr = 1./((real(i)*2.)*1.e-6 + 250.e-6) - -! iterate to get mu_r -! mu_r-lambda relationship is from Cao et al. (2008), eq. (7) - -! start with first guess, mu_r = 0 - - mu_r = 0. - - do ii=1,50 - lamr = initlamr*((mu_r+3.)*(mu_r+2.)*(mu_r+1.)/6.)**thrd - -! new estimate for mu_r based on lambda -! set max lambda in formula for mu_r to 20 mm-1, so Cao et al. -! formula is not extrapolated beyond Cao et al. data range - dum = min(20.,lamr*1.e-3) - mu_r = max(0.,-0.0201*dum**2+0.902*dum-1.718) - -! if lambda is converged within 0.1%, then exit loop - if (ii.ge.2) then - if (abs((lamold-lamr)/lamr).lt.0.001) goto 111 - end if - - lamold = lamr - - enddo - -111 continue +! ! ! initlamr = 1./((real(i)*2.)*1.e-6 + 250.e-6) +! ! ! +! ! ! ! iterate to get mu_r +! ! ! ! mu_r-lambda relationship is from Cao et al. (2008), eq. (7) +! ! ! +! ! ! ! start with first guess, mu_r = 0 +! ! ! +! ! ! mu_r = 0. +! ! ! +! ! ! do ii=1,50 +! ! ! lamr = initlamr*((mu_r+3.)*(mu_r+2.)*(mu_r+1.)/6.)**thrd +! ! ! +! ! ! ! new estimate for mu_r based on lambda +! ! ! ! set max lambda in formula for mu_r to 20 mm-1, so Cao et al. +! ! ! ! formula is not extrapolated beyond Cao et al. data range +! ! ! dum = min(20.,lamr*1.e-3) +! ! ! mu_r = max(0.,-0.0201*dum**2+0.902*dum-1.718) +! ! ! +! ! ! ! if lambda is converged within 0.1%, then exit loop +! ! ! if (ii.ge.2) then +! ! ! if (abs((lamold-lamr)/lamr).lt.0.001) goto 111 +! ! ! end if +! ! ! +! ! ! lamold = lamr +! ! ! +! ! ! enddo +! ! ! +! ! ! 111 continue ! assign lookup table values - mu_r_table(i) = mu_r +! ! ! mu_r_table(i) = mu_r + mu_r_table(i) = mu_r_constant enddo @@ -396,7 +502,8 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) mu_r_loop: do ii = 1,10 !** change 10 to 9, since range of mu_r is 0-8 CONFIRM !mu_r_loop: do ii = 1,9 !** change 10 to 9, since range of mu_r is 0-8 - mu_r = real(ii-1) ! values of mu +! ! ! mu_r = real(ii-1) ! values of mu + mu_r = mu_r_constant ! loop over number-weighted mean size meansize_loop: do jj = 1,300 @@ -460,10 +567,18 @@ SUBROUTINE p3_init(lookup_file_dir,nCat) !....................................................................... - print*, ' P3_INIT DONE.' - print* + if (procnum == 0) then + print*, ' P3_INIT DONE.' + print* + endif + + end_status = STATUS_OK +! if (present(stat)) stat = end_status + stat = end_status + is_init = .true. -END SUBROUTINE P3_INIT + return +END subroutine p3_init !==================================================================================================! @@ -517,7 +632,7 @@ SUBROUTINE mp_p3_wrapper_wrf(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, ! rainnc --> accumulated surface precip (mm) ! rainncv --> one time step accumulated surface precip (mm) - ! sr --> ice to liquid surface precip ratio + ! sr --> ice to total surface precip ratio ! snownc --> accumulated surface ice precip (mm) ! snowncv --> one time step accumulated surface ice precip (mm) ! ids...kte --> integer domain/tile bounds @@ -563,10 +678,23 @@ SUBROUTINE mp_p3_wrapper_wrf(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, real, dimension(ims:ime, kms:kme, n_diag_3d) :: diag_3d real, dimension(ims:ime, n_diag_2d) :: diag_2d logical :: log_predictNc + logical, parameter :: debug_on = .false. !switch for internal debug checking logical, parameter :: typeDiags_ON = .false. + real, parameter :: clbfact_dep = 1.0 !calibration factor for deposition + real, parameter :: clbfact_sub = 1.0 !calibration factor for sublimation + +! variables for cloud fraction (currently not used with WRF) + logical :: scpf_on ! switch for activation of SCPF scheme + real :: scpf_pfrac ! precipitation fraction factor (SCPF) + real :: scpf_resfact ! model resolution factor (SCPF) + real, dimension(ims:ime, kms:kme) :: cldfrac ! cloud fraction computed by SCPF !------------------------------------------------------------------------------------------! + scpf_on=.false. ! cloud fraction version not used with WRF + scpf_pfrac=0. ! dummy variable (not used), set to 0 + scpf_resfact=0. ! dummy variable (not used), set to 0 + log_predictNc=.false. if (present(nc_3d)) log_predictNc = .true. @@ -582,28 +710,29 @@ SUBROUTINE mp_p3_wrapper_wrf(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, ! note: code for prediction of ssat not currently avaiable, set 2D array to 0 ssat=0. - call P3_MAIN(qc_3d(its:ite,kts:kte,j),nc(its:ite,kts:kte), & - qr_3d(its:ite,kts:kte,j),qnr_3d(its:ite,kts:kte,j), & - th_old_3d(its:ite,kts:kte,j),th_3d(its:ite,kts:kte,j),qv_old_3d(its:ite,kts:kte,j), & - qv_3d(its:ite,kts:kte,j),dt,qi1_3d(its:ite,kts:kte,j), & - qir1_3d(its:ite,kts:kte,j),qni1_3d(its:ite,kts:kte,j), & - qib1_3d(its:ite,kts:kte,j),ssat(its:ite,kts:kte), & - W(its:ite,kts:kte,j),P(its:ite,kts:kte,j), & - DZ(its:ite,kts:kte,j),itimestep,pcprt_liq,pcprt_sol,its,ite,kts,kte,n_iceCat, & - diag_zdbz_3d(its:ite,kts:kte,j),diag_effc_3d(its:ite,kts:kte,j), & - diag_effi_3d(its:ite,kts:kte,j),diag_vmi_3d(its:ite,kts:kte,j), & - diag_di_3d(its:ite,kts:kte,j),diag_rhopo_3d(its:ite,kts:kte,j), & - n_diag_2d,diag_2d(its:ite,1:n_diag_2d), & - n_diag_3d,diag_3d(its:ite,kts:kte,1:n_diag_3d), & - log_predictNc,typeDiags_ON,trim(model)) + call P3_MAIN(qc_3d(its:ite,kts:kte,j),nc(its:ite,kts:kte), & + qr_3d(its:ite,kts:kte,j),qnr_3d(its:ite,kts:kte,j), & + th_old_3d(its:ite,kts:kte,j),th_3d(its:ite,kts:kte,j),qv_old_3d(its:ite,kts:kte,j), & + qv_3d(its:ite,kts:kte,j),dt,qi1_3d(its:ite,kts:kte,j), & + qir1_3d(its:ite,kts:kte,j),qni1_3d(its:ite,kts:kte,j), & + qib1_3d(its:ite,kts:kte,j),ssat(its:ite,kts:kte), & + W(its:ite,kts:kte,j),P(its:ite,kts:kte,j), & + DZ(its:ite,kts:kte,j),itimestep,pcprt_liq,pcprt_sol,its,ite,kts,kte,n_iceCat, & + diag_zdbz_3d(its:ite,kts:kte,j),diag_effc_3d(its:ite,kts:kte,j), & + diag_effi_3d(its:ite,kts:kte,j),diag_vmi_3d(its:ite,kts:kte,j), & + diag_di_3d(its:ite,kts:kte,j),diag_rhopo_3d(its:ite,kts:kte,j), & + n_diag_2d,diag_2d(its:ite,1:n_diag_2d), & + n_diag_3d,diag_3d(its:ite,kts:kte,1:n_diag_3d), & + log_predictNc,typeDiags_ON,trim(model),clbfact_dep,clbfact_sub,debug_on, & + scpf_on,scpf_pfrac,scpf_resfact,cldfrac) !surface precipitation output: dum1 = 1000.*dt - RAINNC(its:ite,j) = RAINNC(its:ite,j) + pcprt_liq(:)*dum1 ! conversion from m/s to mm/time step - RAINNCV(its:ite,j) = pcprt_liq(:)*dum1 ! conversion from m/s to mm/time step - SNOWNC(its:ite,j) = SNOWNC(its:ite,j) + pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step - SNOWNCV(its:ite,j) = pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step - SR(its:ite,j) = pcprt_sol(:)/(pcprt_liq(:)+1.E-12) ! solid-to-liquid ratio + RAINNC(its:ite,j) = RAINNC(its:ite,j) + (pcprt_liq(:) + pcprt_sol(:))*dum1 ! conversion from m/s to mm/time step + RAINNCV(its:ite,j) = (pcprt_liq(:) + pcprt_sol(:))*dum1 ! conversion from m/s to mm/time step + SNOWNC(its:ite,j) = SNOWNC(its:ite,j) + pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step + SNOWNCV(its:ite,j) = pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step + SR(its:ite,j) = pcprt_sol(:)/(pcprt_liq(:)+pcprt_sol(:)+1.E-12) ! solid-to-total ratio !convert nc array from 2D to 3D if Nc is predicted if (log_predictNc) then @@ -616,6 +745,11 @@ SUBROUTINE mp_p3_wrapper_wrf(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, enddo ! j loop + if (global_status /= STATUS_OK) then + print*,'Stopping in P3, problem in P3 main' + stop + endif + END SUBROUTINE mp_p3_wrapper_wrf !------------------------------------------------------------------------------------------! @@ -671,7 +805,7 @@ SUBROUTINE mp_p3_wrapper_wrf_2cat(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, ! rainnc --> accumulated surface precip (mm) ! rainncv --> one time step accumulated surface precip (mm) - ! sr --> ice to liquid surface precip ratio + ! sr --> ice to total surface precip ratio ! snownc --> accumulated surface ice precip (mm) ! snowncv --> one time step accumulated surface ice precip (mm) ! ids...kte --> integer domain/tile bounds @@ -728,9 +862,22 @@ SUBROUTINE mp_p3_wrapper_wrf_2cat(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, real, dimension(ims:ime, n_diag_2d) :: diag_2d logical :: log_predictNc logical, parameter :: typeDiags_ON = .false. + logical, parameter :: debug_on = .false. !switch for internal debug checking + real, parameter :: clbfact_dep = 1.0 !calibration factor for deposition + real, parameter :: clbfact_sub = 1.0 !calibration factor for sublimation + +! variables for cloud fraction (currently not used with WRF) + logical :: scpf_on ! switch for activation of SCPF scheme + real :: scpf_pfrac ! precipitation fraction factor (SCPF) + real :: scpf_resfact ! model resolution factor (SCPF) + real, dimension(ims:ime, kms:kme) :: cldfrac ! cloud fraction computed by SCPF !------------------------------------------------------------------------------------------! + scpf_on=.false. ! cloud fraction version not used with WRF + scpf_pfrac=0. ! dummy variable (not used), set to 0 + scpf_resfact=0. ! dummy variable (not used), set to 0 + log_predictNc=.false. if (present(nc_3d)) log_predictNc = .true. @@ -757,28 +904,29 @@ SUBROUTINE mp_p3_wrapper_wrf_2cat(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, nitot(:,:,2) = qni2_3d(:,:,j) birim(:,:,2) = qib2_3d(:,:,j) - call P3_MAIN(qc_3d(its:ite,kts:kte,j),nc(its:ite,kts:kte), & - qr_3d(its:ite,kts:kte,j),qnr_3d(its:ite,kts:kte,j), & - th_old_3d(its:ite,kts:kte,j),th_3d(its:ite,kts:kte,j),qv_old_3d(its:ite,kts:kte,j), & - qv_3d(its:ite,kts:kte,j),dt,qitot(its:ite,kts:kte,1:n_iceCat), & - qirim(its:ite,kts:kte,1:n_iceCat),nitot(its:ite,kts:kte,1:n_iceCat), & - birim(its:ite,kts:kte,1:n_iceCat),ssat(its:ite,kts:kte), & - W(its:ite,kts:kte,j),P(its:ite,kts:kte,j), & - DZ(its:ite,kts:kte,j),itimestep,pcprt_liq,pcprt_sol,its,ite,kts,kte,n_iceCat, & - diag_zdbz_3d(its:ite,kts:kte,j),diag_effc_3d(its:ite,kts:kte,j), & - diag_effi(its:ite,kts:kte,1:n_iceCat),diag_vmi(its:ite,kts:kte,1:n_iceCat), & - diag_di(its:ite,kts:kte,1:n_iceCat),diag_rhopo(its:ite,kts:kte,1:n_iceCat), & - n_diag_2d,diag_2d(its:ite,1:n_diag_2d), & - n_diag_3d,diag_3d(its:ite,kts:kte,1:n_diag_3d), & - log_predictNc,typeDiags_ON,trim(model)) + call P3_MAIN(qc_3d(its:ite,kts:kte,j),nc(its:ite,kts:kte), & + qr_3d(its:ite,kts:kte,j),qnr_3d(its:ite,kts:kte,j), & + th_old_3d(its:ite,kts:kte,j),th_3d(its:ite,kts:kte,j),qv_old_3d(its:ite,kts:kte,j), & + qv_3d(its:ite,kts:kte,j),dt,qitot(its:ite,kts:kte,1:n_iceCat), & + qirim(its:ite,kts:kte,1:n_iceCat),nitot(its:ite,kts:kte,1:n_iceCat), & + birim(its:ite,kts:kte,1:n_iceCat),ssat(its:ite,kts:kte), & + W(its:ite,kts:kte,j),P(its:ite,kts:kte,j), & + DZ(its:ite,kts:kte,j),itimestep,pcprt_liq,pcprt_sol,its,ite,kts,kte,n_iceCat, & + diag_zdbz_3d(its:ite,kts:kte,j),diag_effc_3d(its:ite,kts:kte,j), & + diag_effi(its:ite,kts:kte,1:n_iceCat),diag_vmi(its:ite,kts:kte,1:n_iceCat), & + diag_di(its:ite,kts:kte,1:n_iceCat),diag_rhopo(its:ite,kts:kte,1:n_iceCat), & + n_diag_2d,diag_2d(its:ite,1:n_diag_2d), & + n_diag_3d,diag_3d(its:ite,kts:kte,1:n_diag_3d), & + log_predictNc,typeDiags_ON,trim(model),clbfact_dep,clbfact_sub,debug_on, & + scpf_on,scpf_pfrac,scpf_resfact,cldfrac) !surface precipitation output: dum1 = 1000.*dt - RAINNC(its:ite,j) = RAINNC(its:ite,j) + pcprt_liq(:)*dum1 ! conversion from m/s to mm/time step - RAINNCV(its:ite,j) = pcprt_liq(:)*dum1 ! conversion from m/s to mm/time step - SNOWNC(its:ite,j) = SNOWNC(its:ite,j) + pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step - SNOWNCV(its:ite,j) = pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step - SR(its:ite,j) = pcprt_sol(:)/(pcprt_liq(:)+1.E-12) ! solid-to-liquid ratio + RAINNC(its:ite,j) = RAINNC(its:ite,j) + (pcprt_liq(:) + pcprt_sol(:))*dum1 ! conversion from m/s to mm/time step + RAINNCV(its:ite,j) = (pcprt_liq(:) + pcprt_sol(:))*dum1 ! conversion from m/s to mm/time step + SNOWNC(its:ite,j) = SNOWNC(its:ite,j) + pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step + SNOWNCV(its:ite,j) = pcprt_sol(:)*dum1 ! conversion from m/s to mm/time step + SR(its:ite,j) = pcprt_sol(:)/(pcprt_liq(:)+pcprt_sol(:)+1.E-12) ! solid-to-total ratio !convert nc array from 2D to 3D if Nc is predicted if (log_predictNc) then @@ -842,18 +990,27 @@ SUBROUTINE mp_p3_wrapper_wrf_2cat(th_3d,qv_3d,qc_3d,qr_3d,qnr_3d, enddo ! j loop + if (global_status /= STATUS_OK) then + print*,'Stopping in P3, problem in P3 main' + stop + endif + END SUBROUTINE mp_p3_wrapper_wrf_2cat !==================================================================================================! - SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,sigma,kount, & - trnch,ni,nk,prt_liq,prt_sol,prt_drzl,prt_rain,prt_crys,prt_snow, & - prt_grpl,prt_pell,prt_hail,prt_sndp,diag_Zet,diag_Zec,diag_effc, & - qc,nc,qr,nr,n_iceCat,n_diag_2d,diag_2d,n_diag_3d,diag_3d, & - qitot_1,qirim_1,nitot_1,birim_1,diag_effi_1, & - qitot_2,qirim_2,nitot_2,birim_2,diag_effi_2, & - qitot_3,qirim_3,nitot_3,birim_3,diag_effi_3, & - qitot_4,qirim_4,nitot_4,birim_4,diag_effi_4) + function mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,sigma,kount, & + trnch,ni,nk,prt_liq,prt_sol,prt_drzl,prt_rain,prt_crys,prt_snow, & + prt_grpl,prt_pell,prt_hail,prt_sndp,diag_Zet,diag_Zec,diag_effc, & + qc,nc,qr,nr,n_iceCat,n_diag_2d,diag_2d,n_diag_3d,diag_3d,qi_type, & + clbfact_dep,clbfact_sub,debug_on,diag_hcb,diag_hsn,diag_vis, & + diag_vis1,diag_vis2,diag_vis3,diag_slw, & + scpf_on,scpf_pfrac,scpf_resfact,cldfrac, & + qitot_1,qirim_1,nitot_1,birim_1,diag_effi_1, & + qitot_2,qirim_2,nitot_2,birim_2,diag_effi_2, & + qitot_3,qirim_3,nitot_3,birim_3,diag_effi_3, & + qitot_4,qirim_4,nitot_4,birim_4,diag_effi_4) & + result(end_status) !------------------------------------------------------------------------------------------! ! This wrapper subroutine is the main GEM interface with the P3 microphysics scheme. It ! @@ -878,6 +1035,8 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s real, intent(in) :: dt ! model time step s real, intent(in) :: dt_max ! maximum timestep for microphysics s + real, intent(in) :: clbfact_dep ! calibration factor for deposition + real, intent(in) :: clbfact_sub ! calibration factor for sublimation real, intent(inout), dimension(ni,nk) :: qc ! cloud mixing ratio, mass kg kg-1 real, intent(inout), dimension(ni,nk) :: nc ! cloud mixing ratio, number # kg-1 real, intent(inout), dimension(ni,nk) :: qr ! rain mixing ratio, mass kg kg-1 @@ -929,7 +1088,23 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s real, intent(out), dimension(ni,nk) :: diag_effc ! effective radius, cloud m real, intent(out), dimension(ni,n_diag_2d) :: diag_2d ! user-defined 2D diagnostic fields real, intent(out), dimension(ni,nk,n_diag_3d) :: diag_3d ! user-defined 3D diagnostic fields + real, intent(out), dimension(ni,nk,n_qiType ):: qi_type ! mass mixing ratio, diag ice type kg kg-1 + + real, intent(out), dimension(ni) :: diag_hcb ! height of cloud base m + real, intent(out), dimension(ni) :: diag_hsn ! height of snow level m + real, intent(out), dimension(ni,nk) :: diag_vis ! visibility (total) m + real, intent(out), dimension(ni,nk) :: diag_vis1 ! visibility through liquid fog m + real, intent(out), dimension(ni,nk) :: diag_vis2 ! visibility through rain m + real, intent(out), dimension(ni,nk) :: diag_vis3 ! visibility through snow m + real, intent(out), dimension(ni,nk) :: diag_slw ! supercooled LWC kg m-3 + + logical, intent(in) :: debug_on ! logical switch for internal debug checks + integer :: end_status + logical, intent(in) :: scpf_on ! switch for activation of SCPF scheme + real, intent(in) :: scpf_pfrac ! precipitation fraction factor (SCPF) + real, intent(in) :: scpf_resfact ! model resolution factor (SCPF) + real, intent(out), dimension(ni,nk) :: cldfrac ! cloud fraction computed by SCPF !----------------------------------------------------------------------------------------! @@ -950,6 +1125,7 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s real, dimension(ni,nk) :: DP ! difference in pressure between levels Pa real, dimension(ni,nk) :: DZ ! difference in height between levels m real, dimension(ni,nk) :: ssat ! supersaturation + real, dimension(ni,nk) :: tmparr_ik ! temporary array (for optimization) real, dimension(ni) :: prt_liq_ave,prt_sol_ave,rn1_ave,rn2_ave,sn1_ave, & ! ave pcp rates over full timestep sn2_ave,sn3_ave,pe1_ave,pe2_ave,snd_ave @@ -959,6 +1135,7 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s integer :: i,k,ktop,kbot,kdir,i_strt,k_strt integer :: i_substep,n_substep + logical :: log_tmp1,log_tmp2 logical, parameter :: log_predictNc = .true. ! temporary; to be put as GEM namelist logical, parameter :: typeDiags_ON = .true. ! switch for hydrometeor/precip type diagnostics @@ -968,6 +1145,8 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s !#include "tdpack_const.hf" !No longer used .. commented code kept in for now + end_status = STATUS_ERROR + i_strt = 1 ! beginning index of slab k_strt = 1 ! beginning index of column @@ -1028,7 +1207,6 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s endif endif - !--- substepping microphysics if (n_substep > 1) then prt_liq_ave(:) = 0. @@ -1043,32 +1221,39 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s snd_ave(:) = 0. endif + tmparr_ik = (1.e+5/pres)**0.286 !for optimization of calc of theta, temp + do i_substep = 1, n_substep !convert to potential temperature: - theta_m = temp_m*(1.e+5/pres)**0.286 - theta = temp*(1.e+5/pres)**0.286 + theta_m = temp_m*tmparr_ik + theta = temp*tmparr_ik if (n_iceCat == 1) then !optimized for nCat = 1: call p3_main(qc,nc,qr,nr,theta_m,theta,qvap_m,qvap,dt_mp,qitot_1(:,:),qirim_1(:,:), & - nitot_1(:,:),birim_1(:,:),ssat, & - ww,pres,DZ,kount,prt_liq,prt_sol,i_strt,ni,k_strt,nk,n_iceCat,diag_Zet, & - diag_effc,diag_effi_1(:,:),diag_vmi,diag_di,diag_rhoi,n_diag_2d,diag_2d, & - n_diag_3d,diag_3d,log_predictNc,typeDiags_ON,trim(model),prt_drzl, & - prt_rain,prt_crys,prt_snow,prt_grpl,prt_pell,prt_hail,prt_sndp) + nitot_1(:,:),birim_1(:,:),ssat,ww,pres,DZ,kount,prt_liq,prt_sol,i_strt,ni, & + k_strt,nk,n_iceCat,diag_Zet,diag_effc,diag_effi_1(:,:),diag_vmi,diag_di, & + diag_rhoi,n_diag_2d,diag_2d,n_diag_3d,diag_3d,log_predictNc,typeDiags_ON, & + trim(model),clbfact_dep,clbfact_sub,debug_on,scpf_on,scpf_pfrac, & + scpf_resfact,cldfrac,prt_drzl,prt_rain,prt_crys,prt_snow,prt_grpl, & + prt_pell,prt_hail,prt_sndp,qi_type,diag_vis,diag_vis1,diag_vis2,diag_vis3) else !general (nCat >= 1): call p3_main(qc,nc,qr,nr,theta_m,theta,qvap_m,qvap,dt_mp,qitot,qirim,nitot,birim, & ssat,ww,pres,DZ,kount,prt_liq,prt_sol,i_strt,ni,k_strt,nk,n_iceCat, & diag_Zet,diag_effc,diag_effi,diag_vmi,diag_di,diag_rhoi,n_diag_2d,diag_2d, & - n_diag_3d,diag_3d,log_predictNc,typeDiags_ON,trim(model),prt_drzl, & - prt_rain,prt_crys,prt_snow,prt_grpl,prt_pell,prt_hail,prt_sndp) + n_diag_3d,diag_3d,log_predictNc,typeDiags_ON,trim(model),clbfact_dep, & + clbfact_sub,debug_on,scpf_on,scpf_pfrac,scpf_resfact,cldfrac,prt_drzl, & + prt_rain,prt_crys,prt_snow,prt_grpl,prt_pell,prt_hail,prt_sndp,qi_type, & + diag_vis,diag_vis1,diag_vis2,diag_vis3) endif + if (global_status /= STATUS_OK) return !convert back to temperature: - temp = theta*(pres*1.e-5)**0.286 + !temp = theta*(pres*1.e-5)**0.286 + temp = theta/tmparr_ik if (n_substep > 1) then prt_liq_ave(:) = prt_liq_ave(:) + prt_liq(:) @@ -1137,20 +1322,248 @@ SUBROUTINE mp_p3_wrapper_gem(qvap_m,qvap,temp_m,temp,dt,dt_max,ww,psfc,gztherm,s prt_liq = prt_liq*1000. prt_sol = prt_sol*1000. - !compute composite (column-maximum) reflectivity: + !--- diagnostics: + diag_hcb(:) = -1. + diag_hsn(:) = -1. + do i = 1,ni + + !composite (column-maximum) reflectivity: diag_Zec(i) = maxval(diag_Zet(i,:)) - enddo - END SUBROUTINE mp_p3_wrapper_gem + !diagnostic heights: + log_tmp1 = .false. !cloud base height found + log_tmp2 = .false. !snow level height found + do k = nk,2,-1 + !cloud base height: + if (qc(i,k)>1.e-6 .and. .not.log_tmp1) then + diag_hcb(i) = gztherm(i,k) + log_tmp1 = .true. + endif + !snow level height: (height of lowest level with ice) [for n_iceCat=1 only] + if (qitot_1(i,k)>1.e-6 .and. .not.log_tmp2) then + diag_hsn(i) = gztherm(i,k) + log_tmp2 = .true. + endif + enddo + + !supercooled LWC: + do k = 1,nk + if (temp(i,k)<273.15) then + tmp1 = pres(i,k)/(287.15*temp(i,k)) !air density + diag_slw(i,k) = tmp1*(qc(i,k)+qr(i,k)) + else + diag_slw(i,k) = 0. + endif + enddo + + enddo !i-loop + + end_status = STATUS_OK + return + + end function mp_p3_wrapper_gem + +!==========================================================================================! + + SUBROUTINE compute_SCPF(Qcond,Qprec,Qv,Qsi,Pres,ktop,kbot,kdir,SCF,iSCF,SPF,iSPF, & + SPF_clr,Qv_cld,Qv_clr,cldFrac_on,pfrac,resfact,quick) + +!------------------------------------------------------------------------------------------! +! This subroutine computes the cloud and precipitation fractions. It also provide ! +! in-cloud/clear sky water vapor mixing ratios and the inverse of "cloud" and ! +! precipitation fractions to ease computation in s/r 'p3_main'. It is called 3 times: ! +! ! +! 1. Before microphysics source/sink terms and following updates of grid-mean fields ! +! 2. Before sedimentation ! +! 3. At the end of 'p3_main' (to provide cloud fraction to the driving model ! +! (e.g. for the radiation scheme, diagnostics, etc.) ! +! ! +! For details see: Chosson et al. (2014) [J. Atmos. Sci., 71, 2635-2653] ! +! ! +! NOTES: ! +! 'scpf_resfact' is the user-specified scaled horizontal grid spacing, which allows the ! +! RH threshold to adapt to the model resolution (i.e. to be "scale aware"). ! +! The current recommendation is: scpf_resfact = sqrt(dx/dx_ref). where dx_ref = 12 km ! +! ! +!------------------------------------------------------------------------------------------! +! Version 1: April 2016, Frederick Chosson (ECCC) ! +! This version is not "scale aware" and RHcrit is from Sundqvist RDPS ! +! but without dependency on T (RHcriterion -RHoo- cst in free atm.) ! +! This version have a very low optimisation level ! +! ! +! Version 2: November 2016, Frederick Chosson (ECCC) ! +! add minimum Cloud and Precipitation Fraction to 1% ! +! add maximum Cloud and Precipitation Fraction to 99% ! +! ! +! Version 3: June 2018, Caroline Jouan (ECCC) ! +! Tests in GEM models ! +! ! +!------------------------------------------------------------------------------------------! + + implicit none + +!----- input/ouput arguments: ----------------------------------------------------------! + real, intent(in), dimension(:) :: Qcond ! Condensates mix.ratio that goes in the "Cloudy fraction" + real, intent(in), dimension(:) :: Qprec ! Condensates mix.ratio that goes in the "Precip fraction" + real, intent(in), dimension(:) :: Qv ! Water vapor mix.ratio (grid mean) + real, intent(in), dimension(:) :: Qsi ! Saturation Water vapor mix.ratio w.r.t. ice or liq, dep. on T + real, intent(in), dimension(:) :: Pres ! pressure in Pa + real, intent(out), dimension(:) :: SCF,iSCF ! Subgrid "Cloudy" fraction (fraction where RH>100%) and inverse + real, intent(out), dimension(:) :: SPF,iSPF ! Subgrid "Precip" fraction and inverse + real, intent(out), dimension(:) :: SPF_clr ! Subgrid "Precip" fraction in clear sky (not overlap cloud) + real, intent(out), dimension(:) :: Qv_cld ! Water vapor mix.ratio in "Cloudy" fraction + real, intent(out), dimension(:) :: Qv_clr ! Water vapor mix.ratio NOT in "Cloudy" fraction + real, intent(in) :: pfrac ! precipitation fraction factor + real, intent(in) :: resfact ! model resolution factor + integer, intent(in) :: ktop,kbot ! indices of model top and bottom + integer, intent(in) :: kdir ! indice for direction from bottom to top + logical, intent(in) :: quick ! switch if you only need SCF as output, not the rest (3rd call) + logical, intent(in) :: cldFrac_on! switch if you only need SCF or set it to 1. + + +!----- local variables and parameters: --------------------------------------------------! + real, dimension(size(Qv,dim=1)) :: C ! Total cloud cover form top to level k + real, parameter :: SIG_min = 0.7 ! minimum of Sigma level below wich RHoo start to increase + real, parameter :: SIG_max = 0.9 ! maximum of Sigma level below wich RHoo stop to increase + real, parameter :: xo = 1.-1.e-6 ! a number very close but less than 1. + real :: RHoo_min ! minimum of Relative humidity criterion for dx around 12km + real :: RHoo_max ! maximum of Relative humidity criterion for dx around 12km + real :: slope ! scale factor=(RHoo_max-RHoo_min)/(SIG_min-SIG_max) + real :: RHoo ! Relative humidity criterion above which saturation appears + real :: Qtot,DELTA_Qtot ! Total "Cloudy" condensate and the half-width of its PDF + real :: D_A_cld2clr ! Area of cloudy precips. that fall in clear air below + real :: D_A_clr2cld ! Area of clear air precips that fall into cloud below + real :: D_C ! Area never concerned by precips from top to level k + real :: SPF_cld ! area of cloudy precips at level k + real :: SPF_cld_k_1 ! area of cloudy precips at level k+kdir (just above) + real :: Sigma ! Sigma level = P / Psurf with Psurf=P(:,kbot) + real :: tmp7 ! temporary SPF + integer :: i,k ! horizontal and vertical loop indices + + compute_cloud_fraction: if (cldFrac_on) then + + ! initialise constants + RHoo_min = 1.-(1.-0.85 )*resfact ! minimum of Relative humidity criterion for dx ~ 12 km by default + RHoo_max = 1.-(1.-0.975)*resfact ! maximum of Relative humidity criterion for dx ~ 12 km + slope = (RHoo_max-RHoo_min)/(SIG_min-SIG_max) !=0.625 ! scale factor=(RHoo_max-RHoo_min)/(SIG_min-SIG_max) + + ! Initiate Cloud fractions overlaps to zero + SCF(:) = 0.; iSCF(:) = 0.; D_A_cld2clr = 0. + D_A_clr2cld = 0.; C(:) = 0.; D_C = 0. + SPF_cld = 0.; SPF_clr(:) = 0.; SPF(:) = 0. + iSPF(:) = 0.; Qv_cld(:) = 0.; Qv_clr(:) = 0. + SPF_cld_k_1 = 0. + + Loop_SCPF_k: do k = ktop-kdir,kbot,-kdir + + Sigma = Pres(k)/Pres(kbot) ! Corresponding Sigma level + RHoo = RHoo_min + slope*( Sigma-SIG_min ) ! Compute critical relative humidity + RHoo = max( RHoo_min, min( RHoo_max, RHoo ) ) ! bounded + + !------------------------------------------------------------ + ! COMPUTE CLOUD FRACTION AND in-FRACTIONS WATER VAPOR CONTENT + !------------------------------------------------------------ + Qtot = Qv(k)+Qcond(k) ! Total "Cloudy" mean water mixing ratio + DELTA_Qtot = Qsi(k)*(1.-RHoo) ! half-width of Qtot subgrid PDF + SCF(k) = 0.5*(Qtot+DELTA_Qtot-QSI(k))/DELTA_Qtot ! subgrid cloud fraction + + if (SCF(k) .lt. 0.01 ) then ! minimum allowed Cloud fraction (below it's clear-sky) + SCF(k) = 0. ! inverse of Cloud cover + iSCF(k) = 0. ! inverse of Cloud cover + Qv_cld(k) = 0. ! water vapour mix. ratio in Cloudy part + Qv_clr(k) = Qv(k) ! water vapour mix. ratio in Clear sky part + elseif (SCF(k) .lt. 0.99 ) then + iSCF(k) = 1./SCF(k) ! beware: Could be big! + Qv_cld(k) = 0.5*(Qtot+DELTA_Qtot+QSI(k))-Qcond(k)*iSCF(k) + Qv_clr(k) = 0.5*(Qtot-DELTA_Qtot+QSI(k)) + else ! if SCF >= 0.99 + SCF(k) = 1. + iSCF(k) = 1. + Qv_cld(k) = Qv(k) + Qv_clr(k) = 0. + endif + + !------------------------------------------------------------ + ! COMPUTE CLOUD AND PRECIPITATION FRACTIONS OVERLAPS + !------------------------------------------------------------ + if (.not. quick) then + + ! This is the total max-random cloud-cover from top to level k + C(k) = 1.-(1.-C(k+kdir))*(1.-max(SCF(k),SCF(k+kdir)))/(1.-min(SCF(k+kdir),xo)) + ! Change in total cloud-cover: this part is never concerned by precips + D_C = C(k)-C(k+kdir) + ! Cloudy precipitation fraction at level k+kdir (level above) + SPF_cld_k_1 = SPF(k+kdir)-SPF_clr(k+kdir) + ! fraction for which cloudy precip. falls into clear air below + D_A_cld2clr = SPF_cld_k_1 - min(SCF(k)-D_C,SPF_cld_k_1) + ! fraction for which clear-sky precip. falls into cloudy air below + D_A_clr2cld = max(0., min(SPF_clr(k+kdir),SCF(k)-D_C-SCF(k+kdir)) ) + ! fraction of cloudy precips at level k + SPF_cld = SPF_cld_k_1 + D_A_clr2cld - D_A_cld2clr + if (SPF_cld .le. 0.) SPF_cld=SCF(k)*Pfrac + ! fraction of clear-sky precips at level k + SPF_clr(k) = SPF_clr(k+kdir) - D_A_clr2cld + D_A_cld2clr + ! if there is no precips set precips areas to zero + tmp7 = (SPF_clr(k)+SPF_cld) + + if (tmp7.gt.0.) then + if ((Qprec(k)/tmp7 qsmall) ) then ! avoid bad clipping + SCF(k) = max(0.01, SCF(k+kdir)) ! in case of cloudy species precipitating + iSCF(k) = 1./SCF(k) ! into unsaturated layer + Qv_cld(k) = Qv(k) + Qv_clr(k) = Qv(k) + SPF_clr(k) = max(SPF(k)-SCF(k),0.) + endif + + enddo Loop_SCPF_k + + else ! compute_cloud_fraction + + SCF = 1. + iSCF = 1. + SPF = 1. + iSPF = 1. + SPF_clr = 0. + Qv_cld = Qv + Qv_clr = 0. + + endif compute_cloud_fraction + + END SUBROUTINE compute_SCPF !==========================================================================================! - SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ssat,uzpl, & - pres,dzq,it,prt_liq,prt_sol,its,ite,kts,kte,nCat,diag_ze,diag_effc, & - diag_effi,diag_vmi,diag_di,diag_rhoi,n_diag_2d,diag_2d,n_diag_3d, & - diag_3d,log_predictNc,typeDiags_ON,model,prt_drzl,prt_rain,prt_crys, & - prt_snow,prt_grpl,prt_pell,prt_hail,prt_sndp) + SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ssat,uzpl, & + pres,dzq,it,prt_liq,prt_sol,its,ite,kts,kte,nCat,diag_ze,diag_effc, & + diag_effi,diag_vmi,diag_di,diag_rhoi,n_diag_2d,diag_2d,n_diag_3d, & + diag_3d,log_predictNc,typeDiags_ON,model,clbfact_dep,clbfact_sub, & + debug_on,scpf_on,scpf_pfrac,scpf_resfact,SCF_out,prt_drzl,prt_rain, & + prt_crys,prt_snow,prt_grpl,prt_pell,prt_hail,prt_sndp,qi_type, & + diag_vis,diag_vis1,diag_vis2,diag_vis3) !----------------------------------------------------------------------------------------! ! ! @@ -1189,6 +1602,8 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss real, intent(in), dimension(its:ite,kts:kte) :: pres ! pressure Pa real, intent(in), dimension(its:ite,kts:kte) :: dzq ! vertical grid spacing m real, intent(in) :: dt ! model time step s + real, intent(in) :: clbfact_dep! calibration factor for deposition + real, intent(in) :: clbfact_sub! calibration factor for sublimation real, intent(out), dimension(its:ite) :: prt_liq ! precipitation rate, liquid m s-1 real, intent(out), dimension(its:ite) :: prt_sol ! precipitation rate, solid m s-1 @@ -1199,8 +1614,12 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss real, intent(out), dimension(its:ite,kts:kte,nCat) :: diag_di ! mean diameter of ice m real, intent(out), dimension(its:ite,kts:kte,nCat) :: diag_rhoi ! bulk density of ice kg m-1 - real, intent(out), dimension(its:ite,n_diag_2d) :: diag_2d ! user-defined 2D diagnostic fields - real, intent(out), dimension(its:ite,kts:kte,n_diag_3d) :: diag_3d ! user-defined 3D diagnostic fields + real, intent(out), dimension(its:ite,kts:kte), optional :: diag_vis ! visibility (total) m + real, intent(out), dimension(its:ite,kts:kte), optional :: diag_vis1 ! visibility through fog m + real, intent(out), dimension(its:ite,kts:kte), optional :: diag_vis2 ! visibility through rain m + real, intent(out), dimension(its:ite,kts:kte), optional :: diag_vis3 ! visibility through snow m + real, intent(out), dimension(its:ite,n_diag_2d) :: diag_2d ! user-defined 2D diagnostic fields + real, intent(out), dimension(its:ite,kts:kte,n_diag_3d) :: diag_3d ! user-defined 3D diagnostic fields integer, intent(in) :: its,ite ! array bounds (horizontal) integer, intent(in) :: kts,kte ! array bounds (vertical) @@ -1211,16 +1630,23 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss logical, intent(in) :: log_predictNc ! .T. (.F.) for prediction (specification) of Nc logical, intent(in) :: typeDiags_ON !for diagnostic hydrometeor/precip rate types + logical, intent(in) :: debug_on !switch for internal debug checks character(len=*), intent(in) :: model !driving model real, intent(out), dimension(its:ite), optional :: prt_drzl ! precip rate, drizzle m s-1 real, intent(out), dimension(its:ite), optional :: prt_rain ! precip rate, rain m s-1 real, intent(out), dimension(its:ite), optional :: prt_crys ! precip rate, ice cystals m s-1 real, intent(out), dimension(its:ite), optional :: prt_snow ! precip rate, snow m s-1 - real, intent(out), dimension(its:ite), optional :: prt_grpl ! precip rate, graupel m s-1 - real, intent(out), dimension(its:ite), optional :: prt_pell ! precip rate, ice pellets m s-1 - real, intent(out), dimension(its:ite), optional :: prt_hail ! precip rate, hail m s-1 - real, intent(out), dimension(its:ite), optional :: prt_sndp ! precip rate, unmelted snow m s-1 + real, intent(out), dimension(its:ite), optional :: prt_grpl ! precip rate, graupel m s-1 + real, intent(out), dimension(its:ite), optional :: prt_pell ! precip rate, ice pellets m s-1 + real, intent(out), dimension(its:ite), optional :: prt_hail ! precip rate, hail m s-1 + real, intent(out), dimension(its:ite), optional :: prt_sndp ! precip rate, unmelted snow m s-1 + real, intent(out), dimension(its:ite,kts:kte,n_qiType), optional :: qi_type ! mass mixing ratio, diagnosed ice type kg kg-1 + + logical, intent(in) :: scpf_on ! Switch to activate SCPF + real, intent(in) :: scpf_pfrac ! precipitation fraction factor (SCPF) + real, intent(in) :: scpf_resfact ! model resolution factor (SCPF) + real, intent(out), dimension(its:ite,kts:kte) :: SCF_out ! cloud fraction from SCPF !----- Local variables and parameters: -------------------------------------------------! @@ -1294,7 +1720,6 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss real, dimension(nCat) :: nrheti ! immersion freezing rain real, dimension(nCat) :: nrshdr ! source for rain number from collision of rain/ice above freezing and shedding real, dimension(nCat) :: qcshd ! source for rain mass due to cloud water/ice collision above freezing and shedding or wet growth and shedding - real, dimension(nCat) :: qcmul ! change in q, ice multiplication from rime-splitnering of cloud water (not included in the paper) real, dimension(nCat) :: qrmul ! change in q, ice multiplication from rime-splitnering of rain (not included in the paper) real, dimension(nCat) :: nimul ! change in Ni, ice multiplication from rime-splintering (not included in the paper) real, dimension(nCat) :: ncshdc ! source for rain number due to cloud water/ice collision above freezing and shedding (combined with NRSHD in the paper) @@ -1313,7 +1738,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss real, dimension(its:ite,kts:kte) :: inv_dzq,inv_rho,ze_ice,ze_rain,prec,rho, & rhofacr,rhofaci,acn,xxls,xxlv,xlf,qvs,qvi,sup,supi,ss,vtrmi1,vtrnitot, & - tmparr1 + tmparr1,mflux_r,mflux_i,invexn real, dimension(kts:kte) :: dum_qit,dum_qr,dum_nit,dum_qir,dum_bir,dum_zit,dum_nr, & dum_qc,dum_nc,V_qr,V_qit,V_nit,V_nr,V_qc,V_nc,V_zit,flux_qr,flux_qit, & @@ -1321,6 +1746,9 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss flux_nit,flux_nr,flux_qir,flux_bir,flux_zit,flux_qc,flux_nc,tend_qc,tend_qr, & tend_nr,tend_qit,tend_qir,tend_bir,tend_nit,tend_nc !,tend_zit + real, dimension(kts:kte) :: SCF,iSCF,SPF,iSPF,SPF_clr,Qv_cld,Qv_clr + real :: ssat_cld,ssat_clr,ssat_r,supi_cld,sup_cld,sup_r + real :: lammax,lammin,mu,dv,sc,dqsdt,ab,kap,epsr,epsc,xx,aaa,epsilon,sigvl,epsi_tot, & aact,alpha,gamm,gg,psi,eta1,eta2,sm1,sm2,smax,uu1,uu2,dum,dum0,dum1,dum2, & dumqv,dumqvs,dums,dumqc,ratio,qsat0,udiff,dum3,dum4,dum5,dum6,lamold,rdumii, & @@ -1332,6 +1760,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss deltaD_init,dum1c,dum4c,dum5c,dumt,qcon_satadj,qdep_satadj,sources,sinks, & drhop,timeScaleFactor,dt_left,tmp4,tmp5,tmp6,tmp7,tmp8,tmp9 + double precision :: tmpdbl1,tmpdbl2,tmpdbl3 integer :: dumi,i,k,kk,ii,jj,iice,iice_dest,j,dumk,dumj,dumii,dumjj,dumzz,n,nstep, & tmpint1,tmpint2,ktop,kbot,kdir,qcindex,qrindex,qiindex,dumic,dumiic,dumjjc, & @@ -1364,15 +1793,14 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss real :: f1pr18 ! ice-ice category collection change in mass ! quantities related to diagnostic hydrometeor/precipitation types - real, parameter :: freq3DtypeDiag = 60. !frequency (min) for full-column diagnostics + real, parameter :: freq3DtypeDiag = 1. !frequency (min) for full-column diagnostics real, parameter :: thres_raindrop = 100.e-6 !size threshold for drizzle vs. rain real, dimension(its:ite,kts:kte) :: Q_drizzle,Q_rain real, dimension(its:ite,kts:kte,nCat) :: Q_crystals,Q_ursnow,Q_lrsnow,Q_grpl,Q_pellets,Q_hail integer :: ktop_typeDiag -!--These will be added as namelist parameters in the future - logical, parameter :: debug_ON = .false. !.true. to switch on debugging checks/traps throughout code - logical, parameter :: debug_ABORT = .false. !.true. will result in forced abort in s/r 'check_values' +! to be added as namelist parameters (future) + logical, parameter :: debug_ABORT = .true. !.true. will result in forced abort in s/r 'check_values' !-----------------------------------------------------------------------------------! ! End of variables/parameters declarations @@ -1395,6 +1823,28 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! e.g.: ! ! diag_2d(i,1) = maxval(qr(i,:)) !column-maximum qr +!-----------------------------------------------------------------------------------! + +!-----------------------------------------------------------------------------------! +! The following code blocks can be instered for debugging (all within the main i-loop): +! +! !-- call to s/r 'check_values' WITHIN k loops: +! if (debug_on) then +! tmparr1(i,k) = th(i,k)*(pres(i,k)*1.e-5)**(rd*inv_cp) +! call check_values(qv(i,k:k),tmparr1(i,k:k),qc(i,k:k),nc(i,k:k),qr(i,k:k),nr(i,k:k), & +! qitot(i,k:k,:),qirim(i,k:k,:),nitot(i,k:k,:),birim(i,k:k,:),i,it,debug_ABORT,555) +! if (global_status /= STATUS_OK) return +! endif +! !== +! +! !-- call to s/r 'check_values' OUTSIDE k loops: +! if (debug_on) then +! tmparr1(i,:) = th(i,:)*(pres(i,:)*1.e-5)**(rd*inv_cp) +! call check_values(qv(i,:),tmparr1(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:),qitot(i,:,:), & +! qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it,debug_ABORT,666) +! if (global_status /= STATUS_OK) return +! endif +! !== !-----------------------------------------------------------------------------------! ! direction of vertical leveling: @@ -1408,6 +1858,17 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss kdir = 1 !(k: 1=bottom, nk=top) endif + if (trim(model)=='GEM') then + if (.not. typeDiags_ON) then + !If typeDiags_ON is .false., uninitialized arrays (prt_drzl, qi_type, etc.) will be passed back. + !(The coding of this will be refined later) + print*, '*** ERROR in P3_MAIN ***' + print*, '* typeDiags_ON must be set to .TRUE. for GEM' + global_status = STATUS_ERROR + return + endif + endif + ! Determine threshold size difference [m] as a function of nCat ! (used for destination category upon ice initiation) @@ -1447,6 +1908,8 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss prt_liq = 0. prt_sol = 0. + mflux_r = 0. + mflux_i = 0. prec = 0. mu_r = 0. diag_ze = -99. @@ -1465,38 +1928,38 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !rhorime_r = 400. tmparr1 = (pres*1.e-5)**(rd*inv_cp) + invexn = 1./tmparr1 !inverse Exner function array t = th *tmparr1 !compute temperature from theta (value at beginning of microphysics step) t_old = th_old*tmparr1 !compute temperature from theta (value at beginning of model time step) qv = max(qv,0.) !clip water vapor to prevent negative values passed in (beginning of microphysics) !== + !-----------------------------------------------------------------------------------! i_loop_main: do i = its,ite ! main i-loop (around the entire scheme) - if (debug_ON) call check_values(qv,T,qc,qr,nr,qitot,qirim,nitot,birim,i,it,.false.,debug_ABORT,100) + if (debug_on) then + call check_values(qv(i,:),T(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:),qitot(i,:,:), & + qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it,debug_ABORT,100) + !qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it,.FALSE.,100) + if (global_status /= STATUS_OK) return + endif log_hydrometeorsPresent = .false. log_nucleationPossible = .false. k_loop_1: do k = kbot,ktop,kdir -!-- To be deleted (moved to above) -! ! !calculate old temperature from old value of theta -! ! t_old(i,k) = th_old(i,k)*(pres(i,k)*1.e-5)**(rd*inv_cp) -! ! !calculate current temperature from current theta -! ! t(i,k) = th(i,k)*(pres(i,k)*1.e-5)**(rd*inv_cp) -!== - !calculate some time-varying atmospheric variables rho(i,k) = pres(i,k)/(rd*t(i,k)) inv_rho(i,k) = 1./rho(i,k) - xxlv(i,k) = 3.1484e6-2370.*t(i,k) + xxlv(i,k) = 3.1484e6-2370.*273.15 !t(i,k), use constant Lv xxls(i,k) = xxlv(i,k)+0.3337e6 xlf(i,k) = xxls(i,k)-xxlv(i,k) qvs(i,k) = qv_sat(t_old(i,k),pres(i,k),0) qvi(i,k) = qv_sat(t_old(i,k),pres(i,k),1) ! if supersaturation is not predicted or during the first time step, then diagnose from qv and T (qvs) - if (.not.(log_predictSsat).or.it.eq.1) then + if (.not.(log_predictSsat).or.it.le.1) then ssat(i,k) = qv_old(i,k)-qvs(i,k) sup(i,k) = qv_old(i,k)/qvs(i,k)-1. supi(i,k) = qv_old(i,k)/qvi(i,k)-1. @@ -1516,15 +1979,19 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss nc(i,k) = nccnst*inv_rho(i,k) endif +! The test below is skipped if SCPF is not used since now, if SCF>0 somewhere, then nucleation is possible. +! If there is the possibility of nucleation or droplet activation (i.e., if RH is relatively high) +! then calculate microphysical processes even if there is no existing condensate if ((t(i,k).lt.273.15 .and. supi(i,k).ge.-0.05) .or. & - (t(i,k).ge.273.15 .and. sup(i,k).ge.-0.05 )) log_nucleationPossible = .true. + (t(i,k).ge.273.15 .and. sup(i,k).ge.-0.05 ) .and. (.not. SCPF_on)) & + log_nucleationPossible = .true. !--- apply mass clipping if dry and mass is sufficiently small ! (implying all mass is expected to evaporate/sublimate in one time step) if (qc(i,k).lt.qsmall .or. (qc(i,k).lt.1.e-8 .and. sup(i,k).lt.-0.1)) then qv(i,k) = qv(i,k) + qc(i,k) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qc(i,k)*xxlv(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qc(i,k)*xxlv(i,k)*inv_cp qc(i,k) = 0. nc(i,k) = 0. else @@ -1533,7 +2000,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (qr(i,k).lt.qsmall .or. (qr(i,k).lt.1.e-8 .and. sup(i,k).lt.-0.1)) then qv(i,k) = qv(i,k) + qr(i,k) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qr(i,k)*xxlv(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qr(i,k)*xxlv(i,k)*inv_cp qr(i,k) = 0. nr(i,k) = 0. else @@ -1544,7 +2011,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (qitot(i,k,iice).lt.qsmall .or. (qitot(i,k,iice).lt.1.e-8 .and. & supi(i,k).lt.-0.1)) then qv(i,k) = qv(i,k) + qitot(i,k,iice) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qitot(i,k,iice)*xxls(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qitot(i,k,iice)*xxls(i,k)*inv_cp qitot(i,k,iice) = 0. nitot(i,k,iice) = 0. qirim(i,k,iice) = 0. @@ -1556,7 +2023,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (qitot(i,k,iice).ge.qsmall .and. qitot(i,k,iice).lt.1.e-8 .and. & t(i,k).ge.273.15) then qr(i,k) = qr(i,k) + qitot(i,k,iice) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qitot(i,k,iice)*xlf(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qitot(i,k,iice)*xlf(i,k)*inv_cp qitot(i,k,iice) = 0. nitot(i,k,iice) = 0. qirim(i,k,iice) = 0. @@ -1569,11 +2036,22 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss enddo k_loop_1 - if (debug_ON) then + if (debug_on) then tmparr1(i,:) = th(i,:)*(pres(i,:)*1.e-5)**(rd*inv_cp) - call check_values(qv,tmparr1,qc,qr,nr,qitot,qirim,nitot,birim,i,it,.true.,debug_ABORT,200) + call check_values(qv(i,:),tmparr1(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:), & + qitot(i,:,:),qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it, & + debug_ABORT,200) + if (global_status /= STATUS_OK) return endif + !first call to compute_SCPF + call compute_SCPF(Qc(i,:)+sum(Qitot(i,:,:),dim=2),Qr(i,:),Qv(i,:),Qvi(i,:), & + Pres(i,:),ktop,kbot,kdir,SCF,iSCF,SPF,iSPF,SPF_clr,Qv_cld,Qv_clr, & + SCPF_on,scpf_pfrac,scpf_resfact,quick=.false.) + + + if ((scpf_ON) .and. (sum(SCF) .ge. 0.01)) log_nucleationPossible = .true. + !jump to end of i-loop if log_nucleationPossible=.false. (i.e. skip everything) if (.not. (log_nucleationPossible .or. log_hydrometeorsPresent)) goto 333 @@ -1589,8 +2067,12 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss do iice = 1,nCat if (qitot(i,k,iice).ge.qsmall) log_exitlevel = .false. enddo - if (log_exitlevel .and. & - ((t(i,k).lt.273.15 .and. supi(i,k).lt.-0.05) .or. & + + !The test below is skipped if SCPF is used since now, if SCF>0 somewhere, then nucleation is possible + if ( ( SCPF_on) .and. log_exitlevel .and. & + (SCF(k).lt.0.01) ) goto 555 !i.e. skip all process rates !%%% FRED TEST NOT SURE + if ( (.not.SCPF_on) .and. log_exitlevel .and. & + ((t(i,k).lt.273.15 .and. supi(i,k).lt.-0.05) .or.& (t(i,k).ge.273.15 .and. sup(i,k) .lt.-0.05))) goto 555 !i.e. skip all process rates ! initialize warm-phase process rates @@ -1609,8 +2091,8 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ncheti = 0.; nrcol = 0.; nislf = 0. nrhetc = 0.; ninuc = 0.; qidep = 0. nrheti = 0.; nisub = 0.; qwgrth = 0. - qcmul = 0.; qrmul = 0.; nimul = 0. - qicol = 0.; nicol = 0. + qrmul = 0.; nimul = 0.; qicol = 0. + nicol = 0. log_wetgrowth = .false. @@ -1636,7 +2118,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (abs(epsilon).ge.1.e-15) then qc(i,k) = qc(i,k)+epsilon qv(i,k) = qv(i,k)-epsilon - th(i,k) = th(i,k)+epsilon*th(i,k)/t(i,k)*xxlv(i,k)*inv_cp + th(i,k) = th(i,k)+epsilon*invexn(i,k)*xxlv(i,k)*inv_cp ! recalculate variables if there was adjustment t(i,k) = th(i,k)*(1.e-5*pres(i,k))**(rd*inv_cp) qvs(i,k) = qv_sat(t(i,k),pres(i,k),0) @@ -1657,7 +2139,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss enddo if (log_exitlevel) goto 444 !i.e. skip to nucleation - !time/space varying physical variables + !time/space varying physical variables mu = 1.496e-6*t(i,k)**1.5/(t(i,k)+120.) dv = 8.794e-5*t(i,k)**1.81/pres(i,k) sc = mu/(rho(i,k)*dv) @@ -1667,20 +2149,23 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ab = 1.+dqsdt*xxlv(i,k)*inv_cp abi = 1.+dqsidt*xxls(i,k)*inv_cp kap = 1.414e+3*mu - ! very simple temperature dependent aggregation efficiency + !very simple temperature dependent aggregation efficiency if (t(i,k).lt.253.15) then - eii=0.1 + eii = 0.1 else if (t(i,k).ge.253.15.and.t(i,k).lt.268.15) then - eii=0.1+(t(i,k)-253.15)/15.*0.9 ! linear ramp from 0.1 to 1 between 253.15 and 268.15 K + eii = 0.1+(t(i,k)-253.15)/15.*0.9 ! linear ramp from 0.1 to 1 between 253.15 and 268.15 K +!!CHANGE: eii = 0.1+(t(i,k)-253.15)*0.06 ! linear ramp from 0.1 to 1 between 253.15 and 268.15 K [0.06 = (1./15.)*0.9] else if (t(i,k).ge.268.15) then - eii=1. + eii = 1. end if - call get_cloud_dsd2(qc(i,k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu,lamc(i,k), & - lammin,lammax,cdist(i,k),cdist1(i,k)) - call get_rain_dsd2(qr(i,k),nr(i,k),mu_r(i,k),rdumii,dumii,lamr(i,k),mu_r_table, & - cdistr(i,k),logn0r(i,k)) + call get_cloud_dsd2(qc(i,k)*iSCF(k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu, & + lamc(i,k),lammin,lammax,cdist(i,k),cdist1(i,k),iSCF(k)) + + + call get_rain_dsd2(qr(i,k)*iSPF(k),nr(i,k),mu_r(i,k),lamr(i,k),mu_r_table, & + cdistr(i,k),logn0r(i,k),iSPF(k)) ! initialize inverse supersaturation relaxation timescale for combined ice categories epsi_tot = 0. @@ -1689,7 +2174,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss iice_loop1: do iice = 1,nCat - if (qitot(i,k,iice).ge.qsmall) then + qitot_notsmall_1: if (qitot(i,k,iice).ge.qsmall) then !impose lower limits to prevent taking log of # < 0 nitot(i,k,iice) = max(nitot(i,k,iice),nsmall) @@ -1750,7 +2235,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss Eii_fact(iice) = 1. endif - endif ! qitot > qsmall + endif qitot_notsmall_1 ! qitot > qsmall !---------------------------------------------------------------------- ! Begin calculations of microphysical processes @@ -1769,16 +2254,16 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! note 'f1pr' values are normalized, so we need to multiply by N if (qitot(i,k,iice).ge.qsmall .and. qc(i,k).ge.qsmall .and. t(i,k).le.273.15) then - qccol(iice) = rhofaci(i,k)*f1pr04*qc(i,k)*eci*rho(i,k)*nitot(i,k,iice) - nccol(iice) = rhofaci(i,k)*f1pr04*nc(i,k)*eci*rho(i,k)*nitot(i,k,iice) + qccol(iice) = rhofaci(i,k)*f1pr04*qc(i,k)*eci*rho(i,k)*nitot(i,k,iice)*iSCF(k) + nccol(iice) = rhofaci(i,k)*f1pr04*nc(i,k)*eci*rho(i,k)*nitot(i,k,iice)*iSCF(k) endif ! for T > 273.15, assume cloud water is collected and shed as rain drops if (qitot(i,k,iice).ge.qsmall .and. qc(i,k).ge.qsmall .and. t(i,k).gt.273.15) then ! sink for cloud water mass and number, note qcshed is source for rain mass - qcshd(iice) = rhofaci(i,k)*f1pr04*qc(i,k)*eci*rho(i,k)*nitot(i,k,iice) - nccol(iice) = rhofaci(i,k)*f1pr04*nc(i,k)*eci*rho(i,k)*nitot(i,k,iice) + qcshd(iice) = rhofaci(i,k)*f1pr04*qc(i,k)*eci*rho(i,k)*nitot(i,k,iice)*iSCF(k) + nccol(iice) = rhofaci(i,k)*f1pr04*nc(i,k)*eci*rho(i,k)*nitot(i,k,iice)*iSCF(k) ! source for rain number, assume 1 mm drops are shed ncshdc(iice) = qcshd(iice)*1.923e+6 endif @@ -1800,9 +2285,9 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! qrcol(iice)=f1pr08*logn0r(i,k)*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice) ! nrcol(iice)=f1pr07*logn0r(i,k)*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice) ! note: f1pr08 and logn0r are already calculated as log_10 - qrcol(iice) = 10.**(f1pr08+logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice) - nrcol(iice) = 10.**(f1pr07+logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice) - endif + qrcol(iice) = 10.**(f1pr08+logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice)*iSCF(k)*(SPF(k)-SPF_clr(k)) + nrcol(iice) = 10.**(f1pr07+logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice)*iSCF(k)*(SPF(k)-SPF_clr(k)) + endif ! for T > 273.15, assume collected rain number is shed as ! 1 mm drops @@ -1812,16 +2297,15 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (qitot(i,k,iice).ge.qsmall .and. qr(i,k).ge.qsmall .and. t(i,k).gt.273.15) then ! rain number sink due to collection - nrcol(iice) = 10.**(f1pr07 + logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice) + nrcol(iice) = 10.**(f1pr07 + logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice)*iSCF(k)*(SPF(k)-SPF_clr(k)) ! rain number source due to shedding = collected rain mass/mass of 1 mm drop - dum = 10.**(f1pr08 + logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice) + dum = 10.**(f1pr08 + logn0r(i,k))*rho(i,k)*rhofaci(i,k)*eri*nitot(i,k,iice)*iSCF(k)*(SPF(k)-SPF_clr(k)) ! for now neglect shedding of ice collecting rain above freezing, since snow is ! not expected to shed in these conditions (though more hevaily rimed ice would be ! expected to lead to shedding) ! nrshdr(iice) = dum*1.923e+6 ! 1./5.2e-7, 5.2e-7 is the mass of a 1 mm raindrop endif - !................................... ! collection between ice categories @@ -1852,9 +2336,9 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! and N of the collectee and collector categories for process rates nicol and qicol, ! first index is the collectee, second is the collector nicol(catcoll,iice) = f1pr17*rhofaci(i,k)*rhofaci(i,k)*rho(i,k)* & - nitot(i,k,catcoll)*nitot(i,k,iice) + nitot(i,k,catcoll)*nitot(i,k,iice)*iSCF(k) qicol(catcoll,iice) = f1pr18*rhofaci(i,k)*rhofaci(i,k)*rho(i,k)* & - nitot(i,k,catcoll)*nitot(i,k,iice) + nitot(i,k,catcoll)*nitot(i,k,iice)*iSCF(k) nicol(catcoll,iice) = eii*Eii_fact(iice)*nicol(catcoll,iice) qicol(catcoll,iice) = eii*Eii_fact(iice)*qicol(catcoll,iice) @@ -1881,11 +2365,13 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss dumi,2,dum1c,dum4c,dum5c,dum1,dum4,dum5,f1pr18) nicol(iice,catcoll) = f1pr17*rhofaci(i,k)*rhofaci(i,k)*rho(i,k)* & - nitot(i,k,iice)*nitot(i,k,catcoll) + nitot(i,k,iice)*nitot(i,k,catcoll)*iSCF(k) qicol(iice,catcoll) = f1pr18*rhofaci(i,k)*rhofaci(i,k)*rho(i,k)* & - nitot(i,k,iice)*nitot(i,k,catcoll) + nitot(i,k,iice)*nitot(i,k,catcoll)*iSCF(k) + ! note: Eii_fact applied to the collector category nicol(iice,catcoll) = eii*Eii_fact(catcoll)*nicol(iice,catcoll) +! ! ! nccol(iice) = rhofaci(i,k)*f1pr04*nc(i,k)*eci*rho(i,k)*nitot(i,k,iice) qicol(iice,catcoll) = eii*Eii_fact(catcoll)*qicol(iice,catcoll) nicol(iice,catcoll) = min(nicol(iice,catcoll),nitot(i,k,iice)*odt) qicol(iice,catcoll) = min(qicol(iice,catcoll),qitot(i,k,iice)*odt) @@ -1926,7 +2412,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! (t(i,k)-273.15)*2.*pi*kap/xlf(i,k)+dum ! include RH dependence qimlt(iice) = ((f1pr05+f1pr14*sc**thrd*(rhofaci(i,k)*rho(i,k)/mu)**0.5)*((t(i,k)- & - 273.15)*kap-rho(i,k)*xxlv(i,k)*dv*(qsat0-qv(i,k)))*2.*pi/xlf(i,k)+ & + 273.15)*kap-rho(i,k)*xxlv(i,k)*dv*(qsat0-Qv_cld(k)))*2.*pi/xlf(i,k)+ & dum)*nitot(i,k,iice) qimlt(iice) = max(qimlt(iice),0.) nimlt(iice) = qimlt(iice)*(nitot(i,k,iice)/qitot(i,k,iice)) @@ -1942,7 +2428,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss qsat0 = 0.622*e0/(pres(i,k)-e0) qwgrth(iice) = ((f1pr05 + f1pr14*sc**thrd*(rhofaci(i,k)*rho(i,k)/mu)**0.5)* & - 2.*pi*(rho(i,k)*xxlv(i,k)*dv*(qsat0-qv(i,k))-(t(i,k)-273.15)* & + 2.*pi*(rho(i,k)*xxlv(i,k)*dv*(qsat0-Qv_cld(k))-(t(i,k)-273.15)* & kap)/(xlf(i,k)+cpw*(t(i,k)-273.15)))*nitot(i,k,iice) qwgrth(iice) = max(qwgrth(iice),0.) !calculate shedding for wet growth @@ -2033,7 +2519,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss else rhorime_c(iice) = 400. -! rhorime_r(iice) = 400. +! rhorime_r(iice) = 400. endif ! qi > qsmall and T < 273.15 !-------------------- @@ -2056,14 +2542,21 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss dum = (1./lamc(i,k))**3 ! qcheti(iice_dest) = cons6*cdist1(i,k)*gamma(7.+pgam(i,k))*exp(aimm*(273.15-t(i,k)))*dum**2 ! ncheti(iice_dest) = cons5*cdist1(i,k)*gamma(pgam(i,k)+4.)*exp(aimm*(273.15-t(i,k)))*dum - Q_nuc = cons6*cdist1(i,k)*gamma(7.+mu_c(i,k))*exp(aimm*(273.15-t(i,k)))*dum**2 - N_nuc = cons5*cdist1(i,k)*gamma(mu_c(i,k)+4.)*exp(aimm*(273.15-t(i,k)))*dum + +! Q_nuc = cons6*cdist1(i,k)*gamma(7.+mu_c(i,k))*exp(aimm*(273.15-t(i,k)))*dum**2 +! N_nuc = cons5*cdist1(i,k)*gamma(mu_c(i,k)+4.)*exp(aimm*(273.15-t(i,k)))*dum + tmpdbl1 = dexp(dble(aimm*(273.15-t(i,k)))) + tmpdbl2 = dble(dum) + Q_nuc = cons6*cdist1(i,k)*gamma(7.+mu_c(i,k))*tmpdbl1*tmpdbl2**2 + N_nuc = cons5*cdist1(i,k)*gamma(mu_c(i,k)+4.)*tmpdbl1*tmpdbl2 + if (nCat>1) then !determine destination ice-phase category: dum1 = 900. !density of new ice D_new = ((Q_nuc*6.)/(pi*dum1*N_nuc))**thrd - call icecat_destination(qitot(i,k,:),diam_ice(i,k,:),D_new,deltaD_init, & - iice_dest) + call icecat_destination(qitot(i,k,:)*iSCF(k),diam_ice(i,k,:),D_new,deltaD_init,iice_dest) + + if (global_status /= STATUS_OK) return else iice_dest = 1 endif @@ -2076,17 +2569,23 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! immersion freezing of rain ! for future: get rid of log statements below for rain freezing - if (qr(i,k).ge.qsmall.and.t(i,k).le.269.15) then - Q_nuc = cons6*exp(log(cdistr(i,k))+log(gamma(7.+mu_r(i,k)))-6.*log(lamr(i,k)))* & - exp(aimm*(273.15-T(i,k))) - N_nuc = cons5*exp(log(cdistr(i,k))+log(gamma(mu_r(i,k)+4.))-3.*log(lamr(i,k)))* & - exp(aimm*(273.15-T(i,k))) + if (qr(i,k)*iSPF(k).ge.qsmall.and.t(i,k).le.269.15) then + +! Q_nuc = cons6*exp(log(cdistr(i,k))+log(gamma(7.+mu_r(i,k)))-6.*log(lamr(i,k)))*exp(aimm*(273.15-t(i,k)))*SPF(k) +! N_nuc = cons5*exp(log(cdistr(i,k))+log(gamma(mu_r(i,k)+4.))-3.*log(lamr(i,k)))*exp(aimm*(273.15-t(i,k)))*SPF(k) + tmpdbl1 = dexp(dble(log(cdistr(i,k))+log(gamma(7.+mu_r(i,k)))-6.*log(lamr(i,k)))) + tmpdbl2 = dexp(dble(log(cdistr(i,k))+log(gamma(mu_r(i,k)+4.))-3.*log(lamr(i,k)))) + tmpdbl3 = dexp(dble(aimm*(273.15-t(i,k)))) + Q_nuc = cons6*tmpdbl1*tmpdbl3*SPF(k) + N_nuc = cons5*tmpdbl2*tmpdbl3*SPF(k) + if (nCat>1) then !determine destination ice-phase category: dum1 = 900. !density of new ice D_new = ((Q_nuc*6.)/(pi*dum1*N_nuc))**thrd - call icecat_destination(qitot(i,k,:),diam_ice(i,k,:),D_new,deltaD_init, & - iice_dest) + call icecat_destination(qitot(i,k,:)*iSCF(k),diam_ice(i,k,:),D_new, & + deltaD_init,iice_dest) + if (global_status /= STATUS_OK) return else iice_dest = 1 endif @@ -2103,8 +2602,8 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (nCat>1) then !determine destination ice-phase category D_new = 10.e-6 !assumes ice crystals from rime splintering are tiny - call icecat_destination(qitot(i,k,:),diam_ice(i,k,:),D_new,deltaD_init, & - iice_dest) + call icecat_destination(qitot(i,k,:)*iSCF(k),diam_ice(i,k,:),D_new,deltaD_init,iice_dest) + if (global_status /= STATUS_OK) return else iice_dest = 1 endif @@ -2158,24 +2657,33 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss endif rimesplintering_on -!................................................ -! condensation/evaporation/deposition/sublimation +!.................................................... +! condensation/evaporation and deposition/sublimation ! (use semi-analytic formulation) - ! calculate rain evaporation including ventilation - if (qr(i,k).ge.qsmall) then + !calculate rain evaporation including ventilation + if (qr(i,k)*iSPF(k).ge.qsmall) then + call find_lookupTable_indices_3(dumii,dumjj,dum1,rdumii,rdumjj,inv_dum3,mu_r(i,k),lamr(i,k)) !interpolate value at mu_r - dum1 = revap_table(dumii,dumjj)+(rdumii-real(dumii))*inv_dum3* & +! bug fix 12/23/18 +! dum1 = revap_table(dumii,dumjj)+(rdumii-real(dumii))*inv_dum3* & +! (revap_table(dumii+1,dumjj)-revap_table(dumii,dumjj)) + + dum1 = revap_table(dumii,dumjj)+(rdumii-real(dumii))* & (revap_table(dumii+1,dumjj)-revap_table(dumii,dumjj)) + !interoplate value at mu_r+1 - dum2 = revap_table(dumii,dumjj+1)+(rdumii-real(dumii))*inv_dum3* & - (revap_table(dumii+1,dumjj+1)-revap_table(dumii,dumjj+1)) +! bug fix 12/23/18 +! dum2 = revap_table(dumii,dumjj+1)+(rdumii-real(dumii))*inv_dum3* & +! (revap_table(dumii+1,dumjj+1)-revap_table(dumii,dumjj+1)) + dum2 = revap_table(dumii,dumjj+1)+(rdumii-real(dumii))* & + (revap_table(dumii+1,dumjj+1)-revap_table(dumii,dumjj+1)) !final interpolation dum = dum1+(rdumjj-real(dumjj))*(dum2-dum1) - epsr = 2.*pi*cdistr(i,k)*rho(i,k)*dv*(f1r*gamma(mu_r(i,k)+2.)/(lamr(i,k))+f2r* & - (rho(i,k)/mu)**0.5*sc**thrd*dum) + epsr = 2.*pi*cdistr(i,k)*rho(i,k)*dv*(f1r*gamma(mu_r(i,k)+2.)/(lamr(i,k)) & + +f2r*(rho(i,k)/mu)**0.5*sc**thrd*dum) else epsr = 0. endif @@ -2185,7 +2693,6 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss else epsc = 0. endif - !=== if (t(i,k).lt.273.15) then oabi = 1./abi @@ -2235,14 +2742,30 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss xx = max(1.e-20,xx) ! set lower bound on xx to prevent division by zero oxx = 1./xx + if (.not. scpf_ON) then + ssat_cld = ssat(i,k) + ssat_r = ssat(i,k) + sup_cld = sup(i,k) + sup_r = sup(i,k) + supi_cld = supi(i,k) + else + ssat_cld = Qv_cld(k) - qvs(i,k) !in-cloud sub/sur-saturation w.r.t. liq + ssat_clr = Qv_clr(k) - qvs(i,k) !clear-sky sub/sur-saturation w.r.t. liq + !mix of in-cloud/clearsky sub/sur-saturation w.r.t. liqfor rain: + ssat_r = ssat_cld*(SPF(k)-SPF_clr(k))+ssat_clr*SPF_clr(k) + sup_r = ssat_r /qvs(i,k) + sup_cld = ssat_cld /qvs(i,k) !in-cloud sub/sur-saturation w.r.t. liq in % + supi_cld = Qv_cld(k)/qvi(i,k)-1.!in-cloud sub/sur-saturation w.r.t. ice in % + endif + if (qc(i,k).ge.qsmall) & - qccon = (aaa*epsc*oxx+(ssat(i,k)-aaa*oxx)*odt*epsc*oxx*(1.-dexp(-dble(xx*dt))))/ab + qccon = (aaa*epsc*oxx+(ssat_cld*SCF(k)-aaa*oxx)*odt*epsc*oxx*(1.-dexp(-dble(xx*dt))))/ab if (qr(i,k).ge.qsmall) & - qrcon = (aaa*epsr*oxx+(ssat(i,k)-aaa*oxx)*odt*epsr*oxx*(1.-dexp(-dble(xx*dt))))/ab + qrcon = (aaa*epsr*oxx+(ssat_r*SPF(k)-aaa*oxx)*odt*epsr*oxx*(1.-dexp(-dble(xx*dt))))/ab - !for very small water contents, evaporate instantly - if (sup(i,k).lt.-0.001 .and. qc(i,k).lt.1.e-12) qccon = -qc(i,k)*odt - if (sup(i,k).lt.-0.001 .and. qr(i,k).lt.1.e-12) qrcon = -qr(i,k)*odt + !evaporate instantly for very small water contents + if (sup_cld.lt.-0.001 .and. qc(i,k).lt.1.e-12) qccon = -qc(i,k)*odt + if (sup_r .lt.-0.001 .and. qr(i,k).lt.1.e-12) qrcon = -qr(i,k)*odt if (qccon.lt.0.) then qcevp = -qccon @@ -2256,32 +2779,23 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss qrcon = 0. endif - !limit total condensation/evaporation to saturation adjustment - dumqvs = qv_sat(t(i,k),pres(i,k),0) - qcon_satadj = (qv(i,k)-dumqvs)/(1.+xxlv(i,k)**2*dumqvs/(cp*rv*t(i,k)**2))*odt - if (qccon+qrcon.gt.0.) then - ratio = max(0.,qcon_satadj)/(qccon+qrcon) - ratio = min(1.,ratio) - qccon = qccon*ratio - qrcon = qrcon*ratio - elseif (qcevp+qrevp.gt.0.) then - ratio = max(0.,-qcon_satadj)/(qcevp+qrevp) - ratio = min(1.,ratio) - qcevp = qcevp*ratio - qrevp = qrevp*ratio - endif - iice_loop_depsub: do iice = 1,nCat if (qitot(i,k,iice).ge.qsmall.and.t(i,k).lt.273.15) then - qidep(iice) = (aaa*epsi(iice)*oxx+(ssat(i,k)-aaa*oxx)*odt*epsi(iice)*oxx* & + !note: diffusional growth/decay rate: (stored as 'qidep' temporarily; may go to qisub below) + qidep(iice) = (aaa*epsi(iice)*oxx+(ssat_cld*SCF(k)-aaa*oxx)*odt*epsi(iice)*oxx* & (1.-dexp(-dble(xx*dt))))*oabi+(qvs(i,k)-dumqvi)*epsi(iice)*oabi endif !for very small ice contents in dry air, sublimate all ice instantly - if (supi(i,k).lt.-0.001 .and. qitot(i,k,iice).lt.1.e-12) & + if (supi_cld.lt.-0.001 .and. qitot(i,k,iice).lt.1.e-12) & qidep(iice) = -qitot(i,k,iice)*odt + !note: 'clbfact_dep' and 'clbfact_sub' calibration factors for ice deposition and sublimation + ! These are adjustable ad hoc factors used to increase or decrease deposition and/or + ! sublimation rates. The representation of the ice capacitances are highly simplified + ! and the appropriate values in the diffusional growth equation are uncertain. + if (qidep(iice).lt.0.) then !note: limit to saturation adjustment (for dep and subl) is applied later qisub(iice) = -qidep(iice) @@ -2295,36 +2809,43 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss enddo iice_loop_depsub -444 continue +444 continue !................................................................ ! deposition/condensation-freezing nucleation -! allow ice nucleation if < -15 C and > 5% ice supersaturation - - if (t(i,k).lt.258.15 .and. supi(i,k).ge.0.05) then - -! dum = exp(-0.639+0.1296*100.*supi(i,k))*1000.*inv_rho(i,k) !Meyers et al. (1992) - dum = 0.005*exp(0.304*(273.15-t(i,k)))*1000.*inv_rho(i,k) !Cooper (1986) - dum = min(dum,100.e3*inv_rho(i,k)) - N_nuc = max(0.,(dum-sum(nitot(i,k,:)))*odt) - - if (N_nuc.ge.1.e-20) then - Q_nuc = max(0.,(dum-sum(nitot(i,k,:)))*mi0*odt) - if (nCat>1) then - !determine destination ice-phase category: - dum1 = 900. !density of new ice - D_new = ((Q_nuc*6.)/(pi*dum1*N_nuc))**thrd - call icecat_destination(qitot(i,k,:),diam_ice(i,k,:),D_new,deltaD_init, & - iice_dest) - else - iice_dest = 1 - endif - qinuc(iice_dest) = Q_nuc - ninuc(iice_dest) = N_nuc - endif +! (allow ice nucleation if T < -15 C and > 5% ice supersaturation) - endif + if (.not. scpf_ON) then + sup_cld = sup(i,k) + supi_cld = supi(i,k) + else + supi_cld= Qv_cld(k)/qvi(i,k)-1.!in-cloud sub/sur-saturation w.r.t. ice in % + sup_cld = Qv_cld(k)/qvs(i,k)-1.!in-cloud sub/sur-saturation w.r.t. liq in % + endif + + if (t(i,k).lt.258.15 .and. supi_cld.ge.0.05) then +! dum = exp(-0.639+0.1296*100.*supi(i,k))*1000.*inv_rho(i,k) !Meyers et al. (1992) +! dum = 0.005*exp(0.304*(273.15-t(i,k)))*1000.*inv_rho(i,k) !Cooper (1986) + dum = 0.005*dexp(dble(0.304*(273.15-t(i,k))))*1000.*inv_rho(i,k) !Cooper (1986) + dum = min(dum,100.e3*inv_rho(i,k)*SCF(k)) + N_nuc = max(0.,(dum-sum(nitot(i,k,:)))*odt) + + if (N_nuc.ge.1.e-20) then + Q_nuc = max(0.,(dum-sum(nitot(i,k,:)))*mi0*odt) + if (nCat>1) then + !determine destination ice-phase category: + dum1 = 900. !density of new ice + D_new = ((Q_nuc*6.)/(pi*dum1*N_nuc))**thrd + call icecat_destination(qitot(i,k,:)*iSCF(k),diam_ice(i,k,:),D_new,deltaD_init,iice_dest) + if (global_status /= STATUS_OK) return + else + iice_dest = 1 + endif + qinuc(iice_dest) = Q_nuc + ninuc(iice_dest) = N_nuc + endif + endif !................................................................. @@ -2334,47 +2855,44 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! note that this is also applied at the first time step ! this is not applied at the first time step, since saturation adjustment is applied at the first step - if (.not.(log_predictNc).and.sup(i,k).gt.1.e-6.and.it.gt.1) then - dum = nccnst*inv_rho(i,k)*cons7-qc(i,k) - dum = max(0.,dum) - dumqvs = qv_sat(t(i,k),pres(i,k),0) - dqsdt = xxlv(i,k)*dumqvs/(rv*t(i,k)*t(i,k)) - ab = 1. + dqsdt*xxlv(i,k)*inv_cp - dum = min(dum,(qv(i,k)-dumqvs)/ab) ! limit overdepletion of supersaturation - qcnuc = dum*odt - endif - - if (log_predictNc) then - -! for predicted Nc, calculate activation explicitly from supersaturation -! note that this is also applied at the first time step -! note that this is also applied at the first time step + if (.not.(log_predictNc).and.sup_cld.gt.1.e-6.and.it.gt.1) then + dum = nccnst*inv_rho(i,k)*cons7-qc(i,k) + dum = max(0.,dum*iSCF(k)) ! in-cloud value + dumqvs = qv_sat(t(i,k),pres(i,k),0) + dqsdt = xxlv(i,k)*dumqvs/(rv*t(i,k)*t(i,k)) + ab = 1. + dqsdt*xxlv(i,k)*inv_cp + dum = min(dum,(Qv_cld(k)-dumqvs)/ab) ! limit overdepletion of supersaturation + qcnuc = dum*odt*SCF(k) + endif - if (sup(i,k).gt.1.e-6) then - dum1 = 1./bact**0.5 - sigvl = 0.0761 - 1.55e-4*(t(i,k)-273.15) - aact = 2.*mw/(rhow*rr*t(i,k))*sigvl - sm1 = 2.*dum1*(aact*thrd*inv_rm1)**1.5 - sm2 = 2.*dum1*(aact*thrd*inv_rm2)**1.5 - uu1 = 2.*log(sm1/sup(i,k))/(4.242*log(sig1)) - uu2 = 2.*log(sm2/sup(i,k))/(4.242*log(sig2)) - dum1 = nanew1*0.5*(1.-derf(uu1)) ! activated number in kg-1 mode 1 - dum2 = nanew2*0.5*(1.-derf(uu2)) ! activated number in kg-1 mode 2 - ! make sure this value is not greater than total number of aerosol - dum2 = min((nanew1+nanew2),dum1+dum2) - dum2 = (dum2-nc(i,k))*odt - dum2 = max(0.,dum2) - ncnuc = dum2 - ! don't include mass increase from droplet activation during first time step - ! since this is already accounted for by saturation adjustment below - if (it.eq.1) then - qcnuc = 0. - else - qcnuc = ncnuc*cons7 - endif + if (log_predictNc) then + ! for predicted Nc, calculate activation explicitly from supersaturation + ! note that this is also applied at the first time step + if (sup_cld.gt.1.e-6) then + dum1 = 1./bact**0.5 + sigvl = 0.0761 - 1.55e-4*(t(i,k)-273.15) + aact = 2.*mw/(rhow*rr*t(i,k))*sigvl + sm1 = 2.*dum1*(aact*thrd*inv_rm1)**1.5 + sm2 = 2.*dum1*(aact*thrd*inv_rm2)**1.5 + uu1 = 2.*log(sm1/sup_cld)/(4.242*log(sig1)) + uu2 = 2.*log(sm2/sup_cld)/(4.242*log(sig2)) + dum1 = nanew1*0.5*(1.-derf(uu1)) ! activated number in kg-1 mode 1 + dum2 = nanew2*0.5*(1.-derf(uu2)) ! activated number in kg-1 mode 2 + ! make sure this value is not greater than total number of aerosol + dum2 = min((nanew1+nanew2),dum1+dum2) + dum2 = (dum2-nc(i,k)*iSCF(k))*odt*SCF(k) + dum2 = max(0.,dum2) + ncnuc = dum2 + ! don't include mass increase from droplet activation during first time step + ! since this is already accounted for by saturation adjustment below + if (it.le.1) then + qcnuc = 0. + else + qcnuc = ncnuc*cons7 endif - endif + endif + !................................................................ ! saturation adjustment to get initial cloud water @@ -2382,17 +2900,18 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! This is only called once at the beginning of the simulation ! to remove any supersaturation in the intial conditions - if (it.eq.1) then + if (it.le.1) then dumt = th(i,k)*(pres(i,k)*1.e-5)**(rd*inv_cp) - dumqv = qv(i,k) + dumqv = Qv_cld(k) dumqvs = qv_sat(dumt,pres(i,k),0) dums = dumqv-dumqvs - qccon = dums/(1.+xxlv(i,k)**2*dumqvs/(cp*rv*dumt**2))*odt + qccon = dums/(1.+xxlv(i,k)**2*dumqvs/(cp*rv*dumt**2))*odt*SCF(k) qccon = max(0.,qccon) if (qccon.le.1.e-7) qccon = 0. endif -!................ + +!................................................................ ! autoconversion qc_not_small: if (qc(i,k).ge.1.e-8) then @@ -2400,38 +2919,38 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (iparam.eq.1) then !Seifert and Beheng (2001) - dum = 1.-qc(i,k)/(qc(i,k)+qr(i,k)) + dum = 1.-qc(i,k)*iSCF(k)/(qc(i,k)*iSCF(k)+qr(i,k)*iSPF(k)*(SPF(k)-SPF_clr(k))) dum1 = 600.*dum**0.68*(1.-dum**0.68)**3 - ! qcaut = kc/(20.*2.6e-7)*(nu(i,k)+2.)*(nu(i,k)+4.)/(nu(i,k)+1.)**2* & - ! (rho(i,k)*qc(i,k)/1000.)**4/(rho(i,k)*nc(i,k)/1.e+6)**2*(1.+ & - ! dum1/(1.-dum)**2)*1000.*inv_rho(i,k) - ! ncautc = qcaut*2./2.6e-7*1000. - qcaut = kc*1.9230769e-5*(nu(i,k)+2.)*(nu(i,k)+4.)/(nu(i,k)+1.)**2* & - (rho(i,k)*qc(i,k)*1.e-3)**4/(rho(i,k)*nc(i,k)*1.e-6)**2*(1.+ & - dum1/(1.-dum)**2)*1000.*inv_rho(i,k) + qcaut = kc*1.9230769e-5*(nu(i,k)+2.)*(nu(i,k)+4.)/(nu(i,k)+1.)**2* & + (rho(i,k)*qc(i,k)*iSCF(k)*1.e-3)**4/ & + (rho(i,k)*nc(i,k)*iSCF(k)*1.e-6)**2*(1.+ & + dum1/(1.-dum)**2)*1000.*inv_rho(i,k)*SCF(k) ncautc = qcaut*7.6923076e+9 elseif (iparam.eq.2) then !Beheng (1994) if (nc(i,k)*rho(i,k)*1.e-6 .lt. 100.) then - qcaut = 6.e+28*inv_rho(i,k)*mu_c(i,k)**(-1.7)*(1.e-6*rho(i,k)* & - nc(i,k))**(-3.3)*(1.e-3*rho(i,k)*qc(i,k))**4.7 + qcaut = 6.e+28*inv_rho(i,k)*mu_c(i,k)**(-1.7)*(1.e-6*rho(i,k)* & + nc(i,k)*iSCF(k))**(-3.3)*(1.e-3*rho(i,k)*qc(i,k)*iSCF(k))**(4.7) & + *SCF(k) else !2D interpolation of tabled logarithmic values - dum = 41.46 + (nc(i,k)*1.e-6*rho(i,k)-100.)*(37.53-41.46)*5.e-3 - dum1 = 39.36 + (nc(i,k)*1.e-6*rho(i,k)-100.)*(30.72-39.36)*5.e-3 + dum = 41.46 + (nc(i,k)*iSCF(k)*1.e-6*rho(i,k)-100.)*(37.53-41.46)*5.e-3 + dum1 = 39.36 + (nc(i,k)*iSCF(k)*1.e-6*rho(i,k)-100.)*(30.72-39.36)*5.e-3 qcaut = dum+(mu_c(i,k)-5.)*(dum1-dum)*0.1 ! 1000/rho is for conversion from g cm-3/s to kg/kg - qcaut = exp(qcaut)*(1.e-3*rho(i,k)*qc(i,k))**4.7*1000.*inv_rho(i,k) +! qcaut = exp(qcaut)*(1.e-3*rho(i,k)*qc(i,k)*iSCF(k))**4.7*1000.*inv_rho(i,k)*SCF(k) + qcaut = dexp(dble(qcaut))*(1.e-3*rho(i,k)*qc(i,k)*iSCF(k))**4.7*1000.* & + inv_rho(i,k)*SCF(k) endif ncautc = 7.7e+9*qcaut elseif (iparam.eq.3) then !Khroutdinov and Kogan (2000) - dum = qc(i,k) - qcaut = 1350.*dum**2.47*(nc(i,k)*1.e-6*rho(i,k))**(-1.79) + dum = qc(i,k)*iSCF(k) + qcaut = 1350.*dum**2.47*(nc(i,k)*iSCF(k)*1.e-6*rho(i,k))**(-1.79)*SCF(k) ! note: ncautr is change in Nr; ncautc is change in Nc ncautr = qcaut*cons3 ncautc = qcaut*nc(i,k)/qc(i,k) @@ -2450,11 +2969,11 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (iparam.eq.1) then !Seifert and Beheng (2001) - ncslf = -kc*(1.e-3*rho(i,k)*qc(i,k))**2*(nu(i,k)+2.)/(nu(i,k)+1.)* & - 1.e+6*inv_rho(i,k)+ncautc + ncslf = -kc*(1.e-3*rho(i,k)*qc(i,k)*iSCF(k))**2*(nu(i,k)+2.)/(nu(i,k)+1.)* & + 1.e+6*inv_rho(i,k)*SCF(k)+ncautc elseif (iparam.eq.2) then !Beheng (994) - ncslf = -5.5e+16*inv_rho(i,k)*mu_c(i,k)**(-0.63)*(1.e-3*rho(i,k)*qc(i,k))**2 + ncslf = -5.5e+16*inv_rho(i,k)*mu_c(i,k)**(-0.63)*(1.e-3*rho(i,k)*qc(i,k)*iSCF(k))**2*SCF(k) elseif (iparam.eq.3) then !Khroutdinov and Kogan (2000) ncslf = 0. @@ -2469,19 +2988,23 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (iparam.eq.1) then !Seifert and Beheng (2001) - dum = 1.-qc(i,k)/(qc(i,k)+qr(i,k)) + dum2 = (SPF(k)-SPF_clr(k)) !in-cloud Precipitation fraction + dum = 1.-qc(i,k)*iSCF(k)/(qc(i,k)*iSCF(k)+qr(i,k)*iSPF(k)) dum1 = (dum/(dum+5.e-4))**4 - qcacc = kr*rho(i,k)*0.001*qc(i,k)*qr(i,k)*dum1 - ncacc = qcacc*rho(i,k)*0.001*(nc(i,k)*rho(i,k)*1.e-6)/(qc(i,k)*rho(i,k)* & + qcacc = kr*rho(i,k)*0.001*qc(i,k)*iSCF(k)*qr(i,k)*iSPF(k)*dum1*dum2 + ncacc = qcacc*rho(i,k)*0.001*(nc(i,k)*rho(i,k)*1.e-6)/(qc(i,k)*rho(i,k)* & !note: (nc*iSCF)/(qc*iSCF) = nc/qc 0.001)*1.e+6*inv_rho(i,k) elseif (iparam.eq.2) then !Beheng (994) - qcacc = 6.*rho(i,k)*(qc(i,k)*qr(i,k)) - ncacc = qcacc*rho(i,k)*1.e-3*(nc(i,k)*rho(i,k)*1.e-6)/(qc(i,k)*rho(i,k)*1.e-3)* & - 1.e+6*inv_rho(i,k) + dum2 = (SPF(k)-SPF_clr(k)) !in-cloud Precipitation fraction + dum = (qc(i,k)*iSCF(k)*qr(i,k)*iSPF(k)) + qcacc = 6.*rho(i,k)*dum*dum2 + ncacc = qcacc*rho(i,k)*1.e-3*(nc(i,k)*rho(i,k)*1.e-6)/(qc(i,k)*rho(i,k)* & !note: (nc*iSCF)/(qc*iSCF) = nc/qc + 1.e-3)*1.e+6*inv_rho(i,k) elseif (iparam.eq.3) then !Khroutdinov and Kogan (2000) - qcacc = 67.*(qc(i,k)*qr(i,k))**1.15 + dum2 = (SPF(k)-SPF_clr(k)) !in-cloud Precipitation fraction + qcacc = 67.*(qc(i,k)*iSCF(k)*qr(i,k)*iSPF(k))**1.15 *dum2 ncacc = qcacc*nc(i,k)/qc(i,k) endif @@ -2498,24 +3021,24 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! include breakup dum1 = 280.e-6 - + nr(i,k) = max(nr(i,k),nsmall) ! use mass-mean diameter (do this by using ! the old version of lambda w/o mu dependence) ! note there should be a factor of 6^(1/3), but we ! want to keep breakup threshold consistent so 'dum' ! is expressed in terms of lambda rather than mass-mean D - dum2 = (qr(i,k)/(pi*rhow*nr(i,k)))**thrd if (dum2.lt.dum1) then dum = 1. else if (dum2.ge.dum1) then - dum = 2.-exp(2300.*(dum2-dum1)) +! dum = 2.-exp(2300.*(dum2-dum1)) + dum = 2.-dexp(dble(2300.*(dum2-dum1))) endif if (iparam.eq.1.) then - nrslf = dum*kr*1.e-3*qr(i,k)*nr(i,k)*rho(i,k) + nrslf = dum*kr*1.e-3*qr(i,k)*iSPF(k)*nr(i,k)*iSPF(k)*rho(i,k)*SPF(k) elseif (iparam.eq.2 .or. iparam.eq.3) then - nrslf = dum*5.78*nr(i,k)*qr(i,k)*rho(i,k) + nrslf = dum*5.78*nr(i,k)*iSPF(k)*qr(i,k)*iSPF(k)*rho(i,k)*SPF(k) endif endif @@ -2529,6 +3052,26 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! The rates are adjusted here (where necessary) such that the sum of the sinks of mass cannot ! be greater than the sum of the sources, thereby resulting in overdepletion. + + !-- Limit total condensation (incl. activation) and evaporation to saturation adjustment + dumqvs = qv_sat(t(i,k),pres(i,k),0) + qcon_satadj = (qv(i,k)-dumqvs)/(1.+xxlv(i,k)**2*dumqvs/(cp*rv*t(i,k)**2))*odt + tmp1 = qccon+qrcon+qcnuc + if (tmp1.gt.0. .and. tmp1.gt.qcon_satadj) then + ratio = max(0.,qcon_satadj)/tmp1 + ratio = min(1.,ratio) + qccon = qccon*ratio + qrcon = qrcon*ratio + qcnuc = qcnuc*ratio + ncnuc = ncnuc*ratio + elseif (qcevp+qrevp.gt.0.) then + ratio = max(0.,-qcon_satadj)/(qcevp+qrevp) + ratio = min(1.,ratio) + qcevp = qcevp*ratio + qrevp = qrevp*ratio + endif + + !-- Limit ice process rates to prevent overdepletion of sources such that ! the subsequent adjustments are done with maximum possible rates for the ! time step. (note: most ice rates are adjusted here since they must be done @@ -2537,8 +3080,14 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss dumqvi = qv_sat(t(i,k),pres(i,k),1) qdep_satadj = (qv(i,k)-dumqvi)/(1.+xxls(i,k)**2*dumqvi/(cp*rv*t(i,k)**2))*odt - qidep = qidep*min(1.,max(0., qdep_satadj)/max(sum(qidep), 1.e-20)) - qisub = qisub*min(1.,max(0.,-qdep_satadj)/max(sum(qisub), 1.e-20)) + tmp1 = sum(qidep)+sum(qinuc) + if (tmp1.gt.0. .and. tmp1.gt.qdep_satadj) then + ratio = max(0.,qdep_satadj)/tmp1 + ratio = min(1.,ratio) + qidep = qidep*ratio + qinuc = qinuc*ratio + endif + qisub = qisub*min(1.,max(0.,-qdep_satadj)/max(sum(qisub), 1.e-20)) !optimized (avoids IF(qisub.gt.0.) ) !qchetc = qchetc*min(1.,qc(i,k)*odt/max(sum(qchetc),1.e-20)) !currently not used !qrhetc = qrhetc*min(1.,qr(i,k)*odt/max(sum(qrhetc),1.e-20)) !currently not used !== @@ -2681,9 +3230,10 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss qv(i,k) = qv(i,k) + (-qidep(iice)+qisub(iice)-qinuc(iice))*dt - th(i,k) = th(i,k) + th(i,k)/t(i,k)*((qidep(iice)-qisub(iice)+qinuc(iice))* & - xxls(i,k)*inv_cp +(qrcol(iice)+qccol(iice)+qchetc(iice)+ & - qcheti(iice)+qrhetc(iice)+qrheti(iice)-qimlt(iice))* & + th(i,k) = th(i,k) + invexn(i,k)*((qidep(iice)-qisub(iice)+qinuc(iice))* & + xxls(i,k)*inv_cp +(qrcol(iice)+qccol(iice)+qchetc(iice)+ & + qcheti(iice)+qrhetc(iice)+qrheti(iice)+ & + qrmul(iice)-qimlt(iice))* & xlf(i,k)*inv_cp)*dt enddo iice_loop2 @@ -2705,14 +3255,14 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss endif qv(i,k) = qv(i,k) + (-qcnuc-qccon-qrcon+qcevp+qrevp)*dt - th(i,k) = th(i,k) + th(i,k)/t(i,k)*((qcnuc+qccon+qrcon-qcevp-qrevp)*xxlv(i,k)* & + th(i,k) = th(i,k) + invexn(i,k)*((qcnuc+qccon+qrcon-qcevp-qrevp)*xxlv(i,k)* & inv_cp)*dt !== ! clipping for small hydrometeor values if (qc(i,k).lt.qsmall) then qv(i,k) = qv(i,k) + qc(i,k) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qc(i,k)*xxlv(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qc(i,k)*xxlv(i,k)*inv_cp qc(i,k) = 0. nc(i,k) = 0. else @@ -2721,7 +3271,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss if (qr(i,k).lt.qsmall) then qv(i,k) = qv(i,k) + qr(i,k) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qr(i,k)*xxlv(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qr(i,k)*xxlv(i,k)*inv_cp qr(i,k) = 0. nr(i,k) = 0. else @@ -2731,7 +3281,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss do iice = 1,nCat if (qitot(i,k,iice).lt.qsmall) then qv(i,k) = qv(i,k) + qitot(i,k,iice) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qitot(i,k,iice)*xxls(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qitot(i,k,iice)*xxls(i,k)*inv_cp qitot(i,k,iice) = 0. nitot(i,k,iice) = 0. qirim(i,k,iice) = 0. @@ -2753,12 +3303,19 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! a problem; those values get clipped to zero in the sedimentation section (if necessary). ! (This is not done above simply for efficiency purposes.) - - if (debug_ON) then + if (debug_on) then tmparr1(i,:) = th(i,:)*(pres(i,:)*1.e-5)**(rd*inv_cp) - call check_values(qv,tmparr1,qc,qr,nr,qitot,qirim,nitot,birim,i,it,.true.,debug_ABORT,300) + call check_values(qv(i,:),tmparr1(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:), & + qitot(i,:,:),qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it, & + debug_ABORT,300) + if (global_status /= STATUS_OK) return endif + !second call to compute_SCPF + call compute_SCPF(Qc(i,:)+sum(Qitot(i,:,:),dim=2),Qr(i,:),Qv(i,:),Qvi(i,:), & + Pres(i,:),ktop,kbot,kdir,SCF,iSCF,SPF,iSPF,SPF_clr,Qv_cld,Qv_clr, & + SCPF_on,scpf_pfrac,scpf_resfact,quick=.false.) + if (.not. log_hydrometeorsPresent) goto 333 !------------------------------------------------------------------------------------------! @@ -2776,7 +3333,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !find top, determine qxpresent do k = ktop,kbot,-kdir - if (qc(i,k).ge.qsmall) then + if (qc(i,k)*iSCF(k).ge.qsmall) then log_qxpresent = .true. k_qxtop = k exit @@ -2790,7 +3347,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !find bottom do k = kbot,k_qxtop,kdir - if (qc(i,k).ge.qsmall) then + if (qc(i,k)*iSCF(k).ge.qsmall) then k_qxbot = k exit endif @@ -2800,16 +3357,16 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss substep_sedi_c2: do while (dt_left.gt.1.e-4) - Co_max = 0. - V_qc = 0. - V_nc = 0. + Co_max = 0. + V_qc(:) = 0. + V_nc(:) = 0. kloop_sedi_c2: do k = k_qxtop,k_qxbot,-kdir - qc_notsmall_c2: if (qc(i,k)>qsmall) then + qc_notsmall_c2: if (qc(i,k)*iSCF(k)>qsmall) then !-- compute Vq, Vn - call get_cloud_dsd2(qc(i,k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu, & - lamc(i,k),lammin,lammax,tmp1,tmp2) + call get_cloud_dsd2(qc(i,k)*iSCF(k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu, & + lamc(i,k),lammin,lammax,tmp1,tmp2, iSCF(k)) dum = 1./lamc(i,k)**bcn V_qc(k) = acn(i,k)*gamma(4.+bcn+mu_c(i,k))*dum/(gamma(mu_c(i,k)+4.)) V_nc(k) = acn(i,k)*gamma(1.+bcn+mu_c(i,k))*dum/(gamma(mu_c(i,k)+1.)) @@ -2863,13 +3420,13 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss substep_sedi_c1: do while (dt_left.gt.1.e-4) Co_max = 0. - V_qc = 0. + V_qc(:) = 0. kloop_sedi_c1: do k = k_qxtop,k_qxbot,-kdir - qc_notsmall_c1: if (qc(i,k)>qsmall) then - call get_cloud_dsd2(qc(i,k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu, & - lamc(i,k),lammin,lammax,tmp1,tmp2) + qc_notsmall_c1: if (qc(i,k)*iSCF(k)>qsmall) then + call get_cloud_dsd2(qc(i,k)*iSCF(k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu, & + lamc(i,k),lammin,lammax,tmp1,tmp2,iSCF(k)) dum = 1./lamc(i,k)**bcn V_qc(k) = acn(i,k)*gamma(4.+bcn+mu_c(i,k))*dum/(gamma(mu_c(i,k)+4.)) endif qc_notsmall_c1 @@ -2924,7 +3481,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !find top, determine qxpresent do k = ktop,kbot,-kdir - if (qr(i,k).ge.qsmall) then + if (qr(i,k)*iSPF(k).ge.qsmall) then log_qxpresent = .true. k_qxtop = k exit @@ -2938,7 +3495,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !find bottom do k = kbot,k_qxtop,kdir - if (qr(i,k).ge.qsmall) then + if (qr(i,k)*iSPF(k).ge.qsmall) then k_qxbot = k exit endif @@ -2946,34 +3503,46 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss substep_sedi_r: do while (dt_left.gt.1.e-4) - Co_max = 0. - V_qr = 0. - V_nr = 0. + Co_max = 0. + V_qr(:) = 0. + V_nr(:) = 0. kloop_sedi_r1: do k = k_qxtop,k_qxbot,-kdir - qr_notsmall_r1: if (qr(i,k)>qsmall) then + qr_notsmall_r1: if (qr(i,k)*iSPF(k)>qsmall) then !Compute Vq, Vn: nr(i,k) = max(nr(i,k),nsmall) - call get_rain_dsd2(qr(i,k),nr(i,k),mu_r(i,k),rdumii,dumii,lamr(i,k), & - mu_r_table,tmp1,tmp2) + call get_rain_dsd2(qr(i,k)*iSPF(k),nr(i,k),mu_r(i,k),lamr(i,k), & + mu_r_table,cdistr(i,k),logn0r(i,k),iSPF(k)) + call find_lookupTable_indices_3(dumii,dumjj,dum1,rdumii,rdumjj,inv_dum3, & mu_r(i,k),lamr(i,k)) !mass-weighted fall speed: - dum1 = vm_table(dumii,dumjj)+(rdumii-real(dumii))*inv_dum3* & +! bug fix 12/23/18 +! dum1 = vm_table(dumii,dumjj)+(rdumii-real(dumii))*inv_dum3* & +! (vm_table(dumii+1,dumjj)-vm_table(dumii,dumjj)) !at mu_r +! dum2 = vm_table(dumii,dumjj+1)+(rdumii-real(dumii))*inv_dum3* & +! (vm_table(dumii+1,dumjj+1)-vm_table(dumii,dumjj+1)) !at mu_r+1 + dum1 = vm_table(dumii,dumjj)+(rdumii-real(dumii))* & (vm_table(dumii+1,dumjj)-vm_table(dumii,dumjj)) !at mu_r - dum2 = vm_table(dumii,dumjj+1)+(rdumii-real(dumii))*inv_dum3* & + dum2 = vm_table(dumii,dumjj+1)+(rdumii-real(dumii))* & (vm_table(dumii+1,dumjj+1)-vm_table(dumii,dumjj+1)) !at mu_r+1 + V_qr(k) = dum1 + (rdumjj-real(dumjj))*(dum2-dum1) !interpolated V_qr(k) = V_qr(k)*rhofacr(i,k) !corrected for air density ! number-weighted fall speed: - dum1 = vn_table(dumii,dumjj)+(rdumii-real(dumii))*inv_dum3* & - (vn_table(dumii+1,dumjj)-vn_table(dumii,dumjj) ) !at mu_r +! bug fix 12/23/18 +! dum1 = vn_table(dumii,dumjj)+(rdumii-real(dumii))*inv_dum3* & +! (vn_table(dumii+1,dumjj)-vn_table(dumii,dumjj)) !at mu_r +! dum2 = vn_table(dumii,dumjj+1)+(rdumii-real(dumii))*inv_dum3* & +! (vn_table(dumii+1,dumjj+1)-vn_table(dumii,dumjj+1)) !at mu_r+1 + dum1 = vn_table(dumii,dumjj)+(rdumii-real(dumii))* & + (vn_table(dumii+1,dumjj)-vn_table(dumii,dumjj)) !at mu_r + dum2 = vn_table(dumii,dumjj+1)+(rdumii-real(dumii))* & + (vn_table(dumii+1,dumjj+1)-vn_table(dumii,dumjj+1)) !at mu_r+1 - dum2 = vn_table(dumii,dumjj+1)+(rdumii-real(dumii))*inv_dum3* & - (vn_table(dumii+1,dumjj+1)-vn_table(dumii,dumjj+1)) !at mu_r+1 V_nr(k) = dum1+(rdumjj-real(dumjj))*(dum2-dum1) !interpolated V_nr(k) = V_nr(k)*rhofacr(i,k) !corrected for air density @@ -2998,6 +3567,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss do k = k_temp,k_qxtop,kdir flux_qx(k) = V_qr(k)*qr(i,k)*rho(i,k) flux_nx(k) = V_nr(k)*nr(i,k)*rho(i,k) + mflux_r(i,k) = flux_qx(k) !store mass flux for use in visibility diagnostic) enddo !accumulated precip during time step @@ -3065,10 +3635,10 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss substep_sedi_i: do while (dt_left.gt.1.e-4) - Co_max = 0. - V_qit = 0. - V_nit = 0. - !V_zit = 0. + Co_max = 0. + V_qit(:) = 0. + V_nit(:) = 0. + !V_zit(:) = 0. kloop_sedi_i1: do k = k_qxtop,k_qxbot,-kdir @@ -3128,6 +3698,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss flux_qir(k) = V_qit(k)*qirim(i,k,iice)*rho(i,k) flux_bir(k) = V_qit(k)*birim(i,k,iice)*rho(i,k) !flux_zit(k) = V_zit(k)*zitot(i,k,iice)*rho(i,k) + mflux_i(i,k) = flux_qit(k) !store mass flux for use in visibility diagnostic) enddo !accumulated precip during time step @@ -3179,13 +3750,19 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !------------------------------------------------------------------------------------------! - -! if (debug_ON) call check_values(qv,T,qc,qr,nr,qitot,qirim,nitot,birim,i,it,.true.,debug_ABORT,600) +! if (debug_on) call check_values(qv(i,:),T(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:), & +! qitot(i,:,:),qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it, & +! debug_ABORT,600) +! if (global_status /= STATUS_OK) return !------------------------------------------------------------------------------------------! ! End of sedimentation section !==========================================================================================! + !third and last call to compute_SCPF + call compute_SCPF(Qc(i,:)+sum(Qitot(i,:,:),dim=2),Qr(i,:),Qv(i,:),Qvi(i,:), & + Pres(i,:),ktop,kbot,kdir,SCF,iSCF,SPF,iSPF,SPF_clr,Qv_cld,Qv_clr, & + SCPF_on,scpf_pfrac,scpf_resfact,quick=.true.) !....................................... ! homogeneous freezing of cloud and rain @@ -3209,8 +3786,9 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !determine destination ice-phase category: dum1 = 900. !density of new ice D_new = ((Q_nuc*6.)/(pi*dum1*N_nuc))**thrd - call icecat_destination(qitot(i,k,:),diam_ice(i,k,:),D_new,deltaD_init, & + call icecat_destination(qitot(i,k,:)*iSCF(k),diam_ice(i,k,:),D_new,deltaD_init, & iice_dest) + if (global_status /= STATUS_OK) return else iice_dest = 1 endif @@ -3218,7 +3796,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss qitot(i,k,iice_dest) = qitot(i,k,iice_dest) + Q_nuc birim(i,k,iice_dest) = birim(i,k,iice_dest) + Q_nuc*inv_rho_rimeMax nitot(i,k,iice_dest) = nitot(i,k,iice_dest) + N_nuc - th(i,k) = th(i,k) + th(i,k)/t(i,k)*Q_nuc*xlf(i,k)*inv_cp + th(i,k) = th(i,k) + invexn(i,k)*Q_nuc*xlf(i,k)*inv_cp qc(i,k) = 0. != qc(i,k) - Q_nuc nc(i,k) = 0. != nc(i,k) - N_nuc endif @@ -3230,8 +3808,8 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss !determine destination ice-phase category: dum1 = 900. !density of new ice D_new = ((Q_nuc*6.)/(pi*dum1*N_nuc))**thrd - call icecat_destination(qitot(i,k,:),diam_ice(i,k,:),D_new,deltaD_init, & - iice_dest) + call icecat_destination(qitot(i,k,:)*iSCF(k),diam_ice(i,k,:),D_new,deltaD_init,iice_dest) + if (global_status /= STATUS_OK) return else iice_dest = 1 endif @@ -3239,14 +3817,17 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss qitot(i,k,iice_dest) = qitot(i,k,iice_dest) + Q_nuc birim(i,k,iice_dest) = birim(i,k,iice_dest) + Q_nuc*inv_rho_rimeMax nitot(i,k,iice_dest) = nitot(i,k,iice_dest) + N_nuc - th(i,k) = th(i,k) + th(i,k)/t(i,k)*Q_nuc*xlf(i,k)*inv_cp + th(i,k) = th(i,k) + invexn(i,k)*Q_nuc*xlf(i,k)*inv_cp qr(i,k) = 0. ! = qr(i,k) - Q_nuc nr(i,k) = 0. ! = nr(i,k) - N_nuc endif enddo k_loop_fz -! if (debug_ON) call check_values(qv,T,qc,qr,nr,qitot,qirim,nitot,birim,i,it,.true.,debug_ABORT,700) + if (debug_on) call check_values(qv(i,:),T(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:), & + qitot(i,:,:),qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it, & + debug_ABORT,700) + if (global_status /= STATUS_OK) return !................................................... ! final checks to ensure consistency of mass/number @@ -3255,13 +3836,13 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss k_loop_final_diagnostics: do k = kbot,ktop,kdir ! cloud: - if (qc(i,k).ge.qsmall) then - call get_cloud_dsd2(qc(i,k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu,lamc(i,k), & - lammin,lammax,tmp1,tmp2) + if (qc(i,k)*iSCF(k).ge.qsmall) then + call get_cloud_dsd2(qc(i,k)*iSCF(k),nc(i,k),mu_c(i,k),rho(i,k),nu(i,k),dnu,lamc(i,k), & + lammin,lammax,tmp1,tmp2, iSCF(k)) diag_effc(i,k) = 0.5*(mu_c(i,k)+3.)/lamc(i,k) else qv(i,k) = qv(i,k)+qc(i,k) - th(i,k) = th(i,k)-th(i,k)/t(i,k)*qc(i,k)*xxlv(i,k)*inv_cp + th(i,k) = th(i,k)-invexn(i,k)*qc(i,k)*xxlv(i,k)*inv_cp qc(i,k) = 0. nc(i,k) = 0. endif @@ -3269,11 +3850,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! rain: if (qr(i,k).ge.qsmall) then -! call get_rain_dsd(qr(i,k),nr(i,k),mu_r(i,k),rdumii,dumii,lamr(i,k),mu_r_table, & -! tmp1,tmp2,log_tmp1,tmpint1,tmpint2) - call get_rain_dsd2(qr(i,k),nr(i,k),mu_r(i,k),rdumii,dumii,lamr(i,k),mu_r_table, & -! cdistr(i,k),logn0r(i,k)) - tmp1,tmp2) + call get_rain_dsd2(qr(i,k),nr(i,k),mu_r(i,k),lamr(i,k),mu_r_table,tmp1,tmp2,1.) ! hm, turn off soft lambda limiter ! impose size limits for rain with 'soft' lambda limiter @@ -3294,7 +3871,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ze_rain(i,k) = max(ze_rain(i,k),1.e-22) else qv(i,k) = qv(i,k)+qr(i,k) - th(i,k) = th(i,k)-th(i,k)/t(i,k)*qr(i,k)*xxlv(i,k)*inv_cp + th(i,k) = th(i,k)-invexn(i,k)*qr(i,k)*xxlv(i,k)*inv_cp qr(i,k) = 0. nr(i,k) = 0. endif @@ -3352,7 +3929,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss else qv(i,k) = qv(i,k) + qitot(i,k,iice) - th(i,k) = th(i,k) - th(i,k)/t(i,k)*qitot(i,k,iice)*xxls(i,k)*inv_cp + th(i,k) = th(i,k) - invexn(i,k)*qitot(i,k,iice)*xxls(i,k)*inv_cp qitot(i,k,iice) = 0. nitot(i,k,iice) = 0. qirim(i,k,iice) = 0. @@ -3374,7 +3951,10 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss enddo k_loop_final_diagnostics -! if (debug_ON) call check_values(qv,T,qc,qr,nr,qitot,qirim,nitot,birim,i,it,.true.,debug_ABORT,800) + if (debug_on) call check_values(qv(i,:),T(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:), & + qitot(i,:,:),qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it, & + debug_ABORT,800) + if (global_status /= STATUS_OK) return !.............................................. ! merge ice categories with similar properties @@ -3395,13 +3975,13 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss nitot(i,k,iice-1) = nitot(i,k,iice-1) + nitot(i,k,iice) qirim(i,k,iice-1) = qirim(i,k,iice-1) + qirim(i,k,iice) birim(i,k,iice-1) = birim(i,k,iice-1) + birim(i,k,iice) - ! zitot(i,k,iice-1) = zitot(i,k,iice-1) + zitot(i,k,iice) + !zitot(i,k,iice-1) = zitot(i,k,iice-1) + zitot(i,k,iice) qitot(i,k,iice) = 0. nitot(i,k,iice) = 0. qirim(i,k,iice) = 0. birim(i,k,iice) = 0. - ! zitot(i,k,iice) = 0. + !zitot(i,k,iice) = 0. endif @@ -3423,11 +4003,82 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss enddo endif - if (debug_ON) then + + if (.not. SCPF_on) then + + ! calculate a 'binary' cloud fraction (0 or 1) based on supersaturation + ! (diagnostic field only -- used in GEM radiation interface) + do k = kbot,ktop,kdir + SCF_out(i,k) = 0. + if (qc(i,k).ge.qsmall .and. sup(i,k).gt.1.e-6) SCF_out(i,k) = 1. + do iice = 1,nCat + if (qitot(i,k,iice).ge.qsmall .and. diag_effi(i,k,iice).lt.100.e-6) SCF_out(i,k) = 1. + enddo + enddo + !=== + + else + + do k = kbot,ktop,kdir + if (qc(i,k)+sum(qitot(i,k,:)) > qsmall) then + SCF_out(i,k) = SCF(k) + else + SCF_out(i,k) = 0. + endif + enddo + + endif + + + if (debug_on) then tmparr1(i,:) = th(i,:)*(pres(i,:)*1.e-5)**(rd*inv_cp) - call check_values(qv,tmparr1,qc,qr,nr,qitot,qirim,nitot,birim,i,it,.true.,debug_ABORT,900) + call check_values(qv(i,:),tmparr1(i,:),qc(i,:),nc(i,:),qr(i,:),nr(i,:), & + qitot(i,:,:),qirim(i,:,:),nitot(i,:,:),birim(i,:,:),i,it, & + debug_ABORT,900) + if (global_status /= STATUS_OK) return endif + !.............................................. + !Diagnostics -- visibility: + + if (present(diag_vis)) then !it is assumed that all diag_vis{x} will either be present or all not present + + diag_vis(i,:) = 3.*maxVIS + diag_vis1(i,:) = 3.*maxVIS + diag_vis2(i,:) = 3.*maxVIS + diag_vis3(i,:) = 3.*maxVIS + + do k = kbot,ktop,kdir + !VIS1: component through liquid cloud (fog); based on Gultepe and Milbrandt, 2007) + tmp1 = qc(i,k)*rho(i,k)*1.e+3 !LWC [g m-3] + tmp2 = nc(i,k)*rho(i,k)*1.e-6 !Nc [cm-3] + if (tmp1>0.005 .and. tmp2>1.) then + diag_vis1(i,k)= max(minVIS,1000.*(1.13*(tmp1*tmp2)**(-0.51))) !based on FRAM [GM2007, eqn (4) + !diag_vis1(i,k)= max(minVIS,min(maxVIS, (tmp1*tmp2)**(-0.65))) !based on RACE [GM2007, eqn (3) + endif + + !VIS2: component through rain; based on Gultepe and Milbrandt, 2008, Table 2 eqn (1) + tmp1 = mflux_r(i,k)*inv_rhow*3.6e+6 !rain rate [mm h-1] + if (tmp1>0.01) then + diag_vis2(i,k)= max(minVIS,1000.*(-4.12*tmp1**0.176+9.01)) ![m] + endif + + !VIS3: component through snow; based on Gultepe and Milbrandt, 2008, Table 2 eqn (6) + tmp1 = mflux_i(i,k)*inv_rhow*3.6e+6 !snow rate, liq-eq [mm h-1] + if (tmp1>0.01) then + diag_vis3(i,k)= max(minVIS,1000.*(1.10*tmp1**(-0.701))) ![m] + endif + + !VIS: visibility due to reduction from all components 1, 2, and 3 + ! (based on sum of extinction coefficients and Koschmieders's Law) + diag_vis(i,k) = min(maxVIS, 1./(1./diag_vis1(i,k) + 1./diag_vis2(i,k) + 1./diag_vis3(i,k))) + diag_vis1(i,k)= min(maxVIS, diag_vis1(i,k)) + diag_vis2(i,k)= min(maxVIS, diag_vis2(i,k)) + diag_vis3(i,k)= min(maxVIS, diag_vis3(i,k)) + enddo !k-loop + + endif !if present(diag_vis) + !..................................................... enddo i_loop_main @@ -3436,10 +4087,10 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss ! note: This is not necessary for GEM, which already has these values available ! from the beginning of the model time step (TT_moins and HU_moins) when ! s/r 'p3_wrapper_gem' is called (from s/r 'condensation'). - if (trim(model) == 'WRF') then +!! if (trim(model) == 'WRF') then th_old = th qv_old = qv - endif +!! endif !........................................................................................... ! Compute diagnostic hydrometeor types for output as 3D fields and @@ -3453,16 +4104,19 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss print*,'*** ABORT IN P3_MAIN ***' print*,'* typeDiags_ON = .true. but prt_drzl, etc. are not passed into P3_MAIN' print*,'*************************' - stop + global_status = STATUS_ERROR + return endif - prt_drzl = 0. - prt_rain = 0. - prt_crys = 0. - prt_snow = 0. - prt_grpl = 0. - prt_pell = 0. - prt_hail = 0. - prt_sndp = 0. + + prt_drzl(:) = 0. + prt_rain(:) = 0. + prt_crys(:) = 0. + prt_snow(:) = 0. + prt_grpl(:) = 0. + prt_pell(:) = 0. + prt_hail(:) = 0. + prt_sndp(:) = 0. + if (present(qi_type)) qi_type(:,:,:) = 0. if (freq3DtypeDiag>0. .and. mod(it*dt,freq3DtypeDiag*60.)==0.) then !diagnose hydrometeor types for full columns @@ -3479,7 +4133,7 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss Q_drizzle(i,k) = 0. Q_rain(i,k) = 0. - !note: theese can be broken down further (outside of microphysics) into + !note: these can be broken down further (outside of microphysics) into ! liquid rain (drizzle) vs. freezing rain (drizzle) based on sfc temp. if (qr(i,k)>qsmall .and. nr(i,k)>nsmall) then tmp1 = (qr(i,k)/(pi*rhow*nr(i,k)))**thrd !mean-mass diameter @@ -3497,12 +4151,6 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss elseif (Q_rain(i,kbot) > 0.) then prt_rain(i) = prt_liq(i) endif - !--- optimized version above above IF block (does not work on all FORTRAN compilers) -! tmp1 = -(Q_drizzle(i,kbot) > 0.) !note: tmp1=1.0 if Q_drizzle>0., else tmp1=0.0 -! tmp2 = -(Q_rain(i,kbot) > 0.) -! prt_drzl(i) = prt_liq(i)*tmp1 !precip rate of drizzle -! prt_rain(i) = prt_liq(i)*tmp2 !precip rate of rain - !=== !-- ice-phase: iice_loop_diag: do iice = 1,nCat @@ -3516,6 +4164,9 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss Q_pellets(i,k,iice) = 0. Q_hail(i,k,iice) = 0. + !Note: The following partitioning of ice into types is subjective. However, + ! this is a diagnostic only; it does not affect the model solution. + if (qitot(i,k,iice)>qsmall) then tmp1 = qirim(i,k,iice)/qitot(i,k,iice) !rime mass fraction if (tmp1<0.1) then @@ -3525,10 +4176,10 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss else Q_ursnow(i,k,iice) = qitot(i,k,iice) endif - elseif (tmp1>=0.1 .and. tmp1<0.25) then + elseif (tmp1>=0.1 .and. tmp1<0.6) then !lightly rimed: Q_lrsnow(i,k,iice) = qitot(i,k,iice) - elseif (tmp1>=0.25 .and. tmp1<=1.) then + elseif (tmp1>=0.6 .and. tmp1<=1.) then !moderate-to-heavily rimed: if (diag_rhoi(i,k,iice)<700.) then Q_grpl(i,k,iice) = qitot(i,k,iice) @@ -3541,7 +4192,8 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss endif else print*, 'STOP -- unrealistic rime fraction: ',tmp1 - stop + global_status = STATUS_ERROR + return endif endif !qitot>0 @@ -3589,18 +4241,19 @@ SUBROUTINE p3_main(qc,nc,qr,nr,th_old,th,qv_old,qv,dt,qitot,qirim,nitot,birim,ss enddo i_loop_typediag - !- for output of 3D fields of diagnostic hydrometeor type (for iice = 1) -! if (ktop_typeDiag == ktop) then -! diag_3d(:,:,1) = Q_drizzle(:,:) -! diag_3d(:,:,2) = Q_rain(:,:) -! diag_3d(:,:,3) = Q_crystals(:,:,1) -! diag_3d(:,:,4) = Q_ursnow(:,:,1) -! diag_3d(:,:,5) = Q_lrsnow(:,:,1) -! diag_3d(:,:,6) = Q_grpl(:,:,1) -! diag_3d(:,:,7) = Q_pellets(:,:,1) -! diag_3d(:,:,8) = Q_hail(:,:,1) -! endif - != + !- for output of 3D fields of diagnostic ice-phase hydrometeor type + if (ktop_typeDiag==ktop .and. present(qi_type)) then + !diag_3d(:,:,1) = Q_drizzle(:,:) + !diag_3d(:,:,2) = Q_rain(:,:) + do ii = 1,nCat + qi_type(:,:,1) = qi_type(:,:,1) + Q_crystals(:,:,ii) + qi_type(:,:,2) = qi_type(:,:,2) + Q_ursnow(:,:,ii) + qi_type(:,:,3) = qi_type(:,:,3) + Q_lrsnow(:,:,ii) + qi_type(:,:,4) = qi_type(:,:,4) + Q_grpl(:,:,ii) + qi_type(:,:,5) = qi_type(:,:,5) + Q_hail(:,:,ii) + qi_type(:,:,6) = qi_type(:,:,6) + Q_pellets(:,:,ii) + enddo + endif endif compute_type_diags @@ -3754,13 +4407,13 @@ END SUBROUTINE access_lookup_table_coll !------------------------------------------------------------------------------------------! - SUBROUTINE access_lookup_table_colli(dumjjc,dumiic,dumic,dumjj,dumii,dumj,dumi, & - index,dum1c,dum4c,dum5c,dum1,dum4,dum5,proc) + SUBROUTINE access_lookup_table_colli(dumjjc,dumiic,dumic,dumjj,dumii,dumj,dumi, & + index,dum1c,dum4c,dum5c,dum1,dum4,dum5,proc) implicit none - real :: dum1,dum4,dum5,dum1c,dum4c,dum5c,proc,dproc1,dproc2,iproc1,iproc2,gproc1, & - gproc2,rproc1,rproc2,tmp1,tmp2,dproc11,dproc12 + real :: dum1,dum4,dum5,dum1c,dum4c,dum5c,proc,dproc1,dproc2,iproc1,iproc2, & + gproc1,gproc2,rproc1,rproc2,tmp1,tmp2,dproc11,dproc12 integer :: dumjj,dumii,dumj,dumi,index,dumjjc,dumiic,dumic @@ -3815,8 +4468,8 @@ SUBROUTINE access_lookup_table_colli(dumjjc,dumiic,dumic,dumjj,dumii,dumj,dumi, ! collector rime fraction index + 1 - dproc11 = itabcolli1(dumic,dumiic,dumjjc,dumi,dumii+1,dumjj+1)+(dum1c-real(dumic))*& - (itabcolli1(dumic+1,dumiic,dumjjc,dumi,dumii+1,dumjj+1)- & + dproc11 = itabcolli1(dumic,dumiic,dumjjc,dumi,dumii+1,dumjj+1)+(dum1c-real(dumic))* & + (itabcolli1(dumic+1,dumiic,dumjjc,dumi,dumii+1,dumjj+1)- & itabcolli1(dumic,dumiic,dumjjc,dumi,dumii+1,dumjj+1)) dproc12 = itabcolli1(dumic,dumiic,dumjjc,dumi+1,dumii+1,dumjj+1)+(dum1c-real(dumic))* & @@ -4761,8 +5414,8 @@ subroutine icecat_destination(Qi,Di,D_nuc,deltaD_init,iice_dest) endif print*, 'ERROR in s/r icecat_destination -- made it to end' - stop - + global_status = STATUS_ERROR + return end subroutine icecat_destination @@ -4795,7 +5448,8 @@ subroutine find_lookupTable_indices_1a(dumi,dumjj,dumii,dumzz,dum1,dum4,dum5,dum ! dum1 = (alog10(qitot)+16.)*1.41328 ! we are inverting this equation from the lookup table to solve for i: ! qitot/nitot=261.7**((i+10)*0.1)*1.e-18 - dum1 = (alog10(qitot/nitot)+18.)/(0.1*alog10(261.7))-10. +! dum1 = (alog10(qitot/nitot)+18.)/(0.1*alog10(261.7))-10. ! orig + dum1 = (alog10(qitot/nitot)+18.)*(4.13599)-10. ! for computational efficiency dumi = int(dum1) ! set limits (to make sure the calculated index doesn't exceed range of lookup table) dum1 = min(dum1,real(isize)) @@ -4886,7 +5540,7 @@ end subroutine find_lookupTable_indices_1b subroutine find_lookupTable_indices_2(dumi, dumii, dumjj, dumic, dumiic, dumjjc, & dum1, dum4, dum5, dum1c, dum4c, dum5c, & iisize, rimsize, densize, & - qitot_1, qitot_2, nitot_1, nitot_2, & + qitot_1, qitot_2, nitot_1, nitot_2, & qirim_1, qirim_2, birim_1, birim_2) !------------------------------------------------------------------------------------------! @@ -4910,7 +5564,8 @@ subroutine find_lookupTable_indices_2(dumi, dumii, dumjj, dumic, dumiic, du ! find index for qi (total ice mass mixing ratio) ! replace with new inversion for new lookup table 2 w/ reduced dimensionality - dum1 = (alog10(qitot_1/nitot_1)+18.)/(0.2*alog10(261.7))-5. +! dum1 = (alog10(qitot_1/nitot_1)+18.)/(0.2*alog10(261.7))-5. !orig + dum1 = (alog10(qitot_1/nitot_1)+18.)*(2.06799)-5. !for computational efficiency dumi = int(dum1) dum1 = min(dum1,real(iisize)) dum1 = max(dum1,1.) @@ -4953,8 +5608,8 @@ subroutine find_lookupTable_indices_2(dumi, dumii, dumjj, dumic, dumiic, du ! find index in lookup table for collectee category, here 'q' is a scaled q/N ! find index for qi (total ice mass mixing ratio) -! dum1c = (alog10(qitot_2/nitot_2)+16.) ! TO BE REMOVED - dum1c = (alog10(qitot_2/nitot_2)+18.)/(0.2*alog10(261.7))-5. +! dum1c = (alog10(qitot_2/nitot_2)+18.)/(0.2*alog10(261.7))-5. !orig + dum1c = (alog10(qitot_2/nitot_2)+18.)/(0.483561)-5. !for computational efficiency dumic = int(dum1c) dum1c = min(dum1c,real(iisize)) dum1c = max(dum1c,1.) @@ -5040,24 +5695,28 @@ end subroutine find_lookupTable_indices_3 !=========================================================================================== - subroutine get_cloud_dsd2(qc,nc,mu_c,rho,nu,dnu,lamc,lammin,lammax,cdist,cdist1) + subroutine get_cloud_dsd2(qc,nc_grd,mu_c,rho,nu,dnu,lamc,lammin,lammax,cdist,cdist1,iCF) implicit none !arguments: real, dimension(:), intent(in) :: dnu - real, intent(in) :: qc,rho - real, intent(inout) :: nc + real, intent(in) :: rho + real, intent(in) :: qc + real, intent(inout) :: nc_grd !grid-mean value real, intent(out) :: mu_c,nu,lamc,cdist,cdist1 + real, intent(in) :: iCF !local variables - real :: lammin,lammax + real :: lammin,lammax,nc integer :: dumi !-------------------------------------------------------------------------- if (qc.ge.qsmall) then + nc = nc_grd*iCF + ! set minimum nc to prevent floating point error nc = max(nc,nsmall) mu_c = 0.0005714*(nc*1.e-6*rho)+0.2714 @@ -5087,7 +5746,8 @@ subroutine get_cloud_dsd2(qc,nc,mu_c,rho,nu,dnu,lamc,lammin,lammax,cdist,cdist1) endif cdist = nc*(mu_c+1.)/lamc - cdist1 = nc/gamma(mu_c+1.) + nc_grd = nc/iCF !restore modified in-cloud vale to grid-mean value + cdist1 = nc_grd/gamma(mu_c+1.) else @@ -5101,7 +5761,7 @@ end subroutine get_cloud_dsd2 !=========================================================================================== - subroutine get_rain_dsd2(qr,nr,mu_r,rdumii,dumii,lamr,mu_r_table,cdistr,logn0r) + subroutine get_rain_dsd2(qr,nr_grd,mu_r,lamr,mu_r_table,cdistr,logn0r,iPF) ! Computes and returns rain size distribution parameters @@ -5110,17 +5770,20 @@ subroutine get_rain_dsd2(qr,nr,mu_r,rdumii,dumii,lamr,mu_r_table,cdistr,logn0r) !arguments: real, dimension(:), intent(in) :: mu_r_table real, intent(in) :: qr - real, intent(inout) :: nr - real, intent(out) :: rdumii,lamr,mu_r,cdistr,logn0r - integer, intent(out) :: dumii + real, intent(inout) :: nr_grd !grid-mean value + real, intent(out) :: lamr,mu_r,cdistr,logn0r + real, intent(in) :: iPF !local variables: - real :: inv_dum,lammax,lammin + real :: inv_dum,lammax,lammin,nr,rdumii + integer :: dumii !-------------------------------------------------------------------------- if (qr.ge.qsmall) then + nr = nr_grd*iPF + ! use lookup table to get mu ! mu-lambda relationship is from Cao et al. (2008), eq. (7) @@ -5129,21 +5792,25 @@ subroutine get_rain_dsd2(qr,nr,mu_r,rdumii,dumii,lamr,mu_r_table,cdistr,logn0r) nr = max(nr,nsmall) inv_dum = (qr/(cons1*nr*6.))**thrd - if (inv_dum.lt.282.e-6) then - mu_r = 8.282 - elseif (inv_dum.ge.282.e-6 .and. inv_dum.lt.502.e-6) then - ! interpolate - rdumii = (inv_dum-250.e-6)*1.e+6*0.5 - rdumii = max(rdumii,1.) - rdumii = min(rdumii,150.) - dumii = int(rdumii) - dumii = min(149,dumii) - mu_r = mu_r_table(dumii)+(mu_r_table(dumii+1)-mu_r_table(dumii))*(rdumii- & - real(dumii)) - elseif (inv_dum.ge.502.e-6) then - mu_r = 0. - endif - + ! apply constant mu_r: + mu_r = mu_r_constant + +!--- apply diagnostic (variable) mu_r: +! if (inv_dum.lt.282.e-6) then +! mu_r = 8.282 +! elseif (inv_dum.ge.282.e-6 .and. inv_dum.lt.502.e-6) then +! ! interpolate +! rdumii = (inv_dum-250.e-6)*1.e+6*0.5 +! rdumii = max(rdumii,1.) +! rdumii = min(rdumii,150.) +! dumii = int(rdumii) +! dumii = min(149,dumii) +! mu_r = mu_r_table(dumii)+(mu_r_table(dumii+1)-mu_r_table(dumii))*(rdumii- & +! real(dumii)) +! elseif (inv_dum.ge.502.e-6) then +! mu_r = 0. +! endif +!=== lamr = (cons1*nr*(mu_r+3.)*(mu_r+2)*(mu_r+1.)/(qr))**thrd ! recalculate slope based on mu_r lammax = (mu_r+1.)*1.e+5 ! check for slope lammin = (mu_r+1.)*1250. ! set to small value since breakup is explicitly included (mean size 0.8 mm) @@ -5157,8 +5824,9 @@ subroutine get_rain_dsd2(qr,nr,mu_r,rdumii,dumii,lamr,mu_r_table,cdistr,logn0r) nr = exp(3.*log(lamr)+log(qr)+log(gamma(mu_r+1.))-log(gamma(mu_r+4.)))/(cons1) endif - cdistr = nr/gamma(mu_r+1.) logn0r = alog10(nr)+(mu_r+1.)*alog10(lamr)-alog10(gamma(mu_r+1)) !note: logn0r is calculated as log10(n0r) + nr_grd = nr/iPF !after modification (by application of lambda limiter), restore to grid-mean value + cdistr = nr_grd/gamma(mu_r+1.) else @@ -5168,6 +5836,8 @@ subroutine get_rain_dsd2(qr,nr,mu_r,rdumii,dumii,lamr,mu_r_table,cdistr,logn0r) endif + !nr_grd = nr/iPF !after modification (by application of lambda limiter), restore to grid-mean value + end subroutine get_rain_dsd2 @@ -5265,7 +5935,7 @@ real function qv_sat(t_atm,p_atm,i_wrt) integer :: i_wrt !index, 0 = w.r.t. liquid, 1 = w.r.t. ice !Local variables: - real :: e_pres !saturation vapor pressure [Pa] + real :: e_pres !saturation vapor pressure [Pa] !------------------ @@ -5274,11 +5944,10 @@ real function qv_sat(t_atm,p_atm,i_wrt) return end function qv_sat - !=========================================================================================== - subroutine check_values(Qv,T,Qc,Qr,Nr,Qitot,Qirim,Nitot,Birim,i,timestepcount, & - check_consistency,force_abort,source_ind) + subroutine check_values(Qv,T,Qc,Nc,Qr,Nr,Qitot,Qirim,Nitot,Birim,i,timestepcount, & + force_abort,source_ind) !------------------------------------------------------------------------------------ ! Checks current values of prognotic variables for reasonable values and @@ -5299,11 +5968,12 @@ subroutine check_values(Qv,T,Qc,Qr,Nr,Qitot,Qirim,Nitot,Birim,i,timestepcount, implicit none !Calling parameters: - real, dimension(:,:), intent(in) :: Qv,T,Qc,Qr,Nr !,Nc - real, dimension(:,:,:), intent(in) :: Qitot,Qirim,Nitot,Birim - integer, intent(in) :: source_ind,i,timestepcount - logical, intent(in) :: force_abort !.TRUE. = forces abort if value violation is detected - logical, intent(in) :: check_consistency !.TRUE. = check for sign consistency between Qx and Nx + real, dimension(:), intent(in) :: Qv,T,Qc,Qr,Nr,Nc + real, dimension(:,:), intent(in) :: Qitot,Qirim,Nitot,Birim + integer, intent(in) :: source_ind,i,timestepcount + logical, intent(in) :: force_abort !.TRUE. = forces abort if value violation is detected + + !logical, intent(in) :: check_consistency !.TRUE. = check for sign consistency between Qx and Nx !Local variables: real, parameter :: T_low = 173. @@ -5311,101 +5981,101 @@ subroutine check_values(Qv,T,Qc,Qr,Nr,Qitot,Qirim,Nitot,Birim,i,timestepcount, real, parameter :: Q_high = 40.e-3 real, parameter :: N_high = 1.e+20 real, parameter :: B_high = Q_high*1.e-3 - real, parameter :: x_high = 1.e+30 - real, parameter :: x_low = 0. integer :: k,iice,ni,nk,ncat - logical :: trap,badvalue_found + logical :: badvalue_found - nk = size(Qitot,dim=2) - ncat = size(Qitot,dim=3) + nk = size(Qitot,dim=1) + nCat = size(Qitot,dim=2) - trap = .false. + badvalue_found = .false. k_loop: do k = 1,nk - ! check unrealistic values or NANs for T and Qv - if (.not.(T(i,k)>T_low .and. T(i,k)=0. .and. Qv(i,k)T_low .and. T(k)=0. .and. Qv(k)0..and.Nc(k)<=0.) .or. (Qc(k)<=0..and.Nc(k)>0.)) & !inconsistency + .or. Qc(k)<0. .or. Qc(k)>Q_high & + .or. Nc(k)<0. .or. Nc(k)>N_high ) & !unrealistic values + .and. source_ind /= 100 & !skip trap for this source_ind + .and. source_ind /= 200 & !skip trap for this source_ind + .and. source_ind /= 300 ) then !skip trap for this source_ind + write(6,'(a45,4i5,4e15.6)') '*C WARNING IN P3_MAIN -- src,i,k,stepQc,Nc: ', & + source_ind,i,k,timestepcount,Qc(k),Nc(k) + badvalue_found = .true. + endif + + ! check unrealistic values Qr,Nr + if ( .not.(Qr(k)==0. .and. Nr(k)==0.) .and. & !ignore for all zeroes + ( ((Qr(k)>0..and.Nr(k)<=0.) .or. (Qr(k)<=0..and.Nr(k)>0.)) & !inconsistency + .or. Qr(k)<0. .or. Qr(k)>Q_high & + .or. Nr(k)<0. .or. Nr(k)>N_high ) & !unrealistic values + .and. source_ind /= 100 & !skip trap for this source_ind + .and. source_ind /= 200 & !skip trap for this source_ind + .and. source_ind /= 300 ) then !skip trap for this source_ind + write(6,'(a45,4i5,4e15.6)') '*C WARNING IN P3_MAIN -- src,i,k,stepQr,Nr: ', & + source_ind,i,k,timestepcount,Qr(k),Nr(k) + badvalue_found = .true. + endif + + ! check unrealistic values Qitot,Qirim,Nitot,Birim + do iice = 1,ncat + if ( .not.(Qitot(k,iice)==0..and.Qirim(k,iice)==0..and.Nitot(k,iice)==0..and.Birim(k,iice)==0.).and. & !ignore for all zeroes + ( ((Qitot(k,iice)>0..and.Nitot(k,iice)<=0.) .or. (Qitot(k,iice)<=0..and.Nitot(k,iice)>0.) ) & !inconsistency + .or. Qitot(k,iice)<0. .or. Qitot(k,iice)>Q_high & !unrealistic values + .or. Qirim(k,iice)<0. .or. Qirim(k,iice)>Q_high & + .or. Nitot(k,iice)<0. .or. Nitot(k,iice)>N_high & + .or. Birim(k,iice)<0. .or. Birim(k,iice)>B_high ) & !skip trap for this source_ind + .and. source_ind /= 100 & !skip trap for this source_ind + .and. source_ind /= 200 & !skip trap for this source_ind + .and. source_ind /= 300 ) then + write(6,'(a68,5i5,4e15.6)') '*D WARNING IN P3_MAIN -- src,i,k,step,iice,Qitot,Qirim,Nitot,Birim: ', & + source_ind,i,k,timestepcount,iice,Qitot(k,iice),Qirim(k,iice),Nitot(k,iice),Birim(k,iice) + badvalue_found = .true. endif - - ! check NANs for mp variables: - badvalue_found = .false. -! if (.not.(Qc(i,k) >= x_low .and. Qc(i,k) < Q_high .and. & -! ! Nc(i,k) >= x_low .and. QN(i,k) < Q_high .and. & ! (for prog Nc) -! Qr(i,k) >= x_low .and. Qr(i,k) < Q_high .and. & -! Nr(i,k) >= x_lOw .and. Nr(i,k) < N_high)) then -! write(6,'(a48,4i5,4e15.6)') '** WARNING IN P3_MAIN -- src,i,k,step,Qc,Qr,Nr: ', & -! source_ind,i,k,timestepcount,Qc(i,k),Qr(i,k),Nr(i,k) -! badvalue_found = .true. -! endif -! do iice = 1,ncat -!-- for strict testing: -! if (.not.(Qitot(i,k,iice) >= x_low .and. Qitot(i,k,iice) < Q_high .and. & -! Qirim(i,k,iice) >= x_low .and. Qirim(i,k,iice) < Q_high .and. & -! Nitot(i,k,iice) >= x_low .and. Nitot(i,k,iice) < N_high .and. & -! Birim(i,k,iice) >= x_low .and. Birim(i,k,iice) < B_high)) then -!-- for "relaxed" testing (specifically, to avoid trapping understandable Qi-Ni values after microphysics source/sink section: -! if (.not.(Qitot(i,k,iice) >= x_low .and. Qitot(i,k,iice) < Q_high .and. & -! Qirim(i,k,iice) >= x_low .and. Qirim(i,k,iice) < Q_high .and. & -! Nitot(i,k,iice) >= x_low .and. Nitot(i,k,iice) < N_high .and. & -! Birim(i,k,iice) >= x_low .and. Birim(i,k,iice) < B_high) .and. & -! .not.(Qitot(i,k,iice)<1.e-4 .and. Nitot(i,k,iice)<0.) ) then -! !== -! write(6,'(a68,5i5,4e15.6)') '** WARNING IN P3_MAIN -- src,i,k,step,iice,Qitot,Qirim,Nitot,Birim: ', & -! source_ind,i,k,timestepcount,iice,Qitot(i,k,iice),Qirim(i,k,iice),Nitot(i,k,iice),Birim(i,k,iice) -! badvalue_found = .true. -! endif -! enddo -! if (badvalue_found) trap = .true. - - - ! check consistency amongst moments -! ! ! if (check_consistency) then -! ! if (.false.) then -! ! !-- future; prog Nc -! ! ! if ((Qc(i,k)>qsmall.and.Nc(i,k)nsmall)) then -! ! ! print*,'** WARNING IN MICRO **' -! ! ! print*, '** src,i,k,Qc,Nc: ',source_ind,i,k,Qc(i,k),Nc(i,k) -! ! ! trap = .true. -! ! ! endif -! ! !== -! ! if ((Qr(i,k)>qsmall.and.Nr(i,k)nsmall)) then -! ! print*,'** WARNING IN P3_MAIN **' -! ! print*, '** src,i,k,Qr,Nr: ',source_ind,i,k,Qr(i,k),Nr(i,k) -! ! trap = .true. -! ! endif -! ! do iice = 1,ncat -! ! if ( (Qitot(i,k,iice)>qsmall.and.Nitot(i,k,iice)nsmall)) then -! ! print*,'** WARNING IN P3_MAIN **' -! ! print*, '** src,i,k,iice,Qitot,Nitot: ',source_ind,i,k,iice, & -! ! Qitot(i,k,iice),Nitot(i,k,iice) -! ! trap = .true. -! ! endif -! ! if ( (Qirim(i,k,iice)>qsmall.and.Birim(i,k,iice)bsmall)) then -! ! print*, '** src,i,k,iice,Qirim,Birim: ',source_ind,i,k,iice, & -! ! Qirim(i,k,iice),Birim(i,k,iice) -! ! trap = .true. -! ! endif -! ! enddo -! ! endif !if (check_consistency) + enddo enddo k_loop - if (trap .and. force_abort) then + if (badvalue_found .and. force_abort) then print* print*,'** DEBUG TRAP IN P3_MAIN, s/r CHECK_VALUES -- source: ',source_ind print* - if (source_ind/=100) stop + global_status = STATUS_ERROR + return endif end subroutine check_values diff --git a/phys/module_mp_thompson.F b/phys/module_mp_thompson.F index 26d91400e6..b228a50ceb 100644 --- a/phys/module_mp_thompson.F +++ b/phys/module_mp_thompson.F @@ -1432,7 +1432,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & REAL:: r_frac, g_frac REAL:: Ef_rw, Ef_sw, Ef_gw, Ef_rr REAL:: Ef_ra, Ef_sa, Ef_ga - REAL:: dtsave, odts, odt, odzq, hgt_agl + REAL:: dtsave, odts, odt, odzq, hgt_agl, SR REAL:: xslw1, ygra1, zans1, eva_factor INTEGER:: i, k, k2, n, nn, nstep, k_0, kbot, IT, iexfrq INTEGER, DIMENSION(5):: ksed1 @@ -1617,7 +1617,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & ri(k) = qi1d(k)*rho(k) ni(k) = MAX(R2, ni1d(k)*rho(k)) if (ni(k).le. R2) then - lami = cie(2)/25.E-6 + lami = cie(2)/5.E-6 ni(k) = MIN(9999.D3, cig(1)*oig2*ri(k)/am_i*lami**bm_i) endif L_qi(k) = .true. @@ -1905,7 +1905,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & tau = 3.72/(rc(k)*taud) prr_wau(k) = zeta/tau prr_wau(k) = MIN(DBLE(rc(k)*odts), prr_wau(k)) - pnr_wau(k) = prr_wau(k) / (am_r*nu_c*D0r*D0r*D0r) ! RAIN2M + pnr_wau(k) = prr_wau(k) / (am_r*nu_c*200.*D0r*D0r*D0r) ! RAIN2M pnc_wau(k) = MIN(DBLE(nc(k)*odts), prr_wau(k) & / (am_r*mvd_c(k)*mvd_c(k)*mvd_c(k))) ! Qc2M endif @@ -2179,6 +2179,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & + tnr_racs2(idx_s,idx_t,idx_r1,idx_r) & + tnr_sacr1(idx_s,idx_t,idx_r1,idx_r) & + tnr_sacr2(idx_s,idx_t,idx_r1,idx_r) + pnr_rcs(k) = MIN(DBLE(nr(k)*odts), pnr_rcs(k)) else prs_rcs(k) = -tcs_racs1(idx_s,idx_t,idx_r1,idx_r) & - tms_sacr1(idx_s,idx_t,idx_r1,idx_r) & @@ -2186,10 +2187,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & + tcr_sacr2(idx_s,idx_t,idx_r1,idx_r) prs_rcs(k) = MAX(DBLE(-rs(k)*odts), prs_rcs(k)) prr_rcs(k) = -prs_rcs(k) - pnr_rcs(k) = tnr_racs2(idx_s,idx_t,idx_r1,idx_r) & ! RAIN2M - + tnr_sacr2(idx_s,idx_t,idx_r1,idx_r) endif - pnr_rcs(k) = MIN(DBLE(nr(k)*odts), pnr_rcs(k)) endif !..Rain collecting graupel. Cannot assume Wisner (1972) approximation @@ -2267,8 +2265,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & pnr_rfz(k) = MIN(DBLE(nr(k)*odts), pnr_rfz(k)) elseif (rr(k).gt. R1 .and. temp(k).lt.HGFR) then pri_rfz(k) = rr(k)*odts - pnr_rfz(k) = nr(k)*odts ! RAIN2M - pni_rfz(k) = pnr_rfz(k) + pni_rfz(k) = nr(k)*odts ! RAIN2M endif if (rc(k).gt. r_c(1)) then @@ -2779,7 +2776,9 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & lvt2(k)=lvap(k)*lvap(k)*ocp(k)*oRv*otemp*otemp nwfa(k) = MAX(11.1E6, (nwfa1d(k) + nwfaten(k)*DT)*rho(k)) + enddo + do k = kts, kte if ((qc1d(k) + qcten(k)*DT) .gt. R1) then rc(k) = (qc1d(k) + qcten(k)*DT)*rho(k) nc(k) = MAX(2., MIN((nc1d(k)+ncten(k)*DT)*rho(k), Nt_c_max)) @@ -3095,7 +3094,7 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & prv_rev(k) = MIN(DBLE(rate_max), prv_rev(k)*orho) !..TEST: G. Thompson 10 May 2013 -!..Reduce the rain evaporation in same places as melting graupel occurs. +!..Reduce the rain evaporation in same places as melting graupel occurs. !..Rationale: falling and simultaneous melting graupel in subsaturated !..regions will not melt as fast because particle temperature stays !..at 0C. Also not much shedding of the water from the graupel so @@ -3268,8 +3267,8 @@ subroutine mp_thompson (qv1d, qc1d, qi1d, qr1d, qs1d, qg1d, ni1d, & t4_vts = Kap1*Mrat**mu_s*csg(7)*ils2**cse(7) vts = rhof(k)*av_s * (t1_vts+t2_vts)/(t3_vts+t4_vts) if (temp(k).gt. (T_0+0.1)) then - vtsk(k) = MAX(vts*vts_boost(k), & - & vts*((vtrk(k)-vts*vts_boost(k))/(temp(k)-T_0))) + SR = rs(k)/(rs(k)+rr(k)) + vtsk(k) = vts*SR + (1.-SR)*vtrk(k) else vtsk(k) = vts*vts_boost(k) endif diff --git a/phys/module_mp_wdm5.F b/phys/module_mp_wdm5.F index ee1d84f35a..21bb5e6c78 100644 --- a/phys/module_mp_wdm5.F +++ b/phys/module_mp_wdm5.F @@ -9,8 +9,6 @@ !Including inline expansion statistical function MODULE module_mp_wdm5 ! - USE module_utility, ONLY: WRFU_Clock, WRFU_Alarm - USE module_domain, ONLY : HISTORY_ALARM, Is_alarm_tstep USE module_mp_radar ! REAL, PARAMETER, PRIVATE :: dtcldcr = 120. ! maximum time step for minor loops diff --git a/phys/module_mp_wdm6.F b/phys/module_mp_wdm6.F index 8aa091f38d..0c63a7c89b 100644 --- a/phys/module_mp_wdm6.F +++ b/phys/module_mp_wdm6.F @@ -9,8 +9,6 @@ module module_mp_wdm6 !------------------------------------------------------------------------------- ! - use module_utility, only: WRFU_Clock, WRFU_Alarm - use module_domain, only: HISTORY_ALARM, Is_alarm_tstep use module_mp_radar ! ! @@ -1304,6 +1302,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & !------------------------------------------------------------- acrfac = 6.*rslope2(i,k,1)+4.*diameter*rslope(i,k,1) + diameter**2 praci(i,k) = pi*qci(i,k,2)*ncr(i,k,3)*abs(vt2r-vt2i)*acrfac/4. + ! reduce collection efficiency (suggested by B. Wilt) + praci(i,k) = praci(i,k)*min(max(0.0,qrs(i,k,1)/qci(i,k,2)),1.)**2 praci(i,k) = min(praci(i,k),qci(i,k,2)/dtcld) !------------------------------------------------------------- ! piacr: Accretion of rain by cloud ice [HL A19] [LFO 26] @@ -1312,6 +1312,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & piacr(i,k) = pi*pi*avtr*ncr(i,k,3)*denr*xni(i,k)*denfac(i,k) & *g7pbr*rslope3(i,k,1)*rslope2(i,k,1)*rslopeb(i,k,1) & /24./den(i,k) + ! reduce collection efficiency (suggested by B. Wilt) + piacr(i,k) = piacr(i,k)*min(max(0.0,qci(i,k,2)/qrs(i,k,1)),1.)**2 piacr(i,k) = min(piacr(i,k),qrs(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1321,6 +1323,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & if(ncr(i,k,3).gt.nrmin) then niacr(i,k) = pi*avtr*ncr(i,k,3)*xni(i,k)*denfac(i,k)*g4pbr & *rslope2(i,k,1)*rslopeb(i,k,1)/4. + ! reduce collection efficiency (suggested by B. Wilt) + niacr(i,k) = niacr(i,k)*min(max(0.0,qci(i,k,2)/qrs(i,k,1)),1.)**2 niacr(i,k) = min(niacr(i,k),ncr(i,k,3)/dtcld) endif !------------------------------------------------------------- @@ -1352,6 +1356,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & !------------------------------------------------------------- if(qrs(i,k,2).gt.qcrmin .and. qci(i,k,1).gt.qmin) then psacw(i,k) = min(pacrc*n0sfac(i,k)*rslope3(i,k,2)*rslopeb(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,2)/qci(i,k,1)),1.)**2 & *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1360,6 +1366,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & !------------------------------------------------------------- if(qrs(i,k,2).gt.qcrmin .and. ncr(i,k,2).gt.ncmin) then nsacw(i,k) = min(pacrc*n0sfac(i,k)*rslope3(i,k,2)*rslopeb(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,2)/qci(i,k,1)),1.)**2 & *ncr(i,k,2)*denfac(i,k),ncr(i,k,2)/dtcld) endif !------------------------------------------------------------- @@ -1368,6 +1376,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & !------------------------------------------------------------- if(qrs(i,k,3).gt.qcrmin .and. qci(i,k,1).gt.qmin) then pgacw(i,k) = min(pacrg*rslope3(i,k,3)*rslopeb(i,k,3)*qci(i,k,1) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,3)/qci(i,k,1)),1.)**2 & *denfac(i,k),qci(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1376,6 +1386,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & !------------------------------------------------------------- if(qrs(i,k,3).gt.qcrmin .and. ncr(i,k,2).gt.ncmin) then ngacw(i,k) = min(pacrg*rslope3(i,k,3)*rslopeb(i,k,3)*ncr(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,3)/qci(i,k,1)),1.)**2 & *denfac(i,k),ncr(i,k,2)/dtcld) endif !------------------------------------------------------------- @@ -1401,6 +1413,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & + 1.5*rslope2(i,k,2)*rslope2(i,k,2)*rslope2(i,k,1) pracs(i,k) = pi*pi*ncr(i,k,3)*n0s*n0sfac(i,k)*abs(vt2r-vt2ave) & *(dens/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pracs(i,k) = pracs(i,k)*min(max(0.0,qrs(i,k,1)/qrs(i,k,2)),1.)**2 pracs(i,k) = min(pracs(i,k),qrs(i,k,2)/dtcld) endif !------------------------------------------------------------- @@ -1412,6 +1426,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & + 2.*rslope3(i,k,1)*rslope3(i,k,2) psacr(i,k) = pi*pi*ncr(i,k,3)*n0s*n0sfac(i,k)*abs(vt2ave-vt2r) & *(denr/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + psacr(i,k) = psacr(i,k)*min(max(0.0,qrs(i,k,2)/qrs(i,k,1)),1.)**2 psacr(i,k) = min(psacr(i,k),qrs(i,k,1)/dtcld) endif if(qrs(i,k,2).gt.qcrmin .and. ncr(i,k,3).gt.nrmin) then @@ -1423,6 +1439,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & + 1.0*rslope(i,k,1)*rslope2(i,k,2)+.5*rslope3(i,k,2) nsacr(i,k) = pi*ncr(i,k,3)*n0s*n0sfac(i,k)*abs(vt2ave-vt2r) & *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + nsacr(i,k) = nsacr(i,k)*min(max(0.0,qrs(i,k,2)/qrs(i,k,1)),1.)**2 nsacr(i,k) = min(nsacr(i,k),ncr(i,k,3)/dtcld) endif !------------------------------------------------------------- @@ -1435,6 +1453,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & + 2.*rslope3(i,k,1)*rslope3(i,k,3) pgacr(i,k) = pi*pi*ncr(i,k,3)*n0g*abs(vt2ave-vt2r)*(denr/den(i,k)) & *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pgacr(i,k) = pgacr(i,k)*min(max(0.0,qrs(i,k,3)/qrs(i,k,1)),1.)**2 pgacr(i,k) = min(pgacr(i,k),qrs(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1445,6 +1465,8 @@ subroutine wdm62D(t, q, qci, qrs, ncr, den, p, delz & acrfac = 1.5*rslope2(i,k,1)*rslope(i,k,3) & + 1.0*rslope(i,k,1)*rslope2(i,k,3) + .5*rslope3(i,k,3) ngacr(i,k) = pi*ncr(i,k,3)*n0g*abs(vt2ave-vt2r)*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + ngacr(i,k) = ngacr(i,k)*min(max(0.0,qrs(i,k,3)/qrs(i,k,1)),1.)**2 ngacr(i,k) = min(ngacr(i,k),ncr(i,k,3)/dtcld) endif ! diff --git a/phys/module_mp_wdm7.F b/phys/module_mp_wdm7.F new file mode 100644 index 0000000000..cb7d178167 --- /dev/null +++ b/phys/module_mp_wdm7.F @@ -0,0 +1,3587 @@ +#if ( RWORDSIZE == 4 ) +# define VREC vsrec +# define VSQRT vssqrt +#else +# define VREC vrec +# define VSQRT vsqrt +#endif +MODULE module_mp_wdm7 +! +! + USE module_mp_radar +! + REAL, PARAMETER, PRIVATE :: dtcldcr = 120. ! maximum time step for minor loops + REAL, PARAMETER, PRIVATE :: n0r = 8.e6 ! intercept parameter rain + REAL, PARAMETER, PRIVATE :: n0g = 4.e6 ! intercept parameter graupel + REAL, PARAMETER, PRIVATE :: n0h = 4.e4 ! intercept parameter hail + REAL, PARAMETER, PRIVATE :: avtr = 841.9 ! a constant for terminal velocity of rain + REAL, PARAMETER, PRIVATE :: bvtr = 0.8 ! a constant for terminal velocity of rain + REAL, PARAMETER, PRIVATE :: r0 = .8e-5 ! 8 microm in contrast to 10 micro m + REAL, PARAMETER, PRIVATE :: peaut = .55 ! collection efficiency + REAL, PARAMETER, PRIVATE :: xncr = 3.e8 ! maritime cloud in contrast to 3.e8 in tc80 + REAL, PARAMETER, PRIVATE :: xncr0 = 5.e7 + REAL, PARAMETER, PRIVATE :: xncr1 = 5.e8 + REAL, PARAMETER, PRIVATE :: xmyu = 1.718e-5 ! the dynamic viscosity kgm-1s-1 + REAL, PARAMETER, PRIVATE :: avts = 11.72 ! a constant for terminal velocity of snow + REAL, PARAMETER, PRIVATE :: bvts = .41 ! a constant for terminal velocity of snow + REAL, PARAMETER, PRIVATE :: avtg = 330. ! a constant for terminal velocity of graupel + REAL, PARAMETER, PRIVATE :: bvtg = 0.8 ! a constant for terminal velocity of graupel + REAL, PARAMETER, PRIVATE :: deng = 500. ! density of graupel + REAL, PARAMETER, PRIVATE :: avth = 285. ! a constant for terminal velocity of hail + REAL, PARAMETER, PRIVATE :: bvth = 0.8 ! a constant for terminal velocity of hail + REAL, PARAMETER, PRIVATE :: denh = 912. ! density of hail + REAL, PARAMETER, PRIVATE :: n0smax = 1.e11 ! maximum n0s (t=-90C unlimited) + REAL, PARAMETER, PRIVATE :: lamdacmax = 5.0e5 ! limited maximum value for slope parameter of cloud water + REAL, PARAMETER, PRIVATE :: lamdacmin = 2.0e4 ! limited minimum value for slope parameter of cloud water + REAL, PARAMETER, PRIVATE :: lamdarmax = 5.0e4 ! limited maximum value for slope parameter of rain + REAL, PARAMETER, PRIVATE :: lamdarmin = 2.0e3 ! limited minimum value for slope parameter of rain + REAL, PARAMETER, PRIVATE :: lamdasmax = 1.e5 ! limited maximum value for slope parameter of snow + REAL, PARAMETER, PRIVATE :: lamdagmax = 6.e4 ! limited maximum value for slope parameter of graupel + REAL, PARAMETER, PRIVATE :: lamdahmax = 2.e4 ! limited maximum value for slope parameter of hail + REAL, PARAMETER, PRIVATE :: dicon = 11.9 ! constant for the cloud-ice diamter + REAL, PARAMETER, PRIVATE :: dimax = 500.e-6 ! limited maximum value for the cloud-ice diamter + REAL, PARAMETER, PRIVATE :: n0s = 2.e6 ! temperature dependent intercept parameter snow + REAL, PARAMETER, PRIVATE :: alpha = .12 ! .122 exponen factor for n0s + REAL, PARAMETER, PRIVATE :: pfrz1 = 100. ! constant in Biggs freezing + REAL, PARAMETER, PRIVATE :: pfrz2 = 0.66 ! constant in Biggs freezing + REAL, PARAMETER, PRIVATE :: qcrmin = 1.e-9 ! minimun values for qr, qs, and qg + REAL, PARAMETER, PRIVATE :: ncmin = 1.e1 ! minimum value for Nc + REAL, PARAMETER, PRIVATE :: nrmin = 1.e-2 ! minimum value for Nr + REAL, PARAMETER, PRIVATE :: eacrc = 1.0 ! Snow/cloud-water collection efficiency + REAL, PARAMETER, PRIVATE :: eachs = 1.0 ! Hail/snow collection efficiency + REAL, PARAMETER, PRIVATE :: eachg = 0.5 ! Hail/graupel collection efficiency + REAL, PARAMETER, PRIVATE :: dens = 100.0 ! Density of snow + REAL, PARAMETER, PRIVATE :: qs0 = 6.e-4 ! threshold amount for aggretion to occur +! + REAL, PARAMETER, PRIVATE :: satmax = 1.0048 ! maximum saturation value for CCN activation + ! 1.008 for maritime /1.0048 for conti + REAL, PARAMETER, PRIVATE :: actk = 0.6 ! parameter for the CCN activation + REAL, PARAMETER, PRIVATE :: actr = 1.5 ! radius of activated CCN drops + REAL, PARAMETER, PRIVATE :: ncrk1 = 3.03e3 ! Long's collection kernel coefficient + REAL, PARAMETER, PRIVATE :: ncrk2 = 2.59e15 ! Long's collection kernel coefficient + REAL, PARAMETER, PRIVATE :: di100 = 1.e-4 ! parameter related with accretion and collection of cloud drops + REAL, PARAMETER, PRIVATE :: di600 = 6.e-4 ! parameter related with accretion and collection of cloud drops + REAL, PARAMETER, PRIVATE :: di2000 = 2000.e-6 ! parameter related with accretion and collection of cloud drops + REAL, PARAMETER, PRIVATE :: di82 = 82.e-6 ! dimater related with raindrops evaporation + REAL, PARAMETER, PRIVATE :: di15 = 15.e-6 ! auto conversion takes place beyond this diameter + REAL, PARAMETER, PRIVATE :: t00 = 238.16 + REAL, PARAMETER, PRIVATE :: t01 = 273.16 + REAL, PARAMETER, PRIVATE :: cd = 0.6 ! drag coefficient for hailsone +! + REAL, SAVE :: & + qc0,qc1,qck1,pidnc,bvtr1,bvtr2,bvtr3,bvtr4,bvtr5, & + bvtr6,bvtr7, bvtr2o5,bvtr3o5, & + g1pbr,g2pbr,g3pbr,g4pbr,g5pbr,g6pbr,g7pbr, & + g5pbro2,g7pbro2,pi, & + pvtr,pvtrn,eacrr,pacrr,pidn0r,pidnr, & + precr1,precr2,xmmax,roqimax,bvts1,bvts2, & + bvts3,bvts4,g1pbs,g3pbs,g4pbs,g5pbso2, & + pvts,pacrs,precs1,precs2,pidn0s,xlv1,pacrc, & + bvtg1,bvtg2,bvtg3,bvtg4,g1pbg,g3pbg,g4pbg, & + g5pbgo2,g6pbgh,pvtg,pacrg, & + precg1,precg2,precg3,pidn0g, & + bvth2,bvth3,bvth4, & + g3pbh,g4pbh,g5pbho2,pvth,pacrh, & + prech1,prech2,prech3,pidn0h, & + rslopecmax,rslopec2max,rslopec3max, & + rslopermax,rslopesmax,rslopegmax,rslopehmax, & + rsloperbmax,rslopesbmax,rslopegbmax,rslopehbmax, & + rsloper2max,rslopes2max,rslopeg2max,rslopeh2max, & + rsloper3max,rslopes3max,rslopeg3max,rslopeh3max +CONTAINS +!=================================================================== +! + SUBROUTINE wdm7(th, q, qc, qr, qi, qs, qg, qh, & + nn, nc, nr, & + den, pii, p, delz, & + delt,g, cpd, cpv, ccn0, rd, rv, t0c, & + ep1, ep2, qmin, & + XLS, XLV0, XLF0, den0, denr, & + cliq,cice,psat, & + xland, & + rain, rainncv, & + snow, snowncv, & + sr, & + refl_10cm, diagflag, do_radar_ref, & + graupel, graupelncv, & + hail, hailncv, & + itimestep, & + has_reqc, has_reqi, has_reqs, & ! for radiation + re_cloud, re_ice, re_snow, & ! for radiation + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte & + ) +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- +! +! This code is a WRF double-moment 7-class hail phase +! microphyiscs scheme (WDM7). The wdm microphysics scheme predicts +! number concentrations for warm rain species including clouds and +! rain. cloud condensation nuclei (ccn) is also predicted. +! The cold rain species including ice, snow, graupel, hail follow the +! WRF single-moment 7-class microphysics (WSM7, Bae et al. 2018) +! in which theoretical background for WSM ice phase microphysics is +! based on Hong et al. (2004). A new mixed-phase terminal velocity +! for precipitating ice is introduced in WSM6 (Dudhia et al. 2008). +! The WDM scheme is described in Lim and Hong (2010). +! All units are in m.k.s. and source/sink terms in kgkg-1s-1. +! +! WDM7 cloud scheme +! +! Coded and implemented by Soo Ya Bae (KIAPS) Fall 2015 +! +! Implemented by Soo Ya Bae (KIAPS) Winter 2018 +! +! further modifications : +! semi-lagrangian sedimentation (JH,2010),hong, aug 2009 +! ==> higher accuracy and efficient at lower resolutions +! reflectivity computation from greg thompson, lim, jun 2011 +! ==> only diagnostic, but with removal of too large drops +! add hail option from afwa, aug 2014 +! ==> switch graupel or hail by changing no, den, fall vel. +! effective radius of hydrometeors, bae from kiaps, jan 2015 +! ==> consistency in solar insolation of rrtmg radiation +! +! References: +! Bae, Hong and Tao (BHT, 2018) Asia-Pacific J. Atmos. Sci. +! Lim and Hong (LH, 2010) Mon. Wea. Rev. +! Juang and Hong (JH, 2010) Mon. Wea. Rev. +! Hong, Dudhia, Chen (HDC, 2004) Mon. Wea. Rev. +! Hong and Lim (HL, 2006) J. Korean Meteor. Soc. +! Cohard and Pinty (CP, 2000) Quart. J. Roy. Meteor. Soc. +! Khairoutdinov and Kogan (KK, 2000) Mon. Wea. Rev. +! Dudhia, Hong and Lim (DHL, 2008) J. Meteor. Soc. Japan +! +! Lin, Farley, Orville (LFO, 1983) J. Appl. Meteor. +! Rutledge, Hobbs (RH83, 1983) J. Atmos. Sci. +! Rutledge, Hobbs (RH84, 1984) J. Atmos. Sci. +! + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde , & + ims,ime, jms,jme, kms,kme , & + its,ite, jts,jte, kts,kte + real, dimension( ims:ime , jms:jme), intent(in) :: & + xland + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: & + th, & + q, & + qc, & + qi, & + qr, & + qs, & + qg, & + qh, & + nn, & + nc, & + nr + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN ) :: & + den, & + pii, & + p, & + delz + REAL, INTENT(IN ) :: delt, & + g, & + rd, & + rv, & + t0c, & + den0, & + cpd, & + cpv, & + ccn0, & + ep1, & + ep2, & + qmin, & + XLS, & + XLV0, & + XLF0, & + cliq, & + cice, & + psat, & + denr + INTEGER, INTENT(IN ) :: itimestep + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: rain, & + rainncv, & + sr +! for radiation connecting + INTEGER, INTENT(IN):: & + has_reqc, & + has_reqi, & + has_reqs + REAL, DIMENSION(ims:ime, kms:kme, jms:jme), & + INTENT(INOUT):: & + re_cloud, & + re_ice, & + re_snow + +!+---+-----------------------------------------------------------------+ + REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT):: & ! GT + refl_10cm +!+---+-----------------------------------------------------------------+ + + REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, & + INTENT(INOUT) :: snow, & + snowncv + REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, & + INTENT(INOUT) :: graupel, & + graupelncv + REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, & + INTENT(INOUT) :: hail, & + hailncv + +! LOCAL VAR + REAL, DIMENSION( its:ite , kts:kte ) :: t + REAL, DIMENSION( its:ite , kts:kte, 2 ) :: qci + REAL, DIMENSION( its:ite , kts:kte, 4 ) :: qrs + REAL, DIMENSION( its:ite , kts:kte, 3 ) :: ncr + INTEGER :: i,j,k + +!+---+-----------------------------------------------------------------+ + REAL, DIMENSION(kts:kte):: qv1d, t1d, p1d, qr1d, nr1d, qs1d, qg1d, dBZ + LOGICAL, OPTIONAL, INTENT(IN) :: diagflag + INTEGER, OPTIONAL, INTENT(IN) :: do_radar_ref +!+---+-----------------------------------------------------------------+ +! to calculate effective radius for radiation + REAL, DIMENSION( kts:kte ) :: qc1d, nc1d, den1d + REAL, DIMENSION( kts:kte ) :: qi1d + REAL, DIMENSION( kts:kte ) :: re_qc, re_qi, re_qs + + IF (itimestep .eq. 1) THEN + DO j=jms,jme + DO k=kms,kme + DO i=ims,ime + nn(i,k,j) = ccn0 + ENDDO + ENDDO + ENDDO + ENDIF +! + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + t(i,k)=th(i,k,j)*pii(i,k,j) + qci(i,k,1) = qc(i,k,j) + qci(i,k,2) = qi(i,k,j) + qrs(i,k,1) = qr(i,k,j) + qrs(i,k,2) = qs(i,k,j) + qrs(i,k,3) = qg(i,k,j) + qrs(i,k,4) = qh(i,k,j) + ncr(i,k,1) = nn(i,k,j) + ncr(i,k,2) = nc(i,k,j) + ncr(i,k,3) = nr(i,k,j) + ENDDO + ENDDO + ! Sending array starting locations of optional variables may cause + ! troubles, so we explicitly change the call. + CALL wdm72D(t, q(ims,kms,j), qci, qrs, ncr & + ,den(ims,kms,j) & + ,p(ims,kms,j), delz(ims,kms,j) & + ,delt,g, cpd, cpv, ccn0, rd, rv, t0c & + ,ep1, ep2, qmin & + ,XLS, XLV0, XLF0, den0, denr & + ,cliq,cice,psat & + ,j & + ,xland(ims,j) & + ,rain(ims,j),rainncv(ims,j) & + ,sr(ims,j) & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte & + ,snow(ims,j),snowncv(ims,j) & + ,graupel(ims,j),graupelncv(ims,j) & + ,hail(ims,j),hailncv(ims,j) & + ) + DO K=kts,kte + DO I=its,ite + th(i,k,j)=t(i,k)/pii(i,k,j) + qc(i,k,j) = qci(i,k,1) + qi(i,k,j) = qci(i,k,2) + qr(i,k,j) = qrs(i,k,1) + qs(i,k,j) = qrs(i,k,2) + qg(i,k,j) = qrs(i,k,3) + qh(i,k,j) = qrs(i,k,4) + nn(i,k,j) = ncr(i,k,1) + nc(i,k,j) = ncr(i,k,2) + nr(i,k,j) = ncr(i,k,3) + ENDDO + ENDDO +!+---+-----------------------------------------------------------------+ + IF ( PRESENT (diagflag) ) THEN + if (diagflag .and. do_radar_ref == 1) then + DO I=its,ite + DO K=kts,kte + t1d(k)=th(i,k,j)*pii(i,k,j) + p1d(k)=p(i,k,j) + qv1d(k)=q(i,k,j) + qr1d(k)=qr(i,k,j) + nr1d(k)=nr(i,k,j) + qs1d(k)=qs(i,k,j) + qg1d(k)=qg(i,k,j) + ENDDO + call refl10cm_wdm7 (qv1d, qr1d, nr1d, qs1d, qg1d, & + t1d, p1d, dBZ, kts, kte, i, j) + do k = kts, kte + refl_10cm(i,k,j) = MAX(-35., dBZ(k)) + enddo + ENDDO + endif + ENDIF + +! calculate effective radius of cloud, ice, and snow + IF (has_reqc.ne.0 .and. has_reqi.ne.0 .and. has_reqs.ne.0) THEN + DO i=its,ite + DO k=kts,kte + re_qc(k) = 2.51E-6 + re_qi(k) = 10.01E-6 + re_qs(k) = 25.E-6 + + t1d(k) = th(i,k,j)*pii(i,k,j) + den1d(k)= den(i,k,j) + qc1d(k) = qc(i,k,j) + qi1d(k) = qi(i,k,j) + qs1d(k) = qs(i,k,j) + nc1d(k) = nc(i,k,j) + ENDDO + call effectRad_wdm7(t1d, qc1d, nc1d, qi1d, qs1d, den1d, & + qmin, t0c, re_qc, re_qi, re_qs, & + kts, kte, i, j) + DO k=kts,kte + re_cloud(i,k,j) = max(2.51E-6, min(re_qc(k), 50.E-6)) + re_ice(i,k,j) = max(10.01E-6, min(re_qi(k), 125.E-6)) + re_snow(i,k,j) = max(25.E-6, min(re_qs(k), 999.E-6)) + ENDDO + ENDDO + ENDIF + + ENDDO + + END SUBROUTINE wdm7 +!=================================================================== +! + SUBROUTINE wdm72D(t, q, qci, qrs, ncr, den, p, delz & + ,delt,g, cpd, cpv, ccn0, rd, rv, t0c & + ,ep1, ep2, qmin & + ,XLS, XLV0, XLF0, den0, denr & + ,cliq,cice,psat & + ,lat & + ,slmsk & + ,rain,rainncv & + ,sr & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte & + ,snow,snowncv & + ,graupel,graupelncv & + ,hail,hailncv & + ) +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde , & + ims,ime, jms,jme, kms,kme , & + its,ite, jts,jte, kts,kte , & + lat + real, dimension(ims:ime), intent(in) :: slmsk + REAL, DIMENSION( its:ite , kts:kte ), & + INTENT(INOUT) :: & + t + REAL, DIMENSION( its:ite , kts:kte, 2 ), & + INTENT(INOUT) :: & + qci + REAL, DIMENSION( its:ite , kts:kte, 4 ), & + INTENT(INOUT) :: & + qrs + REAL, DIMENSION( its:ite , kts:kte, 3 ), & + INTENT(INOUT) :: & + ncr + REAL, DIMENSION( ims:ime , kms:kme ), & + INTENT(INOUT) :: & + q + REAL, DIMENSION( ims:ime , kms:kme ), & + INTENT(IN ) :: & + den, & + p, & + delz + REAL, INTENT(IN ) :: delt, & + g, & + cpd, & + cpv, & + ccn0, & + t0c, & + den0, & + rd, & + rv, & + ep1, & + ep2, & + qmin, & + XLS, & + XLV0, & + XLF0, & + cliq, & + cice, & + psat, & + denr + REAL, DIMENSION( ims:ime ), & + INTENT(INOUT) :: rain, & + rainncv, & + sr + REAL, DIMENSION( ims:ime ), OPTIONAL, & + INTENT(INOUT) :: snow, & + snowncv + REAL, DIMENSION( ims:ime ), OPTIONAL, & + INTENT(INOUT) :: graupel, & + graupelncv + REAL, DIMENSION( ims:ime ), OPTIONAL, & + INTENT(INOUT) :: hail, & + hailncv +! LOCAL VAR + real, dimension( its:ite , kts:kte ) :: & + qcr + REAL, DIMENSION( its:ite , kts:kte , 3) :: & + rh, qs + REAL, DIMENSION( its:ite , kts:kte, 4) :: & + rslope, rslope2, rslope3, rslopeb, & + falk, fall, work1, qrs_tmp + REAL, DIMENSION( its:ite , kts:kte ) :: & + rslopec, rslopec2,rslopec3 + REAL, DIMENSION( its:ite , kts:kte, 2) :: & + avedia + REAL, DIMENSION( its:ite , kts:kte ) :: & + workn,falln,falkn + REAL, DIMENSION( its:ite , kts:kte ) :: & + worka,workr,workh + REAL, DIMENSION( its:ite , kts:kte ) :: & + den_tmp, delz_tmp, ncr_tmp + REAL, DIMENSION( its:ite , kts:kte ) :: & + lamdr_tmp + REAL, DIMENSION( its:ite , kts:kte ) :: & + lamdc_tmp + REAL, DIMENSION( its:ite , kts:kte ) :: & + falkc, work1c, work2c, fallc + REAL, DIMENSION( its:ite , kts:kte ) :: & + pcact, prevp, psdep, pgdep, phdep, praut, psaut, pgaut, & + phaut, pracw, psacw, pgacw, phacw, pgaci, pgacr, pgacs, & + psaci, praci, piacr, pracs, psacr, phacr, phacs, phacg, & + phaci, pracg, pimlt, psmlt, pgmlt, phmlt, pseml, pgeml, & + pheml + REAL, DIMENSION( its:ite , kts:kte ) :: paacw + REAL, DIMENSION( its:ite , kts:kte ) :: primh, pvapg, pvaph + REAL, DIMENSION( its:ite , kts:kte ) :: pgwet, phwet + REAL, DIMENSION( its:ite , kts:kte ) :: pgaci_w, phaci_w + REAL, DIMENSION( its:ite , kts:kte ) :: & + nraut, nracw, ncevp, nccol, nrcol, & + nsacw, ngacw, nhacw, niacr, nsacr, ngacr, nhacr, naacw, & + nseml, ngeml, nheml, ncact + REAL, DIMENSION( its:ite , kts:kte ) :: & + pigen, pidep, pcond, pgevp, psevp, phevp, & + xl, cpm, work2, denfac, n0sfac, qsum, & + denqrs1, denqr1, denqrs2, denqrs3, denqrs4, & + denncr3, denqci, xni + REAL, DIMENSION( its:ite ) :: & + delqrs1, delqrs2, delqrs3, delqrs4, delncr3, delqi + REAL, DIMENSION( its:ite ) :: tstepsnow, tstepgraup, tstephail + REAL :: gfac, sfac +! variables for optimization + REAL, DIMENSION( its:ite ) :: tvec1 + REAL :: temp + INTEGER, DIMENSION( its:ite ) :: mnstep, numndt + INTEGER, DIMENSION( its:ite ) :: mstep, numdt + LOGICAL, DIMENSION( its:ite ) :: flgcld + REAL :: & + cpmcal, xlcal, lamdac, & + diffus, & + viscos, xka, venfac, conden, diffac, & + x, y, z, a, b, c, d, e, & + ndt, qdt, holdrr, holdrs, holdrg, supcol, supcolt, & + pvt, coeres, supsat, dtcld, xmi, eacrs, satdt, & + qimax, diameter, xni0, roqi0, & + fallsum, fallsum_qsi, fallsum_qg, fallsum_qh, & + vt2i,vt2r,vt2s,vt2g,vt2h,acrfac,egs,egi,ehi, & + xlwork2, factor, source, value, coecol, & + nfrzdtr, nfrzdtc, & + taucon, lencon, lenconcr, & + xlf, pfrzdtc, pfrzdtr, supice, alpha2, delta2, delta3 + REAL :: vt2ave + REAL :: frac + REAL :: rs0, ghw1, ghw2, ghw3, ghw4 + REAL :: holdc, holdci +! + INTEGER :: i, j, k, mstepmax, & + iprt, latd, lond, loop, loops, ifsat, n, idim, kdim +! Temporaries used for inlining fpvs function + REAL :: dldti, xb, xai, tr, xbi, xa, hvap, cvap, hsub, dldt, ttp +! +!================================================================= +! compute internal functions +! + cpmcal(x) = cpd*(1.-max(x,qmin))+max(x,qmin)*cpv + xlcal(x) = xlv0-xlv1*(x-t0c) +!---------------------------------------------------------------- +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. +! +! Optimizatin : A**B => exp(log(A)*(B)) + lamdac(x,y,z)= exp(log(((pidnc*z)/(x*y)))*((.33333333))) +!---------------------------------------------------------------- +! diffus: diffusion coefficient of the water vapor +! viscos: kinematic viscosity(m2s-1) +! + diffus(x,y) = 8.794e-5 * exp(log(x)*(1.81)) / y ! 8.794e-5*x**1.81/y + viscos(x,y) = 1.496e-6 * (x*sqrt(x)) /(x+120.)/y ! 1.496e-6*x**1.5/(x+120.)/y + xka(x,y) = 1.414e3*viscos(x,y)*y + diffac(a,b,c,d,e) = d*a*a/(xka(c,d)*rv*c*c)+1./(e*diffus(c,b)) + venfac(a,b,c) = exp(log((viscos(b,c)/diffus(b,a)))*((.3333333))) & + /sqrt(viscos(b,c))*sqrt(sqrt(den0/c)) + conden(a,b,c,d,e) = (max(b,qmin)-c)/(1.+d*d/(rv*e)*c/(a*a)) +! + idim = ite-its+1 + kdim = kte-kts+1 +! +!---------------------------------------------------------------- +! paddint 0 for negative values generated by dynamics +! + do k = kts, kte + do i = its, ite + qci(i,k,1) = max(qci(i,k,1),0.0) + qrs(i,k,1) = max(qrs(i,k,1),0.0) + qci(i,k,2) = max(qci(i,k,2),0.0) + qrs(i,k,2) = max(qrs(i,k,2),0.0) + qrs(i,k,3) = max(qrs(i,k,3),0.0) + qrs(i,k,4) = max(qrs(i,k,4),0.0) + ncr(i,k,1) = min(max(ncr(i,k,1),1.e8),2.e10) + ncr(i,k,2) = max(ncr(i,k,2),0.0) + ncr(i,k,3) = max(ncr(i,k,3),0.0) + enddo + enddo +! +!---------------------------------------------------------------- +! latent heat for phase changes and heat capacity. neglect the +! changes during microphysical process calculation +! emanuel(1994) +! + do k = kts, kte + do i = its, ite + cpm(i,k) = cpmcal(q(i,k)) + xl(i,k) = xlcal(t(i,k)) + enddo + enddo +! + qcr(:,:) = 0.0 + do i = its,ite + if(slmsk(i).eq.2) then ! water + qcr(i,:) = qc0 + else + qcr(i,:) = qc1 + endif + enddo +! + do k = kts, kte + do i = its, ite + delz_tmp(i,k) = delz(i,k) + den_tmp(i,k) = den(i,k) + enddo + enddo +! +! initialize the surface rain, snow, graupel, hail +! + do i = its, ite + rainncv(i) = 0. + if(PRESENT (snowncv) .AND. PRESENT (snow)) snowncv(i) = 0. + if(PRESENT (graupelncv) .AND. PRESENT (graupel)) graupelncv(i) = 0. + if(PRESENT (hailncv) .AND. PRESENT (hail)) hailncv(i) = 0. + sr(i) = 0. +! +! new local array to catch step snow, graupel, and hail +! + tstepsnow(i) = 0. + tstepgraup(i) = 0. + tstephail(i) = 0. + enddo +! +!---------------------------------------------------------------- +! compute the minor time steps. +! + loops = max(nint(delt/dtcldcr),1) + dtcld = delt/loops + if(delt.le.dtcldcr) dtcld = delt +! + do loop = 1,loops +! +!---------------------------------------------------------------- +! initialize the large scale variables +! + do i = its, ite + mstep(i) = 1 + mnstep(i) = 1 + flgcld(i) = .true. + enddo +! + do k = kts, kte + CALL VREC( tvec1(its), den(its,k), ite-its+1) + do i = its, ite + tvec1(i) = tvec1(i)*den0 + enddo + CALL VSQRT( denfac(its,k), tvec1(its), ite-its+1) + enddo +! +! Inline expansion for fpvs +! qs(i,k,1) = fpvs(t(i,k),0,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) +! qs(i,k,2) = fpvs(t(i,k),1,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) + hsub = xls + hvap = xlv0 + cvap = cpv + ttp=t0c+0.01 + dldt=cvap-cliq + xa=-dldt/rv + xb=xa+hvap/(rv*ttp) + dldti=cvap-cice + xai=-dldti/rv + xbi=xai+hsub/(rv*ttp) + do k = kts, kte + do i = its, ite + tr=ttp/t(i,k) + qs(i,k,1)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + qs(i,k,1) = min(qs(i,k,1),0.99*p(i,k)) + qs(i,k,1) = ep2 * qs(i,k,1) / (p(i,k) - qs(i,k,1)) + qs(i,k,1) = max(qs(i,k,1),qmin) + rh(i,k,1) = max(q(i,k) / qs(i,k,1),qmin) + tr=ttp/t(i,k) + if(t(i,k).lt.ttp) then + qs(i,k,2)=psat*exp(log(tr)*(xai))*exp(xbi*(1.-tr)) + else + qs(i,k,2)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + endif + qs(i,k,2) = min(qs(i,k,2),0.99*p(i,k)) + qs(i,k,2) = ep2 * qs(i,k,2) / (p(i,k) - qs(i,k,2)) + qs(i,k,2) = max(qs(i,k,2),qmin) + rh(i,k,2) = max(q(i,k) / qs(i,k,2),qmin) + enddo + enddo +! +!---------------------------------------------------------------- +! initialize the variables for microphysical physics +! +! + do k = kts, kte + do i = its, ite + prevp(i,k) = 0. + psdep(i,k) = 0. + pgdep(i,k) = 0. + phdep(i,k) = 0. + praut(i,k) = 0. + psaut(i,k) = 0. + pgaut(i,k) = 0. + phaut(i,k) = 0. + pracw(i,k) = 0. + praci(i,k) = 0. + pracs(i,k) = 0. + pracg(i,k) = 0. + piacr(i,k) = 0. + psaci(i,k) = 0. + psacw(i,k) = 0. + psacr(i,k) = 0. + pgacw(i,k) = 0. + paacw(i,k) = 0. + pgaci(i,k) = 0. + pgacr(i,k) = 0. + pgacs(i,k) = 0. + phacw(i,k) = 0. + phaci(i,k) = 0. + phacr(i,k) = 0. + phacs(i,k) = 0. + phacg(i,k) = 0. + pigen(i,k) = 0. + pidep(i,k) = 0. + pcond(i,k) = 0. + psmlt(i,k) = 0. + pgmlt(i,k) = 0. + phmlt(i,k) = 0. + pseml(i,k) = 0. + pgeml(i,k) = 0. + pheml(i,k) = 0. + psevp(i,k) = 0. + pgevp(i,k) = 0. + phevp(i,k) = 0. + pcact(i,k) = 0. + primh(i,k) = 0. + pvapg(i,k) = 0. + pvaph(i,k) = 0. + pgwet(i,k) = 0. + phwet(i,k) = 0. + pgaci_w(i,k) = 0. + phaci_w(i,k) = 0. + falk(i,k,1) = 0. + falk(i,k,2) = 0. + falk(i,k,3) = 0. + fall(i,k,1) = 0. + fall(i,k,2) = 0. + fall(i,k,3) = 0. + fall(i,k,4) = 0. + fallc(i,k) = 0. + falkc(i,k) = 0. + falln(i,k) =0. + falkn(i,k) =0. + xni(i,k) = 1.e3 + nsacw(i,k) = 0. + ngacw(i,k) = 0. + nhacw(i,k) = 0. + naacw(i,k) = 0. + niacr(i,k) = 0. + nsacr(i,k) = 0. + ngacr(i,k) = 0. + nhacr(i,k) = 0. + nseml(i,k) = 0. + ngeml(i,k) = 0. + nheml(i,k) = 0. + nracw(i,k) = 0. + nccol(i,k) = 0. + nrcol(i,k) = 0. + ncact(i,k) = 0. + nraut(i,k) = 0. + ncevp(i,k) = 0. + delqrs1(i) = 0. + delqrs2(i) = 0. + delqrs3(i) = 0. + delqrs4(i) = 0. + enddo + enddo + do k = kts, kte + do i = its, ite + if(qci(i,k,1).le.qmin .or. ncr(i,k,2).le.ncmin ) then + rslopec(i,k) = rslopecmax + rslopec2(i,k) = rslopec2max + rslopec3(i,k) = rslopec3max + else + rslopec(i,k) = 1./lamdac(qci(i,k,1),den(i,k),ncr(i,k,2)) + rslopec2(i,k) = rslopec(i,k)*rslopec(i,k) + rslopec3(i,k) = rslopec2(i,k)*rslopec(i,k) + endif +! +! Ni: ice crystal number concentraiton [HDC 5c] +! + temp = (den(i,k)*max(qci(i,k,2),qmin)) + temp = sqrt(sqrt(temp*temp*temp)) + xni(i,k) = min(max(5.38e7*temp,1.e3),1.e6) + enddo + enddo +! +! compute the fallout term: +! first, vertical terminal velosity for minor loops +! + do k = kts, kte + do i = its, ite + qrs_tmp(i,k,1) = qrs(i,k,1) + qrs_tmp(i,k,2) = qrs(i,k,2) + qrs_tmp(i,k,3) = qrs(i,k,3) + qrs_tmp(i,k,4) = qrs(i,k,4) + ncr_tmp(i,k) = ncr(i,k,3) + enddo + enddo + call slope_wdm7(qrs_tmp,ncr_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2, & + rslope3,work1,workn,its,ite,kts,kte) +! +! vt update for qr and nr +! + mstepmax = 1 + numdt = 1 + do k = kte, kts, -1 + do i = its, ite + work1(i,k,1) = work1(i,k,1)/delz(i,k) + workn(i,k) = workn(i,k)/delz(i,k) + numdt(i) = max(nint(max(work1(i,k,1),workn(i,k))*dtcld+.5),1) + if(numdt(i).ge.mstep(i)) mstep(i) = numdt(i) + enddo + enddo + do i = its, ite + if(mstepmax.le.mstep(i)) mstepmax = mstep(i) + enddo +! + do n = 1, mstepmax + k = kte + do i = its, ite + if(n.le.mstep(i)) then + falk(i,k,1) = den(i,k)*qrs(i,k,1)*work1(i,k,1)/mstep(i) + falkn(i,k) = ncr(i,k,3)*workn(i,k)/mstep(i) + fall(i,k,1) = fall(i,k,1)+falk(i,k,1) + falln(i,k) = falln(i,k)+falkn(i,k) + qrs(i,k,1) = max(qrs(i,k,1)-falk(i,k,1)*dtcld/den(i,k),0.) + ncr(i,k,3) = max(ncr(i,k,3)-falkn(i,k)*dtcld,0.) + endif + enddo +! + do k = kte-1, kts, -1 + do i = its, ite + if(n.le.mstep(i)) then + falk(i,k,1) = den(i,k)*qrs(i,k,1)*work1(i,k,1)/mstep(i) + falkn(i,k) = ncr(i,k,3)*workn(i,k)/mstep(i) + fall(i,k,1) = fall(i,k,1)+falk(i,k,1) + falln(i,k) = falln(i,k)+falkn(i,k) + qrs(i,k,1) = max(qrs(i,k,1)-(falk(i,k,1)-falk(i,k+1,1) & + *delz(i,k+1)/delz(i,k))*dtcld/den(i,k),0.) + ncr(i,k,3) = max(ncr(i,k,3)-(falkn(i,k)-falkn(i,k+1)*delz(i,k+1) & + /delz(i,k))*dtcld,0.) + endif + enddo + enddo +! + do k = kts, kte + do i = its, ite + qrs_tmp(i,k,1) = qrs(i,k,1) + ncr_tmp(i,k) = ncr(i,k,3) + enddo + enddo +! + call slope_rain(qrs_tmp,ncr_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2, & + rslope3,work1,workn,its,ite,kts,kte) +! + do k = kte, kts, -1 + do i = its, ite + work1(i,k,1) = work1(i,k,1)/delz(i,k) + workn(i,k) = workn(i,k)/delz(i,k) + enddo + enddo + enddo +! +! for semi +! + do k = kte, kts, -1 + do i = its, ite + workh(i,k) = work1(i,k,4) + qsum(i,k) = max( (qrs(i,k,2)+qrs(i,k,3)), 1.E-15) + if(qsum(i,k) .gt. 1.e-15 ) then + worka(i,k) = (work1(i,k,2)*qrs(i,k,2) + work1(i,k,3)*qrs(i,k,3)) & + /qsum(i,k) + else + worka(i,k) = 0. + endif + denqrs2(i,k) = den(i,k)*qrs(i,k,2) + denqrs3(i,k) = den(i,k)*qrs(i,k,3) + denqrs4(i,k) = den(i,k)*qrs(i,k,4) + if(qrs(i,k,4).le.0.0) workh(i,k) = 0.0 + enddo + enddo +! + call nislfv_rain_plm6(idim,kdim,den_tmp,denfac,t,delz_tmp,worka, & + denqrs2,denqrs3,delqrs2,delqrs3,dtcld,1,1) + call nislfv_rain_plmr(idim,kdim,den_tmp,denfac,t,delz_tmp,workh, & + denqrs4,denqrs4,delqrs4,dtcld,2,1,0) +! + do k = kts, kte + do i = its, ite + qrs(i,k,2) = max(denqrs2(i,k)/den(i,k),0.) + qrs(i,k,3) = max(denqrs3(i,k)/den(i,k),0.) + qrs(i,k,4) = max(denqrs4(i,k)/den(i,k),0.) + fall(i,k,2) = denqrs2(i,k)*worka(i,k)/delz(i,k) + fall(i,k,3) = denqrs3(i,k)*worka(i,k)/delz(i,k) + fall(i,k,4) = denqrs4(i,k)*workh(i,k)/delz(i,k) + enddo + enddo +! + do i = its, ite + fall(i,1,2) = delqrs2(i)/delz(i,1)/dtcld + fall(i,1,3) = delqrs3(i)/delz(i,1)/dtcld + fall(i,1,4) = delqrs4(i)/delz(i,1)/dtcld + enddo +! + do k = kts, kte + do i = its, ite + qrs_tmp(i,k,1) = qrs(i,k,1) + qrs_tmp(i,k,2) = qrs(i,k,2) + qrs_tmp(i,k,3) = qrs(i,k,3) + qrs_tmp(i,k,4) = qrs(i,k,4) + ncr_tmp(i,k) = ncr(i,k,3) + enddo + enddo +! + call slope_wdm7(qrs_tmp,ncr_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2, & + rslope3,work1,workn,its,ite,kts,kte) +! + do k = kte, kts, -1 + do i = its, ite + supcol = t0c-t(i,k) + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + if(t(i,k).gt.t0c) then +! +! psmlt: melting of snow [HL A33] [RH83 A25] +! (T>T0: QS->QR) +! + xlf = xlf0 + work2(i,k) = venfac(p(i,k),t(i,k),den(i,k)) + if(qrs(i,k,2).gt.0.) then + coeres = rslope2(i,k,2)*sqrt(rslope(i,k,2)*rslopeb(i,k,2)) + psmlt(i,k) = xka(t(i,k),den(i,k))/xlf*(t0c-t(i,k))*pi/2. & + *n0sfac(i,k)*(precs1*rslope2(i,k,2) & + +precs2*work2(i,k)*coeres)/den(i,k) + psmlt(i,k) = min(max(psmlt(i,k)*dtcld/mstep(i),-qrs(i,k,2) & + /mstep(i)),0.) + qrs(i,k,2) = qrs(i,k,2) + psmlt(i,k) + qrs(i,k,1) = qrs(i,k,1) - psmlt(i,k) +! +! nsmlt: melting of snow [LH A27] +! (T>T0: ->NR) +! + if(qrs(i,k,2).gt.qcrmin) then + sfac = rslope(i,k,2)*n0s*n0sfac(i,k)/qrs(i,k,2) + ncr(i,k,3) = ncr(i,k,3) - sfac*psmlt(i,k) + endif + t(i,k) = t(i,k) + xlf/cpm(i,k)*psmlt(i,k) + endif +! +! pgmlt: melting of graupel [HL A23] [LFO 47] +! (T>T0: QG->QR) +! + if(qrs(i,k,3).gt.0.) then + coeres = rslope2(i,k,3)*sqrt(rslope(i,k,3)*rslopeb(i,k,3)) + pgmlt(i,k) = xka(t(i,k),den(i,k))/xlf*(t0c-t(i,k))*(precg1 & + *rslope2(i,k,3) + precg2*work2(i,k)*coeres) & + /den(i,k) + pgmlt(i,k) = min(max(pgmlt(i,k)*dtcld/mstep(i), & + -qrs(i,k,3)/mstep(i)),0.) + qrs(i,k,3) = qrs(i,k,3) + pgmlt(i,k) + qrs(i,k,1) = qrs(i,k,1) - pgmlt(i,k) +! +! ngmlt: melting of graupel [LH A28] +! (T>T0: ->NR) +! + if(qrs(i,k,3).gt.qcrmin) then + gfac = rslope(i,k,3)*n0g/qrs(i,k,3) + ncr(i,k,3) = ncr(i,k,3) - gfac*pgmlt(i,k) + endif + t(i,k) = t(i,k) + xlf/cpm(i,k)*pgmlt(i,k) + endif +! +! phmlt: melting of hail [BHT A22] +! (T>T0: QH->QR) +! + if(qrs(i,k,4).gt.0.) then + coeres = rslope2(i,k,4)*sqrt(rslope(i,k,4)*rslopeb(i,k,4)) + phmlt(i,k) = xka(t(i,k),den(i,k))/xlf*(t0c-t(i,k))*(prech1 & + *rslope2(i,k,4) + prech2*work2(i,k)*coeres) & + /den(i,k) + phmlt(i,k) = min(max(phmlt(i,k)*dtcld/mstep(i), & + -qrs(i,k,4)/mstep(i)),0.) + qrs(i,k,4) = qrs(i,k,4) + phmlt(i,k) + qrs(i,k,1) = qrs(i,k,1) - phmlt(i,k) +! +! nhmlt: melting of hail +! (T>T0: ->NR) +! + if(qrs(i,k,4).gt.qcrmin) then + gfac = rslope(i,k,4)*n0h/qrs(i,k,4) + ncr(i,k,3) = ncr(i,k,3) - gfac*phmlt(i,k) + endif + t(i,k) = t(i,k) + xlf/cpm(i,k)*phmlt(i,k) + endif + endif + enddo + enddo +! +! Vice [ms-1] : fallout of ice crystal [HDC 5a] +! + do k = kte, kts, -1 + do i = its, ite + if(qci(i,k,2).le.0.) then + work1c(i,k) = 0. + else + xmi = den(i,k)*qci(i,k,2)/xni(i,k) + diameter = max(min(dicon * sqrt(xmi),dimax), 1.e-25) + work1c(i,k) = 1.49e4*exp(log(diameter)*(1.31)) + endif + enddo + enddo +! +! forward semi-laglangian scheme (JH), PCM (piecewise constant), (linear) +! + do k = kte, kts, -1 + do i = its, ite + denqci(i,k) = den(i,k)*qci(i,k,2) + enddo + enddo +! + call nislfv_rain_plmr(idim,kdim,den_tmp,denfac,t,delz_tmp,work1c,denqci,denqci, & + delqi,dtcld,1,0,0) +! + do k = kts, kte + do i = its, ite + qci(i,k,2) = max(denqci(i,k)/den(i,k),0.) + enddo + enddo +! + do i = its, ite + fallc(i,1) = delqi(i)/delz(i,1)/dtcld + enddo +! +! rain (unit is mm/sec;kgm-2s-1: /1000*delt ===> m)==> mm for wrf +! + do i = its, ite + fallsum = fall(i,kts,1)+fall(i,kts,2)+fall(i,kts,3)+fall(i,kts,4)+fallc(i,kts) + fallsum_qsi = fall(i,kts,2)+fallc(i,kts) + fallsum_qg = fall(i,kts,3) + fallsum_qh = fall(i,kts,4) +! + if(fallsum.gt.0.) then + rainncv(i) = fallsum*delz(i,kts)/denr*dtcld*1000. + rainncv(i) + rain(i) = fallsum*delz(i,kts)/denr*dtcld*1000. + rain(i) + endif +! + if(fallsum_qsi.gt.0.) then + tstepsnow(i) = fallsum_qsi*delz(i,kts)/denr*dtcld*1000. + tstepsnow(i) + if( PRESENT (snowncv) .AND. PRESENT (snow)) then + snowncv(i) = fallsum_qsi*delz(i,kts)/denr*dtcld*1000. + snowncv(i) + snow(i) = fallsum_qsi*delz(i,kts)/denr*dtcld*1000. + snow(i) + endif + endif +! + if(fallsum_qg.gt.0.) then + tstepgraup(i) = fallsum_qg*delz(i,kts)/denr*dtcld*1000. & + + tstepgraup(i) + if( PRESENT (graupelncv) .and. PRESENT (graupel)) then + graupelncv(i) = fallsum_qg*delz(i,kts)/denr*dtcld*1000. & + + graupelncv(i) + graupel(i) = fallsum_qg*delz(i,kts)/denr*dtcld*1000. + graupel(i) + endif + endif +! + if(fallsum_qh.gt.0.) then + tstephail(i) = fallsum_qh*delz(i,kts)/denr*dtcld*1000.+tstephail(i) + if ( PRESENT (hailncv) .AND. PRESENT (hail)) then + hailncv(i) = fallsum_qh*delz(i,kts)/denr*dtcld*1000. + hailncv(i) + hail(i) = fallsum_qh*delz(i,kts)/denr*dtcld*1000. + hail(i) + endif + endif +! + if(fallsum.gt.0.) sr(i) = (tstepsnow(i) + tstepgraup(i) + tstephail(i))& + /(rainncv(i)+1.e-12) + enddo +! +! pimlt: instantaneous melting of cloud ice [HL A47] [RH83 A28] +! (T>T0: QI->QC) +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) + xlf = xls-xl(i,k) + if(supcol.lt.0.) xlf = xlf0 + if(supcol.lt.0 .and. qci(i,k,2).gt.0.) then + qci(i,k,1) = qci(i,k,1) + qci(i,k,2) +! +! nimlt: instantaneous melting of cloud ice [LH A18] +! (T>T0: ->NC) +! + ncr(i,k,2) = ncr(i,k,2) + xni(i,k) + t(i,k) = t(i,k) - xlf/cpm(i,k)*qci(i,k,2) + qci(i,k,2) = 0. + endif +! +! pihmf: homogeneous of cloud water below -40c [HL A45] +! (T<-40C: QC->QI) +! + if(supcol.gt.40. .and. qci(i,k,1).gt.0.) then + qci(i,k,2) = qci(i,k,2) + qci(i,k,1) +! +! nihmf: homogeneous of cloud water below -40c [LH A17] +! (T<-40C: NC->) +! + if(ncr(i,k,2).gt.0.) ncr(i,k,2) = 0. + t(i,k) = t(i,k) + xlf/cpm(i,k)*qci(i,k,1) + qci(i,k,1) = 0. + endif +! +! pihtf: heterogeneous of cloud water [HL A44] +! (T0>T>-40C: QC->QI) +! + if(supcol.gt.0. .and. qci(i,k,1).gt.qmin) then + supcolt=min(supcol,70.) + pfrzdtc = min(pi*pi*pfrz1*(exp(pfrz2*supcolt)-1.)*denr/den(i,k) & + *ncr(i,k,2)*rslopec3(i,k)*rslopec3(i,k)/18.*dtcld & + ,qci(i,k,1)) +! +! nihtf: heterogeneous of cloud water [LH A16] +! (T0>T>-40C: NC->) +! + if(ncr(i,k,2).gt.ncmin) then + nfrzdtc = min(pi*pfrz1*(exp(pfrz2*supcolt)-1.)*ncr(i,k,2) & + *rslopec3(i,k)/6.*dtcld,ncr(i,k,2)) + ncr(i,k,2) = ncr(i,k,2) - nfrzdtc + endif + qci(i,k,2) = qci(i,k,2) + pfrzdtc + t(i,k) = t(i,k) + xlf/cpm(i,k)*pfrzdtc + qci(i,k,1) = qci(i,k,1)-pfrzdtc + endif +! +! pgfrz: freezing of rain water [HL A20] [LFO 45] +! (TQG) +! + if(supcol.gt.0. .and. qrs(i,k,1).gt.0.) then + supcolt=min(supcol,70.) + pfrzdtr = min(140.*(pi*pi)*pfrz1*ncr(i,k,3)*denr/den(i,k) & + *(exp(pfrz2*supcolt)-1.)*rslope3(i,k,1)*rslope3(i,k,1) & + *dtcld,qrs(i,k,1)) +! +! ngfrz: freezing of rain water [LH A26] +! (T ) +! + if(ncr(i,k,3).gt.nrmin) then + nfrzdtr = min(4.*pi*pfrz1*ncr(i,k,3)*(exp(pfrz2*supcolt)-1.) & + *rslope3(i,k,1)*dtcld, ncr(i,k,3)) + ncr(i,k,3) = ncr(i,k,3) - nfrzdtr + endif + qrs(i,k,3) = qrs(i,k,3) + pfrzdtr + t(i,k) = t(i,k) + xlf/cpm(i,k)*pfrzdtr + qrs(i,k,1) = qrs(i,k,1) - pfrzdtr + endif + enddo + enddo +! + do k = kts, kte + do i = its, ite + ncr(i,k,2) = max(ncr(i,k,2),0.0) + ncr(i,k,3) = max(ncr(i,k,3),0.0) + enddo + enddo +! +!---------------------------------------------------------------- +! update the slope parameters for microphysics computation +! + do k = kts, kte + do i = its, ite + qrs_tmp(i,k,1) = qrs(i,k,1) + qrs_tmp(i,k,2) = qrs(i,k,2) + qrs_tmp(i,k,3) = qrs(i,k,3) + qrs_tmp(i,k,4) = qrs(i,k,4) + ncr_tmp(i,k) = ncr(i,k,3) + enddo + enddo +! + call slope_wdm7(qrs_tmp,ncr_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2, & + rslope3,work1,workn,its,ite,kts,kte) +! + do k = kts, kte + do i = its, ite +! +! compute the mean-volume drop diameter [LH A10] +! for raindrop distribution +! + avedia(i,k,2) = rslope(i,k,1)*((24.)**(.3333333)) +! + if(qci(i,k,1).le.qmin .or. ncr(i,k,2).le.ncmin) then + rslopec(i,k) = rslopecmax + rslopec2(i,k) = rslopec2max + rslopec3(i,k) = rslopec3max + else + rslopec(i,k) = 1./lamdac(qci(i,k,1),den(i,k),ncr(i,k,2)) + rslopec2(i,k) = rslopec(i,k)*rslopec(i,k) + rslopec3(i,k) = rslopec2(i,k)*rslopec(i,k) + endif +! +! compute the mean-volume drop diameter [LH A7] +! for cloud-droplet distribution +! + avedia(i,k,1) = rslopec(i,k) + enddo + enddo +! + do k = kts, kte + do i = its, ite + work1(i,k,1) = diffac(xl(i,k),p(i,k),t(i,k),den(i,k),qs(i,k,1)) + work1(i,k,2) = diffac(xls,p(i,k),t(i,k),den(i,k),qs(i,k,2)) + work2(i,k) = venfac(p(i,k),t(i,k),den(i,k)) + enddo + enddo +! +!=============================================================== +! +! warm rain processes +! +! - follows the double-moment processes in Lim and Hong +! +!=============================================================== +! + do k = kts, kte + do i = its, ite + supsat = max(q(i,k),qmin)-qs(i,k,1) + satdt = supsat/dtcld +! +! praut: auto conversion rate from cloud to rain [LH 9] [CP 17] +! (QC->QR) +! + lencon = 2.7e-2*den(i,k)*qci(i,k,1)*(1.e20/16.*rslopec2(i,k) & + *rslopec2(i,k)-0.4) + lenconcr = max(1.2*lencon, qcrmin) + if(qci(i,k,1).gt.qcr(i,k)) then + praut(i,k) = qck1*qci(i,k,1)**(7./3.)*ncr(i,k,2)**(-1./3.) + praut(i,k) = min(praut(i,k),qci(i,k,1)/dtcld) +! +! nraut: auto conversion rate from cloud to rain [LH A6] [CP 18 & 19] +! (NC->NR) +! + nraut(i,k) = 3.5e9*den(i,k)*praut(i,k) + if(qrs(i,k,1).gt.lenconcr) & + nraut(i,k) = ncr(i,k,3)/qrs(i,k,1)*praut(i,k) + nraut(i,k) = min(nraut(i,k),ncr(i,k,2)/dtcld) + endif +! +! pracw: accretion of cloud water by rain [LH 10] [CP 22 & 23] +! (QC->QR) +! nracw: accretion of cloud water by rain [LH A9] +! (NC->) +! + if(qrs(i,k,1).ge.lenconcr) then + if(avedia(i,k,2).ge.di100) then + nracw(i,k) = min(ncrk1*ncr(i,k,2)*ncr(i,k,3)*(rslopec3(i,k) & + + 24.*rslope3(i,k,1)),ncr(i,k,2)/dtcld) + pracw(i,k) = min(pi/6.*(denr/den(i,k))*ncrk1*ncr(i,k,2) & + *ncr(i,k,3)*rslopec3(i,k)*(2.*rslopec3(i,k) & + + 24.*rslope3(i,k,1)),qci(i,k,1)/dtcld) + else + nracw(i,k) = min(ncrk2*ncr(i,k,2)*ncr(i,k,3)*(2.*rslopec3(i,k) & + *rslopec3(i,k)+5040.*rslope3(i,k,1) & + *rslope3(i,k,1)),ncr(i,k,2)/dtcld) + pracw(i,k) = min(pi/6.*(denr/den(i,k))*ncrk2*ncr(i,k,2) & + *ncr(i,k,3)*rslopec3(i,k)*(6.*rslopec3(i,k) & + *rslopec3(i,k)+5040.*rslope3(i,k,1)*rslope3(i,k,1)) & + ,qci(i,k,1)/dtcld) + endif + endif +! +! nccol: self collection of cloud water [LH A8] [CP 24 & 25] +! (NC->) +! + if(avedia(i,k,1).ge.di100) then + nccol(i,k) = ncrk1*ncr(i,k,2)*ncr(i,k,2)*rslopec3(i,k) + else + nccol(i,k) = 2.*ncrk2*ncr(i,k,2)*ncr(i,k,2)*rslopec3(i,k) & + *rslopec3(i,k) + endif +! +! nrcol: self collection of rain-drops and break-up [LH A21] [CP 24 & 25] +! (NR->) +! + if(qrs(i,k,1).ge.lenconcr) then + if(avedia(i,k,2).lt.di100) then + nrcol(i,k) = 5040.*ncrk2*ncr(i,k,3)*ncr(i,k,3)*rslope3(i,k,1) & + *rslope3(i,k,1) + elseif(avedia(i,k,2).ge.di100 .and. avedia(i,k,2).lt.di600) then + nrcol(i,k) = 24.*ncrk1*ncr(i,k,3)*ncr(i,k,3)*rslope3(i,k,1) + elseif(avedia(i,k,2).ge.di600 .and. avedia(i,k,2).lt.di2000) then + coecol = -2.5e3*(avedia(i,k,2)-di600) + nrcol(i,k) = 24.*exp(coecol)*ncrk1*ncr(i,k,3)*ncr(i,k,3) & + *rslope3(i,k,1) + else + nrcol(i,k) = 0. + endif + endif +! +! prevp: evaporation/condensation rate of rain [HL A41] +! (QV->QR or QR->QV) +! + if(qrs(i,k,1).gt.0.) then + coeres = rslope(i,k,1)*sqrt(rslope(i,k,1)*rslopeb(i,k,1)) + prevp(i,k) = (rh(i,k,1)-1.)*ncr(i,k,3)*(precr1*rslope(i,k,1) & + + precr2*work2(i,k)*coeres)/work1(i,k,1) + if(prevp(i,k).lt.0.) then + prevp(i,k) = max(prevp(i,k),-qrs(i,k,1)/dtcld) + prevp(i,k) = max(prevp(i,k),satdt/2) +! +! Nrevp: evaporation/condensation rate of rain [LH A14] +! (NR->NCCN) +! + if(prevp(i,k).eq.-qrs(i,k,1)/dtcld) then + ncr(i,k,1) = ncr(i,k,1)+ncr(i,k,3) + ncr(i,k,3) = 0. + endif + else +! + prevp(i,k) = min(prevp(i,k),satdt/2) + endif + endif + enddo + enddo +! +!=============================================================== +! +! cold rain processes +! +! - follows the revised ice microphysics processes in HDC +! - the processes same as in RH83 and RH84 and LFO behave +! following ice crystal hapits defined in HDC, inclduing +! intercept parameter for snow (n0s), ice crystal number +! concentration (ni), ice nuclei number concentration +! (n0i), ice diameter (d) +! +!=============================================================== +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + supsat = max(q(i,k),qmin)-qs(i,k,2) + satdt = supsat/dtcld + ifsat = 0 +! +! Ni: ice crystal number concentraiton [HDC 5c] +! +! xni(i,k) = min(max(5.38e7*(den(i,k) & +! *max(qci(i,k,2),qmin))**0.75,1.e3),1.e6) + temp = (den(i,k)*max(qci(i,k,2),qmin)) + temp = sqrt(sqrt(temp*temp*temp)) + xni(i,k) = min(max(5.38e7*temp,1.e3),1.e6) + eacrs = exp(0.07*(-supcol)) +! + xmi = den(i,k)*qci(i,k,2)/xni(i,k) + diameter = min(dicon * sqrt(xmi),dimax) + vt2i = 1.49e4*diameter**1.31 + vt2r=pvtr*rslopeb(i,k,1)*denfac(i,k) + vt2s=pvts*rslopeb(i,k,2)*denfac(i,k) + vt2g=pvtg*rslopeb(i,k,3)*denfac(i,k) + vt2h=pvth*rslopeb(i,k,4)*denfac(i,k) + qsum(i,k) = max((qrs(i,k,2)+qrs(i,k,3)),1.e-15) + if(qsum(i,k) .gt. 1.e-15) then + vt2ave=(vt2s*qrs(i,k,2)+vt2g*qrs(i,k,3))/(qsum(i,k)) + else + vt2ave=0. + endif + if(supcol.gt.0. .and. qci(i,k,2).gt.qmin) then + if(qrs(i,k,1).gt.qcrmin) then +! +! praci: Accretion of cloud ice by rain [HL A15] [LFO 25] +! (TQR) +! + acrfac = 6.*rslope2(i,k,1)+4.*diameter*rslope(i,k,1) + diameter**2 + praci(i,k) = pi*qci(i,k,2)*ncr(i,k,3)*abs(vt2r-vt2i)*acrfac/4. + ! reduce collection efficiency (suggested by B. Wilt) + praci(i,k) = praci(i,k)*min(max(0.0,qrs(i,k,1)/qci(i,k,2)),1.)**2 + praci(i,k) = min(praci(i,k),qci(i,k,2)/dtcld) +! +! piacr: Accretion of rain by cloud ice [HL A19] [LFO 26] +! (TQS or QR->QG) +! + piacr(i,k) = pi*pi*avtr*ncr(i,k,3)*denr*xni(i,k)*denfac(i,k) & + *g7pbr*rslope3(i,k,1)*rslope2(i,k,1)*rslopeb(i,k,1) & + /24./den(i,k) + ! reduce collection efficiency (suggested by B. Wilt) + piacr(i,k) = piacr(i,k)*min(max(0.0,qci(i,k,2)/qrs(i,k,1)),1.)**2 + piacr(i,k) = min(piacr(i,k),qrs(i,k,1)/dtcld) + endif +! +! niacr: Accretion of rain by cloud ice [LH A25] +! (T) +! + if(ncr(i,k,3).gt.nrmin) then + niacr(i,k) = pi*avtr*ncr(i,k,3)*xni(i,k)*denfac(i,k)*g4pbr & + *rslope2(i,k,1)*rslopeb(i,k,1)/4. + ! reduce collection efficiency (suggested by B. Wilt) + niacr(i,k) = niacr(i,k)*min(max(0.0,qci(i,k,2)/qrs(i,k,1)),1.)**2 + niacr(i,k) = min(niacr(i,k),ncr(i,k,3)/dtcld) + endif +! +! psaci: Accretion of cloud ice by snow [HDC 10] +! (TQS) +! + if(qrs(i,k,2).gt.qcrmin) then + acrfac = 2.*rslope3(i,k,2)+2.*diameter*rslope2(i,k,2) & + + diameter**2*rslope(i,k,2) + psaci(i,k) = pi*qci(i,k,2)*eacrs*n0s*n0sfac(i,k) & + *abs(vt2ave-vt2i)*acrfac/4. + psaci(i,k) = min(psaci(i,k),qci(i,k,2)/dtcld) + endif +! +! pgaci: Accretion of cloud ice by graupel [HL A17] [LFO 41] +! (TQG) +! + if(qrs(i,k,3).gt.qcrmin) then + egi = exp(0.07*(-supcol)) + acrfac = 2.*rslope3(i,k,3)+2.*diameter*rslope2(i,k,3) & + + diameter**2*rslope(i,k,3) + pgaci(i,k) = pi*egi*qci(i,k,2)*n0g*abs(vt2ave-vt2i)*acrfac/4. + pgaci(i,k) = min(pgaci(i,k),qci(i,k,2)/dtcld) + endif +! +! phaci: Accretion of cloud ice by hail [BHT] +! (TQH) +! + if(qrs(i,k,4).gt.qcrmin) then + ehi = exp(0.07*(-supcol)) + acrfac = 2.*rslope3(i,k,4)+2.*diameter*rslope2(i,k,4) & + + diameter**2*rslope(i,k,4) + phaci(i,k) = pi*ehi*qci(i,k,2)*n0h*abs(vt2h-vt2i)*acrfac/4. + phaci(i,k) = min(phaci(i,k),qci(i,k,2)/dtcld) + endif + endif +! +! psacw: Accretion of cloud water by snow [HL A7] [LFO 24] +! (TQS, and T>=T0: QC->QR) +! + if(qrs(i,k,2).gt.qcrmin .and. qci(i,k,1).gt.qmin) then + psacw(i,k) = min(pacrc*n0sfac(i,k)*rslope3(i,k,2)*rslopeb(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,2)/qci(i,k,1)),1.)**2 & + *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) + endif +! +! nsacw: Accretion of cloud water by snow [LH A12] +! (NC ->) +! + if(qrs(i,k,2).gt.qcrmin .and. ncr(i,k,2).gt.ncmin) then + nsacw(i,k) = min(pacrc*n0sfac(i,k)*rslope3(i,k,2)*rslopeb(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,2)/qci(i,k,1)),1.)**2 & + *ncr(i,k,2)*denfac(i,k),ncr(i,k,2)/dtcld) + endif +! +! pgacw: Accretion of cloud water by graupel [HL A6] [LFO 40] +! (TQG, and T>=T0: QC->QR) +! + if(qrs(i,k,3).gt.qcrmin .and. qci(i,k,1).gt.qmin) then + pgacw(i,k) = min(pacrg*rslope3(i,k,3)*rslopeb(i,k,3)*qci(i,k,1) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,3)/qci(i,k,1)),1.)**2 & + *denfac(i,k),qci(i,k,1)/dtcld) + endif +! +! ngacw: Accretion of cloud water by graupel [LH A13] +! (NC-> +! + if(qrs(i,k,3).gt.qcrmin .and. ncr(i,k,2).gt.ncmin) then + ngacw(i,k) = min(pacrg*rslope3(i,k,3)*rslopeb(i,k,3)*ncr(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,3)/qci(i,k,1)),1.)**2 & + *denfac(i,k),ncr(i,k,2)/dtcld) + endif +! +! paacw: Accretion of cloud water by averaged snow/graupel +! (TQG or QS, and T>=T0: QC->QR) +! + if(qsum(i,k) .gt. 1.e-15) then + paacw(i,k) = (qrs(i,k,2)*psacw(i,k)+qrs(i,k,3)*pgacw(i,k))/(qsum(i,k)) +! +! naacw: Accretion of cloud water by averaged snow/graupel +! (Nc->) +! + naacw(i,k) = (qrs(i,k,2)*nsacw(i,k)+qrs(i,k,3)*ngacw(i,k))/(qsum(i,k)) + endif +! +! phacw: Accretion of cloud water by hail [BHT A08] +! (TQH, and T>=T0: QC->QR) +! + if(qrs(i,k,4).gt.qcrmin .and. qci(i,k,1).gt.qmin) then + phacw(i,k) = min(pacrh*rslope3(i,k,4)*rslopeb(i,k,4)*qci(i,k,1) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,4)/qci(i,k,1)),1.)**2 & + *denfac(i,k),qci(i,k,1)/dtcld) + endif +! +! nhacw: Accretion of cloud water by hail +! (NC->) +! + if(qrs(i,k,4).gt.qcrmin .and. ncr(i,k,2).gt.ncmin) then + nhacw(i,k) = min(pacrh*rslope3(i,k,4)*rslopeb(i,k,4)*ncr(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,4)/qci(i,k,1)),1.)**2 & + *denfac(i,k),ncr(i,k,2)/dtcld) + endif +! +! pracs: Accretion of snow by rain [HL A11] [LFO 27] +! (TQG) +! + if(qrs(i,k,2).gt.qcrmin .and. qrs(i,k,1).gt.qcrmin) then + if(supcol.gt.0) then + acrfac = 5.*rslope3(i,k,2)*rslope3(i,k,2) & + + 4.*rslope3(i,k,2)*rslope2(i,k,2)*rslope(i,k,1) & + + 1.5*rslope2(i,k,2)*rslope2(i,k,2)*rslope2(i,k,1) + pracs(i,k) = pi*pi*ncr(i,k,3)*n0s*n0sfac(i,k)*abs(vt2r-vt2ave) & + *(dens/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pracs(i,k) = pracs(i,k)*min(max(0.0,qrs(i,k,1)/qrs(i,k,2)),1.)**2 + pracs(i,k) = min(pracs(i,k),qrs(i,k,2)/dtcld) + endif +! +! psacr: Accretion of rain by snow [HL A10] [LFO 28] +! (TQS or QR->QG) (T>=T0: enhance melting of snow) +! + acrfac = 30.*rslope3(i,k,1)*rslope2(i,k,1)*rslope(i,k,2) & + +10.*rslope2(i,k,1)*rslope2(i,k,1)*rslope2(i,k,2) & + + 2.*rslope3(i,k,1)*rslope3(i,k,2) + psacr(i,k) = pi*pi*ncr(i,k,3)*n0s*n0sfac(i,k)*abs(vt2ave-vt2r) & + *(denr/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + psacr(i,k) = psacr(i,k)*min(max(0.0,qrs(i,k,2)/qrs(i,k,1)),1.)**2 + psacr(i,k) = min(psacr(i,k),qrs(i,k,1)/dtcld) + endif + if(qrs(i,k,2).gt.qcrmin .and. ncr(i,k,3).gt.nrmin) then +! +! nsacr: Accretion of rain by snow [LH A23] +! (T) +! + acrfac = 1.5*rslope2(i,k,1)*rslope(i,k,2) & + + 1.0*rslope(i,k,1)*rslope2(i,k,2)+.5*rslope3(i,k,2) + nsacr(i,k) = pi*ncr(i,k,3)*n0s*n0sfac(i,k)*abs(vt2ave-vt2r) & + *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + nsacr(i,k) = nsacr(i,k)*min(max(0.0,qrs(i,k,2)/qrs(i,k,1)),1.)**2 + nsacr(i,k) = min(nsacr(i,k),ncr(i,k,3)/dtcld) + endif +! +! pracg: Accretion of graupel by rain [BHT A17] +! (TQH) +! + if(qrs(i,k,3).gt.qcrmin.and.qrs(i,k,1).gt.qcrmin) then + if(supcol.gt.0) then + acrfac = 5.*rslope3(i,k,3)*rslope3(i,k,3) & + +4.*rslope3(i,k,3)*rslope2(i,k,3)*rslope(i,k,1) & + +1.5*rslope2(i,k,3)*rslope2(i,k,3)*rslope2(i,k,1) + pracg(i,k) = pi*pi*ncr(i,k,3)*n0g*abs(vt2r-vt2ave) & + *(deng/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pracg(i,k) = pracg(i,k)*min(max(0.0,qrs(i,k,1)/qrs(i,k,3)),1.)**2 + pracg(i,k) = min(pracg(i,k),qrs(i,k,3)/dtcld) + endif +! +! pgacr: Accretion of rain by graupel [HL A12] [LFO 42] +! (TQG) (T>=T0: enhance melting of graupel) +! + acrfac = 30.*rslope3(i,k,1)*rslope2(i,k,1)*rslope(i,k,3) & + +10.*rslope2(i,k,1)*rslope2(i,k,1)*rslope2(i,k,3) & + + 2.*rslope3(i,k,1)*rslope3(i,k,3) + pgacr(i,k) = pi*pi*ncr(i,k,3)*n0g*abs(vt2ave-vt2r)*(denr/den(i,k)) & + *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pgacr(i,k) = pgacr(i,k)*min(max(0.0,qrs(i,k,3)/qrs(i,k,1)),1.)**2 + pgacr(i,k) = min(pgacr(i,k),qrs(i,k,1)/dtcld) + endif +! +! ngacr: Accretion of rain by graupel [LH A24] +! (T) +! + if(qrs(i,k,3).gt.qcrmin .and. ncr(i,k,3).gt.nrmin) then + acrfac = 1.5*rslope2(i,k,1)*rslope(i,k,3) & + + 1.0*rslope(i,k,1)*rslope2(i,k,3) + .5*rslope3(i,k,3) + ngacr(i,k) = pi*ncr(i,k,3)*n0g*abs(vt2ave-vt2r)*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + ngacr(i,k) = ngacr(i,k)*min(max(0.0,qrs(i,k,3)/qrs(i,k,1)),1.)**2 + ngacr(i,k) = min(ngacr(i,k),ncr(i,k,3)/dtcld) + endif +! +! pgacs: Accretion of snow by graupel [HL A13] [LFO 29] +! (QS->QG) : This process is eliminated in V3.0 with the +! new combined snow/graupel fall speeds +! + if(qrs(i,k,3).gt.qcrmin .and. qrs(i,k,2).gt.qcrmin) then + pgacs(i,k) = 0. + endif +! +! phacr: Accretion of rain by hail [BHT A13] +! (TQH) (T>=T0: enhance melting of hail) +! + if(qrs(i,k,4).gt.qcrmin.and.qrs(i,k,1).gt.qcrmin) then + acrfac = 30.*rslope3(i,k,1)*rslope2(i,k,1)*rslope(i,k,4) & + +10.*rslope3(i,k,1)*rslope(i,k,1)*rslope2(i,k,4) & + + 2.*rslope3(i,k,1)*rslope3(i,k,4) + phacr(i,k) = pi*pi*ncr(i,k,3)*n0h*abs(vt2h-vt2r)*(denr/den(i,k)) & + *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + phacr(i,k) = phacr(i,k)*min(max(0.0,qrs(i,k,4)/qrs(i,k,1)),1.)**2 + phacr(i,k) = min(phacr(i,k),qrs(i,k,1)/dtcld) + endif +! +! nhacr: Accretion of rain by hail +! (T) +! + if(qrs(i,k,4).gt.qcrmin .and. ncr(i,k,3).gt.nrmin) then + acrfac = 1.5*rslope2(i,k,1)*rslope(i,k,4) & + + 1.0*rslope(i,k,1)*rslope2(i,k,4) + .5*rslope3(i,k,4) + nhacr(i,k) = pi*ncr(i,k,3)*n0h*abs(vt2h-vt2r)*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + nhacr(i,k) = nhacr(i,k)*min(max(0.0,qrs(i,k,4)/qrs(i,k,1)),1.)**2 + nhacr(i,k) = min(nhacr(i,k),ncr(i,k,3)/dtcld) + endif +! +! phacs: Accretion of snow by hail [BHT A14] +! (TQH) +! + if(qrs(i,k,4).gt.qcrmin.and.qrs(i,k,2).gt.qcrmin) then + acrfac = 5.*rslope3(i,k,2)*rslope3(i,k,2)*rslope(i,k,4) & + +2.*rslope3(i,k,2)*rslope2(i,k,2)*rslope2(i,k,4) & + +.5*rslope2(i,k,2)*rslope2(i,k,2)*rslope3(i,k,4) + phacs(i,k) = pi**2*eachs*n0s*n0sfac(i,k)*n0h*abs(vt2h-vt2ave) & + *(dens/den(i,k))*acrfac + phacs(i,k) = min(phacs(i,k),qrs(i,k,2)/dtcld) + endif +! +! phacg: Accretion of snow by hail [BHT A15] +! (TQH) +! + if(qrs(i,k,4).gt.qcrmin.and.qrs(i,k,3).gt.qcrmin) then + acrfac = 5.*rslope3(i,k,3)*rslope3(i,k,3)*rslope(i,k,4) & + +2.*rslope3(i,k,3)*rslope2(i,k,3)*rslope2(i,k,4) & + +.5*rslope2(i,k,3)*rslope2(i,k,3)*rslope3(i,k,4) + phacg(i,k) = pi**2*eachg*n0g*n0h*abs(vt2h-vt2ave) & + *(deng/den(i,k))*acrfac + phacg(i,k) = min(phacg(i,k),qrs(i,k,3)/dtcld) + endif +! +! pgwet: wet growth of graupel [LFO 43] +! + rs0 = psat*exp(log(ttp/t0c)*xa)*exp(xb*(1.-ttp/t0c)) + rs0 = min(rs0,0.99*p(i,k)) + rs0 = ep2*rs0/(p(i,k)-rs0) + rs0 = max(rs0,qmin) + ghw1 = den(i,k)*hvap*diffus(t(i,k),p(i,k))*(rs0-q(i,k)) & + - xka(t(i,k),den(i,k))*(-supcol) + ghw2 = den(i,k)*(xlf0+cliq*(-supcol)) + ghw3 = venfac(p(i,k),t(i,k),den(i,k))*sqrt(sqrt(g*den(i,k)/den0)) + ghw4 = den(i,k)*(xlf0-cliq*supcol+cice*supcol) + if(qrs(i,k,3).gt.qcrmin) then + if(pgaci(i,k).gt.0.0) then + egi = exp(0.07*(-supcol)) + pgaci_w(i,k) = pgaci(i,k)/egi + else + pgaci_w(i,k) = 0.0 + endif + pgwet(i,k) = ghw1/ghw2*(precg1*rslope2(i,k,3) & + +precg3*ghw3*rslope(i,k,4)**(2.75) & + +ghw4*(pgaci_w(i,k)+pgacs(i,k))) + pgwet(i,k) = max(pgwet(i,k), 0.0) + endif +! +! phwet: wet growth of hail [LFO 43] +! + if(qrs(i,k,4).gt.qcrmin) then + if(phaci(i,k).gt.0.0) then + ehi = exp(0.07*(-supcol)) + phaci_w(i,k) = phaci(i,k)/ehi + else + phaci_w(i,k) = 0.0 + endif + endif + phwet(i,k) = ghw1/ghw2*(prech1*rslope2(i,k,4) & + +prech3*ghw3*rslope(i,k,4)**(2.75) & + +ghw4*(phaci_w(i,k)+phacs(i,k))) + phwet(i,k) = max(phwet(i,k), 0.0) + if(supcol.le.0) then + xlf = xlf0 +! +! pseml: Enhanced melting of snow by accretion of water [HL A34] +! (T>=T0: QS->QR) +! + if(qrs(i,k,2).gt.0.) & + pseml(i,k) = min(max(cliq*supcol*(paacw(i,k)+psacr(i,k)) & + /xlf,-qrs(i,k,2)/dtcld),0.) +! +! nseml: Enhanced melting of snow by accretion of water [LH A29] +! (T>=T0: ->NR) +! + if (qrs(i,k,2).gt.qcrmin) then + sfac = rslope(i,k,2)*n0s*n0sfac(i,k)/qrs(i,k,2) + nseml(i,k) = -sfac*pseml(i,k) + endif +! +! pgeml: Enhanced melting of graupel by accretion of water [HL A24] [RH84 A21-A22] +! (T>=T0: QG->QR) +! + if(qrs(i,k,3).gt.0.) & + pgeml(i,k) = min(max(cliq*supcol*(paacw(i,k)+pgacr(i,k))/xlf & + ,-qrs(i,k,3)/dtcld),0.) +! +! ngeml: Enhanced melting of graupel by accretion of water [LH A30] +! (T>=T0: -> NR) +! + if (qrs(i,k,3).gt.qcrmin) then + gfac = rslope(i,k,3)*n0g/qrs(i,k,3) + ngeml(i,k) = -gfac*pgeml(i,k) + endif +! +! pheml: Enhanced melting of hail by accretion of water [BHT A23] +! (T>=T0: QH->QR) +! + if(qrs(i,k,4).gt.0.) & + pheml(i,k) = min(max(cliq*supcol*(phacw(i,k)+phacr(i,k))/xlf & + ,-qrs(i,k,4)/dtcld),0.) +! +! nheml: Enhanced melting of hail by accretion of water [LH A30] +! (T>=T0: -> NR) +! + if (qrs(i,k,4).gt.qcrmin) then + gfac = rslope(i,k,4)*n0h/qrs(i,k,4) + nheml(i,k) = -gfac*pheml(i,k) + endif + endif + if(supcol.gt.0) then +! +! pidep: Deposition/Sublimation rate of ice [HDC 9] +! (TQI or QI->QV) +! + if(qci(i,k,2).gt.0. .and. ifsat.ne.1) then + pidep(i,k) = 4.*diameter*xni(i,k)*(rh(i,k,2)-1.)/work1(i,k,2) + supice = satdt-prevp(i,k) + if(pidep(i,k).lt.0.) then + pidep(i,k) = max(max(pidep(i,k),satdt/2),supice) + pidep(i,k) = max(pidep(i,k),-qci(i,k,2)/dtcld) + else + pidep(i,k) = min(min(pidep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)).ge.abs(satdt)) ifsat = 1 + endif +! +! psdep: deposition/sublimation rate of snow [HDC 14] +! (TQS or QS->QV) +! + if(qrs(i,k,2).gt.0. .and. ifsat.ne.1) then + coeres = rslope2(i,k,2)*sqrt(rslope(i,k,2)*rslopeb(i,k,2)) + psdep(i,k) = (rh(i,k,2)-1.)*n0sfac(i,k)*(precs1*rslope2(i,k,2) & + + precs2*work2(i,k)*coeres)/work1(i,k,2) + supice = satdt-prevp(i,k)-pidep(i,k) + if(psdep(i,k).lt.0.) then + psdep(i,k) = max(psdep(i,k),-qrs(i,k,2)/dtcld) + psdep(i,k) = max(max(psdep(i,k),satdt/2),supice) + else + psdep(i,k) = min(min(psdep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)+psdep(i,k)).ge.abs(satdt)) ifsat = 1 + endif +! +! pgdep: deposition/sublimation rate of graupel [HL A21] [LFO 46] +! (TQG or QG->QV) +! + if(qrs(i,k,3).gt.0. .and. ifsat.ne.1) then + coeres = rslope2(i,k,3)*sqrt(rslope(i,k,3)*rslopeb(i,k,3)) + pgdep(i,k) = (rh(i,k,2)-1.)*(precg1*rslope2(i,k,3) & + + precg2*work2(i,k)*coeres)/work1(i,k,2) + supice = satdt-prevp(i,k)-pidep(i,k)-psdep(i,k) + if(pgdep(i,k).lt.0.) then + pgdep(i,k) = max(pgdep(i,k),-qrs(i,k,3)/dtcld) + pgdep(i,k) = max(max(pgdep(i,k),satdt/2),supice) + else + pgdep(i,k) = min(min(pgdep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)+psdep(i,k)+pgdep(i,k)).ge. & + abs(satdt)) ifsat = 1 + endif +! +! phdep: deposition/sublimation rate of hail [BHT A19] +! (TQH or QH->QV) +! + if(qrs(i,k,4).gt.0..and.ifsat.ne.1) then + coeres = rslope2(i,k,4)*sqrt(rslope(i,k,4)*rslopeb(i,k,4)) + phdep(i,k) = (rh(i,k,2)-1.)*(prech1*rslope2(i,k,4) & + +prech2*work2(i,k)*coeres)/work1(i,k,2) + supice = satdt-prevp(i,k)-pidep(i,k)-psdep(i,k)-pgdep(i,k) + if(phdep(i,k).lt.0.) then + phdep(i,k) = max(phdep(i,k),-qrs(i,k,4)/dtcld) + phdep(i,k) = max(max(phdep(i,k),satdt/2),supice) + else + phdep(i,k) = min(min(phdep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)+psdep(i,k)+pgdep(i,k)+phdep(i,k)) & + .ge. abs(satdt)) ifsat = 1 + endif +! +! pigen: generation(nucleation) of ice from vapor [HL 50] [HDC 7-8] +! (TQI) +! + if(supsat.gt.0. .and. ifsat.ne.1) then + supice = satdt-prevp(i,k)-pidep(i,k)-psdep(i,k)-pgdep(i,k) & + -phdep(i,k) + xni0 = 1.e3*exp(0.1*supcol) + roqi0 = 4.92e-11*xni0**1.33 + pigen(i,k) = max(0.,(roqi0/den(i,k)-max(qci(i,k,2),0.))/dtcld) + pigen(i,k) = min(min(pigen(i,k),satdt),supice) + endif +! +! psaut: conversion(aggregation) of ice to snow [HDC 12] +! (TQS) +! + if(qci(i,k,2).gt.0.) then + qimax = roqimax/den(i,k) + psaut(i,k) = max(0.,(qci(i,k,2)-qimax)/dtcld) + endif +! +! pgaut: conversion(aggregation) of snow to graupel [HL A4] [LFO 37] +! (TQG) +! + if(qrs(i,k,2).gt.0.) then + alpha2 = 1.e-3*exp(0.09*(-supcol)) + pgaut(i,k) = min(max(0.,alpha2*(qrs(i,k,2)-qs0)),qrs(i,k,2)/dtcld) + endif + endif +! +! phaut: conversion(aggregation) of grauple to hail [BHT A18] +! (TQH) +! + if(qrs(i,k,3).gt.0.) then + alpha2 = 1.e-3*exp(0.09*(-supcol)) + phaut(i,k) = min(max(0.,alpha2*(qrs(i,k,3)-qs0)),qrs(i,k,3)/dtcld) + endif +! +! psevp: Evaporation of melting snow [HL A35] [RH83 A27] +! (T>=T0: QS->QV) +! + if(supcol.lt.0.) then + if(qrs(i,k,2).gt.0. .and. rh(i,k,1).lt.1.) then + coeres = rslope2(i,k,2)*sqrt(rslope(i,k,2)*rslopeb(i,k,2)) + psevp(i,k) = (rh(i,k,1)-1.)*n0sfac(i,k)*(precs1*rslope2(i,k,2) & + +precs2*work2(i,k)*coeres)/work1(i,k,1) + psevp(i,k) = min(max(psevp(i,k),-qrs(i,k,2)/dtcld),0.) + endif +! +! pgevp: Evaporation of melting graupel [HL A25] [RH84 A19] +! (T>=T0: QG->QV) +! + if(qrs(i,k,3).gt.0. .and. rh(i,k,1).lt.1.) then + coeres = rslope2(i,k,3)*sqrt(rslope(i,k,3)*rslopeb(i,k,3)) + pgevp(i,k) = (rh(i,k,1)-1.)*(precg1*rslope2(i,k,3) & + + precg2*work2(i,k)*coeres)/work1(i,k,1) + pgevp(i,k) = min(max(pgevp(i,k),-qrs(i,k,3)/dtcld),0.) + endif +! +! phevp: Evaporation of melting hail [BHT A20] +! (T>=T0: QH->QV) +! + if(qrs(i,k,4).gt.0..and.rh(i,k,1).lt.1.) then + coeres = rslope2(i,k,4)*sqrt(rslope(i,k,4)*rslopeb(i,k,4)) + phevp(i,k) = (rh(i,k,1)-1.)*(prech1*rslope2(i,k,4) & + +prech2*work2(i,k)*coeres)/work1(i,k,1) + phevp(i,k) = min(max(phevp(i,k),-qrs(i,k,4)/dtcld),0.) + endif + endif + enddo + enddo +! +! +!---------------------------------------------------------------- +! check mass conservation of generation terms and feedback to the +! large scale +! + do k = kts, kte + do i = its, ite +! + delta2=0. + delta3=0. + if(qrs(i,k,1).lt.1.e-4 .and. qrs(i,k,2).lt.1.e-4) delta2=1. + if(qrs(i,k,1).lt.1.e-4) delta3=1. + if(t(i,k).le.t0c) then +! +! cloud water +! + value = max(qmin,qci(i,k,1)) + source = (praut(i,k)+pracw(i,k)+paacw(i,k)+paacw(i,k)+phacw(i,k)) & + *dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + endif +! +! cloud ice +! + value = max(qmin,qci(i,k,2)) + source = (psaut(i,k)-pigen(i,k)-pidep(i,k)+praci(i,k)+psaci(i,k) & + +pgaci(i,k)+phaci(i,k))*dtcld + if (source.gt.value) then + factor = value/source + psaut(i,k) = psaut(i,k)*factor + pigen(i,k) = pigen(i,k)*factor + pidep(i,k) = pidep(i,k)*factor + praci(i,k) = praci(i,k)*factor + psaci(i,k) = psaci(i,k)*factor + pgaci(i,k) = pgaci(i,k)*factor + phaci(i,k) = phaci(i,k)*factor + endif +! +! rain +! + value = max(qmin,qrs(i,k,1)) + source = (-praut(i,k)-prevp(i,k)-pracw(i,k)+piacr(i,k) & + +psacr(i,k)+pgacr(i,k)+phacr(i,k))*dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + prevp(i,k) = prevp(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + piacr(i,k) = piacr(i,k)*factor + psacr(i,k) = psacr(i,k)*factor + pgacr(i,k) = pgacr(i,k)*factor + phacr(i,k) = phacr(i,k)*factor + endif +! +! snow +! + value = max(qmin,qrs(i,k,2)) + source = -(psdep(i,k)+psaut(i,k)-pgaut(i,k)+paacw(i,k) & + +piacr(i,k)*delta3+praci(i,k)*delta3 & + +pvapg(i,k)+pvaph(i,k) & + -pracs(i,k)*(1.-delta2)+psacr(i,k)*delta2 & + +psaci(i,k)-pgacs(i,k)-phacs(i,k) )*dtcld + if (source.gt.value) then + factor = value/source + psdep(i,k) = psdep(i,k)*factor + psaut(i,k) = psaut(i,k)*factor + pgaut(i,k) = pgaut(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + piacr(i,k) = piacr(i,k)*factor + praci(i,k) = praci(i,k)*factor + psaci(i,k) = psaci(i,k)*factor + pracs(i,k) = pracs(i,k)*factor + psacr(i,k) = psacr(i,k)*factor + pgacs(i,k) = pgacs(i,k)*factor + phacs(i,k) = phacs(i,k)*factor + pvapg(i,k) = pvapg(i,k)*factor + pvaph(i,k) = pvaph(i,k)*factor + endif +! +! graupel +! + value = max(qmin,qrs(i,k,3)) + source = -(pgdep(i,k)+pgaut(i,k) & + +piacr(i,k)*(1.-delta3)+praci(i,k)*(1.-delta3) & + +psacr(i,k)*(1.-delta2)+pracs(i,k)*(1.-delta2) & + +pgaci(i,k)+paacw(i,k)+pgacr(i,k)*delta2+pgacs(i,k) & + -pracg(i,k)*(1.-delta2)-phacg(i,k)-phaut(i,k) & + -pvapg(i,k)+primh(i,k))*dtcld + if (source.gt.value) then + factor = value/source + pgdep(i,k) = pgdep(i,k)*factor + pgaut(i,k) = pgaut(i,k)*factor + phaut(i,k) = phaut(i,k)*factor + piacr(i,k) = piacr(i,k)*factor + praci(i,k) = praci(i,k)*factor + psacr(i,k) = psacr(i,k)*factor + pracs(i,k) = pracs(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + pgaci(i,k) = pgaci(i,k)*factor + pgacr(i,k) = pgacr(i,k)*factor + pgacs(i,k) = pgacs(i,k)*factor + pracg(i,k) = pracg(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + pvapg(i,k) = pvapg(i,k)*factor + primh(i,k) = primh(i,k)*factor + endif +! +! hail +! + value = max(qmin,qrs(i,k,4)) + source = -(phdep(i,k)+phaut(i,k) & + +pgacr(i,k)*(1.-delta2)+pracg(i,k)*(1.-delta2) & + +phacw(i,k)+phacr(i,k)+phaci(i,k)+phacs(i,k) & + +phacg(i,k)-pvaph(i,k)-primh(i,k))*dtcld + if (source.gt.value) then + factor = value/source + phdep(i,k) = phdep(i,k)*factor + phaut(i,k) = phaut(i,k)*factor + pracg(i,k) = pracg(i,k)*factor + pgacr(i,k) = pgacr(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + phaci(i,k) = phaci(i,k)*factor + phacr(i,k) = phacr(i,k)*factor + phacs(i,k) = phacs(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + pvaph(i,k) = pvaph(i,k)*factor + primh(i,k) = primh(i,k)*factor + endif +! +! cloud +! + value = max(ncmin,ncr(i,k,2)) + source = (nraut(i,k)+nccol(i,k)+nracw(i,k) & + +naacw(i,k)+naacw(i,k)+nhacw(i,k))*dtcld + if (source.gt.value) then + factor = value/source + nraut(i,k) = nraut(i,k)*factor + nccol(i,k) = nccol(i,k)*factor + nracw(i,k) = nracw(i,k)*factor + naacw(i,k) = naacw(i,k)*factor + nhacw(i,k) = nhacw(i,k)*factor + endif +! +! rain +! + value = max(nrmin,ncr(i,k,3)) + source = (-nraut(i,k)+nrcol(i,k)+niacr(i,k)+nsacr(i,k)+ngacr(i,k) & + +nhacr(i,k))*dtcld + if (source.gt.value) then + factor = value/source + nraut(i,k) = nraut(i,k)*factor + nrcol(i,k) = nrcol(i,k)*factor + niacr(i,k) = niacr(i,k)*factor + nsacr(i,k) = nsacr(i,k)*factor + ngacr(i,k) = ngacr(i,k)*factor + nhacr(i,k) = nhacr(i,k)*factor + endif +! + work2(i,k)=-(prevp(i,k)+psdep(i,k)+pgdep(i,k)+phdep(i,k) & + +pigen(i,k)+pidep(i,k)) +! update + q(i,k) = q(i,k)+work2(i,k)*dtcld + qci(i,k,1) = max(qci(i,k,1)-(praut(i,k)+pracw(i,k) & + +paacw(i,k)+paacw(i,k)+phacw(i,k))*dtcld,0.) + qrs(i,k,1) = max(qrs(i,k,1)+(praut(i,k)+pracw(i,k) & + +prevp(i,k)-piacr(i,k)-pgacr(i,k) & + -psacr(i,k)-phacr(i,k))*dtcld,0.) + qci(i,k,2) = max(qci(i,k,2)-(psaut(i,k)+praci(i,k) & + +psaci(i,k)+pgaci(i,k)+phaci(i,k) & + -pigen(i,k)-pidep(i,k)) & + *dtcld,0.) + qrs(i,k,2) = max(qrs(i,k,2)+(psdep(i,k)+psaut(i,k)+paacw(i,k) & + -pgaut(i,k)+piacr(i,k)*delta3 & + +praci(i,k)*delta3+psaci(i,k)-pgacs(i,k) & + -pracs(i,k)*(1.-delta2)+psacr(i,k)*delta2 & + +pvapg(i,k)+pvaph(i,k)-phacs(i,k)) & + *dtcld,0.) + qrs(i,k,3) = max(qrs(i,k,3)+(pgdep(i,k)+pgaut(i,k) & + +piacr(i,k)*(1.-delta3) & + +praci(i,k)*(1.-delta3)+psacr(i,k)*(1.-delta2) & + +pracs(i,k)*(1.-delta2)+pgaci(i,k)+paacw(i,k) & + +pgacr(i,k)*delta2+pgacs(i,k)+primh(i,k) & + -pracg(i,k)*(1.-delta2)-phacg(i,k)-phaut(i,k) & + -pvapg(i,k))*dtcld,0.) + qrs(i,k,4) = max(qrs(i,k,4)+(phdep(i,k)+phaut(i,k) & + +pgacr(i,k)*(1.-delta2)+pracg(i,k)*(1.-delta2) & + +phacw(i,k)+phacr(i,k)+phaci(i,k)+phacs(i,k) & + +phacg(i,k)-pvaph(i,k)-primh(i,k)) & + *dtcld,0.) + ncr(i,k,2) = max(ncr(i,k,2)+(-nraut(i,k)-nccol(i,k)-nracw(i,k) & + -naacw(i,k)-naacw(i,k)-nhacw(i,k))*dtcld,0.) + ncr(i,k,3) = max(ncr(i,k,3)+(nraut(i,k)-nrcol(i,k)-niacr(i,k) & + -nsacr(i,k)-ngacr(i,k)-nhacr(i,k))*dtcld,0.) + xlf = xls-xl(i,k) + xlwork2 = -xls*(psdep(i,k)+pgdep(i,k)+phdep(i,k)+pidep(i,k) & + +pigen(i,k))-xl(i,k)*prevp(i,k)-xlf*(piacr(i,k) & + +paacw(i,k)+paacw(i,k)+phacw(i,k) & + +pgacr(i,k)+psacr(i,k)+phacr(i,k)) + t(i,k) = t(i,k)-xlwork2/cpm(i,k)*dtcld + else +! +! cloud water +! + value = max(qmin,qci(i,k,1)) + source= (praut(i,k)+pracw(i,k)+paacw(i,k)+paacw(i,k)-phacw(i,k)) & + *dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + endif +! +! rain +! + value = max(qmin,qrs(i,k,1)) + source = (-prevp(i,k)-praut(i,k)+pseml(i,k)+pgeml(i,k)+pheml(i,k) & + -pracw(i,k)-paacw(i,k)-paacw(i,k)-phacw(i,k))*dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + prevp(i,k) = prevp(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + pseml(i,k) = pseml(i,k)*factor + pgeml(i,k) = pgeml(i,k)*factor + pheml(i,k) = pheml(i,k)*factor + endif +! +! snow +! + value = max(qcrmin,qrs(i,k,2)) + source=(pgacs(i,k)+phacs(i,k)-pseml(i,k)-psevp(i,k))*dtcld + if (source.gt.value) then + factor = value/source + pgacs(i,k) = pgacs(i,k)*factor + phacs(i,k) = phacs(i,k)*factor + psevp(i,k) = psevp(i,k)*factor + pseml(i,k) = pseml(i,k)*factor + endif +! +! graupel +! + value = max(qcrmin,qrs(i,k,3)) + source=-(pgacs(i,k)+pgevp(i,k)+pgeml(i,k)-phacg(i,k))*dtcld + if (source.gt.value) then + factor = value/source + pgacs(i,k) = pgacs(i,k)*factor + pgevp(i,k) = pgevp(i,k)*factor + pgeml(i,k) = pgeml(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + endif +! +! hail +! + value = max(qcrmin,qrs(i,k,4)) + source=-(phacs(i,k)+phacg(i,k)+phevp(i,k)+pheml(i,k))*dtcld + if (source.gt.value) then + factor = value/source + phacs(i,k) = phacs(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + phevp(i,k) = phevp(i,k)*factor + pheml(i,k) = pheml(i,k)*factor + endif + +! +! cloud +! + value = max(ncmin,ncr(i,k,2)) + source = (nraut(i,k)+nccol(i,k)+nracw(i,k)+naacw(i,k) & + +naacw(i,k)+nhacw(i,k))*dtcld + if (source.gt.value) then + factor = value/source + nraut(i,k) = nraut(i,k)*factor + nccol(i,k) = nccol(i,k)*factor + nracw(i,k) = nracw(i,k)*factor + naacw(i,k) = naacw(i,k)*factor + nhacw(i,k) = nhacw(i,k)*factor + endif +! +! rain +! + value = max(nrmin,ncr(i,k,3)) + source = (-nraut(i,k)+nrcol(i,k)-nseml(i,k)-ngeml(i,k) & + -nheml(i,k))*dtcld + if (source.gt.value) then + factor = value/source + nraut(i,k) = nraut(i,k)*factor + nrcol(i,k) = nrcol(i,k)*factor + nseml(i,k) = nseml(i,k)*factor + ngeml(i,k) = ngeml(i,k)*factor + nheml(i,k) = nheml(i,k)*factor + endif +! + work2(i,k)=-(prevp(i,k)+psevp(i,k)+pgevp(i,k)+phevp(i,k)) +! update + q(i,k) = q(i,k)+work2(i,k)*dtcld + qci(i,k,1) = max(qci(i,k,1)-(praut(i,k)+pracw(i,k) & + +paacw(i,k)+paacw(i,k)+phacw(i,k))*dtcld,0.) + qrs(i,k,1) = max(qrs(i,k,1)+(praut(i,k)+pracw(i,k) & + +prevp(i,k)+paacw(i,k)+paacw(i,k)+phacw(i,k) & + -pseml(i,k)-pgeml(i,k)-pheml(i,k))*dtcld,0.) + qrs(i,k,2) = max(qrs(i,k,2)+(psevp(i,k)-pgacs(i,k)-phacs(i,k) & + +pseml(i,k))*dtcld,0.) + qrs(i,k,3) = max(qrs(i,k,3)+(pgacs(i,k)+pgevp(i,k) & + +pgeml(i,k)-phacg(i,k))*dtcld,0.) + qrs(i,k,4) = max(qrs(i,k,4)+(phacs(i,k)+phacg(i,k)+phevp(i,k) & + +pheml(i,k))*dtcld,0.) + ncr(i,k,2) = max(ncr(i,k,2)+(-nraut(i,k)-nccol(i,k)-nracw(i,k) & + -naacw(i,k)-naacw(i,k)-nhacw(i,k))*dtcld,0.) + ncr(i,k,3) = max(ncr(i,k,3)+(nraut(i,k)-nrcol(i,k)+nseml(i,k) & + +ngeml(i,k)+nheml(i,k))*dtcld,0.) + xlf = xls-xl(i,k) + xlwork2 = -xl(i,k)*(prevp(i,k)+psevp(i,k)+pgevp(i,k)+phevp(i,k)) & + -xlf*(pseml(i,k)+pgeml(i,k)+pheml(i,k)) + t(i,k) = t(i,k)-xlwork2/cpm(i,k)*dtcld + endif + enddo + enddo +! +! Inline expansion for fpvs +! qs(i,k,1) = fpvs(t(i,k),0,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) +! qs(i,k,2) = fpvs(t(i,k),1,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) + hsub = xls + hvap = xlv0 + cvap = cpv + ttp=t0c+0.01 + dldt=cvap-cliq + xa=-dldt/rv + xb=xa+hvap/(rv*ttp) + dldti=cvap-cice + xai=-dldti/rv + xbi=xai+hsub/(rv*ttp) + do k = kts, kte + do i = its, ite + tr=ttp/t(i,k) + qs(i,k,1)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + qs(i,k,1) = min(qs(i,k,1),0.99*p(i,k)) + qs(i,k,1) = ep2 * qs(i,k,1) / (p(i,k) - qs(i,k,1)) + qs(i,k,1) = max(qs(i,k,1),qmin) + tr=ttp/t(i,k) + if(t(i,k).lt.ttp) then + qs(i,k,2)=psat*exp(log(tr)*(xai))*exp(xbi*(1.-tr)) + else + qs(i,k,2)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + endif + qs(i,k,2) = min(qs(i,k,2),0.99*p(i,k)) + qs(i,k,2) = ep2 * qs(i,k,2) / (p(i,k) - qs(i,k,2)) + qs(i,k,2) = max(qs(i,k,2),qmin) + rh(i,k,1) = max(q(i,k) / qs(i,k,1),qmin) + enddo + enddo +! + call slope_wdm7(qrs_tmp,ncr_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2, & + rslope3,work1,workn,its,ite,kts,kte) +! + do k = kts, kte + do i = its, ite +! +! re-compute the mean-volume drop diameter [LH A10] +! for raindrop distribution +! + avedia(i,k,2) = rslope(i,k,1)*((24.)**(.3333333)) +! +! Nrevp_s: evaporation/condensation rate of rain [LH A14] +! (NR->NC) +! + if(avedia(i,k,2).le.di82) then + ncr(i,k,2) = ncr(i,k,2)+ncr(i,k,3) + ncr(i,k,3) = 0. +! +! Prevp_s: evaporation/condensation rate of rain [LH A15] [KK 23] +! (QR->QC) +! + qci(i,k,1) = qci(i,k,1)+qrs(i,k,1) + qrs(i,k,1) = 0. + endif + enddo + enddo +! + do k = kts, kte + do i = its, ite +! +! rate of change of cloud drop concentration due to CCN activation +! pcact: QV -> QC [LH 8] [KK 14] +! ncact: NCCN -> NC [LH A2] [KK 12] +! + if(rh(i,k,1).gt.1.) then + ncact(i,k) = max(0.,((ncr(i,k,1)+ncr(i,k,2)) & + *min(1.,(rh(i,k,1)/satmax)**actk) - ncr(i,k,2)))/dtcld + ncact(i,k) =min(ncact(i,k),max(ncr(i,k,1),0.)/dtcld) + pcact(i,k) = min(4.*pi*denr*(actr*1.E-6)**3*ncact(i,k)/ & + (3.*den(i,k)),max(q(i,k),0.)/dtcld) + q(i,k) = max(q(i,k)-pcact(i,k)*dtcld,0.) + qci(i,k,1) = max(qci(i,k,1)+pcact(i,k)*dtcld,0.) + ncr(i,k,1) = max(ncr(i,k,1)-ncact(i,k)*dtcld,0.) + ncr(i,k,2) = max(ncr(i,k,2)+ncact(i,k)*dtcld,0.) + t(i,k) = t(i,k)+pcact(i,k)*xl(i,k)/cpm(i,k)*dtcld + endif +! +! pcond:condensational/evaporational rate of cloud water [HL A46] [RH83 A6] +! if there exists additional water vapor condensated/if +! evaporation of cloud water is not enough to remove subsaturation +! (QV->QC or QC->QV) +! + tr=ttp/t(i,k) + qs(i,k,1)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + qs(i,k,1) = min(qs(i,k,1),0.99*p(i,k)) + qs(i,k,1) = ep2 * qs(i,k,1) / (p(i,k) - qs(i,k,1)) + qs(i,k,1) = max(qs(i,k,1),qmin) + work1(i,k,1) = conden(t(i,k),q(i,k),qs(i,k,1),xl(i,k),cpm(i,k)) + work2(i,k) = qci(i,k,1)+work1(i,k,1) + pcond(i,k) = min(max(work1(i,k,1)/dtcld,0.),max(q(i,k),0.)/dtcld) + if(qci(i,k,1).gt.0. .and. work1(i,k,1).lt.0.) & + pcond(i,k) = max(work1(i,k,1),-qci(i,k,1))/dtcld +! +! ncevp: evpration of Cloud number concentration [LH A3] +! (NC->NCCN) +! + if(pcond(i,k).eq.-qci(i,k,1)/dtcld) then + ncr(i,k,2) = 0. + ncr(i,k,1) = ncr(i,k,1)+ncr(i,k,2) + endif +! + q(i,k) = q(i,k)-pcond(i,k)*dtcld + qci(i,k,1) = max(qci(i,k,1)+pcond(i,k)*dtcld,0.) + t(i,k) = t(i,k)+pcond(i,k)*xl(i,k)/cpm(i,k)*dtcld + enddo + enddo +! +!---------------------------------------------------------------- +! padding for small values +! + do k = kts, kte + do i = its, ite + if(qci(i,k,1).le.qmin) qci(i,k,1) = 0.0 + if(qci(i,k,2).le.qmin) qci(i,k,2) = 0.0 + if(qrs(i,k,1).ge.qcrmin .and. ncr(i,k,3) .ge. nrmin) then + lamdr_tmp(i,k) = exp(log(((pidnr*ncr(i,k,3)) & + /(den(i,k)*qrs(i,k,1))))*((.33333333))) + if(lamdr_tmp(i,k) .le. lamdarmin) then + lamdr_tmp(i,k) = lamdarmin + ncr(i,k,3) = den(i,k)*qrs(i,k,1)*lamdr_tmp(i,k)**3/pidnr + elseif(lamdr_tmp(i,k) .ge. lamdarmax) then + lamdr_tmp(i,k) = lamdarmax + ncr(i,k,3) = den(i,k)*qrs(i,k,1)*lamdr_tmp(i,k)**3/pidnr + endif + endif + if(qci(i,k,1).ge.qmin .and. ncr(i,k,2) .ge. ncmin ) then + lamdc_tmp(i,k) = exp(log(((pidnc*ncr(i,k,2)) & + /(den(i,k)*qci(i,k,1))))*((.33333333))) + if(lamdc_tmp(i,k) .le. lamdacmin) then + lamdc_tmp(i,k) = lamdacmin + ncr(i,k,2) = den(i,k)*qci(i,k,1)*lamdc_tmp(i,k)**3/pidnc + elseif(lamdc_tmp(i,k) .ge. lamdacmax) then + lamdc_tmp(i,k) = lamdacmax + ncr(i,k,2) = den(i,k)*qci(i,k,1)*lamdc_tmp(i,k)**3/pidnc + endif + endif + enddo + enddo + enddo ! big loops + END SUBROUTINE wdm72d +! ................................................................... + REAL FUNCTION rgmma(x) +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- +! rgmma function: use infinite product form + REAL :: euler + PARAMETER (euler=0.577215664901532) + REAL :: x, y + INTEGER :: i + if(x.eq.1.)then + rgmma=0. + else + rgmma=x*exp(euler*x) + do i=1,10000 + y=float(i) + rgmma=rgmma*(1.000+x/y)*exp(-x/y) + enddo + rgmma=1./rgmma + endif + END FUNCTION rgmma +! +!-------------------------------------------------------------------------- + REAL FUNCTION fpvs(t,ice,rd,rv,cvap,cliq,cice,hvap,hsub,psat,t0c) +!-------------------------------------------------------------------------- + IMPLICIT NONE +!-------------------------------------------------------------------------- + REAL t,rd,rv,cvap,cliq,cice,hvap,hsub,psat,t0c,dldt,xa,xb,dldti, & + xai,xbi,ttp,tr + INTEGER ice +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + ttp=t0c+0.01 + dldt=cvap-cliq + xa=-dldt/rv + xb=xa+hvap/(rv*ttp) + dldti=cvap-cice + xai=-dldti/rv + xbi=xai+hsub/(rv*ttp) + tr=ttp/t + if(t.lt.ttp .and. ice.eq.1) then + fpvs=psat*(tr**xai)*exp(xbi*(1.-tr)) + else + fpvs=psat*(tr**xa)*exp(xb*(1.-tr)) + endif +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + END FUNCTION fpvs +!------------------------------------------------------------------- + SUBROUTINE wdm7init(den0,denr,dens,cl,cpv, ccn0, allowed_to_read) ! RAS +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- +!.... constants which may not be tunable + REAL, INTENT(IN) :: den0,denr,dens,cl,cpv,ccn0 + LOGICAL, INTENT(IN) :: allowed_to_read + + pi = 4.*atan(1.) + xlv1 = cl-cpv +! + qc0 = 4./3.*pi*denr*r0**3.*xncr0/den0 + qc1 = 4./3.*pi*denr*r0**3.*xncr1/den0 + qck1 = .104*9.8*peaut/(xncr*denr)**(1./3.)/xmyu*den0**(4./3.) ! 7.03 + pidnc = pi*denr/6. +! + bvtr1 = 1.+bvtr + bvtr2 = 2.+bvtr + bvtr3 = 3.+bvtr + bvtr4 = 4.+bvtr + bvtr5 = 5.+bvtr + bvtr6 = 6.+bvtr + bvtr7 = 7.+bvtr + bvtr2o5 = 2.5+.5*bvtr + bvtr3o5 = 3.5+.5*bvtr + g1pbr = rgmma(bvtr1) + g2pbr = rgmma(bvtr2) + g3pbr = rgmma(bvtr3) + g4pbr = rgmma(bvtr4) ! 17.837825 + g5pbr = rgmma(bvtr5) + g6pbr = rgmma(bvtr6) + g7pbr = rgmma(bvtr7) + g5pbro2 = rgmma(bvtr2o5) + g7pbro2 = rgmma(bvtr3o5) + pvtr = avtr*g5pbr/24. + pvtrn = avtr*g2pbr + eacrr = 1.0 + pacrr = pi*n0r*avtr*g3pbr*.25*eacrr + precr1 = 2.*pi*1.56 + precr2 = 2.*pi*.31*avtr**.5*g7pbro2 + pidn0r = pi*denr*n0r + pidnr = 4.*pi*denr +! + xmmax = (dimax/dicon)**2 + roqimax = 2.08e22*dimax**8 +! + bvts1 = 1.+bvts + bvts2 = 2.5+.5*bvts + bvts3 = 3.+bvts + bvts4 = 4.+bvts + g1pbs = rgmma(bvts1) !.8875 + g3pbs = rgmma(bvts3) + g4pbs = rgmma(bvts4) ! 12.0786 + g5pbso2 = rgmma(bvts2) + pvts = avts*g4pbs/6. + pacrs = pi*n0s*avts*g3pbs*.25 + precs1 = 4.*n0s*.65 + precs2 = 4.*n0s*.44*avts**.5*g5pbso2 + pidn0s = pi*dens*n0s +! + pacrc = pi*n0s*avts*g3pbs*.25*eacrc +! + bvtg1 = 1.+bvtg + bvtg2 = 2.5+.5*bvtg + bvtg3 = 3.+bvtg + bvtg4 = 4.+bvtg + g1pbg = rgmma(bvtg1) + g3pbg = rgmma(bvtg3) + g4pbg = rgmma(bvtg4) + g5pbgo2 = rgmma(bvtg2) + g6pbgh = rgmma(2.75) + pacrg = pi*n0g*avtg*g3pbg*.25 + pvtg = avtg*g4pbg/6. + precg1 = 2.*pi*n0g*.78 + precg2 = 2.*pi*n0g*.31*avtg**.5*g5pbgo2 + precg3 = 2.*pi*n0g*.31*g6pbgh*sqrt(sqrt(4.*deng/3./cd)) + pidn0g = pi*deng*n0g +! + bvth2 = 2.5+.5*bvth + bvth3 = 3.+bvth + bvth4 = 4.+bvth + g3pbh = rgmma(bvth3) + g4pbh = rgmma(bvth4) + g5pbho2 = rgmma(bvth2) + pacrh = pi*n0h*avth*g3pbh*.25 + pvth = avth*g4pbh/6. + prech1 = 2.*pi*n0h*.78 + prech2 = 2.*pi*n0h*.31*avth**.5*g5pbho2 + prech3 = 2.*pi*n0h*.31*g6pbgh*sqrt(sqrt(4.*denh/3./cd)) + pidn0h = pi*denh*n0h +! + rslopecmax = 1./lamdacmax + rslopermax = 1./lamdarmax + rslopesmax = 1./lamdasmax + rslopegmax = 1./lamdagmax + rslopehmax = 1./lamdahmax + rsloperbmax = rslopermax ** bvtr + rslopesbmax = rslopesmax ** bvts + rslopegbmax = rslopegmax ** bvtg + rslopehbmax = rslopehmax ** bvth + rslopec2max = rslopecmax * rslopecmax + rsloper2max = rslopermax * rslopermax + rslopes2max = rslopesmax * rslopesmax + rslopeg2max = rslopegmax * rslopegmax + rslopeh2max = rslopehmax * rslopehmax + rslopec3max = rslopec2max * rslopecmax + rsloper3max = rsloper2max * rslopermax + rslopes3max = rslopes2max * rslopesmax + rslopeg3max = rslopeg2max * rslopegmax + rslopeh3max = rslopeh2max * rslopehmax +!+---+-----------------------------------------------------------------+ +!..Set these variables needed for computing radar reflectivity. These +!.. get used within radar_init to create other variables used in the +!.. radar module. + xam_r = PI*denr/6. + xbm_r = 3. + xmu_r = 1. + xam_s = PI*dens/6. + xbm_s = 3. + xmu_s = 0. + xam_g = PI*deng/6. + xbm_g = 3. + xmu_g = 0. + + call radar_init +!+---+-----------------------------------------------------------------+ +! + END SUBROUTINE wdm7init +!------------------------------------------------------------------------------- + subroutine slope_wdm7(qrs,ncr,den,denfac,t,rslope,rslopeb,rslope2,rslope3, & + vt,vtn,its,ite,kts,kte) +!------------------------------------------------------------------------------- + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte,4) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt + REAL, DIMENSION( its:ite , kts:kte) :: & + ncr, & + vtn, & + den, & + denfac, & + t + REAL, PARAMETER :: t0c = 273.15 + REAL, DIMENSION( its:ite , kts:kte ) :: & + n0sfac + REAL :: lamdar, lamdas, lamdag, lamdah, x, y, z, supcol + integer :: i, j, k +!---------------------------------------------------------------- +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. +! +! Optimizatin : A**B => exp(log(A)*(B)) + lamdar(x,y,z)= exp(log(((pidnr*z)/(x*y)))*((.33333333))) + lamdas(x,y,z)= sqrt(sqrt(pidn0s*z/(x*y))) ! (pidn0s*z/(x*y))**.25 + lamdag(x,y)= sqrt(sqrt(pidn0g/(x*y))) ! (pidn0g/(x*y))**.25 + lamdah(x,y)= sqrt(sqrt(pidn0h/(x*y))) ! (pidn0h/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) +!--------------------------------------------------------------- +! n0s: Intercept parameter for snow [m-4] [HDC 6] +!--------------------------------------------------------------- + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + if(qrs(i,k,1).le.qcrmin .or. ncr(i,k).le.nrmin ) then + rslope(i,k,1) = rslopermax + rslopeb(i,k,1) = rsloperbmax + rslope2(i,k,1) = rsloper2max + rslope3(i,k,1) = rsloper3max + else + rslope(i,k,1) = min(1./lamdar(qrs(i,k,1),den(i,k),ncr(i,k)),1.e-3) + rslopeb(i,k,1) = rslope(i,k,1)**bvtr + rslope2(i,k,1) = rslope(i,k,1)*rslope(i,k,1) + rslope3(i,k,1) = rslope2(i,k,1)*rslope(i,k,1) + endif + if(qrs(i,k,2).le.qcrmin) then + rslope(i,k,2) = rslopesmax + rslopeb(i,k,2) = rslopesbmax + rslope2(i,k,2) = rslopes2max + rslope3(i,k,2) = rslopes3max + else + rslope(i,k,2) = 1./lamdas(qrs(i,k,2),den(i,k),n0sfac(i,k)) + rslopeb(i,k,2) = rslope(i,k,2)**bvts + rslope2(i,k,2) = rslope(i,k,2)*rslope(i,k,2) + rslope3(i,k,2) = rslope2(i,k,2)*rslope(i,k,2) + endif + if(qrs(i,k,3).le.qcrmin) then + rslope(i,k,3) = rslopegmax + rslopeb(i,k,3) = rslopegbmax + rslope2(i,k,3) = rslopeg2max + rslope3(i,k,3) = rslopeg3max + else + rslope(i,k,3) = 1./lamdag(qrs(i,k,3),den(i,k)) + rslopeb(i,k,3) = rslope(i,k,3)**bvtg + rslope2(i,k,3) = rslope(i,k,3)*rslope(i,k,3) + rslope3(i,k,3) = rslope2(i,k,3)*rslope(i,k,3) + endif + if(qrs(i,k,4).le.qcrmin) then + rslope(i,k,4) = rslopehmax + rslopeb(i,k,4) = rslopehbmax + rslope2(i,k,4) = rslopeh2max + rslope3(i,k,4) = rslopeh3max + else + rslope(i,k,4) = 1./lamdah(qrs(i,k,4),den(i,k)) + rslopeb(i,k,4) = rslope(i,k,4)**bvth + rslope2(i,k,4) = rslope(i,k,4)*rslope(i,k,4) + rslope3(i,k,4) = rslope2(i,k,4)*rslope(i,k,4) + endif + + vt(i,k,1) = pvtr*rslopeb(i,k,1)*denfac(i,k) + vt(i,k,2) = pvts*rslopeb(i,k,2)*denfac(i,k) + vt(i,k,3) = pvtg*rslopeb(i,k,3)*denfac(i,k) + vt(i,k,4) = pvth*rslopeb(i,k,4)*denfac(i,k) + vtn(i,k) = pvtrn*rslopeb(i,k,1)*denfac(i,k) + if(qrs(i,k,1).le.0.0) vt(i,k,1) = 0.0 + if(qrs(i,k,2).le.0.0) vt(i,k,2) = 0.0 + if(qrs(i,k,3).le.0.0) vt(i,k,3) = 0.0 + if(qrs(i,k,4).le.0.0) vt(i,k,4) = 0.0 + if(ncr(i,k).le.0.0) vtn(i,k) = 0.0 + enddo + enddo + END subroutine slope_wdm7 +!----------------------------------------------------------------------------- + subroutine slope_rain(qrs,ncr,den,denfac,t,rslope,rslopeb,rslope2,rslope3, & + vt,vtn,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + ncr, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + vtn, & + den, & + denfac, & + t + REAL, PARAMETER :: t0c = 273.15 + REAL, DIMENSION( its:ite , kts:kte ) :: & + n0sfac + REAL :: lamdar, x, y, z, supcol + integer :: i, j, k +!---------------------------------------------------------------- +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdar(x,y,z)= exp(log(((pidnr*z)/(x*y)))*((.33333333))) +! + do k = kts, kte + do i = its, ite + if(qrs(i,k).le.qcrmin .or. ncr(i,k).le.nrmin) then + rslope(i,k) = rslopermax + rslopeb(i,k) = rsloperbmax + rslope2(i,k) = rsloper2max + rslope3(i,k) = rsloper3max + else + rslope(i,k) = min(1./lamdar(qrs(i,k),den(i,k),ncr(i,k)),1.e-3) + rslopeb(i,k) = rslope(i,k)**bvtr + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvtr*rslopeb(i,k)*denfac(i,k) + vtn(i,k) = pvtrn*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + if(ncr(i,k).le.0.0) vtn(i,k) = 0.0 + enddo + enddo + END subroutine slope_rain +!------------------------------------------------------------------------------ + subroutine slope_snow(qrs,den,denfac,t,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + den, & + denfac, & + t + REAL, PARAMETER :: t0c = 273.15 + REAL, DIMENSION( its:ite , kts:kte ) :: & + n0sfac + REAL :: lamdas, x, y, z, supcol + integer :: i, j, k +!---------------------------------------------------------------- +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdas(x,y,z)= sqrt(sqrt(pidn0s*z/(x*y))) ! (pidn0s*z/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) +!--------------------------------------------------------------- +! n0s: Intercept parameter for snow [m-4] [HDC 6] +!--------------------------------------------------------------- + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + if(qrs(i,k).le.qcrmin)then + rslope(i,k) = rslopesmax + rslopeb(i,k) = rslopesbmax + rslope2(i,k) = rslopes2max + rslope3(i,k) = rslopes3max + else + rslope(i,k) = 1./lamdas(qrs(i,k),den(i,k),n0sfac(i,k)) + rslopeb(i,k) = rslope(i,k)**bvts + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvts*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + enddo + enddo + END subroutine slope_snow +!---------------------------------------------------------------------------------- + subroutine slope_graup(qrs,den,denfac,t,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + den, & + denfac, & + t + REAL, PARAMETER :: t0c = 273.15 + REAL, DIMENSION( its:ite , kts:kte ) :: & + n0sfac + REAL :: lamdag, x, y, z, supcol + integer :: i, j, k +!---------------------------------------------------------------- +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdag(x,y)= sqrt(sqrt(pidn0g/(x*y))) ! (pidn0g/(x*y))**.25 +! + do k = kts, kte + do i = its, ite +!--------------------------------------------------------------- +! n0s: Intercept parameter for snow [m-4] [HDC 6] +!--------------------------------------------------------------- + if(qrs(i,k).le.qcrmin)then + rslope(i,k) = rslopegmax + rslopeb(i,k) = rslopegbmax + rslope2(i,k) = rslopeg2max + rslope3(i,k) = rslopeg3max + else + rslope(i,k) = 1./lamdag(qrs(i,k),den(i,k)) + rslopeb(i,k) = rslope(i,k)**bvtg + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvtg*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + enddo + enddo + END subroutine slope_graup +!--------------------------------------------------------------------------------- +! +!----------------------------------------------------------------------------- + subroutine slope_hail(qrs,den,denfac,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + den, & + denfac + + REAL :: lamdah, x, y + integer :: i, j, k +!---------------------------------------------------------------- +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdah(x,y)= sqrt(sqrt(pidn0h/(x*y))) ! (pidn0h/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + if(qrs(i,k).le.qcrmin)then + rslope(i,k) = rslopehmax + rslopeb(i,k) = rslopehbmax + rslope2(i,k) = rslopeh2max + rslope3(i,k) = rslopeh3max + else + rslope(i,k) = 1./lamdah(qrs(i,k),den(i,k)) + rslopeb(i,k) = rslope(i,k)**bvth + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvth*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + enddo + enddo + END subroutine slope_hail +!------------------------------------------------------------------ +! +!------------------------------------------------------------------- + SUBROUTINE nislfv_rain_plmr(im,km,denl,denfacl,tkl,dzl,wwl,rql,rnl,precip,dt,id,iter,rid) +!------------------------------------------------------------------- +! +! for non-iteration semi-Lagrangain forward advection for cloud +! with mass conservation and positive definite advection +! 2nd order interpolation with monotonic piecewise linear method +! this routine is under assumption of decfl < 1 for semi_Lagrangian +! +! dzl depth of model layer in meter +! wwl terminal velocity at model layer m/s +! rql cloud density*mixing ration +! precip precipitation +! dt time step +! id kind of precip: 0 test case; 1 raindrop; 2 hail +! iter how many time to guess mean terminal velocity: 0 pure forward. +! 0 : use departure wind for advection +! 1 : use mean wind for advection +! > 1 : use mean wind after iter-1 iterations +! rid : 1 for number 0 for mixing ratio +! +! author: hann-ming henry juang +! implemented by song-you hong +! + implicit none + integer im,km,id + real dt + real dzl(im,km),wwl(im,km),rql(im,km),rnl(im,km),precip(im) + real denl(im,km),denfacl(im,km),tkl(im,km) +! + integer i,k,n,m,kk,kb,kt,iter,rid + real tl,tl2,qql,dql,qqd + real th,th2,qqh,dqh + real zsum,qsum,dim,dip,c1,con1,fa1,fa2 + real allold, allnew, zz, dzamin, cflmax, decfl + real dz(km), ww(km), qq(km), nr(km), wd(km), wa(km), wa2(km), was(km) + real den(km), denfac(km), tk(km) + real wi(km+1), zi(km+1), za(km+1) + real qn(km), qr(km),tmp(km),tmp1(km),tmp2(km),tmp3(km) + real dza(km+1), qa(km+1), qmi(km+1), qpi(km+1) +! + precip(:) = 0.0 +! + i_loop : do i=1,im +! ----------------------------------- + dz(:) = dzl(i,:) + qq(:) = rql(i,:) + nr(:) = rnl(i,:) + if(rid .eq. 1) nr(:) = rnl(i,:)/denl(i,:) + ww(:) = wwl(i,:) + den(:) = denl(i,:) + denfac(:) = denfacl(i,:) + tk(:) = tkl(i,:) +! skip for no precipitation for all layers + allold = 0.0 + do k=1,km + allold = allold + qq(k) + enddo + if(allold.le.0.0) then + cycle i_loop + endif +! +! compute interface values + zi(1)=0.0 + do k=1,km + zi(k+1) = zi(k)+dz(k) + enddo +! +! save departure wind + wd(:) = ww(:) + n=1 + 100 continue +! plm is 2nd order, we can use 2nd order wi or 3rd order wi +! 2nd order interpolation to get wi + wi(1) = ww(1) + wi(km+1) = ww(km) + do k=2,km + wi(k) = (ww(k)*dz(k-1)+ww(k-1)*dz(k))/(dz(k-1)+dz(k)) + enddo +! 3rd order interpolation to get wi + fa1 = 9./16. + fa2 = 1./16. + wi(1) = ww(1) + wi(2) = 0.5*(ww(2)+ww(1)) + do k=3,km-1 + wi(k) = fa1*(ww(k)+ww(k-1))-fa2*(ww(k+1)+ww(k-2)) + enddo + wi(km) = 0.5*(ww(km)+ww(km-1)) + wi(km+1) = ww(km) +! +! terminate of top of raingroup + do k=2,km + if( ww(k).eq.0.0 ) wi(k)=ww(k-1) + enddo +! +! diffusivity of wi + con1 = 0.05 + do k=km,1,-1 + decfl = (wi(k+1)-wi(k))*dt/dz(k) + if( decfl .gt. con1 ) then + wi(k) = wi(k+1) - con1*dz(k)/dt + endif + enddo +! compute arrival point + do k=1,km+1 + za(k) = zi(k) - wi(k)*dt + enddo +! + do k=1,km + dza(k) = za(k+1)-za(k) + enddo + dza(km+1) = zi(km+1) - za(km+1) +! +! computer deformation at arrival point + do k=1,km + qa(k) = qq(k)*dz(k)/dza(k) + qr(k) = qa(k)/den(k) + if(rid .eq. 1) qr(k) = qa(K) + enddo + qa(km+1) = 0.0 +! call maxmin(km,1,qa,' arrival points ') +! +! compute arrival terminal velocity, and estimate mean terminal velocity +! then back to use mean terminal velocity + if( n.le.iter ) then + if( id.eq.1 ) then + if(rid.eq.1) then + call slope_rain(nr,qr,den,denfac,tk,tmp,tmp1,tmp2,tmp3,wa,wa2,1,1,1,km) + else + call slope_rain(qr,nr,den,denfac,tk,tmp,tmp1,tmp2,tmp3,wa,wa2,1,1,1,km) + endif + if(rid.eq.1) wa(:) = wa2(:) + else if(id.eq.2) then +! print*, 'hail sedimentaion' + call slope_hail(qr,den,denfac,tmp,tmp1,tmp2,tmp3,wa,1,1,1,km) + endif + if( n.ge.2 ) wa(1:km)=0.5*(wa(1:km)+was(1:km)) + do k=1,km +!#ifdef DEBUG +! print*,' slope_wsm3 ',qr(k)*1000.,den(k),denfac(k),tk(k),tmp(k),tmp1(k),tmp2(k),ww(k),wa(k) +!#endif +! mean wind is average of departure and new arrival winds + ww(k) = 0.5* ( wd(k)+wa(k) ) + enddo + was(:) = wa(:) + n=n+1 + go to 100 + endif +! +! estimate values at arrival cell interface with monotone + do k=2,km + dip=(qa(k+1)-qa(k))/(dza(k+1)+dza(k)) + dim=(qa(k)-qa(k-1))/(dza(k-1)+dza(k)) + if( dip*dim.le.0.0 ) then + qmi(k)=qa(k) + qpi(k)=qa(k) + else + qpi(k)=qa(k)+0.5*(dip+dim)*dza(k) + qmi(k)=2.0*qa(k)-qpi(k) + if( qpi(k).lt.0.0 .or. qmi(k).lt.0.0 ) then + qpi(k) = qa(k) + qmi(k) = qa(k) + endif + endif + enddo + qpi(1)=qa(1) + qmi(1)=qa(1) + qmi(km+1)=qa(km+1) + qpi(km+1)=qa(km+1) +! +! interpolation to regular point + qn = 0.0 + kb=1 + kt=1 + intp : do k=1,km + kb=max(kb-1,1) + kt=max(kt-1,1) +! find kb and kt + if( zi(k).ge.za(km+1) ) then + exit intp + else + find_kb : do kk=kb,km + if( zi(k).le.za(kk+1) ) then + kb = kk + exit find_kb + else + cycle find_kb + endif + enddo find_kb + find_kt : do kk=kt,km + if( zi(k+1).le.za(kk) ) then + kt = kk + exit find_kt + else + cycle find_kt + endif + enddo find_kt + kt = kt - 1 +! compute q with piecewise constant method + if( kt.eq.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + th=(zi(k+1)-za(kb))/dza(kb) + tl2=tl*tl + th2=th*th + qqd=0.5*(qpi(kb)-qmi(kb)) + qqh=qqd*th2+qmi(kb)*th + qql=qqd*tl2+qmi(kb)*tl + qn(k) = (qqh-qql)/(th-tl) + else if( kt.gt.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + tl2=tl*tl + qqd=0.5*(qpi(kb)-qmi(kb)) + qql=qqd*tl2+qmi(kb)*tl + dql = qa(kb)-qql + zsum = (1.-tl)*dza(kb) + qsum = dql*dza(kb) + if( kt-kb.gt.1 ) then + do m=kb+1,kt-1 + zsum = zsum + dza(m) + qsum = qsum + qa(m) * dza(m) + enddo + endif + th=(zi(k+1)-za(kt))/dza(kt) + th2=th*th + qqd=0.5*(qpi(kt)-qmi(kt)) + dqh=qqd*th2+qmi(kt)*th + zsum = zsum + th*dza(kt) + qsum = qsum + dqh*dza(kt) + qn(k) = qsum/zsum + endif + cycle intp + endif +! + enddo intp +! +! rain out + sum_precip: do k=1,km + if( za(k).lt.0.0 .and. za(k+1).lt.0.0 ) then + precip(i) = precip(i) + qa(k)*dza(k) + cycle sum_precip + else if ( za(k).lt.0.0 .and. za(k+1).ge.0.0 ) then + precip(i) = precip(i) + qa(k)*(0.0-za(k)) + exit sum_precip + endif + exit sum_precip + enddo sum_precip +! +! replace the new values + rql(i,:) = qn(:) +! +! ---------------------------------- + enddo i_loop +! + END SUBROUTINE nislfv_rain_plmr +!------------------------------------------------------------------- + SUBROUTINE nislfv_rain_plm6(im,km,denl,denfacl,tkl,dzl,wwl,rql,rql2, precip1, precip2,dt,id,iter) +!------------------------------------------------------------------- +! +! for non-iteration semi-Lagrangain forward advection for cloud +! with mass conservation and positive definite advection +! 2nd order interpolation with monotonic piecewise linear method +! this routine is under assumption of decfl < 1 for semi_Lagrangian +! +! dzl depth of model layer in meter +! wwl terminal velocity at model layer m/s +! rql cloud density*mixing ration +! precip precipitation +! dt time step +! id kind of precip: 0 test case; 1 raindrop +! iter how many time to guess mean terminal velocity: 0 pure forward. +! 0 : use departure wind for advection +! 1 : use mean wind for advection +! > 1 : use mean wind after iter-1 iterations +! +! author: hann-ming henry juang +! implemented by song-you hong +! + implicit none + integer im,km,id + real dt + real dzl(im,km),wwl(im,km),rql(im,km),rql2(im,km),precip(im),precip1(im),precip2(im) + real denl(im,km),denfacl(im,km),tkl(im,km) +! + integer i,k,n,m,kk,kb,kt,iter,ist + real tl,tl2,qql,dql,qqd + real th,th2,qqh,dqh + real zsum,qsum,dim,dip,c1,con1,fa1,fa2 + real allold, allnew, zz, dzamin, cflmax, decfl + real dz(km), ww(km), qq(km), qq2(km), wd(km), wa(km), wa2(km), was(km) + real den(km), denfac(km), tk(km) + real wi(km+1), zi(km+1), za(km+1) + real qn(km), qr(km),qr2(km),tmp(km),tmp1(km),tmp2(km),tmp3(km) + real dza(km+1), qa(km+1), qa2(km+1),qmi(km+1), qpi(km+1) +! + precip(:) = 0.0 + precip1(:) = 0.0 + precip2(:) = 0.0 +! + i_loop : do i=1,im +! ----------------------------------- + dz(:) = dzl(i,:) + qq(:) = rql(i,:) + qq2(:) = rql2(i,:) + ww(:) = wwl(i,:) + den(:) = denl(i,:) + denfac(:) = denfacl(i,:) + tk(:) = tkl(i,:) +! skip for no precipitation for all layers + allold = 0.0 + do k=1,km + allold = allold + qq(k) + qq2(k) + enddo + if(allold.le.0.0) then + cycle i_loop + endif +! +! compute interface values + zi(1)=0.0 + do k=1,km + zi(k+1) = zi(k)+dz(k) + enddo +! +! save departure wind + wd(:) = ww(:) + n=1 + 100 continue +! plm is 2nd order, we can use 2nd order wi or 3rd order wi +! 2nd order interpolation to get wi + wi(1) = ww(1) + wi(km+1) = ww(km) + do k=2,km + wi(k) = (ww(k)*dz(k-1)+ww(k-1)*dz(k))/(dz(k-1)+dz(k)) + enddo +! 3rd order interpolation to get wi + fa1 = 9./16. + fa2 = 1./16. + wi(1) = ww(1) + wi(2) = 0.5*(ww(2)+ww(1)) + do k=3,km-1 + wi(k) = fa1*(ww(k)+ww(k-1))-fa2*(ww(k+1)+ww(k-2)) + enddo + wi(km) = 0.5*(ww(km)+ww(km-1)) + wi(km+1) = ww(km) +! +! terminate of top of raingroup + do k=2,km + if( ww(k).eq.0.0 ) wi(k)=ww(k-1) + enddo +! +! diffusivity of wi + con1 = 0.05 + do k=km,1,-1 + decfl = (wi(k+1)-wi(k))*dt/dz(k) + if( decfl .gt. con1 ) then + wi(k) = wi(k+1) - con1*dz(k)/dt + endif + enddo +! compute arrival point + do k=1,km+1 + za(k) = zi(k) - wi(k)*dt + enddo +! + do k=1,km + dza(k) = za(k+1)-za(k) + enddo + dza(km+1) = zi(km+1) - za(km+1) +! +! computer deformation at arrival point + do k=1,km + qa(k) = qq(k)*dz(k)/dza(k) + qa2(k) = qq2(k)*dz(k)/dza(k) + qr(k) = qa(k)/den(k) + qr2(k) = qa2(k)/den(k) + enddo + qa(km+1) = 0.0 + qa2(km+1) = 0.0 +! call maxmin(km,1,qa,' arrival points ') +! +! compute arrival terminal velocity, and estimate mean terminal velocity +! then back to use mean terminal velocity + if( n.le.iter ) then + call slope_snow(qr,den,denfac,tk,tmp,tmp1,tmp2,tmp3,wa,1,1,1,km) + call slope_graup(qr2,den,denfac,tk,tmp,tmp1,tmp2,tmp3,wa2,1,1,1,km) + do k = 1, km + tmp(k) = max((qr(k)+qr2(k)), 1.E-15) + IF ( tmp(k) .gt. 1.e-15 ) THEN + wa(k) = (wa(k)*qr(k) + wa2(k)*qr2(k))/tmp(k) + ELSE + wa(k) = 0. + ENDIF + enddo + if( n.ge.2 ) wa(1:km)=0.5*(wa(1:km)+was(1:km)) + do k=1,km +!#ifdef DEBUG +! print*,' slope_wsm3 ',qr(k)*1000.,den(k),denfac(k),tk(k),tmp(k),tmp1(k),tmp2(k), & +! ww(k),wa(k) +!#endif +! mean wind is average of departure and new arrival winds + ww(k) = 0.5* ( wd(k)+wa(k) ) + enddo + was(:) = wa(:) + n=n+1 + go to 100 + endif + ist_loop : do ist = 1, 2 + if (ist.eq.2) then + qa(:) = qa2(:) + endif +! + precip(i) = 0. +! +! estimate values at arrival cell interface with monotone + do k=2,km + dip=(qa(k+1)-qa(k))/(dza(k+1)+dza(k)) + dim=(qa(k)-qa(k-1))/(dza(k-1)+dza(k)) + if( dip*dim.le.0.0 ) then + qmi(k)=qa(k) + qpi(k)=qa(k) + else + qpi(k)=qa(k)+0.5*(dip+dim)*dza(k) + qmi(k)=2.0*qa(k)-qpi(k) + if( qpi(k).lt.0.0 .or. qmi(k).lt.0.0 ) then + qpi(k) = qa(k) + qmi(k) = qa(k) + endif + endif + enddo + qpi(1)=qa(1) + qmi(1)=qa(1) + qmi(km+1)=qa(km+1) + qpi(km+1)=qa(km+1) +! +! interpolation to regular point + qn = 0.0 + kb=1 + kt=1 + intp : do k=1,km + kb=max(kb-1,1) + kt=max(kt-1,1) +! find kb and kt + if( zi(k).ge.za(km+1) ) then + exit intp + else + find_kb : do kk=kb,km + if( zi(k).le.za(kk+1) ) then + kb = kk + exit find_kb + else + cycle find_kb + endif + enddo find_kb + find_kt : do kk=kt,km + if( zi(k+1).le.za(kk) ) then + kt = kk + exit find_kt + else + cycle find_kt + endif + enddo find_kt + kt = kt - 1 +! compute q with piecewise constant method + if( kt.eq.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + th=(zi(k+1)-za(kb))/dza(kb) + tl2=tl*tl + th2=th*th + qqd=0.5*(qpi(kb)-qmi(kb)) + qqh=qqd*th2+qmi(kb)*th + qql=qqd*tl2+qmi(kb)*tl + qn(k) = (qqh-qql)/(th-tl) + else if( kt.gt.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + tl2=tl*tl + qqd=0.5*(qpi(kb)-qmi(kb)) + qql=qqd*tl2+qmi(kb)*tl + dql = qa(kb)-qql + zsum = (1.-tl)*dza(kb) + qsum = dql*dza(kb) + if( kt-kb.gt.1 ) then + do m=kb+1,kt-1 + zsum = zsum + dza(m) + qsum = qsum + qa(m) * dza(m) + enddo + endif + th=(zi(k+1)-za(kt))/dza(kt) + th2=th*th + qqd=0.5*(qpi(kt)-qmi(kt)) + dqh=qqd*th2+qmi(kt)*th + zsum = zsum + th*dza(kt) + qsum = qsum + dqh*dza(kt) + qn(k) = qsum/zsum + endif + cycle intp + endif +! + enddo intp +! +! rain out + sum_precip: do k=1,km + if( za(k).lt.0.0 .and. za(k+1).lt.0.0 ) then + precip(i) = precip(i) + qa(k)*dza(k) + cycle sum_precip + else if ( za(k).lt.0.0 .and. za(k+1).ge.0.0 ) then + precip(i) = precip(i) + qa(k)*(0.0-za(k)) + exit sum_precip + endif + exit sum_precip + enddo sum_precip +! +! replace the new values + if(ist.eq.1) then + rql(i,:) = qn(:) + precip1(i) = precip(i) + else + rql2(i,:) = qn(:) + precip2(i) = precip(i) + endif + enddo ist_loop +! +! ---------------------------------- + enddo i_loop +! + END SUBROUTINE nislfv_rain_plm6 + +!+---+-----------------------------------------------------------------+ + subroutine refl10cm_wdm7 (qv1d, qr1d, nr1d, qs1d, qg1d, & + t1d, p1d, dBZ, kts, kte, ii, jj) + + IMPLICIT NONE + +!..Sub arguments + INTEGER, INTENT(IN):: kts, kte, ii, jj + REAL, DIMENSION(kts:kte), INTENT(IN):: & + qv1d, qr1d, nr1d, qs1d, qg1d, t1d, p1d + REAL, DIMENSION(kts:kte), INTENT(INOUT):: dBZ + +!..Local variables + REAL, DIMENSION(kts:kte):: temp, pres, qv, rho + REAL, DIMENSION(kts:kte):: rr, nr, rs, rg + REAL:: temp_C + + DOUBLE PRECISION, DIMENSION(kts:kte):: ilamr, ilams, ilamg + DOUBLE PRECISION, DIMENSION(kts:kte):: N0_r, N0_s, N0_g + DOUBLE PRECISION:: lamr, lams, lamg + LOGICAL, DIMENSION(kts:kte):: L_qr, L_qs, L_qg + + REAL, DIMENSION(kts:kte):: ze_rain, ze_snow, ze_graupel + DOUBLE PRECISION:: fmelt_s, fmelt_g + + INTEGER:: i, k, k_0, kbot, n + LOGICAL:: melti + + DOUBLE PRECISION:: cback, x, eta, f_d + REAL, PARAMETER:: R=287. + +!+---+ + + do k = kts, kte + dBZ(k) = -35.0 + enddo + +!+---+-----------------------------------------------------------------+ +!..Put column of data into local arrays. +!+---+-----------------------------------------------------------------+ + do k = kts, kte + temp(k) = t1d(k) + temp_C = min(-0.001, temp(K)-273.15) + qv(k) = MAX(1.E-10, qv1d(k)) + pres(k) = p1d(k) + rho(k) = 0.622*pres(k)/(R*temp(k)*(qv(k)+0.622)) + + if (qr1d(k) .gt. 1.E-9) then + rr(k) = qr1d(k)*rho(k) + nr(k) = nr1d(k)*rho(k) + lamr = (xam_r*xcrg(3)*xorg2*nr(k)/rr(k))**xobmr + ilamr(k) = 1./lamr + N0_r(k) = nr(k)*xorg2*lamr**xcre(2) + L_qr(k) = .true. + else + rr(k) = 1.E-12 + nr(k) = 1.E-12 + L_qr(k) = .false. + endif + + if (qs1d(k) .gt. 1.E-9) then + rs(k) = qs1d(k)*rho(k) + N0_s(k) = min(n0smax, n0s*exp(-alpha*temp_C)) + lams = (xam_s*xcsg(3)*N0_s(k)/rs(k))**(1./xcse(1)) + ilams(k) = 1./lams + L_qs(k) = .true. + else + rs(k) = 1.E-12 + L_qs(k) = .false. + endif + + if (qg1d(k) .gt. 1.E-9) then + rg(k) = qg1d(k)*rho(k) + N0_g(k) = n0g + lamg = (xam_g*xcgg(3)*N0_g(k)/rg(k))**(1./xcge(1)) + ilamg(k) = 1./lamg + L_qg(k) = .true. + else + rg(k) = 1.E-12 + L_qg(k) = .false. + endif + enddo + +!+---+-----------------------------------------------------------------+ +!..Locate K-level of start of melting (k_0 is level above). +!+---+-----------------------------------------------------------------+ + melti = .false. + k_0 = kts + do k = kte-1, kts, -1 + if ( (temp(k).gt.273.15) .and. L_qr(k) & + .and. (L_qs(k+1).or.L_qg(k+1)) ) then + k_0 = MAX(k+1, k_0) + melti=.true. + goto 195 + endif + enddo + 195 continue + +!+---+-----------------------------------------------------------------+ +!..Assume Rayleigh approximation at 10 cm wavelength. Rain (all temps) +!.. and non-water-coated snow and graupel when below freezing are +!.. simple. Integrations of m(D)*m(D)*N(D)*dD. +!+---+-----------------------------------------------------------------+ + + do k = kts, kte + ze_rain(k) = 1.e-22 + ze_snow(k) = 1.e-22 + ze_graupel(k) = 1.e-22 + if (L_qr(k)) ze_rain(k) = N0_r(k)*xcrg(4)*ilamr(k)**xcre(4) + if (L_qs(k)) ze_snow(k) = (0.176/0.93) * (6.0/PI)*(6.0/PI) & + * (xam_s/900.0)*(xam_s/900.0) & + * N0_s(k)*xcsg(4)*ilams(k)**xcse(4) + if (L_qg(k)) ze_graupel(k) = (0.176/0.93) * (6.0/PI)*(6.0/PI) & + * (xam_g/900.0)*(xam_g/900.0) & + * N0_g(k)*xcgg(4)*ilamg(k)**xcge(4) + enddo + + +!+---+-----------------------------------------------------------------+ +!..Special case of melting ice (snow/graupel) particles. Assume the +!.. ice is surrounded by the liquid water. Fraction of meltwater is +!.. extremely simple based on amount found above the melting level. +!.. Uses code from Uli Blahak (rayleigh_soak_wetgraupel and supporting +!.. routines). +!+---+-----------------------------------------------------------------+ + + if (melti .and. k_0.ge.kts+1) then + do k = k_0-1, kts, -1 + +!..Reflectivity contributed by melting snow + if (L_qs(k) .and. L_qs(k_0) ) then + fmelt_s = MAX(0.005d0, MIN(1.0d0-rs(k)/rs(k_0), 0.99d0)) + eta = 0.d0 + lams = 1./ilams(k) + do n = 1, nrbins + x = xam_s * xxDs(n)**xbm_s + call rayleigh_soak_wetgraupel (x,DBLE(xocms),DBLE(xobms), & + fmelt_s, melt_outside_s, m_w_0, m_i_0, lamda_radar, & + CBACK, mixingrulestring_s, matrixstring_s, & + inclusionstring_s, hoststring_s, & + hostmatrixstring_s, hostinclusionstring_s) + f_d = N0_s(k)*xxDs(n)**xmu_s * DEXP(-lams*xxDs(n)) + eta = eta + f_d * CBACK * simpson(n) * xdts(n) + enddo + ze_snow(k) = SNGL(lamda4 / (pi5 * K_w) * eta) + endif + + +!..Reflectivity contributed by melting graupel + + if (L_qg(k) .and. L_qg(k_0) ) then + fmelt_g = MAX(0.005d0, MIN(1.0d0-rg(k)/rg(k_0), 0.99d0)) + eta = 0.d0 + lamg = 1./ilamg(k) + do n = 1, nrbins + x = xam_g * xxDg(n)**xbm_g + call rayleigh_soak_wetgraupel (x,DBLE(xocmg),DBLE(xobmg), & + fmelt_g, melt_outside_g, m_w_0, m_i_0, lamda_radar, & + CBACK, mixingrulestring_g, matrixstring_g, & + inclusionstring_g, hoststring_g, & + hostmatrixstring_g, hostinclusionstring_g) + f_d = N0_g(k)*xxDg(n)**xmu_g * DEXP(-lamg*xxDg(n)) + eta = eta + f_d * CBACK * simpson(n) * xdtg(n) + enddo + ze_graupel(k) = SNGL(lamda4 / (pi5 * K_w) * eta) + endif + + enddo + endif + + do k = kte, kts, -1 + dBZ(k) = 10.*log10((ze_rain(k)+ze_snow(k)+ze_graupel(k))*1.d18) + enddo + + + end subroutine refl10cm_wdm7 +!+---+-----------------------------------------------------------------+ + +!----------------------------------------------------------------------- + subroutine effectRad_wdm7 (t, qc, nc, qi, qs, rho, qmin, t0c, & + re_qc, re_qi, re_qs, kts, kte, ii, jj) + +!----------------------------------------------------------------------- +! Compute radiation effective radii of cloud water, ice, and snow for +! double-moment microphysics.. +! These are entirely consistent with microphysics assumptions, not +! constant or otherwise ad hoc as is internal to most radiation +! schemes. +! Coded and implemented by Soo Ya Bae, KIAPS, January 2015. +!----------------------------------------------------------------------- + + implicit none + +!..Sub arguments + integer, intent(in) :: kts, kte, ii, jj + real, intent(in) :: qmin + real, intent(in) :: t0c + real, dimension( kts:kte ), intent(in):: t + real, dimension( kts:kte ), intent(in):: qc + real, dimension( kts:kte ), intent(in):: nc + real, dimension( kts:kte ), intent(in):: qi + real, dimension( kts:kte ), intent(in):: qs + real, dimension( kts:kte ), intent(in):: rho + real, dimension( kts:kte ), intent(inout):: re_qc + real, dimension( kts:kte ), intent(inout):: re_qi + real, dimension( kts:kte ), intent(inout):: re_qs +!..Local variables + integer:: i,k + integer :: inu_c + real, dimension( kts:kte ):: ni + real, dimension( kts:kte ):: rqc + real, dimension( kts:kte ):: rnc + real, dimension( kts:kte ):: rqi + real, dimension( kts:kte ):: rni + real, dimension( kts:kte ):: rqs + real :: cdm2 + real :: temp + real :: supcol, n0sfac, lamdas + real :: diai ! diameter of ice in m + double precision :: lamc + logical :: has_qc, has_qi, has_qs +!..Minimum microphys values + real, parameter :: R1 = 1.E-12 + real, parameter :: R2 = 1.E-6 + real, parameter :: pi = 3.1415926536 + real, parameter :: bm_r = 3.0 + real, parameter :: obmr = 1.0/bm_r + real, parameter :: cdm = 5./3. +!----------------------------------------------------------------------- + has_qc = .false. + has_qi = .false. + has_qs = .false. + + cdm2 = rgmma(cdm) + + do k=kts,kte + ! for cloud + rqc(k) = max(R1, qc(k)*rho(k)) + rnc(k) = max(R2, nc(k)*rho(k)) + if (rqc(k).gt.R1 .and. rnc(k).gt.R2) has_qc = .true. + ! for ice + rqi(k) = max(R1, qi(k)*rho(k)) + temp = (rho(k)*max(qi(k),qmin)) + temp = sqrt(sqrt(temp*temp*temp)) + ni(k) = min(max(5.38e7*temp,1.e3),1.e6) + rni(k)= max(R2, ni(k)*rho(k)) + if (rqi(k).gt.R1 .and. rni(k).gt.R2) has_qi = .true. + ! for snow + rqs(k) = max(R1, qs(k)*rho(k)) + if (rqs(k).gt.R1) has_qs = .true. + enddo + + if (has_qc) then + do k=kts,kte + if (rqc(k).le.R1 .or. rnc(k).le.R2) CYCLE + lamc = 2.*cdm2*(pidnc*nc(k)/rqc(k))**obmr + re_qc(k) = max(2.51e-6,min(sngl(1.0d0/lamc),50.e-6)) + enddo + endif + + if (has_qi) then + do k=kts,kte + if (rqi(k).le.R1 .or. rni(k).le.R2) CYCLE + diai = 11.9*sqrt(rqi(k)/ni(k)) + re_qi(k) = max(10.01e-6,min(0.75*0.163*diai,125.e-6)) + enddo + endif + + if (has_qs) then + do k=kts,kte + if (rqs(k).le.R1) CYCLE + supcol = t0c-t(k) + n0sfac = max(min(exp(alpha*supcol),n0smax/n0s),1.) + lamdas = sqrt(sqrt(pidn0s*n0sfac/rqs(k))) + re_qs(k) = max(25.e-6,min(0.5*(1./lamdas),999.e-6)) + enddo + endif + + end subroutine effectRad_wdm7 +!----------------------------------------------------------------------- + +END MODULE module_mp_wdm7 diff --git a/phys/module_mp_wsm5.F b/phys/module_mp_wsm5.F index c10dbe19b5..faf3982b26 100644 --- a/phys/module_mp_wsm5.F +++ b/phys/module_mp_wsm5.F @@ -12,8 +12,6 @@ !Including inline expansion statistical function MODULE module_mp_wsm5 ! - USE module_utility, ONLY: WRFU_Clock, WRFU_Alarm - USE module_domain, ONLY : HISTORY_ALARM, Is_alarm_tstep USE module_mp_radar ! REAL, PARAMETER, PRIVATE :: dtcldcr = 120. ! maximum time step for minor loops diff --git a/phys/module_mp_wsm6.F b/phys/module_mp_wsm6.F index 7e0a6ac58f..5c52d40f28 100644 --- a/phys/module_mp_wsm6.F +++ b/phys/module_mp_wsm6.F @@ -8,10 +8,6 @@ MODULE module_mp_wsm6 ! -#if ( defined(wrfmodel) ) - USE module_utility, ONLY: WRFU_Clock, WRFU_Alarm - USE module_domain, ONLY : HISTORY_ALARM, Is_alarm_tstep -#endif USE module_mp_radar ! REAL, PARAMETER, PRIVATE :: dtcldcr = 120. ! maximum time step for minor loops @@ -136,8 +132,8 @@ SUBROUTINE wsm6(th, q, qc, qr, qi, qs, qg & re_ice, & re_snow !+---+-----------------------------------------------------------------+ - REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT) :: & ! GT - refl_10cm + REAL, DIMENSION(ims:ime, kms:kme, jms:jme), OPTIONAL, & ! GT + INTENT(INOUT) :: refl_10cm !+---+-----------------------------------------------------------------+ REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, & @@ -1016,6 +1012,8 @@ SUBROUTINE wsm62D(t, q & acrfac = 2.*rslope3(i,k,1)+2.*diameter*rslope2(i,k,1) & +diameter**2*rslope(i,k,1) praci(i,k) = pi*qci(i,k,2)*n0r*abs(vt2r-vt2i)*acrfac/4. + ! reduce collection efficiency (suggested by B. Wilt) + praci(i,k) = praci(i,k)*min(max(0.0,qrs(i,k,1)/qci(i,k,2)),1.)**2 praci(i,k) = min(praci(i,k),qci(i,k,2)/dtcld) !------------------------------------------------------------- ! piacr: Accretion of rain by cloud ice [HL A19] [LFO 26] @@ -1024,6 +1022,8 @@ SUBROUTINE wsm62D(t, q & piacr(i,k) = pi**2*avtr*n0r*denr*xni(i,k)*denfac(i,k) & *g6pbr*rslope3(i,k,1)*rslope3(i,k,1) & *rslopeb(i,k,1)/24./den(i,k) + ! reduce collection efficiency (suggested by B. Wilt) + piacr(i,k) = piacr(i,k)*min(max(0.0,qci(i,k,2)/qrs(i,k,1)),1.)**2 piacr(i,k) = min(piacr(i,k),qrs(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1055,6 +1055,8 @@ SUBROUTINE wsm62D(t, q & !------------------------------------------------------------- if(qrs(i,k,2).gt.qcrmin.and.qci(i,k,1).gt.qmin) then psacw(i,k) = min(pacrc*n0sfac(i,k)*rslope3(i,k,2)*rslopeb(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,2)/qci(i,k,1)),1.)**2 & *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1063,6 +1065,8 @@ SUBROUTINE wsm62D(t, q & !------------------------------------------------------------- if(qrs(i,k,3).gt.qcrmin.and.qci(i,k,1).gt.qmin) then pgacw(i,k) = min(pacrg*rslope3(i,k,3)*rslopeb(i,k,3) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,3)/qci(i,k,1)),1.)**2 & *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1084,6 +1088,8 @@ SUBROUTINE wsm62D(t, q & +.5*rslope2(i,k,2)*rslope2(i,k,2)*rslope3(i,k,1) pracs(i,k) = pi**2*n0r*n0s*n0sfac(i,k)*abs(vt2r-vt2ave) & *(dens/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pracs(i,k) = pracs(i,k)*min(max(0.0,qrs(i,k,1)/qrs(i,k,2)),1.)**2 pracs(i,k) = min(pracs(i,k),qrs(i,k,2)/dtcld) endif !------------------------------------------------------------- @@ -1095,6 +1101,8 @@ SUBROUTINE wsm62D(t, q & +.5*rslope2(i,k,1)*rslope2(i,k,1)*rslope3(i,k,2) psacr(i,k) = pi**2*n0r*n0s*n0sfac(i,k)*abs(vt2ave-vt2r) & *(denr/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + psacr(i,k) = psacr(i,k)*min(max(0.0,qrs(i,k,2)/qrs(i,k,1)),1.)**2 psacr(i,k) = min(psacr(i,k),qrs(i,k,1)/dtcld) endif !------------------------------------------------------------- @@ -1107,6 +1115,8 @@ SUBROUTINE wsm62D(t, q & +.5*rslope2(i,k,1)*rslope2(i,k,1)*rslope3(i,k,3) pgacr(i,k) = pi**2*n0r*n0g*abs(vt2ave-vt2r)*(denr/den(i,k)) & *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pgacr(i,k) = pgacr(i,k)*min(max(0.0,qrs(i,k,3)/qrs(i,k,1)),1.)**2 pgacr(i,k) = min(pgacr(i,k),qrs(i,k,1)/dtcld) endif ! diff --git a/phys/module_mp_wsm7.F b/phys/module_mp_wsm7.F new file mode 100644 index 0000000000..31e5636559 --- /dev/null +++ b/phys/module_mp_wsm7.F @@ -0,0 +1,3066 @@ +#if ( RWORDSIZE == 4 ) +# define VREC vsrec +# define VSQRT vssqrt +#else +# define VREC vrec +# define VSQRT vsqrt +#endif + +MODULE module_mp_wsm7 +! + USE module_mp_radar +! + REAL, PARAMETER, PRIVATE :: dtcldcr = 120. ! maximum time step for minor loops + REAL, PARAMETER, PRIVATE :: n0r = 8.e6 ! intercept parameter rain + REAL, PARAMETER, PRIVATE :: n0g = 4.e6 ! intercept parameter graupel + REAL, PARAMETER, PRIVATE :: n0h = 4.e4 ! intercept parameter hail + REAL, PARAMETER, PRIVATE :: avtr = 841.9 ! a constant for terminal velocity of rain + REAL, PARAMETER, PRIVATE :: bvtr = 0.8 ! a constant for terminal velocity of rain + REAL, PARAMETER, PRIVATE :: r0 = .8e-5 ! 8 microm in contrast to 10 micro m + REAL, PARAMETER, PRIVATE :: peaut = .55 ! collection efficiency + REAL, PARAMETER, PRIVATE :: xncr = 3.e8 ! maritime cloud in contrast to 3.e8 in tc80 + REAL, PARAMETER, PRIVATE :: xmyu = 1.718e-5 ! the dynamic viscosity kgm-1s-1 + REAL, PARAMETER, PRIVATE :: avts = 11.72 ! a constant for terminal velocity of snow + REAL, PARAMETER, PRIVATE :: bvts = .41 ! a constant for terminal velocity of snow + REAL, PARAMETER, PRIVATE :: avtg = 330. ! a constant for terminal velocity of graupel + REAL, PARAMETER, PRIVATE :: bvtg = 0.8 ! a constant for terminal velocity of graupel + REAL, PARAMETER, PRIVATE :: deng = 500. ! density of graupel + REAL, PARAMETER, PRIVATE :: avth = 285. ! a constant for terminal velocity of hail + REAL, PARAMETER, PRIVATE :: bvth = 0.8 ! a constant for terminal velocity of hail + REAL, PARAMETER, PRIVATE :: denh = 912. ! density of hail + REAL, PARAMETER, PRIVATE :: n0smax = 1.e11 ! maximum n0s (t=-90C unlimited) + REAL, PARAMETER, PRIVATE :: lamdarmax = 8.e4 ! limited maximum value for slope parameter of rain + REAL, PARAMETER, PRIVATE :: lamdasmax = 1.e5 ! limited maximum value for slope parameter of snow + REAL, PARAMETER, PRIVATE :: lamdagmax = 6.e4 ! limited maximum value for slope parameter of graupel + REAL, PARAMETER, PRIVATE :: lamdahmax = 2.e4 ! limited maximum value for slope parameter of hail + REAL, PARAMETER, PRIVATE :: dicon = 11.9 ! constant for the cloud-ice diamter + REAL, PARAMETER, PRIVATE :: dimax = 500.e-6 ! limited maximum value for the cloud-ice diamter + REAL, PARAMETER, PRIVATE :: n0s = 2.e6 ! temperature dependent intercept parameter snow + REAL, PARAMETER, PRIVATE :: alpha = .12 ! .122 exponen factor for n0s + REAL, PARAMETER, PRIVATE :: pfrz1 = 100. ! constant in Biggs freezing + REAL, PARAMETER, PRIVATE :: pfrz2 = 0.66 ! constant in Biggs freezing + REAL, PARAMETER, PRIVATE :: qcrmin = 1.e-9 ! minimun values for qr, qs, and qg + REAL, PARAMETER, PRIVATE :: eacrc = 1.0 ! Snow/cloud-water collection efficiency + REAL, PARAMETER, PRIVATE :: eachr = 1.0 ! Hail/rain collection efficiency + REAL, PARAMETER, PRIVATE :: eachs = 1.0 ! Hail/snow collection efficiency + REAL, PARAMETER, PRIVATE :: eachg = 0.5 ! Hail/graupel collection efficiency + REAL, PARAMETER, PRIVATE :: dens = 100.0 ! Density of snow + REAL, PARAMETER, PRIVATE :: qs0 = 6.e-4 ! threshold amount for aggretion to occur + REAL, PARAMETER, PRIVATE :: t00 = 238.16 + REAL, PARAMETER, PRIVATE :: t01 = 273.16 + REAL, PARAMETER, PRIVATE :: cd = 0.6 ! drag coefficient for hailsone + REAL, SAVE :: & + qc0, qck1, pidnc, & + bvtr1,bvtr2,bvtr3,bvtr4,g1pbr, & + g3pbr,g4pbr,g5pbro2,pvtr,eacrr,pacrr, & + bvtr6,g6pbr, & + precr1,precr2,roqimax,bvts1, & + bvts2,bvts3,bvts4,g1pbs,g3pbs,g4pbs, & + g5pbso2,pvts,pacrs,precs1,precs2,pidn0r, & + pidn0s,xlv1,pacrc,pi, & + bvtg1,bvtg2,bvtg3,bvtg4,g1pbg, & + g3pbg,g4pbg,g5pbgo2,g6pbgh,pvtg,pacrg, & + precg1,precg2,precg3,pidn0g, & + bvth2,bvth3,bvth4, & + g3pbh,g4pbh,g5pbho2,pvth,pacrh, & + prech1,prech2,prech3,pidn0h, & + rslopermax,rslopesmax,rslopegmax,rslopehmax, & + rsloperbmax,rslopesbmax,rslopegbmax,rslopehbmax, & + rsloper2max,rslopes2max,rslopeg2max,rslopeh2max, & + rsloper3max,rslopes3max,rslopeg3max,rslopeh3max +CONTAINS +!=================================================================== +! + SUBROUTINE wsm7(th, q, qc, qr, qi, qs, qg, qh & + ,den, pii, p, delz & + ,delt,g, cpd, cpv, rd, rv, t0c & + ,ep1, ep2, qmin & + ,XLS, XLV0, XLF0, den0, denr & + ,cliq,cice,psat & + ,rain, rainncv & + ,snow, snowncv & + ,sr & + ,refl_10cm, diagflag, do_radar_ref & + ,graupel, graupelncv & + ,hail, hailncv & + ,has_reqc, has_reqi, has_reqs & ! for radiation + ,re_cloud, re_ice, re_snow & ! for radiation + ,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 + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: & + th, & + q, & + qc, & + qi, & + qr, & + qs, & + qg, & + qh + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN ) :: & + den, & + pii, & + p, & + delz + REAL, INTENT(IN ) :: delt, & + g, & + rd, & + rv, & + t0c, & + den0, & + cpd, & + cpv, & + ep1, & + ep2, & + qmin, & + XLS, & + XLV0, & + XLF0, & + cliq, & + cice, & + psat, & + denr + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: rain, & + rainncv, & + sr +! +! for radiation connecting +! + INTEGER, INTENT(IN):: & + has_reqc, & + has_reqi, & + has_reqs + REAL, DIMENSION(ims:ime, kms:kme, jms:jme), & + INTENT(INOUT):: & + re_cloud, & + re_ice, & + re_snow +!+---+-----------------------------------------------------------------+ + REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT):: & ! GT + refl_10cm +!+---+-----------------------------------------------------------------+ + + REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, & + INTENT(INOUT) :: snow, & + snowncv + REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, & + INTENT(INOUT) :: graupel, & + graupelncv + REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, & + INTENT(INOUT) :: hail, & + hailncv +! +! local variables +! + REAL, DIMENSION( its:ite , kts:kte ) :: t + REAL, DIMENSION( its:ite , kts:kte, 2 ) :: qci + REAL, DIMENSION( its:ite , kts:kte, 4 ) :: qrs + INTEGER :: i,j,k + +!+---+-----------------------------------------------------------------+ + REAL, DIMENSION(kts:kte):: qv1d, t1d, p1d, qr1d, qs1d, qg1d, dBZ + LOGICAL, OPTIONAL, INTENT(IN) :: diagflag + INTEGER, OPTIONAL, INTENT(IN) :: do_radar_ref +! +! to calculate effective radius for radiation +! + REAL, DIMENSION( kts:kte ) :: den1d + REAL, DIMENSION( kts:kte ) :: qc1d + REAL, DIMENSION( kts:kte ) :: qi1d + REAL, DIMENSION( kts:kte ) :: re_qc, re_qi, re_qs +!------------------------------------------------------------------------------ + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + t(i,k)=th(i,k,j)*pii(i,k,j) + qci(i,k,1) = qc(i,k,j) + qci(i,k,2) = qi(i,k,j) + qrs(i,k,1) = qr(i,k,j) + qrs(i,k,2) = qs(i,k,j) + qrs(i,k,3) = qg(i,k,j) + qrs(i,k,4) = qh(i,k,j) + ENDDO + ENDDO + ! Sending array starting locations of optional variables may cause + ! troubles, so we explicitly change the call. + CALL wsm72D(t, q(ims,kms,j), qci, qrs & + ,den(ims,kms,j) & + ,p(ims,kms,j), delz(ims,kms,j) & + ,delt,g, cpd, cpv, rd, rv, t0c & + ,ep1, ep2, qmin & + ,XLS, XLV0, XLF0, den0, denr & + ,cliq,cice,psat & + ,j & + ,rain(ims,j),rainncv(ims,j) & + ,sr(ims,j) & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte & + ,snow,snowncv & + ,graupel,graupelncv & + ,hail,hailncv & + ) + DO K=kts,kte + DO I=its,ite + th(i,k,j)=t(i,k)/pii(i,k,j) + qc(i,k,j) = qci(i,k,1) + qi(i,k,j) = qci(i,k,2) + qr(i,k,j) = qrs(i,k,1) + qs(i,k,j) = qrs(i,k,2) + qg(i,k,j) = qrs(i,k,3) + qh(i,k,j) = qrs(i,k,4) + ENDDO + ENDDO +!------------------------------------------------------------------------------ + IF ( PRESENT (diagflag) ) THEN + if (diagflag .and. do_radar_ref == 1) then + DO I=its,ite + DO K=kts,kte + t1d(k)=th(i,k,j)*pii(i,k,j) + p1d(k)=p(i,k,j) + qv1d(k)=q(i,k,j) + qr1d(k)=qr(i,k,j) + qs1d(k)=qs(i,k,j) + qg1d(k)=qg(i,k,j) + ENDDO + call refl10cm_wsm7 (qv1d, qr1d, qs1d, qg1d, & + t1d, p1d, dBZ, kts, kte, i, j) + do k = kts, kte + refl_10cm(i,k,j) = MAX(-35., dBZ(k)) + enddo + ENDDO + endif + ENDIF +! + if (has_reqc.ne.0 .and. has_reqi.ne.0 .and. has_reqs.ne.0) then + do i=its,ite + do k=kts,kte + re_qc(k) = 2.51E-6 + re_qi(k) = 10.01E-6 + re_qs(k) = 25.E-6 +! + t1d(k) = th(i,k,j)*pii(i,k,j) + den1d(k)= den(i,k,j) + qc1d(k) = qc(i,k,j) + qi1d(k) = qi(i,k,j) + qs1d(k) = qs(i,k,j) + enddo +! + call effectRad_wsm7(t1d, qc1d, qi1d, qs1d, den1d, & + qmin, t0c, re_qc, re_qi, re_qs, & + kts, kte, i, j) +! + do k=kts,kte + re_cloud(i,k,j) = MAX(2.51E-6, MIN(re_qc(k), 50.E-6)) + re_ice(i,k,j) = MAX(10.01E-6, MIN(re_qi(k), 125.E-6)) + re_snow(i,k,j) = MAX(25.E-6, MIN(re_qs(k), 999.E-6)) + enddo + enddo + endif ! if has_reqc ne 0 end +! + ENDDO + END SUBROUTINE wsm7 +!=================================================================== +! + SUBROUTINE wsm72D(t, q & + ,qci, qrs, den, p, delz & + ,delt,g, cpd, cpv, rd, rv, t0c & + ,ep1, ep2, qmin & + ,XLS, XLV0, XLF0, den0, denr & + ,cliq,cice,psat & + ,lat & + ,rain,rainncv & + ,sr & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte & + ,snow,snowncv & + ,graupel,graupelncv & + ,hail,hailncv & + ) +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- +! +! This code is a 7-class hail phase microphyiscs scheme (WSM7) of the +! Single-Moment MicroPhyiscs (WSMMP, Bae et al. 2018). The WSMMP assumes +! assumes that ice nuclei number concentration is a function of temperature, +! and seperate assumption is developed, in which ice crystal number +! concentration is a function of ice amount. A theoretical background of +! the ice-microphysics and related processes in the WSMMPs are described +! in Hong et al. (2004). +! All production terms in the WSM7 scheme are described in Bae et al (2018). +! All units are in m.k.s. and source/sink terms in kgkg-1s-1. +! +! WSM7 cloud scheme +! +! Coded by Soo Ya Bae (KIAPS) Winter 2015 +! +! Implemented by Soo Ya Bae (KIAPS) Winter 2018 +! +! further modifications : +! semi-lagrangian sedimentation (JH,2010),hong, aug 2009 +! ==> higher accuracy and efficient at lower resolutions +! reflectivity computation from greg thompson, lim, jun 2011 +! ==> only diagnostic, but with removal of too large drops +! add hail option from afwa, aug 2014 +! ==> switch graupel or hail by changing no, den, fall vel. +! effective radius of hydrometeors, bae from kiaps, jan 2015 +! ==> consistency in solar insolation of rrtmg radiation +! +! References: +! Bae, Hong, Tao (BHT, 2018) Asia-Pacific J. Atmos. Sci. +! Hong, Dudhia, Chen (HDC, 2004) Mon. Wea. Rev. +! Hong and Lim (HL, 2006) J. Korean Meteor. Soc. +! Dudhia, Hong and Lim (DHL, 2008) J. Meteor. Soc. Japan +! Lin, Farley, Orville (LFO, 1983) J. Appl. Meteor. +! Rutledge, Hobbs (RH83, 1983) J. Atmos. Sci. +! Rutledge, Hobbs (RH84, 1984) J. Atmos. Sci. +! Juang and Hong (JH, 2010) Mon. Wea. Rev. +! + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde , & + ims,ime, jms,jme, kms,kme , & + its,ite, jts,jte, kts,kte, & + lat + REAL, DIMENSION( its:ite , kts:kte ), & + INTENT(INOUT) :: & + t + REAL, DIMENSION( its:ite , kts:kte, 2 ), & + INTENT(INOUT) :: & + qci + REAL, DIMENSION( its:ite , kts:kte, 4 ), & + INTENT(INOUT) :: & + qrs + REAL, DIMENSION( ims:ime , kms:kme ), & + INTENT(INOUT) :: & + q + REAL, DIMENSION( ims:ime , kms:kme ), & + INTENT(IN ) :: & + den, & + p, & + delz + REAL, INTENT(IN ) :: delt, & + g, & + cpd, & + cpv, & + t0c, & + den0, & + rd, & + rv, & + ep1, & + ep2, & + qmin, & + XLS, & + XLV0, & + XLF0, & + cliq, & + cice, & + psat, & + denr + REAL, DIMENSION( ims:ime ), & + INTENT(INOUT) :: rain, & + rainncv, & + sr + REAL, DIMENSION( ims:ime, jms:jme ), OPTIONAL, & + INTENT(INOUT) :: snow, & + snowncv + REAL, DIMENSION( ims:ime, jms:jme ), OPTIONAL, & + INTENT(INOUT) :: graupel, & + graupelncv + REAL, DIMENSION( ims:ime, jms:jme ), OPTIONAL, & + INTENT(INOUT) :: hail, & + hailncv +! +! local variables +! + REAL, DIMENSION( its:ite , kts:kte , 3) :: & + rh, & + qs + REAL, DIMENSION( its:ite , kts:kte, 4) :: & + rslope, & + rslope2, & + rslope3, & + rslopeb, & + qrs_tmp, & + falk, & + fall, & + work1 + REAL, DIMENSION( its:ite , kts:kte ) :: & + fallc, & + falkc, & + work1c, & + work2c, & + workr, & + workh, & + worka + REAL, DIMENSION( its:ite , kts:kte ) :: & + den_tmp, & + delz_tmp + REAL, DIMENSION( its:ite , kts:kte ) :: & + pigen, & + pidep, & + pcond, & + prevp, & + psevp, & + pgevp, & + phevp, & + psdep, & + pgdep, & + pvapg, & + pvaph, & + phdep, & + praut, & + psaut, & + pgaut, & + phaut, & + piacr, & + pracw, & + praci, & + pracs, & + pracg, & + psacw, & + psaci, & + psacr, & + pgacw, & + pgaci, & + pgacr, & + pgacs, & + paacw, & + phacw, & + phaci, & + phacr, & + phacs, & + phacg, & + pgwet, & + phwet, & + primh, & + psmlt, & + pgmlt, & + phmlt, & + pseml, & + pgeml, & + pheml + REAL, DIMENSION( its:ite , kts:kte ) :: & + pgaci_w, & + phaci_w + REAL, DIMENSION( its:ite , kts:kte ) :: & + qsum, & + xl, & + cpm, & + work2, & + denfac, & + xni, & + denqrs1, & + denqrs2, & + denqrs3, & + denqrs4, & + denqci, & + n0sfac + REAL, DIMENSION( its:ite ) :: delqrs1, & + delqrs2, & + delqrs3, & + delqrs4, & + delqi + REAL, DIMENSION( its:ite ) :: tstepsnow, & + tstepgraup, & + tstephail + INTEGER, DIMENSION( its:ite ) :: mstep, & + numdt + LOGICAL, DIMENSION( its:ite ) :: flgcld + REAL :: & + cpmcal, xlcal, diffus, & + viscos, xka, venfac, conden, diffac, & + x, y, z, a, b, c, d, e, & + qdt, holdrr, holdrs, holdrg, supcol, supcolt, pvt, & + coeres, supsat, dtcld, xmi, eacrs, satdt, & + qimax, diameter, xni0, roqi0, & + fallsum, fallsum_qsi, fallsum_qg, fallsum_qh, & + vt2i,vt2r,vt2s,vt2g,vt2h,acrfac, & + egs,egi,ehi, & + xlwork2, factor, source, value, & + xlf, pfrzdtc, pfrzdtr, supice, alpha2, delta2, delta3 + REAL :: vt2ave + REAL :: frac + REAL :: rs0, ghw1, ghw2, ghw3, ghw4 + REAL :: holdc, holdci + INTEGER :: i, j, k, mstepmax, & + iprt, latd, lond, loop, loops, ifsat, n, idim, kdim +! +! Temporaries used for inlining fpvs function +! + REAL :: dldti, xb, xai, tr, xbi, xa, hvap, cvap, hsub, dldt, ttp +! +! variables for optimization +! + REAL, DIMENSION( its:ite ) :: tvec1 + REAL :: temp +!------------------------------------------------------------------------------ +! compute internal functions +! + cpmcal(x) = cpd*(1.-max(x,qmin))+max(x,qmin)*cpv + xlcal(x) = xlv0-xlv1*(x-t0c) +! +! diffus: diffusion coefficient of the water vapor +! viscos: kinematic viscosity(m2s-1) +! Optimizatin : A**B => exp(log(A)*(B)) +! + diffus(x,y) = 8.794e-5 * exp(log(x)*(1.81)) / y ! 8.794e-5*x**1.81/y + viscos(x,y) = 1.496e-6 * (x*sqrt(x)) /(x+120.)/y ! 1.496e-6*x**1.5/(x+120.)/y + xka(x,y) = 1.414e3*viscos(x,y)*y + diffac(a,b,c,d,e) = d*a*a/(xka(c,d)*rv*c*c)+1./(e*diffus(c,b)) + venfac(a,b,c) = exp(log((viscos(b,c)/diffus(b,a)))*((.3333333))) & + /sqrt(viscos(b,c))*sqrt(sqrt(den0/c)) + conden(a,b,c,d,e) = (max(b,qmin)-c)/(1.+d*d/(rv*e)*c/(a*a)) +! + idim = ite-its+1 + kdim = kte-kts+1 +! +! paddint 0 for negative values generated by dynamics +! + do k = kts, kte + do i = its, ite + qci(i,k,1) = max(qci(i,k,1),0.0) + qrs(i,k,1) = max(qrs(i,k,1),0.0) + qci(i,k,2) = max(qci(i,k,2),0.0) + qrs(i,k,2) = max(qrs(i,k,2),0.0) + qrs(i,k,3) = max(qrs(i,k,3),0.0) + qrs(i,k,4) = max(qrs(i,k,4),0.0) + enddo + enddo +! +! latent heat for phase changes and heat capacity. neglect the +! changes during microphysical process calculation +! emanuel(1994) +! + do k = kts, kte + do i = its, ite + cpm(i,k) = cpmcal(q(i,k)) + xl(i,k) = xlcal(t(i,k)) + enddo + enddo +! + do k = kts, kte + do i = its, ite + delz_tmp(i,k) = delz(i,k) + den_tmp(i,k) = den(i,k) + enddo + enddo +! +! initialize the surface rain, snow, graupel, hail +! + do i = its, ite + rainncv(i) = 0. + if(PRESENT (snowncv) .AND. PRESENT (snow)) snowncv(i,lat) = 0. + if(PRESENT (graupelncv) .AND. PRESENT (graupel)) graupelncv(i,lat) = 0. + if(PRESENT (hailncv) .AND. PRESENT (hail)) hailncv(i,lat) = 0. + sr(i) = 0. +! +! new local array to catch step snow, graupel, and hail +! + tstepsnow(i) = 0. + tstepgraup(i) = 0. + tstephail(i) = 0. + enddo +! +! compute the minor time steps. +! + loops = max(nint(delt/dtcldcr),1) + dtcld = delt/loops + if(delt.le.dtcldcr) dtcld = delt +! + do loop = 1,loops +! +! initialize the large scale variables +! + do i = its, ite + mstep(i) = 1 + flgcld(i) = .true. + enddo +! +! do k = kts, kte +! do i = its, ite +! denfac(i,k) = sqrt(den0/den(i,k)) +! enddo +! enddo + do k = kts, kte + CALL VREC( tvec1(its), den(its,k), ite-its+1) + do i = its, ite + tvec1(i) = tvec1(i)*den0 + enddo + CALL VSQRT( denfac(its,k), tvec1(its), ite-its+1) + enddo +! +! Inline expansion for fpvs +! qs(i,k,1) = fpvs(t(i,k),0,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) +! qs(i,k,2) = fpvs(t(i,k),1,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) + hsub = xls + hvap = xlv0 + cvap = cpv + ttp=t0c+0.01 + dldt=cvap-cliq + xa=-dldt/rv + xb=xa+hvap/(rv*ttp) + dldti=cvap-cice + xai=-dldti/rv + xbi=xai+hsub/(rv*ttp) + do k = kts, kte + do i = its, ite + tr=ttp/t(i,k) + qs(i,k,1)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + qs(i,k,1) = min(qs(i,k,1),0.99*p(i,k)) + qs(i,k,1) = ep2 * qs(i,k,1) / (p(i,k) - qs(i,k,1)) + qs(i,k,1) = max(qs(i,k,1),qmin) + rh(i,k,1) = max(q(i,k) / qs(i,k,1),qmin) + tr=ttp/t(i,k) + if(t(i,k).lt.ttp) then + qs(i,k,2)=psat*exp(log(tr)*(xai))*exp(xbi*(1.-tr)) + else + qs(i,k,2)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + endif + qs(i,k,2) = min(qs(i,k,2),0.99*p(i,k)) + qs(i,k,2) = ep2 * qs(i,k,2) / (p(i,k) - qs(i,k,2)) + qs(i,k,2) = max(qs(i,k,2),qmin) + rh(i,k,2) = max(q(i,k) / qs(i,k,2),qmin) + enddo + enddo +! +! initialize the variables for microphysical physics +! + do k = kts, kte + do i = its, ite + prevp(i,k) = 0. + psdep(i,k) = 0. + pgdep(i,k) = 0. + phdep(i,k) = 0. + pvapg(i,k) = 0. + pvaph(i,k) = 0. + praut(i,k) = 0. + psaut(i,k) = 0. + pgaut(i,k) = 0. + phaut(i,k) = 0. + pracw(i,k) = 0. + praci(i,k) = 0. + piacr(i,k) = 0. + psaci(i,k) = 0. + psacw(i,k) = 0. + pracs(i,k) = 0. + pracg(i,k) = 0. + psacr(i,k) = 0. + pgacw(i,k) = 0. + paacw(i,k) = 0. + pgaci(i,k) = 0. + pgacr(i,k) = 0. + pgacs(i,k) = 0. + phacw(i,k) = 0. + phaci(i,k) = 0. + phacr(i,k) = 0. + phacs(i,k) = 0. + phacg(i,k) = 0. + pgwet(i,k) = 0. + phwet(i,k) = 0. + primh(i,k) = 0. + pigen(i,k) = 0. + pidep(i,k) = 0. + pcond(i,k) = 0. + psmlt(i,k) = 0. + pgmlt(i,k) = 0. + phmlt(i,k) = 0. + pseml(i,k) = 0. + pgeml(i,k) = 0. + pheml(i,k) = 0. + psevp(i,k) = 0. + pgevp(i,k) = 0. + phevp(i,k) = 0. + pgaci_w(i,k) = 0. + phaci_w(i,k) = 0. + falk(i,k,1) = 0. + falk(i,k,2) = 0. + falk(i,k,3) = 0. + falk(i,k,4) = 0. + fall(i,k,1) = 0. + fall(i,k,2) = 0. + fall(i,k,3) = 0. + fall(i,k,4) = 0. + fallc(i,k) = 0. + falkc(i,k) = 0. + xni(i,k) = 1.e3 + enddo + enddo +! +! Ni: ice crystal number concentraiton [HDC 5c] +! + do k = kts, kte + do i = its, ite + temp = (den(i,k)*max(qci(i,k,2),qmin)) + temp = sqrt(sqrt(temp*temp*temp)) + xni(i,k) = min(max(5.38e7*temp,1.e3),1.e6) + enddo + enddo +! +! compute the fallout term: +! first, vertical terminal velosity for minor loops +! + do k = kts, kte + do i = its, ite + qrs_tmp(i,k,1) = qrs(i,k,1) + qrs_tmp(i,k,2) = qrs(i,k,2) + qrs_tmp(i,k,3) = qrs(i,k,3) + qrs_tmp(i,k,4) = qrs(i,k,4) + enddo + enddo +! + call slope_wsm7(qrs_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2,rslope3, & + work1,its,ite,kts,kte) +! + do k = kte, kts, -1 + do i = its, ite + workr(i,k) = work1(i,k,1) + workh(i,k) = work1(i,k,4) + qsum(i,k) = max( (qrs(i,k,2)+qrs(i,k,3)), 1.E-15) +! + if ( qsum(i,k) .gt. 1.e-15 ) THEN + worka(i,k) = (work1(i,k,2)*qrs(i,k,2) + work1(i,k,3)*qrs(i,k,3)) & + /qsum(i,k) + else + worka(i,k) = 0. + endif +! + denqrs1(i,k) = den(i,k)*qrs(i,k,1) + denqrs2(i,k) = den(i,k)*qrs(i,k,2) + denqrs3(i,k) = den(i,k)*qrs(i,k,3) + denqrs4(i,k) = den(i,k)*qrs(i,k,4) + if(qrs(i,k,1).le.0.0) workr(i,k) = 0.0 + if(qrs(i,k,4).le.0.0) workh(i,k) = 0.0 + enddo + enddo +! + call nislfv_rain_plm(idim,kdim,den_tmp,denfac,t,delz_tmp,workr,denqrs1, & + delqrs1,dtcld,1,1) + call nislfv_rain_plm6(idim,kdim,den_tmp,denfac,t,delz_tmp,worka, & + denqrs2,denqrs3,delqrs2,delqrs3,dtcld,1,1) + call nislfv_rain_plm(idim,kdim,den_tmp,denfac,t,delz_tmp,workh,denqrs4, & + delqrs4,dtcld,2,1) +! + do k = kts, kte + do i = its, ite + qrs(i,k,1) = max(denqrs1(i,k)/den(i,k),0.) + qrs(i,k,2) = max(denqrs2(i,k)/den(i,k),0.) + qrs(i,k,3) = max(denqrs3(i,k)/den(i,k),0.) + qrs(i,k,4) = max(denqrs4(i,k)/den(i,k),0.) + fall(i,k,1) = denqrs1(i,k)*workr(i,k)/delz(i,k) + fall(i,k,2) = denqrs2(i,k)*worka(i,k)/delz(i,k) + fall(i,k,3) = denqrs3(i,k)*worka(i,k)/delz(i,k) + fall(i,k,4) = denqrs4(i,k)*workh(i,k)/delz(i,k) + enddo + enddo +! + do i = its, ite + fall(i,1,1) = delqrs1(i)/delz(i,1)/dtcld + fall(i,1,2) = delqrs2(i)/delz(i,1)/dtcld + fall(i,1,3) = delqrs3(i)/delz(i,1)/dtcld + fall(i,1,4) = delqrs4(i)/delz(i,1)/dtcld + enddo +! + do k = kts, kte + do i = its, ite + qrs_tmp(i,k,1) = qrs(i,k,1) + qrs_tmp(i,k,2) = qrs(i,k,2) + qrs_tmp(i,k,3) = qrs(i,k,3) + qrs_tmp(i,k,4) = qrs(i,k,4) + enddo + enddo +! + call slope_wsm7(qrs_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2,rslope3, & + work1,its,ite,kts,kte) +! + do k = kte, kts, -1 + do i = its, ite + supcol = t0c-t(i,k) + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + if(t(i,k).gt.t0c) then +! +! psmlt: melting of snow [HL A33] [RH83 A25] +! (T>T0: S->R) +! + xlf = xlf0 + work2(i,k) = venfac(p(i,k),t(i,k),den(i,k)) + if(qrs(i,k,2).gt.0.) then + coeres = rslope2(i,k,2)*sqrt(rslope(i,k,2)*rslopeb(i,k,2)) + psmlt(i,k) = xka(t(i,k),den(i,k))/xlf*(t0c-t(i,k))*pi/2. & + *n0sfac(i,k)*(precs1*rslope2(i,k,2) & + +precs2*work2(i,k)*coeres)/den(i,k) + psmlt(i,k) = min(max(psmlt(i,k)*dtcld/mstep(i), & + -qrs(i,k,2)/mstep(i)),0.) + qrs(i,k,2) = qrs(i,k,2) + psmlt(i,k) + qrs(i,k,1) = qrs(i,k,1) - psmlt(i,k) + t(i,k) = t(i,k) + xlf/cpm(i,k)*psmlt(i,k) + endif +! +! pgmlt: melting of graupel [HL A23] [LFO 47] +! (T>T0: G->R) +! + if(qrs(i,k,3).gt.0.) then + coeres = rslope2(i,k,3)*sqrt(rslope(i,k,3)*rslopeb(i,k,3)) + pgmlt(i,k) = xka(t(i,k),den(i,k))/xlf & + *(t0c-t(i,k))*(precg1*rslope2(i,k,3) & + +precg2*work2(i,k)*coeres)/den(i,k) + pgmlt(i,k) = min(max(pgmlt(i,k)*dtcld/mstep(i), & + -qrs(i,k,3)/mstep(i)),0.) + qrs(i,k,3) = qrs(i,k,3) + pgmlt(i,k) + qrs(i,k,1) = qrs(i,k,1) - pgmlt(i,k) + t(i,k) = t(i,k) + xlf/cpm(i,k)*pgmlt(i,k) + endif +! +! phmlt: melting of hail [BHT A22] +! (T>T0: H->R) +! + if(qrs(i,k,4).gt.0.) then + coeres = rslope2(i,k,4)*sqrt(rslope(i,k,4)*rslopeb(i,k,4)) + phmlt(i,k) = xka(t(i,k),den(i,k))/xlf & + *(t0c-t(i,k))*(prech1*rslope2(i,k,4) & + +prech2*work2(i,k)*coeres)/den(i,k) + phmlt(i,k) = min(max(phmlt(i,k)*dtcld/mstep(i), & + -qrs(i,k,4)/mstep(i)),0.) + qrs(i,k,4) = qrs(i,k,4) + phmlt(i,k) + qrs(i,k,1) = qrs(i,k,1) - phmlt(i,k) + t(i,k) = t(i,k) + xlf/cpm(i,k)*phmlt(i,k) + endif + endif + enddo + enddo +! +! Vice [ms-1] : fallout of ice crystal [HDC 5a] +! + do k = kte,kts,-1 + do i = its, ite + if(qci(i,k,2).le.0.) then + work1c(i,k) = 0. + else + xmi = den(i,k)*qci(i,k,2)/xni(i,k) + diameter = max(min(dicon * sqrt(xmi),dimax), 1.e-25) + work1c(i,k) = 1.49e4*exp(log(diameter)*(1.31)) + endif + enddo + enddo +! +! forward semi-laglangian scheme (JH), PCM (piecewise constant), (linear) +! + do k = kte, kts, -1 + do i = its, ite + denqci(i,k) = den(i,k)*qci(i,k,2) + enddo + enddo +! + call nislfv_rain_plm(idim,kdim,den_tmp,denfac,t,delz_tmp,work1c,denqci, & + delqi,dtcld,1,0) +! + do k = kts, kte + do i = its, ite + qci(i,k,2) = max(denqci(i,k)/den(i,k),0.) + enddo + enddo +! + do i = its, ite + fallc(i,1) = delqi(i)/delz(i,1)/dtcld + enddo +! +! rain (unit is mm/sec;kgm-2s-1: /1000*delt ===> m)==> mm for wrf +! + do i = its, ite + fallsum = fall(i,kts,1)+fall(i,kts,2)+fall(i,kts,3)+fall(i,kts,4)+ & + fallc(i,kts) + fallsum_qsi = fall(i,kts,2)+fallc(i,kts) + fallsum_qg = fall(i,kts,3) + fallsum_qh = fall(i,kts,4) + if(fallsum.gt.0.) then + rainncv(i) = fallsum*delz(i,kts)/denr*dtcld*1000. + rainncv(i) + rain(i) = fallsum*delz(i,kts)/denr*dtcld*1000. + rain(i) + endif +! + if(fallsum_qsi.gt.0.) then + tstepsnow(i) = fallsum_qsi*delz(i,kts)/denr*dtcld*1000. & + +tstepsnow(i) + if ( PRESENT (snowncv) .AND. PRESENT (snow)) THEN + snowncv(i,lat) = fallsum_qsi*delz(i,kts)/denr*dtcld*1000. & + +snowncv(i,lat) + snow(i,lat) = fallsum_qsi*delz(i,kts)/denr*dtcld*1000. + snow(i,lat) + endif + endif +! + if(fallsum_qg.gt.0.) then + tstepgraup(i) = fallsum_qg*delz(i,kts)/denr*dtcld*1000. & + +tstepgraup(i) + if ( PRESENT (graupelncv) .AND. PRESENT (graupel)) THEN + graupelncv(i,lat) = fallsum_qg*delz(i,kts)/denr*dtcld*1000. & + + graupelncv(i,lat) + graupel(i,lat) = fallsum_qg*delz(i,kts)/denr*dtcld*1000. + graupel(i,lat) + endif + endif +! + if(fallsum_qh.gt.0.) then + tstephail(i) = fallsum_qh*delz(i,kts)/denr*dtcld*1000. & + +tstephail(i) + if ( PRESENT (hailncv) .AND. PRESENT (hail)) THEN + hailncv(i,lat) = fallsum_qh*delz(i,kts)/denr*dtcld*1000. & + + hailncv(i,lat) + hail(i,lat) = fallsum_qh*delz(i,kts)/denr*dtcld*1000. + hail(i,lat) + endif + endif +! + if(fallsum.gt.0.)sr(i)=(tstepsnow(i) + tstepgraup(i) + tstephail(i)) & + /(rainncv(i)+1.e-12) + enddo +! +! pimlt: instantaneous melting of cloud ice [HL A47] [RH83 A28] +! (T>T0: I->C) +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) + xlf = xls-xl(i,k) + if(supcol.lt.0.) xlf = xlf0 + if(supcol.lt.0.and.qci(i,k,2).gt.0.) then + qci(i,k,1) = qci(i,k,1) + qci(i,k,2) + t(i,k) = t(i,k) - xlf/cpm(i,k)*qci(i,k,2) + qci(i,k,2) = 0. + endif +! +! pihmf: homogeneous freezing of cloud water below -40c [HL A45] +! (T<-40C: C->I) +! + if(supcol.gt.40..and.qci(i,k,1).gt.0.) then + qci(i,k,2) = qci(i,k,2) + qci(i,k,1) + t(i,k) = t(i,k) + xlf/cpm(i,k)*qci(i,k,1) + qci(i,k,1) = 0. + endif +! +! pihtf: heterogeneous freezing of cloud water [HL A44] +! (T0>T>-40C: C->I) +! + if(supcol.gt.0..and.qci(i,k,1).gt.qmin) then + supcolt=min(supcol,50.) + pfrzdtc = min(pfrz1*(exp(pfrz2*supcolt)-1.) & + *den(i,k)/denr/xncr*qci(i,k,1)*qci(i,k,1)*dtcld,qci(i,k,1)) + qci(i,k,2) = qci(i,k,2) + pfrzdtc + t(i,k) = t(i,k) + xlf/cpm(i,k)*pfrzdtc + qci(i,k,1) = qci(i,k,1)-pfrzdtc + endif +! +! pgfrz: freezing of rain water [HL A20] [LFO 45] +! (TG) +! + if(supcol.gt.0..and.qrs(i,k,1).gt.0.) then + temp = rslope3(i,k,1) + temp = temp*temp*rslope(i,k,1) + supcolt=min(supcol,50.) + pfrzdtr = min(20.*(pi*pi)*pfrz1*n0r*denr/den(i,k) & + *(exp(pfrz2*supcolt)-1.)*temp*dtcld, & + qrs(i,k,1)) + qrs(i,k,3) = qrs(i,k,3) + pfrzdtr + t(i,k) = t(i,k) + xlf/cpm(i,k)*pfrzdtr + qrs(i,k,1) = qrs(i,k,1) - pfrzdtr + endif + enddo + enddo +! +! update the slope parameters for microphysics computation +! + do k = kts, kte + do i = its, ite + qrs_tmp(i,k,1) = qrs(i,k,1) + qrs_tmp(i,k,2) = qrs(i,k,2) + qrs_tmp(i,k,3) = qrs(i,k,3) + qrs_tmp(i,k,4) = qrs(i,k,4) + enddo + enddo +! + call slope_wsm7(qrs_tmp,den_tmp,denfac,t,rslope,rslopeb,rslope2,rslope3, & + work1,its,ite,kts,kte) +! +! work1: the thermodynamic term in the denominator associated with +! heat conduction and vapor diffusion +! (ry88, y93, h85) +! work2: parameter associated with the ventilation effects(y93) +! + do k = kts, kte + do i = its, ite + work1(i,k,1) = diffac(xl(i,k),p(i,k),t(i,k),den(i,k),qs(i,k,1)) + work1(i,k,2) = diffac(xls,p(i,k),t(i,k),den(i,k),qs(i,k,2)) + work2(i,k) = venfac(p(i,k),t(i,k),den(i,k)) + enddo + enddo +! +!=============================================================== +! +! warm rain processes +! +! - follows the processes in RH83 and LFO except for autoconcersion +! +!=============================================================== +! + do k = kts, kte + do i = its, ite + supsat = max(q(i,k),qmin)-qs(i,k,1) + satdt = supsat/dtcld +! +! praut: auto conversion rate from cloud to rain [HDC 16] +! (C->R) +! + if(qci(i,k,1).gt.qc0) then + praut(i,k) = qck1*qci(i,k,1)**(7./3.) + praut(i,k) = min(praut(i,k),qci(i,k,1)/dtcld) + endif +! +! pracw: accretion of cloud water by rain [HL A40] [LFO 51] +! (C->R) +! + if(qrs(i,k,1).gt.qcrmin.and.qci(i,k,1).gt.qmin) then + pracw(i,k) = min(pacrr*rslope3(i,k,1)*rslopeb(i,k,1) & + *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) + endif +! +! prevp: evaporation/condensation rate of rain [HDC 14] +! (V->R or R->V) +! + if(qrs(i,k,1).gt.0.) then + coeres = rslope2(i,k,1)*sqrt(rslope(i,k,1)*rslopeb(i,k,1)) + prevp(i,k) = (rh(i,k,1)-1.)*(precr1*rslope2(i,k,1) & + +precr2*work2(i,k)*coeres)/work1(i,k,1) + if(prevp(i,k).lt.0.) then + prevp(i,k) = max(prevp(i,k),-qrs(i,k,1)/dtcld) + prevp(i,k) = max(prevp(i,k),satdt/2) + else + prevp(i,k) = min(prevp(i,k),satdt/2) + endif + endif + enddo + enddo +! +!=============================================================== +! +! cold rain processes +! +! - follows the revised ice microphysics processes in HDC +! - the processes same as in RH83 and RH84 and LFO behave +! following ice crystal hapits defined in HDC, inclduing +! intercept parameter for snow (n0s), ice crystal number +! concentration (ni), ice nuclei number concentration +! (n0i), ice diameter (d) +! +!=============================================================== +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + supsat = max(q(i,k),qmin)-qs(i,k,2) + satdt = supsat/dtcld + ifsat = 0 +! +! Ni: ice crystal number concentraiton [HDC 5c] +! + temp = (den(i,k)*max(qci(i,k,2),qmin)) + temp = sqrt(sqrt(temp*temp*temp)) + xni(i,k) = min(max(5.38e7*temp,1.e3),1.e6) + eacrs = exp(0.07*(-supcol)) +! + xmi = den(i,k)*qci(i,k,2)/xni(i,k) + diameter = min(dicon * sqrt(xmi),dimax) + vt2i = 1.49e4*diameter**1.31 + vt2r=pvtr*rslopeb(i,k,1)*denfac(i,k) + vt2s=pvts*rslopeb(i,k,2)*denfac(i,k) + vt2g=pvtg*rslopeb(i,k,3)*denfac(i,k) + vt2h=pvth*rslopeb(i,k,4)*denfac(i,k) + qsum(i,k) = max( (qrs(i,k,2)+qrs(i,k,3)), 1.E-15) + if(qsum(i,k) .gt. 1.e-15) then + vt2ave=(vt2s*qrs(i,k,2)+vt2g*qrs(i,k,3))/(qsum(i,k)) + else + vt2ave=0. + endif + if(supcol.gt.0.and.qci(i,k,2).gt.qmin) then + if(qrs(i,k,1).gt.qcrmin) then +! +! praci: Accretion of cloud ice by rain [HL A15] [LFO 25] +! (TR) +! + acrfac = 2.*rslope3(i,k,1)+2.*diameter*rslope2(i,k,1) & + +diameter**2*rslope(i,k,1) + praci(i,k) = pi*qci(i,k,2)*n0r*abs(vt2r-vt2i)*acrfac/4. + ! reduce collection efficiency (suggested by B. Wilt) + praci(i,k) = praci(i,k)*min(max(0.0,qrs(i,k,1)/qci(i,k,2)),1.)**2 + praci(i,k) = min(praci(i,k),qci(i,k,2)/dtcld) +! +! piacr: Accretion of rain by cloud ice [HL A19] [LFO 26] +! (TS or R->G) +! + piacr(i,k) = pi**2*avtr*n0r*denr*xni(i,k)*denfac(i,k) & + *g6pbr*rslope3(i,k,1)*rslope3(i,k,1) & + *rslopeb(i,k,1)/24./den(i,k) + ! reduce collection efficiency (suggested by B. Wilt) + piacr(i,k) = piacr(i,k)*min(max(0.0,qci(i,k,2)/qrs(i,k,1)),1.)**2 + piacr(i,k) = min(piacr(i,k),qrs(i,k,1)/dtcld) + endif +! +! psaci: Accretion of cloud ice by snow [HDC 10] +! (TS) +! + if(qrs(i,k,2).gt.qcrmin) then + acrfac = 2.*rslope3(i,k,2)+2.*diameter*rslope2(i,k,2) & + +diameter**2*rslope(i,k,2) + psaci(i,k) = pi*qci(i,k,2)*eacrs*n0s*n0sfac(i,k) & + *abs(vt2ave-vt2i)*acrfac/4. + psaci(i,k) = min(psaci(i,k),qci(i,k,2)/dtcld) + endif +! +! pgaci: Accretion of cloud ice by graupel [HL A17] [LFO 41] +! (TG) +! + if(qrs(i,k,3).gt.qcrmin) then + egi = exp(0.07*(-supcol)) + acrfac = 2.*rslope3(i,k,3)+2.*diameter*rslope2(i,k,3) & + +diameter**2*rslope(i,k,3) + pgaci(i,k) = pi*egi*qci(i,k,2)*n0g*abs(vt2ave-vt2i)*acrfac/4. + pgaci(i,k) = min(pgaci(i,k),qci(i,k,2)/dtcld) + endif +! +! phaci: Accretion of cloud ice by hail [BHT ] +! (TH) +! + if(qrs(i,k,4).gt.qcrmin) then + ehi = exp(0.07*(-supcol)) + acrfac = 2.*rslope3(i,k,4)+2.*diameter*rslope2(i,k,4) & + +diameter**2*rslope(i,k,4) + phaci(i,k) = pi*ehi*qci(i,k,2)*n0h*abs(vt2h-vt2i)*acrfac/4. + phaci(i,k) = min(phaci(i,k),qci(i,k,2)/dtcld) + endif + endif +! +! psacw: Accretion of cloud water by snow [HL A7] [LFO 24] +! (TS, and T>=T0: C->R) +! + if(qrs(i,k,2).gt.qcrmin.and.qci(i,k,1).gt.qmin) then + psacw(i,k) = min(pacrc*n0sfac(i,k)*rslope3(i,k,2)*rslopeb(i,k,2) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,2)/qci(i,k,1)),1.)**2 & + *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) + endif +! +! pgacw: Accretion of cloud water by graupel [HL A6] [LFO 40] +! (TG, and T>=T0: C->R) +! + if(qrs(i,k,3).gt.qcrmin.and.qci(i,k,1).gt.qmin) then + pgacw(i,k) = min(pacrg*rslope3(i,k,3)*rslopeb(i,k,3) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,3)/qci(i,k,1)),1.)**2 & + *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) + endif +! +! paacw: Accretion of cloud water by averaged snow/graupel +! (TG or S, and T>=T0: C->R) +! + if(qsum(i,k) .gt. 1.e-15) then + paacw(i,k) = (qrs(i,k,2)*psacw(i,k)+qrs(i,k,3)*pgacw(i,k)) & + /(qsum(i,k)) + endif +! +! phacw: Accretion of cloud water by hail [BHT A08] +! (TH, and T>=T0: C->R) +! + if(qrs(i,k,4).gt.qcrmin.and.qci(i,k,1).gt.qmin) then + phacw(i,k) = min(pacrh*rslope3(i,k,4)*rslopeb(i,k,4) & + ! reduce collection efficiency (suggested by B. Wilt) + *min(max(0.0,qrs(i,k,4)/qci(i,k,1)),1.)**2 & + *qci(i,k,1)*denfac(i,k),qci(i,k,1)/dtcld) + endif +! +! pracs: Accretion of snow by rain [HL A11] [LFO 27] +! (TG) +! + if(qrs(i,k,2).gt.qcrmin.and.qrs(i,k,1).gt.qcrmin) then + if(supcol.gt.0) then + acrfac = 5.*rslope3(i,k,2)*rslope3(i,k,2)*rslope(i,k,1) & + +2.*rslope3(i,k,2)*rslope2(i,k,2)*rslope2(i,k,1) & + +.5*rslope2(i,k,2)*rslope2(i,k,2)*rslope3(i,k,1) + pracs(i,k) = pi**2*n0r*n0s*n0sfac(i,k)*abs(vt2r-vt2ave) & + *(dens/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pracs(i,k) = pracs(i,k)*min(max(0.0,qrs(i,k,1)/qrs(i,k,2)),1.)**2 + pracs(i,k) = min(pracs(i,k),qrs(i,k,2)/dtcld) + endif +! +! psacr: Accretion of rain by snow [HL A10] [LFO 28] +! (TS or R->G) (T>=T0: enhance melting of snow) +! + acrfac = 5.*rslope3(i,k,1)*rslope3(i,k,1)*rslope(i,k,2) & + +2.*rslope3(i,k,1)*rslope2(i,k,1)*rslope2(i,k,2) & + +.5*rslope2(i,k,1)*rslope2(i,k,1)*rslope3(i,k,2) + psacr(i,k) = pi**2*n0r*n0s*n0sfac(i,k)*abs(vt2ave-vt2r) & + *(denr/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + psacr(i,k) = psacr(i,k)*min(max(0.0,qrs(i,k,2)/qrs(i,k,1)),1.)**2 + psacr(i,k) = min(psacr(i,k),qrs(i,k,1)/dtcld) + endif +! +! pracg: Accretion of graupel by rain [BHT A17] +! (TH) +! + if(qrs(i,k,3).gt.qcrmin.and.qrs(i,k,1).gt.qcrmin) then + if(supcol.gt.0) then + acrfac = 5.*rslope3(i,k,3)*rslope3(i,k,3)*rslope(i,k,1) & + +2.*rslope3(i,k,3)*rslope2(i,k,3)*rslope2(i,k,1) & + +.5*rslope2(i,k,3)*rslope2(i,k,3)*rslope3(i,k,1) + pracg(i,k) = pi**2*n0r*n0g*abs(vt2r-vt2ave) & + *(deng/den(i,k))*acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pracg(i,k) = pracg(i,k)*min(max(0.0,qrs(i,k,1)/qrs(i,k,3)),1.)**2 + pracg(i,k) = min(pracg(i,k),qrs(i,k,3)/dtcld) + endif +! +! pgacr: Accretion of rain by graupel [HL A12] [LFO 42] +! (TG) (T>=T0: enhance melting of graupel) +! + acrfac = 5.*rslope3(i,k,1)*rslope3(i,k,1)*rslope(i,k,3) & + +2.*rslope3(i,k,1)*rslope2(i,k,1)*rslope2(i,k,3) & + +.5*rslope2(i,k,1)*rslope2(i,k,1)*rslope3(i,k,3) + pgacr(i,k) = pi**2*n0r*n0g*abs(vt2ave-vt2r)*(denr/den(i,k)) & + *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + pgacr(i,k) = pgacr(i,k)*min(max(0.0,qrs(i,k,3)/qrs(i,k,1)),1.)**2 + pgacr(i,k) = min(pgacr(i,k),qrs(i,k,1)/dtcld) + endif +! +! pgacs: Accretion of snow by graupel [HL A13] [LFO 29] +! (S->G): This process is eliminated in V3.0 with the +! new combined snow/graupel fall speeds +! + if(qrs(i,k,3).gt.qcrmin.and.qrs(i,k,2).gt.qcrmin) then + pgacs(i,k) = 0. + endif +! +! phacr: Accretion of rain by hail [BHT A13] +! (TH) (T>=T0: enhance melting of hail) +! + if(qrs(i,k,4).gt.qcrmin.and.qrs(i,k,1).gt.qcrmin) then + acrfac = 5.*rslope3(i,k,1)*rslope3(i,k,1)*rslope(i,k,4) & + +2.*rslope3(i,k,1)*rslope2(i,k,1)*rslope2(i,k,4) & + +.5*rslope2(i,k,1)*rslope2(i,k,1)*rslope3(i,k,4) + phacr(i,k) = pi**2*n0r*n0h*abs(vt2h-vt2r)*(denr/den(i,k)) & + *acrfac + ! reduce collection efficiency (suggested by B. Wilt) + phacr(i,k) = phacr(i,k)*min(max(0.0,qrs(i,k,4)/qrs(i,k,1)),1.)**2 + phacr(i,k) = min(phacr(i,k),qrs(i,k,1)/dtcld) + endif +! +! phacs: Accretion of snow by hail [BHT A14] +! (TH) +! + if(qrs(i,k,4).gt.qcrmin.and.qrs(i,k,2).gt.qcrmin) then + acrfac = 5.*rslope3(i,k,2)*rslope3(i,k,2)*rslope(i,k,4) & + +2.*rslope3(i,k,2)*rslope2(i,k,2)*rslope2(i,k,4) & + +.5*rslope2(i,k,2)*rslope2(i,k,2)*rslope3(i,k,4) + phacs(i,k) = pi**2*eachs*n0s*n0sfac(i,k)*n0h*abs(vt2h-vt2ave) & + *(dens/den(i,k))*acrfac + phacs(i,k) = min(phacs(i,k),qrs(i,k,2)/dtcld) + endif +! +! phacg: Accretion of snow by hail [BHT A15] +! (TH) +! + if(qrs(i,k,4).gt.qcrmin.and.qrs(i,k,3).gt.qcrmin) then + acrfac = 5.*rslope3(i,k,3)*rslope3(i,k,3)*rslope(i,k,4) & + +2.*rslope3(i,k,3)*rslope2(i,k,3)*rslope2(i,k,4) & + +.5*rslope2(i,k,3)*rslope2(i,k,3)*rslope3(i,k,4) + phacg(i,k) = pi**2*eachg*n0g*n0h*abs(vt2h-vt2ave) & + *(deng/den(i,k))*acrfac + phacg(i,k) = min(phacg(i,k),qrs(i,k,3)/dtcld) + endif +! +! pgwet: wet growth of graupel [LFO 43] +! +! + rs0 = psat*exp(log(ttp/t0c)*xa)*exp(xb*(1.-ttp/t0c)) + rs0 = min(rs0,0.99*p(i,k)) + rs0 = ep2*rs0/(p(i,k)-rs0) + rs0 = max(rs0,qmin) + ghw1 = den(i,k)*hvap*diffus(t(i,k),p(i,k))*(rs0-q(i,k)) & + - xka(t(i,k),den(i,k))*(-supcol) + ghw2 = den(i,k)*(xlf0+cliq*(-supcol)) + ghw3 = venfac(p(i,k),t(i,k),den(i,k))*sqrt(sqrt(g*den(i,k)/den0)) + ghw4 = den(i,k)*(xlf0-cliq*supcol+cice*supcol) + if(qrs(i,k,3).gt.qcrmin) then + if(pgaci(i,k).gt.0.0) then + egi = exp(0.07*(-supcol)) + pgaci_w(i,k) = pgaci(i,k)/egi + else + pgaci_w(i,k) = 0.0 + endif + pgwet(i,k) = ghw1/ghw2*(precg1*rslope2(i,k,3) & + +precg3*ghw3*rslope(i,k,4)**(2.75) & + +ghw4*(pgaci_w(i,k)+pgacs(i,k))) + pgwet(i,k) = max(pgwet(i,k), 0.0) + endif +! +! phwet: wet growth of hail [LFO 43] +! +! + if(qrs(i,k,4).gt.qcrmin) then + if(phaci(i,k).gt.0.0) then + ehi = exp(0.07*(-supcol)) + phaci_w(i,k) = phaci(i,k)/ehi + else + phaci_w(i,k) = 0.0 + endif + endif + phwet(i,k) = ghw1/ghw2*(prech1*rslope2(i,k,4) & + +prech3*ghw3*rslope(i,k,4)**(2.75) & + +ghw4*(phaci_w(i,k)+phacs(i,k))) + phwet(i,k) = max(phwet(i,k), 0.0) +! + if(phacw(i,k)+phacr(i,k).lt.0.95*phwet(i,k)) then + phaci(i,k) = 0.0 + phacs(i,k) = 0.0 + phacg(i,k) = 0.0 + endif +! + if(supcol.le.0) then + xlf = xlf0 +! +! pseml: Enhanced melting of snow by accretion of water [HL A34] +! (T>=T0: S->R) +! + if(qrs(i,k,2).gt.0.) & + pseml(i,k) = min(max(cliq*supcol*(paacw(i,k)+psacr(i,k)) & + /xlf,-qrs(i,k,2)/dtcld),0.) +! +! pgeml: Enhanced melting of graupel by accretion of water [HL A24] [RH84 A21-A22] +! (T>=T0: G->R) +! + if(qrs(i,k,3).gt.0.) & + pgeml(i,k) = min(max(cliq*supcol*(paacw(i,k)+pgacr(i,k)) & + /xlf,-qrs(i,k,3)/dtcld),0.) +! +! pheml: Enhanced melting of hail by accretion of water [BHT A23] +! (T>=T0: H->R) +! + if(qrs(i,k,4).gt.0.) & + pheml(i,k) = min(max(cliq*supcol*(phacw(i,k)+phacr(i,k)) & + /xlf,-qrs(i,k,4)/dtcld),0.) + endif +! + if(supcol.gt.0) then +! +! pidep: Deposition/Sublimation rate of ice [HDC 9] +! (TI or I->V) +! + if(qci(i,k,2).gt.0.and.ifsat.ne.1) then + pidep(i,k) = 4.*diameter*xni(i,k)*(rh(i,k,2)-1.)/work1(i,k,2) + supice = satdt-prevp(i,k) + if(pidep(i,k).lt.0.) then + pidep(i,k) = max(max(pidep(i,k),satdt/2),supice) + pidep(i,k) = max(pidep(i,k),-qci(i,k,2)/dtcld) + else + pidep(i,k) = min(min(pidep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)).ge.abs(satdt)) ifsat = 1 + endif +! +! psdep: deposition/sublimation rate of snow [HDC 14] +! (TS or S->V) +! + if(qrs(i,k,2).gt.0..and.ifsat.ne.1) then + coeres = rslope2(i,k,2)*sqrt(rslope(i,k,2)*rslopeb(i,k,2)) + psdep(i,k) = (rh(i,k,2)-1.)*n0sfac(i,k)*(precs1*rslope2(i,k,2) & + + precs2*work2(i,k)*coeres)/work1(i,k,2) + supice = satdt-prevp(i,k)-pidep(i,k) + if(psdep(i,k).lt.0.) then + psdep(i,k) = max(psdep(i,k),-qrs(i,k,2)/dtcld) + psdep(i,k) = max(max(psdep(i,k),satdt/2),supice) + else + psdep(i,k) = min(min(psdep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)+psdep(i,k)).ge.abs(satdt)) & + ifsat = 1 + endif +! +! pgdep: deposition/sublimation rate of graupel [HL A21] [LFO 46] +! (TG or G->V) +! + if(qrs(i,k,3).gt.0..and.ifsat.ne.1) then + coeres = rslope2(i,k,3)*sqrt(rslope(i,k,3)*rslopeb(i,k,3)) + pgdep(i,k) = (rh(i,k,2)-1.)*(precg1*rslope2(i,k,3) & + +precg2*work2(i,k)*coeres)/work1(i,k,2) + supice = satdt-prevp(i,k)-pidep(i,k)-psdep(i,k) + if(pgdep(i,k).lt.0.) then + pgdep(i,k) = max(pgdep(i,k),-qrs(i,k,3)/dtcld) + pgdep(i,k) = max(max(pgdep(i,k),satdt/2),supice) + else + pgdep(i,k) = min(min(pgdep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)+psdep(i,k)+pgdep(i,k)).ge. & + abs(satdt)) ifsat = 1 + endif +! +! phdep: deposition/sublimation rate of hail [BHT A19] +! (TH or H->V) +! + if(qrs(i,k,4).gt.0..and.ifsat.ne.1) then + coeres = rslope2(i,k,4)*sqrt(rslope(i,k,4)*rslopeb(i,k,4)) + phdep(i,k) = (rh(i,k,2)-1.)*(prech1*rslope2(i,k,4) & + +prech2*work2(i,k)*coeres)/work1(i,k,2) + supice = satdt-prevp(i,k)-pidep(i,k)-psdep(i,k)-pgdep(i,k) + if(phdep(i,k).lt.0.) then + phdep(i,k) = max(phdep(i,k),-qrs(i,k,4)/dtcld) + phdep(i,k) = max(max(phdep(i,k),satdt/2),supice) + else + phdep(i,k) = min(min(phdep(i,k),satdt/2),supice) + endif + if(abs(prevp(i,k)+pidep(i,k)+psdep(i,k)+pgdep(i,k)+phdep(i,k)) & + .ge. abs(satdt)) ifsat = 1 + endif +! +! pigen: generation(nucleation) of ice from vapor [HL 50] [HDC 7-8] +! (TI) +! + if(supsat.gt.0.and.ifsat.ne.1) then + supice = satdt-prevp(i,k)-pidep(i,k)-psdep(i,k)-pgdep(i,k) + xni0 = 1.e3*exp(0.1*supcol) + roqi0 = 4.92e-11*xni0**1.33 + pigen(i,k) = max(0.,(roqi0/den(i,k)-max(qci(i,k,2),0.))/dtcld) + pigen(i,k) = min(min(pigen(i,k),satdt),supice) + endif +! +! psaut: conversion(aggregation) of ice to snow [HDC 12] +! (TS) +! + if(qci(i,k,2).gt.0.) then + qimax = roqimax/den(i,k) + psaut(i,k) = max(0.,(qci(i,k,2)-qimax)/dtcld) + endif +! +! pgaut: conversion(aggregation) of snow to graupel [HL A4] [LFO 37] +! (TG) +! + if(qrs(i,k,2).gt.0.) then + alpha2 = 1.e-3*exp(0.09*(-supcol)) + pgaut(i,k) = min(max(0.,alpha2*(qrs(i,k,2)-qs0)),qrs(i,k,2)/dtcld) + endif + endif +! +! phaut: conversion(aggregation) of grauple to hail [BHT A18] +! (TH) +! + if(qrs(i,k,3).gt.0.) then + alpha2 = 1.e-3*exp(0.09*(-supcol)) + phaut(i,k) = min(max(0.,alpha2*(qrs(i,k,3)-qs0)),qrs(i,k,3)/dtcld) + endif +! +! psevp: Evaporation of melting snow [HL A35] [RH83 A27] +! (T>=T0: S->V) +! + if(supcol.lt.0.) then + if(qrs(i,k,2).gt.0..and.rh(i,k,1).lt.1.) then + coeres = rslope2(i,k,2)*sqrt(rslope(i,k,2)*rslopeb(i,k,2)) + psevp(i,k) = (rh(i,k,1)-1.)*n0sfac(i,k)*(precs1 & + *rslope2(i,k,2)+precs2*work2(i,k) & + *coeres)/work1(i,k,1) + psevp(i,k) = min(max(psevp(i,k),-qrs(i,k,2)/dtcld),0.) + endif +! +! pgevp: Evaporation of melting graupel [HL A25] [RH84 A19] +! (T>=T0: G->V) +! + if(qrs(i,k,3).gt.0..and.rh(i,k,1).lt.1.) then + coeres = rslope2(i,k,3)*sqrt(rslope(i,k,3)*rslopeb(i,k,3)) + pgevp(i,k) = (rh(i,k,1)-1.)*(precg1*rslope2(i,k,3) & + +precg2*work2(i,k)*coeres)/work1(i,k,1) + pgevp(i,k) = min(max(pgevp(i,k),-qrs(i,k,3)/dtcld),0.) + endif +! +! phevp: Evaporation of melting hail [BHT A20] +! (T>=T0: H->V) +! + if(qrs(i,k,4).gt.0..and.rh(i,k,1).lt.1.) then + coeres = rslope2(i,k,4)*sqrt(rslope(i,k,4)*rslopeb(i,k,4)) + phevp(i,k) = (rh(i,k,1)-1.)*(prech1*rslope2(i,k,4) & + +prech2*work2(i,k)*coeres)/work1(i,k,1) + phevp(i,k) = min(max(phevp(i,k),-qrs(i,k,4)/dtcld),0.) + endif + endif + enddo + enddo +! +! check mass conservation of generation terms and feedback to the +! large scale +! + do k = kts, kte + do i = its, ite +! + delta2=0. + delta3=0. + if(qrs(i,k,1).lt.1.e-4.and.qrs(i,k,2).lt.1.e-4) delta2=1. + if(qrs(i,k,1).lt.1.e-4) delta3=1. + if(t(i,k).le.t0c) then +! +! cloud water +! + value = max(qmin,qci(i,k,1)) + source = (praut(i,k)+pracw(i,k)+paacw(i,k)+paacw(i,k)+phacw(i,k)) & + *dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + endif +! +! cloud ice +! + value = max(qmin,qci(i,k,2)) + source = (psaut(i,k)-pigen(i,k)-pidep(i,k)+praci(i,k)+psaci(i,k) & + +pgaci(i,k)+phaci(i,k))*dtcld + if (source.gt.value) then + factor = value/source + psaut(i,k) = psaut(i,k)*factor + pigen(i,k) = pigen(i,k)*factor + pidep(i,k) = pidep(i,k)*factor + praci(i,k) = praci(i,k)*factor + psaci(i,k) = psaci(i,k)*factor + pgaci(i,k) = pgaci(i,k)*factor + phaci(i,k) = phaci(i,k)*factor + endif +! +! rain +! + value = max(qmin,qrs(i,k,1)) + source = (-praut(i,k)-prevp(i,k)-pracw(i,k)+piacr(i,k)+psacr(i,k) & + +pgacr(i,k)+phacr(i,k))*dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + prevp(i,k) = prevp(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + piacr(i,k) = piacr(i,k)*factor + psacr(i,k) = psacr(i,k)*factor + pgacr(i,k) = pgacr(i,k)*factor + phacr(i,k) = phacr(i,k)*factor + endif +! +! snow +! + value = max(qmin,qrs(i,k,2)) + source = -(psdep(i,k)+psaut(i,k)+paacw(i,k)+pvapg(i,k)+pvaph(i,k) & + +psaci(i,k)-pgaut(i,k)-pracs(i,k)*(1.-delta2) & + +piacr(i,k)*delta3+praci(i,k)*delta3 & + +psacr(i,k)*delta2 & + -pgacs(i,k)-phacs(i,k) )*dtcld + if (source.gt.value) then + factor = value/source + psdep(i,k) = psdep(i,k)*factor + psaut(i,k) = psaut(i,k)*factor + pgaut(i,k) = pgaut(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + pvapg(i,k) = pvapg(i,k)*factor + pvaph(i,k) = pvaph(i,k)*factor + psaci(i,k) = psaci(i,k)*factor + piacr(i,k) = piacr(i,k)*factor + praci(i,k) = praci(i,k)*factor + psacr(i,k) = psacr(i,k)*factor + pracs(i,k) = pracs(i,k)*factor + pgacs(i,k) = pgacs(i,k)*factor + phacs(i,k) = phacs(i,k)*factor + endif +! +! graupel +! + value = max(qmin,qrs(i,k,3)) + source = -(pgdep(i,k)+pgaut(i,k)+pgaci(i,k)+paacw(i,k)+pgacs(i,k) & + +piacr(i,k)*(1.-delta3)+praci(i,k)*(1.-delta3) & + +psacr(i,k)*(1.-delta2)+pgacr(i,k)*delta2 & + +pracs(i,k)*(1.-delta2)-pracg(i,k)*(1.-delta2) & + -phaut(i,k)-pvapg(i,k)-phacg(i,k)+primh(i,k))*dtcld + if (source.gt.value) then + factor = value/source + pgdep(i,k) = pgdep(i,k)*factor + pgaut(i,k) = pgaut(i,k)*factor + phaut(i,k) = phaut(i,k)*factor + piacr(i,k) = piacr(i,k)*factor + praci(i,k) = praci(i,k)*factor + pracs(i,k) = pracs(i,k)*factor + pracg(i,k) = pracg(i,k)*factor + psacr(i,k) = psacr(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + pgaci(i,k) = pgaci(i,k)*factor + pgacr(i,k) = pgacr(i,k)*factor + pgacs(i,k) = pgacs(i,k)*factor + pvapg(i,k) = pvapg(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + primh(i,k) = primh(i,k)*factor + endif +! +! hail +! + value = max(qmin,qrs(i,k,4)) + source = -(phdep(i,k)+phaut(i,k) & + +pgacr(i,k)*(1.-delta2)+pracg(i,k)*(1.-delta2) & + +phacw(i,k)+phacr(i,k)+phaci(i,k)+phacs(i,k) & + +phacg(i,k)-pvaph(i,k)-primh(i,k))*dtcld + if (source.gt.value) then + factor = value/source + phdep(i,k) = phdep(i,k)*factor + phaut(i,k) = phaut(i,k)*factor + pracg(i,k) = pracg(i,k)*factor + pgacr(i,k) = pgacr(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + phaci(i,k) = phaci(i,k)*factor + phacr(i,k) = phacr(i,k)*factor + phacs(i,k) = phacs(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + pvaph(i,k) = pvaph(i,k)*factor + primh(i,k) = primh(i,k)*factor + endif + + work2(i,k)=-(prevp(i,k)+psdep(i,k)+pgdep(i,k)+phdep(i,k) & + +pigen(i,k)+pidep(i,k)) +! +! update +! + q(i,k) = q(i,k)+work2(i,k)*dtcld + qci(i,k,1) = max(qci(i,k,1)-(praut(i,k)+pracw(i,k) & + +paacw(i,k)+paacw(i,k)+phacw(i,k))*dtcld,0.) + qrs(i,k,1) = max(qrs(i,k,1)+(praut(i,k)+pracw(i,k) & + +prevp(i,k)-piacr(i,k)-pgacr(i,k) & + -psacr(i,k)-phacr(i,k))*dtcld,0.) + qci(i,k,2) = max(qci(i,k,2)-(psaut(i,k)+praci(i,k)+psaci(i,k) & + +pgaci(i,k)+phaci(i,k)-pigen(i,k)-pidep(i,k)) & + *dtcld,0.) + qrs(i,k,2) = max(qrs(i,k,2)+(psdep(i,k)+psaut(i,k)+paacw(i,k) & + +pvapg(i,k)+pvaph(i,k)-pgaut(i,k) & + +psaci(i,k)-pgacs(i,k)-phacs(i,k) & + +piacr(i,k)*delta3+praci(i,k)*delta3 & + +psacr(i,k)*delta2 & + -pracs(i,k)*(1.-delta2)) & + *dtcld,0.) + qrs(i,k,3) = max(qrs(i,k,3)+(pgdep(i,k)+pgaut(i,k) & + +piacr(i,k)*(1.-delta3)+praci(i,k)*(1.-delta3) & + +psacr(i,k)*(1.-delta2)+pgacr(i,k)*delta2 & + +pgaci(i,k)+paacw(i,k)+pgacs(i,k)+primh(i,k) & + +pracs(i,k)*(1.-delta2)-pracg(i,k)*(1.-delta2) & + -phaut(i,k)-pvapg(i,k)-phacg(i,k)) & + *dtcld,0.) + qrs(i,k,4) = max(qrs(i,k,4)+(phdep(i,k)+phaut(i,k) & + +pgacr(i,k)*(1.-delta2)+pracg(i,k)*(1.-delta2) & + +phacw(i,k)+phacr(i,k)+phaci(i,k)+phacs(i,k) & + +phacg(i,k)-pvaph(i,k)-primh(i,k)) & + *dtcld,0.) + xlf = xls-xl(i,k) + xlwork2 = -xls*(psdep(i,k)+pgdep(i,k)+phdep(i,k)+pidep(i,k) & + +pigen(i,k))-xl(i,k)*prevp(i,k) & + -xlf*(piacr(i,k)+paacw(i,k)+paacw(i,k)+phacw(i,k) & + +phacr(i,k)+pgacr(i,k)+psacr(i,k)) + t(i,k) = t(i,k)-xlwork2/cpm(i,k)*dtcld + else ! T > t0c +! +! cloud water +! + value = max(qmin,qci(i,k,1)) + source=(praut(i,k)+pracw(i,k)+paacw(i,k)+paacw(i,k)+phacw(i,k)) & + *dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + endif +! +! rain +! + value = max(qmin,qrs(i,k,1)) + source = (pseml(i,k)+pgeml(i,k)+pheml(i,k) & + -pracw(i,k)-paacw(i,k)-paacw(i,k)-phacw(i,k) & + -prevp(i,k)-praut(i,k))*dtcld + if (source.gt.value) then + factor = value/source + praut(i,k) = praut(i,k)*factor + prevp(i,k) = prevp(i,k)*factor + pracw(i,k) = pracw(i,k)*factor + paacw(i,k) = paacw(i,k)*factor + phacw(i,k) = phacw(i,k)*factor + pseml(i,k) = pseml(i,k)*factor + pgeml(i,k) = pgeml(i,k)*factor + pheml(i,k) = pheml(i,k)*factor + endif +! +! snow +! + value = max(qcrmin,qrs(i,k,2)) + source=(pgacs(i,k)+phacs(i,k)-pseml(i,k)-psevp(i,k))*dtcld + if (source.gt.value) then + factor = value/source + pgacs(i,k) = pgacs(i,k)*factor + phacs(i,k) = phacs(i,k)*factor + psevp(i,k) = psevp(i,k)*factor + pseml(i,k) = pseml(i,k)*factor + endif +! +! graupel +! + value = max(qcrmin,qrs(i,k,3)) + source=-(pgacs(i,k)+pgevp(i,k)+pgeml(i,k)-phacg(i,k))*dtcld + if (source.gt.value) then + factor = value/source + pgacs(i,k) = pgacs(i,k)*factor + pgevp(i,k) = pgevp(i,k)*factor + pgeml(i,k) = pgeml(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + endif +! +! hail +! + value = max(qcrmin,qrs(i,k,4)) + source=-(phacs(i,k)+phacg(i,k)+phevp(i,k)+pheml(i,k))*dtcld + if (source.gt.value) then + factor = value/source + phacs(i,k) = phacs(i,k)*factor + phacg(i,k) = phacg(i,k)*factor + phevp(i,k) = phevp(i,k)*factor + pheml(i,k) = pheml(i,k)*factor + endif + work2(i,k)=-(prevp(i,k)+psevp(i,k)+pgevp(i,k)+phevp(i,k)) +! +! update +! + q(i,k) = q(i,k)+work2(i,k)*dtcld + qci(i,k,1) = max(qci(i,k,1)-(praut(i,k)+pracw(i,k) & + +paacw(i,k)+paacw(i,k)+phacw(i,k))*dtcld,0.) + qrs(i,k,1) = max(qrs(i,k,1)+(praut(i,k)+pracw(i,k) & + +prevp(i,k)+paacw(i,k)+paacw(i,k)+phacw(i,k) & + -pseml(i,k)-pgeml(i,k)-pheml(i,k))*dtcld,0.) + qrs(i,k,2) = max(qrs(i,k,2)+(psevp(i,k)+pseml(i,k) & + -pgacs(i,k)-phacs(i,k))*dtcld,0.) + qrs(i,k,3) = max(qrs(i,k,3)+(pgacs(i,k)+pgevp(i,k)+pgeml(i,k) & + -phacg(i,k))*dtcld,0.) + qrs(i,k,4) = max(qrs(i,k,4)+(phacs(i,k)+phacg(i,k)+phevp(i,k) & + +pheml(i,k))*dtcld,0.) + xlf = xls-xl(i,k) + xlwork2 = -xl(i,k)*(prevp(i,k)+psevp(i,k)+pgevp(i,k)+phevp(i,k)) & + -xlf*(pseml(i,k)+pgeml(i,k)+pheml(i,k)) + t(i,k) = t(i,k)-xlwork2/cpm(i,k)*dtcld + endif + enddo + enddo +! +! Inline expansion for fpvs +! qs(i,k,1) = fpvs(t(i,k),0,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) +! qs(i,k,2) = fpvs(t(i,k),1,rd,rv,cpv,cliq,cice,xlv0,xls,psat,t0c) +! + hsub = xls + hvap = xlv0 + cvap = cpv + ttp=t0c+0.01 + dldt=cvap-cliq + xa=-dldt/rv + xb=xa+hvap/(rv*ttp) + dldti=cvap-cice + xai=-dldti/rv + xbi=xai+hsub/(rv*ttp) + do k = kts, kte + do i = its, ite + tr=ttp/t(i,k) + qs(i,k,1)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + qs(i,k,1) = min(qs(i,k,1),0.99*p(i,k)) + qs(i,k,1) = ep2 * qs(i,k,1) / (p(i,k) - qs(i,k,1)) + qs(i,k,1) = max(qs(i,k,1),qmin) + tr=ttp/t(i,k) + if(t(i,k).lt.ttp) then + qs(i,k,2)=psat*exp(log(tr)*(xai))*exp(xbi*(1.-tr)) + else + qs(i,k,2)=psat*exp(log(tr)*(xa))*exp(xb*(1.-tr)) + endif + qs(i,k,2) = min(qs(i,k,2),0.99*p(i,k)) + qs(i,k,2) = ep2 * qs(i,k,2) / (p(i,k) - qs(i,k,2)) + qs(i,k,2) = max(qs(i,k,2),qmin) + enddo + enddo +! +! pcond: condensational/evaporational rate of cloud water [HL A46] [RH83 A6] +! if there exists additional water vapor condensated/if +! evaporation of cloud water is not enough to remove subsaturation +! + do k = kts, kte + do i = its, ite + work1(i,k,1) = conden(t(i,k),q(i,k),qs(i,k,1),xl(i,k),cpm(i,k)) + work2(i,k) = qci(i,k,1)+work1(i,k,1) + pcond(i,k) = min(max(work1(i,k,1)/dtcld,0.),max(q(i,k),0.)/dtcld) + if(qci(i,k,1).gt.0..and.work1(i,k,1).lt.0.) & + pcond(i,k) = max(work1(i,k,1),-qci(i,k,1))/dtcld + q(i,k) = q(i,k)-pcond(i,k)*dtcld + qci(i,k,1) = max(qci(i,k,1)+pcond(i,k)*dtcld,0.) + t(i,k) = t(i,k)+pcond(i,k)*xl(i,k)/cpm(i,k)*dtcld + enddo + enddo +! +! padding for small values +! + do k = kts, kte + do i = its, ite + if(qci(i,k,1).le.qmin) qci(i,k,1) = 0.0 + if(qci(i,k,2).le.qmin) qci(i,k,2) = 0.0 + enddo + enddo + enddo ! big loops + END SUBROUTINE wsm72d +! ................................................................... + REAL FUNCTION rgmma(x) +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- +! rgmma function: use infinite product form + REAL :: euler + PARAMETER (euler=0.577215664901532) + REAL :: x, y + INTEGER :: i + if(x.eq.1.)then + rgmma=0. + else + rgmma=x*exp(euler*x) + do i=1,10000 + y=float(i) + rgmma=rgmma*(1.000+x/y)*exp(-x/y) + enddo + rgmma=1./rgmma + endif + END FUNCTION rgmma +! +!-------------------------------------------------------------------------- + REAL FUNCTION fpvs(t,ice,rd,rv,cvap,cliq,cice,hvap,hsub,psat,t0c) +!-------------------------------------------------------------------------- + IMPLICIT NONE +!-------------------------------------------------------------------------- + REAL t,rd,rv,cvap,cliq,cice,hvap,hsub,psat,t0c,dldt,xa,xb,dldti, & + xai,xbi,ttp,tr + INTEGER ice +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + ttp=t0c+0.01 + dldt=cvap-cliq + xa=-dldt/rv + xb=xa+hvap/(rv*ttp) + dldti=cvap-cice + xai=-dldti/rv + xbi=xai+hsub/(rv*ttp) + tr=ttp/t + if(t.lt.ttp.and.ice.eq.1) then + fpvs=psat*(tr**xai)*exp(xbi*(1.-tr)) + else + fpvs=psat*(tr**xa)*exp(xb*(1.-tr)) + endif +! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + END FUNCTION fpvs +!------------------------------------------------------------------- + SUBROUTINE wsm7init(den0,denr,dens,cl,cpv,allowed_to_read) +!------------------------------------------------------------------- + IMPLICIT NONE +!------------------------------------------------------------------- +!.... constants which may not be tunable + REAL, INTENT(IN) :: den0,denr,dens,cl,cpv + LOGICAL, INTENT(IN) :: allowed_to_read + + pi = 4.*atan(1.) + xlv1 = cl-cpv +! + qc0 = 4./3.*pi*denr*r0**3*xncr/den0 ! 0.419e-3 -- .61e-3 + qck1 = .104*9.8*peaut/(xncr*denr)**(1./3.)/xmyu*den0**(4./3.) ! 7.03 + pidnc = pi*denr/6. +! + bvtr1 = 1.+bvtr + bvtr2 = 2.5+.5*bvtr + bvtr3 = 3.+bvtr + bvtr4 = 4.+bvtr + bvtr6 = 6.+bvtr + g1pbr = rgmma(bvtr1) + g3pbr = rgmma(bvtr3) + g4pbr = rgmma(bvtr4) ! 17.837825 + g6pbr = rgmma(bvtr6) + g5pbro2 = rgmma(bvtr2) ! 1.8273 + pvtr = avtr*g4pbr/6. + eacrr = 1.0 + pacrr = pi*n0r*avtr*g3pbr*.25*eacrr + precr1 = 2.*pi*n0r*.78 + precr2 = 2.*pi*n0r*.31*avtr**.5*g5pbro2 + roqimax = 2.08e22*dimax**8 +! + bvts1 = 1.+bvts + bvts2 = 2.5+.5*bvts + bvts3 = 3.+bvts + bvts4 = 4.+bvts + g1pbs = rgmma(bvts1) !.8875 + g3pbs = rgmma(bvts3) + g4pbs = rgmma(bvts4) ! 12.0786 + g5pbso2 = rgmma(bvts2) + pvts = avts*g4pbs/6. + pacrs = pi*n0s*avts*g3pbs*.25 + precs1 = 4.*n0s*.65 + precs2 = 4.*n0s*.44*avts**.5*g5pbso2 + pidn0r = pi*denr*n0r + pidn0s = pi*dens*n0s +! + pacrc = pi*n0s*avts*g3pbs*.25*eacrc +! + bvtg1 = 1.+bvtg + bvtg2 = 2.5+.5*bvtg + bvtg3 = 3.+bvtg + bvtg4 = 4.+bvtg + g1pbg = rgmma(bvtg1) + g3pbg = rgmma(bvtg3) + g4pbg = rgmma(bvtg4) + pacrg = pi*n0g*avtg*g3pbg*.25 + g5pbgo2 = rgmma(bvtg2) + g6pbgh = rgmma(2.75) + pvtg = avtg*g4pbg/6. + precg1 = 2.*pi*n0g*.78 + precg2 = 2.*pi*n0g*.31*avtg**.5*g5pbgo2 + precg3 = 2.*pi*n0g*.31*g6pbgh*sqrt(sqrt(4.*deng/3./cd)) + pidn0g = pi*deng*n0g +! + bvth2 = 2.5+.5*bvth + bvth3 = 3.+bvth + bvth4 = 4.+bvth + g3pbh = rgmma(bvth3) + g4pbh = rgmma(bvth4) + g5pbho2 = rgmma(bvth2) + pacrh = pi*n0h*avth*g3pbh*.25 + pvth = avth*g4pbh/6. + prech1 = 2.*pi*n0h*.78 + prech2 = 2.*pi*n0h*.31*avth**.5*g5pbho2 + prech3 = 2.*pi*n0h*.31*g6pbgh*sqrt(sqrt(4.*denh/3./cd)) + pidn0h = pi*denh*n0h +! + rslopermax = 1./lamdarmax + rslopesmax = 1./lamdasmax + rslopegmax = 1./lamdagmax + rslopehmax = 1./lamdahmax + rsloperbmax = rslopermax ** bvtr + rslopesbmax = rslopesmax ** bvts + rslopegbmax = rslopegmax ** bvtg + rslopehbmax = rslopehmax ** bvth + rsloper2max = rslopermax * rslopermax + rslopes2max = rslopesmax * rslopesmax + rslopeg2max = rslopegmax * rslopegmax + rslopeh2max = rslopehmax * rslopehmax + rsloper3max = rsloper2max * rslopermax + rslopes3max = rslopes2max * rslopesmax + rslopeg3max = rslopeg2max * rslopegmax + rslopeh3max = rslopeh2max * rslopehmax + +!+---+-----------------------------------------------------------------+ +!..Set these variables needed for computing radar reflectivity. These +!.. get used within radar_init to create other variables used in the +!.. radar module. + xam_r = PI*denr/6. + xbm_r = 3. + xmu_r = 0. + xam_s = PI*dens/6. + xbm_s = 3. + xmu_s = 0. + xam_g = PI*deng/6. + xbm_g = 3. + xmu_g = 0. + + call radar_init +!+---+-----------------------------------------------------------------+ + +! + END SUBROUTINE wsm7init +!------------------------------------------------------------------------------ +! +!------------------------------------------------------------------------------ + subroutine slope_wsm7(qrs,den,denfac,t,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte,4) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt + REAL, DIMENSION( its:ite , kts:kte) :: & + den, & + denfac, & + t + REAL, PARAMETER :: t0c = 273.15 + REAL, DIMENSION( its:ite , kts:kte ) :: & + n0sfac + REAL :: lamdar, lamdas, lamdag, lamdah, x, y, z, supcol + integer :: i, j, k +!------------------------------------------------------------------------------- +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdar(x,y)= sqrt(sqrt(pidn0r/(x*y))) ! (pidn0r/(x*y))**.25 + lamdas(x,y,z)= sqrt(sqrt(pidn0s*z/(x*y))) ! (pidn0s*z/(x*y))**.25 + lamdag(x,y)= sqrt(sqrt(pidn0g/(x*y))) ! (pidn0g/(x*y))**.25 + lamdah(x,y)= sqrt(sqrt(pidn0h/(x*y))) ! (pidn0h/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) +! +! n0s: Intercept parameter for snow [m-4] [HDC 6] +! + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + if(qrs(i,k,1).le.qcrmin)then + rslope(i,k,1) = rslopermax + rslopeb(i,k,1) = rsloperbmax + rslope2(i,k,1) = rsloper2max + rslope3(i,k,1) = rsloper3max + else + rslope(i,k,1) = 1./lamdar(qrs(i,k,1),den(i,k)) + rslopeb(i,k,1) = rslope(i,k,1)**bvtr + rslope2(i,k,1) = rslope(i,k,1)*rslope(i,k,1) + rslope3(i,k,1) = rslope2(i,k,1)*rslope(i,k,1) + endif + if(qrs(i,k,2).le.qcrmin)then + rslope(i,k,2) = rslopesmax + rslopeb(i,k,2) = rslopesbmax + rslope2(i,k,2) = rslopes2max + rslope3(i,k,2) = rslopes3max + else + rslope(i,k,2) = 1./lamdas(qrs(i,k,2),den(i,k),n0sfac(i,k)) + rslopeb(i,k,2) = rslope(i,k,2)**bvts + rslope2(i,k,2) = rslope(i,k,2)*rslope(i,k,2) + rslope3(i,k,2) = rslope2(i,k,2)*rslope(i,k,2) + endif + if(qrs(i,k,3).le.qcrmin)then + rslope(i,k,3) = rslopegmax + rslopeb(i,k,3) = rslopegbmax + rslope2(i,k,3) = rslopeg2max + rslope3(i,k,3) = rslopeg3max + else + rslope(i,k,3) = 1./lamdag(qrs(i,k,3),den(i,k)) + rslopeb(i,k,3) = rslope(i,k,3)**bvtg + rslope2(i,k,3) = rslope(i,k,3)*rslope(i,k,3) + rslope3(i,k,3) = rslope2(i,k,3)*rslope(i,k,3) + endif + if(qrs(i,k,4).le.qcrmin)then + rslope(i,k,4) = rslopehmax + rslopeb(i,k,4) = rslopehbmax + rslope2(i,k,4) = rslopeh2max + rslope3(i,k,4) = rslopeh3max + else + rslope(i,k,4) = 1./lamdah(qrs(i,k,4),den(i,k)) + rslopeb(i,k,4) = rslope(i,k,4)**bvth + rslope2(i,k,4) = rslope(i,k,4)*rslope(i,k,4) + rslope3(i,k,4) = rslope2(i,k,4)*rslope(i,k,4) + endif + vt(i,k,1) = pvtr*rslopeb(i,k,1)*denfac(i,k) + vt(i,k,2) = pvts*rslopeb(i,k,2)*denfac(i,k) + vt(i,k,3) = pvtg*rslopeb(i,k,3)*denfac(i,k) + vt(i,k,4) = pvth*rslopeb(i,k,4)*denfac(i,k) + if(qrs(i,k,1).le.0.0) vt(i,k,1) = 0.0 + if(qrs(i,k,2).le.0.0) vt(i,k,2) = 0.0 + if(qrs(i,k,3).le.0.0) vt(i,k,3) = 0.0 + if(qrs(i,k,4).le.0.0) vt(i,k,4) = 0.0 + enddo + enddo + END subroutine slope_wsm7 +!------------------------------------------------------------------------------ +! +!----------------------------------------------------------------------------- + subroutine slope_rain(qrs,den,denfac,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + den, & + denfac + REAL :: lamdar, x, y + integer :: i, j, k +!------------------------------------------------------------------------------ +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdar(x,y)= sqrt(sqrt(pidn0r/(x*y))) ! (pidn0r/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + if(qrs(i,k).le.qcrmin)then + rslope(i,k) = rslopermax + rslopeb(i,k) = rsloperbmax + rslope2(i,k) = rsloper2max + rslope3(i,k) = rsloper3max + else + rslope(i,k) = 1./lamdar(qrs(i,k),den(i,k)) + rslopeb(i,k) = rslope(i,k)**bvtr + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvtr*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + enddo + enddo + END subroutine slope_rain +!------------------------------------------------------------------------------ +! +!------------------------------------------------------------------------------ + subroutine slope_snow(qrs,den,denfac,t,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + den, & + denfac, & + t + REAL, PARAMETER :: t0c = 273.15 + REAL, DIMENSION( its:ite , kts:kte ) :: & + n0sfac + REAL :: lamdas, x, y, z, supcol + integer :: i, j, k +!------------------------------------------------------------------------------ +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdas(x,y,z)= sqrt(sqrt(pidn0s*z/(x*y))) ! (pidn0s*z/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + supcol = t0c-t(i,k) +! +! n0s: Intercept parameter for snow [m-4] [HDC 6] +! + n0sfac(i,k) = max(min(exp(alpha*supcol),n0smax/n0s),1.) + if(qrs(i,k).le.qcrmin)then + rslope(i,k) = rslopesmax + rslopeb(i,k) = rslopesbmax + rslope2(i,k) = rslopes2max + rslope3(i,k) = rslopes3max + else + rslope(i,k) = 1./lamdas(qrs(i,k),den(i,k),n0sfac(i,k)) + rslopeb(i,k) = rslope(i,k)**bvts + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvts*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + enddo + enddo + END subroutine slope_snow +!---------------------------------------------------------------------------------- +! +!---------------------------------------------------------------------------------- + subroutine slope_graup(qrs,den,denfac,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + den, & + denfac + + REAL :: lamdag, x, y + integer :: i, j, k +!------------------------------------------------------------------------------ +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdag(x,y)= sqrt(sqrt(pidn0g/(x*y))) ! (pidn0g/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + if(qrs(i,k).le.qcrmin)then + rslope(i,k) = rslopegmax + rslopeb(i,k) = rslopegbmax + rslope2(i,k) = rslopeg2max + rslope3(i,k) = rslopeg3max + else + rslope(i,k) = 1./lamdag(qrs(i,k),den(i,k)) + rslopeb(i,k) = rslope(i,k)**bvtg + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvtg*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + enddo + enddo + END subroutine slope_graup +!--------------------------------------------------------------------------------- +! +!----------------------------------------------------------------------------- + subroutine slope_hail(qrs,den,denfac,rslope,rslopeb,rslope2,rslope3, & + vt,its,ite,kts,kte) + IMPLICIT NONE + INTEGER :: its,ite, jts,jte, kts,kte + REAL, DIMENSION( its:ite , kts:kte) :: & + qrs, & + rslope, & + rslopeb, & + rslope2, & + rslope3, & + vt, & + den, & + denfac + + REAL :: lamdah, x, y + integer :: i, j, k +!------------------------------------------------------------------------------ +! size distributions: (x=mixing ratio, y=air density): +! valid for mixing ratio > 1.e-9 kg/kg. + lamdah(x,y)= sqrt(sqrt(pidn0h/(x*y))) ! (pidn0h/(x*y))**.25 +! + do k = kts, kte + do i = its, ite + if(qrs(i,k).le.qcrmin)then + rslope(i,k) = rslopehmax + rslopeb(i,k) = rslopehbmax + rslope2(i,k) = rslopeh2max + rslope3(i,k) = rslopeh3max + else + rslope(i,k) = 1./lamdah(qrs(i,k),den(i,k)) + rslopeb(i,k) = rslope(i,k)**bvth + rslope2(i,k) = rslope(i,k)*rslope(i,k) + rslope3(i,k) = rslope2(i,k)*rslope(i,k) + endif + vt(i,k) = pvth*rslopeb(i,k)*denfac(i,k) + if(qrs(i,k).le.0.0) vt(i,k) = 0.0 + enddo + enddo + END subroutine slope_hail +!------------------------------------------------------------------------------ +! +!------------------------------------------------------------------------------ + SUBROUTINE nislfv_rain_plm(im,km,denl,denfacl,tkl,dzl,wwl,rql,precip,dt,id,iter) +!------------------------------------------------------------------- +! +! for non-iteration semi-Lagrangain forward advection for cloud +! with mass conservation and positive definite advection +! 2nd order interpolation with monotonic piecewise linear method +! this routine is under assumption of decfl < 1 for semi_Lagrangian +! +! dzl depth of model layer in meter +! wwl terminal velocity at model layer m/s +! rql cloud density*mixing ration +! precip precipitation +! dt time step +! id kind of precip: 0 test case; 1 raindrop; 2 hail +! iter how many time to guess mean terminal velocity: 0 pure forward. +! 0 : use departure wind for advection +! 1 : use mean wind for advection +! > 1 : use mean wind after iter-1 iterations +! +! author: hann-ming henry juang +! implemented by song-you hong +! +!------------------------------------------------------------------------------ + implicit none +!------------------------------------------------------------------------------ + integer im,km,id + real dt + real dzl(im,km),wwl(im,km),rql(im,km),precip(im) + real denl(im,km),denfacl(im,km),tkl(im,km) +! + integer i,k,n,m,kk,kb,kt,iter + real tl,tl2,qql,dql,qqd + real th,th2,qqh,dqh + real zsum,qsum,dim,dip,c1,con1,fa1,fa2 + real allold, allnew, zz, dzamin, cflmax, decfl + real dz(km), ww(km), qq(km), wd(km), wa(km), was(km) + real den(km), denfac(km), tk(km) + real wi(km+1), zi(km+1), za(km+1) + real qn(km), qr(km),tmp(km),tmp1(km),tmp2(km),tmp3(km) + real dza(km+1), qa(km+1), qmi(km+1), qpi(km+1) +!------------------------------------------------------------------------------ + precip(:) = 0.0 +! + i_loop : do i=1,im +! ----------------------------------- + dz(:) = dzl(i,:) + qq(:) = rql(i,:) + ww(:) = wwl(i,:) + den(:) = denl(i,:) + denfac(:) = denfacl(i,:) + tk(:) = tkl(i,:) +! +! skip for no precipitation for all layers +! + allold = 0.0 + do k=1,km + allold = allold + qq(k) + enddo + if(allold.le.0.0) then + cycle i_loop + endif +! +! compute interface values +! + zi(1)=0.0 + do k=1,km + zi(k+1) = zi(k)+dz(k) + enddo +! +! save departure wind +! + wd(:) = ww(:) + n=1 + 100 continue +! +! 3rd order interpolation to get wi +! + fa1 = 9./16. + fa2 = 1./16. + wi(1) = ww(1) + wi(2) = 0.5*(ww(2)+ww(1)) + do k=3,km-1 + wi(k) = fa1*(ww(k)+ww(k-1))-fa2*(ww(k+1)+ww(k-2)) + enddo + wi(km) = 0.5*(ww(km)+ww(km-1)) + wi(km+1) = ww(km) +! +! terminate of top of raingroup +! + do k=2,km + if( ww(k).eq.0.0 ) wi(k)=ww(k-1) + enddo +! +! diffusivity of wi +! + con1 = 0.05 + do k=km,1,-1 + decfl = (wi(k+1)-wi(k))*dt/dz(k) + if( decfl .gt. con1 ) then + wi(k) = wi(k+1) - con1*dz(k)/dt + endif + enddo +! +! compute arrival point +! + do k=1,km+1 + za(k) = zi(k) - wi(k)*dt + enddo +! + do k=1,km + dza(k) = za(k+1)-za(k) + enddo + dza(km+1) = zi(km+1) - za(km+1) +! +! computer deformation at arrival point +! + do k=1,km + qa(k) = qq(k)*dz(k)/dza(k) + qr(k) = qa(k)/den(k) + enddo + qa(km+1) = 0.0 +! call maxmin(km,1,qa,' arrival points ') +! +! compute arrival terminal velocity, and estimate mean terminal velocity +! then back to use mean terminal velocity +! + if( n.le.iter ) then + if( id.eq.1 ) then + call slope_rain(qr,den,denfac,tmp,tmp1,tmp2,tmp3,wa,1,1,1,km) + else if(id.eq.2) then + call slope_hail(qr,den,denfac,tmp,tmp1,tmp2,tmp3,wa,1,1,1,km) + endif + if( n.ge.2 ) wa(1:km)=0.5*(wa(1:km)+was(1:km)) + do k=1,km +!#ifdef DEBUG +! print*,' slope_wsm3 ',qr(k)*1000.,den(k),denfac(k),tk(k),tmp(k),tmp1(k),tmp2(k),ww(k),wa(k) +!#endif +! mean wind is average of departure and new arrival winds + ww(k) = 0.5* ( wd(k)+wa(k) ) + enddo + was(:) = wa(:) + n=n+1 + go to 100 + endif +! +! estimate values at arrival cell interface with monotone +! + do k=2,km + dip=(qa(k+1)-qa(k))/(dza(k+1)+dza(k)) + dim=(qa(k)-qa(k-1))/(dza(k-1)+dza(k)) + if( dip*dim.le.0.0 ) then + qmi(k)=qa(k) + qpi(k)=qa(k) + else + qpi(k)=qa(k)+0.5*(dip+dim)*dza(k) + qmi(k)=2.0*qa(k)-qpi(k) + if( qpi(k).lt.0.0 .or. qmi(k).lt.0.0 ) then + qpi(k) = qa(k) + qmi(k) = qa(k) + endif + endif + enddo + qpi(1)=qa(1) + qmi(1)=qa(1) + qmi(km+1)=qa(km+1) + qpi(km+1)=qa(km+1) +! +! interpolation to regular point +! + qn = 0.0 + kb=1 + kt=1 + intp : do k=1,km + kb=max(kb-1,1) + kt=max(kt-1,1) +! +! find kb and kt +! + if( zi(k).ge.za(km+1) ) then + exit intp + else + find_kb : do kk=kb,km + if( zi(k).le.za(kk+1) ) then + kb = kk + exit find_kb + else + cycle find_kb + endif + enddo find_kb + find_kt : do kk=kt,km + if( zi(k+1).le.za(kk) ) then + kt = kk + exit find_kt + else + cycle find_kt + endif + enddo find_kt + kt = kt - 1 +! +! compute q with piecewise constant method +! + if( kt.eq.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + th=(zi(k+1)-za(kb))/dza(kb) + tl2=tl*tl + th2=th*th + qqd=0.5*(qpi(kb)-qmi(kb)) + qqh=qqd*th2+qmi(kb)*th + qql=qqd*tl2+qmi(kb)*tl + qn(k) = (qqh-qql)/(th-tl) + else if( kt.gt.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + tl2=tl*tl + qqd=0.5*(qpi(kb)-qmi(kb)) + qql=qqd*tl2+qmi(kb)*tl + dql = qa(kb)-qql + zsum = (1.-tl)*dza(kb) + qsum = dql*dza(kb) + if( kt-kb.gt.1 ) then + do m=kb+1,kt-1 + zsum = zsum + dza(m) + qsum = qsum + qa(m) * dza(m) + enddo + endif + th=(zi(k+1)-za(kt))/dza(kt) + th2=th*th + qqd=0.5*(qpi(kt)-qmi(kt)) + dqh=qqd*th2+qmi(kt)*th + zsum = zsum + th*dza(kt) + qsum = qsum + dqh*dza(kt) + qn(k) = qsum/zsum + endif + cycle intp + endif +! + enddo intp +! +! rain out +! + sum_precip: do k=1,km + if( za(k).lt.0.0 .and. za(k+1).lt.0.0 ) then + precip(i) = precip(i) + qa(k)*dza(k) + cycle sum_precip + else if ( za(k).lt.0.0 .and. za(k+1).ge.0.0 ) then + precip(i) = precip(i) + qa(k)*(0.0-za(k)) + exit sum_precip + endif + exit sum_precip + enddo sum_precip +! +! replace the new values +! + rql(i,:) = qn(:) +! +! ---------------------------------- + enddo i_loop +! + END SUBROUTINE nislfv_rain_plm +!------------------------------------------------------------------------------ +! +!------------------------------------------------------------------------------- + SUBROUTINE nislfv_rain_plm6(im,km,denl,denfacl,tkl,dzl,wwl, & + rql,rql2,precip1,precip2,dt,id,iter) +!------------------------------------------------------------------------------ +! +! for non-iteration semi-Lagrangain forward advection for cloud +! with mass conservation and positive definite advection +! 2nd order interpolation with monotonic piecewise linear method +! this routine is under assumption of decfl < 1 for semi_Lagrangian +! +! dzl depth of model layer in meter +! wwl terminal velocity at model layer m/s +! rql cloud density*mixing ration +! precip precipitation +! dt time step +! id kind of precip: 0 test case; 1 raindrop +! iter how many time to guess mean terminal velocity: 0 pure forward. +! 0 : use departure wind for advection +! 1 : use mean wind for advection +! > 1 : use mean wind after iter-1 iterations +! +! author: hann-ming henry juang +! implemented by song-you hong +! +!------------------------------------------------------------------------------- + implicit none +!------------------------------------------------------------------------------- + integer im,km,id + real dt + real dzl(im,km),wwl(im,km) + real rql(im,km),rql2(im,km) + real precip(im),precip1(im),precip2(im) + real denl(im,km),denfacl(im,km),tkl(im,km) +! + integer i,k,n,m,kk,kb,kt,iter,ist + real tl,tl2,qql,dql,qqd + real th,th2,qqh,dqh + real zsum,qsum,dim,dip,c1,con1,fa1,fa2 + real allold, allnew, zz, dzamin, cflmax, decfl + real dz(km), ww(km), qq(km), qq2(km) + real wd(km), wa(km), wa2(km), was(km) + real den(km), denfac(km), tk(km) + real wi(km+1), zi(km+1), za(km+1) + real qn(km), qr(km),qr2(km),tmp(km),tmp1(km),tmp2(km),tmp3(km) + real dza(km+1), qa(km+1), qa2(km+1),qmi(km+1), qpi(km+1) +! + precip(:) = 0.0 + precip1(:) = 0.0 + precip2(:) = 0.0 +! + i_loop : do i=1,im +! ----------------------------------- + dz(:) = dzl(i,:) + qq(:) = rql(i,:) + qq2(:) = rql2(i,:) + ww(:) = wwl(i,:) + den(:) = denl(i,:) + denfac(:) = denfacl(i,:) + tk(:) = tkl(i,:) +! skip for no precipitation for all layers + allold = 0.0 + do k=1,km + allold = allold + qq(k) + qq2(k) + enddo + if(allold.le.0.0) then + cycle i_loop + endif +! +! compute interface values + zi(1)=0.0 + do k=1,km + zi(k+1) = zi(k)+dz(k) + enddo +! +! save departure wind + wd(:) = ww(:) + n=1 + 100 continue +! 3rd order interpolation to get wi + fa1 = 9./16. + fa2 = 1./16. + wi(1) = ww(1) + wi(2) = 0.5*(ww(2)+ww(1)) + do k=3,km-1 + wi(k) = fa1*(ww(k)+ww(k-1))-fa2*(ww(k+1)+ww(k-2)) + enddo + wi(km) = 0.5*(ww(km)+ww(km-1)) + wi(km+1) = ww(km) +! +! terminate of top of raingroup + do k=2,km + if( ww(k).eq.0.0 ) wi(k)=ww(k-1) + enddo +! +! diffusivity of wi + con1 = 0.05 + do k=km,1,-1 + decfl = (wi(k+1)-wi(k))*dt/dz(k) + if( decfl .gt. con1 ) then + wi(k) = wi(k+1) - con1*dz(k)/dt + endif + enddo +! compute arrival point + do k=1,km+1 + za(k) = zi(k) - wi(k)*dt + enddo +! + do k=1,km + dza(k) = za(k+1)-za(k) + enddo + dza(km+1) = zi(km+1) - za(km+1) +! +! computer deformation at arrival point + do k=1,km + qa(k) = qq(k)*dz(k)/dza(k) + qa2(k) = qq2(k)*dz(k)/dza(k) + qr(k) = qa(k)/den(k) + qr2(k) = qa2(k)/den(k) + enddo + qa(km+1) = 0.0 + qa2(km+1) = 0.0 +! call maxmin(km,1,qa,' arrival points ') +! +! compute arrival terminal velocity, and estimate mean terminal velocity +! then back to use mean terminal velocity + if( n.le.iter ) then + call slope_snow(qr,den,denfac,tk,tmp,tmp1,tmp2,tmp3,wa,1,1,1,km) + call slope_graup(qr2,den,denfac,tmp,tmp1,tmp2,tmp3,wa2,1,1,1,km) + do k = 1, km + tmp(k) = max((qr(k)+qr2(k)), 1.E-15) + IF ( tmp(k) .gt. 1.e-15 ) THEN + wa(k) = (wa(k)*qr(k) + wa2(k)*qr2(k))/tmp(k) + ELSE + wa(k) = 0. + ENDIF + enddo + if( n.ge.2 ) wa(1:km)=0.5*(wa(1:km)+was(1:km)) + do k=1,km +!#ifdef DEBUG +! print*,' slope_wsm3 ',qr(k)*1000.,den(k),denfac(k),tk(k),tmp(k),tmp1(k),tmp2(k), & +! ww(k),wa(k) +!#endif +! mean wind is average of departure and new arrival winds + ww(k) = 0.5* ( wd(k)+wa(k) ) + enddo + was(:) = wa(:) + n=n+1 + go to 100 + endif + ist_loop : do ist = 1, 2 + if (ist.eq.2) then + qa(:) = qa2(:) + endif +! + precip(i) = 0. +! +! estimate values at arrival cell interface with monotone + do k=2,km + dip=(qa(k+1)-qa(k))/(dza(k+1)+dza(k)) + dim=(qa(k)-qa(k-1))/(dza(k-1)+dza(k)) + if( dip*dim.le.0.0 ) then + qmi(k)=qa(k) + qpi(k)=qa(k) + else + qpi(k)=qa(k)+0.5*(dip+dim)*dza(k) + qmi(k)=2.0*qa(k)-qpi(k) + if( qpi(k).lt.0.0 .or. qmi(k).lt.0.0 ) then + qpi(k) = qa(k) + qmi(k) = qa(k) + endif + endif + enddo + qpi(1)=qa(1) + qmi(1)=qa(1) + qmi(km+1)=qa(km+1) + qpi(km+1)=qa(km+1) +! +! interpolation to regular point + qn = 0.0 + kb=1 + kt=1 + intp : do k=1,km + kb=max(kb-1,1) + kt=max(kt-1,1) +! find kb and kt + if( zi(k).ge.za(km+1) ) then + exit intp + else + find_kb : do kk=kb,km + if( zi(k).le.za(kk+1) ) then + kb = kk + exit find_kb + else + cycle find_kb + endif + enddo find_kb + find_kt : do kk=kt,km + if( zi(k+1).le.za(kk) ) then + kt = kk + exit find_kt + else + cycle find_kt + endif + enddo find_kt + kt = kt - 1 +! compute q with piecewise constant method + if( kt.eq.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + th=(zi(k+1)-za(kb))/dza(kb) + tl2=tl*tl + th2=th*th + qqd=0.5*(qpi(kb)-qmi(kb)) + qqh=qqd*th2+qmi(kb)*th + qql=qqd*tl2+qmi(kb)*tl + qn(k) = (qqh-qql)/(th-tl) + else if( kt.gt.kb ) then + tl=(zi(k)-za(kb))/dza(kb) + tl2=tl*tl + qqd=0.5*(qpi(kb)-qmi(kb)) + qql=qqd*tl2+qmi(kb)*tl + dql = qa(kb)-qql + zsum = (1.-tl)*dza(kb) + qsum = dql*dza(kb) + if( kt-kb.gt.1 ) then + do m=kb+1,kt-1 + zsum = zsum + dza(m) + qsum = qsum + qa(m) * dza(m) + enddo + endif + th=(zi(k+1)-za(kt))/dza(kt) + th2=th*th + qqd=0.5*(qpi(kt)-qmi(kt)) + dqh=qqd*th2+qmi(kt)*th + zsum = zsum + th*dza(kt) + qsum = qsum + dqh*dza(kt) + qn(k) = qsum/zsum + endif + cycle intp + endif +! + enddo intp +! +! rain out + sum_precip: do k=1,km + if( za(k).lt.0.0 .and. za(k+1).lt.0.0 ) then + precip(i) = precip(i) + qa(k)*dza(k) + cycle sum_precip + else if ( za(k).lt.0.0 .and. za(k+1).ge.0.0 ) then + precip(i) = precip(i) + qa(k)*(0.0-za(k)) + exit sum_precip + endif + exit sum_precip + enddo sum_precip +! +! replace the new values + if(ist.eq.1) then + rql(i,:) = qn(:) + precip1(i) = precip(i) + else + rql2(i,:) = qn(:) + precip2(i) = precip(i) + endif + enddo ist_loop +! +! ---------------------------------- + enddo i_loop +! + END SUBROUTINE nislfv_rain_plm6 + +!+---+-----------------------------------------------------------------+ + + subroutine refl10cm_wsm7 (qv1d, qr1d, qs1d, qg1d, & + t1d, p1d, dBZ, kts, kte, ii, jj) + + IMPLICIT NONE + +!..Sub arguments + INTEGER, INTENT(IN):: kts, kte, ii, jj + REAL, DIMENSION(kts:kte), INTENT(IN):: & + qv1d, qr1d, qs1d, qg1d, t1d, p1d + REAL, DIMENSION(kts:kte), INTENT(INOUT):: dBZ + +!..Local variables + REAL, DIMENSION(kts:kte):: temp, pres, qv, rho + REAL, DIMENSION(kts:kte):: rr, rs, rg + REAL:: temp_C + + DOUBLE PRECISION, DIMENSION(kts:kte):: ilamr, ilams, ilamg + DOUBLE PRECISION, DIMENSION(kts:kte):: N0_r, N0_s, N0_g + DOUBLE PRECISION:: lamr, lams, lamg + LOGICAL, DIMENSION(kts:kte):: L_qr, L_qs, L_qg + + REAL, DIMENSION(kts:kte):: ze_rain, ze_snow, ze_graupel + DOUBLE PRECISION:: fmelt_s, fmelt_g + + INTEGER:: i, k, k_0, kbot, n + LOGICAL:: melti + + DOUBLE PRECISION:: cback, x, eta, f_d + REAL, PARAMETER:: R=287. + +!+---+ + + do k = kts, kte + dBZ(k) = -35.0 + enddo + +!+---+-----------------------------------------------------------------+ +!..Put column of data into local arrays. +!+---+-----------------------------------------------------------------+ + do k = kts, kte + temp(k) = t1d(k) + temp_C = min(-0.001, temp(K)-273.15) + qv(k) = MAX(1.E-10, qv1d(k)) + pres(k) = p1d(k) + rho(k) = 0.622*pres(k)/(R*temp(k)*(qv(k)+0.622)) + + if (qr1d(k) .gt. 1.E-9) then + rr(k) = qr1d(k)*rho(k) + N0_r(k) = n0r + lamr = (xam_r*xcrg(3)*N0_r(k)/rr(k))**(1./xcre(1)) + ilamr(k) = 1./lamr + L_qr(k) = .true. + else + rr(k) = 1.E-12 + L_qr(k) = .false. + endif + + if (qs1d(k) .gt. 1.E-9) then + rs(k) = qs1d(k)*rho(k) + N0_s(k) = min(n0smax, n0s*exp(-alpha*temp_C)) + lams = (xam_s*xcsg(3)*N0_s(k)/rs(k))**(1./xcse(1)) + ilams(k) = 1./lams + L_qs(k) = .true. + else + rs(k) = 1.E-12 + L_qs(k) = .false. + endif + + if (qg1d(k) .gt. 1.E-9) then + rg(k) = qg1d(k)*rho(k) + N0_g(k) = n0g + lamg = (xam_g*xcgg(3)*N0_g(k)/rg(k))**(1./xcge(1)) + ilamg(k) = 1./lamg + L_qg(k) = .true. + else + rg(k) = 1.E-12 + L_qg(k) = .false. + endif + enddo + +!+---+-----------------------------------------------------------------+ +!..Locate K-level of start of melting (k_0 is level above). +!+---+-----------------------------------------------------------------+ + melti = .false. + k_0 = kts + do k = kte-1, kts, -1 + if ( (temp(k).gt.273.15) .and. L_qr(k) & + .and. (L_qs(k+1).or.L_qg(k+1)) ) then + k_0 = MAX(k+1, k_0) + melti=.true. + goto 195 + endif + enddo + 195 continue + +!+---+-----------------------------------------------------------------+ +!..Assume Rayleigh approximation at 10 cm wavelength. Rain (all temps) +!.. and non-water-coated snow and graupel when below freezing are +!.. simple. Integrations of m(D)*m(D)*N(D)*dD. +!+---+-----------------------------------------------------------------+ + + do k = kts, kte + ze_rain(k) = 1.e-22 + ze_snow(k) = 1.e-22 + ze_graupel(k) = 1.e-22 + if (L_qr(k)) ze_rain(k) = N0_r(k)*xcrg(4)*ilamr(k)**xcre(4) + if (L_qs(k)) ze_snow(k) = (0.176/0.93) * (6.0/PI)*(6.0/PI) & + * (xam_s/900.0)*(xam_s/900.0) & + * N0_s(k)*xcsg(4)*ilams(k)**xcse(4) + if (L_qg(k)) ze_graupel(k) = (0.176/0.93) * (6.0/PI)*(6.0/PI) & + * (xam_g/900.0)*(xam_g/900.0) & + * N0_g(k)*xcgg(4)*ilamg(k)**xcge(4) + enddo + + +!+---+-----------------------------------------------------------------+ +!..Special case of melting ice (snow/graupel) particles. Assume the +!.. ice is surrounded by the liquid water. Fraction of meltwater is +!.. extremely simple based on amount found above the melting level. +!.. Uses code from Uli Blahak (rayleigh_soak_wetgraupel and supporting +!.. routines). +!+---+-----------------------------------------------------------------+ + + if (melti .and. k_0.ge.kts+1) then + do k = k_0-1, kts, -1 + +!..Reflectivity contributed by melting snow + if (L_qs(k) .and. L_qs(k_0) ) then + fmelt_s = MAX(0.005d0, MIN(1.0d0-rs(k)/rs(k_0), 0.99d0)) + eta = 0.d0 + lams = 1./ilams(k) + do n = 1, nrbins + x = xam_s * xxDs(n)**xbm_s + call rayleigh_soak_wetgraupel (x,DBLE(xocms),DBLE(xobms), & + fmelt_s, melt_outside_s, m_w_0, m_i_0, lamda_radar, & + CBACK, mixingrulestring_s, matrixstring_s, & + inclusionstring_s, hoststring_s, & + hostmatrixstring_s, hostinclusionstring_s) + f_d = N0_s(k)*xxDs(n)**xmu_s * DEXP(-lams*xxDs(n)) + eta = eta + f_d * CBACK * simpson(n) * xdts(n) + enddo + ze_snow(k) = SNGL(lamda4 / (pi5 * K_w) * eta) + endif + + +!..Reflectivity contributed by melting graupel + + if (L_qg(k) .and. L_qg(k_0) ) then + fmelt_g = MAX(0.005d0, MIN(1.0d0-rg(k)/rg(k_0), 0.99d0)) + eta = 0.d0 + lamg = 1./ilamg(k) + do n = 1, nrbins + x = xam_g * xxDg(n)**xbm_g + call rayleigh_soak_wetgraupel (x,DBLE(xocmg),DBLE(xobmg), & + fmelt_g, melt_outside_g, m_w_0, m_i_0, lamda_radar, & + CBACK, mixingrulestring_g, matrixstring_g, & + inclusionstring_g, hoststring_g, & + hostmatrixstring_g, hostinclusionstring_g) + f_d = N0_g(k)*xxDg(n)**xmu_g * DEXP(-lamg*xxDg(n)) + eta = eta + f_d * CBACK * simpson(n) * xdtg(n) + enddo + ze_graupel(k) = SNGL(lamda4 / (pi5 * K_w) * eta) + endif + + enddo + endif + + do k = kte, kts, -1 + dBZ(k) = 10.*log10((ze_rain(k)+ze_snow(k)+ze_graupel(k))*1.d18) + enddo + + + end subroutine refl10cm_wsm7 +!+---+-----------------------------------------------------------------+ + +!----------------------------------------------------------------------- + subroutine effectRad_wsm7 (t, qc, qi, qs, rho, qmin, t0c, & + re_qc, re_qi, re_qs, kts, kte, ii, jj) + +!----------------------------------------------------------------------- +! Compute radiation effective radii of cloud water, ice, and snow for +! single-moment microphysics. +! These are entirely consistent with microphysics assumptions, not +! constant or otherwise ad hoc as is internal to most radiation +! schemes. +! Coded and implemented by Soo ya Bae, KIAPS, January 2015. +!----------------------------------------------------------------------- + implicit none +!----------------------------------------------------------------------- +! +! Sub arguments +! + integer, intent(in) :: kts, kte, ii, jj + real, intent(in) :: qmin + real, intent(in) :: t0c + real, dimension( kts:kte ), intent(in):: t + real, dimension( kts:kte ), intent(in):: qc + real, dimension( kts:kte ), intent(in):: qi + real, dimension( kts:kte ), intent(in):: qs + real, dimension( kts:kte ), intent(in):: rho + real, dimension( kts:kte ), intent(inout):: re_qc + real, dimension( kts:kte ), intent(inout):: re_qi + real, dimension( kts:kte ), intent(inout):: re_qs +! +! Local variables +! + integer:: i,k + integer :: inu_c + real, dimension( kts:kte ):: ni + real, dimension( kts:kte ):: rqc + real, dimension( kts:kte ):: rqi + real, dimension( kts:kte ):: rni + real, dimension( kts:kte ):: rqs + real :: temp + real :: lamdac + real :: supcol, n0sfac, lamdas + real :: diai ! diameter of ice in m + logical :: has_qc, has_qi, has_qs +! +! Minimum microphys values +! + real, parameter :: R1 = 1.E-12 + real, parameter :: R2 = 1.E-6 +! +! Mass power law relations: mass = am*D**bm +! + real, parameter :: bm_r = 3.0 + real, parameter :: obmr = 1.0/bm_r + real, parameter :: nc0 = 3.E8 +!----------------------------------------------------------------------- + has_qc = .false. + has_qi = .false. + has_qs = .false. +! + do k = kts, kte + ! for cloud + rqc(k) = max(R1, qc(k)*rho(k)) + if (rqc(k).gt.R1) has_qc = .true. + ! for ice + rqi(k) = max(R1, qi(k)*rho(k)) + temp = (rho(k)*max(qi(k),qmin)) + temp = sqrt(sqrt(temp*temp*temp)) + ni(k) = min(max(5.38e7*temp,1.e3),1.e6) + rni(k)= max(R2, ni(k)*rho(k)) + if (rqi(k).gt.R1 .and. rni(k).gt.R2) has_qi = .true. + ! for snow + rqs(k) = max(R1, qs(k)*rho(k)) + if (rqs(k).gt.R1) has_qs = .true. + enddo + + if (has_qc) then + do k=kts,kte + if (rqc(k).le.R1) CYCLE + lamdac = (pidnc*nc0/rqc(k))**obmr + re_qc(k) = max(2.51E-6,min(1.5*(1.0/lamdac),50.E-6)) + enddo + endif + + if (has_qi) then + do k=kts,kte + if (rqi(k).le.R1 .or. rni(k).le.R2) CYCLE + diai = 11.9*sqrt(rqi(k)/ni(k)) + re_qi(k) = max(10.01E-6,min(0.75*0.163*diai,125.E-6)) + enddo + endif + + if (has_qs) then + do k=kts,kte + if (rqs(k).le.R1) CYCLE + supcol = t0c-t(k) + n0sfac = max(min(exp(alpha*supcol),n0smax/n0s),1.) + lamdas = sqrt(sqrt(pidn0s*n0sfac/rqs(k))) + re_qs(k) = max(25.E-6,min(0.5*(1./lamdas), 999.E-6)) + enddo + endif + + end subroutine effectRad_wsm7 +!----------------------------------------------------------------------- + +END MODULE module_mp_wsm7 diff --git a/phys/module_pbl_driver.F b/phys/module_pbl_driver.F index 5d1aa88a15..b4aace066b 100644 --- a/phys/module_pbl_driver.F +++ b/phys/module_pbl_driver.F @@ -47,12 +47,12 @@ SUBROUTINE pbl_driver( & ,bl_mynn_mixlength & ,icloud_bl,qc_bl,cldfra_bl & ,bl_mynn_edmf,bl_mynn_edmf_mom,bl_mynn_edmf_tke & - ,bl_mynn_edmf_part & + ,bl_mynn_mixscalars & ,bl_mynn_cloudmix,bl_mynn_mixqt & ,edmf_a,edmf_w,edmf_thl & ,edmf_qt,edmf_ent,edmf_qc & ,vdfg & - ,nupdraft,maxMF,ktop_shallow & + ,nupdraft,maxMF,ktop_shallow & ,spp_pbl,pattern_spp_pbl & #if (NMM_CORE==1) ,DISHEAT & @@ -82,6 +82,9 @@ SUBROUTINE pbl_driver( & ,qi_curr, qs_curr, qg_curr & ,rqvblten,rqcblten,rqiblten & ,rqrblten,rqsblten,rqgblten & + ! Optional aerosol + ,qnwfa_curr,f_qnwfa & + ,qnifa_curr,f_qnifa & ! Optional moisture tracer flags ,f_qv,f_qc,f_qr & ,f_qi,f_qs,f_qg & @@ -138,7 +141,8 @@ SUBROUTINE pbl_driver( & CAMUWPBLSCHEME,BEPSCHEME,BEP_BEMSCHEME,MYJSFCSCHEME, & FITCHSCHEME,SHINHONGSCHEME, & TEMFPBLSCHEME,GBMPBLSCHEME, & - CAMMGMPSCHEME,p_qi,p_qni,p_qnc,param_first_scalar !CAMMGMPSCHEME, p_qni,p_qnc is used for camuwpbl scheme + CAMMGMPSCHEME,p_qi,p_qni,p_qnc,param_first_scalar,& !CAMMGMPSCHEME, p_qni,p_qnc is used for camuwpbl scheme + p_qnwfa,p_qnifa #if ( WRFPLUS == 1 ) USE module_state_description, ONLY : SURFDRAGSCHEME #endif @@ -561,7 +565,7 @@ SUBROUTINE pbl_driver( & bl_mynn_edmf, & bl_mynn_edmf_mom, & bl_mynn_edmf_tke, & - bl_mynn_edmf_part, & + bl_mynn_mixscalars, & bl_mynn_cloudmix, & bl_mynn_mixqt, & icloud_bl @@ -580,6 +584,9 @@ SUBROUTINE pbl_driver( & REAL, OPTIONAL, DIMENSION( ims:ime , jms:jme ), & & INTENT(OUT) :: maxMF + REAL, OPTIONAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & + INTENT(INOUT) :: qnwfa_curr,qnifa_curr + REAL, OPTIONAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & & INTENT(INOUT) :: exch_tke ! for GBM PBL scheme @@ -668,7 +675,9 @@ SUBROUTINE pbl_driver( & ,f_qs & ,f_qg & ,f_qnc & !used in CAMUWPBL - ,f_qni !used in CAMUWPBL + ,f_qni & !used in CAMUWPBL + ,f_qnwfa & + ,f_qnifa REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & OPTIONAL, INTENT(INOUT) :: & @@ -680,6 +689,8 @@ SUBROUTINE pbl_driver( & ,rqvblten,rqcblten,rqrblten & ,rqiblten,rqsblten,rqgblten,rqniblten !rqniblten used in CAMUWPBL + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ) :: & !local: added for MYNN + rqncblten,rqnwfablten,rqnifablten REAL, DIMENSION( ims:ime, jms:jme ) , & OPTIONAL , & @@ -777,7 +788,8 @@ SUBROUTINE pbl_driver( & LOGICAL :: radiation LOGICAL :: flag_bep LOGICAL :: flag_myjsfc - LOGICAL :: flag_qv, flag_qc, flag_qr, flag_qi, flag_qs, flag_qg, flag_qnc,flag_qni !flag_qnc,flag_qnc are used in camuwpbl scheme + LOGICAL :: flag_qv, flag_qc, flag_qr, flag_qi, flag_qs, flag_qg, & + flag_qnc,flag_qni, flag_qnwfa, flag_qnifa CHARACTER*256 :: message REAL :: next_bl_time LOGICAL :: run_param , doing_adapt_dt , decided @@ -823,6 +835,8 @@ SUBROUTINE pbl_driver( & flag_qg = .FALSE. ; IF ( PRESENT( F_QG ) ) flag_qg = F_QG flag_qnc = .FALSE. ; IF ( PRESENT( F_QNC ) ) flag_qnc = F_QNC !Used in CAMUWPBL flag_qni = .FALSE. ; IF ( PRESENT( F_QNI ) ) flag_qni = F_QNI !Used in CAMUWPBL + flag_qnwfa = .FALSE. ; IF ( PRESENT( F_QNWFA ) ) flag_qnwfa = F_QNWFA + flag_qnifa = .FALSE. ; IF ( PRESENT( F_QNIFA ) ) flag_qnifa = F_QNIFA if (bl_pbl_physics .eq. 0) return @@ -1174,7 +1188,6 @@ SUBROUTINE pbl_driver( & ,FLAG_QI=flag_qi & ,CP=cp,G=g,ROVCP=rcp,RD=r_D,ROVG=rovg & ,DZ8W=dz8w,XLV=XLV,RV=r_v,PSFC=PSFC & - ,ZNU=znu,ZNW=znw,P_TOP=p_top & ,ZNT=znt,UST=ust,HPBL=pblh & ,PSIM=fm,PSIH=fhh,XLAND=xland & ,HFX=hfx,QFX=qfx & @@ -1185,7 +1198,7 @@ SUBROUTINE pbl_driver( & ,YSU_TOPDOWN_PBLMIX=ysu_topdown_pblmix & ,WSPD=wspd,BR=br,DT=dtbl,KPBL2D=kpbl & ,EP1=ep_1,EP2=ep_2,KARMAN=karman & - ,EXCH_H=exch_h,REGIME=regime & + ,EXCH_H=exch_h,EXCH_M=exch_m,REGIME=regime & ,RTHRATEN=RTHRATEN & ! for grims shallow convection with ysupbl ,WSTAR=wstar,DELTA=delta & @@ -1424,6 +1437,11 @@ SUBROUTINE pbl_driver( & ,coef_ric_l=coef_ric_l,coef_ric_s=coef_ric_s & ,ALPHA=gfs_alpha & ,xland=xland & +#if (HWRF==1) + ,pert_pbl=pert_pbl & + ,ens_random_seed=ens_random_seed & + ,ens_pblamp=ens_pblamp & +#endif ,IDS=ids,IDE=ide,JDS=jds,JDE=jde,KDS=kds,KDE=kde & ,IMS=ims,IME=ime,JMS=jms,JME=jme,KMS=kms,KME=kme & ,ITS=its,ITE=ite,JTS=jts,JTE=jte,KTS=kts,KTE=kte & @@ -1659,8 +1677,10 @@ SUBROUTINE pbl_driver( & CALL mynn_bl_driver(& &initflag=initflag,grav_settling=grav_settling, & &delt=dtbl,dz=dz8w,dx=dx,znt=znt, & - &u=u_phy,v=v_phy,w=w,th=th_phy,qv=qv_curr,qc=qc_curr, & - &qi=qi_curr,qni=qni_curr,qnc=qnc_curr, & + &u=u_phy,v=v_phy,w=w,th=th_phy,qv=qv_curr, & + &qc=qc_curr,qi=qi_curr, & + &qnc=qnc_curr,qni=qni_curr, & + &QNWFA=qnwfa_curr,QNIFA=qnifa_curr, & &p=p_phy,exner=pi_phy,rho=rho,T3D=t_phy, & &xland=xland,ts=tsk,qsfc=qsfc,qcg=qcg,ps=psfc, & &ust=ust,ch=ch,hfx=hfx,qfx=qfx,rmol=rmol,wspd=wspd, & @@ -1676,7 +1696,8 @@ SUBROUTINE pbl_driver( & &Tsq=tsq,Qsq=qsq,Cov=cov, & &RUBLTEN=rublten,RVBLTEN=rvblten,RTHBLTEN=rthblten, & &RQVBLTEN=rqvblten,RQCBLTEN=rqcblten,RQIBLTEN=rqiblten,& - &RQNIBLTEN=rqniblten, & + &RQNCBLTEN=rqncblten,RQNIBLTEN=rqniblten, & + &RQNWFABLTEN=rqnwfablten,RQNIFABLTEN=rqnifablten, & &EXCH_H=exch_h,EXCH_M=exch_m, & &pblh=pblh,KPBL=KPBL & &,el_pbl=el_pbl & @@ -1691,7 +1712,7 @@ SUBROUTINE pbl_driver( & &,bl_mynn_edmf=bl_mynn_edmf & &,bl_mynn_edmf_mom=bl_mynn_edmf_mom & &,bl_mynn_edmf_tke=bl_mynn_edmf_tke & - &,bl_mynn_edmf_part=bl_mynn_edmf_part & + &,bl_mynn_mixscalars=bl_mynn_mixscalars & &,bl_mynn_cloudmix=bl_mynn_cloudmix & &,bl_mynn_mixqt=bl_mynn_mixqt & &,edmf_a=edmf_a,edmf_w=edmf_w,edmf_qt=edmf_qt & @@ -1699,9 +1720,10 @@ SUBROUTINE pbl_driver( & &,nupdraft=nupdraft,maxMF=maxMF & &,ktop_shallow=ktop_shallow & &,spp_pbl=spp_pbl,pattern_spp_pbl=pattern_spp_pbl & - &,RTHRATEN=rthraten & - &,FLAG_QI=flag_qi,FLAG_QNI=flag_qni & - &,FLAG_QC=flag_qc,FLAG_QNC=flag_qnc & + &,RTHRATEN=RTHRATEN & + &,FLAG_QC=flag_qc,FLAG_QI=flag_qi & + &,FLAG_QNC=flag_qnc,FLAG_QNI=flag_qni & + &,FLAG_QNWFA=flag_qnwfa,FLAG_QNIFA=flag_qnifa & ,IDS=ids,IDE=ide,JDS=jds,JDE=jde,KDS=kds,KDE=kde & ,IMS=ims,IME=ime,JMS=jms,JME=jme,KMS=kms,KME=kme & ,ITS=its,ITE=ite,JTS=jts,JTE=jte,KTS=kts,KTE=kte & @@ -1753,6 +1775,51 @@ SUBROUTINE pbl_driver( & CALL wrf_error_fatal('Lack arguments to call MYNN pbl') ENDIF + !fill scalar_tend array. The RQN*BLTEN arrays are no longer + !passed to module_physics_addtendc.F (for MYNN) + IF (bl_mynn_mixscalars .eq. 1) THEN + IF (PRESENT( qni_curr ) .AND. Flag_qni) THEN + !print*,"Updating qni after mynn-edmf",P_QNI + DO j=j_start(ij),j_end(ij) + DO k=kts,kte + DO i=i_start(ij),i_end(ij) + scalar_tend(i,k,j,P_QNI)=RQNIBLTEN(i,k,j) + enddo + enddo + enddo + ENDIF + IF (PRESENT( qnc_curr ) .AND. Flag_qnc) THEN + !print*,"Updating qnc after mynn-edmf",P_QNC + DO j=j_start(ij),j_end(ij) + DO k=kts,kte + DO i=i_start(ij),i_end(ij) + scalar_tend(i,k,j,P_QNC)=RQNCBLTEN(i,k,j) + enddo + enddo + enddo + ENDIF + IF (PRESENT( qnwfa_curr ) .AND. Flag_qnwfa) THEN + !print*,"Updating qnwfa after mynn-edmf",P_QNWFA + DO j=j_start(ij),j_end(ij) + DO k=kts,kte + DO i=i_start(ij),i_end(ij) + scalar_tend(i,k,j,P_QNWFA)=RQNWFABLTEN(i,k,j) + enddo + enddo + enddo + ENDIF + IF (PRESENT( qnifa_curr ) .AND. Flag_qnifa) THEN + !print*,"Updating qnifa after mynn-edmf",P_QNIFA + DO j=j_start(ij),j_end(ij) + DO k=kts,kte + DO i=i_start(ij),i_end(ij) + scalar_tend(i,k,j,P_QNIFA)=RQNIFABLTEN(i,k,j) + enddo + enddo + enddo + ENDIF + ENDIF + CASE (BOULACSCHEME) CALL wrf_debug(100,'in boulac') diff --git a/phys/module_physics_addtendc.F b/phys/module_physics_addtendc.F index 015b4aff0b..bb7bb2c833 100644 --- a/phys/module_physics_addtendc.F +++ b/phys/module_physics_addtendc.F @@ -714,20 +714,6 @@ SUBROUTINE phy_bl_ten(config_flags,rk_step,n_moist,n_scalar, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) - if (P_QT .ge. PARAM_FIRST_SCALAR) & - CALL add_a2a(scalar_tendf(ims,kms,jms,P_QT),RQNIBLTEN,& - config_flags, & - ids,ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - its, ite, jts, jte, kts, kte ) - -! if (P_QT .ge. PARAM_FIRST_SCALAR) & -! CALL add_a2a(scalar_tendf(ims,kms,jms,P_QT),RQNCBLTEN,& -! config_flags, & -! ids,ide, jds, jde, kds, kde, & -! ims, ime, jms, jme, kms, kme, & -! its, ite, jts, jte, kts, kte ) - ELSE if (P_QC .ge. PARAM_FIRST_SCALAR) & @@ -744,20 +730,6 @@ SUBROUTINE phy_bl_ten(config_flags,rk_step,n_moist,n_scalar, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) - if (P_QNI .ge. PARAM_FIRST_SCALAR) & - CALL add_a2a(scalar_tendf(ims,kms,jms,P_QNI),RQNIBLTEN,& - config_flags, & - ids,ide, jds, jde, kds, kde, & - ims, ime, jms, jme, kms, kme, & - its, ite, jts, jte, kts, kte ) - -! if (P_QNC .ge. PARAM_FIRST_SCALAR) & -! CALL add_a2a(scalar_tendf(ims,kms,jms,P_QNC),RQNCBLTEN,& -! config_flags, & -! ids,ide, jds, jde, kds, kde, & -! ims, ime, jms, jme, kms, kme, & -! its, ite, jts, jte, kts, kte ) - ENDIF CASE (BOULACSCHEME) @@ -1679,6 +1651,44 @@ SUBROUTINE phy_shcu_ten(config_flags,rk_step,n_moist,n_scalar, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) + CASE (DENGSHCUSCHEME) + CALL add_a2c_u(ru_tendf,RUSHTEN,config_flags, & + ids,ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + + CALL add_a2c_v(rv_tendf,RVSHTEN,config_flags, & + ids,ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + + CALL add_a2a(rt_tendf,RTHSHTEN,config_flags, & + ids,ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + + if (P_QV .ge. PARAM_FIRST_SCALAR) & + CALL add_a2a(moist_tendf(ims,kms,jms,P_QV),RQVSHTEN, & + config_flags, & + ids,ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + + if (P_QC .ge. PARAM_FIRST_SCALAR) & + CALL add_a2a(moist_tendf(ims,kms,jms,P_QC),RQCSHTEN, & + config_flags, & + ids,ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + + if (P_QR .ge. PARAM_FIRST_SCALAR) & + CALL add_a2a(moist_tendf(ims,kms,jms,P_QR),RQRSHTEN, & + config_flags, & + ids,ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + + CASE DEFAULT END SELECT diff --git a/phys/module_physics_init.F b/phys/module_physics_init.F index 4800bc4330..db727f1201 100644 --- a/phys/module_physics_init.F +++ b/phys/module_physics_init.F @@ -48,6 +48,12 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & z_at_q, inv_dens, qnwfa2d, scalar, num_sc, & ! G. Thompson re_cloud, re_ice, re_snow, & ! G. Thompson has_reqc, has_reqi, has_reqs, & ! G. Thompson +#if ( EM_CORE == 1 ) + re_cloud_gsfc, re_ice_gsfc, & + re_snow_gsfc, & ! Goddard + re_graupel_gsfc, re_hail_gsfc, & + re_rain_gsfc, & ! Goddard +#endif NCA,swrad_scat, & CLDEFI,LOWLYR, & MASS_FLUX, & @@ -78,7 +84,16 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte, & - NUM_URBAN_LAYERS, & + num_urban_ndm, & + urban_map_zrd, & + urban_map_zwd, & + urban_map_gd, & + urban_map_zd, & + urban_map_zdf, & + urban_map_bd, & + urban_map_wd, & + urban_map_gbd, & + urban_map_fbd, & NUM_URBAN_HI, & raincv_a,raincv_b, & gd_cloud,gd_cloud2, & @@ -212,6 +227,13 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & ,massflux_EDKF, entr_EDKF, detr_EDKF & ! Optional for qnse ,thl_up, thv_up, rt_up & ! Optional for qnse ,rv_up, rc_up, u_up, v_up, frac_up & ! Optional for qnse + ,RDCASHTEN, RQCDCSHTEN & + ,cldareaa, cldareab, cldliqa, cldliqb & + ,ca_rad, cw_rad & + ,pblmax, wub, ltopb, clddpthb, cldtopb & + ,capesave, ainckfsa, radsave & + ,rainsh, rainshvb, kdcldtop, kdcldbas & + ,xtime1, PBLHAVG, TKEAVG & ,ccn_conc & ! RAS ,QKE & !for MYNN ,landusef,landusef2,mosaic_cat_index & ! danli mosaic @@ -239,7 +261,8 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & USE module_wrf_error use module_sf_lake, only : nlevsoil,nlevsnow,nlevlake #if ( WRF_CHEM == 1 ) - USE module_cam_support, ONLY : cam_mam_aerosols + USE module_gocart_coupling, ONLY : makelut_ccn_icn + USE module_cam_support, ONLY : cam_mam_aerosols #endif USE module_wind_fitch IMPLICIT NONE @@ -348,6 +371,10 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT) :: re_cloud, & re_ice, re_snow INTEGER, INTENT(INOUT):: has_reqc, has_reqi, has_reqs +#if ( EM_CORE == 1 ) + REAL, DIMENSION(ims:ime, kms:kme, jms:jme), INTENT(INOUT) :: re_cloud_gsfc, & + re_ice_gsfc, re_snow_gsfc, re_graupel_gsfc, re_hail_gsfc, re_rain_gsfc +#endif REAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , INTENT(INOUT) :: &!BSINGH(PNNL)- should be declared inout RTHRATEN, RTHRATENLW, RTHRATENSW, CLDFRA @@ -587,29 +614,38 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: FRC_URB2D !urban INTEGER, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: UTYPE_URB2D !urban - INTEGER , INTENT(IN) :: num_urban_layers + INTEGER , INTENT(IN) :: num_urban_ndm + INTEGER , INTENT(IN) :: urban_map_zrd + INTEGER , INTENT(IN) :: urban_map_zwd + INTEGER , INTENT(IN) :: urban_map_gd + INTEGER , INTENT(IN) :: urban_map_zd + INTEGER , INTENT(IN) :: urban_map_zdf + INTEGER , INTENT(IN) :: urban_map_bd + INTEGER , INTENT(IN) :: urban_map_wd + INTEGER , INTENT(IN) :: urban_map_gbd + INTEGER , INTENT(IN) :: urban_map_fbd INTEGER , INTENT(IN) :: num_urban_hi - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TRB_URB4D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TW1_URB4D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TW2_URB4D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TGB_URB4D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TLEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: QLEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW1LEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW2LEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TGLEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TFLEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: TRB_URB4D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: TW1_URB4D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: TW2_URB4D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gd , jms:jme ), INTENT(INOUT) :: TGB_URB4D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: TLEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: QLEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: TW1LEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: TW2LEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gbd, jms:jme ), INTENT(INOUT) :: TGLEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_fbd, jms:jme ), INTENT(INOUT) :: TFLEV_URB3D ! multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LF_AC_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: SF_AC_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: CM_AC_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: SFVENT_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LFVENT_URB3D !multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFWIN1_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFWIN2_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFG_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFR_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFW1_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFW2_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: SFWIN1_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: SFWIN2_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: SFG_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: SFR_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: SFW1_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: SFW2_URB3D ! multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime,1:num_urban_hi, jms:jme), INTENT(INOUT) :: HI_URB2D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LP_URB2D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LB_URB2D !multi-layer UCM @@ -722,6 +758,24 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & REAL,OPTIONAL, DIMENSION( ims:ime , jms:jme ) , & INTENT(OUT) :: wm_temf + REAL, OPTIONAL, DIMENSION( ims:ime , jms:jme ) , & + INTENT( OUT) :: pblmax, clddpthb, cldtopb, rainsh, rainshvb, & + capesave, radsave, xtime1, PBLHAVG + + REAL, OPTIONAL, DIMENSION( ims:ime , 1:100, jms:jme ) , & + INTENT( OUT) :: ainckfsa + + INTEGER, OPTIONAL, DIMENSION( ims:ime , jms:jme ) , & + INTENT( OUT) :: kdcldtop, kdcldbas, ltopb + + REAL, OPTIONAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , & + INTENT( OUT) :: wub, cldareaa, cldareab, & + cldliqa, cldliqb, TKEAVG, & + ca_rad, cw_rad + + REAL, OPTIONAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , INTENT(OUT) :: & + RDCASHTEN, RQCDCSHTEN + ! Local data REAL :: ALBLND,ZZLND,ZZWTR,THINLD,XMAVA,CEN_LAT,pptop @@ -747,7 +801,7 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & INTEGER :: i, j, k, itf, jtf, ktf, n -integer myproc + INTEGER :: myproc !------------------------------------------------- ! Noah-mosaic related variables are added to declaration (danli) @@ -815,22 +869,28 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & #if( BUILD_RRTMG_FAST == 1) (config_flags%ra_lw_physics .eq. RRTMG_LWSCHEME_FAST ) .or. & #endif + (config_flags%ra_lw_physics .eq. goddardlwscheme ) .or. & (config_flags%ra_lw_physics .eq. RRTMK_LWSCHEME ) ) .and. & ( (config_flags%ra_sw_physics .eq. RRTMG_SWSCHEME ) .or. & #if( BUILD_RRTMG_FAST == 1) (config_flags%ra_sw_physics .eq. RRTMG_SWSCHEME_FAST ) .or. & #endif + (config_flags%ra_sw_physics .eq. goddardswscheme ) .or. & (config_flags%ra_sw_physics .eq. RRTMK_SWSCHEME ) ) .and. & (config_flags%mp_physics .eq. THOMPSON .or. & - config_flags%mp_physics .eq. THOMPSONAERO & - .or. config_flags%mp_physics .eq. NSSL_2MOM .or. & + config_flags%mp_physics .eq. THOMPSONAERO .or. & + config_flags%mp_physics .eq. NSSL_2MOM .or. & config_flags%mp_physics .eq. NSSL_2MOMG .or. & - config_flags%mp_physics .eq. NSSL_2MOMCCN .or. & - config_flags%mp_physics .eq. WSM3SCHEME .or. & ! syb+ - config_flags%mp_physics .eq. WSM5SCHEME .or. & ! syb+ - config_flags%mp_physics .eq. WSM6SCHEME .or. & ! syb+ - config_flags%mp_physics .eq. WDM5SCHEME .or. & ! syb+ + config_flags%mp_physics .eq. NSSL_2MOMCCN .or. & + config_flags%mp_physics .eq. WSM3SCHEME .or. & + config_flags%mp_physics .eq. WSM5SCHEME .or. & + config_flags%mp_physics .eq. WSM6SCHEME .or. & + config_flags%mp_physics .eq. WSM7SCHEME .or. & + config_flags%mp_physics .eq. WDM5SCHEME .or. & config_flags%mp_physics .eq. WDM6SCHEME .or. & + config_flags%mp_physics .eq. WDM7SCHEME .or. & + config_flags%mp_physics .eq. nuwrf4icescheme .or. & + config_flags%mp_physics .eq. JENSEN_ISHMAEL .or. & config_flags%mp_physics .eq. P3_1CATEGORY .or. & config_flags%mp_physics .eq. P3_1CATEGORY_NC .or. & config_flags%mp_physics .eq. P3_2CATEGORY ) ) then ! P3 @@ -842,6 +902,7 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & ! for P3, to ensure correct coupling with predicted effective radii if (config_flags%mp_physics .eq. P3_1CATEGORY .or. & config_flags%mp_physics .eq. P3_1CATEGORY_NC .or. & + config_flags%mp_physics .eq. JENSEN_ISHMAEL .or. & config_flags%mp_physics .eq. P3_2CATEGORY ) then has_reqs = 0 end if @@ -1085,6 +1146,27 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & end do endif +! Initialize cloud droplet effective radii for Goddard MP and/or Radiation +#if ( EM_CORE == 1 ) + + if ( config_flags%ra_lw_physics .EQ. GODDARDLWSCHEME .OR. & + config_flags%ra_sw_physics .EQ. GODDARDSWSCHEME .OR. & + config_flags%mp_physics .EQ. NUWRF4ICESCHEME ) THEN + do j=jts,jtf + do k=kts,ktf + do i=its,itf + re_cloud_gsfc(i,k,j) = 0. + re_rain_gsfc(i,k,j) = 0. + re_snow_gsfc(i,k,j) = 0. + re_ice_gsfc(i,k,j) = 0. + re_graupel_gsfc(i,k,j) = 0. + re_hail_gsfc(i,k,j) = 0. + end do + end do + end do + end if +#endif + CALL wrf_debug ( 200 , 'module_start: phy_init: Before call to landuse_init' ) IF(mminlu_loc .ne. ' ')THEN @@ -1241,7 +1323,16 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & CMCR_URB2D,TGR_URB2D,TGRL_URB3D,SMR_URB3D, & !Optional urban DRELR_URB2D,DRELB_URB2D,DRELG_URB2D, & !Optional urban FLXHUMR_URB2D,FLXHUMB_URB2D,FLXHUMG_URB2D, & !Optional urban - NUM_URBAN_LAYERS, & !Optional multi-layer urban + num_urban_ndm, & !Optional multi-layer urban + urban_map_zrd, & !Optional multi-layer urban + urban_map_zwd, & !Optional multi-layer urban + urban_map_gd , & !Optional multi-layer urban + urban_map_zd , & !Optional multi-layer urban + urban_map_zdf, & !Optional multi-layer urban + urban_map_bd , & !Optional multi-layer urban + urban_map_wd , & !Optional multi-layer urban + urban_map_gbd, & !Optional multi-layer urban + urban_map_fbd, & !Optional multi-layer urban NUM_URBAN_HI, & !Optional multi-layer urban TRB_URB4D,TW1_URB4D,TW2_URB4D, & !Optional multi-layer urban TGB_URB4D,TLEV_URB3D,QLEV_URB3D, & !Optional multi-layer urban @@ -1349,6 +1440,13 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & RQSSHTEN,RQISHTEN,RQGSHTEN, & NCA,RAINC,RAINCV,config_flags,restart, & allowed_to_read, start_of_simulation, & + RDCASHTEN, RQCDCSHTEN, W0AVG & + ,cldareaa, cldareab, cldliqa, cldliqb & + ,ca_rad, cw_rad & + ,pblmax, wub, ltopb, clddpthb, cldtopb & + ,capesave, ainckfsa, radsave & + ,rainsh, rainshvb, kdcldtop, kdcldbas & + ,xtime1, PBLHAVG, TKEAVG, & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) @@ -1449,6 +1547,16 @@ SUBROUTINE phy_init ( id, config_flags, DT, restart, zfull, zhalf, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) +#endif +#if ( WRF_CHEM == 1) + if ((config_flags%chem_opt == gocart_simple .or. & + config_flags%chem_opt == gocartracm_kpp .or. & + config_flags%chem_opt == 302 .or. & + config_flags%chem_opt == gocartradm2) .and. & + config_flags%gsfcgce_gocart_coupling == 1) then + CALL wrf_debug(200 , 'phy_init: Before call to makelut_ccn_icn') + call makelut_ccn_icn + end if #endif END SUBROUTINE phy_init @@ -1765,6 +1873,7 @@ SUBROUTINE ra_init(id,STEPRA,RADT,DT,RTHRATEN,RTHRATENLW, & USE module_ra_sw , ONLY : swinit USE module_ra_gsfcsw , ONLY : gsfc_swinit USE module_ra_gfdleta , ONLY : gfdletainit + USE module_ra_goddard , ONLY : init_goddardrad #if(NMM_CORE==1) USE module_ra_hwrf , ONLY : hwrfrainit #endif @@ -1919,6 +2028,14 @@ SUBROUTINE ra_init(id,STEPRA,RADT,DT,RTHRATEN,RTHRATENLW, & lwrad_select: SELECT CASE(config_flags%ra_lw_physics) + CASE (goddardlwscheme) + CALL init_goddardrad( & + allowed_to_read , & + ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + + CASE (RRTMSCHEME) CALL rrtminit( & p_top, allowed_to_read , & @@ -2027,6 +2144,13 @@ SUBROUTINE ra_init(id,STEPRA,RADT,DT,RTHRATEN,RTHRATENLW, & swrad_select: SELECT CASE(config_flags%ra_sw_physics) + CASE (goddardswscheme) + CALL init_goddardrad( & + allowed_to_read , & + ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + CASE (SWRADSCHEME) CALL swinit( & swrad_scat, & @@ -2190,7 +2314,16 @@ SUBROUTINE bl_init(STEPBL,BLDT,DT,RUBLTEN,RVBLTEN,RTHBLTEN, & CMCR_URB2D,TGR_URB2D,TGRL_URB3D,SMR_URB3D, & !Optional urban DRELR_URB2D,DRELB_URB2D,DRELG_URB2D, & !Optional urban FLXHUMR_URB2D,FLXHUMB_URB2D,FLXHUMG_URB2D, & !Optional urban - NUM_URBAN_LAYERS, & !Optional multi-layer urban + num_urban_ndm, & !Optional multi-layer urban + urban_map_zrd, & !Optional multi-layer urban + urban_map_zwd, & !Optional multi-layer urban + urban_map_gd, & !Optional multi-layer urban + urban_map_zd, & !Optional multi-layer urban + urban_map_zdf, & !Optional multi-layer urban + urban_map_bd, & !Optional multi-layer urban + urban_map_wd, & !Optional multi-layer urban + urban_map_gbd, & !Optional multi-layer urban + urban_map_fbd, & !Optional multi-layer urban NUM_URBAN_HI, & !Optional multi-layer urban TRB_URB4D,TW1_URB4D,TW2_URB4D, & !Optional multi-layer urban TGB_URB4D,TLEV_URB3D,QLEV_URB3D, & !Optional multi-layer urban @@ -2511,29 +2644,38 @@ SUBROUTINE bl_init(STEPBL,BLDT,DT,RUBLTEN,RVBLTEN,RTHBLTEN, & REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_soil_layers, jms:jme ), INTENT(INOUT) :: TGRL_URB3D !Optional urban REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_soil_layers, jms:jme ), INTENT(INOUT) :: SMR_URB3D !Optional urban - INTEGER , INTENT(IN) :: num_urban_layers + INTEGER , INTENT(IN) :: num_urban_ndm + INTEGER , INTENT(IN) :: urban_map_zrd + INTEGER , INTENT(IN) :: urban_map_zwd + INTEGER , INTENT(IN) :: urban_map_gd + INTEGER , INTENT(IN) :: urban_map_zd + INTEGER , INTENT(IN) :: urban_map_zdf + INTEGER , INTENT(IN) :: urban_map_bd + INTEGER , INTENT(IN) :: urban_map_wd + INTEGER , INTENT(IN) :: urban_map_gbd + INTEGER , INTENT(IN) :: urban_map_fbd INTEGER , INTENT(IN) :: num_urban_hi - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TRB_URB4D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW1_URB4D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW2_URB4D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TGB_URB4D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TLEV_URB3D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: QLEV_URB3D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW1LEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW2LEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TGLEV_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TFLEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: TRB_URB4D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: TW1_URB4D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: TW2_URB4D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gd , jms:jme ), INTENT(INOUT) :: TGB_URB4D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: TLEV_URB3D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: QLEV_URB3D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: TW1LEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: TW2LEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gbd, jms:jme ), INTENT(INOUT) :: TGLEV_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_fbd, jms:jme ), INTENT(INOUT) :: TFLEV_URB3D ! multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LF_AC_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: SF_AC_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: CM_AC_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: SFVENT_URB3D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LFVENT_URB3D !multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFWIN1_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFWIN2_URB3D ! multi-layer UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFW1_URB3D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFW2_URB3D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFR_URB3D !Optional UCM - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFG_URB3D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: SFWIN1_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: SFWIN2_URB3D ! multi-layer UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: SFW1_URB3D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: SFW2_URB3D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: SFR_URB3D !Optional UCM + REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: SFG_URB3D !Optional UCM REAL, OPTIONAL, DIMENSION( ims:ime,1:num_urban_hi, jms:jme ), INTENT(INOUT) :: HI_URB2D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LP_URB2D !multi-layer UCM REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LB_URB2D !multi-layer UCM @@ -2872,7 +3014,16 @@ SUBROUTINE bl_init(STEPBL,BLDT,DT,RUBLTEN,RVBLTEN,RTHBLTEN, & TR_URB2D,TB_URB2D,TG_URB2D,TC_URB2D,QC_URB2D, & !urban TRL_URB3D,TBL_URB3D,TGL_URB3D, & !urban SH_URB2D,LH_URB2D,G_URB2D,RN_URB2D, TS_URB2D, & !urban - num_urban_layers, & !urban + num_urban_ndm, & !urban + urban_map_zrd, & !urban + urban_map_zwd, & !urban + urban_map_gd, & !urban + urban_map_zd, & !urban + urban_map_zdf, & !urban + urban_map_bd, & !urban + urban_map_wd, & !urban + urban_map_gbd, & !urban + urban_map_fbd, & !urban num_urban_hi, & !urban TRB_URB4D,TW1_URB4D,TW2_URB4D,TGB_URB4D, & !urban TLEV_URB3D,QLEV_URB3D, & !urban @@ -2979,7 +3130,16 @@ SUBROUTINE bl_init(STEPBL,BLDT,DT,RUBLTEN,RVBLTEN,RTHBLTEN, & TR_URB2D,TB_URB2D,TG_URB2D,TC_URB2D,QC_URB2D, & !urban TRL_URB3D,TBL_URB3D,TGL_URB3D, & !urban SH_URB2D,LH_URB2D,G_URB2D,RN_URB2D, TS_URB2D, & !urban - num_urban_layers, & !urban + num_urban_ndm, & !urban + urban_map_zrd, & !urban + urban_map_zwd, & !urban + urban_map_gd, & !urban + urban_map_zd, & !urban + urban_map_zdf, & !urban + urban_map_bd, & !urban + urban_map_wd, & !urban + urban_map_gbd, & !urban + urban_map_fbd, & !urban num_urban_hi, & !urban TRB_URB4D,TW1_URB4D,TW2_URB4D,TGB_URB4D, & !urban TLEV_URB3D,QLEV_URB3D, & !urban @@ -3684,6 +3844,13 @@ SUBROUTINE shcu_init(STEPCU,CUDT,DT,RUSHTEN,RVSHTEN,RTHSHTEN, & RQSSHTEN,RQISHTEN,RQGSHTEN, & NCA,RAINC,RAINCV,config_flags,restart, & allowed_to_read, start_of_simulation, & + RDCASHTEN, RQCDCSHTEN, W0AVG, & + cldareaa, cldareab, cldliqa, cldliqb, & + ca_rad, cw_rad, & + pblmax, wub, ltopb, clddpthb, cldtopb, & + capesave, ainckfsa, radsave, & + rainsh, rainshvb, kdcldtop, kdcldbas, xtime1,& + PBLHAVG, TKEAVG, & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) @@ -3691,6 +3858,7 @@ SUBROUTINE shcu_init(STEPCU,CUDT,DT,RUSHTEN,RVSHTEN,RTHSHTEN, & USE uwshcu, ONLY: init_uwshcu USE module_shcu_grims, ONLY: grimsinit USE module_shcu_nscv , ONLY: nscvinit + USE module_shcu_deng , ONLY: deng_shcu_init USE physconst, ONLY: cpair, gravit, latice, latvap, mwdry, mwh2o, & rair, zvir USE shr_kind_mod, ONLY: r8 => shr_kind_r8 @@ -3719,6 +3887,24 @@ SUBROUTINE shcu_init(STEPCU,CUDT,DT,RUSHTEN,RVSHTEN,RTHSHTEN, & REAL , DIMENSION( ims:ime , jms:jme ), INTENT(INOUT):: NCA + REAL, OPTIONAL, DIMENSION( ims:ime , jms:jme ) , & + INTENT( OUT) :: pblmax, clddpthb, cldtopb, rainsh, rainshvb, & + capesave, radsave, xtime1, PBLHAVG + + REAL, OPTIONAL, DIMENSION( ims:ime , 1:100, jms:jme ) , & + INTENT( OUT) :: ainckfsa + + INTEGER, OPTIONAL, DIMENSION( ims:ime , jms:jme ) , & + INTENT( OUT) :: kdcldtop, kdcldbas, ltopb + + REAL, OPTIONAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , & + INTENT( OUT) :: wub, cldareaa, cldareab, & + cldliqa, cldliqb, W0AVG, TKEAVG, & + ca_rad, cw_rad + + REAL, OPTIONAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , INTENT(INOUT) :: & + RDCASHTEN, RQCDCSHTEN + ! LOCAL VAR INTEGER :: i,j,itf,jtf @@ -3776,6 +3962,23 @@ SUBROUTINE shcu_init(STEPCU,CUDT,DT,RUSHTEN,RVSHTEN,RTHSHTEN, & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte ) + +#if ( EM_CORE == 1 ) + CASE (DENGSHCUSCHEME) + CALL deng_shcu_init(RTHSHTEN,RQVSHTEN,RQCSHTEN,RQRSHTEN, & + RUSHTEN,RVSHTEN,RDCASHTEN,RQCDCSHTEN,W0AVG, & + PBLHAVG, TKEAVG, & + cldareaa, cldareab, cldliqa, cldliqb, & + ca_rad, cw_rad, & + wub, pblmax, ltopb, clddpthb, cldtopb, & + capesave, ainckfsa, radsave, & + rainsh, rainshvb, kdcldtop, kdcldbas, & + xtime1, restart, & + SVP1,SVP2,SVP3,SVPT0, & + ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) +#endif CASE DEFAULT @@ -3807,6 +4010,7 @@ SUBROUTINE mp_init(RAINNC,SNOWNC,GRAUPELNC,config_flags,restart,warm_rain, USE module_mp_wsm3 USE module_mp_wsm5 USE module_mp_wsm6 + USE module_mp_wsm7 USE module_mp_etanew USE module_mp_fer_hires #if (NMM_CORE == 1) @@ -3817,10 +4021,12 @@ SUBROUTINE mp_init(RAINNC,SNOWNC,GRAUPELNC,config_flags,restart,warm_rain, USE module_mp_fast_sbm USE module_mp_morr_two_moment USE module_mp_p3 + USE module_mp_jensen_ishmael USE module_mp_milbrandt2mom ! USE module_mp_milbrandt3mom USE module_mp_wdm5 USE module_mp_wdm6 + USE module_mp_wdm7 USE module_mp_nssl_2mom #if (EM_CORE==1) USE module_mp_cammgmp_driver, ONLY:CAMMGMP_INIT !CAM5's microphysics @@ -3865,6 +4071,7 @@ SUBROUTINE mp_init(RAINNC,SNOWNC,GRAUPELNC,config_flags,restart,warm_rain, INTEGER :: i, j, itf, jtf REAL, DIMENSION(20) :: nssl_params INTEGER :: nssl_ipelec_tmp + INTEGER :: i_err warm_rain = .false. adv_moist_cond = .true. @@ -3922,6 +4129,8 @@ SUBROUTINE mp_init(RAINNC,SNOWNC,GRAUPELNC,config_flags,restart,warm_rain, CALL wsm5init(rhoair0,rhowater,rhosnow,cliq,cpv, allowed_to_read ) CASE (WSM6SCHEME) CALL wsm6init(rhoair0,rhowater,rhosnow,cliq,cpv, config_flags%hail_opt,allowed_to_read ) + CASE (WSM7SCHEME) + CALL wsm7init(rhoair0,rhowater,rhosnow,cliq,cpv, allowed_to_read ) CASE (ETAMPNEW) adv_moist_cond = .false. CALL etanewinit (MPDT,DT,DX,DY,LOWLYR,restart, & @@ -3975,12 +4184,15 @@ SUBROUTINE mp_init(RAINNC,SNOWNC,GRAUPELNC,config_flags,restart,warm_rain, CASE (MORR_TM_AERO) CALL morr_two_moment_init_aero( config_flags%morr_rimed_ice ) #endif + CASE (JENSEN_ISHMAEL) + CALL jensen_ishmael_init() + CASE (P3_1CATEGORY) - CALL p3_init('.',1) + CALL p3_init('.',1,'WRF',i_err,.false.) CASE (P3_1CATEGORY_NC) - CALL p3_init('.',1) + CALL p3_init('.',1,'WRF',i_err,.false.) CASE (P3_2CATEGORY) - CALL p3_init('.',2) + CALL p3_init('.',2,'WRF',i_err,.false.) CASE (MILBRANDT2MOM) CALL milbrandt2mom_init ! CASE (MILBRANDT3MOM) @@ -3990,6 +4202,8 @@ SUBROUTINE mp_init(RAINNC,SNOWNC,GRAUPELNC,config_flags,restart,warm_rain, CASE (WDM6SCHEME) CALL wdm6init(rhoair0,rhowater,rhosnow,cliq,cpv,ccn_conc, & config_flags%hail_opt, allowed_to_read ) + CASE (WDM7SCHEME) + CALL wdm7init(rhoair0,rhowater,rhosnow,cliq,cpv,ccn_conc, allowed_to_read ) #if (EM_CORE==1) CASE (FULL_KHAIN_LYNN) IF(start_of_simulation.or.restart)THEN diff --git a/phys/module_ra_goddard.F b/phys/module_ra_goddard.F index a7fbb26ebd..7773d646ac 100644 --- a/phys/module_ra_goddard.F +++ b/phys/module_ra_goddard.F @@ -2,13 +2,30 @@ !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD ! ------------------ Goddard Radiation Code --------------------------------- ! -! Purpose : -! Drive Goddard radiative transfer to compute radiative heating rate and surface radiation. +! Comments : +! This radiation scheme is originally developed for NASA Global Modeling (GEOS) +! by Ming-Dah Chou and Max Suarez. When the radiation code was incorporated into +! mesoscale model, Toshi Matsui optimized the code (1D driver) for high-resolution modeling, +! and eventually single-scattering properties of clouds and aerosols throuth +! the NASA-Unified WRF project. Radiation code update radiative heating rate and +! surface and TOA radiation fluxes. +! +! (Note module_ra_gsfcsw.F is similar SW version of goddard scheme, but it is +! OLD version so that some of gas molecular absorptions are missing or +! does not account for effect of solar zenith angle.) ! ! ! Method (Calling sequence) : +! +! init_goddardrad( initialize LUT ) +! !-- read_lut_nc (read single-scattering LUT in netcdf format ) +! +! ! goddardrad(preparation for radiative transfer) -! |-- o3_profile (intepolate ozone profile) +! !-- sounding_interp (interpolate sounding climatology) +! |-- ozone_interp (intepolate ozone profile) +! |-- opt_cloud( derive cloud optiacl properties ) +! |-- aero_opt( derive aerosol optiacl properties ) from module_gocart_coupling.F ! |-- swrad(compute SW radiative transfer) ! | |-- sw_uvpar(compute SW radiative transfer for UV band) ! | | |-cloud_scale(scale cloud optical thickness for diffuse/direct radiation) @@ -18,7 +35,7 @@ ! | | |-cloud_scale(scale cloud optical thickness for diffuse/direct radiation) ! | | |-delta_eddington(delta-eddington approximation for the bulk scattering properties) ! | | |-twostream_adding(compute updown fluxes using two-stream adding method) -! | |-- rflx(compute the reduction of clear-sky downward solar flux) +! | |-- reduce_flux(compute the reduction of clear-sky downward solar flux) ! | ! |-- lwrad(compute LW radiative transfer) ! |-- column(compute column-integrated amount of absorber) @@ -41,73 +58,145 @@ ! ! ! History : -! Aug 2007 , Toshi Matsui : One-dimensinalized swrad to skip swrad in night. -! Jun 2007 , Toshi Matsui ; Revise broadband flux reduction to avoid negative SW heating. -! May 2007 , Toshi Matsui ; Made driver to plug WRF, GOCCART module, and F90 revision. -! Apr 2007 , Toshi Matsui ; SW radiation routine is optimized (add fast_overcast option for CRM). -! 1996 ~ 2002 , Ming-dah Chou and Max Suarez ; initial and misc changes -! -! -! Refferences : -! Chou M.-D., and M. J. Suarez, 1999: A solar radiation parameterization for atmospheric studies. -! NASA Tech. Rep. NASA/TM-1999-10460, vol. 15, 38 pp +! Nov 2017 , Toshi Matsui : scattering LUT is unified for single NetCDF file. +! Nov 2017 , M.D. Chou : Upgraded gas absorption from HITRAN 1996 to 2012. +! Oct 2016 , Jarno Mielikainen : Additional code optimization by adding vectorization (x1.17 for SW, x 1.7 for LW) +! July 2015 , Toshi Matsui : mcdat_int is io parameter now for running hybrid MPI/OMP +! Feb 2014 , Toshi Matsui : Optimization of new single scattering routine is done. +! Also modified new IO parameters (re3d, aod, and cod). +! Added additional SW flux paarameters for WRF v3.5.1 radiation driver. +! Aug 2013 , Toshi Matsui : Completely revisied single-scattering tables that is now +! identical to G-SDSU (satellite simulator). For this change, +! original hydrometero single-scattering values are removed, and now +! WRF must call init_goddardrad for initializing single-scattering LUT. +! So I removed cwc and reff inputs for swrad/lwrad subroutine. +! So far this only apply to cloud species, and aerosol are yet testing. +! Feb 2011 , Toshi Matsui : New optimization (skip nighttime completely for SW routine). +! Now wrapper routine are single precision, while +! routine under swrad and lwrad are double precision. +! Stratosphere option was removed. +! Feb 2011 , Toshi Matsui&Roger Shi : Slight modification for online-gocart coupling. +! Oct 2008 , Toshi Matsui : All real parameters becomes double precision for stability. +! Jun 2008 , Toshi Matsui : Sounding interp is called only for each j_loop +! Jun 2008 , Toshi Matsui : Vector loop (m) was completely removed, now radiation code is +! compltely 1dimensionalized (-> 30~40% speed up with O3 optimization) +! Apr 2008 , Toshi Matsui : Add stratosphere layrs options +! Aug 2007 , Toshi Matsui : One-dimensinalized swrad to skip swrad for nighttime. +! Jun 2007 , Toshi Matsui ; Revise broadband flux reduction to avoid negative SW heating. +! May 2007 , Toshi Matsui ; Made driver to plug WRF, GOCCART module, and F90 revision. +! Apr 2007 , Toshi Matsui ; SW radiation routine is optimized (add fast_overcast option for CRM). +! ~ 2002 , Ming-Dah Chou and Max Suarez ; initial development. +! +! +! References (Radiation Physics Scheme): ! Chou M.-D., and M. J. Suarez, 2001: A thermal infrared radiation parameterization for atmospheric ! studies. NASA/TM-2001-104606, vol. 19, 55pp -! Matsui, T., W.-K. Tao, and J. J. Shi: 2007: Goddard Radiation and Aerosol Direct Effect in Goddard -! WRF, NASA/UMD WRF Meeting, Sep 14 2007. -! Shi, J. J., W.-K. Tao, T. Matsui, R. Cifelli, A. Hou, S. Lang, A. Tokey, N.-Y. Wang, -! C. Peters-Lidard, G. Jackson, S. Rutledge, W. Petersen, 2010: WRF Simulations of the -! 20-22 January 2007 Snow Events over Eastern Canada: Comparison with in-situ and Satellite -! Observations. J. Applied Meteor. Climatol, 49, 2246-2266. +! Chou M.-D., and M. J. Suarez, 1999: A solar radiation parameterization for atmospheric studies. +! NASA Tech. Rep. NASA/TM-1999-10460, vol. 15, 38 pp ! ! -! Bug report: -! If you find any bug, please report to -! Toshi Matsui @ NASA GSFC, email:toshihisa.matsui-1@nasa.gov -! Jainn J. Shi @ NASA GSFC, email:jainn.j.shi@nasa.gov +! References (Application): +! Matsui, T., S. Q. Zhang, W.-K. Tao, S. Lang, C. Ichoku, and C. Peters-Lidard (2018), +! Impact of Radiation Frequency, Precipitation Radiative Forcing, and Radiation Column Aggregation +! on Convection-Permitting West African Monsoon Simulations, +! Climate Dynamics, 1-21, https://doi.org/10.1007/s00382-018-4187-2 +! Shi, J. J., T. Matsui, W.-K. Tao, C. Peters-Lidard, M. Chin1, Q. Tan, and E. Kemp (2014), +! Implementation of an Aerosol-Cloud Microphysics-Radiation Coupling into the NASA Unified WRF: +! Simulation Results for the 6-7 August 2006 AMMA Special Observing Period, Quarterly Journal +! of the Royal Meteorological Society. doi: 10.1002/qj.2286 +! Ma, P.-L., K. Zhang, J.-J. Shi, T. Matsui, A. Arking, (2012): Direct Radiative Effect of Mineral Dust +! on the Development of African Easterly Wave in Late Summer, 2003-2007, Journal of Applied Meteorology +! and Climatology, 51, 2090-2104. +! +! Shi, J. J., W.-K. Tao, T. Matsui, A. Hou, S. Lang, C. Peters-Lidard, G. Jackson, R. Cifelli, S. Rutledge, +! and W. Petersen (2010), Microphysical Properties of the January 20-22 2007 Snow Events over Canada: +! Comparison with in-situ and Satellite Observations. Journal of Applied Meteorology and Climatology. +! 49(11), 2246-2266 +! +! Bug report: +! If you find any bug of Goddard Radiation in WRF, please report to +! Toshi Matsui @ NASA GSFC, email: Toshihisa.Matsui-1@nasa.gov ! -! We will report bugs to -! Ming-Dah Chou @ National Taiwa University mdchou@webmail.as.ntu.edu.tw !--------------------------------------------------------------------------------------------------------- module module_ra_goddard + use module_wrf_error + use module_checkerror +#if (WRF_CHEM == 1) + use module_gocart_coupling +#endif + implicit none + + INTEGER, PARAMETER, PRIVATE:: CHUNK = 16 !size of vector (16 is optimized number for Haswell/Broadwell CPUs. + +! ! encapsulation control +! private !-> privatize all variables in this module excepting public parameter (subroutine) below. - public :: goddardrad !only this subroutine can be called from other module + public :: init_goddardrad, goddardrad !only this subroutine can be called from other module - integer,parameter :: fp_kind = selected_real_kind(15) !Real precision (6-single 15-double 20-quad) +!integer,parameter :: fp_kind = SELECTED_REAL_KIND( 6, 37) !single precision precision kind + integer,parameter :: fp_kind = SELECTED_REAL_KIND(15,307) !double precision precision kind -!------------------------------------------------------------------------------- -!--------------------- User Modification ----------------------------------- - -! (Both SW and LW radiation option) -! there is an option of providing either cloud ice/water mixing ratio -! (cwc) or optical thickness (taucld). if the former is provided, set -! cldwater=.true., and taucld is computed from cwc and reff as a -! function of spectra band. otherwise, set cldwater=.false., and -! specify taucld, independent of spectral band. - - logical,parameter :: cldwater = .true. !ALWAYS .true. - -! (Both SW and LW radiation option) -! in a high spatial-resolution atmospheric model, fractional cloud cover -! might be computed to be either 0 or 1. in such a case, scaling of the -! cloud optical thickness is not necessary, and the computation can be -! made faster by setting overcast=.true. otherwise, set the option -! overcast=.false. (-> hardwire with WRF module) - logical,parameter :: overcast = .true. ! recommend true for CRM or LES +! +! If one, this logical parameter allow to check anomalous value of input parameters. +! + logical,parameter :: NUWRF_DEBUG = .false. + +! +! hydrometeor single scattering properties. If true (default), optical properties of +! precipitating species (rain, snow, graupel, hail) are computed. If false, only non-precipitating +! hydrometeor (cloud , ice crystals) are accounted like GCM. +! + logical,parameter :: opt_account_precip = .true. + ! (SW radition option) -! For overcast (=true) option, this option (fast_overcast=.true.) skip the clear-sky -! two-stream radiative transfer computation, and only compute cloudy ski option. +! For overcast (=true) option, this option is always true, which skip the clear-sky +! two-stream radiative transfer computation, and only compute cloudy ski option. ! Fclear/Fcloud is estimated from pre-computed look-up table for the below cloud ! flux reduction due to CO2 and O2. So, this option make SW radiation faster 1.5 time. -! Difference in surface downwelling radiation betweeen true and false option is less than 1.W/m^2. - - logical,parameter :: fast_overcast = .true. ! recommend true +! Difference in surface downwelling radiation betweeen true and false option is less than 1.W/m^2. + logical :: fast_overcast ! (LW radiation option) +! if trace = .true., absorption due to n2o, ch4, cfcs, and the +! two minor co2 bands in the LW window region is included. +! if trace = .false., absorption in those minor bands is neglected. + + logical,parameter :: trace = .true. !recommend true + + real(Kind=fp_kind), parameter :: co2 = 401.30e-6 !336.77e-6 ! co2 concentration [ppv] (Y1850 = 285.43e-6) + real(Kind=fp_kind), parameter :: n2o = 0.32e-6 ! n2o concentration [ppv] (Y1850 = 0.28e-6) + real(Kind=fp_kind), parameter :: ch4 = 1.79e-6 ! ch4 concentration [ppv] (Y1850 = 0.86e-6) + real(Kind=fp_kind), parameter :: cfc11 = 268.0e-12 ! cfc11 concentration [ppv] (Y1850 = 0.) + real(Kind=fp_kind), parameter :: cfc12 = 503.0e-12 ! cfc12 concentration [ppv] (Y1850 = 0.) + real(Kind=fp_kind), parameter :: cfc22 = 105.0e-12 ! cfc22 concentration [ppv] (Y1850 = 0.) + + +! (Both SW and LW radiation option) +! in a high spatial-resolution atmospheric model, fractional cloud cover +! might be computed to be either 0 or 1. in such a case, scaling of the +! cloud optical thickness is not necessary, and the computation can be +! made faster by setting overcast=.true. otherwise, set the option +! overcast=.false. (-> hardwire with WRF module) + + logical,parameter :: overcast = .true. ! true for CRM or LES + +! +! Radiation scheme here is 1D radiation same as common radiation scheme used in various +! atmospheric model. In this scheme, when dx become a few km, many 1D assumption will be +! invalid. So, this skip option will aggregate evey NxN horizontal grid to compute averaged +! flux and heating ratio. This N size can be 1(no aggregation), 2(2x2=4grids), or 3(3x3=9grid) +! determined by N = ij_skip = NINT(6000/dx), when iskip (= goddardrad_skip) = 1 +! Overall, this option (depending on your dx) will gain ~ 5x speed, suitable for high-res +! weather forecasting or regiona climate model. +! + logical :: radiation_skip ! if on skip option will be activated (fast) + +! +! -LW radiation option- ! if high = .true., transmission functions in the co2, o3, and the ! three water vapor bands with strong absorption are computed using ! table look-up. cooling rates are computed accurately from the @@ -116,74 +205,922 @@ module module_ra_goddard ! if high = .false., transmission functions in LW radiation are computed using the ! k-distribution method with linear pressure scaling for all spectral ! bands and gases. cooling rates are not accurately calculated for -! pressures less than 10 mb. But, the computationally slightly cheap. +! pressures less than 10 mb. But, the computationally cheap for LW radiation. +! + ! NUWRF EMK 2 March 2015...Changed to true per instructions from Toshi. + logical,parameter :: high = .false. ! about a few W/m2 difference in typical WRF run + ! so just false for a bit faster simulation. - logical,parameter :: high = .false. !recommend false for CRM - !recommend true if you include storatosphere (<10mb) -! (LW radiation option) -! if trace = .true., absorption due to n2o, ch4, cfcs, and the -! two minor co2 bands in the LW window region is included. -! if trace = .false., absorption in those minor bands is neglected. +! +! Threshold values +! - Do not change. These values are the lowest threshold, while avoiding numerical instability. + real , parameter :: cosz_min = 0.0001 ! threshold of minimum cos of solar zenith angle for SW rad + real(Kind=fp_kind), parameter :: fcld_min = 0.01 ! threshold of minimum cloud fraction for account clooud + real(Kind=fp_kind), parameter :: taux_min = 0.0001 ! threshold of minimum optical depth for accouting cloud (0.02) + real(Kind=fp_kind), parameter :: opt_min = 1.e-6 ! threshold of optical properties to avoid numerical instability. + real(Kind=fp_kind), parameter :: ssa_min = 0.e0 !minimamum of single scattering albedo + real(Kind=fp_kind), parameter :: ssa_max = 0.999999e0 !maximum of single scattering albedo + real(Kind=fp_kind), parameter :: asy_min = -1.e0 !minimum of asymetry parameter + real(Kind=fp_kind), parameter :: asy_max = 1.e0 !maximum of asymetry parameter + real(Kind=fp_kind), parameter :: const_tiny = tiny(1.) !maximum of asymetry parameter - logical,parameter :: trace = .true. !recommend true + real,parameter :: q_min_condensate = 1.0e-5 ! siginificant minimum hydrometeor mixing ratio [g/m3] + real,parameter :: q_min_aerosol = 1.0e-8 ! siginificant minimum aerosol mixing ratio [g/m3] + real,parameter :: const_pi = 3.14159265e0 - real(Kind=fp_kind), parameter :: co2 = 336.77e-6 ! co2 concentration [ppv] (Y1850 = 285.43e-6) - real(Kind=fp_kind), parameter :: n2o = 0.32e-6 ! n2o concentration [ppv] (Y1850 = 0.28e-6) - real(Kind=fp_kind), parameter :: ch4 = 1.79e-6 ! ch4 concentration [ppv] (Y1850 = 0.86e-6) - real(Kind=fp_kind), parameter :: cfc11 = 268.0e-12 ! cfc11 concentration [ppv] (Y1850 = 0.) - real(Kind=fp_kind), parameter :: cfc12 = 503.0e-12 ! cfc12 concentration [ppv] (Y1850 = 0.) - real(Kind=fp_kind), parameter :: cfc22 = 105.0e-12 ! cfc22 concentration [ppv] (Y1850 = 0.) +! +! New unified single scalttering properties. +! + logical,parameter :: new_method_aero = .false. !defaut is false in march 2014 (Toshi Matsui) -! some tuning parameters - real(Kind=fp_kind), parameter :: re = 10. ! cloud droplet effective radius [micron] -!--------------------- End of User Modification ----------------------------- -!------------------------------------------------------------------------------- +! +! hydrometeor index +! + integer,parameter :: id_hmax = 6 ! total number of hydrometeor species id maxima + integer,parameter :: id_ice = 1 + integer,parameter :: id_cloud = 2 + integer,parameter :: id_rain = 3 + integer,parameter :: id_snow = 4 + integer,parameter :: id_graupel = 5 + integer,parameter :: id_hail = 6 + +! +! generalized 1- or 2-moment 6-class microphysics parameters with generalized gamma distribution +! + type particle_gen !gen paticle type + real:: cloud,rain,ice,snow,graupel,hail + end type particle_gen + +! +! GOCART 1-moment aerosol microphysics parameters +! + integer,parameter :: id_amax = 14 ! total number of hydrometeor species id maxima + + type particle_gocart !GOCART paticle type + real :: so4,blc,ocn,och,ssa,ssc,du1,du2,du3,du4,du5,du6,du7,du8 + end type particle_gocart + + character(len=200) :: sdsu_io_file + +! +! Single-scattering look-up tables (final dimension is 1-SW, 2-LW) +! +! NUWRF EMK...Change path to GODDARDRAD_SSLUT to immediate subdirectory, which +! can be symbolic link to actual location. Allows for more flexibility in +! where to run wrf.exe. + character(len=200),parameter :: dir_lut = './' !directory of single scattering tables are now in running directory. + + type ( particle_gen ),allocatable,dimension(:,:,:) :: & ! particle_gen is defined in module_simulater + kext_lut_gen, & ! extinction coefficient [km-1 / (g/m3) ]! dimension( mxpts_re_visir, mxband, 2) + salb_lut_gen, & ! single scattering albedo [-] + asym_lut_gen ! asymetry parameter [-] + + real,allocatable,dimension(:,:,:) :: & !single scattering properties for solar radiation + kext_sw_cloud, & ! extinction coefficient [km-1 / (g/m3) ] + salb_sw_cloud, & ! single scattering albedo [-] + asym_sw_cloud ! asymetry parameter [-] + + real,allocatable,dimension(:,:,:) :: & !single scattering properties for thermal radiation + kext_lw_cloud, & ! extinction coefficient [km-1 / (g/m3) ] + salb_lw_cloud, & ! single scattering albedo [-] + asym_lw_cloud ! asymetry parameter [-] + + + type ( particle_gocart ),allocatable,dimension(:,:,:) :: & ! particle_gocart is defined in module_simulater + kext_lut_gocart, & ! extinction coefficient [km-1 / (g/m3) ]! dimension( mxpts_re_visir, mxband, 2) + salb_lut_gocart, & ! single scattering albedo [-] + asym_lut_gocart ! asymetry parameter [-] + + integer,parameter :: nband_sw = 11 !# of SW radiative band + integer,parameter :: nband_lw = 10 ! # of LW radiation band + integer,parameter :: mxib = 2 ! # of separation of broad-band category (2 for goddardrad) + +! +! LUT bins for visible-IR and lidar simulators +! + integer, parameter :: mxpts_re_visir = 109 ! LUT dimension for effective radius [micron] + real, parameter :: pts_re_visir(mxpts_re_visir) = & ! LUT re vector [micron] for frozen hydrometeors + (/ 1.0e-2, 1.5e-2, 2.0e-2, 2.5e-2, 3.0e-2, 3.5e-2, 4.0e-2, 4.5e-2, 5.0e-2, & + 5.5e-2, 6.0e-2, 6.5e-2, 7.0e-2, 7.5e-2, 8.0e-2, 8.5e-2, 9.0e-2, 9.5e-2, & + 1.0e-1, 1.5e-1, 2.0e-1, 2.5e-1, 3.0e-1, 3.5e-1, 4.0e-1, 4.5e-1, 5.0e-1, & + 5.5e-1, 6.0e-1, 6.5e-1, 7.0e-1, 7.5e-1, 8.0e-1, 8.5e-1, 9.0e-1, 9.5e-1, & + 1.0e-0, 1.5e-0, 2.0e-0, 2.5e-0, 3.0e-0, 3.5e-0, 4.0e-0, 4.5e-0, 5.0e-0, & + 5.5e-0, 6.0e-0, 6.5e-0, 7.0e-0, 7.5e-0, 8.0e-0, 8.5e-0, 9.0e-0, 9.5e-0, & + 1.0e+1, 1.5e+1, 2.0e+1, 2.5e+1, 3.0e+1, 3.5e+1, 4.0e+1, 4.5e+1, 5.0e+1, & + 5.5e+1, 6.0e+1, 6.5e+1, 7.0e+1, 7.5e+1, 8.0e+1, 8.5e+1, 9.0e+1, 9.5e+1, & + 1.0e+2, 1.5e+2, 2.0e+2, 2.5e+2, 3.0e+2, 3.5e+2, 4.0e+2, 4.5e+2, 5.0e+2, & + 5.5e+2, 6.0e+2, 6.5e+2, 7.0e+2, 7.5e+2, 8.0e+2, 8.5e+2, 9.0e+2, 9.5e+2, & + 1.0e+3, 1.5e+3, 2.0e+3, 2.5e+3, 3.0e+3, 3.5e+3, 4.0e+3, 4.5e+3, 5.0e+3, & + 5.5e+3, 6.0e+3, 6.5e+3, 7.0e+3, 7.5e+3, 8.0e+3, 8.5e+3, 9.0e+3, 9.5e+3, & + 1e+4 /) + + + integer, parameter :: mxpts_rh = 36 ! LUT dimension for relative humidity [fraction] + real, parameter :: pts_rh(mxpts_rh) = & ! LUT rh vector for aerosol particles + (/ 0.00, 0.05, 0.10, 0.15, 0.20, 0.25, 0.30, 0.35, 0.40, 0.45, & + 0.50, 0.55, 0.60, 0.65, 0.70, 0.75, 0.80, 0.81, 0.82, 0.83, & + 0.84, 0.85, 0.86, 0.87, 0.88, 0.89, 0.90, 0.91, 0.92, 0.93, & + 0.94, 0.95, 0.96, 0.97, 0.98, 0.99 /) + + + + +! bundled scattering array (mxpts_re_visir, max_spc, nband, mxisl ) + real,allocatable :: kext_q_unit_array (:,:,:,:) ! extinction cross section per unit mass [km-1 / (g/m3) ] + real,allocatable :: omega_array (:,:,:,:) ! signle scattering albedo [-] + real,allocatable :: asym_array (:,:,:,:) ! asymetry parameter (forward scattering fraction) [-] + + real,allocatable :: kext_q_unit_aero_array (:,:,:,:) ! extinction cross section per unit mass [km-1 / (g/m3) ] + real,allocatable :: omega_aero_array (:,:,:,:) ! signle scattering albedo [-] + real,allocatable :: asym_aero_array (:,:,:,:) ! asymetry parameter (forward scattering fraction) [-] + + + +! +! ----------- Mclatchy Sounding climatology ------------------------ +! + + integer :: ilev, ifld + integer, parameter :: ilev_max = 33 !sounding vertical layer # + real,dimension(ilev_max,10,6) :: mcdat !Mclatchy Sounding climatology + +! +! ifield Parameters +! 1 : Height (m) +! 2 : pressure (Pa) +! 3 : air temp (K) +! 4 : vapor density (kg/m3) +! 5 : ozone density (kg/m3) +! 6 : air density (kg/m3) +! +! -- Definition of latitude for each regime +! 90 deg -- Arctic (1~2) +! 67.5deg -- Sub-Arctic (3~4) +! 45 deg -- Mid-latitude (5~6) +! 22.5deg -- Sub-Tropics (7~8) +! 0. deg -- Tropics (9~10) +! +! arctic winter +data ((mcdat(ilev,1,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101350.0, 249.1, .1201E-02, .4105E-07, .1417E+01, & + 1000., 88416.0, 252.2, .1190E-02, .4067E-07, .1221E+01, & + 2000., 77213.0, 250.9, .1014E-02, .4036E-07, .1072E+01, & + 3000., 67274.0, 245.4, .7333E-03, .4221E-07, .9549E+00, & + 4000., 58431.0, 239.9, .4471E-03, .4384E-07, .8485E+00, & + 5000., 50583.0, 234.4, .2254E-03, .4527E-07, .7518E+00, & + 6000., 43640.0, 228.9, .9344E-04, .4681E-07, .6643E+00, & + 7000., 37520.0, 223.4, .3123E-04, .6740E-07, .5852E+00, & + 8000., 32171.0, 217.9, .1248E-04, .8508E-07, .5139E+00, & + 9000., 27435.0, 214.9, .7875E-05, .1505E-06, .4448E+00, & + 10000., 23398.0, 214.4, .5161E-05, .2248E-06, .3802E+00/ +data ((mcdat(ilev,1,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 19951.0, 213.9, .3533E-05, .2983E-06, .3249E+00, & + 12000., 17008.0, 213.2, .2393E-05, .3988E-06, .2779E+00, & + 13000., 14490.0, 212.4, .1538E-05, .4330E-06, .2376E+00, & + 14000., 12338.0, 211.6, .1005E-05, .4477E-06, .2031E+00, & + 15000., 10499.0, 210.9, .6644E-06, .5076E-06, .1735E+00, & + 16000., 8929.0, 210.1, .5438E-06, .5554E-06, .1481E+00, & + 17000., 7590.0, 209.3, .4610E-06, .5497E-06, .1264E+00, & + 18000., 6450.0, 208.4, .3906E-06, .5442E-06, .1078E+00, & + 19000., 5475.0, 207.7, .3307E-06, .5208E-06, .9185E-01, & + 20000., 4648.0, 207.6, .2800E-06, .4809E-06, .7797E-01, & + 21000., 3945.0, 207.6, .2373E-06, .4337E-06, .6619E-01/ +data ((mcdat(ilev,1,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3349.0, 207.6, .2014E-06, .3961E-06, .5619E-01, & + 23000., 2843.0, 207.6, .1705E-06, .3594E-06, .4770E-01, & + 24000., 2414.0, 207.6, .1443E-06, .2986E-06, .4050E-01, & + 25000., 2050.0, 207.6, .1226E-06, .2633E-06, .3439E-01, & + 30000., 905.1, 207.6, .5169E-07, .1178E-06, .1519E-01, & + 35000., 417.1, 213.9, .2317E-07, .7227E-07, .6804E-02, & + 40000., 199.0, 225.6, .1045E-07, .3221E-07, .3075E-02, & + 45000., 98.8, 237.7, .4933E-08, .1021E-07, .1449E-02, & + 50000., 50.8, 248.2, .2412E-08, .3378E-08, .7094E-03, & + 70000., 3.5, 235.3, .1791E-09, .6756E-10, .5259E-04, & + 103000., .1, 201.2, .1571E-11, .3378E-13, .4617E-06/ +! arctic summer +data ((mcdat(ilev,2,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101250.0, 278.1, .9164E-02, .4935E-07, .1265E+01, & + 1000., 89502.0, 275.5, .5963E-02, .5366E-07, .1129E+01, & + 2000., 79020.0, 272.9, .4173E-02, .5564E-07, .1007E+01, & + 3000., 69671.0, 268.4, .2664E-02, .5743E-07, .9030E+00, & + 4000., 61250.0, 261.9, .1630E-02, .5926E-07, .8141E+00, & + 5000., 53667.0, 255.4, .9583E-03, .6303E-07, .7317E+00, & + 6000., 46862.0, 248.9, .5328E-03, .6966E-07, .6558E+00, & + 7000., 40778.0, 242.4, .2829E-03, .7316E-07, .5861E+00, & + 8000., 35349.0, 235.9, .1262E-03, .7668E-07, .5221E+00, & + 9000., 30525.0, 229.4, .4040E-04, .1063E-06, .4636E+00, & + 10000., 26261.0, 226.7, .1681E-04, .1249E-06, .4036E+00/ +data ((mcdat(ilev,2,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 22598.0, 227.7, .8268E-05, .1739E-06, .3458E+00, & + 12000., 19460.0, 228.6, .4072E-05, .2036E-06, .2965E+00, & + 13000., 16770.0, 229.6, .2006E-05, .2532E-06, .2544E+00, & + 14000., 12469.0, 230.1, .7442E-06, .2043E-06, .1887E+00, & + 15000., 10752.0, 230.1, .5726E-06, .2358E-06, .1628E+00, & + 16000., 9273.0, 230.1, .4935E-06, .2508E-06, .1404E+00, & + 17000., 7999.0, 230.1, .4274E-06, .2899E-06, .1211E+00, & + 18000., 6898.0, 230.1, .3693E-06, .3065E-06, .1044E+00, & + 19000., 5950.0, 230.1, .3198E-06, .3085E-06, .9007E-01, & + 20000., 5232.0, 230.1, .2823E-06, .3016E-06, .7769E-01, & + 21000., 4428.0, 230.1, .2395E-06, .2746E-06, .6702E-01/ +data ((mcdat(ilev,2,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3819.0, 230.1, .2071E-06, .2454E-06, .5781E-01, & + 23000., 3295.0, 230.7, .1788E-06, .2312E-06, .4976E-01, & + 24000., 2845.0, 231.9, .1538E-06, .2176E-06, .4274E-01, & + 25000., 2459.0, 233.1, .1330E-06, .2035E-06, .3674E-01, & + 30000., 1198.0, 239.1, .9439E-07, .1662E-06, .1746E-01, & + 35000., 591.0, 251.6, .3335E-07, .8225E-07, .8631E-02, & + 40000., 304.0, 266.9, .1618E-07, .3666E-07, .4442E-02, & + 45000., 161.8, 278.9, .8288E-08, .1162E-07, .2371E-02, & + 50000., 88.2, 281.8, .4443E-08, .3844E-08, .1288E-02, & + 70000., 6.3, 220.6, .4068E-09, .7689E-10, .9227E-04, & + 104000., .1, 213.1, .1788E-11, .3844E-13, .6525E-06/ +! sub-arctic winter +data ((mcdat(ilev,3,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101300.0, 257.1, .1200E-02, .4100E-07, .1372E+01, & + 1000., 88780.0, 259.1, .1200E-02, .4100E-07, .1193E+01, & + 2000., 77750.0, 256.4, .1030E-02, .4100E-07, .1058E+01, & + 3000., 67980.0, 252.2, .7470E-03, .4300E-07, .9366E+00, & + 4000., 59320.0, 246.8, .4590E-03, .4500E-07, .8339E+00, & + 5000., 51580.0, 240.6, .2340E-03, .4700E-07, .7457E+00, & + 6000., 44670.0, 233.9, .9780E-04, .4900E-07, .6646E+00, & + 7000., 38530.0, 227.1, .3290E-04, .7100E-07, .5904E+00, & + 8000., 33080.0, 220.4, .1320E-04, .9000E-07, .5226E+00, & + 9000., 28290.0, 217.1, .8370E-05, .1600E-06, .4538E+00, & + 10000., 24180.0, 217.1, .5510E-05, .2400E-06, .3879E+00/ +data ((mcdat(ilev,3,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 20670.0, 217.1, .3790E-05, .3200E-06, .3315E+00, & + 12000., 17660.0, 217.1, .2580E-05, .4300E-06, .2834E+00, & + 13000., 15100.0, 217.1, .1670E-05, .4700E-06, .2422E+00, & + 14000., 12910.0, 217.1, .1100E-05, .4900E-06, .2071E+00, & + 15000., 11030.0, 217.0, .7330E-06, .5600E-06, .1770E+00, & + 16000., 9431.0, 216.7, .6070E-06, .6200E-06, .1517E+00, & + 17000., 8058.0, 216.1, .5200E-06, .6200E-06, .1300E+00, & + 18000., 6882.0, 215.5, .4450E-06, .6200E-06, .1113E+00, & + 19000., 5875.0, 214.9, .3810E-06, .6000E-06, .9529E-01, & + 20000., 5014.0, 214.3, .3260E-06, .5600E-06, .8155E-01, & + 21000., 4277.0, 213.7, .2790E-06, .5100E-06, .6976E-01/ +data ((mcdat(ilev,3,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3647.0, 213.1, .2390E-06, .4700E-06, .5966E-01, & + 23000., 3109.0, 212.5, .2040E-06, .4300E-06, .5100E-01, & + 24000., 2649.0, 212.0, .1740E-06, .3600E-06, .4358E-01, & + 25000., 2256.0, 211.9, .1490E-06, .3200E-06, .3722E-01, & + 30000., 1020.0, 216.6, .6580E-07, .1500E-06, .1645E-01, & + 35000., 470.1, 223.1, .2950E-07, .9200E-07, .7368E-02, & + 40000., 224.3, 235.3, .1330E-07, .4100E-07, .3330E-02, & + 45000., 111.3, 247.9, .6280E-08, .1300E-07, .1569E-02, & + 50000., 57.2, 258.9, .3070E-08, .4300E-08, .7682E-03, & + 70000., 4.0, 245.4, .2280E-09, .8600E-10, .5695E-04, & + 103000., .1, 209.9, .2000E-11, .4300E-13, .5000E-06/ +! sub-arctic summer +data ((mcdat(ilev,4,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101000.0, 287.0, .9100E-02, .4900E-07, .1220E+01, & + 1000., 89600.0, 281.7, .6000E-02, .5400E-07, .1110E+01, & + 2000., 79290.0, 276.4, .4200E-02, .5600E-07, .9971E+00, & + 3000., 70000.0, 271.1, .2690E-02, .5800E-07, .8985E+00, & + 4000., 61600.0, 265.7, .1650E-02, .6000E-07, .8077E+00, & + 5000., 54100.0, 259.8, .9730E-03, .6400E-07, .7244E+00, & + 6000., 47300.0, 252.8, .5430E-03, .7100E-07, .6519E+00, & + 7000., 41300.0, 245.8, .2900E-03, .7500E-07, .5849E+00, & + 8000., 35900.0, 238.8, .1300E-03, .7900E-07, .5231E+00, & + 9000., 31070.0, 231.8, .4180E-04, .1100E-06, .4663E+00, & + 10000., 26770.0, 225.6, .1750E-04, .1300E-06, .4142E+00/ +data ((mcdat(ilev,4,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 23000.0, 225.0, .8560E-05, .1800E-06, .3559E+00, & + 12000., 19770.0, 225.0, .4200E-05, .2100E-06, .3059E+00, & + 13000., 17000.0, 225.0, .2060E-05, .2600E-06, .2630E+00, & + 14000., 14600.0, 225.0, .1020E-05, .2800E-06, .2260E+00, & + 15000., 12500.0, 225.0, .7770E-06, .3200E-06, .1943E+00, & + 16000., 10801.0, 225.0, .6690E-06, .3400E-06, .1671E+00, & + 17000., 9280.0, 225.0, .5750E-06, .3900E-06, .1436E+00, & + 18000., 7980.0, 225.0, .4940E-06, .4100E-06, .1235E+00, & + 19000., 6860.0, 225.0, .4250E-06, .4100E-06, .1062E+00, & + 20000., 5890.0, 225.0, .3650E-06, .3900E-06, .9128E-01, & + 21000., 5070.0, 225.0, .3140E-06, .3600E-06, .7849E-01/ +data ((mcdat(ilev,4,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4360.0, 225.1, .2700E-06, .3200E-06, .6750E-01, & + 23000., 3750.0, 225.5, .2320E-06, .3000E-06, .5805E-01, & + 24000., 3227.0, 226.6, .1980E-06, .2800E-06, .4963E-01, & + 25000., 2780.0, 227.9, .1700E-06, .2600E-06, .4247E-01, & + 30000., 1340.0, 234.9, .7950E-07, .1400E-06, .1338E-01, & + 35000., 661.0, 247.2, .3730E-07, .9200E-07, .6614E-02, & + 40000., 340.0, 262.3, .1810E-07, .4100E-07, .3404E-02, & + 45000., 181.0, 274.1, .9270E-08, .1300E-07, .1817E-02, & + 50000., 98.7, 276.9, .4970E-08, .4300E-08, .9868E-03, & + 70000., 7.1, 216.8, .4550E-09, .8600E-10, .7071E-04, & + 104000., .1, 209.4, .2000E-11, .4300E-13, .5000E-06/ +! mid-latitude winter +data ((mcdat(ilev,5,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101800.0, 272.2, .3500E-02, .6000E-07, .1301E+01, & + 1000., 89730.0, 268.7, .2500E-02, .5400E-07, .1162E+01, & + 2000., 78970.0, 265.2, .1800E-02, .4900E-07, .1037E+01, & + 3000., 69380.0, 261.2, .1160E-02, .4900E-07, .9230E+00, & + 4000., 60810.0, 255.7, .6900E-03, .4900E-07, .8282E+00, & + 5000., 53130.0, 249.6, .3780E-03, .5800E-07, .7411E+00, & + 6000., 46270.0, 243.6, .1890E-03, .6400E-07, .6614E+00, & + 7000., 40160.0, 237.6, .8570E-04, .7700E-07, .5886E+00, & + 8000., 34730.0, 231.6, .3500E-04, .9000E-07, .5222E+00, & + 9000., 29920.0, 225.6, .1600E-04, .1200E-06, .4619E+00, & + 10000., 25680.0, 220.6, .7500E-05, .1600E-06, .4072E+00/ +data ((mcdat(ilev,5,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 21990.0, 219.2, .4440E-05, .2100E-06, .3496E+00, & + 12000., 18820.0, 218.7, .2720E-05, .2600E-06, .2999E+00, & + 13000., 16100.0, 218.2, .1720E-05, .3000E-06, .2572E+00, & + 14000., 13780.0, 217.7, .1130E-05, .3200E-06, .2206E+00, & + 15000., 11780.0, 217.2, .7640E-06, .3400E-06, .1890E+00, & + 16000., 10070.0, 216.7, .6480E-06, .3600E-06, .1620E+00, & + 17000., 8610.0, 216.2, .5550E-06, .3900E-06, .1388E+00, & + 18000., 7350.0, 215.7, .4750E-06, .4100E-06, .1188E+00, & + 19000., 6280.0, 215.4, .4060E-06, .4300E-06, .1017E+00, & + 20000., 5370.0, 215.2, .3040E-06, .4500E-06, .8690E-01, & + 21000., 4580.0, 215.2, .2970E-06, .4300E-06, .7421E-01/ +data ((mcdat(ilev,5,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3910.0, 215.2, .2530E-06, .4300E-06, .6338E-01, & + 23000., 3340.0, 215.2, .2160E-06, .3900E-06, .5415E-01, & + 24000., 2860.0, 215.2, .1850E-06, .3600E-06, .4624E-01, & + 25000., 2430.0, 215.4, .1570E-06, .3400E-06, .3950E-01, & + 30000., 1110.0, 217.3, .7120E-07, .1900E-06, .1783E-01, & + 35000., 518.0, 227.9, .3170E-07, .9200E-07, .7924E-02, & + 40000., 253.0, 244.0, .1450E-07, .4100E-07, .3625E-02, & + 45000., 129.0, 258.9, .6940E-08, .1300E-07, .1741E-02, & + 50000., 68.2, 265.6, .3580E-08, .4300E-08, .8954E-03, & + 70000., 4.7, 230.9, .2820E-09, .8600E-10, .7051E-04, & + 103000., .1, 210.1, .1990E-11, .4300E-13, .5000E-06/ +! mid-latitude summer +data ((mcdat(ilev,6,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101300.0, 294.0, .1400E-01, .6000E-07, .1191E+01, & + 1000., 90200.0, 290.0, .9300E-02, .6000E-07, .1080E+01, & + 2000., 80200.0, 285.0, .5850E-02, .6000E-07, .9757E+00, & + 3000., 71000.0, 279.0, .3430E-02, .6200E-07, .8846E+00, & + 4000., 62800.0, 273.0, .1890E-02, .6400E-07, .7998E+00, & + 5000., 55400.0, 267.1, .1000E-02, .6600E-07, .7211E+00, & + 6000., 48700.0, 261.0, .6090E-03, .6900E-07, .6487E+00, & + 7000., 42600.0, 254.7, .3710E-03, .7500E-07, .5830E+00, & + 8000., 37200.0, 248.2, .2100E-03, .7900E-07, .5225E+00, & + 9000., 32400.0, 241.7, .1180E-03, .8600E-07, .4669E+00, & + 10000., 28100.0, 235.2, .6430E-04, .9000E-07, .4159E+00/ +data ((mcdat(ilev,6,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 24300.0, 228.8, .2190E-04, .1100E-06, .3693E+00, & + 12000., 20900.0, 222.3, .6460E-05, .1200E-06, .3269E+00, & + 13000., 17900.0, 216.9, .1660E-05, .1500E-06, .2882E+00, & + 14000., 15300.0, 215.8, .9950E-06, .1800E-06, .2464E+00, & + 15000., 13000.0, 215.8, .8400E-06, .1900E-06, .2104E+00, & + 16000., 11000.0, 215.8, .7100E-06, .2100E-06, .1797E+00, & + 17000., 9500.0, 215.8, .6140E-06, .2400E-06, .1535E+00, & + 18000., 8120.0, 216.0, .5240E-06, .2800E-06, .1305E+00, & + 19000., 6950.0, 217.0, .4460E-06, .3200E-06, .1110E+00, & + 20000., 5950.0, 218.2, .3800E-06, .3400E-06, .9453E-01, & + 21000., 5100.0, 219.4, .3240E-06, .3600E-06, .8056E-01/ +data ((mcdat(ilev,6,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4370.0, 220.6, .2760E-06, .3600E-06, .6872E-01, & + 23000., 3760.0, 221.8, .2360E-06, .3400E-06, .5867E-01, & + 24000., 3220.0, 223.0, .2010E-06, .3200E-06, .5014E-01, & + 25000., 2770.0, 224.2, .1720E-06, .3000E-06, .4288E-01, & + 30000., 1320.0, 234.2, .7850E-07, .2000E-06, .1322E-01, & + 35000., 652.0, 245.3, .3700E-07, .9200E-07, .6519E-02, & + 40000., 333.0, 257.5, .1800E-07, .4100E-07, .3330E-02, & + 45000., 176.0, 269.7, .9090E-08, .1300E-07, .1757E-02, & + 50000., 95.1, 276.2, .4800E-08, .4300E-08, .9512E-03, & + 70000., 6.7, 219.1, .4270E-09, .8600E-10, .6706E-04, & + 104000., .1, 209.9, .1990E-11, .4300E-13, .5000E-06/ +! subtropical winter +data ((mcdat(ilev,7,ifld),ifld=1,6),ilev=1,11)/ & + 0., 102100.0, 287.1, .1125E-01, .5800E-07, .1233E+01, & + 1000., 90659.0, 284.2, .7750E-02, .5500E-07, .1107E+01, & + 2000., 80378.0, 281.2, .5545E-02, .5150E-07, .9934E+00, & + 3000., 71125.0, 274.7, .2930E-02, .5000E-07, .9006E+00, & + 4000., 62740.0, 268.2, .1675E-02, .4800E-07, .8142E+00, & + 5000., 55176.0, 261.7, .9540E-03, .5150E-07, .7340E+00, & + 6000., 48367.0, 255.2, .5245E-03, .5350E-07, .6599E+00, & + 7000., 42254.0, 248.8, .2783E-03, .5900E-07, .5916E+00, & + 8000., 36786.0, 242.3, .1425E-03, .6450E-07, .5289E+00, & + 9000., 31906.0, 235.8, .6850E-04, .7950E-07, .4713E+00, & + 10000., 27563.0, 229.3, .2825E-04, .9950E-07, .4187E+00/ +data ((mcdat(ilev,7,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 23716.0, 222.9, .1117E-04, .1255E-06, .3707E+00, & + 12000., 20315.0, 216.4, .4400E-05, .1515E-06, .3270E+00, & + 13000., 17344.0, 213.7, .1755E-05, .1725E-06, .2828E+00, & + 14000., 14781.0, 211.1, .1058E-05, .1825E-06, .2439E+00, & + 15000., 12557.0, 208.5, .7605E-06, .1935E-06, .2101E+00, & + 16000., 10671.0, 205.9, .6425E-06, .2035E-06, .1805E+00, & + 17000., 9041.0, 203.3, .5485E-06, .2295E-06, .1549E+00, & + 18000., 7651.0, 203.1, .4615E-06, .2500E-06, .1311E+00, & + 19000., 6480.0, 205.4, .3880E-06, .2850E-06, .1099E+00, & + 20000., 5498.0, 207.9, .3060E-06, .3200E-06, .9213E-01, & + 21000., 4676.0, 210.4, .2770E-06, .3350E-06, .7743E-01/ +data ((mcdat(ilev,7,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3984.0, 212.9, .2345E-06, .3550E-06, .6520E-01, & + 23000., 3401.0, 214.9, .1995E-06, .3550E-06, .5512E-01, & + 24000., 2907.0, 216.9, .1700E-06, .3500E-06, .4669E-01, & + 25000., 2489.0, 218.9, .1440E-06, .3400E-06, .3961E-01, & + 30000., 1169.0, 228.8, .6535E-07, .2150E-06, .1780E-01, & + 35000., 568.0, 239.8, .2980E-07, .9200E-07, .8255E-02, & + 40000., 286.0, 251.6, .1405E-07, .4100E-07, .3960E-02, & + 45000., 148.8, 263.4, .6870E-08, .1300E-07, .1967E-02, & + 50000., 79.4, 269.1, .3580E-08, .4300E-08, .1027E-02, & + 70000., 5.4, 221.7, .2905E-09, .8600E-10, .8440E-04, & + 103000., .2, 191.1, .1805E-11, .4300E-13, .3422E-05/ +! subtropical summer +data ((mcdat(ilev,8,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101350.0, 301.1, .1650E-01, .5800E-07, .1159E+01, & + 1000., 90464.0, 293.7, .1115E-01, .5800E-07, .1066E+01, & + 2000., 80504.0, 288.2, .7570E-02, .5700E-07, .9686E+00, & + 3000., 71484.0, 282.7, .4065E-02, .5650E-07, .8776E+00, & + 4000., 63311.0, 277.2, .2275E-02, .5550E-07, .7937E+00, & + 5000., 55936.0, 271.7, .1265E-02, .5550E-07, .7159E+00, & + 6000., 49292.0, 266.3, .7345E-03, .5600E-07, .6443E+00, & + 7000., 43304.0, 259.3, .4210E-03, .5800E-07, .5814E+00, & + 8000., 37913.0, 252.3, .2300E-03, .5900E-07, .5233E+00, & + 9000., 33068.0, 245.3, .1195E-03, .6250E-07, .4694E+00, & + 10000., 28729.0, 238.4, .5665E-04, .6450E-07, .4198E+00/ +data ((mcdat(ilev,8,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 24858.0, 231.4, .1990E-04, .7550E-07, .3742E+00, & + 12000., 21414.0, 224.4, .6270E-05, .8150E-07, .3324E+00, & + 13000., 18359.0, 217.5, .1725E-05, .9750E-07, .2941E+00, & + 14000., 15665.0, 210.5, .9905E-06, .1125E-06, .2953E+00, & + 15000., 13295.0, 203.5, .7985E-06, .1185E-06, .2276E+00, & + 16000., 11248.0, 203.1, .6735E-06, .1285E-06, .1929E+00, & + 17000., 9526.0, 205.2, .5780E-06, .1545E-06, .1617E+00, & + 18000., 8081.0, 207.4, .4860E-06, .1850E-06, .1358E+00, & + 19000., 6868.0, 209.6, .4080E-06, .2300E-06, .1142E+00, & + 20000., 5846.0, 211.8, .3440E-06, .2650E-06, .9618E-01, & + 21000., 4986.0, 213.9, .2905E-06, .3000E-06, .8119E-01/ +data ((mcdat(ilev,8,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4258.0, 215.9, .2460E-06, .3200E-06, .6870E-01, & + 23000., 3643.0, 217.9, .2095E-06, .3300E-06, .5823E-01, & + 24000., 3121.0, 219.9, .1780E-06, .3300E-06, .4944E-01, & + 25000., 2677.0, 221.9, .1515E-06, .3200E-06, .4203E-01, & + 30000., 1270.0, 231.8, .6900E-07, .2200E-06, .1909E-01, & + 35000., 622.9, 242.8, .3245E-07, .9200E-07, .8939E-02, & + 40000., 316.2, 254.6, .1580E-07, .4100E-07, .4327E-02, & + 45000., 165.7, 266.4, .7945E-08, .1300E-07, .2167E-02, & + 50000., 89.1, 272.1, .4190E-08, .4300E-08, .1140E-03, & + 70000., 6.1, 217.6, .3630E-09, .8600E-10, .9739E-04, & + 103000., .2, 180.1, .1805E-11, .4300E-13, .3472E-05/ +! tropical +data ((mcdat(ilev,9,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101300.0, 300.0, .1900E-01, .5600E-07, .1167E+01, & + 1000., 90400.0, 294.1, .1300E-01, .5600E-07, .1064E+01, & + 2000., 80500.0, 288.4, .9290E-02, .5400E-07, .9689E+00, & + 3000., 71500.0, 283.6, .4700E-02, .5100E-07, .8756E+00, & + 4000., 63300.0, 277.4, .2660E-02, .4700E-07, .7951E+00, & + 5000., 55900.0, 270.7, .1530E-02, .4500E-07, .7199E+00, & + 6000., 49200.0, 264.0, .8600E-03, .4300E-07, .6501E+00, & + 7000., 43200.0, 257.3, .4710E-03, .4100E-07, .5855E+00, & + 8000., 37800.0, 250.6, .2500E-03, .3900E-07, .5258E+00, & + 9000., 32900.0, 243.8, .1210E-03, .3900E-07, .4708E+00, & + 10000., 28600.0, 237.2, .4900E-04, .3900E-07, .4202E+00/ +data ((mcdat(ilev,9,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 24700.0, 230.4, .1790E-04, .4100E-07, .3740E+00, & + 12000., 21300.0, 223.8, .6080E-05, .4300E-07, .3316E+00, & + 13000., 18200.0, 217.0, .1790E-05, .4500E-07, .2929E+00, & + 14000., 15600.0, 210.4, .9860E-06, .4500E-07, .2578E+00, & + 15000., 13200.0, 203.6, .7570E-06, .4700E-07, .2260E+00, & + 16000., 11100.0, 196.8, .6370E-06, .4700E-07, .1972E+00, & + 17000., 9370.0, 195.6, .5420E-06, .6900E-07, .1676E+00, & + 18000., 7890.0, 199.5, .4480E-06, .9000E-07, .1382E+00, & + 19000., 6660.0, 203.6, .3700E-06, .1400E-06, .1145E+00, & + 20000., 5650.0, 207.6, .3080E-06, .1900E-06, .9515E-01, & + 21000., 4800.0, 211.5, .2570E-06, .2400E-06, .7938E-01/ +data ((mcdat(ilev,9,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4090.0, 214.6, .2160E-06, .2800E-06, .6645E-01, & + 23000., 3500.0, 216.9, .1830E-06, .3200E-06, .5618E-01, & + 24000., 3000.0, 219.1, .1550E-06, .3400E-06, .4763E-01, & + 25000., 2570.0, 221.3, .1310E-06, .3400E-06, .4045E-01, & + 30000., 1220.0, 232.3, .5950E-07, .2400E-06, .1831E-01, & + 35000., 600.0, 243.3, .2790E-07, .9200E-07, .8600E-02, & + 40000., 305.0, 254.3, .1360E-07, .4100E-07, .4181E-02, & + 45000., 159.0, 264.9, .6800E-08, .1300E-07, .2097E-02, & + 50000., 85.4, 270.0, .3580E-08, .4300E-08, .1101E-02, & + 70000., 5.8, 219.5, .2990E-09, .8600E-10, .9210E-04, & + 103000., .1, 209.9, .1620E-11, .4300E-13, .5000E-06/ +! tropical (summer) +data ((mcdat(ilev,10,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101300.0, 300.0, .1900E-01, .5600E-07, .1167E+01, & + 1000., 90400.0, 294.1, .1300E-01, .5600E-07, .1064E+01, & + 2000., 80500.0, 288.4, .9290E-02, .5400E-07, .9689E+00, & + 3000., 71500.0, 283.6, .4700E-02, .5100E-07, .8756E+00, & + 4000., 63300.0, 277.4, .2660E-02, .4700E-07, .7951E+00, & + 5000., 55900.0, 270.7, .1530E-02, .4500E-07, .7199E+00, & + 6000., 49200.0, 264.0, .8600E-03, .4300E-07, .6501E+00, & + 7000., 43200.0, 257.3, .4710E-03, .4100E-07, .5855E+00, & + 8000., 37800.0, 250.6, .2500E-03, .3900E-07, .5258E+00, & + 9000., 32900.0, 243.8, .1210E-03, .3900E-07, .4708E+00, & + 10000., 28600.0, 237.2, .4900E-04, .3900E-07, .4202E+00/ +data ((mcdat(ilev,10,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 24700.0, 230.4, .1790E-04, .4100E-07, .3740E+00, & + 12000., 21300.0, 223.8, .6080E-05, .4300E-07, .3316E+00, & + 13000., 18200.0, 217.0, .1790E-05, .4500E-07, .2929E+00, & + 14000., 15600.0, 210.4, .9860E-06, .4500E-07, .2578E+00, & + 15000., 13200.0, 203.6, .7570E-06, .4700E-07, .2260E+00, & + 16000., 11100.0, 196.8, .6370E-06, .4700E-07, .1972E+00, & + 17000., 9370.0, 195.6, .5420E-06, .6900E-07, .1676E+00, & + 18000., 7890.0, 199.5, .4480E-06, .9000E-07, .1382E+00, & + 19000., 6660.0, 203.6, .3700E-06, .1400E-06, .1145E+00, & + 20000., 5650.0, 207.6, .3080E-06, .1900E-06, .9515E-01, & + 21000., 4800.0, 211.5, .2570E-06, .2400E-06, .7938E-01/ + data ((mcdat(ilev,10,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4090.0, 214.6, .2160E-06, .2800E-06, .6645E-01, & + 23000., 3500.0, 216.9, .1830E-06, .3200E-06, .5618E-01, & + 24000., 3000.0, 219.1, .1550E-06, .3400E-06, .4763E-01, & + 25000., 2570.0, 221.3, .1310E-06, .3400E-06, .4045E-01, & + 30000., 1220.0, 232.3, .5950E-07, .2400E-06, .1831E-01, & + 35000., 600.0, 243.3, .2790E-07, .9200E-07, .8600E-02, & + 40000., 305.0, 254.3, .1360E-07, .4100E-07, .4181E-02, & + 45000., 159.0, 264.9, .6800E-08, .1300E-07, .2097E-02, & + 50000., 85.4, 270.0, .3580E-08, .4300E-08, .1101E-02, & + 70000., 5.8, 219.5, .2990E-09, .8600E-10, .9210E-04, & + 103000., .1, 209.9, .1620E-11, .4300E-13, .5000E-06/ + + contains + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine init_goddardrad(allowed_to_read, & + ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte ) + implicit none +!--------------------------------------------------------------------------------------------------- +! Comments: +! Initialize single scattering tables. +! This is one-time initialization, and single scattering tables must be stored in each CPU memory. +! +! History: 08/2013 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + logical,intent(in) :: allowed_to_read ! this is the ID statement for MPI master core + + INTEGER , INTENT(IN) :: ids, ide, jds, jde, kds, kde, & + ims, ime, jms, jme, kms, kme, & + its, ite, jts, jte, kts, kte + + integer :: mxband +! +! initialize goddard radiation (to open/read single scattering look-up table) +! + print*,'initialize goddard radiation single scattering tables' + + mxband = max(nband_sw, nband_lw) !maximum band number + +! +! read/initialize single-scattering look-up table +! + + if(allowed_to_read) call read_lut_nc(mxband) + +#if (WRF_CHEM == 1) + +! if(allowed_to_read) call read_lut_aero_nc(mxband) + +#endif + + + end subroutine init_goddardrad + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine read_lut_nc(mxband) + implicit none +!--------------------------------------------------------------------------------------------------- +! Comments: +! Read NetCDF LUT data. +! +! History: +! 10/2017 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + + integer,intent(in) :: mxband !maximum band + + integer :: i,j,k !domain loop index + integer :: ib,n !band loop index + integer :: ierr !allocation stat + integer :: max_band + integer :: mxisl, max_spc + integer :: ncid, varid + integer :: nspec, nre, nb, ns + integer :: reclen + +! +! static indice +! + mxisl = 2 !1-sw, 2-lw + +! +! allocate array parameters (format from G-SDSU) +! + if( .not. allocated(kext_q_unit_array) ) then + + allocate( kext_q_unit_array ( mxpts_re_visir, id_hmax, mxband, mxisl ), & + omega_array ( mxpts_re_visir, id_hmax, mxband, mxisl ), & + asym_array ( mxpts_re_visir, id_hmax, mxband, mxisl ), & + stat=ierr ) + if (ierr /= 0) call wrf_error_fatal('MSG read_lut_nc: LUT parameter allocation error -> Terminate program. ') + inquire(iolength=reclen) kext_q_unit_array + open(11, file='BROADBAND_CLOUD_GODDARD.bin', form='unformatted', & + status='old', access='direct', & + recl=reclen) + ! extinction cross section per unit mass [km-1 / (g/m3) ] + read(11, rec=1) kext_q_unit_array + ! signle scattering albedo [-] + read(11, rec=2) omega_array + ! asymetry parameter (forward scattering fraction) [-] + read(11, rec=3) asym_array + close(11) + + endif + + +! +! convert into SW/LW LUT (array format for goddard radiation) +! + if( .not. allocated(kext_sw_cloud) ) then + allocate( & + kext_sw_cloud(mxband, mxpts_re_visir, id_hmax), & ! + salb_sw_cloud(mxband, mxpts_re_visir, id_hmax), & ! + asym_sw_cloud(mxband, mxpts_re_visir, id_hmax), & ! + kext_lw_cloud(mxband, mxpts_re_visir, id_hmax), & ! + salb_lw_cloud(mxband, mxpts_re_visir, id_hmax), & ! + asym_lw_cloud(mxband, mxpts_re_visir, id_hmax), & ! + stat=ierr ) + if (ierr /= 0) call wrf_error_fatal('MSG read_lut_nc: LUT parameter allocation error -> Terminate program. ') + +! integer,parameter :: id_ice = 1 +! integer,parameter :: id_cloud = 2 +! integer,parameter :: id_rain = 3 +! integer,parameter :: id_snow = 4 +! integer,parameter :: id_graupel = 5 +! integer,parameter :: id_hail = 6 + + do nspec = 1, id_hmax ; do nre = 1, mxpts_re_visir ; do nb = 1, mxband + if(nspec == 1 ) ns = 2 + if(nspec == 2 ) ns = 3 + if(nspec == 3 ) ns = 1 + if(nspec == 4 ) ns = 4 + if(nspec == 5 ) ns = 5 + if(nspec == 6 ) ns = 6 + kext_sw_cloud(nb,nre,ns) = kext_q_unit_array(nre,nspec,nb,1) + salb_sw_cloud(nb,nre,ns) = omega_array (nre,nspec,nb,1) + asym_sw_cloud(nb,nre,ns) = asym_array (nre,nspec,nb,1) + kext_lw_cloud(nb,nre,ns) = kext_q_unit_array(nre,nspec,nb,2) + salb_lw_cloud(nb,nre,ns) = omega_array (nre,nspec,nb,2) + asym_lw_cloud(nb,nre,ns) = asym_array (nre,nspec,nb,2) + enddo ; enddo ; enddo + + ! + ! Broadcast LUT parameters + ! + call wrf_dm_bcast_bytes (kext_sw_cloud, size(kext_sw_cloud) * RWORDSIZE ) + call wrf_dm_bcast_bytes (salb_sw_cloud, size(salb_sw_cloud) * RWORDSIZE ) + call wrf_dm_bcast_bytes (asym_sw_cloud, size(asym_sw_cloud) * RWORDSIZE ) + call wrf_dm_bcast_bytes (kext_lw_cloud, size(kext_lw_cloud) * RWORDSIZE ) + call wrf_dm_bcast_bytes (salb_lw_cloud, size(salb_lw_cloud) * RWORDSIZE ) + call wrf_dm_bcast_bytes (asym_lw_cloud, size(asym_lw_cloud) * RWORDSIZE ) + + endif + + + end subroutine read_lut_nc + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + +#if 0 + subroutine read_lut_aero_nc(mxband) + use netcdf + implicit none +!--------------------------------------------------------------------------------------------------- +! Comments: +! Read NetCDF LUT data for aerosols. +! +! History: +! 10/2017 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + integer,intent(in) :: mxband !maximum band + + integer :: i,j,k !domain loop index + integer :: ib,n !band loop index + integer :: ierr !allocation stat + integer :: max_band + integer :: mxisl, max_spc, nband + integer :: ncid, varid + +! +! static indice +! + mxisl = 2 !1-sw, 2-lw + + + +! +! static indice +! + mxisl = 2 !1-sw, 2-lw + +! +! allocate array parameters +! + if( .not. allocated(kext_q_unit_array) ) then + + allocate( kext_q_unit_aero_array ( mxpts_rh, id_amax, mxband, mxisl ), & + omega_aero_array ( mxpts_rh, id_amax, mxband, mxisl ), & + asym_aero_array ( mxpts_rh, id_amax, mxband, mxisl ), & + stat=ierr ) + if (ierr /= 0) call wrf_error_fatal('MSG read_lut_aero_nc: LUT parameter allocation error -> Terminate program. ') + + ! + ! open netcdf file + ! + sdsu_io_file = trim(dir_lut)//'BROADBAND_AEROSOL_GODDARD.nc' + print*, 'MSG read_lut_aero_nc: reading broadband LUT:',trim(sdsu_io_file) + call check( nf90_open(trim(sdsu_io_file), nf90_nowrite, ncid) ) + + ! + ! extinction cross section per unit mass [km-1 / (g/m3) ] + ! + call check( nf90_inq_varid(ncid, 'kext_q_unit' , varid ) ) + call check( nf90_get_var(ncid, varid, kext_q_unit_aero_array )) + + ! + ! signle scattering albedo [-] + ! + call check( nf90_inq_varid(ncid, 'omega' , varid ) ) + call check( nf90_get_var(ncid, varid, omega_aero_array )) + + ! + ! asymetry parameter (forward scattering fraction) [-] + ! + call check( nf90_inq_varid(ncid, 'asym' , varid ) ) + call check( nf90_get_var(ncid, varid, asym_aero_array )) -! number of radiation bands - integer, parameter :: ib_sw = 11 !number of shortwave band - integer, parameter :: ib_lw = 10 !number of longwave band + ! + ! close netCDF file + ! + call check( nf90_close(ncid) ) -! Threshold values -! - Do not change. These values are the lowest threshold, while avoiding numerical instability. - real(Kind=fp_kind), parameter :: cosz_min = 0.0001 ! threshold of minimum cosizne of solar zenith angle for SW rad - real(Kind=fp_kind), parameter :: fcld_min = 0.01 ! threshold of minimum cloud fraction for account clooud - real(Kind=fp_kind), parameter :: taux_min = 0.0001 ! threshold of minimum optical depth for accouting cloud (0.02) - real(Kind=fp_kind), parameter :: opt_min = 1.e-6 ! threshold of optical properties to avoid numerical instability. + endif - integer :: jloop -contains + end subroutine read_lut_aero_nc !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine goddardrad( rthraten, gsf, xlat,xlong & - ,dz8w,t8w,rho_phy,sw_or_lw & - ,alb,emiss,t3d,qv3d,qc3d,qr3d & - ,qi3d,qs3d,qg3d & + subroutine check(status,para,missing_para) + implicit none +!--------------------------------------------------------------------------------------------------- +! Comments: +! Check status of reading process of netCDF. +! +! History: +! 05/2014 Toshi Matsui@NASA GSFC ; included optional statement for skiping +! 05/2007 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + integer, intent (in) :: status + character(len=*),intent(in),optional :: para !optional parameter for missing, but skippable parameters. + logical,intent(out),optional :: missing_para !optional parameter for missing, but skippable parameters. + + if( present(missing_para) ) missing_para = .false. + + + if(status /= nf90_noerr) then + print *, trim(nf90_strerror(status)) + + ! + !for optional parameters, keep going on program. + ! + if( present(para) ) then + print*,'Missing ',trim(para) + if( present(missing_para) ) missing_para = .true. + return + endif + + ! + !for required parameter, stop program + ! + call wrf_error_fatal('MSG check: missing parameter in netcdf file') + + end if + end subroutine check +#endif + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine goddardrad( sw_or_lw, dx & + ,rthraten, gsf, xlat,xlong & + ,dz8w,t8w,rho_phy & + ,alb,emiss,tsk,t3d,qv,qc,qr & + ,qi,qs,qg,qh & ,p3d,p8w3d,pi3d,cldfra3d & ,gmt,cp,g,julday,xtime,declin,solcon & - ,center_lat & - ,radfrq,degrad,taucldi,taucldc,warm_rain & - ,f_qv,f_qc,f_qr,f_qi,f_qs,f_qg & + ,radfrq,degrad,cod2d_out,ctop2d_out,warm_rain & + ,f_qv,f_qc,f_qr,f_qi,f_qs,f_qg,f_qh & + ,rec3d,rei3d,rer3d,res3d,reg3d,reh3d & ,ids,ide, jds,jde, kds,kde & ,ims,ime, jms,jme, kms,kme & ,its,ite, jts,jte, kts,kte & -! ,cosz_urb2d,omg_urb2d & !optional urban - ,ERBE_out & !optional sdsu - ,tauaer3d_sw,ssaaer3d_sw,asyaer3d_sw & ! jararias 2013/11 - ,swddir,swddni,swddif & ! jararias 2013/08 - ,coszen,julian & ! jararias 2013/08 - ,aer_opt & - ) - implicit none + ,ERBE_out & + ,itimestep, dt_in & + ,sflxd & !optional for sw + ,swddir,swddni,swddif & !optinal for sw + ,coszen & !optional for sw +#if (WRF_CHEM == 1) + ,aod2d_out,atop2d_out & !optional for sw + ,aero & + ,chem_opt & + ,gsfcrad_gocart_coupling & +#endif + ) + use, intrinsic :: ieee_arithmetic + implicit none +!---------------------------------------------------------------------- +! +! Comments for vertical levels: +! +! Vetical layers are reversed in this routine. +! in wrf, kms (smallest number) is the bottom level and kme (largest +! number) is the top level. in your scheme, if 1 is at the top level, +! then you have to reverse the order in the k direction. +! +! And, vertical dimesion of the input parameter is defined as +! kms:kme, which is equivalent to kts:kte+1 +! e.g., if kme=61, kte = 60 +! +! +! For example, +! Array in both full- and half-level parameters are defined (ims:ime,kms:kme,jms:jme) +! There is no data of k=kme for half-level parameters. +! +! kme - half level (no data for half level) +! kme ----- full level (top for full level) +! kme-1 - half level (top for half level) +! kme-1 ----- full level +! . +! . +! . +! kms+1 - half level +! kms+1 ----- full level +! kms - half level (bottom for half level) +! kms ----- full level (bottom for full level) +! +! However, when reversed...(and one dimensionalized) in thir routine. +! Array in full-level parameters are defined (kts-1:kte) +! Array in half-level parameters are defined (kts :kte) +! +! kts-1 - half level (no data for half level) +! kts-1 ----- full level (top for full level) +! kts - half level (top for half level) +! kts ----- full level +! . +! . +! . +! kte-1 - half level +! kte-1 ----- full level +! kte - half level (bottom for half level) +! kte ----- full level (bottom for full level) +! +! For example, kms=1 kme=51, then +! Layer Temp Level Temp +! 1 t3d(i,k,j) 302.6994 t8w(i,k,j) 302.8955 +! 2 t3d(i,k,j) 302.3034 t8w(i,k,j) 302.5020 +! 3 t3d(i,k,j) 301.2647 t8w(i,k,j) 301.7841 +! . +! . +! 49 t3d(i,k,j) 228.0565 t8w(i,k,j) 227.4076 +! 50 t3d(i,k,j) 231.9670 t8w(i,k,j) 228.7616 +! 51 t3d(i,k,j) 0.0000000E+00 t8w(i,k,j) 235.3769 +! +! +! Layer Pres Level Pres +! 1 p3d(i,k,j) 95409.39 p8w(i,k,j) 96129.95 +! 2 p3d(i,k,j) 93964.12 p8w(i,k,j) 94688.82 +! 3 p3d(i,k,j) 92514.72 p8w(i,k,j) 93239.42 +! . +! . +! 49 p3d(i,k,j) 1485.196 p8w(i,k,j) 1563.812 +! 50 p3d(i,k,j) 1049.190 p8w(i,k,j) 1406.580 +! 51 p3d(i,k,j) 0.0000000E+00 p8w(i,k,j) 691.8000 +! Toshi Matsui @ NASA GSFC +! +!------------------------------------------------------------------------------- -!------- I / O variables ---------------------------------------------- +!------------------------- I / O variables ------------------------------------- character(len=2), intent(in) :: & - sw_or_lw ! 'sw'=shortwave radiation,'lw'=longwave radiation,'is'=ISCCP simulator + sw_or_lw ! 'sw'=shortwave radiation,'lw'=longwave radiation + real,intent(in) :: dx !horizontal grid spacing [m] + integer :: iskip ! 0 (no skip) 1 (skip) integer, intent(in) :: & ids, & ! start index for i in domain ide, & ! end index for i in domain @@ -202,12 +1139,16 @@ subroutine goddardrad( rthraten, gsf, xlat,xlong & jts, & ! start index for j in tile jte, & ! end index for j in tile kts, & ! start index for k in tile - kte, & ! end index for k in tile + kte, & ! end index for k in tile (kte = kms - 1 ) julday ! integer of julian date logical, intent(in) :: & warm_rain ! logics for warm_rain only or not + REAL, INTENT(IN ) :: dt_in + INTEGER, INTENT(IN ) :: itimestep + LOGICAL, EXTERNAL :: wrf_dm_on_monitor + real, intent(in) :: & radfrq, & ! time for calling radiation (min) degrad, & ! conversion factor for degrees to radians (pi/180.) (rad/deg) @@ -232,891 +1173,1941 @@ subroutine goddardrad( rthraten, gsf, xlat,xlong & xlat, & ! latitude, south is negative (degree) xlong, & ! longitude, west is negative (degree) alb, & ! broadband surface albedo (between 0 and 1) + tsk, & ! surface skin temperature (k) emiss ! broadband surface emissivity (between 0 and 1) real, dimension( ims:ime, kms:kme, jms:jme ),optional,intent(in) :: & + qv, & ! water vapor mixing ratio (kg/kg) (in) + qc, & ! cloud water mixing ratio (kg/kg) (in) + qr, & ! rain water mixing ratio (kg/kg) (in) + qi, & ! cloud ice mixing ratio (kg/kg) (in) + qs, & ! snow mixing ratio (kg/kg) (in) + qg, & ! graupel mixing ration (kg/kg) (in) + qh ! hail mixing ration (kg/kg) (in) + + real, dimension( ims:ime, kms:kme, jms:jme ),optional,intent(in) :: & + rec3d, & ! cloud effective radius [micron] (in) + rer3d, & ! rain effective radius [micron] (in) + rei3d, & ! cloud ice effective radius [micron] (kg/kg) (in) + res3d, & ! snow effective radius [micron] (in) + reg3d, & ! graupel effective radius [micron] (in) + reh3d ! hail effective radius [micron] (in) + + + real, dimension( ims:ime, kms:kme, jms:jme ) :: & qv3d, & ! water vapor mixing ratio (kg/kg) (in) qc3d, & ! cloud water mixing ratio (kg/kg) (in) qr3d, & ! rain water mixing ratio (kg/kg) (in) qi3d, & ! cloud ice mixing ratio (kg/kg) (in) qs3d, & ! snow mixing ratio (kg/kg) (in) - qg3d ! graupel mixing ration (kg/kg) (in) + qg3d, & ! graupel mixing ration (kg/kg) (in) + qh3d ! hail mixing ration (kg/kg) (in) + + + logical, optional, intent(in ) :: f_qv,f_qc,f_qr,f_qi,f_qs,f_qg,f_qh !hydrometeor flags +! + real, dimension( ims:ime, kms:kme, jms:jme ), intent(inout) :: & + rthraten ! theta tendency due to radiative heating (K/sec) + + + + real, dimension( ims:ime, jms:jme ), intent(inout) :: & + gsf ! (for SW) : net short wave flux at ground surface (W/m^2) + ! (for LW) : downward long wave flux at ground surface (W/m^2) + + real, dimension( ims:ime, jms:jme ), intent(out),optional :: cod2d_out !cloud optical thickness [-] + real, dimension( ims:ime, jms:jme ), intent(out),optional :: ctop2d_out !cloud-top pressure [mb] + + + real, dimension( ims:ime, jms:jme, 1:4 ), intent(out),optional :: sflxd !SW only + ! 1-surface downward UV+VIS beam radiation [W/m2] + ! 2-surface downward UV+VIS diffuse radiation [W/m2] + ! 3-surface downward NIR beam radiation [W/m2] + ! 4-surface downward NIR diffuse radiation [W/m2] + +! +! ERBE_out: Energy Budget (last dimension 1-TOA LW down, 2-TOA LW up, 3-surface LW down, 4-surface LW up) +! 5-TOA SW down, 6-TOA SW up, 7-surface SW down, 8-surface SW up) +! + real, dimension(ims:ime, jms:jme, 1:8),intent(out) :: ERBE_out !earth radiation budget (W/m2) + +#if (WRF_CHEM == 1) +! +! Aerosol is assumed to be GOCART scheme (or other similar scheme must be re-array in consistent manner) +! Note that num_go = 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 +! 4 = OC2 ! hygroscopic OC +! 5 = SS1 ! sea-salt accumulation mode +! 6 = SS2+SS3+SS4 !sea-salt coarse mode +! 7 = DU1 ! dust mode 1 +! 8 = DU1 ! dust mode 2 +! 9 = DU1 ! dust mode 3 +! 10 = DU1 ! dust mode 4 +! 11 = DU2 ! dust mode 5 +! 12 = DU3 ! dust mode 6 +! 13 = DU4 ! dust mode 7 +! 14 = DU5 ! dust mode 8 +! + integer, parameter :: num_go = 14 ! # of gocart aerosol species (tgmx=14 defined in module_gocart_offline.F) + real, dimension( ims:ime, kms:kme, jms:jme, num_go), intent(in) :: aero ! aerosol mass conc [g/m3] + real, dimension(ims:ime, jms:jme),intent(out),optional :: aod2d_out ! column Aeorosol Optical Depth (-) + ! at visible band (0.4-0.7 micron) + real, dimension(ims:ime,jms:jme),intent(out),optional :: atop2d_out ! aerosol-top pressure [mb] + integer,intent(in) :: chem_opt ! EMK + integer,intent(in) :: gsfcrad_gocart_coupling ! EMK +#endif + +! NCAR WRF V3.5.1 modification + real, optional, dimension(ims:ime, jms:jme), intent(out) :: & + swddir, & ! All-sky broadband surface direct horizontal irradiance + swddni, & ! All-sky broadband surface direct normal irradiance + swddif ! All-sky braodband surface diffuse irradiance + real, optional, dimension(ims:ime, jms:jme), intent(in) :: & + coszen ! cosine of the solar zenith angle + + + +!------- Local variables ---------------------------------------------- + + integer :: i,j,k,nk,ib,n,kt,km ! loop indice + integer :: dk_half !maximum dimension for k (half level) + integer :: i24h + + real, dimension( CHUNK ) :: & + cosz, & ! cosine of solar zenith angle (0~1) + rsuvbm, & ! surface albedo for direct UV-VIS radiation (-) + rsuvdf, & ! surface albedo for diffuse UV-VIS radiation (-) + rsirbm, & ! surface albedo for direct NIR radiation (-) + rsirdf, & ! surface albedo for diffuse NIR radiation (-) + tsfc, & ! surface air temperature (K) + tskin, & ! surface skin (radiative) temperature (K) + p400, & ! pressure criteria for upper + p700 ! pressure criteir for middle + + real, dimension( CHUNK, nband_lw ) :: emis1d !IR emissivity (-) + + integer, dimension( CHUNK ) :: & + ict, & ! 400mb level indice + icb ! 700mb level indice + +! +! Full-level 1D parameters +! + real, dimension( CHUNK, kts-1:kte ) :: & + p8w1d, & ! pressure in full level (mb or hPa) + t8w1d ! temperature in full level (K) + + real, dimension( CHUNK, kts-1:kte ) :: & + flx, & !flux fraction (-) or actual flux (W/m2) + flxd, & !donwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave) + flxu !upwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave) + +! +! Half-level 1D parameters +! + real, dimension( CHUNK, kts:kte ) :: & + tten1d, & ! temperature tendency (K/sec) + sh1d, & ! specific humidity (-) + p1d, & ! pressure (mb or hPa) + t1d, & ! temperature (K) + rho1d, & ! dry air density [kg/m3] + dz1d, & ! layer depth (m) + o31d, & ! ozone mixing ratio [kg/kg] + fcld1d ! cloud fraction + + real, dimension( CHUNK, kts:kte, id_hmax ) :: & + q1d ,& ! condensate mass concentration [g/m3] + re1d ! particle effective radius [um] + +! type ( particle_gocart ),dimension(nband_sw) :: & !particle_gocart is defined in module_simulater +! kext_gocart, & ! extinction coefficient [km-1] +! salb_gocart, & ! single scattering albedo [-] +! asym_gocart ! asymetry parameter [-] + + real, dimension( CHUNK, kts:kte, nband_sw ) :: & + taucl_sw, & ! hydrometeor optical depth for SW bands + ssacl_sw, & ! hydrometeor single scattering albedo for SW bands + asycl_sw ! hydrometeor asymetry factor for SW bands + + real, dimension( CHUNK, kts:kte, nband_lw ) :: & + taucl_lw, & ! hydrometeor optical depth for LW bands + ssacl_lw, & ! hydrometeor single scattering albedo for LW bands + asycl_lw ! hydrometeor asymetry factor for LW bands + + real, dimension( CHUNK, kts:kte, nband_sw ) :: & + taual_sw, & ! aerosol optical depth for SW bands + ssaal_sw, & ! aerosol single scattering albedo for SW bands + asyal_sw ! aerosol asymetry factor for SW bands + + real, dimension( CHUNK, kts:kte, nband_lw ) :: & + taual_lw, & ! aerosol optical depth for LW bands + ssaal_lw, & ! aerosol single scattering albedo for LW bands + asyal_lw ! aerosol asymetry factor for LW bands + +#if (WRF_CHEM == 1) + real, dimension( CHUNK, kts:kte, num_go) :: aero1d !aerosol mass conc [g/m3] 1D reverse k order (half layer) + +! type(particle_gocart), dimension( kts:kte ) :: & +! a1d ! aerosol mass concentration [ ] + +#endif + +! +! surface 0D parameters +! + real :: flxd_surf(CHUNK,1:4) ! downward surface flux + ! 1-direct UV+PAR, 2-diffuse UV+PAR, 3-direct NIR, 4-diffuse NIR + +! misc parameter for calculations + real :: fac,xt24,tloctm,hrang,xxlat ! ,x + +! integer :: max_band + +! parameters for fast skip radiation + integer :: ij_skip + integer,dimension(CHUNK) :: ie,je !block array indice + + INTEGER :: ip, ic, ii + logical :: no_micro(CHUNK), lmask(CHUNK) ! No update of theta tendancy (rthraten) and energy budget due to solar heating + +! now in local parameter for OMP purpose + + real,dimension( CHUNK,ilev_max,6) :: mcdat_int !interpolated Mclatchy Sounding climatology + +!-------------------- PROGRAM START --------------------------------------- + + i24h=nint(86400./dt_in) +! +! Make sure there is no negative value in qv and cloud species +! Negative value happen through dynamic core (advection). +! + do j = jts,jte ; do k = kts,kte ; do i = its, ite !3D full level + if ( present( f_qv ) .and. present( qv) ) qv3d(i,k,j) = max(0.0e0, qv(i,k,j)) + if ( present( f_qc ) .and. present( qc) ) qc3d(i,k,j) = max(0.0e0, qc(i,k,j)) + if ( present( f_qr ) .and. present( qr) ) qr3d(i,k,j) = max(0.0e0, qr(i,k,j)) + if ( present( f_qi ) .and. present( qi) ) qi3d(i,k,j) = max(0.0e0, qi(i,k,j)) + if ( present( f_qs ) .and. present( qs) ) qs3d(i,k,j) = max(0.0e0, qs(i,k,j)) + if ( present( f_qg ) .and. present( qg) ) qg3d(i,k,j) = max(0.0e0, qg(i,k,j)) + if ( present( f_qh ) .and. present( qh) ) qh3d(i,k,j) = max(0.0e0, qh(i,k,j)) + enddo ; enddo ; enddo + +! +! Check input errors +! + if( NUWRF_DEBUG ) then + do j = jts,jte ; do k = kts,kte+1 ; do i = its, ite !3D full level + call checkerror('goddardrad','temperature_K',i,k,j,t8w(i,k,j) ) + call checkerror('goddardrad','pressure_Pa' ,i,k,j,p8w3d(i,k,j) ) + enddo ; enddo ; enddo + + do j = jts,jte ; do k = kts,kte ; do i = its, ite !3D half level + call checkerror('goddardrad','temperature_K',i,k,j,t3d(i,k,j) ) + call checkerror('goddardrad','pressure_Pa' ,i,k,j,p3d(i,k,j) ) + if ( present( f_qc ) .and. present( qc) ) & ! cloud + call checkerror('goddardrad_qc3d','condensate_kg/kg',i,k,j,qc3d(i,k,j) ) + if ( present( f_qc ) .and. present( qi) ) & ! ice + call checkerror('goddardrad_qi3d','condensate_kg/kg',i,k,j,qi3d(i,k,j) ) + if ( present( f_qc ) .and. present( qr) ) & ! rain + call checkerror('goddardrad_qr3d','condensate_kg/kg',i,k,j,qr3d(i,k,j) ) + if ( present( f_qc ) .and. present( qs) ) & ! snow + call checkerror('goddardrad_qs3d','condensate_kg/kg',i,k,j,qs3d(i,k,j) ) + if ( present( f_qc ) .and. present( qg) ) & ! graupel + call checkerror('goddardrad_qg3d','condensate_kg/kg',i,k,j,qg3d(i,k,j) ) +#if (WRF_CHEM == 1) + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcrad_gocart_coupling == 1) ) then + do n = 1, num_go + call checkerror('goddardrad','aerosol_g/m3' ,i,k,j,aero(i,k,j,n) ) + enddo + end if +#endif + + enddo ; enddo ; enddo + + do j = jts,jte ; do i = its, ite !2D + call checkerror('goddardrad','albedo' ,i,0,j, alb(i,j) ) + call checkerror('goddardrad','emissivity',i,0,j,emiss(i,j) ) + enddo ; enddo + + endif + +! +! Initialize +! + dk_half = kte-kts+1 !maximum dimension for k (half level) + + if(sw_or_lw=='sw') ctop2d_out(its:ite, jts:jte) = -999.e0 + +#if (WRF_CHEM == 1) + if(sw_or_lw=='sw') atop2d_out(its:ite, jts:jte) = -999.e0 +#endif + + +! +! grid aggregation and skippiing option, applying grid spacing less than 4km (new in 2014 scheme) +! + iskip = 0 !zero for vectorlized version. + + if( iskip == 1 ) then + ! + ! nearest integer of 6000m devided by horizontal space + ! ranges from 1 ~ 3 (essentially become 2, when dx<=4000m) + ! + ij_skip = min( 3, max( 1, nint( 6000.0/dx ) ) ) ! + + elseif( iskip == 0 ) then + ij_skip = 1 + else + call wrf_error_fatal('MSG: goddardrad: iskip(goddardrad_skip) must be 0 or 1 ') + endif + +!!! +! TEST + if(ij_skip .ne. 1) then + print *, ' ij_skip = ', ij_skip + print *, ' setting ij_skip=1' + ij_skip = 1 + endif +!!! + + if( ij_skip > 1 ) then + radiation_skip = .true. + else + radiation_skip = .false. + endif + + + if( overcast ) then + fast_overcast = .true. + else + fast_overcast = .false. + endif + +! Removing these OpenMP directives since this is already in a +! threaded region from the radiation driver for the WRF model. +! Perhaps other models use these, so we will keep them around. +#if (NUWRF_GODDARD == 1) +!$OMP PARALLEL DO & +!$OMP PRIVATE ( ic, ii) & +!$OMP PRIVATE ( i,j,k,nk,ib,n,kt,km, i24h ) & +!$OMP PRIVATE ( cosz, rsuvbm, rsuvdf, rsirbm, rsirdf, tsfc, tskin, p400, p700 ) & +!$OMP PRIVATE ( ict, icb, p8w1d, t8w1d, flx, flxd, flxu ) & +!$OMP PRIVATE ( tten1d, sh1d, p1d, t1d, rho1d, dz1d, o31d, fcld1d ) & +!$OMP PRIVATE ( emis1d, q1d, re1d ) & +!$OMP PRIVATE ( taucl_sw, ssacl_sw, asycl_sw ) & +!$OMP PRIVATE ( taucl_lw, ssacl_lw, asycl_lw ) & +!$OMP PRIVATE ( taual_sw, ssaal_sw, asyal_sw ) & +!$OMP PRIVATE ( taual_lw, ssaal_lw, asyal_lw ) & +!$OMP PRIVATE ( flxd_surf ) & +!$OMP PRIVATE ( fac,xt24,tloctm,hrang,xxlat ) & +!$OMP PRIVATE ( ie,je,no_micro,lmask,mcdat_int ) & +#if (WRF_CHEM == 1) +!$OMP PRIVATE ( aero1d ) & +#endif +!$OMP SCHEDULE(dynamic,1) +#endif + + DO ip = 1,((1+(ite-its+1)/CHUNK)*CHUNK)*(jte-jts+1),CHUNK ! *ij_skip + j = jts+(ip-1)/((1+(ite-its+1)/CHUNK)*CHUNK) ! *ij_skip + IF ( j .ge. jts .and. j .le. jte ) THEN + ii = its+mod((ip-1),((1+(ite-its+1)/CHUNK)*CHUNK)) ! *ij_skip + +!TEST + q1d(:,:,:) = 0. + + if( radiation_skip ) then + DO ic=1,min(CHUNK,ite-ii+1) ! /ij_skip + i = ii+(ic-1) ! *ij_skip + ie(ic) = min(ite,i+ij_skip-1) ! skip block i end bound + je(ic) = min(jte,j+ij_skip-1) ! skip block j end bound + ENDDO + endif + +! +! Mclatchy sounding climatologies are temporally and spatially interpolated at each grid's latitude and julday. +! + if( radiation_skip ) then + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + call sounding_interp( ave(xlat(i:ie(ic),j:je(ic))) , julday , mcdat_int(ic,:,:)) + ENDDO + else + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + call sounding_interp( xlat(i,j) , julday , mcdat_int(ic,:,:) ) + ENDDO + endif + +! +! reverse vertical profile for full-level 1D parameters +! + if( radiation_skip ) then + do kt=kts-1,kte !full level ( kts -1 = TOA, kte = BOA ) + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + p8w1d(ic,kt) = ave(p8w3d(i:ie(ic),km,j:je(ic))) *0.01e0 ! p8w1d is in mb (hPa) <-- [Pa] + t8w1d(ic,kt) = ave(t8w(i:ie(ic),km,j:je(ic))) ! temperature at full level (K) +! print*, kt, km, p8w1d(ic,kt), t8w1d(ic,kt) + ENDDO + enddo + else + do kt=kts-1,kte !full level ( kts -1 = TOA, kte = BOA ) + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + p8w1d(ic,kt) = p8w3d(i,km,j) *0.01e0 ! p8w1d is in mb (hPa) <-- [Pa] + t8w1d(ic,kt) = t8w(i,km,j) ! temperature at full level (K) +! print*, kt, km, p8w1d(ic,kt), t8w1d(ic,kt) + ENDDO + enddo + endif + +! Now set up TOA pressure is zero, this is required ... + DO ic=1,min(CHUNK,ite-ii+1) + p8w1d(ic,kts-1) = 0. + ENDDO + +! +! reverse vertical profile for half-level parameters +! + if( radiation_skip ) then + + do kt=kts,kte ! half level (kts = TOA, kte = BOA) + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + tten1d(ic,kt) = 0.e0 + t1d (ic,kt) = ave(t3d(i:ie(ic),km,j:je(ic))) + sh1d (ic,kt) = max(0., ave(qv3d(i:ie(ic),km,j:je(ic)))/(1.+ave(qv3d(i:ie(ic),km,j:je(ic)))) ) + p1d (ic,kt) = ave(p3d(i:ie(ic),km,j:je(ic)))*0.01e0 ! p1d is in mb (hPa) + rho1d (ic,kt) = ave(rho_phy(i:ie(ic),km,j:je(ic))) !dry air density [kg/m3] + fcld1d(ic,kt) = ave(cldfra3d(i:ie(ic),km,j:je(ic))) + dz1d (ic,kt) = ave(dz8w(i:ie(ic),km,j:je(ic))) !dz8w is fake full-level (actually dz must be half layer) (m) (double check) +! print*,kt,km, dz1d (ic,kt), p1d (ic,kt), t1d (ic,kt) + ENDDO + enddo + + else + + do kt=kts,kte ! half level (kts = TOA, kte = BOA) + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + tten1d(ic,kt) = 0.e0 + t1d (ic,kt) = t3d(i,km,j) + sh1d (ic,kt) = max(0., qv3d(i,km,j)/(1.+qv3d(i,km,j)) ) + p1d (ic,kt) = p3d(i,km,j)*0.01e0 ! p1d is in mb (hPa) + rho1d (ic,kt) = rho_phy(i,km,j) !dry air density [kg/m3] + fcld1d(ic,kt) = cldfra3d(i,km,j) + dz1d (ic,kt) = dz8w(i,km,j) !dz8w is actually half level (m) (double checked) +! print*,kt,km, dz1d (ic,kt), p1d (ic,kt), t1d (ic,kt) + ENDDO + enddo + + endif + +! +! vertical profiles for ozone by pressure in half level. +! + DO ic=1,min(CHUNK,ite-ii+1) + call ozone_interp( mcdat_int(ic,:,:), dk_half, p1d(ic,:), o31d(ic,:) ) + ENDDO + + ! + ! Reverse vertical order, convert to column mass concentration and effective radius. + ! + + if ( present( f_qi ) .and. present( qi ) ) then + do kt=kts,kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + if( f_qi ) then + if( radiation_skip ) then + q1d(ic,kt,id_ice) = ave(qi3d(i:ie(ic),km,j:je(ic))) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_ice) = avew(rei3d(i:ie(ic),km,j:je(ic)),qi3d(i:ie(ic),km,j:je(ic))) ! effective radius [um] + else + q1d(ic,kt,id_ice) = qi3d(i,km,j) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_ice) = rei3d(i,km,j) ! effective radius [um] + endif + if( NUWRF_DEBUG ) call check_reff('ice',q1d(ic,kt,id_ice),re1d(ic,kt,id_ice),i,j,kt) + else + q1d(ic,kt,id_ice) = 0.e0 + re1d(ic,kt,id_ice) = 0.e0 + endif + ENDDO + enddo + endif + + if ( present( f_qc ) .and. present( qc ) ) then + do kt=kts,kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + if( f_qc ) then + if( radiation_skip ) then + q1d(ic,kt,id_cloud) = ave(qc3d(i:ie(ic),km,j:je(ic))) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_cloud) = avew(rec3d(i:ie(ic),km,j:je(ic)),qc3d(i:ie(ic),km,j:je(ic))) ! effective radius [um] + else + q1d(ic,kt,id_cloud) = qc3d(i,km,j) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_cloud) = rec3d(i,km,j) ! effective radius [um] + endif + if( NUWRF_DEBUG ) call check_reff('cloud',q1d(ic,kt,id_cloud),re1d(ic,kt,id_cloud),i,j,kt) + else + q1d(ic,kt,id_cloud) = 0.e0 + re1d(ic,kt,id_cloud) = 0.e0 + endif + ENDDO + enddo + endif + + if ( present( f_qr ) .and. present( qr ) ) then + do kt=kts,kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + if( f_qr ) then + if( radiation_skip ) then + q1d(ic,kt,id_rain) = ave(qr3d(i:ie(ic),km,j:je(ic))) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_rain) = avew(rer3d(i:ie(ic),km,j:je(ic)),qr3d(i:ie(ic),km,j:je(ic))) ! effective radius [um] + else + q1d(ic,kt,id_rain) = qr3d(i,km,j) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_rain) = rer3d(i,km,j) ! effective radius [um] + endif + if( .not. opt_account_precip ) then + q1d(ic,kt,id_rain) = 0.e0 + re1d(ic,kt,id_rain) = 0.e0 + endif + if( NUWRF_DEBUG ) call check_reff('rain',q1d(ic,kt,id_rain),re1d(ic,kt,id_rain),i,j,kt) + else + q1d(ic,kt,id_rain) = 0.e0 + re1d(ic,kt,id_rain) = 0.e0 + endif + ENDDO + enddo + endif + + if ( present( f_qs ) .and. present( qs ) ) then + do kt=kts,kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + if( f_qs ) then + if( radiation_skip ) then + q1d(ic,kt,id_snow) = ave(qs3d(i:ie(ic),km,j:je(ic))) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_snow) = avew(res3d(i:ie(ic),km,j:je(ic)), qs3d(i:ie(ic),km,j:je(ic))) ! effective radius [um] + else + q1d(ic,kt,id_snow) = qs3d(i,km,j) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_snow) = res3d(i,km,j) ! effective radius [um] + endif + if( NUWRF_DEBUG ) call check_reff('snow',q1d(ic,kt,id_snow),re1d(ic,kt,id_snow),i,j,kt) + if( .not. opt_account_precip ) then + q1d(ic,kt,id_snow) = 0.e0 + re1d(ic,kt,id_snow) = 0.e0 + endif + else + q1d(ic,kt,id_snow) = 0.e0 + re1d(ic,kt,id_snow) = 0.e0 + endif + ENDDO + enddo + endif + + if ( present( f_qg ) .and. present( qg ) ) then + do kt=kts,kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + if( f_qg ) then + if( radiation_skip ) then + q1d(ic,kt,id_graupel) = ave(qg3d(i:ie(ic),km,j:je(ic))) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_graupel) = avew(reg3d(i:ie(ic),km,j:je(ic)),qg3d(i:ie(ic),km,j:je(ic))) ! effective radius [um] + else + q1d(ic,kt,id_graupel) = qg3d(i,km,j) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_graupel) = reg3d(i,km,j) ! effective radius [um] + endif + if( .not. opt_account_precip ) then + q1d(ic,kt,id_graupel) = 0.e0 + re1d(ic,kt,id_graupel) = 0.e0 + endif + if( NUWRF_DEBUG ) call check_reff('graupel',q1d(ic,kt,id_graupel),re1d(ic,kt,id_graupel),i,j,kt) + else + q1d(ic,kt,id_graupel) = 0.e0 + re1d(ic,kt,id_graupel) = 0.e0 + endif + ENDDO + enddo + endif + + if ( present( f_qh ) .and. present( qh ) ) then + do kt=kts,kte + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! km=kme-kt+kms-1 + km=kte-kt+kts + if( f_qh ) then + if( radiation_skip ) then + q1d(ic,kt,id_hail) = ave(qh3d(i:ie(ic),km,j:je(ic))) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_hail) = avew(reh3d(i:ie(ic),km,j:je(ic)),qh3d(i:ie(ic),km,j:je(ic))) ! effective radius [um] + else + q1d(ic,kt,id_hail) = qh3d(i,km,j) * rho1d(ic,kt) * 1.e+3 ! mass concentration [g/m3] + re1d(ic,kt,id_hail) = reh3d(i,km,j) ! effective radius [um] + endif + if( .not. opt_account_precip ) then + q1d(ic,kt,id_hail) = 0.e0 + re1d(ic,kt,id_hail) = 0.e0 + endif + if( NUWRF_DEBUG ) call check_reff('hail',q1d(ic,kt,id_hail),re1d(ic,kt,id_hail),i,j,kt) + else + q1d(ic,kt,id_hail) = 0.e0 + re1d(ic,kt,id_hail) = 0.e0 + endif + ENDDO + enddo + endif + + +! +! vertical-level indices separating high, middle and low clouds. +! Needed for cloud overlapping and twostream_adding routines. +! + p400(:) = 1.e5 + p700(:) = 1.e5 + do kt = kts,kte + DO ic=1,min(CHUNK,ite-ii+1) + if (abs(p1d(ic,kt) - 400.) .lt. p400(ic)) then + p400(ic) = abs(p1d(ic,kt) - 400.) + ict(ic) = kt + endif + if (abs(p1d(ic,kt) - 700.) .lt. p700(ic)) then + p700(ic) = abs(p1d(ic,kt) - 700.) + icb(ic) = kt + endif + ENDDO + end do + + + + rad_select: select case(sw_or_lw) + +! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW +! SW SW SW SW SW SW SW SW Shortwave scheme SW SW SW SW SW SW SW SW SW +! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW + + case ('sw') + + ! + ! Derive cloud single-scattering properties + ! + call opt_cloud( sw_or_lw, dk_half ,nband_sw, dz1d, q1d, & + re1d, taucl_sw, ssacl_sw, asycl_sw, min(CHUNK,ite-ii+1) ) + + ! + ! column cloud optical depth for visible (PAR) band + ! + if( radiation_skip ) then + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + cod2d_out(i:ie(ic),j:je(ic)) = sum(taucl_sw(ic,kts:kte,8)) + ENDDO + else + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + cod2d_out(i,j) = sum(taucl_sw(ic,kts:kte,8)) + ENDDO + endif + + ! + ! cloud-top pressure (threshold is optical depth 0.01) + ! + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + ctop_loop: do k = kts,kte + if( taucl_sw(ic,k,8) >= 0.01 ) then + if( radiation_skip ) then + ctop2d_out(i:ie(ic),j:je(ic)) = p1d(ic,k) !cloud-top pressure [mb] + else + ctop2d_out(i,j) = p1d(ic,k) !cloud-top pressure [mb] + endif + exit ctop_loop + endif + enddo ctop_loop + ENDDO + +! +! compute aerosol sigle-scattering properties. +! + DO ic=1,min(CHUNK,ite-ii+1) + taual_sw(ic,:,:) = 0. + ssaal_sw(ic,:,:) = 0. + asyal_sw(ic,:,:) = 0. + ENDDO + +#if (WRF_CHEM == 1) + + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcrad_gocart_coupling == 1) ) then + + if( radiation_skip ) then + do kt=kts,kte ! half level (kts = TOA, kte = BOA) +! km=kme-kt+kms-1 + km=kte-kt+kts + do n = 1, num_go + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + aero1d(ic,kt,n)=ave(aero(i:ie(ic),km,j:je(ic),n)) + ENDDO + enddo + enddo + else + do kt=kts,kte ! half level (kts = TOA, kte = BOA) +! km=kme-kt+kms-1 + km=kte-kt+kts + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + aero1d(ic,kt,:)=aero(i,km,j,:) + ENDDO + enddo + endif + ! + ! Derive aerosol optical properties in 1D manner (must be here to reduce memory size) + ! + + DO ic=1,min(CHUNK,ite-ii+1) + call aero_opt(sw_or_lw, dk_half, nband_sw, p1d(ic,:), t1d(ic,:), sh1d(ic,:), & + dz1d(ic,:), aero1d(ic,:,:), taual_sw(ic,:,:), ssaal_sw(ic,:,:), asyal_sw(ic,:,:)) + ENDDO + + ! + ! Output AOD profile at PAR band for diagnostic purpose + ! + if( radiation_skip ) then + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + aod2d_out(i:ie(ic),j:je(ic)) = sum(taual_sw(ic,:,8)) ! 8 is PAR band (0.400-0.700 micron band) + ENDDO + else + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + aod2d_out(i,j) = sum(taual_sw(ic,:,8)) ! 8 is PAR band (0.400-0.700 micron band) + ENDDO + endif + + ! + ! Output aerosol-top pressure (useful for PBL) + ! + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + atop_loop: do k = kts,kte + if( taual_sw(ic,k,8) >= 0.01 ) then + if( radiation_skip ) then + atop2d_out(i:ie(ic),j:je(ic)) = p1d(ic,k) ! aerosol-top pressure [mb] + else + atop2d_out(i,j) = p1d(ic,k) ! aerosol-top pressure [mb] + endif + exit atop_loop + endif + enddo atop_loop + ENDDO + + else + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + if( radiation_skip ) then + aod2d_out(i:ie(ic),j:je(ic)) = 0.e0 + atop2d_out(i:ie(ic),j:je(ic)) = -999.e0 + else + aod2d_out(i,j) = 0.e0 + atop2d_out(i,j) = -999.e0 + endif + ENDDO + endif + + +#endif + +! +! if SW computation and nighttime skip all process. (new optimization) +! + + if (present(coszen)) then ! jararias, 14/08/2013 + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 +! call wrf_debug(100,'using coszen from radiation driver') + if( radiation_skip ) then + cosz(ic)=ave(coszen(i:ie(ic),j:je(ic))) + else + cosz(ic)=coszen(i,j) + endif + ENDDO + else + + ! + ! estimate cosin of solar zenith angle + ! + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + if( radiation_skip ) then + xt24 = mod(xtime + radfrq * 0.5e0, 1440.e0) + tloctm = gmt + xt24 / 60.e0 + ave(xlong(i:ie(ic),j:je(ic))) / 15.e0 + hrang = 15.e0 * (tloctm - 12.e0) * degrad + xxlat = ave(xlat(i:ie(ic),j:je(ic))) * degrad + cosz(ic) = sin(xxlat) * sin(declin) + & + cos(xxlat) * cos(declin) * cos(hrang) !cosine of solar zenith angle [-] + else + xt24 = mod(xtime + radfrq * 0.5e0, 1440.e0) + tloctm = gmt + xt24 / 60.e0 + xlong(i,j) / 15.e0 + hrang = 15.e0 * (tloctm - 12.e0) * degrad + xxlat = xlat(i,j) * degrad + cosz(ic) = sin(xxlat) * sin(declin) + & + cos(xxlat) * cos(declin) * cos(hrang) !cosine of solar zenith angle [-] + + endif + ENDDO + endif + + +! +! 1-dimension driver of shortwave radiative transfer scheme (all double precision) +! (only pressure is full level, other are half layer.) +! + + no_micro = .false. + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + if (cosz(ic) <= cosz_min ) then !night time skip + + ! + ! No update of theta tendancy (rthraten) and energy budget due to solar heating + ! Note skip is located here in order to compute cloud/aerosol optical depth for + ! diagnostic output even during night. + ! + if( radiation_skip ) then + rthraten(i:ie(ic),k,j:je(ic))=ave(rthraten(i:ie(ic),k,j:je(ic))) !no update of SW heating rate. + gsf(i:ie(ic),j:je(ic)) = 0.e0 !surface SW abs is zero + if(present(sflxd)) sflxd(i:ie(ic),j:je(ic),1:4) = 0.e0 ! downward SW flux are all zero. + if(present(swddni)) swddni(i:ie(ic),j:je(ic)) = 0.e0 !total SW direct radiation at normal direction [W/m2] + if(present(swddir)) swddir(i:ie(ic),j:je(ic)) = 0.e0 !total SW direct radiation [W/m2] + if(present(swddif)) swddif(i:ie(ic),j:je(ic)) = 0.e0 !total SW diffuse radiation [W/m2] + ERBE_out(i:ie(ic),j:je(ic),5:8) = 0.e0 !SW energy budget are all zeo. + else + rthraten(i,k,j)=rthraten(i,k,j) !no update of SW heating rate. + gsf(i,j) = 0.e0 !surface SW abs is zero + if(present(sflxd)) sflxd(i,j,1:4) = 0.e0 ! downward SW flux are all zero. + if(present(swddni)) swddni(i,j) = 0.e0 !total SW direct radiation at normal direction [W/m2] + if(present(swddir)) swddir(i,j) = 0.e0 !total SW direct radiation [W/m2] + if(present(swddif)) swddif(i,j) = 0.e0 !total SW diffuse radiation [W/m2] + ERBE_out(i,j,5:8) = 0.e0 !SW energy budget are all zeo. + endif + no_micro(ic) = .true. + + endif + ENDDO + + if (ALL(no_micro(1:min(CHUNK,ite-ii+1)))) cycle + lmask = .true. + lmask = lmask .and. (.not. no_micro) + +! +! surface spectrum albedo for direct and diffuse radiation +! (T. Matsui-> this should be modified to account for spectrum albedo. ) +! For example Seller's canopy albedo model gives rsuvbm, rsuvdf, rsirbm, rsirdf +! independently. +! + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + i = ii+ic-1 + if( radiation_skip ) then + rsuvbm(ic) = ave(alb(i:ie(ic),j:je(ic))) + rsuvdf(ic) = ave(alb(i:ie(ic),j:je(ic))) + rsirbm(ic) = ave(alb(i:ie(ic),j:je(ic))) + rsirdf(ic) = ave(alb(i:ie(ic),j:je(ic))) + else + rsuvbm(ic) = alb(i,j) + rsuvdf(ic) = alb(i,j) + rsirbm(ic) = alb(i,j) + rsirdf(ic) = alb(i,j) + endif + endif + ENDDO +! +! drive shortwave (solar) radiative transfer (1D driver) +! + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + flx(ic,:)=0. ; flxd(ic,:)=0. ; flxu(ic,:)=0. + endif + ENDDO + + +#if (RWORDSIZE == 4) + call swrad ( np=dk_half, icb=icb, ict=ict, fcld=dble(fcld1d), & + pl=dble(p8w1d), ta=dble(t1d), wa=dble(sh1d), oa=dble(o31d), & + taucl=dble(taucl_sw), ssacl=dble(ssacl_sw), asycl=dble(asycl_sw), & + taual=dble(taual_sw), ssaal=dble(ssaal_sw), asyal=dble(asyal_sw), & + cosz=dble(cosz), rsuvbm=dble(rsuvbm), rsuvdf=dble(rsuvdf), rsirbm=dble(rsirbm), rsirdf=dble(rsirdf),& + flx_out=flx, flxd_out=flxd,flxu_out=flxu, flxd_surf = flxd_surf, lmask=lmask, irestrict=min(CHUNK,ite-ii+1) ) +#elif (RWORDSIZE == 8) + call swrad ( np=dk_half, icb=icb, ict=ict, fcld=fcld1d, & + pl=p8w1d, ta=t1d, wa=sh1d, oa=o31d, & + taucl=taucl_sw, ssacl=ssacl_sw, asycl=asycl_sw, & + taual=taual_sw, ssaal=ssaal_sw, asyal=asyal_sw, & + cosz=cosz, rsuvbm=rsuvbm, rsuvdf=rsuvdf, rsirbm=rsirbm, rsirdf=rsirdf,& + flx_out=flx, flxd_out=flxd,flxu_out=flxu, flxd_surf = flxd_surf, lmask=lmask, irestrict=min(CHUNK,ite-ii+1) ) +#endif + +! +! convert the units of flx from flux fraction to W/m2 (full level) +! + do kt=kts-1,kte !full level ( kts -1 = TOA, kte = BOA ) + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + flx(ic,kt) = flx(ic,kt) * solcon * cosz(ic) + endif + ENDDO + enddo + +! +! calculate heating rate (deg/sec) +! + fac = .01 * g / cp + + do kt=kts,kte !half level ( kts = TOA, kte = BOA ) + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + i = ii+ic -1 + tten1d(ic,kt) = - fac * (flx(ic,kt-1) - flx(ic,kt)) / (p8w1d(ic,kt-1)-p8w1d(ic,kt)) + + ! check error + if( ieee_is_nan( tten1d(ic,kt) ) ) then + print*,'MSG goddardrad SW: Found NaN in tten1d(k)',i,j,kt + print*,'p8w1d',p8w1d(ic,:) + print*,'t1d',t1d(ic,:) + print*,'sh1d',sh1d(ic,:) + print*,'o31d',o31d(ic,:) + print*,'q1d',q1d(ic,:,:) + print*,'emis1d',emis1d(ic,:) + print*,'re1d',re1d(ic,:,:) + print*,'taual_sw',taual_sw(ic,:,:) + print*,'ssaal_sw',ssaal_sw(ic,:,:) + print*,'asyal_sw',asyal_sw(ic,:,:) + tten1d(ic,kt) = 0. !brute force correction + endif + endif + ENDDO + enddo + +! +! Update theta tendency due to radiative heating (K/sec) +! + do kt=kts,kte !half level + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + i = ii+ic -1 +! km=kme-kt+kms-1 + km=kte-kt+kts + + if(tten1d(ic,kt) < 0. ) then + print*,'MSG goddardrad : WARNING Negative SW heating =',& + tten1d(ic,kt)/pi3d(i,km,j)*3600.*24.,'[K/day] at point ikj',i,km,j + print*,'cosz=',cosz(ic) + tten1d(ic,kt) = 0. !brute force correction + endif + + if( radiation_skip ) then + rthraten(i:ie(ic),km,j:je(ic))=ave(rthraten(i:ie(ic),km,j:je(ic))) & + +tten1d(ic,kt)/ave(pi3d(i:ie(ic),km,j:je(ic))) !update heating ratio [K/s] + else + rthraten(i,km,j)=rthraten(i,km,j)+tten1d(ic,kt)/pi3d(i,km,j) !update heating ratio [K/s] + endif + endif + ENDDO + enddo + + if( radiation_skip ) then + +! +! absorbed part in surface energy budget [W/m^2] (Note that flxd in SW is flux fraction) +! + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + i = ii+ic-1 + gsf(i:ie(ic),j:je(ic)) = (1. - rsuvbm(ic)) * flxd(ic,kte) * solcon * cosz(ic) + endif + ENDDO + +! +! More detailed surface flux for Seller's canoppy radiative transfer +! + do n = 1, 4 + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + i = ii+ic-1 + if(present(sflxd)) sflxd(i:ie(ic),j:je(ic),n) = flxd_surf(ic,n) * solcon * cosz(ic) !surface dir/dif PAR/NIR downward radiation [W/m2] + endif + ENDDO + enddo +! +! Extra output for NCAR WRF V3.5.1 (modified) +! + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + i = ii+ic-1 + if(present(swddni)) swddni(i:ie(ic),j:je(ic)) = (flxd_surf(ic,1)+flxd_surf(ic,3)) * solcon !total SW direct radiation at normal direction [W/m2] + if(present(swddir)) swddir(i:ie(ic),j:je(ic)) = swddni(i,j) * cosz(ic) !total SW direct radiation [W/m2] + if(present(swddif)) swddif(i:ie(ic),j:je(ic)) = (flxd_surf(ic,2)+flxd_surf(ic,4)) * solcon * cosz(ic) !total SW diffuse radiation [W/m2] + +! +! extra output for earth radiation budget +! + ERBE_out(i:ie(ic),j:je(ic),5) = flxd(ic,kts-1) * solcon * cosz(ic) ! TOA SW downwelling flux [W/m2] + ERBE_out(i:ie(ic),j:je(ic),6) = flxu(ic,kts-1) * solcon * cosz(ic) ! TOA SW upwelling flux [W/m2] + ERBE_out(i:ie(ic),j:je(ic),7) = flxd(ic,kte) * solcon * cosz(ic) ! surface SW downwelling flux [W/m2] + ERBE_out(i:ie(ic),j:je(ic),8) = flxu(ic,kte) * solcon * cosz(ic) ! surface SW upwelling flux [W/m2] + endif + ENDDO + + else + +! +! absorbed part in surface energy budget [W/m^2] (Note that flxd in SW is flux fraction) +! + DO ic=1,min(CHUNK,ite-ii+1) + if(lmask(ic) .eqv. .true.) then + i = ii+ic-1 + + gsf(i,j) = (1. - rsuvbm(ic)) * flxd(ic,kte) * solcon * cosz(ic) + +! +! More detailed surface flux for Seller's canoppy radiative transfer +! + if(present(sflxd)) sflxd(i,j,1:4) = flxd_surf(ic,1:4) * solcon * cosz(ic) !surface dir/dif PAR/NIR downward radiation [W/m2] + +! +! Extra output for NCAR WRF V3.5.1 (modified) +! + if(present(swddni)) swddni(i,j) = (flxd_surf(ic,1)+flxd_surf(ic,3)) * solcon !total SW direct radiation at normal direction [W/m2] + if(present(swddir)) swddir(i,j) = swddni(i,j) * cosz(ic) !total SW direct radiation [W/m2] + if(present(swddif)) swddif(i,j) = (flxd_surf(ic,2)+flxd_surf(ic,4)) * solcon * cosz(ic) !total SW diffuse radiation [W/m2] + +! +! extra output for earth radiation budget +! + ERBE_out(i,j,5) = flxd(ic,kts-1) * solcon * cosz(ic) ! TOA SW downwelling flux [W/m2] + ERBE_out(i,j,6) = flxu(ic,kts-1) * solcon * cosz(ic) ! TOA SW upwelling flux [W/m2] + ERBE_out(i,j,7) = flxd(ic,kte) * solcon * cosz(ic) ! surface SW downwelling flux [W/m2] + ERBE_out(i,j,8) = flxu(ic,kte) * solcon * cosz(ic) ! surface SW upwelling flux [W/m2] + endif + ENDDO + + endif + +! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW +! LW LW LW LW LW LW LW LW Longwave scheme LW LW LW LW LW LW LW LW LW +! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW + + case ('lw') + + +! +! compute condensate single-scattering properties. +! + call opt_cloud( sw_or_lw, dk_half ,nband_lw, dz1d, q1d, & + re1d, taucl_lw, ssacl_lw, asycl_lw, min(CHUNK,ite-ii+1) ) + +! +! initialize aerosol LW optical properties +! + taual_lw = 0. + ssaal_lw = 0. + asyal_lw = 0. + +#if (WRF_CHEM == 1) + + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcrad_gocart_coupling == 1) ) then + + if( radiation_skip ) then + do kt=kts,kte ! half level (kts = TOA, kte = BOA) +! km=kme-kt+kms-1 + km=kte-kt+kts + do n = 1, num_go + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + aero1d(ic,kt,n)=ave(aero(i:ie(ic),km,j:je(ic),n)) + ENDDO + enddo + enddo + else + do kt=kts,kte ! half level (kts = TOA, kte = BOA) +! km=kme-kt+kms-1 + km=kte-kt+kts + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic-1 + aero1d(ic,kt,:)=aero(i,km,j,:) + ENDDO + enddo + endif + + ! + ! Derive aerosol LW optical properties in 1D manner (must be here to reduce memory size) + ! + DO ic=1,min(CHUNK,ite-ii+1) + call aero_opt(sw_or_lw, dk_half, nband_lw, p1d(ic,:), t1d(ic,:), sh1d(ic,:), & + dz1d(ic,:), aero1d(ic,:,:), taual_lw(ic,:,:), ssaal_lw(ic,:,:), asyal_lw(ic,:,:)) + ENDDO + + else + do kt=kts,kte ! half level (kts = TOA, kte = BOA) +! km=kme-kt+kms-1 + km=kte-kt+kts + DO ic=1,min(CHUNK,ite-ii+1) + aero1d(ic,kt,:)=0 + ENDDO + enddo + end if + +#endif + +! +! surface parameters +! + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + tsfc(ic) = t8w1d(ic,kte) !surface-layer air temperature [K] + if( radiation_skip ) then + tskin(ic) = ave(tsk(i:ie(ic),j:je(ic))) !surface skin temperature [K] + emis1d(ic,1:nband_lw) = ave(emiss(i:ie(ic),j:je(ic))) !(Toshi- this should be modified to account for spectrum emissivity) + else + tskin(ic) = tsk(i,j) !surface skin temperature [K] + emis1d(ic,1:nband_lw) = emiss(i,j) !(Toshi- this should be modified to account for spectrum emissivity) + endif + ENDDO +! +! 1-dimension driver of longwave radiative transfer scheme +! + +#if (RWORDSIZE == 4) + call lwrad ( np=dk_half, tb=dble(tsfc), ts=dble(tskin), ict=ict, icb=icb,& + pl=dble(p8w1d), ta=dble(t1d), wa=dble(sh1d), oa=dble(o31d), & + emiss=dble(emis1d), fcld=dble(fcld1d), & + taucl=dble(taucl_lw), ssacl=dble(ssacl_lw), asycl=dble(asycl_lw), & + taual=dble(taual_lw), ssaal=dble(ssaal_lw), asyal=dble(asyal_lw), & + flx_out=flx, acflxd_out=flxd, acflxu_out=flxu, irestrict=min(CHUNK,ite-ii+1) ) +#elif (RWORDSIZE == 8) + call lwrad ( np=dk_half, tb=tsfc, ts=tskin, ict=ict, icb=icb,& + pl=p8w1d, ta=t1d, wa=sh1d, oa=o31d, & + emiss=emis1d, fcld=fcld1d, & + taucl=taucl_lw, ssacl=ssacl_lw, asycl=asycl_lw, & + taual=taual_lw, ssaal=ssaal_lw, asyal=asyal_lw, & + flx_out=flx, acflxd_out=flxd, acflxu_out=flxu, irestrict=min(CHUNK,ite-ii+1) ) +#endif + +! +! calculate heating rate (deg/sec) +! + fac = .01 * g / cp + + do kt=kts,kte !half level ( kts = TOA, kte = BOA ) + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + tten1d(ic,kt) = - fac * (flx(ic,kt-1) - flx(ic,kt)) / (p8w1d(ic,kt-1)-p8w1d(ic,kt)) + + if( ieee_is_nan( tten1d(ic,kt) ) ) then + print*,'MSG goddardrad LW: Found NaN in tten1d(k)',i,j,kt + print*,'tsfc',tsfc(ic) + print*,'tskin',tskin(ic) + print*,'p8w1d',p8w1d(ic,:) + print*,'t1d',t1d(ic,:) + print*,'sh1d',sh1d(ic,:) + print*,'o31d',o31d(ic,:) + print*,'q1d',q1d(ic,:,:) + print*,'emis1d',emis1d(ic,:) + print*,'re1d',re1d(ic,:,:) + print*,'taual_lw',taual_lw(ic,:,:) + print*,'ssaal_lw',ssaal_lw(ic,:,:) + print*,'asyal_lw',asyal_lw(ic,:,:) + tten1d(ic,k) = 0. !brute force correction + endif + ENDDO + enddo + +! +! get theta tendency due to radiative heating (K/sec) +! + do kt=kts,kte !half level + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 +! km=kme-kt+kms-1 + km=kte-kt+kts + if( radiation_skip ) then + rthraten(i:ie(ic),km,j:je(ic))=ave(rthraten(i:ie(ic),km,j:je(ic)))& + +tten1d(ic,kt)/ave(pi3d(i:ie(ic),km,j:je(ic))) !update heating ratio [K/s] + else + rthraten(i,km,j)=rthraten(i,km,j)+tten1d(ic,kt)/pi3d(i,km,j) !update heating ratio [K/s] + endif + ENDDO + enddo + + if( radiation_skip ) then + +! +! downwelling/upwelling longwave radiation [W/m^2] (Note that flxd/flxu of LW is actual flux [W/m2]) +! + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + gsf(i:ie(ic),j:je(ic)) = flxd(ic,kte) !surface downwelling LW radiation + +! +! extra output for energy budget +! + ERBE_out(i:ie(ic),j:je(ic),1) = flxd(ic,kts-1) ! TOA LW downwelling flux [W/m2] + ERBE_out(i:ie(ic),j:je(ic),2) = flxu(ic,kts-1) ! TOA LW upwelling flux [W/m2] + ERBE_out(i:ie(ic),j:je(ic),3) = flxd(ic,kte) ! surface LW downwelling flux [W/m2] + ERBE_out(i:ie(ic),j:je(ic),4) = flxu(ic,kte) ! surface LW upwelling flux [W/m2] + ENDDO + + else +! +! downwelling/upwelling longwave radiation [W/m^2] (Note that flxd/flxu of LW is actual flux [W/m2]) +! + DO ic=1,min(CHUNK,ite-ii+1) + i = ii+ic -1 + gsf(i,j) = flxd(ic,kte) !surface downwelling LW radiation + +! +! extra output for energy budget +! + ERBE_out(i,j,1) = flxd(ic,kts-1) ! TOA LW downwelling flux [W/m2] + ERBE_out(i,j,2) = flxu(ic,kts-1) ! TOA LW upwelling flux [W/m2] + ERBE_out(i,j,3) = flxd(ic,kte) ! surface LW downwelling flux [W/m2] + ERBE_out(i,j,4) = flxu(ic,kte) ! surface LW upwelling flux [W/m2] + ENDDO + endif + + case default + call wrf_error_fatal('MSG: goddardrad: option does not exist. check sw_or_lw ') + end select rad_select + + ENDIF + ENDDO + + end subroutine goddardrad + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - logical, optional, intent(in ) :: f_qv,f_qc,f_qr,f_qi,f_qs,f_qg !hydrometeor flags + subroutine sounding_interp(lat,julday, mcdat_int) + implicit none +!---------------------------------------------------------------------- +! Purpose: This routines interpolate sounding climatology for a given +! julian date and latitude. ! - real, dimension( ims:ime, kms:kme, jms:jme ), intent(inout) :: & - rthraten, & ! theta tendency due to radiative heating (K/sec) - taucldi, & ! ice cloud optical thickness for visible broadband - taucldc ! liquid cloud optical thickness for visible braodband +! History: +! 09/2015 Toshi Matsui@NASA GSFC : mcdat_int is io parameter now. +! 06/2008 Toshi Matsui@NASA GSFC ; Initial +!----------------------------------------------------------------------- + integer,intent(in) :: julday ! julian day + real,intent(in) :: lat ! latitude (deg) + real,dimension(ilev_max,6),intent(out) :: mcdat_int !interpolated Mclatchy Sounding climatology - real, dimension( ims:ime, jms:jme ), intent(inout) :: & - gsf ! (for SW) : net short wave flux at ground surface (W/m^2) - ! (for LW) : downward long wave flux at ground surface (W/m^2) -! -! Extra 3D variables (last dimension 1-TOA LW down, 2-TOA LW up, 3-surface LW down, 4-surface LW up) -! 5-TOA SW down, 6-TOA SW up, 7-surface SW down, 8-surface SW up) +! +! sounding related +! + integer,parameter :: jul_winter = 30 !around end of Jan + integer,parameter :: jul_summer = 212 !around end of Jun + real :: wgt_winter !winter weight + real :: wgt_summer !summer weight + real :: wgt_north !latitudinal weight + real :: wgt_south !latitudinal weight + integer :: juld !julidan date + integer :: inorth,isouth !latitudinal indice + real :: xlat !latitude + real :: lat_north,lat_south ! + real,dimension(ilev_max,6) :: mcdat_north,mcdat_south !interpolated mcdat - real, optional,dimension(ims:ime, jms:jme, 1:8),intent(out) :: ERBE_out !extra output for SDSU -! jararias, 14/08/2013 - real, optional, dimension(ims:ime, jms:jme), intent(out) :: & - swddir, & ! All-sky broadband surface direct horizontal irradiance - swddni, & ! All-sky broadband surface direct normal irradiance - swddif ! All-sky braodband surface diffuse irradiance - real, optional, dimension(ims:ime, jms:jme), intent(in) :: & - coszen ! cosine of the solar zenith angle - real, optional, intent(in) :: & - julian ! julian day (1-365) ! jararias, 14/08/2013 + wgt_winter = 0. ; wgt_summer = 0. + wgt_north = 0. ; wgt_south = 0. + +! +! Determine summer-winter weight based on julian day +! + juld = julday -! jararias, 2013/11 -! real, dimension( ims:ime, kms:kme, jms:jme, ib_sw ), optional, intent(in) :: & -! tauaer3d_sw, & ! 3D aerosol optical depth for SW bands -! ssaaer3d_sw, & ! 3D single scattering albedo for SW bands -! asyaer3d_sw ! 3D asymmetry factor for SW bands - real, dimension(:,:,:,:), pointer :: tauaer3d_sw,ssaaer3d_sw,asyaer3d_sw - integer, intent(in) :: aer_opt + if(juld < jul_winter) then + wgt_summer = REAL(jul_winter - juld) / 183. + wgt_winter = 1.-wgt_summer + elseif(juld >= jul_winter .and. juld <= jul_summer) then + wgt_summer = REAL(juld-jul_winter) / 183. + wgt_winter = 1.- wgt_summer + elseif(juld > jul_summer) then + wgt_winter = REAL(juld-jul_summer) / 183. + wgt_summer = 1.- wgt_winter + endif -!------- Local variables ---------------------------------------------- + if(lat < 0.) then !southern hemisphere (flip summer and winter weights) + wgt_summer = wgt_winter + wgt_winter = 1.-wgt_summer + endif - integer :: i,j,k,nk,ib,is ! loop indice - integer :: mix, mkx !maximum dimension for i and k +! +! Latitudinal (climatology index) weight +! + xlat = abs(lat) + inorth = 2*INT((90.-xlat)/22.5) + 1 + isouth = 2*INT((90.-xlat)/22.5) + 3 - real(Kind=fp_kind), dimension( its:ite ) :: & - cosz, & ! cosine of solar zenith angle (0~1) - rsuvbm, & ! surface albedo for direct UV-VIS radiation - rsuvdf, & ! surface albedo for diffuse UV-VIS radiation - rsirbm, & ! surface albedo for direct NIR radiation - rsirdf, & ! surface albedo for diffuse NIR radiation - tsfc, & ! surface air temperature (K) - tskin, & ! surface skin (radiative) temperature (K) - p400, & ! pressure criteria for upper - p700 ! pressure criteir for middle + mcdat_north(:,:) = wgt_summer*mcdat(:,inorth,:) + wgt_winter*mcdat(:,inorth+1,:) + mcdat_south(:,:) = wgt_summer*mcdat(:,isouth,:) + wgt_winter*mcdat(:,isouth+1,:) - real(Kind=fp_kind), dimension( its:ite, ib_lw ) :: emis2d !emissivity + lat_north = 90.- REAL((inorth-1)/2)*22.5 + lat_south = lat_north - 22.5 - integer, dimension( its:ite ) :: & - ict, & ! 400mb level indice - icb ! 700mb level indice - real(Kind=fp_kind), dimension( its:ite, kts-1:kte+1 ) :: & - flx, & !flux fraction (-) or actual flux (W/m^2) - flxd, & !donwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave) - flxu !upwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave) + wgt_north = (xlat - lat_south) / 22.5 + wgt_south = 1.- wgt_north +! +! Interpolated sounding for a given latitude and julidan date +! mcdat_int will be used in subroutines ozone_interp and sounding_strat. +! + mcdat_int(:,:) = wgt_north*mcdat_north(:,:) + wgt_south*mcdat_south(:,:) !this is module parameter - real(Kind=fp_kind), dimension( its:ite, kts-1:kte ) :: o3 !ozone profile + end subroutine sounding_interp - real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_sw ) :: & - taual_sw, & ! aerosol optical depth for SW bands - ssaal_sw, & ! aerosol single scattering albedo for SW bands - asyal_sw ! aerosol asymetry factor for SW bands +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_lw ) :: & - taual_lw, & ! aerosol optical depth for LW bands - ssaal_lw, & ! aerosol single scattering albedo for LW bands - asyal_lw ! aerosol asymetry factor for LW bands + subroutine ozone_interp( mcdat_int, mlev, pr, o3 ) + implicit none +!---------------------------------------------------------------------- +! Comments: +! This routines interpolate ozone mixing ratio for a givne pressure profile +! using sounding climatology. +! +! History: +! 09/2015 Toshi Matsui@NASA GSFC : mcdat_int is io parameter now. +! 03/2009 Toshi Matsui@NASA GSFC : bug in kk_loop was fixed. +! 04/2008 Toshi Matsui@NASA GSFC ; Initial +!----------------------------------------------------------------------- + real,dimension(ilev_max,6),intent(in) :: mcdat_int !interpolated Mclatchy Sounding climatology + integer,intent(in) :: mlev ! vertical level + real,intent(in) :: pr(mlev) ! WRF pressure (mb or hPa) + real,intent(out) :: o3(mlev) ! ozone mixing ratio (kg/kg) - real(Kind=fp_kind), dimension( its:ite, kts-1:kte, 3 ) :: & !1-ice cloud, 2-liquid cloud, 3-rain - reff, & !particle effective size (micron) - cwc !hydrometer mixing ratio (kg/kg) or (g/g) - - real(Kind=fp_kind), dimension( its: ite, kts-1:kte+1 ) :: & - p8w2d, & ! pressure in full level (mb) - t8w2d ! temperature in full level (K) - - real(Kind=fp_kind), dimension( its: ite, kts-1:kte ) :: & - tten2d, & ! temperature tendency (K/sec) - sh2d, & ! specific humidity (-) - p2d, & ! pressure (mb) - t2d, & ! temperature (K) - dz2d, & ! layer depth - fcld2d ! cloud fraction - - real(Kind=fp_kind), dimension( its:ite , kts:kte+1 ) :: phyd ! pressure (Pa) - real(Kind=fp_kind), dimension( its:ite , kts:kte ) :: phydmid ! pressure in middle (Pa) - - ! jararias, 14/08/2013 - real(Kind=fp_kind), dimension( its:ite ) :: & - fdiruv, & ! SW UV direct downwelling flux at surface (-) - fdifuv, & ! SW UV diffuse downwelling flux at surface (-) - fdirpar, & ! SW PAR direct downwelling flux at surface (-) - fdifpar, & ! SW PAR diffuse downwelling flux at surface (-) - fdirir, & ! SW IF direct downwelling flux at surface (-) - fdifir ! SW IF diffuse downwelling flux at surface (-) - real(Kind=fp_kind) :: da,eot - -! -! ozone table -! - integer, parameter :: np = 75 - real(Kind=fp_kind), dimension( np, 5 ) :: pres, ozone - real(Kind=fp_kind), dimension( np ) :: p - - integer :: iprof !index for porfile - integer,parameter :: is_summer = 80 !summer start indice - integer,parameter :: ie_summer = 265 !summer end indice -! - real(Kind=fp_kind) :: fac,x - real(Kind=fp_kind) :: xt24,tloctm,hrang,xxlat - real, intent(in) :: center_lat ! center of latitude - -!urban -! real, optional, dimension( ims:ime, jms:jme ), intent(out) :: cosz_urb2d !urban -! real, optional, dimension( ims:ime, jms:jme ), intent(out) :: omg_urb2d !urban - -!-------------------------------------------------------------------------------- -! data set 1 -! mid-latitude summer (75 levels) : p(mb) o3(g/g) -! surface temp = 294.0 -! - data (pres(i,1),i=1,np)/ & - 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & - 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & - 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & - 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & - 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & - 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & - 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, & - 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, & - 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, & - 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, & - 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, & - 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, & - 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, & - 1013.0000/ -! - data (ozone(i,1),i=1,np)/ & - 0.1793e-06, 0.2228e-06, 0.2665e-06, 0.3104e-06, 0.3545e-06, & - 0.3989e-06, 0.4435e-06, 0.4883e-06, 0.5333e-06, 0.5786e-06, & - 0.6241e-06, 0.6698e-06, 0.7157e-06, 0.7622e-06, 0.8557e-06, & - 0.1150e-05, 0.1462e-05, 0.1793e-05, 0.2143e-05, 0.2512e-05, & - 0.2902e-05, 0.3313e-05, 0.4016e-05, 0.5193e-05, 0.6698e-05, & - 0.8483e-05, 0.9378e-05, 0.9792e-05, 0.1002e-04, 0.1014e-04, & - 0.9312e-05, 0.7834e-05, 0.6448e-05, 0.5159e-05, 0.3390e-05, & - 0.1937e-05, 0.1205e-05, 0.8778e-06, 0.6935e-06, 0.5112e-06, & - 0.3877e-06, 0.3262e-06, 0.2770e-06, 0.2266e-06, 0.2020e-06, & - 0.1845e-06, 0.1679e-06, 0.1519e-06, 0.1415e-06, 0.1317e-06, & - 0.1225e-06, 0.1137e-06, 0.1055e-06, 0.1001e-06, 0.9487e-07, & - 0.9016e-07, 0.8641e-07, 0.8276e-07, 0.7930e-07, 0.7635e-07, & - 0.7347e-07, 0.7065e-07, 0.6821e-07, 0.6593e-07, 0.6368e-07, & - 0.6148e-07, 0.5998e-07, 0.5859e-07, 0.5720e-07, 0.5582e-07, & - 0.5457e-07, 0.5339e-07, 0.5224e-07, 0.5110e-07, 0.4999e-07/ - -!-------------------------------------------------------------------------------- -! data set 2 -! mid-latitude winter (75 levels) : p(mb) o3(g/g) -! surface temp = 272.2 -! - data (pres(i,2),i=1,np)/ & - 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & - 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & - 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & - 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & - 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & - 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & - 31.5105, 44.2001, 62.0000, 85.9000, 109.8000, 133.7000, & - 157.6000, 181.5000, 205.4000, 229.3000, 253.2000, 277.1000, & - 301.0000, 324.9000, 348.8000, 372.7000, 396.6000, 420.5000, & - 444.4000, 468.3000, 492.2000, 516.1000, 540.0000, 563.9000, & - 587.8000, 611.7000, 635.6000, 659.5000, 683.4000, 707.3000, & - 731.2000, 755.1000, 779.0000, 802.9000, 826.8000, 850.7000, & - 874.6000, 898.5000, 922.4000, 946.3000, 970.2000, 994.1000, & - 1018.0000/ -! - data (ozone(i,2),i=1,np)/ & - 0.2353e-06, 0.3054e-06, 0.3771e-06, 0.4498e-06, 0.5236e-06, & - 0.5984e-06, 0.6742e-06, 0.7511e-06, 0.8290e-06, 0.9080e-06, & - 0.9881e-06, 0.1069e-05, 0.1152e-05, 0.1319e-05, 0.1725e-05, & - 0.2145e-05, 0.2581e-05, 0.3031e-05, 0.3497e-05, 0.3980e-05, & - 0.4478e-05, 0.5300e-05, 0.6725e-05, 0.8415e-05, 0.1035e-04, & - 0.1141e-04, 0.1155e-04, 0.1143e-04, 0.1093e-04, 0.1060e-04, & - 0.9720e-05, 0.8849e-05, 0.7424e-05, 0.6023e-05, 0.4310e-05, & - 0.2820e-05, 0.1990e-05, 0.1518e-05, 0.1206e-05, 0.9370e-06, & - 0.7177e-06, 0.5450e-06, 0.4131e-06, 0.3277e-06, 0.2563e-06, & - 0.2120e-06, 0.1711e-06, 0.1524e-06, 0.1344e-06, 0.1199e-06, & - 0.1066e-06, 0.9516e-07, 0.8858e-07, 0.8219e-07, 0.7598e-07, & - 0.6992e-07, 0.6403e-07, 0.5887e-07, 0.5712e-07, 0.5540e-07, & - 0.5370e-07, 0.5214e-07, 0.5069e-07, 0.4926e-07, 0.4785e-07, & - 0.4713e-07, 0.4694e-07, 0.4676e-07, 0.4658e-07, 0.4641e-07, & - 0.4634e-07, 0.4627e-07, 0.4619e-07, 0.4612e-07, 0.4605e-07/ - - -!-------------------------------------------------------------------------------- -! data set 3 -! sub-arctic summer (75 levels) : p(mb) o3(g/g) -! surface temp = 287.0 -! - data (pres(i,3),i=1,np)/ & - 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & - 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & - 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & - 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & - 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & - 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & - 31.5105, 44.2001, 62.0000, 85.7000, 109.4000, 133.1000, & - 156.8000, 180.5000, 204.2000, 227.9000, 251.6000, 275.3000, & - 299.0000, 322.7000, 346.4000, 370.1000, 393.8000, 417.5000, & - 441.2000, 464.9000, 488.6000, 512.3000, 536.0000, 559.7000, & - 583.4000, 607.1000, 630.8000, 654.5000, 678.2000, 701.9000, & - 725.6000, 749.3000, 773.0000, 796.7000, 820.4000, 844.1000, & - 867.8000, 891.5000, 915.2000, 938.9000, 962.6000, 986.3000, & - 1010.0000/ -! - data (ozone(i,3),i=1,np)/ & - 0.1728e-06, 0.2131e-06, 0.2537e-06, 0.2944e-06, 0.3353e-06, & - 0.3764e-06, 0.4176e-06, 0.4590e-06, 0.5006e-06, 0.5423e-06, & - 0.5842e-06, 0.6263e-06, 0.6685e-06, 0.7112e-06, 0.7631e-06, & - 0.1040e-05, 0.1340e-05, 0.1660e-05, 0.2001e-05, 0.2362e-05, & - 0.2746e-05, 0.3153e-05, 0.3762e-05, 0.4988e-05, 0.6518e-05, & - 0.8352e-05, 0.9328e-05, 0.9731e-05, 0.8985e-05, 0.7632e-05, & - 0.6814e-05, 0.6384e-05, 0.5718e-05, 0.4728e-05, 0.4136e-05, & - 0.3033e-05, 0.2000e-05, 0.1486e-05, 0.1121e-05, 0.8680e-06, & - 0.6474e-06, 0.5164e-06, 0.3921e-06, 0.2996e-06, 0.2562e-06, & - 0.2139e-06, 0.1723e-06, 0.1460e-06, 0.1360e-06, 0.1267e-06, & - 0.1189e-06, 0.1114e-06, 0.1040e-06, 0.9678e-07, 0.8969e-07, & - 0.8468e-07, 0.8025e-07, 0.7590e-07, 0.7250e-07, 0.6969e-07, & - 0.6694e-07, 0.6429e-07, 0.6208e-07, 0.5991e-07, 0.5778e-07, & - 0.5575e-07, 0.5403e-07, 0.5233e-07, 0.5067e-07, 0.4904e-07, & - 0.4721e-07, 0.4535e-07, 0.4353e-07, 0.4173e-07, 0.3997e-07/ - - -!-------------------------------------------------------------------------------- -! data set 3 -! sub-arctic winter (75 levels) : p(mb) o3(g/g) -! surface temp = 257.1 -! - data (pres(i,4),i=1,np)/ & - 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & - 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & - 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & - 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & - 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & - 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & - 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, & - 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, & - 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, & - 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, & - 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, & - 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, & - 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, & - 1013.0000/ -! - data (ozone(i,4),i=1,np)/ & - 0.2683e-06, 0.3562e-06, 0.4464e-06, 0.5387e-06, 0.6333e-06, & - 0.7301e-06, 0.8291e-06, 0.9306e-06, 0.1034e-05, 0.1140e-05, & - 0.1249e-05, 0.1360e-05, 0.1474e-05, 0.1855e-05, 0.2357e-05, & - 0.2866e-05, 0.3383e-05, 0.3906e-05, 0.4437e-05, 0.4975e-05, & - 0.5513e-05, 0.6815e-05, 0.8157e-05, 0.1008e-04, 0.1200e-04, & - 0.1242e-04, 0.1250e-04, 0.1157e-04, 0.1010e-04, 0.9063e-05, & - 0.8836e-05, 0.8632e-05, 0.8391e-05, 0.7224e-05, 0.6054e-05, & - 0.4503e-05, 0.3204e-05, 0.2278e-05, 0.1833e-05, 0.1433e-05, & - 0.9996e-06, 0.7440e-06, 0.5471e-06, 0.3944e-06, 0.2852e-06, & - 0.1977e-06, 0.1559e-06, 0.1333e-06, 0.1126e-06, 0.9441e-07, & - 0.7678e-07, 0.7054e-07, 0.6684e-07, 0.6323e-07, 0.6028e-07, & - 0.5746e-07, 0.5468e-07, 0.5227e-07, 0.5006e-07, 0.4789e-07, & - 0.4576e-07, 0.4402e-07, 0.4230e-07, 0.4062e-07, 0.3897e-07, & - 0.3793e-07, 0.3697e-07, 0.3602e-07, 0.3506e-07, 0.3413e-07, & - 0.3326e-07, 0.3239e-07, 0.3153e-07, 0.3069e-07, 0.2987e-07/ - -!-------------------------------------------------------------------------------- -! data set 4 -! tropical (75 levels) : p(mb) o3(g/g) -! surface temp = 300.0 -! - data (pres(i,5),i=1,np)/ & - 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & - 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & - 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & - 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & - 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & - 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & - 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, & - 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, & - 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, & - 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, & - 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, & - 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, & - 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, & - 1013.0000/ -! - data (ozone(i,5),i=1,np)/ & - 0.1993e-06, 0.2521e-06, 0.3051e-06, 0.3585e-06, 0.4121e-06, & - 0.4661e-06, 0.5203e-06, 0.5748e-06, 0.6296e-06, 0.6847e-06, & - 0.7402e-06, 0.7959e-06, 0.8519e-06, 0.9096e-06, 0.1125e-05, & - 0.1450e-05, 0.1794e-05, 0.2156e-05, 0.2538e-05, 0.2939e-05, & - 0.3362e-05, 0.3785e-05, 0.4753e-05, 0.6005e-05, 0.7804e-05, & - 0.9635e-05, 0.1023e-04, 0.1067e-04, 0.1177e-04, 0.1290e-04, & - 0.1134e-04, 0.9223e-05, 0.6667e-05, 0.3644e-05, 0.1545e-05, & - 0.5355e-06, 0.2523e-06, 0.2062e-06, 0.1734e-06, 0.1548e-06, & - 0.1360e-06, 0.1204e-06, 0.1074e-06, 0.9707e-07, 0.8960e-07, & - 0.8419e-07, 0.7962e-07, 0.7542e-07, 0.7290e-07, 0.7109e-07, & - 0.6940e-07, 0.6786e-07, 0.6635e-07, 0.6500e-07, 0.6370e-07, & - 0.6244e-07, 0.6132e-07, 0.6022e-07, 0.5914e-07, 0.5884e-07, & - 0.5855e-07, 0.5823e-07, 0.5772e-07, 0.5703e-07, 0.5635e-07, & - 0.5570e-07, 0.5492e-07, 0.5412e-07, 0.5335e-07, 0.5260e-07, & - 0.5167e-07, 0.5063e-07, 0.4961e-07, 0.4860e-07, 0.4761e-07/ - -!-------------------------------------------------------------------------------- - mix = ite-its+1 ! maximum dimension for i - mkx = kte-kts+1 ! maximum dimension for k - - -! testing, need to change iprof, which is function of lat and julian day -! iprof = 1 : mid-latitude summer profile -! = 2 : mid-latitude winter profile -! = 3 : sub-arctic summer profile -! = 4 : sub-arctic winter profile -! = 5 : tropical profile - -!toshi -! center_lat = xlat ( mix/2, (jte-jts+1)/2 ) - - if (abs(center_lat) .le. 30. ) then ! tropic - iprof = 5 - else - if (center_lat .gt. 0.) then - if (center_lat .gt. 60. ) then ! arctic - if (julday .gt. is_summer .and. julday .lt. ie_summer ) then - ! arctic summer - iprof = 3 - else - ! arctic winter - iprof = 4 - endif - else ! midlatitude - if (julday .gt. is_summer .and. julday .lt. ie_summer ) then - ! north midlatitude summer - iprof = 1 - else - ! north midlatitude winter - iprof = 2 - endif - endif + integer :: k,kk !looping + real :: wgt !interpolation weight + real,dimension(mlev,1:6) :: mcdat_wrf - else - if (center_lat .lt. -60. ) then ! antarctic - if (julday .lt. is_summer .or. julday .gt. ie_summer ) then - ! antarctic summer - iprof = 3 - else - ! antarctic winter - iprof = 4 - endif - else ! midlatitude - if (julday .lt. is_summer .or. julday .gt. ie_summer ) then - ! south midlatitude summer - iprof = 1 - else - ! south midlatitude winter - iprof = 2 - endif - endif + logical :: found_pr ! EMK TEST - endif - endif +! +! Interpolate sounding ozone value for a given pressure mcdat_int(:,2) is pressure in Pa +! - j_loop: do j=jts,jte - jloop=j -!----------------------------------------------------------------------------- + do k = 1,mlev !model level - do k=1,np - p(k)=pres(k,iprof) - enddo + found_pr = .false. - do k = kts,kte+1 - do i = its,ite - if(k.eq.kts)then - phyd(i,k)=p8w3d(i,kts,j) - else - ! phyd(i,k)=phyd(i,k-1) - g*rho_phy(i,k-1,j)*dz8w(i,k-1,j) !keep this old one consistent to IDS ctl run. - phyd(i,k)=phyd(i,k-1)*exp( -9.8/287.04*dz8w(i,k-1,j)/t3d(i,k-1,j) ) !suggested by K. Suzuki + if ( pr(k)*100. <= mcdat_int(ilev_max,2) ) then + mcdat_wrf(k,1:6) = mcdat_int(ilev_max,1:6) !use highest level + found_pr = .true. ! EMK TEST - phydmid(i,k-1)=0.5*(phyd(i,k-1)+phyd(i,k)) + elseif( pr(k)*100. >= mcdat_int(1 ,2) ) then + mcdat_wrf(k,1:6) = mcdat_int(1,1:6) !use lowest level + found_pr = .true. ! EMK TEST + else - endif - enddo - enddo + kk_loop : do kk = ilev_max-1, 1 , -1 !mcdat level loop + if(pr(k)*100. >= mcdat_int(kk+1,2) .and. pr(k)*100. <= mcdat_int(kk,2) ) then + wgt = ( pr(k)*100 - mcdat_int(kk+1,2) ) / ( mcdat_int(kk,2) - mcdat_int(kk+1,2) ) + mcdat_wrf(k,1:6) = mcdat_int(kk,1:6)*wgt + mcdat_int(kk+1,1:6)*(1.-wgt) + found_pr = .true. ! EMK TEST + exit kk_loop + endif + enddo kk_loop + endif + + ! + ! EMK TEST + ! + if (.not. found_pr) then + print*,'EMK: Warning: Could not find wrf level in ozone sounding.' + print*,'EMK: k, pr(k)*100 = ',k,pr(k)*100 + print*,'EMK: mcdat_wrf(k,6) = ',mcdat_wrf(k,6) + print*,'EMK: pr(:)*100 = ',pr(:)*100 + print*,'EMK: mcdat_int(:,2) = ',mcdat_int(:,2) + call wrf_error_fatal('ERROR interpolating ozone in Goddard radiation') + end if ! -! reverse vars +! interpolated ozone mixing ratio for WRF layer (mcdat_wrf(k,6) is dry air density) ! - do k=kts,kte+1 - do i=its,ite - nk=kme-k+kms - p8w2d(i,k)=phyd(i,nk)*0.01 ! p8w2d is in mb - t8w2d(i,k) = t8w(i,nk,j) - enddo - enddo - do i=its,ite - p8w2d(i,0)=.0 - enddo + o3(k) = mcdat_wrf(k,5) / mcdat_wrf(k,6) ! ozone mixing ratio [kg/kg] or [g/g] -! - do k=kts,kte - do i=its,ite - nk=kme-1-k+kms - tten2d(i,k)=0. - t2d(i,k)=t3d(i,nk,j) - sh2d(i,k)=qv3d(i,nk,j)/(1.+qv3d(i,nk,j)) - sh2d(i,k)=max(0._fp_kind,sh2d(i,k)) - p2d(i,k)=phydmid(i,nk)*0.01 ! p2d is in mb - fcld2d(i,k)=cldfra3d(i,nk,j) - dz2d(i,k) = dz8w(i,nk,j) - enddo - enddo + enddo -! this logic is tortured because cannot test f_qi unless -! it is present, and order of evaluation of expressions -! is not specified in fortran -! if (.not. warm_rain .and. .not. present ( f_qi ) ) then -! do k=kts,kte -! do i=its,ite -! if (t2d(i,k) .lt. 273.15) then -! cwc(i,k,1)=cwc(i,k,2) ! ice cloud water mixing ratio -! cwc(i,k,2)=0. ! liquid cloud water mixing ratio -! endif -! enddo -! enddo -! endif - -! -! intilize TOA value -> 0. -! - do i=its,ite - tten2d(i,0)=0. - t2d(i,0)=t2d(i,1) - sh2d(i,0)=0.5*sh2d(i,1) - dz2d(i,0)=dz2d(i,1) - cwc(i,0,3)=0. - cwc(i,0,2)=0. - cwc(i,0,1)=0. - p2d(i,0)=0.5*(p8w2d(i,0)+p8w2d(i,1)) - fcld2d(i,0)=0. - enddo + end subroutine ozone_interp -! -! vertical profiles for ozone -! - call o3_profile (np, p, ozone(1,iprof), its, ite, kts-1, kte, p2d, o3) +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine sounding_strat(mcdat_int, mlev, pres, tmp, sh, o3 ) + implicit none +!---------------------------------------------------------------------- +! Comments: +! This routines interpolate temperature, humidity, and ozone mixing ration +! for additional stratospheric layers. +! This interpolation is a bit time comsuming, but create smooth transition of +! stratospheric temperature for large-domain simulation. (Toshi) +! +! History: +! 09/2015 Toshi Matsui@NASA GSFC : mcdat_int is io parameter now. +! 03/2009 Toshi Matsui@NASA GSFC : bug in kk_loop was fixed. +! 04/2008 Toshi Matsui@NASA GSFC ; Initial +!----------------------------------------------------------------------- + real,dimension(ilev_max,6),intent(in) :: mcdat_int !interpolated Mclatchy Sounding climatology + integer,intent(in) :: mlev !vertical level + real,intent(in) :: pres(mlev) !pressure (mb or hPa) + real,intent(out) :: tmp(mlev),sh(mlev),o3(mlev) ! temperature, specific humidity, ozone for + ! additional stratosphere layers + + integer :: k,kk !looping + real :: wgt + real,dimension(mlev,1:6) :: mcdat_strat ! -! cloud water mixing ratio +! Interpolate sounding value for a given stratosphere pressure ! - if ( present( f_qc ) .and. present( qc3d) ) then - do k=kts,kte - do i=its,ite - nk=kme-1-k+kms - if ( (f_qc) ) then - cwc(i,k,2)=max(0.,qc3d(i,nk,j)) - reff(i,k,2) = re !fixed value - x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) ) - taucldc(i,nk,j) = x * cwc(i,k,2) * ( 3.33e-4 + 2.52/reff(i,k,2) ) !output purpose - else - cwc(i,k,2) = 0. - reff(i,k,2) =0. - taucldc(i,nk,j) = 0. - endif - enddo - enddo - endif + do k = 1,mlev !stratosphere model leve -! -! cloud ice mixing ratio (currently adding the snow.) -! - if ( present( f_qi ) .and. present( qi3d) ) then ! ice - do k=kts,kte - do i=its,ite - nk=kme-1-k+kms - if ( (f_qi) ) then - cwc(i,k,1)=max(0.,qi3d(i,nk,j)) - reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5. ! ice effective radius depends on temp - reff(i,k,1) = min(125._fp_kind,max(25._fp_kind,reff(i,k,1))) - x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) ) - taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) ) ! output purpose - else - cwc(i,k,1)= 0. - reff(i,k,1) = 0. - taucldi(i,nk,j) = 0. - endif - enddo - enddo - endif + if(pres(k)*100. <= mcdat_int(ilev_max,2) ) then + print*, 'model pressure is ',pres(k)*100. ,'(mb)', & + 'McClatch sounding pressure is ',mcdat_int(ilev_max,2),'(mb)' +! stop 'MSG Goddard Radiation Subroutine sounding; reduce the number of alev_strat' + call wrf_error_fatal('MSG Goddard Radiation Subroutine sounding; reduce the number of alev_strat') + endif - if ( present( f_qs ) .and. present( qs3d ) ) then ! snow - do k=kts,kte - do i=its,ite - nk=kme-1-k+kms - if ( (f_qs) ) then - if ( cwc(i,k,1) > 0. ) then !ice exist - cwc(i,k,1)=cwc(i,k,1) + max(0.,qs3d(i,nk,j)) ! ice + snow - reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5. ! ice + snow (use ice definition) - reff(i,k,1) = min(125._fp_kind,max(25._fp_kind,reff(i,k,1))) - else - cwc(i,k,1)= max(0.,qs3d(i,nk,j)) ! snow only (define snow is large aggrefated ice) - reff(i,k,1) = 125. ! snow only (use largest reff of ice) - endif - x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) ) - taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) ) ! output purpose - else - ! cwc(i,k,1)=cwc(i,k,1) - endif - enddo - enddo - endif + kk_loop : do kk = ilev_max-1, 1 , -1 !mcdat level loop + if(pres(k)*100. >= mcdat_int(kk+1,2) .and. pres(k)*100. <= mcdat_int(kk,2) ) then + wgt = ( pres(k)*100 - mcdat_int(kk+1,2) ) / ( mcdat_int(kk,2) - mcdat_int(kk+1,2) ) + mcdat_strat(k,1:6) = mcdat_int(kk,1:6)*wgt + mcdat_int(kk+1,1:6)*(1.-wgt) + exit kk_loop + endif + enddo kk_loop ! -! rain mixing ratio (currently adding graupel here, since it's size are much larger than ice and snow) +! get parameters profiles for stratosphere ! + tmp(k) = mcdat_strat(k,3) ! temperature [K] + sh(k) = mcdat_strat(k,4) / mcdat_strat(k,6) ! specific humidity [kg/kg] + o3(k) = mcdat_strat(k,5) / mcdat_strat(k,6) ! ozone mixing ratio [kg/kg] - if ( present( f_qr ) .and. present( qr3d) ) then ! rain - do k=kts,kte - do i=its,ite - nk=kme-1-k+kms - if ( (f_qr) ) then - cwc(i,k,3) = max(0.,qr3d(i,nk,j)) - else - cwc(i,k,3) = 0. - endif - enddo - enddo - endif + enddo + end subroutine sounding_strat - if ( present( f_qg ) .and. present( qg3d) ) then ! graupel (-> change) - do k=kts,kte - do i=its,ite - nk=kme-1-k+kms - if ( (f_qg) ) then - if( cwc(i,k,3) > 0.) then - cwc(i,k,3)=cwc(i,k,3) + max(0.,qg3d(i,nk,j)) - else - cwc(i,k,3)= max(0.,qg3d(i,nk,j)) - endif - else - cwc(i,k,3)=cwc(i,k,3) - endif - enddo - enddo - endif +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine mie_lut_broad( nband, q , re, kext_lut, salb_lut, asym_lut, pts_ref, mxpts_ref, & + kext, salb, asym ) + implicit none +!--------------------------------------------------------------------------------------------------- +! Comments: +! This subroutine find the extinction/scattering coefficients for +! given Re using Mie LUTs (per unit q), +! and optal values are re-scaled to actual q (hydrometeor content). +! +! History: +! 05/2009 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + integer,intent(in) :: nband !total band number + real,intent(in) :: q ! particle mass mixing ratio [g/m3] + real :: re ! particle effective radius [micron] + real,intent(in) :: kext_lut(mxpts_ref,nband) ! extinction coefficient per unit mass [km-1 / (g/m3) ] + real,intent(in) :: salb_lut(mxpts_ref,nband) ! single scattering albedo [-] + real,intent(in) :: asym_lut(mxpts_ref,nband) ! asymetry parameter [-] + real,intent(in) :: pts_ref(mxpts_ref) ! LUT of re index [micron] + integer,intent(in) :: mxpts_ref ! dimension of re index + real,intent(out) :: kext(nband) ! extinction coefficient [km-1] + real,intent(out) :: salb(nband) ! single scattering albedo [-] + real,intent(out) :: asym(nband) ! asymetry parameter [-] ! -! Vertical profiles for effective particle size (old) +! local parameter ! -! do k = kts-1, kte -! do i = its, ite -! reff(i,k,1) = 80. -! reff(i,k,2) = 10. -! reff(i,k,3) = 500. !dummy not used -! end do -! end do + integer :: j !loop index + real :: kext_q_unit(nband) ! extinction coefficient per unit mass [km-1 / (g/m3) ] + real :: wgt1,wgt2 ! -! filter min and max value of effective size +!initialise ! - do k = kts-1, kte - do i = its, ite - reff(i,k,1) = max( min(reff(i,k,1),125._fp_kind) , 25._fp_kind) !ice - reff(i,k,2) = max( min(reff(i,k,2), 20._fp_kind) , 4._fp_kind) !liquid - reff(i,k,3) = max( min(reff(i,k,3), 60._fp_kind) , 1800._fp_kind) !rain (dummy not used) - end do - end do + kext = 0.d0 ; salb = 0.d0 ; asym = 0.d0 + + if(q <= q_min_condensate) return + + if(re < pts_ref(1) ) re = pts_ref(1) + if(re > pts_ref(mxpts_ref)) re = pts_ref(mxpts_ref) ! -! level indices separating high, middle and low clouds +! Linear interpolation ! - do i = its, ite - p400(i) = 1.e5 - p700(i) = 1.e5 - enddo + REF_LOOP: do j = 1,mxpts_ref-1 - do k = kts-1,kte+1 - do i = its, ite - if (abs(p8w2d(i,k) - 400.) .lt. p400(i)) then - p400(i) = abs(p8w2d(i,k) - 400.) - ict(i) = k - endif - if (abs(p8w2d(i,k) - 700.) .lt. p700(i)) then - p700(i) = abs(p8w2d(i,k) - 700.) - icb(i) = k - endif - end do - end do + if( re >= pts_ref(j) .and. re <= pts_ref(j+1) ) then + wgt2 = ( re - pts_ref(j) ) / ( pts_ref(j+1) - pts_ref(j) ) + wgt1 = 1.0 - wgt2 + kext_q_unit(:) = wgt1*kext_lut(j,:) + wgt2*kext_lut(j+1,:) + salb(:) = wgt1*salb_lut(j,:) + wgt2*salb_lut(j+1,:) + asym(:) = wgt1*asym_lut(j,:) + wgt2*asym_lut(j+1,:) - rad_select: select case(sw_or_lw) + exit REF_LOOP + endif -! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP -! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP -! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP + enddo REF_LOOP - case('is') +! +! Re-scale kext from unit mass mixing ratio (1[g/m3]) to actual mass mixing ratio (q [g/m3]) +! + kext(:) = kext_q_unit(:) * q -! in case of isccp simulation, all we need is cloud optical depth. So return. + end subroutine mie_lut_broad -! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW -! SW SW SW SW SW SW SW SW Shortwave scheme SW SW SW SW SW SW SW SW SW -! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW - - case ('sw') +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD -! -! solar zenith angle and surface albedo -! - if (present(coszen)) then ! jararias, 14/08/2013 - call wrf_debug(100,'using coszen from radiation driver') - do i=its,ite - cosz(i)=coszen(i,j) - end do - else -! da=6.2831853071795862*(julian-1)/365. -! eot=(0.000075+0.001868*cos(da)-0.032077*sin(da) & -! -0.014615*cos(2*da)-0.04089*sin(2*da))*(229.18) - xt24 = mod(xtime + radfrq * 0.5, 1440.) + eot - do i = its,ite - tloctm = gmt + xt24 / 60. + xlong(i,j) / 15. - hrang = 15. * (tloctm - 12.) * degrad - xxlat = xlat(i,j) * degrad - cosz(i) = sin(xxlat) * sin(declin) + & - cos(xxlat) * cos(declin) * cos(hrang) - end do - end if + subroutine init_gen(param,proc) + implicit none + type( particle_gen ) ,intent(inout) :: param + character(len=*),intent(in) :: proc - do i = its,ite -! xt24 = mod(xtime + radfrq * 0.5, 1440.) -! tloctm = gmt + xt24 / 60. + xlong(i,j) / 15. -! hrang = 15. * (tloctm - 12.) * degrad -! xxlat = xlat(i,j) * degrad -! cosz(i) = sin(xxlat) * sin(declin) + & -! cos(xxlat) * cos(declin) * cos(hrang) + select case(trim(proc)) + case('zero') + param%cloud =0.0 + param%rain =0.0 + param%ice =0.0 + param%snow =0.0 + param%graupel =0.0 + param%hail =0.0 + case('nan') -! -! surface spectrum albedo for direct and diffuse radiation -! - rsuvbm(i) = alb(i,j) - rsuvdf(i) = alb(i,j) - rsirbm(i) = alb(i,j) - rsirdf(i) = alb(i,j) -! -! urban -! -! if(present(cosz_urb2d)) cosz_urb2d(i,j)=cosz(i) !urban -! if(present(omg_urb2d)) omg_urb2d(i,j)=hrang !urban - end do + case('inf') -! -! aerosol effects -> gocart aerosol module -! + end select - do ib = 1, ib_sw - do k = kts-1,kte - do i = its,ite - taual_sw(i,k,ib) = 0. - ssaal_sw(i,k,ib) = 0. - asyal_sw(i,k,ib) = 0. - end do - end do - end do + end subroutine init_gen - if ( associated (tauaer3d_sw) ) then - ! jararias 2013/11 -! if ( present (tauaer3d_sw) ) then -! if ( aer_opt .eq. 2 ) then - do ib=1,ib_sw - do i=its,ite - taual_sw(i,kts-1,ib)=0. - ssaal_sw(i,kts-1,ib)=0. - asyal_sw(i,kts-1,ib)=0. - do k=kts,kte - nk=kte+kts-k - taual_sw(i,nk,ib)=tauaer3d_sw(i,k,j,ib) - ssaal_sw(i,nk,ib)=ssaaer3d_sw(i,k,j,ib) - asyal_sw(i,nk,ib)=asyaer3d_sw(i,k,j,ib) - end do - end do - end do -! end if - end if -! -! 1-dimension driver of shortwave radiative transfer scheme -! - do i = its,ite - if (cosz(i) .gt. cosz_min) then !for daytime only - call swrad ( m=1, np=mkx+1, pl=p8w2d(i,:), ta=t2d(i,:), wa=sh2d(i,:), oa=o3(i,:), & - cwc=cwc(i,:,:), reff=reff(i,:,:), fcld=fcld2d(i,:), ict=ict(i), icb=icb(i), & - taual=taual_sw(i,:,:), ssaal=ssaal_sw(i,:,:), asyal=asyal_sw(i,:,:), & - cosz=cosz(i), rsuvbm=rsuvbm(i), rsuvdf=rsuvdf(i), rsirbm=rsirbm(i), rsirdf=rsirdf(i), & - flx=flx(i,:), flxd=flxd(i,:),flxu=flxu(i,:), & - ! -- jararias, 14/08/2013 - fdiruv=fdiruv(i),fdifuv=fdifuv(i), & - fdirpar=fdirpar(i),fdifpar=fdifpar(i), & - fdirir=fdirir(i),fdifir=fdifir(i) ) - endif - enddo -! -! convert the units of flx and flc from fraction to w/m^2 -! - do k = kts, kte+1 - do i = its, ite - if (cosz(i) .le. cosz_min) then - flx(i,k) = 0. - swddir(i,j) = 0. !jararias, 14/08/2013 - swddif(i,j) = 0. !jararias, 14/08/2013 - swddni(i,j) = 0. !jararias, 14/08/2013 - else - flx(i,k) = flx(i,k) * solcon * cosz(i) - swddni(i,j) = ( fdiruv(i) + fdirpar(i) + fdirir(i) ) * solcon !jararias, 14/08/2013 - swddir(i,j) = swddni(i,j) * cosz(i) !jararias, 14/08/2013 - swddif(i,j) = ( fdifuv(i) + fdifpar(i) + fdifir(i) ) * solcon * cosz(i) !jararias, 14/08/2013 - endif - end do - end do +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD -! -! calculate heating rate (deg/sec) -! - fac = .01 * g / cp - do k = kts, kte - do i = its, ite - tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/ (p8w2d(i,k)-p8w2d(i,k+1)) - end do - end do + subroutine init_gocart(param,proc) + implicit none + type( particle_gocart ) ,intent(inout) :: param + character(len=*),intent(in) :: proc + + select case(trim(proc)) + case('zero') + param%so4 = 0.0 + param%blc = 0.0 + param%ocn = 0.0 + param%och = 0.0 + param%ssa = 0.0 + param%ssc = 0.0 + param%du1 = 0.0 + param%du2 = 0.0 + param%du3 = 0.0 + param%du4 = 0.0 + param%du5 = 0.0 + param%du6 = 0.0 + param%du7 = 0.0 + param%du8 = 0.0 + case('nan') + + case('inf') + + end select + + end subroutine init_gocart +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - do k=kts,kte - nk=kme-1-k+kms - do i=its,ite - rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j) - enddo - enddo +#if ( WRF_CHEM == 1) + + subroutine opt_gocart_broad( nband, ib, aero, pr, ta, sh, kext_gocart, salb_gocart, asym_gocart ) + implicit none + +!--------------------------------------------------------------------------------------------------- +! Comments: +! Compute single-scattering properties from atmospheric particles using LUTs-interpolation techniqu. +! This routine is for GOCART microphysics. +! +! History: +! 10/2009 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + integer,intent(in)::nband !total band # + integer,intent(in)::ib !radiation type + real,intent(in) :: aero(tgmx) ! aerosol mass concentration [g/m3] (tgmx is defined in module_gocart_coupling) + real, intent(in) :: pr !pressure [mb] + real, intent(in) :: ta !temperature [K] + real, intent(in) :: sh !specific humidity [g/g] + type ( particle_gocart ),dimension(nband),intent(out) :: & ! particle_gocart is defined in module_simulater + kext_gocart, & ! extinction coefficient [km-1] + salb_gocart, & ! single scattering albedo [-] + asym_gocart ! asymetry parameter [-] + + type ( particle_gocart ) :: q ! mixing ratio [g/m3] + real :: rh ! relative humidity [0~1] + integer :: rhi !RH index + real :: es !saturated vapor pressure [kPa] + real :: eq !vapor mixing pressure [kPa] + real :: e !vapor pressure [kPa] + integer :: n + +! +! derive relative humidity +! + es = 0.611 * exp( 5423.*( 1./273.15 - 1./ta ) ) ! saturatd vapor pressure over flat water [kPa] + eq = sh/(1.-sh) ! vapor mixing pressure [kPa] + e = (eq / (eq+0.622)) * pr * 0.1 ! unsaturated vapor pressure [mb] -> [kPa] + rh = min( max(1e-5, e/es) , 0.99) ! relative humidity (set upper limit 99%) [-] + +! +! convert to gocart type name. +! + q%so4 = aero(1) + q%blc = aero(2) + q%ocn = aero(3) + q%och = aero(4) + q%ssa = aero(5) + q%ssc = aero(6) + q%du1 = aero(7) + q%du2 = aero(8) + q%du3 = aero(9) + q%du4 = aero(10) + q%du5 = aero(11) + q%du6 = aero(12) + q%du7 = aero(13) + q%du8 = aero(14) + + +! +! initialize extinction +! + do n = 1, nband + call init_gocart( kext_gocart(n), 'zero') + call init_gocart( salb_gocart(n), 'zero') + call init_gocart( asym_gocart(n), 'zero') + enddo + +! +! go to LUT interpolation +! + call mie_lut_broad_aerosol (nband, q%so4, rh , kext_lut_gocart(:,1:nband,ib)%so4 , & + salb_lut_gocart(:,1:nband,ib)%so4 , & + asym_lut_gocart(:,1:nband,ib)%so4 , pts_rh, mxpts_rh , & + kext_gocart%so4, salb_gocart%so4, asym_gocart%so4 ) + + call mie_lut_broad_aerosol (nband, q%blc, rh , kext_lut_gocart(:,1:nband,ib)%blc , & + salb_lut_gocart(:,1:nband,ib)%blc , & + asym_lut_gocart(:,1:nband,ib)%blc , pts_rh, mxpts_rh , & + kext_gocart%blc, salb_gocart%blc, asym_gocart%blc ) + + call mie_lut_broad_aerosol (nband, q%ocn, rh , kext_lut_gocart(:,1:nband,ib)%ocn , & + salb_lut_gocart(:,1:nband,ib)%ocn , & + asym_lut_gocart(:,1:nband,ib)%ocn , pts_rh, mxpts_rh , & + kext_gocart%ocn, salb_gocart%ocn, asym_gocart%ocn ) + + call mie_lut_broad_aerosol (nband, q%och, rh , kext_lut_gocart(:,1:nband,ib)%och , & + salb_lut_gocart(:,1:nband,ib)%och , & + asym_lut_gocart(:,1:nband,ib)%och , pts_rh, mxpts_rh , & + kext_gocart%och, salb_gocart%och, asym_gocart%och ) + + call mie_lut_broad_aerosol (nband, q%ssa, rh , kext_lut_gocart(:,1:nband,ib)%ssa , & + salb_lut_gocart(:,1:nband,ib)%ssa , & + asym_lut_gocart(:,1:nband,ib)%ssa , pts_rh, mxpts_rh , & + kext_gocart%ssa, salb_gocart%ssa, asym_gocart%ssa ) + + call mie_lut_broad_aerosol (nband, q%ssc, rh , kext_lut_gocart(:,1:nband,ib)%ssc , & + salb_lut_gocart(:,1:nband,ib)%ssc , & + asym_lut_gocart(:,1:nband,ib)%ssc , pts_rh, mxpts_rh , & + kext_gocart%ssc, salb_gocart%ssc, asym_gocart%ssc ) + + call mie_lut_broad_aerosol (nband, q%du1, rh , kext_lut_gocart(:,1:nband,ib)%du1 , & + salb_lut_gocart(:,1:nband,ib)%du1 , & + asym_lut_gocart(:,1:nband,ib)%du1 , pts_rh, mxpts_rh , & + kext_gocart%du1 , salb_gocart%du1 , asym_gocart%du1 ) + + call mie_lut_broad_aerosol (nband, q%du2, rh , kext_lut_gocart(:,1:nband,ib)%du2 , & + salb_lut_gocart(:,1:nband,ib)%du2 , & + asym_lut_gocart(:,1:nband,ib)%du2 , pts_rh, mxpts_rh , & + kext_gocart%du2 , salb_gocart%du2 , asym_gocart%du2 ) + + call mie_lut_broad_aerosol (nband, q%du3, rh , kext_lut_gocart(:,1:nband,ib)%du3 , & + salb_lut_gocart(:,1:nband,ib)%du3 , & + asym_lut_gocart(:,1:nband,ib)%du3 , pts_rh, mxpts_rh , & + kext_gocart%du3 , salb_gocart%du3 , asym_gocart%du3 ) + + call mie_lut_broad_aerosol (nband, q%du4, rh , kext_lut_gocart(:,1:nband,ib)%du4 , & + salb_lut_gocart(:,1:nband,ib)%du4 , & + asym_lut_gocart(:,1:nband,ib)%du4 , pts_rh, mxpts_rh , & + kext_gocart%du4 , salb_gocart%du4 , asym_gocart%du4 ) + + call mie_lut_broad_aerosol (nband, q%du5, rh , kext_lut_gocart(:,1:nband,ib)%du5 , & + salb_lut_gocart(:,1:nband,ib)%du5 , & + asym_lut_gocart(:,1:nband,ib)%du5, pts_rh, mxpts_rh , & + kext_gocart%du5 , salb_gocart%du5 , asym_gocart%du5 ) + + call mie_lut_broad_aerosol (nband, q%du6, rh , kext_lut_gocart(:,1:nband,ib)%du6 , & + salb_lut_gocart(:,1:nband,ib)%du6 , & + asym_lut_gocart(:,1:nband,ib)%du6 , pts_rh, mxpts_rh , & + kext_gocart%du6 , salb_gocart%du6 , asym_gocart%du6 ) + + call mie_lut_broad_aerosol (nband, q%du7, rh , kext_lut_gocart(:,1:nband,ib)%du7 , & + salb_lut_gocart(:,1:nband,ib)%du7 , & + asym_lut_gocart(:,1:nband,ib)%du7 , pts_rh, mxpts_rh , & + kext_gocart%du7 , salb_gocart%du7 , asym_gocart%du7 ) + + call mie_lut_broad_aerosol (nband, q%du8, rh , kext_lut_gocart(:,1:nband,ib)%du8 , & + salb_lut_gocart(:,1:nband,ib)%du8 , & + asym_lut_gocart(:,1:nband,ib)%du8 , pts_rh, mxpts_rh , & + kext_gocart%du8 , salb_gocart%du8 , asym_gocart%du8 ) + + end subroutine opt_gocart_broad + +#endif + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine mie_lut_broad_aerosol( nband, q , rh_in, kext_lut, salb_lut, asym_lut, pts_rh, mxpts, & + kext, salb, asym ) + implicit none +!--------------------------------------------------------------------------------------------------- +! Comments: +! This subroutine find the extinction/scattering coefficients for +! given Re using Mie LUTs (per unit q), +! and optal values are re-scaled to actual q (hydrometeor content). +! +! History: +! 05/2009 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + integer,intent(in) :: nband !total band number + real,intent(in) :: q ! particle mass mixing ratio [g/m3] + real,intent(in) :: rh_in ! relative humidity [-] (0~1) + real,intent(in) :: kext_lut(mxpts,nband) ! extinction coefficient per unit mass [km-1 / (g/m3) ] + real,intent(in) :: salb_lut(mxpts,nband) ! single scattering albedo [-] + real,intent(in) :: asym_lut(mxpts,nband) ! asymetry parameter [-] + real,intent(in) :: pts_rh(mxpts) ! LUT of re index [micron] + integer,intent(in) :: mxpts ! dimension of rh index + real,intent(out) :: kext(nband) ! extinction coefficient [km-1] + real,intent(out) :: salb(nband) ! single scattering albedo [-] + real,intent(out) :: asym(nband) ! asymetry parameter [-] + +! local parameter + integer :: j ! loop index + real :: kext_q_unit(nband) ! extinction coefficient per unit mass mixing ratio [km-1 / (g/m3) ] + real :: wgt1,wgt2 ! weighting function [-] + real :: rh ! local relative humidity [-] (0~1) - do i = its, ite - if (cosz(i) .le. cosz_min) then - gsf(i,j) = 0. - if(present(ERBE_out)) then - ERBE_out(i,j,5) = 0. - ERBE_out(i,j,6) = 0. - ERBE_out(i,j,7) = 0. - ERBE_out(i,j,8) = 0. - endif - else ! -! absorbed part in surface energy budget [W/m^2] (Note that flxd in SW is flux fraction) +!initialise ! - gsf(i,j) = (1. - rsuvbm(i)) * flxd(i,kte+1) * solcon * cosz(i) + kext = 0.d0 ; salb = 0.d0 ; asym = 0.d0 + rh = rh_in -! -! extra output for SDSU -! - if(present(ERBE_out)) then - ERBE_out(i,j,5) = flxd(i,1) * solcon * cosz(i) ! TOA SW downwelling flux [W/m2] - ERBE_out(i,j,6) = flxu(i,1) * solcon * cosz(i) ! TOA SW upwelling flux [W/m2] - ERBE_out(i,j,7) = flxd(i,kte+1) * solcon * cosz(i) ! surface SW downwelling flux [W/m2] - ERBE_out(i,j,8) = flxu(i,kte+1) * solcon * cosz(i) ! surface SW upwelling flux [W/m2] - endif - endif - enddo + if(q <= q_min_aerosol) return -! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW -! LW LW LW LW LW LW LW LW Longwave scheme LW LW LW LW LW LW LW LW LW -! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW + if(rh < pts_rh(1) ) rh = pts_rh(1) + if(rh > pts_rh(mxpts)) rh = pts_rh(mxpts_rh) - case ('lw') ! -! aerosol effects -> gocart aerosol module +! Linear interpolation ! + RH_LOOP: do j = 1,mxpts_rh-1 - do ib = 1, ib_lw - do k = kts-1,kte - do i = its,ite - taual_lw(i,k,ib) = 0. - ssaal_lw(i,k,ib) = 0. - asyal_lw(i,k,ib) = 0. - end do - end do - end do + if( rh >= pts_rh(j) .and. rh <= pts_rh(j+1) ) then + wgt2 = ( rh - pts_rh(j) ) / ( pts_rh(j+1) - pts_rh(j) ) + wgt1 = 1.0 - wgt2 + + kext_q_unit(:) = wgt1*kext_lut(j,:) + wgt2*kext_lut(j+1,:) + salb(:) = wgt1*salb_lut(j,:) + wgt2*salb_lut(j+1,:) + asym(:) = wgt1*asym_lut(j,:) + wgt2*asym_lut(j+1,:) + + exit RH_LOOP + endif + + enddo RH_LOOP ! -! surface parameters -! - do i = its,ite - emis2d(i,1:ib_lw) = emiss(i,j) -!toshi - tsfc(i)=0.5*t8w2d(i,kme) + 0.5*t2d(i,kte) !make sure - tskin(i)=t8w2d(i,kme) - end do +! Re-scale kext from unit mass mixing ratio (1[g/m3]) to actual mass mixing ratio (q [g/m3]) +! + kext(:) = kext_q_unit(:) * q + + + end subroutine mie_lut_broad_aerosol + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + +#if (WRF_CHEM == 1) + + subroutine total_opt_gocart_broad( dz_km, nband, kext_gocart, salb_gocart, asym_gocart, & + tautot, salbtot, asymtot ) + implicit none +!--------------------------------------------------------------------------------------------------- +! Comments: +! Compute total single-scattering properties from atmospheric particles. +! This routine is for GCE microphysics. +! +! History: +! 10/2009 Toshi Matsui@NASA GSFC ; Initial +! +! References: +!--------------------------------------------------------------------------------------------------- + real,intent(in) :: dz_km !layer depth [km] + integer,intent(in) :: nband !total band number + type ( particle_gocart ),dimension(nband),intent(in) :: & ! particle_gocart is defined in module_simulater + kext_gocart, & ! extinction coefficient [km-1] + salb_gocart, & ! single scattering albedo [-] + asym_gocart ! asymetry parameter [-] + + real,dimension(nband),intent(out) :: tautot, salbtot, asymtot !total optical parameters + + real :: kexttot(nband) ! extinction coefficient [km-1] + + integer :: n + ! -! drive goddard longwave radiative transfer scheme +! total extinction ! - call lwrad (m=mix, np=mkx+1, pl=p8w2d, ta=t2d, wa=sh2d, oa=o3, tb=tsfc, ts=tskin, & - cwc=cwc, emiss=emis2d, reff=reff, fcld=fcld2d, ict=ict, icb=icb, & - taual=taual_lw, ssaal=ssaal_lw, asyal=asyal_lw, & - flx=flx, acflxd=flxd , acflxu=flxu ) + kexttot(:) = & + kext_gocart(:)%so4 + & + kext_gocart(:)%blc + & + kext_gocart(:)%ocn + & + kext_gocart(:)%och + & + kext_gocart(:)%ssa + & + kext_gocart(:)%ssc + & + kext_gocart(:)%du1 + & + kext_gocart(:)%du2 + & + kext_gocart(:)%du3 + & + kext_gocart(:)%du4 + & + kext_gocart(:)%du5 + & + kext_gocart(:)%du6 + & + kext_gocart(:)%du7 + & + kext_gocart(:)%du8 ! -! calculate heating rate (deg/sec) +! total optical depth ! - fac = .01 * g / cp - do k = kts, kte - do i = its, ite - tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/(p8w2d(i,k)-p8w2d(i,k+1)) - end do - end do - - do k=kts,kte - nk=kme-1-k+kms - do i=its,ite - rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j) !<- potential temperature - enddo - enddo + do n = 1, nband + tautot(n) = kexttot(n) * dz_km + enddo ! -! downwelling/upwelling longwave radiation [W/m^2] (Note that flxd/flxu of LW is actual flux [W/m2]) +! total single scattering albedo ! + do n = 1, nband - do i = its, ite - gsf(i,j) = flxd(i,kte+1) !surface downwelling LW radiation + if ( kexttot(n) <= 0.e0 ) then + salbtot(n) = 0.e0 + else + salbtot(n) = ( & + salb_gocart(n)%so4 * kext_gocart(n)%so4 + & + salb_gocart(n)%blc * kext_gocart(n)%blc + & + salb_gocart(n)%ocn * kext_gocart(n)%ocn + & + salb_gocart(n)%och * kext_gocart(n)%och + & + salb_gocart(n)%ssa * kext_gocart(n)%ssa + & + salb_gocart(n)%ssc * kext_gocart(n)%ssc + & + salb_gocart(n)%du1 * kext_gocart(n)%du1 + & + salb_gocart(n)%du2 * kext_gocart(n)%du2 + & + salb_gocart(n)%du3 * kext_gocart(n)%du3 + & + salb_gocart(n)%du4 * kext_gocart(n)%du4 + & + salb_gocart(n)%du5 * kext_gocart(n)%du5 + & + salb_gocart(n)%du6 * kext_gocart(n)%du6 + & + salb_gocart(n)%du7 * kext_gocart(n)%du7 + & + salb_gocart(n)%du8 * kext_gocart(n)%du8 & + ) / kexttot(n) -! -! extra output for SDSU -! - if(present(ERBE_out)) then - ERBE_out(i,j,1) = flxd(i,1) ! TOA LW downwelling flux [W/m2] - ERBE_out(i,j,2) = flxu(i,1) ! TOA LW upwelling flux [W/m2] - ERBE_out(i,j,3) = flxd(i,kte+1) ! surface LW downwelling flux [W/m2] - ERBE_out(i,j,4) = flxu(i,kte+1) ! surface LW upwelling flux [W/m2] - endif - end do + endif +enddo - case default +! +! total asymetry parameter +! + do n = 1, nband - stop 'the option does not exist: sw_or_lw ' + if ( salbtot(n) <= 0.e0 ) then + asymtot(n) = 0.e0 + else + asymtot(n) = ( & + asym_gocart(n)%so4 * salb_gocart(n)%so4 * kext_gocart(n)%so4 + & + asym_gocart(n)%blc * salb_gocart(n)%blc * kext_gocart(n)%blc + & + asym_gocart(n)%ocn * salb_gocart(n)%ocn * kext_gocart(n)%ocn + & + asym_gocart(n)%och * salb_gocart(n)%och * kext_gocart(n)%och + & + asym_gocart(n)%ssa * salb_gocart(n)%ssa * kext_gocart(n)%ssa + & + asym_gocart(n)%ssc * salb_gocart(n)%ssc * kext_gocart(n)%ssc + & + asym_gocart(n)%du1 * salb_gocart(n)%du1 * kext_gocart(n)%du1 + & + asym_gocart(n)%du2 * salb_gocart(n)%du2 * kext_gocart(n)%du2 + & + asym_gocart(n)%du3 * salb_gocart(n)%du3 * kext_gocart(n)%du3 + & + asym_gocart(n)%du4 * salb_gocart(n)%du4 * kext_gocart(n)%du4 + & + asym_gocart(n)%du5 * salb_gocart(n)%du5 * kext_gocart(n)%du5 + & + asym_gocart(n)%du6 * salb_gocart(n)%du6 * kext_gocart(n)%du6 + & + asym_gocart(n)%du7 * salb_gocart(n)%du7 * kext_gocart(n)%du7 + & + asym_gocart(n)%du8 * salb_gocart(n)%du8 * kext_gocart(n)%du8 & + ) / ( salbtot(n) * kexttot(n) ) + endif - end select rad_select +enddo -! -!----------------------------------------------------------------------- -! - enddo j_loop + end subroutine total_opt_gocart_broad - end subroutine goddardrad +#endif !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & - taual,ssaal,asyal, cosz,rsuvbm,rsuvdf,rsirbm,rsirdf, & - flx,flxd,flxu, & - fdiruv,fdifuv,fdirpar,fdifpar,fdirir,fdifir ) !jararias, 14/08/2013 + subroutine swrad ( np,cosz, pl,ta,wa,oa, fcld,ict,icb, & + taucl,ssacl,asycl,taual,ssaal,asyal, & + rsuvbm,rsuvdf,rsirbm,rsirdf, & + flx_out,flxd_out,flxu_out , & + flxd_surf, lmask, irestrict) !------------ corrections for bugs ---------------------------- ! -! a bug was found in "ntop=nctop(m)", it has been corrected to be +! a bug was found in "ntop=nctop", it has been corrected to be ! "ntop=nctop(i)". dated march 28, 2000. ! ! @@ -1127,7 +3118,6 @@ subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & ! absorption by water vapor, ozone, co2, o2, clouds, and aerosols and ! due to scattering by clouds, aerosols, and gases. ! -! this code computes fluxes simultaneously for m soundings. ! ! cloud ice, liquid, and rain particles are allowed to co-exist in a layer. ! @@ -1148,39 +3138,29 @@ subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & ! !----- input parameters: ! units size -! number of soundings (m) n/d 1 ! number of atmospheric layers (np) n/d 1 -! level pressure (pl) mb m*(np+1) -! layer temperature (ta) k m*np -! layer specific humidity (wa) gm/gm m*np -! layer ozone concentration (oa) gm/gm m*np +! level pressure (pl) mb (np+1) +! layer temperature (ta) k np +! layer specific humidity (wa) gm/gm np +! layer ozone concentration (oa) gm/gm np ! co2 mixing ratio by volume (co2) pppv 1 ! option for scaling cloud optical thickness n/d 1 ! overcast="true" if scaling is not required ! overcast="fasle" if scaling is required -! option for cloud optical thickness n/d 1 -! cldwater="true" if cwc is provided -! cldwater="false" if taucld is provided -! cloud water mixing ratio (cwc) gm/gm m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! cloud optical thickness (taucld) n/d m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! effective cloud-particle size (reff) micrometer m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! cloud amount (fcld) fraction m*np +! cloud optical thickness (taucl) n/d np*band +! cloud single scattering albedo (ssacl) n/d np*band +! cloud asymetry parameter (asycl) n/d np*band +! aerosol optical thickness (taual) n/d np*band +! aerosol single scattering albedo (ssaal) n/d np*band +! aerosol asymetry parameter (asyal) n/d np*band +! cloud amount (fcld) fraction np ! level index separating high and middle n/d 1 ! clouds (ict) ! level index separating middle and low n/d 1 ! clouds (icb) -! aerosol optical thickness (taual) n/d m*np*11 -! aerosol single-scattering albedo (ssaal) n/d m*np*11 -! aerosol asymmetry factor (asyal) n/d m*np*11 +! aerosol optical thickness (taual) n/d np*11 +! aerosol single-scattering albedo (ssaal) n/d np*11 +! aerosol asymmetry factor (asyal) n/d np*11 ! in the uv region : ! index 1 for the 0.175-0.225 micron band ! index 2 for the 0.225-0.245; 0.260-0.280 micron band @@ -1195,32 +3175,32 @@ subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & ! index 9 for the 0.700-1.220 micron band ! index 10 for the 1.220-2.270 micron band ! index 11 for the 2.270-10.00 micron band -! cosine of solar zenith angle (cosz) n/d m +! cosine of solar zenith angle (cosz) n/d ! uv+visible sfc albedo for beam radiation -! for wavelengths<0.7 micron (rsuvbm) fraction m +! for wavelengths<0.7 micron (rsuvbm) fraction ! uv+visible sfc albedo for diffuse radiation -! for wavelengths<0.7 micron (rsuvdf) fraction m +! for wavelengths<0.7 micron (rsuvdf) fraction ! ir sfc albedo for beam radiation -! for wavelengths>0.7 micron (rsirbm) fraction m -! ir sfc albedo for diffuse radiation (rsirdf) fraction m +! for wavelengths>0.7 micron (rsirbm) fraction +! ir sfc albedo for diffuse radiation (rsirdf) fraction ! !----- output parameters ! -! all-sky flux divergence (downward minus upward) (flx) fraction m*(np+1) -! clear-sky flux divergence (downward minus upward) (flc) fraction m*(np+1) +! all-sky flux divergence level (downward minus upward) (flx) fraction (np+1) +! clear-sky flux divergence level (downward minus upward) (flc) fraction (np+1) ! ! all-sky direct downward uv (0.175-0.4 micron) -! flux at the surface (fdiruv) fraction m +! flux at the surface (fdiruv) fraction ! all-sky diffuse downward uv flux at -! the surface (fdifuv) fraction m +! the surface (fdifuv) fraction ! all-sky direct downward par (0.4-0.7 micron) -! flux at the surface (fdirpar) fraction m +! flux at the surface (fdirpar) fraction ! all-sky diffuse downward par flux at -! the surface (fdifpar) fraction m +! the surface (fdifpar) fraction ! all-sky direct downward ir (0.7-10 micron) -! flux at the surface (fdirir) fraction m +! flux at the surface (fdirir) fraction ! all-sky diffuse downward ir flux at -! the surface (fdifir) fraction m +! the surface (fdifir) fraction ! !----- notes: ! @@ -1238,48 +3218,54 @@ subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & ! !************************************************************************* implicit none - !-----IO parameters - integer,intent(in) :: m,np,ict(m),icb(m) - real(Kind=fp_kind),intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np) - real(Kind=fp_kind),intent(in) :: cwc(m,np,3),reff(m,np,3),fcld(m,np) - real(Kind=fp_kind),intent(in) :: taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw) - real(Kind=fp_kind),intent(in) :: cosz(m),rsuvbm(m),rsuvdf(m),rsirbm(m),rsirdf(m) - - real(Kind=fp_kind),intent(inout) :: flx(m,np+1) !flux divergence (down-up) [] - real(Kind=fp_kind),intent(inout) :: flxd(m,np+1) !downward flux fraction [] - real(Kind=fp_kind),intent(inout) :: flxu(m,np+1) !upwelling flux fraction [] -!-----IO parameter used to be----- - real(Kind=fp_kind) flc(m,np+1) - real(Kind=fp_kind),intent(inout) :: fdiruv (m),fdifuv (m) - real(Kind=fp_kind),intent(inout) :: fdirpar(m),fdifpar(m) - real(Kind=fp_kind),intent(inout) :: fdirir (m),fdifir (m) + integer,intent(in) :: irestrict + logical,dimension(CHUNK),intent(in) :: lmask + integer,intent(in) :: np ! # of vertical layer + integer,dimension(CHUNK),intent(in) :: ict,icb !vertical index to separate high- middle- and low-clouds + real(fp_kind),intent(in) :: pl(CHUNK,1:np+1) + real(fp_kind),dimension(CHUNK,np),intent(in) :: ta,wa,oa,fcld + real(fp_kind),dimension(CHUNK,np,nband_sw),intent(in) :: taucl,ssacl,asycl ! condensate optical properties + real(fp_kind),dimension(CHUNK,np,nband_sw),intent(in) :: taual,ssaal,asyal ! aerosol optical properties + real(fp_kind),dimension(CHUNK),intent(in) :: cosz ! cosine of solar zenith angle + real(fp_kind),dimension(CHUNK),intent(in) :: rsuvbm,rsuvdf,rsirbm,rsirdf ! vis/nir albedo for beam and iffuse radiaiton + + real,intent(out) :: flx_out(CHUNK,1:np+1) !flux divergence (down-up) [] + real,intent(out) :: flxd_out(CHUNK,1:np+1) !downward flux fraction [] + real,intent(out) :: flxu_out(CHUNK,1:np+1) !upwelling flux fraction [] + real,intent(out) :: flxd_surf(CHUNK,4) !1-direct UV+PAR, 2-diffuse UV+PAR, 3-direct NIR, 4-diffuse NIR +!-----IO parameter used to be----- + real(fp_kind) :: flc(CHUNK,1:np+1) + real(fp_kind) :: flx(CHUNK,1:np+1) !flux divergence (down-up) [] + real(fp_kind) :: flxd(CHUNK,1:np+1) !downward flux fraction [] + real(fp_kind) :: flxu(CHUNK,1:np+1) !upwelling flux fraction [] + real(fp_kind) :: fdiruv(CHUNK) ,fdifuv(CHUNK) !UV + real(fp_kind) :: fdirpar(CHUNK),fdifpar(CHUNK) !PAR + real(fp_kind) :: fdirir(CHUNK) ,fdifir(CHUNK) !NIR !-----temporary array - integer i,j,k,ntop - integer :: nctop(m) - real(Kind=fp_kind) x - real(Kind=fp_kind) :: taucld(m,np,3) - real(Kind=fp_kind) :: taux(m,np) ! total condensates optical depth - real(Kind=fp_kind) :: cwp(m,np,3) - real(Kind=fp_kind) :: dp(m,np) - real(Kind=fp_kind) :: wh(m,np) - real(Kind=fp_kind) :: oh(m,np) - real(Kind=fp_kind) :: scal(m,np) - real(Kind=fp_kind) :: swu(m,np+1) - real(Kind=fp_kind) :: swh(m,np+1) - real(Kind=fp_kind) :: so2(m,np+1) !scaled o2 conc - real(Kind=fp_kind) :: df(m,np+1) !integrated flux refuction rate [] - real(Kind=fp_kind) :: df_sub(m,np+1) !sub-layer flux reduction rate [] - real(Kind=fp_kind) :: df_cld(m,np+1) !integrated clear-sky flux reduction rate [] - real(Kind=fp_kind) :: df_clr(m,np+1) !integrated all-sky flux reduction rate [] - real(Kind=fp_kind) :: snt(m) !inverse of cosz - real(Kind=fp_kind) :: cnt(m) + integer i,j,k,ntop(CHUNK),ic + integer :: nctop(CHUNK) + real(fp_kind) x + real(fp_kind) :: taux(CHUNK,np) ! total condensates optical depth + real(fp_kind) :: dp(CHUNK,np) + real(fp_kind) :: wh(CHUNK,np) + real(fp_kind) :: oh(CHUNK,np) + real(fp_kind) :: scal(CHUNK,np) + real(fp_kind) :: swu(CHUNK,np+1) + real(fp_kind) :: swh(CHUNK,np+1) + real(fp_kind) :: so2(CHUNK,np+1) !scaled o2 conc + real(fp_kind) :: df(CHUNK,np+1) !integrated flux refuction rate [] + real(fp_kind) :: df_sub(CHUNK,np+1) !sub-layer flux reduction rate [] + real(fp_kind) :: df_cld(CHUNK,np+1) !integrated clear-sky flux reduction rate [] + real(fp_kind) :: df_clr(CHUNK,np+1) !integrated all-sky flux reduction rate [] + real(fp_kind) :: snt(CHUNK) !inverse of cosz + real(fp_kind) :: cnt(CHUNK) ! new look-up table for (Fclr/Fall) ratio (overcast_fast option) - real(Kind=fp_kind) :: ratio, cld_alb + real(fp_kind) :: ratio, cld_alb integer :: i_cos, i_tau - real(Kind=fp_kind) :: ratio_lut(10,10) + real(fp_kind) :: ratio_lut(10,10) data ((ratio_lut(i,j),i=1,10),j=1,10)/ & !i cosin j albedo 0.796, 0.559, 0.523, 0.474, 0.439, 0.377, 0.298, 0.239, 0.154, 0.086, & 0.845, 0.628, 0.566, 0.508, 0.457, 0.392, 0.315, 0.242, 0.156, 0.087, & @@ -1295,7 +3281,7 @@ subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & !-----parameters for co2 transmission tables--------------------------- integer nu,nw,nx2,ny2 ! cccshie 9/15/04 parameter (nu=43,nw=37,nx2=62,ny2=101) - real(Kind=fp_kind) w1,dw,u1,du,coa(nx2,ny2),cah(nu,nw) + real(fp_kind) w1,dw,u1,du,coa(nx2,ny2),cah(nu,nw) !-----cah is the co2 absorptance in band 10 data ((cah(i,j),i=1,43),j= 1, 1)/ & 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, & @@ -3084,240 +5070,321 @@ subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & 0.0014205, 0.0014212/ !----- - do i=1,m - swh(i,1)=0. - so2(i,1)=0. + + +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + swh(ic,1)=0. + so2(ic,1)=0. !-----snt is the secant of the solar zenith angle -! - snt(i)=1.0 /cosz(i) - enddo + snt(ic)=1.0 /cosz(ic) + endif + ENDDO + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then - do k=1,np - do i=1,m ! !-----compute layer thickness. indices for the surface level and ! surface layer are np+1 and np, respectively. - dp(i,k)=pl(i,k+1)-pl(i,k) + dp(ic,k)=pl(ic,k+1)-pl(ic,k) + + ! !-----compute scaled water vapor amount following eqs. (3.3) and (3.5) ! unit is g/cm**2 ! - scal(i,k)=dp(i,k)*(.5*(pl(i,k)+pl(i,k+1))/300.)**.8 - wh(i,k)=1.02*wa(i,k)*scal(i,k) & - *(1.+0.00135*(ta(i,k)-240.)) +1.e-11 - swh(i,k+1)=swh(i,k)+wh(i,k) + scal(ic,k)= dp(ic,k)*(.5*(pl(ic,k)+pl(ic,k+1))/300.)**.8 + wh(ic,k)=1.02*wa(ic,k)*scal(ic,k) & + *(1.+0.00135*(ta(ic,k)-240.)) +1.e-11 + swh(ic,k+1)=swh(ic,k)+wh(ic,k) !-----compute ozone amount, unit is (cm-atm)stp ! the number 466.7 is the unit conversion factor ! from g/cm**2 to (cm-atm)stp - oh(i,k)=1.02*oa(i,k)*dp(i,k)*466.7 +1.e-11 -!-----compute layer cloud water amount (gm/m**2) -! the index is 1 for ice crystals, 2 for liquid drops, and -! 3 for rain drops - x=1.02*10000.*dp(i,k) - cwp(i,k,1)=x*cwc(i,k,1) - cwp(i,k,2)=x*cwc(i,k,2) - cwp(i,k,3)=x*cwc(i,k,3) - enddo - enddo + + oh(ic,k)=1.02*oa(ic,k)*dp(ic,k)*466.7 +1.e-11 + + endif + ENDDO + enddo !-----initialize fluxes for all-sky (flx), clear-sky (flc), and ! flux reduction (df) - do k=1,np+1 - do i=1,m - flx(i,k)=0. - flc(i,k)=0. - flxu(i,k)=0. - flxd(i,k)=0. - df(i,k)=0. - df_sub(i,k)=0. - df_cld(i,k)=0. - df_clr(i,k)=0. - enddo - enddo - + flx = 0. + flc = 0. + flxu = 0. + flxd = 0. + df = 0. + df_sub = 0. + df_cld = 0. + df_clr = 0. !-----compute solar uv and par fluxes !ccshie 9/18/04 - call sw_uvpar (m,np,wh,oh,dp, & - cwp,taucld,reff,ict,icb,fcld,cosz, & - taual,ssaal,asyal,taux,rsuvbm,rsuvdf, & - flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar) + + call sw_uvpar (np,wh,oh,dp, & + ict,icb,fcld,cosz, & + taucl,ssacl,asycl,taual,ssaal,asyal,taux,rsuvbm,rsuvdf, & + flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar,lmask,irestrict) + !-----compute and update solar ir fluxes - call sw_ir (m,np,wh,dp, & - cwp,taucld,reff,ict,icb,fcld,cosz, & - taual,ssaal,asyal,rsirbm,rsirdf, & - flx,flc,flxd,fdirir,fdifir) + call sw_ir (np,wh,dp, & + ict,icb,fcld,cosz, & + taucl,ssacl,asycl,taual,ssaal,asyal,rsirbm,rsirdf, & + flx,flc,flxd,fdirir,fdifir,lmask,irestrict) + !-----compute pressure-scaled o2 amount following eq. (3.5) with ! f=1. unit is (cm-atm)stp. ! the constant 165.22 equals (1000/980)*23.14%*(22400/32) - do i= 1, m - cnt(i)=165.22*snt(i) - enddo - do k=1,np - do i=1,m - so2(i,k+1)=so2(i,k)+scal(i,k)*cnt(i) - enddo - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + cnt(ic)=165.22*snt(ic) + endif + ENDDO + + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + so2(ic,k+1)=so2(ic,k)+scal(ic,k)*cnt(ic) + endif + ENDDO + enddo + !-----compute flux reduction due to o2 following eq. (3.18) ! the constant 0.0633 is the fraction of insolation contained ! in the oxygen bands - do k= 2, np+1 - do i= 1, m - x=so2(i,k) - df(i,k)=0.0633*(1.-exp(-0.000145*sqrt(x))) - - enddo - enddo + do k= 2, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + x=so2(ic,k) + df(ic,k)=0.0633*(1.-exp(-0.000145*sqrt(x))) + endif + ENDDO + enddo !-----for solar heating due to co2 - do i= 1, m - cnt(i)=co2*snt(i) - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + cnt(ic)=co2*snt(ic) + endif + ENDDO !-----scale co2 amounts following eq. (3.5) with f=1. ! unit is (cm-atm)stp. ! the constant 789 equals (1000/980)*(44/28.97)*(22400/44) - do k=1,np - do i=1,m - x=789.*cnt(i) - so2(i,k+1)=so2(i,k)+x*scal(i,k)+1.e-11 - enddo - enddo + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + x=789.*cnt(ic) + so2(ic,k+1)=so2(ic,k)+x*scal(ic,k)+1.e-11 + endif + ENDDO + enddo !-----for co2 absorption in band 10 where absorption due to ! water vapor and co2 are both moderate - u1=-3.0 - du=0.15 - w1=-4.0 - dw=0.15 + u1=-3.0 + du=0.15 + w1=-4.0 + dw=0.15 !-----so2 and swh are the co2 and water vapor amounts integrated ! from the top of the atmosphere - do k= 2, np+1 - do i= 1, m - swu(i,k)=log10(so2(i,k)) - swh(i,k)=log10(swh(i,k)*snt(i)) - enddo - enddo + do k= 2, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + swu(ic,k)=log10(so2(ic,k)) + swh(ic,k)=log10(swh(ic,k)*snt(ic)) + endif + ENDDO + enddo !-----df is the updated flux reduction given by the second term on the ! right-hand-side of eq. (3.24) divided by so - call reduce_flux(m,np,swu,u1,du,nu,swh,w1,dw,nw,cah,df) + call reduce_flux(np,swu,u1,du,nu,swh,w1,dw,nw,cah,df,lmask,irestrict) !-----for co2 absorption in band 11 where the co2 absorption has ! a large impact on the heating of middle atmosphere. - u1=0.000250 - du=0.000050 - w1=-2.0 - dw=0.05 - do i= 1, m - swu(i,1)=co2*snt(i) - enddo + u1=0.000250 + du=0.000050 + w1=-2.0 + dw=0.05 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + swu(ic,1)=co2*snt(ic) + endif + ENDDO !-----co2 mixing ratio is independent of space (spatially homogeneous) - do k= 2, np+1 - do i= 1, m - swu(i,k)=swu(i,1) - enddo - enddo + do k= 2, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + swu(ic,k)=swu(ic,1) + endif + ENDDO + enddo !-----swh is the logarithm of pressure - do k= 2, np+1 - do i= 1, m - swh(i,k)=log10(pl(i,k)) - enddo - enddo + do k= 2, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + swh(ic,k)=log10(pl(ic,k)) + endif + ENDDO + enddo !-----df is the updated flux reduction derived from the table given by ! eq. (3.19) - call reduce_flux(m,np,swu,u1,du,nx2,swh,w1,dw,ny2,coa,df) + call reduce_flux(np,swu,u1,du,nx2,swh,w1,dw,ny2,coa,df,lmask,irestrict) ! compute layer sub df (also filter negative values) - do i=1,m - do k = 2, np+1 - df_sub(i,k) = max(df(i,k) - df(i,k-1), 0._fp_kind) !df for each layer (remove negative df_sub) - enddo - enddo + do k = 2, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + df_sub(ic,k) = max(df(ic,k) - df(ic,k-1), 0.) !df for each layer (remove negative df_sub) + endif + ENDDO + enddo ! compute clear-sky df - do i=1,m - do k = 2, np+1 - df_clr(i,k) = df_clr(i,k-1)+df_sub(i,k) - enddo - enddo + do k = 2, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + df_clr(ic,k) = df_clr(ic,k-1)+df_sub(ic,k) + endif + ENDDO + enddo !-----adjustment for the effect of o2 cnd co2 on clear-sky fluxes. ! both flc and df_clr are positive quantities - do k=1,np+1 - do i=1,m - flc(i,k)=max(flc(i,k)-df_clr(i,k),0._fp_kind) !this filter is for small cosine zenith angle. - enddo - enddo + do k=1,np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + flc(ic,k)=max(flc(ic,k)-df_clr(ic,k),0.) !this filter is for small cosine zenith angle. + endif + ENDDO + enddo !-----identify top cloud-layer - do i= 1, m - nctop(i)=np+1 - enddo - - do k=1,np - do i= 1, m - if (fcld(i,k).gt.fcld_min .and. nctop(i).eq.np+1) then - nctop(i)=k - endif - enddo - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + nctop(ic)=np+1 + endif + ENDDO + + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + if (fcld(ic,k).gt.fcld_min .and. nctop(ic).eq.np+1) then + nctop(ic)=k + endif + endif + ENDDO + enddo ! adjust df_sub for below cloud - do i= 1,m - ntop=nctop(i) - if(overcast .and. fast_overcast) then !compute cloud albedo -! cld_alb = sum(taux(i,ntop+1:np+1))/(6.7+sum(taux(i,ntop+1:np+1))) - cld_alb = sum(taux(i,ntop+1:np))/(6.7+sum(taux(i,ntop+1:np))) - endif - if (ntop.lt.np+1) then - do k= ntop+1,np+1 !cloud top -> surface - if(overcast .and. fast_overcast) then !use ratio in LUT - i_cos = int(cosz(i)*10.)+1 !1~10 - i_tau = int(cld_alb*10.)+1 !1~10 - ratio = ratio_lut(i_tau,i_cos) - else !use computed clear and cloudy flux ratio (not fast_overcast) - ratio = max(0.01_fp_kind, min(1._fp_kind,(flx(i,k)/flc(i,k)))) - endif - df_sub(i,k) = df_sub(i,k)*ratio !compute cloudy-sky df_sub - enddo !k - endif - enddo !i +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + ntop(ic)=nctop(ic) + cld_alb=0. + if(overcast .and. fast_overcast) then !compute cloud albedo + cld_alb = sum(taux(ic,ntop(ic)+1:np))/(6.7+sum(taux(ic,ntop(ic)+1:np))) + endif + if (ntop(ic).lt.np+1) then + do k= ntop(ic)+1,np+1 !cloud top -> surface + if(overcast .and. fast_overcast) then !use ratio in LUT + i_cos = min(max(int(cosz(ic)*10.)+1, 1),10) !1~10 + i_tau = min(max(int(cld_alb*10.)+1,1),10) !1~10 + ratio = ratio_lut(i_tau,i_cos) + else !use computed clear and cloudy flux ratio (not fast_overcast) + ratio = max(0.01, min(1.,(flx(ic,k)/flc(ic,k)))) + endif + df_sub(ic,k) = df_sub(ic,k)*ratio !compute cloudy-sky df_sub + enddo !k + endif + endif + ENDDO !update df for cloudy-sky - do i=1,m - do k = 2, np+1 - df_cld(i,k) = df_cld(i,k-1)+df_sub(i,k) - enddo - enddo + do k = 2, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + df_cld(ic,k) = df_cld(ic,k-1)+df_sub(ic,k) + endif + ENDDO + enddo !-----adjustment for the effect of o2 cnd co2 on all-sky fluxes. ! max statement filter negative value in flx for small cosz (for df_cld > flx) - do i=1,m - do k = 1, np+1 - flx(i,k) = max(flx(i,k)-df_cld(i,k) , 0._fp_kind) !this max is for small cosz - flxd(i,k) = max(flxd(i,k)-df_cld(i,k), 0._fp_kind) !this max is for small cosz - flxu(i,k) = flx(i,k)-flxd(i,k) - enddo - enddo + do k = 1, np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + flx(ic,k) = max(flx(ic,k)-df_cld(ic,k) , 0.) !this max is for small cosz + flxd(ic,k) = max(flxd(ic,k)-df_cld(ic,k), 0.) !this max is for small cosz + flxu(ic,k) = flx(ic,k)-flxd(ic,k) + endif + ENDDO + enddo !-----adjustment for the direct downward flux - do i= 1,m - fdirir(i)=fdirir(i)-df_cld(i,np+1) - if (fdirir(i) .lt. 0.0) fdirir(i)=0.0 - enddo +! +! flux reduction all goes to direct NIR radiation. +! Correctd by toshi. In cloudy case fdirir often become zero. +! So, it must also reduce fdifir to make sure energy budgets are equal between +! flxd,flx and flxd_surf. +! +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + + if ( (fdirir(ic)-df_cld(ic,np+1)) >= 0. ) then ! normal + fdirir(ic)=fdirir(ic)-df_cld(ic,np+1) ! updated + else ! if negative, it also reduces diffuse component. + fdifir(ic) = MAX(0., fdifir(ic) + (fdirir(ic)-df_cld(ic,np+1)) ) + fdirir(ic)=0. + endif +! +! Convert double to single precision +! + flx_out(ic,:) = REAL(flx(ic,:) ) !flux fraction divergence [] + flxd_out(ic,:) = REAL(flxd(ic,:)) !flux fraction downward [] + flxu_out(ic,:) = REAL(flxu(ic,:)) !flux fraction upward [] - return +! +! Beam/diffuse radiation at UV-VIS/NIR bands for Land-Surface Models +! + flxd_surf(ic,1) = REAL( fdiruv(ic)+fdirpar(ic) ) !direct UV+PAR + flxd_surf(ic,2) = REAL( fdifuv(ic)+fdifpar(ic) ) !diffuse UV+PAR + flxd_surf(ic,3) = REAL( fdirir(ic) ) !direct NIR + flxd_surf(ic,4) = REAL( fdifir(ic) ) !diffuse NIR + endif + ENDDO - end subroutine swrad + end subroutine swrad !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine sw_uvpar (m,np,wh,oh,dp, & - cwp,taucld,reff,ict,icb,fcld,cosz, & - taual,ssaal,asyal,taux,rsuvbm,rsuvdf, & - flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar) + subroutine sw_uvpar (np,wh,oh,dp, & + ict,icb,fcld,cosz, & + taucl,ssacl,asycl,taual,ssaal,asyal,taux,rsuvbm,rsuvdf, & + flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar,lmask,irestrict) + implicit none !****************************************************************** ! compute solar fluxes in the uv+par region. the spectrum is @@ -3340,123 +5407,124 @@ subroutine sw_uvpar (m,np,wh,oh,dp, & ! !----- input parameters: units size ! -! number of soundings (m) n/d 1 ! number of atmospheric layers (np) n/d 1 -! layer scaled-water vapor content (wh) gm/cm^2 m*np -! layer ozone content (oh) (cm-atm)stp m*np -! layer pressure thickness (dp) mb m*np +! layer scaled-water vapor content (wh) gm/cm^2 np +! layer ozone content (oh) (cm-atm)stp np +! layer pressure thickness (dp) mb np ! option for scaling cloud optical thickness n/d 1 ! overcast="true" if scaling is not required ! overcast="fasle" if scaling is required -! input option for cloud optical thickness n/d 1 -! cldwater="true" if taucld is provided -! cldwater="false" if cwp is provided -! cloud water amount (cwp) gm/m**2 m*np*3 +! cloud water amount (cwp) gm/m**2 np*5 ! index 1 for ice particles ! index 2 for liquid drops ! index 3 for rain drops -! cloud optical thickness (taucld) n/d m*np*3 +! index 4 for snow +! index 5 for graupel +! cloud optical thickness (taucld) n/d np*5 ! index 1 for ice particles ! index 2 for liquid drops ! index 3 for rain drops -! effective cloud-particle size (reff) micrometer m*np*3 +! effective cloud-particle size (reff) micrometer np*5 ! index 1 for ice paticles ! index 2 for liquid drops ! index 3 for rain drops -! level index separating high and n/d m +! index 4 for snow +! index 5 for graupel +! level index separating high and n/d 1 ! middle clouds (ict) -! level indiex separating middle and n/d m +! level indiex separating middle and n/d 1 ! low clouds (icb) -! cloud amount (fcld) fraction m*np -! cosine of solar zenith angle (cosz) n/d m -! aerosol optical thickness (taual) n/d m*np*11 -! aerosol single-scattering albedo (ssaal) n/d m*np*11 -! aerosol asymmetry factor (asyal) n/d m*np*11 -! uv+par surface albedo for beam fraction m +! cloud amount (fcld) fraction np +! cosine of solar zenith angle (cosz) n/d 1 +! aerosol optical thickness (taual) n/d np*11 +! aerosol single-scattering albedo (ssaal) n/d np*11 +! aerosol asymmetry factor (asyal) n/d np*11 +! uv+par surface albedo for beam fraction 1 ! radiation (rsuvbm) -! uv+par surface albedo for diffuse fraction m +! uv+par surface albedo for diffuse fraction 1 ! radiation (rsuvdf) ! !---- temporary array ! -! scaled cloud optical thickness n/d m*np +! scaled cloud optical thickness n/d np ! for beam radiation (tauclb) -! scaled cloud optical thickness n/d m*np +! scaled cloud optical thickness n/d np ! for diffuse radiation (tauclf) ! !----- output (updated) parameters: ! -! all-sky flux divergence (downward-upward) (flx) fraction m*(np+1) -! clear-sky flux divergence (downward-upward) (flc) fraction m*(np+1) +! all-sky flux divergence (downward-upward) (flx) fraction (np+1) +! clear-sky flux divergence (downward-upward) (flc) fraction (np+1) ! all-sky direct downward uv flux at -! the surface (fdiruv) fraction m +! the surface (fdiruv) fraction 1 ! all-sky diffuse downward uv flux at -! the surface (fdifuv) fraction m +! the surface (fdifuv) fraction 1 ! all-sky direct downward par flux at -! the surface (fdirpar) fraction m +! the surface (fdirpar) fraction 1 ! all-sky diffuse downward par flux at -! the surface (fdifpar) fraction m +! the surface (fdifpar) fraction 1 ! !*********************************************************************** -!ccshie 8/19/04 - implicit none !-----input parameters - integer m,np,ict(m),icb(m) - real(Kind=fp_kind) taucld(m,np,3),reff(m,np,3),fcld(m,np) - real(Kind=fp_kind) cwp(m,np,3),wh(m,np),oh(m,np),dp(m,np) - real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw) - real(Kind=fp_kind) rsuvbm(m),rsuvdf(m),cosz(m) + integer,intent(in) :: irestrict + logical,dimension(CHUNK),intent(in) :: lmask + integer np,ict(CHUNK),icb(CHUNK) + real(fp_kind) fcld(CHUNK,np) + real(fp_kind) wh(CHUNK,np),oh(CHUNK,np),dp(CHUNK,np) + real(fp_kind) taucl(CHUNK,np,nband_sw),ssacl(CHUNK,np,nband_sw),asycl(CHUNK,np,nband_sw) + real(fp_kind) taual(CHUNK,np,nband_sw),ssaal(CHUNK,np,nband_sw),asyal(CHUNK,np,nband_sw) + real(fp_kind) rsuvbm(CHUNK),rsuvdf(CHUNK),cosz(CHUNK) !-----output (updated) parameter - real(Kind=fp_kind) flx(m,np+1),flc(m,np+1) - real(Kind=fp_kind) flxd(m,np+1) - real(Kind=fp_kind) fdiruv (m),fdifuv (m) - real(Kind=fp_kind) fdirpar(m),fdifpar(m) - real(Kind=fp_kind) taux(m,np) + real(fp_kind) flx(CHUNK,np+1),flc(CHUNK,np+1) + real(fp_kind) flxd(CHUNK,np+1) + real(fp_kind) fdiruv(CHUNK) ,fdifuv(CHUNK) + real(fp_kind) fdirpar(CHUNK),fdifpar(CHUNK) + real(fp_kind) taux(CHUNK,np) + !-----static parameters - integer nband - parameter (nband=8) - real(Kind=fp_kind) hk(nband),wk(nband),zk(nband),ry(nband) - real(Kind=fp_kind) aig(3),awg(3),arg(3) - real(Kind=fp_kind) aib(2),awb(2),arb(2) + integer nband + parameter (nband=8) + real(fp_kind) hk(nband),wk(nband),zk(nband),ry(nband) + real(fp_kind) aig(3),awg(3),arg(3) + real(fp_kind) aib(2),awb(2),arb(2) !-----temporary array - integer i,k,ib - integer ih1,ih2,im1,im2,is1,is2 - real(Kind=fp_kind) taurs,tauoz,tauwv - real(Kind=fp_kind) :: g1,g2,g3 - real(Kind=fp_kind) :: dsm(m) - real(Kind=fp_kind) :: tauclb(m,np) - real(Kind=fp_kind) :: tauclf(m,np) - real(Kind=fp_kind) :: asycl(m,np) - real(Kind=fp_kind) :: tausto(m,np) - real(Kind=fp_kind) :: ssatau(m,np) - real(Kind=fp_kind) :: asysto(m,np) - real(Kind=fp_kind) :: tautob(m,np) - real(Kind=fp_kind) :: ssatob(m,np) - real(Kind=fp_kind) :: asytob(m,np) - real(Kind=fp_kind) :: tautof(m,np) - real(Kind=fp_kind) :: ssatof(m,np) - real(Kind=fp_kind) :: asytof(m,np) - real(Kind=fp_kind) :: rr(m,np+1,2) - real(Kind=fp_kind) :: tt(m,np+1,2) - real(Kind=fp_kind) :: td(m,np+1,2) - real(Kind=fp_kind) :: rs(m,np+1,2) - real(Kind=fp_kind) :: ts(m,np+1,2) - real(Kind=fp_kind) :: fall(m,np+1) - real(Kind=fp_kind) :: falld(m,np+1) - real(Kind=fp_kind) :: fclr(m,np+1) - real(Kind=fp_kind) :: fsdir(m) - real(Kind=fp_kind) :: fsdif(m) - real(Kind=fp_kind) :: asyclt(m) - real(Kind=fp_kind) :: cc(m,3) - real(Kind=fp_kind) :: rrt(m,np) - real(Kind=fp_kind) :: ttt(m,np) - real(Kind=fp_kind) :: tdt(m,np) - real(Kind=fp_kind) :: rst(m,np) - real(Kind=fp_kind) :: tst(m,np) - real(Kind=fp_kind) :: dum1(m,np+1) - real(Kind=fp_kind) :: dum2(m) - real(Kind=fp_kind) :: dum3(m) - real(Kind=fp_kind) :: dum(m,np) + integer :: k,ib,ic + integer :: ih1,ih2,im1,im2,is1,is2 + real(fp_kind) :: taurs(CHUNK,np),tauoz(CHUNK,np),tauwv(CHUNK,np) ! TODO: scalarize +! real(fp_kind) :: g(max_spc) !asymetry factors + real(fp_kind) :: dsm + real(fp_kind) :: tauclb(CHUNK,np,nband_sw) + real(fp_kind) :: tauclf(CHUNK,np,nband_sw) + real(fp_kind) :: tausto(CHUNK) + real(fp_kind) :: ssatau(CHUNK) + real(fp_kind) :: asysto(CHUNK) + real(fp_kind) :: tautob(CHUNK) + real(fp_kind) :: ssatob(CHUNK) + real(fp_kind) :: asytob(CHUNK) + real(fp_kind) :: tautof(CHUNK) + real(fp_kind) :: ssatof(CHUNK) + real(fp_kind) :: asytof(CHUNK) + real(fp_kind) :: rr(CHUNK,np+1,2) + real(fp_kind) :: tt(CHUNK,np+1,2) + real(fp_kind) :: td(CHUNK,np+1,2) + real(fp_kind) :: rs(CHUNK,np+1,2) + real(fp_kind) :: ts(CHUNK,np+1,2) + real(fp_kind) :: fall(CHUNK,np+1) + real(fp_kind) :: falld(CHUNK,np+1) + real(fp_kind) :: fclr(CHUNK,np+1) + real(fp_kind) :: fsdir(CHUNK) + real(fp_kind) :: fsdif(CHUNK) + real(fp_kind) :: asyclt(CHUNK) + real(fp_kind) :: cc(CHUNK,3) + real(fp_kind) :: rrt(CHUNK,np) + real(fp_kind) :: ttt(CHUNK,np) + real(fp_kind) :: tdt(CHUNK,np) + real(fp_kind) :: rst(CHUNK,np) + real(fp_kind) :: tst(CHUNK,np) + real(fp_kind) :: dum1(CHUNK,np+1) + real(fp_kind) :: dum2(CHUNK) + real(fp_kind) :: dum3(CHUNK) + real(fp_kind) :: dum(CHUNK,np) !-----hk is the fractional extra-terrestrial solar flux in each ! of the 8 bands. the sum of hk is 0.47074. (table 3) data hk/.00057, .00367, .00083, .00417, & @@ -3488,253 +5556,288 @@ subroutine sw_uvpar (m,np,wh,oh,dp, & ! cc is the maximum cloud cover in each of the high, middle, and low ! cloud groups. ! 1/dsm=1/cos(53) = 1.66 - do i=1,m - dsm(i)=0.602 - fdiruv(i)=0.0 - fdifuv(i)=0.0 - rr(i,np+1,1)=rsuvbm(i) - rr(i,np+1,2)=rsuvbm(i) - rs(i,np+1,1)=rsuvdf(i) - rs(i,np+1,2)=rsuvdf(i) - td(i,np+1,1)=0.0 - td(i,np+1,2)=0.0 - tt(i,np+1,1)=0.0 - tt(i,np+1,2)=0.0 - ts(i,np+1,1)=0.0 - ts(i,np+1,2)=0.0 - cc(i,1)=0.0 - cc(i,2)=0.0 - cc(i,3)=0.0 - enddo - if (cldwater) then - do k=1,np - do i=1,m - taucld(i,k,1)=cwp(i,k,1)*(aib(1)+aib(2)/reff(i,k,1)) - taucld(i,k,2)=cwp(i,k,2)*(awb(1)+awb(2)/reff(i,k,2)) - taucld(i,k,3)=cwp(i,k,3)* arb(1) - enddo - enddo - endif -!-----options for scaling cloud optical thickness + dsm=0.602e0 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + fdiruv=0.e0 + fdifuv=0.e0 + cc(ic,1:3)=0.e0 - if (overcast) then +! +! surface boundary conditions +! + rr(ic,np+1,1)=rsuvbm(ic) + rr(ic,np+1,2)=rsuvbm(ic) + rs(ic,np+1,1)=rsuvdf(ic) + rs(ic,np+1,2)=rsuvdf(ic) - do k=1,np - do i=1,m - tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3) - tauclf(i,k)=tauclb(i,k) - enddo - enddo + td(ic,np+1,1:2)=0.e0 + tt(ic,np+1,1:2)=0.e0 + ts(ic,np+1,1:2)=0.e0 + endif + ENDDO - do k=1,3 - do i=1,m - cc(i,k)=1.0 - enddo - enddo +!-----options for scaling cloud optical thickness - else + if (overcast) then !CRM or LES + +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + tauclb(ic,:,:) = taucl(ic,:,:) + tauclf(ic,:,:) = taucl(ic,:,:) + cc(ic,1:3)=1.e0 !cc is the maximum cloud cover in each of the high, middle, and low cloud gruops + endif + ENDDO + + else !for GCM (toshii work on lator) !-----scale cloud optical thickness in each layer from taucld (with ! cloud amount fcld) to tauclb and tauclf (with cloud amount cc). ! tauclb is the scaled optical thickness for beam radiation and ! tauclf is for diffuse radiation (see section 7). +! So this gives different cloud optical depths for beam and diffuse radiation... + + do ib=1,nband +! DO ic=1,irestrict +! if(lmask(ic) .eqv. .true.) then + call cloud_scale ( np,cosz,fcld,taucl,ict,icb, & + cc,tauclb,tauclf,lmask,irestrict ) +! endif +! ENDDO + enddo - call cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & - cc,tauclb,tauclf) + endif - endif +! +! uv-vis band integration +! + BAND_LOOP: do ib=1,nband !nband is 8 in sw_uvpar -!-----cloud asymmetry factor for a mixture of liquid and ice particles. -! unit of reff is micrometers. eqs. (4.8) and (6.4) - do k=1,np - do i=1,m - asyclt(i)=1.0 - taux(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3) - if (taux(i,k).gt.taux_min .and. fcld(i,k).gt.fcld_min) then - g1=(aig(1)+(aig(2)+aig(3)*reff(i,k,1))*reff(i,k,1))*taucld(i,k,1) - g2=(awg(1)+(awg(2)+awg(3)*reff(i,k,2))*reff(i,k,2))*taucld(i,k,2) - g3= arg(1)*taucld(i,k,3) - asyclt(i)=(g1+g2+g3)/taux(i,k) - endif - enddo - do i=1,m - asycl(i,k)=asyclt(i) - enddo - enddo +!-----compute reflectance and transmittance of the clear portion of a layer + LEVEL_LOOP: do k=1,np -!-----integration over spectral bands--------------------------------- +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then - do 100 ib=1,nband +!-----compute rayleigh, ozone and water vapor optical thicknesses + taurs(ic,k)=ry(ib)*dp(ic,k) + tauoz(ic,k)=zk(ib)*oh(ic,k) + tauwv(ic,k)=wk(ib)*wh(ic,k) +! +! total optical properties without cloud +! + tausto(ic)=max(taurs(ic,k)+tauoz(ic,k)+tauwv(ic,k)+taual(ic,k,ib),opt_min) + ssatau(ic)=ssaal(ic,k,ib)*taual(ic,k,ib)+taurs(ic,k) + asysto(ic)=asyal(ic,k,ib)*ssaal(ic,k,ib)*taual(ic,k,ib) -!-----compute reflectance and transmittance of the clear portion of a layer - do k=1,np - do i=1,m +!-----compute clear-sky optical thickness, single scattering albedo, +! and asymmetry factor (eqs. 6.2-6.4) -!-----compute rayleigh, ozone and water vapor optical thicknesses + endif + enddo - taurs=ry(ib)*dp(i,k) - tauoz=zk(ib)*oh(i,k) - tauwv=wk(ib)*wh(i,k) + IF_CLEAR: if (overcast .and. fast_overcast ) then +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then -!-----compute clear-sky optical thickness, single scattering albedo, -! and asymmetry factor (eqs. 6.2-6.4) + rr(ic,k,1)=0.e0 + tt(ic,k,1)=0.e0 + td(ic,k,1)=0.e0 + rs(ic,k,1)=0.e0 + ts(ic,k,1)=0.e0 - tausto(i,k)=max(taurs+tauoz+tauwv+taual(i,k,ib),opt_min) - ssatau(i,k)=max(ssaal(i,k,ib)*taual(i,k,ib)+taurs,opt_min) - asysto(i,k)=max(asyal(i,k,ib)*ssaal(i,k,ib)*taual(i,k,ib),opt_min) + endif + enddo - if (overcast .and. fast_overcast ) then ; else + else !GCM or overcast (need clear-sky portion of optical properties) +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then - tautob(i,k)=tausto(i,k) - ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min) - ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind) - asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min) + tautob(ic)=tausto(ic) + ssatob(ic)=min(max(ssatau(ic)/tautob(ic),ssa_min), ssa_max) + asytob(ic)=min(max(asysto(ic)/(ssatob(ic)*tautob(ic)),asy_min), asy_max) !-----Compute delta-eddington approximation of scattering properties ! for direct incident radiation - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , & - rrt(i,k),ttt(i,k), tdt(i,k) ) + endif + enddo +!dir$ vector aligned +!dir$ SIMD + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + + call delta_eddington(tautob(ic), ssatob(ic), asytob(ic), cosz(ic) , & + rrt(ic,k),ttt(ic,k), tdt(ic,k) ) ! !-----diffuse incident radiation is approximated by beam radiation with ! an incident angle of 53 degrees, eqs. (6.5) and (6.6) - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , & - rst(i,k),tst(i,k), dum(i,k) ) + call delta_eddington(tautob(ic), ssatob(ic), asytob(ic), dsm , & + rst(ic,k),tst(ic,k), dum(ic,k) ) - rr(i,k,1)=rrt(i,k) - tt(i,k,1)=ttt(i,k) - td(i,k,1)=tdt(i,k) - rs(i,k,1)=rst(i,k) - ts(i,k,1)=tst(i,k) + endif + enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then - endif ! not overcast .and. not fast_overcast + rr(ic,k,1)=rrt(ic,k) + tt(ic,k,1)=ttt(ic,k) + td(ic,k,1)=tdt(ic,k) + rs(ic,k,1)=rst(ic,k) + ts(ic,k,1)=tst(ic,k) -!-----compute reflectance and transmittance of the cloudy portion of a layer - if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. & !cloud exists - (overcast .and. fast_overcast ) ) then ! overcast .and. fast_overcast + endif + enddo + endif IF_CLEAR -!-----for direct incident radiation -! the effective layer optical properties. eqs. (6.2)-(6.4) - tautob(i,k)=tausto(i,k) + max(tauclb(i,k),opt_min) - ssatob(i,k)=max((ssatau(i,k)+tauclb(i,k))/tautob(i,k),opt_min) - ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind) - asytob(i,k)=max((asysto(i,k)+asycl(i,k)*tauclb(i,k)) & - /(ssatob(i,k)*tautob(i,k)),opt_min) -!-----for diffuse incident radiation - tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min) + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then - ssatof(i,k)=max((ssatau(i,k)+tauclf(i,k))/tautof(i,k),opt_min) - ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind) - asytof(i,k)=max((asysto(i,k)+asycl(i,k)*tauclf(i,k)) & - /(ssatof(i,k)*tautof(i,k)),opt_min) +!-----compute reflectance and transmittance of the cloudy portion of a layer + +!-----for direct incident radiation +! the effective layer optical properties. eqs. (6.2)-(6.4) !modify max & min + tautob(ic)=tausto(ic) + max(tauclb(ic,k,ib),0.e0) + ssatob(ic)=min(max((ssatau(ic)+ssacl(ic,k,ib)*tauclb(ic,k,ib))/tautob(ic) , ssa_min), ssa_max) !SSA of cloud is unity + asytob(ic)=min(max((asysto(ic)+asycl(ic,k,ib)*ssacl(ic,k,ib)*tauclb(ic,k,ib)) & + /( max(ssatob(ic)*tautob(ic),const_tiny) ),asy_min), asy_max) + +!-----for diffuse incident radiation (same values) + if(overcast) then !CRM case direct and diffuse component are same +! tautof(ic)=tautob(ic) +! ssatof(ic)=ssatob(ic) +! asytof(ic)=asytob(ic) + else !GCM case overlappsing scheme generate different beam and diffuse component. +! tautof(ic)=tausto(ic) + max(tauclf(ic,k,ib),0.e0) +! ssatof(ic)=min(max((ssatau(ic)+ssacl(ic,k,ib)*tauclf(ic,k,ib))/tautob(ic) , ssa_min), ssa_max) !SSA of cloud is unity +! asytof(ic)=min(max((asysto(ic)+asycl(ic,k,ib)*ssacl(ic,k,ib)*tauclf(ic,k,ib)) & +! /( max(ssatob(ic)*tautob(ic),const_tiny) ),asy_min), asy_max) + endif !-----Compute delta-eddington approximation of scattering properties ! for direct incident radiation ! note that the cloud optical thickness is scaled differently for direct ! and diffuse insolation, eqs. (7.3) and (7.4). - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , & - rrt(i,k),ttt(i,k), tdt(i,k) ) + endif + enddo +!dir$ vector aligned +!dir$ SIMD + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + + call delta_eddington(tautob(ic), ssatob(ic), asytob(ic), cosz(ic) , & + rrt(ic,k),ttt(ic,k), tdt(ic,k) ) !-----diffuse incident radiation is approximated by beam radiation with ! an incident angle of 53 degrees, eqs. (6.5) and (6.6) - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , & - rst(i,k),tst(i,k), dum(i,k) ) - - endif + call delta_eddington(tautob(ic), ssatob(ic), asytob(ic), dsm , & + rst(ic,k),tst(ic,k), dum(ic,k) ) - rr(i,k,2)=rrt(i,k) - tt(i,k,2)=ttt(i,k) - td(i,k,2)=tdt(i,k) - rs(i,k,2)=rst(i,k) - ts(i,k,2)=tst(i,k) + endif + enddo + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + rr(ic,k,2)=rrt(ic,k) + tt(ic,k,2)=ttt(ic,k) + td(ic,k,2)=tdt(ic,k) + rs(ic,k,2)=rst(ic,k) + ts(ic,k,2)=tst(ic,k) - enddo !i loop - enddo !k loop + endif + ENDDO + enddo LEVEL_LOOP !-----flux calculations - if (overcast) then !cloud fraction 0 or 1 -> CRM + if (overcast) then !cloud fraction 0 or 1 -> CRM if( .not. fast_overcast ) then !-----for clear-sky fluxes only (This is needed for equation 6.18 flux redtion due to CO2 and O2 below cloud) ih1=1 ; im1=1 ; is1=1 ih2=1 ; im2=1 ; is2=1 - call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & - cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3) + call twostream_adding (np,ict,icb,ih1,ih2,im1,im2,is1,is2, & + cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3,lmask,irestrict) endif !-----for cloudy-sky fluxes only ih1=2 ; im1=2 ; is1=2 ih2=2 ; im2=2 ; is2=2 - call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & - cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif) - - else ! non overcast (cloud fraction 0.~1. GCM or RCM ) + call twostream_adding (np,ict,icb,ih1,ih2,im1,im2,is1,is2, & + cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif,lmask,irestrict) + else ! non overcast (cloud fraction 0.~1. GCM or RCM ) !-----for clear- and all-sky fluxes the all-sky flux, fall is the summation inside the brackets of eq. (7.11) ih1=1 ; im1=1 ; is1=1 ih2=2 ; im2=2 ; is2=2 - call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & - cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif) - - endif ! overcast + call twostream_adding (np,ict,icb,ih1,ih2,im1,im2,is1,is2, & + cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif,lmask,irestrict) + endif ! overcast !-----flux integration, eq. (6.1) - do k=1,np+1 - do i=1,m - flx(i,k)=flx(i,k)+fall(i,k)*hk(ib) - flxd(i,k)=flxd(i,k)+falld(i,k)*hk(ib) - - if(overcast .and. fast_overcast) then ; else - flc(i,k)=flc(i,k)+fclr(i,k)*hk(ib) - endif - - enddo - - - enddo + do k=1,np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + flx(ic,k)=flx(ic,k)+fall(ic,k)*hk(ib) + flxd(ic,k)=flxd(ic,k)+falld(ic,k)*hk(ib) + + if(overcast .and. fast_overcast) then + !do nothing + else + flc(ic,k)=flc(ic,k)+fclr(ic,k)*hk(ib) + endif + endif + ENDDO + enddo !-----compute direct and diffuse downward surface fluxes in the uv ! and par regions - if(ib.lt.8) then - do i=1,m - fdiruv(i)=fdiruv(i)+fsdir(i)*hk(ib) - fdifuv(i)=fdifuv(i)+fsdif(i)*hk(ib) - enddo - else - do i=1,m - fdirpar(i)=fsdir(i)*hk(ib) - fdifpar(i)=fsdif(i)*hk(ib) - enddo - endif +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + if(ib.lt.8) then !UV + fdiruv(ic)=fdiruv(ic)+fsdir(ic)*hk(ib) !beam + fdifuv(ic)=fdifuv(ic)+fsdif(ic)*hk(ib) !diffuse + else !VIS + fdirpar(ic)=fsdir(ic)*hk(ib) !beam + fdifpar(ic)=fsdif(ic)*hk(ib) !diffuse + endif + endif + ENDDO - 100 continue + enddo BAND_LOOP - return - end subroutine sw_uvpar + end subroutine sw_uvpar !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine sw_ir (m,np,wh,dp, & - cwp,taucld,reff,ict,icb,fcld,cosz, & - taual,ssaal,asyal, & - rsirbm,rsirdf,flx,flc,flxd,fdirir,fdifir) + subroutine sw_ir (np,wh,dp, & + ict,icb,fcld,cosz, & + taucl,ssacl,asycl,taual,ssaal,asyal, & + rsirbm,rsirdf,flx,flc,flxd,fdirir,fdifir,lmask,irestrict) + implicit none !************************************************************************ ! compute solar flux in the infrared region. the spectrum is divided ! into three bands: @@ -3746,139 +5849,130 @@ subroutine sw_ir (m,np,wh,dp, & ! !----- input parameters: units size ! -! number of soundings (m) n/d 1 ! number of atmospheric layers (np) n/d 1 -! layer scaled-water vapor content (wh) gm/cm^2 m*np +! layer scaled-water vapor content (wh) gm/cm^2 np ! option for scaling cloud optical thickness n/d 1 ! overcast="true" if scaling is not required ! overcast="fasle" if scaling is required -! input option for cloud optical thickness n/d 1 -! cldwater="true" if taucld is provided -! cldwater="false" if cwp is provided -! cloud water concentration (cwp) gm/m**2 m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! cloud optical thickness (taucld) n/d m*np*3 -! index 1 for ice paticles -! index 2 for liquid drops -! index 3 for rain drops -! effective cloud-particle size (reff) micrometer m*np*3 -! index 1 for ice paticles -! index 2 for liquid drops -! index 3 for rain drops -! level index separating high and n/d m +! cloud optical thickness (taucl) n/d np*band +! cloud single scattering albedo (ssacl) n/d np*band +! cloud asymetry parameter (asycl) n/d np*band +! aerosol optical thickness (taual) n/d np*band +! aerosol single scattering albedo (ssaal) n/d np*band +! aerosol asymetry parameter (asyal) n/d np*band +! +! level index separating high and n/d 1 ! middle clouds (ict) -! level index separating middle and n/d m +! level index separating middle and n/d 1 ! low clouds (icb) -! cloud amount (fcld) fraction m*np -! aerosol optical thickness (taual) n/d m*np*11 -! aerosol single-scattering albedo (ssaal) n/d m*np*11 -! aerosol asymmetry factor (asyal) n/d m*np*11 -! near ir surface albedo for beam fraction m +! cloud amount (fcld) fraction np +! aerosol optical thickness (taual) n/d np*11 +! aerosol single-scattering albedo (ssaal) n/d np*11 +! aerosol asymmetry factor (asyal) n/d np*11 +! near ir surface albedo for beam fraction 1 ! radiation (rsirbm) -! near ir surface albedo for diffuse fraction m +! near ir surface albedo for diffuse fraction 1 ! radiation (rsirdf) ! !---- temporary array ! -! scaled cloud optical thickness n/d m*np +! scaled cloud optical thickness n/d np ! for beam radiation (tauclb) -! scaled cloud optical thickness n/d m*np +! scaled cloud optical thickness n/d np ! for diffuse radiation (tauclf) ! !----- output (updated) parameters: ! -! all-sky flux divergence (downward-upward) (flx) fraction m*(np+1) -! clear-sky flux divergence (downward-upward) (flc) fraction m*(np+1) +! all-sky flux divergence (downward-upward) (flx) fraction (np+1) +! clear-sky flux divergence (downward-upward) (flc) fraction (np+1) ! all-sky direct downward ir flux at -! the surface (fdirir) fraction m +! the surface (fdirir) fraction 1 ! all-sky diffuse downward ir flux at -! the surface (fdifir) fraction m +! the surface (fdifir) fraction 1 ! !********************************************************************** - implicit none !-----input parameters - integer m,np,ict(m),icb(m) - integer ih1,ih2,im1,im2,is1,is2 - real(Kind=fp_kind) cwp(m,np,3),taucld(m,np,3),reff(m,np,3) - real(Kind=fp_kind) fcld(m,np),cosz(m) - real(Kind=fp_kind) rsirbm(m),rsirdf(m) - real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw) - real(Kind=fp_kind) dp(m,np),wh(m,np) + logical lmask(CHUNK) + integer irestrict + integer np,ict(CHUNK),icb(CHUNK) + integer ih1,ih2,im1,im2,is1,is2 + real(fp_kind) fcld(CHUNK,np),cosz(CHUNK) + real(fp_kind) rsirbm(CHUNK),rsirdf(CHUNK) + real(fp_kind) taucl(CHUNK,np,nband_sw),ssacl(CHUNK,np,nband_sw),asycl(CHUNK,np,nband_sw) + real(fp_kind) taual(CHUNK,np,nband_sw),ssaal(CHUNK,np,nband_sw),asyal(CHUNK,np,nband_sw) + real(fp_kind) dp(CHUNK,np),wh(CHUNK,np) !-----output (updated) parameters - real(Kind=fp_kind) flx(m,np+1),flc(m,np+1) - real(Kind=fp_kind) flxd(m,np+1) - real(Kind=fp_kind) fdirir(m),fdifir(m) + real(fp_kind) flx(CHUNK,np+1),flc(CHUNK,np+1) + real(fp_kind) flxd(CHUNK,np+1) + real(fp_kind) fdirir(CHUNK),fdifir(CHUNK) !-----static parameters - integer nk,nband - parameter (nk=10,nband=3) - real(Kind=fp_kind) :: taux - real(Kind=fp_kind) :: w1, w2, w3 !expansion stuff - real(Kind=fp_kind) :: g1, g2, g3 !asymetry stuff - real(Kind=fp_kind) hk(nband,nk),xk(nk),ry(nband) - real(Kind=fp_kind) aib(nband,2),awb(nband,2),arb(nband,2) - real(Kind=fp_kind) aia(nband,3),awa(nband,3),ara(nband,3) - real(Kind=fp_kind) aig(nband,3),awg(nband,3),arg(nband,3) + integer nk,nband + parameter (nk=10,nband=3) + real(fp_kind) :: taux +! real(fp_kind) :: w(max_spc) !expansion stuff +! real(fp_kind) :: g(max_spc) !asymetry stuff + real(fp_kind) hk(nband,nk),xk(nk),ry(nband) + real(fp_kind) aib(nband,2),awb(nband,2),arb(nband,2) + real(fp_kind) aia(nband,3),awa(nband,3),ara(nband,3) + real(fp_kind) aig(nband,3),awg(nband,3),arg(nband,3) !-----temporary array - integer ib,iv,ik,i,k - real(Kind=fp_kind) taurs,tauwv - real(Kind=fp_kind) :: dsm(m) - real(Kind=fp_kind) :: tauclb(m,np) - real(Kind=fp_kind) :: tauclf(m,np) - real(Kind=fp_kind) :: cc(m,3) - real(Kind=fp_kind) :: ssacl(m,np) - real(Kind=fp_kind) :: asycl(m,np) - real(Kind=fp_kind) :: rr(m,np+1,2) - real(Kind=fp_kind) :: tt(m,np+1,2) - real(Kind=fp_kind) :: td(m,np+1,2) - real(Kind=fp_kind) :: rs(m,np+1,2) - real(Kind=fp_kind) :: ts(m,np+1,2) - real(Kind=fp_kind) :: fall(m,np+1) - real(Kind=fp_kind) :: falld(m,np+1) - real(Kind=fp_kind) :: fclr(m,np+1) - real(Kind=fp_kind) :: fsdir(m) - real(Kind=fp_kind) :: fsdif(m) - real(Kind=fp_kind) :: tausto(m,np) - real(Kind=fp_kind) :: ssatau(m,np) - real(Kind=fp_kind) :: asysto(m,np) - real(Kind=fp_kind) :: tautob(m,np) - real(Kind=fp_kind) :: ssatob(m,np) - real(Kind=fp_kind) :: asytob(m,np) - real(Kind=fp_kind) :: tautof(m,np) - real(Kind=fp_kind) :: ssatof(m,np) - real(Kind=fp_kind) :: asytof(m,np) - real(Kind=fp_kind) :: ssaclt(m) - real(Kind=fp_kind) :: asyclt(m) - real(Kind=fp_kind) :: rrt(m,np) - real(Kind=fp_kind) :: ttt(m,np) - real(Kind=fp_kind) :: tdt(m,np) - real(Kind=fp_kind) :: rst(m,np) - real(Kind=fp_kind) :: tst(m,np) - real(Kind=fp_kind) :: dum1(m,np+1) - real(Kind=fp_kind) :: dum2(m) - real(Kind=fp_kind) :: dum3(m) - real(Kind=fp_kind) :: dum(m,np) + integer ib,iv,ik,k,ic + real(fp_kind) taurs,tauwv + real(fp_kind) :: dsm + real(fp_kind) :: tauclb(CHUNK,np) + real(fp_kind) :: tauclf(CHUNK,np) + real(fp_kind) :: cc(CHUNK,3) + real(fp_kind) :: rr(CHUNK,np+1,2) + real(fp_kind) :: tt(CHUNK,np+1,2) + real(fp_kind) :: td(CHUNK,np+1,2) + real(fp_kind) :: rs(CHUNK,np+1,2) + real(fp_kind) :: ts(CHUNK,np+1,2) + real(fp_kind) :: fall(CHUNK,np+1) + real(fp_kind) :: falld(CHUNK,np+1) + real(fp_kind) :: fclr(CHUNK,np+1) + real(fp_kind) :: fsdir(CHUNK) + real(fp_kind) :: fsdif(CHUNK) + real(fp_kind) :: tausto(CHUNK,np) + real(fp_kind) :: ssatau(CHUNK,np) + real(fp_kind) :: asysto(CHUNK,np) + real(fp_kind) :: tautob(CHUNK,np) + real(fp_kind) :: ssatob(CHUNK,np) + real(fp_kind) :: asytob(CHUNK,np) + real(fp_kind) :: tautof(CHUNK,np) + real(fp_kind) :: ssatof(CHUNK,np) + real(fp_kind) :: asytof(CHUNK,np) +! real(fp_kind) :: ssaclt(CHUNK) +! real(fp_kind) :: asyclt(CHUNK) + real(fp_kind) :: rrt(CHUNK,np) + real(fp_kind) :: ttt(CHUNK,np) + real(fp_kind) :: tdt(CHUNK,np) + real(fp_kind) :: rst(CHUNK,np) + real(fp_kind) :: tst(CHUNK,np) + real(fp_kind) :: dum1(CHUNK,np+1) + real(fp_kind) :: dum2(CHUNK) + real(fp_kind) :: dum3(CHUNK) + real(fp_kind) :: dum(CHUNK,np) !-----water vapor absorption coefficient for 10 k-intervals. ! unit: cm^2/gm (table 2) data xk/ & 0.0010, 0.0133, 0.0422, 0.1334, 0.4217, & 1.334, 5.623, 31.62, 177.8, 1000.0/ !-----water vapor k-distribution function, -! the sum of hk is 0.52926. unit: fraction (table 2) +! the sum of hk is 0.52926. unit: fraction (table 2) +! old ! data hk/ & ! .20673,.08236,.01074, .03497,.01157,.00360, & ! .03011,.01133,.00411, .02260,.01143,.00421, & ! .01336,.01240,.00389, .00696,.01258,.00326, & ! .00441,.01381,.00499, .00115,.00650,.00465, & ! .00026,.00244,.00245, .00000,.00094,.00145/ -!added by ucsd, 2016/03, to account for water vapor continuum absorption based on data from Table 1 in Tarasova and Fomin (2000) +! new (HITRAN2012) from M.D. Chou data hk/ & - .19310,.06924,.00310, .05716,.01960,.00637, & - .02088,.00795,.00526, .02407,.01716,.00641, & - .01402,.01118,.00542, .00582,.01377,.00312, & - .00246,.02008,.00368, .00163,.00265,.00346, & - .00101,.00282,.00555, .00041,.00092,.00098/ + .19943,.07968,.01042, .03830,.01247,.00353, & + .03144,.01131,.00384, .02377,.01174,.00418, & + .01416,.01230,.00387, .00747,.01321,.00325, & + .00489,.01459,.00476, .00128,.00673,.00480, & + .00031,.00249,.00247, .00001,.00102,.00153/ !-----ry is the extinction coefficient for rayleigh scattering. ! unit: /mb (table 3) @@ -3928,239 +6022,273 @@ subroutine sw_ir (m,np,wh,dp, & ! cc is the maximum cloud cover in each of the high, middle, and low ! cloud groups. ! 1/dsm=1/cos(53)=1.66 - do i=1,m - dsm(i)=0.602 - fdirir(i)=0.0 - fdifir(i)=0.0 - rr(i,np+1,1)=rsirbm(i) - rr(i,np+1,2)=rsirbm(i) - rs(i,np+1,1)=rsirdf(i) - rs(i,np+1,2)=rsirdf(i) - td(i,np+1,1)=0.0 - td(i,np+1,2)=0.0 - tt(i,np+1,1)=0.0 - tt(i,np+1,2)=0.0 - ts(i,np+1,1)=0.0 - ts(i,np+1,2)=0.0 - cc(i,1)=0.0 - cc(i,2)=0.0 - cc(i,3)=0.0 - enddo + dsm=0.602e0 + +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + fdirir(ic)=0.e0 + fdifir(ic)=0.e0 + cc(ic,1:3)=0.e0 + +! +! surface boundary condition +! + rr(ic,np+1,1)=rsirbm(ic) + rr(ic,np+1,2)=rsirbm(ic) + rs(ic,np+1,1)=rsirdf(ic) + rs(ic,np+1,2)=rsirdf(ic) + td(ic,np+1,1:2)=0.e0 + tt(ic,np+1,1:2)=0.e0 + ts(ic,np+1,1:2)=0.e0 + endif + ENDDO + !-----integration over spectral bands - do 100 ib=1,nband - iv=ib+8 -!-----compute cloud optical thickness. eqs. (4.6) and (4.11) - if (cldwater) then - do k=1,np - do i=1,m - taucld(i,k,1)=cwp(i,k,1)*(aib(ib,1) & - +aib(ib,2)/reff(i,k,1)) - taucld(i,k,2)=cwp(i,k,2)*(awb(ib,1) & - +awb(ib,2)/reff(i,k,2)) - taucld(i,k,3)=cwp(i,k,3)*arb(ib,1) - enddo - enddo - endif + BAND_LOOP: do ib=1,nband !nband is 3 for IR band + iv=ib+8 !this index must be used + !-----options for scaling cloud optical thickness - if (overcast) then - do k=1,np - do i=1,m - tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3) - tauclf(i,k)=tauclb(i,k) - enddo - enddo - do k=1,3 - do i=1,m - cc(i,k)=1.0 - enddo - enddo - else + if (overcast) then +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + tauclb(ic,:)=taucl(ic,:,iv) + tauclf(ic,:)=taucl(ic,:,iv) + cc(ic,1:3)=1.0 + endif + ENDDO + else !-----scale cloud optical thickness in each layer from taucld (with ! cloud amount fcld) to tauclb and tauclf (with cloud amount cc). ! tauclb is the scaled optical thickness for beam radiation and ! tauclf is for diffuse radiation. - call cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & - cc,tauclb,tauclf) - endif - - -!-----compute cloud single scattering albedo and asymmetry factor -! for a mixture of ice and liquid particles. -! eqs.(4.6)-(4.8), (6.2)-(6.4) - do k=1,np - do i=1,m - ssaclt(i)=0.99999 - asyclt(i)=1.0 - taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3) - if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then - w1=(1.-(aia(ib,1)+(aia(ib,2)+ & - aia(ib,3)*reff(i,k,1))*reff(i,k,1)))*taucld(i,k,1) - w2=(1.-(awa(ib,1)+(awa(ib,2)+ & - awa(ib,3)*reff(i,k,2))*reff(i,k,2)))*taucld(i,k,2) - w3=(1.- ara(ib,1))*taucld(i,k,3) - ssaclt(i)=(w1+w2+w3)/taux - g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff(i,k,1))*reff(i,k,1))*w1 - g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff(i,k,2))*reff(i,k,2))*w2 - g3= arg(ib,1)*w3 - asyclt(i)=(g1+g2+g3)/(w1+w2+w3) - endif - enddo - do i=1,m - ssacl(i,k)=ssaclt(i) - enddo - do i=1,m - asycl(i,k)=asyclt(i) - enddo - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + call cloud_scale (np,cosz,fcld,taucl,ict,icb, & + cc,tauclb,tauclf,lmask,irestrict) + endif + ENDDO + endif !-----integration over the k-distribution function - do 200 ik=1,nk - + KD_LOOP: do ik=1,nk !nk is 10 so total IR routine has 30 loop !-----compute clear-sky optical thickness, single scattering albedo, ! and asymmetry factor. eqs.(6.2)-(6.4) - do k=1,np - do i=1,m - taurs=ry(ib)*dp(i,k) - tauwv=xk(ik)*wh(i,k) + VERTICAL_LOOP: do k=1,np - tausto(i,k)=max(taurs+tauwv+taual(i,k,iv),opt_min) - ssatau(i,k)=max(ssaal(i,k,iv)*taual(i,k,iv)+taurs,opt_min) !add for stability - asysto(i,k)=max(asyal(i,k,iv)*ssaal(i,k,iv)*taual(i,k,iv),opt_min) +!dir$ vector aligned + DO ic=1,irestrict +! do concurrent ( ic = 1:min(CHUNK,irestrict) ) + if(lmask(ic) .eqv. .true.) then - if (overcast .and. fast_overcast ) then - else + taurs=ry(ib)*dp(ic,k) + tauwv=xk(ik)*wh(ic,k) + + tausto(ic,k)=max(taurs+tauwv+taual(ic,k,iv), opt_min) + ssatau(ic,k)=ssaal(ic,k,iv)*taual(ic,k,iv)+taurs + asysto(ic,k)=asyal(ic,k,iv)*ssaal(ic,k,iv)*taual(ic,k,iv) + + endif + enddo + + IF_CLEAR: if (overcast .and. fast_overcast ) then + +!dir$ vector aligned + DO ic=1,irestrict +! do concurrent ( ic = 1:min(CHUNK,irestrict) ) + if(lmask(ic) .eqv. .true.) then + + rr(ic,k,1)=0.e0 + tt(ic,k,1)=0.e0 + td(ic,k,1)=0.e0 + rs(ic,k,1)=0.e0 + ts(ic,k,1)=0.e0 + + endif + enddo + + else + +!dir$ vector aligned + DO ic=1,irestrict +! do concurrent ( ic = 1:min(CHUNK,irestrict) ) + if(lmask(ic) .eqv. .true.) then !-----compute reflectance and transmittance of the clear portion of a layer - tautob(i,k)=tausto(i,k) - ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min) - ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind) - asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min) + tautob(ic,k)=tausto(ic,k) + ssatob(ic,k)=min(max(ssatau(ic,k)/tautob(ic,k),ssa_min),ssa_max) + asytob(ic,k)=min(max(asysto(ic,k)/(ssatob(ic,k)*tautob(ic,k)),asy_min),asy_max) ! delta-eddington approximation for optical propeties !-----for direct incident radiation - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , & - rrt(i,k),ttt(i,k), tdt(i,k) ) + endif + enddo +!dir$ vector aligned +!dir$ SIMD + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + + call delta_eddington(tautob(ic,k), ssatob(ic,k), asytob(ic,k), cosz(ic) , & + rrt(ic,k),ttt(ic,k), tdt(ic,k) ) !-----diffuse incident radiation is approximated by beam radiation with ! an incident angle of 53 degrees, eqs. (6.5) and (6.6) - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , & - rst(i,k),tst(i,k), dum(i,k) ) + call delta_eddington(tautob(ic,k), ssatob(ic,k), asytob(ic,k), dsm , & + rst(ic,k),tst(ic,k), dum(ic,k) ) - rr(i,k,1)=rrt(i,k) - tt(i,k,1)=ttt(i,k) - td(i,k,1)=tdt(i,k) - rs(i,k,1)=rst(i,k) - ts(i,k,1)=tst(i,k) + endif + enddo +!dir$ vector aligned + DO ic=1,irestrict +! do concurrent ( ic = 1:min(CHUNK,irestrict) ) + if(lmask(ic) .eqv. .true.) then - endif ! overcast .and. fast_overcast + rr(ic,k,1)=rrt(ic,k) + tt(ic,k,1)=ttt(ic,k) + td(ic,k,1)=tdt(ic,k) + rs(ic,k,1)=rst(ic,k) + ts(ic,k,1)=tst(ic,k) -!-----compute reflectance and transmittance of the cloudy portion of a layer - if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. & !cloud exists - (overcast .and. fast_overcast ) ) then ! overcast .and. fast_overcast + endif + enddo + + endif IF_CLEAR +!dir$ vector aligned + DO ic=1,irestrict +! do concurrent ( ic = 1:min(CHUNK,irestrict) ) + if(lmask(ic) .eqv. .true.) then + +!-----compute reflectance and transmittance of the cloudy portion of a layer !-----for direct incident radiation. eqs.(6.2)-(6.4) - tautob(i,k)=tausto(i,k)+max(tauclb(i,k),opt_min) - ssatob(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclb(i,k))/tautob(i,k),opt_min) - ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind) - asytob(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclb(i,k)) & - /(ssatob(i,k)*tautob(i,k)),opt_min) + tautob(ic,k)=tausto(ic,k)+max(tauclb(ic,k),0.e0) + ssatob(ic,k)=min(max((ssatau(ic,k)+ssacl(ic,k,iv)*tauclb(ic,k))/tautob(ic,k),ssa_min),ssa_max) + asytob(ic,k)=min(max((asysto(ic,k)+asycl(ic,k,iv)*ssacl(ic,k,iv)*tauclb(ic,k)) & + /( max(ssatob(ic,k)*tautob(ic,k),const_tiny) ),ssa_min),ssa_max) + !-----for diffuse incident radiation - tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min) - ssatof(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclf(i,k))/tautof(i,k),opt_min) - ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind) - asytof(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclf(i,k)) & - /(ssatof(i,k)*tautof(i,k)),opt_min) + if(overcast) then + tautof(ic,k)=tautob(ic,k) + ssatof(ic,k)=ssatob(ic,k) + asytof(ic,k)=asytob(ic,k) + else + tautof(ic,k)=tausto(ic,k)+max(tauclf(ic,k),0.e0) + ssatof(ic,k)=min(max((ssatau(ic,k)+ssacl(ic,k,iv)*tauclf(ic,k))/tautof(ic,k),ssa_min),ssa_max) + asytof(ic,k)=min(max((asysto(ic,k)+asycl(ic,k,iv)*ssacl(ic,k,iv)*tauclf(ic,k)) & + /( max(ssatof(ic,k)*tautof(ic,k),const_tiny) ),asy_min),asy_max) + endif ! delta-eddington approximation for optical propeties !-----for direct incident radiation - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , & - rrt(i,k),ttt(i,k), tdt(i,k) ) + endif + enddo +!dir$ vector aligned +!dir$ SIMD + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + + call delta_eddington(tautob(ic,k), ssatob(ic,k), asytob(ic,k), cosz(ic) , & + rrt(ic,k),ttt(ic,k), tdt(ic,k) ) !-----diffuse incident radiation is approximated by beam radiation with ! an incident angle of 53 degrees, eqs.(6.5) and (6.6) - call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , & - rst(i,k),tst(i,k), dum(i,k) ) - endif + call delta_eddington(tautob(ic,k), ssatob(ic,k), asytob(ic,k), dsm , & + rst(ic,k),tst(ic,k), dum(ic,k) ) + + endif + enddo - rr(i,k,2)=rrt(i,k) - tt(i,k,2)=ttt(i,k) - td(i,k,2)=tdt(i,k) - rs(i,k,2)=rst(i,k) - ts(i,k,2)=tst(i,k) +!dir$ vector aligned + DO ic=1,irestrict +! do concurrent ( ic = 1:min(CHUNK,irestrict) ) + if(lmask(ic) .eqv. .true.) then - enddo - enddo + rr(ic,k,2)=rrt(ic,k) + tt(ic,k,2)=ttt(ic,k) + td(ic,k,2)=tdt(ic,k) + rs(ic,k,2)=rst(ic,k) + ts(ic,k,2)=tst(ic,k) + + endif + ENDDO + enddo VERTICAL_LOOP !-----flux calculations - if (overcast) then ! overcast (LES or CRM) + IF_OVERCAST: if (overcast) then ! overcast (LES or CRM) - if( .not. fast_overcast ) then + if( .not. fast_overcast ) then !-----for clear-sky fluxes only - ih1=1 ; im1=1 ; is1=1 - ih2=1 ; im2=1 ; is2=1 - call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & - cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3) - endif + ih1=1 ; im1=1 ; is1=1 + ih2=1 ; im2=1 ; is2=1 + call twostream_adding (np,ict,icb,ih1,ih2,im1,im2,is1,is2, & + cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3,lmask,irestrict) + endif !-----for cloudy-sky fluxes only - ih1=2 ; im1=2 ; is1=2 - ih2=2 ; im2=2 ; is2=2 - call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & - cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif) - - else ! NON overcast (GCM or RCM) + ih1=2 ; im1=2 ; is1=2 + ih2=2 ; im2=2 ; is2=2 + call twostream_adding (np,ict,icb,ih1,ih2,im1,im2,is1,is2, & + cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif,lmask,irestrict) + else !GCM or RCM !-----for clear- and all-sky fluxes ! the all-sky flux, fall is the summation inside the brackets ! of eq. (7.11) ih1=1 ; im1=1 ; is1=1 ih2=2 ; im2=2 ; is2=2 - call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & - cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif) - - endif ! ovrercast + call twostream_adding (np,ict,icb,ih1,ih2,im1,im2,is1,is2, & + cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif,lmask,irestrict) + endif IF_OVERCAST !-----flux integration following eq. (6.1) - do k=1,np+1 - do i=1,m - flx(i,k) = flx(i,k)+fall(i,k)*hk(ib,ik) - flxd(i,k) = flxd(i,k)+falld(i,k)*hk(ib,ik) + do k=1,np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + flx(ic,k) = flx(ic,k)+fall(ic,k)*hk(ib,ik) + flxd(ic,k) = flxd(ic,k)+falld(ic,k)*hk(ib,ik) if(overcast .and. fast_overcast) then + !do nothing flc(ic,k) = 0.e0 else - flc(i,k) = flc(i,k)+fclr(i,k)*hk(ib,ik) + flc(ic,k) = flc(ic,k)+fclr(ic,k)*hk(ib,ik) endif - enddo - enddo + endif + ENDDO + enddo !-----compute downward surface fluxes in the ir region - do i=1,m - fdirir(i) = fdirir(i)+fsdir(i)*hk(ib,ik) - fdifir(i) = fdifir(i)+fsdif(i)*hk(ib,ik) - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + fdirir(ic) = fdirir(ic)+fsdir(ic)*hk(ib,ik) !beam + fdifir(ic) = fdifir(ic)+fsdif(ic)*hk(ib,ik) !diffuse + endif + ENDDO - 200 continue !k integration - 100 continue !iband + enddo KD_LOOP + enddo BAND_LOOP - return - end subroutine sw_ir + end subroutine sw_ir !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & - cc,tauclb,tauclf) + subroutine cloud_scale (np,cosz,fcld,taucld,ict,icb, & + cc,tauclb,tauclf,lmask,irestrict) !******************************************************************** ! ! this subroutine computes the high, middle, and low cloud @@ -4180,7 +6308,6 @@ subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & ! !---input parameters ! -! number of atmospheric soundings (m) ! number of atmospheric layers (np) ! cosine of the solar zenith angle (cosz) ! fractional cloud cover (fcld) @@ -4197,20 +6324,22 @@ subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & !******************************************************************** implicit none !-----input parameters - integer m,np,ict(m),icb(m) - real(Kind=fp_kind) cosz(m),fcld(m,np),taucld(m,np,3) + logical lmask(CHUNK) + integer irestrict + integer np,ict(CHUNK),icb(CHUNK) + real(fp_kind) cosz(CHUNK),fcld(CHUNK,np),taucld(CHUNK,np) !-----output parameters - real(Kind=fp_kind) cc(m,3),tauclb(m,np),tauclf(m,np) + real(fp_kind) cc(CHUNK,3),tauclb(CHUNK,np),tauclf(CHUNK,np) !-----temporary variables - integer i,j,k,im,it,ia,kk - real(Kind=fp_kind) fm,ft,fa,xai,taux + integer i,j,k,im,it,ia,kk,ic + real(fp_kind) fm,ft,fa,xai,taux !-----pre-computed table ! size of cosz-interval: dm ! size of taucld-interval: dt ! size of cloud amount-interval: da integer nm,nt,na parameter (nm=11,nt=9,na=11) - real(Kind=fp_kind) dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) + real(fp_kind) dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031) !-----include the pre-computed table of mcai for scaling the cloud optical ! thickness under the assumption that clouds are maximally overlapped @@ -4341,49 +6470,61 @@ subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & !-----clouds within each of the high, middle, and low clouds are assumed ! to be maximally overlapped, and the cloud cover (cc) for a group ! (high, middle, or low) is the maximum cloud cover of all the layers -! within a group - do i=1,m - cc(i,1)=0.0 - cc(i,2)=0.0 - cc(i,3)=0.0 - enddo - do i=1,m - do k=1,ict(i)-1 - cc(i,1)=max(cc(i,1),fcld(i,k)) +! within a group + +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + cc(ic,1)=0.0 + cc(ic,2)=0.0 + cc(ic,3)=0.0 + endif + ENDDO +!dir$ vector aligned + DO ic=1,irestrict + do k=1,ict(ic)-1 + if(lmask(ic) .eqv. .true.) then + cc(ic,1)=max(cc(ic,1),fcld(ic,k)) + endif enddo - enddo - do i=1,m - do k=ict(i),icb(i)-1 - cc(i,2)=max(cc(i,2),fcld(i,k)) + ENDDO +!dir$ vector aligned + DO ic=1,irestrict + do k=ict(ic),icb(ic)-1 + if(lmask(ic) .eqv. .true.) then + cc(ic,2)=max(cc(ic,2),fcld(ic,k)) + endif enddo - enddo - do i=1,m - do k=icb(i),np - cc(i,3)=max(cc(i,3),fcld(i,k)) + ENDDO +!dir$ vector aligned + DO ic=1,irestrict + do k=icb(ic),np + if(lmask(ic) .eqv. .true.) then + cc(ic,3)=max(cc(ic,3),fcld(ic,k)) + endif enddo - enddo + ENDDO !-----scale the cloud optical thickness. -! taucld(i,k,1) is the optical thickness for ice particles -! taucld(i,k,2) is the optical thickness for liquid particles -! taucld(i,k,3) is the optical thickness for rain drops - do i=1,m do k=1,np - if(k.lt.ict(i)) then +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + if(k.lt.ict(ic)) then kk=1 - elseif(k.ge.ict(i) .and. k.lt.icb(i)) then + elseif(k.ge.ict(ic) .and. k.lt.icb(ic)) then kk=2 else kk=3 endif - tauclb(i,k) = 0.0 - tauclf(i,k) = 0.0 - taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3) - if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then + tauclb(ic,k) = 0.0 + tauclf(ic,k) = 0.0 + taux= taucld(ic,k) + if (taux.gt.taux_min .and. fcld(ic,k).gt.fcld_min) then !-----normalize cloud cover following eq. (7.8) - fa=fcld(i,k)/cc(i,kk) + fa=fcld(ic,k)/cc(ic,kk) !-----table look-up - taux=min(taux,32._fp_kind) - fm=cosz(i)/dm + taux=min(taux,32.) + fm=cosz(ic)/dm ft=(log10(taux)-t1)/dt fa=fa/da im=int(fm+1.5) @@ -4408,9 +6549,9 @@ subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ & caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) xai= xai-2.*caib(im,it,ia) - xai=max(xai,0.0_fp_kind) - xai=min(xai,1.0_fp_kind) - tauclb(i,k) = taux*xai + xai=max(xai,0.0) + xai=min(xai,1.0) + tauclb(ic,k) = taux*xai !-----scale cloud optical thickness for diffuse radiation following eq. (7.4) ! the scaling factor, xai, is a function of the cloud optical ! thickness and cover but not the solar zenith angle. @@ -4419,19 +6560,20 @@ subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & xai=xai+(-caif(it,ia-1)*(1.-fa)+ & caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa) xai= xai-caif(it,ia) - xai=max(xai,0.0_fp_kind) - xai=min(xai,1.0_fp_kind) - tauclf(i,k) = taux*xai + xai=max(xai,0.0) + xai=min(xai,1.0) + tauclf(ic,k) = taux*xai endif + endif + ENDDO enddo - enddo - return + end subroutine cloud_scale !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine delta_eddington(tau,ssc,g0,cza,rr,tt,td) +subroutine delta_eddington(tau,ssc,g0,cza,rr,tt,td) !********************************************************************* ! @@ -4456,23 +6598,23 @@ subroutine delta_eddington(tau,ssc,g0,cza,rr,tt,td) implicit none !********************************************************************* - real(Kind=fp_kind) zero,one,two,three,four,fourth,seven,thresh + real(fp_kind) zero,one,two,three,four,fourth,seven,thresh parameter (one =1., three=3.) parameter (two =2., seven=7.) parameter (four=4., fourth=.25) parameter (zero=0., thresh=1.e-8) !-----input parameters - real(Kind=fp_kind) tau,ssc,g0,cza + real(fp_kind), intent(in) :: tau,ssc,g0,cza !-----output parameters - real(Kind=fp_kind) rr,tt,td + real(fp_kind), intent(out) :: rr,tt,td !-----temporary parameters - real(Kind=fp_kind) zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, & + real(fp_kind) zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, & all,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 - real(Kind=fp_kind) taupdzth,akkdtaup + real(fp_kind) taupdzth,akkdtaup !--------------------------------------------------------------------- @@ -4564,8 +6706,8 @@ end subroutine delta_eddington !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & - cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif) + subroutine twostream_adding (np,ict,icb,ih1,ih2,im1,im2,is1,is2, & + cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif,lmask,irestrict) !******************************************************************* ! compute upward and downward fluxes using a two-stream adding method @@ -4577,7 +6719,6 @@ subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & ! either totally filled with clouds or without clouds. ! input parameters: ! -! m: number of soundings ! np: number of atmospheric layers ! ict: the level separating high and middle clouds ! icb: the level separating middle and low clouds @@ -4601,55 +6742,50 @@ subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & !ccshie 8/19/04 implicit none !-----input parameters - integer m,np,ict(m),icb(m),ih1,ih2,im1,im2,is1,is2 - real(Kind=fp_kind) rr(m,np+1,2),tt(m,np+1,2),td(m,np+1,2) - real(Kind=fp_kind) rs(m,np+1,2),ts(m,np+1,2) - real(Kind=fp_kind) cc(m,3) + logical lmask(CHUNK) + integer irestrict + integer np,ict(CHUNK),icb(CHUNK),ih1,ih2,im1,im2,is1,is2 + real(fp_kind) rr(CHUNK,np+1,2),tt(CHUNK,np+1,2),td(CHUNK,np+1,2) + real(fp_kind) rs(CHUNK,np+1,2),ts(CHUNK,np+1,2) + real(fp_kind) cc(CHUNK,3) !-----temporary array - integer i,k,ih,im,is - real(Kind=fp_kind) denm,xx,yy - real(Kind=fp_kind) fupdif - real(Kind=fp_kind) :: rra(m,np+1,2,2) - real(Kind=fp_kind) :: tta(m,np+1,2,2) - real(Kind=fp_kind) :: tda(m,np+1,2,2) - real(Kind=fp_kind) :: rsa(m,np+1,2,2) - real(Kind=fp_kind) :: rxa(m,np+1,2,2) - real(Kind=fp_kind) :: ch(m) - real(Kind=fp_kind) :: cm(m) - real(Kind=fp_kind) :: ct(m) - real(Kind=fp_kind) :: flxdn(m,np+1) - real(Kind=fp_kind) :: fdndir(m) - real(Kind=fp_kind) :: fdndif(m) - real(Kind=fp_kind) flxdnu(m,np+1),flxdnd(m,np+1) + integer k,ih,im,is + real(fp_kind) denm,xx,yy + real(fp_kind) fupdif + real(fp_kind) :: rra(CHUNK,np+1,2,2) + real(fp_kind) :: tta(CHUNK,np+1,2,2) + real(fp_kind) :: tda(CHUNK,np+1,2,2) + real(fp_kind) :: rsa(CHUNK,np+1,2,2) + real(fp_kind) :: rxa(CHUNK,np+1,2,2) + real(fp_kind) :: ch(CHUNK) + real(fp_kind) :: cm(CHUNK) + real(fp_kind) :: ct(CHUNK) + real(fp_kind) :: flxdn(CHUNK,np+1) + real(fp_kind) :: fdndir(CHUNK) + real(fp_kind) :: fdndif(CHUNK) + real(fp_kind) flxdnu(CHUNK,np+1),flxdnd(CHUNK,np+1) !-----output parameters - real(Kind=fp_kind) fclr(m,np+1),fall(m,np+1) - real(Kind=fp_kind) falld(m,np+1) - real(Kind=fp_kind) fsdir(m),fsdif(m) - - - if(overcast) then -! ih1=2 ; im1=2 ; is1=2 - else -! ih1=1 ; im1=1 ; is1=1 - endif -! ih2=2 ; im2=2 ; is2=2 - + real(fp_kind) fclr(CHUNK,np+1),fall(CHUNK,np+1) + real(fp_kind) falld(CHUNK,np+1) + real(fp_kind) fsdir(CHUNK),fsdif(CHUNK) + integer :: ic !-----initialize all-sky flux (fall) and surface downward fluxes do k=1,np+1 - do i=1,m - fclr(i,k)=0.0 - fall(i,k)=0.0 - falld(i,k)=0.0 - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + fclr(ic,k)=0.0 + fall(ic,k)=0.0 + falld(ic,k)=0.0 + endif + ENDDO enddo - do i=1,m - fsdir(i)=0.0 - fsdif(i)=0.0 - enddo + fsdir=0.0 + fsdif=0.0 !-----compute transmittances and reflectances for a composite of ! layers. layers are added one at a time, going down from the top. @@ -4663,50 +6799,60 @@ subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & ! ih=1 for clear-sky condition, ih=2 for cloudy-sky condition do ih=ih1,ih2 - - do i=1,m - tda(i,1,ih,1)=td(i,1,ih) - tta(i,1,ih,1)=tt(i,1,ih) - rsa(i,1,ih,1)=rs(i,1,ih) - tda(i,1,ih,2)=td(i,1,ih) - tta(i,1,ih,2)=tt(i,1,ih) - rsa(i,1,ih,2)=rs(i,1,ih) - enddo - - do i=1,m - do k=2,ict(i)-1 - denm = ts(i,k,ih)/( 1.-rsa(i,k-1,ih,1)*rs(i,k,ih)) - tda(i,k,ih,1)= tda(i,k-1,ih,1)*td(i,k,ih) - tta(i,k,ih,1)= tda(i,k-1,ih,1)*tt(i,k,ih) & - +(tda(i,k-1,ih,1)*rsa(i,k-1,ih,1)*rr(i,k,ih) & - +tta(i,k-1,ih,1)-tda(i,k-1,ih,1))*denm !additional -tda(i,k-1,ih,1) - rsa(i,k,ih,1)= rs(i,k,ih)+ts(i,k,ih) & - *rsa(i,k-1,ih,1)*denm - if(tda(i,k,ih,1).lt.1.e-10) tda(i,k,ih,1)=0. !! - if(tta(i,k,ih,1).lt.1.e-10) tta(i,k,ih,1)=0. !! - tda(i,k,ih,2)= tda(i,k,ih,1) - tta(i,k,ih,2)= tta(i,k,ih,1) - rsa(i,k,ih,2)= rsa(i,k,ih,1) - enddo - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + tda(ic,1,ih,1)=td(ic,1,ih) + tta(ic,1,ih,1)=tt(ic,1,ih) + rsa(ic,1,ih,1)=rs(ic,1,ih) + tda(ic,1,ih,2)=td(ic,1,ih) + tta(ic,1,ih,2)=tt(ic,1,ih) + rsa(ic,1,ih,2)=rs(ic,1,ih) + endif + ENDDO + +! do k=2,ict-1 + do k=2,np + DO ic=1,irestrict + if(k .le. ict(ic)-1 .and. lmask(ic) .eqv. .true.) then + + denm = ts(ic,k,ih)/( 1.-rsa(ic,k-1,ih,1)*rs(ic,k,ih)) + tda(ic,k,ih,1)= tda(ic,k-1,ih,1)*td(ic,k,ih) + tta(ic,k,ih,1)= tda(ic,k-1,ih,1)*tt(ic,k,ih) & + +(tda(ic,k-1,ih,1)*rsa(ic,k-1,ih,1)*rr(ic,k,ih) & + +tta(ic,k-1,ih,1)-tda(ic,k-1,ih,1))*denm !additional -tda(ic,k-1,ih,1) + rsa(ic,k,ih,1)= rs(ic,k,ih)+ts(ic,k,ih) & + *rsa(ic,k-1,ih,1)*denm + if(tda(ic,k,ih,1).lt.1.e-10) tda(ic,k,ih,1)=0. !! + if(tta(ic,k,ih,1).lt.1.e-10) tta(ic,k,ih,1)=0. !! + tda(ic,k,ih,2)= tda(ic,k,ih,1) + tta(ic,k,ih,2)= tta(ic,k,ih,1) + rsa(ic,k,ih,2)= rsa(ic,k,ih,1) + endif + ENDDO + enddo !-----for middle clouds ! im=1 for clear-sky condition, im=2 for cloudy-sky condition do im=im1,im2 - do i=1,m - do k=ict(i),icb(i)-1 - denm = ts(i,k,im)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,im)) - tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,im) - tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,im) & - +(tda(i,k-1,ih,im)*rsa(i,k-1,ih,im)*rr(i,k,im) & - +tta(i,k-1,ih,im)-tda(i,k-1,ih,im))*denm !additional -tda(i,k-1,ih,im) - rsa(i,k,ih,im)= rs(i,k,im)+ts(i,k,im) & - *rsa(i,k-1,ih,im)*denm - if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0. !! - if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0. !! +! do k=ict,icb-1 + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + if(k .ge. ict(ic) .and. k .le. icb(ic)-1 .and. lmask(ic) .eqv. .true.) then + denm = ts(ic,k,im)/( 1.-rsa(ic,k-1,ih,im)*rs(ic,k,im)) + tda(ic,k,ih,im)= tda(ic,k-1,ih,im)*td(ic,k,im) + tta(ic,k,ih,im)= tda(ic,k-1,ih,im)*tt(ic,k,im) & + +(tda(ic,k-1,ih,im)*rsa(ic,k-1,ih,im)*rr(ic,k,im) & + +tta(ic,k-1,ih,im)-tda(ic,k-1,ih,im))*denm !additional -tda(k-1,ih,im) + rsa(ic,k,ih,im)= rs(ic,k,im)+ts(ic,k,im) & + *rsa(ic,k-1,ih,im)*denm + if(tda(ic,k,ih,im).lt.1.e-10) tda(ic,k,ih,im)=0. !! + if(tta(ic,k,ih,im).lt.1.e-10) tta(ic,k,ih,im)=0. !! + endif + ENDDO enddo - enddo enddo ! end im loop enddo ! end ih loop @@ -4720,35 +6866,47 @@ subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & ! is=1 for clear-sky condition, is=2 for cloudy-sky condition do is=is1,is2 - - do i=1,m - rra(i,np+1,1,is)=rr(i,np+1,is) - rxa(i,np+1,1,is)=rs(i,np+1,is) - rra(i,np+1,2,is)=rr(i,np+1,is) - rxa(i,np+1,2,is)=rs(i,np+1,is) - enddo - do i=1,m - do k=np,icb(i),-1 - denm=ts(i,k,is)/( 1.-rs(i,k,is)*rxa(i,k+1,1,is) ) - rra(i,k,1,is)=rr(i,k,is)+(td(i,k,is)*rra(i,k+1,1,is) & - +(tt(i,k,is)-td(i,k,is))*rxa(i,k+1,1,is))*denm !additional -td(i,k,is) - rxa(i,k,1,is)= rs(i,k,is)+ts(i,k,is) & - *rxa(i,k+1,1,is)*denm - rra(i,k,2,is)=rra(i,k,1,is) - rxa(i,k,2,is)=rxa(i,k,1,is) +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + rra(ic,np+1,1,is)=rr(ic,np+1,is) + rxa(ic,np+1,1,is)=rs(ic,np+1,is) + rra(ic,np+1,2,is)=rr(ic,np+1,is) + rxa(ic,np+1,2,is)=rs(ic,np+1,is) + endif + ENDDO + +! do k=np,icb,-1 + do k=np,1,-1 +!dir$ vector aligned + DO ic=1,irestrict + if(k .ge. icb(ic) .and. lmask(ic) .eqv. .true.) then + denm=ts(ic,k,is)/( 1.-rs(ic,k,is)*rxa(ic,k+1,1,is) ) + rra(ic,k,1,is)=rr(ic,k,is)+(td(ic,k,is)*rra(ic,k+1,1,is) & + +(tt(ic,k,is)-td(ic,k,is))*rxa(ic,k+1,1,is))*denm !additional -td(k,is) + rxa(ic,k,1,is)= rs(ic,k,is)+ts(ic,k,is) & + *rxa(ic,k+1,1,is)*denm + rra(ic,k,2,is)=rra(ic,k,1,is) + rxa(ic,k,2,is)=rxa(ic,k,1,is) + endif + ENDDO enddo - enddo + !-----for middle clouds do im=im1,im2 - do i=1,m - do k=icb(i)-1,ict(i),-1 - denm=ts(i,k,im)/( 1.-rs(i,k,im)*rxa(i,k+1,im,is) ) - rra(i,k,im,is)= rr(i,k,im)+(td(i,k,im)*rra(i,k+1,im,is) & - +(tt(i,k,im)-td(i,k,im))*rxa(i,k+1,im,is))*denm !additiona -td(i,k,im) - rxa(i,k,im,is)= rs(i,k,im)+ts(i,k,im) & - *rxa(i,k+1,im,is)*denm +! do k=icb-1,ict,-1 + do k=np,1,-1 +!dir$ vector aligned + DO ic=1,irestrict + if(k .ge. ict(ic)-1 .and. k .le. icb(ic)-1 .and. lmask(ic) .eqv. .true.) then + denm=ts(ic,k,im)/( 1.-rs(ic,k,im)*rxa(ic,k+1,im,is) ) + rra(ic,k,im,is)= rr(ic,k,im)+(td(ic,k,im)*rra(ic,k+1,im,is) & + +(tt(ic,k,im)-td(ic,k,im))*rxa(ic,k+1,im,is))*denm !additiona -td(k,im) + rxa(ic,k,im,is)= rs(ic,k,im)+ts(ic,k,im) & + *rxa(ic,k+1,im,is)*denm + endif + ENDDO enddo - enddo enddo ! end im loop enddo ! end is loop @@ -4759,107 +6917,129 @@ subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & do ih=ih1,ih2 !-----clear portion - if(ih.eq.1) then - do i=1,m - ch(i)=1.0-cc(i,1) - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + if(ih.eq.1) then + ch(ic)=1.0-cc(ic,1) else !-----cloudy portion - do i=1,m - ch(i)=cc(i,1) - enddo + ch(ic)=cc(ic,1) endif + endif + ENDDO do im=im1,im2 !-----clear portion +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then if(im.eq.1) then - do i=1,m - cm(i)=ch(i)*(1.0-cc(i,2)) - enddo + cm(ic)=ch(ic)*(1.0-cc(ic,2)) else !-----cloudy portion - do i=1,m - cm(i)=ch(i)*cc(i,2) - enddo + cm(ic)=ch(ic)*cc(ic,2) endif + endif + ENDDO do is=is1,is2 - +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then !-----clear portion if(is.eq.1) then - do i=1,m - ct(i)=cm(i)*(1.0-cc(i,3)) - enddo + ct(ic)=cm(ic)*(1.0-cc(ic,3)) else !-----cloudy portion - do i=1,m - ct(i)=cm(i)*cc(i,3) - enddo + ct(ic)=cm(ic)*cc(ic,3) endif + endif + ENDDO + !-----add one layer at a time, going down. - do i=1,m - do k=icb(i),np - denm = ts(i,k,is)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,is) ) - tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,is) - tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,is) & - +(tda(i,k-1,ih,im)*rr(i,k,is) & - *rsa(i,k-1,ih,im)+tta(i,k-1,ih,im)-tda(i,k-1,ih,im))*denm !additional -tda(i,k-1,ih,im) - rsa(i,k,ih,im)= rs(i,k,is)+ts(i,k,is) & - *rsa(i,k-1,ih,im)*denm - if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0. !! - if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0. !! +! do k=icb,np + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + if(k .ge. icb(ic) .and. lmask(ic) .eqv. .true.) then + denm = ts(ic,k,is)/( 1.-rsa(ic,k-1,ih,im)*rs(ic,k,is) ) + tda(ic,k,ih,im)= tda(ic,k-1,ih,im)*td(ic,k,is) + tta(ic,k,ih,im)= tda(ic,k-1,ih,im)*tt(ic,k,is) & + +(tda(ic,k-1,ih,im)*rr(ic,k,is) & + *rsa(ic,k-1,ih,im)+tta(ic,k-1,ih,im)-tda(ic,k-1,ih,im))*denm !additional -tda(k-1,ih,im) + rsa(ic,k,ih,im)= rs(ic,k,is)+ts(ic,k,is) & + *rsa(ic,k-1,ih,im)*denm + if(tda(ic,k,ih,im).lt.1.e-10) tda(ic,k,ih,im)=0. !! + if(tta(ic,k,ih,im).lt.1.e-10) tta(ic,k,ih,im)=0. !! + endif + ENDDO enddo - enddo !-----add one layer at a time, going up. - do i=1,m - do k=ict(i)-1,1,-1 - denm =ts(i,k,ih)/(1.-rs(i,k,ih)*rxa(i,k+1,im,is)) - rra(i,k,im,is)= rr(i,k,ih)+(td(i,k,ih)*rra(i,k+1,im,is) & - +(tt(i,k,ih)-td(i,k,ih))*rxa(i,k+1,im,is))*denm !addittional -td(i,k,ih) - rxa(i,k,im,is)= rs(i,k,ih)+ts(i,k,ih) & - *rxa(i,k+1,im,is)*denm +! do k=ict-1,1,-1 + do k=np,1,-1 +!dir$ vector aligned + DO ic=1,irestrict + if(k .le. ict(ic)-1 .and. lmask(ic) .eqv. .true.) then + denm =ts(ic,k,ih)/(1.-rs(ic,k,ih)*rxa(ic,k+1,im,is)) + rra(ic,k,im,is)= rr(ic,k,ih)+(td(ic,k,ih)*rra(ic,k+1,im,is) & + +(tt(ic,k,ih)-td(ic,k,ih))*rxa(ic,k+1,im,is))*denm !addittional -td(k,ih) + rxa(ic,k,im,is)= rs(ic,k,ih)+ts(ic,k,ih) & + *rxa(ic,k+1,im,is)*denm + endif + ENDDO enddo - enddo !-----compute fluxes following eq. (6.15) for fupdif and ! eq. (6.16) for (fdndir+fdndif) ! fdndir is the direct downward flux ! fdndif is the diffuse downward flux ! fupdif is the diffuse upward flux do k=2,np+1 - do i=1,m - denm= 1./(1.-rsa(i,k-1,ih,im)*rxa(i,k,im,is)) - fdndir(i)= tda(i,k-1,ih,im) - xx= tda(i,k-1,ih,im)*rra(i,k,im,is) - yy= tta(i,k-1,ih,im)-tda(i,k-1,ih,im) !additional -tda(i,k-1,ih,im) - fdndif(i)= (xx*rsa(i,k-1,ih,im)+yy)*denm - fupdif= (xx+yy*rxa(i,k,im,is))*denm - flxdn(i,k)= fdndir(i)+fdndif(i)-fupdif - flxdnu(i,k)=-fupdif - flxdnd(i,k)=fdndir(i)+fdndif(i) - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + denm= 1./(1.-rsa(ic,k-1,ih,im)*rxa(ic,k,im,is)) + fdndir(ic)= tda(ic,k-1,ih,im) + xx= tda(ic,k-1,ih,im)*rra(ic,k,im,is) + yy= tta(ic,k-1,ih,im)-tda(ic,k-1,ih,im) !additional -tda(k-1,ih,im) + fdndif(ic)= (xx*rsa(ic,k-1,ih,im)+yy)*denm + fupdif= (xx+yy*rxa(ic,k,im,is))*denm + flxdn(ic,k)= fdndir(ic)+fdndif(ic)-fupdif + flxdnu(ic,k)=-fupdif + flxdnd(ic,k)=fdndir(ic)+fdndif(ic) + endif + ENDDO enddo - do i=1,m - flxdn(i,1)=1.0-rra(i,1,im,is) - flxdnu(i,1)=-rra(i,1,im,is) - flxdnd(i,1)=1.0 - enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + flxdn(ic,1)=1.0-rra(ic,1,im,is) + flxdnu(ic,1)=-rra(ic,1,im,is) + flxdnd(ic,1)=1.0 + endif + ENDDO !-----summation of fluxes over all sky situations; ! the term in the brackets of eq. (7.11) - do k=1,np+1 - do i=1,m + do k=1,np+1 +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then - fclr(i,k)=flxdn(i,k) + fclr(ic,k)=flxdn(ic,k) endif - fall(i,k)=fall(i,k)+flxdn(i,k)*ct(i) - falld(i,k)=falld(i,k)+flxdnd(i,k)*ct(i) - enddo - enddo - - do i=1,m - fsdir(i)=fsdir(i)+fdndir(i)*ct(i) - fsdif(i)=fsdif(i)+fdndif(i)*ct(i) - enddo + fall(ic,k)=fall(ic,k)+flxdn(ic,k)*ct(ic) + falld(ic,k)=falld(ic,k)+flxdnd(ic,k)*ct(ic) + endif + ENDDO + enddo +!dir$ vector aligned + DO ic=1,irestrict + if(lmask(ic) .eqv. .true.) then + fsdir(ic)=fsdir(ic)+fdndir(ic)*ct(ic) + fsdif(ic)=fsdif(ic)+fdndif(ic)*ct(ic) + endif + ENDDO enddo ! end is loop @@ -4868,32 +7048,35 @@ subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & enddo ! end ih loop - return end subroutine twostream_adding !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine reduce_flux (m,np,swc,u1,du,nu,swh,w1,dw,nw,tbl,df) + subroutine reduce_flux (np,swc,u1,du,nu,swh,w1,dw,nw,tbl,df,lmask,irestrict) !***************************************************************** !-----compute the reduction of clear-sky downward solar flux ! due to co2 absorption. implicit none !-----input parameters - integer m,np,nu,nw - real(Kind=fp_kind) u1,du,w1,dw - real(Kind=fp_kind) swc(m,np+1),swh(m,np+1),tbl(nu,nw) + logical lmask(CHUNK) + integer irestrict + integer np,nu,nw + real(fp_kind) u1,du,w1,dw + real(fp_kind) swc(CHUNK,np+1),swh(CHUNK,np+1),tbl(nu,nw) !-----output (undated) parameter - real(Kind=fp_kind) df(m,np+1) + real(fp_kind) df(CHUNK,np+1) !-----temporary array - integer i,k,ic,iw - real(Kind=fp_kind) clog,wlog,dc,dd,x0,x1,x2,y0,y1,y2 + integer k,ic,iw,i + real(fp_kind) clog,wlog,dc,dd,x0,x1,x2,y0,y1,y2 !-----table look-up for the reduction of clear-sky solar x0=u1+float(nu)*du y0=w1+float(nw)*dw x1=u1-0.5*du y1=w1-0.5*dw + do k= 2, np+1 - do i= 1, m + DO i=1,min(CHUNK,irestrict) + if(lmask(i) .eqv. .true.) then clog=min(swc(i,k),x0) clog=max(swc(i,k),x1) wlog=min(swh(i,k),y0) @@ -4909,89 +7092,25 @@ subroutine reduce_flux (m,np,swc,u1,du,nu,swh,w1,dw,nw,tbl,df) x2=tbl(ic-1,iw-1)+(tbl(ic-1,iw)-tbl(ic-1,iw-1))/dw*dd y2=x2+(tbl(ic,iw-1)-tbl(ic-1,iw-1))/du*dc df(i,k)=df(i,k)+y2 - enddo - enddo - return - end subroutine reduce_flux - -!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD -!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - - subroutine o3_profile (np, pres, ozone, its, ite, kts, kte, p2d, o3) - implicit none - - integer m,np,its,ite,kts,kte - integer i,k,ko,kk - real(Kind=fp_kind) pres(np),ozone(np) - real(Kind=fp_kind) p(its:ite,kts:kte),o3(its:ite,kts:kte) - real(Kind=fp_kind),intent(in) :: p2d(its:ite,kts:kte) -! statement function - real(Kind=fp_kind) linear, x1, y1, x2, y2, x - linear(x1, y1, x2, y2, x) = & - (y1 * (x2 - x) + y2 * (x - x1)) / (x2 - x1) - - p = p2d -! - do k = 1,np - pres(k) = log(pres(k)) !toshii + endif + ENDDO enddo - do k = kts,kte - do i = its, ite - p(i,k) = log(p(i,k)) !toshii - end do - end do - -! assume the pressure at model top is greater than pres(1) -! if it is not, this part needs to change - - do i = its, ite - ko = 1 - do k = kts+1, kte - do while (ko .lt. np .and. p(i,k) .gt. pres(ko)) - ko = ko + 1 - end do - o3(i,k) = linear (pres(ko), ozone(ko), & - pres(ko-1), ozone(ko-1), & - p(i,k)) - ko = ko - 1 - end do - end do - -! calculate top lay o3 - do i = its, ite - ko = 1 - k = kts - do while (ko .le. np .and. p(i,k) .gt. pres(ko)) - ko = ko + 1 - end do - if (ko-1 .le. 1) then - o3(i,k)=ozone(k) - else - o3(i,k)=0. - do kk=ko-2,1,-1 - o3(i,k)=o3(i,k)+ozone(kk)*(pres(kk+1)-pres(kk)) - enddo - o3(i,k)=o3(i,k)/(pres(ko-1)-pres(1)) - endif - end do - end subroutine o3_profile + end subroutine reduce_flux !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - - subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & - cwc,reff,fcld,ict,icb, & - taual,ssaal,asyal,& - flx,acflxd,acflxu) + subroutine lwrad ( np, emiss, tb, ts, ict, icb,& + pl, ta, wa, oa, fcld, & + taucl, ssacl, asycl, & + taual, ssaal, asyal, & + flx_out,acflxd_out,acflxu_out, irestrict ) + implicit none !*********************************************************************** ! this routine computes ir fluxes due to water vapor, co2, o3, ! trace gases (n2o, ch4, cfc11, cfc12, cfc22, co2-minor), ! clouds, and aerosols. ! -! this is a vectorized code. it computes fluxes simultaneously for -! m soundings. -! ! some detailed descriptions of the radiation routine are given in ! chou and suarez (1994). ! @@ -5046,39 +7165,31 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! !---- input parameters units size ! -! number of soundings (m) -- 1 ! number of atmospheric layers (np) -- 1 -! level pressure (pl) mb m*(np+1) -! layer temperature (ta) k m*np -! layer specific humidity (wa) g/g m*np -! layer ozone mixing ratio by mass (oa) g/g m*np -! surface air temperature (tb) k m -! surface temperature (ts) k m -! surface emissivity (emiss) fraction m*10 +! level pressure (pl) mb (np+1) +! layer temperature (ta) k np +! layer specific humidity (wa) g/g np +! layer ozone mixing ratio by mass (oa) g/g np +! surface air temperature (tb) k 1 +! surface temperature (ts) k 1 +! surface emissivity (emiss) fraction 10 ! input option for cloud fractional cover -- 1 ! (overcast) (see explanation above) ! input option for cloud optical thickness -- 1 -! (cldwater) (see explanation above) -! cloud water mixing ratio (cwc) gm/gm m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! cloud optical thickness (taucl) -- m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! effective cloud-particle size (reff) micrometer m*np*3 -! index 1 for ice particles -! index 2 for liquid drops -! index 3 for rain drops -! cloud amount (fcld) fraction m*np +! cloud optical thickness (taucl) n/d np*band +! cloud single scattering albedo (ssacl) n/d np*band +! cloud asymetry parameter (asycl) n/d np*band +! aerosol optical thickness (taual) n/d np*band +! aerosol single scattering albedo (ssaal) n/d np*band +! aerosol asymetry parameter (asyal) n/d np*band +! cloud amount (fcld) fraction np ! level index separating high and middle -- 1 ! clouds (ict) ! level index separating middle and low -- 1 ! clouds (icb) -! aerosol optical thickness (taual) -- m*np*10 -! aerosol single-scattering albedo (ssaal) -- m*np*10 -! aerosol asymmetry factor (asyal) -- m*np*10 +! aerosol optical thickness (taual) -- np*10 +! aerosol single-scattering albedo (ssaal) -- np*10 +! aerosol asymmetry factor (asyal) -- np*10 ! high (see explanation above) -- 1 ! trace (see explanation above) -- 1 ! @@ -5092,11 +7203,11 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! !---- output parameters ! -! net downward flux, all-sky (flx) w/m**2 m*(np+1) -! net downward flux, clear-sky (flc) w/m**2 m*(np+1) +! net downward flux, all-sky (flx) w/m**2 (np+1) +! net downward flux, clear-sky (flc) w/m**2 (np+1) ! sensitivity of net downward flux -! to surface temperature (dfdts) w/m**2/k m*(np+1) -! emission by the surface (sfcem) w/m**2 m +! to surface temperature (dfdts) w/m**2/k (np+1) +! emission by the surface (sfcem) w/m**2 1 ! ! notes: ! @@ -5115,26 +7226,29 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! e-mail: chou@climate.gsfc.nasa.gov ! !*************************************************************************** - implicit none !---- input parameters ------ - integer,intent(in) :: m,np,ict(m),icb(m) - real(Kind=fp_kind) ,intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np), & - tb(m),ts(m), emiss(m,ib_lw) - real(Kind=fp_kind) ,intent(in) :: cwc(m,np,3),reff(m,np,3), fcld(m,np) - - real(Kind=fp_kind) , intent(in) :: taual(m,np,ib_lw),ssaal(m,np,ib_lw),asyal(m,np,ib_lw) + integer ,intent(in) :: np,ict(CHUNK),icb(CHUNK) + real(fp_kind) ,intent(in) :: pl(CHUNK, np+1),ta(CHUNK, np),wa(CHUNK, np),oa(CHUNK, np), & + tb(CHUNK), ts(CHUNK), emiss(CHUNK, nband_lw) + real(fp_kind) ,intent(in) :: fcld(CHUNK, np) + real(fp_kind) , intent(in) :: taucl(CHUNK, np,nband_lw),ssacl(CHUNK, np,nband_lw),asycl(CHUNK, np,nband_lw) + real(fp_kind) , intent(in) :: taual(CHUNK, np,nband_lw),ssaal(CHUNK, np,nband_lw),asyal(CHUNK, np,nband_lw) + integer :: irestrict !---- output parameters ------ - real(Kind=fp_kind),intent(out) :: flx(m,np+1) + real,intent(out) :: flx_out(CHUNK, np+1) + real,intent(out) :: acflxu_out(CHUNK, np+1) + real,intent(out) :: acflxd_out(CHUNK, np+1) !upwelling and downwelling broadband LW flux [W/m2] + real(fp_kind) :: flx(CHUNK, np+1) + real(fp_kind) :: acflxu(CHUNK, np+1),acflxd(CHUNK, np+1) !upwelling and downwelling broadband LW flux [W/m2] - real(Kind=fp_kind) :: flc(m,np+1),dfdts(m,np+1), sfcem(m) - real(Kind=fp_kind) :: acflxu(m,np+1),acflxd(m,np+1) !upwelling and downwelling broadband LW flux [W/m2] + real(fp_kind) :: flc(CHUNK, np+1),dfdts(CHUNK, np+1), sfcem(CHUNK) !---- static data ----- - real(Kind=fp_kind) cb(6,10),xkw(9),xke(9),aw(9),bw(9),pm(9),fkw(6,9),gkw(6,3) - real(Kind=fp_kind) aib(3,10),awb(4,10),aiw(4,10),aww(4,10),aig(4,10),awg(4,10) - integer ne(9),mw(9) - real(Kind=fp_kind) :: taucl(m,np,3) + real(fp_kind) :: cb(6,10),xkw(9),xke(9),aw(9),bw(9),pm(9),fkw(6,9),gkw(6,3) + real(fp_kind) :: aib(3,10),awb(4,10),aiw(4,10),aww(4,10),aig(4,10),awg(4,10) + integer :: ne(9),mw(9) + !-----parameters defining the size of the pre-computed tables for ! transmittance using table look-up. !c "nx" is the number of intervals in pressure @@ -5142,64 +7256,43 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! "no" is the number of intervals in o3 amount ! "nc" is the number of intervals in co2 amount ! "nh" is the number of intervals in h2o amount - integer nx2,no,nc,nh - parameter (nx2=26,no=21,nc=30,nh=31) ! cccshie 9/15/04 - real(Kind=fp_kind) c1 (nx2,nc),c2 (nx2,nc),c3 (nx2,nc) - real(Kind=fp_kind) o1 (nx2,no),o2 (nx2,no),o3 (nx2,no) - real(Kind=fp_kind) h11(nx2,nh),h12(nx2,nh),h13(nx2,nh) - real(Kind=fp_kind) h21(nx2,nh),h22(nx2,nh),h23(nx2,nh) - real(Kind=fp_kind) h71(nx2,nh),h72(nx2,nh),h73(nx2,nh) - real(Kind=fp_kind) h81(nx2,nh),h82(nx2,nh),h83(nx2,nh) + integer,parameter :: nx2=26,no=21,nc=30,nh=31 ! cccshie 9/15/04 + real(fp_kind) :: c1 (nx2,nc),c2 (nx2,nc),c3 (nx2,nc) + real(fp_kind) :: o1 (nx2,no),o2 (nx2,no),o3 (nx2,no) + real(fp_kind) :: h11(nx2,nh),h12(nx2,nh),h13(nx2,nh) + real(fp_kind) :: h21(nx2,nh),h22(nx2,nh),h23(nx2,nh) + real(fp_kind) :: h71(nx2,nh),h72(nx2,nh),h73(nx2,nh) + real(fp_kind) :: h81(nx2,nh),h82(nx2,nh),h83(nx2,nh) !---- temporary arrays ----- - real(Kind=fp_kind) pa(m,np),dt(m,np) - real(Kind=fp_kind) sh2o(m,np+1),swpre(m,np+1),swtem(m,np+1) - real(Kind=fp_kind) sco3(m,np+1),scopre(m,np+1),scotem(m,np+1) - real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dco2(m,np),do3(m,np) - real(Kind=fp_kind) dn2o(m,np),dch4(m,np) - real(Kind=fp_kind) df11(m,np),df12(m,np),df22(m,np) - real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2) - real(Kind=fp_kind) tn2o(m,4),tch4(m,4),tcom(m,6) - real(Kind=fp_kind) tf11(m),tf12(m),tf22(m) - real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) - real(Kind=fp_kind) n2oexp(m,np,4),ch4exp(m,np,4),comexp(m,np,6) - real(Kind=fp_kind) f11exp(m,np),f12exp(m,np),f22exp(m,np) - real(Kind=fp_kind) blayer(m,0:np+1),blevel(m,np+1),dblayr(m,np+1),dbs(m) - real(Kind=fp_kind) dp(m,np),cwp(m,np,3) - real(Kind=fp_kind) trant(m),tranal(m),transfc(m,np+1),trantcr(m,np+1) - real(Kind=fp_kind) flxu(m,np+1),flxd(m,np+1),flcu(m,np+1),flcd(m,np+1) - real(Kind=fp_kind) rflx(m,np+1),rflc(m,np+1) - integer it(m),im(m),ib(m) - real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m),tcldlyr(m,np),fclr(m) - real(Kind=fp_kind) taerlyr(m,np) - -! real(Kind=fp_kind) , allocatable :: pa(:,:),dt(:,:) -! real(Kind=fp_kind) , allocatable :: sh2o(:,:),swpre(:,:),swtem(:,:) -! real(Kind=fp_kind) , allocatable :: sco3(:,:),scopre(:,:),scotem(:,:) -! real(Kind=fp_kind) , allocatable :: dh2o(:,:),dcont(:,:),dco2(:,:),do3(:,:) -! real(Kind=fp_kind) , allocatable :: dn2o(:,:),dch4(:,:) -! real(Kind=fp_kind) , allocatable :: df11(:,:),df12(:,:),df22(:,:) -! real(Kind=fp_kind) , allocatable :: th2o(:,:),tcon(:,:),tco2(:,:,:) -! real(Kind=fp_kind) , allocatable :: tn2o(:,:),tch4(:,:),tcom(:,:) -! real(Kind=fp_kind) , allocatable :: tf11(:),tf12(:),tf22(:) -! real(Kind=fp_kind) , allocatable :: h2oexp(:,:,:),conexp(:,:,:),co2exp(:,:,:,:) -! real(Kind=fp_kind) , allocatable :: n2oexp(:,:,:),ch4exp(:,:,:),comexp(:,:,:) -! real(Kind=fp_kind) , allocatable :: f11exp(:,:),f12exp(:,:),f22exp(:,:) -! real(Kind=fp_kind) , allocatable :: blayer(:,:),blevel(:,:),dblayr(:,:),dbs(:) -! real(Kind=fp_kind) , allocatable :: dp(:,:),cwp(:,:,:) -! real(Kind=fp_kind),allocatable :: trant(:),tranal(:),transfc(:,:),trantcr(:,:) -! real(Kind=fp_kind) , allocatable :: flxu(:,:),flxd(:,:),flcu(:,:),flcd(:,:) -! real(Kind=fp_kind) , allocatable :: rflx(:,:),rflc(:,:) -! integer, allocatable :: it(:),im(:),ib(:) -! real(Kind=fp_kind),allocatable::cldhi(:),cldmd(:),cldlw(:),tcldlyr(:,:),fclr(:) -! real(Kind=fp_kind) , allocatable :: taerlyr(:,:) - - integer i,j,k,ip,iw,ibn,ik,iq,isb,k1,k2 - real(Kind=fp_kind) xx,yy,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2,bu,bd - real(Kind=fp_kind) w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 - real(Kind=fp_kind) tauxa - - logical oznbnd,co2bnd,h2otbl,conbnd,n2obnd - logical ch4bnd,combnd,f11bnd,f12bnd,f22bnd,b10bnd + real(fp_kind) :: pa(CHUNK, np),dt(CHUNK, np) + real(fp_kind) :: sh2o(CHUNK, np+1),swpre(CHUNK, np+1),swtem(CHUNK, np+1) + real(fp_kind) :: sco3(CHUNK, np+1),scopre(CHUNK, np+1),scotem(CHUNK, np+1) + real(fp_kind) :: dh2o(CHUNK, np),dcont(CHUNK, np),dco2(CHUNK, np),do3(CHUNK, np) + real(fp_kind) :: dn2o(CHUNK, np),dch4(CHUNK, np) + real(fp_kind) :: df11(CHUNK, np),df12(CHUNK, np),df22(CHUNK, np) + real(fp_kind) :: th2o(CHUNK, 6),tcon(CHUNK, 3),tco2(CHUNK, 6,2) + real(fp_kind) :: tn2o(CHUNK, 4),tch4(CHUNK, 4),tcom(CHUNK, 6) + real(fp_kind) :: tf11(CHUNK),tf12(CHUNK),tf22(CHUNK) + real(fp_kind) :: h2oexp(CHUNK, np,6),conexp(CHUNK, np,3),co2exp(CHUNK, np,6,2) + real(fp_kind) :: n2oexp(CHUNK, np,4),ch4exp(CHUNK, np,4),comexp(CHUNK, np,6) + real(fp_kind) :: f11exp(CHUNK, np),f12exp(CHUNK, np),f22exp(CHUNK, np) + real(fp_kind) :: blayer(CHUNK, 0:np+1),blevel(CHUNK, np+1),dblayr(CHUNK, np+1),dbs(CHUNK) + real(fp_kind) :: dp(CHUNK, np) + real(fp_kind) :: trant(CHUNK),tranal(CHUNK),transfc(CHUNK, np+1),trantcr(CHUNK, np+1) + real(fp_kind) :: flxu(CHUNK, np+1),flxd(CHUNK, np+1),flcu(CHUNK, np+1),flcd(CHUNK, np+1) + real(fp_kind) :: rflx(CHUNK, np+1),rflc(CHUNK, np+1) + integer :: it,im,ib + real(fp_kind) :: cldhi(CHUNK),cldmd(CHUNK),cldlw(CHUNK),tcldlyr(CHUNK, np),fclr(CHUNK) + real(fp_kind) :: taerlyr(CHUNK, np) + + integer :: j,k,ip,iw,ibn,ik,iq,isb,k1,k2,ic + real(fp_kind) :: xx,yy,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2,bu,bd +! real(fp_kind) :: w(CHUNK, max_spc),g(CHUNK, max_spc) + real(fp_kind) :: w1,ww,gg,ff,taux + real(fp_kind) :: tauxa + + logical :: oznbnd,co2bnd,h2otbl,conbnd,n2obnd + logical :: ch4bnd,combnd,f11bnd,f12bnd,f22bnd,b10bnd !-----the following coefficients are given in table 2 for computing ! spectrally integrated planck fluxes using eq. (3.11) @@ -5227,22 +7320,39 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & !-----xkw is the absorption coefficient are given in table 4 for the ! first k-distribution interval due to water vapor line absorption. ! units are cm**2/g - data xkw / 29.55 , 4.167e-1, 1.328e-2, 5.250e-4, & - 5.25e-4, 9.369e-3, 4.719e-2, 1.320e-0, 5.250e-4/ +! old (HITRAN1996) +! data xkw / 29.55 , 4.167e-1, 1.328e-2, 5.250e-4, & +! 5.25e-4, 9.369e-3, 4.719e-2, 1.320e-0, 5.250e-4/ +! new (HITRAN2012) + data xkw / 39.453 , 4.306e-1, 1.263e-2, 4.065e-4, & + 5.225e-4, 5.464e-3, 4.084e-2, 2.449e+0, 7.981e-3/ + !-----xke is the absorption coefficient given in table 9 for the first ! k-distribution function due to water vapor continuum absorption ! units are cm**2/g - data xke / 0.00, 0.00, 27.40, 15.8, & - 9.40, 7.75, 8.78, 0.0, 0.0/ +! old +! data xke / 0.00, 0.00, 27.40, 15.8, & +! 9.40, 7.75, 8.78, 0.0, 0.0/ +!-----CKD (Version 2.3) continuum k data + data xke / 0.0, 271., 25.00, 16.8, & + 8.31, 6.52, 12.7, 0.0, 0.0/ + !-----mw is the ratio between neighboring absorption coefficients ! for water vapor line absorption (table 4). data mw /6,6,8,6,6,8,9,6,16/ !-----aw and bw (table 3) are the coefficients for temperature scaling ! in eq. (4.2). - data aw/ 0.0021, 0.0140, 0.0167, 0.0302, & - 0.0307, 0.0195, 0.0152, 0.0008, 0.0096/ - data bw/ -1.01e-5, 5.57e-5, 8.54e-5, 2.96e-4, & - 2.86e-4, 1.108e-4, 7.608e-5, -3.52e-6, 1.64e-5/ +! old (HITRAN1996) +! data aw/ 0.0021, 0.0140, 0.0167, 0.0302, & +! 0.0307, 0.0195, 0.0152, 0.0008, 0.0096/ +! data bw/ -1.01e-5, 5.57e-5, 8.54e-5, 2.96e-4, & +! 2.86e-4, 1.108e-4, 7.608e-5, -3.52e-6, 1.64e-5/ +! new (HITRAN2012) + data aw/ 0.00367, 0.01481, 0.01821, 0.03138, & + 0.03192, 0.01899, 0.01494, 0.00211, 0.01266/ + data bw/ -2.18e-5, 7.30e-5, 9.46e-5, 3.112e-4, & + 3.088e-4, 1.074e-4, 7.64e-5, -1.66e-5, 4.88e-5/ + !-----pm is the pressure-scaling parameter for water vapor absorption ! eq. (4.1) and table 3. data pm/ 1.0, 1.0, 1.0, 1.0, 1.0, 0.77, 0.5, 1.0, 1.0/ @@ -5250,22 +7360,40 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! line absorption given in table 4. ! the k-distribution function for the third band, fkw(*,3), ! is not used (see the parameter gkw below). - data fkw / 0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, & - 0.1521,0.3974,0.1778,0.1826,0.0374,0.0527, & - 6*1.00, & - 0.4654,0.2991,0.1343,0.0646,0.0226,0.0140, & - 0.5543,0.2723,0.1131,0.0443,0.0160,0.0000, & - 0.5955,0.2693,0.0953,0.0335,0.0064,0.0000, & - 0.1958,0.3469,0.3147,0.1013,0.0365,0.0048, & - 0.0740,0.1636,0.4174,0.1783,0.1101,0.0566, & - 0.1437,0.2197,0.3185,0.2351,0.0647,0.0183/ +! old (HITRAN1996) +! data fkw / 0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, & +! 0.1521,0.3974,0.1778,0.1826,0.0374,0.0527, & +! 6*1.00, & +! 0.4654,0.2991,0.1343,0.0646,0.0226,0.0140, & +! 0.5543,0.2723,0.1131,0.0443,0.0160,0.0000, & +! 0.5955,0.2693,0.0953,0.0335,0.0064,0.0000, & +! 0.1958,0.3469,0.3147,0.1013,0.0365,0.0048, & +! 0.0740,0.1636,0.4174,0.1783,0.1101,0.0566, & +! 0.1437,0.2197,0.3185,0.2351,0.0647,0.0183/ +! new (HITRAN2012) + data fkw / 0.2703,0.3113,0.2564,0.1042,0.0428,0.0150, & + 0.1338,0.3653,0.2544,0.1298,0.0780,0.0387, & + 6*1.00, & + 0.2824,0.3696,0.2211,0.0819,0.0332,0.0118, & + 0.4442,0.3455,0.1361,0.0536,0.0175,0.0031, & + 0.4480,0.3744,0.1219,0.0447,0.0101,0.0009, & + 0.2257,0.3316,0.2951,0.1053,0.0348,0.0075, & + 0.0750,0.2814,0.3496,0.1769,0.0817,0.0354, & + 0.3361,0.3207,0.2459,0.0780,0.0174,0.0019/ + !-----gkw is the planck-weighted k-distribution function due to h2o ! line absorption in the 3 subbands (800-720,620-720,540-620 /cm) ! of band 3 given in table 10. note that the order of the sub-bands ! is reversed. - data gkw/ 0.1782,0.0593,0.0215,0.0068,0.0022,0.0000, & - 0.0923,0.1675,0.0923,0.0187,0.0178,0.0000, & - 0.0000,0.1083,0.1581,0.0455,0.0274,0.0041/ +! old(HITRAN1996) +! data gkw/ 0.1782,0.0593,0.0215,0.0068,0.0022,0.0000, & +! 0.0923,0.1675,0.0923,0.0187,0.0178,0.0000, & +! 0.0000,0.1083,0.1581,0.0455,0.0274,0.0041/ +! new *(HITRAN2012) + data gkw/ 0.0000,0.0729,0.1761,0.0627,0.0232,0.0084, & + 0.0631,0.1712,0.1050,0.0346,0.0131,0.0014, & + 0.1568,0.0741,0.0255,0.0101,0.0018,0.0000/ + !-----ne is the number of terms used in each band to compute water vapor ! continuum transmittance (table 9). data ne /0,0,3,1,1,1,1,0,0/ @@ -5362,2961 +7490,2904 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! include 'co2.tran4' ! include 'o3.tran3' data ((h11(ip,iw),iw=1,31), ip= 1, 1)/ & - 0.99993843, 0.99990183, 0.99985260, 0.99979079, 0.99971771, & - 0.99963379, 0.99953848, 0.99942899, 0.99930018, 0.99914461, & - 0.99895102, 0.99870503, 0.99838799, 0.99797899, 0.99745202, & - 0.99677002, 0.99587703, 0.99469399, 0.99311298, 0.99097902, & - 0.98807001, 0.98409998, 0.97864997, 0.97114998, 0.96086001, & - 0.94682997, 0.92777002, 0.90200001, 0.86739999, 0.82169998, & - 0.76270002/ + 0.99993813, 0.99990332, 0.99985558, 0.99979532, 0.99972224, & + 0.99963796, 0.99954617, 0.99944353, 0.99932158, 0.99916780, & + 0.99896526, 0.99869478, 0.99833935, 0.99788177, 0.99729526, & + 0.99653482, 0.99553120, 0.99419260, 0.99240279, 0.99000663, & + 0.98677677, 0.98239183, 0.97641385, 0.96825922, 0.95715666, & + 0.94209653, 0.92173046, 0.89425236, 0.85741836, 0.80881417, & + 0.74626487/ data ((h12(ip,iw),iw=1,31), ip= 1, 1)/ & - -0.2021e-06, -0.3628e-06, -0.5891e-06, -0.8735e-06, -0.1204e-05, & - -0.1579e-05, -0.2002e-05, -0.2494e-05, -0.3093e-05, -0.3852e-05, & - -0.4835e-05, -0.6082e-05, -0.7591e-05, -0.9332e-05, -0.1128e-04, & - -0.1347e-04, -0.1596e-04, -0.1890e-04, -0.2241e-04, -0.2672e-04, & - -0.3208e-04, -0.3884e-04, -0.4747e-04, -0.5854e-04, -0.7272e-04, & - -0.9092e-04, -0.1146e-03, -0.1458e-03, -0.1877e-03, -0.2435e-03, & - -0.3159e-03/ + -0.1374E-06, -0.2708E-06, -0.4751E-06, -0.7528E-06, -0.1099E-05, & + -0.1483E-05, -0.1891E-05, -0.2361E-05, -0.2959E-05, -0.3751E-05, & + -0.4799E-05, -0.6115E-05, -0.7662E-05, -0.9412E-05, -0.1143E-04, & + -0.1378E-04, -0.1658E-04, -0.1990E-04, -0.2375E-04, -0.2818E-04, & + -0.3337E-04, -0.3952E-04, -0.4697E-04, -0.5621E-04, -0.6779E-04, & + -0.8221E-04, -0.1002E-03, -0.1233E-03, -0.1539E-03, -0.1946E-03, & + -0.2470E-03/ data ((h13(ip,iw),iw=1,31), ip= 1, 1)/ & - 0.5907e-09, 0.8541e-09, 0.1095e-08, 0.1272e-08, 0.1297e-08, & - 0.1105e-08, 0.6788e-09, -0.5585e-10, -0.1147e-08, -0.2746e-08, & - -0.5001e-08, -0.7715e-08, -0.1037e-07, -0.1227e-07, -0.1287e-07, & - -0.1175e-07, -0.8517e-08, -0.2920e-08, 0.4786e-08, 0.1407e-07, & - 0.2476e-07, 0.3781e-07, 0.5633e-07, 0.8578e-07, 0.1322e-06, & - 0.2013e-06, 0.3006e-06, 0.4409e-06, 0.6343e-06, 0.8896e-06, & - 0.1216e-05/ + 0.3566E-09, 0.4603E-09, 0.5960E-09, 0.6227E-09, 0.7610E-09, & + 0.9207E-09, 0.6174E-09, -0.2368E-09, -0.1897E-08, -0.4880E-08, & + -0.8568E-08, -0.1181E-07, -0.1402E-07, -0.1578E-07, -0.1755E-07, & + -0.1971E-07, -0.2167E-07, -0.2299E-07, -0.2341E-07, -0.2370E-07, & + -0.2437E-07, -0.2530E-07, -0.2620E-07, -0.2813E-07, -0.3265E-07, & + -0.3921E-07, -0.4360E-07, -0.3767E-07, -0.1222E-07, 0.4307E-07, & + 0.1446E-06/ data ((h11(ip,iw),iw=1,31), ip= 2, 2)/ & - 0.99993837, 0.99990171, 0.99985230, 0.99979031, 0.99971670, & - 0.99963200, 0.99953520, 0.99942321, 0.99928987, 0.99912637, & - 0.99892002, 0.99865198, 0.99830002, 0.99783802, 0.99723297, & - 0.99643701, 0.99537897, 0.99396098, 0.99204701, 0.98944002, & - 0.98588002, 0.98098999, 0.97425997, 0.96502000, 0.95236999, & - 0.93515998, 0.91184998, 0.88040000, 0.83859998, 0.78429997, & - 0.71560001/ + 0.99993813, 0.99990314, 0.99985522, 0.99979478, 0.99972117, & + 0.99963617, 0.99954265, 0.99943727, 0.99931049, 0.99914831, & + 0.99893194, 0.99863851, 0.99824709, 0.99773568, 0.99706858, & + 0.99618745, 0.99500763, 0.99341935, 0.99127823, 0.98838830, & + 0.98446715, 0.97911924, 0.97180730, 0.96182114, 0.94823337, & + 0.92982620, 0.90495598, 0.87150788, 0.82708740, 0.76937377, & + 0.69672096/ data ((h12(ip,iw),iw=1,31), ip= 2, 2)/ & - -0.2017e-06, -0.3620e-06, -0.5878e-06, -0.8713e-06, -0.1201e-05, & - -0.1572e-05, -0.1991e-05, -0.2476e-05, -0.3063e-05, -0.3808e-05, & - -0.4776e-05, -0.6011e-05, -0.7516e-05, -0.9272e-05, -0.1127e-04, & - -0.1355e-04, -0.1620e-04, -0.1936e-04, -0.2321e-04, -0.2797e-04, & - -0.3399e-04, -0.4171e-04, -0.5172e-04, -0.6471e-04, -0.8150e-04, & - -0.1034e-03, -0.1321e-03, -0.1705e-03, -0.2217e-03, -0.2889e-03, & - -0.3726e-03/ + -0.1367E-06, -0.2697E-06, -0.4737E-06, -0.7504E-06, -0.1093E-05, & + -0.1473E-05, -0.1874E-05, -0.2335E-05, -0.2916E-05, -0.3688E-05, & + -0.4705E-05, -0.5984E-05, -0.7493E-05, -0.9212E-05, -0.1123E-04, & + -0.1363E-04, -0.1652E-04, -0.1998E-04, -0.2400E-04, -0.2864E-04, & + -0.3409E-04, -0.4067E-04, -0.4882E-04, -0.5915E-04, -0.7225E-04, & + -0.8880E-04, -0.1099E-03, -0.1377E-03, -0.1747E-03, -0.2233E-03, & + -0.2834E-03/ data ((h13(ip,iw),iw=1,31), ip= 2, 2)/ & - 0.5894e-09, 0.8519e-09, 0.1092e-08, 0.1267e-08, 0.1289e-08, & - 0.1093e-08, 0.6601e-09, -0.7831e-10, -0.1167e-08, -0.2732e-08, & - -0.4864e-08, -0.7334e-08, -0.9581e-08, -0.1097e-07, -0.1094e-07, & - -0.8999e-08, -0.4669e-08, 0.2391e-08, 0.1215e-07, 0.2424e-07, & - 0.3877e-07, 0.5711e-07, 0.8295e-07, 0.1218e-06, 0.1793e-06, & - 0.2621e-06, 0.3812e-06, 0.5508e-06, 0.7824e-06, 0.1085e-05, & - 0.1462e-05/ + 0.3486E-09, 0.4524E-09, 0.5881E-09, 0.5960E-09, 0.7211E-09, & + 0.8648E-09, 0.5641E-09, -0.3432E-09, -0.2022E-08, -0.4965E-08, & + -0.8629E-08, -0.1170E-07, -0.1374E-07, -0.1544E-07, -0.1719E-07, & + -0.1906E-07, -0.2055E-07, -0.2111E-07, -0.2052E-07, -0.1940E-07, & + -0.1896E-07, -0.1908E-07, -0.1923E-07, -0.2091E-07, -0.2455E-07, & + -0.2895E-07, -0.2714E-07, -0.9139E-08, 0.3458E-07, 0.1185E-06, & + 0.2589E-06/ data ((h11(ip,iw),iw=1,31), ip= 3, 3)/ & - 0.99993825, 0.99990153, 0.99985188, 0.99978942, 0.99971509, & - 0.99962920, 0.99953020, 0.99941432, 0.99927431, 0.99909937, & - 0.99887401, 0.99857497, 0.99817699, 0.99764699, 0.99694097, & - 0.99599802, 0.99473000, 0.99301600, 0.99068397, 0.98749000, & - 0.98311001, 0.97707999, 0.96877003, 0.95738000, 0.94186002, & - 0.92079002, 0.89230001, 0.85420001, 0.80430001, 0.74049997, & - 0.66200000/ + 0.99993807, 0.99990296, 0.99985474, 0.99979377, 0.99971932, & + 0.99963313, 0.99953723, 0.99942762, 0.99929363, 0.99911934, & + 0.99888295, 0.99855793, 0.99811894, 0.99753672, 0.99676406, & + 0.99572688, 0.99432445, 0.99242115, 0.98983938, 0.98632908, & + 0.98154306, 0.97499502, 0.96603107, 0.95379549, 0.93717366, & + 0.91468084, 0.88435274, 0.84385335, 0.79079306, 0.72320402, & + 0.64039373/ data ((h12(ip,iw),iw=1,31), ip= 3, 3)/ & - -0.2011e-06, -0.3609e-06, -0.5859e-06, -0.8680e-06, -0.1195e-05, & - -0.1563e-05, -0.1975e-05, -0.2450e-05, -0.3024e-05, -0.3755e-05, & - -0.4711e-05, -0.5941e-05, -0.7455e-05, -0.9248e-05, -0.1132e-04, & - -0.1373e-04, -0.1659e-04, -0.2004e-04, -0.2431e-04, -0.2966e-04, & - -0.3653e-04, -0.4549e-04, -0.5724e-04, -0.7259e-04, -0.9265e-04, & - -0.1191e-03, -0.1543e-03, -0.2013e-03, -0.2633e-03, -0.3421e-03, & - -0.4350e-03/ + -0.1355E-06, -0.2684E-06, -0.4700E-06, -0.7442E-06, -0.1085E-05, & + -0.1459E-05, -0.1848E-05, -0.2300E-05, -0.2862E-05, -0.3604E-05, & + -0.4590E-05, -0.5834E-05, -0.7305E-05, -0.9014E-05, -0.1106E-04, & + -0.1354E-04, -0.1657E-04, -0.2018E-04, -0.2440E-04, -0.2930E-04, & + -0.3512E-04, -0.4229E-04, -0.5141E-04, -0.6313E-04, -0.7817E-04, & + -0.9750E-04, -0.1228E-03, -0.1564E-03, -0.2011E-03, -0.2578E-03, & + -0.3238E-03/ data ((h13(ip,iw),iw=1,31), ip= 3, 3)/ & - 0.5872e-09, 0.8484e-09, 0.1087e-08, 0.1259e-08, 0.1279e-08, & - 0.1077e-08, 0.6413e-09, -0.9334e-10, -0.1161e-08, -0.2644e-08, & - -0.4588e-08, -0.6709e-08, -0.8474e-08, -0.9263e-08, -0.8489e-08, & - -0.5553e-08, 0.1203e-09, 0.9035e-08, 0.2135e-07, 0.3689e-07, & - 0.5610e-07, 0.8097e-07, 0.1155e-06, 0.1649e-06, 0.2350e-06, & - 0.3353e-06, 0.4806e-06, 0.6858e-06, 0.9617e-06, 0.1315e-05, & - 0.1741e-05/ + 0.3379E-09, 0.4391E-09, 0.5748E-09, 0.5801E-09, 0.6972E-09, & + 0.7717E-09, 0.4471E-09, -0.4470E-09, -0.2150E-08, -0.5040E-08, & + -0.8507E-08, -0.1138E-07, -0.1336E-07, -0.1498E-07, -0.1669E-07, & + -0.1817E-07, -0.1904E-07, -0.1853E-07, -0.1671E-07, -0.1422E-07, & + -0.1269E-07, -0.1200E-07, -0.1198E-07, -0.1331E-07, -0.1561E-07, & + -0.1564E-07, -0.4129E-08, 0.3015E-07, 0.9862E-07, 0.2180E-06, & + 0.4007E-06/ data ((h11(ip,iw),iw=1,31), ip= 4, 4)/ & - 0.99993813, 0.99990118, 0.99985123, 0.99978811, 0.99971271, & - 0.99962479, 0.99952239, 0.99940068, 0.99925101, 0.99905968, & - 0.99880803, 0.99846900, 0.99800998, 0.99738997, 0.99655402, & - 0.99542397, 0.99389100, 0.99180400, 0.98895001, 0.98501998, & - 0.97961003, 0.97215003, 0.96191001, 0.94791001, 0.92887998, & - 0.90311998, 0.86849999, 0.82270002, 0.76370001, 0.69000000, & - 0.60240000/ + 0.99993783, 0.99990243, 0.99985403, 0.99979228, 0.99971670, & + 0.99962842, 0.99952894, 0.99941313, 0.99926841, 0.99907714, & + 0.99881303, 0.99844551, 0.99794370, 0.99726915, 0.99635881, & + 0.99512327, 0.99343932, 0.99114186, 0.98800439, 0.98371774, & + 0.97785223, 0.96981639, 0.95881772, 0.94383150, 0.92350686, & + 0.89604330, 0.85920161, 0.81056869, 0.74796361, 0.67015076, & + 0.57788986/ data ((h12(ip,iw),iw=1,31), ip= 4, 4)/ & - -0.2001e-06, -0.3592e-06, -0.5829e-06, -0.8631e-06, -0.1187e-05, & - -0.1549e-05, -0.1953e-05, -0.2415e-05, -0.2975e-05, -0.3694e-05, & - -0.4645e-05, -0.5882e-05, -0.7425e-05, -0.9279e-05, -0.1147e-04, & - -0.1406e-04, -0.1717e-04, -0.2100e-04, -0.2580e-04, -0.3191e-04, & - -0.3989e-04, -0.5042e-04, -0.6432e-04, -0.8261e-04, -0.1068e-03, & - -0.1389e-03, -0.1820e-03, -0.2391e-03, -0.3127e-03, -0.4021e-03, & - -0.5002e-03/ + -0.1349E-06, -0.2669E-06, -0.4655E-06, -0.7354E-06, -0.1070E-05, & + -0.1438E-05, -0.1817E-05, -0.2249E-05, -0.2790E-05, -0.3505E-05, & + -0.4458E-05, -0.5669E-05, -0.7117E-05, -0.8833E-05, -0.1094E-04, & + -0.1355E-04, -0.1673E-04, -0.2055E-04, -0.2501E-04, -0.3023E-04, & + -0.3656E-04, -0.4457E-04, -0.5495E-04, -0.6843E-04, -0.8596E-04, & + -0.1089E-03, -0.1396E-03, -0.1804E-03, -0.2333E-03, -0.2970E-03, & + -0.3659E-03/ data ((h13(ip,iw),iw=1,31), ip= 4, 4)/ & - 0.5838e-09, 0.8426e-09, 0.1081e-08, 0.1249e-08, 0.1267e-08, & - 0.1062e-08, 0.6313e-09, -0.8241e-10, -0.1094e-08, -0.2436e-08, & - -0.4100e-08, -0.5786e-08, -0.6992e-08, -0.7083e-08, -0.5405e-08, & - -0.1259e-08, 0.6099e-08, 0.1732e-07, 0.3276e-07, 0.5256e-07, & - 0.7756e-07, 0.1103e-06, 0.1547e-06, 0.2159e-06, 0.3016e-06, & - 0.4251e-06, 0.6033e-06, 0.8499e-06, 0.1175e-05, 0.1579e-05, & - 0.2044e-05/ + 0.3486E-09, 0.4550E-09, 0.5482E-09, 0.5508E-09, 0.6200E-09, & + 0.6546E-09, 0.3246E-09, -0.5881E-09, -0.2182E-08, -0.5045E-08, & + -0.8305E-08, -0.1096E-07, -0.1284E-07, -0.1455E-07, -0.1597E-07, & + -0.1701E-07, -0.1692E-07, -0.1515E-07, -0.1179E-07, -0.8057E-08, & + -0.5678E-08, -0.4646E-08, -0.4521E-08, -0.5170E-08, -0.4770E-08, & + 0.2814E-08, 0.2832E-07, 0.8408E-07, 0.1846E-06, 0.3442E-06, & + 0.5701E-06/ data ((h11(ip,iw),iw=1,31), ip= 5, 5)/ & - 0.99993789, 0.99990070, 0.99985009, 0.99978602, 0.99970889, & - 0.99961799, 0.99951053, 0.99938041, 0.99921662, 0.99900270, & - 0.99871498, 0.99832201, 0.99778402, 0.99704897, 0.99604702, & - 0.99468100, 0.99281400, 0.99025702, 0.98673999, 0.98189002, & - 0.97521001, 0.96600002, 0.95337999, 0.93620998, 0.91292000, & - 0.88150001, 0.83969998, 0.78530002, 0.71650004, 0.63330001, & - 0.53799999/ + 0.99993753, 0.99990189, 0.99985290, 0.99979007, 0.99971253, & + 0.99962103, 0.99951631, 0.99939132, 0.99923170, 0.99901599, & + 0.99871421, 0.99829102, 0.99770778, 0.99691248, 0.99582618, & + 0.99433988, 0.99230248, 0.98950773, 0.98567337, 0.98041713, & + 0.97321093, 0.96333665, 0.94984657, 0.93150383, 0.90666318, & + 0.87321484, 0.82876885, 0.77100623, 0.69827306, 0.61053538, & + 0.51051188/ data ((h12(ip,iw),iw=1,31), ip= 5, 5)/ & - -0.1987e-06, -0.3565e-06, -0.5784e-06, -0.8557e-06, -0.1175e-05, & - -0.1530e-05, -0.1923e-05, -0.2372e-05, -0.2919e-05, -0.3631e-05, & - -0.4587e-05, -0.5848e-05, -0.7442e-05, -0.9391e-05, -0.1173e-04, & - -0.1455e-04, -0.1801e-04, -0.2232e-04, -0.2779e-04, -0.3489e-04, & - -0.4428e-04, -0.5678e-04, -0.7333e-04, -0.9530e-04, -0.1246e-03, & - -0.1639e-03, -0.2164e-03, -0.2848e-03, -0.3697e-03, -0.4665e-03, & - -0.5646e-03/ + -0.1329E-06, -0.2618E-06, -0.4579E-06, -0.7235E-06, -0.1051E-05, & + -0.1408E-05, -0.1775E-05, -0.2189E-05, -0.2706E-05, -0.3395E-05, & + -0.4319E-05, -0.5497E-05, -0.6940E-05, -0.8701E-05, -0.1091E-04, & + -0.1367E-04, -0.1705E-04, -0.2110E-04, -0.2585E-04, -0.3153E-04, & + -0.3858E-04, -0.4771E-04, -0.5970E-04, -0.7542E-04, -0.9620E-04, & + -0.1240E-03, -0.1612E-03, -0.2101E-03, -0.2709E-03, -0.3392E-03, & + -0.4077E-03/ data ((h13(ip,iw),iw=1,31), ip= 5, 5)/ & - 0.5785e-09, 0.8338e-09, 0.1071e-08, 0.1239e-08, 0.1256e-08, & - 0.1057e-08, 0.6480e-09, -0.1793e-10, -0.9278e-09, -0.2051e-08, & - -0.3337e-08, -0.4514e-08, -0.5067e-08, -0.4328e-08, -0.1545e-08, & - 0.4100e-08, 0.1354e-07, 0.2762e-07, 0.4690e-07, 0.7190e-07, & - 0.1040e-06, 0.1459e-06, 0.2014e-06, 0.2764e-06, 0.3824e-06, & - 0.5359e-06, 0.7532e-06, 0.1047e-05, 0.1424e-05, 0.1873e-05, & - 0.2356e-05/ + 0.3512E-09, 0.4124E-09, 0.5029E-09, 0.4763E-09, 0.5481E-09, & + 0.5881E-09, 0.1889E-09, -0.6732E-09, -0.2256E-08, -0.4875E-08, & + -0.7882E-08, -0.1041E-07, -0.1229E-07, -0.1391E-07, -0.1515E-07, & + -0.1539E-07, -0.1407E-07, -0.1072E-07, -0.5888E-08, -0.1194E-08, & + 0.1940E-08, 0.3026E-08, 0.3204E-08, 0.4126E-08, 0.1027E-07, & + 0.2961E-07, 0.7341E-07, 0.1571E-06, 0.2954E-06, 0.4979E-06, & + 0.7612E-06/ data ((h11(ip,iw),iw=1,31), ip= 6, 6)/ & - 0.99993753, 0.99989992, 0.99984848, 0.99978292, 0.99970299, & - 0.99960762, 0.99949282, 0.99935049, 0.99916708, 0.99892199, & - 0.99858701, 0.99812400, 0.99748403, 0.99660099, 0.99538797, & - 0.99372399, 0.99143797, 0.98829001, 0.98395002, 0.97794998, & - 0.96968001, 0.95832998, 0.94283003, 0.92179000, 0.89330000, & - 0.85530001, 0.80519998, 0.74140000, 0.66280001, 0.57099998, & - 0.47049999/ + 0.99993718, 0.99990106, 0.99985105, 0.99978644, 0.99970627, & + 0.99961007, 0.99949741, 0.99935919, 0.99917841, 0.99892938, & + 0.99857765, 0.99808246, 0.99739319, 0.99644214, 0.99513316, & + 0.99333090, 0.99084938, 0.98742902, 0.98272377, 0.97626024, & + 0.96739453, 0.95526421, 0.93873185, 0.91629297, 0.88598102, & + 0.84546542, 0.79236054, 0.72470009, 0.64178503, 0.54529846, & + 0.44021600/ data ((h12(ip,iw),iw=1,31), ip= 6, 6)/ & - -0.1964e-06, -0.3526e-06, -0.5717e-06, -0.8451e-06, -0.1158e-05, & - -0.1504e-05, -0.1886e-05, -0.2322e-05, -0.2861e-05, -0.3576e-05, & - -0.4552e-05, -0.5856e-05, -0.7529e-05, -0.9609e-05, -0.1216e-04, & - -0.1528e-04, -0.1916e-04, -0.2408e-04, -0.3043e-04, -0.3880e-04, & - -0.4997e-04, -0.6488e-04, -0.8474e-04, -0.1113e-03, -0.1471e-03, & - -0.1950e-03, -0.2583e-03, -0.3384e-03, -0.4326e-03, -0.5319e-03, & - -0.6244e-03/ + -0.1301E-06, -0.2574E-06, -0.4472E-06, -0.7059E-06, -0.1023E-05, & + -0.1367E-05, -0.1719E-05, -0.2116E-05, -0.2612E-05, -0.3275E-05, & + -0.4169E-05, -0.5332E-05, -0.6795E-05, -0.8638E-05, -0.1099E-04, & + -0.1394E-04, -0.1755E-04, -0.2188E-04, -0.2703E-04, -0.3333E-04, & + -0.4138E-04, -0.5196E-04, -0.6596E-04, -0.8460E-04, -0.1096E-03, & + -0.1435E-03, -0.1884E-03, -0.2457E-03, -0.3126E-03, -0.3822E-03, & + -0.4480E-03/ data ((h13(ip,iw),iw=1,31), ip= 6, 6)/ & - 0.5713e-09, 0.8263e-09, 0.1060e-08, 0.1226e-08, 0.1252e-08, & - 0.1076e-08, 0.7149e-09, 0.1379e-09, -0.6043e-09, -0.1417e-08, & - -0.2241e-08, -0.2830e-08, -0.2627e-08, -0.8950e-09, 0.3231e-08, & - 0.1075e-07, 0.2278e-07, 0.4037e-07, 0.6439e-07, 0.9576e-07, & - 0.1363e-06, 0.1886e-06, 0.2567e-06, 0.3494e-06, 0.4821e-06, & - 0.6719e-06, 0.9343e-06, 0.1280e-05, 0.1705e-05, 0.2184e-05, & - 0.2651e-05/ + 0.3326E-09, 0.3858E-09, 0.4816E-09, 0.4231E-09, 0.4311E-09, & + 0.4364E-09, 0.6119E-10, -0.7397E-09, -0.2145E-08, -0.4473E-08, & + -0.7238E-08, -0.9707E-08, -0.1161E-07, -0.1314E-07, -0.1397E-07, & + -0.1319E-07, -0.1028E-07, -0.5231E-08, 0.8217E-09, 0.6399E-08, & + 0.9764E-08, 0.1062E-07, 0.1157E-07, 0.1639E-07, 0.3185E-07, & + 0.6721E-07, 0.1355E-06, 0.2539E-06, 0.4333E-06, 0.6767E-06, & + 0.9654E-06/ data ((h11(ip,iw),iw=1,31), ip= 7, 7)/ & - 0.99993700, 0.99989867, 0.99984592, 0.99977797, 0.99969423, & - 0.99959219, 0.99946660, 0.99930722, 0.99909681, 0.99880999, & - 0.99841303, 0.99786001, 0.99708802, 0.99601799, 0.99453998, & - 0.99250001, 0.98969001, 0.98580003, 0.98041999, 0.97299999, & - 0.96279001, 0.94881999, 0.92980999, 0.90407002, 0.86949998, & - 0.82370001, 0.76459998, 0.69089997, 0.60310000, 0.50479996, & - 0.40219998/ + 0.99993646, 0.99989963, 0.99984819, 0.99978095, 0.99969679, & + 0.99959368, 0.99946970, 0.99931306, 0.99910289, 0.99880952, & + 0.99839330, 0.99780440, 0.99697787, 0.99582863, 0.99423826, & + 0.99203920, 0.98899806, 0.98479503, 0.97900313, 0.97104371, & + 0.96013606, 0.94524759, 0.92500275, 0.89758098, 0.86074132, & + 0.81207508, 0.74940544, 0.67149895, 0.57911086, 0.47608691, & + 0.36935675/ data ((h12(ip,iw),iw=1,31), ip= 7, 7)/ & - -0.1932e-06, -0.3467e-06, -0.5623e-06, -0.8306e-06, -0.1136e-05, & - -0.1472e-05, -0.1842e-05, -0.2269e-05, -0.2807e-05, -0.3539e-05, & - -0.4553e-05, -0.5925e-05, -0.7710e-05, -0.9968e-05, -0.1278e-04, & - -0.1629e-04, -0.2073e-04, -0.2644e-04, -0.3392e-04, -0.4390e-04, & - -0.5727e-04, -0.7516e-04, -0.9916e-04, -0.1315e-03, -0.1752e-03, & - -0.2333e-03, -0.3082e-03, -0.3988e-03, -0.4982e-03, -0.5947e-03, & - -0.6764e-03/ + -0.1259E-06, -0.2487E-06, -0.4333E-06, -0.6814E-06, -0.9866E-06, & + -0.1320E-05, -0.1654E-05, -0.2035E-05, -0.2510E-05, -0.3150E-05, & + -0.4022E-05, -0.5191E-05, -0.6710E-05, -0.8678E-05, -0.1121E-04, & + -0.1439E-04, -0.1827E-04, -0.2296E-04, -0.2866E-04, -0.3583E-04, & + -0.4518E-04, -0.5758E-04, -0.7419E-04, -0.9662E-04, -0.1271E-03, & + -0.1682E-03, -0.2216E-03, -0.2861E-03, -0.3562E-03, -0.4242E-03, & + -0.4861E-03/ data ((h13(ip,iw),iw=1,31), ip= 7, 7)/ & - 0.5612e-09, 0.8116e-09, 0.1048e-08, 0.1222e-08, 0.1270e-08, & - 0.1141e-08, 0.8732e-09, 0.4336e-09, -0.6548e-10, -0.4774e-09, & - -0.7556e-09, -0.6577e-09, 0.4377e-09, 0.3359e-08, 0.9159e-08, & - 0.1901e-07, 0.3422e-07, 0.5616e-07, 0.8598e-07, 0.1251e-06, & - 0.1752e-06, 0.2392e-06, 0.3228e-06, 0.4389e-06, 0.6049e-06, & - 0.8370e-06, 0.1150e-05, 0.1547e-05, 0.2012e-05, 0.2493e-05, & - 0.2913e-05/ + 0.3273E-09, 0.3592E-09, 0.4204E-09, 0.3646E-09, 0.3060E-09, & + 0.2954E-09, -0.5854E-10, -0.7584E-09, -0.1932E-08, -0.3941E-08, & + -0.6493E-08, -0.8930E-08, -0.1081E-07, -0.1215E-07, -0.1224E-07, & + -0.1007E-07, -0.5417E-08, 0.1187E-08, 0.8212E-08, 0.1434E-07, & + 0.1746E-07, 0.1858E-07, 0.2183E-07, 0.3396E-07, 0.6291E-07, & + 0.1194E-06, 0.2191E-06, 0.3766E-06, 0.5984E-06, 0.8738E-06, & + 0.1181E-05/ data ((h11(ip,iw),iw=1,31), ip= 8, 8)/ & - 0.99993622, 0.99989682, 0.99984211, 0.99977070, 0.99968100, & - 0.99956948, 0.99942881, 0.99924588, 0.99899900, 0.99865800, & - 0.99818099, 0.99751103, 0.99657297, 0.99526602, 0.99345201, & - 0.99094099, 0.98746002, 0.98264998, 0.97599000, 0.96682000, & - 0.95423001, 0.93708003, 0.91380000, 0.88239998, 0.84060001, & - 0.78610003, 0.71730000, 0.63400000, 0.53859997, 0.43660003, & - 0.33510000/ + 0.99993581, 0.99989760, 0.99984390, 0.99977297, 0.99968249, & + 0.99956971, 0.99942952, 0.99924731, 0.99899793, 0.99864626, & + 0.99814731, 0.99743760, 0.99643582, 0.99503660, 0.99309152, & + 0.99039197, 0.98664820, 0.98146874, 0.97432804, 0.96452290, & + 0.95111614, 0.93286294, 0.90809101, 0.87467122, 0.83021170, & + 0.77239782, 0.69957948, 0.61172736, 0.51155847, 0.40512204, & + 0.30019701/ data ((h12(ip,iw),iw=1,31), ip= 8, 8)/ & - -0.1885e-06, -0.3385e-06, -0.5493e-06, -0.8114e-06, -0.1109e-05, & - -0.1436e-05, -0.1796e-05, -0.2219e-05, -0.2770e-05, -0.3535e-05, & - -0.4609e-05, -0.6077e-05, -0.8016e-05, -0.1051e-04, -0.1367e-04, & - -0.1768e-04, -0.2283e-04, -0.2955e-04, -0.3849e-04, -0.5046e-04, & - -0.6653e-04, -0.8813e-04, -0.1173e-03, -0.1569e-03, -0.2100e-03, & - -0.2794e-03, -0.3656e-03, -0.4637e-03, -0.5629e-03, -0.6512e-03, & - -0.7167e-03/ + -0.1203E-06, -0.2378E-06, -0.4132E-06, -0.6492E-06, -0.9431E-06, & + -0.1259E-05, -0.1582E-05, -0.1948E-05, -0.2410E-05, -0.3031E-05, & + -0.3898E-05, -0.5094E-05, -0.6713E-05, -0.8847E-05, -0.1161E-04, & + -0.1505E-04, -0.1927E-04, -0.2445E-04, -0.3091E-04, -0.3923E-04, & + -0.5023E-04, -0.6496E-04, -0.8494E-04, -0.1123E-03, -0.1495E-03, & + -0.1989E-03, -0.2603E-03, -0.3297E-03, -0.3995E-03, -0.4642E-03, & + -0.5203E-03/ data ((h13(ip,iw),iw=1,31), ip= 8, 8)/ & - 0.5477e-09, 0.8000e-09, 0.1039e-08, 0.1234e-08, 0.1331e-08, & - 0.1295e-08, 0.1160e-08, 0.9178e-09, 0.7535e-09, 0.8301e-09, & - 0.1184e-08, 0.2082e-08, 0.4253e-08, 0.8646e-08, 0.1650e-07, & - 0.2920e-07, 0.4834e-07, 0.7564e-07, 0.1125e-06, 0.1606e-06, & - 0.2216e-06, 0.2992e-06, 0.4031e-06, 0.5493e-06, 0.7549e-06, & - 0.1035e-05, 0.1400e-05, 0.1843e-05, 0.2327e-05, 0.2774e-05, & - 0.3143e-05/ + 0.2634E-09, 0.3033E-09, 0.3592E-09, 0.2900E-09, 0.2528E-09, & + 0.2155E-09, -0.4258E-10, -0.6040E-09, -0.1469E-08, -0.3124E-08, & + -0.5564E-08, -0.8001E-08, -0.9962E-08, -0.1090E-07, -0.9829E-08, & + -0.5867E-08, 0.5805E-09, 0.8262E-08, 0.1622E-07, 0.2218E-07, & + 0.2516E-07, 0.2746E-07, 0.3629E-07, 0.5981E-07, 0.1066E-06, & + 0.1904E-06, 0.3272E-06, 0.5263E-06, 0.7851E-06, 0.1080E-05, & + 0.1425E-05/ data ((h11(ip,iw),iw=1,31), ip= 9, 9)/ & - 0.99993503, 0.99989408, 0.99983650, 0.99975997, 0.99966192, & - 0.99953687, 0.99937540, 0.99916059, 0.99886602, 0.99845397, & - 0.99787402, 0.99705601, 0.99590701, 0.99430102, 0.99206603, & - 0.98896003, 0.98465002, 0.97869003, 0.97044003, 0.95911002, & - 0.94363999, 0.92260998, 0.89419997, 0.85609996, 0.80610001, & - 0.74220002, 0.66359997, 0.57169998, 0.47100002, 0.36860001, & - 0.27079999/ + 0.99993432, 0.99989462, 0.99983770, 0.99976140, 0.99966222, & + 0.99953526, 0.99937302, 0.99915594, 0.99885464, 0.99842918, & + 0.99782312, 0.99695855, 0.99573493, 0.99401993, 0.99162894, & + 0.98830014, 0.98367906, 0.97728425, 0.96847647, 0.95640767, & + 0.93995035, 0.91759145, 0.88733667, 0.84683520, 0.79370028, & + 0.72597051, 0.64295048, 0.54633045, 0.44109100, 0.33477455, & + 0.23450381/ data ((h12(ip,iw),iw=1,31), ip= 9, 9)/ & - -0.1822e-06, -0.3274e-06, -0.5325e-06, -0.7881e-06, -0.1079e-05, & - -0.1398e-05, -0.1754e-05, -0.2184e-05, -0.2763e-05, -0.3581e-05, & - -0.4739e-05, -0.6341e-05, -0.8484e-05, -0.1128e-04, -0.1490e-04, & - -0.1955e-04, -0.2561e-04, -0.3364e-04, -0.4438e-04, -0.5881e-04, & - -0.7822e-04, -0.1045e-03, -0.1401e-03, -0.1884e-03, -0.2523e-03, & - -0.3335e-03, -0.4289e-03, -0.5296e-03, -0.6231e-03, -0.6980e-03, & - -0.7406e-03/ + -0.1112E-06, -0.2231E-06, -0.3897E-06, -0.6124E-06, -0.8909E-06, & + -0.1194E-05, -0.1507E-05, -0.1863E-05, -0.2316E-05, -0.2927E-05, & + -0.3807E-05, -0.5078E-05, -0.6846E-05, -0.9185E-05, -0.1220E-04, & + -0.1598E-04, -0.2064E-04, -0.2648E-04, -0.3397E-04, -0.4378E-04, & + -0.5687E-04, -0.7461E-04, -0.9898E-04, -0.1325E-03, -0.1776E-03, & + -0.2354E-03, -0.3032E-03, -0.3740E-03, -0.4413E-03, -0.5014E-03, & + -0.5464E-03/ data ((h13(ip,iw),iw=1,31), ip= 9, 9)/ & - 0.5334e-09, 0.7859e-09, 0.1043e-08, 0.1279e-08, 0.1460e-08, & - 0.1560e-08, 0.1618e-08, 0.1657e-08, 0.1912e-08, 0.2569e-08, & - 0.3654e-08, 0.5509e-08, 0.8964e-08, 0.1518e-07, 0.2560e-07, & - 0.4178e-07, 0.6574e-07, 0.9958e-07, 0.1449e-06, 0.2031e-06, & - 0.2766e-06, 0.3718e-06, 0.5022e-06, 0.6849e-06, 0.9360e-06, & - 0.1268e-05, 0.1683e-05, 0.2157e-05, 0.2625e-05, 0.3020e-05, & - 0.3364e-05/ + 0.2342E-09, 0.2421E-09, 0.2847E-09, 0.1916E-09, 0.1464E-09, & + 0.1597E-09, 0.2662E-10, -0.2741E-09, -0.8009E-09, -0.2238E-08, & + -0.4534E-08, -0.7041E-08, -0.8877E-08, -0.9047E-08, -0.6429E-08, & + -0.5614E-09, 0.7273E-08, 0.1607E-07, 0.2426E-07, 0.2989E-07, & + 0.3348E-07, 0.3947E-07, 0.5740E-07, 0.9656E-07, 0.1671E-06, & + 0.2848E-06, 0.4616E-06, 0.7007E-06, 0.9846E-06, 0.1305E-05, & + 0.1719E-05/ data ((h11(ip,iw),iw=1,31), ip=10,10)/ & - 0.99993336, 0.99989021, 0.99982840, 0.99974459, 0.99963468, & - 0.99949121, 0.99930137, 0.99904430, 0.99868703, 0.99818403, & - 0.99747300, 0.99646801, 0.99505299, 0.99307102, 0.99030602, & - 0.98645997, 0.98111999, 0.97372001, 0.96353000, 0.94957000, & - 0.93058997, 0.90486002, 0.87029999, 0.82449996, 0.76530004, & - 0.69159997, 0.60380000, 0.50529999, 0.40259999, 0.30269998, & - 0.21020001/ + 0.99993247, 0.99989015, 0.99982893, 0.99974501, 0.99963343, & + 0.99948746, 0.99929446, 0.99903160, 0.99866378, 0.99814367, & + 0.99740094, 0.99633998, 0.99483567, 0.99272412, 0.98977107, & + 0.98565489, 0.97994047, 0.97204179, 0.96118468, 0.94635040, & + 0.92617261, 0.89882028, 0.86202478, 0.81335741, 0.75064027, & + 0.67264533, 0.58013344, 0.47696161, 0.37007034, 0.26708907, & + 0.17368871/ data ((h12(ip,iw),iw=1,31), ip=10,10)/ & - -0.1742e-06, -0.3134e-06, -0.5121e-06, -0.7619e-06, -0.1048e-05, & - -0.1364e-05, -0.1725e-05, -0.2177e-05, -0.2801e-05, -0.3694e-05, & - -0.4969e-05, -0.6748e-05, -0.9161e-05, -0.1236e-04, -0.1655e-04, & - -0.2203e-04, -0.2927e-04, -0.3894e-04, -0.5192e-04, -0.6936e-04, & - -0.9294e-04, -0.1250e-03, -0.1686e-03, -0.2271e-03, -0.3027e-03, & - -0.3944e-03, -0.4951e-03, -0.5928e-03, -0.6755e-03, -0.7309e-03, & - -0.7417e-03/ + -0.1013E-06, -0.2034E-06, -0.3576E-06, -0.5686E-06, -0.8351E-06, & + -0.1128E-05, -0.1435E-05, -0.1790E-05, -0.2238E-05, -0.2853E-05, & + -0.3777E-05, -0.5171E-05, -0.7123E-05, -0.9722E-05, -0.1306E-04, & + -0.1725E-04, -0.2250E-04, -0.2924E-04, -0.3808E-04, -0.4976E-04, & + -0.6553E-04, -0.8717E-04, -0.1171E-03, -0.1580E-03, -0.2117E-03, & + -0.2770E-03, -0.3481E-03, -0.4174E-03, -0.4808E-03, -0.5329E-03, & + -0.5565E-03/ data ((h13(ip,iw),iw=1,31), ip=10,10)/ & - 0.5179e-09, 0.7789e-09, 0.1071e-08, 0.1382e-08, 0.1690e-08, & - 0.1979e-08, 0.2297e-08, 0.2704e-08, 0.3466e-08, 0.4794e-08, & - 0.6746e-08, 0.9739e-08, 0.1481e-07, 0.2331e-07, 0.3679e-07, & - 0.5726e-07, 0.8716e-07, 0.1289e-06, 0.1837e-06, 0.2534e-06, & - 0.3424e-06, 0.4609e-06, 0.6245e-06, 0.8495e-06, 0.1151e-05, & - 0.1536e-05, 0.1991e-05, 0.2468e-05, 0.2891e-05, 0.3245e-05, & - 0.3580e-05/ + 0.2076E-09, 0.2262E-09, 0.2182E-09, 0.1543E-09, 0.1650E-09, & + 0.1916E-09, 0.2688E-09, 0.2342E-09, 0.3996E-10, -0.1211E-08, & + -0.3462E-08, -0.6038E-08, -0.7379E-08, -0.6376E-08, -0.1883E-08, & + 0.5692E-08, 0.1466E-07, 0.2415E-07, 0.3214E-07, 0.3774E-07, & + 0.4336E-07, 0.5669E-07, 0.8802E-07, 0.1476E-06, 0.2487E-06, & + 0.4046E-06, 0.6228E-06, 0.8933E-06, 0.1196E-05, 0.1569E-05, & + 0.2059E-05/ data ((h11(ip,iw),iw=1,31), ip=11,11)/ & - 0.99993110, 0.99988490, 0.99981719, 0.99972337, 0.99959719, & - 0.99942869, 0.99920130, 0.99888903, 0.99845201, 0.99783301, & - 0.99695599, 0.99571502, 0.99396503, 0.99150997, 0.98808002, & - 0.98329997, 0.97667003, 0.96750998, 0.95494002, 0.93779999, & - 0.91453999, 0.88319999, 0.84130001, 0.78689998, 0.71799999, & - 0.63470000, 0.53909999, 0.43699998, 0.33550000, 0.24010003, & - 0.15420002/ + 0.99993002, 0.99988443, 0.99981701, 0.99972272, 0.99959445, & + 0.99942166, 0.99918830, 0.99886608, 0.99841398, 0.99777257, & + 0.99685609, 0.99554735, 0.99369043, 0.99107867, 0.98742169, & + 0.98232460, 0.97525448, 0.96550310, 0.95214033, 0.93393362, & + 0.90921962, 0.87585801, 0.83142829, 0.77359635, 0.70071238, & + 0.61275256, 0.51244217, 0.40584934, 0.30076474, 0.20359278, & + 0.11942053/ data ((h12(ip,iw),iw=1,31), ip=11,11)/ & - -0.1647e-06, -0.2974e-06, -0.4900e-06, -0.7358e-06, -0.1022e-05, & - -0.1344e-05, -0.1721e-05, -0.2212e-05, -0.2901e-05, -0.3896e-05, & - -0.5327e-05, -0.7342e-05, -0.1011e-04, -0.1382e-04, -0.1875e-04, & - -0.2530e-04, -0.3403e-04, -0.4573e-04, -0.6145e-04, -0.8264e-04, & - -0.1114e-03, -0.1507e-03, -0.2039e-03, -0.2737e-03, -0.3607e-03, & - -0.4599e-03, -0.5604e-03, -0.6497e-03, -0.7161e-03, -0.7443e-03, & - -0.7133e-03/ + -0.9120E-07, -0.1840E-06, -0.3247E-06, -0.5275E-06, -0.7826E-06, & + -0.1069E-05, -0.1380E-05, -0.1738E-05, -0.2186E-05, -0.2831E-05, & + -0.3847E-05, -0.5406E-05, -0.7598E-05, -0.1050E-04, -0.1422E-04, & + -0.1896E-04, -0.2502E-04, -0.3296E-04, -0.4348E-04, -0.5756E-04, & + -0.7679E-04, -0.1035E-03, -0.1403E-03, -0.1896E-03, -0.2515E-03, & + -0.3217E-03, -0.3927E-03, -0.4588E-03, -0.5163E-03, -0.5529E-03, & + -0.5392E-03/ data ((h13(ip,iw),iw=1,31), ip=11,11)/ & - 0.5073e-09, 0.7906e-09, 0.1134e-08, 0.1560e-08, 0.2046e-08, & - 0.2589e-08, 0.3254e-08, 0.4107e-08, 0.5481e-08, 0.7602e-08, & - 0.1059e-07, 0.1501e-07, 0.2210e-07, 0.3334e-07, 0.5055e-07, & - 0.7629e-07, 0.1134e-06, 0.1642e-06, 0.2298e-06, 0.3133e-06, & - 0.4225e-06, 0.5709e-06, 0.7739e-06, 0.1047e-05, 0.1401e-05, & - 0.1833e-05, 0.2308e-05, 0.2753e-05, 0.3125e-05, 0.3467e-05, & - 0.3748e-05/ + 0.1756E-09, 0.1943E-09, 0.2315E-09, 0.1863E-09, 0.2289E-09, & + 0.4204E-09, 0.6866E-09, 0.9180E-09, 0.9738E-09, 0.2615E-11, & + -0.2326E-08, -0.4755E-08, -0.5239E-08, -0.2568E-08, 0.3666E-08, & + 0.1248E-07, 0.2263E-07, 0.3208E-07, 0.3976E-07, 0.4653E-07, & + 0.5765E-07, 0.8231E-07, 0.1312E-06, 0.2174E-06, 0.3545E-06, & + 0.5510E-06, 0.8056E-06, 0.1095E-05, 0.1436E-05, 0.1889E-05, & + 0.2378E-05/ data ((h11(ip,iw),iw=1,31), ip=12,12)/ & - 0.99992824, 0.99987793, 0.99980247, 0.99969512, 0.99954712, & - 0.99934530, 0.99906880, 0.99868500, 0.99814498, 0.99738002, & - 0.99629498, 0.99475700, 0.99258602, 0.98953998, 0.98527998, & - 0.97934997, 0.97112000, 0.95981002, 0.94433999, 0.92332000, & - 0.89490002, 0.85680002, 0.80680001, 0.74290001, 0.66420001, & - 0.57220000, 0.47149998, 0.36900002, 0.27109998, 0.18159997, & - 0.10460001/ + 0.99992687, 0.99987698, 0.99980158, 0.99969339, 0.99954218, & + 0.99933404, 0.99904799, 0.99865049, 0.99809140, 0.99729615, & + 0.99616045, 0.99453890, 0.99224001, 0.98900169, 0.98446733, & + 0.97815216, 0.96940953, 0.95738846, 0.94096935, 0.91864955, & + 0.88844192, 0.84798515, 0.79486394, 0.72709715, 0.64399153, & + 0.54724288, 0.44184703, 0.33536971, 0.23494369, 0.14573598, & + 0.07395160/ data ((h12(ip,iw),iw=1,31), ip=12,12)/ & - -0.1548e-06, -0.2808e-06, -0.4683e-06, -0.7142e-06, -0.1008e-05, & - -0.1347e-05, -0.1758e-05, -0.2306e-05, -0.3083e-05, -0.4214e-05, & - -0.5851e-05, -0.8175e-05, -0.1140e-04, -0.1577e-04, -0.2166e-04, & - -0.2955e-04, -0.4014e-04, -0.5434e-04, -0.7343e-04, -0.9931e-04, & - -0.1346e-03, -0.1826e-03, -0.2467e-03, -0.3283e-03, -0.4246e-03, & - -0.5264e-03, -0.6211e-03, -0.6970e-03, -0.7402e-03, -0.7316e-03, & - -0.6486e-03/ + -0.7928E-07, -0.1639E-06, -0.2965E-06, -0.4862E-06, -0.7376E-06, & + -0.1025E-05, -0.1346E-05, -0.1712E-05, -0.2179E-05, -0.2892E-05, & + -0.4051E-05, -0.5820E-05, -0.8295E-05, -0.1157E-04, -0.1578E-04, & + -0.2124E-04, -0.2840E-04, -0.3787E-04, -0.5051E-04, -0.6766E-04, & + -0.9138E-04, -0.1243E-03, -0.1691E-03, -0.2270E-03, -0.2954E-03, & + -0.3672E-03, -0.4357E-03, -0.4972E-03, -0.5437E-03, -0.5514E-03, & + -0.4828E-03/ data ((h13(ip,iw),iw=1,31), ip=12,12)/ & - 0.5078e-09, 0.8244e-09, 0.1255e-08, 0.1826e-08, 0.2550e-08, & - 0.3438e-08, 0.4532e-08, 0.5949e-08, 0.8041e-08, 0.1110e-07, & - 0.1534e-07, 0.2157e-07, 0.3116e-07, 0.4570e-07, 0.6747e-07, & - 0.9961e-07, 0.1451e-06, 0.2061e-06, 0.2843e-06, 0.3855e-06, & - 0.5213e-06, 0.7060e-06, 0.9544e-06, 0.1280e-05, 0.1684e-05, & - 0.2148e-05, 0.2609e-05, 0.3002e-05, 0.3349e-05, 0.3670e-05, & - 0.3780e-05/ + 0.1703E-09, 0.1809E-09, 0.2288E-09, 0.2209E-09, 0.4417E-09, & + 0.8063E-09, 0.1264E-08, 0.1786E-08, 0.2033E-08, 0.1171E-08, & + -0.1000E-08, -0.2810E-08, -0.2134E-08, 0.2190E-08, 0.9878E-08, & + 0.1981E-07, 0.3034E-07, 0.3958E-07, 0.4771E-07, 0.5816E-07, & + 0.7848E-07, 0.1187E-06, 0.1909E-06, 0.3103E-06, 0.4864E-06, & + 0.7222E-06, 0.1001E-05, 0.1316E-05, 0.1726E-05, 0.2231E-05, & + 0.2554E-05/ data ((h11(ip,iw),iw=1,31), ip=13,13)/ & - 0.99992472, 0.99986941, 0.99978399, 0.99965900, 0.99948251, & - 0.99923742, 0.99889702, 0.99842298, 0.99775398, 0.99680400, & - 0.99545598, 0.99354500, 0.99084800, 0.98706001, 0.98176998, & - 0.97439998, 0.96423000, 0.95029002, 0.93129998, 0.90557003, & - 0.87099999, 0.82520002, 0.76600003, 0.69220001, 0.60440004, & - 0.50580001, 0.40310001, 0.30299997, 0.21039999, 0.12860000, & - 0.06360000/ + 0.99992329, 0.99986815, 0.99978262, 0.99965620, 0.99947554, & + 0.99922138, 0.99886787, 0.99837518, 0.99767971, 0.99669021, & + 0.99527812, 0.99326670, 0.99041331, 0.98639458, 0.98077095, & + 0.97295225, 0.96215779, 0.94736737, 0.92722213, 0.89990038, & + 0.86313921, 0.81449950, 0.75177604, 0.67372197, 0.58109993, & + 0.47777659, 0.37071592, 0.26757157, 0.17401850, 0.09552824, & + 0.03950775/ data ((h12(ip,iw),iw=1,31), ip=13,13)/ & - -0.1461e-06, -0.2663e-06, -0.4512e-06, -0.7027e-06, -0.1014e-05, & - -0.1387e-05, -0.1851e-05, -0.2478e-05, -0.3373e-05, -0.4682e-05, & - -0.6588e-05, -0.9311e-05, -0.1311e-04, -0.1834e-04, -0.2544e-04, & - -0.3502e-04, -0.4789e-04, -0.6515e-04, -0.8846e-04, -0.1202e-03, & - -0.1635e-03, -0.2217e-03, -0.2975e-03, -0.3897e-03, -0.4913e-03, & - -0.5902e-03, -0.6740e-03, -0.7302e-03, -0.7415e-03, -0.6858e-03, & - -0.5447e-03/ + -0.7227E-07, -0.1493E-06, -0.2728E-06, -0.4566E-06, -0.7047E-06, & + -0.1007E-05, -0.1345E-05, -0.1730E-05, -0.2248E-05, -0.3078E-05, & + -0.4417E-05, -0.6439E-05, -0.9257E-05, -0.1298E-04, -0.1785E-04, & + -0.2429E-04, -0.3284E-04, -0.4422E-04, -0.5958E-04, -0.8071E-04, & + -0.1101E-03, -0.1506E-03, -0.2041E-03, -0.2696E-03, -0.3414E-03, & + -0.4118E-03, -0.4764E-03, -0.5299E-03, -0.5548E-03, -0.5160E-03, & + -0.3857E-03/ data ((h13(ip,iw),iw=1,31), ip=13,13)/ & - 0.5236e-09, 0.8873e-09, 0.1426e-08, 0.2193e-08, 0.3230e-08, & - 0.4555e-08, 0.6200e-08, 0.8298e-08, 0.1126e-07, 0.1544e-07, & - 0.2130e-07, 0.2978e-07, 0.4239e-07, 0.6096e-07, 0.8829e-07, & - 0.1280e-06, 0.1830e-06, 0.2555e-06, 0.3493e-06, 0.4740e-06, & - 0.6431e-06, 0.8701e-06, 0.1169e-05, 0.1547e-05, 0.1992e-05, & - 0.2460e-05, 0.2877e-05, 0.3230e-05, 0.3569e-05, 0.3782e-05, & - 0.3591e-05/ + 0.1836E-09, 0.1863E-09, 0.2794E-09, 0.4045E-09, 0.7264E-09, & + 0.1338E-08, 0.2086E-08, 0.2746E-08, 0.3257E-08, 0.2645E-08, & + 0.9448E-09, -0.1853E-10, 0.2065E-08, 0.7783E-08, 0.1645E-07, & + 0.2703E-07, 0.3746E-07, 0.4680E-07, 0.5701E-07, 0.7468E-07, & + 0.1085E-06, 0.1693E-06, 0.2717E-06, 0.4286E-06, 0.6452E-06, & + 0.9119E-06, 0.1209E-05, 0.1577E-05, 0.2063E-05, 0.2494E-05, & + 0.2469E-05/ data ((h11(ip,iw),iw=1,31), ip=14,14)/ & - 0.99992090, 0.99985969, 0.99976218, 0.99961531, 0.99940270, & - 0.99910218, 0.99868101, 0.99809098, 0.99725902, 0.99607700, & - 0.99440002, 0.99202299, 0.98866999, 0.98395997, 0.97737998, & - 0.96825999, 0.95570999, 0.93857002, 0.91531003, 0.88389999, & - 0.84210002, 0.78759998, 0.71869999, 0.63530004, 0.53970003, & - 0.43750000, 0.33590001, 0.24040002, 0.15439999, 0.08300000, & - 0.03299999/ + 0.99991977, 0.99985856, 0.99976057, 0.99961144, 0.99939293, & + 0.99908102, 0.99864274, 0.99802899, 0.99716157, 0.99592775, & + 0.99416977, 0.99166948, 0.98812658, 0.98314106, 0.97617304, & + 0.96650791, 0.95320976, 0.93504637, 0.91035986, 0.87701780, & + 0.83260548, 0.77477765, 0.70185912, 0.61381042, 0.51335931, & + 0.40658849, 0.30131996, 0.20398021, 0.11965722, 0.05530477, & + 0.01708663/ data ((h12(ip,iw),iw=1,31), ip=14,14)/ & - -0.1402e-06, -0.2569e-06, -0.4428e-06, -0.7076e-06, -0.1051e-05, & - -0.1478e-05, -0.2019e-05, -0.2752e-05, -0.3802e-05, -0.5343e-05, & - -0.7594e-05, -0.1082e-04, -0.1536e-04, -0.2166e-04, -0.3028e-04, & - -0.4195e-04, -0.5761e-04, -0.7867e-04, -0.1072e-03, -0.1462e-03, & - -0.1990e-03, -0.2687e-03, -0.3559e-03, -0.4558e-03, -0.5572e-03, & - -0.6476e-03, -0.7150e-03, -0.7439e-03, -0.7133e-03, -0.6015e-03, & - -0.4089e-03/ + -0.6855E-07, -0.1384E-06, -0.2600E-06, -0.4393E-06, -0.6962E-06, & + -0.1021E-05, -0.1392E-05, -0.1819E-05, -0.2428E-05, -0.3415E-05, & + -0.4978E-05, -0.7293E-05, -0.1051E-04, -0.1483E-04, -0.2057E-04, & + -0.2826E-04, -0.3856E-04, -0.5237E-04, -0.7122E-04, -0.9747E-04, & + -0.1339E-03, -0.1829E-03, -0.2447E-03, -0.3153E-03, -0.3870E-03, & + -0.4542E-03, -0.5130E-03, -0.5509E-03, -0.5383E-03, -0.4388E-03, & + -0.2635E-03/ data ((h13(ip,iw),iw=1,31), ip=14,14)/ & - 0.5531e-09, 0.9757e-09, 0.1644e-08, 0.2650e-08, 0.4074e-08, & - 0.5957e-08, 0.8314e-08, 0.1128e-07, 0.1528e-07, 0.2087e-07, & - 0.2874e-07, 0.4002e-07, 0.5631e-07, 0.7981e-07, 0.1139e-06, & - 0.1621e-06, 0.2275e-06, 0.3136e-06, 0.4280e-06, 0.5829e-06, & - 0.7917e-06, 0.1067e-05, 0.1419e-05, 0.1844e-05, 0.2310e-05, & - 0.2747e-05, 0.3113e-05, 0.3455e-05, 0.3739e-05, 0.3715e-05, & - 0.3125e-05/ + 0.1756E-09, 0.2049E-09, 0.3858E-09, 0.6227E-09, 0.1150E-08, & + 0.1977E-08, 0.3036E-08, 0.3978E-08, 0.4649E-08, 0.4476E-08, & + 0.3773E-08, 0.4130E-08, 0.7338E-08, 0.1390E-07, 0.2331E-07, & + 0.3377E-07, 0.4386E-07, 0.5410E-07, 0.6971E-07, 0.9880E-07, & + 0.1503E-06, 0.2381E-06, 0.3766E-06, 0.5735E-06, 0.8258E-06, & + 0.1111E-05, 0.1446E-05, 0.1895E-05, 0.2381E-05, 0.2551E-05, & + 0.2071E-05/ data ((h11(ip,iw),iw=1,31), ip=15,15)/ & - 0.99991709, 0.99984968, 0.99973857, 0.99956548, 0.99930853, & - 0.99893898, 0.99841601, 0.99768001, 0.99664098, 0.99516898, & - 0.99308002, 0.99012297, 0.98594999, 0.98009998, 0.97194999, & - 0.96066999, 0.94523001, 0.92421001, 0.89579999, 0.85769999, & - 0.80760002, 0.74360001, 0.66490000, 0.57290000, 0.47200000, & - 0.36940002, 0.27139997, 0.18180001, 0.10479999, 0.04699999, & - 0.01359999/ + 0.99991643, 0.99984878, 0.99973679, 0.99956077, 0.99929637, & + 0.99891269, 0.99836808, 0.99760133, 0.99651724, 0.99497712, & + 0.99278837, 0.98967999, 0.98528343, 0.97910392, 0.97048581, & + 0.95856780, 0.94222379, 0.91995072, 0.88976622, 0.84931463, & + 0.79618502, 0.72838539, 0.64520276, 0.54832244, 0.44274497, & + 0.33605832, 0.23542911, 0.14604336, 0.07411176, 0.02684504, & + 0.00543809/ data ((h12(ip,iw),iw=1,31), ip=15,15)/ & - -0.1378e-06, -0.2542e-06, -0.4461e-06, -0.7333e-06, -0.1125e-05, & - -0.1630e-05, -0.2281e-05, -0.3159e-05, -0.4410e-05, -0.6246e-05, & - -0.8933e-05, -0.1280e-04, -0.1826e-04, -0.2589e-04, -0.3639e-04, & - -0.5059e-04, -0.6970e-04, -0.9552e-04, -0.1307e-03, -0.1784e-03, & - -0.2422e-03, -0.3237e-03, -0.4203e-03, -0.5227e-03, -0.6184e-03, & - -0.6953e-03, -0.7395e-03, -0.7315e-03, -0.6487e-03, -0.4799e-03, & - -0.2625e-03/ + -0.6810E-07, -0.1377E-06, -0.2556E-06, -0.4445E-06, -0.7154E-06, & + -0.1075E-05, -0.1499E-05, -0.2014E-05, -0.2759E-05, -0.3932E-05, & + -0.5740E-05, -0.8407E-05, -0.1213E-04, -0.1719E-04, -0.2405E-04, & + -0.3332E-04, -0.4580E-04, -0.6272E-04, -0.8612E-04, -0.1188E-03, & + -0.1633E-03, -0.2210E-03, -0.2895E-03, -0.3617E-03, -0.4311E-03, & + -0.4937E-03, -0.5413E-03, -0.5503E-03, -0.4826E-03, -0.3261E-03, & + -0.1467E-03/ data ((h13(ip,iw),iw=1,31), ip=15,15)/ & - 0.5891e-09, 0.1074e-08, 0.1885e-08, 0.3167e-08, 0.5051e-08, & - 0.7631e-08, 0.1092e-07, 0.1500e-07, 0.2032e-07, 0.2769e-07, & - 0.3810e-07, 0.5279e-07, 0.7361e-07, 0.1032e-06, 0.1450e-06, & - 0.2026e-06, 0.2798e-06, 0.3832e-06, 0.5242e-06, 0.7159e-06, & - 0.9706e-06, 0.1299e-05, 0.1701e-05, 0.2159e-05, 0.2612e-05, & - 0.2998e-05, 0.3341e-05, 0.3661e-05, 0.3775e-05, 0.3393e-05, & - 0.2384e-05/ + 0.1783E-09, 0.2661E-09, 0.4763E-09, 0.8488E-09, 0.1562E-08, & + 0.2685E-08, 0.4127E-08, 0.5465E-08, 0.6514E-08, 0.7110E-08, & + 0.7674E-08, 0.9292E-08, 0.1364E-07, 0.2094E-07, 0.3012E-07, & + 0.3983E-07, 0.4977E-07, 0.6293E-07, 0.8733E-07, 0.1321E-06, & + 0.2078E-06, 0.3297E-06, 0.5076E-06, 0.7436E-06, 0.1020E-05, & + 0.1330E-05, 0.1735E-05, 0.2236E-05, 0.2557E-05, 0.2309E-05, & + 0.1429E-05/ data ((h11(ip,iw),iw=1,31), ip=16,16)/ & - 0.99991363, 0.99984020, 0.99971467, 0.99951237, 0.99920303, & - 0.99874902, 0.99809903, 0.99717999, 0.99588197, 0.99404502, & - 0.99144298, 0.98776001, 0.98258001, 0.97533000, 0.96524000, & - 0.95135999, 0.93241000, 0.90667999, 0.87199998, 0.82620001, & - 0.76700002, 0.69309998, 0.60510004, 0.50650001, 0.40359998, & - 0.30350000, 0.21069998, 0.12870002, 0.06370002, 0.02200001, & - 0.00389999/ + 0.99991357, 0.99983984, 0.99971312, 0.99950707, 0.99918896, & + 0.99871838, 0.99804187, 0.99708277, 0.99572664, 0.99380535, & + 0.99107963, 0.98721790, 0.98176694, 0.97412360, 0.96349198, & + 0.94883859, 0.92879146, 0.90152681, 0.86478388, 0.81612718, & + 0.75335342, 0.67520702, 0.58244193, 0.47892416, 0.37162650, & + 0.26823258, 0.17444962, 0.09576660, 0.03960651, 0.01011747, & + 0.00102341/ data ((h12(ip,iw),iw=1,31), ip=16,16)/ & - -0.1383e-06, -0.2577e-06, -0.4608e-06, -0.7793e-06, -0.1237e-05, & - -0.1850e-05, -0.2652e-05, -0.3728e-05, -0.5244e-05, -0.7451e-05, & - -0.1067e-04, -0.1532e-04, -0.2193e-04, -0.3119e-04, -0.4395e-04, & - -0.6126e-04, -0.8466e-04, -0.1164e-03, -0.1596e-03, -0.2177e-03, & - -0.2933e-03, -0.3855e-03, -0.4874e-03, -0.5870e-03, -0.6718e-03, & - -0.7290e-03, -0.7411e-03, -0.6859e-03, -0.5450e-03, -0.3353e-03, & - -0.1363e-03/ + -0.7123E-07, -0.1392E-06, -0.2623E-06, -0.4614E-06, -0.7631E-06, & + -0.1175E-05, -0.1687E-05, -0.2338E-05, -0.3251E-05, -0.4638E-05, & + -0.6743E-05, -0.9820E-05, -0.1416E-04, -0.2017E-04, -0.2841E-04, & + -0.3961E-04, -0.5484E-04, -0.7580E-04, -0.1050E-03, -0.1453E-03, & + -0.1987E-03, -0.2642E-03, -0.3362E-03, -0.4071E-03, -0.4727E-03, & + -0.5273E-03, -0.5534E-03, -0.5157E-03, -0.3859E-03, -0.2025E-03, & + -0.6303E-04/ data ((h13(ip,iw),iw=1,31), ip=16,16)/ & - 0.6217e-09, 0.1165e-08, 0.2116e-08, 0.3685e-08, 0.6101e-08, & - 0.9523e-08, 0.1400e-07, 0.1959e-07, 0.2668e-07, 0.3629e-07, & - 0.4982e-07, 0.6876e-07, 0.9523e-07, 0.1321e-06, 0.1825e-06, & - 0.2505e-06, 0.3420e-06, 0.4677e-06, 0.6416e-06, 0.8760e-06, & - 0.1183e-05, 0.1565e-05, 0.2010e-05, 0.2472e-05, 0.2882e-05, & - 0.3229e-05, 0.3564e-05, 0.3777e-05, 0.3589e-05, 0.2786e-05, & - 0.1487e-05/ + 0.1650E-09, 0.2714E-09, 0.5588E-09, 0.1048E-08, 0.1950E-08, & + 0.3403E-08, 0.5359E-08, 0.7328E-08, 0.9023E-08, 0.1066E-07, & + 0.1267E-07, 0.1573E-07, 0.2106E-07, 0.2879E-07, 0.3714E-07, & + 0.4545E-07, 0.5583E-07, 0.7454E-07, 0.1117E-06, 0.1777E-06, & + 0.2851E-06, 0.4461E-06, 0.6655E-06, 0.9322E-06, 0.1227E-05, & + 0.1590E-05, 0.2072E-05, 0.2499E-05, 0.2472E-05, 0.1771E-05, & + 0.7569E-06/ data ((h11(ip,iw),iw=1,31), ip=17,17)/ & - 0.99991077, 0.99983180, 0.99969262, 0.99945968, 0.99909151, & - 0.99853700, 0.99773198, 0.99658400, 0.99496001, 0.99266702, & - 0.98943001, 0.98484999, 0.97842997, 0.96945000, 0.95703000, & - 0.93998998, 0.91676998, 0.88540000, 0.84350002, 0.78890002, & - 0.71990001, 0.63639998, 0.54060000, 0.43820000, 0.33639997, & - 0.24080002, 0.15460002, 0.08310002, 0.03310001, 0.00770003, & - 0.00050002/ + 0.99991143, 0.99983215, 0.99969172, 0.99945456, 0.99907631, & + 0.99850315, 0.99766576, 0.99646872, 0.99477261, 0.99237478, & + 0.98898262, 0.98418909, 0.97744209, 0.96801037, 0.95493895, & + 0.93697095, 0.91242504, 0.87915903, 0.83475697, 0.77687484, & + 0.70383525, 0.61560035, 0.51490510, 0.40784776, 0.30227286, & + 0.20463216, 0.12004054, 0.05548018, 0.01713908, 0.00259376, & + 0.00004685/ data ((h12(ip,iw),iw=1,31), ip=17,17)/ & - -0.1405e-06, -0.2649e-06, -0.4829e-06, -0.8398e-06, -0.1379e-05, & - -0.2132e-05, -0.3138e-05, -0.4487e-05, -0.6353e-05, -0.9026e-05, & - -0.1290e-04, -0.1851e-04, -0.2650e-04, -0.3772e-04, -0.5319e-04, & - -0.7431e-04, -0.1031e-03, -0.1422e-03, -0.1951e-03, -0.2648e-03, & - -0.3519e-03, -0.4518e-03, -0.5537e-03, -0.6449e-03, -0.7133e-03, & - -0.7432e-03, -0.7133e-03, -0.6018e-03, -0.4092e-03, -0.1951e-03, & - -0.5345e-04/ + -0.7317E-07, -0.1447E-06, -0.2733E-06, -0.4910E-06, -0.8335E-06, & + -0.1321E-05, -0.1957E-05, -0.2790E-05, -0.3920E-05, -0.5563E-05, & + -0.8004E-05, -0.1158E-04, -0.1668E-04, -0.2382E-04, -0.3369E-04, & + -0.4728E-04, -0.6605E-04, -0.9223E-04, -0.1286E-03, -0.1776E-03, & + -0.2395E-03, -0.3103E-03, -0.3824E-03, -0.4503E-03, -0.5101E-03, & + -0.5494E-03, -0.5380E-03, -0.4392E-03, -0.2639E-03, -0.9981E-04, & + -0.1906E-04/ data ((h13(ip,iw),iw=1,31), ip=17,17)/ & - 0.6457e-09, 0.1235e-08, 0.2303e-08, 0.4149e-08, 0.7120e-08, & - 0.1152e-07, 0.1749e-07, 0.2508e-07, 0.3462e-07, 0.4718e-07, & - 0.6452e-07, 0.8874e-07, 0.1222e-06, 0.1675e-06, 0.2276e-06, & - 0.3076e-06, 0.4174e-06, 0.5714e-06, 0.7837e-06, 0.1067e-05, & - 0.1428e-05, 0.1859e-05, 0.2327e-05, 0.2760e-05, 0.3122e-05, & - 0.3458e-05, 0.3739e-05, 0.3715e-05, 0.3126e-05, 0.1942e-05, & - 0.6977e-06/ + 0.1091E-09, 0.2634E-09, 0.5215E-09, 0.1136E-08, 0.2259E-08, & + 0.4055E-08, 0.6583E-08, 0.9470E-08, 0.1237E-07, 0.1527E-07, & + 0.1871E-07, 0.2347E-07, 0.3031E-07, 0.3802E-07, 0.4478E-07, & + 0.5135E-07, 0.6383E-07, 0.9137E-07, 0.1453E-06, 0.2389E-06, & + 0.3848E-06, 0.5883E-06, 0.8449E-06, 0.1131E-05, 0.1463E-05, & + 0.1908E-05, 0.2391E-05, 0.2557E-05, 0.2076E-05, 0.1082E-05, & + 0.2792E-06/ data ((h11(ip,iw),iw=1,31), ip=18,18)/ & - 0.99990851, 0.99982500, 0.99967349, 0.99941093, 0.99897999, & - 0.99831200, 0.99732101, 0.99589097, 0.99386197, 0.99099803, & - 0.98695999, 0.98128998, 0.97333002, 0.96227002, 0.94700998, & - 0.92614001, 0.89779997, 0.85969996, 0.80949998, 0.74540001, & - 0.66649997, 0.57420003, 0.47310001, 0.37029999, 0.27200001, & - 0.18220001, 0.10500002, 0.04710001, 0.01359999, 0.00169998, & - 0.00000000/ + 0.99990946, 0.99982589, 0.99967337, 0.99940664, 0.99896580, & + 0.99827647, 0.99724770, 0.99575895, 0.99364209, 0.99064904, & + 0.98642915, 0.98048556, 0.97215050, 0.96054798, 0.94452488, & + 0.92253780, 0.89256215, 0.85221606, 0.79907858, 0.73115838, & + 0.64774114, 0.55052960, 0.44456220, 0.33746827, 0.23644471, & + 0.14668953, 0.07444155, 0.02696061, 0.00545985, 0.00031263, & + -0.00000322/ data ((h12(ip,iw),iw=1,31), ip=18,18)/ & - -0.1431e-06, -0.2731e-06, -0.5072e-06, -0.9057e-06, -0.1537e-05, & - -0.2460e-05, -0.3733e-05, -0.5449e-05, -0.7786e-05, -0.1106e-04, & - -0.1574e-04, -0.2249e-04, -0.3212e-04, -0.4564e-04, -0.6438e-04, & - -0.9019e-04, -0.1256e-03, -0.1737e-03, -0.2378e-03, -0.3196e-03, & - -0.4163e-03, -0.5191e-03, -0.6154e-03, -0.6931e-03, -0.7384e-03, & - -0.7313e-03, -0.6492e-03, -0.4805e-03, -0.2629e-03, -0.8897e-04, & - -0.1432e-04/ + -0.7570E-07, -0.1469E-06, -0.2858E-06, -0.5222E-06, -0.9127E-06, & + -0.1498E-05, -0.2307E-05, -0.3365E-05, -0.4779E-05, -0.6756E-05, & + -0.9608E-05, -0.1377E-04, -0.1974E-04, -0.2818E-04, -0.3999E-04, & + -0.5657E-04, -0.7991E-04, -0.1126E-03, -0.1574E-03, -0.2154E-03, & + -0.2842E-03, -0.3569E-03, -0.4269E-03, -0.4905E-03, -0.5395E-03, & + -0.5500E-03, -0.4833E-03, -0.3269E-03, -0.1471E-03, -0.3641E-04, & + -0.3430E-05/ data ((h13(ip,iw),iw=1,31), ip=18,18)/ & - 0.6607e-09, 0.1282e-08, 0.2441e-08, 0.4522e-08, 0.8027e-08, & - 0.1348e-07, 0.2122e-07, 0.3139e-07, 0.4435e-07, 0.6095e-07, & - 0.8319e-07, 0.1139e-06, 0.1557e-06, 0.2107e-06, 0.2819e-06, & - 0.3773e-06, 0.5107e-06, 0.6982e-06, 0.9542e-06, 0.1290e-05, & - 0.1703e-05, 0.2170e-05, 0.2628e-05, 0.3013e-05, 0.3352e-05, & - 0.3669e-05, 0.3780e-05, 0.3397e-05, 0.2386e-05, 0.1062e-05, & - 0.2216e-06/ + 0.1064E-09, 0.2501E-09, 0.5003E-09, 0.1160E-08, 0.2339E-08, & + 0.4481E-08, 0.7802E-08, 0.1189E-07, 0.1626E-07, 0.2106E-07, & + 0.2641E-07, 0.3327E-07, 0.4151E-07, 0.4900E-07, 0.5392E-07, & + 0.5960E-07, 0.7616E-07, 0.1158E-06, 0.1920E-06, 0.3203E-06, & + 0.5085E-06, 0.7546E-06, 0.1037E-05, 0.1348E-05, 0.1751E-05, & + 0.2249E-05, 0.2568E-05, 0.2318E-05, 0.1434E-05, 0.4850E-06, & + 0.6147E-07/ data ((h11(ip,iw),iw=1,31), ip=19,19)/ & - 0.99990678, 0.99981970, 0.99965781, 0.99936831, 0.99887598, & - 0.99808502, 0.99687898, 0.99510998, 0.99257898, 0.98900002, & - 0.98398000, 0.97693998, 0.96711999, 0.95353001, 0.93484998, & - 0.90934002, 0.87479997, 0.82900000, 0.76960003, 0.69550002, & - 0.60720003, 0.50819999, 0.40490001, 0.30440003, 0.21130002, & - 0.12910002, 0.06389999, 0.02200001, 0.00389999, 0.00010002, & - 0.00000000/ + 0.99990809, 0.99982101, 0.99965847, 0.99936569, 0.99886382, & + 0.99805009, 0.99680185, 0.99496508, 0.99232858, 0.98859704, & + 0.98334807, 0.97598833, 0.96571696, 0.95148486, 0.93188584, & + 0.90503371, 0.86859643, 0.82008219, 0.75725996, 0.67887831, & + 0.58570331, 0.48164380, 0.37376148, 0.26981497, 0.17552531, & + 0.09638405, 0.03986549, 0.01018095, 0.00102937, -0.00001919, & + 0.00002277/ data ((h12(ip,iw),iw=1,31), ip=19,19)/ & - -0.1454e-06, -0.2805e-06, -0.5296e-06, -0.9685e-06, -0.1695e-05, & - -0.2812e-05, -0.4412e-05, -0.6606e-05, -0.9573e-05, -0.1363e-04, & - -0.1932e-04, -0.2743e-04, -0.3897e-04, -0.5520e-04, -0.7787e-04, & - -0.1094e-03, -0.1529e-03, -0.2117e-03, -0.2880e-03, -0.3809e-03, & - -0.4834e-03, -0.5836e-03, -0.6692e-03, -0.7275e-03, -0.7408e-03, & - -0.6865e-03, -0.5459e-03, -0.3360e-03, -0.1365e-03, -0.2935e-04, & - -0.2173e-05/ + -0.7674E-07, -0.1508E-06, -0.2928E-06, -0.5484E-06, -0.9875E-06, & + -0.1686E-05, -0.2688E-05, -0.4039E-05, -0.5848E-05, -0.8267E-05, & + -0.1163E-04, -0.1646E-04, -0.2340E-04, -0.3331E-04, -0.4747E-04, & + -0.6780E-04, -0.9689E-04, -0.1375E-03, -0.1914E-03, -0.2577E-03, & + -0.3305E-03, -0.4023E-03, -0.4689E-03, -0.5251E-03, -0.5529E-03, & + -0.5167E-03, -0.3875E-03, -0.2035E-03, -0.6335E-04, -0.8814E-05, & + -0.8413E-07/ data ((h13(ip,iw),iw=1,31), ip=19,19)/ & - 0.6693e-09, 0.1312e-08, 0.2538e-08, 0.4802e-08, 0.8778e-08, & - 0.1528e-07, 0.2501e-07, 0.3836e-07, 0.5578e-07, 0.7806e-07, & - 0.1069e-06, 0.1456e-06, 0.1970e-06, 0.2631e-06, 0.3485e-06, & - 0.4642e-06, 0.6268e-06, 0.8526e-06, 0.1157e-05, 0.1545e-05, & - 0.2002e-05, 0.2478e-05, 0.2897e-05, 0.3245e-05, 0.3578e-05, & - 0.3789e-05, 0.3598e-05, 0.2792e-05, 0.1489e-05, 0.4160e-06, & - 0.3843e-07/ + 0.8781E-10, 0.2288E-09, 0.5029E-09, 0.1080E-08, 0.2270E-08, & + 0.4718E-08, 0.8643E-08, 0.1400E-07, 0.2073E-07, 0.2828E-07, & + 0.3633E-07, 0.4565E-07, 0.5519E-07, 0.6210E-07, 0.6573E-07, & + 0.7294E-07, 0.9672E-07, 0.1524E-06, 0.2575E-06, 0.4244E-06, & + 0.6566E-06, 0.9373E-06, 0.1241E-05, 0.1605E-05, 0.2086E-05, & + 0.2513E-05, 0.2486E-05, 0.1781E-05, 0.7609E-06, 0.1439E-06, & + 0.4409E-08/ data ((h11(ip,iw),iw=1,31), ip=20,20)/ & - 0.99990559, 0.99981570, 0.99964547, 0.99933308, 0.99878299, & - 0.99786699, 0.99642301, 0.99425799, 0.99111998, 0.98667002, & - 0.98041999, 0.97170001, 0.95960999, 0.94295001, 0.92012000, & - 0.88900000, 0.84740001, 0.79280001, 0.72360003, 0.63960004, & - 0.54330003, 0.44029999, 0.33800000, 0.24190003, 0.15530002, & - 0.08350003, 0.03320003, 0.00770003, 0.00050002, 0.00000000, & - 0.00000000/ + 0.99990726, 0.99981779, 0.99964726, 0.99933219, 0.99877435, & + 0.99783629, 0.99634784, 0.99410510, 0.99084204, 0.98620075, & + 0.97967792, 0.97057611, 0.95794863, 0.94052535, 0.91658264, & + 0.88388997, 0.83991259, 0.78220361, 0.70903510, 0.62037933, & + 0.51901436, 0.41113460, 0.30474180, 0.20637417, 0.12113369, & + 0.05601943, 0.01731062, 0.00261897, 0.00004733, 0.00001419, & + 0.00001651/ data ((h12(ip,iw),iw=1,31), ip=20,20)/ & - -0.1472e-06, -0.2866e-06, -0.5485e-06, -0.1024e-05, -0.1842e-05, & - -0.3160e-05, -0.5136e-05, -0.7922e-05, -0.1171e-04, -0.1682e-04, & - -0.2381e-04, -0.3355e-04, -0.4729e-04, -0.6673e-04, -0.9417e-04, & - -0.1327e-03, -0.1858e-03, -0.2564e-03, -0.3449e-03, -0.4463e-03, & - -0.5495e-03, -0.6420e-03, -0.7116e-03, -0.7427e-03, -0.7139e-03, & - -0.6031e-03, -0.4104e-03, -0.1957e-03, -0.5358e-04, -0.6176e-05, & - -0.1347e-06/ + -0.7704E-07, -0.1520E-06, -0.2986E-06, -0.5707E-06, -0.1053E-05, & + -0.1857E-05, -0.3076E-05, -0.4799E-05, -0.7103E-05, -0.1014E-04, & + -0.1418E-04, -0.1979E-04, -0.2779E-04, -0.3940E-04, -0.5643E-04, & + -0.8143E-04, -0.1174E-03, -0.1669E-03, -0.2299E-03, -0.3022E-03, & + -0.3760E-03, -0.4455E-03, -0.5071E-03, -0.5484E-03, -0.5390E-03, & + -0.4416E-03, -0.2659E-03, -0.1006E-03, -0.1920E-04, -0.9391E-06, & + 0.1401E-06/ data ((h13(ip,iw),iw=1,31), ip=20,20)/ & - 0.6750e-09, 0.1332e-08, 0.2602e-08, 0.5003e-08, 0.9367e-08, & - 0.1684e-07, 0.2863e-07, 0.4566e-07, 0.6865e-07, 0.9861e-07, & - 0.1368e-06, 0.1856e-06, 0.2479e-06, 0.3274e-06, 0.4315e-06, & - 0.5739e-06, 0.7710e-06, 0.1040e-05, 0.1394e-05, 0.1829e-05, & - 0.2309e-05, 0.2759e-05, 0.3131e-05, 0.3472e-05, 0.3755e-05, & - 0.3730e-05, 0.3138e-05, 0.1948e-05, 0.6994e-06, 0.1022e-06, & - 0.2459e-08/ + 0.8781E-10, 0.1756E-09, 0.4257E-09, 0.1011E-08, 0.2142E-08, & + 0.4641E-08, 0.9167E-08, 0.1590E-07, 0.2528E-07, 0.3651E-07, & + 0.4899E-07, 0.6118E-07, 0.7186E-07, 0.7842E-07, 0.8338E-07, & + 0.9591E-07, 0.1307E-06, 0.2076E-06, 0.3457E-06, 0.5529E-06, & + 0.8238E-06, 0.1127E-05, 0.1470E-05, 0.1918E-05, 0.2403E-05, & + 0.2573E-05, 0.2091E-05, 0.1091E-05, 0.2815E-06, 0.2033E-07, & + -0.4366E-10/ data ((h11(ip,iw),iw=1,31), ip=21,21)/ & - 0.99990469, 0.99981278, 0.99963617, 0.99930513, 0.99870503, & - 0.99766999, 0.99597800, 0.99336702, 0.98951000, 0.98399001, & - 0.97622001, 0.96543998, 0.95059001, 0.93019998, 0.90235001, & - 0.86470002, 0.81480002, 0.75059998, 0.67129999, 0.57840002, & - 0.47659999, 0.37279999, 0.27389997, 0.18339998, 0.10570002, & - 0.04740000, 0.01370001, 0.00169998, 0.00000000, 0.00000000, & - 0.00000000/ + 0.99990672, 0.99981523, 0.99963874, 0.99930596, 0.99869990, & + 0.99764448, 0.99590999, 0.99321270, 0.98921347, 0.98346788, & + 0.97538018, 0.96413982, 0.94863576, 0.92732108, 0.89811796, & + 0.85852122, 0.80592799, 0.73817724, 0.65448236, 0.55657035, & + 0.44957256, 0.34131473, 0.23920792, 0.14851642, 0.07546103, & + 0.02736473, 0.00554627, 0.00031799, -0.00000286, 0.00002152, & + 0.00000876/ data ((h12(ip,iw),iw=1,31), ip=21,21)/ & - -0.1487e-06, -0.2912e-06, -0.5636e-06, -0.1069e-05, -0.1969e-05, & - -0.3483e-05, -0.5858e-05, -0.9334e-05, -0.1416e-04, -0.2067e-04, & - -0.2936e-04, -0.4113e-04, -0.5750e-04, -0.8072e-04, -0.1139e-03, & - -0.1606e-03, -0.2246e-03, -0.3076e-03, -0.4067e-03, -0.5121e-03, & - -0.6110e-03, -0.6909e-03, -0.7378e-03, -0.7321e-03, -0.6509e-03, & - -0.4825e-03, -0.2641e-03, -0.8936e-04, -0.1436e-04, -0.5966e-06, & - 0.0000e+00/ + -0.7734E-07, -0.1536E-06, -0.3040E-06, -0.5882E-06, -0.1108E-05, & + -0.2001E-05, -0.3437E-05, -0.5570E-05, -0.8502E-05, -0.1235E-04, & + -0.1733E-04, -0.2393E-04, -0.3315E-04, -0.4675E-04, -0.6728E-04, & + -0.9789E-04, -0.1417E-03, -0.2003E-03, -0.2711E-03, -0.3466E-03, & + -0.4196E-03, -0.4860E-03, -0.5378E-03, -0.5508E-03, -0.4862E-03, & + -0.3302E-03, -0.1489E-03, -0.3686E-04, -0.3463E-05, 0.1353E-06, & + 0.1039E-06/ data ((h13(ip,iw),iw=1,31), ip=21,21)/ & - 0.6777e-09, 0.1344e-08, 0.2643e-08, 0.5138e-08, 0.9798e-08, & - 0.1809e-07, 0.3185e-07, 0.5285e-07, 0.8249e-07, 0.1222e-06, & - 0.1730e-06, 0.2351e-06, 0.3111e-06, 0.4078e-06, 0.5366e-06, & - 0.7117e-06, 0.9495e-06, 0.1266e-05, 0.1667e-05, 0.2132e-05, & - 0.2600e-05, 0.3001e-05, 0.3354e-05, 0.3679e-05, 0.3796e-05, & - 0.3414e-05, 0.2399e-05, 0.1067e-05, 0.2222e-06, 0.1075e-07, & - 0.0000e+00/ + 0.6652E-10, 0.1943E-09, 0.4151E-09, 0.9287E-09, 0.1993E-08, & + 0.4430E-08, 0.9050E-08, 0.1718E-07, 0.2926E-07, 0.4521E-07, & + 0.6353E-07, 0.8050E-07, 0.9282E-07, 0.1011E-06, 0.1107E-06, & + 0.1327E-06, 0.1841E-06, 0.2877E-06, 0.4600E-06, 0.7053E-06, & + 0.1002E-05, 0.1332E-05, 0.1749E-05, 0.2255E-05, 0.2581E-05, & + 0.2336E-05, 0.1450E-05, 0.4908E-06, 0.6208E-07, 0.2183E-09, & + 0.1746E-09/ data ((h11(ip,iw),iw=1,31), ip=22,22)/ & - 0.99990410, 0.99981070, 0.99962938, 0.99928379, 0.99864298, & - 0.99750000, 0.99556601, 0.99247700, 0.98780000, 0.98100001, & - 0.97140002, 0.95810002, 0.93984997, 0.91491997, 0.88110000, & - 0.83570004, 0.77670002, 0.70239997, 0.61350000, 0.51349998, & - 0.40910000, 0.30750000, 0.21340001, 0.13040000, 0.06449997, & - 0.02219999, 0.00389999, 0.00010002, 0.00000000, 0.00000000, & - 0.00000000/ + 0.99990630, 0.99981350, 0.99963254, 0.99928600, 0.99864006, & + 0.99748278, 0.99550837, 0.99233055, 0.98749363, 0.98044109, & + 0.97045708, 0.95660043, 0.93756276, 0.91149014, 0.87598008, & + 0.82836479, 0.76615584, 0.68785858, 0.59415340, 0.48899502, & + 0.37962717, 0.27413034, 0.17846024, 0.09814817, 0.04069227, & + 0.01041925, 0.00105643, -0.00001931, 0.00002301, 0.00001258, & + 0.00000381/ data ((h12(ip,iw),iw=1,31), ip=22,22)/ & - -0.1496e-06, -0.2947e-06, -0.5749e-06, -0.1105e-05, -0.2074e-05, & - -0.3763e-05, -0.6531e-05, -0.1076e-04, -0.1682e-04, -0.2509e-04, & - -0.3605e-04, -0.5049e-04, -0.7012e-04, -0.9787e-04, -0.1378e-03, & - -0.1939e-03, -0.2695e-03, -0.3641e-03, -0.4703e-03, -0.5750e-03, & - -0.6648e-03, -0.7264e-03, -0.7419e-03, -0.6889e-03, -0.5488e-03, & - -0.3382e-03, -0.1375e-03, -0.2951e-04, -0.2174e-05, 0.0000e+00, & - 0.0000e+00/ + -0.7615E-07, -0.1541E-06, -0.3086E-06, -0.6044E-06, -0.1145E-05, & + -0.2113E-05, -0.3753E-05, -0.6295E-05, -0.9939E-05, -0.1483E-04, & + -0.2110E-04, -0.2906E-04, -0.3987E-04, -0.5588E-04, -0.8054E-04, & + -0.1176E-03, -0.1697E-03, -0.2366E-03, -0.3127E-03, -0.3893E-03, & + -0.4608E-03, -0.5213E-03, -0.5530E-03, -0.5198E-03, -0.3918E-03, & + -0.2067E-03, -0.6449E-04, -0.8964E-05, -0.8318E-07, 0.1249E-06, & + 0.6531E-07/ data ((h13(ip,iw),iw=1,31), ip=22,22)/ & - 0.6798e-09, 0.1350e-08, 0.2667e-08, 0.5226e-08, 0.1010e-07, & - 0.1903e-07, 0.3455e-07, 0.5951e-07, 0.9658e-07, 0.1479e-06, & - 0.2146e-06, 0.2951e-06, 0.3903e-06, 0.5101e-06, 0.6693e-06, & - 0.8830e-06, 0.1168e-05, 0.1532e-05, 0.1968e-05, 0.2435e-05, & - 0.2859e-05, 0.3222e-05, 0.3572e-05, 0.3797e-05, 0.3615e-05, & - 0.2811e-05, 0.1500e-05, 0.4185e-06, 0.3850e-07, 0.0000e+00, & - 0.0000e+00/ + 0.8781E-10, 0.1597E-09, 0.3805E-09, 0.8302E-09, 0.1876E-08, & + 0.3994E-08, 0.8661E-08, 0.1762E-07, 0.3209E-07, 0.5307E-07, & + 0.7873E-07, 0.1030E-06, 0.1203E-06, 0.1335E-06, 0.1518E-06, & + 0.1882E-06, 0.2634E-06, 0.3975E-06, 0.6023E-06, 0.8749E-06, & + 0.1190E-05, 0.1576E-05, 0.2077E-05, 0.2517E-05, 0.2502E-05, & + 0.1802E-05, 0.7732E-06, 0.1464E-06, 0.4540E-08, 0.5821E-10, & + 0.2765E-09/ data ((h11(ip,iw),iw=1,31), ip=23,23)/ & - 0.99990374, 0.99980932, 0.99962449, 0.99926788, 0.99859399, & - 0.99736100, 0.99520397, 0.99163198, 0.98606002, 0.97779000, & - 0.96600002, 0.94963002, 0.92720997, 0.89670002, 0.85580003, & - 0.80170000, 0.73269999, 0.64840001, 0.55110002, 0.44669998, & - 0.34280002, 0.24529999, 0.15750003, 0.08469999, 0.03369999, & - 0.00779998, 0.00050002, 0.00000000, 0.00000000, 0.00000000, & - 0.00000000/ + 0.99990612, 0.99981230, 0.99962813, 0.99927127, 0.99859446, & + 0.99735069, 0.99515831, 0.99150169, 0.98575759, 0.97720367, & + 0.96496516, 0.94792449, 0.92453283, 0.89265805, 0.84968978, & + 0.79293245, 0.72031248, 0.63150871, 0.52920425, 0.41969413, & + 0.31129104, 0.21094686, 0.12399805, 0.05750990, 0.01784873, & + 0.00271523, 0.00004989, 0.00001466, 0.00001687, 0.00000602, & + 0.00000149/ data ((h12(ip,iw),iw=1,31), ip=23,23)/ & - -0.1503e-06, -0.2971e-06, -0.5832e-06, -0.1131e-05, -0.2154e-05, & - -0.3992e-05, -0.7122e-05, -0.1211e-04, -0.1954e-04, -0.2995e-04, & - -0.4380e-04, -0.6183e-04, -0.8577e-04, -0.1191e-03, -0.1668e-03, & - -0.2333e-03, -0.3203e-03, -0.4237e-03, -0.5324e-03, -0.6318e-03, & - -0.7075e-03, -0.7429e-03, -0.7168e-03, -0.6071e-03, -0.4139e-03, & - -0.1976e-03, -0.5410e-04, -0.6215e-05, -0.1343e-06, 0.0000e+00, & - 0.0000e+00/ + -0.7510E-07, -0.1554E-06, -0.3119E-06, -0.6119E-06, -0.1173E-05, & + -0.2207E-05, -0.4008E-05, -0.6933E-05, -0.1132E-04, -0.1743E-04, & + -0.2536E-04, -0.3530E-04, -0.4838E-04, -0.6748E-04, -0.9692E-04, & + -0.1409E-03, -0.2009E-03, -0.2740E-03, -0.3528E-03, -0.4297E-03, & + -0.4985E-03, -0.5459E-03, -0.5414E-03, -0.4466E-03, -0.2707E-03, & + -0.1029E-03, -0.1967E-04, -0.9582E-06, 0.1435E-06, 0.8580E-07, & + 0.3337E-07/ data ((h13(ip,iw),iw=1,31), ip=23,23)/ & - 0.6809e-09, 0.1356e-08, 0.2683e-08, 0.5287e-08, 0.1030e-07, & - 0.1971e-07, 0.3665e-07, 0.6528e-07, 0.1100e-06, 0.1744e-06, & - 0.2599e-06, 0.3650e-06, 0.4887e-06, 0.6398e-06, 0.8358e-06, & - 0.1095e-05, 0.1429e-05, 0.1836e-05, 0.2286e-05, 0.2716e-05, & - 0.3088e-05, 0.3444e-05, 0.3748e-05, 0.3740e-05, 0.3157e-05, & - 0.1966e-05, 0.7064e-06, 0.1030e-06, 0.2456e-08, 0.0000e+00, & - 0.0000e+00/ + 0.1064E-09, 0.1623E-09, 0.3539E-09, 0.7823E-09, 0.1660E-08, & + 0.3667E-08, 0.8103E-08, 0.1715E-07, 0.3355E-07, 0.5870E-07, & + 0.9224E-07, 0.1272E-06, 0.1560E-06, 0.1799E-06, 0.2109E-06, & + 0.2682E-06, 0.3729E-06, 0.5382E-06, 0.7697E-06, 0.1055E-05, & + 0.1407E-05, 0.1882E-05, 0.2393E-05, 0.2581E-05, 0.2113E-05, & + 0.1111E-05, 0.2881E-06, 0.2072E-07, 0.0000E+00, 0.2619E-09, & + 0.1892E-09/ data ((h11(ip,iw),iw=1,31), ip=24,24)/ & - 0.99990344, 0.99980831, 0.99962109, 0.99925637, 0.99855798, & - 0.99725199, 0.99489999, 0.99087203, 0.98436999, 0.97447002, & - 0.96012998, 0.94006002, 0.91254002, 0.87540001, 0.82609999, & - 0.76240003, 0.68299997, 0.58930004, 0.48589998, 0.38020003, & - 0.27920002, 0.18699998, 0.10769999, 0.04830003, 0.01400000, & - 0.00169998, 0.00000000, 0.00000000, 0.00000000, 0.00000000, & - 0.00000000/ + 0.99990606, 0.99981177, 0.99962461, 0.99926001, 0.99856067, & + 0.99724674, 0.99486804, 0.99076360, 0.98409128, 0.97387761, & + 0.95901638, 0.93813980, 0.90942395, 0.87054116, 0.81886047, & + 0.75190943, 0.66845155, 0.56990325, 0.46134251, 0.35079926, & + 0.24611366, 0.15298080, 0.07791620, 0.02838999, 0.00579512, & + 0.00033593, -0.00000381, 0.00002211, 0.00000912, 0.00000226, & + 0.00000042/ data ((h12(ip,iw),iw=1,31), ip=24,24)/ & - -0.1508e-06, -0.2989e-06, -0.5892e-06, -0.1151e-05, -0.2216e-05, & - -0.4175e-05, -0.7619e-05, -0.1333e-04, -0.2217e-04, -0.3497e-04, & - -0.5238e-04, -0.7513e-04, -0.1049e-03, -0.1455e-03, -0.2021e-03, & - -0.2790e-03, -0.3757e-03, -0.4839e-03, -0.5902e-03, -0.6794e-03, & - -0.7344e-03, -0.7341e-03, -0.6557e-03, -0.4874e-03, -0.2674e-03, & - -0.9059e-04, -0.1455e-04, -0.5986e-06, 0.0000e+00, 0.0000e+00, & - 0.0000e+00/ + -0.7555E-07, -0.1559E-06, -0.3164E-06, -0.6169E-06, -0.1193E-05, & + -0.2283E-05, -0.4214E-05, -0.7461E-05, -0.1256E-04, -0.1997E-04, & + -0.2988E-04, -0.4252E-04, -0.5899E-04, -0.8230E-04, -0.1172E-03, & + -0.1679E-03, -0.2343E-03, -0.3111E-03, -0.3912E-03, -0.4678E-03, & + -0.5294E-03, -0.5504E-03, -0.4910E-03, -0.3362E-03, -0.1527E-03, & + -0.3800E-04, -0.3577E-05, 0.1377E-06, 0.1068E-06, 0.4910E-07, & + 0.1382E-07/ data ((h13(ip,iw),iw=1,31), ip=24,24)/ & - 0.6812e-09, 0.1356e-08, 0.2693e-08, 0.5328e-08, 0.1045e-07, & - 0.2021e-07, 0.3826e-07, 0.6994e-07, 0.1218e-06, 0.1997e-06, & - 0.3069e-06, 0.4428e-06, 0.6064e-06, 0.8015e-06, 0.1043e-05, & - 0.1351e-05, 0.1733e-05, 0.2168e-05, 0.2598e-05, 0.2968e-05, & - 0.3316e-05, 0.3662e-05, 0.3801e-05, 0.3433e-05, 0.2422e-05, & - 0.1081e-05, 0.2256e-06, 0.1082e-07, 0.0000e+00, 0.0000e+00, & - 0.0000e+00/ + 0.1038E-09, 0.1277E-09, 0.4125E-09, 0.7451E-09, 0.1450E-08, & + 0.3356E-08, 0.7456E-08, 0.1617E-07, 0.3282E-07, 0.6125E-07, & + 0.1022E-06, 0.1504E-06, 0.1982E-06, 0.2422E-06, 0.2936E-06, & + 0.3789E-06, 0.5157E-06, 0.7110E-06, 0.9579E-06, 0.1260E-05, & + 0.1686E-05, 0.2227E-05, 0.2583E-05, 0.2355E-05, 0.1476E-05, & + 0.5046E-06, 0.6422E-07, 0.2183E-09, 0.1892E-09, 0.2910E-09, & + 0.1164E-09/ data ((h11(ip,iw),iw=1,31), ip=25,25)/ & - 0.99990326, 0.99980772, 0.99961871, 0.99924821, 0.99853098, & - 0.99716800, 0.99465698, 0.99022102, 0.98281002, 0.97118002, & - 0.95393997, 0.92948997, 0.89579999, 0.85070002, 0.79189998, & - 0.71759999, 0.62800002, 0.52639997, 0.41970003, 0.31559998, & - 0.21899998, 0.13370001, 0.06610000, 0.02280003, 0.00400001, & - 0.00010002, 0.00000000, 0.00000000, 0.00000000, 0.00000000, & - 0.00000000/ + 0.99990606, 0.99981093, 0.99962217, 0.99925297, 0.99853528, & + 0.99716783, 0.99463624, 0.99013960, 0.98257101, 0.97060472, & + 0.95276862, 0.92735082, 0.89223903, 0.84502023, 0.78329539, & + 0.70526958, 0.61107880, 0.50439918, 0.39259118, 0.28406858, & + 0.18521482, 0.10203111, 0.04244447, 0.01094002, 0.00112236, & + -0.00002146, 0.00002360, 0.00001270, 0.00000411, 0.00000089, & + 0.00000000/ data ((h12(ip,iw),iw=1,31), ip=25,25)/ & - -0.1511e-06, -0.3001e-06, -0.5934e-06, -0.1166e-05, -0.2263e-05, & - -0.4319e-05, -0.8028e-05, -0.1438e-04, -0.2460e-04, -0.3991e-04, & - -0.6138e-04, -0.9005e-04, -0.1278e-03, -0.1778e-03, -0.2447e-03, & - -0.3313e-03, -0.4342e-03, -0.5424e-03, -0.6416e-03, -0.7146e-03, & - -0.7399e-03, -0.6932e-03, -0.5551e-03, -0.3432e-03, -0.1398e-03, & - -0.3010e-04, -0.2229e-05, 0.0000e+00, 0.0000e+00, 0.0000e+00, & - 0.0000e+00/ + -0.7704E-07, -0.1603E-06, -0.3171E-06, -0.6175E-06, -0.1218E-05, & + -0.2343E-05, -0.4376E-05, -0.7897E-05, -0.1364E-04, -0.2227E-04, & + -0.3436E-04, -0.5040E-04, -0.7169E-04, -0.1009E-03, -0.1423E-03, & + -0.1989E-03, -0.2693E-03, -0.3478E-03, -0.4288E-03, -0.5023E-03, & + -0.5464E-03, -0.5224E-03, -0.3985E-03, -0.2120E-03, -0.6665E-04, & + -0.9332E-05, -0.9177E-07, 0.1277E-06, 0.6769E-07, 0.2288E-07, & + 0.4290E-08/ data ((h13(ip,iw),iw=1,31), ip=25,25)/ & - 0.6815e-09, 0.1358e-08, 0.2698e-08, 0.5355e-08, 0.1054e-07, & - 0.2056e-07, 0.3942e-07, 0.7349e-07, 0.1315e-06, 0.2226e-06, & - 0.3537e-06, 0.5266e-06, 0.7407e-06, 0.9958e-06, 0.1296e-05, & - 0.1657e-05, 0.2077e-05, 0.2512e-05, 0.2893e-05, 0.3216e-05, & - 0.3562e-05, 0.3811e-05, 0.3644e-05, 0.2841e-05, 0.1524e-05, & - 0.4276e-06, 0.3960e-07, 0.0000e+00, 0.0000e+00, 0.0000e+00, & - 0.0000e+00/ + 0.1144E-09, 0.1703E-09, 0.3832E-09, 0.6280E-09, 0.1424E-08, & + 0.3124E-08, 0.6708E-08, 0.1467E-07, 0.3071E-07, 0.6037E-07, & + 0.1074E-06, 0.1704E-06, 0.2433E-06, 0.3199E-06, 0.4057E-06, & + 0.5253E-06, 0.6960E-06, 0.9149E-06, 0.1173E-05, 0.1524E-05, & + 0.2039E-05, 0.2519E-05, 0.2526E-05, 0.1833E-05, 0.7949E-06, & + 0.1526E-06, 0.4729E-08, 0.1164E-09, 0.2619E-09, 0.1455E-09, & + 0.5821E-10/ data ((h11(ip,iw),iw=1,31), ip=26,26)/ & - 0.99990320, 0.99980718, 0.99961710, 0.99924242, 0.99851102, & - 0.99710602, 0.99446702, 0.98969001, 0.98144001, 0.96805000, & - 0.94762999, 0.91812998, 0.87730002, 0.82290000, 0.75319999, & - 0.66789997, 0.56879997, 0.46160001, 0.35450000, 0.25370002, & - 0.16280001, 0.08740002, 0.03479999, 0.00809997, 0.00059998, & - 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, & - 0.00000000/ + 0.99990594, 0.99981046, 0.99962056, 0.99924737, 0.99851662, & + 0.99710888, 0.99445754, 0.98962957, 0.98124003, 0.96750849, & + 0.94641417, 0.91576242, 0.87315178, 0.81620890, 0.74311233, & + 0.65339649, 0.54924417, 0.43682033, 0.32487178, 0.22071731, & + 0.13000739, 0.06041300, 0.01882440, 0.00288731, 0.00005370, & + 0.00001419, 0.00001746, 0.00000632, 0.00000137, 0.00000006, & + -0.00000012/ data ((h12(ip,iw),iw=1,31), ip=26,26)/ & - -0.1513e-06, -0.3009e-06, -0.5966e-06, -0.1176e-05, -0.2299e-05, & - -0.4430e-05, -0.8352e-05, -0.1526e-04, -0.2674e-04, -0.4454e-04, & - -0.7042e-04, -0.1062e-03, -0.1540e-03, -0.2163e-03, -0.2951e-03, & - -0.3899e-03, -0.4948e-03, -0.5983e-03, -0.6846e-03, -0.7332e-03, & - -0.7182e-03, -0.6142e-03, -0.4209e-03, -0.2014e-03, -0.5530e-04, & - -0.6418e-05, -0.1439e-06, 0.0000e+00, 0.0000e+00, 0.0000e+00, & - 0.0000e+00/ + -0.7689E-07, -0.1593E-06, -0.3161E-06, -0.6281E-06, -0.1239E-05, & + -0.2391E-05, -0.4505E-05, -0.8258E-05, -0.1454E-04, -0.2433E-04, & + -0.3865E-04, -0.5869E-04, -0.8621E-04, -0.1235E-03, -0.1726E-03, & + -0.2342E-03, -0.3066E-03, -0.3861E-03, -0.4664E-03, -0.5295E-03, & + -0.5394E-03, -0.4532E-03, -0.2778E-03, -0.1064E-03, -0.2051E-04, & + -0.1033E-05, 0.1473E-06, 0.8866E-07, 0.3480E-07, 0.8103E-08, & + 0.9529E-09/ data ((h13(ip,iw),iw=1,31), ip=26,26)/ & - 0.6817e-09, 0.1359e-08, 0.2702e-08, 0.5374e-08, 0.1061e-07, & - 0.2079e-07, 0.4022e-07, 0.7610e-07, 0.1392e-06, 0.2428e-06, & - 0.3992e-06, 0.6149e-06, 0.8893e-06, 0.1220e-05, 0.1599e-05, & - 0.2015e-05, 0.2453e-05, 0.2853e-05, 0.3173e-05, 0.3488e-05, & - 0.3792e-05, 0.3800e-05, 0.3210e-05, 0.2002e-05, 0.7234e-06, & - 0.1068e-06, 0.2646e-08, 0.0000e+00, 0.0000e+00, 0.0000e+00, & - 0.0000e+00/ + 0.1011E-09, 0.2209E-09, 0.3699E-09, 0.6360E-09, 0.1354E-08, & + 0.2815E-08, 0.6195E-08, 0.1309E-07, 0.2811E-07, 0.5739E-07, & + 0.1090E-06, 0.1874E-06, 0.2891E-06, 0.4110E-06, 0.5510E-06, & + 0.7154E-06, 0.9190E-06, 0.1150E-05, 0.1436E-05, 0.1878E-05, & + 0.2409E-05, 0.2625E-05, 0.2158E-05, 0.1142E-05, 0.3004E-06, & + 0.2224E-07, -0.7276E-10, 0.2328E-09, 0.2328E-09, 0.8731E-10, & + 0.4366E-10/ data ((h21(ip,iw),iw=1,31), ip= 1, 1)/ & - 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, & - 0.99991685, 0.99986511, 0.99979371, 0.99970162, 0.99958909, & - 0.99945778, 0.99931037, 0.99914628, 0.99895900, 0.99873799, & - 0.99846601, 0.99813002, 0.99771398, 0.99719697, 0.99655598, & - 0.99575800, 0.99475598, 0.99348903, 0.99186200, 0.98973000, & - 0.98688000, 0.98303002, 0.97777998, 0.97059000, 0.96077001, & - 0.94742000/ + 0.99999648, 0.99999303, 0.99998641, 0.99997419, 0.99995244, & + 0.99991620, 0.99986106, 0.99978638, 0.99969482, 0.99958766, & + 0.99946332, 0.99931884, 0.99915075, 0.99895716, 0.99873149, & + 0.99845850, 0.99811709, 0.99768430, 0.99713957, 0.99645668, & + 0.99560016, 0.99451423, 0.99310941, 0.99126315, 0.98881638, & + 0.98555976, 0.98121214, 0.97538328, 0.96752322, 0.95687479, & + 0.94245565/ data ((h22(ip,iw),iw=1,31), ip= 1, 1)/ & - -0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3533e-06, -0.5991e-06, & - -0.9592e-06, -0.1444e-05, -0.2049e-05, -0.2764e-05, -0.3577e-05, & - -0.4469e-05, -0.5467e-05, -0.6654e-05, -0.8137e-05, -0.1002e-04, & - -0.1237e-04, -0.1528e-04, -0.1884e-04, -0.2310e-04, -0.2809e-04, & - -0.3396e-04, -0.4098e-04, -0.4960e-04, -0.6058e-04, -0.7506e-04, & - -0.9451e-04, -0.1207e-03, -0.1558e-03, -0.2026e-03, -0.2648e-03, & - -0.3468e-03/ + -0.4753E-07, -0.9491E-07, -0.1790E-06, -0.3272E-06, -0.5677E-06, & + -0.9265E-06, -0.1394E-05, -0.1949E-05, -0.2586E-05, -0.3328E-05, & + -0.4201E-05, -0.5223E-05, -0.6410E-05, -0.7839E-05, -0.9638E-05, & + -0.1196E-04, -0.1494E-04, -0.1863E-04, -0.2308E-04, -0.2844E-04, & + -0.3494E-04, -0.4296E-04, -0.5306E-04, -0.6601E-04, -0.8270E-04, & + -0.1043E-03, -0.1323E-03, -0.1693E-03, -0.2183E-03, -0.2833E-03, & + -0.3683E-03/ data ((h23(ip,iw),iw=1,31), ip= 1, 1)/ & - -0.2195e-09, -0.4031e-09, -0.7043e-09, -0.1153e-08, -0.1737e-08, & - -0.2395e-08, -0.3020e-08, -0.3549e-08, -0.4034e-08, -0.4421e-08, & - -0.4736e-08, -0.5681e-08, -0.8289e-08, -0.1287e-07, -0.1873e-07, & - -0.2523e-07, -0.3223e-07, -0.3902e-07, -0.4409e-07, -0.4699e-07, & - -0.4782e-07, -0.4705e-07, -0.4657e-07, -0.4885e-07, -0.5550e-07, & - -0.6619e-07, -0.7656e-07, -0.8027e-07, -0.7261e-07, -0.4983e-07, & - -0.1101e-07/ + -0.1996E-09, -0.3752E-09, -0.6466E-09, -0.1096E-08, -0.1634E-08, & + -0.2123E-08, -0.2222E-08, -0.2086E-08, -0.2493E-08, -0.3858E-08, & + -0.5729E-08, -0.7400E-08, -0.9058E-08, -0.1205E-07, -0.1729E-07, & + -0.2405E-07, -0.3157E-07, -0.3950E-07, -0.4812E-07, -0.5742E-07, & + -0.6745E-07, -0.7800E-07, -0.8757E-07, -0.9509E-07, -0.1011E-06, & + -0.1071E-06, -0.1165E-06, -0.1326E-06, -0.1556E-06, -0.1798E-06, & + -0.1961E-06/ data ((h21(ip,iw),iw=1,31), ip= 2, 2)/ & - 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, & - 0.99991679, 0.99986511, 0.99979353, 0.99970138, 0.99958861, & - 0.99945688, 0.99930882, 0.99914342, 0.99895400, 0.99872798, & - 0.99844801, 0.99809802, 0.99765801, 0.99710101, 0.99639499, & - 0.99549901, 0.99435198, 0.99287099, 0.99093699, 0.98837000, & - 0.98491001, 0.98019999, 0.97373998, 0.96490002, 0.95283002, & - 0.93649000/ + 0.99999648, 0.99999303, 0.99998641, 0.99997419, 0.99995244, & + 0.99991614, 0.99986106, 0.99978626, 0.99969459, 0.99958706, & + 0.99946231, 0.99931693, 0.99914742, 0.99895126, 0.99872077, & + 0.99843901, 0.99808180, 0.99762255, 0.99703413, 0.99628311, & + 0.99532354, 0.99408531, 0.99245912, 0.99029195, 0.98738796, & + 0.98349059, 0.97824448, 0.97115874, 0.96155798, 0.94853783, & + 0.93095934/ data ((h22(ip,iw),iw=1,31), ip= 2, 2)/ & - -0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3534e-06, -0.5992e-06, & - -0.9594e-06, -0.1445e-05, -0.2050e-05, -0.2766e-05, -0.3580e-05, & - -0.4476e-05, -0.5479e-05, -0.6677e-05, -0.8179e-05, -0.1009e-04, & - -0.1251e-04, -0.1553e-04, -0.1928e-04, -0.2384e-04, -0.2930e-04, & - -0.3588e-04, -0.4393e-04, -0.5403e-04, -0.6714e-04, -0.8458e-04, & - -0.1082e-03, -0.1400e-03, -0.1829e-03, -0.2401e-03, -0.3157e-03, & - -0.4147e-03/ + -0.4753E-07, -0.9491E-07, -0.1790E-06, -0.3272E-06, -0.5677E-06, & + -0.9265E-06, -0.1395E-05, -0.1951E-05, -0.2588E-05, -0.3330E-05, & + -0.4208E-05, -0.5236E-05, -0.6432E-05, -0.7880E-05, -0.9713E-05, & + -0.1210E-04, -0.1518E-04, -0.1905E-04, -0.2377E-04, -0.2955E-04, & + -0.3669E-04, -0.4564E-04, -0.5713E-04, -0.7205E-04, -0.9151E-04, & + -0.1170E-03, -0.1504E-03, -0.1947E-03, -0.2535E-03, -0.3311E-03, & + -0.4319E-03/ data ((h23(ip,iw),iw=1,31), ip= 2, 2)/ & - -0.2195e-09, -0.4032e-09, -0.7046e-09, -0.1153e-08, -0.1738e-08, & - -0.2395e-08, -0.3021e-08, -0.3550e-08, -0.4035e-08, -0.4423e-08, & - -0.4740e-08, -0.5692e-08, -0.8314e-08, -0.1292e-07, -0.1882e-07, & - -0.2536e-07, -0.3242e-07, -0.3927e-07, -0.4449e-07, -0.4767e-07, & - -0.4889e-07, -0.4857e-07, -0.4860e-07, -0.5132e-07, -0.5847e-07, & - -0.6968e-07, -0.8037e-07, -0.8400e-07, -0.7521e-07, -0.4830e-07, & - -0.7562e-09/ + -0.1996E-09, -0.3752E-09, -0.6466E-09, -0.1096E-08, -0.1634E-08, & + -0.2113E-08, -0.2227E-08, -0.2089E-08, -0.2491E-08, -0.3853E-08, & + -0.5732E-08, -0.7379E-08, -0.9036E-08, -0.1205E-07, -0.1733E-07, & + -0.2407E-07, -0.3154E-07, -0.3943E-07, -0.4797E-07, -0.5722E-07, & + -0.6733E-07, -0.7812E-07, -0.8799E-07, -0.9548E-07, -0.1010E-06, & + -0.1072E-06, -0.1168E-06, -0.1326E-06, -0.1535E-06, -0.1719E-06, & + -0.1776E-06/ data ((h21(ip,iw),iw=1,31), ip= 3, 3)/ & - 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, & - 0.99991679, 0.99986500, 0.99979341, 0.99970102, 0.99958777, & - 0.99945557, 0.99930632, 0.99913889, 0.99894601, 0.99871302, & - 0.99842101, 0.99805099, 0.99757600, 0.99696302, 0.99617100, & - 0.99514598, 0.99381000, 0.99205798, 0.98974001, 0.98662001, & - 0.98238999, 0.97659999, 0.96866000, 0.95776999, 0.94296998, & - 0.92306000/ + 0.99999648, 0.99999303, 0.99998641, 0.99997419, 0.99995250, & + 0.99991614, 0.99986094, 0.99978608, 0.99969417, 0.99958628, & + 0.99946100, 0.99931419, 0.99914253, 0.99894208, 0.99870420, & + 0.99840903, 0.99802876, 0.99753171, 0.99688333, 0.99604201, & + 0.99494857, 0.99351460, 0.99160337, 0.98902792, 0.98555082, & + 0.98084849, 0.97447640, 0.96582508, 0.95407653, 0.93817306, & + 0.91681957/ data ((h22(ip,iw),iw=1,31), ip= 3, 3)/ & - -0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3535e-06, -0.5994e-06, & - -0.9599e-06, -0.1446e-05, -0.2052e-05, -0.2769e-05, -0.3586e-05, & - -0.4487e-05, -0.5499e-05, -0.6712e-05, -0.8244e-05, -0.1021e-04, & - -0.1272e-04, -0.1591e-04, -0.1992e-04, -0.2489e-04, -0.3097e-04, & - -0.3845e-04, -0.4782e-04, -0.5982e-04, -0.7558e-04, -0.9674e-04, & - -0.1254e-03, -0.1644e-03, -0.2167e-03, -0.2863e-03, -0.3777e-03, & - -0.4959e-03/ + -0.4753E-07, -0.9491E-07, -0.1790E-06, -0.3275E-06, -0.5677E-06, & + -0.9271E-06, -0.1396E-05, -0.1952E-05, -0.2591E-05, -0.3335E-05, & + -0.4219E-05, -0.5255E-05, -0.6467E-05, -0.7944E-05, -0.9828E-05, & + -0.1230E-04, -0.1554E-04, -0.1964E-04, -0.2474E-04, -0.3107E-04, & + -0.3903E-04, -0.4920E-04, -0.6245E-04, -0.7987E-04, -0.1028E-03, & + -0.1331E-03, -0.1731E-03, -0.2264E-03, -0.2969E-03, -0.3894E-03, & + -0.5080E-03/ data ((h23(ip,iw),iw=1,31), ip= 3, 3)/ & - -0.2196e-09, -0.4033e-09, -0.7048e-09, -0.1154e-08, -0.1739e-08, & - -0.2396e-08, -0.3022e-08, -0.3551e-08, -0.4036e-08, -0.4425e-08, & - -0.4746e-08, -0.5710e-08, -0.8354e-08, -0.1300e-07, -0.1894e-07, & - -0.2554e-07, -0.3265e-07, -0.3958e-07, -0.4502e-07, -0.4859e-07, & - -0.5030e-07, -0.5053e-07, -0.5104e-07, -0.5427e-07, -0.6204e-07, & - -0.7388e-07, -0.8477e-07, -0.8760e-07, -0.7545e-07, -0.4099e-07, & - 0.2046e-07/ + -0.1996E-09, -0.3752E-09, -0.6466E-09, -0.1102E-08, -0.1644E-08, & + -0.2123E-08, -0.2219E-08, -0.2097E-08, -0.2496E-08, -0.3845E-08, & + -0.5750E-08, -0.7376E-08, -0.9092E-08, -0.1209E-07, -0.1734E-07, & + -0.2409E-07, -0.3143E-07, -0.3929E-07, -0.4763E-07, -0.5693E-07, & + -0.6739E-07, -0.7864E-07, -0.8851E-07, -0.9552E-07, -0.1012E-06, & + -0.1075E-06, -0.1173E-06, -0.1320E-06, -0.1485E-06, -0.1582E-06, & + -0.1486E-06/ data ((h21(ip,iw),iw=1,31), ip= 4, 4)/ & - 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, & - 0.99991673, 0.99986482, 0.99979299, 0.99970031, 0.99958658, & - 0.99945343, 0.99930239, 0.99913180, 0.99893302, 0.99869001, & - 0.99838102, 0.99798000, 0.99745703, 0.99676800, 0.99586397, & - 0.99467200, 0.99309403, 0.99099600, 0.98817998, 0.98438001, & - 0.97918999, 0.97206002, 0.96227002, 0.94888997, 0.93080997, & - 0.90671003/ + 0.99999648, 0.99999303, 0.99998635, 0.99997413, 0.99995244, & + 0.99991614, 0.99986082, 0.99978578, 0.99969357, 0.99958509, & + 0.99945861, 0.99930990, 0.99913460, 0.99892777, 0.99867845, & + 0.99836367, 0.99795061, 0.99740112, 0.99667352, 0.99571395, & + 0.99444747, 0.99276096, 0.99048626, 0.98739773, 0.98319960, & + 0.97748899, 0.96971005, 0.95911890, 0.94474679, 0.92537642, & + 0.89957643/ data ((h22(ip,iw),iw=1,31), ip= 4, 4)/ & - -0.5623e-07, -0.1071e-06, -0.1984e-06, -0.3536e-06, -0.5997e-06, & - -0.9606e-06, -0.1447e-05, -0.2055e-05, -0.2775e-05, -0.3596e-05, & - -0.4504e-05, -0.5529e-05, -0.6768e-05, -0.8345e-05, -0.1039e-04, & - -0.1304e-04, -0.1645e-04, -0.2082e-04, -0.2633e-04, -0.3322e-04, & - -0.4187e-04, -0.5292e-04, -0.6730e-04, -0.8640e-04, -0.1122e-03, & - -0.1472e-03, -0.1948e-03, -0.2585e-03, -0.3428e-03, -0.4523e-03, & - -0.5915e-03/ + -0.4753E-07, -0.9491E-07, -0.1790E-06, -0.3280E-06, -0.5680E-06, & + -0.9276E-06, -0.1398E-05, -0.1955E-05, -0.2597E-05, -0.3345E-05, & + -0.4235E-05, -0.5284E-05, -0.6523E-05, -0.8043E-05, -0.1000E-04, & + -0.1261E-04, -0.1605E-04, -0.2048E-04, -0.2606E-04, -0.3312E-04, & + -0.4216E-04, -0.5390E-04, -0.6938E-04, -0.8992E-04, -0.1172E-03, & + -0.1534E-03, -0.2016E-03, -0.2657E-03, -0.3500E-03, -0.4594E-03, & + -0.5976E-03/ data ((h23(ip,iw),iw=1,31), ip= 4, 4)/ & - -0.2196e-09, -0.4034e-09, -0.7050e-09, -0.1154e-08, -0.1740e-08, & - -0.2398e-08, -0.3024e-08, -0.3552e-08, -0.4037e-08, -0.4428e-08, & - -0.4756e-08, -0.5741e-08, -0.8418e-08, -0.1310e-07, -0.1910e-07, & - -0.2575e-07, -0.3293e-07, -0.3998e-07, -0.4572e-07, -0.4980e-07, & - -0.5211e-07, -0.5287e-07, -0.5390e-07, -0.5782e-07, -0.6650e-07, & - -0.7892e-07, -0.8940e-07, -0.8980e-07, -0.7119e-07, -0.2452e-07, & - 0.5823e-07/ + -0.1996E-09, -0.3752E-09, -0.6413E-09, -0.1094E-08, -0.1639E-08, & + -0.2131E-08, -0.2227E-08, -0.2105E-08, -0.2493E-08, -0.3872E-08, & + -0.5758E-08, -0.7389E-08, -0.9106E-08, -0.1213E-07, -0.1736E-07, & + -0.2402E-07, -0.3126E-07, -0.3893E-07, -0.4733E-07, -0.5693E-07, & + -0.6786E-07, -0.7916E-07, -0.8873E-07, -0.9564E-07, -0.1015E-06, & + -0.1083E-06, -0.1176E-06, -0.1292E-06, -0.1387E-06, -0.1360E-06, & + -0.1038E-06/ data ((h21(ip,iw),iw=1,31), ip= 5, 5)/ & - 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995136, & - 0.99991661, 0.99986458, 0.99979252, 0.99969929, 0.99958479, & - 0.99945003, 0.99929619, 0.99912071, 0.99891400, 0.99865502, & - 0.99831998, 0.99787700, 0.99728799, 0.99650002, 0.99544799, & - 0.99404198, 0.99215603, 0.98961997, 0.98619002, 0.98153001, & - 0.97513002, 0.96634001, 0.95428002, 0.93791002, 0.91593999, & - 0.88700002/ + 0.99999648, 0.99999303, 0.99998635, 0.99997419, 0.99995244, & + 0.99991602, 0.99986064, 0.99978524, 0.99969250, 0.99958307, & + 0.99945492, 0.99930298, 0.99912232, 0.99890554, 0.99863952, & + 0.99829626, 0.99783719, 0.99721783, 0.99638581, 0.99527395, & + 0.99378401, 0.99177408, 0.98903996, 0.98530644, 0.98020452, & + 0.97323179, 0.96370512, 0.95073187, 0.93318701, 0.90970320, & + 0.87876439/ data ((h22(ip,iw),iw=1,31), ip= 5, 5)/ & - -0.5623e-07, -0.1071e-06, -0.1985e-06, -0.3538e-06, -0.6002e-06, & - -0.9618e-06, -0.1450e-05, -0.2059e-05, -0.2783e-05, -0.3611e-05, & - -0.4531e-05, -0.5577e-05, -0.6855e-05, -0.8499e-05, -0.1066e-04, & - -0.1351e-04, -0.1723e-04, -0.2207e-04, -0.2829e-04, -0.3621e-04, & - -0.4636e-04, -0.5954e-04, -0.7690e-04, -0.1002e-03, -0.1317e-03, & - -0.1746e-03, -0.2326e-03, -0.3099e-03, -0.4111e-03, -0.5407e-03, & - -0.7020e-03/ + -0.4753E-07, -0.9491E-07, -0.1790E-06, -0.3274E-06, -0.5683E-06, & + -0.9282E-06, -0.1399E-05, -0.1960E-05, -0.2603E-05, -0.3360E-05, & + -0.4261E-05, -0.5332E-05, -0.6607E-05, -0.8193E-05, -0.1027E-04, & + -0.1305E-04, -0.1679E-04, -0.2164E-04, -0.2786E-04, -0.3587E-04, & + -0.4629E-04, -0.6004E-04, -0.7832E-04, -0.1028E-03, -0.1354E-03, & + -0.1790E-03, -0.2371E-03, -0.3140E-03, -0.4143E-03, -0.5425E-03, & + -0.7012E-03/ data ((h23(ip,iw),iw=1,31), ip= 5, 5)/ & - -0.2197e-09, -0.4037e-09, -0.7054e-09, -0.1155e-08, -0.1741e-08, & - -0.2401e-08, -0.3027e-08, -0.3553e-08, -0.4039e-08, -0.4431e-08, & - -0.4775e-08, -0.5784e-08, -0.8506e-08, -0.1326e-07, -0.1931e-07, & - -0.2600e-07, -0.3324e-07, -0.4048e-07, -0.4666e-07, -0.5137e-07, & - -0.5428e-07, -0.5558e-07, -0.5730e-07, -0.6228e-07, -0.7197e-07, & - -0.8455e-07, -0.9347e-07, -0.8867e-07, -0.5945e-07, 0.5512e-08, & - 0.1209e-06/ + -0.1996E-09, -0.3752E-09, -0.6413E-09, -0.1104E-08, -0.1634E-08, & + -0.2115E-08, -0.2240E-08, -0.2107E-08, -0.2480E-08, -0.3866E-08, & + -0.5795E-08, -0.7432E-08, -0.9138E-08, -0.1213E-07, -0.1734E-07, & + -0.2391E-07, -0.3090E-07, -0.3848E-07, -0.4710E-07, -0.5731E-07, & + -0.6849E-07, -0.7959E-07, -0.8877E-07, -0.9590E-07, -0.1021E-06, & + -0.1090E-06, -0.1167E-06, -0.1228E-06, -0.1222E-06, -0.1012E-06, & + -0.3644E-07/ data ((h21(ip,iw),iw=1,31), ip= 6, 6)/ & - 0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995130, & - 0.99991649, 0.99986428, 0.99979180, 0.99969780, 0.99958187, & - 0.99944460, 0.99928659, 0.99910372, 0.99888301, 0.99860299, & - 0.99822998, 0.99773002, 0.99705303, 0.99613500, 0.99489301, & - 0.99321300, 0.99093801, 0.98785001, 0.98365998, 0.97790998, & - 0.97000998, 0.95916998, 0.94437003, 0.92440999, 0.89789999, & - 0.86360002/ + 0.99999648, 0.99999303, 0.99998641, 0.99997413, 0.99995238, & + 0.99991590, 0.99986023, 0.99978453, 0.99969083, 0.99957997, & + 0.99944901, 0.99929231, 0.99910325, 0.99887222, 0.99858135, & + 0.99819821, 0.99767721, 0.99696583, 0.99599892, 0.99468935, & + 0.99291271, 0.99049187, 0.98718077, 0.98263699, 0.97640336, & + 0.96785825, 0.95617527, 0.94030702, 0.91897225, 0.89068717, & + 0.85394704/ data ((h22(ip,iw),iw=1,31), ip= 6, 6)/ & - -0.5624e-07, -0.1072e-06, -0.1986e-06, -0.3541e-06, -0.6010e-06, & - -0.9636e-06, -0.1453e-05, -0.2067e-05, -0.2796e-05, -0.3634e-05, & - -0.4572e-05, -0.5652e-05, -0.6987e-05, -0.8733e-05, -0.1107e-04, & - -0.1418e-04, -0.1832e-04, -0.2378e-04, -0.3092e-04, -0.4017e-04, & - -0.5221e-04, -0.6806e-04, -0.8916e-04, -0.1176e-03, -0.1562e-03, & - -0.2087e-03, -0.2793e-03, -0.3724e-03, -0.4928e-03, -0.6440e-03, & - -0.8270e-03/ + -0.4753E-07, -0.9491E-07, -0.1790E-06, -0.3280E-06, -0.5690E-06, & + -0.9295E-06, -0.1403E-05, -0.1966E-05, -0.2616E-05, -0.3382E-05, & + -0.4303E-05, -0.5405E-05, -0.6736E-05, -0.8420E-05, -0.1065E-04, & + -0.1370E-04, -0.1780E-04, -0.2321E-04, -0.3027E-04, -0.3951E-04, & + -0.5172E-04, -0.6798E-04, -0.8977E-04, -0.1191E-03, -0.1584E-03, & + -0.2110E-03, -0.2810E-03, -0.3728E-03, -0.4911E-03, -0.6396E-03, & + -0.8183E-03/ data ((h23(ip,iw),iw=1,31), ip= 6, 6)/ & - -0.2198e-09, -0.4040e-09, -0.7061e-09, -0.1156e-08, -0.1744e-08, & - -0.2405e-08, -0.3032e-08, -0.3556e-08, -0.4040e-08, -0.4444e-08, & - -0.4800e-08, -0.5848e-08, -0.8640e-08, -0.1346e-07, -0.1957e-07, & - -0.2627e-07, -0.3357e-07, -0.4114e-07, -0.4793e-07, -0.5330e-07, & - -0.5676e-07, -0.5873e-07, -0.6152e-07, -0.6783e-07, -0.7834e-07, & - -0.9023e-07, -0.9530e-07, -0.8162e-07, -0.3634e-07, 0.5638e-07, & - 0.2189e-06/ + -0.1996E-09, -0.3752E-09, -0.6466E-09, -0.1110E-08, -0.1636E-08, & + -0.2139E-08, -0.2251E-08, -0.2107E-08, -0.2493E-08, -0.3885E-08, & + -0.5790E-08, -0.7464E-08, -0.9188E-08, -0.1225E-07, -0.1736E-07, & + -0.2372E-07, -0.3045E-07, -0.3811E-07, -0.4728E-07, -0.5796E-07, & + -0.6918E-07, -0.7976E-07, -0.8909E-07, -0.9641E-07, -0.1029E-06, & + -0.1093E-06, -0.1130E-06, -0.1109E-06, -0.9583E-07, -0.4794E-07, & + 0.5993E-07/ data ((h21(ip,iw),iw=1,31), ip= 7, 7)/ & - 0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995124, & - 0.99991626, 0.99986368, 0.99979049, 0.99969530, 0.99957728, & - 0.99943632, 0.99927181, 0.99907762, 0.99883801, 0.99852502, & - 0.99810201, 0.99752498, 0.99673301, 0.99564600, 0.99416101, & - 0.99213398, 0.98936999, 0.98559999, 0.98043001, 0.97333997, & - 0.96359003, 0.95025003, 0.93216002, 0.90798998, 0.87639999, & - 0.83609998/ + 0.99999654, 0.99999303, 0.99998629, 0.99997413, 0.99995220, & + 0.99991560, 0.99985969, 0.99978322, 0.99968827, 0.99957514, & + 0.99944001, 0.99927598, 0.99907416, 0.99882185, 0.99849612, & + 0.99805862, 0.99745625, 0.99662507, 0.99548388, 0.99392039, & + 0.99177766, 0.98884010, 0.98480314, 0.97924423, 0.97159582, & + 0.96110350, 0.94678706, 0.92743945, 0.90164268, 0.86787140, & + 0.82476485/ data ((h22(ip,iw),iw=1,31), ip= 7, 7)/ & - -0.5626e-07, -0.1072e-06, -0.1987e-06, -0.3545e-06, -0.6022e-06, & - -0.9665e-06, -0.1460e-05, -0.2078e-05, -0.2817e-05, -0.3671e-05, & - -0.4637e-05, -0.5767e-05, -0.7188e-05, -0.9080e-05, -0.1165e-04, & - -0.1513e-04, -0.1981e-04, -0.2609e-04, -0.3441e-04, -0.4534e-04, & - -0.5978e-04, -0.7897e-04, -0.1047e-03, -0.1396e-03, -0.1870e-03, & - -0.2510e-03, -0.3363e-03, -0.4475e-03, -0.5888e-03, -0.7621e-03, & - -0.9647e-03/ + -0.4723E-07, -0.9491E-07, -0.1798E-06, -0.3280E-06, -0.5701E-06, & + -0.9323E-06, -0.1409E-05, -0.1978E-05, -0.2635E-05, -0.3418E-05, & + -0.4367E-05, -0.5518E-05, -0.6930E-05, -0.8753E-05, -0.1121E-04, & + -0.1458E-04, -0.1919E-04, -0.2533E-04, -0.3347E-04, -0.4430E-04, & + -0.5877E-04, -0.7818E-04, -0.1043E-03, -0.1397E-03, -0.1872E-03, & + -0.2507E-03, -0.3346E-03, -0.4435E-03, -0.5816E-03, -0.7506E-03, & + -0.9473E-03/ data ((h23(ip,iw),iw=1,31), ip= 7, 7)/ & - -0.2200e-09, -0.4045e-09, -0.7071e-09, -0.1159e-08, -0.1748e-08, & - -0.2411e-08, -0.3040e-08, -0.3561e-08, -0.4046e-08, -0.4455e-08, & - -0.4839e-08, -0.5941e-08, -0.8815e-08, -0.1371e-07, -0.1983e-07, & - -0.2652e-07, -0.3400e-07, -0.4207e-07, -0.4955e-07, -0.5554e-07, & - -0.5966e-07, -0.6261e-07, -0.6688e-07, -0.7454e-07, -0.8521e-07, & - -0.9470e-07, -0.9275e-07, -0.6525e-07, 0.3686e-08, 0.1371e-06, & - 0.3623e-06/ + -0.2049E-09, -0.3752E-09, -0.6466E-09, -0.1104E-08, -0.1623E-08, & + -0.2126E-08, -0.2243E-08, -0.2099E-08, -0.2475E-08, -0.3888E-08, & + -0.5827E-08, -0.7498E-08, -0.9209E-08, -0.1224E-07, -0.1718E-07, & + -0.2327E-07, -0.2999E-07, -0.3801E-07, -0.4790E-07, -0.5886E-07, & + -0.6964E-07, -0.8007E-07, -0.8958E-07, -0.9726E-07, -0.1035E-06, & + -0.1072E-06, -0.1047E-06, -0.9110E-07, -0.5435E-07, 0.3110E-07, & + 0.1879E-06/ data ((h21(ip,iw),iw=1,31), ip= 8, 8)/ & - 0.99999607, 0.99999237, 0.99998540, 0.99997282, 0.99995112, & - 0.99991590, 0.99986279, 0.99978858, 0.99969149, 0.99957019, & - 0.99942350, 0.99924922, 0.99903822, 0.99877101, 0.99841398, & - 0.99792302, 0.99724299, 0.99630302, 0.99500000, 0.99320602, & - 0.99074000, 0.98736000, 0.98272002, 0.97635001, 0.96758002, & - 0.95555997, 0.93919998, 0.91722000, 0.88819999, 0.85089999, & - 0.80439997/ + 0.99999648, 0.99999303, 0.99998629, 0.99997407, 0.99995214, & + 0.99991530, 0.99985880, 0.99978131, 0.99968427, 0.99956757, & + 0.99942595, 0.99925089, 0.99903029, 0.99874794, 0.99837416, & + 0.99786478, 0.99715632, 0.99617100, 0.99480504, 0.99291641, & + 0.99031132, 0.98672378, 0.98177612, 0.97494662, 0.96554160, & + 0.95265889, 0.93515933, 0.91168392, 0.88073176, 0.84085232, & + 0.79097253/ data ((h22(ip,iw),iw=1,31), ip= 8, 8)/ & - -0.5628e-07, -0.1073e-06, -0.1990e-06, -0.3553e-06, -0.6042e-06, & - -0.9710e-06, -0.1469e-05, -0.2096e-05, -0.2849e-05, -0.3728e-05, & - -0.4738e-05, -0.5942e-05, -0.7490e-05, -0.9586e-05, -0.1247e-04, & - -0.1644e-04, -0.2184e-04, -0.2916e-04, -0.3898e-04, -0.5205e-04, & - -0.6948e-04, -0.9285e-04, -0.1244e-03, -0.1672e-03, -0.2251e-03, & - -0.3028e-03, -0.4051e-03, -0.5365e-03, -0.6998e-03, -0.8940e-03, & - -0.1112e-02/ + -0.4753E-07, -0.9491E-07, -0.1798E-06, -0.3284E-06, -0.5731E-06, & + -0.9359E-06, -0.1417E-05, -0.1995E-05, -0.2666E-05, -0.3474E-05, & + -0.4466E-05, -0.5689E-05, -0.7221E-05, -0.9235E-05, -0.1199E-04, & + -0.1580E-04, -0.2105E-04, -0.2816E-04, -0.3771E-04, -0.5056E-04, & + -0.6786E-04, -0.9121E-04, -0.1228E-03, -0.1656E-03, -0.2231E-03, & + -0.2995E-03, -0.3994E-03, -0.5274E-03, -0.6861E-03, -0.8744E-03, & + -0.1086E-02/ data ((h23(ip,iw),iw=1,31), ip= 8, 8)/ & - -0.2204e-09, -0.4052e-09, -0.7088e-09, -0.1162e-08, -0.1755e-08, & - -0.2422e-08, -0.3053e-08, -0.3572e-08, -0.4052e-08, -0.4474e-08, & - -0.4898e-08, -0.6082e-08, -0.9046e-08, -0.1400e-07, -0.2009e-07, & - -0.2683e-07, -0.3463e-07, -0.4334e-07, -0.5153e-07, -0.5811e-07, & - -0.6305e-07, -0.6749e-07, -0.7346e-07, -0.8208e-07, -0.9173e-07, & - -0.9603e-07, -0.8264e-07, -0.3505e-07, 0.6878e-07, 0.2586e-06, & - 0.5530e-06/ + -0.1996E-09, -0.3752E-09, -0.6466E-09, -0.1096E-08, -0.1644E-08, & + -0.2137E-08, -0.2251E-08, -0.2110E-08, -0.2475E-08, -0.3920E-08, & + -0.5873E-08, -0.7546E-08, -0.9215E-08, -0.1222E-07, -0.1688E-07, & + -0.2277E-07, -0.2967E-07, -0.3849E-07, -0.4889E-07, -0.5966E-07, & + -0.7002E-07, -0.8063E-07, -0.9037E-07, -0.9801E-07, -0.1026E-06, & + -0.1016E-06, -0.8995E-07, -0.5920E-07, 0.9117E-08, 0.1409E-06, & + 0.3365E-06/ data ((h21(ip,iw),iw=1,31), ip= 9, 9)/ & - 0.99999607, 0.99999237, 0.99998540, 0.99997276, 0.99995089, & - 0.99991536, 0.99986148, 0.99978572, 0.99968570, 0.99955928, & - 0.99940401, 0.99921501, 0.99897999, 0.99867398, 0.99825603, & - 0.99767601, 0.99686497, 0.99573302, 0.99415499, 0.99196899, & - 0.98895001, 0.98479998, 0.97907001, 0.97119999, 0.96038002, & - 0.94559997, 0.92565000, 0.89910001, 0.86470002, 0.82130003, & - 0.76830000/ + 0.99999642, 0.99999303, 0.99998623, 0.99997389, 0.99995190, & + 0.99991465, 0.99985743, 0.99977821, 0.99967796, 0.99955577, & + 0.99940449, 0.99921286, 0.99896592, 0.99864131, 0.99820441, & + 0.99760073, 0.99675626, 0.99557197, 0.99391770, 0.99161607, & + 0.98842955, 0.98402578, 0.97793722, 0.96952480, 0.95795447, & + 0.94216752, 0.92086565, 0.89257455, 0.85580462, 0.80932784, & + 0.75241166/ data ((h22(ip,iw),iw=1,31), ip= 9, 9)/ & - -0.5630e-07, -0.1074e-06, -0.1994e-06, -0.3564e-06, -0.6072e-06, & - -0.9779e-06, -0.1484e-05, -0.2124e-05, -0.2900e-05, -0.3817e-05, & - -0.4891e-05, -0.6205e-05, -0.7931e-05, -0.1031e-04, -0.1362e-04, & - -0.1821e-04, -0.2454e-04, -0.3320e-04, -0.4493e-04, -0.6068e-04, & - -0.8186e-04, -0.1104e-03, -0.1491e-03, -0.2016e-03, -0.2722e-03, & - -0.3658e-03, -0.4873e-03, -0.6404e-03, -0.8253e-03, -0.1037e-02, & - -0.1267e-02/ + -0.4843E-07, -0.9581E-07, -0.1804E-06, -0.3297E-06, -0.5752E-06, & + -0.9416E-06, -0.1430E-05, -0.2021E-05, -0.2717E-05, -0.3559E-05, & + -0.4614E-05, -0.5946E-05, -0.7641E-05, -0.9914E-05, -0.1305E-04, & + -0.1745E-04, -0.2355E-04, -0.3191E-04, -0.4326E-04, -0.5865E-04, & + -0.7950E-04, -0.1078E-03, -0.1461E-03, -0.1980E-03, -0.2674E-03, & + -0.3588E-03, -0.4770E-03, -0.6253E-03, -0.8043E-03, -0.1009E-02, & + -0.1233E-02/ data ((h23(ip,iw),iw=1,31), ip= 9, 9)/ & - -0.2207e-09, -0.4061e-09, -0.7117e-09, -0.1169e-08, -0.1767e-08, & - -0.2439e-08, -0.3074e-08, -0.3588e-08, -0.4062e-08, -0.4510e-08, & - -0.4983e-08, -0.6261e-08, -0.9324e-08, -0.1430e-07, -0.2036e-07, & - -0.2725e-07, -0.3561e-07, -0.4505e-07, -0.5384e-07, -0.6111e-07, & - -0.6731e-07, -0.7355e-07, -0.8112e-07, -0.8978e-07, -0.9616e-07, & - -0.9157e-07, -0.6114e-07, 0.1622e-07, 0.1694e-06, 0.4277e-06, & - 0.7751e-06/ + -0.1623E-09, -0.3752E-09, -0.6466E-09, -0.1094E-08, -0.1676E-08, & + -0.2131E-08, -0.2248E-08, -0.2102E-08, -0.2440E-08, -0.3941E-08, & + -0.5913E-08, -0.7530E-08, -0.9207E-08, -0.1200E-07, -0.1646E-07, & + -0.2222E-07, -0.2990E-07, -0.3952E-07, -0.5004E-07, -0.6039E-07, & + -0.7090E-07, -0.8171E-07, -0.9142E-07, -0.9799E-07, -0.9897E-07, & + -0.9060E-07, -0.6537E-07, -0.9170E-08, 0.1011E-06, 0.2785E-06, & + 0.4786E-06/ data ((h21(ip,iw),iw=1,31), ip=10,10)/ & - 0.99999607, 0.99999237, 0.99998540, 0.99997264, 0.99995059, & - 0.99991453, 0.99985939, 0.99978119, 0.99967682, 0.99954277, & - 0.99937469, 0.99916458, 0.99889499, 0.99853599, 0.99804002, & - 0.99734300, 0.99636298, 0.99498600, 0.99305803, 0.99037802, & - 0.98667002, 0.98154002, 0.97447002, 0.96473998, 0.95141000, & - 0.93333000, 0.90916002, 0.87750000, 0.83710003, 0.78729999, & - 0.72790003/ + 0.99999642, 0.99999303, 0.99998623, 0.99997383, 0.99995154, & + 0.99991393, 0.99985534, 0.99977356, 0.99966878, 0.99953789, & + 0.99937212, 0.99915701, 0.99887317, 0.99849242, 0.99797267, & + 0.99724811, 0.99622810, 0.99478859, 0.99276686, 0.98994553, & + 0.98602796, 0.98060095, 0.97308666, 0.96271574, 0.94850242, & + 0.92922503, 0.90344882, 0.86965692, 0.82650536, 0.77310455, & + 0.70888364/ data ((h22(ip,iw),iw=1,31), ip=10,10)/ & - -0.5636e-07, -0.1076e-06, -0.2000e-06, -0.3582e-06, -0.6119e-06, & - -0.9888e-06, -0.1507e-05, -0.2168e-05, -0.2978e-05, -0.3952e-05, & - -0.5122e-05, -0.6592e-05, -0.8565e-05, -0.1132e-04, -0.1518e-04, & - -0.2060e-04, -0.2811e-04, -0.3848e-04, -0.5261e-04, -0.7173e-04, & - -0.9758e-04, -0.1326e-03, -0.1801e-03, -0.2442e-03, -0.3296e-03, & - -0.4415e-03, -0.5840e-03, -0.7591e-03, -0.9636e-03, -0.1189e-02, & - -0.1427e-02/ + -0.4902E-07, -0.9610E-07, -0.1818E-06, -0.3318E-06, -0.5793E-06, & + -0.9508E-06, -0.1451E-05, -0.2061E-05, -0.2790E-05, -0.3690E-05, & + -0.4841E-05, -0.6317E-05, -0.8240E-05, -0.1085E-04, -0.1450E-04, & + -0.1965E-04, -0.2686E-04, -0.3682E-04, -0.5045E-04, -0.6903E-04, & + -0.9430E-04, -0.1287E-03, -0.1753E-03, -0.2381E-03, -0.3215E-03, & + -0.4302E-03, -0.5682E-03, -0.7372E-03, -0.9345E-03, -0.1153E-02, & + -0.1387E-02/ data ((h23(ip,iw),iw=1,31), ip=10,10)/ & - -0.2214e-09, -0.4080e-09, -0.7156e-09, -0.1178e-08, -0.1784e-08, & - -0.2466e-08, -0.3105e-08, -0.3617e-08, -0.4087e-08, -0.4563e-08, & - -0.5110e-08, -0.6492e-08, -0.9643e-08, -0.1461e-07, -0.2069e-07, & - -0.2796e-07, -0.3702e-07, -0.4717e-07, -0.5662e-07, -0.6484e-07, & - -0.7271e-07, -0.8079e-07, -0.8928e-07, -0.9634e-07, -0.9625e-07, & - -0.7776e-07, -0.2242e-07, 0.9745e-07, 0.3152e-06, 0.6388e-06, & - 0.9992e-06/ + -0.1730E-09, -0.3805E-09, -0.6493E-09, -0.1110E-08, -0.1682E-08, & + -0.2174E-08, -0.2259E-08, -0.2107E-08, -0.2512E-08, -0.3949E-08, & + -0.5913E-08, -0.7512E-08, -0.9071E-08, -0.1165E-07, -0.1597E-07, & + -0.2214E-07, -0.3079E-07, -0.4090E-07, -0.5119E-07, -0.6148E-07, & + -0.7225E-07, -0.8328E-07, -0.9212E-07, -0.9568E-07, -0.9071E-07, & + -0.7143E-07, -0.2598E-07, 0.6630E-07, 0.2241E-06, 0.4256E-06, & + 0.5851E-06/ data ((h21(ip,iw),iw=1,31), ip=11,11)/ & - 0.99999607, 0.99999237, 0.99998534, 0.99997252, 0.99995011, & - 0.99991328, 0.99985629, 0.99977452, 0.99966347, 0.99951839, & - 0.99933177, 0.99909180, 0.99877602, 0.99834698, 0.99774700, & - 0.99690098, 0.99570400, 0.99401599, 0.99164802, 0.98834997, & - 0.98377001, 0.97742999, 0.96868002, 0.95666999, 0.94032001, & - 0.91833997, 0.88929999, 0.85189998, 0.80530000, 0.74909997, & - 0.68299997/ + 0.99999642, 0.99999303, 0.99998617, 0.99997371, 0.99995112, & + 0.99991250, 0.99985224, 0.99976677, 0.99965459, 0.99951136, & + 0.99932498, 0.99907678, 0.99874300, 0.99828905, 0.99766219, & + 0.99678314, 0.99553728, 0.99377203, 0.99128604, 0.98781121, & + 0.98297691, 0.97626954, 0.96698701, 0.95421380, 0.93680686, & + 0.91339087, 0.88244677, 0.84253281, 0.79259300, 0.73202771, & + 0.66004348/ data ((h22(ip,iw),iw=1,31), ip=11,11)/ & - -0.5645e-07, -0.1079e-06, -0.2009e-06, -0.3610e-06, -0.6190e-06, & - -0.1005e-05, -0.1541e-05, -0.2235e-05, -0.3096e-05, -0.4155e-05, & - -0.5463e-05, -0.7150e-05, -0.9453e-05, -0.1269e-04, -0.1728e-04, & - -0.2375e-04, -0.3279e-04, -0.4531e-04, -0.6246e-04, -0.8579e-04, & - -0.1175e-03, -0.1604e-03, -0.2186e-03, -0.2964e-03, -0.3990e-03, & - -0.5311e-03, -0.6957e-03, -0.8916e-03, -0.1112e-02, -0.1346e-02, & - -0.1590e-02/ + -0.4932E-07, -0.9760E-07, -0.1833E-06, -0.3341E-06, -0.5857E-06, & + -0.9661E-06, -0.1485E-05, -0.2126E-05, -0.2905E-05, -0.3887E-05, & + -0.5173E-05, -0.6847E-05, -0.9066E-05, -0.1212E-04, -0.1643E-04, & + -0.2256E-04, -0.3120E-04, -0.4320E-04, -0.5970E-04, -0.8227E-04, & + -0.1131E-03, -0.1550E-03, -0.2116E-03, -0.2874E-03, -0.3870E-03, & + -0.5148E-03, -0.6736E-03, -0.8622E-03, -0.1075E-02, -0.1304E-02, & + -0.1547E-02/ data ((h23(ip,iw),iw=1,31), ip=11,11)/ & - -0.2225e-09, -0.4104e-09, -0.7217e-09, -0.1192e-08, -0.1811e-08, & - -0.2509e-08, -0.3155e-08, -0.3668e-08, -0.4138e-08, -0.4650e-08, & - -0.5296e-08, -0.6785e-08, -0.9991e-08, -0.1494e-07, -0.2122e-07, & - -0.2911e-07, -0.3895e-07, -0.4979e-07, -0.6002e-07, -0.6964e-07, & - -0.7935e-07, -0.8887e-07, -0.9699e-07, -0.9967e-07, -0.8883e-07, & - -0.4988e-07, 0.4156e-07, 0.2197e-06, 0.5081e-06, 0.8667e-06, & - 0.1212e-05/ + -0.1676E-09, -0.3752E-09, -0.6546E-09, -0.1118E-08, -0.1700E-08, & + -0.2193E-08, -0.2331E-08, -0.2187E-08, -0.2509E-08, -0.3954E-08, & + -0.5931E-08, -0.7411E-08, -0.8717E-08, -0.1116E-07, -0.1561E-07, & + -0.2272E-07, -0.3217E-07, -0.4240E-07, -0.5241E-07, -0.6315E-07, & + -0.7433E-07, -0.8486E-07, -0.9147E-07, -0.8991E-07, -0.7605E-07, & + -0.4043E-07, 0.3517E-07, 0.1721E-06, 0.3674E-06, 0.5493E-06, & + 0.6604E-06/ data ((h21(ip,iw),iw=1,31), ip=12,12)/ & - 0.99999607, 0.99999237, 0.99998528, 0.99997234, 0.99994951, & - 0.99991143, 0.99985188, 0.99976480, 0.99964428, 0.99948311, & - 0.99927050, 0.99899000, 0.99861199, 0.99809098, 0.99735999, & - 0.99632198, 0.99484903, 0.99276900, 0.98984998, 0.98576999, & - 0.98009998, 0.97224998, 0.96144003, 0.94667000, 0.92672002, & - 0.90020001, 0.86570001, 0.82220000, 0.76919997, 0.70640004, & - 0.63330001/ + 0.99999636, 0.99999297, 0.99998611, 0.99997342, 0.99995035, & + 0.99991083, 0.99984789, 0.99975663, 0.99963427, 0.99947309, & + 0.99925774, 0.99896514, 0.99856573, 0.99801725, 0.99725395, & + 0.99617636, 0.99464226, 0.99246347, 0.98939490, 0.98509979, & + 0.97911763, 0.97081727, 0.95935690, 0.94366837, 0.92244881, & + 0.89420575, 0.85743225, 0.81090724, 0.75391734, 0.68583673, & + 0.60547698/ data ((h22(ip,iw),iw=1,31), ip=12,12)/ & - -0.5658e-07, -0.1083e-06, -0.2023e-06, -0.3650e-06, -0.6295e-06, & - -0.1030e-05, -0.1593e-05, -0.2334e-05, -0.3273e-05, -0.4455e-05, & - -0.5955e-05, -0.7935e-05, -0.1067e-04, -0.1455e-04, -0.2007e-04, & - -0.2788e-04, -0.3885e-04, -0.5409e-04, -0.7503e-04, -0.1036e-03, & - -0.1425e-03, -0.1951e-03, -0.2660e-03, -0.3598e-03, -0.4817e-03, & - -0.6355e-03, -0.8218e-03, -0.1035e-02, -0.1267e-02, -0.1508e-02, & - -0.1755e-02/ + -0.4917E-07, -0.9789E-07, -0.1846E-06, -0.3387E-06, -0.5948E-06, & + -0.9898E-06, -0.1532E-05, -0.2218E-05, -0.3075E-05, -0.4181E-05, & + -0.5647E-05, -0.7589E-05, -0.1019E-04, -0.1382E-04, -0.1901E-04, & + -0.2641E-04, -0.3686E-04, -0.5143E-04, -0.7152E-04, -0.9907E-04, & + -0.1367E-03, -0.1878E-03, -0.2564E-03, -0.3473E-03, -0.4652E-03, & + -0.6135E-03, -0.7927E-03, -0.9982E-03, -0.1223E-02, -0.1462E-02, & + -0.1710E-02/ data ((h23(ip,iw),iw=1,31), ip=12,12)/ & - -0.2241e-09, -0.4142e-09, -0.7312e-09, -0.1214e-08, -0.1854e-08, & - -0.2578e-08, -0.3250e-08, -0.3765e-08, -0.4238e-08, -0.4809e-08, & - -0.5553e-08, -0.7132e-08, -0.1035e-07, -0.1538e-07, -0.2211e-07, & - -0.3079e-07, -0.4142e-07, -0.5303e-07, -0.6437e-07, -0.7566e-07, & - -0.8703e-07, -0.9700e-07, -0.1025e-06, -0.9718e-07, -0.6973e-07, & - -0.5265e-09, 0.1413e-06, 0.3895e-06, 0.7321e-06, 0.1085e-05, & - 0.1449e-05/ + -0.1597E-09, -0.3752E-09, -0.6679E-09, -0.1131E-08, -0.1708E-08, & + -0.2243E-08, -0.2440E-08, -0.2227E-08, -0.2573E-08, -0.3997E-08, & + -0.5902E-08, -0.7208E-08, -0.8220E-08, -0.1064E-07, -0.1580E-07, & + -0.2405E-07, -0.3396E-07, -0.4384E-07, -0.5434E-07, -0.6555E-07, & + -0.7680E-07, -0.8582E-07, -0.8796E-07, -0.7900E-07, -0.5180E-07, & + 0.8584E-08, 0.1245E-06, 0.3056E-06, 0.5039E-06, 0.6330E-06, & + 0.7692E-06/ data ((h21(ip,iw),iw=1,31), ip=13,13)/ & - 0.99999607, 0.99999231, 0.99998522, 0.99997205, 0.99994856, & - 0.99990892, 0.99984580, 0.99975121, 0.99961728, 0.99943388, & - 0.99918568, 0.99884999, 0.99839199, 0.99775398, 0.99685299, & - 0.99557197, 0.99375200, 0.99117702, 0.98755997, 0.98250002, & - 0.97548002, 0.96575999, 0.95244002, 0.93436003, 0.91018999, & - 0.87849998, 0.83810002, 0.78820002, 0.72870004, 0.65910000, & - 0.57850003/ + 0.99999636, 0.99999279, 0.99998599, 0.99997294, 0.99994928, & + 0.99990821, 0.99984163, 0.99974293, 0.99960572, 0.99941981, & + 0.99916512, 0.99881363, 0.99832994, 0.99766099, 0.99672300, & + 0.99539179, 0.99349195, 0.99079424, 0.98699373, 0.98167247, & + 0.97425884, 0.96399003, 0.94987535, 0.93068647, 0.90498149, & + 0.87122715, 0.82806110, 0.77459973, 0.71028948, 0.63413304, & + 0.54501963/ data ((h22(ip,iw),iw=1,31), ip=13,13)/ & - -0.5677e-07, -0.1090e-06, -0.2043e-06, -0.3709e-06, -0.6448e-06, & - -0.1066e-05, -0.1669e-05, -0.2480e-05, -0.3532e-05, -0.4887e-05, & - -0.6650e-05, -0.9017e-05, -0.1232e-04, -0.1701e-04, -0.2372e-04, & - -0.3325e-04, -0.4664e-04, -0.6528e-04, -0.9095e-04, -0.1260e-03, & - -0.1737e-03, -0.2381e-03, -0.3238e-03, -0.4359e-03, -0.5789e-03, & - -0.7549e-03, -0.9607e-03, -0.1188e-02, -0.1427e-02, -0.1674e-02, & - -0.1914e-02/ + -0.4917E-07, -0.9745E-07, -0.1865E-06, -0.3432E-06, -0.6093E-06, & + -0.1022E-05, -0.1603E-05, -0.2359E-05, -0.3325E-05, -0.4605E-05, & + -0.6316E-05, -0.8598E-05, -0.1170E-04, -0.1609E-04, -0.2239E-04, & + -0.3141E-04, -0.4416E-04, -0.6194E-04, -0.8652E-04, -0.1203E-03, & + -0.1663E-03, -0.2284E-03, -0.3111E-03, -0.4193E-03, -0.5572E-03, & + -0.7263E-03, -0.9240E-03, -0.1143E-02, -0.1378E-02, -0.1625E-02, & + -0.1865E-02/ data ((h23(ip,iw),iw=1,31), ip=13,13)/ & - -0.2262e-09, -0.4191e-09, -0.7441e-09, -0.1244e-08, -0.1916e-08, & - -0.2687e-08, -0.3407e-08, -0.3947e-08, -0.4432e-08, -0.5059e-08, & - -0.5896e-08, -0.7538e-08, -0.1079e-07, -0.1606e-07, -0.2346e-07, & - -0.3305e-07, -0.4459e-07, -0.5720e-07, -0.6999e-07, -0.8300e-07, & - -0.9536e-07, -0.1039e-06, -0.1036e-06, -0.8526e-07, -0.3316e-07, & - 0.7909e-07, 0.2865e-06, 0.6013e-06, 0.9580e-06, 0.1303e-05, & - 0.1792e-05/ + -0.1543E-09, -0.3619E-09, -0.6652E-09, -0.1136E-08, -0.1743E-08, & + -0.2350E-08, -0.2578E-08, -0.2461E-08, -0.2727E-08, -0.4066E-08, & + -0.5756E-08, -0.6690E-08, -0.7512E-08, -0.1041E-07, -0.1666E-07, & + -0.2579E-07, -0.3570E-07, -0.4578E-07, -0.5684E-07, -0.6871E-07, & + -0.7925E-07, -0.8473E-07, -0.8045E-07, -0.6059E-07, -0.1305E-07, & + 0.8252E-07, 0.2444E-06, 0.4481E-06, 0.6046E-06, 0.7101E-06, & + 0.1018E-05/ data ((h21(ip,iw),iw=1,31), ip=14,14)/ & - 0.99999607, 0.99999231, 0.99998510, 0.99997163, 0.99994737, & - 0.99990571, 0.99983770, 0.99973333, 0.99958128, 0.99936771, & - 0.99907219, 0.99866599, 0.99810302, 0.99731499, 0.99620003, & - 0.99461198, 0.99235398, 0.98916000, 0.98466998, 0.97839999, & - 0.96969002, 0.95769000, 0.94133997, 0.91935998, 0.89029998, & - 0.85290003, 0.80620003, 0.74989998, 0.68369997, 0.60679996, & - 0.51899999/ + 0.99999630, 0.99999273, 0.99998581, 0.99997246, 0.99994791, & + 0.99990481, 0.99983346, 0.99972439, 0.99956763, 0.99934852, & + 0.99904162, 0.99861497, 0.99802417, 0.99720109, 0.99604040, & + 0.99438727, 0.99202752, 0.98867983, 0.98396397, 0.97736186, & + 0.96817619, 0.95549798, 0.93818021, 0.91484344, 0.88396150, & + 0.84407526, 0.79411077, 0.73347151, 0.66137868, 0.57658100, & + 0.47910506/ data ((h22(ip,iw),iw=1,31), ip=14,14)/ & - -0.5703e-07, -0.1098e-06, -0.2071e-06, -0.3788e-06, -0.6657e-06, & - -0.1116e-05, -0.1776e-05, -0.2687e-05, -0.3898e-05, -0.5493e-05, & - -0.7607e-05, -0.1048e-04, -0.1450e-04, -0.2024e-04, -0.2845e-04, & - -0.4014e-04, -0.5658e-04, -0.7947e-04, -0.1110e-03, -0.1541e-03, & - -0.2125e-03, -0.2907e-03, -0.3936e-03, -0.5261e-03, -0.6912e-03, & - -0.8880e-03, -0.1109e-02, -0.1346e-02, -0.1591e-02, -0.1837e-02, & - -0.2054e-02/ + -0.5036E-07, -0.9909E-07, -0.1888E-06, -0.3521E-06, -0.6282E-06, & + -0.1066E-05, -0.1700E-05, -0.2555E-05, -0.3683E-05, -0.5196E-05, & + -0.7229E-05, -0.9953E-05, -0.1371E-04, -0.1908E-04, -0.2681E-04, & + -0.3786E-04, -0.5347E-04, -0.7529E-04, -0.1055E-03, -0.1468E-03, & + -0.2030E-03, -0.2782E-03, -0.3772E-03, -0.5047E-03, -0.6634E-03, & + -0.8522E-03, -0.1065E-02, -0.1295E-02, -0.1540E-02, -0.1787E-02, & + -0.1996E-02/ data ((h23(ip,iw),iw=1,31), ip=14,14)/ & - -0.2288e-09, -0.4265e-09, -0.7627e-09, -0.1289e-08, -0.2011e-08, & - -0.2861e-08, -0.3673e-08, -0.4288e-08, -0.4812e-08, -0.5475e-08, & - -0.6365e-08, -0.8052e-08, -0.1142e-07, -0.1711e-07, -0.2533e-07, & - -0.3597e-07, -0.4862e-07, -0.6259e-07, -0.7708e-07, -0.9150e-07, & - -0.1035e-06, -0.1079e-06, -0.9742e-07, -0.5928e-07, 0.2892e-07, & - 0.1998e-06, 0.4789e-06, 0.8298e-06, 0.1172e-05, 0.1583e-05, & - 0.2329e-05/ + -0.1650E-09, -0.3699E-09, -0.6839E-09, -0.1168E-08, -0.1799E-08, & + -0.2477E-08, -0.2810E-08, -0.2757E-08, -0.3002E-08, -0.4172E-08, & + -0.5399E-08, -0.5987E-08, -0.6990E-08, -0.1068E-07, -0.1805E-07, & + -0.2764E-07, -0.3760E-07, -0.4845E-07, -0.6028E-07, -0.7216E-07, & + -0.8063E-07, -0.8073E-07, -0.6733E-07, -0.3102E-07, 0.4654E-07, & + 0.1860E-06, 0.3840E-06, 0.5667E-06, 0.6739E-06, 0.8714E-06, & + 0.1516E-05/ data ((h21(ip,iw),iw=1,31), ip=15,15)/ & - 0.99999607, 0.99999225, 0.99998498, 0.99997115, 0.99994600, & - 0.99990171, 0.99982780, 0.99971092, 0.99953562, 0.99928278, & - 0.99892598, 0.99842799, 0.99773300, 0.99675500, 0.99536800, & - 0.99339402, 0.99058902, 0.98662001, 0.98104000, 0.97325999, & - 0.96249002, 0.94773000, 0.92778003, 0.90125000, 0.86680001, & - 0.82319999, 0.77010000, 0.70730001, 0.63400000, 0.54960001, & - 0.45560002/ + 0.99999636, 0.99999261, 0.99998546, 0.99997187, 0.99994642, & + 0.99990076, 0.99982363, 0.99970156, 0.99951971, 0.99925733, & + 0.99888444, 0.99836206, 0.99763465, 0.99661559, 0.99517184, & + 0.99311298, 0.99017996, 0.98602027, 0.98016363, 0.97197348, & + 0.96061146, 0.94501376, 0.92387742, 0.89570683, 0.85898691, & + 0.81248021, 0.75545335, 0.68728173, 0.60678530, 0.51328194, & + 0.40901369/ data ((h22(ip,iw),iw=1,31), ip=15,15)/ & - -0.5736e-07, -0.1109e-06, -0.2106e-06, -0.3890e-06, -0.6928e-06, & - -0.1181e-05, -0.1917e-05, -0.2965e-05, -0.4396e-05, -0.6315e-05, & - -0.8891e-05, -0.1242e-04, -0.1736e-04, -0.2442e-04, -0.3454e-04, & - -0.4892e-04, -0.6916e-04, -0.9735e-04, -0.1362e-03, -0.1891e-03, & - -0.2602e-03, -0.3545e-03, -0.4768e-03, -0.6310e-03, -0.8179e-03, & - -0.1032e-02, -0.1265e-02, -0.1508e-02, -0.1757e-02, -0.1989e-02, & - -0.2159e-02/ + -0.5185E-07, -0.9968E-07, -0.1933E-06, -0.3603E-06, -0.6523E-06, & + -0.1125E-05, -0.1831E-05, -0.2821E-05, -0.4170E-05, -0.5999E-05, & + -0.8450E-05, -0.1176E-04, -0.1636E-04, -0.2297E-04, -0.3250E-04, & + -0.4609E-04, -0.6529E-04, -0.9211E-04, -0.1292E-03, -0.1798E-03, & + -0.2481E-03, -0.3385E-03, -0.4560E-03, -0.6041E-03, -0.7833E-03, & + -0.9892E-03, -0.1214E-02, -0.1455E-02, -0.1704E-02, -0.1933E-02, & + -0.2084E-02/ data ((h23(ip,iw),iw=1,31), ip=15,15)/ & - -0.2321e-09, -0.4350e-09, -0.7861e-09, -0.1347e-08, -0.2144e-08, & - -0.3120e-08, -0.4107e-08, -0.4892e-08, -0.5511e-08, -0.6164e-08, & - -0.7054e-08, -0.8811e-08, -0.1240e-07, -0.1862e-07, -0.2773e-07, & - -0.3957e-07, -0.5371e-07, -0.6939e-07, -0.8564e-07, -0.1006e-06, & - -0.1100e-06, -0.1066e-06, -0.8018e-07, -0.1228e-07, 0.1263e-06, & - 0.3678e-06, 0.7022e-06, 0.1049e-05, 0.1411e-05, 0.2015e-05, & - 0.3099e-05/ + -0.1916E-09, -0.3752E-09, -0.6839E-09, -0.1192E-08, -0.1916E-08, & + -0.2664E-08, -0.3198E-08, -0.3313E-08, -0.3566E-08, -0.4305E-08, & + -0.4944E-08, -0.5242E-08, -0.6727E-08, -0.1150E-07, -0.1959E-07, & + -0.2938E-07, -0.4016E-07, -0.5184E-07, -0.6435E-07, -0.7544E-07, & + -0.7990E-07, -0.7239E-07, -0.4576E-07, 0.1525E-07, 0.1330E-06, & + 0.3159E-06, 0.5160E-06, 0.6449E-06, 0.7769E-06, 0.1232E-05, & + 0.2320E-05/ data ((h21(ip,iw),iw=1,31), ip=16,16)/ & - 0.99999791, 0.99999589, 0.99999183, 0.99998391, 0.99996853, & - 0.99993920, 0.99988472, 0.99978709, 0.99961978, 0.99934620, & - 0.99892199, 0.99830103, 0.99742401, 0.99619502, 0.99445999, & - 0.99199599, 0.98851001, 0.98360002, 0.97671002, 0.96710002, & - 0.95378000, 0.93559003, 0.91112000, 0.87900001, 0.83780003, & - 0.78680003, 0.72549999, 0.65300000, 0.56830001, 0.47140002, & - 0.36650002/ + 0.99999624, 0.99999249, 0.99998522, 0.99997109, 0.99994451, & + 0.99989629, 0.99981260, 0.99967539, 0.99946308, 0.99914724, & + 0.99869245, 0.99804932, 0.99714786, 0.99587929, 0.99407870, & + 0.99151409, 0.98786569, 0.98269808, 0.97542733, 0.96528339, & + 0.95127523, 0.93217921, 0.90655577, 0.87286794, 0.82974762, & + 0.77629298, 0.71193099, 0.63565648, 0.54636526, 0.44509035, & + 0.33688110/ data ((h22(ip,iw),iw=1,31), ip=16,16)/ & - -0.3122e-07, -0.6175e-07, -0.1214e-06, -0.2361e-06, -0.4518e-06, & - -0.8438e-06, -0.1524e-05, -0.2643e-05, -0.4380e-05, -0.6922e-05, & - -0.1042e-04, -0.1504e-04, -0.2125e-04, -0.2987e-04, -0.4200e-04, & - -0.5923e-04, -0.8383e-04, -0.1186e-03, -0.1670e-03, -0.2328e-03, & - -0.3204e-03, -0.4347e-03, -0.5802e-03, -0.7595e-03, -0.9703e-03, & - -0.1205e-02, -0.1457e-02, -0.1720e-02, -0.1980e-02, -0.2191e-02, & - -0.2290e-02/ + -0.5260E-07, -0.1019E-06, -0.1974E-06, -0.3724E-06, -0.6824E-06, & + -0.1194E-05, -0.1996E-05, -0.3163E-05, -0.4803E-05, -0.7042E-05, & + -0.1005E-04, -0.1413E-04, -0.1982E-04, -0.2799E-04, -0.3975E-04, & + -0.5650E-04, -0.8013E-04, -0.1131E-03, -0.1587E-03, -0.2205E-03, & + -0.3030E-03, -0.4109E-03, -0.5485E-03, -0.7176E-03, -0.9153E-03, & + -0.1135E-02, -0.1371E-02, -0.1619E-02, -0.1861E-02, -0.2046E-02, & + -0.2109E-02/ data ((h23(ip,iw),iw=1,31), ip=16,16)/ & - -0.1376e-09, -0.2699e-09, -0.5220e-09, -0.9897e-09, -0.1819e-08, & - -0.3186e-08, -0.5224e-08, -0.7896e-08, -0.1090e-07, -0.1349e-07, & - -0.1443e-07, -0.1374e-07, -0.1386e-07, -0.1673e-07, -0.2237e-07, & - -0.3248e-07, -0.5050e-07, -0.7743e-07, -0.1097e-06, -0.1369e-06, & - -0.1463e-06, -0.1268e-06, -0.6424e-07, 0.5941e-07, 0.2742e-06, & - 0.5924e-06, 0.9445e-06, 0.1286e-05, 0.1819e-05, 0.2867e-05, & - 0.4527e-05/ + -0.1836E-09, -0.3672E-09, -0.7105E-09, -0.1227E-08, -0.2012E-08, & + -0.2964E-08, -0.3802E-08, -0.4263E-08, -0.4571E-08, -0.4697E-08, & + -0.4755E-08, -0.4848E-08, -0.6804E-08, -0.1225E-07, -0.2080E-07, & + -0.3111E-07, -0.4302E-07, -0.5604E-07, -0.6883E-07, -0.7751E-07, & + -0.7602E-07, -0.5781E-07, -0.1111E-07, 0.8486E-07, 0.2480E-06, & + 0.4530E-06, 0.6104E-06, 0.7152E-06, 0.1020E-05, 0.1877E-05, & + 0.3424E-05/ data ((h21(ip,iw),iw=1,31), ip=17,17)/ & - 0.99999756, 0.99999511, 0.99999028, 0.99998081, 0.99996233, & - 0.99992681, 0.99986011, 0.99973929, 0.99953061, 0.99918979, & - 0.99866599, 0.99790198, 0.99681997, 0.99528998, 0.99312103, & - 0.99004799, 0.98571002, 0.97961998, 0.97105998, 0.95915002, & - 0.94278002, 0.92061001, 0.89120001, 0.85320002, 0.80550003, & - 0.74759996, 0.67900002, 0.59829998, 0.50520003, 0.40219998, & - 0.29600000/ + 0.99999613, 0.99999231, 0.99998498, 0.99997044, 0.99994290, & + 0.99989182, 0.99980116, 0.99964774, 0.99940079, 0.99902284, & + 0.99846709, 0.99767250, 0.99655056, 0.99496633, 0.99271864, & + 0.98952401, 0.98498827, 0.97857380, 0.96956515, 0.95703954, & + 0.93984765, 0.91661447, 0.88581598, 0.84599125, 0.79606229, & + 0.73541570, 0.66324592, 0.57828486, 0.48056805, 0.37372464, & + 0.26559973/ data ((h22(ip,iw),iw=1,31), ip=17,17)/ & - -0.3547e-07, -0.7029e-07, -0.1386e-06, -0.2709e-06, -0.5218e-06, & - -0.9840e-06, -0.1799e-05, -0.3156e-05, -0.5272e-05, -0.8357e-05, & - -0.1260e-04, -0.1827e-04, -0.2598e-04, -0.3667e-04, -0.5169e-04, & - -0.7312e-04, -0.1037e-03, -0.1467e-03, -0.2060e-03, -0.2857e-03, & - -0.3907e-03, -0.5257e-03, -0.6940e-03, -0.8954e-03, -0.1124e-02, & - -0.1371e-02, -0.1632e-02, -0.1897e-02, -0.2131e-02, -0.2275e-02, & - -0.2265e-02/ + -0.5304E-07, -0.1036E-06, -0.2022E-06, -0.3850E-06, -0.7154E-06, & + -0.1274E-05, -0.2183E-05, -0.3568E-05, -0.5572E-05, -0.8348E-05, & + -0.1210E-04, -0.1720E-04, -0.2429E-04, -0.3441E-04, -0.4891E-04, & + -0.6954E-04, -0.9864E-04, -0.1392E-03, -0.1949E-03, -0.2699E-03, & + -0.3689E-03, -0.4963E-03, -0.6550E-03, -0.8439E-03, -0.1057E-02, & + -0.1288E-02, -0.1534E-02, -0.1782E-02, -0.1994E-02, -0.2106E-02, & + -0.2053E-02/ data ((h23(ip,iw),iw=1,31), ip=17,17)/ & - -0.1482e-09, -0.2910e-09, -0.5667e-09, -0.1081e-08, -0.2005e-08, & - -0.3554e-08, -0.5902e-08, -0.8925e-08, -0.1209e-07, -0.1448e-07, & - -0.1536e-07, -0.1565e-07, -0.1763e-07, -0.2088e-07, -0.2564e-07, & - -0.3635e-07, -0.5791e-07, -0.8907e-07, -0.1213e-06, -0.1418e-06, & - -0.1397e-06, -0.1000e-06, -0.4427e-08, 0.1713e-06, 0.4536e-06, & - 0.8086e-06, 0.1153e-05, 0.1588e-05, 0.2437e-05, 0.3905e-05, & - 0.5874e-05/ + -0.1703E-09, -0.3858E-09, -0.7318E-09, -0.1283E-08, -0.2201E-08, & + -0.3345E-08, -0.4614E-08, -0.5657E-08, -0.6173E-08, -0.5987E-08, & + -0.5287E-08, -0.5037E-08, -0.7030E-08, -0.1263E-07, -0.2138E-07, & + -0.3278E-07, -0.4617E-07, -0.6060E-07, -0.7291E-07, -0.7732E-07, & + -0.6744E-07, -0.3340E-07, 0.4259E-07, 0.1817E-06, 0.3801E-06, & + 0.5630E-06, 0.6702E-06, 0.8678E-06, 0.1511E-05, 0.2833E-05, & + 0.4741E-05/ data ((h21(ip,iw),iw=1,31), ip=18,18)/ & - 0.99999714, 0.99999428, 0.99998862, 0.99997741, 0.99995553, & - 0.99991333, 0.99983358, 0.99968803, 0.99943441, 0.99901879, & - 0.99837899, 0.99744099, 0.99609798, 0.99418801, 0.99147803, & - 0.98764998, 0.98227000, 0.97469997, 0.96410000, 0.94941998, & - 0.92940998, 0.90263999, 0.86769998, 0.82330000, 0.76880002, & - 0.70379996, 0.62720001, 0.53810000, 0.43769997, 0.33149999, & - 0.22839999/ + 0.99999613, 0.99999225, 0.99998474, 0.99997002, 0.99994147, & + 0.99988788, 0.99979049, 0.99962020, 0.99933702, 0.99888939, & + 0.99821389, 0.99723196, 0.99583292, 0.99385166, 0.99104559, & + 0.98706627, 0.98143232, 0.97348487, 0.96235722, 0.94696146, & + 0.92598587, 0.89793938, 0.86130989, 0.81485945, 0.75785357, & + 0.68964934, 0.60902810, 0.51528323, 0.41067511, 0.30170137, & + 0.19860673/ data ((h22(ip,iw),iw=1,31), ip=18,18)/ & - -0.4064e-07, -0.8066e-07, -0.1593e-06, -0.3124e-06, -0.6049e-06, & - -0.1148e-05, -0.2118e-05, -0.3751e-05, -0.6314e-05, -0.1006e-04, & - -0.1526e-04, -0.2232e-04, -0.3196e-04, -0.4525e-04, -0.6394e-04, & - -0.9058e-04, -0.1284e-03, -0.1812e-03, -0.2533e-03, -0.3493e-03, & - -0.4740e-03, -0.6315e-03, -0.8228e-03, -0.1044e-02, -0.1286e-02, & - -0.1544e-02, -0.1810e-02, -0.2061e-02, -0.2243e-02, -0.2291e-02, & - -0.2152e-02/ + -0.5304E-07, -0.1044E-06, -0.2061E-06, -0.3965E-06, -0.7459E-06, & + -0.1357E-05, -0.2386E-05, -0.4017E-05, -0.6449E-05, -0.9910E-05, & + -0.1465E-04, -0.2110E-04, -0.3000E-04, -0.4253E-04, -0.6040E-04, & + -0.8579E-04, -0.1215E-03, -0.1712E-03, -0.2389E-03, -0.3293E-03, & + -0.4469E-03, -0.5953E-03, -0.7747E-03, -0.9809E-03, -0.1207E-02, & + -0.1448E-02, -0.1699E-02, -0.1931E-02, -0.2084E-02, -0.2093E-02, & + -0.1907E-02/ data ((h23(ip,iw),iw=1,31), ip=18,18)/ & - -0.1630e-09, -0.3213e-09, -0.6266e-09, -0.1201e-08, -0.2248e-08, & - -0.4030e-08, -0.6770e-08, -0.1033e-07, -0.1392e-07, -0.1640e-07, & - -0.1768e-07, -0.1932e-07, -0.2229e-07, -0.2508e-07, -0.2940e-07, & - -0.4200e-07, -0.6717e-07, -0.1002e-06, -0.1286e-06, -0.1402e-06, & - -0.1216e-06, -0.5487e-07, 0.8418e-07, 0.3246e-06, 0.6610e-06, & - 0.1013e-05, 0.1394e-05, 0.2073e-05, 0.3337e-05, 0.5175e-05, & - 0.7255e-05/ + -0.1703E-09, -0.3858E-09, -0.7424E-09, -0.1370E-08, -0.2379E-08, & + -0.3821E-08, -0.5670E-08, -0.7445E-08, -0.8587E-08, -0.8552E-08, & + -0.7352E-08, -0.6325E-08, -0.7467E-08, -0.1232E-07, -0.2127E-07, & + -0.3357E-07, -0.4875E-07, -0.6440E-07, -0.7483E-07, -0.7309E-07, & + -0.5083E-07, 0.6847E-08, 0.1213E-06, 0.3018E-06, 0.5002E-06, & + 0.6273E-06, 0.7589E-06, 0.1216E-05, 0.2306E-05, 0.4058E-05, & + 0.6072E-05/ data ((h21(ip,iw),iw=1,31), ip=19,19)/ & - 0.99999672, 0.99999344, 0.99998701, 0.99997419, 0.99994916, & - 0.99990064, 0.99980861, 0.99963921, 0.99934143, 0.99884701, & - 0.99807602, 0.99692601, 0.99525797, 0.99287403, 0.98948997, & - 0.98474002, 0.97804999, 0.96867001, 0.95559001, 0.93761998, & - 0.91336000, 0.88139999, 0.84029996, 0.78920001, 0.72770000, & - 0.65499997, 0.56999999, 0.47280002, 0.36760002, 0.26220000, & - 0.16700000/ + 0.99999619, 0.99999231, 0.99998468, 0.99996972, 0.99994040, & + 0.99988461, 0.99978089, 0.99959469, 0.99927568, 0.99875391, & + 0.99794221, 0.99673504, 0.99499243, 0.99251539, 0.98901063, & + 0.98405677, 0.97706568, 0.96724236, 0.95355600, 0.93474090, & + 0.90933526, 0.87580550, 0.83278608, 0.77937931, 0.71501046, & + 0.63865173, 0.54914534, 0.44749933, 0.33880121, 0.23220938, & + 0.13937765/ data ((h22(ip,iw),iw=1,31), ip=19,19)/ & - -0.4629e-07, -0.9195e-07, -0.1819e-06, -0.3572e-06, -0.6936e-06, & - -0.1323e-05, -0.2456e-05, -0.4385e-05, -0.7453e-05, -0.1200e-04, & - -0.1843e-04, -0.2731e-04, -0.3943e-04, -0.5606e-04, -0.7936e-04, & - -0.1123e-03, -0.1588e-03, -0.2231e-03, -0.3101e-03, -0.4247e-03, & - -0.5713e-03, -0.7522e-03, -0.9651e-03, -0.1202e-02, -0.1456e-02, & - -0.1721e-02, -0.1983e-02, -0.2196e-02, -0.2296e-02, -0.2224e-02, & - -0.1952e-02/ + -0.5304E-07, -0.1064E-06, -0.2104E-06, -0.4047E-06, -0.7741E-06, & + -0.1439E-05, -0.2589E-05, -0.4474E-05, -0.7399E-05, -0.1169E-04, & + -0.1770E-04, -0.2591E-04, -0.3715E-04, -0.5276E-04, -0.7478E-04, & + -0.1059E-03, -0.1497E-03, -0.2101E-03, -0.2919E-03, -0.3998E-03, & + -0.5378E-03, -0.7075E-03, -0.9059E-03, -0.1126E-02, -0.1363E-02, & + -0.1613E-02, -0.1858E-02, -0.2046E-02, -0.2112E-02, -0.1994E-02, & + -0.1678E-02/ data ((h23(ip,iw),iw=1,31), ip=19,19)/ & - -0.1827e-09, -0.3607e-09, -0.7057e-09, -0.1359e-08, -0.2552e-08, & - -0.4615e-08, -0.7854e-08, -0.1218e-07, -0.1670e-07, -0.2008e-07, & - -0.2241e-07, -0.2516e-07, -0.2796e-07, -0.3015e-07, -0.3506e-07, & - -0.4958e-07, -0.7627e-07, -0.1070e-06, -0.1289e-06, -0.1286e-06, & - -0.8843e-07, 0.1492e-07, 0.2118e-06, 0.5155e-06, 0.8665e-06, & - 0.1220e-05, 0.1765e-05, 0.2825e-05, 0.4498e-05, 0.6563e-05, & - 0.8422e-05/ + -0.1756E-09, -0.3991E-09, -0.7557E-09, -0.1421E-08, -0.2568E-08, & + -0.4361E-08, -0.6815E-08, -0.9569E-08, -0.1197E-07, -0.1290E-07, & + -0.1181E-07, -0.9694E-08, -0.8794E-08, -0.1168E-07, -0.1969E-07, & + -0.3278E-07, -0.4934E-07, -0.6493E-07, -0.7206E-07, -0.6150E-07, & + -0.2053E-07, 0.6998E-07, 0.2274E-06, 0.4265E-06, 0.5780E-06, & + 0.6774E-06, 0.9818E-06, 0.1844E-05, 0.3399E-05, 0.5411E-05, & + 0.7121E-05/ data ((h21(ip,iw),iw=1,31), ip=20,20)/ & - 0.99999636, 0.99999279, 0.99998569, 0.99997163, 0.99994397, & - 0.99989033, 0.99978799, 0.99959832, 0.99926043, 0.99868900, & - 0.99777400, 0.99637598, 0.99431503, 0.99134803, 0.98714000, & - 0.98122001, 0.97290999, 0.96131998, 0.94528997, 0.92346001, & - 0.89429998, 0.85650003, 0.80879998, 0.75080001, 0.68190002, & - 0.60100001, 0.50740004, 0.40399998, 0.29729998, 0.19730002, & - 0.11479998/ + 0.99999624, 0.99999231, 0.99998474, 0.99996942, 0.99993980, & + 0.99988210, 0.99977279, 0.99957287, 0.99921966, 0.99862283, & + 0.99766326, 0.99619573, 0.99403816, 0.99094629, 0.98657119, & + 0.98040581, 0.97174209, 0.95963550, 0.94288456, 0.92004675, & + 0.88955516, 0.84993827, 0.80012286, 0.73950386, 0.66727221, & + 0.58212024, 0.48402858, 0.37661588, 0.26779234, 0.16875094, & + 0.09066099/ data ((h22(ip,iw),iw=1,31), ip=20,20)/ & - -0.5164e-07, -0.1026e-06, -0.2031e-06, -0.3994e-06, -0.7771e-06, & - -0.1488e-05, -0.2776e-05, -0.5001e-05, -0.8610e-05, -0.1411e-04, & - -0.2209e-04, -0.3328e-04, -0.4860e-04, -0.6954e-04, -0.9861e-04, & - -0.1393e-03, -0.1961e-03, -0.2738e-03, -0.3778e-03, -0.5132e-03, & - -0.6831e-03, -0.8868e-03, -0.1118e-02, -0.1368e-02, -0.1632e-02, & - -0.1899e-02, -0.2136e-02, -0.2282e-02, -0.2273e-02, -0.2067e-02, & - -0.1679e-02/ + -0.5290E-07, -0.1064E-06, -0.2119E-06, -0.4114E-06, -0.7982E-06, & + -0.1509E-05, -0.2775E-05, -0.4919E-05, -0.8370E-05, -0.1362E-04, & + -0.2118E-04, -0.3167E-04, -0.4595E-04, -0.6552E-04, -0.9271E-04, & + -0.1309E-03, -0.1841E-03, -0.2571E-03, -0.3549E-03, -0.4821E-03, & + -0.6415E-03, -0.8315E-03, -0.1046E-02, -0.1278E-02, -0.1526E-02, & + -0.1777E-02, -0.1993E-02, -0.2109E-02, -0.2059E-02, -0.1807E-02, & + -0.1386E-02/ data ((h23(ip,iw),iw=1,31), ip=20,20)/ & - -0.2058e-09, -0.4066e-09, -0.7967e-09, -0.1539e-08, -0.2904e-08, & - -0.5293e-08, -0.9116e-08, -0.1447e-07, -0.2058e-07, -0.2608e-07, & - -0.3053e-07, -0.3418e-07, -0.3619e-07, -0.3766e-07, -0.4313e-07, & - -0.5817e-07, -0.8299e-07, -0.1072e-06, -0.1195e-06, -0.1031e-06, & - -0.3275e-07, 0.1215e-06, 0.3835e-06, 0.7220e-06, 0.1062e-05, & - 0.1504e-05, 0.2367e-05, 0.3854e-05, 0.5842e-05, 0.7875e-05, & - 0.9082e-05/ + -0.1889E-09, -0.3779E-09, -0.7876E-09, -0.1466E-08, -0.2775E-08, & + -0.4854E-08, -0.7938E-08, -0.1197E-07, -0.1622E-07, -0.1911E-07, & + -0.1924E-07, -0.1651E-07, -0.1270E-07, -0.1165E-07, -0.1684E-07, & + -0.2884E-07, -0.4505E-07, -0.5873E-07, -0.6063E-07, -0.3693E-07, & + 0.3092E-07, 0.1620E-06, 0.3510E-06, 0.5227E-06, 0.6166E-06, & + 0.8039E-06, 0.1446E-05, 0.2779E-05, 0.4704E-05, 0.6641E-05, & + 0.7588E-05/ data ((h21(ip,iw),iw=1,31), ip=21,21)/ & - 0.99999619, 0.99999237, 0.99998480, 0.99996990, 0.99994045, & - 0.99988312, 0.99977320, 0.99956751, 0.99919540, 0.99855101, & - 0.99748802, 0.99581498, 0.99329299, 0.98961997, 0.98439002, & - 0.97702003, 0.96671999, 0.95245999, 0.93291998, 0.90660000, & - 0.87199998, 0.82780004, 0.77329999, 0.70819998, 0.63119996, & - 0.54159999, 0.44059998, 0.33380002, 0.23000002, 0.14029998, & - 0.07340002/ + 0.99999624, 0.99999231, 0.99998480, 0.99996942, 0.99993926, & + 0.99988008, 0.99976671, 0.99955463, 0.99917024, 0.99850142, & + 0.99739027, 0.99563473, 0.99299157, 0.98915201, 0.98369783, & + 0.97603029, 0.96531236, 0.95044154, 0.93004721, 0.90254754, & + 0.86634612, 0.82017386, 0.76329756, 0.69507873, 0.61428088, & + 0.52014816, 0.41490984, 0.30508935, 0.20102721, 0.11452556, & + 0.05384004/ data ((h22(ip,iw),iw=1,31), ip=21,21)/ & - -0.5584e-07, -0.1110e-06, -0.2198e-06, -0.4329e-06, -0.8444e-06, & - -0.1623e-05, -0.3049e-05, -0.5551e-05, -0.9714e-05, -0.1627e-04, & - -0.2609e-04, -0.4015e-04, -0.5955e-04, -0.8603e-04, -0.1223e-03, & - -0.1724e-03, -0.2413e-03, -0.3346e-03, -0.4578e-03, -0.6155e-03, & - -0.8087e-03, -0.1033e-02, -0.1279e-02, -0.1540e-02, -0.1811e-02, & - -0.2065e-02, -0.2251e-02, -0.2301e-02, -0.2163e-02, -0.1828e-02, & - -0.1365e-02/ + -0.5349E-07, -0.1064E-06, -0.2128E-06, -0.4178E-06, -0.8167E-06, & + -0.1568E-05, -0.2933E-05, -0.5332E-05, -0.9319E-05, -0.1561E-04, & + -0.2499E-04, -0.3829E-04, -0.5651E-04, -0.8120E-04, -0.1150E-03, & + -0.1616E-03, -0.2260E-03, -0.3134E-03, -0.4291E-03, -0.5768E-03, & + -0.7570E-03, -0.9648E-03, -0.1193E-02, -0.1437E-02, -0.1691E-02, & + -0.1927E-02, -0.2087E-02, -0.2101E-02, -0.1918E-02, -0.1545E-02, & + -0.1069E-02/ data ((h23(ip,iw),iw=1,31), ip=21,21)/ & - -0.2274e-09, -0.4498e-09, -0.8814e-09, -0.1708e-08, -0.3247e-08, & - -0.5972e-08, -0.1045e-07, -0.1707e-07, -0.2545e-07, -0.3440e-07, & - -0.4259e-07, -0.4822e-07, -0.5004e-07, -0.5061e-07, -0.5485e-07, & - -0.6687e-07, -0.8483e-07, -0.9896e-07, -0.9646e-07, -0.5557e-07, & - 0.5765e-07, 0.2752e-06, 0.5870e-06, 0.9188e-06, 0.1291e-05, & - 0.1971e-05, 0.3251e-05, 0.5115e-05, 0.7221e-05, 0.8825e-05, & - 0.9032e-05/ + -0.1783E-09, -0.3832E-09, -0.8036E-09, -0.1522E-08, -0.2924E-08, & + -0.5277E-08, -0.9052E-08, -0.1446E-07, -0.2101E-07, -0.2708E-07, & + -0.3022E-07, -0.2818E-07, -0.2166E-07, -0.1463E-07, -0.1331E-07, & + -0.2062E-07, -0.3282E-07, -0.4140E-07, -0.3400E-07, 0.9002E-08, & + 0.1124E-06, 0.2822E-06, 0.4659E-06, 0.5729E-06, 0.6815E-06, & + 0.1123E-05, 0.2212E-05, 0.3980E-05, 0.6026E-05, 0.7434E-05, & + 0.7294E-05/ data ((h21(ip,iw),iw=1,31), ip=22,22)/ & - 0.99999607, 0.99999213, 0.99998438, 0.99996895, 0.99993849, & - 0.99987900, 0.99976391, 0.99954629, 0.99914569, 0.99843502, & - 0.99722600, 0.99526101, 0.99221897, 0.98771000, 0.98123002, & - 0.97209001, 0.95936000, 0.94187999, 0.91820002, 0.88679999, & - 0.84609997, 0.79530001, 0.73379999, 0.66090000, 0.57529998, & - 0.47740000, 0.37129998, 0.26490003, 0.16890001, 0.09340000, & - 0.04310000/ + 0.99999630, 0.99999255, 0.99998492, 0.99996948, 0.99993891, & + 0.99987864, 0.99976200, 0.99953991, 0.99912888, 0.99839354, & + 0.99713373, 0.99507743, 0.99188846, 0.98716390, 0.98039114, & + 0.97087091, 0.95763975, 0.93944019, 0.91475397, 0.88193613, & + 0.83949566, 0.78646111, 0.72224021, 0.64578426, 0.55588573, & + 0.45352978, 0.34383565, 0.23603255, 0.14191669, 0.07163429, & + 0.02856171/ data ((h22(ip,iw),iw=1,31), ip=22,22)/ & - -0.5833e-07, -0.1160e-06, -0.2300e-06, -0.4540e-06, -0.8885e-06, & - -0.1718e-05, -0.3256e-05, -0.6010e-05, -0.1072e-04, -0.1838e-04, & - -0.3026e-04, -0.4772e-04, -0.7223e-04, -0.1057e-03, -0.1512e-03, & - -0.2128e-03, -0.2961e-03, -0.4070e-03, -0.5514e-03, -0.7320e-03, & - -0.9467e-03, -0.1187e-02, -0.1446e-02, -0.1717e-02, -0.1985e-02, & - -0.2203e-02, -0.2307e-02, -0.2237e-02, -0.1965e-02, -0.1532e-02, & - -0.1044e-02/ + -0.5349E-07, -0.1068E-06, -0.2146E-06, -0.4223E-06, -0.8317E-06, & + -0.1611E-05, -0.3067E-05, -0.5691E-05, -0.1020E-04, -0.1758E-04, & + -0.2897E-04, -0.4561E-04, -0.6878E-04, -0.1001E-03, -0.1423E-03, & + -0.1994E-03, -0.2768E-03, -0.3805E-03, -0.5154E-03, -0.6837E-03, & + -0.8826E-03, -0.1105E-02, -0.1345E-02, -0.1600E-02, -0.1850E-02, & + -0.2046E-02, -0.2119E-02, -0.2007E-02, -0.1693E-02, -0.1237E-02, & + -0.7623E-03/ data ((h23(ip,iw),iw=1,31), ip=22,22)/ & - -0.2426e-09, -0.4805e-09, -0.9447e-09, -0.1841e-08, -0.3519e-08, & - -0.6565e-08, -0.1172e-07, -0.1979e-07, -0.3095e-07, -0.4443e-07, & - -0.5821e-07, -0.6868e-07, -0.7282e-07, -0.7208e-07, -0.7176e-07, & - -0.7562e-07, -0.8110e-07, -0.7934e-07, -0.5365e-07, 0.2483e-07, & - 0.1959e-06, 0.4731e-06, 0.7954e-06, 0.1123e-05, 0.1652e-05, & - 0.2711e-05, 0.4402e-05, 0.6498e-05, 0.8392e-05, 0.9154e-05, & - 0.8261e-05/ + -0.1889E-09, -0.4018E-09, -0.8302E-09, -0.1591E-08, -0.3049E-08, & + -0.5604E-08, -0.1004E-07, -0.1681E-07, -0.2608E-07, -0.3634E-07, & + -0.4447E-07, -0.4604E-07, -0.3862E-07, -0.2469E-07, -0.1217E-07, & + -0.7498E-08, -0.8834E-08, -0.6474E-08, 0.1720E-07, 0.8812E-07, & + 0.2295E-06, 0.4139E-06, 0.5426E-06, 0.6091E-06, 0.8817E-06, & + 0.1725E-05, 0.3279E-05, 0.5314E-05, 0.7076E-05, 0.7544E-05, & + 0.6291E-05/ data ((h21(ip,iw),iw=1,31), ip=23,23)/ & - 0.99999601, 0.99999207, 0.99998420, 0.99996859, 0.99993771, & - 0.99987692, 0.99975860, 0.99953198, 0.99910772, 0.99833697, & - 0.99698901, 0.99473202, 0.99113101, 0.98566002, 0.97770000, & - 0.96640998, 0.95076001, 0.92943001, 0.90092003, 0.86370003, & - 0.81659997, 0.75889999, 0.69000000, 0.60870004, 0.51440001, & - 0.40990001, 0.30190003, 0.20060003, 0.11680001, 0.05760002, & - 0.02270001/ + 0.99999630, 0.99999261, 0.99998510, 0.99996954, 0.99993867, & + 0.99987787, 0.99975872, 0.99952865, 0.99909520, 0.99830168, & + 0.99690276, 0.99454683, 0.99077523, 0.98504108, 0.97669667, & + 0.96492028, 0.94863147, 0.92644799, 0.89676428, 0.85799170, & + 0.80890477, 0.74876618, 0.67669797, 0.59129578, 0.49246222, & + 0.38387454, 0.27356315, 0.17285836, 0.09315068, 0.04061204, & + 0.01303118/ data ((h22(ip,iw),iw=1,31), ip=23,23)/ & - -0.5929e-07, -0.1180e-06, -0.2344e-06, -0.4638e-06, -0.9118e-06, & - -0.1775e-05, -0.3401e-05, -0.6375e-05, -0.1160e-04, -0.2039e-04, & - -0.3444e-04, -0.5575e-04, -0.8641e-04, -0.1287e-03, -0.1856e-03, & - -0.2615e-03, -0.3618e-03, -0.4928e-03, -0.6594e-03, -0.8621e-03, & - -0.1095e-02, -0.1349e-02, -0.1618e-02, -0.1894e-02, -0.2140e-02, & - -0.2293e-02, -0.2290e-02, -0.2085e-02, -0.1696e-02, -0.1212e-02, & - -0.7506e-03/ + -0.5170E-07, -0.1068E-06, -0.2144E-06, -0.4252E-06, -0.8411E-06, & + -0.1644E-05, -0.3175E-05, -0.5994E-05, -0.1099E-04, -0.1943E-04, & + -0.3294E-04, -0.5335E-04, -0.8251E-04, -0.1223E-03, -0.1753E-03, & + -0.2454E-03, -0.3382E-03, -0.4598E-03, -0.6145E-03, -0.8020E-03, & + -0.1016E-02, -0.1251E-02, -0.1504E-02, -0.1763E-02, -0.1988E-02, & + -0.2114E-02, -0.2073E-02, -0.1826E-02, -0.1406E-02, -0.9217E-03, & + -0.4992E-03/ data ((h23(ip,iw),iw=1,31), ip=23,23)/ & - -0.2496e-09, -0.4954e-09, -0.9780e-09, -0.1915e-08, -0.3697e-08, & - -0.6991e-08, -0.1279e-07, -0.2231e-07, -0.3653e-07, -0.5541e-07, & - -0.7688e-07, -0.9614e-07, -0.1069e-06, -0.1065e-06, -0.9866e-07, & - -0.8740e-07, -0.7192e-07, -0.4304e-07, 0.1982e-07, 0.1525e-06, & - 0.3873e-06, 0.6947e-06, 0.1000e-05, 0.1409e-05, 0.2253e-05, & - 0.3739e-05, 0.5744e-05, 0.7812e-05, 0.9067e-05, 0.8746e-05, & - 0.6940e-05/ + -0.1676E-09, -0.4178E-09, -0.8488E-09, -0.1613E-08, -0.3127E-08, & + -0.5899E-08, -0.1090E-07, -0.1895E-07, -0.3101E-07, -0.4637E-07, & + -0.6159E-07, -0.7060E-07, -0.6640E-07, -0.4683E-07, -0.1875E-07, & + 0.7974E-08, 0.2920E-07, 0.5387E-07, 0.1050E-06, 0.2110E-06, & + 0.3760E-06, 0.5244E-06, 0.5825E-06, 0.7228E-06, 0.1328E-05, & + 0.2641E-05, 0.4566E-05, 0.6539E-05, 0.7561E-05, 0.6889E-05, & + 0.4852E-05/ data ((h21(ip,iw),iw=1,31), ip=24,24)/ & - 0.99999601, 0.99999207, 0.99998420, 0.99996853, 0.99993742, & - 0.99987602, 0.99975550, 0.99952233, 0.99907869, 0.99825698, & - 0.99678302, 0.99424398, 0.99007100, 0.98356003, 0.97387999, & - 0.96004999, 0.94090003, 0.91503000, 0.88099998, 0.83740002, & - 0.78350002, 0.71869999, 0.64170003, 0.55149996, 0.44950002, & - 0.34100002, 0.23540002, 0.14380002, 0.07550001, 0.03240001, & - 0.01029998/ + 0.99999654, 0.99999279, 0.99998516, 0.99996966, 0.99993861, & + 0.99987739, 0.99975634, 0.99952048, 0.99906945, 0.99822646, & + 0.99670368, 0.99406314, 0.98970103, 0.98287082, 0.97271711, & + 0.95825428, 0.93828648, 0.91137356, 0.87595028, 0.83064175, & + 0.77455646, 0.70689976, 0.62624615, 0.53160882, 0.42513669, & + 0.31351697, 0.20733559, 0.11866122, 0.05608100, 0.02031803, & + 0.00467783/ data ((h22(ip,iw),iw=1,31), ip=24,24)/ & - -0.5950e-07, -0.1185e-06, -0.2358e-06, -0.4678e-06, -0.9235e-06, & - -0.1810e-05, -0.3503e-05, -0.6664e-05, -0.1236e-04, -0.2223e-04, & - -0.3849e-04, -0.6396e-04, -0.1017e-03, -0.1545e-03, -0.2257e-03, & - -0.3192e-03, -0.4399e-03, -0.5933e-03, -0.7824e-03, -0.1005e-02, & - -0.1251e-02, -0.1516e-02, -0.1794e-02, -0.2060e-02, -0.2257e-02, & - -0.2318e-02, -0.2186e-02, -0.1853e-02, -0.1386e-02, -0.9021e-03, & - -0.5050e-03/ + -0.5126E-07, -0.1061E-06, -0.2135E-06, -0.4282E-06, -0.8481E-06, & + -0.1671E-05, -0.3258E-05, -0.6234E-05, -0.1165E-04, -0.2110E-04, & + -0.3675E-04, -0.6120E-04, -0.9723E-04, -0.1473E-03, -0.2140E-03, & + -0.3006E-03, -0.4118E-03, -0.5529E-03, -0.7269E-03, -0.9307E-03, & + -0.1158E-02, -0.1404E-02, -0.1665E-02, -0.1913E-02, -0.2086E-02, & + -0.2113E-02, -0.1940E-02, -0.1571E-02, -0.1092E-02, -0.6336E-03, & + -0.2972E-03/ data ((h23(ip,iw),iw=1,31), ip=24,24)/ & - -0.2515e-09, -0.5001e-09, -0.9904e-09, -0.1951e-08, -0.3800e-08, & - -0.7288e-08, -0.1362e-07, -0.2452e-07, -0.4184e-07, -0.6663e-07, & - -0.9770e-07, -0.1299e-06, -0.1533e-06, -0.1584e-06, -0.1425e-06, & - -0.1093e-06, -0.5972e-07, 0.1426e-07, 0.1347e-06, 0.3364e-06, & - 0.6209e-06, 0.9169e-06, 0.1243e-05, 0.1883e-05, 0.3145e-05, & - 0.5011e-05, 0.7136e-05, 0.8785e-05, 0.9048e-05, 0.7686e-05, & - 0.5368e-05/ + -0.1969E-09, -0.3885E-09, -0.8435E-09, -0.1650E-08, -0.3145E-08, & + -0.6147E-08, -0.1152E-07, -0.2078E-07, -0.3566E-07, -0.5644E-07, & + -0.8076E-07, -0.1013E-06, -0.1065E-06, -0.8660E-07, -0.4128E-07, & + 0.1815E-07, 0.8048E-07, 0.1481E-06, 0.2421E-06, 0.3816E-06, & + 0.5306E-06, 0.5969E-06, 0.6485E-06, 0.1030E-05, 0.2081E-05, & + 0.3832E-05, 0.5890E-05, 0.7356E-05, 0.7306E-05, 0.5642E-05, & + 0.3349E-05/ data ((h21(ip,iw),iw=1,31), ip=25,25)/ & - 0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993724, & - 0.99987543, 0.99975342, 0.99951530, 0.99905682, 0.99819201, & - 0.99660802, 0.99381101, 0.98908001, 0.98148000, 0.96991003, & - 0.95317000, 0.92992002, 0.89880002, 0.85839999, 0.80799997, & - 0.74689996, 0.67420000, 0.58850002, 0.48979998, 0.38200003, & - 0.27329999, 0.17479998, 0.09700000, 0.04500002, 0.01620001, & - 0.00349998/ + 0.99999666, 0.99999303, 0.99998528, 0.99996966, 0.99993879, & + 0.99987727, 0.99975473, 0.99951464, 0.99904978, 0.99816769, & + 0.99653906, 0.99364126, 0.98871136, 0.98075461, 0.96861500, & + 0.95105618, 0.92675209, 0.89430392, 0.85237980, 0.79998612, & + 0.73641622, 0.66047239, 0.57058001, 0.46732146, 0.35575873, & + 0.24537134, 0.14839041, 0.07545924, 0.03036642, 0.00851601, & + 0.00096470/ data ((h22(ip,iw),iw=1,31), ip=25,25)/ & - -0.5953e-07, -0.1187e-06, -0.2363e-06, -0.4697e-06, -0.9304e-06, & - -0.1833e-05, -0.3578e-05, -0.6889e-05, -0.1299e-04, -0.2384e-04, & - -0.4227e-04, -0.7201e-04, -0.1174e-03, -0.1825e-03, -0.2710e-03, & - -0.3861e-03, -0.5313e-03, -0.7095e-03, -0.9203e-03, -0.1158e-02, & - -0.1417e-02, -0.1691e-02, -0.1968e-02, -0.2200e-02, -0.2320e-02, & - -0.2263e-02, -0.1998e-02, -0.1563e-02, -0.1068e-02, -0.6300e-03, & - -0.3174e-03/ + -0.5051E-07, -0.1044E-06, -0.2143E-06, -0.4293E-06, -0.8529E-06, & + -0.1691E-05, -0.3317E-05, -0.6421E-05, -0.1220E-04, -0.2254E-04, & + -0.4023E-04, -0.6882E-04, -0.1123E-03, -0.1744E-03, -0.2580E-03, & + -0.3651E-03, -0.4987E-03, -0.6611E-03, -0.8527E-03, -0.1069E-02, & + -0.1307E-02, -0.1564E-02, -0.1823E-02, -0.2034E-02, -0.2125E-02, & + -0.2030E-02, -0.1725E-02, -0.1269E-02, -0.7863E-03, -0.3985E-03, & + -0.1586E-03/ data ((h23(ip,iw),iw=1,31), ip=25,25)/ & - -0.2520e-09, -0.5016e-09, -0.9963e-09, -0.1971e-08, -0.3867e-08, & - -0.7500e-08, -0.1427e-07, -0.2634e-07, -0.4656e-07, -0.7753e-07, & - -0.1196e-06, -0.1683e-06, -0.2113e-06, -0.2309e-06, -0.2119e-06, & - -0.1518e-06, -0.5200e-07, 0.9274e-07, 0.2973e-06, 0.5714e-06, & - 0.8687e-06, 0.1152e-05, 0.1621e-05, 0.2634e-05, 0.4310e-05, & - 0.6418e-05, 0.8347e-05, 0.9162e-05, 0.8319e-05, 0.6209e-05, & - 0.3844e-05/ + -0.1836E-09, -0.4124E-09, -0.8515E-09, -0.1615E-08, -0.3236E-08, & + -0.6338E-08, -0.1201E-07, -0.2228E-07, -0.3958E-07, -0.6599E-07, & + -0.1006E-06, -0.1367E-06, -0.1591E-06, -0.1478E-06, -0.8960E-07, & + 0.1091E-07, 0.1380E-06, 0.2793E-06, 0.4346E-06, 0.5879E-06, & + 0.6670E-06, 0.6630E-06, 0.8472E-06, 0.1618E-05, 0.3133E-05, & + 0.5168E-05, 0.6973E-05, 0.7523E-05, 0.6352E-05, 0.4136E-05, & + 0.2052E-05/ data ((h21(ip,iw),iw=1,31), ip=26,26)/ & - 0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993718, & - 0.99987501, 0.99975210, 0.99951041, 0.99904078, 0.99814302, & - 0.99646801, 0.99344200, 0.98819000, 0.97952002, 0.96597999, & - 0.94600999, 0.91812003, 0.88099998, 0.83359998, 0.77569997, & - 0.70669997, 0.62529999, 0.53049999, 0.42449999, 0.31419998, & - 0.20969999, 0.12269998, 0.06089997, 0.02420002, 0.00660002, & - 0.00040001/ + 0.99999678, 0.99999321, 0.99998528, 0.99996996, 0.99993908, & + 0.99987698, 0.99975365, 0.99951053, 0.99903572, 0.99812329, & + 0.99640930, 0.99328965, 0.98784143, 0.97878826, 0.96458673, & + 0.94361532, 0.91436821, 0.87557977, 0.82637513, 0.76623750, & + 0.69435614, 0.60912937, 0.50989425, 0.39977902, 0.28677946, & + 0.18258661, 0.09928077, 0.04378778, 0.01428860, 0.00259024, & + -0.00019467/ data ((h22(ip,iw),iw=1,31), ip=26,26)/ & - -0.5954e-07, -0.1187e-06, -0.2366e-06, -0.4709e-06, -0.9349e-06, & - -0.1849e-05, -0.3632e-05, -0.7058e-05, -0.1350e-04, -0.2521e-04, & - -0.4564e-04, -0.7958e-04, -0.1329e-03, -0.2114e-03, -0.3200e-03, & - -0.4611e-03, -0.6353e-03, -0.8409e-03, -0.1072e-02, -0.1324e-02, & - -0.1592e-02, -0.1871e-02, -0.2127e-02, -0.2297e-02, -0.2312e-02, & - -0.2123e-02, -0.1738e-02, -0.1247e-02, -0.7744e-03, -0.4117e-03, & - -0.1850e-03/ + -0.4991E-07, -0.1043E-06, -0.2143E-06, -0.4269E-06, -0.8588E-06, & + -0.1703E-05, -0.3360E-05, -0.6564E-05, -0.1261E-04, -0.2372E-04, & + -0.4326E-04, -0.7587E-04, -0.1271E-03, -0.2024E-03, -0.3056E-03, & + -0.4379E-03, -0.5984E-03, -0.7844E-03, -0.9924E-03, -0.1220E-02, & + -0.1467E-02, -0.1728E-02, -0.1965E-02, -0.2110E-02, -0.2090E-02, & + -0.1860E-02, -0.1447E-02, -0.9562E-03, -0.5215E-03, -0.2268E-03, & + -0.7386E-04/ data ((h23(ip,iw),iw=1,31), ip=26,26)/ & - -0.2522e-09, -0.5025e-09, -0.9997e-09, -0.1983e-08, -0.3912e-08, & - -0.7650e-08, -0.1474e-07, -0.2777e-07, -0.5055e-07, -0.8745e-07, & - -0.1414e-06, -0.2095e-06, -0.2790e-06, -0.3241e-06, -0.3135e-06, & - -0.2269e-06, -0.5896e-07, 0.1875e-06, 0.4996e-06, 0.8299e-06, & - 0.1115e-05, 0.1467e-05, 0.2236e-05, 0.3672e-05, 0.5668e-05, & - 0.7772e-05, 0.9094e-05, 0.8827e-05, 0.7041e-05, 0.4638e-05, & - 0.2539e-05/ + -0.1996E-09, -0.4417E-09, -0.7930E-09, -0.1668E-08, -0.3294E-08, & + -0.6394E-08, -0.1237E-07, -0.2344E-07, -0.4278E-07, -0.7442E-07, & + -0.1199E-06, -0.1745E-06, -0.2217E-06, -0.2310E-06, -0.1714E-06, & + -0.2780E-07, 0.1869E-06, 0.4373E-06, 0.6698E-06, 0.8022E-06, & + 0.7859E-06, 0.8087E-06, 0.1284E-05, 0.2509E-05, 0.4402E-05, & + 0.6415E-05, 0.7530E-05, 0.6949E-05, 0.4957E-05, 0.2716E-05, & + 0.1081E-05/ data ((h81(ip,iw),iw=1,31), ip= 1, 1)/ & - 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, & - 0.99967158, 0.99944150, 0.99910933, 0.99867302, 0.99814397, & - 0.99753898, 0.99686199, 0.99610198, 0.99523401, 0.99421698, & - 0.99299300, 0.99147898, 0.98958999, 0.98721999, 0.98430002, & - 0.98071998, 0.97639000, 0.97115999, 0.96480000, 0.95695001, & - 0.94713998, 0.93469000, 0.91873002, 0.89810002, 0.87129998, & - 0.83679998/ + 0.99998581, 0.99997175, 0.99994498, 0.99989539, 0.99980557, & + 0.99965411, 0.99941576, 0.99907619, 0.99863428, 0.99810231, & + 0.99749488, 0.99681550, 0.99605590, 0.99518549, 0.99415886, & + 0.99292004, 0.99139947, 0.98950624, 0.98714000, 0.98420030, & + 0.98059285, 0.97621703, 0.97091669, 0.96443838, 0.95640814, & + 0.94630748, 0.93342716, 0.91680253, 0.89516866, 0.86697024, & + 0.83044368/ data ((h82(ip,iw),iw=1,31), ip= 1, 1)/ & - -0.5685e-08, -0.1331e-07, -0.3249e-07, -0.8137e-07, -0.2048e-06, & - -0.4973e-06, -0.1118e-05, -0.2246e-05, -0.3982e-05, -0.6290e-05, & - -0.9040e-05, -0.1215e-04, -0.1567e-04, -0.1970e-04, -0.2449e-04, & - -0.3046e-04, -0.3798e-04, -0.4725e-04, -0.5831e-04, -0.7123e-04, & - -0.8605e-04, -0.1028e-03, -0.1212e-03, -0.1413e-03, -0.1635e-03, & - -0.1884e-03, -0.2160e-03, -0.2461e-03, -0.2778e-03, -0.3098e-03, & - -0.3411e-03/ + -0.1133E-07, -0.2653E-07, -0.6126E-07, -0.1332E-06, -0.2990E-06, & + -0.6641E-06, -0.1374E-05, -0.2604E-05, -0.4427E-05, -0.6804E-05, & + -0.9611E-05, -0.1276E-04, -0.1629E-04, -0.2042E-04, -0.2535E-04, & + -0.3137E-04, -0.3882E-04, -0.4794E-04, -0.5875E-04, -0.7119E-04, & + -0.8529E-04, -0.1012E-03, -0.1190E-03, -0.1390E-03, -0.1619E-03, & + -0.1885E-03, -0.2197E-03, -0.2561E-03, -0.2984E-03, -0.3466E-03, & + -0.4004E-03/ data ((h83(ip,iw),iw=1,31), ip= 1, 1)/ & - 0.2169e-10, 0.5237e-10, 0.1296e-09, 0.3204e-09, 0.7665e-09, & - 0.1691e-08, 0.3222e-08, 0.5110e-08, 0.6779e-08, 0.7681e-08, & - 0.7378e-08, 0.5836e-08, 0.3191e-08, -0.1491e-08, -0.1022e-07, & - -0.2359e-07, -0.3957e-07, -0.5553e-07, -0.6927e-07, -0.7849e-07, & - -0.8139e-07, -0.7853e-07, -0.7368e-07, -0.7220e-07, -0.7780e-07, & - -0.9091e-07, -0.1038e-06, -0.9929e-07, -0.5422e-07, 0.5379e-07, & - 0.2350e-06/ + 0.1118E-09, 0.3087E-09, 0.6253E-09, 0.1187E-08, 0.2278E-08, & + 0.4066E-08, 0.6932E-08, 0.1020E-07, 0.1334E-07, 0.1569E-07, & + 0.1687E-07, 0.1655E-07, 0.1419E-07, 0.1020E-07, 0.4393E-08, & + -0.4963E-08, -0.1939E-07, -0.3654E-07, -0.5056E-07, -0.5584E-07, & + -0.5170E-07, -0.4162E-07, -0.2922E-07, -0.1764E-07, -0.1103E-07, & + -0.1168E-07, -0.1656E-07, -0.1255E-07, 0.2023E-07, 0.1052E-06, & + 0.2684E-06/ data ((h81(ip,iw),iw=1,31), ip= 2, 2)/ & - 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, & - 0.99967158, 0.99944139, 0.99910921, 0.99867302, 0.99814397, & - 0.99753797, 0.99686003, 0.99609798, 0.99522603, 0.99420297, & - 0.99296701, 0.99142998, 0.98949999, 0.98706001, 0.98400998, & - 0.98021001, 0.97552001, 0.96976000, 0.96262002, 0.95367002, & - 0.94234002, 0.92781997, 0.90903997, 0.88459998, 0.85290003, & - 0.81200004/ + 0.99998581, 0.99997175, 0.99994498, 0.99989539, 0.99980563, & + 0.99965405, 0.99941570, 0.99907601, 0.99863404, 0.99810159, & + 0.99749357, 0.99681306, 0.99605125, 0.99517709, 0.99414408, & + 0.99289298, 0.99134856, 0.98941231, 0.98696810, 0.98389256, & + 0.98005611, 0.97531378, 0.96945959, 0.96217942, 0.95302546, & + 0.94137722, 0.92637795, 0.90687048, 0.88135755, 0.84807086, & + 0.80509931/ data ((h82(ip,iw),iw=1,31), ip= 2, 2)/ & - -0.5684e-08, -0.1331e-07, -0.3248e-07, -0.8133e-07, -0.2047e-06, & - -0.4971e-06, -0.1117e-05, -0.2245e-05, -0.3981e-05, -0.6287e-05, & - -0.9035e-05, -0.1215e-04, -0.1565e-04, -0.1967e-04, -0.2444e-04, & - -0.3036e-04, -0.3780e-04, -0.4694e-04, -0.5779e-04, -0.7042e-04, & - -0.8491e-04, -0.1013e-03, -0.1196e-03, -0.1399e-03, -0.1625e-03, & - -0.1879e-03, -0.2163e-03, -0.2474e-03, -0.2803e-03, -0.3140e-03, & - -0.3478e-03/ + -0.1133E-07, -0.2653E-07, -0.6126E-07, -0.1332E-06, -0.2988E-06, & + -0.6636E-06, -0.1374E-05, -0.2603E-05, -0.4424E-05, -0.6800E-05, & + -0.9609E-05, -0.1275E-04, -0.1628E-04, -0.2040E-04, -0.2531E-04, & + -0.3129E-04, -0.3866E-04, -0.4767E-04, -0.5830E-04, -0.7050E-04, & + -0.8435E-04, -0.1001E-03, -0.1180E-03, -0.1383E-03, -0.1619E-03, & + -0.1894E-03, -0.2217E-03, -0.2597E-03, -0.3038E-03, -0.3542E-03, & + -0.4103E-03/ data ((h83(ip,iw),iw=1,31), ip= 2, 2)/ & - 0.2168e-10, 0.5242e-10, 0.1295e-09, 0.3201e-09, 0.7662e-09, & - 0.1690e-08, 0.3220e-08, 0.5106e-08, 0.6776e-08, 0.7673e-08, & - 0.7362e-08, 0.5808e-08, 0.3138e-08, -0.1595e-08, -0.1041e-07, & - -0.2390e-07, -0.4010e-07, -0.5636e-07, -0.7045e-07, -0.7972e-07, & - -0.8178e-07, -0.7677e-07, -0.6876e-07, -0.6381e-07, -0.6583e-07, & - -0.7486e-07, -0.8229e-07, -0.7017e-07, -0.1497e-07, 0.1051e-06, & - 0.2990e-06/ + 0.1118E-09, 0.3087E-09, 0.6253E-09, 0.1187E-08, 0.2275E-08, & + 0.4074E-08, 0.6926E-08, 0.1019E-07, 0.1333E-07, 0.1572E-07, & + 0.1684E-07, 0.1657E-07, 0.1428E-07, 0.1028E-07, 0.4308E-08, & + -0.5050E-08, -0.1943E-07, -0.3642E-07, -0.4992E-07, -0.5412E-07, & + -0.4733E-07, -0.3265E-07, -0.1384E-07, 0.6059E-08, 0.2311E-07, & + 0.3506E-07, 0.4738E-07, 0.7484E-07, 0.1396E-06, 0.2661E-06, & + 0.4807E-06/ data ((h81(ip,iw),iw=1,31), ip= 3, 3)/ & - 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, & - 0.99967152, 0.99944133, 0.99910891, 0.99867201, 0.99814302, & - 0.99753499, 0.99685597, 0.99609101, 0.99521297, 0.99418002, & - 0.99292499, 0.99135399, 0.98935997, 0.98681003, 0.98356998, & - 0.97947001, 0.97430998, 0.96784997, 0.95972002, 0.94941002, & - 0.93620002, 0.91912001, 0.89690000, 0.86790001, 0.83020002, & - 0.78210002/ + 0.99998581, 0.99997175, 0.99994498, 0.99989539, 0.99980557, & + 0.99965400, 0.99941570, 0.99907571, 0.99863356, 0.99810058, & + 0.99749130, 0.99680942, 0.99604398, 0.99516451, 0.99412048, & + 0.99284983, 0.99126911, 0.98926747, 0.98670810, 0.98343539, & + 0.97928077, 0.97405070, 0.96748143, 0.95918971, 0.94863594, & + 0.93506783, 0.91744840, 0.89439797, 0.86418962, 0.82487863, & + 0.77447081/ data ((h82(ip,iw),iw=1,31), ip= 3, 3)/ & - -0.5682e-08, -0.1330e-07, -0.3247e-07, -0.8129e-07, -0.2046e-06, & - -0.4968e-06, -0.1117e-05, -0.2244e-05, -0.3978e-05, -0.6283e-05, & - -0.9027e-05, -0.1213e-04, -0.1563e-04, -0.1963e-04, -0.2436e-04, & - -0.3021e-04, -0.3754e-04, -0.4649e-04, -0.5709e-04, -0.6940e-04, & - -0.8359e-04, -0.9986e-04, -0.1182e-03, -0.1388e-03, -0.1620e-03, & - -0.1882e-03, -0.2175e-03, -0.2498e-03, -0.2843e-03, -0.3203e-03, & - -0.3573e-03/ + -0.1133E-07, -0.2653E-07, -0.6126E-07, -0.1332E-06, -0.2987E-06, & + -0.6636E-06, -0.1374E-05, -0.2601E-05, -0.4422E-05, -0.6798E-05, & + -0.9603E-05, -0.1273E-04, -0.1626E-04, -0.2036E-04, -0.2523E-04, & + -0.3116E-04, -0.3843E-04, -0.4728E-04, -0.5770E-04, -0.6965E-04, & + -0.8331E-04, -0.9905E-04, -0.1172E-03, -0.1381E-03, -0.1625E-03, & + -0.1912E-03, -0.2251E-03, -0.2649E-03, -0.3112E-03, -0.3643E-03, & + -0.4232E-03/ data ((h83(ip,iw),iw=1,31), ip= 3, 3)/ & - 0.2167e-10, 0.5238e-10, 0.1294e-09, 0.3198e-09, 0.7656e-09, & - 0.1688e-08, 0.3217e-08, 0.5104e-08, 0.6767e-08, 0.7661e-08, & - 0.7337e-08, 0.5764e-08, 0.3051e-08, -0.1752e-08, -0.1068e-07, & - -0.2436e-07, -0.4081e-07, -0.5740e-07, -0.7165e-07, -0.8046e-07, & - -0.8082e-07, -0.7289e-07, -0.6141e-07, -0.5294e-07, -0.5134e-07, & - -0.5552e-07, -0.5609e-07, -0.3464e-07, 0.3275e-07, 0.1669e-06, & - 0.3745e-06/ + 0.1118E-09, 0.3087E-09, 0.6253E-09, 0.1187E-08, 0.2272E-08, & + 0.4085E-08, 0.6900E-08, 0.1021E-07, 0.1330E-07, 0.1569E-07, & + 0.1688E-07, 0.1650E-07, 0.1424E-07, 0.1019E-07, 0.4311E-08, & + -0.5109E-08, -0.1943E-07, -0.3609E-07, -0.4868E-07, -0.5063E-07, & + -0.3987E-07, -0.1953E-07, 0.6922E-08, 0.3656E-07, 0.6530E-07, & + 0.9259E-07, 0.1260E-06, 0.1819E-06, 0.2843E-06, 0.4583E-06, & + 0.7293E-06/ data ((h81(ip,iw),iw=1,31), ip= 4, 4)/ & - 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, & - 0.99967140, 0.99944109, 0.99910849, 0.99867100, 0.99814099, & - 0.99753201, 0.99685001, 0.99607998, 0.99519402, 0.99414498, & - 0.99286002, 0.99123698, 0.98914999, 0.98644000, 0.98293000, & - 0.97842002, 0.97263998, 0.96529001, 0.95592999, 0.94392002, & - 0.92839003, 0.90815997, 0.88169998, 0.84720004, 0.80269998, & - 0.74629998/ + 0.99998581, 0.99997175, 0.99994498, 0.99989545, 0.99980563, & + 0.99965394, 0.99941546, 0.99907529, 0.99863273, 0.99809867, & + 0.99748814, 0.99680293, 0.99603289, 0.99514413, 0.99408364, & + 0.99278188, 0.99114609, 0.98904693, 0.98631871, 0.98277009, & + 0.97818679, 0.97232127, 0.96484441, 0.95528841, 0.94299692, & + 0.92705190, 0.90620387, 0.87883735, 0.84302551, 0.79670012, & + 0.73788261/ data ((h82(ip,iw),iw=1,31), ip= 4, 4)/ & - -0.5680e-08, -0.1329e-07, -0.3243e-07, -0.8121e-07, -0.2044e-06, & - -0.4963e-06, -0.1115e-05, -0.2242e-05, -0.3974e-05, -0.6276e-05, & - -0.9015e-05, -0.1211e-04, -0.1559e-04, -0.1956e-04, -0.2423e-04, & - -0.2999e-04, -0.3716e-04, -0.4588e-04, -0.5618e-04, -0.6818e-04, & - -0.8218e-04, -0.9847e-04, -0.1171e-03, -0.1382e-03, -0.1621e-03, & - -0.1892e-03, -0.2197e-03, -0.2535e-03, -0.2902e-03, -0.3293e-03, & - -0.3700e-03/ + -0.1133E-07, -0.2653E-07, -0.6126E-07, -0.1334E-06, -0.2985E-06, & + -0.6633E-06, -0.1372E-05, -0.2600E-05, -0.4418E-05, -0.6790E-05, & + -0.9591E-05, -0.1272E-04, -0.1622E-04, -0.2029E-04, -0.2512E-04, & + -0.3096E-04, -0.3810E-04, -0.4675E-04, -0.5693E-04, -0.6868E-04, & + -0.8228E-04, -0.9821E-04, -0.1168E-03, -0.1386E-03, -0.1641E-03, & + -0.1942E-03, -0.2299E-03, -0.2720E-03, -0.3212E-03, -0.3774E-03, & + -0.4391E-03/ data ((h83(ip,iw),iw=1,31), ip= 4, 4)/ & - 0.2166e-10, 0.5229e-10, 0.1294e-09, 0.3193e-09, 0.7644e-09, & - 0.1686e-08, 0.3213e-08, 0.5092e-08, 0.6753e-08, 0.7640e-08, & - 0.7302e-08, 0.5696e-08, 0.2917e-08, -0.1984e-08, -0.1108e-07, & - -0.2497e-07, -0.4171e-07, -0.5849e-07, -0.7254e-07, -0.8017e-07, & - -0.7802e-07, -0.6662e-07, -0.5153e-07, -0.3961e-07, -0.3387e-07, & - -0.3219e-07, -0.2426e-07, 0.8700e-08, 0.9027e-07, 0.2400e-06, & - 0.4623e-06/ + 0.1118E-09, 0.3087E-09, 0.6253E-09, 0.1184E-08, 0.2270E-08, & + 0.4090E-08, 0.6908E-08, 0.1021E-07, 0.1329E-07, 0.1568E-07, & + 0.1682E-07, 0.1662E-07, 0.1425E-07, 0.1019E-07, 0.4239E-08, & + -0.5013E-08, -0.1921E-07, -0.3516E-07, -0.4591E-07, -0.4441E-07, & + -0.2854E-07, -0.1304E-08, 0.3388E-07, 0.7441E-07, 0.1171E-06, & + 0.1631E-06, 0.2220E-06, 0.3120E-06, 0.4579E-06, 0.6851E-06, & + 0.1015E-05/ data ((h81(ip,iw),iw=1,31), ip= 5, 5)/ & - 0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, & - 0.99967128, 0.99944091, 0.99910778, 0.99866998, 0.99813801, & - 0.99752700, 0.99684101, 0.99606299, 0.99516302, 0.99408901, & - 0.99276000, 0.99105698, 0.98882997, 0.98588997, 0.98202002, & - 0.97696000, 0.97039002, 0.96192998, 0.95104003, 0.93691999, & - 0.91851997, 0.89440000, 0.86290002, 0.82200003, 0.76969999, & - 0.70420003/ + 0.99998581, 0.99997175, 0.99994504, 0.99989545, 0.99980551, & + 0.99965388, 0.99941510, 0.99907458, 0.99863106, 0.99809599, & + 0.99748284, 0.99679315, 0.99601531, 0.99511212, 0.99402517, & + 0.99267668, 0.99095803, 0.98871505, 0.98574859, 0.98182374, & + 0.97667706, 0.96999919, 0.96138340, 0.95025587, 0.93580973, & + 0.91692734, 0.89212763, 0.85957503, 0.81718338, 0.76283979, & + 0.69476205/ data ((h82(ip,iw),iw=1,31), ip= 5, 5)/ & - -0.5675e-08, -0.1328e-07, -0.3239e-07, -0.8110e-07, -0.2040e-06, & - -0.4954e-06, -0.1114e-05, -0.2238e-05, -0.3968e-05, -0.6265e-05, & - -0.8996e-05, -0.1208e-04, -0.1553e-04, -0.1945e-04, -0.2404e-04, & - -0.2966e-04, -0.3663e-04, -0.4508e-04, -0.5508e-04, -0.6686e-04, & - -0.8082e-04, -0.9732e-04, -0.1165e-03, -0.1382e-03, -0.1630e-03, & - -0.1913e-03, -0.2234e-03, -0.2593e-03, -0.2989e-03, -0.3417e-03, & - -0.3857e-03/ + -0.1133E-07, -0.2623E-07, -0.6096E-07, -0.1334E-06, -0.2982E-06, & + -0.6626E-06, -0.1371E-05, -0.2596E-05, -0.4414E-05, -0.6781E-05, & + -0.9572E-05, -0.1269E-04, -0.1617E-04, -0.2020E-04, -0.2495E-04, & + -0.3068E-04, -0.3764E-04, -0.4608E-04, -0.5604E-04, -0.6768E-04, & + -0.8140E-04, -0.9775E-04, -0.1171E-03, -0.1399E-03, -0.1668E-03, & + -0.1988E-03, -0.2367E-03, -0.2816E-03, -0.3342E-03, -0.3940E-03, & + -0.4579E-03/ data ((h83(ip,iw),iw=1,31), ip= 5, 5)/ & - 0.2163e-10, 0.5209e-10, 0.1291e-09, 0.3186e-09, 0.7626e-09, & - 0.1682e-08, 0.3203e-08, 0.5078e-08, 0.6730e-08, 0.7606e-08, & - 0.7246e-08, 0.5592e-08, 0.2735e-08, -0.2325e-08, -0.1162e-07, & - -0.2576e-07, -0.4268e-07, -0.5938e-07, -0.7262e-07, -0.7827e-07, & - -0.7297e-07, -0.5786e-07, -0.3930e-07, -0.2373e-07, -0.1295e-07, & - -0.3728e-08, 0.1465e-07, 0.6114e-07, 0.1590e-06, 0.3257e-06, & - 0.5622e-06/ + 0.1118E-09, 0.3033E-09, 0.6147E-09, 0.1184E-08, 0.2286E-08, & + 0.4082E-08, 0.6948E-08, 0.1020E-07, 0.1333E-07, 0.1566E-07, & + 0.1680E-07, 0.1656E-07, 0.1422E-07, 0.1020E-07, 0.4348E-08, & + -0.4771E-08, -0.1849E-07, -0.3312E-07, -0.4106E-07, -0.3471E-07, & + -0.1250E-07, 0.2260E-07, 0.6782E-07, 0.1209E-06, 0.1805E-06, & + 0.2497E-06, 0.3393E-06, 0.4686E-06, 0.6635E-06, 0.9481E-06, & + 0.1338E-05/ data ((h81(ip,iw),iw=1,31), ip= 6, 6)/ & - 0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, & - 0.99967122, 0.99944037, 0.99910682, 0.99866802, 0.99813402, & - 0.99751902, 0.99682599, 0.99603701, 0.99511498, 0.99400300, & - 0.99260598, 0.99078500, 0.98835999, 0.98510998, 0.98075998, & - 0.97499001, 0.96741998, 0.95757002, 0.94476998, 0.92804998, & - 0.90613002, 0.87739998, 0.83990002, 0.79159999, 0.73049998, & - 0.65540004/ + 0.99998581, 0.99997175, 0.99994504, 0.99989545, 0.99980545, & + 0.99965370, 0.99941462, 0.99907362, 0.99862880, 0.99809134, & + 0.99747437, 0.99677783, 0.99598694, 0.99506181, 0.99393469, & + 0.99251598, 0.99067485, 0.98822564, 0.98493081, 0.98050761, & + 0.97463554, 0.96693331, 0.95689833, 0.94382089, 0.92670774, & + 0.90421730, 0.87463552, 0.83594227, 0.78595793, 0.72265798, & + 0.64477807/ data ((h82(ip,iw),iw=1,31), ip= 6, 6)/ & - -0.5671e-08, -0.1326e-07, -0.3234e-07, -0.8091e-07, -0.2035e-06, & - -0.4941e-06, -0.1111e-05, -0.2232e-05, -0.3958e-05, -0.6247e-05, & - -0.8966e-05, -0.1202e-04, -0.1544e-04, -0.1929e-04, -0.2377e-04, & - -0.2921e-04, -0.3593e-04, -0.4409e-04, -0.5385e-04, -0.6555e-04, & - -0.7965e-04, -0.9656e-04, -0.1163e-03, -0.1390e-03, -0.1649e-03, & - -0.1947e-03, -0.2288e-03, -0.2675e-03, -0.3109e-03, -0.3575e-03, & - -0.4039e-03/ + -0.1192E-07, -0.2623E-07, -0.6126E-07, -0.1328E-06, -0.2979E-06, & + -0.6612E-06, -0.1367E-05, -0.2591E-05, -0.4407E-05, -0.6767E-05, & + -0.9544E-05, -0.1264E-04, -0.1609E-04, -0.2005E-04, -0.2471E-04, & + -0.3028E-04, -0.3705E-04, -0.4527E-04, -0.5510E-04, -0.6679E-04, & + -0.8085E-04, -0.9786E-04, -0.1182E-03, -0.1423E-03, -0.1709E-03, & + -0.2051E-03, -0.2459E-03, -0.2943E-03, -0.3509E-03, -0.4141E-03, & + -0.4788E-03/ data ((h83(ip,iw),iw=1,31), ip= 6, 6)/ & - 0.2155e-10, 0.5188e-10, 0.1288e-09, 0.3175e-09, 0.7599e-09, & - 0.1675e-08, 0.3190e-08, 0.5059e-08, 0.6699e-08, 0.7551e-08, & - 0.7154e-08, 0.5435e-08, 0.2452e-08, -0.2802e-08, -0.1235e-07, & - -0.2668e-07, -0.4353e-07, -0.5962e-07, -0.7134e-07, -0.7435e-07, & - -0.6551e-07, -0.4676e-07, -0.2475e-07, -0.4876e-08, 0.1235e-07, & - 0.3092e-07, 0.6192e-07, 0.1243e-06, 0.2400e-06, 0.4247e-06, & - 0.6755e-06/ + 0.1224E-09, 0.3033E-09, 0.6200E-09, 0.1173E-08, 0.2291E-08, & + 0.4079E-08, 0.6937E-08, 0.1017E-07, 0.1331E-07, 0.1565E-07, & + 0.1680E-07, 0.1651E-07, 0.1426E-07, 0.1027E-07, 0.4537E-08, & + -0.4356E-08, -0.1703E-07, -0.2923E-07, -0.3288E-07, -0.2072E-07, & + 0.8817E-08, 0.5309E-07, 0.1097E-06, 0.1778E-06, 0.2583E-06, & + 0.3552E-06, 0.4808E-06, 0.6550E-06, 0.9040E-06, 0.1248E-05, & + 0.1691E-05/ data ((h81(ip,iw),iw=1,31), ip= 7, 7)/ & - 0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981660, & - 0.99967092, 0.99943972, 0.99910510, 0.99866402, 0.99812698, & - 0.99750602, 0.99680197, 0.99599499, 0.99504000, 0.99387002, & - 0.99237198, 0.99038202, 0.98768002, 0.98400998, 0.97903001, & - 0.97236001, 0.96354002, 0.95196998, 0.93681002, 0.91688001, & - 0.89069998, 0.85640001, 0.81190002, 0.75520003, 0.68470001, & - 0.59990001/ + 0.99998581, 0.99997175, 0.99994504, 0.99989545, 0.99980539, & + 0.99965340, 0.99941415, 0.99907178, 0.99862510, 0.99808419, & + 0.99746084, 0.99675345, 0.99594355, 0.99498338, 0.99379563, & + 0.99227214, 0.99025416, 0.98751915, 0.98378420, 0.97871542, & + 0.97192460, 0.96294236, 0.95114350, 0.93564767, 0.91524792, & + 0.88836491, 0.85308057, 0.80723882, 0.74866933, 0.67568231, & + 0.58799136/ data ((h82(ip,iw),iw=1,31), ip= 7, 7)/ & - -0.5665e-08, -0.1322e-07, -0.3224e-07, -0.8063e-07, -0.2027e-06, & - -0.4921e-06, -0.1106e-05, -0.2223e-05, -0.3942e-05, -0.6220e-05, & - -0.8920e-05, -0.1194e-04, -0.1530e-04, -0.1905e-04, -0.2337e-04, & - -0.2860e-04, -0.3505e-04, -0.4296e-04, -0.5259e-04, -0.6439e-04, & - -0.7884e-04, -0.9635e-04, -0.1170e-03, -0.1407e-03, -0.1681e-03, & - -0.1998e-03, -0.2366e-03, -0.2790e-03, -0.3265e-03, -0.3763e-03, & - -0.4235e-03/ + -0.1192E-07, -0.2623E-07, -0.6096E-07, -0.1328E-06, -0.2964E-06, & + -0.6590E-06, -0.1365E-05, -0.2581E-05, -0.4391E-05, -0.6743E-05, & + -0.9506E-05, -0.1257E-04, -0.1597E-04, -0.1985E-04, -0.2437E-04, & + -0.2976E-04, -0.3632E-04, -0.4439E-04, -0.5422E-04, -0.6618E-04, & + -0.8080E-04, -0.9869E-04, -0.1202E-03, -0.1460E-03, -0.1768E-03, & + -0.2137E-03, -0.2580E-03, -0.3107E-03, -0.3715E-03, -0.4371E-03, & + -0.5005E-03/ data ((h83(ip,iw),iw=1,31), ip= 7, 7)/ & - 0.2157e-10, 0.5178e-10, 0.1283e-09, 0.3162e-09, 0.7558e-09, & - 0.1665e-08, 0.3169e-08, 0.5027e-08, 0.6645e-08, 0.7472e-08, & - 0.7017e-08, 0.5212e-08, 0.2059e-08, -0.3443e-08, -0.1321e-07, & - -0.2754e-07, -0.4389e-07, -0.5869e-07, -0.6825e-07, -0.6819e-07, & - -0.5570e-07, -0.3343e-07, -0.7592e-08, 0.1778e-07, 0.4322e-07, & - 0.7330e-07, 0.1190e-06, 0.1993e-06, 0.3348e-06, 0.5376e-06, & - 0.8030e-06/ + 0.1224E-09, 0.3033E-09, 0.6094E-09, 0.1173E-08, 0.2286E-08, & + 0.4050E-08, 0.6868E-08, 0.1020E-07, 0.1332E-07, 0.1565E-07, & + 0.1683E-07, 0.1647E-07, 0.1427E-07, 0.1042E-07, 0.5045E-08, & + -0.3148E-08, -0.1404E-07, -0.2277E-07, -0.2081E-07, -0.1665E-08, & + 0.3608E-07, 0.9067E-07, 0.1608E-06, 0.2478E-06, 0.3534E-06, & + 0.4833E-06, 0.6498E-06, 0.8741E-06, 0.1180E-05, 0.1581E-05, & + 0.2067E-05/ data ((h81(ip,iw),iw=1,31), ip= 8, 8)/ & - 0.99998659, 0.99997360, 0.99994856, 0.99990159, 0.99981642, & - 0.99967051, 0.99943858, 0.99910247, 0.99865901, 0.99811602, & - 0.99748600, 0.99676597, 0.99592900, 0.99492502, 0.99366802, & - 0.99202400, 0.98979002, 0.98672003, 0.98249000, 0.97671002, & - 0.96890998, 0.95854002, 0.94483000, 0.92675000, 0.90289998, & - 0.87160003, 0.83069998, 0.77829999, 0.71239996, 0.63209999, & - 0.53839999/ + 0.99998581, 0.99997175, 0.99994504, 0.99989539, 0.99980527, & + 0.99965310, 0.99941295, 0.99906909, 0.99861914, 0.99807310, & + 0.99743950, 0.99671561, 0.99587530, 0.99486279, 0.99358487, & + 0.99190885, 0.98964298, 0.98652112, 0.98221254, 0.97632098, & + 0.96837795, 0.95780253, 0.94381404, 0.92532998, 0.90090793, & + 0.86874938, 0.82677054, 0.77276111, 0.70474106, 0.62176353, & + 0.52501291/ data ((h82(ip,iw),iw=1,31), ip= 8, 8)/ & - -0.5652e-08, -0.1318e-07, -0.3210e-07, -0.8018e-07, -0.2014e-06, & - -0.4888e-06, -0.1099e-05, -0.2210e-05, -0.3918e-05, -0.6179e-05, & - -0.8849e-05, -0.1182e-04, -0.1509e-04, -0.1871e-04, -0.2284e-04, & - -0.2782e-04, -0.3403e-04, -0.4177e-04, -0.5145e-04, -0.6354e-04, & - -0.7853e-04, -0.9681e-04, -0.1185e-03, -0.1437e-03, -0.1729e-03, & - -0.2072e-03, -0.2475e-03, -0.2942e-03, -0.3457e-03, -0.3973e-03, & - -0.4434e-03/ + -0.1192E-07, -0.2623E-07, -0.6096E-07, -0.1326E-06, -0.2964E-06, & + -0.6560E-06, -0.1359E-05, -0.2570E-05, -0.4371E-05, -0.6707E-05, & + -0.9442E-05, -0.1246E-04, -0.1579E-04, -0.1956E-04, -0.2392E-04, & + -0.2910E-04, -0.3550E-04, -0.4353E-04, -0.5357E-04, -0.6600E-04, & + -0.8143E-04, -0.1004E-03, -0.1235E-03, -0.1514E-03, -0.1849E-03, & + -0.2252E-03, -0.2737E-03, -0.3311E-03, -0.3957E-03, -0.4619E-03, & + -0.5212E-03/ data ((h83(ip,iw),iw=1,31), ip= 8, 8)/ & - 0.2153e-10, 0.5151e-10, 0.1273e-09, 0.3136e-09, 0.7488e-09, & - 0.1649e-08, 0.3142e-08, 0.4980e-08, 0.6559e-08, 0.7346e-08, & - 0.6813e-08, 0.4884e-08, 0.1533e-08, -0.4209e-08, -0.1409e-07, & - -0.2801e-07, -0.4320e-07, -0.5614e-07, -0.6312e-07, -0.5976e-07, & - -0.4369e-07, -0.1775e-07, 0.1280e-07, 0.4534e-07, 0.8106e-07, & - 0.1246e-06, 0.1874e-06, 0.2873e-06, 0.4433e-06, 0.6651e-06, & - 0.9477e-06/ + 0.1224E-09, 0.3033E-09, 0.6094E-09, 0.1176E-08, 0.2280E-08, & + 0.3997E-08, 0.6873E-08, 0.1018E-07, 0.1335E-07, 0.1563E-07, & + 0.1689E-07, 0.1648E-07, 0.1446E-07, 0.1083E-07, 0.6157E-08, & + -0.5933E-09, -0.8722E-08, -0.1243E-07, -0.3970E-08, 0.2292E-07, & + 0.7000E-07, 0.1367E-06, 0.2237E-06, 0.3336E-06, 0.4695E-06, & + 0.6371E-06, 0.8496E-06, 0.1128E-05, 0.1492E-05, 0.1941E-05, & + 0.2452E-05/ data ((h81(ip,iw),iw=1,31), ip= 9, 9)/ & - 0.99998659, 0.99997360, 0.99994856, 0.99990153, 0.99981618, & - 0.99966979, 0.99943691, 0.99909842, 0.99865001, 0.99809903, & - 0.99745399, 0.99670798, 0.99582899, 0.99475002, 0.99336600, & - 0.99151403, 0.98896003, 0.98540002, 0.98044997, 0.97364998, & - 0.96445000, 0.95213997, 0.93579000, 0.91412002, 0.88550001, & - 0.84810001, 0.79970002, 0.73850000, 0.66280001, 0.57309997, & - 0.47189999/ + 0.99998581, 0.99997175, 0.99994504, 0.99989533, 0.99980509, & + 0.99965227, 0.99941087, 0.99906486, 0.99861032, 0.99805486, & + 0.99740648, 0.99665618, 0.99577004, 0.99467933, 0.99326950, & + 0.99137819, 0.98877430, 0.98514515, 0.98010147, 0.97317445, & + 0.96379381, 0.95123780, 0.93453717, 0.91238034, 0.88309479, & + 0.84469539, 0.79499590, 0.73186743, 0.65385056, 0.56123221, & + 0.45710266/ data ((h82(ip,iw),iw=1,31), ip= 9, 9)/ & - -0.5629e-08, -0.1310e-07, -0.3186e-07, -0.7948e-07, -0.1995e-06, & - -0.4837e-06, -0.1088e-05, -0.2188e-05, -0.3880e-05, -0.6115e-05, & - -0.8743e-05, -0.1165e-04, -0.1480e-04, -0.1824e-04, -0.2216e-04, & - -0.2691e-04, -0.3293e-04, -0.4067e-04, -0.5057e-04, -0.6314e-04, & - -0.7885e-04, -0.9813e-04, -0.1212e-03, -0.1482e-03, -0.1799e-03, & - -0.2175e-03, -0.2622e-03, -0.3135e-03, -0.3678e-03, -0.4193e-03, & - -0.4627e-03/ + -0.1192E-07, -0.2564E-07, -0.6036E-07, -0.1317E-06, -0.2945E-06, & + -0.6496E-06, -0.1347E-05, -0.2549E-05, -0.4338E-05, -0.6650E-05, & + -0.9351E-05, -0.1230E-04, -0.1554E-04, -0.1916E-04, -0.2334E-04, & + -0.2836E-04, -0.3469E-04, -0.4287E-04, -0.5330E-04, -0.6645E-04, & + -0.8291E-04, -0.1034E-03, -0.1284E-03, -0.1588E-03, -0.1956E-03, & + -0.2401E-03, -0.2936E-03, -0.3558E-03, -0.4228E-03, -0.4870E-03, & + -0.5392E-03/ data ((h83(ip,iw),iw=1,31), ip= 9, 9)/ & - 0.2121e-10, 0.5076e-10, 0.1257e-09, 0.3091e-09, 0.7379e-09, & - 0.1623e-08, 0.3097e-08, 0.4904e-08, 0.6453e-08, 0.7168e-08, & - 0.6534e-08, 0.4458e-08, 0.8932e-09, -0.5026e-08, -0.1469e-07, & - -0.2765e-07, -0.4103e-07, -0.5169e-07, -0.5585e-07, -0.4913e-07, & - -0.2954e-07, 0.6372e-09, 0.3738e-07, 0.7896e-07, 0.1272e-06, & - 0.1867e-06, 0.2682e-06, 0.3895e-06, 0.5672e-06, 0.8091e-06, & - 0.1114e-05/ + 0.1224E-09, 0.3140E-09, 0.6200E-09, 0.1187E-08, 0.2262E-08, & + 0.4047E-08, 0.6900E-08, 0.1016E-07, 0.1328E-07, 0.1570E-07, & + 0.1689E-07, 0.1661E-07, 0.1483E-07, 0.1177E-07, 0.8323E-08, & + 0.3885E-08, -0.1278E-09, 0.1943E-08, 0.1790E-07, 0.5358E-07, & + 0.1115E-06, 0.1931E-06, 0.3007E-06, 0.4384E-06, 0.6095E-06, & + 0.8198E-06, 0.1083E-05, 0.1418E-05, 0.1834E-05, 0.2317E-05, & + 0.2835E-05/ data ((h81(ip,iw),iw=1,31), ip=10,10)/ & - 0.99998659, 0.99997360, 0.99994850, 0.99990141, 0.99981582, & - 0.99966878, 0.99943417, 0.99909198, 0.99863601, 0.99807203, & - 0.99740499, 0.99662101, 0.99567503, 0.99448699, 0.99292302, & - 0.99078500, 0.98780000, 0.98360002, 0.97773999, 0.96968001, & - 0.95872998, 0.94401997, 0.92440999, 0.89840001, 0.86409998, & - 0.81959999, 0.76279998, 0.69190001, 0.60650003, 0.50839996, & - 0.40249997/ + 0.99998581, 0.99997181, 0.99994504, 0.99989516, 0.99980468, & + 0.99965107, 0.99940813, 0.99905807, 0.99859601, 0.99802738, & + 0.99735516, 0.99656427, 0.99561012, 0.99440449, 0.99280733, & + 0.99062097, 0.98757029, 0.98328680, 0.97731358, 0.96909207, & + 0.95792198, 0.94290930, 0.92286408, 0.89623821, 0.86115694, & + 0.81549817, 0.75707543, 0.68409348, 0.59607393, 0.49501973, & + 0.38628352/ data ((h82(ip,iw),iw=1,31), ip=10,10)/ & - -0.5597e-08, -0.1300e-07, -0.3148e-07, -0.7838e-07, -0.1964e-06, & - -0.4759e-06, -0.1071e-05, -0.2155e-05, -0.3822e-05, -0.6019e-05, & - -0.8586e-05, -0.1139e-04, -0.1439e-04, -0.1764e-04, -0.2134e-04, & - -0.2591e-04, -0.3188e-04, -0.3978e-04, -0.5011e-04, -0.6334e-04, & - -0.7998e-04, -0.1006e-03, -0.1253e-03, -0.1547e-03, -0.1895e-03, & - -0.2315e-03, -0.2811e-03, -0.3363e-03, -0.3917e-03, -0.4413e-03, & - -0.4809e-03/ + -0.1133E-07, -0.2623E-07, -0.6036E-07, -0.1304E-06, -0.2899E-06, & + -0.6426E-06, -0.1333E-05, -0.2521E-05, -0.4285E-05, -0.6567E-05, & + -0.9213E-05, -0.1209E-04, -0.1520E-04, -0.1866E-04, -0.2267E-04, & + -0.2760E-04, -0.3402E-04, -0.4253E-04, -0.5359E-04, -0.6768E-04, & + -0.8547E-04, -0.1077E-03, -0.1353E-03, -0.1688E-03, -0.2096E-03, & + -0.2592E-03, -0.3181E-03, -0.3842E-03, -0.4512E-03, -0.5104E-03, & + -0.5525E-03/ data ((h83(ip,iw),iw=1,31), ip=10,10)/ & - 0.2109e-10, 0.5017e-10, 0.1235e-09, 0.3021e-09, 0.7217e-09, & - 0.1585e-08, 0.3028e-08, 0.4796e-08, 0.6285e-08, 0.6910e-08, & - 0.6178e-08, 0.3945e-08, 0.2436e-09, -0.5632e-08, -0.1464e-07, & - -0.2596e-07, -0.3707e-07, -0.4527e-07, -0.4651e-07, -0.3644e-07, & - -0.1296e-07, 0.2250e-07, 0.6722e-07, 0.1202e-06, 0.1831e-06, & - 0.2605e-06, 0.3627e-06, 0.5062e-06, 0.7064e-06, 0.9725e-06, & - 0.1304e-05/ + 0.1330E-09, 0.2927E-09, 0.6200E-09, 0.1184E-08, 0.2248E-08, & + 0.4066E-08, 0.6839E-08, 0.1013E-07, 0.1324E-07, 0.1565E-07, & + 0.1700E-07, 0.1694E-07, 0.1554E-07, 0.1371E-07, 0.1232E-07, & + 0.1120E-07, 0.1218E-07, 0.2117E-07, 0.4557E-07, 0.9112E-07, & + 0.1623E-06, 0.2623E-06, 0.3951E-06, 0.5657E-06, 0.7766E-06, & + 0.1034E-05, 0.1351E-05, 0.1741E-05, 0.2198E-05, 0.2697E-05, & + 0.3192E-05/ data ((h81(ip,iw),iw=1,31), ip=11,11)/ & - 0.99998659, 0.99997354, 0.99994850, 0.99990124, 0.99981529, & - 0.99966723, 0.99942988, 0.99908209, 0.99861503, 0.99803102, & - 0.99732900, 0.99648702, 0.99544603, 0.99409997, 0.99228698, & - 0.98977000, 0.98620999, 0.98120999, 0.97421998, 0.96458000, & - 0.95146000, 0.93378001, 0.91017002, 0.87889999, 0.83810002, & - 0.78549999, 0.71930003, 0.63859999, 0.54409999, 0.43970001, & - 0.33249998/ + 0.99998581, 0.99997181, 0.99994504, 0.99989504, 0.99980414, & + 0.99964952, 0.99940366, 0.99904746, 0.99857390, 0.99798411, & + 0.99727577, 0.99642479, 0.99537003, 0.99400103, 0.99214578, & + 0.98956615, 0.98593515, 0.98082125, 0.97368443, 0.96384913, & + 0.95045704, 0.93240529, 0.90826738, 0.87627876, 0.83440095, & + 0.78045630, 0.71244276, 0.62930238, 0.53204596, 0.42478460, & + 0.31533009/ data ((h82(ip,iw),iw=1,31), ip=11,11)/ & - -0.5538e-08, -0.1280e-07, -0.3089e-07, -0.7667e-07, -0.1917e-06, & - -0.4642e-06, -0.1045e-05, -0.2106e-05, -0.3736e-05, -0.5878e-05, & - -0.8363e-05, -0.1104e-04, -0.1387e-04, -0.1692e-04, -0.2044e-04, & - -0.2493e-04, -0.3101e-04, -0.3926e-04, -0.5020e-04, -0.6429e-04, & - -0.8213e-04, -0.1044e-03, -0.1314e-03, -0.1637e-03, -0.2027e-03, & - -0.2498e-03, -0.3042e-03, -0.3617e-03, -0.4163e-03, -0.4625e-03, & - -0.4969e-03/ + -0.1148E-07, -0.2623E-07, -0.5947E-07, -0.1292E-06, -0.2861E-06, & + -0.6317E-06, -0.1309E-05, -0.2476E-05, -0.4212E-05, -0.6445E-05, & + -0.9022E-05, -0.1179E-04, -0.1476E-04, -0.1808E-04, -0.2199E-04, & + -0.2695E-04, -0.3364E-04, -0.4270E-04, -0.5462E-04, -0.6993E-04, & + -0.8939E-04, -0.1140E-03, -0.1446E-03, -0.1820E-03, -0.2277E-03, & + -0.2829E-03, -0.3469E-03, -0.4149E-03, -0.4791E-03, -0.5302E-03, & + -0.5588E-03/ data ((h83(ip,iw),iw=1,31), ip=11,11)/ & - 0.2067e-10, 0.4903e-10, 0.1200e-09, 0.2917e-09, 0.6965e-09, & - 0.1532e-08, 0.2925e-08, 0.4632e-08, 0.6054e-08, 0.6590e-08, & - 0.5746e-08, 0.3436e-08, -0.2251e-09, -0.5703e-08, -0.1344e-07, & - -0.2256e-07, -0.3120e-07, -0.3690e-07, -0.3520e-07, -0.2164e-07, & - 0.6510e-08, 0.4895e-07, 0.1037e-06, 0.1702e-06, 0.2502e-06, & - 0.3472e-06, 0.4710e-06, 0.6379e-06, 0.8633e-06, 0.1159e-05, & - 0.1514e-05/ + 0.1357E-09, 0.2980E-09, 0.6147E-09, 0.1163E-08, 0.2214E-08, & + 0.4037E-08, 0.6809E-08, 0.1013E-07, 0.1326E-07, 0.1581E-07, & + 0.1738E-07, 0.1764E-07, 0.1725E-07, 0.1716E-07, 0.1870E-07, & + 0.2201E-07, 0.2902E-07, 0.4582E-07, 0.7962E-07, 0.1370E-06, & + 0.2244E-06, 0.3470E-06, 0.5103E-06, 0.7184E-06, 0.9739E-06, & + 0.1282E-05, 0.1654E-05, 0.2090E-05, 0.2571E-05, 0.3064E-05, & + 0.3493E-05/ data ((h81(ip,iw),iw=1,31), ip=12,12)/ & - 0.99998659, 0.99997354, 0.99994838, 0.99990094, 0.99981439, & - 0.99966472, 0.99942350, 0.99906689, 0.99858302, 0.99796802, & - 0.99721497, 0.99628800, 0.99510801, 0.99354398, 0.99139601, & - 0.98838001, 0.98409998, 0.97807997, 0.96967000, 0.95806998, & - 0.94226003, 0.92093998, 0.89249998, 0.85510004, 0.80659997, & - 0.74510002, 0.66909999, 0.57870001, 0.47680002, 0.36919999, & - 0.26520002/ + 0.99998581, 0.99997181, 0.99994498, 0.99989486, 0.99980325, & + 0.99964696, 0.99939692, 0.99903113, 0.99853987, 0.99791837, & + 0.99715620, 0.99621618, 0.99501866, 0.99342209, 0.99122083, & + 0.98812902, 0.98375845, 0.97760117, 0.96901232, 0.95717090, & + 0.94102478, 0.91923845, 0.89015573, 0.85182822, 0.80212283, & + 0.73893917, 0.66078889, 0.56784910, 0.46305943, 0.35295039, & + 0.24754596/ data ((h82(ip,iw),iw=1,31), ip=12,12)/ & - -0.5476e-08, -0.1257e-07, -0.3008e-07, -0.7418e-07, -0.1848e-06, & - -0.4468e-06, -0.1006e-05, -0.2032e-05, -0.3611e-05, -0.5679e-05, & - -0.8058e-05, -0.1059e-04, -0.1324e-04, -0.1612e-04, -0.1956e-04, & - -0.2411e-04, -0.3046e-04, -0.3925e-04, -0.5098e-04, -0.6619e-04, & - -0.8562e-04, -0.1100e-03, -0.1399e-03, -0.1761e-03, -0.2202e-03, & - -0.2726e-03, -0.3306e-03, -0.3885e-03, -0.4404e-03, -0.4820e-03, & - -0.5082e-03/ + -0.1148E-07, -0.2504E-07, -0.5813E-07, -0.1262E-06, -0.2788E-06, & + -0.6155E-06, -0.1276E-05, -0.2415E-05, -0.4103E-05, -0.6273E-05, & + -0.8763E-05, -0.1142E-04, -0.1426E-04, -0.1747E-04, -0.2138E-04, & + -0.2655E-04, -0.3371E-04, -0.4353E-04, -0.5657E-04, -0.7343E-04, & + -0.9507E-04, -0.1226E-03, -0.1568E-03, -0.1990E-03, -0.2505E-03, & + -0.3115E-03, -0.3791E-03, -0.4464E-03, -0.5045E-03, -0.5442E-03, & + -0.5540E-03/ data ((h83(ip,iw),iw=1,31), ip=12,12)/ & - 0.2041e-10, 0.4771e-10, 0.1149e-09, 0.2782e-09, 0.6614e-09, & - 0.1451e-08, 0.2778e-08, 0.4401e-08, 0.5736e-08, 0.6189e-08, & - 0.5315e-08, 0.3087e-08, -0.2518e-09, -0.4806e-08, -0.1071e-07, & - -0.1731e-07, -0.2346e-07, -0.2659e-07, -0.2184e-07, -0.4261e-08, & - 0.2975e-07, 0.8112e-07, 0.1484e-06, 0.2308e-06, 0.3296e-06, & - 0.4475e-06, 0.5942e-06, 0.7859e-06, 0.1041e-05, 0.1369e-05, & - 0.1726e-05/ + 0.1357E-09, 0.2927E-09, 0.6014E-09, 0.1131E-08, 0.2201E-08, & + 0.3943E-08, 0.6729E-08, 0.1011E-07, 0.1333E-07, 0.1609E-07, & + 0.1802E-07, 0.1914E-07, 0.2016E-07, 0.2283E-07, 0.2826E-07, & + 0.3678E-07, 0.5093E-07, 0.7664E-07, 0.1213E-06, 0.1930E-06, & + 0.3004E-06, 0.4507E-06, 0.6494E-06, 0.9001E-06, 0.1204E-05, & + 0.1566E-05, 0.1987E-05, 0.2454E-05, 0.2941E-05, 0.3392E-05, & + 0.3693E-05/ data ((h81(ip,iw),iw=1,31), ip=13,13)/ & - 0.99998653, 0.99997348, 0.99994826, 0.99990052, 0.99981320, & - 0.99966109, 0.99941391, 0.99904412, 0.99853402, 0.99787498, & - 0.99704498, 0.99599600, 0.99462402, 0.99276501, 0.99017602, & - 0.98651999, 0.98133999, 0.97403997, 0.96386999, 0.94984001, & - 0.93071002, 0.90495998, 0.87080002, 0.82620001, 0.76910001, & - 0.69790000, 0.61199999, 0.51320004, 0.40640002, 0.29970002, & - 0.20359999/ + 0.99998581, 0.99997181, 0.99994481, 0.99989444, 0.99980199, & + 0.99964291, 0.99938649, 0.99900728, 0.99848855, 0.99781942, & + 0.99697864, 0.99591231, 0.99451441, 0.99261320, 0.98995894, & + 0.98621172, 0.98090869, 0.97344768, 0.96305251, 0.94872272, & + 0.92918164, 0.90285385, 0.86788404, 0.82219505, 0.76365697, & + 0.69050038, 0.60221273, 0.50069368, 0.39117759, 0.28263843, & + 0.18615139/ data ((h82(ip,iw),iw=1,31), ip=13,13)/ & - -0.5362e-08, -0.1223e-07, -0.2895e-07, -0.7071e-07, -0.1748e-06, & - -0.4219e-06, -0.9516e-06, -0.1928e-05, -0.3436e-05, -0.5409e-05, & - -0.7666e-05, -0.1005e-04, -0.1254e-04, -0.1533e-04, -0.1880e-04, & - -0.2358e-04, -0.3038e-04, -0.3988e-04, -0.5264e-04, -0.6934e-04, & - -0.9083e-04, -0.1179e-03, -0.1515e-03, -0.1927e-03, -0.2424e-03, & - -0.2994e-03, -0.3591e-03, -0.4155e-03, -0.4634e-03, -0.4982e-03, & - -0.5096e-03/ + -0.1148E-07, -0.2504E-07, -0.5664E-07, -0.1240E-06, -0.2702E-06, & + -0.5918E-06, -0.1226E-05, -0.2323E-05, -0.3951E-05, -0.6043E-05, & + -0.8440E-05, -0.1098E-04, -0.1373E-04, -0.1693E-04, -0.2100E-04, & + -0.2655E-04, -0.3439E-04, -0.4522E-04, -0.5969E-04, -0.7858E-04, & + -0.1030E-03, -0.1340E-03, -0.1728E-03, -0.2207E-03, -0.2784E-03, & + -0.3443E-03, -0.4131E-03, -0.4765E-03, -0.5254E-03, -0.5491E-03, & + -0.5326E-03/ data ((h83(ip,iw),iw=1,31), ip=13,13)/ & - 0.1976e-10, 0.4551e-10, 0.1086e-09, 0.2601e-09, 0.6126e-09, & - 0.1345e-08, 0.2583e-08, 0.4112e-08, 0.5365e-08, 0.5796e-08, & - 0.5031e-08, 0.3182e-08, 0.5970e-09, -0.2547e-08, -0.6172e-08, & - -0.1017e-07, -0.1388e-07, -0.1430e-07, -0.6118e-08, 0.1624e-07, & - 0.5791e-07, 0.1205e-06, 0.2025e-06, 0.3032e-06, 0.4225e-06, & - 0.5619e-06, 0.7322e-06, 0.9528e-06, 0.1243e-05, 0.1592e-05, & - 0.1904e-05/ + 0.1357E-09, 0.2927E-09, 0.6173E-09, 0.1112E-08, 0.2201E-08, & + 0.3941E-08, 0.6708E-08, 0.1004E-07, 0.1358E-07, 0.1674E-07, & + 0.1928E-07, 0.2167E-07, 0.2505E-07, 0.3128E-07, 0.4149E-07, & + 0.5627E-07, 0.7850E-07, 0.1144E-06, 0.1719E-06, 0.2613E-06, & + 0.3933E-06, 0.5765E-06, 0.8156E-06, 0.1113E-05, 0.1469E-05, & + 0.1882E-05, 0.2341E-05, 0.2821E-05, 0.3285E-05, 0.3644E-05, & + 0.3739E-05/ data ((h81(ip,iw),iw=1,31), ip=14,14)/ & - 0.99998653, 0.99997348, 0.99994808, 0.99989992, 0.99981129, & - 0.99965578, 0.99939990, 0.99901080, 0.99846399, 0.99773800, & - 0.99680001, 0.99558002, 0.99394703, 0.99169999, 0.98853999, & - 0.98408002, 0.97776002, 0.96888000, 0.95652002, 0.93949002, & - 0.91631001, 0.88529998, 0.84439999, 0.79159999, 0.72510004, & - 0.64390004, 0.54890001, 0.44379997, 0.33560002, 0.23449999, & - 0.15009999/ + 0.99998587, 0.99997181, 0.99994475, 0.99989372, 0.99979997, & + 0.99963719, 0.99937135, 0.99897152, 0.99841356, 0.99767524, & + 0.99672168, 0.99547845, 0.99381119, 0.99150914, 0.98827392, & + 0.98369658, 0.97722799, 0.96814531, 0.95550716, 0.93810284, & + 0.91441429, 0.88264406, 0.84078050, 0.78670061, 0.71846342, & + 0.63503206, 0.53738129, 0.42953157, 0.31922323, 0.21723127, & + 0.13354182/ data ((h82(ip,iw),iw=1,31), ip=14,14)/ & - -0.5210e-08, -0.1172e-07, -0.2731e-07, -0.6598e-07, -0.1615e-06, & - -0.3880e-06, -0.8769e-06, -0.1787e-05, -0.3204e-05, -0.5066e-05, & - -0.7197e-05, -0.9451e-05, -0.1185e-04, -0.1465e-04, -0.1831e-04, & - -0.2346e-04, -0.3088e-04, -0.4132e-04, -0.5545e-04, -0.7410e-04, & - -0.9820e-04, -0.1288e-03, -0.1670e-03, -0.2140e-03, -0.2692e-03, & - -0.3293e-03, -0.3886e-03, -0.4417e-03, -0.4840e-03, -0.5073e-03, & - -0.4944e-03/ + -0.1177E-07, -0.2474E-07, -0.5574E-07, -0.1176E-06, -0.2560E-06, & + -0.5614E-06, -0.1159E-05, -0.2203E-05, -0.3761E-05, -0.5769E-05, & + -0.8067E-05, -0.1053E-04, -0.1327E-04, -0.1659E-04, -0.2098E-04, & + -0.2712E-04, -0.3584E-04, -0.4798E-04, -0.6433E-04, -0.8582E-04, & + -0.1136E-03, -0.1489E-03, -0.1932E-03, -0.2475E-03, -0.3111E-03, & + -0.3800E-03, -0.4470E-03, -0.5032E-03, -0.5388E-03, -0.5400E-03, & + -0.4891E-03/ data ((h83(ip,iw),iw=1,31), ip=14,14)/ & - 0.1880e-10, 0.4271e-10, 0.9966e-10, 0.2352e-09, 0.5497e-09, & - 0.1205e-08, 0.2334e-08, 0.3765e-08, 0.4993e-08, 0.5532e-08, & - 0.5148e-08, 0.4055e-08, 0.2650e-08, 0.1326e-08, 0.2019e-09, & - -0.1124e-08, -0.2234e-08, 0.2827e-09, 0.1247e-07, 0.4102e-07, & - 0.9228e-07, 0.1682e-06, 0.2676e-06, 0.3885e-06, 0.5286e-06, & - 0.6904e-06, 0.8871e-06, 0.1142e-05, 0.1466e-05, 0.1800e-05, & - 0.2004e-05/ + 0.1251E-09, 0.2874E-09, 0.5907E-09, 0.1136E-08, 0.2182E-08, & + 0.3909E-08, 0.6735E-08, 0.1018E-07, 0.1399E-07, 0.1783E-07, & + 0.2163E-07, 0.2610E-07, 0.3246E-07, 0.4315E-07, 0.5899E-07, & + 0.8117E-07, 0.1128E-06, 0.1606E-06, 0.2341E-06, 0.3453E-06, & + 0.5068E-06, 0.7277E-06, 0.1012E-05, 0.1359E-05, 0.1767E-05, & + 0.2223E-05, 0.2703E-05, 0.3175E-05, 0.3574E-05, 0.3768E-05, & + 0.3601E-05/ data ((h81(ip,iw),iw=1,31), ip=15,15)/ & - 0.99998653, 0.99997336, 0.99994785, 0.99989909, 0.99980879, & - 0.99964851, 0.99938041, 0.99896401, 0.99836302, 0.99754399, & - 0.99645603, 0.99500400, 0.99302697, 0.99027801, 0.98640001, & - 0.98092002, 0.97319001, 0.96234000, 0.94727999, 0.92657000, & - 0.89850003, 0.86119998, 0.81260002, 0.75080001, 0.67429996, & - 0.58350003, 0.48089999, 0.37250000, 0.26760000, 0.17650002, & - 0.10610002/ + 0.99998581, 0.99997181, 0.99994457, 0.99989307, 0.99979734, & + 0.99962950, 0.99935025, 0.99892145, 0.99830657, 0.99747115, & + 0.99636191, 0.99487901, 0.99285656, 0.99003839, 0.98606563, & + 0.98044837, 0.97252828, 0.96143234, 0.94602317, 0.92485082, & + 0.89616144, 0.85797250, 0.80818051, 0.74475378, 0.66627097, & + 0.57292521, 0.46762335, 0.35682863, 0.25054556, 0.15963095, & + 0.09080571/ data ((h82(ip,iw),iw=1,31), ip=15,15)/ & - -0.5045e-08, -0.1113e-07, -0.2540e-07, -0.6008e-07, -0.1449e-06, & - -0.3457e-06, -0.7826e-06, -0.1609e-05, -0.2920e-05, -0.4665e-05, & - -0.6691e-05, -0.8868e-05, -0.1127e-04, -0.1422e-04, -0.1820e-04, & - -0.2389e-04, -0.3213e-04, -0.4380e-04, -0.5975e-04, -0.8092e-04, & - -0.1083e-03, -0.1433e-03, -0.1873e-03, -0.2402e-03, -0.2997e-03, & - -0.3607e-03, -0.4178e-03, -0.4662e-03, -0.4994e-03, -0.5028e-03, & - -0.4563e-03/ + -0.1118E-07, -0.2415E-07, -0.5321E-07, -0.1133E-06, -0.2410E-06, & + -0.5236E-06, -0.1073E-05, -0.2053E-05, -0.3528E-05, -0.5460E-05, & + -0.7694E-05, -0.1015E-04, -0.1299E-04, -0.1658E-04, -0.2147E-04, & + -0.2839E-04, -0.3828E-04, -0.5213E-04, -0.7091E-04, -0.9566E-04, & + -0.1276E-03, -0.1682E-03, -0.2189E-03, -0.2797E-03, -0.3476E-03, & + -0.4167E-03, -0.4786E-03, -0.5240E-03, -0.5406E-03, -0.5107E-03, & + -0.4220E-03/ data ((h83(ip,iw),iw=1,31), ip=15,15)/ & - 0.1804e-10, 0.3983e-10, 0.9045e-10, 0.2080e-09, 0.4786e-09, & - 0.1046e-08, 0.2052e-08, 0.3413e-08, 0.4704e-08, 0.5565e-08, & - 0.5887e-08, 0.5981e-08, 0.6202e-08, 0.6998e-08, 0.8493e-08, & - 0.1002e-07, 0.1184e-07, 0.1780e-07, 0.3483e-07, 0.7122e-07, & - 0.1341e-06, 0.2259e-06, 0.3446e-06, 0.4866e-06, 0.6486e-06, & - 0.8343e-06, 0.1063e-05, 0.1356e-05, 0.1690e-05, 0.1951e-05, & - 0.2005e-05/ + 0.1251E-09, 0.2927E-09, 0.5721E-09, 0.1118E-08, 0.2142E-08, & + 0.3824E-08, 0.6708E-08, 0.1043E-07, 0.1488E-07, 0.1979E-07, & + 0.2543E-07, 0.3260E-07, 0.4308E-07, 0.5882E-07, 0.8153E-07, & + 0.1124E-06, 0.1551E-06, 0.2174E-06, 0.3102E-06, 0.4479E-06, & + 0.6439E-06, 0.9071E-06, 0.1240E-05, 0.1640E-05, 0.2095E-05, & + 0.2579E-05, 0.3060E-05, 0.3491E-05, 0.3764E-05, 0.3721E-05, & + 0.3292E-05/ data ((h81(ip,iw),iw=1,31), ip=16,16)/ & - 0.99998647, 0.99997330, 0.99994755, 0.99989808, 0.99980563, & - 0.99963909, 0.99935490, 0.99890202, 0.99822801, 0.99728203, & - 0.99599099, 0.99423301, 0.99181002, 0.98842001, 0.98364002, & - 0.97689003, 0.96740001, 0.95414001, 0.93575001, 0.91060001, & - 0.87680000, 0.83219999, 0.77490002, 0.70330000, 0.61689997, & - 0.51750004, 0.40990001, 0.30239999, 0.20539999, 0.12750000, & - 0.07150000/ + 0.99998587, 0.99997181, 0.99994439, 0.99989206, 0.99979407, & + 0.99961913, 0.99932277, 0.99885392, 0.99816269, 0.99719489, & + 0.99587458, 0.99407625, 0.99159390, 0.98812038, 0.98322064, & + 0.97630697, 0.96658587, 0.95300376, 0.93419170, 0.90845579, & + 0.87383258, 0.82820439, 0.76947904, 0.69596839, 0.60722947, & + 0.50518250, 0.39504176, 0.28574610, 0.18839723, 0.11161584, & + 0.05787951/ data ((h82(ip,iw),iw=1,31), ip=16,16)/ & - -0.4850e-08, -0.1045e-07, -0.2334e-07, -0.5367e-07, -0.1265e-06, & - -0.2980e-06, -0.6750e-06, -0.1406e-05, -0.2601e-05, -0.4239e-05, & - -0.6201e-05, -0.8389e-05, -0.1091e-04, -0.1413e-04, -0.1859e-04, & - -0.2500e-04, -0.3432e-04, -0.4761e-04, -0.6595e-04, -0.9030e-04, & - -0.1219e-03, -0.1624e-03, -0.2126e-03, -0.2708e-03, -0.3327e-03, & - -0.3926e-03, -0.4458e-03, -0.4871e-03, -0.5045e-03, -0.4777e-03, & - -0.3954e-03/ + -0.1163E-07, -0.2355E-07, -0.5142E-07, -0.1075E-06, -0.2262E-06, & + -0.4817E-06, -0.9818E-06, -0.1885E-05, -0.3285E-05, -0.5158E-05, & + -0.7401E-05, -0.9958E-05, -0.1303E-04, -0.1705E-04, -0.2262E-04, & + -0.3058E-04, -0.4198E-04, -0.5804E-04, -0.7992E-04, -0.1087E-03, & + -0.1457E-03, -0.1926E-03, -0.2501E-03, -0.3165E-03, -0.3865E-03, & + -0.4524E-03, -0.5056E-03, -0.5353E-03, -0.5249E-03, -0.4571E-03, & + -0.3378E-03/ data ((h83(ip,iw),iw=1,31), ip=16,16)/ & - 0.1717e-10, 0.3723e-10, 0.8093e-10, 0.1817e-09, 0.4100e-09, & - 0.8932e-09, 0.1791e-08, 0.3126e-08, 0.4634e-08, 0.6095e-08, & - 0.7497e-08, 0.9170e-08, 0.1136e-07, 0.1453e-07, 0.1892e-07, & - 0.2369e-07, 0.2909e-07, 0.3922e-07, 0.6232e-07, 0.1083e-06, & - 0.1847e-06, 0.2943e-06, 0.4336e-06, 0.5970e-06, 0.7815e-06, & - 0.9959e-06, 0.1263e-05, 0.1583e-05, 0.1880e-05, 0.2009e-05, & - 0.1914e-05/ + 0.1171E-09, 0.2980E-09, 0.5402E-09, 0.1104E-08, 0.2091E-08, & + 0.3848E-08, 0.6769E-08, 0.1094E-07, 0.1632E-07, 0.2289E-07, & + 0.3108E-07, 0.4197E-07, 0.5722E-07, 0.7897E-07, 0.1097E-06, & + 0.1512E-06, 0.2073E-06, 0.2871E-06, 0.4038E-06, 0.5728E-06, & + 0.8079E-06, 0.1117E-05, 0.1502E-05, 0.1953E-05, 0.2443E-05, & + 0.2937E-05, 0.3394E-05, 0.3732E-05, 0.3804E-05, 0.3491E-05, & + 0.2856E-05/ data ((h81(ip,iw),iw=1,31), ip=17,17)/ & - 0.99998647, 0.99997318, 0.99994719, 0.99989688, 0.99980187, & - 0.99962789, 0.99932390, 0.99882400, 0.99805701, 0.99694502, & - 0.99538797, 0.99323398, 0.99023998, 0.98604000, 0.98013997, & - 0.97182000, 0.96016002, 0.94391000, 0.92149997, 0.89100003, & - 0.85049999, 0.79769999, 0.73089999, 0.64919996, 0.55350000, & - 0.44760001, 0.33870000, 0.23670000, 0.15149999, 0.08810002, & - 0.04570001/ + 0.99998587, 0.99997187, 0.99994391, 0.99989080, 0.99978989, & + 0.99960697, 0.99928856, 0.99877006, 0.99797958, 0.99683803, & + 0.99524260, 0.99303532, 0.98996651, 0.98566484, 0.97960740, & + 0.97108519, 0.95913982, 0.94250381, 0.91956043, 0.88838351, & + 0.84684128, 0.79275382, 0.72422367, 0.64030874, 0.54205990, & + 0.43354255, 0.32249713, 0.21969658, 0.13518941, 0.07362670, & + 0.03405166/ data ((h82(ip,iw),iw=1,31), ip=17,17)/ & - -0.4673e-08, -0.9862e-08, -0.2135e-07, -0.4753e-07, -0.1087e-06, & - -0.2512e-06, -0.5671e-06, -0.1199e-05, -0.2281e-05, -0.3842e-05, & - -0.5804e-05, -0.8110e-05, -0.1088e-04, -0.1452e-04, -0.1961e-04, & - -0.2696e-04, -0.3768e-04, -0.5311e-04, -0.7444e-04, -0.1028e-03, & - -0.1397e-03, -0.1865e-03, -0.2427e-03, -0.3047e-03, -0.3667e-03, & - -0.4237e-03, -0.4712e-03, -0.5003e-03, -0.4921e-03, -0.4286e-03, & - -0.3188e-03/ + -0.1088E-07, -0.2191E-07, -0.5053E-07, -0.1018E-06, -0.2113E-06, & + -0.4407E-06, -0.8942E-06, -0.1725E-05, -0.3064E-05, -0.4925E-05, & + -0.7258E-05, -0.1005E-04, -0.1351E-04, -0.1814E-04, -0.2462E-04, & + -0.3391E-04, -0.4726E-04, -0.6615E-04, -0.9188E-04, -0.1257E-03, & + -0.1688E-03, -0.2227E-03, -0.2867E-03, -0.3567E-03, -0.4256E-03, & + -0.4849E-03, -0.5251E-03, -0.5319E-03, -0.4859E-03, -0.3816E-03, & + -0.2488E-03/ data ((h83(ip,iw),iw=1,31), ip=17,17)/ & - 0.1653e-10, 0.3436e-10, 0.7431e-10, 0.1605e-09, 0.3548e-09, & - 0.7723e-09, 0.1595e-08, 0.2966e-08, 0.4849e-08, 0.7169e-08, & - 0.1003e-07, 0.1366e-07, 0.1825e-07, 0.2419e-07, 0.3186e-07, & - 0.4068e-07, 0.5064e-07, 0.6618e-07, 0.9684e-07, 0.1536e-06, & - 0.2450e-06, 0.3730e-06, 0.5328e-06, 0.7184e-06, 0.9291e-06, & - 0.1180e-05, 0.1484e-05, 0.1798e-05, 0.1992e-05, 0.1968e-05, & - 0.1736e-05/ + 0.1251E-09, 0.2634E-09, 0.5774E-09, 0.1099E-08, 0.2107E-08, & + 0.3856E-08, 0.7067E-08, 0.1178E-07, 0.1845E-07, 0.2726E-07, & + 0.3877E-07, 0.5429E-07, 0.7531E-07, 0.1046E-06, 0.1451E-06, & + 0.1993E-06, 0.2721E-06, 0.3732E-06, 0.5183E-06, 0.7233E-06, & + 0.1001E-05, 0.1360E-05, 0.1797E-05, 0.2289E-05, 0.2798E-05, & + 0.3281E-05, 0.3673E-05, 0.3849E-05, 0.3662E-05, 0.3112E-05, & + 0.2335E-05/ data ((h81(ip,iw),iw=1,31), ip=18,18)/ & - 0.99998647, 0.99997312, 0.99994683, 0.99989569, 0.99979800, & - 0.99961591, 0.99928999, 0.99873698, 0.99785602, 0.99653602, & - 0.99464101, 0.99198103, 0.98825997, 0.98306000, 0.97574002, & - 0.96548998, 0.95117003, 0.93129998, 0.90407002, 0.86739999, & - 0.81910002, 0.75720000, 0.68040001, 0.58880001, 0.48530000, & - 0.37610000, 0.27029997, 0.17830002, 0.10720003, 0.05790001, & - 0.02740002/ + 0.99998593, 0.99997187, 0.99994367, 0.99988943, 0.99978596, & + 0.99959368, 0.99925119, 0.99867415, 0.99776298, 0.99640357, & + 0.99445862, 0.99173003, 0.98791820, 0.98257768, 0.97508043, & + 0.96456927, 0.94989133, 0.92953795, 0.90164959, 0.86409807, & + 0.81463462, 0.75114733, 0.67224920, 0.57824445, 0.47214776, & + 0.36050701, 0.25336337, 0.16159421, 0.09200191, 0.04520833, & + 0.01819801/ data ((h82(ip,iw),iw=1,31), ip=18,18)/ & - -0.4532e-08, -0.9395e-08, -0.1978e-07, -0.4272e-07, -0.9442e-07, & - -0.2124e-06, -0.4747e-06, -0.1017e-05, -0.2003e-05, -0.3524e-05, & - -0.5567e-05, -0.8108e-05, -0.1127e-04, -0.1547e-04, -0.2138e-04, & - -0.2996e-04, -0.4251e-04, -0.6059e-04, -0.8563e-04, -0.1190e-03, & - -0.1623e-03, -0.2156e-03, -0.2767e-03, -0.3403e-03, -0.4006e-03, & - -0.4530e-03, -0.4912e-03, -0.4995e-03, -0.4563e-03, -0.3592e-03, & - -0.2383e-03/ + -0.1103E-07, -0.2206E-07, -0.4859E-07, -0.9792E-07, -0.1994E-06, & + -0.4061E-06, -0.8228E-06, -0.1602E-05, -0.2904E-05, -0.4815E-05, & + -0.7357E-05, -0.1053E-04, -0.1457E-04, -0.2000E-04, -0.2766E-04, & + -0.3866E-04, -0.5450E-04, -0.7686E-04, -0.1073E-03, -0.1471E-03, & + -0.1976E-03, -0.2587E-03, -0.3277E-03, -0.3985E-03, -0.4627E-03, & + -0.5115E-03, -0.5326E-03, -0.5076E-03, -0.4222E-03, -0.2941E-03, & + -0.1681E-03/ data ((h83(ip,iw),iw=1,31), ip=18,18)/ & - 0.1593e-10, 0.3276e-10, 0.6896e-10, 0.1476e-09, 0.3190e-09, & - 0.6944e-09, 0.1474e-08, 0.2935e-08, 0.5300e-08, 0.8697e-08, & - 0.1336e-07, 0.1946e-07, 0.2707e-07, 0.3637e-07, 0.4800e-07, & - 0.6187e-07, 0.7806e-07, 0.1008e-06, 0.1404e-06, 0.2089e-06, & - 0.3153e-06, 0.4613e-06, 0.6416e-06, 0.8506e-06, 0.1095e-05, & - 0.1387e-05, 0.1708e-05, 0.1956e-05, 0.2003e-05, 0.1836e-05, & - 0.1483e-05/ + 0.1224E-09, 0.2448E-09, 0.5748E-09, 0.1142E-08, 0.2123E-08, & + 0.3967E-08, 0.7416E-08, 0.1287E-07, 0.2113E-07, 0.3276E-07, & + 0.4854E-07, 0.6982E-07, 0.9833E-07, 0.1366E-06, 0.1888E-06, & + 0.2589E-06, 0.3522E-06, 0.4798E-06, 0.6576E-06, 0.9025E-06, & + 0.1227E-05, 0.1636E-05, 0.2118E-05, 0.2637E-05, 0.3148E-05, & + 0.3589E-05, 0.3856E-05, 0.3798E-05, 0.3352E-05, 0.2628E-05, & + 0.1767E-05/ data ((h81(ip,iw),iw=1,31), ip=19,19)/ & - 0.99998641, 0.99997300, 0.99994648, 0.99989462, 0.99979430, & - 0.99960452, 0.99925661, 0.99864697, 0.99763900, 0.99607199, & - 0.99376297, 0.99046898, 0.98584002, 0.97937000, 0.97031999, & - 0.95766997, 0.94010001, 0.91588002, 0.88300002, 0.83920002, & - 0.78230000, 0.71060002, 0.62360001, 0.52320004, 0.41450000, & - 0.30589998, 0.20789999, 0.12900001, 0.07239997, 0.03590000, & - 0.01539999/ + 0.99998593, 0.99997181, 0.99994355, 0.99988830, 0.99978203, & + 0.99958068, 0.99921370, 0.99857539, 0.99752712, 0.99590880, & + 0.99353248, 0.99015075, 0.98540407, 0.97876346, 0.96947908, & + 0.95651841, 0.93850368, 0.91368133, 0.87997156, 0.83508462, & + 0.77673703, 0.70312166, 0.61380792, 0.51084727, 0.39962953, & + 0.28925329, 0.19089335, 0.11320567, 0.05874455, 0.02542299, & + 0.00871336/ data ((h82(ip,iw),iw=1,31), ip=19,19)/ & - -0.4448e-08, -0.9085e-08, -0.1877e-07, -0.3946e-07, -0.8472e-07, & - -0.1852e-06, -0.4074e-06, -0.8791e-06, -0.1789e-05, -0.3314e-05, & - -0.5521e-05, -0.8425e-05, -0.1215e-04, -0.1711e-04, -0.2407e-04, & - -0.3421e-04, -0.4905e-04, -0.7032e-04, -0.9985e-04, -0.1394e-03, & - -0.1897e-03, -0.2491e-03, -0.3132e-03, -0.3763e-03, -0.4332e-03, & - -0.4786e-03, -0.5005e-03, -0.4775e-03, -0.3970e-03, -0.2794e-03, & - -0.1652e-03/ + -0.1028E-07, -0.2236E-07, -0.4829E-07, -0.9345E-07, -0.1912E-06, & + -0.3889E-06, -0.7758E-06, -0.1525E-05, -0.2827E-05, -0.4873E-05, & + -0.7740E-05, -0.1148E-04, -0.1633E-04, -0.2283E-04, -0.3198E-04, & + -0.4514E-04, -0.6403E-04, -0.9054E-04, -0.1266E-03, -0.1736E-03, & + -0.2321E-03, -0.2999E-03, -0.3716E-03, -0.4398E-03, -0.4956E-03, & + -0.5286E-03, -0.5222E-03, -0.4579E-03, -0.3401E-03, -0.2080E-03, & + -0.1039E-03/ data ((h83(ip,iw),iw=1,31), ip=19,19)/ & - 0.1566e-10, 0.3219e-10, 0.6635e-10, 0.1400e-09, 0.2999e-09, & - 0.6513e-09, 0.1406e-08, 0.2953e-08, 0.5789e-08, 0.1037e-07, & - 0.1709e-07, 0.2623e-07, 0.3777e-07, 0.5159e-07, 0.6823e-07, & - 0.8864e-07, 0.1134e-06, 0.1461e-06, 0.1960e-06, 0.2761e-06, & - 0.3962e-06, 0.5583e-06, 0.7580e-06, 0.9957e-06, 0.1282e-05, & - 0.1607e-05, 0.1898e-05, 0.2020e-05, 0.1919e-05, 0.1623e-05, & - 0.1171e-05/ + 0.1304E-09, 0.2608E-09, 0.5535E-09, 0.1152E-08, 0.2142E-08, & + 0.4122E-08, 0.7799E-08, 0.1397E-07, 0.2408E-07, 0.3910E-07, & + 0.6004E-07, 0.8860E-07, 0.1265E-06, 0.1766E-06, 0.2432E-06, & + 0.3327E-06, 0.4518E-06, 0.6112E-06, 0.8261E-06, 0.1114E-05, & + 0.1486E-05, 0.1943E-05, 0.2458E-05, 0.2987E-05, 0.3474E-05, & + 0.3824E-05, 0.3892E-05, 0.3567E-05, 0.2915E-05, 0.2077E-05, & + 0.1211E-05/ data ((h81(ip,iw),iw=1,31), ip=20,20)/ & - 0.99998641, 0.99997294, 0.99994624, 0.99989372, 0.99979132, & - 0.99959481, 0.99922693, 0.99856299, 0.99742502, 0.99558598, & - 0.99278802, 0.98872000, 0.98295999, 0.97491002, 0.96368998, & - 0.94812000, 0.92662001, 0.89719999, 0.85780001, 0.80599999, & - 0.73969996, 0.65779996, 0.56130004, 0.45410001, 0.34369999, & - 0.24030000, 0.15390003, 0.08950001, 0.04640001, 0.02090001, & - 0.00800002/ + 0.99998593, 0.99997187, 0.99994338, 0.99988759, 0.99977875, & + 0.99956948, 0.99917996, 0.99848181, 0.99729222, 0.99538499, & + 0.99249852, 0.98831391, 0.98240149, 0.97413868, 0.96263647, & + 0.94666839, 0.92461574, 0.89449459, 0.85404098, 0.80086255, & + 0.73280096, 0.64872819, 0.54967648, 0.43987310, 0.32735765, & + 0.22317076, 0.13746834, 0.07493556, 0.03466660, 0.01290333, & + 0.00367731/ data ((h82(ip,iw),iw=1,31), ip=20,20)/ & - -0.4403e-08, -0.8896e-08, -0.1818e-07, -0.3751e-07, -0.7880e-07, & - -0.1683e-06, -0.3640e-06, -0.7852e-06, -0.1640e-05, -0.3191e-05, & - -0.5634e-05, -0.9046e-05, -0.1355e-04, -0.1953e-04, -0.2786e-04, & - -0.3995e-04, -0.5752e-04, -0.8256e-04, -0.1174e-03, -0.1638e-03, & - -0.2211e-03, -0.2854e-03, -0.3507e-03, -0.4116e-03, -0.4633e-03, & - -0.4966e-03, -0.4921e-03, -0.4309e-03, -0.3215e-03, -0.2016e-03, & - -0.1061e-03/ + -0.1043E-07, -0.2102E-07, -0.4889E-07, -0.9315E-07, -0.1857E-06, & + -0.3780E-06, -0.7543E-06, -0.1486E-05, -0.2823E-05, -0.5051E-05, & + -0.8375E-05, -0.1290E-04, -0.1887E-04, -0.2681E-04, -0.3784E-04, & + -0.5366E-04, -0.7619E-04, -0.1076E-03, -0.1501E-03, -0.2052E-03, & + -0.2717E-03, -0.3446E-03, -0.4162E-03, -0.4783E-03, -0.5213E-03, & + -0.5309E-03, -0.4878E-03, -0.3851E-03, -0.2521E-03, -0.1350E-03, & + -0.5807E-04/ data ((h83(ip,iw),iw=1,31), ip=20,20)/ & - 0.1551e-10, 0.3147e-10, 0.6419e-10, 0.1356e-09, 0.2860e-09, & - 0.6178e-09, 0.1353e-08, 0.2934e-08, 0.6095e-08, 0.1174e-07, & - 0.2067e-07, 0.3346e-07, 0.5014e-07, 0.7024e-07, 0.9377e-07, & - 0.1226e-06, 0.1592e-06, 0.2056e-06, 0.2678e-06, 0.3584e-06, & - 0.4892e-06, 0.6651e-06, 0.8859e-06, 0.1160e-05, 0.1488e-05, & - 0.1814e-05, 0.2010e-05, 0.1984e-05, 0.1748e-05, 0.1338e-05, & - 0.8445e-06/ + 0.1384E-09, 0.2741E-09, 0.5748E-09, 0.1131E-08, 0.2161E-08, & + 0.4247E-08, 0.8188E-08, 0.1499E-07, 0.2674E-07, 0.4548E-07, & + 0.7259E-07, 0.1102E-06, 0.1602E-06, 0.2255E-06, 0.3108E-06, & + 0.4239E-06, 0.5746E-06, 0.7721E-06, 0.1029E-05, 0.1361E-05, & + 0.1781E-05, 0.2275E-05, 0.2807E-05, 0.3325E-05, 0.3749E-05, & + 0.3939E-05, 0.3748E-05, 0.3187E-05, 0.2391E-05, 0.1504E-05, & + 0.7362E-06/ data ((h81(ip,iw),iw=1,31), ip=21,21)/ & - 0.99998641, 0.99997288, 0.99994606, 0.99989301, 0.99978900, & - 0.99958712, 0.99920273, 0.99849200, 0.99723101, 0.99511403, & - 0.99177098, 0.98677999, 0.97962999, 0.96961999, 0.95573002, & - 0.93658000, 0.91036999, 0.87500000, 0.82800001, 0.76730001, & - 0.69110000, 0.59930003, 0.49479997, 0.38370001, 0.27590001, & - 0.18210000, 0.10949999, 0.05919999, 0.02800000, 0.01130003, & - 0.00389999/ + 0.99998617, 0.99997193, 0.99994338, 0.99988717, 0.99977612, & + 0.99956113, 0.99915254, 0.99840069, 0.99707633, 0.99486989, & + 0.99141109, 0.98627210, 0.97892439, 0.96864319, 0.95439541, & + 0.93474925, 0.90785789, 0.87153333, 0.82338101, 0.76101756, & + 0.68269420, 0.58842880, 0.48118341, 0.36774790, 0.25862980, & + 0.16510296, 0.09410405, 0.04627281, 0.01861316, 0.00583249, & + 0.00132960/ data ((h82(ip,iw),iw=1,31), ip=21,21)/ & - -0.4379e-08, -0.8801e-08, -0.1782e-07, -0.3642e-07, -0.7536e-07, & - -0.1581e-06, -0.3366e-06, -0.7227e-06, -0.1532e-05, -0.3106e-05, & - -0.5810e-05, -0.9862e-05, -0.1540e-04, -0.2279e-04, -0.3292e-04, & - -0.4738e-04, -0.6817e-04, -0.9765e-04, -0.1384e-03, -0.1918e-03, & - -0.2551e-03, -0.3226e-03, -0.3876e-03, -0.4452e-03, -0.4883e-03, & - -0.5005e-03, -0.4598e-03, -0.3633e-03, -0.2416e-03, -0.1349e-03, & - -0.6278e-04/ + -0.1014E-07, -0.2176E-07, -0.4680E-07, -0.9211E-07, -0.1844E-06, & + -0.3731E-06, -0.7439E-06, -0.1477E-05, -0.2852E-05, -0.5281E-05, & + -0.9151E-05, -0.1469E-04, -0.2215E-04, -0.3205E-04, -0.4554E-04, & + -0.6453E-04, -0.9130E-04, -0.1283E-03, -0.1781E-03, -0.2413E-03, & + -0.3147E-03, -0.3905E-03, -0.4593E-03, -0.5116E-03, -0.5354E-03, & + -0.5122E-03, -0.4277E-03, -0.2991E-03, -0.1715E-03, -0.7979E-04, & + -0.2831E-04/ data ((h83(ip,iw),iw=1,31), ip=21,21)/ & - 0.1542e-10, 0.3111e-10, 0.6345e-10, 0.1310e-09, 0.2742e-09, & - 0.5902e-09, 0.1289e-08, 0.2826e-08, 0.6103e-08, 0.1250e-07, & - 0.2355e-07, 0.4041e-07, 0.6347e-07, 0.9217e-07, 0.1256e-06, & - 0.1658e-06, 0.2175e-06, 0.2824e-06, 0.3607e-06, 0.4614e-06, & - 0.6004e-06, 0.7880e-06, 0.1034e-05, 0.1349e-05, 0.1698e-05, & - 0.1965e-05, 0.2021e-05, 0.1857e-05, 0.1500e-05, 0.1015e-05, & - 0.5467e-06/ + 0.1224E-09, 0.3033E-09, 0.5588E-09, 0.1118E-08, 0.2206E-08, & + 0.4271E-08, 0.8374E-08, 0.1586E-07, 0.2918E-07, 0.5135E-07, & + 0.8524E-07, 0.1338E-06, 0.1993E-06, 0.2847E-06, 0.3940E-06, & + 0.5365E-06, 0.7246E-06, 0.9678E-06, 0.1272E-05, 0.1651E-05, & + 0.2111E-05, 0.2629E-05, 0.3160E-05, 0.3635E-05, 0.3934E-05, & + 0.3890E-05, 0.3441E-05, 0.2703E-05, 0.1820E-05, 0.9766E-06, & + 0.3839E-06/ data ((h81(ip,iw),iw=1,31), ip=22,22)/ & - 0.99998635, 0.99997288, 0.99994594, 0.99989259, 0.99978727, & - 0.99958128, 0.99918407, 0.99843502, 0.99706697, 0.99468601, & - 0.99077803, 0.98474997, 0.97593999, 0.96350998, 0.94633001, & - 0.92282999, 0.89100003, 0.84860003, 0.79330003, 0.72299999, & - 0.63670003, 0.53600001, 0.42580003, 0.31470001, 0.21410000, & - 0.13300002, 0.07470000, 0.03710002, 0.01580000, 0.00580001, & - 0.00169998/ + 0.99998623, 0.99997211, 0.99994355, 0.99988687, 0.99977422, & + 0.99955481, 0.99913073, 0.99833500, 0.99689233, 0.99439919, & + 0.99033678, 0.98411196, 0.97504222, 0.96227551, 0.94463825, & + 0.92052001, 0.88788027, 0.84437561, 0.78755522, 0.71526611, & + 0.62658077, 0.52313668, 0.41026467, 0.29745829, 0.19654948, & + 0.11670119, 0.06062329, 0.02623105, 0.00896722, 0.00229371, & + 0.00038755/ data ((h82(ip,iw),iw=1,31), ip=22,22)/ & - -0.4366e-08, -0.8749e-08, -0.1761e-07, -0.3578e-07, -0.7322e-07, & - -0.1517e-06, -0.3189e-06, -0.6785e-06, -0.1446e-05, -0.3014e-05, & - -0.5933e-05, -0.1069e-04, -0.1755e-04, -0.2683e-04, -0.3936e-04, & - -0.5675e-04, -0.8137e-04, -0.1160e-03, -0.1630e-03, -0.2223e-03, & - -0.2899e-03, -0.3589e-03, -0.4230e-03, -0.4755e-03, -0.5031e-03, & - -0.4834e-03, -0.4036e-03, -0.2849e-03, -0.1687e-03, -0.8356e-04, & - -0.3388e-04/ + -0.9391E-08, -0.2221E-07, -0.4665E-07, -0.9226E-07, -0.1830E-06, & + -0.3735E-06, -0.7406E-06, -0.1474E-05, -0.2892E-05, -0.5499E-05, & + -0.9920E-05, -0.1666E-04, -0.2607E-04, -0.3859E-04, -0.5529E-04, & + -0.7813E-04, -0.1098E-03, -0.1532E-03, -0.2105E-03, -0.2809E-03, & + -0.3591E-03, -0.4353E-03, -0.4984E-03, -0.5362E-03, -0.5320E-03, & + -0.4676E-03, -0.3482E-03, -0.2137E-03, -0.1069E-03, -0.4211E-04, & + -0.1145E-04/ data ((h83(ip,iw),iw=1,31), ip=22,22)/ & - 0.1536e-10, 0.3086e-10, 0.6248e-10, 0.1288e-09, 0.2664e-09, & - 0.5637e-09, 0.1222e-08, 0.2680e-08, 0.5899e-08, 0.1262e-07, & - 0.2527e-07, 0.4621e-07, 0.7678e-07, 0.1165e-06, 0.1640e-06, & - 0.2199e-06, 0.2904e-06, 0.3783e-06, 0.4787e-06, 0.5925e-06, & - 0.7377e-06, 0.9389e-06, 0.1216e-05, 0.1560e-05, 0.1879e-05, & - 0.2025e-05, 0.1940e-05, 0.1650e-05, 0.1194e-05, 0.6981e-06, & - 0.3103e-06/ + 0.1623E-09, 0.3007E-09, 0.5721E-09, 0.1110E-08, 0.2203E-08, & + 0.4343E-08, 0.8640E-08, 0.1645E-07, 0.3095E-07, 0.5619E-07, & + 0.9716E-07, 0.1580E-06, 0.2425E-06, 0.3535E-06, 0.4947E-06, & + 0.6742E-06, 0.9064E-06, 0.1202E-05, 0.1563E-05, 0.1989E-05, & + 0.2478E-05, 0.3003E-05, 0.3509E-05, 0.3891E-05, 0.3985E-05, & + 0.3668E-05, 0.3010E-05, 0.2153E-05, 0.1258E-05, 0.5557E-06, & + 0.1624E-06/ data ((h81(ip,iw),iw=1,31), ip=23,23)/ & - 0.99998635, 0.99997282, 0.99994588, 0.99989229, 0.99978608, & - 0.99957722, 0.99917048, 0.99839097, 0.99693698, 0.99432403, & - 0.98987001, 0.98273998, 0.97201002, 0.95668000, 0.93548000, & - 0.90671998, 0.86830002, 0.81800002, 0.75330001, 0.67299998, & - 0.57720000, 0.46920002, 0.35659999, 0.25010002, 0.16049999, & - 0.09350002, 0.04850000, 0.02179998, 0.00840002, 0.00269997, & - 0.00070000/ + 0.99998647, 0.99997246, 0.99994379, 0.99988651, 0.99977303, & + 0.99954993, 0.99911475, 0.99828470, 0.99674338, 0.99399304, & + 0.98934013, 0.98194593, 0.97088563, 0.95511639, 0.93333685, & + 0.90381682, 0.86439717, 0.81265670, 0.74623829, 0.66356468, & + 0.56501788, 0.45429623, 0.33944970, 0.23212188, 0.14330000, & + 0.07824194, 0.03621233, 0.01344591, 0.00381404, 0.00075638, & + 0.00008333/ data ((h82(ip,iw),iw=1,31), ip=23,23)/ & - -0.4359e-08, -0.8720e-08, -0.1749e-07, -0.3527e-07, -0.7175e-07, & - -0.1473e-06, -0.3062e-06, -0.6451e-06, -0.1372e-05, -0.2902e-05, & - -0.5936e-05, -0.1133e-04, -0.1971e-04, -0.3143e-04, -0.4715e-04, & - -0.6833e-04, -0.9759e-04, -0.1379e-03, -0.1907e-03, -0.2542e-03, & - -0.3239e-03, -0.3935e-03, -0.4559e-03, -0.4991e-03, -0.5009e-03, & - -0.4414e-03, -0.3306e-03, -0.2077e-03, -0.1093e-03, -0.4754e-04, & - -0.1642e-04/ + -0.8496E-08, -0.2117E-07, -0.4620E-07, -0.9330E-07, -0.1859E-06, & + -0.3687E-06, -0.7355E-06, -0.1475E-05, -0.2920E-05, -0.5659E-05, & + -0.1056E-04, -0.1855E-04, -0.3028E-04, -0.4621E-04, -0.6714E-04, & + -0.9485E-04, -0.1323E-03, -0.1827E-03, -0.2471E-03, -0.3227E-03, & + -0.4027E-03, -0.4763E-03, -0.5304E-03, -0.5469E-03, -0.5048E-03, & + -0.3992E-03, -0.2618E-03, -0.1405E-03, -0.6043E-04, -0.1900E-04, & + -0.3491E-05/ data ((h83(ip,iw),iw=1,31), ip=23,23)/ & - 0.1531e-10, 0.3070e-10, 0.6184e-10, 0.1257e-09, 0.2578e-09, & - 0.5451e-09, 0.1159e-08, 0.2526e-08, 0.5585e-08, 0.1225e-07, & - 0.2576e-07, 0.5017e-07, 0.8855e-07, 0.1417e-06, 0.2078e-06, & - 0.2858e-06, 0.3802e-06, 0.4946e-06, 0.6226e-06, 0.7572e-06, & - 0.9137e-06, 0.1133e-05, 0.1438e-05, 0.1772e-05, 0.1994e-05, & - 0.1994e-05, 0.1779e-05, 0.1375e-05, 0.8711e-06, 0.4273e-06, & - 0.1539e-06/ + 0.1410E-09, 0.2767E-09, 0.5588E-09, 0.1128E-08, 0.2238E-08, & + 0.4332E-08, 0.8672E-08, 0.1688E-07, 0.3235E-07, 0.6024E-07, & + 0.1075E-06, 0.1815E-06, 0.2882E-06, 0.4314E-06, 0.6134E-06, & + 0.8399E-06, 0.1124E-05, 0.1479E-05, 0.1902E-05, 0.2376E-05, & + 0.2880E-05, 0.3391E-05, 0.3833E-05, 0.4049E-05, 0.3874E-05, & + 0.3311E-05, 0.2500E-05, 0.1580E-05, 0.7735E-06, 0.2652E-06, & + 0.5064E-07/ data ((h81(ip,iw),iw=1,31), ip=24,24)/ & - 0.99998635, 0.99997282, 0.99994582, 0.99989212, 0.99978542, & - 0.99957442, 0.99916071, 0.99835902, 0.99683702, 0.99403203, & - 0.98908001, 0.98084998, 0.96805000, 0.94933999, 0.92330998, & - 0.88830000, 0.84219998, 0.78270000, 0.70809996, 0.61759996, & - 0.51330000, 0.40079999, 0.29000002, 0.19239998, 0.11619997, & - 0.06300002, 0.02980000, 0.01200002, 0.00410002, 0.00120002, & - 0.00019997/ + 0.99998665, 0.99997264, 0.99994391, 0.99988639, 0.99977225, & + 0.99954611, 0.99910295, 0.99824727, 0.99662870, 0.99366271, & + 0.98846823, 0.97989517, 0.96664554, 0.94737148, 0.92061591, & + 0.88462359, 0.83725178, 0.77615321, 0.69933873, 0.60623604, & + 0.49901956, 0.38394505, 0.27167684, 0.17430288, 0.09971440, & + 0.04912645, 0.01973170, 0.00614691, 0.00139344, 0.00019175, & + 0.00001121/ data ((h82(ip,iw),iw=1,31), ip=24,24)/ & - -0.4354e-08, -0.8703e-08, -0.1742e-07, -0.3499e-07, -0.7074e-07, & - -0.1441e-06, -0.2971e-06, -0.6195e-06, -0.1309e-05, -0.2780e-05, & - -0.5823e-05, -0.1165e-04, -0.2152e-04, -0.3616e-04, -0.5604e-04, & - -0.8230e-04, -0.1173e-03, -0.1635e-03, -0.2211e-03, -0.2868e-03, & - -0.3567e-03, -0.4260e-03, -0.4844e-03, -0.5097e-03, -0.4750e-03, & - -0.3779e-03, -0.2522e-03, -0.1409e-03, -0.6540e-04, -0.2449e-04, & - -0.6948e-05/ + -0.8050E-08, -0.2102E-07, -0.4442E-07, -0.9465E-07, -0.1893E-06, & + -0.3659E-06, -0.7344E-06, -0.1480E-05, -0.2933E-05, -0.5753E-05, & + -0.1101E-04, -0.2013E-04, -0.3439E-04, -0.5447E-04, -0.8092E-04, & + -0.1150E-03, -0.1594E-03, -0.2169E-03, -0.2871E-03, -0.3654E-03, & + -0.4440E-03, -0.5117E-03, -0.5510E-03, -0.5365E-03, -0.4515E-03, & + -0.3166E-03, -0.1818E-03, -0.8448E-04, -0.2990E-04, -0.6816E-05, & + -0.7165E-06/ data ((h83(ip,iw),iw=1,31), ip=24,24)/ & - 0.1529e-10, 0.3060e-10, 0.6142e-10, 0.1241e-09, 0.2535e-09, & - 0.5259e-09, 0.1107e-08, 0.2383e-08, 0.5243e-08, 0.1161e-07, & - 0.2523e-07, 0.5188e-07, 0.9757e-07, 0.1657e-06, 0.2553e-06, & - 0.3629e-06, 0.4878e-06, 0.6323e-06, 0.7923e-06, 0.9575e-06, & - 0.1139e-05, 0.1381e-05, 0.1687e-05, 0.1952e-05, 0.2029e-05, & - 0.1890e-05, 0.1552e-05, 0.1062e-05, 0.5728e-06, 0.2280e-06, & - 0.6762e-07/ + 0.1490E-09, 0.3007E-09, 0.5694E-09, 0.1147E-08, 0.2219E-08, & + 0.4393E-08, 0.8805E-08, 0.1708E-07, 0.3326E-07, 0.6308E-07, & + 0.1159E-06, 0.2028E-06, 0.3338E-06, 0.5153E-06, 0.7484E-06, & + 0.1035E-05, 0.1382E-05, 0.1802E-05, 0.2288E-05, 0.2806E-05, & + 0.3317E-05, 0.3780E-05, 0.4091E-05, 0.4066E-05, 0.3619E-05, & + 0.2864E-05, 0.1944E-05, 0.1046E-05, 0.4099E-06, 0.9938E-07, & + 0.9939E-08/ data ((h81(ip,iw),iw=1,31), ip=25,25)/ & - 0.99998635, 0.99997282, 0.99994582, 0.99989200, 0.99978489, & - 0.99957252, 0.99915391, 0.99833602, 0.99676299, 0.99380499, & - 0.98843998, 0.97920001, 0.96427000, 0.94182003, 0.91018999, & - 0.86769998, 0.81260002, 0.74300003, 0.65770000, 0.55750000, & - 0.44660002, 0.33310002, 0.22860003, 0.14319998, 0.08090001, & - 0.04030001, 0.01719999, 0.00620002, 0.00190002, 0.00040001, & - 0.00000000/ + 0.99998695, 0.99997276, 0.99994379, 0.99988675, 0.99977160, & + 0.99954373, 0.99909455, 0.99822062, 0.99654251, 0.99340349, & + 0.98774564, 0.97806484, 0.96255350, 0.93937284, 0.90680546, & + 0.86315435, 0.80651176, 0.73489875, 0.64710438, 0.54404056, & + 0.43020850, 0.31471944, 0.20977807, 0.12548858, 0.06554347, & + 0.02840608, 0.00965798, 0.00244677, 0.00041175, 0.00003231, & + 0.00000018/ data ((h82(ip,iw),iw=1,31), ip=25,25)/ & - -0.4352e-08, -0.8693e-08, -0.1738e-07, -0.3483e-07, -0.7006e-07, & - -0.1423e-06, -0.2905e-06, -0.6008e-06, -0.1258e-05, -0.2663e-05, & - -0.5638e-05, -0.1165e-04, -0.2270e-04, -0.4044e-04, -0.6554e-04, & - -0.9855e-04, -0.1407e-03, -0.1928e-03, -0.2534e-03, -0.3197e-03, & - -0.3890e-03, -0.4563e-03, -0.5040e-03, -0.4998e-03, -0.4249e-03, & - -0.3025e-03, -0.1794e-03, -0.8860e-04, -0.3575e-04, -0.1122e-04, & - -0.2506e-05/ + -0.7454E-08, -0.2146E-07, -0.4293E-07, -0.9375E-07, -0.1821E-06, & + -0.3696E-06, -0.7405E-06, -0.1476E-05, -0.2937E-05, -0.5806E-05, & + -0.1130E-04, -0.2129E-04, -0.3793E-04, -0.6274E-04, -0.9615E-04, & + -0.1386E-03, -0.1914E-03, -0.2558E-03, -0.3298E-03, -0.4079E-03, & + -0.4819E-03, -0.5388E-03, -0.5541E-03, -0.4995E-03, -0.3772E-03, & + -0.2329E-03, -0.1164E-03, -0.4557E-04, -0.1236E-04, -0.1755E-05, & + -0.5057E-07/ data ((h83(ip,iw),iw=1,31), ip=25,25)/ & - 0.1527e-10, 0.3053e-10, 0.6115e-10, 0.1230e-09, 0.2492e-09, & - 0.5149e-09, 0.1068e-08, 0.2268e-08, 0.4932e-08, 0.1089e-07, & - 0.2408e-07, 0.5156e-07, 0.1028e-06, 0.1859e-06, 0.3028e-06, & - 0.4476e-06, 0.6124e-06, 0.7932e-06, 0.9879e-06, 0.1194e-05, & - 0.1417e-05, 0.1673e-05, 0.1929e-05, 0.2064e-05, 0.1997e-05, & - 0.1725e-05, 0.1267e-05, 0.7464e-06, 0.3312e-06, 0.1066e-06, & - 0.2718e-07/ + 0.1809E-09, 0.3246E-09, 0.5960E-09, 0.1120E-08, 0.2246E-08, & + 0.4391E-08, 0.8829E-08, 0.1731E-07, 0.3393E-07, 0.6527E-07, & + 0.1223E-06, 0.2207E-06, 0.3764E-06, 0.6008E-06, 0.8961E-06, & + 0.1258E-05, 0.1683E-05, 0.2173E-05, 0.2716E-05, 0.3269E-05, & + 0.3771E-05, 0.4136E-05, 0.4230E-05, 0.3926E-05, 0.3258E-05, & + 0.2357E-05, 0.1385E-05, 0.6107E-06, 0.1776E-06, 0.2568E-07, & + 0.6839E-09/ data ((h81(ip,iw),iw=1,31), ip=26,26)/ & - 0.99998635, 0.99997282, 0.99994576, 0.99989188, 0.99978459, & - 0.99957132, 0.99914938, 0.99831998, 0.99670899, 0.99363601, & - 0.98794001, 0.97781998, 0.96087998, 0.93456000, 0.89670002, & - 0.84560001, 0.78020000, 0.69920003, 0.60299999, 0.49400002, & - 0.37910002, 0.26889998, 0.17460001, 0.10280001, 0.05379999, & - 0.02429998, 0.00929999, 0.00300002, 0.00080001, 0.00010002, & - 0.00000000/ + 0.99998742, 0.99997318, 0.99994421, 0.99988669, 0.99977106, & + 0.99954182, 0.99908882, 0.99820071, 0.99648011, 0.99320894, & + 0.98717427, 0.97652453, 0.95883882, 0.93154693, 0.89246184, & + 0.83993518, 0.77259064, 0.68930018, 0.59020877, 0.47830009, & + 0.36090946, 0.24956739, 0.15586823, 0.08599961, 0.04009032, & + 0.01487154, 0.00417018, 0.00081682, 0.00008935, 0.00000226, & + 0.00000000/ data ((h82(ip,iw),iw=1,31), ip=26,26)/ & - -0.4351e-08, -0.8688e-08, -0.1736e-07, -0.3473e-07, -0.6966e-07, & - -0.1405e-06, -0.2857e-06, -0.5867e-06, -0.1218e-05, -0.2563e-05, & - -0.5435e-05, -0.1144e-04, -0.2321e-04, -0.4379e-04, -0.7487e-04, & - -0.1163e-03, -0.1670e-03, -0.2250e-03, -0.2876e-03, -0.3535e-03, & - -0.4215e-03, -0.4826e-03, -0.5082e-03, -0.4649e-03, -0.3564e-03, & - -0.2264e-03, -0.1188e-03, -0.5128e-04, -0.1758e-04, -0.4431e-05, & - -0.7275e-06/ + -0.9540E-08, -0.2102E-07, -0.4546E-07, -0.9330E-07, -0.1793E-06, & + -0.3664E-06, -0.7400E-06, -0.1476E-05, -0.2941E-05, -0.5832E-05, & + -0.1147E-04, -0.2206E-04, -0.4070E-04, -0.7030E-04, -0.1119E-03, & + -0.1649E-03, -0.2279E-03, -0.2990E-03, -0.3744E-03, -0.4494E-03, & + -0.5153E-03, -0.5537E-03, -0.5334E-03, -0.4368E-03, -0.2936E-03, & + -0.1593E-03, -0.6801E-04, -0.2110E-04, -0.3891E-05, -0.2838E-06, & + -0.2863E-08/ data ((h83(ip,iw),iw=1,31), ip=26,26)/ & - 0.1525e-10, 0.3048e-10, 0.6097e-10, 0.1223e-09, 0.2466e-09, & - 0.5021e-09, 0.1032e-08, 0.2195e-08, 0.4688e-08, 0.1027e-07, & - 0.2279e-07, 0.4999e-07, 0.1046e-06, 0.2009e-06, 0.3460e-06, & - 0.5335e-06, 0.7478e-06, 0.9767e-06, 0.1216e-05, 0.1469e-05, & - 0.1735e-05, 0.1977e-05, 0.2121e-05, 0.2103e-05, 0.1902e-05, & - 0.1495e-05, 0.9541e-06, 0.4681e-06, 0.1672e-06, 0.4496e-07, & - 0.9859e-08/ + 0.1437E-09, 0.2634E-09, 0.5721E-09, 0.1134E-08, 0.2169E-08, & + 0.4476E-08, 0.8895E-08, 0.1750E-07, 0.3438E-07, 0.6677E-07, & + 0.1272E-06, 0.2349E-06, 0.4139E-06, 0.6836E-06, 0.1050E-05, & + 0.1501E-05, 0.2020E-05, 0.2590E-05, 0.3184E-05, 0.3752E-05, & + 0.4204E-05, 0.4400E-05, 0.4212E-05, 0.3651E-05, 0.2814E-05, & + 0.1808E-05, 0.8844E-06, 0.2999E-06, 0.5742E-07, 0.3813E-08, & + 0.5821E-10/ data ((c1(ip,iw),iw=1,30), ip= 1, 1)/ & - 0.99985647, 0.99976432, 0.99963892, 0.99948031, 0.99927652, & - 0.99899602, 0.99860001, 0.99804801, 0.99732202, 0.99640399, & - 0.99526399, 0.99384302, 0.99204999, 0.98979002, 0.98694998, & - 0.98334998, 0.97878999, 0.97307003, 0.96592999, 0.95722002, & - 0.94660002, 0.93366003, 0.91777998, 0.89819998, 0.87419999, & - 0.84500003, 0.81029999, 0.76989996, 0.72440004, 0.67490000/ + 0.99986166, 0.99977082, 0.99964607, 0.99948418, 0.99927646, & + 0.99899888, 0.99861085, 0.99806982, 0.99734622, 0.99642432, & + 0.99527818, 0.99384803, 0.99204856, 0.98977995, 0.98691165, & + 0.98327899, 0.97869217, 0.97294933, 0.96584505, 0.95713884, & + 0.94650167, 0.93346804, 0.91738296, 0.89743340, 0.87275159, & + 0.84253013, 0.80613744, 0.76331758, 0.71443796, 0.66071773/ data ((c2(ip,iw),iw=1,30), ip= 1, 1)/ & - -0.1841e-06, -0.4666e-06, -0.1050e-05, -0.2069e-05, -0.3601e-05, & - -0.5805e-05, -0.8863e-05, -0.1291e-04, -0.1806e-04, -0.2460e-04, & - -0.3317e-04, -0.4452e-04, -0.5944e-04, -0.7884e-04, -0.1036e-03, & - -0.1346e-03, -0.1727e-03, -0.2186e-03, -0.2728e-03, -0.3364e-03, & - -0.4102e-03, -0.4948e-03, -0.5890e-03, -0.6900e-03, -0.7930e-03, & - -0.8921e-03, -0.9823e-03, -0.1063e-02, -0.1138e-02, -0.1214e-02/ + -0.2292E-06, -0.5441E-06, -0.1141E-05, -0.2114E-05, -0.3578E-05, & + -0.5719E-05, -0.8775E-05, -0.1292E-04, -0.1827E-04, -0.2504E-04, & + -0.3377E-04, -0.4530E-04, -0.6053E-04, -0.8030E-04, -0.1054E-03, & + -0.1368E-03, -0.1751E-03, -0.2213E-03, -0.2765E-03, -0.3421E-03, & + -0.4203E-03, -0.5130E-03, -0.6215E-03, -0.7460E-03, -0.8855E-03, & + -0.1037E-02, -0.1198E-02, -0.1364E-02, -0.1530E-02, -0.1694E-02/ data ((c3(ip,iw),iw=1,30), ip= 1, 1)/ & - 0.5821e-10, 0.5821e-10, -0.3201e-09, -0.1804e-08, -0.4336e-08, & - -0.7829e-08, -0.1278e-07, -0.1847e-07, -0.2827e-07, -0.4495e-07, & - -0.7126e-07, -0.1071e-06, -0.1524e-06, -0.2160e-06, -0.3014e-06, & - -0.4097e-06, -0.5349e-06, -0.6718e-06, -0.8125e-06, -0.9755e-06, & - -0.1157e-05, -0.1339e-05, -0.1492e-05, -0.1563e-05, -0.1485e-05, & - -0.1210e-05, -0.7280e-06, -0.1107e-06, 0.5369e-06, 0.1154e-05/ + 0.5694E-09, 0.8648E-09, 0.6918E-09, -0.5242E-09, -0.3169E-08, & + -0.7496E-08, -0.1311E-07, -0.1994E-07, -0.2963E-07, -0.4599E-07, & + -0.7262E-07, -0.1094E-06, -0.1551E-06, -0.2125E-06, -0.2868E-06, & + -0.3813E-06, -0.4972E-06, -0.6346E-06, -0.7967E-06, -0.9906E-06, & + -0.1225E-05, -0.1499E-05, -0.1801E-05, -0.2108E-05, -0.2397E-05, & + -0.2646E-05, -0.2826E-05, -0.2908E-05, -0.2848E-05, -0.2574E-05/ data ((c1(ip,iw),iw=1,30), ip= 2, 2)/ & - 0.99985647, 0.99976432, 0.99963868, 0.99947977, 0.99927580, & - 0.99899501, 0.99859601, 0.99804401, 0.99731201, 0.99638498, & - 0.99523097, 0.99378198, 0.99194402, 0.98961002, 0.98664999, & - 0.98286998, 0.97807002, 0.97200000, 0.96439999, 0.95503998, & - 0.94352001, 0.92931998, 0.91175002, 0.88989997, 0.86300004, & - 0.83039999, 0.79159999, 0.74710000, 0.69790000, 0.64579999/ + 0.99986154, 0.99977070, 0.99964583, 0.99948364, 0.99927574, & + 0.99899709, 0.99860787, 0.99806446, 0.99733645, 0.99640572, & + 0.99524444, 0.99378759, 0.99194312, 0.98959959, 0.98661262, & + 0.98280418, 0.97796720, 0.97187805, 0.96429664, 0.95493060, & + 0.94338161, 0.92908537, 0.91127324, 0.88903010, 0.86143875, & + 0.82772064, 0.78741211, 0.74061924, 0.68828899, 0.63231009/ data ((c2(ip,iw),iw=1,30), ip= 2, 2)/ & - -0.1831e-06, -0.4642e-06, -0.1048e-05, -0.2067e-05, -0.3596e-05, & - -0.5797e-05, -0.8851e-05, -0.1289e-04, -0.1802e-04, -0.2454e-04, & - -0.3307e-04, -0.4435e-04, -0.5916e-04, -0.7842e-04, -0.1031e-03, & - -0.1342e-03, -0.1725e-03, -0.2189e-03, -0.2739e-03, -0.3386e-03, & - -0.4138e-03, -0.5003e-03, -0.5968e-03, -0.7007e-03, -0.8076e-03, & - -0.9113e-03, -0.1007e-02, -0.1096e-02, -0.1181e-02, -0.1271e-02/ + -0.2289E-06, -0.5435E-06, -0.1140E-05, -0.2113E-05, -0.3574E-05, & + -0.5713E-05, -0.8764E-05, -0.1290E-04, -0.1824E-04, -0.2497E-04, & + -0.3366E-04, -0.4512E-04, -0.6025E-04, -0.7992E-04, -0.1050E-03, & + -0.1365E-03, -0.1751E-03, -0.2218E-03, -0.2779E-03, -0.3448E-03, & + -0.4246E-03, -0.5193E-03, -0.6301E-03, -0.7573E-03, -0.8997E-03, & + -0.1054E-02, -0.1217E-02, -0.1384E-02, -0.1552E-02, -0.1720E-02/ data ((c3(ip,iw),iw=1,30), ip= 2, 2)/ & - 0.5821e-10, 0.5821e-10, -0.3347e-09, -0.1746e-08, -0.4366e-08, & - -0.7858e-08, -0.1262e-07, -0.1866e-07, -0.2849e-07, -0.4524e-07, & - -0.7176e-07, -0.1077e-06, -0.1531e-06, -0.2166e-06, -0.3018e-06, & - -0.4090e-06, -0.5327e-06, -0.6670e-06, -0.8088e-06, -0.9714e-06, & - -0.1151e-05, -0.1333e-05, -0.1483e-05, -0.1548e-05, -0.1467e-05, & - -0.1192e-05, -0.7159e-06, -0.1032e-06, 0.5571e-06, 0.1217e-05/ + 0.5854E-09, 0.8701E-09, 0.6839E-09, -0.5136E-09, -0.3198E-08, & + -0.7485E-08, -0.1314E-07, -0.2000E-07, -0.2978E-07, -0.4609E-07, & + -0.7287E-07, -0.1097E-06, -0.1556E-06, -0.2129E-06, -0.2863E-06, & + -0.3798E-06, -0.4941E-06, -0.6301E-06, -0.7907E-06, -0.9828E-06, & + -0.1214E-05, -0.1483E-05, -0.1774E-05, -0.2065E-05, -0.2330E-05, & + -0.2542E-05, -0.2672E-05, -0.2685E-05, -0.2526E-05, -0.2117E-05/ data ((c1(ip,iw),iw=1,30), ip= 3, 3)/ & - 0.99985671, 0.99976432, 0.99963838, 0.99947912, 0.99927449, & - 0.99899203, 0.99859202, 0.99803501, 0.99729699, 0.99635702, & - 0.99518001, 0.99369103, 0.99178600, 0.98935002, 0.98623002, & - 0.98223001, 0.97711003, 0.97060001, 0.96243000, 0.95222998, & - 0.93957001, 0.92379999, 0.90411001, 0.87959999, 0.84930003, & - 0.81270003, 0.76980001, 0.72140002, 0.66909999, 0.61539996/ + 0.99986154, 0.99977064, 0.99964547, 0.99948299, 0.99927431, & + 0.99899471, 0.99860352, 0.99805611, 0.99732059, 0.99637693, & + 0.99519277, 0.99369639, 0.99178660, 0.98933846, 0.98619473, & + 0.98215890, 0.97700489, 0.97047842, 0.96229303, 0.95209277, & + 0.93938899, 0.92350262, 0.90354991, 0.87854189, 0.84755611, & + 0.80992901, 0.76549649, 0.71489191, 0.65975630, 0.60250735/ data ((c2(ip,iw),iw=1,30), ip= 3, 3)/ & - -0.1831e-06, -0.4623e-06, -0.1048e-05, -0.2065e-05, -0.3589e-05, & - -0.5789e-05, -0.8833e-05, -0.1286e-04, -0.1797e-04, -0.2446e-04, & - -0.3292e-04, -0.4412e-04, -0.5880e-04, -0.7795e-04, -0.1027e-03, & - -0.1340e-03, -0.1728e-03, -0.2199e-03, -0.2759e-03, -0.3419e-03, & - -0.4194e-03, -0.5081e-03, -0.6078e-03, -0.7156e-03, -0.8270e-03, & - -0.9365e-03, -0.1040e-02, -0.1137e-02, -0.1235e-02, -0.1339e-02/ + -0.2286E-06, -0.5432E-06, -0.1138E-05, -0.2108E-05, -0.3567E-05, & + -0.5703E-05, -0.8748E-05, -0.1288E-04, -0.1819E-04, -0.2489E-04, & + -0.3351E-04, -0.4488E-04, -0.5991E-04, -0.7953E-04, -0.1047E-03, & + -0.1364E-03, -0.1755E-03, -0.2231E-03, -0.2803E-03, -0.3489E-03, & + -0.4307E-03, -0.5280E-03, -0.6419E-03, -0.7726E-03, -0.9187E-03, & + -0.1077E-02, -0.1242E-02, -0.1412E-02, -0.1584E-02, -0.1756E-02/ data ((c3(ip,iw),iw=1,30), ip= 3, 3)/ & - 0.2910e-10, 0.5821e-10, -0.3201e-09, -0.1732e-08, -0.4307e-08, & - -0.7843e-08, -0.1270e-07, -0.1882e-07, -0.2862e-07, -0.4571e-07, & - -0.7225e-07, -0.1082e-06, -0.1535e-06, -0.2171e-06, -0.3021e-06, & - -0.4084e-06, -0.5302e-06, -0.6615e-06, -0.8059e-06, -0.9668e-06, & - -0.1146e-05, -0.1325e-05, -0.1468e-05, -0.1530e-05, -0.1448e-05, & - -0.1168e-05, -0.6907e-06, -0.7148e-07, 0.6242e-06, 0.1357e-05/ + 0.5694E-09, 0.8595E-09, 0.6945E-09, -0.5375E-09, -0.3206E-08, & + -0.7549E-08, -0.1322E-07, -0.2015E-07, -0.2989E-07, -0.4635E-07, & + -0.7319E-07, -0.1101E-06, -0.1559E-06, -0.2126E-06, -0.2852E-06, & + -0.3773E-06, -0.4904E-06, -0.6250E-06, -0.7842E-06, -0.9742E-06, & + -0.1202E-05, -0.1463E-05, -0.1743E-05, -0.2014E-05, -0.2250E-05, & + -0.2418E-05, -0.2489E-05, -0.2417E-05, -0.2135E-05, -0.1582E-05/ data ((c1(ip,iw),iw=1,30), ip= 4, 4)/ & - 0.99985629, 0.99976349, 0.99963838, 0.99947798, 0.99927282, & - 0.99898797, 0.99858499, 0.99802202, 0.99727303, 0.99631298, & - 0.99510002, 0.99355298, 0.99155599, 0.98898000, 0.98566002, & - 0.98136997, 0.97584999, 0.96880001, 0.95986998, 0.94862998, & - 0.93452001, 0.91681999, 0.89459997, 0.86680001, 0.83270001, & - 0.79189998, 0.74479997, 0.69290000, 0.63839996, 0.58410001/ + 0.99986136, 0.99977046, 0.99964488, 0.99948180, 0.99927211, & + 0.99899107, 0.99859619, 0.99804264, 0.99729609, 0.99633241, & + 0.99511319, 0.99355984, 0.99155855, 0.98897028, 0.98562151, & + 0.98129672, 0.97574216, 0.96866274, 0.95971423, 0.94845927, & + 0.93429822, 0.91642857, 0.89386898, 0.86559713, 0.83075762, & + 0.78892154, 0.74038720, 0.68647277, 0.62947410, 0.57195354/ data ((c2(ip,iw),iw=1,30), ip= 4, 4)/ & - -0.1808e-06, -0.4642e-06, -0.1045e-05, -0.2058e-05, -0.3581e-05, & - -0.5776e-05, -0.8801e-05, -0.1281e-04, -0.1789e-04, -0.2433e-04, & - -0.3273e-04, -0.4382e-04, -0.5840e-04, -0.7755e-04, -0.1024e-03, & - -0.1342e-03, -0.1737e-03, -0.2217e-03, -0.2791e-03, -0.3473e-03, & - -0.4272e-03, -0.5191e-03, -0.6227e-03, -0.7354e-03, -0.8526e-03, & - -0.9688e-03, -0.1081e-02, -0.1189e-02, -0.1300e-02, -0.1417e-02/ + -0.2277E-06, -0.5415E-06, -0.1134E-05, -0.2101E-05, -0.3559E-05, & + -0.5689E-05, -0.8723E-05, -0.1284E-04, -0.1812E-04, -0.2476E-04, & + -0.3331E-04, -0.4459E-04, -0.5955E-04, -0.7921E-04, -0.1046E-03, & + -0.1368E-03, -0.1766E-03, -0.2253E-03, -0.2842E-03, -0.3548E-03, & + -0.4394E-03, -0.5399E-03, -0.6578E-03, -0.7931E-03, -0.9436E-03, & + -0.1106E-02, -0.1275E-02, -0.1449E-02, -0.1626E-02, -0.1801E-02/ data ((c3(ip,iw),iw=1,30), ip= 4, 4)/ & - 0.1019e-09, 0.1601e-09, -0.4075e-09, -0.1746e-08, -0.4366e-08, & - -0.7960e-08, -0.1294e-07, -0.1898e-07, -0.2899e-07, -0.4594e-07, & - -0.7267e-07, -0.1088e-06, -0.1536e-06, -0.2164e-06, -0.3002e-06, & - -0.4055e-06, -0.5260e-06, -0.6571e-06, -0.8022e-06, -0.9624e-06, & - -0.1139e-05, -0.1315e-05, -0.1456e-05, -0.1512e-05, -0.1420e-05, & - -0.1137e-05, -0.6483e-06, 0.6679e-08, 0.7652e-06, 0.1574e-05/ + 0.5801E-09, 0.8355E-09, 0.6812E-09, -0.5375E-09, -0.3238E-08, & + -0.7647E-08, -0.1328E-07, -0.2021E-07, -0.3005E-07, -0.4652E-07, & + -0.7339E-07, -0.1102E-06, -0.1557E-06, -0.2116E-06, -0.2832E-06, & + -0.3740E-06, -0.4861E-06, -0.6196E-06, -0.7775E-06, -0.9650E-06, & + -0.1187E-05, -0.1440E-05, -0.1705E-05, -0.1953E-05, -0.2153E-05, & + -0.2272E-05, -0.2270E-05, -0.2090E-05, -0.1667E-05, -0.9819E-06/ data ((c1(ip,iw),iw=1,30), ip= 5, 5)/ & - 0.99985641, 0.99976403, 0.99963748, 0.99947661, 0.99926913, & - 0.99898303, 0.99857402, 0.99800003, 0.99723399, 0.99624503, & - 0.99498397, 0.99335301, 0.99123502, 0.98847997, 0.98488998, & - 0.98023999, 0.97421998, 0.96648002, 0.95659000, 0.94404000, & - 0.92815000, 0.90802002, 0.88270003, 0.85119998, 0.81290001, & - 0.76770002, 0.71679997, 0.66219997, 0.60670000, 0.55250001/ + 0.99986118, 0.99977005, 0.99964374, 0.99948001, 0.99926865, & + 0.99898481, 0.99858499, 0.99802184, 0.99725801, 0.99626452, & + 0.99499524, 0.99336094, 0.99123430, 0.98846263, 0.98485070, & + 0.98015988, 0.97409874, 0.96632105, 0.95640951, 0.94382304, & + 0.92783535, 0.90752852, 0.88185948, 0.84983021, 0.81075883, & + 0.76460648, 0.71231532, 0.65593779, 0.59815186, 0.54105949/ data ((c2(ip,iw),iw=1,30), ip= 5, 5)/ & - -0.1827e-06, -0.4608e-06, -0.1042e-05, -0.2053e-05, -0.3565e-05, & - -0.5745e-05, -0.8758e-05, -0.1273e-04, -0.1778e-04, -0.2417e-04, & - -0.3250e-04, -0.4347e-04, -0.5801e-04, -0.7729e-04, -0.1025e-03, & - -0.1349e-03, -0.1755e-03, -0.2249e-03, -0.2842e-03, -0.3549e-03, & - -0.4380e-03, -0.5340e-03, -0.6428e-03, -0.7613e-03, -0.8854e-03, & - -0.1009e-02, -0.1131e-02, -0.1252e-02, -0.1376e-02, -0.1502e-02/ + -0.2258E-06, -0.5382E-06, -0.1128E-05, -0.2094E-05, -0.3545E-05, & + -0.5666E-05, -0.8687E-05, -0.1278E-04, -0.1801E-04, -0.2460E-04, & + -0.3306E-04, -0.4426E-04, -0.5924E-04, -0.7908E-04, -0.1049E-03, & + -0.1377E-03, -0.1786E-03, -0.2289E-03, -0.2898E-03, -0.3632E-03, & + -0.4512E-03, -0.5560E-03, -0.6790E-03, -0.8198E-03, -0.9757E-03, & + -0.1143E-02, -0.1317E-02, -0.1497E-02, -0.1678E-02, -0.1854E-02/ data ((c3(ip,iw),iw=1,30), ip= 5, 5)/ & - 0.4366e-10, -0.1455e-10, -0.4075e-09, -0.1804e-08, -0.4293e-08, & - -0.8178e-08, -0.1301e-07, -0.1915e-07, -0.2938e-07, -0.4664e-07, & - -0.7365e-07, -0.1090e-06, -0.1539e-06, -0.2158e-06, -0.2992e-06, & - -0.4033e-06, -0.5230e-06, -0.6537e-06, -0.7976e-06, -0.9601e-06, & - -0.1135e-05, -0.1305e-05, -0.1440e-05, -0.1490e-05, -0.1389e-05, & - -0.1087e-05, -0.5646e-06, 0.1475e-06, 0.9852e-06, 0.1853e-05/ + 0.5774E-09, 0.8302E-09, 0.7185E-09, -0.5854E-09, -0.3265E-08, & + -0.7690E-08, -0.1341E-07, -0.2040E-07, -0.3027E-07, -0.4677E-07, & + -0.7360E-07, -0.1101E-06, -0.1548E-06, -0.2099E-06, -0.2804E-06, & + -0.3703E-06, -0.4815E-06, -0.6143E-06, -0.7707E-06, -0.9550E-06, & + -0.1171E-05, -0.1413E-05, -0.1660E-05, -0.1880E-05, -0.2038E-05, & + -0.2096E-05, -0.2001E-05, -0.1690E-05, -0.1126E-05, -0.3440E-06/ data ((c1(ip,iw),iw=1,30), ip= 6, 6)/ & - 0.99985617, 0.99976331, 0.99963629, 0.99947429, 0.99926388, & - 0.99897301, 0.99855602, 0.99796802, 0.99717802, 0.99614400, & - 0.99480897, 0.99306899, 0.99078500, 0.98778999, 0.98387998, & - 0.97876000, 0.97211999, 0.96350002, 0.95240998, 0.93821001, & - 0.92009002, 0.89709997, 0.86820000, 0.83249998, 0.78970003, & - 0.74039996, 0.68630004, 0.63010001, 0.57459998, 0.52069998/ + 0.99986094, 0.99976933, 0.99964249, 0.99947715, 0.99926335, & + 0.99897510, 0.99856734, 0.99798959, 0.99719977, 0.99616224, & + 0.99482149, 0.99307603, 0.99078435, 0.98777461, 0.98382956, & + 0.97867453, 0.97197431, 0.96331739, 0.95219171, 0.93793094, & + 0.91968191, 0.89643741, 0.86714232, 0.83091533, 0.78739101, & + 0.73710698, 0.68177342, 0.62401903, 0.56637585, 0.50983685/ data ((c2(ip,iw),iw=1,30), ip= 6, 6)/ & - -0.1798e-06, -0.4580e-06, -0.1033e-05, -0.2039e-05, -0.3544e-05, & - -0.5709e-05, -0.8696e-05, -0.1264e-04, -0.1763e-04, -0.2395e-04, & - -0.3220e-04, -0.4311e-04, -0.5777e-04, -0.7732e-04, -0.1032e-03, & - -0.1365e-03, -0.1784e-03, -0.2295e-03, -0.2914e-03, -0.3653e-03, & - -0.4527e-03, -0.5541e-03, -0.6689e-03, -0.7947e-03, -0.9265e-03, & - -0.1060e-02, -0.1192e-02, -0.1326e-02, -0.1460e-02, -0.1586e-02/ + -0.2229E-06, -0.5348E-06, -0.1119E-05, -0.2079E-05, -0.3522E-05, & + -0.5632E-05, -0.8631E-05, -0.1269E-04, -0.1788E-04, -0.2439E-04, & + -0.3278E-04, -0.4397E-04, -0.5907E-04, -0.7926E-04, -0.1057E-03, & + -0.1395E-03, -0.1819E-03, -0.2341E-03, -0.2978E-03, -0.3746E-03, & + -0.4671E-03, -0.5774E-03, -0.7067E-03, -0.8539E-03, -0.1016E-02, & + -0.1189E-02, -0.1370E-02, -0.1555E-02, -0.1739E-02, -0.1907E-02/ data ((c3(ip,iw),iw=1,30), ip= 6, 6)/ & - 0.8731e-10, 0.0000e+00, -0.3492e-09, -0.1892e-08, -0.4322e-08, & - -0.8367e-08, -0.1318e-07, -0.1962e-07, -0.3024e-07, -0.4708e-07, & - -0.7359e-07, -0.1087e-06, -0.1534e-06, -0.2152e-06, -0.2978e-06, & - -0.4008e-06, -0.5207e-06, -0.6509e-06, -0.7968e-06, -0.9584e-06, & - -0.1128e-05, -0.1297e-05, -0.1425e-05, -0.1461e-05, -0.1342e-05, & - -0.1009e-05, -0.4283e-06, 0.3666e-06, 0.1272e-05, 0.2171e-05/ + 0.5748E-09, 0.8435E-09, 0.6679E-09, -0.6359E-09, -0.3345E-08, & + -0.7804E-08, -0.1359E-07, -0.2062E-07, -0.3052E-07, -0.4688E-07, & + -0.7340E-07, -0.1093E-06, -0.1531E-06, -0.2073E-06, -0.2771E-06, & + -0.3662E-06, -0.4769E-06, -0.6093E-06, -0.7639E-06, -0.9439E-06, & + -0.1152E-05, -0.1381E-05, -0.1606E-05, -0.1793E-05, -0.1901E-05, & + -0.1881E-05, -0.1669E-05, -0.1216E-05, -0.5342E-06, 0.3075E-06/ data ((c1(ip,iw),iw=1,30), ip= 7, 7)/ & - 0.99985600, 0.99976230, 0.99963462, 0.99947017, 0.99925607, & - 0.99895698, 0.99852800, 0.99791902, 0.99709100, 0.99599499, & - 0.99456000, 0.99267203, 0.99017102, 0.98688000, 0.98255002, & - 0.97685999, 0.96941000, 0.95969999, 0.94709998, 0.93085998, & - 0.91001999, 0.88360000, 0.85060000, 0.81040001, 0.76319999, & - 0.71029997, 0.65400004, 0.59740001, 0.54229999, 0.48839998/ + 0.99986053, 0.99976838, 0.99964023, 0.99947268, 0.99925500, & + 0.99895978, 0.99853981, 0.99794048, 0.99711221, 0.99601156, & + 0.99457222, 0.99267805, 0.99017203, 0.98685879, 0.98248965, & + 0.97675008, 0.96924561, 0.95948225, 0.94682872, 0.93048364, & + 0.90948170, 0.88277107, 0.84936363, 0.80862159, 0.76067388, & + 0.70681286, 0.64947200, 0.59142905, 0.53437781, 0.47803569/ data ((c2(ip,iw),iw=1,30), ip= 7, 7)/ & - -0.1784e-06, -0.4551e-06, -0.1023e-05, -0.2019e-05, -0.3507e-05, & - -0.5651e-05, -0.8608e-05, -0.1250e-04, -0.1744e-04, -0.2370e-04, & - -0.3189e-04, -0.4289e-04, -0.5777e-04, -0.7787e-04, -0.1045e-03, & - -0.1392e-03, -0.1828e-03, -0.2365e-03, -0.3015e-03, -0.3797e-03, & - -0.4723e-03, -0.5803e-03, -0.7026e-03, -0.8365e-03, -0.9772e-03, & - -0.1120e-02, -0.1265e-02, -0.1409e-02, -0.1547e-02, -0.1665e-02/ + -0.2205E-06, -0.5259E-06, -0.1106E-05, -0.2055E-05, -0.3488E-05, & + -0.5580E-05, -0.8550E-05, -0.1257E-04, -0.1770E-04, -0.2415E-04, & + -0.3252E-04, -0.4380E-04, -0.5918E-04, -0.7993E-04, -0.1073E-03, & + -0.1425E-03, -0.1867E-03, -0.2416E-03, -0.3086E-03, -0.3900E-03, & + -0.4882E-03, -0.6053E-03, -0.7420E-03, -0.8966E-03, -0.1066E-02, & + -0.1246E-02, -0.1433E-02, -0.1623E-02, -0.1804E-02, -0.1957E-02/ data ((c3(ip,iw),iw=1,30), ip= 7, 7)/ & - 0.5821e-10, 0.8731e-10, -0.4366e-09, -0.1935e-08, -0.4555e-08, & - -0.8455e-08, -0.1356e-07, -0.2024e-07, -0.3079e-07, -0.4758e-07, & - -0.7352e-07, -0.1078e-06, -0.1520e-06, -0.2139e-06, -0.2964e-06, & - -0.3997e-06, -0.5185e-06, -0.6493e-06, -0.7943e-06, -0.9568e-06, & - -0.1127e-05, -0.1288e-05, -0.1405e-05, -0.1425e-05, -0.1275e-05, & - -0.8809e-06, -0.2158e-06, 0.6597e-06, 0.1610e-05, 0.2524e-05/ + 0.5694E-09, 0.8009E-09, 0.6253E-09, -0.6945E-09, -0.3438E-08, & + -0.7900E-08, -0.1377E-07, -0.2089E-07, -0.3073E-07, -0.4686E-07, & + -0.7275E-07, -0.1077E-06, -0.1508E-06, -0.2043E-06, -0.2733E-06, & + -0.3621E-06, -0.4728E-06, -0.6046E-06, -0.7569E-06, -0.9316E-06, & + -0.1130E-05, -0.1343E-05, -0.1542E-05, -0.1689E-05, -0.1733E-05, & + -0.1611E-05, -0.1264E-05, -0.6785E-06, 0.8145E-07, 0.9671E-06/ data ((c1(ip,iw),iw=1,30), ip= 8, 8)/ & - 0.99985582, 0.99976122, 0.99963123, 0.99946368, 0.99924308, & - 0.99893397, 0.99848598, 0.99784499, 0.99696398, 0.99577999, & - 0.99421299, 0.99212801, 0.98935997, 0.98569000, 0.98083001, & - 0.97442001, 0.96595001, 0.95486999, 0.94040000, 0.92163002, & - 0.89760000, 0.86720002, 0.82969999, 0.78499997, 0.73370004, & - 0.67799997, 0.62070000, 0.56439996, 0.50960004, 0.45539999/ + 0.99985993, 0.99976683, 0.99963683, 0.99946576, 0.99924189, & + 0.99893636, 0.99849796, 0.99786597, 0.99698311, 0.99579459, & + 0.99422216, 0.99213505, 0.98935312, 0.98565400, 0.98074925, & + 0.97427416, 0.96576148, 0.95460701, 0.94004321, 0.92113876, & + 0.89685524, 0.86616063, 0.82824260, 0.78287470, 0.73088396, & + 0.67437506, 0.61619699, 0.55862093, 0.50198877, 0.44554055/ data ((c2(ip,iw),iw=1,30), ip= 8, 8)/ & - -0.1760e-06, -0.4451e-06, -0.1004e-05, -0.1989e-05, -0.3457e-05, & - -0.5574e-05, -0.8470e-05, -0.1230e-04, -0.1721e-04, -0.2344e-04, & - -0.3168e-04, -0.4286e-04, -0.5815e-04, -0.7898e-04, -0.1070e-03, & - -0.1434e-03, -0.1892e-03, -0.2460e-03, -0.3152e-03, -0.3985e-03, & - -0.4981e-03, -0.6139e-03, -0.7448e-03, -0.8878e-03, -0.1038e-02, & - -0.1193e-02, -0.1348e-02, -0.1499e-02, -0.1631e-02, -0.1735e-02/ + -0.2147E-06, -0.5157E-06, -0.1086E-05, -0.2021E-05, -0.3437E-05, & + -0.5502E-05, -0.8439E-05, -0.1241E-04, -0.1749E-04, -0.2392E-04, & + -0.3235E-04, -0.4387E-04, -0.5973E-04, -0.8130E-04, -0.1099E-03, & + -0.1469E-03, -0.1937E-03, -0.2519E-03, -0.3233E-03, -0.4104E-03, & + -0.5157E-03, -0.6410E-03, -0.7861E-03, -0.9490E-03, -0.1126E-02, & + -0.1314E-02, -0.1507E-02, -0.1697E-02, -0.1866E-02, -0.2000E-02/ data ((c3(ip,iw),iw=1,30), ip= 8, 8)/ & - -0.1455e-10, 0.4366e-10, -0.3929e-09, -0.2081e-08, -0.4700e-08, & - -0.8804e-08, -0.1417e-07, -0.2068e-07, -0.3143e-07, -0.4777e-07, & - -0.7336e-07, -0.1070e-06, -0.1517e-06, -0.2134e-06, -0.2967e-06, & - -0.3991e-06, -0.5164e-06, -0.6510e-06, -0.7979e-06, -0.9575e-06, & - -0.1123e-05, -0.1279e-05, -0.1382e-05, -0.1374e-05, -0.1166e-05, & - -0.6893e-06, 0.7339e-07, 0.1013e-05, 0.1982e-05, 0.2896e-05/ + 0.5508E-09, 0.7743E-09, 0.5295E-09, -0.8196E-09, -0.3579E-08, & + -0.8113E-08, -0.1405E-07, -0.2119E-07, -0.3082E-07, -0.4624E-07, & + -0.7128E-07, -0.1055E-06, -0.1478E-06, -0.2008E-06, -0.2694E-06, & + -0.3585E-06, -0.4696E-06, -0.6006E-06, -0.7496E-06, -0.9178E-06, & + -0.1105E-05, -0.1298E-05, -0.1466E-05, -0.1561E-05, -0.1520E-05, & + -0.1274E-05, -0.7879E-06, -0.1038E-06, 0.7074E-06, 0.1625E-05/ data ((c1(ip,iw),iw=1,30), ip= 9, 9)/ & - 0.99985498, 0.99975908, 0.99962622, 0.99945402, 0.99922228, & - 0.99889803, 0.99842203, 0.99773699, 0.99677801, 0.99547797, & - 0.99373603, 0.99140298, 0.98829001, 0.98413998, 0.97863001, & - 0.97127002, 0.96156001, 0.94875997, 0.93197000, 0.91017997, & - 0.88230002, 0.84749997, 0.80540001, 0.75620002, 0.70159996, & - 0.64429998, 0.58710003, 0.53130001, 0.47640002, 0.42189997/ + 0.99985909, 0.99976450, 0.99963140, 0.99945474, 0.99922204, & + 0.99890035, 0.99843478, 0.99775594, 0.99679625, 0.99548972, & + 0.99374318, 0.99140668, 0.98827362, 0.98408484, 0.97850770, & + 0.97111320, 0.96133631, 0.94844013, 0.93151331, 0.90952784, & + 0.88142335, 0.84628373, 0.80362570, 0.75383699, 0.69858503, & + 0.64060891, 0.58259541, 0.52561414, 0.46898127, 0.41247040/ data ((c2(ip,iw),iw=1,30), ip= 9, 9)/ & - -0.1717e-06, -0.4327e-06, -0.9759e-06, -0.1943e-05, -0.3391e-05, & - -0.5454e-05, -0.8297e-05, -0.1209e-04, -0.1697e-04, -0.2322e-04, & - -0.3163e-04, -0.4318e-04, -0.5910e-04, -0.8111e-04, -0.1108e-03, & - -0.1493e-03, -0.1982e-03, -0.2588e-03, -0.3333e-03, -0.4237e-03, & - -0.5312e-03, -0.6562e-03, -0.7968e-03, -0.9496e-03, -0.1110e-02, & - -0.1276e-02, -0.1439e-02, -0.1588e-02, -0.1708e-02, -0.1796e-02/ + -0.2065E-06, -0.4976E-06, -0.1056E-05, -0.1973E-05, -0.3362E-05, & + -0.5395E-05, -0.8291E-05, -0.1222E-04, -0.1729E-04, -0.2377E-04, & + -0.3240E-04, -0.4432E-04, -0.6091E-04, -0.8361E-04, -0.1139E-03, & + -0.1532E-03, -0.2033E-03, -0.2657E-03, -0.3429E-03, -0.4371E-03, & + -0.5510E-03, -0.6856E-03, -0.8402E-03, -0.1012E-02, -0.1197E-02, & + -0.1392E-02, -0.1589E-02, -0.1771E-02, -0.1923E-02, -0.2034E-02/ data ((c3(ip,iw),iw=1,30), ip= 9, 9)/ & - 0.0000e+00, 0.1455e-10, -0.3638e-09, -0.2299e-08, -0.4744e-08, & - -0.9284e-08, -0.1445e-07, -0.2141e-07, -0.3162e-07, -0.4761e-07, & - -0.7248e-07, -0.1065e-06, -0.1501e-06, -0.2140e-06, -0.2981e-06, & - -0.3994e-06, -0.5201e-06, -0.6549e-06, -0.8009e-06, -0.9627e-06, & - -0.1125e-05, -0.1266e-05, -0.1348e-05, -0.1292e-05, -0.1005e-05, & - -0.4166e-06, 0.4279e-06, 0.1401e-05, 0.2379e-05, 0.3278e-05/ + 0.5056E-09, 0.7211E-09, 0.4524E-09, -0.9286E-09, -0.3781E-08, & + -0.8307E-08, -0.1430E-07, -0.2133E-07, -0.3047E-07, -0.4517E-07, & + -0.6924E-07, -0.1028E-06, -0.1446E-06, -0.1969E-06, -0.2658E-06, & + -0.3558E-06, -0.4676E-06, -0.5973E-06, -0.7420E-06, -0.9028E-06, & + -0.1077E-05, -0.1246E-05, -0.1374E-05, -0.1399E-05, -0.1248E-05, & + -0.8641E-06, -0.2613E-06, 0.4860E-06, 0.1340E-05, 0.2271E-05/ data ((c1(ip,iw),iw=1,30), ip=10,10)/ & - 0.99985462, 0.99975640, 0.99961889, 0.99943668, 0.99919188, & - 0.99884301, 0.99832898, 0.99757999, 0.99651998, 0.99506402, & - 0.99309200, 0.99044400, 0.98689002, 0.98215997, 0.97579002, & - 0.96730000, 0.95603001, 0.94110000, 0.92149001, 0.89609998, & - 0.86399996, 0.82449996, 0.77759999, 0.72459996, 0.66769999, & - 0.61000001, 0.55340004, 0.49769998, 0.44250000, 0.38810003/ + 0.99985766, 0.99976081, 0.99962300, 0.99943829, 0.99919146, & + 0.99884665, 0.99834174, 0.99759775, 0.99653465, 0.99507225, & + 0.99310064, 0.99044478, 0.98686624, 0.98206371, 0.97564846, & + 0.96710497, 0.95574677, 0.94068575, 0.92088860, 0.89527357, & + 0.86284405, 0.82293105, 0.77557182, 0.72196519, 0.66457325, & + 0.60630083, 0.54892772, 0.49214739, 0.43535739, 0.37917084/ data ((c2(ip,iw),iw=1,30), ip=10,10)/ & - -0.1607e-06, -0.4160e-06, -0.9320e-06, -0.1872e-05, -0.3281e-05, & - -0.5286e-05, -0.8097e-05, -0.1187e-04, -0.1677e-04, -0.2320e-04, & - -0.3190e-04, -0.4402e-04, -0.6081e-04, -0.8441e-04, -0.1162e-03, & - -0.1576e-03, -0.2102e-03, -0.2760e-03, -0.3571e-03, -0.4558e-03, & - -0.5730e-03, -0.7082e-03, -0.8591e-03, -0.1022e-02, -0.1194e-02, & - -0.1368e-02, -0.1533e-02, -0.1671e-02, -0.1775e-02, -0.1843e-02/ + -0.1972E-06, -0.4736E-06, -0.1010E-05, -0.1900E-05, -0.3258E-05, & + -0.5254E-05, -0.8114E-05, -0.1203E-04, -0.1714E-04, -0.2380E-04, & + -0.3277E-04, -0.4534E-04, -0.6295E-04, -0.8719E-04, -0.1197E-03, & + -0.1621E-03, -0.2162E-03, -0.2841E-03, -0.3684E-03, -0.4714E-03, & + -0.5953E-03, -0.7402E-03, -0.9049E-03, -0.1086E-02, -0.1280E-02, & + -0.1480E-02, -0.1673E-02, -0.1840E-02, -0.1971E-02, -0.2058E-02/ data ((c3(ip,iw),iw=1,30), ip=10,10)/ & - -0.1164e-09, -0.7276e-10, -0.5530e-09, -0.2270e-08, -0.5093e-08, & - -0.9517e-08, -0.1502e-07, -0.2219e-07, -0.3171e-07, -0.4712e-07, & - -0.7123e-07, -0.1042e-06, -0.1493e-06, -0.2156e-06, -0.2999e-06, & - -0.4027e-06, -0.5243e-06, -0.6616e-06, -0.8125e-06, -0.9691e-06, & - -0.1126e-05, -0.1251e-05, -0.1294e-05, -0.1163e-05, -0.7639e-06, & - -0.7395e-07, 0.8279e-06, 0.1819e-05, 0.2795e-05, 0.3647e-05/ + 0.4923E-09, 0.6280E-09, 0.3646E-09, -0.1083E-08, -0.3954E-08, & + -0.8542E-08, -0.1454E-07, -0.2138E-07, -0.2983E-07, -0.4350E-07, & + -0.6668E-07, -0.9944E-07, -0.1408E-06, -0.1934E-06, -0.2634E-06, & + -0.3549E-06, -0.4672E-06, -0.5948E-06, -0.7347E-06, -0.8865E-06, & + -0.1044E-05, -0.1183E-05, -0.1255E-05, -0.1186E-05, -0.9045E-06, & + -0.3919E-06, 0.2906E-06, 0.1087E-05, 0.1969E-05, 0.2883E-05/ data ((c1(ip,iw),iw=1,30), ip=11,11)/ & - 0.99985212, 0.99975210, 0.99960798, 0.99941242, 0.99914628, & - 0.99876302, 0.99819702, 0.99736100, 0.99616700, 0.99450397, & - 0.99225003, 0.98920000, 0.98510998, 0.97961998, 0.97220999, & - 0.96231002, 0.94909000, 0.93155003, 0.90856999, 0.87910002, & - 0.84219998, 0.79790002, 0.74669999, 0.69080001, 0.63300002, & - 0.57570004, 0.51950002, 0.46359998, 0.40829998, 0.35450000/ + 0.99985558, 0.99975532, 0.99961084, 0.99941343, 0.99914658, & + 0.99876797, 0.99820811, 0.99737567, 0.99617624, 0.99451292, & + 0.99225265, 0.98919237, 0.98505485, 0.97948909, 0.97203231, & + 0.96205616, 0.94872671, 0.93101531, 0.90780544, 0.87802786, & + 0.84086448, 0.79606968, 0.74441928, 0.68799782, 0.62972331, & + 0.57195759, 0.51503146, 0.45810747, 0.40138185, 0.34614110/ data ((c2(ip,iw),iw=1,30), ip=11,11)/ & - -0.1531e-06, -0.3864e-06, -0.8804e-06, -0.1776e-05, -0.3131e-05, & - -0.5082e-05, -0.7849e-05, -0.1164e-04, -0.1669e-04, -0.2340e-04, & - -0.3261e-04, -0.4546e-04, -0.6380e-04, -0.8932e-04, -0.1237e-03, & - -0.1687e-03, -0.2262e-03, -0.2984e-03, -0.3880e-03, -0.4964e-03, & - -0.6244e-03, -0.7705e-03, -0.9325e-03, -0.1107e-02, -0.1288e-02, & - -0.1466e-02, -0.1623e-02, -0.1746e-02, -0.1831e-02, -0.1875e-02/ + -0.1814E-06, -0.4396E-06, -0.9485E-06, -0.1804E-05, -0.3121E-05, & + -0.5079E-05, -0.7915E-05, -0.1186E-04, -0.1714E-04, -0.2411E-04, & + -0.3366E-04, -0.4713E-04, -0.6612E-04, -0.9237E-04, -0.1277E-03, & + -0.1739E-03, -0.2333E-03, -0.3082E-03, -0.4012E-03, -0.5146E-03, & + -0.6495E-03, -0.8057E-03, -0.9809E-03, -0.1172E-02, -0.1373E-02, & + -0.1573E-02, -0.1754E-02, -0.1902E-02, -0.2009E-02, -0.2069E-02/ data ((c3(ip,iw),iw=1,30), ip=11,11)/ & - 0.1019e-09, -0.2037e-09, -0.8004e-09, -0.2387e-08, -0.5326e-08, & - -0.9764e-08, -0.1576e-07, -0.2256e-07, -0.3180e-07, -0.4616e-07, & - -0.7026e-07, -0.1031e-06, -0.1520e-06, -0.2181e-06, -0.3037e-06, & - -0.4109e-06, -0.5354e-06, -0.6740e-06, -0.8241e-06, -0.9810e-06, & - -0.1126e-05, -0.1221e-05, -0.1200e-05, -0.9678e-06, -0.4500e-06, & - 0.3236e-06, 0.1256e-05, 0.2259e-05, 0.3206e-05, 0.3978e-05/ + 0.4231E-09, 0.5375E-09, 0.1783E-09, -0.1216E-08, -0.4183E-08, & + -0.8738E-08, -0.1465E-07, -0.2105E-07, -0.2864E-07, -0.4118E-07, & + -0.6333E-07, -0.9556E-07, -0.1369E-06, -0.1906E-06, -0.2629E-06, & + -0.3563E-06, -0.4683E-06, -0.5933E-06, -0.7281E-06, -0.8688E-06, & + -0.1004E-05, -0.1101E-05, -0.1095E-05, -0.9073E-06, -0.4912E-06, & + 0.1190E-06, 0.8558E-06, 0.1691E-05, 0.2577E-05, 0.3435E-05/ data ((c1(ip,iw),iw=1,30), ip=12,12)/ & - 0.99985027, 0.99974507, 0.99959022, 0.99937689, 0.99907988, & - 0.99865198, 0.99801201, 0.99706602, 0.99569201, 0.99377203, & - 0.99115402, 0.98762000, 0.98286003, 0.97640002, 0.96771997, & - 0.95604998, 0.94045001, 0.91979003, 0.89289999, 0.85879999, & - 0.81700003, 0.76800001, 0.71340001, 0.65579998, 0.59810001, & - 0.54139996, 0.48519999, 0.42909998, 0.37410003, 0.32190001/ + 0.99985254, 0.99974763, 0.99959290, 0.99937779, 0.99908137, & + 0.99865609, 0.99802142, 0.99707383, 0.99570006, 0.99378008, & + 0.99115396, 0.98758602, 0.98275584, 0.97624695, 0.96749693, & + 0.95573723, 0.93998092, 0.91909111, 0.89192092, 0.85751379, & + 0.81538570, 0.76593137, 0.71082634, 0.65285242, 0.59476137, & + 0.53763282, 0.48068869, 0.42364532, 0.36750680, 0.31402236/ data ((c2(ip,iw),iw=1,30), ip=12,12)/ & - -0.1340e-06, -0.3478e-06, -0.8189e-06, -0.1653e-05, -0.2944e-05, & - -0.4852e-05, -0.7603e-05, -0.1150e-04, -0.1682e-04, -0.2400e-04, & - -0.3390e-04, -0.4799e-04, -0.6807e-04, -0.9596e-04, -0.1338e-03, & - -0.1833e-03, -0.2471e-03, -0.3275e-03, -0.4268e-03, -0.5466e-03, & - -0.6862e-03, -0.8439e-03, -0.1017e-02, -0.1201e-02, -0.1389e-02, & - -0.1563e-02, -0.1706e-02, -0.1809e-02, -0.1872e-02, -0.1890e-02/ + -0.1608E-06, -0.3958E-06, -0.8650E-06, -0.1675E-05, -0.2950E-05, & + -0.4877E-05, -0.7726E-05, -0.1179E-04, -0.1736E-04, -0.2485E-04, & + -0.3523E-04, -0.4994E-04, -0.7074E-04, -0.9954E-04, -0.1384E-03, & + -0.1896E-03, -0.2555E-03, -0.3390E-03, -0.4424E-03, -0.5675E-03, & + -0.7146E-03, -0.8823E-03, -0.1068E-02, -0.1267E-02, -0.1472E-02, & + -0.1664E-02, -0.1827E-02, -0.1953E-02, -0.2034E-02, -0.2066E-02/ data ((c3(ip,iw),iw=1,30), ip=12,12)/ & - -0.1455e-10, -0.1892e-09, -0.8295e-09, -0.2547e-08, -0.5544e-08, & - -0.1014e-07, -0.1605e-07, -0.2341e-07, -0.3156e-07, -0.4547e-07, & - -0.6749e-07, -0.1034e-06, -0.1550e-06, -0.2230e-06, -0.3130e-06, & - -0.4219e-06, -0.5469e-06, -0.6922e-06, -0.8448e-06, -0.9937e-06, & - -0.1118e-05, -0.1166e-05, -0.1054e-05, -0.6926e-06, -0.7180e-07, & - 0.7515e-06, 0.1709e-05, 0.2703e-05, 0.3593e-05, 0.4232e-05/ + 0.3699E-09, 0.4098E-09, 0.8249E-10, -0.1368E-08, -0.4281E-08, & + -0.8754E-08, -0.1438E-07, -0.2042E-07, -0.2719E-07, -0.3863E-07, & + -0.5964E-07, -0.9135E-07, -0.1338E-06, -0.1899E-06, -0.2651E-06, & + -0.3602E-06, -0.4714E-06, -0.5938E-06, -0.7223E-06, -0.8487E-06, & + -0.9536E-06, -0.9879E-06, -0.8765E-06, -0.5557E-06, -0.2634E-07, & + 0.6473E-06, 0.1431E-05, 0.2287E-05, 0.3143E-05, 0.3888E-05/ data ((c1(ip,iw),iw=1,30), ip=13,13)/ & - 0.99984729, 0.99973530, 0.99956691, 0.99932659, 0.99898797, & - 0.99849701, 0.99776399, 0.99667102, 0.99507397, 0.99283201, & - 0.98977000, 0.98563999, 0.98001999, 0.97241002, 0.96213001, & - 0.94830000, 0.92980999, 0.90546000, 0.87409997, 0.83510000, & - 0.78850001, 0.73549998, 0.67850000, 0.62049997, 0.56340003, & - 0.50699997, 0.45050001, 0.39450002, 0.34060001, 0.29079998/ + 0.99984854, 0.99973702, 0.99956822, 0.99932772, 0.99899036, & + 0.99850190, 0.99777073, 0.99667609, 0.99508202, 0.99283862, & + 0.98975527, 0.98555952, 0.97987813, 0.97220761, 0.96185511, & + 0.94789296, 0.92920458, 0.90459120, 0.87295771, 0.83359337, & + 0.78654921, 0.73307240, 0.67570245, 0.61741775, 0.56001049, & + 0.50309032, 0.44594115, 0.38916695, 0.33435279, 0.28346843/ data ((c2(ip,iw),iw=1,30), ip=13,13)/ & - -0.1163e-06, -0.3048e-06, -0.7186e-06, -0.1495e-05, -0.2726e-05, & - -0.4588e-05, -0.7396e-05, -0.1152e-04, -0.1725e-04, -0.2514e-04, & - -0.3599e-04, -0.5172e-04, -0.7403e-04, -0.1051e-03, -0.1469e-03, & - -0.2023e-03, -0.2735e-03, -0.3637e-03, -0.4746e-03, -0.6067e-03, & - -0.7586e-03, -0.9281e-03, -0.1112e-02, -0.1304e-02, -0.1491e-02, & - -0.1653e-02, -0.1777e-02, -0.1860e-02, -0.1896e-02, -0.1891e-02/ + -0.1378E-06, -0.3411E-06, -0.7620E-06, -0.1519E-05, -0.2750E-05, & + -0.4663E-05, -0.7578E-05, -0.1188E-04, -0.1790E-04, -0.2617E-04, & + -0.3769E-04, -0.5404E-04, -0.7712E-04, -0.1091E-03, -0.1524E-03, & + -0.2097E-03, -0.2838E-03, -0.3775E-03, -0.4929E-03, -0.6308E-03, & + -0.7906E-03, -0.9700E-03, -0.1166E-02, -0.1371E-02, -0.1571E-02, & + -0.1748E-02, -0.1891E-02, -0.1992E-02, -0.2045E-02, -0.2052E-02/ data ((c3(ip,iw),iw=1,30), ip=13,13)/ & - -0.1455e-09, -0.2765e-09, -0.9750e-09, -0.2794e-08, -0.5413e-08, & - -0.1048e-07, -0.1625e-07, -0.2344e-07, -0.3105e-07, -0.4304e-07, & - -0.6608e-07, -0.1057e-06, -0.1587e-06, -0.2308e-06, -0.3235e-06, & - -0.4373e-06, -0.5687e-06, -0.7156e-06, -0.8684e-06, -0.1007e-05, & - -0.1094e-05, -0.1062e-05, -0.8273e-06, -0.3485e-06, 0.3463e-06, & - 0.1206e-05, 0.2173e-05, 0.3132e-05, 0.3919e-05, 0.4370e-05/ + 0.3220E-09, 0.2900E-09, -0.5853E-10, -0.1453E-08, -0.4188E-08, & + -0.8544E-08, -0.1401E-07, -0.1963E-07, -0.2570E-07, -0.3583E-07, & + -0.5549E-07, -0.8717E-07, -0.1318E-06, -0.1917E-06, -0.2706E-06, & + -0.3669E-06, -0.4771E-06, -0.5966E-06, -0.7171E-06, -0.8230E-06, & + -0.8803E-06, -0.8243E-06, -0.5856E-06, -0.1399E-06, 0.4663E-06, & + 0.1190E-05, 0.2007E-05, 0.2854E-05, 0.3632E-05, 0.4201E-05/ data ((c1(ip,iw),iw=1,30), ip=14,14)/ & - 0.99984348, 0.99972272, 0.99953479, 0.99926043, 0.99886698, & - 0.99829400, 0.99744201, 0.99615997, 0.99429500, 0.99166000, & - 0.98806000, 0.98316997, 0.97649997, 0.96748000, 0.95525998, & - 0.93878001, 0.91687000, 0.88830000, 0.85220003, 0.80820000, & - 0.75699997, 0.70099998, 0.64300001, 0.58550000, 0.52890003, & - 0.47219998, 0.41560000, 0.36040002, 0.30849999, 0.26169997/ + 0.99984354, 0.99972343, 0.99953604, 0.99926126, 0.99886900, & + 0.99829781, 0.99744409, 0.99616748, 0.99430037, 0.99165708, & + 0.98801166, 0.98305029, 0.97632855, 0.96722776, 0.95489699, & + 0.93826014, 0.91611183, 0.88725436, 0.85075951, 0.80634087, & + 0.75481313, 0.69836313, 0.64004612, 0.58229285, 0.52536106, & + 0.46826547, 0.41112047, 0.35525620, 0.30263388, 0.25491780/ data ((c2(ip,iw),iw=1,30), ip=14,14)/ & - -0.8581e-07, -0.2557e-06, -0.6103e-06, -0.1305e-05, -0.2472e-05, & - -0.4334e-05, -0.7233e-05, -0.1167e-04, -0.1806e-04, -0.2679e-04, & - -0.3933e-04, -0.5705e-04, -0.8194e-04, -0.1165e-03, -0.1637e-03, & - -0.2259e-03, -0.3068e-03, -0.4082e-03, -0.5318e-03, -0.6769e-03, & - -0.8415e-03, -0.1023e-02, -0.1216e-02, -0.1410e-02, -0.1588e-02, & - -0.1733e-02, -0.1837e-02, -0.1894e-02, -0.1904e-02, -0.1881e-02/ + -0.1107E-06, -0.2798E-06, -0.6492E-06, -0.1345E-05, -0.2534E-05, & + -0.4458E-05, -0.7507E-05, -0.1215E-04, -0.1886E-04, -0.2821E-04, & + -0.4127E-04, -0.5969E-04, -0.8556E-04, -0.1214E-03, -0.1702E-03, & + -0.2351E-03, -0.3190E-03, -0.4246E-03, -0.5533E-03, -0.7047E-03, & + -0.8773E-03, -0.1068E-02, -0.1271E-02, -0.1476E-02, -0.1665E-02, & + -0.1823E-02, -0.1942E-02, -0.2016E-02, -0.2042E-02, -0.2030E-02/ data ((c3(ip,iw),iw=1,30), ip=14,14)/ & - -0.2037e-09, -0.4220e-09, -0.1091e-08, -0.2896e-08, -0.5821e-08, & - -0.1052e-07, -0.1687e-07, -0.2353e-07, -0.3193e-07, -0.4254e-07, & - -0.6685e-07, -0.1072e-06, -0.1638e-06, -0.2427e-06, -0.3421e-06, & - -0.4600e-06, -0.5946e-06, -0.7472e-06, -0.8958e-06, -0.1009e-05, & - -0.1032e-05, -0.8919e-06, -0.5224e-06, 0.5218e-07, 0.7886e-06, & - 0.1672e-05, 0.2626e-05, 0.3513e-05, 0.4138e-05, 0.4379e-05/ + 0.2581E-09, 0.2555E-09, -0.9846E-10, -0.1307E-08, -0.3946E-08, & + -0.8081E-08, -0.1346E-07, -0.1903E-07, -0.2451E-07, -0.3310E-07, & + -0.5113E-07, -0.8340E-07, -0.1314E-06, -0.1963E-06, -0.2789E-06, & + -0.3767E-06, -0.4866E-06, -0.6024E-06, -0.7109E-06, -0.7833E-06, & + -0.7671E-06, -0.5930E-06, -0.2211E-06, 0.3183E-06, 0.9753E-06, & + 0.1739E-05, 0.2564E-05, 0.3364E-05, 0.3998E-05, 0.4378E-05/ data ((c1(ip,iw),iw=1,30), ip=15,15)/ & - 0.99983788, 0.99970680, 0.99949580, 0.99917668, 0.99871200, & - 0.99803603, 0.99703097, 0.99552703, 0.99333203, 0.99023402, & - 0.98597997, 0.98013997, 0.97223002, 0.96145999, 0.94686002, & - 0.92727000, 0.90142000, 0.86820000, 0.82700002, 0.77820003, & - 0.72350001, 0.66569996, 0.60769999, 0.55089998, 0.49430001, & - 0.43739998, 0.38110000, 0.32749999, 0.27840000, 0.23479998/ + 0.99983788, 0.99970752, 0.99949718, 0.99917865, 0.99871457, & + 0.99803782, 0.99703240, 0.99553382, 0.99333793, 0.99021345, & + 0.98589009, 0.98000097, 0.97200888, 0.96114874, 0.94640887, & + 0.92659646, 0.90046513, 0.86691999, 0.82535470, 0.77612388, & + 0.72097731, 0.66286379, 0.60470819, 0.54761422, 0.49065191, & + 0.43337888, 0.37676656, 0.32264513, 0.27297002, 0.22841394/ data ((c2(ip,iw),iw=1,30), ip=15,15)/ & - -0.8246e-07, -0.2070e-06, -0.4895e-06, -0.1106e-05, -0.2216e-05, & - -0.4077e-05, -0.7150e-05, -0.1202e-04, -0.1920e-04, -0.2938e-04, & - -0.4380e-04, -0.6390e-04, -0.9209e-04, -0.1310e-03, -0.1843e-03, & - -0.2554e-03, -0.3468e-03, -0.4611e-03, -0.5982e-03, -0.7568e-03, & - -0.9340e-03, -0.1126e-02, -0.1324e-02, -0.1514e-02, -0.1676e-02, & - -0.1801e-02, -0.1881e-02, -0.1911e-02, -0.1900e-02, -0.1867e-02/ + -0.8598E-07, -0.2205E-06, -0.5318E-06, -0.1163E-05, -0.2310E-05, & + -0.4269E-05, -0.7519E-05, -0.1265E-04, -0.2028E-04, -0.3108E-04, & + -0.4612E-04, -0.6709E-04, -0.9635E-04, -0.1369E-03, -0.1924E-03, & + -0.2662E-03, -0.3615E-03, -0.4804E-03, -0.6232E-03, -0.7887E-03, & + -0.9739E-03, -0.1174E-02, -0.1381E-02, -0.1578E-02, -0.1749E-02, & + -0.1886E-02, -0.1979E-02, -0.2025E-02, -0.2028E-02, -0.2005E-02/ data ((c3(ip,iw),iw=1,30), ip=15,15)/ & - -0.1601e-09, -0.3492e-09, -0.1019e-08, -0.2634e-08, -0.5632e-08, & - -0.1065e-07, -0.1746e-07, -0.2542e-07, -0.3206e-07, -0.4390e-07, & - -0.6956e-07, -0.1093e-06, -0.1729e-06, -0.2573e-06, -0.3612e-06, & - -0.4904e-06, -0.6342e-06, -0.7834e-06, -0.9175e-06, -0.9869e-06, & - -0.9164e-06, -0.6386e-06, -0.1544e-06, 0.4798e-06, 0.1252e-05, & - 0.2137e-05, 0.3043e-05, 0.3796e-05, 0.4211e-05, 0.4332e-05/ + 0.2475E-09, 0.2501E-09, -0.2925E-10, -0.1078E-08, -0.3398E-08, & + -0.7395E-08, -0.1271E-07, -0.1860E-07, -0.2411E-07, -0.3137E-07, & + -0.4761E-07, -0.8047E-07, -0.1325E-06, -0.2027E-06, -0.2896E-06, & + -0.3902E-06, -0.4998E-06, -0.6094E-06, -0.6971E-06, -0.7150E-06, & + -0.5950E-06, -0.2854E-06, 0.2000E-06, 0.7992E-06, 0.1499E-05, & + 0.2282E-05, 0.3081E-05, 0.3770E-05, 0.4211E-05, 0.4499E-05/ data ((c1(ip,iw),iw=1,30), ip=16,16)/ & - 0.99983227, 0.99968958, 0.99945217, 0.99907941, 0.99852598, & - 0.99772000, 0.99652398, 0.99475902, 0.99218899, 0.98856002, & - 0.98348999, 0.97653997, 0.96708000, 0.95420998, 0.93677002, & - 0.91352999, 0.88330001, 0.84509999, 0.79900002, 0.74599999, & - 0.68879998, 0.63049996, 0.57319999, 0.51660001, 0.45969999, & - 0.40289998, 0.34780002, 0.29650003, 0.25070000, 0.20959997/ + 0.99983191, 0.99969077, 0.99945426, 0.99908280, 0.99852955, & + 0.99772078, 0.99653023, 0.99476653, 0.99218494, 0.98849833, & + 0.98337215, 0.97636360, 0.96681708, 0.95381010, 0.93619323, & + 0.91269946, 0.88211763, 0.84358740, 0.79702663, 0.74364722, & + 0.68610674, 0.62760854, 0.57012022, 0.51321244, 0.45598596, & + 0.39891213, 0.34358257, 0.29206699, 0.24564439, 0.20362538/ data ((c2(ip,iw),iw=1,30), ip=16,16)/ & - -0.7004e-07, -0.1592e-06, -0.3936e-06, -0.9145e-06, -0.1958e-05, & - -0.3850e-05, -0.7093e-05, -0.1252e-04, -0.2066e-04, -0.3271e-04, & - -0.4951e-04, -0.7268e-04, -0.1045e-03, -0.1487e-03, -0.2092e-03, & - -0.2899e-03, -0.3936e-03, -0.5215e-03, -0.6729e-03, -0.8454e-03, & - -0.1035e-02, -0.1235e-02, -0.1432e-02, -0.1608e-02, -0.1751e-02, & - -0.1854e-02, -0.1907e-02, -0.1913e-02, -0.1888e-02, -0.1857e-02/ + -0.6855E-07, -0.1752E-06, -0.4312E-06, -0.9879E-06, -0.2093E-05, & + -0.4104E-05, -0.7589E-05, -0.1331E-04, -0.2210E-04, -0.3475E-04, & + -0.5227E-04, -0.7637E-04, -0.1097E-03, -0.1558E-03, -0.2190E-03, & + -0.3032E-03, -0.4112E-03, -0.5443E-03, -0.7019E-03, -0.8814E-03, & + -0.1079E-02, -0.1286E-02, -0.1489E-02, -0.1671E-02, -0.1822E-02, & + -0.1934E-02, -0.2000E-02, -0.2020E-02, -0.2008E-02, -0.1984E-02/ data ((c3(ip,iw),iw=1,30), ip=16,16)/ & - -0.2328e-09, -0.3347e-09, -0.9750e-09, -0.2314e-08, -0.5166e-08, & - -0.1052e-07, -0.1726e-07, -0.2605e-07, -0.3532e-07, -0.4949e-07, & - -0.7229e-07, -0.1133e-06, -0.1799e-06, -0.2725e-06, -0.3881e-06, & - -0.5249e-06, -0.6763e-06, -0.8227e-06, -0.9279e-06, -0.9205e-06, & - -0.7228e-06, -0.3109e-06, 0.2583e-06, 0.9390e-06, 0.1726e-05, & - 0.2579e-05, 0.3376e-05, 0.3931e-05, 0.4161e-05, 0.4369e-05/ + 0.2608E-09, 0.3033E-09, 0.1543E-09, -0.5960E-09, -0.2626E-08, & + -0.6352E-08, -0.1194E-07, -0.1852E-07, -0.2487E-07, -0.3198E-07, & + -0.4661E-07, -0.7875E-07, -0.1333E-06, -0.2085E-06, -0.3010E-06, & + -0.4064E-06, -0.5157E-06, -0.6137E-06, -0.6644E-06, -0.5995E-06, & + -0.3510E-06, 0.9010E-07, 0.6553E-06, 0.1302E-05, 0.2029E-05, & + 0.2800E-05, 0.3518E-05, 0.4027E-05, 0.4307E-05, 0.4711E-05/ data ((c1(ip,iw),iw=1,30), ip=17,17)/ & - 0.99982637, 0.99967217, 0.99940813, 0.99897701, 0.99831802, & - 0.99734300, 0.99592501, 0.99385202, 0.99086499, 0.98659998, & - 0.98057997, 0.97229999, 0.96098000, 0.94555002, 0.92479002, & - 0.89740002, 0.86240000, 0.81919998, 0.76859999, 0.71249998, & - 0.65419996, 0.59630001, 0.53950000, 0.48259997, 0.42549998, & - 0.36940002, 0.31629997, 0.26810002, 0.22520000, 0.18580002/ + 0.99982625, 0.99967456, 0.99941117, 0.99898118, 0.99832189, & + 0.99735099, 0.99593443, 0.99386060, 0.99083877, 0.98651254, & + 0.98045152, 0.97209597, 0.96065331, 0.94506192, 0.92408115, & + 0.89642918, 0.86103737, 0.81745273, 0.76635075, 0.70990741, & + 0.65133941, 0.59332442, 0.53625399, 0.47907001, 0.42173553, & + 0.36549109, 0.31233364, 0.26400638, 0.22048974, 0.18009293/ data ((c2(ip,iw),iw=1,30), ip=17,17)/ & - -0.6526e-07, -0.1282e-06, -0.3076e-06, -0.7454e-06, -0.1685e-05, & - -0.3600e-05, -0.7071e-05, -0.1292e-04, -0.2250e-04, -0.3665e-04, & - -0.5623e-04, -0.8295e-04, -0.1195e-03, -0.1696e-03, -0.2385e-03, & - -0.3298e-03, -0.4465e-03, -0.5887e-03, -0.7546e-03, -0.9408e-03, & - -0.1141e-02, -0.1345e-02, -0.1533e-02, -0.1691e-02, -0.1813e-02, & - -0.1889e-02, -0.1916e-02, -0.1904e-02, -0.1877e-02, -0.1850e-02/ + -0.5514E-07, -0.1392E-06, -0.3493E-06, -0.8397E-06, -0.1893E-05, & + -0.3946E-05, -0.7684E-05, -0.1406E-04, -0.2417E-04, -0.3898E-04, & + -0.5950E-04, -0.8744E-04, -0.1257E-03, -0.1784E-03, -0.2502E-03, & + -0.3456E-03, -0.4672E-03, -0.6152E-03, -0.7879E-03, -0.9812E-03, & + -0.1189E-02, -0.1397E-02, -0.1589E-02, -0.1753E-02, -0.1880E-02, & + -0.1965E-02, -0.2003E-02, -0.2005E-02, -0.1989E-02, -0.1964E-02/ data ((c3(ip,iw),iw=1,30), ip=17,17)/ & - -0.1746e-09, -0.2037e-09, -0.8149e-09, -0.2095e-08, -0.4889e-08, & - -0.9517e-08, -0.1759e-07, -0.2740e-07, -0.4147e-07, -0.5774e-07, & - -0.7909e-07, -0.1199e-06, -0.1877e-06, -0.2859e-06, -0.4137e-06, & - -0.5649e-06, -0.7218e-06, -0.8516e-06, -0.9022e-06, -0.7905e-06, & - -0.4531e-06, 0.6917e-07, 0.7009e-06, 0.1416e-05, 0.2194e-05, & - 0.2963e-05, 0.3578e-05, 0.3900e-05, 0.4094e-05, 0.4642e-05/ + 0.3246E-09, 0.4151E-09, 0.4204E-09, 0.4528E-10, -0.1535E-08, & + -0.4880E-08, -0.1063E-07, -0.1849E-07, -0.2720E-07, -0.3640E-07, & + -0.5021E-07, -0.7908E-07, -0.1321E-06, -0.2101E-06, -0.3095E-06, & + -0.4215E-06, -0.5301E-06, -0.6060E-06, -0.5943E-06, -0.4190E-06, & + -0.3586E-07, 0.5081E-06, 0.1133E-05, 0.1821E-05, 0.2551E-05, & + 0.3263E-05, 0.3823E-05, 0.4126E-05, 0.4400E-05, 0.5155E-05/ data ((c1(ip,iw),iw=1,30), ip=18,18)/ & - 0.99982101, 0.99965781, 0.99936712, 0.99887502, 0.99809802, & - 0.99692702, 0.99523401, 0.99281400, 0.98935997, 0.98435003, & - 0.97728002, 0.96740997, 0.95381999, 0.93539000, 0.91082001, & - 0.87889999, 0.83889997, 0.79100001, 0.73660004, 0.67879999, & - 0.62049997, 0.56330001, 0.50629997, 0.44900000, 0.39209998, & - 0.33749998, 0.28729999, 0.24229997, 0.20150000, 0.16280001/ + 0.99982196, 0.99966067, 0.99937201, 0.99888307, 0.99810678, & + 0.99694288, 0.99525315, 0.99281454, 0.98929566, 0.98425364, & + 0.97712040, 0.96716130, 0.95343208, 0.93478447, 0.90994793, & + 0.87772256, 0.83733451, 0.78894842, 0.73419034, 0.67604613, & + 0.61762655, 0.56022692, 0.50297821, 0.44541037, 0.38843226, & + 0.33384353, 0.28363961, 0.23849565, 0.19704032, 0.15752959/ data ((c2(ip,iw),iw=1,30), ip=18,18)/ & - -0.6477e-07, -0.1243e-06, -0.2536e-06, -0.6173e-06, -0.1495e-05, & - -0.3353e-05, -0.6919e-05, -0.1337e-04, -0.2418e-04, -0.4049e-04, & - -0.6354e-04, -0.9455e-04, -0.1367e-03, -0.1942e-03, -0.2717e-03, & - -0.3744e-03, -0.5042e-03, -0.6609e-03, -0.8416e-03, -0.1041e-02, & - -0.1249e-02, -0.1448e-02, -0.1622e-02, -0.1760e-02, -0.1857e-02, & - -0.1906e-02, -0.1911e-02, -0.1892e-02, -0.1870e-02, -0.1844e-02/ + -0.4665E-07, -0.1168E-06, -0.2973E-06, -0.7239E-06, -0.1721E-05, & + -0.3791E-05, -0.7760E-05, -0.1477E-04, -0.2619E-04, -0.4332E-04, & + -0.6735E-04, -0.1000E-03, -0.1443E-03, -0.2045E-03, -0.2859E-03, & + -0.3930E-03, -0.5285E-03, -0.6917E-03, -0.8794E-03, -0.1086E-02, & + -0.1299E-02, -0.1502E-02, -0.1678E-02, -0.1820E-02, -0.1922E-02, & + -0.1978E-02, -0.1994E-02, -0.1987E-02, -0.1973E-02, -0.1944E-02/ data ((c3(ip,iw),iw=1,30), ip=18,18)/ & - -0.5821e-10, -0.2328e-09, -0.6985e-09, -0.1368e-08, -0.4351e-08, & - -0.8993e-08, -0.1579e-07, -0.2916e-07, -0.4904e-07, -0.7010e-07, & - -0.9623e-07, -0.1332e-06, -0.1928e-06, -0.2977e-06, -0.4371e-06, & - -0.5992e-06, -0.7586e-06, -0.8580e-06, -0.8238e-06, -0.5811e-06, & - -0.1298e-06, 0.4702e-06, 0.1162e-05, 0.1905e-05, 0.2632e-05, & - 0.3247e-05, 0.3609e-05, 0.3772e-05, 0.4166e-05, 0.5232e-05/ + 0.3113E-09, 0.5322E-09, 0.7264E-09, 0.6706E-09, -0.2555E-09, & + -0.2895E-08, -0.8462E-08, -0.1768E-07, -0.3017E-07, -0.4437E-07, & + -0.6017E-07, -0.8378E-07, -0.1282E-06, -0.2039E-06, -0.3086E-06, & + -0.4277E-06, -0.5329E-06, -0.5704E-06, -0.4687E-06, -0.1680E-06, & + 0.3269E-06, 0.9415E-06, 0.1629E-05, 0.2348E-05, 0.3046E-05, & + 0.3628E-05, 0.3963E-05, 0.4143E-05, 0.4644E-05, 0.5889E-05/ data ((c1(ip,iw),iw=1,30), ip=19,19)/ & - 0.99981648, 0.99964571, 0.99933147, 0.99878597, 0.99787998, & - 0.99649400, 0.99448699, 0.99166602, 0.98762000, 0.98181999, & - 0.97352999, 0.96183002, 0.94558001, 0.92363000, 0.89480001, & - 0.85799998, 0.81309998, 0.76100004, 0.70420003, 0.64590001, & - 0.58840001, 0.53139997, 0.47380000, 0.41619998, 0.36030000, & - 0.30809999, 0.26109999, 0.21880001, 0.17909998, 0.14080000/ + 0.99981844, 0.99964958, 0.99933988, 0.99879652, 0.99790138, & + 0.99652147, 0.99450737, 0.99163669, 0.98754823, 0.98170340, & + 0.97335166, 0.96152353, 0.94510251, 0.92290431, 0.89373261, & + 0.85661834, 0.81128657, 0.75875717, 0.70160520, 0.64312267, & + 0.58543533, 0.52814835, 0.47036928, 0.41267300, 0.35673177, & + 0.30465996, 0.25773448, 0.21512479, 0.17481446, 0.13591540/ data ((c2(ip,iw),iw=1,30), ip=19,19)/ & - -0.7906e-07, -0.1291e-06, -0.2430e-06, -0.5145e-06, -0.1327e-05, & - -0.3103e-05, -0.6710e-05, -0.1371e-04, -0.2561e-04, -0.4405e-04, & - -0.7051e-04, -0.1070e-03, -0.1560e-03, -0.2217e-03, -0.3090e-03, & - -0.4228e-03, -0.5657e-03, -0.7371e-03, -0.9322e-03, -0.1142e-02, & - -0.1352e-02, -0.1541e-02, -0.1697e-02, -0.1813e-02, -0.1883e-02, & - -0.1906e-02, -0.1898e-02, -0.1882e-02, -0.1866e-02, -0.1832e-02/ + -0.4098E-07, -0.1007E-06, -0.2591E-06, -0.6488E-06, -0.1581E-05, & + -0.3648E-05, -0.7796E-05, -0.1535E-04, -0.2790E-04, -0.4722E-04, & + -0.7509E-04, -0.1135E-03, -0.1652E-03, -0.2342E-03, -0.3257E-03, & + -0.4448E-03, -0.5940E-03, -0.7722E-03, -0.9744E-03, -0.1190E-02, & + -0.1403E-02, -0.1594E-02, -0.1753E-02, -0.1873E-02, -0.1947E-02, & + -0.1977E-02, -0.1979E-02, -0.1972E-02, -0.1958E-02, -0.1915E-02/ data ((c3(ip,iw),iw=1,30), ip=19,19)/ & - 0.2910e-10, 0.1455e-10, -0.2765e-09, -0.1426e-08, -0.2576e-08, & - -0.5923e-08, -0.1429e-07, -0.3159e-07, -0.5441e-07, -0.8367e-07, & - -0.1161e-06, -0.1526e-06, -0.2060e-06, -0.3007e-06, -0.4450e-06, & - -0.6182e-06, -0.7683e-06, -0.8170e-06, -0.6754e-06, -0.3122e-06, & - 0.2234e-06, 0.8828e-06, 0.1632e-05, 0.2373e-05, 0.3002e-05, & - 0.3384e-05, 0.3499e-05, 0.3697e-05, 0.4517e-05, 0.6117e-05/ + 0.3486E-09, 0.5961E-09, 0.9233E-09, 0.1346E-08, 0.1269E-08, & + -0.2634E-09, -0.5106E-08, -0.1521E-07, -0.3192E-07, -0.5389E-07, & + -0.7585E-07, -0.9598E-07, -0.1266E-06, -0.1898E-06, -0.2923E-06, & + -0.4140E-06, -0.5052E-06, -0.4857E-06, -0.2779E-06, 0.1387E-06, & + 0.7058E-06, 0.1381E-05, 0.2127E-05, 0.2859E-05, 0.3475E-05, & + 0.3846E-05, 0.3969E-05, 0.4224E-05, 0.5152E-05, 0.6873E-05/ data ((c1(ip,iw),iw=1,30), ip=20,20)/ & - 0.99981302, 0.99963689, 0.99930489, 0.99870700, 0.99768901, & - 0.99608499, 0.99373102, 0.99039900, 0.98566997, 0.97895002, & - 0.96930999, 0.95548999, 0.93621999, 0.91029000, 0.87669998, & - 0.83490002, 0.78549999, 0.73019999, 0.67240000, 0.61469996, & - 0.55779999, 0.50029999, 0.44220001, 0.38489997, 0.33069998, & - 0.28149998, 0.23760003, 0.19690001, 0.15759999, 0.11989999/ + 0.99981600, 0.99964136, 0.99931455, 0.99872625, 0.99772161, & + 0.99612063, 0.99373823, 0.99035382, 0.98559308, 0.97882116, & + 0.96908391, 0.95513755, 0.93565118, 0.90942025, 0.87547016, & + 0.83328891, 0.78337395, 0.72776425, 0.66966605, 0.61183786, & + 0.55468166, 0.49698496, 0.43872380, 0.38142091, 0.32735240, & + 0.27838105, 0.23436898, 0.19330215, 0.15356398, 0.11541939/ data ((c2(ip,iw),iw=1,30), ip=20,20)/ & - -0.7762e-07, -0.1319e-06, -0.2315e-06, -0.4780e-06, -0.1187e-05, & - -0.2750e-05, -0.6545e-05, -0.1393e-04, -0.2645e-04, -0.4652e-04, & - -0.7657e-04, -0.1190e-03, -0.1766e-03, -0.2520e-03, -0.3499e-03, & - -0.4751e-03, -0.6307e-03, -0.8160e-03, -0.1024e-02, -0.1240e-02, & - -0.1443e-02, -0.1619e-02, -0.1757e-02, -0.1849e-02, -0.1892e-02, & - -0.1896e-02, -0.1886e-02, -0.1878e-02, -0.1861e-02, -0.1807e-02/ + -0.3756E-07, -0.9374E-07, -0.2378E-06, -0.5962E-06, -0.1485E-05, & + -0.3532E-05, -0.7794E-05, -0.1573E-04, -0.2912E-04, -0.5028E-04, & + -0.8196E-04, -0.1269E-03, -0.1874E-03, -0.2667E-03, -0.3695E-03, & + -0.5007E-03, -0.6632E-03, -0.8557E-03, -0.1070E-02, -0.1290E-02, & + -0.1496E-02, -0.1673E-02, -0.1813E-02, -0.1908E-02, -0.1955E-02, & + -0.1966E-02, -0.1965E-02, -0.1962E-02, -0.1942E-02, -0.1874E-02/ data ((c3(ip,iw),iw=1,30), ip=20,20)/ & - 0.8731e-10, -0.7276e-10, -0.2328e-09, -0.6403e-09, -0.1455e-08, & - -0.3827e-08, -0.1270e-07, -0.3014e-07, -0.5594e-07, -0.9677e-07, & - -0.1422e-06, -0.1823e-06, -0.2296e-06, -0.3094e-06, -0.4399e-06, & - -0.6008e-06, -0.7239e-06, -0.7014e-06, -0.4562e-06, -0.7778e-08, & - 0.5785e-06, 0.1291e-05, 0.2072e-05, 0.2783e-05, 0.3247e-05, & - 0.3358e-05, 0.3364e-05, 0.3847e-05, 0.5194e-05, 0.7206e-05/ + 0.3566E-09, 0.6998E-09, 0.1224E-08, 0.1972E-08, 0.2815E-08, & + 0.2709E-08, -0.5642E-09, -0.1074E-07, -0.3102E-07, -0.6097E-07, & + -0.9344E-07, -0.1176E-06, -0.1362E-06, -0.1755E-06, -0.2590E-06, & + -0.3654E-06, -0.4210E-06, -0.3288E-06, -0.2318E-07, 0.4684E-06, & + 0.1083E-05, 0.1812E-05, 0.2598E-05, 0.3312E-05, 0.3778E-05, & + 0.3903E-05, 0.3958E-05, 0.4525E-05, 0.5947E-05, 0.8016E-05/ data ((c1(ip,iw),iw=1,30), ip=21,21)/ & - 0.99981070, 0.99962878, 0.99928439, 0.99864298, 0.99752903, & - 0.99573100, 0.99301797, 0.98905998, 0.98354000, 0.97570997, & - 0.96449000, 0.94837999, 0.92576003, 0.89539999, 0.85680002, & - 0.81000000, 0.75660002, 0.69949996, 0.64199996, 0.58529997, & - 0.52829999, 0.47020000, 0.41200000, 0.35570002, 0.30400002, & - 0.25800002, 0.21609998, 0.17610002, 0.13709998, 0.10020000/ + 0.99981397, 0.99963546, 0.99929672, 0.99867326, 0.99757719, & + 0.99577057, 0.99300259, 0.98902106, 0.98344505, 0.97556579, & + 0.96423388, 0.94793248, 0.92507470, 0.89441156, 0.85533464, & + 0.80810499, 0.75430608, 0.69694877, 0.63920856, 0.58230531, & + 0.52508599, 0.46681160, 0.40848309, 0.35235608, 0.30093586, & + 0.25503820, 0.21298867, 0.17258596, 0.13329828, 0.09623200/ data ((c2(ip,iw),iw=1,30), ip=21,21)/ & - -0.1010e-06, -0.1533e-06, -0.2347e-06, -0.4535e-06, -0.1029e-05, & - -0.2530e-05, -0.6335e-05, -0.1381e-04, -0.2681e-04, -0.4777e-04, & - -0.8083e-04, -0.1296e-03, -0.1966e-03, -0.2836e-03, -0.3937e-03, & - -0.5313e-03, -0.6995e-03, -0.8972e-03, -0.1113e-02, -0.1327e-02, & - -0.1520e-02, -0.1681e-02, -0.1800e-02, -0.1867e-02, -0.1887e-02, & - -0.1884e-02, -0.1881e-02, -0.1879e-02, -0.1849e-02, -0.1764e-02/ + -0.3458E-07, -0.8927E-07, -0.2276E-06, -0.5715E-06, -0.1427E-05, & + -0.3448E-05, -0.7761E-05, -0.1589E-04, -0.2978E-04, -0.5225E-04, & + -0.8727E-04, -0.1388E-03, -0.2093E-03, -0.3009E-03, -0.4167E-03, & + -0.5609E-03, -0.7364E-03, -0.9410E-03, -0.1162E-02, -0.1379E-02, & + -0.1573E-02, -0.1736E-02, -0.1856E-02, -0.1926E-02, -0.1951E-02, & + -0.1956E-02, -0.1959E-02, -0.1956E-02, -0.1918E-02, -0.1818E-02/ data ((c3(ip,iw),iw=1,30), ip=21,21)/ & - 0.8731e-10, 0.1310e-09, -0.2474e-09, -0.2619e-09, 0.8295e-09, & - -0.1979e-08, -0.1141e-07, -0.2621e-07, -0.5799e-07, -0.1060e-06, & - -0.1621e-06, -0.2281e-06, -0.2793e-06, -0.3335e-06, -0.4277e-06, & - -0.5429e-06, -0.5970e-06, -0.4872e-06, -0.1775e-06, 0.3028e-06, & - 0.9323e-06, 0.1680e-05, 0.2452e-05, 0.3063e-05, 0.3299e-05, & - 0.3219e-05, 0.3369e-05, 0.4332e-05, 0.6152e-05, 0.8413e-05/ + 0.4204E-09, 0.7264E-09, 0.1349E-08, 0.2456E-08, 0.4164E-08, & + 0.5665E-08, 0.4495E-08, -0.4390E-08, -0.2641E-07, -0.6297E-07, & + -0.1081E-06, -0.1467E-06, -0.1647E-06, -0.1760E-06, -0.2159E-06, & + -0.2696E-06, -0.2537E-06, -0.7936E-07, 0.2835E-06, 0.7986E-06, & + 0.1453E-05, 0.2220E-05, 0.3009E-05, 0.3640E-05, 0.3894E-05, & + 0.3856E-05, 0.4088E-05, 0.5125E-05, 0.6974E-05, 0.9239E-05/ data ((c1(ip,iw),iw=1,30), ip=22,22)/ & - 0.99980962, 0.99962330, 0.99926400, 0.99858999, 0.99741602, & - 0.99547201, 0.99236798, 0.98776001, 0.98124999, 0.97210997, & - 0.95902997, 0.94033003, 0.91415000, 0.87919998, 0.83529997, & - 0.78380001, 0.72749996, 0.66990000, 0.61339998, 0.55720001, & - 0.49980003, 0.44129997, 0.38360000, 0.32929999, 0.28070003, & - 0.23710001, 0.19620001, 0.15619999, 0.11769998, 0.08200002/ + 0.99981296, 0.99963164, 0.99928445, 0.99863535, 0.99746948, & + 0.99548900, 0.99235290, 0.98771960, 0.98116148, 0.97192103, & + 0.95871633, 0.93980151, 0.91333646, 0.87801361, 0.83368826, & + 0.78171986, 0.72501707, 0.66722846, 0.61055648, 0.55416226, & + 0.49651819, 0.43790764, 0.38022524, 0.32622856, 0.27784550, & + 0.23429114, 0.19307172, 0.15282935, 0.11413610, 0.07851070/ data ((c2(ip,iw),iw=1,30), ip=22,22)/ & - -0.1258e-06, -0.1605e-06, -0.2581e-06, -0.4286e-06, -0.8321e-06, & - -0.2392e-05, -0.6163e-05, -0.1358e-04, -0.2646e-04, -0.4792e-04, & - -0.8284e-04, -0.1369e-03, -0.2138e-03, -0.3141e-03, -0.4393e-03, & - -0.5917e-03, -0.7731e-03, -0.9796e-03, -0.1195e-02, -0.1399e-02, & - -0.1579e-02, -0.1725e-02, -0.1822e-02, -0.1867e-02, -0.1877e-02, & - -0.1879e-02, -0.1886e-02, -0.1879e-02, -0.1825e-02, -0.1706e-02/ + -0.3607E-07, -0.9106E-07, -0.2201E-06, -0.5559E-06, -0.1391E-05, & + -0.3381E-05, -0.7671E-05, -0.1583E-04, -0.2984E-04, -0.5305E-04, & + -0.9054E-04, -0.1478E-03, -0.2287E-03, -0.3343E-03, -0.4658E-03, & + -0.6255E-03, -0.8143E-03, -0.1027E-02, -0.1246E-02, -0.1452E-02, & + -0.1633E-02, -0.1780E-02, -0.1879E-02, -0.1928E-02, -0.1943E-02, & + -0.1952E-02, -0.1962E-02, -0.1949E-02, -0.1883E-02, -0.1749E-02/ data ((c3(ip,iw),iw=1,30), ip=22,22)/ & - -0.8731e-10, 0.2910e-10, 0.7276e-10, 0.1281e-08, 0.1222e-08, & - -0.1935e-08, -0.8004e-08, -0.2258e-07, -0.5428e-07, -0.1085e-06, & - -0.1835e-06, -0.2716e-06, -0.3446e-06, -0.3889e-06, -0.4203e-06, & - -0.4394e-06, -0.3716e-06, -0.1677e-06, 0.1622e-06, 0.6327e-06, & - 0.1275e-05, 0.2018e-05, 0.2716e-05, 0.3137e-05, 0.3136e-05, & - 0.3078e-05, 0.3649e-05, 0.5152e-05, 0.7315e-05, 0.9675e-05/ + 0.3991E-09, 0.7797E-09, 0.1514E-08, 0.2890E-08, 0.5114E-08, & + 0.8004E-08, 0.9207E-08, 0.2751E-08, -0.1866E-07, -0.5876E-07, & + -0.1158E-06, -0.1759E-06, -0.2100E-06, -0.2037E-06, -0.1777E-06, & + -0.1260E-06, 0.1159E-07, 0.2717E-06, 0.6398E-06, 0.1142E-05, & + 0.1811E-05, 0.2581E-05, 0.3312E-05, 0.3761E-05, 0.3802E-05, & + 0.3819E-05, 0.4473E-05, 0.6011E-05, 0.8162E-05, 0.1049E-04/ data ((c1(ip,iw),iw=1,30), ip=23,23)/ & - 0.99980921, 0.99961692, 0.99924570, 0.99854898, 0.99734801, & - 0.99527103, 0.99182302, 0.98655999, 0.97895002, 0.96814001, & - 0.95284998, 0.93124998, 0.90130001, 0.86170000, 0.81290001, & - 0.75740004, 0.69920003, 0.64199996, 0.58640003, 0.53020000, & - 0.47240001, 0.41399997, 0.35780001, 0.30650002, 0.26069999, & - 0.21850002, 0.17750001, 0.13739997, 0.09950000, 0.06540000/ + 0.99981195, 0.99962944, 0.99927652, 0.99860990, 0.99739289, & + 0.99527556, 0.99181646, 0.98653018, 0.97884804, 0.96793681, & + 0.95248020, 0.93061423, 0.90033394, 0.86034650, 0.81107712, & + 0.75512129, 0.69664025, 0.63929212, 0.58348066, 0.52703655, & + 0.46901560, 0.41065586, 0.35463405, 0.30363917, 0.25805390, & + 0.21567380, 0.17439228, 0.13414437, 0.09621924, 0.06238037/ data ((c2(ip,iw),iw=1,30), ip=23,23)/ & - -0.1434e-06, -0.1676e-06, -0.2699e-06, -0.2859e-06, -0.7542e-06, & - -0.2273e-05, -0.5898e-05, -0.1292e-04, -0.2538e-04, -0.4649e-04, & - -0.8261e-04, -0.1405e-03, -0.2259e-03, -0.3407e-03, -0.4845e-03, & - -0.6561e-03, -0.8524e-03, -0.1062e-02, -0.1266e-02, -0.1456e-02, & - -0.1621e-02, -0.1748e-02, -0.1823e-02, -0.1854e-02, -0.1868e-02, & - -0.1886e-02, -0.1899e-02, -0.1876e-02, -0.1790e-02, -0.1636e-02/ + -0.3741E-07, -0.8793E-07, -0.2127E-06, -0.5352E-06, -0.1342E-05, & + -0.3272E-05, -0.7454E-05, -0.1544E-04, -0.2923E-04, -0.5256E-04, & + -0.9141E-04, -0.1530E-03, -0.2432E-03, -0.3641E-03, -0.5150E-03, & + -0.6942E-03, -0.8974E-03, -0.1111E-02, -0.1318E-02, -0.1509E-02, & + -0.1677E-02, -0.1805E-02, -0.1882E-02, -0.1918E-02, -0.1938E-02, & + -0.1960E-02, -0.1970E-02, -0.1938E-02, -0.1839E-02, -0.1671E-02/ data ((c3(ip,iw),iw=1,30), ip=23,23)/ & - -0.1892e-09, -0.2474e-09, 0.1892e-09, 0.2561e-08, 0.4366e-09, & - -0.1499e-08, -0.4336e-08, -0.1740e-07, -0.5233e-07, -0.1055e-06, & - -0.1940e-06, -0.3113e-06, -0.4161e-06, -0.4620e-06, -0.4316e-06, & - -0.3031e-06, -0.5438e-07, 0.2572e-06, 0.5773e-06, 0.1008e-05, & - 0.1609e-05, 0.2290e-05, 0.2817e-05, 0.2940e-05, 0.2803e-05, & - 0.3061e-05, 0.4235e-05, 0.6225e-05, 0.8615e-05, 0.1095e-04/ + 0.4550E-09, 0.7983E-09, 0.1546E-08, 0.3031E-08, 0.5588E-08, & + 0.9353E-08, 0.1256E-07, 0.9064E-08, -0.9430E-08, -0.4907E-07, & + -0.1139E-06, -0.1947E-06, -0.2559E-06, -0.2493E-06, -0.1525E-06, & + 0.4902E-07, 0.3608E-06, 0.7150E-06, 0.1069E-05, 0.1529E-05, & + 0.2160E-05, 0.2878E-05, 0.3447E-05, 0.3616E-05, 0.3553E-05, & + 0.3905E-05, 0.5129E-05, 0.7106E-05, 0.9457E-05, 0.1172E-04/ data ((c1(ip,iw),iw=1,30), ip=24,24)/ & - 0.99980992, 0.99961102, 0.99922198, 0.99852699, 0.99732202, & - 0.99510902, 0.99140203, 0.98550999, 0.97672999, 0.96399999, & - 0.94602001, 0.92101002, 0.88709998, 0.84310001, 0.79020000, & - 0.73189998, 0.67299998, 0.61619997, 0.56060004, 0.50400001, & - 0.44610000, 0.38880002, 0.33530003, 0.28740001, 0.24390000, & - 0.20179999, 0.16009998, 0.11979997, 0.08260000, 0.05049998/ + 0.99981159, 0.99962759, 0.99927121, 0.99859214, 0.99733758, & + 0.99511474, 0.99138594, 0.98549122, 0.97662354, 0.96375191, & + 0.94555831, 0.92026752, 0.88592684, 0.84149605, 0.78813756, & + 0.72953093, 0.67042029, 0.61351800, 0.55762243, 0.50072914, & + 0.44270837, 0.38552511, 0.33234173, 0.28479803, 0.24121642, & + 0.19889826, 0.15705287, 0.11675125, 0.07971334, 0.04797637/ data ((c2(ip,iw),iw=1,30), ip=24,24)/ & - -0.1529e-06, -0.2005e-06, -0.2861e-06, -0.1652e-06, -0.6334e-06, & - -0.1965e-05, -0.5437e-05, -0.1182e-04, -0.2344e-04, -0.4384e-04, & - -0.7982e-04, -0.1398e-03, -0.2321e-03, -0.3616e-03, -0.5274e-03, & - -0.7239e-03, -0.9363e-03, -0.1142e-02, -0.1328e-02, -0.1499e-02, & - -0.1645e-02, -0.1748e-02, -0.1804e-02, -0.1834e-02, -0.1867e-02, & - -0.1903e-02, -0.1914e-02, -0.1866e-02, -0.1746e-02, -0.1558e-02/ + -0.3696E-07, -0.8674E-07, -0.2028E-06, -0.5040E-06, -0.1260E-05, & + -0.3065E-05, -0.7012E-05, -0.1462E-04, -0.2786E-04, -0.5064E-04, & + -0.8982E-04, -0.1541E-03, -0.2520E-03, -0.3885E-03, -0.5620E-03, & + -0.7660E-03, -0.9842E-03, -0.1192E-02, -0.1381E-02, -0.1554E-02, & + -0.1702E-02, -0.1807E-02, -0.1865E-02, -0.1902E-02, -0.1940E-02, & + -0.1976E-02, -0.1980E-02, -0.1921E-02, -0.1788E-02, -0.1587E-02/ data ((c3(ip,iw),iw=1,30), ip=24,24)/ & - -0.3638e-09, -0.9313e-09, 0.1703e-08, 0.2081e-08, -0.1251e-08, & - -0.1208e-08, -0.6883e-08, -0.1608e-07, -0.4559e-07, -0.1047e-06, & - -0.2040e-06, -0.3312e-06, -0.4624e-06, -0.5198e-06, -0.4326e-06, & - -0.1452e-06, 0.3003e-06, 0.7455e-06, 0.1102e-05, 0.1470e-05, & - 0.1957e-05, 0.2474e-05, 0.2691e-05, 0.2484e-05, 0.2414e-05, & - 0.3232e-05, 0.5050e-05, 0.7455e-05, 0.9997e-05, 0.1217e-04/ + 0.4417E-09, 0.8621E-09, 0.1541E-08, 0.3028E-08, 0.5617E-08, & + 0.9774E-08, 0.1396E-07, 0.1323E-07, -0.7108E-09, -0.3567E-07, & + -0.1007E-06, -0.1922E-06, -0.2742E-06, -0.2729E-06, -0.1151E-06, & + 0.2385E-06, 0.7388E-06, 0.1217E-05, 0.1603E-05, 0.2001E-05, & + 0.2527E-05, 0.3095E-05, 0.3362E-05, 0.3222E-05, 0.3258E-05, & + 0.4158E-05, 0.5974E-05, 0.8329E-05, 0.1081E-04, 0.1289E-04/ data ((c1(ip,iw),iw=1,30), ip=25,25)/ & - 0.99980998, 0.99960178, 0.99920201, 0.99852800, 0.99729002, & - 0.99498200, 0.99102801, 0.98461998, 0.97465998, 0.95982999, & - 0.93866003, 0.90968001, 0.87140000, 0.82340002, 0.76770002, & - 0.70860004, 0.64999998, 0.59290004, 0.53610003, 0.47860003, & - 0.42110002, 0.36610001, 0.31639999, 0.27200001, 0.22960001, & - 0.18690002, 0.14429998, 0.10380000, 0.06739998, 0.03740001/ + 0.99981159, 0.99962676, 0.99926704, 0.99857843, 0.99729389, & + 0.99498510, 0.99102783, 0.98458773, 0.97456259, 0.95956063, & + 0.93812776, 0.90879148, 0.87007952, 0.82162309, 0.76556253, & + 0.70621312, 0.64746487, 0.59013212, 0.53297842, 0.47532034, & + 0.41783774, 0.36303061, 0.31369632, 0.26940316, 0.22683442, & + 0.18390143, 0.14129812, 0.10090071, 0.06484979, 0.03544110/ data ((c2(ip,iw),iw=1,30), ip=25,25)/ & - -0.1453e-06, -0.2529e-06, -0.1807e-06, -0.1109e-06, -0.4469e-06, & - -0.1885e-05, -0.4590e-05, -0.1043e-04, -0.2057e-04, -0.3951e-04, & - -0.7466e-04, -0.1356e-03, -0.2341e-03, -0.3783e-03, -0.5688e-03, & - -0.7935e-03, -0.1021e-02, -0.1219e-02, -0.1388e-02, -0.1535e-02, & - -0.1653e-02, -0.1726e-02, -0.1768e-02, -0.1813e-02, -0.1874e-02, & - -0.1925e-02, -0.1927e-02, -0.1851e-02, -0.1697e-02, -0.1478e-02/ + -0.3592E-07, -0.8167E-07, -0.1906E-06, -0.4617E-06, -0.1141E-05, & + -0.2757E-05, -0.6325E-05, -0.1333E-04, -0.2571E-04, -0.4738E-04, & + -0.8602E-04, -0.1520E-03, -0.2569E-03, -0.4088E-03, -0.6073E-03, & + -0.8389E-03, -0.1071E-02, -0.1271E-02, -0.1441E-02, -0.1591E-02, & + -0.1710E-02, -0.1787E-02, -0.1835E-02, -0.1886E-02, -0.1949E-02, & + -0.1996E-02, -0.1987E-02, -0.1900E-02, -0.1733E-02, -0.1504E-02/ data ((c3(ip,iw),iw=1,30), ip=25,25)/ & - -0.6257e-09, -0.1382e-08, 0.2095e-08, 0.1863e-08, -0.1834e-08, & - -0.2125e-08, -0.6985e-08, -0.1634e-07, -0.4128e-07, -0.9924e-07, & - -0.1938e-06, -0.3275e-06, -0.4556e-06, -0.5046e-06, -0.3633e-06, & - 0.2484e-07, 0.6195e-06, 0.1249e-05, 0.1731e-05, 0.2053e-05, & - 0.2358e-05, 0.2569e-05, 0.2342e-05, 0.1883e-05, 0.2103e-05, & - 0.3570e-05, 0.5973e-05, 0.8752e-05, 0.1140e-04, 0.1328e-04/ + 0.4018E-09, 0.7557E-09, 0.1466E-08, 0.2932E-08, 0.5434E-08, & + 0.9412E-08, 0.1410E-07, 0.1542E-07, 0.6847E-08, -0.1963E-07, & + -0.7469E-07, -0.1585E-06, -0.2342E-06, -0.2164E-06, -0.9240E-08, & + 0.4333E-06, 0.1064E-05, 0.1725E-05, 0.2236E-05, 0.2590E-05, & + 0.2947E-05, 0.3218E-05, 0.3056E-05, 0.2698E-05, 0.3035E-05, & + 0.4543E-05, 0.6899E-05, 0.9601E-05, 0.1216E-04, 0.1393E-04/ data ((c1(ip,iw),iw=1,30), ip=26,26)/ & - 0.99980712, 0.99958581, 0.99919039, 0.99854302, 0.99724799, & - 0.99486500, 0.99071401, 0.98379999, 0.97279000, 0.95585001, & - 0.93112999, 0.89749998, 0.85460001, 0.80320001, 0.74660003, & - 0.68869996, 0.63100004, 0.57249999, 0.51320004, 0.45450002, & - 0.39810002, 0.34649998, 0.30119997, 0.25950003, 0.21740001, & - 0.17379999, 0.13029999, 0.08950001, 0.05400002, 0.02640003/ + 0.99981129, 0.99962574, 0.99926347, 0.99856603, 0.99725467, & + 0.99486899, 0.99070829, 0.98377496, 0.97267365, 0.95554590, & + 0.93054640, 0.89652336, 0.85311186, 0.80127764, 0.74432230, & + 0.68628454, 0.62840164, 0.56955659, 0.51003551, 0.45124298, & + 0.39495039, 0.34372914, 0.29863960, 0.25682771, 0.21449614, & + 0.17074752, 0.12734443, 0.08683419, 0.05188513, 0.02489018/ data ((c2(ip,iw),iw=1,30), ip=26,26)/ & - -0.1257e-06, -0.2495e-06, -0.1334e-06, -0.8414e-07, -0.1698e-06, & - -0.1346e-05, -0.3692e-05, -0.8625e-05, -0.1750e-04, -0.3483e-04, & - -0.6843e-04, -0.1305e-03, -0.2362e-03, -0.3971e-03, -0.6127e-03, & - -0.8621e-03, -0.1101e-02, -0.1297e-02, -0.1452e-02, -0.1570e-02, & - -0.1647e-02, -0.1688e-02, -0.1727e-02, -0.1797e-02, -0.1887e-02, & - -0.1947e-02, -0.1935e-02, -0.1833e-02, -0.1647e-02, -0.1401e-02/ + -0.3547E-07, -0.7571E-07, -0.1771E-06, -0.4121E-06, -0.9912E-06, & + -0.2375E-05, -0.5472E-05, -0.1170E-04, -0.2303E-04, -0.4336E-04, & + -0.8114E-04, -0.1492E-03, -0.2622E-03, -0.4312E-03, -0.6546E-03, & + -0.9091E-03, -0.1150E-02, -0.1348E-02, -0.1505E-02, -0.1625E-02, & + -0.1706E-02, -0.1752E-02, -0.1798E-02, -0.1874E-02, -0.1962E-02, & + -0.2014E-02, -0.1990E-02, -0.1874E-02, -0.1677E-02, -0.1423E-02/ data ((c3(ip,iw),iw=1,30), ip=26,26)/ & - -0.1222e-08, -0.1164e-09, 0.2285e-08, 0.2037e-09, 0.5675e-09, & - -0.5239e-08, -0.9211e-08, -0.1483e-07, -0.3981e-07, -0.9641e-07, & - -0.1717e-06, -0.2796e-06, -0.3800e-06, -0.3762e-06, -0.1936e-06, & - 0.1920e-06, 0.8335e-06, 0.1691e-05, 0.2415e-05, 0.2767e-05, & - 0.2823e-05, 0.2551e-05, 0.1839e-05, 0.1314e-05, 0.1960e-05, & - 0.4003e-05, 0.6909e-05, 0.1004e-04, 0.1273e-04, 0.1423e-04/ + 0.3619E-09, 0.7397E-09, 0.1448E-08, 0.2834E-08, 0.5234E-08, & + 0.8951E-08, 0.1360E-07, 0.1672E-07, 0.1367E-07, -0.6730E-09, & + -0.3422E-07, -0.8585E-07, -0.1175E-06, -0.4731E-07, 0.1899E-06, & + 0.6128E-06, 0.1279E-05, 0.2158E-05, 0.2910E-05, 0.3301E-05, & + 0.3427E-05, 0.3227E-05, 0.2609E-05, 0.2215E-05, 0.2953E-05, & + 0.4987E-05, 0.7816E-05, 0.1084E-04, 0.1341E-04, 0.1477E-04/ data ((o1(ip,iw),iw=1,21), ip= 1, 1)/ & - 0.99999344, 0.99998689, 0.99997336, 0.99994606, 0.99989170, & - 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, & - 0.99489498, 0.99144602, 0.98655999, 0.98008001, 0.97165000, & - 0.96043998, 0.94527000, 0.92462999, 0.89709997, 0.86180001, & - 0.81800002/ + 0.99999380, 0.99998742, 0.99997437, 0.99994880, 0.99989700, & + 0.99979585, 0.99959809, 0.99921876, 0.99851090, 0.99724305, & + 0.99510759, 0.99179822, 0.98712689, 0.98100328, 0.97317654, & + 0.96302688, 0.94956261, 0.93159300, 0.90799314, 0.87798125, & + 0.84127617/ data ((o2(ip,iw),iw=1,21), ip= 1, 1)/ & - 0.6531e-10, 0.5926e-10, -0.1646e-09, -0.1454e-08, -0.7376e-08, & - -0.2968e-07, -0.1071e-06, -0.3584e-06, -0.1125e-05, -0.3289e-05, & - -0.8760e-05, -0.2070e-04, -0.4259e-04, -0.7691e-04, -0.1264e-03, & - -0.1957e-03, -0.2895e-03, -0.4107e-03, -0.5588e-03, -0.7300e-03, & - -0.9199e-03/ + 0.2533E-08, 0.4172E-08, 0.4619E-08, 0.1937E-08, -0.5367E-08, & + -0.2668E-07, -0.9717E-07, -0.3201E-06, -0.9879E-06, -0.2866E-05, & + -0.7657E-05, -0.1834E-04, -0.3846E-04, -0.7061E-04, -0.1170E-03, & + -0.1816E-03, -0.2691E-03, -0.3826E-03, -0.5210E-03, -0.6817E-03, & + -0.8626E-03/ data ((o3(ip,iw),iw=1,21), ip= 1, 1)/ & - -0.2438e-10, -0.4826e-10, -0.9474e-10, -0.1828e-09, -0.3406e-09, & - -0.6223e-09, -0.1008e-08, -0.1412e-08, -0.1244e-08, 0.8485e-09, & - 0.6343e-08, 0.1201e-07, 0.2838e-08, -0.4024e-07, -0.1257e-06, & - -0.2566e-06, -0.4298e-06, -0.6184e-06, -0.7657e-06, -0.8153e-06, & - -0.7552e-06/ + 0.7983E-11, 0.1064E-10, 0.3991E-10, 0.2395E-10, 0.1543E-09, & + 0.3273E-09, 0.7557E-09, 0.1943E-08, 0.4760E-08, 0.1135E-07, & + 0.2413E-07, 0.4171E-07, 0.5172E-07, 0.3416E-07, -0.2136E-07, & + -0.1153E-06, -0.2399E-06, -0.3714E-06, -0.4697E-06, -0.5060E-06, & + -0.4864E-06/ data ((o1(ip,iw),iw=1,21), ip= 2, 2)/ & - 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, & - 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, & - 0.99489498, 0.99144298, 0.98654997, 0.98006999, 0.97162998, & - 0.96042001, 0.94520003, 0.92449999, 0.89690000, 0.86140001, & - 0.81739998/ + 0.99999380, 0.99998742, 0.99997443, 0.99994868, 0.99989706, & + 0.99979585, 0.99959815, 0.99921870, 0.99851090, 0.99724287, & + 0.99510676, 0.99179584, 0.98712158, 0.98099238, 0.97315592, & + 0.96298945, 0.94949555, 0.93147409, 0.90778208, 0.87761009, & + 0.84063214/ data ((o2(ip,iw),iw=1,21), ip= 2, 2)/ & - 0.6193e-10, 0.5262e-10, -0.1774e-09, -0.1478e-08, -0.7416e-08, & - -0.2985e-07, -0.1071e-06, -0.3584e-06, -0.1124e-05, -0.3287e-05, & - -0.8753e-05, -0.2069e-04, -0.4256e-04, -0.7686e-04, -0.1264e-03, & - -0.1956e-03, -0.2893e-03, -0.4103e-03, -0.5580e-03, -0.7285e-03, & - -0.9171e-03/ + 0.2533E-08, 0.4172E-08, 0.4321E-08, 0.1340E-08, -0.5665E-08, & + -0.2698E-07, -0.9672E-07, -0.3200E-06, -0.9882E-06, -0.2862E-05, & + -0.7650E-05, -0.1833E-04, -0.3843E-04, -0.7056E-04, -0.1169E-03, & + -0.1814E-03, -0.2689E-03, -0.3821E-03, -0.5202E-03, -0.6801E-03, & + -0.8597E-03/ data ((o3(ip,iw),iw=1,21), ip= 2, 2)/ & - -0.2436e-10, -0.4822e-10, -0.9466e-10, -0.1827e-09, -0.3404e-09, & - -0.6220e-09, -0.1008e-08, -0.1414e-08, -0.1247e-08, 0.8360e-09, & - 0.6312e-08, 0.1194e-07, 0.2753e-08, -0.4040e-07, -0.1260e-06, & - -0.2571e-06, -0.4307e-06, -0.6202e-06, -0.7687e-06, -0.8204e-06, & - -0.7636e-06/ + 0.7983E-11, 0.1064E-10, 0.3459E-10, 0.5056E-10, 0.1490E-09, & + 0.3220E-09, 0.7584E-09, 0.1945E-08, 0.4734E-08, 0.1132E-07, & + 0.2410E-07, 0.4165E-07, 0.5164E-07, 0.3403E-07, -0.2161E-07, & + -0.1158E-06, -0.2407E-06, -0.3730E-06, -0.4726E-06, -0.5111E-06, & + -0.4952E-06/ data ((o1(ip,iw),iw=1,21), ip= 3, 3)/ & - 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, & - 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, & - 0.99489301, 0.99143898, 0.98654997, 0.98005998, 0.97158998, & - 0.96035999, 0.94509000, 0.92431998, 0.89660001, 0.86080003, & - 0.81639999/ + 0.99999380, 0.99998742, 0.99997437, 0.99994874, 0.99989700, & + 0.99979597, 0.99959815, 0.99921876, 0.99851084, 0.99724233, & + 0.99510533, 0.99179244, 0.98711336, 0.98097545, 0.97312361, & + 0.96293050, 0.94939035, 0.93128616, 0.90745074, 0.87702966, & + 0.83963144/ data ((o2(ip,iw),iw=1,21), ip= 3, 3)/ & - 0.5658e-10, 0.4212e-10, -0.1977e-09, -0.1516e-08, -0.7481e-08, & - -0.2995e-07, -0.1072e-06, -0.3583e-06, -0.1123e-05, -0.3283e-05, & - -0.8744e-05, -0.2067e-04, -0.4252e-04, -0.7679e-04, -0.1262e-03, & - -0.1953e-03, -0.2889e-03, -0.4096e-03, -0.5567e-03, -0.7263e-03, & - -0.9130e-03/ + 0.2831E-08, 0.3874E-08, 0.4619E-08, 0.1340E-08, -0.6411E-08, & + -0.2653E-07, -0.9613E-07, -0.3201E-06, -0.9867E-06, -0.2857E-05, & + -0.7640E-05, -0.1830E-04, -0.3839E-04, -0.7047E-04, -0.1168E-03, & + -0.1812E-03, -0.2685E-03, -0.3813E-03, -0.5188E-03, -0.6777E-03, & + -0.8554E-03/ data ((o3(ip,iw),iw=1,21), ip= 3, 3)/ & - -0.2433e-10, -0.4815e-10, -0.9453e-10, -0.1825e-09, -0.3400e-09, & - -0.6215e-09, -0.1007e-08, -0.1415e-08, -0.1253e-08, 0.8143e-09, & - 0.6269e-08, 0.1186e-07, 0.2604e-08, -0.4067e-07, -0.1264e-06, & - -0.2579e-06, -0.4321e-06, -0.6229e-06, -0.7732e-06, -0.8277e-06, & - -0.7752e-06/ + 0.1330E-10, 0.1597E-10, 0.3991E-10, 0.3459E-10, 0.1730E-09, & + 0.2980E-09, 0.7424E-09, 0.1943E-08, 0.4718E-08, 0.1132E-07, & + 0.2408E-07, 0.4155E-07, 0.5148E-07, 0.3375E-07, -0.2203E-07, & + -0.1166E-06, -0.2421E-06, -0.3755E-06, -0.4770E-06, -0.5184E-06, & + -0.5068E-06/ data ((o1(ip,iw),iw=1,21), ip= 4, 4)/ & - 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, & - 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99711901, & - 0.99489301, 0.99143499, 0.98653001, 0.98003000, 0.97153997, & - 0.96026999, 0.94493997, 0.92404002, 0.89609998, 0.85990000, & - 0.81480002/ + 0.99999380, 0.99998742, 0.99997443, 0.99994880, 0.99989706, & + 0.99979591, 0.99959821, 0.99921870, 0.99851060, 0.99724168, & + 0.99510312, 0.99178684, 0.98710048, 0.98094857, 0.97307235, & + 0.96283722, 0.94922370, 0.93099111, 0.90693128, 0.87612689, & + 0.83809173/ data ((o2(ip,iw),iw=1,21), ip= 4, 4)/ & - 0.4814e-10, 0.2552e-10, -0.2298e-09, -0.1576e-08, -0.7579e-08, & - -0.3009e-07, -0.1074e-06, -0.3581e-06, -0.1122e-05, -0.3278e-05, & - -0.8729e-05, -0.2063e-04, -0.4245e-04, -0.7667e-04, -0.1260e-03, & - -0.1950e-03, -0.2883e-03, -0.4086e-03, -0.5549e-03, -0.7229e-03, & - -0.9071e-03/ + 0.2831E-08, 0.3874E-08, 0.4768E-08, 0.1638E-08, -0.6411E-08, & + -0.2668E-07, -0.9598E-07, -0.3195E-06, -0.9837E-06, -0.2850E-05, & + -0.7622E-05, -0.1826E-04, -0.3831E-04, -0.7034E-04, -0.1166E-03, & + -0.1808E-03, -0.2678E-03, -0.3802E-03, -0.5168E-03, -0.6741E-03, & + -0.8492E-03/ data ((o3(ip,iw),iw=1,21), ip= 4, 4)/ & - -0.2428e-10, -0.4805e-10, -0.9433e-10, -0.1821e-09, -0.3394e-09, & - -0.6206e-09, -0.1008e-08, -0.1416e-08, -0.1261e-08, 0.7860e-09, & - 0.6188e-08, 0.1171e-07, 0.2389e-08, -0.4109e-07, -0.1271e-06, & - -0.2591e-06, -0.4344e-06, -0.6267e-06, -0.7797e-06, -0.8378e-06, & - -0.7901e-06/ + 0.1330E-10, 0.1597E-10, 0.3725E-10, 0.5056E-10, 0.1623E-09, & + 0.3113E-09, 0.7451E-09, 0.1937E-08, 0.4723E-08, 0.1127E-07, & + 0.2401E-07, 0.4138E-07, 0.5121E-07, 0.3341E-07, -0.2266E-07, & + -0.1177E-06, -0.2443E-06, -0.3792E-06, -0.4832E-06, -0.5283E-06, & + -0.5212E-06/ data ((o1(ip,iw),iw=1,21), ip= 5, 5)/ & - 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, & - 0.99978638, 0.99957907, 0.99918377, 0.99844402, 0.99711901, & - 0.99488801, 0.99142599, 0.98650998, 0.97999001, 0.97148001, & - 0.96011001, 0.94467002, 0.92356998, 0.89530003, 0.85860002, & - 0.81250000/ + 0.99999380, 0.99998742, 0.99997443, 0.99994880, 0.99989706, & + 0.99979603, 0.99959826, 0.99921864, 0.99851030, 0.99724048, & + 0.99509972, 0.99177790, 0.98707968, 0.98090613, 0.97299159, & + 0.96269035, 0.94896168, 0.93052864, 0.90612280, 0.87473416, & + 0.83575100/ data ((o2(ip,iw),iw=1,21), ip= 5, 5)/ & - 0.3482e-10, -0.6492e-12, -0.2805e-09, -0.1671e-08, -0.7740e-08, & - -0.3032e-07, -0.1076e-06, -0.3582e-06, -0.1120e-05, -0.3270e-05, & - -0.8704e-05, -0.2058e-04, -0.4235e-04, -0.7649e-04, -0.1257e-03, & - -0.1945e-03, -0.2874e-03, -0.4070e-03, -0.5521e-03, -0.7181e-03, & - -0.8990e-03/ + 0.2831E-08, 0.3874E-08, 0.4917E-08, 0.1638E-08, -0.6411E-08, & + -0.2713E-07, -0.9553E-07, -0.3173E-06, -0.9794E-06, -0.2840E-05, & + -0.7593E-05, -0.1820E-04, -0.3819E-04, -0.7013E-04, -0.1162E-03, & + -0.1802E-03, -0.2668E-03, -0.3784E-03, -0.5137E-03, -0.6689E-03, & + -0.8407E-03/ data ((o3(ip,iw),iw=1,21), ip= 5, 5)/ & - -0.2419e-10, -0.4788e-10, -0.9401e-10, -0.1815e-09, -0.3385e-09, & - -0.6192e-09, -0.1006e-08, -0.1417e-08, -0.1273e-08, 0.7404e-09, & - 0.6068e-08, 0.1148e-07, 0.2021e-08, -0.4165e-07, -0.1281e-06, & - -0.2609e-06, -0.4375e-06, -0.6323e-06, -0.7887e-06, -0.8508e-06, & - -0.8067e-06/ + 0.1330E-10, 0.1597E-10, 0.2395E-10, 0.5056E-10, 0.1623E-09, & + 0.2980E-09, 0.7318E-09, 0.1919E-08, 0.4694E-08, 0.1122E-07, & + 0.2389E-07, 0.4114E-07, 0.5087E-07, 0.3278E-07, -0.2370E-07, & + -0.1195E-06, -0.2475E-06, -0.3847E-06, -0.4917E-06, -0.5404E-06, & + -0.5361E-06/ data ((o1(ip,iw),iw=1,21), ip= 6, 6)/ & - 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, & - 0.99978638, 0.99957931, 0.99918377, 0.99844301, 0.99711698, & - 0.99488401, 0.99141300, 0.98648000, 0.97992003, 0.97135001, & - 0.95989001, 0.94428003, 0.92286998, 0.89410001, 0.85640001, & - 0.80890000/ + 0.99999386, 0.99998742, 0.99997443, 0.99994880, 0.99989718, & + 0.99979603, 0.99959826, 0.99921852, 0.99850971, 0.99723876, & + 0.99509430, 0.99176359, 0.98704708, 0.98083913, 0.97286427, & + 0.96245909, 0.94855142, 0.92980820, 0.90487397, 0.87261194, & + 0.83225304/ data ((o2(ip,iw),iw=1,21), ip= 6, 6)/ & - 0.1388e-10, -0.4180e-10, -0.3601e-09, -0.1820e-08, -0.7993e-08, & - -0.3068e-07, -0.1081e-06, -0.3580e-06, -0.1117e-05, -0.3257e-05, & - -0.8667e-05, -0.2049e-04, -0.4218e-04, -0.7620e-04, -0.1253e-03, & - -0.1937e-03, -0.2860e-03, -0.4047e-03, -0.5481e-03, -0.7115e-03, & - -0.8885e-03/ + 0.2831E-08, 0.2682E-08, 0.4917E-08, 0.1638E-08, -0.6261E-08, & + -0.2713E-07, -0.9523E-07, -0.3150E-06, -0.9742E-06, -0.2823E-05, & + -0.7547E-05, -0.1810E-04, -0.3800E-04, -0.6981E-04, -0.1157E-03, & + -0.1793E-03, -0.2652E-03, -0.3758E-03, -0.5094E-03, -0.6618E-03, & + -0.8296E-03/ data ((o3(ip,iw),iw=1,21), ip= 6, 6)/ & - -0.2406e-10, -0.4762e-10, -0.9351e-10, -0.1806e-09, -0.3370e-09, & - -0.6170e-09, -0.1004e-08, -0.1417e-08, -0.1297e-08, 0.6738e-09, & - 0.5895e-08, 0.1113e-07, 0.1466e-08, -0.4265e-07, -0.1298e-06, & - -0.2636e-06, -0.4423e-06, -0.6402e-06, -0.8005e-06, -0.8658e-06, & - -0.8222e-06/ + 0.7983E-11, 0.2661E-10, 0.2395E-10, 0.5056E-10, 0.1490E-09, & + 0.2927E-09, 0.7318E-09, 0.1911E-08, 0.4670E-08, 0.1109E-07, & + 0.2369E-07, 0.4079E-07, 0.5027E-07, 0.3187E-07, -0.2516E-07, & + -0.1220E-06, -0.2521E-06, -0.3920E-06, -0.5023E-06, -0.5532E-06, & + -0.5476E-06/ data ((o1(ip,iw),iw=1,21), ip= 7, 7)/ & - 0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989200, & - 0.99978638, 0.99957931, 0.99918360, 0.99844301, 0.99711502, & - 0.99487501, 0.99138802, 0.98642999, 0.97982001, 0.97114998, & - 0.95954001, 0.94363999, 0.92176998, 0.89219999, 0.85329998, & - 0.80379999/ + 0.99999386, 0.99998742, 0.99997449, 0.99994880, 0.99989712, & + 0.99979609, 0.99959826, 0.99921834, 0.99850875, 0.99723560, & + 0.99508584, 0.99174130, 0.98699600, 0.98073393, 0.97266501, & + 0.96209770, 0.94791204, 0.92869633, 0.90296900, 0.86943132, & + 0.82713652/ data ((o2(ip,iw),iw=1,21), ip= 7, 7)/ & - -0.1889e-10, -0.1062e-09, -0.4847e-09, -0.2053e-08, -0.8389e-08, & - -0.3140e-07, -0.1089e-06, -0.3577e-06, -0.1112e-05, -0.3236e-05, & - -0.8607e-05, -0.2035e-04, -0.4192e-04, -0.7576e-04, -0.1245e-03, & - -0.1925e-03, -0.2840e-03, -0.4013e-03, -0.5427e-03, -0.7029e-03, & - -0.8756e-03/ + 0.2831E-08, 0.2682E-08, 0.5215E-08, 0.1340E-08, -0.4921E-08, & + -0.2683E-07, -0.9538E-07, -0.3136E-06, -0.9640E-06, -0.2796E-05, & + -0.7478E-05, -0.1794E-04, -0.3770E-04, -0.6931E-04, -0.1148E-03, & + -0.1779E-03, -0.2630E-03, -0.3721E-03, -0.5034E-03, -0.6525E-03, & + -0.8161E-03/ data ((o3(ip,iw),iw=1,21), ip= 7, 7)/ & - -0.2385e-10, -0.4722e-10, -0.9273e-10, -0.1791e-09, -0.3348e-09, & - -0.6121e-09, -0.9974e-09, -0.1422e-08, -0.1326e-08, 0.5603e-09, & - 0.5604e-08, 0.1061e-07, 0.6106e-09, -0.4398e-07, -0.1321e-06, & - -0.2676e-06, -0.4490e-06, -0.6507e-06, -0.8145e-06, -0.8801e-06, & - -0.8311e-06/ + 0.7983E-11, 0.2661E-10, 0.1331E-10, 0.4523E-10, 0.1676E-09, & + 0.2874E-09, 0.7398E-09, 0.1884E-08, 0.4633E-08, 0.1102E-07, & + 0.2335E-07, 0.4021E-07, 0.4932E-07, 0.3046E-07, -0.2749E-07, & + -0.1258E-06, -0.2580E-06, -0.4013E-06, -0.5137E-06, -0.5636E-06, & + -0.5487E-06/ data ((o1(ip,iw),iw=1,21), ip= 8, 8)/ & - 0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989229, & - 0.99978650, 0.99957931, 0.99918288, 0.99844098, 0.99711001, & - 0.99486202, 0.99135500, 0.98635000, 0.97965997, 0.97083998, & - 0.95898998, 0.94266999, 0.92009997, 0.88929999, 0.84860003, & - 0.79640001/ + 0.99999386, 0.99998748, 0.99997449, 0.99994886, 0.99989724, & + 0.99979615, 0.99959838, 0.99921793, 0.99850750, 0.99723095, & + 0.99507236, 0.99170661, 0.98691559, 0.98056912, 0.97235346, & + 0.96153617, 0.94692683, 0.92699933, 0.90010893, 0.86476213, & + 0.81984389/ data ((o2(ip,iw),iw=1,21), ip= 8, 8)/ & - -0.6983e-10, -0.2063e-09, -0.6785e-09, -0.2416e-08, -0.9000e-08, & - -0.3243e-07, -0.1100e-06, -0.3574e-06, -0.1104e-05, -0.3205e-05, & - -0.8516e-05, -0.2014e-04, -0.4151e-04, -0.7508e-04, -0.1234e-03, & - -0.1907e-03, -0.2811e-03, -0.3966e-03, -0.5355e-03, -0.6924e-03, & - -0.8613e-03/ + 0.2831E-08, 0.1788E-08, 0.4470E-08, 0.1042E-08, -0.4921E-08, & + -0.2698E-07, -0.9344E-07, -0.3080E-06, -0.9500E-06, -0.2751E-05, & + -0.7370E-05, -0.1770E-04, -0.3724E-04, -0.6854E-04, -0.1136E-03, & + -0.1759E-03, -0.2597E-03, -0.3669E-03, -0.4956E-03, -0.6413E-03, & + -0.8010E-03/ data ((o3(ip,iw),iw=1,21), ip= 8, 8)/ & - -0.2353e-10, -0.4659e-10, -0.9153e-10, -0.1769e-09, -0.3313e-09, & - -0.6054e-09, -0.9899e-09, -0.1430e-08, -0.1375e-08, 0.3874e-09, & - 0.5171e-08, 0.9807e-08, -0.7345e-09, -0.4604e-07, -0.1356e-06, & - -0.2731e-06, -0.4577e-06, -0.6632e-06, -0.8284e-06, -0.8894e-06, & - -0.8267e-06/ + 0.7983E-11, 0.3193E-10, 0.2661E-10, 0.3992E-10, 0.1730E-09, & + 0.2954E-09, 0.7052E-09, 0.1865E-08, 0.4521E-08, 0.1081E-07, & + 0.2286E-07, 0.3930E-07, 0.4798E-07, 0.2847E-07, -0.3065E-07, & + -0.1308E-06, -0.2659E-06, -0.4115E-06, -0.5233E-06, -0.5654E-06, & + -0.5317E-06/ data ((o1(ip,iw),iw=1,21), ip= 9, 9)/ & - 0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989229, & - 0.99978650, 0.99957961, 0.99918252, 0.99843901, 0.99710202, & - 0.99484003, 0.99130303, 0.98623002, 0.97940999, 0.97038001, & - 0.95815003, 0.94119000, 0.91755998, 0.88510001, 0.84189999, & - 0.78610003/ + 0.99999386, 0.99998748, 0.99997455, 0.99994898, 0.99989742, & + 0.99979621, 0.99959826, 0.99921739, 0.99850500, 0.99722350, & + 0.99505132, 0.99165231, 0.98679137, 0.98031354, 0.97187132, & + 0.96067154, 0.94542491, 0.92445219, 0.89590424, 0.85808158, & + 0.80973923/ data ((o2(ip,iw),iw=1,21), ip= 9, 9)/ & - -0.1481e-09, -0.3601e-09, -0.9762e-09, -0.2973e-08, -0.1014e-07, & - -0.3421e-07, -0.1121e-06, -0.3569e-06, -0.1092e-05, -0.3156e-05, & - -0.8375e-05, -0.1981e-04, -0.4090e-04, -0.7405e-04, -0.1218e-03, & - -0.1881e-03, -0.2770e-03, -0.3906e-03, -0.5269e-03, -0.6810e-03, & - -0.8471e-03/ + 0.2533E-08, 0.1788E-08, 0.4470E-08, 0.1638E-08, -0.5218E-08, & + -0.2698E-07, -0.9106E-07, -0.2995E-06, -0.9265E-06, -0.2685E-05, & + -0.7201E-05, -0.1733E-04, -0.3655E-04, -0.6737E-04, -0.1117E-03, & + -0.1729E-03, -0.2551E-03, -0.3601E-03, -0.4861E-03, -0.6288E-03, & + -0.7857E-03/ data ((o3(ip,iw),iw=1,21), ip= 9, 9)/ & - -0.2304e-10, -0.4564e-10, -0.8969e-10, -0.1735e-09, -0.3224e-09, & - -0.5933e-09, -0.9756e-09, -0.1428e-08, -0.1446e-08, 0.1156e-09, & - 0.4499e-08, 0.8469e-08, -0.2720e-08, -0.4904e-07, -0.1401e-06, & - -0.2801e-06, -0.4681e-06, -0.6761e-06, -0.8387e-06, -0.8879e-06, & - -0.8040e-06/ + -0.2661E-11, 0.2661E-10, 0.3725E-10, 0.3991E-10, 0.1570E-09, & + 0.2954E-09, 0.6945E-09, 0.1820E-08, 0.4425E-08, 0.1049E-07, & + 0.2213E-07, 0.3798E-07, 0.4588E-07, 0.2551E-07, -0.3499E-07, & + -0.1371E-06, -0.2744E-06, -0.4203E-06, -0.5260E-06, -0.5519E-06, & + -0.4904E-06/ data ((o1(ip,iw),iw=1,21), ip=10,10)/ & - 0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989259, & - 0.99978650, 0.99957931, 0.99918163, 0.99843597, 0.99709100, & - 0.99480897, 0.99122101, 0.98604000, 0.97902000, 0.96965003, & - 0.95684999, 0.93896997, 0.91386002, 0.87910002, 0.83249998, & - 0.77200001/ + 0.99999392, 0.99998754, 0.99997467, 0.99994910, 0.99989754, & + 0.99979627, 0.99959797, 0.99921638, 0.99850142, 0.99721217, & + 0.99501920, 0.99156892, 0.98659974, 0.97992051, 0.97113293, & + 0.95935977, 0.94317663, 0.92071021, 0.88987815, 0.84879214, & + 0.79615003/ data ((o2(ip,iw),iw=1,21), ip=10,10)/ & - -0.2661e-09, -0.5923e-09, -0.1426e-08, -0.3816e-08, -0.1159e-07, & - -0.3654e-07, -0.1143e-06, -0.3559e-06, -0.1074e-05, -0.3083e-05, & - -0.8159e-05, -0.1932e-04, -0.3998e-04, -0.7253e-04, -0.1194e-03, & - -0.1845e-03, -0.2718e-03, -0.3833e-03, -0.5176e-03, -0.6701e-03, & - -0.8354e-03/ + 0.3576E-08, 0.3129E-08, 0.2980E-08, 0.7445E-09, -0.5069E-08, & + -0.2623E-07, -0.8823E-07, -0.2908E-06, -0.8895E-06, -0.2586E-05, & + -0.6945E-05, -0.1678E-04, -0.3551E-04, -0.6565E-04, -0.1091E-03, & + -0.1689E-03, -0.2491E-03, -0.3519E-03, -0.4757E-03, -0.6166E-03, & + -0.7724E-03/ data ((o3(ip,iw),iw=1,21), ip=10,10)/ & - -0.2232e-10, -0.4421e-10, -0.8695e-10, -0.1684e-09, -0.3141e-09, & - -0.5765e-09, -0.9606e-09, -0.1434e-08, -0.1551e-08, -0.2663e-09, & - 0.3515e-08, 0.6549e-08, -0.5479e-08, -0.5312e-07, -0.1460e-06, & - -0.2883e-06, -0.4787e-06, -0.6863e-06, -0.8399e-06, -0.8703e-06, & - -0.7602e-06/ + 0.2220E-15, 0.7983E-11, 0.1597E-10, 0.2927E-10, 0.1384E-09, & + 0.2927E-09, 0.6812E-09, 0.1754E-08, 0.4228E-08, 0.1002E-07, & + 0.2099E-07, 0.3603E-07, 0.4297E-07, 0.2159E-07, -0.4015E-07, & + -0.1438E-06, -0.2816E-06, -0.4237E-06, -0.5159E-06, -0.5174E-06, & + -0.4229E-06/ data ((o1(ip,iw),iw=1,21), ip=11,11)/ & - 0.99999356, 0.99998701, 0.99997360, 0.99994630, 0.99989289, & - 0.99978679, 0.99957907, 0.99917960, 0.99843001, 0.99707502, & - 0.99475998, 0.99109501, 0.98575002, 0.97843999, 0.96855003, & - 0.95494002, 0.93572998, 0.90853000, 0.87070000, 0.81970000, & - 0.75380003/ + 0.99999398, 0.99998754, 0.99997479, 0.99994916, 0.99989760, & + 0.99979627, 0.99959749, 0.99921471, 0.99849570, 0.99719518, & + 0.99497050, 0.99144322, 0.98630953, 0.97932506, 0.97002149, & + 0.95740712, 0.93988645, 0.91535580, 0.88149357, 0.83626372, & + 0.77838826/ data ((o2(ip,iw),iw=1,21), ip=11,11)/ & - -0.4394e-09, -0.9330e-09, -0.2086e-08, -0.5054e-08, -0.1373e-07, & - -0.3971e-07, -0.1178e-06, -0.3546e-06, -0.1049e-05, -0.2976e-05, & - -0.7847e-05, -0.1860e-04, -0.3864e-04, -0.7038e-04, -0.1162e-03, & - -0.1798e-03, -0.2654e-03, -0.3754e-03, -0.5091e-03, -0.6621e-03, & - -0.8286e-03/ + 0.3874E-08, 0.3427E-08, 0.1937E-08, 0.5953E-09, -0.4623E-08, & + -0.2459E-07, -0.8465E-07, -0.2757E-06, -0.8402E-06, -0.2440E-05, & + -0.6572E-05, -0.1596E-04, -0.3400E-04, -0.6320E-04, -0.1053E-03, & + -0.1635E-03, -0.2419E-03, -0.3429E-03, -0.4657E-03, -0.6068E-03, & + -0.7632E-03/ data ((o3(ip,iw),iw=1,21), ip=11,11)/ & - -0.2127e-10, -0.4216e-10, -0.8300e-10, -0.1611e-09, -0.3019e-09, & - -0.5597e-09, -0.9431e-09, -0.1450e-08, -0.1694e-08, -0.7913e-09, & - 0.2144e-08, 0.3990e-08, -0.9282e-08, -0.5810e-07, -0.1525e-06, & - -0.2965e-06, -0.4869e-06, -0.6894e-06, -0.8281e-06, -0.8350e-06, & - -0.6956e-06/ + -0.5322E-11, 0.1330E-10, 0.2927E-10, 0.3725E-10, 0.1623E-09, & + 0.2741E-09, 0.6919E-09, 0.1655E-08, 0.4029E-08, 0.9337E-08, & + 0.1948E-07, 0.3328E-07, 0.3910E-07, 0.1693E-07, -0.4555E-07, & + -0.1490E-06, -0.2840E-06, -0.4161E-06, -0.4881E-06, -0.4602E-06, & + -0.3288E-06/ data ((o1(ip,iw),iw=1,21), ip=12,12)/ & - 0.99999368, 0.99998701, 0.99997377, 0.99994630, 0.99989259, & - 0.99978709, 0.99957848, 0.99917740, 0.99842203, 0.99704897, & - 0.99468797, 0.99090999, 0.98532999, 0.97758001, 0.96693999, & - 0.95213997, 0.93109000, 0.90110999, 0.85930002, 0.80290002, & - 0.73019999/ + 0.99999404, 0.99998772, 0.99997491, 0.99994934, 0.99989778, & + 0.99979621, 0.99959701, 0.99921221, 0.99848753, 0.99716997, & + 0.99489915, 0.99125737, 0.98587918, 0.97844428, 0.96838760, & + 0.95457482, 0.93520546, 0.90792793, 0.87019116, 0.81987017, & + 0.75581276/ data ((o2(ip,iw),iw=1,21), ip=12,12)/ & - -0.6829e-09, -0.1412e-08, -0.3014e-08, -0.6799e-08, -0.1675e-07, & - -0.4450e-07, -0.1235e-06, -0.3538e-06, -0.1014e-05, -0.2827e-05, & - -0.7407e-05, -0.1759e-04, -0.3676e-04, -0.6744e-04, -0.1120e-03, & - -0.1742e-03, -0.2585e-03, -0.3683e-03, -0.5034e-03, -0.6594e-03, & - -0.8290e-03/ + 0.3129E-08, 0.2533E-08, 0.1639E-08, 0.8934E-09, -0.4920E-08, & + -0.2385E-07, -0.7944E-07, -0.2532E-06, -0.7685E-06, -0.2234E-05, & + -0.6050E-05, -0.1482E-04, -0.3188E-04, -0.5984E-04, -0.1005E-03, & + -0.1570E-03, -0.2338E-03, -0.3343E-03, -0.4581E-03, -0.6018E-03, & + -0.7607E-03/ data ((o3(ip,iw),iw=1,21), ip=12,12)/ & - -0.1985e-10, -0.3937e-10, -0.7761e-10, -0.1511e-09, -0.2855e-09, & - -0.5313e-09, -0.9251e-09, -0.1470e-08, -0.1898e-08, -0.1519e-08, & - 0.2914e-09, 0.5675e-09, -0.1405e-07, -0.6359e-07, -0.1584e-06, & - -0.3020e-06, -0.4893e-06, -0.6821e-06, -0.8021e-06, -0.7834e-06, & - -0.6105e-06/ + 0.2661E-11, 0.2661E-11, 0.2395E-10, 0.3193E-10, 0.1410E-09, & + 0.2874E-09, 0.6360E-09, 0.1573E-08, 0.3675E-08, 0.8451E-08, & + 0.1747E-07, 0.2971E-07, 0.3447E-07, 0.1214E-07, -0.4940E-07, & + -0.1499E-06, -0.2770E-06, -0.3938E-06, -0.4409E-06, -0.3812E-06, & + -0.2072E-06/ data ((o1(ip,iw),iw=1,21), ip=13,13)/ & - 0.99999368, 0.99998701, 0.99997389, 0.99994695, 0.99989289, & - 0.99978721, 0.99957782, 0.99917412, 0.99840999, 0.99701297, & - 0.99458599, 0.99064600, 0.98471999, 0.97632003, 0.96464998, & - 0.94819999, 0.92467999, 0.89109999, 0.84430003, 0.78139997, & - 0.70070004/ + 0.99999410, 0.99998778, 0.99997491, 0.99994951, 0.99989790, & + 0.99979597, 0.99959606, 0.99920869, 0.99847609, 0.99713469, & + 0.99479783, 0.99099284, 0.98526359, 0.97718149, 0.96605861, & + 0.95059496, 0.92876536, 0.89796472, 0.85544366, 0.79905826, & + 0.72794402/ data ((o2(ip,iw),iw=1,21), ip=13,13)/ & - -0.1004e-08, -0.2043e-08, -0.4239e-08, -0.9104e-08, -0.2075e-07, & - -0.5096e-07, -0.1307e-06, -0.3520e-06, -0.9671e-06, -0.2630e-05, & - -0.6825e-05, -0.1624e-04, -0.3429e-04, -0.6369e-04, -0.1069e-03, & - -0.1680e-03, -0.2520e-03, -0.3635e-03, -0.5029e-03, -0.6647e-03, & - -0.8390e-03/ + 0.3129E-08, 0.3576E-08, 0.1787E-08, 0.1486E-09, -0.2983E-08, & + -0.2117E-07, -0.6975E-07, -0.2243E-06, -0.6773E-06, -0.1965E-05, & + -0.5362E-05, -0.1330E-04, -0.2909E-04, -0.5554E-04, -0.9464E-04, & + -0.1497E-03, -0.2259E-03, -0.3276E-03, -0.4550E-03, -0.6038E-03, & + -0.7671E-03/ data ((o3(ip,iw),iw=1,21), ip=13,13)/ & - -0.1807e-10, -0.3587e-10, -0.7085e-10, -0.1385e-09, -0.2648e-09, & - -0.4958e-09, -0.8900e-09, -0.1473e-08, -0.2112e-08, -0.2399e-08, & - -0.2002e-08, -0.3646e-08, -0.1931e-07, -0.6852e-07, -0.1618e-06, & - -0.3021e-06, -0.4828e-06, -0.6634e-06, -0.7643e-06, -0.7177e-06, & - -0.5054e-06/ + 0.1330E-10, 0.5322E-11, 0.5854E-10, 0.2395E-10, 0.1330E-09, & + 0.2874E-09, 0.6173E-09, 0.1456E-08, 0.3297E-08, 0.7381E-08, & + 0.1513E-07, 0.2559E-07, 0.2950E-07, 0.8483E-08, -0.4922E-07, & + -0.1425E-06, -0.2574E-06, -0.3553E-06, -0.3765E-06, -0.2819E-06, & + -0.5608E-07/ data ((o1(ip,iw),iw=1,21), ip=14,14)/ & - 0.99999368, 0.99998713, 0.99997389, 0.99994725, 0.99989289, & - 0.99978679, 0.99957597, 0.99916971, 0.99839503, 0.99696702, & - 0.99444997, 0.99028301, 0.98387003, 0.97457999, 0.96148002, & - 0.94284999, 0.91613001, 0.87809998, 0.82520002, 0.75489998, & - 0.66520000/ + 0.99999422, 0.99998790, 0.99997514, 0.99994957, 0.99989814, & + 0.99979585, 0.99959457, 0.99920410, 0.99846095, 0.99708819, & + 0.99466276, 0.99063551, 0.98442352, 0.97544628, 0.96286833, & + 0.94521070, 0.92022300, 0.88506019, 0.83682334, 0.77345133, & + 0.69464076/ data ((o2(ip,iw),iw=1,21), ip=14,14)/ & - -0.1387e-08, -0.2798e-08, -0.5706e-08, -0.1187e-07, -0.2564e-07, & - -0.5866e-07, -0.1398e-06, -0.3516e-06, -0.9148e-06, -0.2398e-05, & - -0.6122e-05, -0.1459e-04, -0.3125e-04, -0.5923e-04, -0.1013e-03, & - -0.1620e-03, -0.2473e-03, -0.3631e-03, -0.5098e-03, -0.6800e-03, & - -0.8603e-03/ + 0.1788E-08, 0.4172E-08, 0.2532E-08, 0.5952E-09, -0.3281E-08, & + -0.2072E-07, -0.6200E-07, -0.1902E-06, -0.5675E-06, -0.1643E-05, & + -0.4526E-05, -0.1143E-04, -0.2567E-04, -0.5038E-04, -0.8802E-04, & + -0.1423E-03, -0.2194E-03, -0.3245E-03, -0.4583E-03, -0.6152E-03, & + -0.7847E-03/ data ((o3(ip,iw),iw=1,21), ip=14,14)/ & - -0.1610e-10, -0.3200e-10, -0.6337e-10, -0.1245e-09, -0.2408e-09, & - -0.4533e-09, -0.8405e-09, -0.1464e-08, -0.2337e-08, -0.3341e-08, & - -0.4467e-08, -0.8154e-08, -0.2436e-07, -0.7128e-07, -0.1604e-06, & - -0.2945e-06, -0.4666e-06, -0.6357e-06, -0.7187e-06, -0.6419e-06, & - -0.3795e-06/ + 0.5322E-11, 0.1064E-10, 0.4524E-10, 0.4258E-10, 0.1171E-09, & + 0.2475E-09, 0.5748E-09, 0.1304E-08, 0.2858E-08, 0.6227E-08, & + 0.1264E-07, 0.2143E-07, 0.2528E-07, 0.8009E-08, -0.4213E-07, & + -0.1241E-06, -0.2237E-06, -0.3024E-06, -0.2984E-06, -0.1640E-06, & + 0.1263E-06/ data ((o1(ip,iw),iw=1,21), ip=15,15)/ & - 0.99999410, 0.99998724, 0.99997455, 0.99994725, 0.99989331, & - 0.99978632, 0.99957472, 0.99916393, 0.99837703, 0.99690801, & - 0.99427801, 0.98982000, 0.98277998, 0.97232002, 0.95731997, & - 0.93585998, 0.90521002, 0.86180001, 0.80190003, 0.72290003, & - 0.62380004/ + 0.99999428, 0.99998802, 0.99997538, 0.99994981, 0.99989814, & + 0.99979544, 0.99959302, 0.99919838, 0.99844259, 0.99703109, & + 0.99449563, 0.99018627, 0.98334765, 0.97319114, 0.95870394, & + 0.93823278, 0.90932250, 0.86893308, 0.81409526, 0.74301666, & + 0.65632105/ data ((o2(ip,iw),iw=1,21), ip=15,15)/ & - -0.1788e-08, -0.3588e-08, -0.7244e-08, -0.1479e-07, -0.3083e-07, & - -0.6671e-07, -0.1497e-06, -0.3519e-06, -0.8607e-06, -0.2154e-05, & - -0.5364e-05, -0.1276e-04, -0.2785e-04, -0.5435e-04, -0.9573e-04, & - -0.1570e-03, -0.2455e-03, -0.3682e-03, -0.5253e-03, -0.7065e-03, & - -0.8938e-03/ + 0.2533E-08, 0.3725E-08, 0.3129E-08, 0.1341E-08, -0.3728E-08, & + -0.1729E-07, -0.5351E-07, -0.1544E-06, -0.4486E-06, -0.1302E-05, & + -0.3626E-05, -0.9383E-05, -0.2183E-04, -0.4468E-04, -0.8116E-04, & + -0.1357E-03, -0.2151E-03, -0.3261E-03, -0.4694E-03, -0.6373E-03, & + -0.8144E-03/ data ((o3(ip,iw),iw=1,21), ip=15,15)/ & - -0.1429e-10, -0.2843e-10, -0.5645e-10, -0.1115e-09, -0.2181e-09, & - -0.4200e-09, -0.7916e-09, -0.1460e-08, -0.2542e-08, -0.4168e-08, & - -0.6703e-08, -0.1215e-07, -0.2821e-07, -0.7073e-07, -0.1530e-06, & - -0.2791e-06, -0.4426e-06, -0.6027e-06, -0.6707e-06, -0.5591e-06, & - -0.2328e-06/ + 0.2395E-10, 0.2927E-10, 0.2927E-10, 0.2927E-10, 0.1197E-09, & + 0.2714E-09, 0.5508E-09, 0.1203E-08, 0.2517E-08, 0.5282E-08, & + 0.1044E-07, 0.1809E-07, 0.2306E-07, 0.1220E-07, -0.2683E-07, & + -0.9422E-07, -0.1775E-06, -0.2387E-06, -0.2106E-06, -0.3034E-07, & + 0.3374E-06/ data ((o1(ip,iw),iw=1,21), ip=16,16)/ & - 0.99999434, 0.99998778, 0.99997467, 0.99994761, 0.99989331, & - 0.99978602, 0.99957269, 0.99915779, 0.99835497, 0.99684399, & - 0.99408400, 0.98929000, 0.98148000, 0.96954000, 0.95212001, & - 0.92719001, 0.89170003, 0.84200001, 0.77420002, 0.68620002, & - 0.57780004/ + 0.99999440, 0.99998826, 0.99997556, 0.99994981, 0.99989820, & + 0.99979490, 0.99959117, 0.99919206, 0.99842268, 0.99696815, & + 0.99430782, 0.98967069, 0.98207790, 0.97045571, 0.95356220, & + 0.92959517, 0.89595246, 0.84949458, 0.78733349, 0.70822150, & + 0.61410975/ data ((o2(ip,iw),iw=1,21), ip=16,16)/ & - -0.2141e-08, -0.4286e-08, -0.8603e-08, -0.1737e-07, -0.3548e-07, & - -0.7410e-07, -0.1590e-06, -0.3537e-06, -0.8142e-06, -0.1935e-05, & - -0.4658e-05, -0.1099e-04, -0.2444e-04, -0.4948e-04, -0.9067e-04, & - -0.1538e-03, -0.2474e-03, -0.3793e-03, -0.5495e-03, -0.7439e-03, & - -0.9383e-03/ + 0.4172E-08, 0.4768E-08, 0.2533E-08, 0.1340E-08, -0.3131E-08, & + -0.1640E-07, -0.4278E-07, -0.1201E-06, -0.3446E-06, -0.9895E-06, & + -0.2778E-05, -0.7390E-05, -0.1798E-04, -0.3888E-04, -0.7454E-04, & + -0.1302E-03, -0.2137E-03, -0.3327E-03, -0.4884E-03, -0.6700E-03, & + -0.8551E-03/ data ((o3(ip,iw),iw=1,21), ip=16,16)/ & - -0.1295e-10, -0.2581e-10, -0.5136e-10, -0.1019e-09, -0.2011e-09, & - -0.3916e-09, -0.7585e-09, -0.1439e-08, -0.2648e-08, -0.4747e-08, & - -0.8301e-08, -0.1499e-07, -0.3024e-07, -0.6702e-07, -0.1399e-06, & - -0.2564e-06, -0.4117e-06, -0.5669e-06, -0.6239e-06, -0.4748e-06, & - -0.7013e-07/ + 0.2661E-10, 0.1064E-10, 0.2395E-10, 0.5056E-10, 0.1038E-09, & + 0.2608E-09, 0.5295E-09, 0.1139E-08, 0.2320E-08, 0.4689E-08, & + 0.9127E-08, 0.1625E-07, 0.2345E-07, 0.2114E-07, -0.3140E-08, & + -0.5377E-07, -0.1202E-06, -0.1666E-06, -0.1168E-06, 0.1124E-06, & + 0.5669E-06/ data ((o1(ip,iw),iw=1,21), ip=17,17)/ & - 0.99999434, 0.99998778, 0.99997479, 0.99994791, 0.99989331, & - 0.99978608, 0.99957120, 0.99915212, 0.99833500, 0.99677801, & - 0.99388403, 0.98873001, 0.98005998, 0.96639001, 0.94606000, & - 0.91689998, 0.87580001, 0.81889999, 0.74280000, 0.64559996, & - 0.52869999/ + 0.99999464, 0.99998838, 0.99997562, 0.99995005, 0.99989802, & + 0.99979442, 0.99958938, 0.99918658, 0.99840337, 0.99690610, & + 0.99411917, 0.98913842, 0.98071784, 0.96739835, 0.94761288, & + 0.91942477, 0.88021058, 0.82691038, 0.75699466, 0.67009914, & + 0.56980520/ data ((o2(ip,iw),iw=1,21), ip=17,17)/ & - -0.2400e-08, -0.4796e-08, -0.9599e-08, -0.1927e-07, -0.3892e-07, & - -0.7954e-07, -0.1661e-06, -0.3540e-06, -0.7780e-06, -0.1763e-05, & - -0.4092e-05, -0.9512e-05, -0.2142e-04, -0.4502e-04, -0.8640e-04, & - -0.1525e-03, -0.2526e-03, -0.3955e-03, -0.5805e-03, -0.7897e-03, & - -0.9899e-03/ + 0.3427E-08, 0.6109E-08, 0.3427E-08, 0.1042E-08, -0.2684E-08, & + -0.1327E-07, -0.3622E-07, -0.9673E-07, -0.2617E-06, -0.7404E-06, & + -0.2090E-05, -0.5699E-05, -0.1452E-04, -0.3342E-04, -0.6839E-04, & + -0.1260E-03, -0.2148E-03, -0.3436E-03, -0.5136E-03, -0.7104E-03, & + -0.9030E-03/ data ((o3(ip,iw),iw=1,21), ip=17,17)/ & - -0.1220e-10, -0.2432e-10, -0.4845e-10, -0.9640e-10, -0.1912e-09, & - -0.3771e-09, -0.7392e-09, -0.1420e-08, -0.2702e-08, -0.5049e-08, & - -0.9214e-08, -0.1659e-07, -0.3101e-07, -0.6162e-07, -0.1235e-06, & - -0.2287e-06, -0.3755e-06, -0.5274e-06, -0.5790e-06, -0.3947e-06, & - 0.1003e-06/ + 0.1863E-10, 0.2395E-10, 0.3459E-10, 0.6120E-10, 0.1171E-09, & + 0.2688E-09, 0.4869E-09, 0.1088E-08, 0.2225E-08, 0.4423E-08, & + 0.8651E-08, 0.1588E-07, 0.2586E-07, 0.3314E-07, 0.2578E-07, & + -0.4755E-08, -0.5304E-07, -0.8497E-07, -0.1866E-07, 0.2541E-06, & + 0.7976E-06/ data ((o1(ip,iw),iw=1,21), ip=18,18)/ & - 0.99999464, 0.99998808, 0.99997497, 0.99994791, 0.99989331, & - 0.99978518, 0.99957031, 0.99914658, 0.99831802, 0.99671799, & - 0.99370098, 0.98821002, 0.97867000, 0.96313000, 0.93948001, & - 0.90534002, 0.85769999, 0.79310000, 0.70840001, 0.60290003, & - 0.47930002/ + 0.99999475, 0.99998856, 0.99997580, 0.99995005, 0.99989790, & + 0.99979395, 0.99958789, 0.99918169, 0.99838680, 0.99685186, & + 0.99395061, 0.98864597, 0.97940272, 0.96428061, 0.94121426, & + 0.90808922, 0.86244535, 0.80163682, 0.72390091, 0.63013542, & + 0.52561903/ data ((o2(ip,iw),iw=1,21), ip=18,18)/ & - -0.2557e-08, -0.5106e-08, -0.1020e-07, -0.2043e-07, -0.4103e-07, & - -0.8293e-07, -0.1697e-06, -0.3531e-06, -0.7531e-06, -0.1645e-05, & - -0.3690e-05, -0.8411e-05, -0.1902e-04, -0.4118e-04, -0.8276e-04, & - -0.1525e-03, -0.2601e-03, -0.4147e-03, -0.6149e-03, -0.8384e-03, & - -0.1042e-02/ + 0.2682E-08, 0.5364E-08, 0.3724E-08, 0.1638E-08, -0.4174E-08, & + -0.1282E-07, -0.3234E-07, -0.7870E-07, -0.2052E-06, -0.5674E-06, & + -0.1589E-05, -0.4406E-05, -0.1168E-04, -0.2855E-04, -0.6259E-04, & + -0.1224E-03, -0.2174E-03, -0.3569E-03, -0.5417E-03, -0.7533E-03, & + -0.9517E-03/ data ((o3(ip,iw),iw=1,21), ip=18,18)/ & - -0.1189e-10, -0.2372e-10, -0.4729e-10, -0.9421e-10, -0.1873e-09, & - -0.3713e-09, -0.7317e-09, -0.1437e-08, -0.2764e-08, -0.5243e-08, & - -0.9691e-08, -0.1751e-07, -0.3122e-07, -0.5693e-07, -0.1076e-06, & - -0.1981e-06, -0.3324e-06, -0.4785e-06, -0.5280e-06, -0.3174e-06, & - 0.2672e-06/ + 0.3193E-10, 0.2129E-10, 0.6652E-10, 0.6120E-10, 0.1118E-09, & + 0.2235E-09, 0.4816E-09, 0.1134E-08, 0.2200E-08, 0.4356E-08, & + 0.8621E-08, 0.1642E-07, 0.2916E-07, 0.4549E-07, 0.5671E-07, & + 0.5038E-07, 0.2591E-07, 0.1114E-07, 0.8870E-07, 0.3902E-06, & + 0.1013E-05/ data ((o1(ip,iw),iw=1,21), ip=19,19)/ & - 0.99999464, 0.99998820, 0.99997509, 0.99994779, 0.99989331, & - 0.99978518, 0.99956989, 0.99914283, 0.99830401, 0.99667197, & - 0.99355298, 0.98776001, 0.97741997, 0.96007001, 0.93285000, & - 0.89310002, 0.83819997, 0.76520002, 0.67250001, 0.56000000, & - 0.43199998/ + 0.99999493, 0.99998879, 0.99997604, 0.99995005, 0.99989778, & + 0.99979347, 0.99958694, 0.99917805, 0.99837393, 0.99680883, & + 0.99381369, 0.98823392, 0.97825152, 0.96138662, 0.93487167, & + 0.89621651, 0.84331334, 0.77443409, 0.68916380, 0.59004080, & + 0.48375273/ data ((o2(ip,iw),iw=1,21), ip=19,19)/ & - -0.2630e-08, -0.5249e-08, -0.1048e-07, -0.2096e-07, -0.4198e-07, & - -0.8440e-07, -0.1710e-06, -0.3513e-06, -0.7326e-06, -0.1562e-05, & - -0.3416e-05, -0.7637e-05, -0.1719e-04, -0.3795e-04, -0.7926e-04, & - -0.1524e-03, -0.2680e-03, -0.4344e-03, -0.6486e-03, -0.8838e-03, & - -0.1089e-02/ + 0.4470E-08, 0.5364E-08, 0.5512E-08, 0.1936E-08, -0.3727E-08, & + -0.1058E-07, -0.3026E-07, -0.7021E-07, -0.1708E-06, -0.4531E-06, & + -0.1246E-05, -0.3476E-05, -0.9479E-05, -0.2433E-04, -0.5688E-04, & + -0.1184E-03, -0.2200E-03, -0.3705E-03, -0.5691E-03, -0.7929E-03, & + -0.9945E-03/ data ((o3(ip,iw),iw=1,21), ip=19,19)/ & - -0.1188e-10, -0.2369e-10, -0.4725e-10, -0.9417e-10, -0.1875e-09, & - -0.3725e-09, -0.7365e-09, -0.1445e-08, -0.2814e-08, -0.5384e-08, & - -0.1008e-07, -0.1816e-07, -0.3179e-07, -0.5453e-07, -0.9500e-07, & - -0.1679e-06, -0.2819e-06, -0.4109e-06, -0.4555e-06, -0.2283e-06, & - 0.4283e-06/ + 0.2129E-10, 0.1064E-10, 0.5056E-10, 0.5588E-10, 0.1038E-09, & + 0.2634E-09, 0.5242E-09, 0.1099E-08, 0.2214E-08, 0.4380E-08, & + 0.8696E-08, 0.1695E-07, 0.3202E-07, 0.5589E-07, 0.8540E-07, & + 0.1086E-06, 0.1166E-06, 0.1280E-06, 0.2163E-06, 0.5286E-06, & + 0.1204E-05/ data ((o1(ip,iw),iw=1,21), ip=20,20)/ & - 0.99999487, 0.99998832, 0.99997520, 0.99994791, 0.99989331, & - 0.99978459, 0.99956900, 0.99913990, 0.99829400, 0.99663699, & - 0.99344099, 0.98741001, 0.97643000, 0.95743001, 0.92672002, & - 0.88099998, 0.81809998, 0.73660004, 0.63620001, 0.51880002, & - 0.38880002/ + 0.99999505, 0.99998903, 0.99997604, 0.99994999, 0.99989754, & + 0.99979341, 0.99958634, 0.99917579, 0.99836481, 0.99677712, & + 0.99371070, 0.98791438, 0.97732371, 0.95892221, 0.92909217, & + 0.88464081, 0.82380420, 0.74640268, 0.65413809, 0.55151534, & + 0.44598198/ data ((o2(ip,iw),iw=1,21), ip=20,20)/ & - -0.2651e-08, -0.5291e-08, -0.1056e-07, -0.2110e-07, -0.4221e-07, & - -0.8462e-07, -0.1705e-06, -0.3466e-06, -0.7155e-06, -0.1501e-05, & - -0.3223e-05, -0.7079e-05, -0.1581e-04, -0.3517e-04, -0.7553e-04, & - -0.1510e-03, -0.2746e-03, -0.4528e-03, -0.6789e-03, -0.9214e-03, & - -0.1124e-02/ + 0.3129E-08, 0.6407E-08, 0.5512E-08, 0.2384E-08, -0.4174E-08, & + -0.1148E-07, -0.2981E-07, -0.6037E-07, -0.1497E-06, -0.3744E-06, & + -0.1013E-05, -0.2820E-05, -0.7808E-05, -0.2077E-04, -0.5122E-04, & + -0.1133E-03, -0.2212E-03, -0.3828E-03, -0.5935E-03, -0.8257E-03, & + -0.1027E-02/ data ((o3(ip,iw),iw=1,21), ip=20,20)/ & - -0.1193e-10, -0.2380e-10, -0.4748e-10, -0.9465e-10, -0.1886e-09, & - -0.3751e-09, -0.7436e-09, -0.1466e-08, -0.2872e-08, -0.5508e-08, & - -0.1038e-07, -0.1891e-07, -0.3279e-07, -0.5420e-07, -0.8711e-07, & - -0.1403e-06, -0.2248e-06, -0.3221e-06, -0.3459e-06, -0.1066e-06, & - 0.5938e-06/ + 0.2927E-10, 0.1330E-10, 0.5588E-10, 0.3193E-10, 0.6918E-10, & + 0.1996E-09, 0.5322E-09, 0.1051E-08, 0.2209E-08, 0.4444E-08, & + 0.8818E-08, 0.1753E-07, 0.3417E-07, 0.6380E-07, 0.1095E-06, & + 0.1649E-06, 0.2161E-06, 0.2661E-06, 0.3740E-06, 0.6873E-06, & + 0.1384E-05/ data ((o1(ip,iw),iw=1,21), ip=21,21)/ & - 0.99999487, 0.99998873, 0.99997509, 0.99994779, 0.99989349, & - 0.99978501, 0.99956918, 0.99913877, 0.99828798, 0.99661303, & - 0.99335998, 0.98715001, 0.97566003, 0.95530999, 0.92153001, & - 0.87000000, 0.79869998, 0.70819998, 0.60109997, 0.48110002, & - 0.35140002/ + 0.99999535, 0.99998903, 0.99997604, 0.99994993, 0.99989718, & + 0.99979323, 0.99958587, 0.99917406, 0.99835837, 0.99675494, & + 0.99363708, 0.98768157, 0.97662324, 0.95697355, 0.92423612, & + 0.87421501, 0.80518728, 0.71900427, 0.62041485, 0.51613665, & + 0.41349036/ data ((o2(ip,iw),iw=1,21), ip=21,21)/ & - -0.2654e-08, -0.5296e-08, -0.1057e-07, -0.2111e-07, -0.4219e-07, & - -0.8445e-07, -0.1696e-06, -0.3428e-06, -0.7013e-06, -0.1458e-05, & - -0.3084e-05, -0.6678e-05, -0.1476e-04, -0.3284e-04, -0.7173e-04, & - -0.1481e-03, -0.2786e-03, -0.4688e-03, -0.7052e-03, -0.9506e-03, & - -0.1148e-02/ + 0.3576E-08, 0.7152E-08, 0.6109E-08, 0.2533E-08, -0.4473E-08, & + -0.1520E-07, -0.2892E-07, -0.5843E-07, -0.1327E-06, -0.3234E-06, & + -0.8557E-06, -0.2359E-05, -0.6565E-05, -0.1786E-04, -0.4587E-04, & + -0.1070E-03, -0.2198E-03, -0.3928E-03, -0.6148E-03, -0.8513E-03, & + -0.1048E-02/ data ((o3(ip,iw),iw=1,21), ip=21,21)/ & - -0.1195e-10, -0.2384e-10, -0.4755e-10, -0.9482e-10, -0.1890e-09, & - -0.3761e-09, -0.7469e-09, -0.1476e-08, -0.2892e-08, -0.5603e-08, & - -0.1060e-07, -0.1942e-07, -0.3393e-07, -0.5508e-07, -0.8290e-07, & - -0.1182e-06, -0.1657e-06, -0.2170e-06, -0.1997e-06, 0.6227e-07, & - 0.7847e-06/ + 0.2129E-10, 0.3193E-10, 0.2395E-10, 0.2395E-10, 0.1171E-09, & + 0.2129E-09, 0.5375E-09, 0.1102E-08, 0.2246E-08, 0.4497E-08, & + 0.8896E-08, 0.1776E-07, 0.3551E-07, 0.6931E-07, 0.1280E-06, & + 0.2145E-06, 0.3150E-06, 0.4167E-06, 0.5573E-06, 0.8769E-06, & + 0.1580E-05/ data ((o1(ip,iw),iw=1,21), ip=22,22)/ & - 0.99999541, 0.99998873, 0.99997497, 0.99994737, 0.99989349, & - 0.99978501, 0.99956882, 0.99913770, 0.99828303, 0.99659699, & - 0.99330199, 0.98697001, 0.97510999, 0.95372999, 0.91742998, & - 0.86080003, 0.78139997, 0.68220001, 0.56920004, 0.44809997, & - 0.32080001/ + 0.99999571, 0.99998921, 0.99997592, 0.99994940, 0.99989718, & + 0.99979347, 0.99958587, 0.99917299, 0.99835443, 0.99674016, & + 0.99358666, 0.98751831, 0.97612083, 0.95552617, 0.92044622, & + 0.86556542, 0.78875232, 0.69391191, 0.58969289, 0.48527473, & + 0.38690841/ data ((o2(ip,iw),iw=1,21), ip=22,22)/ & - -0.2653e-08, -0.5295e-08, -0.1057e-07, -0.2110e-07, -0.4215e-07, & - -0.8430e-07, -0.1690e-06, -0.3403e-06, -0.6919e-06, -0.1427e-05, & - -0.2991e-05, -0.6399e-05, -0.1398e-04, -0.3099e-04, -0.6824e-04, & - -0.1441e-03, -0.2795e-03, -0.4814e-03, -0.7282e-03, -0.9739e-03, & - -0.1163e-02/ + 0.4768E-08, 0.7003E-08, 0.5960E-08, 0.3724E-08, -0.4770E-08, & + -0.1282E-07, -0.3115E-07, -0.5903E-07, -0.1242E-06, -0.2923E-06, & + -0.7493E-06, -0.2036E-05, -0.5660E-05, -0.1560E-04, -0.4121E-04, & + -0.1002E-03, -0.2157E-03, -0.3994E-03, -0.6334E-03, -0.8725E-03, & + -0.1062E-02/ data ((o3(ip,iw),iw=1,21), ip=22,22)/ & - -0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, & - -0.3765e-09, -0.7483e-09, -0.1481e-08, -0.2908e-08, -0.5660e-08, & - -0.1075e-07, -0.1980e-07, -0.3472e-07, -0.5626e-07, -0.8149e-07, & - -0.1027e-06, -0.1136e-06, -0.1071e-06, -0.2991e-07, 0.2743e-06, & - 0.1017e-05/ + -0.5322E-11, 0.3459E-10, 0.3725E-10, 0.6120E-10, 0.9047E-10, & + 0.1969E-09, 0.5029E-09, 0.1123E-08, 0.2259E-08, 0.4462E-08, & + 0.8922E-08, 0.1803E-07, 0.3644E-07, 0.7294E-07, 0.1409E-06, & + 0.2527E-06, 0.4028E-06, 0.5655E-06, 0.7534E-06, 0.1096E-05, & + 0.1807E-05/ data ((o1(ip,iw),iw=1,21), ip=23,23)/ & - 0.99999595, 0.99998885, 0.99997479, 0.99994725, 0.99989331, & - 0.99978518, 0.99956882, 0.99913692, 0.99827999, 0.99658602, & - 0.99326497, 0.98685002, 0.97474003, 0.95260000, 0.91441000, & - 0.85360003, 0.76719999, 0.65990001, 0.54190004, 0.42119998, & - 0.29699999/ + 0.99999624, 0.99998933, 0.99997568, 0.99994916, 0.99989706, & + 0.99979329, 0.99958593, 0.99917239, 0.99835163, 0.99673033, & + 0.99355358, 0.98740870, 0.97577649, 0.95450813, 0.91767871, & + 0.85892558, 0.77540523, 0.67262524, 0.56352603, 0.46000499, & + 0.36636806/ data ((o2(ip,iw),iw=1,21), ip=23,23)/ & - -0.2653e-08, -0.5294e-08, -0.1057e-07, -0.2109e-07, -0.4212e-07, & - -0.8420e-07, -0.1686e-06, -0.3388e-06, -0.6858e-06, -0.1406e-05, & - -0.2928e-05, -0.6206e-05, -0.1344e-04, -0.2961e-04, -0.6533e-04, & - -0.1399e-03, -0.2780e-03, -0.4904e-03, -0.7488e-03, -0.9953e-03, & - -0.1175e-02/ + 0.5514E-08, 0.5365E-08, 0.4618E-08, 0.3575E-08, -0.4324E-08, & + -0.1282E-07, -0.3026E-07, -0.5709E-07, -0.1179E-06, -0.2655E-06, & + -0.6794E-06, -0.1817E-05, -0.5025E-05, -0.1392E-04, -0.3743E-04, & + -0.9388E-04, -0.2100E-03, -0.4029E-03, -0.6501E-03, -0.8927E-03, & + -0.1073E-02/ data ((o3(ip,iw),iw=1,21), ip=23,23)/ & - -0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, & - -0.3767e-09, -0.7492e-09, -0.1485e-08, -0.2924e-08, -0.5671e-08, & - -0.1084e-07, -0.2009e-07, -0.3549e-07, -0.5773e-07, -0.8208e-07, & - -0.9394e-07, -0.7270e-07, -0.3947e-08, 0.1456e-06, 0.5083e-06, & - 0.1270e-05/ + -0.5056E-10, -0.5322E-11, 0.5056E-10, 0.4790E-10, 0.1144E-09, & + 0.2235E-09, 0.4817E-09, 0.1136E-08, 0.2281E-08, 0.4441E-08, & + 0.8898E-08, 0.1800E-07, 0.3685E-07, 0.7492E-07, 0.1487E-06, & + 0.2793E-06, 0.4734E-06, 0.7017E-06, 0.9491E-06, 0.1327E-05, & + 0.2047E-05/ data ((o1(ip,iw),iw=1,21), ip=24,24)/ & - 0.99999630, 0.99998873, 0.99997401, 0.99994725, 0.99989349, & - 0.99978501, 0.99956959, 0.99913663, 0.99827701, 0.99658000, & - 0.99324101, 0.98676997, 0.97447002, 0.95185000, 0.91232002, & - 0.84850001, 0.75660002, 0.64230001, 0.52030003, 0.40090001, & - 0.27980000/ + 0.99999648, 0.99998945, 0.99997538, 0.99994904, 0.99989724, & + 0.99979335, 0.99958575, 0.99917179, 0.99835020, 0.99672443, & + 0.99353158, 0.98733693, 0.97555012, 0.95382470, 0.91576988, & + 0.85417569, 0.76542622, 0.65605462, 0.54297459, 0.44087917, & + 0.35146344/ data ((o2(ip,iw),iw=1,21), ip=24,24)/ & - -0.2653e-08, -0.5294e-08, -0.1056e-07, -0.2109e-07, -0.4210e-07, & - -0.8413e-07, -0.1684e-06, -0.3379e-06, -0.6820e-06, -0.1393e-05, & - -0.2889e-05, -0.6080e-05, -0.1307e-04, -0.2861e-04, -0.6310e-04, & - -0.1363e-03, -0.2758e-03, -0.4969e-03, -0.7681e-03, -0.1017e-02, & - -0.1186e-02/ + 0.6259E-08, 0.8643E-08, 0.4023E-08, 0.1339E-08, -0.2982E-08, & + -0.1163E-07, -0.2937E-07, -0.5784E-07, -0.1134E-06, -0.2483E-06, & + -0.6303E-06, -0.1666E-05, -0.4587E-05, -0.1272E-04, -0.3461E-04, & + -0.8872E-04, -0.2046E-03, -0.4050E-03, -0.6660E-03, -0.9135E-03, & + -0.1084E-02/ data ((o3(ip,iw),iw=1,21), ip=24,24)/ & - -0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, & - -0.3768e-09, -0.7497e-09, -0.1487e-08, -0.2933e-08, -0.5710e-08, & - -0.1089e-07, -0.2037e-07, -0.3616e-07, -0.5907e-07, -0.8351e-07, & - -0.8925e-07, -0.4122e-07, 0.8779e-07, 0.3143e-06, 0.7281e-06, & - 0.1500e-05/ + -0.2129E-10, -0.2129E-10, 0.2927E-10, 0.8249E-10, 0.1118E-09, & + 0.1543E-09, 0.5242E-09, 0.1150E-08, 0.2238E-08, 0.4396E-08, & + 0.8975E-08, 0.1803E-07, 0.3697E-07, 0.7580E-07, 0.1534E-06, & + 0.2973E-06, 0.5271E-06, 0.8204E-06, 0.1131E-05, 0.1538E-05, & + 0.2256E-05/ data ((o1(ip,iw),iw=1,21), ip=25,25)/ & - 0.99999648, 0.99998897, 0.99997377, 0.99994749, 0.99989331, & - 0.99978501, 0.99956989, 0.99913692, 0.99827600, 0.99657297, & - 0.99322498, 0.98672003, 0.97431999, 0.95137000, 0.91095001, & - 0.84500003, 0.74909997, 0.62979996, 0.50510001, 0.38679999, & - 0.26789999/ + 0.99999648, 0.99998963, 0.99997491, 0.99994934, 0.99989718, & + 0.99979317, 0.99958575, 0.99917185, 0.99834859, 0.99672103, & + 0.99351835, 0.98729140, 0.97540486, 0.95338494, 0.91452152, & + 0.85099351, 0.75854135, 0.64429641, 0.52830541, 0.42760271, & + 0.34112751/ data ((o2(ip,iw),iw=1,21), ip=25,25)/ & - -0.2653e-08, -0.5293e-08, -0.1056e-07, -0.2108e-07, -0.4209e-07, & - -0.8409e-07, -0.1682e-06, -0.3373e-06, -0.6797e-06, -0.1383e-05, & - -0.2862e-05, -0.5993e-05, -0.1283e-04, -0.2795e-04, -0.6158e-04, & - -0.1338e-03, -0.2743e-03, -0.5030e-03, -0.7863e-03, -0.1038e-02, & - -0.1196e-02/ + 0.5811E-08, 0.1118E-07, 0.7442E-09, 0.1486E-09, -0.3876E-08, & + -0.1312E-07, -0.2877E-07, -0.5560E-07, -0.1114E-06, -0.2378E-06, & + -0.6010E-06, -0.1575E-05, -0.4310E-05, -0.1195E-04, -0.3275E-04, & + -0.8523E-04, -0.2009E-03, -0.4076E-03, -0.6813E-03, -0.9327E-03, & + -0.1091E-02/ data ((o3(ip,iw),iw=1,21), ip=25,25)/ & - -0.1195e-10, -0.2383e-10, -0.4755e-10, -0.9484e-10, -0.1891e-09, & - -0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2939e-08, -0.5741e-08, & - -0.1100e-07, -0.2066e-07, -0.3660e-07, -0.6002e-07, -0.8431e-07, & - -0.8556e-07, -0.1674e-07, 0.1638e-06, 0.4525e-06, 0.8949e-06, & - 0.1669e-05/ + 0.3991E-10, -0.5056E-10, 0.4524E-10, 0.1863E-10, 0.1064E-09, & + 0.1863E-09, 0.5349E-09, 0.1099E-08, 0.2334E-08, 0.4351E-08, & + 0.8887E-08, 0.1819E-07, 0.3731E-07, 0.7656E-07, 0.1566E-06, & + 0.3101E-06, 0.5681E-06, 0.9160E-06, 0.1278E-05, 0.1694E-05, & + 0.2405E-05/ data ((o1(ip,iw),iw=1,21), ip=26,26)/ & - 0.99999672, 0.99998909, 0.99997377, 0.99994695, 0.99989349, & - 0.99978518, 0.99956989, 0.99913692, 0.99827498, 0.99657100, & - 0.99321902, 0.98668998, 0.97421002, 0.95106000, 0.91009998, & - 0.84280002, 0.74430001, 0.62180001, 0.49519998, 0.37800002, & - 0.25999999/ + 0.99999672, 0.99998963, 0.99997467, 0.99994934, 0.99989712, & + 0.99979317, 0.99958575, 0.99917191, 0.99834746, 0.99671894, & + 0.99350989, 0.98726571, 0.97531629, 0.95311588, 0.91374940, & + 0.84899974, 0.75415814, 0.63668656, 0.51872611, 0.41882724, & + 0.33376986/ data ((o2(ip,iw),iw=1,21), ip=26,26)/ & - -0.2652e-08, -0.5292e-08, -0.1056e-07, -0.2108e-07, -0.4208e-07, & - -0.8406e-07, -0.1681e-06, -0.3369e-06, -0.6784e-06, -0.1378e-05, & - -0.2843e-05, -0.5944e-05, -0.1269e-04, -0.2759e-04, -0.6078e-04, & - -0.1326e-03, -0.2742e-03, -0.5088e-03, -0.8013e-03, -0.1054e-02, & - -0.1202e-02/ + 0.5960E-08, 0.1401E-07, -0.3428E-08, 0.4023E-08, -0.3429E-08, & + -0.1252E-07, -0.3011E-07, -0.5501E-07, -0.1039E-06, -0.2331E-06, & + -0.5801E-06, -0.1513E-05, -0.4143E-05, -0.1151E-04, -0.3169E-04, & + -0.8333E-04, -0.1993E-03, -0.4107E-03, -0.6933E-03, -0.9453E-03, & + -0.1093E-02/ data ((o3(ip,iw),iw=1,21), ip=26,26)/ & - -0.1194e-10, -0.2383e-10, -0.4754e-10, -0.9482e-10, -0.1891e-09, & - -0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2941e-08, -0.5752e-08, & - -0.1104e-07, -0.2069e-07, -0.3661e-07, -0.6012e-07, -0.8399e-07, & - -0.8183e-07, 0.1930e-08, 0.2167e-06, 0.5434e-06, 0.9990e-06, & - 0.1787e-05/ - -!xp -! allocate(pa(m,np)) -! allocate(dt(m,np)) -! allocate(sh2o(m,np+1)) -! allocate(swpre(m,np+1)) -! allocate(swtem(m,np+1)) -! allocate(sco3(m,np+1)) -! allocate(scopre(m,np+1)) -! allocate(scotem(m,np+1)) -! allocate(dh2o(m,np)) -! allocate(dcont(m,np)) -! allocate(dco2(m,np)) -! allocate(do3(m,np)) -! allocate(dn2o(m,np)) -! allocate(dch4(m,np)) -! allocate(df11(m,np)) -! allocate(df12(m,np)) -! allocate(df22(m,np)) -! allocate(th2o(m,6)) -! allocate(tcon(m,3)) -! allocate(tco2(m,6,2)) -! allocate(tn2o(m,4)) -! allocate(tch4(m,4)) -! allocate(tcom(m,6)) -! allocate(tf11(m)) -! allocate(tf12(m)) -! allocate(tf22(m)) -! allocate(h2oexp(m,np,6)) -! allocate(conexp(m,np,3)) -! allocate(co2exp(m,np,6,2)) -! allocate(n2oexp(m,np,4)) -! allocate(ch4exp(m,np,4)) -! allocate(comexp(m,np,6)) -! allocate(f11exp(m,np)) -! allocate(f12exp(m,np)) -! allocate(f22exp(m,np)) -! allocate(blayer(m,0:np+1)) -! allocate(blevel(m,np+1)) -! allocate(dblayr(m,np+1)) -! allocate(dbs(m)) -! allocate(dp(m,np)) -! allocate(cwp(m,np,3)) -! allocate(trant(m)) -! allocate(tranal(m)) -! allocate(transfc(m,np+1)) -! allocate(trantcr(m,np+1)) -! allocate(flxu(m,np+1)) -! allocate(flxd(m,np+1)) -! allocate(flcu(m,np+1)) -! allocate(flcd(m,np+1)) -! allocate(rflx(m,np+1)) -! allocate(rflc(m,np+1)) -! allocate(it(m)) -! allocate(im(m)) -! allocate(ib(m)) -! allocate(cldhi(m)) -! allocate(cldmd(m)) -! allocate(cldlw(m)) -! allocate(tcldlyr(m,np)) -! allocate(fclr(m)) -! allocate(taerlyr(m,np)) + 0.2129E-10, 0.5322E-11, 0.1863E-10, 0.1330E-10, 0.1091E-09, & + 0.1863E-09, 0.5588E-09, 0.1072E-08, 0.2328E-08, 0.4369E-08, & + 0.8930E-08, 0.1798E-07, 0.3744E-07, 0.7708E-07, 0.1592E-06, & + 0.3195E-06, 0.5962E-06, 0.9783E-06, 0.1370E-05, 0.1785E-05, & + 0.2503E-05/ + + + +! Start programming !-----compute layer pressure (pa) and layer temperature minus 250k (dt) - do k=1,np - do i=1,m - pa(i,k)=0.5*(pl(i,k)+pl(i,k+1)) - dt(i,k)=ta(i,k)-250.0 - enddo - enddo + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + pa(ic,k)=0.5*(pl(ic,k)+pl(ic,k+1)) + dt(ic,k)=ta(ic,k)-250.0 + ENDDO + enddo !-----compute layer absorber amount ! dh2o : water vapor amount (g/cm**2) @@ -8333,73 +10404,72 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! factors 789 and 476 are for unit conversion ! the factor 0.001618 is equal to 1.02/(.622*1013.25) ! the factor 6.081 is equal to 1800/296 - do k=1,np - do i=1,m - dp (i,k) = pl(i,k+1)-pl(i,k) - dh2o (i,k) = 1.02*wa(i,k)*dp(i,k)+1.e-10 - do3 (i,k) = 476.*oa(i,k)*dp(i,k)+1.e-10 - dco2 (i,k) = 789.*co2*dp(i,k)+1.e-10 - dch4 (i,k) = 789.*ch4*dp(i,k)+1.e-10 - dn2o (i,k) = 789.*n2o*dp(i,k)+1.e-10 - df11 (i,k) = 789.*cfc11*dp(i,k)+1.e-10 - df12 (i,k) = 789.*cfc12*dp(i,k)+1.e-10 - df22 (i,k) = 789.*cfc22*dp(i,k)+1.e-10 + do k=1,np +!dir$ vector aligned + DO ic=1,irestrict + +!old +! dp (ic,k) = pl(ic,k+1)-pl(ic,k) +! dh2o (ic,k) = 1.02*wa(ic,k)*dp(ic,k)+1.e-10 +! do3 (ic,k) = 476.*oa(ic,k)*dp(ic,k)+1.e-10 +! dco2 (ic,k) = 789.*co2*dp(ic,k)+1.e-10 +! dch4 (ic,k) = 789.*ch4*dp(ic,k)+1.e-10 +! dn2o (ic,k) = 789.*n2o*dp(ic,k)+1.e-10 +! df11 (ic,k) = 789.*cfc11*dp(ic,k)+1.e-10 +! df12 (ic,k) = 789.*cfc12*dp(ic,k)+1.e-10 +! df22 (ic,k) = 789.*cfc22*dp(ic,k)+1.e-10 +!new + dp (ic,k) = pl(ic,k+1)-pl(ic,k) + dh2o (ic,k) = 1.02*wa(ic,k)*dp(ic,k) + dh2o (ic,k) = max(dh2o (ic,k),1.e-30) + do3 (ic,k) = 476.*oa(ic,k)*dp(ic,k) + do3 (ic,k) = max(do3 (ic,k),1.e-30) + dco2 (ic,k) = 789.*co2*dp(ic,k) + dco2 (ic,k) = max(dco2 (ic,k),1.e-30) + dch4 (ic,k) = 789.*ch4*dp(ic,k) + dn2o (ic,k) = 789.*n2o*dp(ic,k) + df11 (ic,k) = 789.*cfc11*dp(ic,k) + df12 (ic,k) = 789.*cfc12*dp(ic,k) + df22 (ic,k) = 789.*cfc22*dp(ic,k) + !-----compute scaled water vapor amount for h2o continuum absorption ! following eq. (4.21). - xx=pa(i,k)*0.001618*wa(i,k)*wa(i,k)*dp(i,k) - dcont(i,k) = xx*exp(1800./ta(i,k)-6.081)+1.e-10 - enddo - enddo + xx=pa(ic,k)*0.001618*wa(ic,k)*wa(ic,k)*dp(ic,k) + dcont(ic,k) = xx*exp(1800./ta(ic,k)-6.081)+1.e-10 + ENDDO + enddo !-----compute column-integrated h2o amoumt (sh2o), h2o-weighted pressure ! (swpre) and temperature (swtem). it follows eqs. (4.13) and (4.14). - if (high) then - call column(m,np,pa,dt,dh2o,sh2o,swpre,swtem) - endif - -!-----compute layer cloud water amount (gm/m**2) -! index is 1 for ice, 2 for waterdrops and 3 for raindrops. - - if (cldwater) then - do k=1,np - do i=1,m - xx=1.02*10000.*(pl(i,k+1)-pl(i,k)) - cwp(i,k,1)=xx*cwc(i,k,1) - cwp(i,k,2)=xx*cwc(i,k,2) - cwp(i,k,3)=xx*cwc(i,k,3) - enddo - enddo - endif + if (high) then + call column(np,pa,dt,dh2o,sh2o,swpre,swtem,irestrict) + endif !-----the surface (np+1) is treated as a layer filled with black clouds. ! transfc is the transmttance between the surface and a pressure level. ! trantcr is the clear-sky transmttance between the surface and a ! pressure level. - do i=1,m - sfcem(i) =0.0 - transfc(i,np+1)=1.0 - trantcr(i,np+1)=1.0 - enddo - -!-----initialize fluxes - - do k=1,np+1 - do i=1,m - flx(i,k) = 0.0 - flc(i,k) = 0.0 - dfdts(i,k)= 0.0 - rflx(i,k) = 0.0 - rflc(i,k) = 0.0 - acflxu(i,k) = 0.0 - acflxd(i,k) = 0.0 - enddo - enddo - +!dir$ vector aligned + DO ic=1,irestrict + sfcem(ic) =0.e0 + transfc(ic,np+1)=1.e0 + trantcr(ic,np+1)=1.e0 + +!- ----initialize fluxes + flx(ic,:) = 0.e0 + flc(ic,:) = 0.e0 + dfdts(ic,:)= 0.e0 + rflx(ic,:) = 0.e0 + rflc(ic,:) = 0.e0 + acflxu(ic,:) = 0.e0 + acflxd(ic,:) = 0.e0 + ENDDO !-----integration over spectral bands - do 1000 ibn=1,ib_lw + BAND_LOOP: do ibn=1,nband_lw +! Assign logical parameters !-----if h2otbl, compute h2o (line) transmittance using table look-up. ! if conbnd, compute h2o (continuum) transmittance in bands 3-7. ! if co2bnd, compute co2 transmittance in band 3. @@ -8411,168 +10481,144 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! if f12bnd, compute cfc12 transmittance in bands 4 and 6. ! if f22bnd, compute cfc22 transmittance in bands 4 and 6. ! if b10bnd, compute flux reduction due to n2o in band 10. - h2otbl=high.and.(ibn.eq.1.or.ibn.eq.2.or.ibn.eq.8) - conbnd=ibn.ge.3.and.ibn.le.7 - co2bnd=ibn.eq.3 - oznbnd=ibn.eq.5 - n2obnd=ibn.eq.6.or.ibn.eq.7 - ch4bnd=ibn.eq.6.or.ibn.eq.7 - combnd=ibn.eq.4.or.ibn.eq.5 - f11bnd=ibn.eq.4.or.ibn.eq.5 - f12bnd=ibn.eq.4.or.ibn.eq.6 - f22bnd=ibn.eq.4.or.ibn.eq.6 - b10bnd=ibn.eq.10 - if (.not. b10bnd .or. trace) then ! skip b10 and .not.trace + h2otbl=high.and.(ibn.eq.1.or.ibn.eq.2.or.ibn.eq.8) + conbnd=ibn.ge.3.and.ibn.le.7 + co2bnd=ibn.eq.3 + oznbnd=ibn.eq.5 + n2obnd=ibn.eq.6.or.ibn.eq.7 + ch4bnd=ibn.eq.6.or.ibn.eq.7 + combnd=ibn.eq.4.or.ibn.eq.5 + f11bnd=ibn.eq.4.or.ibn.eq.5 + f12bnd=ibn.eq.4.or.ibn.eq.6 + f22bnd=ibn.eq.4.or.ibn.eq.6 + b10bnd=ibn.eq.10 + + if (.not. b10bnd .or. trace) then ! skip b10 and .not.trace !-----blayer is the spectrally integrated planck flux of the mean layer ! temperature derived from eq. (3.11) ! the fitting for the planck flux is valid for the range 160-345 k. do k=1,np - do i=1,m - blayer(i,k)=ta(i,k)*(ta(i,k)*(ta(i,k)*(ta(i,k) & - *(ta(i,k)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) & +!dir$ vector aligned + DO ic=1,irestrict + blayer(ic,k)=ta(ic,k)*(ta(ic,k)*(ta(ic,k)*(ta(ic,k) & + *(ta(ic,k)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) & +cb(3,ibn))+cb(2,ibn))+cb(1,ibn) - enddo + ENDDO enddo - do i=1,m !-----the earth's surface, with index "np+1", is treated as a layer. ! index "0" is the layer above the top of the atmosphere. - blayer(i,np+1)=(ts(i)*(ts(i)*(ts(i)*(ts(i) & - *(ts(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) & - +cb(3,ibn))+cb(2,ibn))+cb(1,ibn))*emiss(i,ibn) - blayer(i,0) = 0.0 +!dir$ vector aligned + DO ic=1,irestrict + blayer(ic,np+1)=(ts(ic)*(ts(ic)*(ts(ic)*(ts(ic) & + *(ts(ic)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) & + +cb(3,ibn))+cb(2,ibn))+cb(1,ibn))*emiss(ic,ibn) !surface skin + blayer(ic,0) = 0.0 !-----dbs is the derivative of the surface emission with respect to ! surface temperature eq. (3.12). - dbs(i)=(ts(i)*(ts(i)*(ts(i)*(ts(i)*5.*cb(6,ibn)+4.*cb(5,ibn)) & - +3.*cb(4,ibn))+2.*cb(3,ibn))+cb(2,ibn))*emiss(i,ibn) - enddo + dbs(ic)=(ts(ic)*(ts(ic)*(ts(ic)*(ts(ic)*5.*cb(6,ibn)+4.*cb(5,ibn)) & + +3.*cb(4,ibn))+2.*cb(3,ibn))+cb(2,ibn))*emiss(ic,ibn) !surface skin + ENDDO !-----difference in planck functions between adjacent layers. do k=1,np+1 - do i=1,m - dblayr(i,k)=blayer(i,k-1)-blayer(i,k) - enddo +!dir$ vector aligned + DO ic=1,irestrict + dblayr(ic,k)=blayer(ic,k-1)-blayer(ic,k) + ENDDO enddo !------interpolate planck function at model levels do k=2,np - do i=1,m - blevel(i,k)=(blayer(i,k-1)*dp(i,k)+blayer(i,k)*dp(i,k-1))/ & - (dp(i,k-1)+dp(i,k)) - enddo - enddo - do i=1,m - blevel(i,1)=blayer(i,1)+(blayer(i,1)-blayer(i,2))*dp(i,1)/ & - (dp(i,1)+dp(i,2)) - blevel(i,np+1)=tb(i)*(tb(i)*(tb(i)*(tb(i) & - *(tb(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) & - +cb(3,ibn))+cb(2,ibn))+cb(1,ibn) +!dir$ vector aligned + DO ic=1,irestrict + blevel(ic,k)=(blayer(ic,k-1)*dp(ic,k)+blayer(ic,k)*dp(ic,k-1))/ & + (dp(ic,k-1)+dp(ic,k)) + ENDDO enddo - +!dir$ vector aligned + DO ic=1,irestrict + blevel(ic,1)=blayer(ic,1)+(blayer(ic,1)-blayer(ic,2))*dp(ic,1)/ & + (dp(ic,1)+dp(ic,2)) !TOA + blevel(ic,np+1)=tb(ic)*(tb(ic)*(tb(ic)*(tb(ic) & + *(tb(ic)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) & + +cb(3,ibn))+cb(2,ibn))+cb(1,ibn) !surface air + ENDDO !-----compute column-integrated absorber amoumt, absorber-weighted ! pressure and temperature for co2 (band 3) and o3 (band 5). ! it follows eqs. (4.13) and (4.14). !-----this is in the band loop to save storage if (high .and. co2bnd) then - call column(m,np,pa,dt,dco2,sco3,scopre,scotem) + call column(np,pa,dt,dco2,sco3,scopre,scotem,irestrict) endif if (oznbnd) then - call column(m,np,pa,dt,do3,sco3,scopre,scotem) - endif - -!-----compute cloud optical thickness following eqs. (6.4a,b) and (6.7) -! rain optical thickness is set to 0.00307 /(gm/m**2). -! it is for a specific drop size distribution provided by q. fu. - - if (cldwater) then - do k=1,np - do i=1,m - taucl(i,k,1)=cwp(i,k,1)*(aib(1,ibn)+aib(2,ibn)/ & - reff(i,k,1)**aib(3,ibn)) - taucl(i,k,2)=cwp(i,k,2)*(awb(1,ibn)+(awb(2,ibn)+ & - (awb(3,ibn)+awb(4,ibn)*reff(i,k,2))*reff(i,k,2)) & - *reff(i,k,2)) - taucl(i,k,3)=0.00307*cwp(i,k,3) - enddo - enddo + call column(np,pa,dt,do3,sco3,scopre,scotem,irestrict) endif -!-----compute cloud single-scattering albedo and asymmetry factor for -! a mixture of ice particles and liquid drops following -! eqs. (6.5), (6.6), (6.11) and (6.12). -! single-scattering albedo and asymmetry factor of rain are set -! to 0.54 and 0.95, respectively, based on the information provided -! by prof. qiang fu. +! +! New single scatter properties was derived from G-SDSU. +! do k=1,np - do i=1,m - tcldlyr(i,k) = 1.0 - taux=taucl(i,k,1)+taucl(i,k,2)+taucl(i,k,3) - if (taux.gt.0.02 .and. fcld(i,k).gt.0.01) then - reff1=min(reff(i,k,1),150._fp_kind) - reff2=min(reff(i,k,2),20.0_fp_kind) - w1=taucl(i,k,1)*(aiw(1,ibn)+(aiw(2,ibn)+(aiw(3,ibn) & - +aiw(4,ibn)*reff1)*reff1)*reff1) - w2=taucl(i,k,2)*(aww(1,ibn)+(aww(2,ibn)+(aww(3,ibn) & - +aww(4,ibn)*reff2)*reff2)*reff2) - w3=taucl(i,k,3)*0.54 - ww=(w1+w2+w3)/taux - g1=w1*(aig(1,ibn)+(aig(2,ibn)+(aig(3,ibn) & - +aig(4,ibn)*reff1)*reff1)*reff1) - g2=w2*(awg(1,ibn)+(awg(2,ibn)+(awg(3,ibn) & - +awg(4,ibn)*reff2)*reff2)*reff2) - g3=w3*0.95 - gg=(g1+g2+g3)/(w1+w2+w3) +!dir$ vector aligned + DO ic=1,irestrict + tcldlyr(ic,k) = 1.0 + taux=taucl(ic,k,ibn) ! condensate optical depths + if (taux.gt.taux_min .and. fcld(ic,k).gt.fcld_min) then !pppp + ww=ssaal(ic,k,ibn) ! single-scattering albedo + gg=asyal(ic,k,ibn) ! asymetry parameter !-----parameterization of lw scattering following eqs. (6.8) and (6.9). - ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg - taux=taux*(1.-ww*ff) + ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg + taux=taux*(1.-ww*ff) !-----compute cloud diffuse transmittance. it is approximated by using ! a diffusivity factor of 1.66. - tauxa=max(0._fp_kind,1.66*taux) - tcldlyr(i,k)=0. - if(tauxa.lt.80.)tcldlyr(i,k)=exp(-tauxa) - endif - enddo - enddo + tauxa=max(0.,1.66*taux) + tcldlyr(ic,k)=0. + if(tauxa.lt.80.) tcldlyr(ic,k)=exp(-tauxa) + endif + ENDDO + enddo + !-----for aerosol diffuse transmittance ! the same scaling of cloud optical thickness is applied to aerosols do k=1,np - do i=1,m - taerlyr(i,k)=1.0 - if (taual(i,k,ibn).gt.0.01) then - ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,k,ibn)) & - *asyal(i,k,ibn))*asyal(i,k,ibn) - taux=taual(i,k,ibn)*(1.-ssaal(i,k,ibn)*ff) - taerlyr(i,k)=exp(-1.66*taux) +!dir$ vector aligned + DO ic=1,irestrict + taerlyr(ic,k)=1.0 + if (taual(ic,k,ibn).gt.0.01) then + ff=0.5+(0.3739+(0.0076+0.1185*asyal(ic,k,ibn)) & + *asyal(ic,k,ibn))*asyal(ic,k,ibn) + taux=taual(ic,k,ibn)*(1.-ssaal(ic,k,ibn)*ff) + taerlyr(ic,k)=exp(-1.66*taux) endif - enddo - enddo + ENDDO + enddo !-----compute the exponential terms (eq. 8.18) at each layer due to ! water vapor line absorption when k-distribution is used if (.not.h2otbl .and. .not.b10bnd) then - call h2oexps(ibn,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) + call h2oexps(ibn,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp,irestrict) endif !-----compute the exponential terms (eq. 8.18) at each layer due to ! water vapor continuum absorption if (conbnd) then - call conexps(ibn,m,np,dcont,xke,conexp) + call conexps(ibn,np,dcont,xke,conexp,irestrict) endif !-----compute the exponential terms (eq. 8.18) at each layer due to ! co2 absorption if (.not.high .and. co2bnd) then - call co2exps(m,np,dco2,pa,dt,co2exp) + call co2exps(np,dco2,pa,dt,co2exp,irestrict) endif !***** for trace gases ***** if (trace) then !-----compute the exponential terms at each layer due to n2o absorption if (n2obnd) then - call n2oexps(ibn,m,np,dn2o,pa,dt,n2oexp) + call n2oexps(ibn,np,dn2o,pa,dt,n2oexp,irestrict) endif !-----compute the exponential terms at each layer due to ch4 absorption if (ch4bnd) then - call ch4exps(ibn,m,np,dch4,pa,dt,ch4exp) + call ch4exps(ibn,np,dch4,pa,dt,ch4exp,irestrict) endif !-----compute the exponential terms due to co2 minor absorption if (combnd) then - call comexps(ibn,m,np,dco2,dt,comexp) + call comexps(ibn,np,dco2,dt,comexp,irestrict) endif !-----compute the exponential terms due to cfc11 absorption. ! the values of the parameters are given in table 7. @@ -8583,7 +10629,7 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & a2 = 8.19370e-4 b2 = 4.67810e-6 fk2 = 1.01487e+1 - call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp) + call cfcexps(ibn,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp,irestrict) endif !-----compute the exponential terms due to cfc12 absorption. if (f12bnd) then @@ -8593,7 +10639,7 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & a2 = 8.62000e-4 b2 =-4.22500e-6 fk2 = 3.70107e+1 - call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp) + call cfcexps(ibn,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp,irestrict) endif !-----compute the exponential terms due to cfc22 absorption. if (f22bnd) then @@ -8603,26 +10649,29 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & a2 =-3.00010e-5 b2 = 5.25010e-7 fk2 = 3.27912e+1 - call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp) + call cfcexps(ibn,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp,irestrict) endif !-----compute the exponential terms at each layer in band 10 due to ! h2o line and continuum, co2, and n2o absorption if (b10bnd) then - call b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt & - ,h2oexp,conexp,co2exp,n2oexp) + call b10exps(np,dh2o,dcont,dco2,dn2o,pa,dt & + ,h2oexp,conexp,co2exp,n2oexp,irestrict) endif endif !-----compute transmittances for regions between levels k1 and k2 ! and update fluxes at the two levels. !-----initialize fluxes do k=1,np+1 - do i=1,m - flxu(i,k) = 0.0 - flxd(i,k) = 0.0 - flcu(i,k) = 0.0 - flcd(i,k) = 0.0 - enddo +!dir$ vector aligned + DO ic=1,irestrict + flxu(ic,k) = 0.0 + flxd(ic,k) = 0.0 + flcu(ic,k) = 0.0 + flcd(ic,k) = 0.0 + ENDDO enddo + + do 2000 k1=1,np !-----initialization ! @@ -8631,28 +10680,22 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & ! cldlw, cldmd, and cldhi are the equivalent black-cloud fractions ! of low, middle, and high troposphere. ! tranal is the aerosol transmission function - do i=1,m - it(i) = 0 - im(i) = 0 - ib(i) = 0 - cldlw(i) = 0.0 - cldmd(i) = 0.0 - cldhi(i) = 0.0 - tranal(i)= 1.0 - enddo + it = 0 + im = 0 + ib = 0 + cldlw(1:irestrict) = 0.0 + cldmd(1:irestrict) = 0.0 + cldhi(1:irestrict) = 0.0 + tranal(1:irestrict)= 1.0 !-----for h2o line transmission if (.not. h2otbl) then do ik=1,6 - do i=1,m - th2o(i,ik)=1.0 - enddo + th2o(1:irestrict,ik)=1.0 enddo endif !-----for h2o continuum transmission do iq=1,3 - do i=1,m - tcon(i,iq)=1.0 - enddo + tcon(1:irestrict,iq)=1.0 enddo !-----for co2 transmission using k-distribution method. ! band 3 is divided into 3 sub-bands, but sub-bands 3a and 3c @@ -8660,9 +10703,7 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & if (.not.high .and. co2bnd) then do isb=1,2 do ik=1,6 - do i=1,m - tco2(i,ik,isb)=1.0 - enddo + tco2(1:irestrict,ik,isb)=1.0 enddo enddo endif @@ -8671,77 +10712,55 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & !-----for n2o transmission using k-distribution method. if (n2obnd) then do ik=1,4 - do i=1,m - tn2o(i,ik)=1.0 - enddo + tn2o(1:irestrict,ik)=1.0 enddo endif !-----for ch4 transmission using k-distribution method. if (ch4bnd) then do ik=1,4 - do i=1,m - tch4(i,ik)=1.0 - enddo + tch4(1:irestrict,ik)=1.0 enddo endif !-----for co2-minor transmission using k-distribution method. if (combnd) then do ik=1,6 - do i=1,m - tcom(i,ik)=1.0 - enddo + tcom(1:irestrict,ik)=1.0 enddo endif !-----for cfc-11 transmission using k-distribution method. if (f11bnd) then - do i=1,m - tf11(i)=1.0 - enddo + tf11(1:irestrict)=1.0 endif !-----for cfc-12 transmission using k-distribution method. if (f12bnd) then - do i=1,m - tf12(i)=1.0 - enddo + tf12(1:irestrict)=1.0 endif !-----for cfc-22 transmission when using k-distribution method. if (f22bnd) then - do i=1,m - tf22(i)=1.0 - enddo + tf22(1:irestrict)=1.0 endif !-----for the transmission in band 10 using k-distribution method. if (b10bnd) then do ik=1,5 - do i=1,m - th2o(i,ik)=1.0 - enddo + th2o(1:irestrict,ik)=1.0 enddo do ik=1,6 - do i=1,m - tco2(i,ik,1)=1.0 - enddo - enddo - do i=1,m - tcon(i,1)=1.0 + tco2(1:irestrict,ik,1)=1.0 enddo + tcon(1:irestrict,1)=1.0 do ik=1,2 - do i=1,m - tn2o(i,ik)=1.0 - enddo + tn2o(1:irestrict,ik)=1.0 enddo endif endif !***** end trace gases ***** - do i=1,m - fclr(i)=1.0 - enddo + fclr(1:irestrict)=1.0 !-----loop over the bottom level of the region (k2) do 3000 k2=k1+1,np+1 + + !-----trant is the total transmittance between levels k1 and k2. - do i=1,m - trant(i)=1.0 - enddo + trant(1:irestrict)=1.0 if (h2otbl) then !-----compute water vapor transmittance using table look-up. ! the following values are taken from table 8. @@ -8750,24 +10769,27 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & dwe=0.3 dpe=0.2 if (ibn.eq.1) then - call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, & - w1,p1,dwe,dpe,h11,h12,h13,trant) + call tablup(k1,k2,np,nx2,nh,sh2o,swpre,swtem, & + w1,p1,dwe,dpe,h11,h12,h13,trant,irestrict) endif if (ibn.eq.2) then - call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, & - w1,p1,dwe,dpe,h21,h22,h23,trant) + call tablup(k1,k2,np,nx2,nh,sh2o,swpre,swtem, & + w1,p1,dwe,dpe,h21,h22,h23,trant,irestrict) endif if (ibn.eq.8) then - call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, & - w1,p1,dwe,dpe,h81,h82,h83,trant) + call tablup(k1,k2,np,nx2,nh,sh2o,swpre,swtem, & + w1,p1,dwe,dpe,h81,h82,h83,trant,irestrict) endif + else !-----compute water vapor transmittance using k-distribution if (.not.b10bnd) then - call h2okdis(ibn,m,np,k2-1,fkw,gkw,ne,h2oexp,conexp, & - th2o,tcon,trant) + call h2okdis(ibn,np,k2-1,fkw,gkw,ne,h2oexp,conexp, & + th2o,tcon,trant,irestrict) endif + endif + if (co2bnd) then if (high) then !-----compute co2 transmittance using table look-up method. @@ -8776,246 +10798,209 @@ subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & p1=-2.0 dwe=0.3 dpe=0.2 - call tablup(k1,k2,m,np,nx2,nc,sco3,scopre,scotem, & - w1,p1,dwe,dpe,c1,c2,c3,trant) + call tablup(k1,k2,np,nx2,nc,sco3,scopre,scotem, & + w1,p1,dwe,dpe,c1,c2,c3,trant,irestrict) else !-----compute co2 transmittance using k-distribution method - call co2kdis(m,np,k2-1,co2exp,tco2,trant) + call co2kdis(np,k2-1,co2exp,tco2,trant,irestrict) endif endif !-----always use table look-up to compute o3 transmittance. ! the following values are taken from table 8. + if (oznbnd) then w1=-6.0 p1=-2.0 dwe=0.3 dpe=0.2 - call tablup(k1,k2,m,np,nx2,no,sco3,scopre,scotem, & - w1,p1,dwe,dpe,o1,o2,o3,trant) + call tablup(k1,k2,np,nx2,no,sco3,scopre,scotem, & + w1,p1,dwe,dpe,o1,o2,o3,trant,irestrict) endif + + !***** for trace gases ***** if (trace) then !-----compute n2o transmittance using k-distribution method if (n2obnd) then - call n2okdis(ibn,m,np,k2-1,n2oexp,tn2o,trant) + call n2okdis(ibn,np,k2-1,n2oexp,tn2o,trant,irestrict) endif !-----compute ch4 transmittance using k-distribution method if (ch4bnd) then - call ch4kdis(ibn,m,np,k2-1,ch4exp,tch4,trant) + call ch4kdis(ibn,np,k2-1,ch4exp,tch4,trant,irestrict) endif !-----compute co2-minor transmittance using k-distribution method if (combnd) then - call comkdis(ibn,m,np,k2-1,comexp,tcom,trant) + call comkdis(ibn,np,k2-1,comexp,tcom,trant,irestrict) endif !-----compute cfc11 transmittance using k-distribution method if (f11bnd) then - call cfckdis(m,np,k2-1,f11exp,tf11,trant) + call cfckdis(np,k2-1,f11exp,tf11,trant,irestrict) endif !-----compute cfc12 transmittance using k-distribution method if (f12bnd) then - call cfckdis(m,np,k2-1,f12exp,tf12,trant) + call cfckdis(np,k2-1,f12exp,tf12,trant,irestrict) endif !-----compute cfc22 transmittance using k-distribution method if (f22bnd) then - call cfckdis(m,np,k2-1,f22exp,tf22,trant) + call cfckdis(np,k2-1,f22exp,tf22,trant,irestrict) endif !-----compute transmittance in band 10 using k-distribution method. ! for band 10, trant is the change in transmittance due to n2o ! absorption. if (b10bnd) then - call b10kdis(m,np,k2-1,h2oexp,conexp,co2exp,n2oexp & - ,th2o,tcon,tco2,tn2o,trant) + call b10kdis(np,k2-1,h2oexp,conexp,co2exp,n2oexp & + ,th2o,tcon,tco2,tn2o,trant,irestrict) endif endif !***** end trace gases ***** !-----include aerosol effect - do i=1,m - tranal(i)=tranal(i)*taerlyr(i,k2-1) - trant (i)=trant(i) *tranal(i) - enddo +!dir$ vector aligned + DO ic=1,irestrict + tranal(ic)=tranal(ic)*taerlyr(ic,k2-1) + trant(ic) =trant(ic) *tranal(ic) + ENDDO !***** cloud overlapping ***** if (.not. overcast) then - call cldovlp (m,np,k2,ict,icb,it,im,ib, & - cldhi,cldmd,cldlw,fcld,tcldlyr,fclr) +!dir$ vector aligned + DO ic=1,irestrict + call cldovlp (np,k2,ict,icb,it,im,ib, & + cldhi,cldmd,cldlw,fcld,tcldlyr,fclr,irestrict) + ENDDO else - do i=1,m - fclr(i)=fclr(i)*tcldlyr(i,k2-1) - enddo +!dir$ vector aligned + DO ic=1,irestrict + fclr(ic)=fclr(ic)*tcldlyr(ic,k2-1) + ENDDO endif !-----compute upward and downward fluxes (bands 1-9). it follows ! eqs. (8.14) and (8.15). downward fluxes are positive. if (.not. b10bnd) then !-----contribution from the "adjacent layer" if (k2 .eq. k1+1) then - do i=1,m - yy=min(0.999_fp_kind,trant(i)) - yy=max(0.001_fp_kind,yy) +!dir$ vector aligned + DO ic=1,irestrict + yy=min(0.999,trant(ic)) + yy=max(0.001,yy) !-hmhj use log instead of alog for default intrinsic function - xx=(blevel(i,k1)-blevel(i,k2))/ log(yy) - bu=(blevel(i,k1)-blevel(i,k2)*yy)/(1.0-yy)+xx - bd=(blevel(i,k2)-blevel(i,k1)*yy)/(1.0-yy)-xx -! bu=blayer(i,k1) -! bd=blayer(i,k1) + xx=(blevel(ic,k1)-blevel(ic,k2))/ log(yy) + bu=(blevel(ic,k1)-blevel(ic,k2)*yy)/(1.0-yy)+xx + bd=(blevel(ic,k2)-blevel(ic,k1)*yy)/(1.0-yy)-xx +! bu=blayer(ic,k1) +! bd=blayer(ic,k1) !-----for clear-sky situation - flcu(i,k1)=flcu(i,k1)-bu+(bu-blayer(i,k2))*trant(i) - flcd(i,k2)=flcd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i) + flcu(ic,k1)=flcu(ic,k1)-bu+(bu-blayer(ic,k2))*trant(ic) + flcd(ic,k2)=flcd(ic,k2)+bd-(bd-blayer(ic,k1-1))*trant(ic) !-----for all-sky situation - flxu(i,k1)=flxu(i,k1)-bu+(bu-blayer(i,k2))*trant(i)*fclr(i) - flxd(i,k2)=flxd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i)*fclr(i) - enddo + flxu(ic,k1)=flxu(ic,k1)-bu+(bu-blayer(ic,k2))*trant(ic)*fclr(ic) + flxd(ic,k2)=flxd(ic,k2)+bd-(bd-blayer(ic,k1-1))*trant(ic)*fclr(ic) + ENDDO else !-----contribution from distant layers. - do i=1,m - xx=trant(i)*dblayr(i,k2) - flcu(i,k1) =flcu(i,k1)+xx - flxu(i,k1) =flxu(i,k1)+xx*fclr(i) - xx=trant(i)*dblayr(i,k1) - flcd(i,k2) =flcd(i,k2)+xx - flxd(i,k2) =flxd(i,k2)+xx*fclr(i) - enddo - endif - else +!dir$ vector aligned + DO ic=1,irestrict + xx=trant(ic)*dblayr(ic,k2) + flcu(ic,k1) =flcu(ic,k1)+xx + flxu(ic,k1) =flxu(ic,k1)+xx*fclr(ic) + xx=trant(ic)*dblayr(ic,k1) + flcd(ic,k2) =flcd(ic,k2)+xx + flxd(ic,k2) =flxd(ic,k2)+xx*fclr(ic) + ENDDO + endif + else !-----flux reduction due to n2o in band 10 (eqs. 5.1 and 5.2) ! trant is the transmittance change due to n2o absorption (eq. 5.3). - do i=1,m - rflx(i,k1) = rflx(i,k1)+trant(i)*fclr(i)*dblayr(i,k2) - rflx(i,k2) = rflx(i,k2)+trant(i)*fclr(i)*dblayr(i,k1) - rflc(i,k1) = rflc(i,k1)+trant(i)*dblayr(i,k2) - rflc(i,k2) = rflc(i,k2)+trant(i)*dblayr(i,k1) - enddo +!dir$ vector aligned + DO ic=1,irestrict + rflx(ic,k1) = rflx(ic,k1)+trant(ic)*fclr(ic)*dblayr(ic,k2) + rflx(ic,k2) = rflx(ic,k2)+trant(ic)*fclr(ic)*dblayr(ic,k1) + rflc(ic,k1) = rflc(ic,k1)+trant(ic)*dblayr(ic,k2) + rflc(ic,k2) = rflc(ic,k2)+trant(ic)*dblayr(ic,k1) + ENDDO endif 3000 continue !-----here, fclr and trant are, respectively, the clear line-of-sight ! and the transmittance between k1 and the surface. - do i=1,m - trantcr(i,k1) =trant(i) - transfc(i,k1) =trant(i)*fclr(i) - enddo +!dir$ vector aligned + DO ic=1,irestrict + trantcr(ic,k1) =trant(ic) + transfc(ic,k1) =trant(ic)*fclr(ic) + ENDDO !-----compute the partial derivative of fluxes with respect to ! surface temperature (eq. 3.12). note: upward flux is negative. - do i=1,m - dfdts(i,k1) =dfdts(i,k1)-dbs(i)*transfc(i,k1) - enddo +!dir$ vector aligned + DO ic=1,irestrict + dfdts(ic,k1) =dfdts(ic,k1)-dbs(ic)*transfc(ic,k1) + ENDDO 2000 continue if (.not. b10bnd) then !-----for surface emission. -! note: blayer(i,np+1) and dbs include the surface emissivity effect. - do i=1,m - flcu(i,np+1)=-blayer(i,np+1) - flxu(i,np+1)=-blayer(i,np+1) - sfcem(i)=sfcem(i)-blayer(i,np+1) - dfdts(i,np+1)=dfdts(i,np+1)-dbs(i) - enddo +! note: blayer(np+1) and dbs include the surface emissivity effect. +!dir$ vector aligned + DO ic=1,irestrict + flcu(ic,np+1)=-blayer(ic,np+1) + flxu(ic,np+1)=-blayer(ic,np+1) + sfcem(ic)=sfcem(ic)-blayer(ic,np+1) + dfdts(ic,np+1)=dfdts(ic,np+1)-dbs(ic) + ENDDO !-----add the flux reflected by the surface. (last term on the ! rhs of eq. 3.10) do k=1,np+1 - do i=1,m - flcu(i,k)=flcu(i,k)- & - flcd(i,np+1)*trantcr(i,k)*(1.-emiss(i,ibn)) - flxu(i,k)=flxu(i,k)- & - flxd(i,np+1)*transfc(i,k)*(1.-emiss(i,ibn)) - enddo +!dir$ vector aligned + DO ic=1,irestrict + flcu(ic,k)=flcu(ic,k)- & + flcd(ic,np+1)*trantcr(ic,k)*(1.-emiss(ic,ibn)) + flxu(ic,k)=flxu(ic,k)- & + flxd(ic,np+1)*transfc(ic,k)*(1.-emiss(ic,ibn)) + ENDDO enddo endif !-----summation of fluxes over spectral bands do k=1,np+1 - do i=1,m - flc(i,k)=flc(i,k)+flcd(i,k)+flcu(i,k) - flx(i,k)=flx(i,k)+flxd(i,k)+flxu(i,k) - acflxu(i,k)=acflxu(i,k)+flxu(i,k) ! (LW upward must hold negative values) - acflxd(i,k)=acflxd(i,k)+flxd(i,k) ! (LW downward must hold postive values, and should=0 a - enddo +!dir$ vector aligned + DO ic=1,irestrict + flc(ic,k)=flc(ic,k)+flcd(ic,k)+flcu(ic,k) + flx(ic,k)=flx(ic,k)+flxd(ic,k)+flxu(ic,k) + acflxu(ic,k)=acflxu(ic,k)+flxu(ic,k) ! (LW upward must hold negative values) + acflxd(ic,k)=acflxd(ic,k)+flxd(ic,k) ! (LW downward must hold postive values, and should=0 a + ENDDO enddo + !-----adjustment due to n2o absorption in band 10. eqs. (5.4) and (5.5) if (b10bnd) then - do k=1,np+1 - do i=1,m - flc(i,k)=flc(i,k)+rflc(i,k) - flx(i,k)=flx(i,k)+rflx(i,k) - if(rflx(i,k).ge.0.0) acflxd(i,k)=acflxd(i,k)+rflx(i,k) - if(rflx(i,k).lt.0.0) acflxu(i,k)=acflxu(i,k)+rflx(i,k) - enddo + ! correction of n2o at TOA flux should be zero (brute force) toshii +!dir$ vector aligned + DO ic=1,irestrict + rflc(ic,1) = 0.e0 + rflx(ic,1) = 0.e0 + ENDDO + do k=2,np+1 !correction (TOA Down Flux must be ZERO) (so ski k=1) +!dir$ vector aligned + DO ic=1,irestrict + flc(ic,k)=flc(ic,k)+rflc(ic,k) + flx(ic,k)=flx(ic,k)+rflx(ic,k) + if(rflx(ic,k).ge.0.0) acflxd(ic,k)=acflxd(ic,k)+rflx(ic,k) + if(rflx(ic,k).lt.0.0) acflxu(ic,k)=acflxu(ic,k)+rflx(ic,k) + ENDDO enddo endif endif ! endif (.not. b10bnd .or. trace) - 1000 continue - -!ccshie 8/19/04 based on D. Johnson GCSS Workshop -! do i=1,m -! (i)=acflxd(i,np+1) ! downward LW surface -! rflux(i,5)=acflxu(i,1) ! upward LW TOA -! rflux(i,7)=acflxu(i,np+1) ! upward LW surface -! rflux(i,8)=acflxd(i,1) ! downward LW TOA -! enddo - -!xp -! deallocate(pa) -! deallocate(dt) -! deallocate(sh2o) -! deallocate(swpre) -! deallocate(swtem) -! deallocate(sco3) -! deallocate(scopre) -! deallocate(scotem) -! deallocate(dh2o) -! deallocate(dcont) -! deallocate(dco2) -! deallocate(do3) -! deallocate(dn2o) -! deallocate(dch4) -! deallocate(df11) -! deallocate(df12) -! deallocate(df22) -! deallocate(th2o) -! deallocate(tcon) -! deallocate(tco2) -! deallocate(tn2o) -! deallocate(tch4) -! deallocate(tcom) -! deallocate(tf11) -! deallocate(tf12) -! deallocate(tf22) -! deallocate(h2oexp) -! deallocate(conexp) -! deallocate(co2exp) -! deallocate(n2oexp) -! deallocate(ch4exp) -! deallocate(comexp) -! deallocate(f11exp) -! deallocate(f12exp) -! deallocate(f22exp) -! deallocate(blayer) -! deallocate(blevel) -! deallocate(dblayr) -! deallocate(dbs) -! deallocate(dp) -! deallocate(cwp) -! deallocate(trant) -! deallocate(tranal) -! deallocate(transfc) -! deallocate(trantcr) -! deallocate(flxu) -! deallocate(flxd) -! deallocate(flcu) -! deallocate(flcd) -! deallocate(rflx) -! deallocate(rflc) -! deallocate(it) -! deallocate(im) -! deallocate(ib) -! deallocate(cldhi) -! deallocate(cldmd) -! deallocate(cldlw) -! deallocate(tcldlyr) -! deallocate(fclr) -! deallocate(taerlyr) - return + + enddo BAND_LOOP + +! +! output double to single precision +! + flx_out = REAL(flx) ! broadband LW flux divergence [W/m2] + acflxu_out = REAL(acflxu) ! upwelling broadband LW flux [W/m2] + acflxd_out = REAL(acflxd) ! downwelling broadband LW flux [W/m2] + + end subroutine lwrad !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine column (m,np,pa,dt,sabs0,sabs,spre,stem) + subroutine column (np,pa,dt,sabs0,sabs,spre,stem, irestrict) !*********************************************************************** !-----compute column-integrated (from top of the model atmosphere) ! absorber amount (sabs), absorber-weighted pressure (spre) and @@ -9023,7 +11008,6 @@ subroutine column (m,np,pa,dt,sabs0,sabs,spre,stem) ! computations follow eqs. (8.24) - (8.26). ! !--- input parameters -! number of soundings (m) ! number of atmospheric layers (np) ! layer pressure (pa) ! layer temperature minus 250k (dt) @@ -9039,38 +11023,39 @@ subroutine column (m,np,pa,dt,sabs0,sabs,spre,stem) ! for co2 and o3 !*********************************************************************** implicit none - integer m,np,i,k + integer np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) pa(m,np),dt(m,np),sabs0(m,np) + real(fp_kind) pa(CHUNK,np),dt(CHUNK,np),sabs0(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1) + real(fp_kind) sabs(CHUNK,np+1),spre(CHUNK,np+1),stem(CHUNK,np+1) !********************************************************************* - do i=1,m - sabs(i,1)=0.0 - spre(i,1)=0.0 - stem(i,1)=0.0 - enddo +!dir$ vector aligned + DO ic=1,irestrict + sabs(ic,1)=0.0 + spre(ic,1)=0.0 + stem(ic,1)=0.0 + ENDDO do k=1,np - do i=1,m - sabs(i,k+1)=sabs(i,k)+sabs0(i,k) - spre(i,k+1)=spre(i,k)+pa(i,k)*sabs0(i,k) - stem(i,k+1)=stem(i,k)+dt(i,k)*sabs0(i,k) - enddo +!dir$ vector aligned + DO ic=1,irestrict + sabs(ic,k+1)=sabs(ic,k)+sabs0(ic,k) + spre(ic,k+1)=spre(ic,k)+pa(ic,k)*sabs0(ic,k) + stem(ic,k+1)=stem(ic,k)+dt(ic,k)*sabs0(ic,k) + ENDDO enddo - return + end subroutine column !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine h2oexps(ib,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) + subroutine h2oexps(ib,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp,irestrict) !********************************************************************** ! compute exponentials for water vapor line absorption ! in individual layers using eqs. (8.18) and (8.19). ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of layers (np) ! layer water vapor amount for line absorption (dh2o) ! layer pressure (pa) @@ -9085,89 +11070,93 @@ subroutine h2oexps(ib,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) ! 6 exponentials for each layer (h2oexp) !********************************************************************** implicit none - integer ib,m,np,i,k,ik + integer ib,np,k,ik,irestrict,ic !---- input parameters ------ - real(Kind=fp_kind) dh2o(m,np),pa(m,np),dt(m,np) + real(fp_kind) dh2o(CHUNK,np),pa(CHUNK,np),dt(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) h2oexp(m,np,6) + real(fp_kind) h2oexp(CHUNK,np,6) !---- static data ----- integer mw(9) - real(Kind=fp_kind) xkw(9),aw(9),bw(9),pm(9) + real(fp_kind) xkw(9),aw(9),bw(9),pm(9) !---- temporary arrays ----- - real(Kind=fp_kind) xh + real(fp_kind) xh(CHUNK) !********************************************************************** ! note that the 3 sub-bands in band 3 use the same set of xkw, aw, ! and bw, therefore, h2oexp for these sub-bands are identical. !********************************************************************** do k=1,np - do i=1,m +!dir$ vector aligned + DO ic=1,irestrict !-----xh is the scaled water vapor amount for line absorption ! computed from eq. (4.4). - xh = dh2o(i,k)*(pa(i,k)/500.)**pm(ib) & - * ( 1.+(aw(ib)+bw(ib)* dt(i,k))*dt(i,k) ) + xh(ic) = dh2o(ic,k)*(pa(ic,k)/500.)**pm(ib) & + * ( 1.+(aw(ib)+bw(ib)* dt(ic,k))*dt(ic,k) ) !-----h2oexp is the water vapor transmittance of the layer k ! due to line absorption - h2oexp(i,k,1) = exp(-xh*xkw(ib)) - enddo + h2oexp(ic,k,1) = exp(-xh(ic)*xkw(ib)) + ENDDO enddo !-----compute transmittances from eq. (8.19) if (mw(ib).eq.6) then do ik=2,6 do k=1,np - do i=1,m - xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1) - if(xh.lt.1.e-4)xh=0. - h2oexp(i,k,ik) = xh*xh*xh - enddo +!dir$ vector aligned + DO ic=1,irestrict + xh(ic) = h2oexp(ic,k,ik-1)*h2oexp(ic,k,ik-1) + if(xh(ic).lt.1.e-4) xh(ic)=0. + h2oexp(ic,k,ik) = xh(ic)*xh(ic)*xh(ic) + ENDDO enddo enddo elseif (mw(ib).eq.8) then do ik=2,6 do k=1,np - do i=1,m - xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1) - if(xh.lt.1.e-3)xh=0. - xh = xh*xh - h2oexp(i,k,ik) = xh*xh - enddo +!dir$ vector aligned + DO ic=1,irestrict + xh(ic) = h2oexp(ic,k,ik-1)*h2oexp(ic,k,ik-1) + if(xh(ic).lt.1.e-3) xh(ic)=0. + xh(ic) = xh(ic)*xh(ic) + h2oexp(ic,k,ik) = xh(ic)*xh(ic) + ENDDO enddo enddo elseif (mw(ib).eq.9) then do ik=2,6 do k=1,np - do i=1,m - xh=h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1) - if(xh.lt.1.e-4)xh=0. - h2oexp(i,k,ik) = xh*xh*xh - enddo +!dir$ vector aligned + DO ic=1,irestrict + xh(ic)=h2oexp(ic,k,ik-1)*h2oexp(ic,k,ik-1)*h2oexp(ic,k,ik-1) + if(xh(ic).lt.1.e-4) xh(ic)=0. + h2oexp(ic,k,ik) = xh(ic)*xh(ic)*xh(ic) enddo + ENDDO enddo else do ik=2,6 do k=1,np - do i=1,m - xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1) - if(xh.lt.2.e-2)xh=0. - xh = xh*xh - xh = xh*xh - h2oexp(i,k,ik) = xh*xh - enddo +!dir$ vector aligned + DO ic=1,irestrict + xh(ic) = h2oexp(ic,k,ik-1)*h2oexp(ic,k,ik-1) + if(xh(ic).lt.2.e-2) xh(ic)=0. + xh(ic) = xh(ic)*xh(ic) + xh(ic) = xh(ic)*xh(ic) + h2oexp(ic,k,ik) = xh(ic)*xh(ic) + ENDDO enddo enddo endif - return + end subroutine h2oexps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine conexps(ib,m,np,dcont,xke,conexp) + subroutine conexps(ib,np,dcont,xke,conexp,irestrict) !********************************************************************** ! compute exponentials for continuum absorption in individual layers. ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of layers (np) ! layer scaled water vapor amount for continuum absorption (dcont) ! absorption coefficients for the first k-distribution function @@ -9177,42 +11166,43 @@ subroutine conexps(ib,m,np,dcont,xke,conexp) ! 1 or 3 exponentials for each layer (conexp) !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ------ - real(Kind=fp_kind) dcont(m,np) + real(fp_kind) dcont(CHUNK,np) !---- updated parameters ----- - real(Kind=fp_kind) conexp(m,np,3) + real(fp_kind) conexp(CHUNK,np,3) !---- static data ----- - real(Kind=fp_kind) xke(9) + real(fp_kind) xke(9) !**************************************************************** do k=1,np - do i=1,m - conexp(i,k,1) = exp(-dcont(i,k)*xke(ib)) - enddo +!dir$ vector aligned + DO ic=1,irestrict + conexp(ic,k,1) = exp(-dcont(ic,k)*xke(ib)) + ENDDO enddo if (ib .eq. 3) then !-----the absorption coefficients for sub-bands 3b and 3a are, respectively, ! two and four times the absorption coefficient for sub-band 3c (table 9). -! note that conexp(i,k,3) is for sub-band 3a. +! note that conexp(k,3) is for sub-band 3a. do k=1,np - do i=1,m - conexp(i,k,2) = conexp(i,k,1) *conexp(i,k,1) - conexp(i,k,3) = conexp(i,k,2) *conexp(i,k,2) - enddo +!dir$ vector aligned + DO ic=1,irestrict + conexp(ic,k,2) = conexp(ic,k,1) *conexp(ic,k,1) + conexp(ic,k,3) = conexp(ic,k,2) *conexp(ic,k,2) + ENDDO enddo endif - return + end subroutine conexps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine co2exps(m,np,dco2,pa,dt,co2exp) + subroutine co2exps(np,dco2,pa,dt,co2exp,irestrict) !********************************************************************** ! compute co2 exponentials for individual layers. ! !---- input parameters -! number of grid intervals (m) ! number of layers (np) ! layer co2 amount (dco2) ! layer pressure (pa) @@ -9222,72 +11212,72 @@ subroutine co2exps(m,np,dco2,pa,dt,co2exp) ! 6 exponentials for each layer (co2exp) !********************************************************************** implicit none - integer m,np,i,k + integer np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np) + real(fp_kind) dco2(CHUNK,np),pa(CHUNK,np),dt(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) co2exp(m,np,6,2) + real(fp_kind) co2exp(CHUNK,np,6,2) !---- temporary arrays ----- - real(Kind=fp_kind) xc + real(fp_kind) xc !********************************************************************** do k=1,np - do i=1,m !-----the scakubg oaraneters are given in table 3, and values of ! the absorption coefficient are given in table 10. ! scaled co2 amount for band-wings (sub-bands 3a and 3c) - xc = dco2(i,k)*(pa(i,k)/300.0)**0.5 & - *(1.+(0.0182+1.07e-4*dt(i,k))*dt(i,k)) +!dir$ vector aligned + DO ic=1,irestrict + xc = dco2(ic,k)*(pa(ic,k)/300.0)**0.5 & + *(1.+(0.0182+1.07e-4*dt(ic,k))*dt(ic,k)) !-----six exponentials by powers of 8 (see eqs. 8.18, 8.19 and table 10). - co2exp(i,k,1,1)=exp(-xc*2.656e-5) - xc=co2exp(i,k,1,1)*co2exp(i,k,1,1) + co2exp(ic,k,1,1)=exp(-xc*2.656e-5) + xc=co2exp(ic,k,1,1)*co2exp(ic,k,1,1) xc=xc*xc - co2exp(i,k,2,1)=xc*xc - xc=co2exp(i,k,2,1)*co2exp(i,k,2,1) + co2exp(ic,k,2,1)=xc*xc + xc=co2exp(ic,k,2,1)*co2exp(ic,k,2,1) xc=xc*xc - co2exp(i,k,3,1)=xc*xc - xc=co2exp(i,k,3,1)*co2exp(i,k,3,1) + co2exp(ic,k,3,1)=xc*xc + xc=co2exp(ic,k,3,1)*co2exp(ic,k,3,1) xc=xc*xc - co2exp(i,k,4,1)=xc*xc - xc=co2exp(i,k,4,1)*co2exp(i,k,4,1) + co2exp(ic,k,4,1)=xc*xc + xc=co2exp(ic,k,4,1)*co2exp(ic,k,4,1) xc=xc*xc - co2exp(i,k,5,1)=xc*xc - xc=co2exp(i,k,5,1)*co2exp(i,k,5,1) + co2exp(ic,k,5,1)=xc*xc + xc=co2exp(ic,k,5,1)*co2exp(ic,k,5,1) xc=xc*xc - co2exp(i,k,6,1)=xc*xc + co2exp(ic,k,6,1)=xc*xc !-----for band-center region (sub-band 3b) - xc = dco2(i,k)*(pa(i,k)/30.0)**0.85 & - *(1.+(0.0042+2.00e-5*dt(i,k))*dt(i,k)) - co2exp(i,k,1,2)=exp(-xc*2.656e-3) - xc=co2exp(i,k,1,2)*co2exp(i,k,1,2) + xc = dco2(ic,k)*(pa(ic,k)/30.0)**0.85 & + *(1.+(0.0042+2.00e-5*dt(ic,k))*dt(ic,k)) + co2exp(ic,k,1,2)=exp(-xc*2.656e-3) + xc=co2exp(ic,k,1,2)*co2exp(ic,k,1,2) xc=xc*xc - co2exp(i,k,2,2)=xc*xc - xc=co2exp(i,k,2,2)*co2exp(i,k,2,2) + co2exp(ic,k,2,2)=xc*xc + xc=co2exp(ic,k,2,2)*co2exp(ic,k,2,2) xc=xc*xc - co2exp(i,k,3,2)=xc*xc - xc=co2exp(i,k,3,2)*co2exp(i,k,3,2) + co2exp(ic,k,3,2)=xc*xc + xc=co2exp(ic,k,3,2)*co2exp(ic,k,3,2) xc=xc*xc - co2exp(i,k,4,2)=xc*xc - xc=co2exp(i,k,4,2)*co2exp(i,k,4,2) + co2exp(ic,k,4,2)=xc*xc + xc=co2exp(ic,k,4,2)*co2exp(ic,k,4,2) xc=xc*xc - co2exp(i,k,5,2)=xc*xc - xc=co2exp(i,k,5,2)*co2exp(i,k,5,2) + co2exp(ic,k,5,2)=xc*xc + xc=co2exp(ic,k,5,2)*co2exp(ic,k,5,2) xc=xc*xc - co2exp(i,k,6,2)=xc*xc - enddo + co2exp(ic,k,6,2)=xc*xc + ENDDO enddo - return + end subroutine co2exps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine n2oexps(ib,m,np,dn2o,pa,dt,n2oexp) + subroutine n2oexps(ib,np,dn2o,pa,dt,n2oexp,irestrict) !********************************************************************** ! compute n2o exponentials for individual layers ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of layers (np) ! layer n2o amount (dn2o) ! layer pressure (pa) @@ -9297,74 +11287,72 @@ subroutine n2oexps(ib,m,np,dn2o,pa,dt,n2oexp) ! 2 or 4 exponentials for each layer (n2oexp) !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) dn2o(m,np),pa(m,np),dt(m,np) + real(fp_kind) dn2o(CHUNK,np),pa(CHUNK,np),dt(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) n2oexp(m,np,4) + real(fp_kind) n2oexp(CHUNK,np,4) !---- temporary arrays ----- - real(Kind=fp_kind) xc,xc1,xc2 + real(fp_kind) xc,xc1,xc2 !-----scaling and absorpton data are given in table 5. ! transmittances are computed using eqs. (8.18) and (8.19). do k=1,np - do i=1,m +!dir$ vector aligned + DO ic=1,irestrict !-----four exponential by powers of 21 for band 6. if (ib.eq.6) then - xc=dn2o(i,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,k))*dt(i,k)) - n2oexp(i,k,1)=exp(-xc*6.31582e-2) + xc=dn2o(ic,k)*(1.+(1.9297e-3+4.3750e-6*dt(ic,k))*dt(ic,k)) + n2oexp(ic,k,1)=exp(-xc*6.31582e-2) - xc=n2oexp(i,k,1)*n2oexp(i,k,1)*n2oexp(i,k,1) + xc=n2oexp(ic,k,1)*n2oexp(ic,k,1)*n2oexp(ic,k,1) xc1=xc*xc xc2=xc1*xc1 - n2oexp(i,k,2)=xc*xc1*xc2 + n2oexp(ic,k,2)=xc*xc1*xc2 !-----four exponential by powers of 8 for band 7 else - xc=dn2o(i,k)*(pa(i,k)/500.0)**0.48 & - *(1.+(1.3804e-3+7.4838e-6*dt(i,k))*dt(i,k)) - n2oexp(i,k,1)=exp(-xc*5.35779e-2) + xc=dn2o(ic,k)*(pa(ic,k)/500.0)**0.48 & + *(1.+(1.3804e-3+7.4838e-6*dt(ic,k))*dt(ic,k)) + n2oexp(ic,k,1)=exp(-xc*5.35779e-2) - xc=n2oexp(i,k,1)*n2oexp(i,k,1) + xc=n2oexp(ic,k,1)*n2oexp(ic,k,1) xc=xc*xc - n2oexp(i,k,2)=xc*xc - xc=n2oexp(i,k,2)*n2oexp(i,k,2) + n2oexp(ic,k,2)=xc*xc + xc=n2oexp(ic,k,2)*n2oexp(ic,k,2) xc=xc*xc - n2oexp(i,k,3)=xc*xc - xc=n2oexp(i,k,3)*n2oexp(i,k,3) + n2oexp(ic,k,3)=xc*xc + xc=n2oexp(ic,k,3)*n2oexp(ic,k,3) xc=xc*xc - n2oexp(i,k,4)=xc*xc + n2oexp(ic,k,4)=xc*xc endif - - enddo + ENDDO enddo - return end subroutine n2oexps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine ch4exps(ib,m,np,dch4,pa,dt,ch4exp) + subroutine ch4exps(ib,np,dch4,pa,dt,ch4exp,irestrict) !********************************************************************** ! compute ch4 exponentials for individual layers ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of layers (np) ! layer ch4 amount (dch4) ! layer pressure (pa) @@ -9374,51 +11362,52 @@ subroutine ch4exps(ib,m,np,dch4,pa,dt,ch4exp) ! 1 or 4 exponentials for each layer (ch4exp) !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) dch4(m,np),pa(m,np),dt(m,np) + real(fp_kind) dch4(CHUNK,np),pa(CHUNK,np),dt(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) ch4exp(m,np,4) + real(fp_kind) ch4exp(CHUNK,np,4) !---- temporary arrays ----- - real(Kind=fp_kind) xc + real(fp_kind) xc !***** scaling and absorpton data are given in table 5 ***** do k=1,np - do i=1,m +!dir$ vector aligned + DO ic=1,irestrict + !-----four exponentials for band 6 if (ib.eq.6) then - xc=dch4(i,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,k))*dt(i,k)) - ch4exp(i,k,1)=exp(-xc*5.80708e-3) + xc=dch4(ic,k)*(1.+(1.7007e-2+1.5826e-4*dt(ic,k))*dt(ic,k)) + ch4exp(ic,k,1)=exp(-xc*5.80708e-3) !-----four exponentials by powers of 12 for band 7 else - xc=dch4(i,k)*(pa(i,k)/500.0)**0.65 & - *(1.+(5.9590e-4-2.2931e-6*dt(i,k))*dt(i,k)) - ch4exp(i,k,1)=exp(-xc*6.29247e-2) - xc=ch4exp(i,k,1)*ch4exp(i,k,1)*ch4exp(i,k,1) + xc=dch4(ic,k)*(pa(ic,k)/500.0)**0.65 & + *(1.+(5.9590e-4-2.2931e-6*dt(ic,k))*dt(ic,k)) + ch4exp(ic,k,1)=exp(-xc*6.29247e-2) + xc=ch4exp(ic,k,1)*ch4exp(ic,k,1)*ch4exp(ic,k,1) xc=xc*xc - ch4exp(i,k,2)=xc*xc - xc=ch4exp(i,k,2)*ch4exp(i,k,2)*ch4exp(i,k,2) + ch4exp(ic,k,2)=xc*xc + xc=ch4exp(ic,k,2)*ch4exp(ic,k,2)*ch4exp(ic,k,2) xc=xc*xc - ch4exp(i,k,3)=xc*xc - xc=ch4exp(i,k,3)*ch4exp(i,k,3)*ch4exp(i,k,3) + ch4exp(ic,k,3)=xc*xc + xc=ch4exp(ic,k,3)*ch4exp(ic,k,3)*ch4exp(ic,k,3) xc=xc*xc - ch4exp(i,k,4)=xc*xc + ch4exp(ic,k,4)=xc*xc endif - enddo + ENDDO enddo - return + end subroutine ch4exps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine comexps(ib,m,np,dcom,dt,comexp) + subroutine comexps(ib,np,dcom,dt,comexp,irestrict) !********************************************************************** ! compute co2-minor exponentials for individual layers using ! eqs. (8.18) and (8.19). ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of layers (np) ! layer co2 amount (dcom) ! layer temperature minus 250k (dt) @@ -9427,43 +11416,43 @@ subroutine comexps(ib,m,np,dcom,dt,comexp) ! 6 exponentials for each layer (comexp) !********************************************************************** implicit none - integer ib,m,np,i,k,ik + integer ib,np,k,ik,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) dcom(m,np),dt(m,np) + real(fp_kind) dcom(CHUNK,np),dt(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) comexp(m,np,6) + real(fp_kind) comexp(CHUNK,np,6) !---- temporary arrays ----- - real(Kind=fp_kind) xc + real(fp_kind) xc !***** scaling and absorpton data are given in table 6 ***** do k=1,np - do i=1,m +!dir$ vector aligned + DO ic=1,irestrict if (ib.eq.4) then - xc=dcom(i,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,k))*dt(i,k)) + xc=dcom(ic,k)*(1.+(3.5775e-2+4.0447e-4*dt(ic,k))*dt(ic,k)) endif if (ib.eq.5) then - xc=dcom(i,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,k))*dt(i,k)) + xc=dcom(ic,k)*(1.+(3.4268e-2+3.7401e-4*dt(ic,k))*dt(ic,k)) endif - comexp(i,k,1)=exp(-xc*1.922e-7) + comexp(ic,k,1)=exp(-xc*1.922e-7) do ik=2,6 - xc=comexp(i,k,ik-1)*comexp(i,k,ik-1) + xc=comexp(ic,k,ik-1)*comexp(ic,k,ik-1) xc=xc*xc - comexp(i,k,ik)=xc*comexp(i,k,ik-1) + comexp(ic,k,ik)=xc*comexp(ic,k,ik-1) enddo - enddo + ENDDO enddo - return + end subroutine comexps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine cfcexps(ib,m,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) + subroutine cfcexps(ib,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp,irestrict) !********************************************************************** ! compute cfc(-11, -12, -22) exponentials for individual layers. ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of layers (np) ! parameters for computing the scaled cfc amounts ! for temperature scaling (a1,b1,a2,b2) @@ -9476,41 +11465,41 @@ subroutine cfcexps(ib,m,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) ! 1 exponential for each layer (cfcexp) !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) dcfc(m,np),dt(m,np) + real(fp_kind) dcfc(CHUNK,np),dt(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) cfcexp(m,np) + real(fp_kind) cfcexp(CHUNK,np) !---- static data ----- - real(Kind=fp_kind) a1,b1,fk1,a2,b2,fk2 + real(fp_kind) a1,b1,fk1,a2,b2,fk2 !---- temporary arrays ----- - real(Kind=fp_kind) xf + real(fp_kind) xf !********************************************************************** do k=1,np - do i=1,m !-----compute the scaled cfc amount (xf) and exponential (cfcexp) +!dir$ vector aligned + DO ic=1,irestrict if (ib.eq.4) then - xf=dcfc(i,k)*(1.+(a1+b1*dt(i,k))*dt(i,k)) - cfcexp(i,k)=exp(-xf*fk1) + xf=dcfc(ic,k)*(1.+(a1+b1*dt(ic,k))*dt(ic,k)) + cfcexp(ic,k)=exp(-xf*fk1) else - xf=dcfc(i,k)*(1.+(a2+b2*dt(i,k))*dt(i,k)) - cfcexp(i,k)=exp(-xf*fk2) + xf=dcfc(ic,k)*(1.+(a2+b2*dt(ic,k))*dt(ic,k)) + cfcexp(ic,k)=exp(-xf*fk2) endif - enddo + ENDDO enddo - return + end subroutine cfcexps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt & - ,h2oexp,conexp,co2exp,n2oexp) + subroutine b10exps(np,dh2o,dcont,dco2,dn2o,pa,dt & + ,h2oexp,conexp,co2exp,n2oexp,irestrict) !********************************************************************** ! compute band3a exponentials for individual layers ! !---- input parameters -! number of grid intervals (m) ! number of layers (np) ! layer h2o amount for line absorption (dh2o) ! layer h2o amount for continuum absorption (dcont) @@ -9524,97 +11513,101 @@ subroutine b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt & ! exponentials for each layer (h2oexp,conexp,co2exp,n2oexp) !********************************************************************** implicit none - integer m,np,i,k + integer np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dn2o(m,np) - real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np) + real(fp_kind) dh2o(CHUNK,np),dcont(CHUNK,np),dn2o(CHUNK,np) + real(fp_kind) dco2(CHUNK,np),pa(CHUNK,np),dt(CHUNK,np) !---- output parameters ----- - real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) & - ,n2oexp(m,np,4) + real(fp_kind) h2oexp(CHUNK,np,6),conexp(CHUNK,np,3),co2exp(CHUNK,np,6,2) & + ,n2oexp(CHUNK,np,4) !---- temporary arrays ----- - real(Kind=fp_kind) xx,xx1,xx2,xx3 + real(fp_kind) xx,xx1,xx2,xx3 !********************************************************************** do k=1,np - do i=1,m !-----compute scaled h2o-line amount for band 10 (eq. 4.4 and table 3). - xx=dh2o(i,k)*(pa(i,k)/500.0) & - *(1.+(0.0149+6.20e-5*dt(i,k))*dt(i,k)) +!dir$ vector aligned + DO ic=1,irestrict + xx=dh2o(ic,k)*(pa(ic,k)/500.0) & + *(1.+(0.0149+6.20e-5*dt(ic,k))*dt(ic,k)) !-----six exponentials by powers of 8 ! the constant 0.10624 is equal to 1.66*0.064 - h2oexp(i,k,1)=exp(-xx*0.10624) - xx=h2oexp(i,k,1)*h2oexp(i,k,1) + h2oexp(ic,k,1)=exp(-xx*0.10624) + xx=h2oexp(ic,k,1)*h2oexp(ic,k,1) xx=xx*xx - h2oexp(i,k,2)=xx*xx - xx=h2oexp(i,k,2)*h2oexp(i,k,2) + h2oexp(ic,k,2)=xx*xx + xx=h2oexp(ic,k,2)*h2oexp(ic,k,2) xx=xx*xx - h2oexp(i,k,3)=xx*xx - xx=h2oexp(i,k,3)*h2oexp(i,k,3) + h2oexp(ic,k,3)=xx*xx + xx=h2oexp(ic,k,3)*h2oexp(ic,k,3) xx=xx*xx - h2oexp(i,k,4)=xx*xx - xx=h2oexp(i,k,4)*h2oexp(i,k,4) + h2oexp(ic,k,4)=xx*xx + xx=h2oexp(ic,k,4)*h2oexp(ic,k,4) xx=xx*xx - h2oexp(i,k,5)=xx*xx - xx=h2oexp(i,k,5)*h2oexp(i,k,5) + h2oexp(ic,k,5)=xx*xx + xx=h2oexp(ic,k,5)*h2oexp(ic,k,5) xx=xx*xx -! h2oexp(i,k,6)=xx*xx +! h2oexp(ic,k,6)=xx*xx !-----compute scaled co2 amount for the band 10 (eq. 4.4 and table 6). - xx=dco2(i,k)*(pa(i,k)/300.0)**0.5 & - *(1.+(0.0179+1.02e-4*dt(i,k))*dt(i,k)) + xx=dco2(ic,k)*(pa(ic,k)/300.0)**0.5 & + *(1.+(0.0179+1.02e-4*dt(ic,k))*dt(ic,k)) !-----six exponentials by powers of 8 ! the constant 2.656e-5 is equal to 1.66*1.60e-5 - co2exp(i,k,1,1)=exp(-xx*2.656e-5) - xx=co2exp(i,k,1,1)*co2exp(i,k,1,1) + co2exp(ic,k,1,1)=exp(-xx*2.656e-5) + xx=co2exp(ic,k,1,1)*co2exp(ic,k,1,1) xx=xx*xx - co2exp(i,k,2,1)=xx*xx - xx=co2exp(i,k,2,1)*co2exp(i,k,2,1) + co2exp(ic,k,2,1)=xx*xx + xx=co2exp(ic,k,2,1)*co2exp(ic,k,2,1) xx=xx*xx - co2exp(i,k,3,1)=xx*xx - xx=co2exp(i,k,3,1)*co2exp(i,k,3,1) + co2exp(ic,k,3,1)=xx*xx + xx=co2exp(ic,k,3,1)*co2exp(ic,k,3,1) xx=xx*xx - co2exp(i,k,4,1)=xx*xx - xx=co2exp(i,k,4,1)*co2exp(i,k,4,1) + co2exp(ic,k,4,1)=xx*xx + xx=co2exp(ic,k,4,1)*co2exp(ic,k,4,1) xx=xx*xx - co2exp(i,k,5,1)=xx*xx - xx=co2exp(i,k,5,1)*co2exp(i,k,5,1) + co2exp(ic,k,5,1)=xx*xx + xx=co2exp(ic,k,5,1)*co2exp(ic,k,5,1) xx=xx*xx - co2exp(i,k,6,1)=xx*xx + co2exp(ic,k,6,1)=xx*xx !-----one exponential of h2o continuum for sub-band 3a (table 9). - conexp(i,k,1)=exp(-dcont(i,k)*1.04995e+2) + conexp(ic,k,1)=exp(-dcont(ic,k)*1.04995e+2) !-----compute the scaled n2o amount for band 10 (table 5). - xx=dn2o(i,k)*(1.+(1.4476e-3+3.6656e-6*dt(i,k))*dt(i,k)) + xx=dn2o(ic,k)*(1.+(1.4476e-3+3.6656e-6*dt(ic,k))*dt(ic,k)) !-----two exponentials by powers of 58 - n2oexp(i,k,1)=exp(-xx*0.25238) - xx=n2oexp(i,k,1)*n2oexp(i,k,1) + n2oexp(ic,k,1)=exp(-xx*0.25238) + xx=n2oexp(ic,k,1)*n2oexp(ic,k,1) xx1=xx*xx xx1=xx1*xx1 xx2=xx1*xx1 xx3=xx2*xx2 - n2oexp(i,k,2)=xx*xx1*xx2*xx3 - enddo + n2oexp(ic,k,2)=xx*xx1*xx2*xx3 + ENDDO enddo - return + end subroutine b10exps !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine tablup(k1,k2,m,np,nx,nh,sabs,spre,stem,w1,p1, & - dwe,dpe,coef1,coef2,coef3,tran) + subroutine tablup(k1,k2,np,nx,nh,sabs,spre,stem,w1,p1, & + dwe,dpe,coef1,coef2,coef3,tran,irestrict) !********************************************************************** ! compute water vapor, co2 and o3 transmittances between level -! k1 and and level k2 for m soundings, using table look-up. +! k1 and and level k2 using table look-up. ! ! calculations follow eq. (4.16). ! !---- input --------------------- ! indices for layer (k1) and level (k2) -! number of grid intervals (m) ! number of atmospheric layers (np) ! number of pressure intervals in the table (nx) ! number of absorber amount intervals in the table (nh) -! column-integrated absorber amount (sabs) -! column absorber amount-weighted pressure (spre) -! column absorber amount-weighted temperature (stem) +! column-integrated absorber amount (sabs) ! [g/cm2] or (cm-atm)stp +! column absorber amount-weighted pressure (spre) ![mb] +! column absorber amount-weighted temperature (stem) ![K] +! +! column-integrated h2o amoumt (sh2o), h2o-weighted pressure(swpre) +! temperature (swtem). . +! ! first value of absorber amount (log10) in the table (w1) ! first value of pressure (log10) in the table (p1) ! size of the interval of absorber amount (log10) in the table (dwe) @@ -9631,39 +11624,38 @@ subroutine tablup(k1,k2,m,np,nx,nh,sabs,spre,stem,w1,p1, & ! !********************************************************************** implicit none - integer k1,k2,m,np,nx,nh,i !---- input parameters ----- - real(Kind=fp_kind) w1,p1,dwe,dpe - real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1) - real(Kind=fp_kind) coef1(nx,nh),coef2(nx,nh),coef3(nx,nh) + integer k1,k2,np,nx,nh,irestrict,ic + real(fp_kind) w1,p1,dwe,dpe + real(fp_kind) sabs(CHUNK,np+1),spre(CHUNK,np+1),stem(CHUNK,np+1) + real(fp_kind) coef1(nx,nh),coef2(nx,nh),coef3(nx,nh) !---- update parameter ----- - real(Kind=fp_kind) tran(m) + real(fp_kind) tran(CHUNK) !---- temporary variables ----- - real(Kind=fp_kind) x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2,xxx + real(fp_kind) x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 integer iw,ip !********************************************************************** - do i=1,m - x1=sabs(i,k2)-sabs(i,k1) +!dir$ vector aligned + DO ic=1,irestrict + x1=sabs(ic,k2)-sabs(ic,k1) we=(log10(x1)-w1)/dwe if (we .ge. (w1-2.)) then - x2=(spre(i,k2)-spre(i,k1))/x1 - x3=(stem(i,k2)-stem(i,k1))/x1 + + x2=(spre(ic,k2)-spre(ic,k1))/x1 + x3=(stem(ic,k2)-stem(ic,k1))/x1 !-----normalize we and pe pe=(log10(x2)-p1)/dpe !-----restrict the magnitudes of the normalized we and pe. -! we=min(we,real(nh-1)) - xxx=real(nh-1) - we=min(we,xxx) - pe=max(pe,0.0_fp_kind) -! pe=min(pe,real(nx-1)) - xxx=real(nx-1) - pe=min(pe,xxx) + we=min(we,REAL(nh-1)) + pe=max(pe,0.0) + pe=min(pe,REAL(nx-1)) !-----assign iw and ip and compute the distance of we and pe ! from iw and ip. iw=int(we+1.0) iw=min(iw,nh-1) iw=max(iw, 2) fw=we-float(iw-1) + ip=int(pe+1.0) ip=min(ip,nx-1) ip=max(ip, 1) @@ -9672,38 +11664,40 @@ subroutine tablup(k1,k2,m,np,nx,nh,sabs,spre,stem,w1,p1, & pa = coef1(ip,iw-1)*(1.-fp)+coef1(ip+1,iw-1)*fp pb = coef1(ip, iw)*(1.-fp)+coef1(ip+1, iw)*fp pc = coef1(ip,iw+1)*(1.-fp)+coef1(ip+1,iw+1)*fp + !-----quadratic interpolation in absorber amount for coef1 ax = (-pa*(1.-fw)+pc*(1.+fw)) *fw*0.5 + pb*(1.-fw*fw) + !-----linear interpolation in absorber amount for coef2 and coef3 ba = coef2(ip, iw)*(1.-fp)+coef2(ip+1, iw)*fp bb = coef2(ip,iw+1)*(1.-fp)+coef2(ip+1,iw+1)*fp t1 = ba*(1.-fw) + bb*fw + ca = coef3(ip, iw)*(1.-fp)+coef3(ip+1, iw)*fp cb = coef3(ip,iw+1)*(1.-fp)+coef3(ip+1,iw+1)*fp t2 = ca*(1.-fw) + cb*fw !-----update the total transmittance between levels k1 and k2 - tran(i)= (ax + (t1+t2*x3) * x3)*tran(i) - tran(i)=min(tran(i),0.9999999_fp_kind) - tran(i)=max(tran(i),0.0000001_fp_kind) + tran(ic)= (ax + (t1+t2*x3) * x3)*tran(ic) + tran(ic)=min(tran(ic),0.9999999) + tran(ic)=max(tran(ic),0.0000001) else - tran(i)=0.9999999 + tran(ic)=0.9999999 endif - enddo - return + ENDDO + end subroutine tablup !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine h2okdis(ib,m,np,k,fkw,gkw,ne,h2oexp,conexp, & - th2o,tcon,tran) + subroutine h2okdis(ib,np,k,fkw,gkw,ne,h2oexp,conexp, & + th2o,tcon,tran,irestrict) !********************************************************************** -! compute water vapor transmittance between levels k1 and k2 for -! m soundings, using the k-distribution method. +! compute water vapor transmittance between levels k1 and k2 +! using the k-distribution method. ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of levels (np) ! current level (k) ! planck-weighted k-distribution function due to @@ -9724,15 +11718,15 @@ subroutine h2okdis(ib,m,np,k,fkw,gkw,ne,h2oexp,conexp, & ! !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ------ - real(Kind=fp_kind) conexp(m,np,3),h2oexp(m,np,6) + real(fp_kind) conexp(CHUNK,np,3),h2oexp(CHUNK,np,6) integer ne(9) - real(Kind=fp_kind) fkw(6,9),gkw(6,3) + real(fp_kind) fkw(6,9),gkw(6,3) !---- updated parameters ----- - real(Kind=fp_kind) th2o(m,6),tcon(m,3),tran(m) + real(fp_kind) th2o(CHUNK,6),tcon(CHUNK,3),tran(CHUNK) !---- temporary arrays ----- - real(Kind=fp_kind) trnth2o + real(fp_kind) trnth2o !-----tco2 are the six exp factors between levels k1 and k2 ! tran is the updated total transmittance between levels k1 and k2 !-----th2o is the 6 exp factors between levels k1 and k2 due to @@ -9742,79 +11736,73 @@ subroutine h2okdis(ib,m,np,k,fkw,gkw,ne,h2oexp,conexp, & !-----trnth2o is the total transmittance between levels k1 and k2 due ! to both line and continuum absorption. !-----comoute th2o following eq. (8.20). - do i=1,m - th2o(i,1) = th2o(i,1)*h2oexp(i,k,1) - th2o(i,2) = th2o(i,2)*h2oexp(i,k,2) - th2o(i,3) = th2o(i,3)*h2oexp(i,k,3) - th2o(i,4) = th2o(i,4)*h2oexp(i,k,4) - th2o(i,5) = th2o(i,5)*h2oexp(i,k,5) - th2o(i,6) = th2o(i,6)*h2oexp(i,k,6) - enddo +!dir$ vector aligned + DO ic=1,irestrict + th2o(ic,1) = th2o(ic,1)*h2oexp(ic,k,1) + th2o(ic,2) = th2o(ic,2)*h2oexp(ic,k,2) + th2o(ic,3) = th2o(ic,3)*h2oexp(ic,k,3) + th2o(ic,4) = th2o(ic,4)*h2oexp(ic,k,4) + th2o(ic,5) = th2o(ic,5)*h2oexp(ic,k,5) + th2o(ic,6) = th2o(ic,6)*h2oexp(ic,k,6) if (ne(ib).eq.0) then !-----comoute trnh2o following eq. (8.22). fkw is given in table 4. - do i=1,m - trnth2o =(fkw(1,ib)*th2o(i,1) & - + fkw(2,ib)*th2o(i,2) & - + fkw(3,ib)*th2o(i,3) & - + fkw(4,ib)*th2o(i,4) & - + fkw(5,ib)*th2o(i,5) & - + fkw(6,ib)*th2o(i,6)) - tran(i)=tran(i)*trnth2o - enddo + trnth2o =(fkw(1,ib)*th2o(ic,1) & + + fkw(2,ib)*th2o(ic,2) & + + fkw(3,ib)*th2o(ic,3) & + + fkw(4,ib)*th2o(ic,4) & + + fkw(5,ib)*th2o(ic,5) & + + fkw(6,ib)*th2o(ic,6)) + tran(ic)=tran(ic)*trnth2o elseif (ne(ib).eq.1) then !-----comoute trnh2o following eq. (8.22) and (4.27). - do i=1,m - tcon(i,1)= tcon(i,1)*conexp(i,k,1) - trnth2o =(fkw(1,ib)*th2o(i,1) & - + fkw(2,ib)*th2o(i,2) & - + fkw(3,ib)*th2o(i,3) & - + fkw(4,ib)*th2o(i,4) & - + fkw(5,ib)*th2o(i,5) & - + fkw(6,ib)*th2o(i,6))*tcon(i,1) - tran(i)=tran(i)*trnth2o - enddo + tcon(ic,1)= tcon(ic,1)*conexp(ic,k,1) + trnth2o =(fkw(1,ib)*th2o(ic,1) & + + fkw(2,ib)*th2o(ic,2) & + + fkw(3,ib)*th2o(ic,3) & + + fkw(4,ib)*th2o(ic,4) & + + fkw(5,ib)*th2o(ic,5) & + + fkw(6,ib)*th2o(ic,6))*tcon(ic,1) + tran(ic)=tran(ic)*trnth2o else !-----for band 3. this band is divided into 3 subbands. - do i=1,m - tcon(i,1)= tcon(i,1)*conexp(i,k,1) - tcon(i,2)= tcon(i,2)*conexp(i,k,2) - tcon(i,3)= tcon(i,3)*conexp(i,k,3) + tcon(ic,1)= tcon(ic,1)*conexp(ic,k,1) + tcon(ic,2)= tcon(ic,2)*conexp(ic,k,2) + tcon(ic,3)= tcon(ic,3)*conexp(ic,k,3) !-----comoute trnh2o following eq. (4.29). - trnth2o = ( gkw(1,1)*th2o(i,1) & - + gkw(2,1)*th2o(i,2) & - + gkw(3,1)*th2o(i,3) & - + gkw(4,1)*th2o(i,4) & - + gkw(5,1)*th2o(i,5) & - + gkw(6,1)*th2o(i,6) ) * tcon(i,1) & - + ( gkw(1,2)*th2o(i,1) & - + gkw(2,2)*th2o(i,2) & - + gkw(3,2)*th2o(i,3) & - + gkw(4,2)*th2o(i,4) & - + gkw(5,2)*th2o(i,5) & - + gkw(6,2)*th2o(i,6) ) * tcon(i,2) & - + ( gkw(1,3)*th2o(i,1) & - + gkw(2,3)*th2o(i,2) & - + gkw(3,3)*th2o(i,3) & - + gkw(4,3)*th2o(i,4) & - + gkw(5,3)*th2o(i,5) & - + gkw(6,3)*th2o(i,6) ) * tcon(i,3) - tran(i)=tran(i)*trnth2o - enddo + trnth2o = ( gkw(1,1)*th2o(ic,1) & + + gkw(2,1)*th2o(ic,2) & + + gkw(3,1)*th2o(ic,3) & + + gkw(4,1)*th2o(ic,4) & + + gkw(5,1)*th2o(ic,5) & + + gkw(6,1)*th2o(ic,6) ) * tcon(ic,1) & + + ( gkw(1,2)*th2o(ic,1) & + + gkw(2,2)*th2o(ic,2) & + + gkw(3,2)*th2o(ic,3) & + + gkw(4,2)*th2o(ic,4) & + + gkw(5,2)*th2o(ic,5) & + + gkw(6,2)*th2o(ic,6) ) * tcon(ic,2) & + + ( gkw(1,3)*th2o(ic,1) & + + gkw(2,3)*th2o(ic,2) & + + gkw(3,3)*th2o(ic,3) & + + gkw(4,3)*th2o(ic,4) & + + gkw(5,3)*th2o(ic,5) & + + gkw(6,3)*th2o(ic,6) ) * tcon(ic,3) + tran(ic)=tran(ic)*trnth2o endif - return + ENDDO + end subroutine h2okdis !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine co2kdis(m,np,k,co2exp,tco2,tran) + subroutine co2kdis(np,k,co2exp,tco2,tran,irestrict) !********************************************************************** -! compute co2 transmittances between levels k1 and k2 for -! m soundings, using the k-distribution method with linear +! compute co2 transmittances between levels k1 and k2 +! using the k-distribution method with linear ! pressure scaling. ! !---- input parameters -! number of grid intervals (m) ! number of levels (np) ! current level (k) ! exponentials for co2 absorption (co2exp) @@ -9826,60 +11814,60 @@ subroutine co2kdis(m,np,k,co2exp,tco2,tran) ! !********************************************************************** implicit none - integer m,np,i,k + integer np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) co2exp(m,np,6,2) + real(fp_kind) co2exp(CHUNK,np,6,2) !---- updated parameters ----- - real(Kind=fp_kind) tco2(m,6,2),tran(m) + real(fp_kind) tco2(CHUNK,6,2),tran(CHUNK) !---- temporary arrays ----- - real(Kind=fp_kind) xc + real(fp_kind) xc !-----tco2 is the 6 exp factors between levels k1 and k2. ! xc is the total co2 transmittance given by eq. (4.30). ! the k-distribution functions are given in table 10. - do i=1,m !-----band-wings - tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1) - xc= 0.1395 *tco2(i,1,1) - tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1) - xc=xc+0.1407 *tco2(i,2,1) - tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1) - xc=xc+0.1549 *tco2(i,3,1) - tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1) - xc=xc+0.1357 *tco2(i,4,1) - tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1) - xc=xc+0.0182 *tco2(i,5,1) - tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1) - xc=xc+0.0220 *tco2(i,6,1) +!dir$ vector aligned + DO ic=1,irestrict + tco2(ic,1,1)=tco2(ic,1,1)*co2exp(ic,k,1,1) + xc= 0.1395 *tco2(ic,1,1) + tco2(ic,2,1)=tco2(ic,2,1)*co2exp(ic,k,2,1) + xc=xc+0.1407 *tco2(ic,2,1) + tco2(ic,3,1)=tco2(ic,3,1)*co2exp(ic,k,3,1) + xc=xc+0.1549 *tco2(ic,3,1) + tco2(ic,4,1)=tco2(ic,4,1)*co2exp(ic,k,4,1) + xc=xc+0.1357 *tco2(ic,4,1) + tco2(ic,5,1)=tco2(ic,5,1)*co2exp(ic,k,5,1) + xc=xc+0.0182 *tco2(ic,5,1) + tco2(ic,6,1)=tco2(ic,6,1)*co2exp(ic,k,6,1) + xc=xc+0.0220 *tco2(ic,6,1) !-----band-center region - tco2(i,1,2)=tco2(i,1,2)*co2exp(i,k,1,2) - xc=xc+0.0766 *tco2(i,1,2) - tco2(i,2,2)=tco2(i,2,2)*co2exp(i,k,2,2) - xc=xc+0.1372 *tco2(i,2,2) - tco2(i,3,2)=tco2(i,3,2)*co2exp(i,k,3,2) - xc=xc+0.1189 *tco2(i,3,2) - tco2(i,4,2)=tco2(i,4,2)*co2exp(i,k,4,2) - xc=xc+0.0335 *tco2(i,4,2) - tco2(i,5,2)=tco2(i,5,2)*co2exp(i,k,5,2) - xc=xc+0.0169 *tco2(i,5,2) - tco2(i,6,2)=tco2(i,6,2)*co2exp(i,k,6,2) - xc=xc+0.0059 *tco2(i,6,2) - tran(i)=tran(i)*xc - enddo - return + tco2(ic,1,2)=tco2(ic,1,2)*co2exp(ic,k,1,2) + xc=xc+0.0766 *tco2(ic,1,2) + tco2(ic,2,2)=tco2(ic,2,2)*co2exp(ic,k,2,2) + xc=xc+0.1372 *tco2(ic,2,2) + tco2(ic,3,2)=tco2(ic,3,2)*co2exp(ic,k,3,2) + xc=xc+0.1189 *tco2(ic,3,2) + tco2(ic,4,2)=tco2(ic,4,2)*co2exp(ic,k,4,2) + xc=xc+0.0335 *tco2(ic,4,2) + tco2(ic,5,2)=tco2(ic,5,2)*co2exp(ic,k,5,2) + xc=xc+0.0169 *tco2(ic,5,2) + tco2(ic,6,2)=tco2(ic,6,2)*co2exp(ic,k,6,2) + xc=xc+0.0059 *tco2(ic,6,2) + tran(ic)=tran(ic)*xc + ENDDO + end subroutine co2kdis !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine n2okdis(ib,m,np,k,n2oexp,tn2o,tran) + subroutine n2okdis(ib,np,k,n2oexp,tn2o,tran,irestrict) !********************************************************************** -! compute n2o transmittances between levels k1 and k2 for -! m soundings, using the k-distribution method with linear +! compute n2o transmittances between levels k1 and k2 +! using the k-distribution method with linear ! pressure scaling. ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of levels (np) ! current level (k) ! exponentials for n2o absorption (n2oexp) @@ -9891,51 +11879,51 @@ subroutine n2okdis(ib,m,np,k,n2oexp,tn2o,tran) ! !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) n2oexp(m,np,4) + real(fp_kind) n2oexp(CHUNK,np,4) !---- updated parameters ----- - real(Kind=fp_kind) tn2o(m,4),tran(m) + real(fp_kind) tn2o(CHUNK,4),tran(CHUNK) !---- temporary arrays ----- - real(Kind=fp_kind) xc + real(fp_kind) xc !-----tn2o is computed from eq. (8.20). ! xc is the total n2o transmittance computed from (8.22) ! the k-distribution functions are given in table 5. - do i=1,m !-----band 6 +!dir$ vector aligned + DO ic=1,irestrict if (ib.eq.6) then - tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1) - xc= 0.940414*tn2o(i,1) - tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2) - xc=xc+0.059586*tn2o(i,2) + tn2o(ic,1)=tn2o(ic,1)*n2oexp(ic,k,1) + xc= 0.940414*tn2o(ic,1) + tn2o(ic,2)=tn2o(ic,2)*n2oexp(ic,k,2) + xc=xc+0.059586*tn2o(ic,2) !-----band 7 else - tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1) - xc= 0.561961*tn2o(i,1) - tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2) - xc=xc+0.138707*tn2o(i,2) - tn2o(i,3)=tn2o(i,3)*n2oexp(i,k,3) - xc=xc+0.240670*tn2o(i,3) - tn2o(i,4)=tn2o(i,4)*n2oexp(i,k,4) - xc=xc+0.058662*tn2o(i,4) + tn2o(ic,1)=tn2o(ic,1)*n2oexp(ic,k,1) + xc= 0.561961*tn2o(ic,1) + tn2o(ic,2)=tn2o(ic,2)*n2oexp(ic,k,2) + xc=xc+0.138707*tn2o(ic,2) + tn2o(ic,3)=tn2o(ic,3)*n2oexp(ic,k,3) + xc=xc+0.240670*tn2o(ic,3) + tn2o(ic,4)=tn2o(ic,4)*n2oexp(ic,k,4) + xc=xc+0.058662*tn2o(ic,4) endif - tran(i)=tran(i)*xc - enddo - return + tran(ic)=tran(ic)*xc + ENDDO + end subroutine n2okdis !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine ch4kdis(ib,m,np,k,ch4exp,tch4,tran) + subroutine ch4kdis(ib,np,k,ch4exp,tch4,tran,irestrict) !********************************************************************** -! compute ch4 transmittances between levels k1 and k2 for -! m soundings, using the k-distribution method with +! compute ch4 transmittances between levels k1 and k2 +! using the k-distribution method with ! linear pressure scaling. ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of levels (np) ! current level (k) ! exponentials for ch4 absorption (ch4exp) @@ -9947,49 +11935,49 @@ subroutine ch4kdis(ib,m,np,k,ch4exp,tch4,tran) ! !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) ch4exp(m,np,4) + real(fp_kind) ch4exp(CHUNK,np,4) !---- updated parameters ----- - real(Kind=fp_kind) tch4(m,4),tran(m) + real(fp_kind) tch4(CHUNK,4),tran(CHUNK) !---- temporary arrays ----- - real(Kind=fp_kind) xc + real(fp_kind) xc !-----tch4 is computed from eq. (8.20). ! xc is the total ch4 transmittance computed from (8.22) ! the k-distribution functions are given in table 5. - do i=1,m !-----band 6 +!dir$ vector aligned + DO ic=1,irestrict if (ib.eq.6) then - tch4(i,1)=tch4(i,1)*ch4exp(i,k,1) - xc= tch4(i,1) + tch4(ic,1)=tch4(ic,1)*ch4exp(ic,k,1) + xc= tch4(ic,1) !-----band 7 else - tch4(i,1)=tch4(i,1)*ch4exp(i,k,1) - xc= 0.610650*tch4(i,1) - tch4(i,2)=tch4(i,2)*ch4exp(i,k,2) - xc=xc+0.280212*tch4(i,2) - tch4(i,3)=tch4(i,3)*ch4exp(i,k,3) - xc=xc+0.107349*tch4(i,3) - tch4(i,4)=tch4(i,4)*ch4exp(i,k,4) - xc=xc+0.001789*tch4(i,4) + tch4(ic,1)=tch4(ic,1)*ch4exp(ic,k,1) + xc= 0.610650*tch4(ic,1) + tch4(ic,2)=tch4(ic,2)*ch4exp(ic,k,2) + xc=xc+0.280212*tch4(ic,2) + tch4(ic,3)=tch4(ic,3)*ch4exp(ic,k,3) + xc=xc+0.107349*tch4(ic,3) + tch4(ic,4)=tch4(ic,4)*ch4exp(ic,k,4) + xc=xc+0.001789*tch4(ic,4) endif - tran(i)=tran(i)*xc - enddo - return + tran(ic)=tran(ic)*xc + ENDDO + end subroutine ch4kdis !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine comkdis(ib,m,np,k,comexp,tcom,tran) + subroutine comkdis(ib,np,k,comexp,tcom,tran,irestrict) !********************************************************************** ! compute co2-minor transmittances between levels k1 and k2 -! for m soundings, using the k-distribution method +! using the k-distribution method ! with linear pressure scaling. ! !---- input parameters ! spectral band (ib) -! number of grid intervals (m) ! number of levels (np) ! current level (k) ! exponentials for co2-minor absorption (comexp) @@ -10001,62 +11989,62 @@ subroutine comkdis(ib,m,np,k,comexp,tcom,tran) ! !********************************************************************** implicit none - integer ib,m,np,i,k + integer ib,np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) comexp(m,np,6) + real(fp_kind) comexp(CHUNK,np,6) !---- updated parameters ----- - real(Kind=fp_kind) tcom(m,6),tran(m) + real(fp_kind) tcom(CHUNK,6),tran(CHUNK) !---- temporary arrays ----- - real(Kind=fp_kind) xc + real(fp_kind) xc !-----tcom is computed from eq. (8.20). ! xc is the total co2 transmittance computed from (8.22) ! the k-distribution functions are given in table 6. - do i=1,m !-----band 4 +!dir$ vector aligned + DO ic=1,irestrict if (ib.eq.4) then - tcom(i,1)=tcom(i,1)*comexp(i,k,1) - xc= 0.12159*tcom(i,1) - tcom(i,2)=tcom(i,2)*comexp(i,k,2) - xc=xc+0.24359*tcom(i,2) - tcom(i,3)=tcom(i,3)*comexp(i,k,3) - xc=xc+0.24981*tcom(i,3) - tcom(i,4)=tcom(i,4)*comexp(i,k,4) - xc=xc+0.26427*tcom(i,4) - tcom(i,5)=tcom(i,5)*comexp(i,k,5) - xc=xc+0.07807*tcom(i,5) - tcom(i,6)=tcom(i,6)*comexp(i,k,6) - xc=xc+0.04267*tcom(i,6) + tcom(ic,1)=tcom(ic,1)*comexp(ic,k,1) + xc= 0.12159*tcom(ic,1) + tcom(ic,2)=tcom(ic,2)*comexp(ic,k,2) + xc=xc+0.24359*tcom(ic,2) + tcom(ic,3)=tcom(ic,3)*comexp(ic,k,3) + xc=xc+0.24981*tcom(ic,3) + tcom(ic,4)=tcom(ic,4)*comexp(ic,k,4) + xc=xc+0.26427*tcom(ic,4) + tcom(ic,5)=tcom(ic,5)*comexp(ic,k,5) + xc=xc+0.07807*tcom(ic,5) + tcom(ic,6)=tcom(ic,6)*comexp(ic,k,6) + xc=xc+0.04267*tcom(ic,6) !-----band 5 else - tcom(i,1)=tcom(i,1)*comexp(i,k,1) - xc= 0.06869*tcom(i,1) - tcom(i,2)=tcom(i,2)*comexp(i,k,2) - xc=xc+0.14795*tcom(i,2) - tcom(i,3)=tcom(i,3)*comexp(i,k,3) - xc=xc+ 0.19512*tcom(i,3) - tcom(i,4)=tcom(i,4)*comexp(i,k,4) - xc=xc+ 0.33446*tcom(i,4) - tcom(i,5)=tcom(i,5)*comexp(i,k,5) - xc=xc+ 0.17199*tcom(i,5) - tcom(i,6)=tcom(i,6)*comexp(i,k,6) - xc=xc+ 0.08179*tcom(i,6) + tcom(ic,1)=tcom(ic,1)*comexp(ic,k,1) + xc= 0.06869*tcom(ic,1) + tcom(ic,2)=tcom(ic,2)*comexp(ic,k,2) + xc=xc+0.14795*tcom(ic,2) + tcom(ic,3)=tcom(ic,3)*comexp(ic,k,3) + xc=xc+ 0.19512*tcom(ic,3) + tcom(ic,4)=tcom(ic,4)*comexp(ic,k,4) + xc=xc+ 0.33446*tcom(ic,4) + tcom(ic,5)=tcom(ic,5)*comexp(ic,k,5) + xc=xc+ 0.17199*tcom(ic,5) + tcom(ic,6)=tcom(ic,6)*comexp(ic,k,6) + xc=xc+ 0.08179*tcom(ic,6) endif - tran(i)=tran(i)*xc - enddo - return + tran(ic)=tran(ic)*xc + ENDDO + end subroutine comkdis !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine cfckdis(m,np,k,cfcexp,tcfc,tran) + subroutine cfckdis(np,k,cfcexp,tcfc,tran,irestrict) !********************************************************************** ! compute cfc-(11,12,22) transmittances between levels k1 and k2 -! for m soundings, using the k-distribution method with +! using the k-distribution method with ! linear pressure scaling. ! !---- input parameters -! number of grid intervals (m) ! number of levels (np) ! current level (k) ! exponentials for cfc absorption (cfcexp) @@ -10068,32 +12056,32 @@ subroutine cfckdis(m,np,k,cfcexp,tcfc,tran) ! !********************************************************************** implicit none - integer m,np,i,k + integer np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) cfcexp(m,np) + real(fp_kind) cfcexp(CHUNK,np) !---- updated parameters ----- - real(Kind=fp_kind) tcfc(m),tran(m) + real(fp_kind) tcfc(CHUNK),tran(CHUNK) !-----tcfc is the exp factors between levels k1 and k2. - do i=1,m - tcfc(i)=tcfc(i)*cfcexp(i,k) - tran(i)=tran(i)*tcfc(i) - enddo - return +!dir$ vector aligned + DO ic=1,irestrict + tcfc(ic)=tcfc(ic)*cfcexp(ic,k) + tran(ic)=tran(ic)*tcfc(ic) + ENDDO + end subroutine cfckdis !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine b10kdis(m,np,k,h2oexp,conexp,co2exp,n2oexp & - ,th2o,tcon,tco2,tn2o,tran) + subroutine b10kdis(np,k,h2oexp,conexp,co2exp,n2oexp & + ,th2o,tcon,tco2,tn2o,tran,irestrict) !********************************************************************** ! ! compute h2o (line and continuum),co2,n2o transmittances between -! levels k1 and k2 for m soundings, using the k-distribution +! levels k1 and k2 using the k-distribution ! method with linear pressure scaling. ! !---- input parameters -! number of grid intervals (m) ! number of levels (np) ! current level (k) ! exponentials for h2o line absorption (h2oexp) @@ -10115,73 +12103,67 @@ subroutine b10kdis(m,np,k,h2oexp,conexp,co2exp,n2oexp & ! !********************************************************************** implicit none - integer m,np,i,k + integer np,k,irestrict,ic !---- input parameters ----- - real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) & - ,n2oexp(m,np,4) + real(fp_kind) h2oexp(CHUNK,np,6),conexp(CHUNK,np,3),co2exp(CHUNK,np,6,2) & + ,n2oexp(CHUNK,np,4) !---- updated parameters ----- - real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2),tn2o(m,4) & - ,tran(m) + real(fp_kind) th2o(CHUNK,6),tcon(CHUNK,3),tco2(CHUNK,6,2),tn2o(CHUNK,4) & + ,tran(CHUNK) !---- temporary arrays ----- - real(Kind=fp_kind) xx + real(fp_kind) xx !-----for h2o line. the k-distribution functions are given in table 4. - do i=1,m - th2o(i,1)=th2o(i,1)*h2oexp(i,k,1) - xx= 0.3153*th2o(i,1) - th2o(i,2)=th2o(i,2)*h2oexp(i,k,2) - xx=xx+0.4604*th2o(i,2) - th2o(i,3)=th2o(i,3)*h2oexp(i,k,3) - xx=xx+0.1326*th2o(i,3) - th2o(i,4)=th2o(i,4)*h2oexp(i,k,4) - xx=xx+0.0798*th2o(i,4) - th2o(i,5)=th2o(i,5)*h2oexp(i,k,5) - xx=xx+0.0119*th2o(i,5) - tran(i)=xx - enddo -!-----for h2o continuum. note that conexp(i,k,3) is for subband 3a. - do i=1,m - tcon(i,1)=tcon(i,1)*conexp(i,k,1) - tran(i)=tran(i)*tcon(i,1) - enddo +!dir$ vector aligned + DO ic=1,irestrict + th2o(ic,1)=th2o(ic,1)*h2oexp(ic,k,1) + xx= 0.3153*th2o(ic,1) + th2o(ic,2)=th2o(ic,2)*h2oexp(ic,k,2) + xx=xx+0.4604*th2o(ic,2) + th2o(ic,3)=th2o(ic,3)*h2oexp(ic,k,3) + xx=xx+0.1326*th2o(ic,3) + th2o(ic,4)=th2o(ic,4)*h2oexp(ic,k,4) + xx=xx+0.0798*th2o(ic,4) + th2o(ic,5)=th2o(ic,5)*h2oexp(ic,k,5) + xx=xx+0.0119*th2o(ic,5) + tran(ic)=xx +!-----for h2o continuum. note that conexp(k,3) is for subband 3a. + tcon(ic,1)=tcon(ic,1)*conexp(ic,k,1) + tran(ic)=tran(ic)*tcon(ic,1) !-----for co2 (table 6) - do i=1,m - tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1) - xx= 0.2673*tco2(i,1,1) - tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1) - xx=xx+ 0.2201*tco2(i,2,1) - tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1) - xx=xx+ 0.2106*tco2(i,3,1) - tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1) - xx=xx+ 0.2409*tco2(i,4,1) - tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1) - xx=xx+ 0.0196*tco2(i,5,1) - tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1) - xx=xx+ 0.0415*tco2(i,6,1) - tran(i)=tran(i)*xx - enddo + tco2(ic,1,1)=tco2(ic,1,1)*co2exp(ic,k,1,1) + xx= 0.2673*tco2(ic,1,1) + tco2(ic,2,1)=tco2(ic,2,1)*co2exp(ic,k,2,1) + xx=xx+ 0.2201*tco2(ic,2,1) + tco2(ic,3,1)=tco2(ic,3,1)*co2exp(ic,k,3,1) + xx=xx+ 0.2106*tco2(ic,3,1) + tco2(ic,4,1)=tco2(ic,4,1)*co2exp(ic,k,4,1) + xx=xx+ 0.2409*tco2(ic,4,1) + tco2(ic,5,1)=tco2(ic,5,1)*co2exp(ic,k,5,1) + xx=xx+ 0.0196*tco2(ic,5,1) + tco2(ic,6,1)=tco2(ic,6,1)*co2exp(ic,k,6,1) + xx=xx+ 0.0415*tco2(ic,6,1) + tran(ic)=tran(ic)*xx !-----for n2o (table 5) - do i=1,m - tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1) - xx= 0.970831*tn2o(i,1) - tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2) - xx=xx+0.029169*tn2o(i,2) - tran(i)=tran(i)*(xx-1.0) - enddo - return + tn2o(ic,1)=tn2o(ic,1)*n2oexp(ic,k,1) + xx= 0.970831*tn2o(ic,1) + tn2o(ic,2)=tn2o(ic,2)*n2oexp(ic,k,2) + xx=xx+0.029169*tn2o(ic,2) + tran(ic)=tran(ic)*(xx-1.0) + ENDDO + end subroutine b10kdis !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD - subroutine cldovlp (m,np,k2,ict,icb,it,im,ib, & - cldhi,cldmd,cldlw,fcld,tcldlyr,fclr) + subroutine cldovlp (np,k2,ict,icb,it,im,ib, & + cldhi,cldmd,cldlw,fcld,tcldlyr,fclr,irestrict) !*********************************************************************** ! compute the fractional clear line-of-sight between levels k1 ! and k2 ! ! input parameters ! -! m: number of soundings ! np: number of layers ! k2: index for the level ! ict: the level separating high and middle clouds @@ -10197,110 +12179,308 @@ subroutine cldovlp (m,np,k2,ict,icb,it,im,ib, & ! fclr: clear line-of-sight between levels k1 and k2 !*********************************************************************** implicit none - integer m,np,k2,ict(m),icb(m) - integer i,j,k,ii,it(m),im(m),ib(m),itx(m,np),imx(m,np),ibx(m,np) - real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m) - real(Kind=fp_kind) fcld(m,np),tcldlyr(m,np),fclr(m) + integer np,k2,ict(CHUNK),icb(CHUNK),irestrict,ic + integer j,k,ii,it,im,ib,itx(CHUNK,np),imx(CHUNK,np),ibx(CHUNK,np) + real(fp_kind) cldhi(CHUNK),cldmd(CHUNK),cldlw(CHUNK) + real(fp_kind) fcld(CHUNK,np),tcldlyr(CHUNK,np),fclr(CHUNK) !*********************************************************************** - do i=1,m !-----for high clouds ! "it" is the number of high-cloud layers - if (k2.le.ict(i)) then - if(fcld(i,k2-1).gt.0.001) then - it(i)=it(i)+1 - ii=it(i) - itx(i,ii)=k2-1 +!dir$ vector aligned + DO ic=1,irestrict + if (k2.le.ict(ic)) then + if(fcld(ic,k2-1).gt.fcld_min) then + it=it+1 + ii=it + itx(ic,ii)=k2-1 if (ii .eq. 1) go to 11 !-----rearrange the order of cloud layers with increasing cloud amount do k=1,ii-1 - j=itx(i,k) - if(fcld(i,j).gt.fcld(i,k2-1)) then + j=itx(ic,k) + if(fcld(ic,j).gt.fcld(ic,k2-1)) then do j=ii-1,k,-1 - itx(i,j+1)=itx(i,j) + itx(ic,j+1)=itx(ic,j) enddo - itx(i,k)=k2-1 + itx(ic,k)=k2-1 go to 11 endif enddo 11 continue !-----compute equivalent black-body high cloud amount - cldhi(i)=0.0 + cldhi(ic)=0.0 do k=1,ii - j=itx(i,k) - cldhi(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldhi(i)) + j=itx(ic,k) + cldhi(ic)=fcld(ic,j)-tcldlyr(ic,j)*(fcld(ic,j)-cldhi(ic)) enddo endif endif !-----for middle clouds ! "im" is the number of middle-cloud layers - if (k2.gt.ict(m) .and. k2.le.icb(m)) then - if(fcld(i,k2-1).gt.0.001) then - im(i)=im(i)+1 - ii=im(i) - imx(i,ii)=k2-1 + if (k2.gt.ict(ic) .and. k2.le.icb(ic)) then + if(fcld(ic,k2-1).gt.fcld_min) then + im=im+1 + ii=im + imx(ic,ii)=k2-1 if (ii .eq. 1) go to 21 !-----rearrange the order of cloud layers with increasing cloud amount do k=1,ii-1 - j=imx(i,k) - if(fcld(i,j).gt.fcld(i,k2-1)) then + j=imx(ic,k) + if(fcld(ic,j).gt.fcld(ic,k2-1)) then do j=ii-1,k,-1 - imx(i,j+1)=imx(i,j) + imx(ic,j+1)=imx(ic,j) enddo - imx(i,k)=k2-1 + imx(ic,k)=k2-1 go to 21 endif enddo 21 continue !-----compute equivalent black-body middle cloud amount - cldmd(i)=0.0 + cldmd(ic)=0.0 do k=1,ii - j=imx(i,k) - cldmd(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldmd(i)) + j=imx(ic,k) + cldmd(ic)=fcld(ic,j)-tcldlyr(ic,j)*(fcld(ic,j)-cldmd(ic)) enddo endif endif !-----for low clouds ! "ib" is the number of low-cloud layers - if (k2.gt.icb(m)) then - if(fcld(i,k2-1).gt.0.001) then - ib(i)=ib(i)+1 - ii=ib(i) - ibx(i,ii)=k2-1 + if (k2.gt.icb(ic)) then + if(fcld(ic,k2-1).gt.fcld_min) then + ib=ib+1 + ii=ib + ibx(ic,ii)=k2-1 if (ii .eq. 1) go to 31 !-----rearrange the order of cloud layers with increasing cloud amount do k=1,ii-1 - j=ibx(i,k) - if(fcld(i,j).gt.fcld(i,k2-1)) then + j=ibx(ic,k) + if(fcld(ic,j).gt.fcld(ic,k2-1)) then do j=ii-1,k,-1 - ibx(i,j+1)=ibx(i,j) + ibx(ic,j+1)=ibx(ic,j) enddo - ibx(i,k)=k2-1 + ibx(ic,k)=k2-1 go to 31 endif enddo 31 continue !-----compute equivalent black-body low cloud amount - cldlw(i)=0.0 + cldlw(ic)=0.0 do k=1,ii - j=ibx(i,k) - cldlw(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldlw(i)) + j=ibx(ic,k) + cldlw(ic)=fcld(ic,j)-tcldlyr(ic,j)*(fcld(ic,j)-cldlw(ic)) enddo endif endif !-----fclr is the equivalent clear fraction between levels k1 and k2 ! assuming the three cloud groups are randomly overlapped. ! it follows eqs. (10) and (12). - fclr(i)=(1.0-cldhi(i))*(1.0-cldmd(i))*(1.0-cldlw(i)) - enddo !i loop - return + fclr(ic)=(1.0-cldhi(ic))*(1.0-cldmd(ic))*(1.0-cldlw(ic)) + ENDDO + end subroutine cldovlp !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD -!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine opt_cloud( sw_or_lw, np ,nband, dz, q, re, tau, ssa, asy, irestrict ) + implicit none +!------------------------------------------------------------------------ +! History; +! 02/2014 Toshi Matsui ; Initial. +!------------------------------------------------------------------------ + +!-----IO variables + character(len=2), intent(in) :: sw_or_lw ! character index that determines sw or lw radiation + integer, intent(in) :: np !model verical array size + integer, intent(in) :: nband !# of radiation bands + real, intent(in) :: dz(CHUNK,np) !layer thickness [m] + real, intent(in) :: q(CHUNK,np ,id_hmax) !hydrometeor mass conc [g/m3] + real, intent(inout) :: re(CHUNK,np,id_hmax) !effective radius [um] + real, intent(out) :: tau(CHUNK,np,nband) !total optical depth [-] + real, intent(out) :: ssa(CHUNK,np,nband) !total single scattering albedo [-] + real, intent(out) :: asy(CHUNK,np,nband) !total asymetry factor [-] + integer, intent(in) :: irestrict + +!-----Local variables +! real :: ext !mass extinction coef [m2/g] + real :: tau_typ(CHUNK,nband,id_hmax) !optical depth for each aerosol type [-] + real :: ssa_typ(CHUNK,nband,id_hmax) !single scattering albedo for each aerosol type [-] + real :: asy_typ(CHUNK,nband,id_hmax) !asymetery factor for each aerosol type [-] + real :: wgt1(CHUNK), wgt2(CHUNK) !weight for pressure interpolation + integer :: t,k,n,ib,ire,ic + real :: ref(CHUNK) + logical :: exit_re_loop(CHUNK) + +! +! check all single scattering tables are allocated and initialized +! + if( .not. allocated(kext_sw_cloud) ) then + call wrf_error_fatal('MSG opt_cloud in module_ra_goddard_2014.F you must call read_lut first.') + endif + +! +! intialize +! +!dir$ vector aligned + DO ic=1,irestrict + tau(ic,:,:) = 0.e0 ; ssa(ic,:,:) = 0.e0 ; asy(ic,:,:) = 0.e0 + ENDDO + +! +! Compute total aerosol tau, ssa, & asy +! Algorithm: Total optical properties is computed as +! TAU = (tau1 + tau2 + tau3 +.... ) +! SSA = (tau1*w1 + tau2*w2 + tau3*w2 + .... ) / TAU +! ASY = (tau1*w1*g1 + tau2*w2*g1 + tau3*w2*g1 + .... ) / (TAU*SSA) +! + vertical_loop: do k = 1, np !vertical loop +!dir$ vector aligned + DO ic=1,irestrict + tau_typ(ic,:,:) = 0. ; ssa_typ(ic,:,:) = 0. ; asy_typ(ic,:,:) = 0. !initialization + ENDDO + type_loop: do t = 1,id_hmax !hydrometero type loop + DO ic=1,irestrict + ref(ic) = re(ic,k,t) !effective radius [um] + if(re(ic,k,t) < pts_re_visir(1) ) ref(ic) = pts_re_visir(1) + if(re(ic,k,t) > pts_re_visir(mxpts_re_visir)) ref(ic) = pts_re_visir(mxpts_re_visir) + ENDDO + + ! + ! Linear interpolation + ! + exit_re_loop(1:irestrict) = .false. + + re_loop: do ire = 1,mxpts_re_visir-1 + + if(ALL(exit_re_loop(1:irestrict))) exit re_loop + +!dir$ SIMD +!dir$ vector aligned + DO ic=1,irestrict + if( .not. exit_re_loop(ic) .and. ref(ic) >= pts_re_visir(ire) .and. ref(ic) <= pts_re_visir(ire+1) ) then + wgt2(ic) = ( ref(ic) - pts_re_visir(ire) ) / ( pts_re_visir(ire+1) - pts_re_visir(ire) ) + wgt1(ic) = 1.0 - wgt2(ic) + + rad_select: select case(sw_or_lw) + case ('sw') !shortwave radiation + tau_typ(ic,1:nband,t) = (wgt1(ic)*kext_sw_cloud(1:nband,ire,t) + wgt2(ic)*kext_sw_cloud(1:nband,ire+1,t)) & + * q(ic,k,t) * dz(ic,k) * 1.e-3 !optical depth [-] + ssa_typ(ic,1:nband,t) = wgt1(ic)*salb_sw_cloud(1:nband,ire,t) + wgt2(ic)*salb_sw_cloud(1:nband,ire+1,t) + asy_typ(ic,1:nband,t) = wgt1(ic)*asym_sw_cloud(1:nband,ire,t) + wgt2(ic)*asym_sw_cloud(1:nband,ire+1,t) + + case ('lw') !longwave radiation + tau_typ(ic,1:nband,t) = (wgt1(ic)*kext_lw_cloud(1:nband,ire,t) + wgt2(ic)*kext_lw_cloud(1:nband,ire+1,t)) & + * q(ic,k,t) * dz(ic,k) * 1.e-3 !optical depth [-] + ssa_typ(ic,1:nband,t) = wgt1(ic)*salb_lw_cloud(1:nband,ire,t) + wgt2(ic)*salb_lw_cloud(1:nband,ire+1,t) + asy_typ(ic,1:nband,t) = wgt1(ic)*asym_lw_cloud(1:nband,ire,t) + wgt2(ic)*asym_lw_cloud(1:nband,ire+1,t) + + case default +! stop 'MSG opt_cloud: the option does not exist: sw_or_lw ' + call wrf_error_fatal('MSG opt_cloud: the option does not exist: sw_or_lw ') + end select rad_select + + exit_re_loop(ic) = .true. + endif + ENDDO + + enddo re_loop + + enddo type_loop + + ! + ! compute total optical depth single scatterling albedo, asymetry parameters + ! + band_loop: do n = 1,nband !wavelengh loop +!dir$ vector aligned + DO ic=1,irestrict + tau(ic,k,n) = sum( tau_typ(ic,n,1:id_hmax) ) + ssa(ic,k,n) = sum( tau_typ(ic,n,1:id_hmax)*ssa_typ(ic,n,1:id_hmax) ) / max(tau(ic,k,n),1e-08) + asy(ic,k,n) = sum( tau_typ(ic,n,1:id_hmax)*ssa_typ(ic,n,1:id_hmax)*asy_typ(ic,n,1:id_hmax) ) & + / max(tau(ic,k,n)*ssa(ic,k,n),1e-08) + ENDDO + enddo band_loop + + enddo vertical_loop + + end subroutine opt_cloud + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + subroutine check_reff(spc,q,re,i,j,k) + use, intrinsic :: ieee_arithmetic + implicit none + character(len=*) :: spc !species + real,intent(inout) :: q !mass concentration [g/m2] + real,intent(inout) :: re !effective radius [g/m2] + integer,intent(in) :: i,j,k !array index + + +! +! Check NaN +! + if( ieee_is_nan(re) ) then + print*,'MSG check_reff: Warning '//trim(spc)//' re is NaN at (i,j,k)=',i,j,k + re = 0.e0 + endif +! +! Check too large (100m) +! + if( re > 1.e8 ) then + print*,'MSG check_reff: Warning '//trim(spc)//' re is too large (>100m) at (i,j,k)=',i,j,k + re = 0.e0 + endif + +! +! check negative re +! + if( re < 0.e0 ) then + print*,'MSG check_reff: Warning '//trim(spc)//' re is negative at (i,j,k)=',i,j,k + re = 0.e0 + endif + +! +! check inconsistency +! + if( q > 0.e0 .and. re == 0.e0 ) then +! print*,'MSG check_reff: Warning '//trim(spc)//' q is ',q,', but re is ',re + re = 0.e0 ; q = 0.e0 + endif + + end subroutine check_reff + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD + + real function ave(var2d) + !averaging + implicit none + real,intent(in) :: var2d(:,:) + + ave = sum( var2d(:,:) ) / real( size(var2d(:,:) ) ) + + end function ave + + real function avew(var2d,wgt2d) + !averaging + implicit none + real,intent(in) :: var2d(:,:) + real,intent(in) :: wgt2d(:,:) + + if( sum(wgt2d(:,:)) == 0.e0 ) then + avew = 0.e0 + else + avew = sum( var2d(:,:)*wgt2d(:,:) ) / sum(wgt2d(:,:)) + endif + + end function avew + !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD -end module module_ra_goddard + end module module_ra_goddard + +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD +!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD diff --git a/phys/module_ra_rrtmg_lw.F b/phys/module_ra_rrtmg_lw.F index 126ad6ed8b..65cbfb8116 100644 --- a/phys/module_ra_rrtmg_lw.F +++ b/phys/module_ra_rrtmg_lw.F @@ -2086,7 +2086,7 @@ module mcica_subcol_gen_lw ! Public subroutines !------------------------------------------------------------------ - subroutine mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, & + subroutine mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, hgt, & cldfrac, ciwp, clwp, cswp, rei, rel, res, tauc, cldfmcl, & ciwpmcl, clwpmcl, cswpmcl, reicmcl, relqmcl, resnmcl, taucmcl) @@ -2108,6 +2108,9 @@ subroutine mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, & real(kind=rb), intent(in) :: play(:,:) ! layer pressures (mb) ! Dimensions: (ncol,nlay) + real(kind=rb), intent(in) :: hgt(:,:) ! layer height (m) + ! Dimensions: (ncol,nlay) + ! Atmosphere/clouds - cldprop real(kind=rb), intent(in) :: cldfrac(:,:) ! layer cloud fraction ! Dimensions: (ncol,nlay) @@ -2167,7 +2170,7 @@ subroutine mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, & ! Return if clear sky; or stop if icld out of range if (icld.eq.0) return - if (icld.lt.0.or.icld.gt.3) then + if (icld.lt.0.or.icld.gt.5) then stop 'MCICA_SUBCOL: INVALID ICLD' endif @@ -2198,14 +2201,14 @@ subroutine mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, & ! enddo ! Generate the stochastic subcolumns of cloud optical properties for the longwave; - call generate_stochastic_clouds (ncol, nlay, nsubclw, icld, irng, pmid, cldfrac, clwp, ciwp, cswp, tauc, & + call generate_stochastic_clouds (ncol, nlay, nsubclw, icld, irng, pmid, hgt, cldfrac, clwp, ciwp, cswp, tauc, & cldfmcl, clwpmcl, ciwpmcl, cswpmcl, taucmcl, permuteseed) end subroutine mcica_subcol_lw !------------------------------------------------------------------------------------------------- - subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld, clwp, ciwp, cswp, tauc, & + subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, hgt, cld, clwp, ciwp, cswp, tauc, & cld_stoch, clwp_stoch, ciwp_stoch, cswp_stoch, tauc_stoch, changeSeed) !------------------------------------------------------------------------------------------------- @@ -2215,10 +2218,13 @@ subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld ! ! Original code: Based on Raisanen et al., QJRMS, 2004. ! - ! Modifications: Generalized for use with RRTMG and added Mersenne Twister as the default + ! Modifications: + ! 1) Generalized for use with RRTMG and added Mersenne Twister as the default ! random number generator, which can be changed to the optional kissvec random number generator ! with flag 'irng'. Some extra functionality has been commented or removed. ! Michael J. Iacono, AER, Inc., February 2007 + ! 2) Activated exponential and exponential/random cloud overlap method + ! Michael J. Iacono, AER, November 2017 ! ! Given a profile of cloud fraction, cloud water and cloud ice, we produce a set of subcolumns. ! Each layer within each subcolumn is homogeneous, with cloud fraction equal to zero or one @@ -2227,12 +2233,11 @@ subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld ! and obeys an overlap assumption in the vertical. ! ! Overlap assumption: - ! The cloud are consistent with 4 overlap assumptions: random, maximum, maximum-random and exponential. - ! The default option is maximum-random (option 3) - ! The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap - ! This is set with the variable "overlap" - !mji - Exponential overlap option (overlap=4) has been deactivated in this version - ! The exponential overlap uses also a length scale, Zo. (real, parameter :: Zo = 2500. ) + ! The cloud are consistent with 5 overlap assumptions: random, maximum, maximum-random, exponential and exponential random. + ! The default option is maximum-random (option 2) + ! The options are: 1=random overlap, 2=max/random, 3=maximum overlap, 4=exponential overlap, 5=exp/random + ! This is set with the variable "overlap" + ! The exponential overlap uses also a length scale, Zo. (real, parameter :: Zo = 2500. ) ! ! Seed: ! If the stochastic cloud generator is called several times during the same timestep, @@ -2284,6 +2289,8 @@ subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld ! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state real(kind=rb), intent(in) :: pmid(:,:) ! layer pressure (Pa) ! Dimensions: (ncol,nlay) + real(kind=rb), intent(in) :: hgt(:,:) ! layer height (m) + ! Dimensions: (ncol,nlay) real(kind=rb), intent(in) :: cld(:,:) ! cloud fraction ! Dimensions: (ncol,nlay) real(kind=rb), intent(in) :: clwp(:,:) ! in-cloud liquid water path @@ -2330,11 +2337,11 @@ subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld ! real(kind=rb) :: mean_asmc_stoch(ncol, nlay) ! cloud asymmetry parameter ! Set overlap - integer(kind=im) :: overlap ! 1 = random overlap, 2 = maximum/random, - ! 3 = maximum overlap, -! real(kind=rb), parameter :: Zo = 2500._rb ! length scale (m) -! real(kind=rb) :: zm(ncol,nlay) ! Height of midpoints (above surface) -! real(kind=rb), dimension(nlay) :: alpha=0.0_rb ! overlap parameter + integer(kind=im) :: overlap ! 1 = random overlap, 2 = maximum-random, + ! 3 = maximum overlap, 4 = exponential, + ! 5 = exponential-random + real(kind=rb), parameter :: Zo = 2500._rb ! length scale (m) + real(kind=rb), dimension(ncol,nlay) :: alpha ! overlap parameter ! Constants (min value for cloud fraction and cloud water and ice) real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction @@ -2481,39 +2488,56 @@ subroutine generate_stochastic_clouds(ncol, nlay, nsubcol, icld, irng, pmid, cld enddo endif -! case(4) - inactive -! ! Exponential overlap: weighting between maximum and random overlap increases with the distance. -! ! The random numbers for exponential overlap verify: -! ! j=1 RAN(j)=RND1 -! ! j>1 if RND1 < alpha(j,j-1) => RAN(j) = RAN(j-1) -! ! RAN(j) = RND2 -! ! alpha is obtained from the equation -! ! alpha = exp(- (Zi-Zj-1)/Zo) where Zo is a characteristic length scale - - -! ! compute alpha -! zm = state%zm -! alpha(:, 1) = 0. -! do ilev = 2,nlay -! alpha(:, ilev) = exp( -( zm (:, ilev-1) - zm (:, ilev)) / Zo) -! end do - -! ! generate 2 streams of random numbers -! do isubcol = 1,nsubcol -! do ilev = 1,nlay -! call kissvec(seed1, seed2, seed3, seed4, rand_num) -! CDF(isubcol, :, ilev) = rand_num -! call kissvec(seed1, seed2, seed3, seed4, rand_num) -! CDF2(isubcol, :, ilev) = rand_num -! end do -! end do - -! ! generate random numbers -! do ilev = 2,nlay -! where (CDF2(:, :, ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) ) -! CDF(:,:,ilev) = CDF(:,:,ilev-1) -! end where -! end do + case(4) + ! Exponential overlap: weighting between maximum and random overlap increases with the distance. + ! The random numbers for exponential overlap verify: + ! j=1 RAN(j)=RND1 + ! j>1 if RND1 < alpha(j,j-1) => RAN(j) = RAN(j-1) + ! RAN(j) = RND2 + ! alpha is obtained from the equation + ! alpha = exp(-(Z(j)-Z(j-1))/Zo) where Zo is a characteristic length scale + + ! compute alpha + do i = 1, ncol + alpha(i, 1) = 0._rb + do ilev = 2,nlay + alpha(i, ilev) = exp( -( hgt (i, ilev) - hgt (i, ilev-1)) / Zo) + enddo + enddo + + ! generate 2 streams of random numbers + if (irng.eq.0) then + do isubcol = 1,nsubcol + do ilev = 1,nlay + call kissvec(seed1, seed2, seed3, seed4, rand_num) + CDF(isubcol, :, ilev) = rand_num + call kissvec(seed1, seed2, seed3, seed4, rand_num) + CDF2(isubcol, :, ilev) = rand_num + enddo + enddo + elseif (irng.eq.1) then + do isubcol = 1, nsubcol + do i = 1, ncol + do ilev = 1, nlay + rand_num_mt = getRandomReal(randomNumbers) + CDF(isubcol,i,ilev) = rand_num_mt + rand_num_mt = getRandomReal(randomNumbers) + CDF2(isubcol,i,ilev) = rand_num_mt + enddo + enddo + enddo + endif + + ! generate random numbers + do ilev = 2,nlay + where (CDF2(:, :, ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) ) + CDF(:,:,ilev) = CDF(:,:,ilev-1) + end where + end do + + case(5) + ! Exponential-random overlap: + call wrf_error_fatal("Cloud Overlap case 5: ER has not yet been implemented. Stopping...") end select @@ -10687,6 +10711,8 @@ subroutine rrtmg_lw & ! 1: Random ! 2: Maximum/random ! 3: Maximum + ! 4: Exponential + ! 5: Exponential/random real(kind=rb), intent(in) :: play(:,:) ! Layer pressures (hPa, mb) ! Dimensions: (ncol,nlay) real(kind=rb), intent(in) :: plev(:,:) ! Interface pressures (hPa, mb) @@ -10927,7 +10953,8 @@ subroutine rrtmg_lw & ! icld = 1, with clouds using random cloud overlap ! icld = 2, with clouds using maximum/random cloud overlap ! icld = 3, with clouds using maximum cloud overlap (McICA only) - if (icld.lt.0.or.icld.gt.3) icld = 2 +! icld = 4, with clouds using exponential cloud overlap (McICA only) +! icld = 5, with clouds using exponential/random cloud overlap (McICA only) ! Set iaer to select aerosol option ! iaer = 0, no aerosols @@ -11461,6 +11488,7 @@ SUBROUTINE RRTMG_LWRAD( & p8w, p3d, pi3d, & dz8w, tsk, t3d, t8w, rho3d, r, g, & icloud, warm_rain, cldfra3d, & + cldovrlp, & lradius,iradius, & is_cammgmp_used, & f_ice_phy, f_rain_phy, & @@ -11634,6 +11662,7 @@ SUBROUTINE RRTMG_LWRAD( & integer :: ncol, & nlay, & icld, & + cldovrlp, & inflglw, & iceflglw, & liqflglw @@ -11653,6 +11682,10 @@ SUBROUTINE RRTMG_LWRAD( & cfc22vmr, & ccl4vmr real, dimension( kts:nlayers ) :: o3mmr +! Add height of each layer for exponential-random cloud overlap +! This will be derived below from the dz in each layer + real, dimension( 1, kts:nlayers ) :: hgt + real :: dzsum ! For old cloud property specification for rrtm_lw real, dimension( kts:kte ) :: clwp, & ciwp, & @@ -12046,6 +12079,8 @@ SUBROUTINE RRTMG_LWRAD( & ! Steven Cavallo, December 2010 nlay = nlayers ! Keep these indices the same +! Select cloud overlap assumption (1 = random, 2 = maximum-random, 3 = maximum, 4 = exponential, 5 = exponential-random + icld=cldovrlp ! J. Henderson AER assign namelist variable cldovrlp to existing icld ! Select cloud liquid and ice optics parameterization options ! For passing in cloud optical properties directly: @@ -12054,7 +12089,6 @@ SUBROUTINE RRTMG_LWRAD( & ! iceflglw = 0 ! liqflglw = 0 ! For passing in cloud physical properties; cloud optics parameterized in RRTMG: - icld = 2 inflglw = 2 iceflglw = 3 liqflglw = 1 @@ -12168,6 +12202,15 @@ SUBROUTINE RRTMG_LWRAD( & ccl4vmr(ncol,k) = ccl4 enddo +! Derive height of each layer mid-point from layer thickness. +! Needed for exponential (icld=4) and exponential-random overlap (icld=5) options only. + dzsum = 0.0 + do k = kts, kte + dz = dz1d(k) + hgt(ncol,k) = dzsum + 0.5*dz + dzsum = dzsum + dz + enddo + ! This section is replaced with a new method to deal with model top if ( 1 == 0 ) then @@ -12204,6 +12247,11 @@ SUBROUTINE RRTMG_LWRAD( & do L=kte+1,nlayers,1 plev(ncol,L+1) = plev(ncol,L) - deltap play(ncol,L) = 0.5*(plev(ncol,L) + plev(ncol,L+1)) +! Fill in height array above model top to top of atmosphere using +! dz from model top layer for completeness, though this information is not +! likely to be used by the exponential-random cloud overlap method. + hgt(ncol,L) = dzsum + 0.5*dz + dzsum = dzsum + dz enddo ! Add zero as top level. This gets the temperature max at the ! stratopause, reducing the downward flux errors in the top @@ -12552,7 +12600,7 @@ SUBROUTINE RRTMG_LWRAD( & permuteseed = 150 ! Sub-column generator for McICA - call mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, & + call mcica_subcol_lw(iplon, ncol, nlay, icld, permuteseed, irng, play, hgt, & cldfrac, ciwpth, clwpth, cswpth, rei, rel, res, taucld, cldfmcl, & ciwpmcl, clwpmcl, cswpmcl, reicmcl, relqmcl, resnmcl, taucmcl) diff --git a/phys/module_ra_rrtmg_sw.F b/phys/module_ra_rrtmg_sw.F index e582e6cef0..af482b6fa8 100644 --- a/phys/module_ra_rrtmg_sw.F +++ b/phys/module_ra_rrtmg_sw.F @@ -1389,7 +1389,8 @@ module mcica_subcol_gen_sw ! Public subroutines !------------------------------------------------------------------ - subroutine mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, & +! mji - Add height needed for exponential-ranom cloud overlap method (icld=4) + subroutine mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, hgt, & cldfrac, ciwp, clwp, cswp, rei, rel, res, tauc, ssac, asmc, fsfc, & cldfmcl, ciwpmcl, clwpmcl, cswpmcl, reicmcl, relqmcl, resnmcl, & taucmcl, ssacmcl, asmcmcl, fsfcmcl) @@ -1411,7 +1412,9 @@ subroutine mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, & ! Atmosphere real(kind=rb), intent(in) :: play(:,:) ! layer pressures (mb) ! Dimensions: (ncol,nlay) - +! mji - Add height + real(kind=rb), intent(in) :: hgt(:,:) ! layer height (m) + ! Dimensions: (ncol,nlay) ! Atmosphere/clouds - cldprop real(kind=rb), intent(in) :: cldfrac(:,:) ! layer cloud fraction ! Dimensions: (ncol,nlay) @@ -1473,11 +1476,8 @@ subroutine mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, & ! real(kind=rb) :: ql(ncol,nlay) ! liq water (specific humidity) -! Return if clear sky; or stop if icld out of range +! Return if clear sky if (icld.eq.0) return - if (icld.lt.0.or.icld.gt.3) then - stop 'MCICA_SUBCOL: INVALID ICLD' - endif ! NOTE: For GCM mode, permuteseed must be offset between LW and SW by at least number of subcolumns @@ -1506,7 +1506,7 @@ subroutine mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, & ! enddo ! Generate the stochastic subcolumns of cloud optical properties for the shortwave; - call generate_stochastic_clouds_sw (ncol, nlay, nsubcsw, icld, irng, pmid, cldfrac, clwp, ciwp, cswp, & + call generate_stochastic_clouds_sw (ncol, nlay, nsubcsw, icld, irng, pmid, hgt, cldfrac, clwp, ciwp, cswp, & tauc, ssac, asmc, fsfc, cldfmcl, clwpmcl, ciwpmcl, cswpmcl, & taucmcl, ssacmcl, asmcmcl, fsfcmcl, permuteseed) @@ -1514,7 +1514,7 @@ end subroutine mcica_subcol_sw !------------------------------------------------------------------------------------------------- - subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, cld, clwp, ciwp, cswp, & + subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, hgt, cld, clwp, ciwp, cswp, & tauc, ssac, asmc, fsfc, cld_stoch, clwp_stoch, ciwp_stoch, cswp_stoch, & tauc_stoch, ssac_stoch, asmc_stoch, fsfc_stoch, changeSeed) !------------------------------------------------------------------------------------------------- @@ -1594,6 +1594,8 @@ subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, ! Column state (cloud fraction, cloud water, cloud ice) + variables needed to read physics state real(kind=rb), intent(in) :: pmid(:,:) ! layer pressure (Pa) ! Dimensions: (ncol,nlay) + real(kind=rb), intent(in) :: hgt(:,:) ! layer height (m) + ! Dimensions: (ncol,nlay) real(kind=rb), intent(in) :: cld(:,:) ! cloud fraction ! Dimensions: (ncol,nlay) real(kind=rb), intent(in) :: clwp(:,:) ! in-cloud liquid water path (g/m2) @@ -1642,11 +1644,11 @@ subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, ! real(kind=rb) :: mean_fsfc_stoch(ncol,nlay) ! cloud forward scattering fraction ! Set overlap - integer(kind=im) :: overlap ! 1 = random overlap, 2 = maximum/random, - ! 3 = maximum overlap, -! real(kind=rb), parameter :: Zo = 2500._rb ! length scale (m) -! real(kind=rb) :: zm(ncon,nlay) ! Height of midpoints (above surface) -! real(kind=rb), dimension(nlay) :: alpha=0.0_rb ! overlap parameter + integer(kind=im) :: overlap ! 1 = random overlap, 2 = maximum-random, + ! 3 = maximum overlap, 4 = exponential, + ! 5 = exponential-random + real(kind=rb), parameter :: Zo = 2500._rb ! length scale (m) + real(kind=rb), dimension(ncol,nlay) :: alpha ! overlap parameter ! Constants (min value for cloud fraction and cloud water and ice) real(kind=rb), parameter :: cldmin = 1.0e-20_rb ! min cloud fraction @@ -1793,39 +1795,58 @@ subroutine generate_stochastic_clouds_sw(ncol, nlay, nsubcol, icld, irng, pmid, enddo endif -! case(4) - inactive -! ! Exponential overlap: weighting between maximum and random overlap increases with the distance. -! ! The random numbers for exponential overlap verify: -! ! j=1 RAN(j)=RND1 -! ! j>1 if RND1 < alpha(j,j-1) => RAN(j) = RAN(j-1) -! ! RAN(j) = RND2 -! ! alpha is obtained from the equation -! ! alpha = exp(- (Zi-Zj-1)/Zo) where Zo is a characteristic length scale - - -! ! compute alpha -! zm = state%zm -! alpha(:, 1) = 0._rb -! do ilev = 2,nlay -! alpha(:, ilev) = exp( -( zm (:, ilev-1) - zm (:, ilev)) / Zo) -! end do - -! ! generate 2 streams of random numbers -! do isubcol = 1,nsubcol -! do ilev = 1,nlay -! call kissvec(seed1, seed2, seed3, seed4, rand_num) -! CDF(isubcol, :, ilev) = rand_num -! call kissvec(seed1, seed2, seed3, seed4, rand_num) -! CDF2(isubcol, :, ilev) = rand_num -! end do -! end do - -! ! generate random numbers -! do ilev = 2,nlay -! where (CDF2(:, :, ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) ) -! CDF(:,:,ilev) = CDF(:,:,ilev-1) -! end where -! end do +! mji - Activate exponential cloud overlap option + case(4) + ! Exponential overlap: weighting between maximum and random overlap increases with the distance. + ! The random numbers for exponential overlap verify: + ! j=1 RAN(j)=RND1 + ! j>1 if RND1 < alpha(j,j-1) => RAN(j) = RAN(j-1) + ! RAN(j) = RND2 + ! alpha is obtained from the equation + ! alpha = exp(-(Z(j)-Z(j-1))/Zo) where Zo is a characteristic length scale + + ! compute alpha + do i = 1, ncol + alpha(i, 1) = 0._rb + do ilev = 2,nlay + alpha(i, ilev) = exp( -( hgt (i, ilev) - hgt (i, ilev-1)) / Zo) + enddo + enddo + + ! generate 2 streams of random numbers + if (irng.eq.0) then + do isubcol = 1,nsubcol + do ilev = 1,nlay + call kissvec(seed1, seed2, seed3, seed4, rand_num) + CDF(isubcol, :, ilev) = rand_num + call kissvec(seed1, seed2, seed3, seed4, rand_num) + CDF2(isubcol, :, ilev) = rand_num + enddo + enddo + elseif (irng.eq.1) then + do isubcol = 1, nsubcol + do i = 1, ncol + do ilev = 1, nlay + rand_num_mt = getRandomReal(randomNumbers) + CDF(isubcol,i,ilev) = rand_num_mt + rand_num_mt = getRandomReal(randomNumbers) + CDF2(isubcol,i,ilev) = rand_num_mt + enddo + enddo + enddo + endif + + ! generate random numbers + do ilev = 2,nlay + where (CDF2(:, :, ilev) < spread(alpha (:,ilev), dim=1, nCopies=nsubcol) ) + CDF(:,:,ilev) = CDF(:,:,ilev-1) + end where + end do + +! mji - Exponential-random cloud overlap option + case(5) + ! Exponential-random overlap: + call wrf_error_fatal("Cloud Overlap case 5: ER has not yet been implemented. Stopping...") end select @@ -8855,7 +8876,8 @@ subroutine rrtmg_sw & ! 1: Random ! 2: Maximum/random ! 3: Maximum - + ! 4: Exponential + ! 5: Exponential/random real(kind=rb), intent(in) :: play(:,:) ! Layer pressures (hPa, mb) ! Dimensions: (ncol,nlay) real(kind=rb), intent(in) :: plev(:,:) ! Interface pressures (hPa, mb) @@ -9182,7 +9204,8 @@ subroutine rrtmg_sw & ! icld = 1, with clouds using random cloud overlap (McICA only) ! icld = 2, with clouds using maximum/random cloud overlap (McICA only) ! icld = 3, with clouds using maximum cloud overlap (McICA only) - if (icld.lt.0.or.icld.gt.3) icld = 2 +! icld = 4, with clouds using exponential cloud overlap (McICA only) +! icld = 5, with clouds using exponential/random cloud overlap (McICA only) ! Set iaer to select aerosol option ! iaer = 0, no aerosols @@ -9907,6 +9930,7 @@ SUBROUTINE RRTMG_SWRAD( & re_cloud,re_ice,re_snow, & has_reqc,has_reqi,has_reqs, & icloud, warm_rain, & + cldovrlp, & ! J. Henderson AER: cldovrlp namelist value f_ice_phy, f_rain_phy, & xland, xice, snow, & qv3d, qc3d, qr3d, & @@ -10127,6 +10151,7 @@ SUBROUTINE RRTMG_SWRAD( & integer :: ncol, & nlay, & icld, & + cldovrlp, & ! J. Henderson AER inflgsw, & iceflgsw, & liqflgsw @@ -10142,6 +10167,10 @@ SUBROUTINE RRTMG_SWRAD( & ch4vmr, & n2ovmr real, dimension( kts:kte+1 ) :: o3mmr +! mji - Add height of each layer for exponential-random cloud overlap +! This will be derived below from the dz in each layer + real, dimension( 1, kts:kte+1 ) :: hgt + real :: dzsum ! Surface albedo (for UV/visible and near-IR spectral regions, ! and for direct and diffuse radiation) real, dimension( 1 ) :: asdir, & @@ -10497,14 +10526,15 @@ SUBROUTINE RRTMG_SWRAD( & ! Add extra layer from top of model to top of atmosphere nlay = (kte - kts + 1) + 1 +! Select cloud overlap assumption (1 = random, 2 = maximum-random, 3 = maximum, 4 = exponential, 5 = exponential-random + icld=cldovrlp ! J. Henderson AER assign namelist variable cldovrlp to existing icld + ! Select cloud liquid and ice optics parameterization options ! For passing in cloud optical properties directly: -! icld = 2 ! inflgsw = 0 ! iceflgsw = 0 ! liqflgsw = 0 ! For passing in cloud physical properties; cloud optics parameterized in RRTMG: - icld = 2 inflgsw = 2 iceflgsw = 3 liqflgsw = 1 @@ -10631,6 +10661,15 @@ SUBROUTINE RRTMG_SWRAD( & n2ovmr(ncol,k) = n2o enddo +! mji - Derive height of each layer mid-point from layer thickness. +! Needed for exponential (icld=4) and exponential-random overlap option (icld=5) only. + dzsum = 0.0 + do k = kts, kte + dz = dz1d(k) + hgt(ncol,k) = dzsum + 0.5*dz + dzsum = dzsum + dz + enddo + ! Define profile values for extra layer from model top to top of atmosphere. ! The top layer temperature for all gridpoints is set to the top layer-1 ! temperature plus a constant (0 K) that represents an isothermal layer @@ -10648,6 +10687,11 @@ SUBROUTINE RRTMG_SWRAD( & ch4vmr(ncol,kte+1) = ch4vmr(ncol,kte) n2ovmr(ncol,kte+1) = n2ovmr(ncol,kte) +! mji - Fill in height array above model top to top of atmosphere using +! dz from model top layer for completeness, though this information is not +! likely to be used by the exponential-random cloud overlap method. + hgt(ncol,kte+1) = dzsum + 0.5*dz + ! Get ozone profile including amount in extra layer above model top call inirad (o3mmr,plev,kts,kte) @@ -10942,8 +10986,8 @@ SUBROUTINE RRTMG_SWRAD( & permuteseed = 1 ! Sub-column generator for McICA - - call mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, & +! mji - Add layer height needed for exponential (icld=4) and exponential-random (icld=5) overlap options + call mcica_subcol_sw(iplon, ncol, nlay, icld, permuteseed, irng, play, hgt, & cldfrac, ciwpth, clwpth, cswpth, rei, rel, res, taucld, ssacld, asmcld, fsfcld, & cldfmcl, ciwpmcl, clwpmcl, cswpmcl, reicmcl, relqmcl, resnmcl, & taucmcl, ssacmcl, asmcmcl, fsfcmcl) diff --git a/phys/module_radiation_driver.F b/phys/module_radiation_driver.F index 67830a0c5b..009e2d8666 100644 --- a/phys/module_radiation_driver.F +++ b/phys/module_radiation_driver.F @@ -15,6 +15,7 @@ SUBROUTINE radiation_driver ( & ,GMT ,GSW ,HBOT & ,HTOP ,HBOTR ,HTOPR & ,ICLOUD & + ,cldovrlp & ,ITIMESTEP,JULDAY, JULIAN & ,JULYR ,LW_PHYSICS & ,NCFRCV ,NCFRST ,NPHS & @@ -62,6 +63,14 @@ SUBROUTINE radiation_driver ( & , SLWDN, SLWUP & ! goddard schemes , TSWDN, TSWUP & ! goddard schemes , SSWDN, SSWUP & ! goddard schemes + , RE_CLOUD_GSFC & ! goddard + , RE_RAIN_GSFC & ! goddard + , RE_ICE_GSFC & ! goddard + , RE_SNOW_GSFC & ! goddard + , RE_GRAUPEL_GSFC & ! goddard + , RE_HAIL_GSFC & ! goddard + , COD2D_OUT & ! goddardrad + , CTOP2D_OUT & ! goddardrad , CLDFRA,CLDFRA_MP_ALL,CLDT,ZNU & #if (EM_CORE == 1) , lradius,iradius & @@ -78,8 +87,10 @@ SUBROUTINE radiation_driver ( & , QR, F_QR & , QI, F_QI & , QI2, F_QI2 & ! for P3 + , QI3, F_QI3 & ! for Jensen ISHMAEL , QS, F_QS & , QG, F_QG & + , QH, F_QH & !goddardrad , QNDROP, F_QNDROP & ,QNIFA,F_QNIFA & ! trude ,QNWFA,F_QNWFA & ! trude @@ -148,10 +159,19 @@ SUBROUTINE radiation_driver ( & ,aer_asy_opt, aer_asy_val & ,aod5502d, angexp2d, aerssa2d, aerasy2d & ,aod5503d & + ,cw_rad, shcu_physics & ,taod5502d, taod5503d & ! Trude ,mp_physics & ,EFCG,EFCS,EFIG,EFIS,EFSG,aercu_opt & ,EFSS,QS_CU & +#if (WRF_CHEM == 1) + ,chem & ! inline gocart + ,aod_out & ! optional gocart + , AOD2D_OUT & ! goddardrad + , ATOP2D_OUT & ! goddardrad + ,chem_opt & + ,gsfcrad_gocart_coupling & +#endif ) @@ -170,8 +190,20 @@ SUBROUTINE radiation_driver ( & #if ( HWRF == 1 ) ,HWRFSWSCHEME, HWRFLWSCHEME & #endif - ,goddardlwscheme & - ,goddardswscheme & + ,goddardswscheme & !NUWRF + ,goddardlwscheme & !NUWRF +# if (EM_CORE == 1) + ,CAMMGMPSCHEME & +#if (WRF_CHEM == 1) + + ,num_chem & !NUWRF + ,p_bc1, p_bc2, p_oc1, p_oc2 & !NUWRF + ,p_dust_1, p_dust_2, p_dust_3 & !NUWRF + ,p_dust_4, p_dust_5 & !NUWRF + ,p_sulf, p_seas_1, p_seas_2 & !NUWRF + ,p_seas_3, p_seas_4 & !NUWRF +#endif +#endif ,KFCUPSCHEME & !BSINGH - Added KFCUPSCHEME for WRFCuP scheme ,FLGLWSCHEME, FLGSWSCHEME @@ -179,6 +211,7 @@ SUBROUTINE radiation_driver ( & #ifndef HWRF USE module_wrf_error , ONLY : wrf_err_message #endif + USE module_state_description, ONLY : nuwrf4icescheme ! *** add new modules of schemes here @@ -198,10 +231,10 @@ SUBROUTINE radiation_driver ( & USE module_ra_hwrf #endif USE module_ra_hs , ONLY : hsrad - + USE module_ra_goddard , ONLY : goddardrad USE module_ra_flg , ONLY : RAD_FLG - + USE module_ra_aerosol , ONLY : calc_aerosol_goddard_sw, & calc_aerosol_rrtmg_sw @@ -386,6 +419,7 @@ SUBROUTINE radiation_driver ( & i_start,i_end,j_start,j_end INTEGER, INTENT(IN ) :: STEPRA,ICLOUD,ra_call_offset + INTEGER, INTENT(IN ) :: cldovrlp ! J. Henderson AER: cldovrlp namelist value INTEGER, INTENT(IN ) :: alevsiz, no_src_types INTEGER, INTENT(IN ) :: levsiz, n_ozmixm INTEGER, INTENT(IN ) :: paerlev, n_aerosolc, cam_abs_dim1, cam_abs_dim2 @@ -453,6 +487,11 @@ SUBROUTINE radiation_driver ( & t8w, & rho + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & + OPTIONAL, & + INTENT(IN ) :: cw_rad + INTEGER, OPTIONAL, INTENT(IN) :: shcu_physics + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), OPTIONAL, & INTENT(IN) :: EFCG, & EFCS, & @@ -622,6 +661,30 @@ SUBROUTINE radiation_driver ( & NCFRST, & !Added NCFRCV !Added +! NUWRF JJS 20101021 vvvvv +! for inline Gocart coupling +#if( WRF_CHEM == 1) + + REAL, OPTIONAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_chem), & + INTENT(IN) :: chem + real, dimension(ims:ime, kms:kme, jms:jme), optional, intent(out) :: aod_out !Aeorosol Optical Depth + + real, dimension( ims:ime, jms:jme ), OPTIONAL, INTENT(OUT) :: & !goddardrad + aod2d_out ,& ! column aerosol optical depth + atop2d_out ! aerosol top pressure [mb] + + + integer :: i24h + INTEGER, PARAMETER :: num_go = 14 ! number of the gocart aerosol species + REAL, DIMENSION( ims:ime, kms:kme, jms:jme, num_go) :: aero + REAL, PARAMETER :: frac(4)=(/ 0.01053,0.08421,0.25263,0.65263 /) !fraction for fine dust + integer,intent(in) :: chem_opt ! EMK + integer,intent(in) :: gsfcrad_gocart_coupling ! EMK + +#endif +! NUWRF JJS 20101021 ^^^^^ + +! JJS 20090623 vvvvv ! Optional, only for Goddard LW and SW REAL, DIMENSION(IMS:IME, JMS:JME, 1:8) :: ERBE_out !extra output for SDSU REAL, DIMENSION(IMS:IME, JMS:JME), OPTIONAL, INTENT(INOUT) :: & !BSINGH(PNNL)- Lahey compiler forced this specification to be intent-inout @@ -629,6 +692,26 @@ SUBROUTINE radiation_driver ( & SLWDN, SLWUP, & TSWDN, TSWUP, & SSWDN, SSWUP ! for Goddard schemes +! NUWRF JJS 20090623 ^^^^^ + +! NUWRF JJS 20140225 vvvvv + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), OPTIONAL ,& + INTENT(INOUT) :: re_cloud_gsfc, re_rain_gsfc, re_ice_gsfc, & + re_snow_gsfc, re_graupel_gsfc, re_hail_gsfc +! NUWRF JJS 20140225 ^^^^^ + + real, dimension( ims:ime, jms:jme, 1:4 ) :: sflxd !NUWRF SW only for LIS + +! REAL, DIMENSION(IMS:IME, JMS:JME, 1:4) :: flxd !NUWRF extra radiation output for LIS (CLM) + ! 1-surface downward UV+VIS beam radiation [W/m2] + ! 2-surface downward UV+VIS diffuse radiation [W/m2] + ! 3-surface downward NIR beam radiation [W/m2] + ! 4-surface downward NIR diffuse radiation [W/m2] + + + real, dimension( ims:ime, jms:jme ), OPTIONAL, INTENT(INOUT) :: & !goddardrad + cod2d_out ,& ! column optical depth + ctop2d_out ! cloud top pressure [mb] ! Added by ZCX for low and total cloud fraction REAL, DIMENSION( kms:kme ), OPTIONAL, INTENT(IN) :: znu ! eta values on half (mass)levels @@ -684,13 +767,13 @@ SUBROUTINE radiation_driver ( & OPTIONAL, & INTENT(INOUT ) :: & pb & - ,qv,qc,qr,qi,qs,qg,qndrop, & + ,qv,qc,qr,qi,qs,qg,qh,qndrop, & qnifa,qnwfa, & ! Trude - qi2 ! for P3 + qi2,qi3 ! for P3 - LOGICAL, OPTIONAL :: f_qv,f_qc,f_qr,f_qi,f_qs,f_qg,f_qndrop, & + LOGICAL, OPTIONAL :: f_qv,f_qc,f_qr,f_qi,f_qs,f_qg,f_qh,f_qndrop,& f_qnifa,f_qnwfa, & ! trude - f_qi2 ! for P3 + f_qi2,f_qi3 ! for P3 !shbaek real, dimension ( ims:ime, kms:kme, jms:jme ), optional, intent(in) :: qnc_curr LOGICAL, OPTIONAL :: f_qnc @@ -744,6 +827,7 @@ SUBROUTINE radiation_driver ( & REAL, DIMENSION( ims:ime, kms:kme, jms:jme ) :: qs_cu_weight REAL :: gridkm, Wice,Wh2o + REAL, DIMENSION(kms:kme):: t_1d, p_1d, Dz_1d, qv_1d, qc_1d, qi_1d, qs_1d, cf_1d REAL :: next_rad_time, DTaccum LOGICAL :: run_param , doing_adapt_dt , decided @@ -1046,21 +1130,13 @@ SUBROUTINE radiation_driver ( & GLON(I,J)=XLONG(I,J)*DEGRAD ENDDO ENDDO - + DO j=jts,jte DO k=kts,kte+1 DO i=its,ite RTHRATEN(I,K,J)=0. RTHRATENLW(I,K,J)=0. RTHRATENSW(I,K,J)=0. -! SWUP(I,K,J) = 0.0 -! SWDN(I,K,J) = 0.0 -! SWUPCLEAR(I,K,J) = 0.0 -! SWDNCLEAR(I,K,J) = 0.0 -! LWUP(I,K,J) = 0.0 -! LWDN(I,K,J) = 0.0 -! LWUPCLEAR(I,K,J) = 0.0 -! LWDNCLEAR(I,K,J) = 0.0 CEMISS(I,K,J)=0.0 ENDDO ENDDO @@ -1178,8 +1254,56 @@ SUBROUTINE radiation_driver ( & ENDDO ENDDO ENDIF + +! for Jensen ISHMAEL, add the third ice species + IF ( F_QI3) THEN + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + qi(i,k,j) = qi(i,k,j) + qi3(i,k,j) + ENDDO + ENDDO + ENDDO + ENDIF #endif +! these are half level parameters.....so, it should start from kts to kte - 1 +!NUWRF JJS 20101021 vvvvv +#if ( WRF_CHEM == 1) +! Pack gocart aerosol species +! All aerosol species in chem are in "ug/kg-dryair" +! and conerted to (g/m**3) + + aero(:,:,:,:) = 0. + if ( (chem_opt == 300 .or. chem_opt == 301 .or. & + chem_opt == 302 .or. chem_opt == 303) .and. & + (gsfcrad_gocart_coupling == 1) ) then + do j = jts, jte + do k = kts, kte !corrected memory order + do i = its, ite + ! aero(i,k,j, 1) = max(0.0, chem(i,k,j,p_sulf)*1.0e-6*rho(i,k,j)) ! 1 = SO4 + aero(i,k,j, 1) = max(0.0, chem(i,k,j,p_sulf)*1.0e-6*p(i,k,j)*96.0/(8.314*t(i,k,j))) ! 1 = SO4 + aero(i,k,j, 2) = max(0.0, (chem(i,k,j,p_bc1)+chem(i,k,j,p_bc2))*1.0e-6*rho(i,k,j)) ! 2 = BC1+BC2 + aero(i,k,j, 3) = max(0.0, chem(i,k,j,p_oc1)*1.0e-6*rho(i,k,j)*1.4e0) ! 3 = OC1 + aero(i,k,j, 4) = max(0.0, chem(i,k,j,p_oc2)*1.0e-6*rho(i,k,j)*1.4e0) ! 4 = OC2 + aero(i,k,j, 5) = max(0.0, chem(i,k,j,p_seas_1)*1.0e-6*rho(i,k,j)) ! 5 = SS1 + aero(i,k,j, 6) = max(0.0, (chem(i,k,j,p_seas_2)+chem(i,k,j,p_seas_3)+ & + chem(i,k,j,p_seas_4))*1.0e-6*rho(i,k,j)) ! 6 = SS2+SS3+SS4 + aero(i,k,j, 7) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(1)) ! 7 = DU1 dust mode 1 + aero(i,k,j, 8) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(2)) ! 8 = DU1 dust mode 2 + aero(i,k,j, 9) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(3)) ! 9 = DU1 dust mode 3 + aero(i,k,j,10) = max(0.0, chem(i,k,j,p_dust_1)*1.0e-6*rho(i,k,j)*frac(4)) ! 10 = DU1 dust mode 4 + aero(i,k,j,11) = max(0.0, chem(i,k,j,p_dust_2)*1.0e-6*rho(i,k,j)) ! 11 = DU2 dust mode 5 + aero(i,k,j,12) = max(0.0, chem(i,k,j,p_dust_3)*1.0e-6*rho(i,k,j)) ! 11 = DU3 dust mode 6 + aero(i,k,j,13) = max(0.0, chem(i,k,j,p_dust_4)*1.0e-6*rho(i,k,j)) ! 11 = DU4 dust mode 7 + aero(i,k,j,14) = max(0.0, chem(i,k,j,p_dust_5)*1.0e-6*rho(i,k,j)) ! 11 = DU5 dust mode 8 + enddo ! i + enddo ! k + enddo ! j + end if ! if (gsfcrad_gocart_coupling == 1) +#endif +!NUWRF JJS 20101021 ^^^^^ + ! Choose how to compute cloud fraction (since 3.6) ! Initialize to zero DO j=jts,jte @@ -1190,6 +1314,9 @@ SUBROUTINE radiation_driver ( & END DO END DO +!--------------- +! Calculate constant for short wave radiation + IF ( ICLOUD == 1 ) THEN IF ( F_QC .OR. F_QI ) THEN @@ -1332,22 +1459,39 @@ SUBROUTINE radiation_driver ( & ELSEIF (ICLOUD == 3) THEN IF ( F_QC .AND. F_QI ) THEN - IF ( F_QS ) THEN - DO j = jts,jte - DO k = kts,kte - DO i = its,ite - qs_save(i,k,j) = qs(i,k,j) - ENDDO - ENDDO - ENDDO - ENDIF CALL wrf_debug (150, 'DEBUG: using gthompsn cloud fraction scheme') - CALL cal_cldfra3(CLDFRA, qv, qc, qi, qs, & - & p,t,rho, XLAND, gridkm, & - & ids,ide, jds,jde, kds,kde, & - & ims,ime, jms,jme, kms,kme, & - & its,ite, jts,jte, kts,kte) + + DO j = jts,jte + DO i = its,ite + + DO k = kts,kte + p_1d(k) = p(i,k,j) + t_1d(k) = t(i,k,j) + qv_1d(k) = qv(i,k,j) + qc_1d(k) = qc(i,k,j) + qi_1d(k) = qi(i,k,j) + qs_1d(k) = qs(i,k,j) + Dz_1d(k) = dz8w(i,k,j) + cf_1d(k) = cldfra(i,k,j) + ENDDO + + WRITE (wrf_err_message,*) 'DEBUG: calling cal_cldfra3 at (i,j): ', i,j, kms,kme,kts,kte + CALL wrf_debug (150, wrf_err_message) + + CALL cal_cldfra3(cf_1d, qv_1d, qc_1d, qi_1d, qs_1d, Dz_1d, & + & p_1d, t_1d, XLAND(i,j), gridkm, & + & .false., 1.5, kts, kte, .false.) + + DO k = kts,kte + qc(i,k,j) = qc_1d(k) + qi(i,k,j) = qi_1d(k) + qs(i,k,j) = qs_1d(k) + cldfra(i,k,j) = cf_1d(k) + ENDDO + + ENDDO + ENDDO ELSE CALL wrf_error_fatal('Can not use icloud = 3 option, missing QC or QI field.') @@ -1450,6 +1594,21 @@ SUBROUTINE radiation_driver ( & ENDDO end if endif + +#if (EM_CORE==1) + IF( shcu_physics == 5 ) THEN + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + cldfra(I,K,J) = max(cldfra_sh(I,K,J), cldfra(I,K,J)) + qc_save(I,K,J)=qc(I,K,J) + qc(I,K,J)=cw_rad(I,K,J)+qc(I,K,J) + ENDDO + ENDDO + ENDDO + ENDIF +#endif + lwrad_select: SELECT CASE(lw_physics) @@ -1484,43 +1643,60 @@ SUBROUTINE radiation_driver ( & ,ITS=its,ITE=ite, JTS=jts,JTE=jte, KTS=kts,KTE=kte & ) - CASE (goddardlwscheme) +! NUWRF Version by Toshihisa Matsui and Jainn Shi 20090623 + case (goddardlwscheme) + + CALL wrf_debug(100, 'CALL NUWRF goddard longwave radiation scheme 2017') + + IF ( mp_physics .NE. nuwrf4icescheme ) THEN + IF ( has_reqc .EQ. 1 ) THEN + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + re_cloud_gsfc(i,k,j) = re_cloud(i,k,j) * 1.E+6 + re_ice_gsfc(i,k,j) = re_ice(i,k,j) * 1.E+6 + re_snow_gsfc(i,k,j) = re_snow(i,k,j) * 1.E+6 + re_rain_gsfc(i,k,j) = 0. + re_graupel_gsfc(i,k,j) = 0. + re_hail_gsfc(i,k,j) = 0. + ENDDO + ENDDO + ENDDO + ELSE + WRITE ( wrf_err_message , * ) 'Must choose a microphysics that provides effective radii.' + CALL wrf_debug (0, wrf_err_message) + END IF + END IF - CALL wrf_debug (100, 'CALL goddard longwave radiation scheme ') - IF (itimestep.eq.1) then - call wrf_message('running goddard lw radiation') - ENDIF - CALL goddardrad(sw_or_lw='lw' & + CALL goddardrad(sw_or_lw='lw',dx=dx & ,rthraten=rthraten,gsf=glw,xlat=xlat,xlong=xlong & ,alb=albedo,t3d=t,p3d=p,p8w3d=p8w,pi3d=pi & - ,dz8w=dz8w,rho_phy=rho,emiss=emiss & + ,dz8w=dz8w,rho_phy=rho,emiss=emiss,tsk=tsk & ,cldfra3d=cldfra & ,gmt=gmt,cp=cp,g=g,t8w=t8w & ,julday=julday,xtime=xtime & ,declin=declin,solcon=solcon & - , center_lat = cen_lat & ,radfrq=radt,degrad=degrad & - ,taucldi=taucldi,taucldc=taucldc & ,warm_rain=warm_rain & ,ids=ids,ide=ide, jds=jds,jde=jde, kds=kds,kde=kde & ,ims=ims,ime=ime, jms=jms,jme=jme, kms=kms,kme=kme & ,its=its,ite=ite, jts=jts,jte=jte, kts=kts,kte=kte & -! ,cosz_urb2d=cosz_urb2d ,omg_urb2d=omg_urb2d & !urban - ,qv3d=qv & - ,qc3d=qc & - ,qr3d=qr & - ,qi3d=qi & - ,qs3d=qs & - ,qg3d=qg & + ,qv=qv,qc=qc,qi=qi,qr=qr,qs=qs,qg=qg,qh=qh & ,f_qv=f_qv,f_qc=f_qc,f_qr=f_qr & - ,f_qi=f_qi,f_qs=f_qs,f_qg=f_qg & - ,erbe_out=erbe_out & !optional - ,aer_opt=aer_opt & - ,tauaer3d_sw=tauaer_sw & ! jararias, 2013/11 - ,ssaaer3d_sw=ssaaer_sw & ! jararias, 2013/11 - ,asyaer3d_sw=asyaer_sw & ! jararias, 2012/11 + ,f_qi=f_qi,f_qs=f_qs,f_qg=f_qg ,f_qh=f_qh & + ,rec3d=re_cloud_gsfc,rei3d=re_ice_gsfc & + ,rer3d=re_rain_gsfc,res3d=re_snow_gsfc & !optional + ,reg3d=re_graupel_gsfc,reh3d=re_hail_gsfc & !optional + ,erbe_out=erbe_out & + ,itimestep=itimestep, dt_in = dt & +#if (WRF_CHEM == 1) + ,AERO=aero & + ,CHEM_OPT=chem_opt & + ,GSFCRAD_GOCART_COUPLING=gsfcrad_gocart_coupling & +#endif ) + CASE (GFDLLWSCHEME) CALL wrf_debug (100, 'CALL gfdllw') @@ -1646,7 +1822,20 @@ SUBROUTINE radiation_driver ( & ENDIF CASE (RRTMG_LWSCHEME) + CALL wrf_debug (100, 'CALL rrtmg_lw') + IF ( mp_physics .EQ. nuwrf4icescheme ) THEN + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + re_cloud(i,k,j) = re_cloud_gsfc(i,k,j) * 1.E-6 + re_ice(i,k,j) = re_ice_gsfc(i,k,j) * 1.E-6 + re_snow(i,k,j) = re_snow_gsfc(i,k,j) * 1.E-6 + ENDDO + ENDDO + ENDDO + END IF + CALL RRTMG_LWRAD( & RTHRATENLW=RTHRATEN, & LWUPT=LWUPT,LWUPTC=LWUPTC,LWUPTCLN=LWUPTCLN, & @@ -1658,6 +1847,7 @@ SUBROUTINE radiation_driver ( & P8W=p8w,P3D=p,PI3D=pi,DZ8W=dz8w,TSK=tsk,T3D=t, & T8W=t8w,RHO3D=rho,R=R_d,G=G, & ICLOUD=icloud,WARM_RAIN=warm_rain,CLDFRA3D=CLDFRA,& + cldovrlp=cldovrlp, & ! J. Henderson AER: cldovrlp namelist value #if (EM_CORE == 1) LRADIUS=lradius, IRADIUS=iradius, & #endif @@ -1855,6 +2045,7 @@ SUBROUTINE radiation_driver ( & ENDDO ENDIF +!NUWRF JJS 20090623 vvvvv IF (lw_physics .eq. goddardlwscheme) THEN IF ( PRESENT (tlwdn) ) THEN DO j=jts,jte @@ -1863,29 +2054,17 @@ SUBROUTINE radiation_driver ( & tlwup(i,j) = erbe_out(i,j,2) ! TOA LW upwelling flux [W/m2] slwdn(i,j) = erbe_out(i,j,3) ! surface LW downwelling flux [W/m2] slwup(i,j) = erbe_out(i,j,4) ! surface LW upwelling flux [W/m2] + olr(i,j) = -erbe_out(i,j,2) ENDDO ENDDO ENDIF ENDIF +!NUWRF JJS 20090623 ^^^^^ IF ( PRESENT( AOD5502D ) ) THEN ! jararias, 2013/11 IF ( aer_opt .EQ. 2 ) THEN swrad_aerosol_select2: select case(sw_physics) - case(GODDARDSWSCHEME) - call wrf_debug(100, 'call calc_aerosol_goddard_sw') - call calc_aerosol_goddard_sw(ht,dz8w,p,t,qv,aer_type,aer_aod550_opt,aer_angexp_opt, & - aer_ssa_opt,aer_asy_opt,aer_aod550_val,aer_angexp_val, & - aer_ssa_val,aer_asy_val,aod5502d,angexp2d,aerssa2d, & - aerasy2d,ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte, & - tauaer_sw,ssaaer_sw,asyaer_sw ) - do j=jts,jte - do i=its,ite - do k=kts,kte - aod5503d(i,k,j)=tauaer_sw(i,k,j,8) ! band at 550 nm - end do - end do - end do case(RRTMG_SWSCHEME,& #if( BUILD_RRTMG_FAST == 1) @@ -1998,45 +2177,69 @@ SUBROUTINE radiation_driver ( & ,COSZEN=coszen & ) - CASE (goddardswscheme) + case (goddardswscheme) + + CALL wrf_debug(100, 'CALL NUWRF goddard shortwave radiation scheme 2017') + + IF ( mp_physics .NE. nuwrf4icescheme ) THEN + IF ( has_reqc .EQ. 1 ) THEN + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + re_cloud_gsfc(i,k,j) = re_cloud(i,k,j) * 1.E+6 + re_ice_gsfc(i,k,j) = re_ice(i,k,j) * 1.E+6 + re_snow_gsfc(i,k,j) = re_snow(i,k,j) * 1.E+6 + re_rain_gsfc(i,k,j) = 0. + re_graupel_gsfc(i,k,j) = 0. + re_hail_gsfc(i,k,j) = 0. + ENDDO + ENDDO + ENDDO + ELSE + WRITE ( wrf_err_message , * ) 'Must choose a microphysics that provides effective radii.' + CALL wrf_debug (0, wrf_err_message) + END IF + END IF - CALL wrf_debug(100, 'CALL goddard shortwave radiation scheme ') - IF (itimestep.eq.1) then - call wrf_message('running goddard sw radiation') - ENDIF - CALL goddardrad(sw_or_lw='sw' & + CALL goddardrad(sw_or_lw='sw',dx=dx & ,rthraten=rthraten,gsf=gsw,xlat=xlat,xlong=xlong & ,alb=albedo,t3d=t,p3d=p,p8w3d=p8w,pi3d=pi & - ,dz8w=dz8w,rho_phy=rho,emiss=emiss & + ,dz8w=dz8w,rho_phy=rho,emiss=emiss,tsk=tsk & ,cldfra3d=cldfra & ,gmt=gmt,cp=cp,g=g,t8w=t8w & ,julday=julday,xtime=xtime & ,declin=declin,solcon=solcon & - ,center_lat = cen_lat & ,radfrq=radt,degrad=degrad & - ,taucldi=taucldi,taucldc=taucldc & ,warm_rain=warm_rain & ,ids=ids,ide=ide, jds=jds,jde=jde, kds=kds,kde=kde & ,ims=ims,ime=ime, jms=jms,jme=jme, kms=kms,kme=kme & ,its=its,ite=ite, jts=jts,jte=jte, kts=kts,kte=kte & -! ,cosz_urb2d=cosz_urb2d ,omg_urb2d=omg_urb2d & !urban - ,qv3d=qv & - ,qc3d=qc & - ,qr3d=qr & - ,qi3d=qi & - ,qs3d=qs & - ,qg3d=qg & - ,f_qv=f_qv,f_qc=f_qc,f_qr=f_qr & - ,f_qi=f_qi,f_qs=f_qs,f_qg=f_qg & - ,erbe_out=erbe_out & !optional - ,swddir=swddir,swddni=swddni,swddif=swddif & ! jararias, 14/08/2013 - ,coszen=coszen,julian=julian & ! jararias, 14/08/2013 - ,tauaer3d_sw=tauaer_sw & ! jararias, 2013/11 - ,ssaaer3d_sw=ssaaer_sw & ! jararias, 2013/11 - ,asyaer3d_sw=asyaer_sw & ! jararias, 2012/11 - ,aer_opt=aer_opt & + ,qv=qv,qc=qc,qr=qr,qi=qi,qs=qs,qg=qg,qh=qh & !optional + ,f_qv=f_qv,f_qc=f_qc,f_qr=f_qr & !optional + ,f_qi=f_qi,f_qs=f_qs,f_qg=f_qg ,f_qh=f_qh & !optional + ,rec3d=re_cloud_gsfc,rei3d=re_ice_gsfc & !optional + ,rer3d=re_rain_gsfc,res3d=re_snow_gsfc & !optional + ,reg3d=re_graupel_gsfc,reh3d=re_hail_gsfc & !optional + ,erbe_out=erbe_out & + ,cod2d_out=cod2d_out,ctop2d_out=ctop2d_out & !optional + ,sflxd=sflxd & !optional + ,swddir=swddir,swddni=swddni,swddif=swddif & !optional + ,coszen=coszen & !optional + ,itimestep=itimestep, dt_in = dt & +#if (WRF_CHEM == 1) + ,aod2d_out=aod2d_out, atop2d_out=atop2d_out & ! optional + ,AERO=aero & + ,CHEM_OPT=chem_opt & + ,GSFCRAD_GOCART_COUPLING=gsfcrad_gocart_coupling & +#endif ) + + + + + + CASE (CAMSWSCHEME) CALL wrf_debug(100, 'CALL camrad sw') IF ( PRESENT( OZMIXM ) .AND. PRESENT( PIN ) .AND. & @@ -2101,7 +2304,20 @@ SUBROUTINE radiation_driver ( & ENDDO CASE (RRTMG_SWSCHEME) + CALL wrf_debug(100, 'CALL rrtmg_sw') + IF ( mp_physics .EQ. nuwrf4icescheme ) THEN + DO j=jts,jte + DO k=kts,kte + DO i=its,ite + re_cloud(i,k,j) = re_cloud_gsfc(i,k,j) * 1.E-6 + re_ice(i,k,j) = re_ice_gsfc(i,k,j) * 1.E-6 + re_snow(i,k,j) = re_snow_gsfc(i,k,j) * 1.E-6 + ENDDO + ENDDO + ENDDO + END IF + CALL RRTMG_SWRAD( & RTHRATENSW=RTHRATENSW, & SWUPT=SWUPT,SWUPTC=SWUPTC,SWUPTCLN=SWUPTCLN, & @@ -2123,6 +2339,7 @@ SUBROUTINE radiation_driver ( & !ckay ! CLDFRA_KF3D=cldfra_KF,QC_KF3D=qc_KF,QI_KF3D=qi_KF,& ICLOUD=icloud,WARM_RAIN=warm_rain, & + cldovrlp=cldovrlp, & ! J. Henderson AER: cldovrlp namelist value F_ICE_PHY=F_ICE_PHY,F_RAIN_PHY=F_RAIN_PHY, & XLAND=XLAND,XICE=XICE,SNOW=SNOW, & QV3D=qv,QC3D=qc,QR3D=qr, & @@ -2340,6 +2557,7 @@ SUBROUTINE radiation_driver ( & END SELECT swrad_select +!NUWRF JJS 20090623 vvvvv IF (sw_physics .eq. goddardswscheme) THEN IF ( PRESENT (tswdn) ) THEN DO j=jts,jte @@ -2352,6 +2570,7 @@ SUBROUTINE radiation_driver ( & ENDDO ENDIF ENDIF +!NUWRF JJS 20090623 ^^^^^ IF (sw_physics .gt. 0 .and. .not.gfdl_sw .and. .not.flg_sw) THEN DO j=jts,jte @@ -2447,16 +2666,6 @@ SUBROUTINE radiation_driver ( & ENDIF END IF - IF (ICLOUD == 3 .AND. F_QS ) THEN - DO j = jts,jte - DO k = kts,kte - DO i = its,ite - qs(i,k,j) = qs_save(i,k,j) - ENDDO - ENDDO - ENDDO - ENDIF - ! jararias, aug 2013, updated 2013/11 ! parameters update for SW surface fluxes interpolation IF (swint_opt.EQ.1) THEN @@ -3323,7 +3532,6 @@ SUBROUTINE cal_cldfra1(CLDFRA, QV, QC, QI, QS, & END SUBROUTINE cal_cldfra1 - !+---+-----------------------------------------------------------------+ !..Cloud fraction scheme by G. Thompson (NCAR-RAL), not intended for !.. combining with any cumulus or shallow cumulus parameterization @@ -3339,138 +3547,145 @@ END SUBROUTINE cal_cldfra1 ! !+---+-----------------------------------------------------------------+ - SUBROUTINE cal_cldfra3(CLDFRA, qv, qc, qi, qs, & - & p,t,rho, XLAND, gridkm, & -! & rand_perturb_on, kme_stoch, rand_pert, & - & ids,ide, jds,jde, kds,kde, & - & ims,ime, jms,jme, kms,kme, & - & its,ite, jts,jte, kts,kte) + SUBROUTINE cal_cldfra3(CLDFRA, qv, qc, qi, qs, dz, & + & p, t, XLAND, gridkm, & + & modify_qvapor, max_relh, & + & kts,kte, debug_flag) ! USE module_mp_thompson , ONLY : rsif, rslf IMPLICIT NONE ! - INTEGER, INTENT(IN):: ids,ide, jds,jde, kds,kde, & - & ims,ime, jms,jme, kms,kme, & -! & kme_stoch, & - & its,ite, jts,jte, kts,kte - -! INTEGER, INTENT(IN):: rand_perturb_on - REAL, DIMENSION(ims:ime,kms:kme,jms:jme), INTENT(IN):: qv,p,t,rho - REAL, DIMENSION(ims:ime,kms:kme,jms:jme), INTENT(INOUT):: qc,qi,qs -! REAL, DIMENSION(ims:ime,kms:kme_stoch,jms:jme), INTENT(IN):: rand_pert - REAL, DIMENSION(ims:ime,jms:jme), INTENT(IN):: XLAND - - REAL, DIMENSION(ims:ime,kms:kme,jms:jme), INTENT(INOUT):: cldfra - REAL, INTENT(IN):: gridkm + INTEGER, INTENT(IN):: kts, kte + LOGICAL, INTENT(IN):: modify_qvapor + REAL, DIMENSION(kts:kte), INTENT(INOUT):: qv, qc, qi, cldfra + REAL, DIMENSION(kts:kte), INTENT(IN):: p, t, dz, qs + REAL, INTENT(IN):: gridkm, XLAND, max_relh + LOGICAL, INTENT(IN):: debug_flag !..Local vars. - REAL:: RH_00L, RH_00O, RH_00, RHI_max, entrmnt - REAL, DIMENSION(ims:ime,kms:kme,jms:jme):: qvsat - INTEGER:: i,j,k - REAL:: TK, TC, qvsi, qvsw, RHUM, xx, yy - REAL, DIMENSION(kts:kte):: qvs1d, cfr1d, T1d, & - & P1d, R1d, qc1d, qi1d, qs1d + REAL:: RH_00L, RH_00O, RH_00 + REAL:: entrmnt=0.5 + INTEGER:: k + REAL:: TC, qvsi, qvsw, RHUM, delz + REAL, DIMENSION(kts:kte):: qvs, rh, rhoa character*512 dbg_msg - LOGICAL:: debug_flag !+---+ +!..Initialize cloud fraction, compute RH, and rho-air. + + DO k = kts,kte + CLDFRA(K) = 0.0 + + qvsw = rslf(P(k), t(k)) + qvsi = rsif(P(k), t(k)) + + tc = t(k) - 273.15 + if (tc .ge. -12.0) then + qvs(k) = qvsw + elseif (tc .lt. -35.0) then + qvs(k) = qvsi + else + qvs(k) = qvsw - (qvsw-qvsi)*(-12.0-tc)/(-12.0+35.) + endif + + rh(k) = MAX(0.01, qv(k)/qvs(k)) + rhoa(k) = p(k)/(287.0*t(k)) + ENDDO + + !..First cut scale-aware. Higher resolution should require closer to !.. saturated grid box for higher cloud fraction. Simple functions !.. chosen based on Mocko and Cotton (1995) starting point and desire !.. to get near 100% RH as grid spacing moves toward 1.0km, but higher !.. RH over ocean required as compared to over land. - RH_00L = 0.7 + SQRT(1./(25.0+gridkm*gridkm*gridkm)) - RH_00O = 0.81 + SQRT(1./(50.0+gridkm*gridkm*gridkm)) - - DO j = jts,jte DO k = kts,kte - DO i = its,ite - CLDFRA(I,K,J) = 0.0 + delz = MAX(100., dz(k)) + RH_00L = 0.65 + SQRT(1./(25.0+gridkm*gridkm*delz*0.01)) + RH_00O = 0.81 + SQRT(1./(50.0+gridkm*gridkm*delz*0.01)) + RHUM = rh(k) - if (qc(i,k,j).gt.1.E-6 .or. qi(i,k,j).ge.1.E-7 .or. qs(i,k,j).gt.1.E-5) then - CLDFRA(I,K,J) = 1.0 - qvsat(i,k,j) = qv(i,k,j) + if (qc(k).gt.1.E-7 .or. qi(k).ge.1.E-7 & + & .or. (qs(k).gt.1.E-6 .and. t(k).lt.273.)) then + CLDFRA(K) = 1.0 + qvs(k) = qv(k) else - TK = t(i,k,j) - TC = TK - 273.16 - - qvsw = rslf(P(i,k,j), TK) - qvsi = rsif(P(i,k,j), TK) - - if (tc .ge. -12.0) then - qvsat(i,k,j) = qvsw - elseif (tc .lt. -20.0) then - qvsat(i,k,j) = qvsi - else - qvsat(i,k,j) = qvsw - (qvsw-qvsi)*(-12.0-tc)/(-12.0+20.) - endif - RHUM = MAX(0.01, MIN(qv(i,k,j)/qvsat(i,k,j), 0.9999)) - IF ((XLAND(I,J)-1.5).GT.0.) THEN !--- Ocean + IF ((XLAND-1.5).GT.0.) THEN !--- Ocean RH_00 = RH_00O ELSE !--- Land RH_00 = RH_00L ENDIF - if (tc .ge. -12.0) then - RHUM = MIN(0.999, RHUM) - CLDFRA(I,K,J) = MAX(0.0, 1.0-SQRT((1.0-RHUM)/(1.-RH_00))) - elseif (tc.lt.-12..and.tc.gt.-70. .and. RHUM.gt.RH_00L) then - RHUM = MAX(0.01, MIN(qv(i,k,j)/qvsat(i,k,j), 1.0 - 1.E-6)) - CLDFRA(I,K,J) = MAX(0., 1.0-SQRT((1.0-RHUM)/(1.0-RH_00L))) + tc = t(k) - 273.15 + if (tc .lt. -12.0) RH_00 = RH_00L + + if (tc .ge. 20.0) then + CLDFRA(K) = 0.0 + elseif (tc .ge. -12.0) then + RHUM = MIN(rh(k), 1.0) + CLDFRA(K) = MAX(0., 1.0-SQRT((1.005-RHUM)/(1.005-RH_00))) + else + if (max_relh.gt.1.12 .or. (.NOT.(modify_qvapor)) ) then +!..For HRRR model, the following look OK. + RHUM = MIN(rh(k), 1.45) + RH_00 = RH_00 + (1.45-RH_00)*(-12.0-tc)/(-12.0+100.) + if (RH_00 .ge. 1.5) then + WRITE (dbg_msg,*) ' FATAL: RH_00 too large (1.5): ', RH_00, RH_00L, tc + CALL wrf_error_fatal (dbg_msg) + endif + CLDFRA(K) = MAX(0., 1.0-SQRT((1.5-RHUM)/(1.5-RH_00))) + else +!..but for the GFS model, RH is way lower. + RHUM = MIN(rh(k), 1.05) + RH_00 = RH_00 + (1.05-RH_00)*(-12.0-tc)/(-12.0+100.) + if (RH_00 .ge. 1.05) then + WRITE (dbg_msg,*) ' FATAL: RH_00 too large (1.05): ', RH_00, RH_00L, tc + CALL wrf_error_fatal (dbg_msg) + endif + CLDFRA(K) = MAX(0., 1.0-SQRT((1.05-RHUM)/(1.05-RH_00))) + endif + endif + if (CLDFRA(K).gt.0.) CLDFRA(K) = MAX(0.01, MIN(CLDFRA(K),0.9)) + + if (debug_flag) then + WRITE (dbg_msg,*) 'DEBUG-GT: cloud fraction: ', RH_00, RHUM, CLDFRA(K) + CALL wrf_debug (150, dbg_msg) endif - CLDFRA(I,K,J) = MIN(0.90, CLDFRA(I,K,J)) endif ENDDO - ENDDO - ENDDO -!..Prepare for a 1-D column to find various cloud layers. - DO j = jts,jte - DO i = its,ite -! if (i.gt.10.and.i.le.20 .and. j.gt.10.and.j.le.20) then -! debug_flag = .true. -! else -! debug_flag = .false. -! endif + call find_cloudLayers(qvs, cldfra, T, P, Dz, entrmnt, & + & debug_flag, qc, qi, qs, kts,kte) -! if (rand_perturb_on .eq. 1) then -! entrmnt = MAX(0.01, MIN(0.99, 0.5 + rand_pert(i,1,j)*0.5)) -! else - entrmnt = 0.5 -! endif +!..Do a final total column adjustment since we may have added more than 1mm +!.. LWP/IWP for multiple cloud decks. - DO k = kts,kte - qvs1d(k) = qvsat(i,k,j) - cfr1d(k) = cldfra(i,k,j) - T1d(k) = t(i,k,j) - P1d(k) = p(i,k,j) - R1d(k) = rho(i,k,j) - qc1d(k) = qc(i,k,j) - qi1d(k) = qi(i,k,j) - qs1d(k) = qs(i,k,j) - ENDDO + call adjust_cloudFinal(cldfra, qc, qi, rhoa, dz, kts,kte) + + if (debug_flag) then + WRITE (dbg_msg,*) 'DEBUG-GT: Made-up fake profile of clouds' + CALL wrf_debug (150, dbg_msg) + do k = kte, kts, -1 + write(dbg_msg,'(f7.2, 2x, f7.2, 2x, f6.4, 2x, f7.3, 2x, f15.7, 2x, f15.7)') & + & T(k)-273.15, P(k)*0.01, rh(k), cldfra(k)*100., qc(k)*1000.,qi(k)*1000. + CALL wrf_debug (150, dbg_msg) + enddo + endif -! if (debug_flag) then -! WRITE (dbg_msg,*) 'DEBUG-GT: finding cloud layers at point (', i, ', ', j, ')' -! CALL wrf_debug (150, dbg_msg) -! endif - call find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & - & debug_flag, qc1d, qi1d, qs1d, kts,kte) + if (modify_qvapor) then DO k = kts,kte - cldfra(i,k,j) = cfr1d(k) - qc(i,k,j) = qc1d(k) - qi(i,k,j) = qi1d(k) + if (cldfra(k).gt.0.20 .and. cldfra(k).lt.1.0) then + qv(k) = qvs(k) + endif ENDDO - ENDDO - ENDDO + endif END SUBROUTINE cal_cldfra3 @@ -3480,7 +3695,7 @@ END SUBROUTINE cal_cldfra3 !.. a reasonable value of LWP or IWP that might be contained in that depth, !.. unless existing LWC/IWC is already there. - SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & + SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, Dz1d, entrmnt,& & debugfl, qc1d, qi1d, qs1d, kts,kte) ! IMPLICIT NONE @@ -3488,36 +3703,34 @@ SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & INTEGER, INTENT(IN):: kts, kte LOGICAL, INTENT(IN):: debugfl REAL, INTENT(IN):: entrmnt - REAL, DIMENSION(kts:kte), INTENT(IN):: qvs1d,T1d,P1d,R1d - REAL, DIMENSION(kts:kte), INTENT(INOUT):: cfr1d - REAL, DIMENSION(kts:kte), INTENT(INOUT):: qc1d, qi1d, qs1d + REAL, DIMENSION(kts:kte), INTENT(IN):: qs1d,qvs1d,T1d,P1d,Dz1d + REAL, DIMENSION(kts:kte), INTENT(INOUT):: cfr1d, qc1d, qi1d !..Local vars. - REAL, DIMENSION(kts:kte):: theta, dz - REAL:: Z1, Z2, theta1, theta2, ht1, ht2 - INTEGER:: k, k2, k_tropo, k_m12C, k_m40C, k_cldb, k_cldt, kbot + REAL, DIMENSION(kts:kte):: theta + REAL:: theta1, theta2, delz + INTEGER:: k, k2, k_tropo, k_m12C, k_cldb, k_cldt, kbot LOGICAL:: in_cloud character*512 dbg_msg !+---+ k_m12C = 0 - k_m40C = 0 DO k = kte, kts, -1 theta(k) = T1d(k)*((100000.0/P1d(k))**(287.05/1004.)) - if (T1d(k)-273.16 .gt. -40.0 .and. P1d(k).gt.7000.0) k_m40C = MAX(k_m40C, k) - if (T1d(k)-273.16 .gt. -12.0 .and. P1d(k).gt.10000.0) k_m12C = MAX(k_m12C, k) + if (T1d(k)-273.16 .gt. -12.0 .and. P1d(k).gt.10100.0) k_m12C = MAX(k_m12C, k) ENDDO - if (k_m40C .le. kts) k_m40C = kts if (k_m12C .le. kts) k_m12C = kts - Z2 = 44307.692 * (1.0 - (P1d(kte)/101325.)**0.190) - DO k = kte-1, kts, -1 - Z1 = 44307.692 * (1.0 - (P1d(k)/101325.)**0.190) - dz(k+1) = Z2 - Z1 - Z2 = Z1 - ENDDO - dz(kts) = dz(kts+1) + if (k_m12C.gt.kte-3) then + WRITE (dbg_msg,*) 'DEBUG-GT: WARNING, no possible way neg12C can occur this high up: ', k_m12C + CALL wrf_debug (0, dbg_msg) + do k = kte, kts, -1 + WRITE (dbg_msg,*) 'DEBUG-GT, k, P, T : ', k,P1d(k)*0.01,T1d(k)-273.15 + CALL wrf_debug (0, dbg_msg) + enddo + call wrf_error_fatal ('FATAL ERROR, problem in temperature profile.') + endif !..Find tropopause height, best surrogate, because we would not really !.. wish to put fake clouds into the stratosphere. The 10/1500 ratio @@ -3527,30 +3740,35 @@ SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & !.. three K-level change, not just a level-to-level check. This method !.. has potential failure in arctic-like conditions with extremely low !.. tropopause height, as would any other diagnostic, so ensure resulting -!.. k_tropo level is above 4km. +!.. k_tropo level is above 700hPa. DO k = kte-3, kts, -1 theta1 = theta(k) theta2 = theta(k+2) - ht1 = 44307.692 * (1.0 - (P1d(k)/101325.)**0.190) - ht2 = 44307.692 * (1.0 - (P1d(k+2)/101325.)**0.190) - if ( (((theta2-theta1)/(ht2-ht1)) .lt. 10./1500. ) .AND. & - & (ht1.lt.19000.) .and. (ht1.gt.4000.) ) then + delz = dz1d(k) + dz1d(k+1) + dz1d(k+2) + if ( ((((theta2-theta1)/delz) .lt. 10./1500. ) .AND. & + & (P1d(k).gt.8500.)) .or. (P1d(k).gt.70000.) ) then goto 86 endif ENDDO 86 continue - k_tropo = MAX(kts+2, k+2) - -! if (debugfl) then -! print*, ' FOUND TROPOPAUSE ', k_tropo, ' near ', ht2, ' m' -! WRITE (dbg_msg,*) 'DEBUG-GT: FOUND TROPOPAUSE ', k_tropo, ' near ', ht2, ' m' -! CALL wrf_debug (150, dbg_msg) -! endif + k_tropo = MAX(kts+2, MIN(k+2, kte-1)) + + if (k_tropo.gt.kte-2) then + WRITE (dbg_msg,*) 'DEBUG-GT: CAUTION, tropopause appears to be very high up: ', k_tropo + CALL wrf_debug (150, dbg_msg) + do k = kte, kts, -1 + WRITE (dbg_msg,*) 'DEBUG-GT, P, T : ', k,P1d(k)*0.01,T1d(k)-273.16 + CALL wrf_debug (150, dbg_msg) + enddo + elseif (debugfl) then + WRITE (dbg_msg,*) 'DEBUG-GT: FOUND TROPOPAUSE k=', k_tropo + CALL wrf_debug (150, dbg_msg) + endif !..Eliminate possible fractional clouds above supposed tropopause. DO k = k_tropo+1, kte - if (cfr1d(k).gt.0.0 .and. cfr1d(k).lt.0.999) then + if (cfr1d(k).gt.0.0 .and. cfr1d(k).lt.1.0) then cfr1d(k) = 0. endif ENDDO @@ -3561,11 +3779,11 @@ SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & kbot = kts+2 DO k = kbot, k_m12C - if ( (theta(k)-theta(k-1)) .gt. 0.05E-3*dz(k)) EXIT + if ( (theta(k)-theta(k-1)) .gt. 0.025E-3*Dz1d(k)) EXIT ENDDO kbot = MAX(kts+1, k-2) DO k = kts, kbot - if (cfr1d(k).gt.0.0 .and. cfr1d(k).lt.0.999) cfr1d(k) = 0. + if (cfr1d(k).gt.0.0 .and. cfr1d(k).lt.1.0) cfr1d(k) = 0. ENDDO @@ -3578,7 +3796,7 @@ SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & k_cldb = k_tropo in_cloud = .false. k = k_tropo - DO WHILE (.not. in_cloud .AND. k.gt.k_m12C) + DO WHILE (.not. in_cloud .AND. k.gt.k_m12C+1) k_cldt = 0 if (cfr1d(k).ge.0.01) then in_cloud = .true. @@ -3595,23 +3813,27 @@ SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & in_cloud = .false. endif if ((k_cldt - k_cldb + 1) .ge. 2) then -! if (debugfl) then -! print*, 'An ice cloud layer is found between ', k_cldt, k_cldb, P1d(k_cldt)*0.01, P1d(k_cldb)*0.01 -! WRITE (dbg_msg,*) 'DEBUG-GT: An ice cloud layer is found between ', k_cldt, k_cldb, P1d(k_cldt)*0.01, P1d(k_cldb)*0.01 -! CALL wrf_debug (150, dbg_msg) -! endif - call adjust_cloudIce(cfr1d, qi1d, qs1d, qvs1d, T1d,R1d,dz, & + if (debugfl) then + WRITE (dbg_msg,*) 'DEBUG-GT: An ice cloud layer is found between ', k_cldt, k_cldb, P1d(k_cldt)*0.01, P1d(k_cldb)*0.01 + CALL wrf_debug (150, dbg_msg) + endif + call adjust_cloudIce(cfr1d, qi1d, qs1d, qvs1d, T1d, Dz1d, & & entrmnt, k_cldb,k_cldt,kts,kte) k = k_cldb - else - if (cfr1d(k_cldb).gt.0.and.qi1d(k_cldb).lt.1.E-6) & - & qi1d(k_cldb)=1.E-5*cfr1d(k_cldb) + elseif ((k_cldt - k_cldb + 1) .eq. 1) then + if (debugfl) then + WRITE (dbg_msg,*) 'DEBUG-GT: A single-layer ice cloud layer is found on ', k_cldb, P1d(k_cldb)*0.01 + CALL wrf_debug (150, dbg_msg) + endif + if (cfr1d(k_cldb).gt.0.and.cfr1d(k_cldb).lt.1.) & + & qi1d(k_cldb)=0.05*qvs1d(k_cldb) + k = k_cldb endif k = k - 1 ENDDO - k_cldb = k_tropo + k_cldb = k_m12C + 3 in_cloud = .false. k = k_m12C + 2 DO WHILE (.not. in_cloud .AND. k.gt.kbot) @@ -3631,69 +3853,48 @@ SUBROUTINE find_cloudLayers(qvs1d, cfr1d, T1d, P1d, R1d, entrmnt, & in_cloud = .false. endif if ((k_cldt - k_cldb + 1) .ge. 2) then -! if (debugfl) then -! print*, 'A water cloud layer is found between ', k_cldt, k_cldb, P1d(k_cldt)*0.01, P1d(k_cldb)*0.01 -! WRITE (dbg_msg,*) 'DEBUG-GT: A water cloud layer is found between ', k_cldt, k_cldb, P1d(k_cldt)*0.01, P1d(k_cldb)*0.01 -! CALL wrf_debug (150, dbg_msg) -! endif - call adjust_cloudH2O(cfr1d, qc1d, qvs1d, T1d,R1d,dz, & + if (debugfl) then + WRITE (dbg_msg,*) 'DEBUG-GT: A water cloud layer is found between ', k_cldt, k_cldb, P1d(k_cldt)*0.01, P1d(k_cldb)*0.01 + CALL wrf_debug (150, dbg_msg) + endif + call adjust_cloudH2O(cfr1d, qc1d, qvs1d, T1d, Dz1d, & & entrmnt, k_cldb,k_cldt,kts,kte) k = k_cldb - else - if (cfr1d(k_cldb).gt.0.and.qc1d(k_cldb).lt.1.E-6) & - & qc1d(k_cldb)=1.E-5*cfr1d(k_cldb) + elseif ((k_cldt - k_cldb + 1) .eq. 1) then + if (cfr1d(k_cldb).gt.0.and.cfr1d(k_cldb).lt.1.) & + & qc1d(k_cldb)=0.05*qvs1d(k_cldb) + k = k_cldb endif k = k - 1 ENDDO -!..Do a final total column adjustment since we may have added more than 1mm -!.. LWP/IWP for multiple cloud decks. - - call adjust_cloudFinal(cfr1d, qc1d, qi1d, R1d,dz, kts,kte,k_tropo) - -! if (debugfl) then -! print*, ' Made-up fake profile of clouds' -! do k = kte, kts, -1 -! write(*,'(i3, 2x, f8.2, 2x, f9.2, 2x, f6.2, 2x, f15.7, 2x, f15.7)') & -! & K, T1d(k)-273.15, P1d(k)*0.01, cfr1d(k)*100., qc1d(k)*1000.,qi1d(k)*1000. -! enddo -! WRITE (dbg_msg,*) 'DEBUG-GT: Made-up fake profile of clouds' -! CALL wrf_debug (150, dbg_msg) -! do k = kte, kts, -1 -! write(dbg_msg,'(f8.2, 2x, f9.2, 2x, f6.2, 2x, f15.7, 2x, f15.7)') & -! & T1d(k)-273.15, P1d(k)*0.01, cfr1d(k)*100., qc1d(k)*1000.,qi1d(k)*1000. -! CALL wrf_debug (150, dbg_msg) -! enddo -! endif - END SUBROUTINE find_cloudLayers !+---+-----------------------------------------------------------------+ - SUBROUTINE adjust_cloudIce(cfr,qi,qs,qvs, T,Rho,dz, entr, k1,k2,kts,kte) + SUBROUTINE adjust_cloudIce(cfr,qi,qs,qvs,T,dz,entr, k1,k2,kts,kte) ! IMPLICIT NONE ! INTEGER, INTENT(IN):: k1,k2, kts,kte REAL, INTENT(IN):: entr - REAL, DIMENSION(kts:kte), INTENT(IN):: cfr, qvs, T, Rho, dz - REAL, DIMENSION(kts:kte), INTENT(INOUT):: qi, qs - REAL:: iwc, max_iwc, tdz, this_iwc, this_dz, iwp_exists - INTEGER:: k, kmid + REAL, DIMENSION(kts:kte), INTENT(IN):: cfr, qs, qvs, T, dz + REAL, DIMENSION(kts:kte), INTENT(INOUT):: qi + REAL:: iwc, max_iwc, tdz, this_iwc, this_dz + INTEGER:: k tdz = 0. do k = k1, k2 tdz = tdz + dz(k) enddo - kmid = NINT(0.5*(k1+k2)) - max_iwc = ABS(qvs(k2-1)-qvs(k1)) + max_iwc = ABS(qvs(k2)-qvs(k1)) ! print*, ' max_iwc = ', max_iwc, ' over DZ=',tdz - iwp_exists = 0. do k = k1, k2 - iwp_exists = iwp_exists + (qi(k)+qs(k))*Rho(k)*dz(k) + max_iwc = MAX(1.E-6, max_iwc - (qi(k)+qs(k))) enddo + max_iwc = MIN(1.E-3, max_iwc) this_dz = 0.0 do k = k1, k2 @@ -3704,10 +3905,8 @@ SUBROUTINE adjust_cloudIce(cfr,qi,qs,qvs, T,Rho,dz, entr, k1,k2,kts,kte) endif this_iwc = max_iwc*this_dz/tdz iwc = MAX(1.E-6, this_iwc*(1.-entr)) - if (cfr(k).gt.0.01.and.cfr(k).lt.0.99.and.T(k).ge.203.16) then - qi(k) = qi(k) + 0.1*cfr(k)*iwc - elseif (qi(k).lt.1.E-5.and.cfr(k).ge.0.99.and.T(k).ge.203.16) then - qi(k) = qi(k) + 0.01*iwc + if (cfr(k).gt.0.0.and.cfr(k).lt.1.0.and.T(k).ge.203.16) then + qi(k) = qi(k) + cfr(k)*cfr(k)*iwc endif enddo @@ -3715,28 +3914,28 @@ END SUBROUTINE adjust_cloudIce !+---+-----------------------------------------------------------------+ - SUBROUTINE adjust_cloudH2O(cfr, qc, qvs, T,Rho,dz, entr, k1,k2,kts,kte) + SUBROUTINE adjust_cloudH2O(cfr, qc, qvs,T,dz,entr, k1,k2,kts,kte) ! IMPLICIT NONE ! INTEGER, INTENT(IN):: k1,k2, kts,kte REAL, INTENT(IN):: entr - REAL, DIMENSION(kts:kte):: cfr, qc, qvs, T, Rho, dz - REAL:: lwc, max_lwc, tdz, this_lwc, this_dz, lwp_exists - INTEGER:: k, kmid + REAL, DIMENSION(kts:kte), INTENT(IN):: cfr, qvs, T, dz + REAL, DIMENSION(kts:kte), INTENT(INOUT):: qc + REAL:: lwc, max_lwc, tdz, this_lwc, this_dz + INTEGER:: k tdz = 0. do k = k1, k2 tdz = tdz + dz(k) enddo - kmid = NINT(0.5*(k1+k2)) - max_lwc = ABS(qvs(k2-1)-qvs(k1)) + max_lwc = ABS(qvs(k2)-qvs(k1)) ! print*, ' max_lwc = ', max_lwc, ' over DZ=',tdz - lwp_exists = 0. do k = k1, k2 - lwp_exists = lwp_exists + qc(k)*Rho(k)*dz(k) + max_lwc = MAX(1.E-6, max_lwc - qc(k)) enddo + max_lwc = MIN(1.E-3, max_lwc) this_dz = 0.0 do k = k1, k2 @@ -3747,10 +3946,8 @@ SUBROUTINE adjust_cloudH2O(cfr, qc, qvs, T,Rho,dz, entr, k1,k2,kts,kte) endif this_lwc = max_lwc*this_dz/tdz lwc = MAX(1.E-6, this_lwc*(1.-entr)) - if (cfr(k).gt.0.01.and.cfr(k).lt.0.99.and.T(k).lt.298.16.and.T(k).ge.253.16) then + if (cfr(k).gt.0.0.and.cfr(k).lt.1.0.and.T(k).ge.253.16) then qc(k) = qc(k) + cfr(k)*cfr(k)*lwc - elseif (cfr(k).ge.0.99.and.qc(k).lt.1.E-5.and.T(k).lt.298.16.and.T(k).ge.253.16) then - qc(k) = qc(k) + 0.1*lwc endif enddo @@ -3761,11 +3958,11 @@ END SUBROUTINE adjust_cloudH2O !..Do not alter any grid-explicitly resolved hydrometeors, rather only !.. the supposed amounts due to the cloud fraction scheme. - SUBROUTINE adjust_cloudFinal(cfr, qc, qi, Rho,dz, kts,kte,k_tropo) + SUBROUTINE adjust_cloudFinal(cfr, qc, qi, Rho,dz, kts,kte) ! IMPLICIT NONE ! - INTEGER, INTENT(IN):: kts,kte,k_tropo + INTEGER, INTENT(IN):: kts,kte REAL, DIMENSION(kts:kte), INTENT(IN):: cfr, Rho, dz REAL, DIMENSION(kts:kte), INTENT(INOUT):: qc, qi REAL:: lwp, iwp, xfac @@ -3773,7 +3970,7 @@ SUBROUTINE adjust_cloudFinal(cfr, qc, qi, Rho,dz, kts,kte,k_tropo) lwp = 0. iwp = 0. - do k = kts, k_tropo + do k = kts, kte if (cfr(k).gt.0.0) then lwp = lwp + qc(k)*Rho(k)*dz(k) iwp = iwp + qi(k)*Rho(k)*dz(k) @@ -3781,18 +3978,18 @@ SUBROUTINE adjust_cloudFinal(cfr, qc, qi, Rho,dz, kts,kte,k_tropo) enddo if (lwp .gt. 1.5) then - xfac = 1./lwp - do k = kts, k_tropo - if (cfr(k).gt.0.01 .and. cfr(k).lt.0.99) then + xfac = 1.5/lwp + do k = kts, kte + if (cfr(k).gt.0.0 .and. cfr(k).lt.1.0) then qc(k) = qc(k)*xfac endif enddo endif if (iwp .gt. 1.5) then - xfac = 1./iwp - do k = kts, k_tropo - if (cfr(k).gt.0.01 .and. cfr(k).lt.0.99) then + xfac = 1.5/iwp + do k = kts, kte + if (cfr(k).gt.0.0 .and. cfr(k).lt.1.0) then qi(k) = qi(k)*xfac endif enddo @@ -3800,6 +3997,7 @@ SUBROUTINE adjust_cloudFinal(cfr, qc, qi, Rho,dz, kts,kte,k_tropo) END SUBROUTINE adjust_cloudFinal + !+---+-----------------------------------------------------------------+ SUBROUTINE toposhad_init(ht_shad,ht_loc,shadowmask,nested,iter, & @@ -4292,7 +4490,7 @@ SUBROUTINE ozn_time_int(julday,julian,ozmixm,ozmixt,levsiz,num_months, & do j=jts,jte do k=1,levsiz do i=its,ite - ozmixt(i,k,j) = ozmixm(i,k,j,nm)*fact1 + ozmixm(i,k,j,np)*fact2 + ozmixt(i,k,j) = ozmixm(i,k,j,nm+1)*fact1 + ozmixm(i,k,j,np+1)*fact2 end do end do end do @@ -4823,7 +5021,7 @@ SUBROUTINE gt_aod(p_phy,DZ8W,t_phy,qvapor, nwfa,nifa, taod5503d, & rhoa = p_phy(i,k,j)/(287.*t_phy(i,k,j)) t_idx = MAX(1, MIN(nint(10.999-0.0333*t_phy(i,k,j)),4)) qvsat = rslf(p_phy(i,k,j),t_phy(i,k,j)) - RH = MIN(98., MAX(10.1, qvapor(i,k,j)/qvsat*100.)) + RH = MIN(99.1, MAX(10.1, qvapor(i,k,j)/qvsat*100.)) !..Get the index for the RH array element @@ -4892,7 +5090,7 @@ SUBROUTINE gt_aod(p_phy,DZ8W,t_phy,qvapor, nwfa,nifa, taod5503d, & DO j=jts,jte DO k=kts,kte DO i=its,ite - taod5503d(i,k,j) = aod_wfa(i,k,j) + aod_ifa(i,k,j) + taod5503d(i,k,j) = MAX(1.E-3, aod_wfa(i,k,j) + aod_ifa(i,k,j)) END DO END DO END DO diff --git a/phys/module_sf_bep.F b/phys/module_sf_bep.F index d059e0fcff..83d6a98265 100644 --- a/phys/module_sf_bep.F +++ b/phys/module_sf_bep.F @@ -57,7 +57,10 @@ subroutine BEP(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & th_phy,rho,p_phy,swdown,glw, & gmt,julday,xlong,xlat, & declin_urb,cosz_urb2d,omg_urb2d, & - num_urban_layers,num_urban_hi, & + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & + urban_map_gbd, urban_map_fbd, & + num_urban_hi, & trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & sfw1_urb3d,sfw2_urb3d,sfr_urb3d,sfg_urb3d, & lp_urb2d,hi_urb2d,lb_urb2d,hgt_urb2d, & @@ -100,16 +103,25 @@ subroutine BEP(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & REAL, INTENT(IN) :: DECLIN_URB REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: COSZ_URB2D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: OMG_URB2D - INTEGER, INTENT(IN ) :: num_urban_layers + INTEGER, INTENT(IN ) :: num_urban_ndm + INTEGER, INTENT(IN ) :: urban_map_zrd + INTEGER, INTENT(IN ) :: urban_map_zwd + INTEGER, INTENT(IN ) :: urban_map_gd + INTEGER, INTENT(IN ) :: urban_map_zd + INTEGER, INTENT(IN ) :: urban_map_zdf + INTEGER, INTENT(IN ) :: urban_map_bd + INTEGER, INTENT(IN ) :: urban_map_wd + INTEGER, INTENT(IN ) :: urban_map_gbd + INTEGER, INTENT(IN ) :: urban_map_fbd INTEGER, INTENT(IN ) :: num_urban_hi - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: trb_urb4d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1_urb4d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2_urb4d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tgb_urb4d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw1_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw2_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfr_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfg_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: trb_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw1_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw2_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_gd , jms:jme ), INTENT(INOUT) :: tgb_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfw1_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfw2_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: sfr_urb3d + REAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: sfg_urb3d REAL, DIMENSION( ims:ime, 1:num_urban_hi, jms:jme ), INTENT(IN) :: hi_urb2d REAL, DIMENSION( ims:ime,jms:jme), INTENT(IN) :: lp_urb2d REAL, DIMENSION( ims:ime,jms:jme), INTENT(IN) :: lb_urb2d @@ -298,8 +310,8 @@ subroutine BEP(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & !------------------------------------------------------------------------ !prepare the arrays to collapse indexes - if(num_urban_layers.lt.nz_um*ndm*nwr_u)then - write(*,*)'num_urban_layers too small, please increase to at least ', nz_um*ndm*nwr_u + if(urban_map_zrd.lt.nz_um*ndm*nwr_u)then + write(*,*)'urban_map_zrd too small, please increase to at least ', nz_um*ndm*nwr_u stop endif iii=0 @@ -420,7 +432,7 @@ subroutine BEP(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & do iw=1,nwr_u ! tw1D(2*id-1,iz_u,iw)=tw1_u(ix,iy,ind_zwd(iz_u,iw,id)) ! tw1D(2*id,iz_u,iw)=tw2_u(ix,iy,ind_zwd(iz_u,iw,id)) - if(ind_zwd(iz_u,iw,id).gt.num_urban_layers)write(*,*)'ind_zwd too big w',ind_zwd(iz_u,iw,id) + if(ind_zwd(iz_u,iw,id).gt.urban_map_zwd)write(*,*)'ind_zwd too big w',ind_zwd(iz_u,iw,id) tw1D(2*id-1,iz_u,iw)=tw1_urb4d(ix,ind_zwd(iz_u,iw,id),iy) tw1D(2*id,iz_u,iw)=tw2_urb4d(ix,ind_zwd(iz_u,iw,id),iy) enddo @@ -435,7 +447,7 @@ subroutine BEP(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & do iz_u=1,nz_um do ir=1,nwr_u ! tr1D(id,iz_u,ir)=tr_u(ix,iy,ind_zwd(iz_u,ir,id)) - if(ind_zwd(iz_u,ir,id).gt.num_urban_layers)write(*,*)'ind_zwd too big r',ind_zwd(iz_u,ir,id) + if(ind_zwd(iz_u,ir,id).gt.urban_map_zwd)write(*,*)'ind_zwd too big r',ind_zwd(iz_u,ir,id) tr1D(id,iz_u,ir)=trb_urb4d(ix,ind_zwd(iz_u,ir,id),iy) enddo enddo @@ -3059,7 +3071,7 @@ SUBROUTINE init_para(alag_u,alaw_u,alar_u,csg_u,csw_u,csr_u,& do iu=1,icate if(ndm.lt.nd_u(iu))then write(*,*)'ndm too small in module_sf_bep, please increase to at least ', nd_u(iu) - write(*,*)'remember also that num_urban_layers should be equal or greater than nz_um*ndm*nwr-u!' + write(*,*)'remember also that urban_map_zrd should be equal or greater than nz_um*ndm*nwr-u!' stop endif do i=1,nd_u(iu) @@ -3071,7 +3083,7 @@ SUBROUTINE init_para(alag_u,alaw_u,alar_u,csg_u,csw_u,csr_u,& do iu=1,ICATE if(nz_um.lt.numhgt_tbl(iu)+3)then write(*,*)'nz_um too small in module_sf_bep, please increase to at least ',numhgt_tbl(iu)+3 - write(*,*)'remember also that num_urban_layers should be equal or greater than nz_um*ndm*nwr-u!' + write(*,*)'remember also that urban_map_zrd should be equal or greater than nz_um*ndm*nwr-u!' stop endif do i=1,NUMHGT_TBL(iu) @@ -3480,3 +3492,39 @@ end subroutine icBEPHI_XY ! ===6=8===============================================================72 ! ===6=8===============================================================72 END MODULE module_sf_bep + + FUNCTION bep_nurbm () RESULT (bep_val_nurbm) + USE module_sf_bep + IMPLICIT NONE + INTEGER :: bep_val_nurbm + bep_val_nurbm = nurbm + END FUNCTION bep_nurbm + + FUNCTION bep_ndm () RESULT (bep_val_ndm) + USE module_sf_bep + IMPLICIT NONE + INTEGER :: bep_val_ndm + bep_val_ndm = ndm + END FUNCTION bep_ndm + + FUNCTION bep_nz_um () RESULT (bep_val_nz_um) + USE module_sf_bep + IMPLICIT NONE + INTEGER :: bep_val_nz_um + bep_val_nz_um = nz_um + END FUNCTION bep_nz_um + + FUNCTION bep_ng_u () RESULT (bep_val_ng_u) + USE module_sf_bep + IMPLICIT NONE + INTEGER :: bep_val_ng_u + bep_val_ng_u = ng_u + END FUNCTION bep_ng_u + + FUNCTION bep_nwr_u () RESULT (bep_val_nwr_u) + USE module_sf_bep + IMPLICIT NONE + INTEGER :: bep_val_nwr_u + bep_val_nwr_u = nwr_u + END FUNCTION bep_nwr_u + diff --git a/phys/module_sf_bep_bem.F b/phys/module_sf_bep_bem.F index fb2d6c2a9d..366f575c8f 100644 --- a/phys/module_sf_bep_bem.F +++ b/phys/module_sf_bep_bem.F @@ -80,7 +80,10 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & th_phy,rho,p_phy,swdown,glw, & gmt,julday,xlong,xlat, & declin_urb,cosz_urb2d,omg_urb2d, & - num_urban_layers,num_urban_hi, & + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & + urban_map_gbd, urban_map_fbd, & + num_urban_hi, & trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & tlev_urb3d,qlev_urb3d,tw1lev_urb3d,tw2lev_urb3d, & tglev_urb3d,tflev_urb3d,sf_ac_urb3d,lf_ac_urb3d, & @@ -127,32 +130,41 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & REAL, INTENT(IN) :: DECLIN_URB REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: COSZ_URB2D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: OMG_URB2D - INTEGER, INTENT(IN ) :: num_urban_layers + INTEGER, INTENT(IN ) :: num_urban_ndm + INTEGER, INTENT(IN ) :: urban_map_zrd + INTEGER, INTENT(IN ) :: urban_map_zwd + INTEGER, INTENT(IN ) :: urban_map_gd + INTEGER, INTENT(IN ) :: urban_map_zd + INTEGER, INTENT(IN ) :: urban_map_zdf + INTEGER, INTENT(IN ) :: urban_map_bd + INTEGER, INTENT(IN ) :: urban_map_wd + INTEGER, INTENT(IN ) :: urban_map_gbd + INTEGER, INTENT(IN ) :: urban_map_fbd INTEGER, INTENT(IN ) :: num_urban_hi - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: trb_urb4d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1_urb4d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2_urb4d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tgb_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: trb_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw1_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw2_urb4d + REAL, DIMENSION( ims:ime, 1:urban_map_gd , jms:jme ), INTENT(INOUT) :: tgb_urb4d !New variables used for BEM REAL, DIMENSION( ims:ime, kms:kme, jms:jme ):: qv_phy - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tlev_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: qlev_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1lev_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2lev_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tglev_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tflev_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: tlev_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: qlev_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw1lev_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw2lev_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_gbd, jms:jme ), INTENT(INOUT) :: tglev_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_fbd, jms:jme ), INTENT(INOUT) :: tflev_urb3d REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lf_ac_urb3d REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sf_ac_urb3d REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: cm_ac_urb3d REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sfvent_urb3d REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lfvent_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin1_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin2_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin1_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin2_urb3d !End variables - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw1_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw2_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfr_urb3d - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfg_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw1_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw2_urb3d + REAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: sfr_urb3d + REAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: sfg_urb3d REAL, DIMENSION( ims:ime, 1:num_urban_hi, jms:jme ), INTENT(IN) :: hi_urb2d REAL, DIMENSION( ims:ime,jms:jme), INTENT(IN) :: lp_urb2d REAL, DIMENSION( ims:ime,jms:jme), INTENT(IN) :: lb_urb2d @@ -289,6 +301,8 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & real z_u(nz_um) ! Height of the urban grid levels !FS real cop_u(nurbm) + real bldac_frc_u(nurbm) + real cooled_frc_u(nurbm) real pwin_u(nurbm) real beta_u(nurbm) integer sw_cond_u(nurbm) @@ -389,6 +403,7 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & albg_u,albw_u,albr_u,emg_u,emw_u,emr_u, & z0g_u,z0r_u, nd_u,strd_u,drst_u,ws_u,bs_u,h_b,d_b,ss_u,pb_u, & nz_u,z_u,albwin_u,emwind_u,cop_u,pwin_u,beta_u,sw_cond_u, & + bldac_frc_u,cooled_frc_u, & time_on_u,time_off_u,targtemp_u,gaptemp_u,targhum_u,gaphum_u, & perflo_u,hsesf_u,hsequip @@ -409,30 +424,30 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & ! !prepare the arrays to collapse indexes - if(num_urban_layers.lt.nbui_max*nz_um*ndm*max(nwr_u,ng_u))then - write(*,*)'num_urban_layers too small, please increase to at least ', nbui_max*nz_um*ndm*max(nwr_u,ng_u) + if(urban_map_zwd.lt.nbui_max*nz_um*ndm*max(nwr_u,ng_u))then + write(*,*)'urban_map_zwd too small, please increase to at least ', nbui_max*nz_um*ndm*max(nwr_u,ng_u) stop endif ! !New conditions for BEM ! - if(num_urban_layers.lt.nbui_max*nz_um)then !limit for indoor temperature and indoor humidity - write(*,*)'num_urban_layers too small, please increase to at least ', nbui_max*nz_um + if(urban_map_bd.lt.nbui_max*nz_um)then !limit for indoor temperature and indoor humidity + write(*,*)'urban_map_bd too small, please increase to at least ', nbui_max*nz_um stop endif - if(num_urban_layers.lt.nbui_max*nz_um*ndm)then !limit for window temperature - write(*,*)'num_urban_layers too small, please increase to at least ', nbui_max*nz_um*ndm + if(urban_map_wd.lt.nbui_max*nz_um*ndm)then !limit for window temperature + write(*,*)'urban_map_wd too small, please increase to at least ', nbui_max*nz_um*ndm stop endif - if(num_urban_layers.lt.nbui_max*ndm*ngb_u)then !limit for ground temperature below a building - write(*,*)'num_urban_layers too small, please increase to at least ', nbui_max*ndm*ngb_u + if(urban_map_gbd.lt.nbui_max*ndm*ngb_u)then !limit for ground temperature below a building + write(*,*)'urban_map_gbd too small, please increase to at least ', nbui_max*ndm*ngb_u stop endif - if(num_urban_layers.lt.(nz_um-1)*nbui_max*ndm*nf_u)then !limit for floor temperature - write(*,*)'num_urban_layers too small, please increase to at least ', nbui_max*ndm*nf_u*(nz_um-1),num_urban_layers + if(urban_map_fbd.lt.(nz_um-1)*nbui_max*ndm*nf_u)then !limit for floor temperature + write(*,*)'urban_map_fbd too small, please increase to at least ', nbui_max*ndm*nf_u*(nz_um-1) stop endif @@ -593,6 +608,7 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & twini_u,trini_u,tgini_u,albg_u,albw_u,albr_u,albwin_u,emg_u,emw_u,& emr_u,emwind_u,z0g_u,z0r_u,nd_u,strd_u,drst_u,ws_u,bs_u,h_b,d_b, & cop_u,pwin_u,beta_u,sw_cond_u,time_on_u,time_off_u,targtemp_u, & + bldac_frc_u,cooled_frc_u, & gaptemp_u,targhum_u,gaphum_u,perflo_u,hsesf_u,hsequip) !Initialisation of the urban parameters and calculation of the view factor @@ -897,6 +913,7 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & meso_urb=(1./4.)*FRC_URB2D(ix,iy)/((bs_urb(1,iurb)+ws_urb(1,iurb))*bs_urb(2,iurb))+ & (1./4.)*FRC_URB2D(ix,iy)/((bs_urb(2,iurb)+ws_urb(2,iurb))*bs_urb(1,iurb)) + meso_urb= meso_urb*bldac_frc_u(iurb)*cooled_frc_u(iurb) !! adjust for fraction AC ibui=0 nlev=0 @@ -976,11 +993,6 @@ subroutine BEP_BEM(FRC_URB2D,UTYPE_URB2D,itimestep,dz8w,dt,u_phy,v_phy, & time_bep=time_bep+dt - print*, 'ss_urb', ss_urb - print*, 'pb_urb', pb_urb - print*, 'nz_urb', nz_urb - print*, 'd_urb', d_urb - return end subroutine BEP_BEM @@ -4032,6 +4044,7 @@ SUBROUTINE init_para(alag_u,alaw_u,alar_u,csg_u,csw_u,csr_u,& twini_u,trini_u,tgini_u,albg_u,albw_u,albr_u,albwin_u,emg_u,emw_u,& emr_u,emwind_u,z0g_u,z0r_u,nd_u,strd_u,drst_u,ws_u,bs_u,h_b,d_b, & cop_u,pwin_u,beta_u,sw_cond_u,time_on_u,time_off_u,targtemp_u, & + bldac_frc_u,cooled_frc_u, & gaptemp_u, targhum_u,gaphum_u,perflo_u,hsesf_u,hsequip) ! initialization routine, where the variables from the table are read @@ -4077,6 +4090,8 @@ SUBROUTINE init_para(alag_u,alaw_u,alar_u,csg_u,csw_u,csr_u,& integer i,iu integer nurb ! number of urban classes used real, intent(out) :: cop_u(nurbm) + real, intent(out) :: bldac_frc_u(nurbm) + real, intent(out) :: cooled_frc_u(nurbm) real, intent(out) :: pwin_u(nurbm) real, intent(out) :: beta_u(nurbm) integer, intent(out) :: sw_cond_u(nurbm) @@ -4124,6 +4139,8 @@ SUBROUTINE init_para(alag_u,alaw_u,alar_u,csg_u,csw_u,csr_u,& nd_u=NUMDIR_TBL !FS cop_u = cop_tbl + bldac_frc_u = bldac_frc_tbl + cooled_frc_u = cooled_frc_tbl pwin_u = pwin_tbl beta_u = beta_tbl sw_cond_u = sw_cond_tbl @@ -4140,7 +4157,7 @@ SUBROUTINE init_para(alag_u,alaw_u,alar_u,csg_u,csw_u,csr_u,& do iu=1,icate if(ndm.lt.nd_u(iu))then write(*,*)'ndm too small in module_sf_bep_bem, please increase to at least ', nd_u(iu) - write(*,*)'remember also that num_urban_layers should be equal or greater than nz_um*ndm*nwr-u!' + write(*,*)'remember also that urban_map_zrd should be equal or greater than nz_um*ndm*nwr-u!' stop endif do i=1,nd_u(iu) @@ -4152,7 +4169,7 @@ SUBROUTINE init_para(alag_u,alaw_u,alar_u,csg_u,csw_u,csr_u,& do iu=1,ICATE if(nz_um.lt.numhgt_tbl(iu)+3)then write(*,*)'nz_um too small in module_sf_bep, please increase to at least ',numhgt_tbl(iu)+3 - write(*,*)'remember also that num_urban_layers should be equal or greater than nz_um*ndm*nwr-u!' + write(*,*)'remember also that urban_map_zrd should be equal or greater than nz_um*ndm*nwr-u!' stop endif do i=1,NUMHGT_TBL(iu) @@ -4591,3 +4608,62 @@ end subroutine icBEPHI_XY !====================================================================72 !====================================================================72 END MODULE module_sf_bep_bem +! ===6=8===============================================================72 +! ===6=8===============================================================72 + + FUNCTION bep_bem_nurbm () RESULT (bep_bem_val_nurbm) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_nurbm + bep_bem_val_nurbm = nurbm + END FUNCTION bep_bem_nurbm + + FUNCTION bep_bem_ndm () RESULT (bep_bem_val_ndm) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_ndm + bep_bem_val_ndm = ndm + END FUNCTION bep_bem_ndm + + FUNCTION bep_bem_nz_um () RESULT (bep_bem_val_nz_um) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_nz_um + bep_bem_val_nz_um = nz_um + END FUNCTION bep_bem_nz_um + + FUNCTION bep_bem_ng_u () RESULT (bep_bem_val_ng_u) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_ng_u + bep_bem_val_ng_u = ng_u + END FUNCTION bep_bem_ng_u + + FUNCTION bep_bem_nwr_u () RESULT (bep_bem_val_nwr_u) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_nwr_u + bep_bem_val_nwr_u = nwr_u + END FUNCTION bep_bem_nwr_u + + FUNCTION bep_bem_nf_u () RESULT (bep_bem_val_nf_u) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_nf_u + bep_bem_val_nf_u = nf_u + END FUNCTION bep_bem_nf_u + + FUNCTION bep_bem_ngb_u () RESULT (bep_bem_val_ngb_u) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_ngb_u + bep_bem_val_ngb_u = ngb_u + END FUNCTION bep_bem_ngb_u + + FUNCTION bep_bem_nbui_max () RESULT (bep_bem_val_nbui_max) + USE module_sf_bep_bem + IMPLICIT NONE + INTEGER :: bep_bem_val_nbui_max + bep_bem_val_nbui_max = nbui_max + END FUNCTION bep_bem_nbui_max + diff --git a/phys/module_sf_exchcoef.F b/phys/module_sf_exchcoef.F index a9f5cb737e..109dc9e4c7 100755 --- a/phys/module_sf_exchcoef.F +++ b/phys/module_sf_exchcoef.F @@ -355,7 +355,287 @@ SUBROUTINE znot_t_v6(uref,znott) endif END SUBROUTINE znot_t_v6 - + + SUBROUTINE znot_m_v7(uref,znotm) + IMPLICIT NONE +! Calculate areodynamical roughness over water with input 10-m wind +! For low-to-moderate winds, try to match the Cd-U10 relationship from COARE V3.5 (Edson et al. 2013) +! For high winds, try to fit available observational data +! Comparing to znot_t_v6, slightly decrease Cd for higher wind speed +! +! Bin Liu, NOAA/NCEP/EMC 2018 +! +! uref(m/s) : wind speed at 10-m height +! znotm(meter): areodynamical roughness scale over water +! + + REAL, INTENT(IN) :: uref + REAL, INTENT(OUT):: znotm + REAL :: p13, p12, p11, p10 + REAL :: p25, p24, p23, p22, p21, p20 + REAL :: p35, p34, p33, p32, p31, p30 + REAL :: p40 + + p13 = -1.296521881682694e-02 + p12 = 2.855780863283819e-01 + p11 = -1.597898515251717e+00 + p10 = -8.396975715683501e+00 + + p25 = 3.790846746036765e-10 + p24 = 3.281964357650687e-09 + p23 = 1.962282433562894e-07 + p22 = -1.240239171056262e-06 + p21 = 1.739759082358234e-07 + p20 = 2.147264020369413e-05 + + p35 = 1.897534489606422e-07 + p34 = -3.019495980684978e-05 + p33 = 1.931392924987349e-03 + p32 = -6.797293095862357e-02 + p31 = 1.346757797103756e+00 + p30 = -1.707846930193362e+01 + + p40 = 3.371427455376717e-04 + + if (uref >= 0.0 .and. uref <= 6.5 ) then + znotm = exp( p10 + p11*uref + p12*uref**2 + p13*uref**3) + elseif (uref > 6.5 .and. uref <= 15.7) then + znotm = p25*uref**5 + p24*uref**4 + p23*uref**3 + p22*uref**2 + p21*uref + p20 + elseif (uref > 15.7 .and. uref <= 53.0) then + znotm = exp( p35*uref**5 + p34*uref**4 + p33*uref**3 + p32*uref**2 + p31*uref + p30 ) + elseif ( uref > 53.0) then + znotm = p40 + else + print*, 'Wrong input uref value:',uref + endif + + END SUBROUTINE znot_m_v7 + + SUBROUTINE znot_t_v7(uref,znott) + IMPLICIT NONE +! Calculate scalar roughness over water with input 10-m wind +! For low-to-moderate winds, try to match the Ck-U10 relationship from COARE algorithm +! For high winds, try to retain the Ck-U10 relationship of FY2015 HWRF +! To be compatible with the slightly decreased Cd for higher wind speed +! +! Bin Liu, NOAA/NCEP/EMC 2018 +! +! uref(m/s) : wind speed at 10-m height +! znott(meter): scalar roughness scale over water +! + + REAL, INTENT(IN) :: uref + REAL, INTENT(OUT):: znott + + REAL :: p00 + REAL :: p15, p14, p13, p12, p11, p10 + REAL :: p25, p24, p23, p22, p21, p20 + REAL :: p35, p34, p33, p32, p31, p30 + REAL :: p45, p44, p43, p42, p41, p40 + REAL :: p56, p55, p54, p53, p52, p51, p50 + REAL :: p60 + + p00 = 1.100000000000000e-04 + + p15 = -9.193764479895316e-10 + p14 = 7.052217518653943e-08 + p13 = -2.163419217747114e-06 + p12 = 3.342963077911962e-05 + p11 = -2.633566691328004e-04 + p10 = 8.644979973037803e-04 + + p25 = -9.402722450219142e-12 + p24 = 1.325396583616614e-09 + p23 = -7.299148051141852e-08 + p22 = 1.982901461144764e-06 + p21 = -2.680293455916390e-05 + p20 = 1.484341646128200e-04 + + p35 = 7.921446674311864e-12 + p34 = -1.019028029546602e-09 + p33 = 5.251986927351103e-08 + p32 = -1.337841892062716e-06 + p31 = 1.659454106237737e-05 + p30 = -7.558911792344770e-05 + + p45 = -2.694370426850801e-10 + p44 = 5.817362913967911e-08 + p43 = -5.000813324746342e-06 + p42 = 2.143803523428029e-04 + p41 = -4.588070983722060e-03 + p40 = 3.924356617245624e-02 + + p56 = -1.663918773476178e-13 + p55 = 6.724854483077447e-11 + p54 = -1.127030176632823e-08 + p53 = 1.003683177025925e-06 + p52 = -5.012618091180904e-05 + p51 = 1.329762020689302e-03 + p50 = -1.450062148367566e-02 + + p60 = 6.840803042788488e-05 + + if (uref >= 0.0 .and. uref < 5.9 ) then + znott = p00 + elseif (uref >= 5.9 .and. uref <= 15.4) then + znott = p15*uref**5 + p14*uref**4 + p13*uref**3 + p12*uref**2 + p11*uref + p10 + elseif (uref > 15.4 .and. uref <= 21.6) then + znott = p25*uref**5 + p24*uref**4 + p23*uref**3 + p22*uref**2 + p21*uref + p20 + elseif (uref > 21.6 .and. uref <= 42.6) then + znott = p35*uref**5 + p34*uref**4 + p33*uref**3 + p32*uref**2 + p31*uref + p30 + elseif ( uref > 42.6 .and. uref <= 53.0) then + znott = p45*uref**5 + p44*uref**4 + p43*uref**3 + p42*uref**2 + p41*uref + p40 + elseif ( uref > 53.0 .and. uref <= 80.0) then + znott = p56*uref**6 + p55*uref**5 + p54*uref**4 + p53*uref**3 + p52*uref**2 + p51*uref + p50 + elseif ( uref > 80.0) then + znott = p60 + else + print*, 'Wrong input uref value:',uref + endif + + END SUBROUTINE znot_t_v7 + + SUBROUTINE znot_m_v8(uref,znotm) + IMPLICIT NONE +! Calculate areodynamical roughness over water with input 10-m wind +! For low-to-moderate winds, try to match the Cd-U10 relationship from COARE V3.5 (Edson et al. 2013) +! For high winds, try to fit available observational data +! Comparing to znot_t_v6, slightly decrease Cd for higher wind speed +! And this is another variation similar to v7 +! +! Bin Liu, NOAA/NCEP/EMC 2018 +! +! uref(m/s) : wind speed at 10-m height +! znotm(meter): areodynamical roughness scale over water +! + + REAL, INTENT(IN) :: uref + REAL, INTENT(OUT):: znotm + REAL :: p13, p12, p11, p10 + REAL :: p25, p24, p23, p22, p21, p20 + REAL :: p35, p34, p33, p32, p31, p30 + REAL :: p40 + + p13 = -1.296521881682694e-02 + p12 = 2.855780863283819e-01 + p11 = -1.597898515251717e+00 + p10 = -8.396975715683501e+00 + + p25 = 3.790846746036765e-10 + p24 = 3.281964357650687e-09 + p23 = 1.962282433562894e-07 + p22 = -1.240239171056262e-06 + p21 = 1.739759082358234e-07 + p20 = 2.147264020369413e-05 + + p35 = 1.897534489606422e-07 + p34 = -3.019495980684978e-05 + p33 = 1.931392924987349e-03 + p32 = -6.797293095862357e-02 + p31 = 1.346757797103756e+00 + p30 = -1.707846930193362e+01 + + p40 = 3.886804744928044e-04 + + if (uref >= 0.0 .and. uref <= 6.5 ) then + znotm = exp( p10 + p11*uref + p12*uref**2 + p13*uref**3) + elseif (uref > 6.5 .and. uref <= 15.7) then + znotm = p25*uref**5 + p24*uref**4 + p23*uref**3 + p22*uref**2 + p21*uref + p20 + elseif (uref > 15.7 .and. uref <= 51.5) then + znotm = exp( p35*uref**5 + p34*uref**4 + p33*uref**3 + p32*uref**2 + p31*uref + p30 ) + elseif ( uref > 51.5) then + znotm = p40 + else + print*, 'Wrong input uref value:',uref + endif + + END SUBROUTINE znot_m_v8 + + SUBROUTINE znot_t_v8(uref,znott) + IMPLICIT NONE +! Calculate scalar roughness over water with input 10-m wind +! For low-to-moderate winds, try to match the Ck-U10 relationship from COARE algorithm +! For high winds, try to retain the Ck-U10 relationship of FY2015 HWRF +! To be compatible with the slightly decreased Cd for higher wind speed +! And this is another variation similar to v7 +! +! Bin Liu, NOAA/NCEP/EMC 2018 +! +! uref(m/s) : wind speed at 10-m height +! znott(meter): scalar roughness scale over water +! + + REAL, INTENT(IN) :: uref + REAL, INTENT(OUT):: znott + + REAL :: p00 + REAL :: p15, p14, p13, p12, p11, p10 + REAL :: p25, p24, p23, p22, p21, p20 + REAL :: p35, p34, p33, p32, p31, p30 + REAL :: p45, p44, p43, p42, p41, p40 + REAL :: p56, p55, p54, p53, p52, p51, p50 + REAL :: p60 + + p00 = 1.100000000000000e-04 + + p15 = -9.193764479895316e-10 + p14 = 7.052217518653943e-08 + p13 = -2.163419217747114e-06 + p12 = 3.342963077911962e-05 + p11 = -2.633566691328004e-04 + p10 = 8.644979973037803e-04 + + p25 = -9.402722450219142e-12 + p24 = 1.325396583616614e-09 + p23 = -7.299148051141852e-08 + p22 = 1.982901461144764e-06 + p21 = -2.680293455916390e-05 + p20 = 1.484341646128200e-04 + + p35 = 7.921446674311864e-12 + p34 = -1.019028029546602e-09 + p33 = 5.251986927351103e-08 + p32 = -1.337841892062716e-06 + p31 = 1.659454106237737e-05 + p30 = -7.558911792344770e-05 + + p45 = -2.706461188613193e-10 + p44 = 5.845859022891930e-08 + p43 = -5.027577045502003e-06 + p42 = 2.156326523752734e-04 + p41 = -4.617267288861201e-03 + p40 = 3.951492707214883e-02 + + p56 = -1.112896580069263e-13 + p55 = 4.450334755105140e-11 + p54 = -7.375373918500171e-09 + p53 = 6.493685149526543e-07 + p52 = -3.206421106713471e-05 + p51 = 8.407596231678149e-04 + p50 = -9.027924333673693e-03 + + p60 = 5.791179079892191e-05 + + if (uref >= 0.0 .and. uref < 5.9 ) then + znott = p00 + elseif (uref >= 5.9 .and. uref <= 15.4) then + znott = p15*uref**5 + p14*uref**4 + p13*uref**3 + p12*uref**2 + p11*uref + p10 + elseif (uref > 15.4 .and. uref <= 21.6) then + znott = p25*uref**5 + p24*uref**4 + p23*uref**3 + p22*uref**2 + p21*uref + p20 + elseif (uref > 21.6 .and. uref <= 42.6) then + znott = p35*uref**5 + p34*uref**4 + p33*uref**3 + p32*uref**2 + p31*uref + p30 + elseif ( uref > 42.6 .and. uref <= 51.5) then + znott = p45*uref**5 + p44*uref**4 + p43*uref**3 + p42*uref**2 + p41*uref + p40 + elseif ( uref > 51.5 .and. uref <= 80.0) then + znott = p56*uref**6 + p55*uref**5 + p54*uref**4 + p53*uref**3 + p52*uref**2 + p51*uref + p50 + elseif ( uref > 80.0) then + znott = p60 + else + print*, 'Wrong input uref value:',uref + endif + + END SUBROUTINE znot_t_v8 + SUBROUTINE znot_wind10m(w10m,znott,znotm,icoef_sf) IMPLICIT NONE @@ -434,8 +714,14 @@ SUBROUTINE znot_wind10m(w10m,znott,znotm,icoef_sf) else if( icoef_sf .EQ. 6 ) then call znot_m_v6(windmks,zm1) call znot_t_v6(windmks,zt1) + else if( icoef_sf .EQ. 7 ) then + call znot_m_v7(windmks,zm1) + call znot_t_v7(windmks,zt1) + else if( icoef_sf .EQ. 8 ) then + call znot_m_v8(windmks,zm1) + call znot_t_v8(windmks,zt1) else - CALL wrf_error_fatal('icoef_sf must be one of 0,1,2,3,4,5,6') + CALL wrf_error_fatal('icoef_sf must be one of 0,1,2,3,4,5,6,7,8') endif znott=zt1 diff --git a/phys/module_sf_gfdl.F b/phys/module_sf_gfdl.F index aea5b6b1aa..28c1647faa 100755 --- a/phys/module_sf_gfdl.F +++ b/phys/module_sf_gfdl.F @@ -897,16 +897,35 @@ SUBROUTINE MFLUX2( fxh,fxe,fxmx,fxmy,cdm,rib,xxfh,zoc,mzoc,tstrc, & !mz real*8 :: gasdev,ran1 !zhang real :: rr !zhang logical,save :: pert_Cd_local !zhang - integer,save :: ens_random_seed_local !zhang + CHARACTER(len=3) :: env_memb,env_pp + integer,save :: ens_random_seed_local,env_pp_local !zhang + integer :: ensda_physics_pert !zhang real,save :: ens_Cdamp_local !zhang data ens_random_seed_local/0/ + data env_pp_local/0/ if ( ens_random_seed_local .eq. 0 ) then -! CALL nl_get_pert_Cd(1,pert_Cd) -! CALL nl_get_ens_random_seed(1,ens_random_seed) -! CALL nl_get_ens_Cdamp(1,ens_Cdamp) + CALL nl_get_ensda_physics_pert(1,ensda_physics_pert) ens_random_seed_local=ens_random_seed - pert_Cd_local=pert_Cd - ens_Cdamp_local=ens_Cdamp + env_pp_local=ensda_physics_pert + pert_Cd_local=.false. + ens_Cdamp_local=0.0 +! env_pp=1: do physics perturbations for ensda members, ens_random_seed must be 99 + if ( env_pp_local .eq. 1 ) then + if ( ens_random_seed .ne. 99 ) then + pert_Cd_local=.true. + ens_Cdamp_local=ens_Cdamp + else +! ens_random_seed=99 do physics perturbation for ensemble forecasts, env_pp must be zero + ens_random_seed_local=ens_random_seed + pert_Cd_local=pert_Cd + ens_Cdamp_local=ens_Cdamp + endif + else + ens_random_seed_local=ens_random_seed + pert_Cd_local=pert_Cd + ens_Cdamp_local=ens_Cdamp + endif + print*, "Cd ===", ens_random_seed_local,pert_Cd_local,ens_Cdamp_local,ensda_physics_pert endif #endif @@ -1742,9 +1761,14 @@ SUBROUTINE MFLUX2( fxh,fxe,fxmx,fxmy,cdm,rib,xxfh,zoc,mzoc,tstrc, & !mz ! i, zot(i),zoc(i), cdm(i),cdm2(i), tsg(i),wind(i) #if HWRF==1 ! randomly perturb the Cd +!zzz if( pert_Cd_local .and. ens_random_seed_local .gt. 0 ) then if( pert_Cd_local ) then - rr=2.0*ens_Cdamp_local*ran1(ens_random_seed_local)-ens_Cdamp_local +! print*, "zhang cd ens_random_seed==",ens_random_seed,ens_random_seed_local + ens_random_seed_local=ran1(-ens_random_seed_local)*1000 + rr=2.0*ens_Cdamp_local*ran1(-ens_random_seed_local)-ens_Cdamp_local +! print*, "zhang cd a=", rr,cdm(i),ens_Cdamp_local,ens_random_seed_local cdm(i) = cdm(i) *(1.0+rr) +! print*, "zhang cd b=", rr,cdm(i),ens_Cdamp_local,ens_random_seed_local endif #endif diff --git a/phys/module_sf_noahdrv.F b/phys/module_sf_noahdrv.F index 12e1d8ea27..50c5809a99 100644 --- a/phys/module_sf_noahdrv.F +++ b/phys/module_sf_noahdrv.F @@ -75,7 +75,16 @@ SUBROUTINE lsm(DZ8W,QV3D,P8W3D,T3D,TSK, & FLXHUMR_URB2D,FLXHUMB_URB2D,FLXHUMG_URB2D, & !H urban julian, julyr, & !H urban FRC_URB2D,UTYPE_URB2D, & !O - num_urban_layers, & !I multi-layer urban + num_urban_ndm, & !I multi-layer urban + urban_map_zrd, & !I multi-layer urban + urban_map_zwd, & !I multi-layer urban + urban_map_gd, & !I multi-layer urban + urban_map_zd, & !I multi-layer urban + urban_map_zdf, & !I multi-layer urban + urban_map_bd, & !I multi-layer urban + urban_map_wd, & !I multi-layer urban + urban_map_gbd, & !I multi-layer urban + urban_map_fbd, & !I multi-layer urban num_urban_hi, & !I multi-layer urban tsk_rural_bep, & !H multi-layer urban trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & !H multi-layer urban @@ -568,30 +577,39 @@ SUBROUTINE lsm(DZ8W,QV3D,P8W3D,T3D,TSK, & REAL, OPTIONAL, INTENT(IN ) :: GMT INTEGER, OPTIONAL, INTENT(IN ) :: JULDAY REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN ) ::XLAT, XLONG - INTEGER, INTENT(IN ) :: NUM_URBAN_LAYERS + INTEGER, INTENT(IN ) :: num_urban_ndm + INTEGER, INTENT(IN ) :: urban_map_zrd + INTEGER, INTENT(IN ) :: urban_map_zwd + INTEGER, INTENT(IN ) :: urban_map_gd + INTEGER, INTENT(IN ) :: urban_map_zd + INTEGER, INTENT(IN ) :: urban_map_zdf + INTEGER, INTENT(IN ) :: urban_map_bd + INTEGER, INTENT(IN ) :: urban_map_wd + INTEGER, INTENT(IN ) :: urban_map_gbd + INTEGER, INTENT(IN ) :: urban_map_fbd INTEGER, INTENT(IN ) :: NUM_URBAN_HI REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: tsk_rural_bep - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: trb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tgb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: qlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tglev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tflev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: trb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw1_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw2_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gd , jms:jme ), INTENT(INOUT) :: tgb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: tlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: qlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw1lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw2lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gbd, jms:jme ), INTENT(INOUT) :: tglev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_fbd, jms:jme ), INTENT(INOUT) :: tflev_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: cm_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sfvent_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lfvent_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfr_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfg_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: sfr_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: sfg_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_hi, jms:jme ), INTENT(IN) :: hi_urb2d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: lp_urb2d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: lb_urb2d @@ -1508,7 +1526,9 @@ SUBROUTINE lsm(DZ8W,QV3D,P8W3D,T3D,TSK, & CALL BEP(frc_urb2d,utype_urb2d,itimestep,dz8w,dt,u_phy,v_phy, & th_phy,rho,p_phy,swdown,glw, & gmt,julday,xlong,xlat,declin_urb,cosz_urb2d,omg_urb2d, & - num_urban_layers,num_urban_hi, & + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & + urban_map_gbd, urban_map_fbd, num_urban_hi, & trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & sfw1_urb3d,sfw2_urb3d,sfr_urb3d,sfg_urb3d, & lp_urb2d,hi_urb2d,lb_urb2d,hgt_urb2d, & @@ -1541,7 +1561,9 @@ SUBROUTINE lsm(DZ8W,QV3D,P8W3D,T3D,TSK, & CALL BEP_BEM(frc_urb2d,utype_urb2d,itimestep,dz8w,dt,u_phy,v_phy, & th_phy,rho,p_phy,swdown,glw, & gmt,julday,xlong,xlat,declin_urb,cosz_urb2d,omg_urb2d, & - num_urban_layers,num_urban_hi, & + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & + urban_map_gbd, urban_map_fbd, num_urban_hi, & trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & tlev_urb3d,qlev_urb3d,tw1lev_urb3d,tw2lev_urb3d, & tglev_urb3d,tflev_urb3d,sf_ac_urb3d,lf_ac_urb3d, & @@ -2258,7 +2280,16 @@ SUBROUTINE lsm_mosaic(DZ8W,QV3D,P8W3D,T3D,TSK, & DRELR_URB2D,DRELB_URB2D,DRELG_URB2D, & !H urban FLXHUMR_URB2D,FLXHUMB_URB2D,FLXHUMG_URB2D, & !H urban FRC_URB2D,UTYPE_URB2D, & !O - num_urban_layers, & !I multi-layer urban + num_urban_ndm, & !I multi-layer urban + urban_map_zrd, & !I multi-layer urban + urban_map_zwd, & !I multi-layer urban + urban_map_gd, & !I multi-layer urban + urban_map_zd, & !I multi-layer urban + urban_map_zdf, & !I multi-layer urban + urban_map_bd, & !I multi-layer urban + urban_map_wd, & !I multi-layer urban + urban_map_gbd, & !I multi-layer urban + urban_map_fbd, & !I multi-layer urban num_urban_hi, & !I multi-layer urban tsk_rural_bep, & !H multi-layer urban trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & !H multi-layer urban @@ -2749,30 +2780,39 @@ SUBROUTINE lsm_mosaic(DZ8W,QV3D,P8W3D,T3D,TSK, & REAL, OPTIONAL, INTENT(IN ) :: GMT INTEGER, OPTIONAL, INTENT(IN ) :: JULDAY REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN ) ::XLAT, XLONG - INTEGER, INTENT(IN ) :: NUM_URBAN_LAYERS + INTEGER, INTENT(IN ) :: num_urban_ndm + INTEGER, INTENT(IN ) :: urban_map_zrd + INTEGER, INTENT(IN ) :: urban_map_zwd + INTEGER, INTENT(IN ) :: urban_map_gd + INTEGER, INTENT(IN ) :: urban_map_zd + INTEGER, INTENT(IN ) :: urban_map_zdf + INTEGER, INTENT(IN ) :: urban_map_bd + INTEGER, INTENT(IN ) :: urban_map_wd + INTEGER, INTENT(IN ) :: urban_map_gbd + INTEGER, INTENT(IN ) :: urban_map_fbd INTEGER, INTENT(IN ) :: NUM_URBAN_HI REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: tsk_rural_bep - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: trb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tgb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: qlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tglev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tflev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: trb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw1_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw2_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gd , jms:jme ), INTENT(INOUT) :: tgb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: tlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: qlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw1lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw2lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gbd, jms:jme ), INTENT(INOUT) :: tglev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_fbd, jms:jme ), INTENT(INOUT) :: tflev_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: cm_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sfvent_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lfvent_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfr_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfg_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: sfr_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: sfg_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_hi, jms:jme ), INTENT(IN) :: hi_urb2d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: lp_urb2d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: lb_urb2d diff --git a/phys/module_sf_noahmp_glacier.F b/phys/module_sf_noahmp_glacier.F index 347fef9e51..b9ec3c4534 100644 --- a/phys/module_sf_noahmp_glacier.F +++ b/phys/module_sf_noahmp_glacier.F @@ -1004,6 +1004,7 @@ SUBROUTINE GLACIER_FLUX (NSOIL ,NSNOW ,EMG ,ISNOW ,DF ,DZSNSO ,Z NITERB = 5 MPE = 1E-6 DTG = 0. + MOZ = 0. MOZSGN = 0 MOZOLD = 0. H = 0. diff --git a/phys/module_sf_noahmpdrv.F b/phys/module_sf_noahmpdrv.F index 6a727bed2b..f77b959845 100644 --- a/phys/module_sf_noahmpdrv.F +++ b/phys/module_sf_noahmpdrv.F @@ -375,6 +375,8 @@ SUBROUTINE noahmplsm(ITIMESTEP, YR, JULIAN, COSZIN,XLAT,XLONG, & ! IN REAL :: SAG ! solar rad absorbed by ground (w/m2) REAL :: RSSUN ! sunlit leaf stomatal resistance (s/m) REAL :: RSSHA ! shaded leaf stomatal resistance (s/m) + REAL, DIMENSION(1:2) :: ALBSND ! snow albedo (direct) + REAL, DIMENSION(1:2) :: ALBSNI ! snow albedo (diffuse) REAL :: RB ! leaf boundary layer resistance (s/m) REAL :: LAISUN ! sunlit leaf area index (m2/m2) REAL :: LAISHA ! shaded leaf area index (m2/m2) @@ -870,6 +872,7 @@ SUBROUTINE noahmplsm(ITIMESTEP, YR, JULIAN, COSZIN,XLAT,XLONG, & ! IN RUNSF , RUNSB , APAR , PSN , SAV , SAG , & ! OUT : FSNO , NEE , GPP , NPP , FVEGMP , SALB , & ! OUT : QSNBOT , PONDING , PONDING1, PONDING2, RSSUN , RSSHA , & ! OUT : + ALBSND , ALBSNI , & ! OUT : BGAP , WGAP , CHV , CHB , EMISSI , & ! OUT : SHG , SHC , SHB , EVG , EVB , GHV , & ! OUT : GHB , IRG , IRC , IRB , TR , EVC , & ! OUT : @@ -1198,7 +1201,19 @@ SUBROUTINE TRANSFER_MP_PARAMETERS(VEGTYPE,SOILTYPE,SLOPETYPE,SOILCOLOR,CROPTYPE, parameters%Z0SNO = Z0SNO_TABLE parameters%SSI = SSI_TABLE parameters%SWEMX = SWEMX_TABLE + parameters%TAU0 = TAU0_TABLE + parameters%GRAIN_GROWTH = GRAIN_GROWTH_TABLE + parameters%EXTRA_GROWTH = EXTRA_GROWTH_TABLE + parameters%DIRT_SOOT = DIRT_SOOT_TABLE + parameters%BATS_COSZ = BATS_COSZ_TABLE + parameters%BATS_VIS_NEW = BATS_VIS_NEW_TABLE + parameters%BATS_NIR_NEW = BATS_NIR_NEW_TABLE + parameters%BATS_VIS_AGE = BATS_VIS_AGE_TABLE + parameters%BATS_NIR_AGE = BATS_NIR_AGE_TABLE + parameters%BATS_VIS_DIR = BATS_VIS_DIR_TABLE + parameters%BATS_NIR_DIR = BATS_NIR_DIR_TABLE parameters%RSURF_SNOW = RSURF_SNOW_TABLE + parameters%RSURF_EXP = RSURF_EXP_TABLE ! ---------------------------------------------------------------------- ! Transfer soil parameters @@ -1253,6 +1268,8 @@ SUBROUTINE PEDOTRANSFER_SR2006(nsoil,sand,clay,orgm,parameters) use module_sf_noahmplsm use noahmp_tables + implicit none + integer, intent(in ) :: nsoil ! number of soil layers real, dimension( 1:nsoil ), intent(inout) :: sand real, dimension( 1:nsoil ), intent(inout) :: clay @@ -1268,6 +1285,7 @@ SUBROUTINE PEDOTRANSFER_SR2006(nsoil,sand,clay,orgm,parameters) real, dimension( 1:nsoil ) :: psi_e type(noahmp_parameters), intent(inout) :: parameters + integer :: k do k = 1,4 if(sand(k) <= 0 .or. clay(k) <= 0) then @@ -2483,7 +2501,9 @@ SUBROUTINE noahmp_urban(sf_urban_physics, NSOIL, IVGTYP, ITIMESTEP, julian, julyr, & !H urban frc_urb2d, utype_urb2d, & !I urban chs, chs2, cqs2, & !H - num_urban_layers, & !I multi-layer urban + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & !I multi-layer urban + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & !I multi-layer urban + urban_map_gbd, urban_map_fbd, & !I multi-layer urban num_urban_hi, & !I multi-layer urban trb_urb4d, tw1_urb4d, tw2_urb4d, tgb_urb4d, & !H multi-layer urban tlev_urb3d, qlev_urb3d, & !H multi-layer urban @@ -2714,7 +2734,16 @@ SUBROUTINE noahmp_urban(sf_urban_physics, NSOIL, IVGTYP, ITIMESTEP, REAL, OPTIONAL, INTENT(IN ) :: GMT INTEGER, OPTIONAL, INTENT(IN ) :: JULDAY REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN ) :: XLAT, XLONG - INTEGER, INTENT(IN ) :: NUM_URBAN_LAYERS + INTEGER, INTENT(IN ) :: num_urban_ndm + INTEGER, INTENT(IN ) :: urban_map_zrd + INTEGER, INTENT(IN ) :: urban_map_zwd + INTEGER, INTENT(IN ) :: urban_map_gd + INTEGER, INTENT(IN ) :: urban_map_zd + INTEGER, INTENT(IN ) :: urban_map_zdf + INTEGER, INTENT(IN ) :: urban_map_bd + INTEGER, INTENT(IN ) :: urban_map_wd + INTEGER, INTENT(IN ) :: urban_map_gbd + INTEGER, INTENT(IN ) :: urban_map_fbd INTEGER, INTENT(IN ) :: NUM_URBAN_HI REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_hi, jms:jme ), INTENT(IN ) :: hi_urb2d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN ) :: lp_urb2d @@ -2724,27 +2753,27 @@ SUBROUTINE noahmp_urban(sf_urban_physics, NSOIL, IVGTYP, ITIMESTEP, REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN ) :: stdh_urb2d REAL, OPTIONAL, DIMENSION( ims:ime, 4, jms:jme ), INTENT(IN ) :: lf_urb2d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: trb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tgb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: qlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tglev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tflev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: trb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw1_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw2_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gd , jms:jme ), INTENT(INOUT) :: tgb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: tlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd , jms:jme ), INTENT(INOUT) :: qlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw1lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: tw2lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gbd, jms:jme ), INTENT(INOUT) :: tglev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_fbd, jms:jme ), INTENT(INOUT) :: tflev_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: cm_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sfvent_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lfvent_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfr_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfg_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd , jms:jme ), INTENT(INOUT) :: sfwin2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd , jms:jme ), INTENT(INOUT) :: sfw2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: sfr_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: sfg_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT) :: a_u_bep !Implicit momemtum component X-direction REAL, OPTIONAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT) :: a_v_bep !Implicit momemtum component Y-direction REAL, OPTIONAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT) :: a_t_bep !Implicit component pot. temperature @@ -3037,7 +3066,9 @@ SUBROUTINE noahmp_urban(sf_urban_physics, NSOIL, IVGTYP, ITIMESTEP, th_phy, rho, p_phy, swdown, glw, & gmt, julday, xlong, xlat, & declin_urb, cosz_urb2d, omg_urb2d, & - num_urban_layers, num_urban_hi, & + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & + urban_map_gbd, urban_map_fbd, num_urban_hi, & trb_urb4d, tw1_urb4d, tw2_urb4d, tgb_urb4d, & sfw1_urb3d, sfw2_urb3d, sfr_urb3d, sfg_urb3d, & lp_urb2d, hi_urb2d, lb_urb2d, hgt_urb2d, & @@ -3071,7 +3102,9 @@ SUBROUTINE noahmp_urban(sf_urban_physics, NSOIL, IVGTYP, ITIMESTEP, th_phy, rho, p_phy, swdown, glw, & gmt, julday, xlong, xlat, & declin_urb, cosz_urb2d, omg_urb2d, & - num_urban_layers, num_urban_hi, & + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & + urban_map_gbd, urban_map_fbd, num_urban_hi, & trb_urb4d, tw1_urb4d, tw2_urb4d, tgb_urb4d, & tlev_urb3d, qlev_urb3d, tw1lev_urb3d, tw2lev_urb3d, & tglev_urb3d, tflev_urb3d, sf_ac_urb3d, lf_ac_urb3d, & diff --git a/phys/module_sf_noahmplsm.F b/phys/module_sf_noahmplsm.F index 83f7018046..9686a403c6 100644 --- a/phys/module_sf_noahmplsm.F +++ b/phys/module_sf_noahmplsm.F @@ -1,3 +1,23 @@ +! Program Name: +! Author(s)/Contact(s): +! Abstract: +! History Log: +! +! Usage: +! Parameters: +! Input Files: +! +! Output Files: +! +! +! Condition codes: +! +! If appropriate, descriptive troubleshooting instructions or +! likely causes for failures could be mentioned here with the +! appropriate error code +! +! User controllable options: + MODULE MODULE_SF_NOAHMPLSM use module_sf_gecros, only : gecros @@ -272,7 +292,19 @@ MODULE MODULE_SF_NOAHMPLSM REAL :: Z0SNO !snow surface roughness length (m) (0.002) REAL :: SSI !liquid water holding capacity for snowpack (m3/m3) REAL :: SWEMX !new snow mass to fully cover old snow (mm) + REAL :: TAU0 !tau0 from Yang97 eqn. 10a + REAL :: GRAIN_GROWTH !growth from vapor diffusion Yang97 eqn. 10b + REAL :: EXTRA_GROWTH !extra growth near freezing Yang97 eqn. 10c + REAL :: DIRT_SOOT !dirt and soot term Yang97 eqn. 10d + REAL :: BATS_COSZ !zenith angle snow albedo adjustment; b in Yang97 eqn. 15 + REAL :: BATS_VIS_NEW !new snow visible albedo + REAL :: BATS_NIR_NEW !new snow NIR albedo + REAL :: BATS_VIS_AGE !age factor for diffuse visible snow albedo Yang97 eqn. 17 + REAL :: BATS_NIR_AGE !age factor for diffuse NIR snow albedo Yang97 eqn. 18 + REAL :: BATS_VIS_DIR !cosz factor for direct visible snow albedo Yang97 eqn. 15 + REAL :: BATS_NIR_DIR !cosz factor for direct NIR snow albedo Yang97 eqn. 16 REAL :: RSURF_SNOW !surface resistance for snow(s/m) + REAL :: RSURF_EXP !exponent in the shape parameter for soil resistance option 1 !------------------------------------------------------------------------------------------! ! From the crop section of MPTABLE.TBL @@ -376,6 +408,7 @@ SUBROUTINE NOAHMP_SFLX (parameters, & RUNSRF , RUNSUB , APAR , PSN , SAV , SAG , & ! OUT : FSNO , NEE , GPP , NPP , FVEG , ALBEDO , & ! OUT : QSNBOT , PONDING , PONDING1, PONDING2, RSSUN , RSSHA , & ! OUT : + ALBSND , ALBSNI , & ! OUT : BGAP , WGAP , CHV , CHB , EMISSI , & ! OUT : SHG , SHC , SHB , EVG , EVB , GHV , & ! OUT : GHB , IRG , IRC , IRB , TR , EVC , & ! OUT : @@ -517,6 +550,8 @@ SUBROUTINE NOAHMP_SFLX (parameters, & REAL, INTENT(OUT) :: RSSHA !shaded leaf stomatal resistance (s/m) REAL, INTENT(OUT) :: BGAP REAL, INTENT(OUT) :: WGAP + REAL, DIMENSION(1:2) , INTENT(OUT) :: ALBSND !snow albedo (direct) + REAL, DIMENSION(1:2) , INTENT(OUT) :: ALBSNI !snow albedo (diffuse) REAL, INTENT(OUT) :: TGV REAL, INTENT(OUT) :: TGB REAL :: Q1 @@ -743,7 +778,7 @@ SUBROUTINE NOAHMP_SFLX (parameters, & !jref:start QC ,QSFC ,PSFC , & !in T2MV ,T2MB ,FSRV , & - FSRG ,RSSUN ,RSSHA ,BGAP ,WGAP, TGV,TGB,& + FSRG ,RSSUN ,RSSHA ,ALBSND ,ALBSNI, BGAP ,WGAP,TGV,TGB,& Q1 ,Q2V ,Q2B ,Q2E ,CHV ,CHB , & !out EMISSI ,PAH , & SHG,SHC,SHB,EVG,EVB,GHV,GHB,IRG,IRC,IRB,TR,EVC,CHLEAF,CHUC,CHV2,CHB2,& @@ -1495,7 +1530,7 @@ SUBROUTINE ENERGY (parameters,ICE ,VEGTYP ,IST ,NSNOW ,NSOIL , & !in !jref:start QC ,QSFC ,PSFC , & !in T2MV ,T2MB ,FSRV , & - FSRG ,RSSUN ,RSSHA ,BGAP ,WGAP,TGV,TGB,& + FSRG ,RSSUN ,RSSHA ,ALBSND ,ALBSNI,BGAP ,WGAP,TGV,TGB,& Q1 ,Q2V ,Q2B ,Q2E ,CHV ,CHB, EMISSI,PAH ,& SHG,SHC,SHB,EVG,EVB,GHV,GHB,IRG,IRC,IRB,TR,EVC,CHLEAF,CHUC,CHV2,CHB2, & JULIAN, SWDOWN, PRCP, FB, GECROS1D ) @@ -1635,6 +1670,8 @@ SUBROUTINE ENERGY (parameters,ICE ,VEGTYP ,IST ,NSNOW ,NSOIL , & !in REAL , INTENT(OUT) :: T2MB !2-m air temperature over bare ground part [k] REAL , INTENT(OUT) :: BGAP REAL , INTENT(OUT) :: WGAP + REAL, DIMENSION(1:2) , INTENT(OUT) :: ALBSND !snow albedo (direct) + REAL, DIMENSION(1:2) , INTENT(OUT) :: ALBSNI !snow albedo (diffuse) !jref:end ! input & output @@ -1776,6 +1813,7 @@ SUBROUTINE ENERGY (parameters,ICE ,VEGTYP ,IST ,NSNOW ,NSOIL , & !in CHLEAF = 0. CHUC = 0. CHV2 = 0. + RB = 0. ! wind speed at reference height: ur >= 1 @@ -1820,6 +1858,15 @@ SUBROUTINE ENERGY (parameters,ICE ,VEGTYP ,IST ,NSNOW ,NSOIL , & !in ZPD = ZPDG END IF +! special case for urban + + IF (parameters%urban_flag) THEN + Z0MG = parameters%Z0MVT + ZPDG = 0.65 * parameters%HVT + Z0M = Z0MG + ZPD = ZPDG + END IF + ZLVL = MAX(ZPD,parameters%HVT) + ZREF IF(ZPDG >= ZLVL) ZLVL = ZPDG + ZREF ! UR = UR*LOG(ZLVL/Z0M)/LOG(10./Z0M) !input UR is at 10m @@ -1847,7 +1894,7 @@ SUBROUTINE ENERGY (parameters,ICE ,VEGTYP ,IST ,NSNOW ,NSOIL , & !in ALBOLD ,TAUSS , & !inout FSUN ,LAISUN ,LAISHA ,PARSUN ,PARSHA , & !out SAV ,SAG ,FSR ,FSA ,FSRV , & - FSRG ,BGAP ,WGAP ) !out + FSRG ,ALBSND ,ALBSNI ,BGAP ,WGAP ) !out ! vegetation and ground emissivity @@ -1897,7 +1944,7 @@ SUBROUTINE ENERGY (parameters,ICE ,VEGTYP ,IST ,NSNOW ,NSOIL , & !in ! RSURF based on Sakaguchi and Zeng, 2009 ! taking the "residual water content" to be the wilting point, ! and correcting the exponent on the D term (typo in SZ09 ?) - L_RSURF = (-ZSOIL(1)) * ( exp ( (1.0 - MIN(1.0,SH2O(1)/parameters%SMCMAX(1))) ** 5 ) - 1.0 ) / ( 2.71828 - 1.0 ) + L_RSURF = (-ZSOIL(1)) * ( exp ( (1.0 - MIN(1.0,SH2O(1)/parameters%SMCMAX(1))) ** parameters%RSURF_EXP ) - 1.0 ) / ( 2.71828 - 1.0 ) D_RSURF = 2.2E-5 * parameters%SMCMAX(1) * parameters%SMCMAX(1) * ( 1.0 - parameters%SMCWLT(1) / parameters%SMCMAX(1) ) ** (2.0+3.0/parameters%BEXP(1)) RSURF = L_RSURF / D_RSURF ELSEIF(OPT_RSF == 2) THEN @@ -2390,7 +2437,7 @@ SUBROUTINE RADIATION (parameters,VEGTYP ,IST ,ICE ,NSOIL , & !in ALBOLD ,TAUSS , & !inout FSUN ,LAISUN ,LAISHA ,PARSUN ,PARSHA , & !out SAV ,SAG ,FSR ,FSA ,FSRV , & - FSRG ,BGAP ,WGAP) !out + FSRG ,ALBSND ,ALBSNI ,BGAP ,WGAP ) !out ! -------------------------------------------------------------------------------------------------- IMPLICIT NONE ! -------------------------------------------------------------------------------------------------- @@ -2440,6 +2487,8 @@ SUBROUTINE RADIATION (parameters,VEGTYP ,IST ,ICE ,NSOIL , & !in REAL, INTENT(OUT) :: FSRG !ground reflected solar radiation (w/m2) REAL, INTENT(OUT) :: BGAP REAL, INTENT(OUT) :: WGAP + REAL, DIMENSION(1:2), INTENT(OUT) :: ALBSND !snow albedo (direct) + REAL, DIMENSION(1:2), INTENT(OUT) :: ALBSNI !snow albedo (diffuse) !jref:end ! local @@ -2479,7 +2528,7 @@ SUBROUTINE RADIATION (parameters,VEGTYP ,IST ,ICE ,NSOIL , & !in ALBGRD ,ALBGRI ,ALBD ,ALBI ,FABD , & !out FABI ,FTDD ,FTID ,FTII ,FSUN , & !) !out FREVI ,FREVD ,FREGD ,FREGI ,BGAP , & !inout - WGAP) + WGAP ,ALBSND ,ALBSNI ) ! surface radiation @@ -2515,7 +2564,7 @@ SUBROUTINE ALBEDO (parameters,VEGTYP ,IST ,ICE ,NSOIL , & !in ALBGRD ,ALBGRI ,ALBD ,ALBI ,FABD , & !out FABI ,FTDD ,FTID ,FTII ,FSUN , & !out FREVI ,FREVD ,FREGD ,FREGI ,BGAP , & !out - WGAP) + WGAP ,ALBSND ,ALBSNI ) ! -------------------------------------------------------------------------------------------------- ! surface albedos. also fluxes (per unit incoming direct and diffuse @@ -2588,8 +2637,8 @@ SUBROUTINE ALBEDO (parameters,VEGTYP ,IST ,ICE ,NSOIL , & !in REAL, DIMENSION(1:2) :: RHO !leaf/stem reflectance weighted by fraction LAI and SAI REAL, DIMENSION(1:2) :: TAU !leaf/stem transmittance weighted by fraction LAI and SAI REAL, DIMENSION(1:2) :: FTDI !down direct flux below veg per unit dif flux = 0 - REAL, DIMENSION(1:2) :: ALBSND !snow albedo (direct) - REAL, DIMENSION(1:2) :: ALBSNI !snow albedo (diffuse) + REAL, DIMENSION(1:2), INTENT(OUT) :: ALBSND !snow albedo (direct) + REAL, DIMENSION(1:2), INTENT(OUT) :: ALBSNI !snow albedo (diffuse) REAL :: VAI !ELAI+ESAI REAL :: GDIR !average projected leaf/stem area in solar direction @@ -2609,6 +2658,8 @@ SUBROUTINE ALBEDO (parameters,VEGTYP ,IST ,ICE ,NSOIL , & !in ALBI(IB) = 0. ALBGRD(IB) = 0. ALBGRI(IB) = 0. + ALBSND(IB) = 0. + ALBSNI(IB) = 0. FABD(IB) = 0. FABI(IB) = 0. FTDD(IB) = 0. @@ -2846,14 +2897,12 @@ SUBROUTINE SNOW_AGE (parameters,DT,TG,SNEQVO,SNEQV,TAUSS,FAGE) IF(SNEQV.LE.0.0) THEN TAUSS = 0. - ELSE IF (SNEQV.GT.800.) THEN - TAUSS = 0. ELSE - DELA0 = 1.E-6*DT - ARG = 5.E3*(1./TFRZ-1./TG) + DELA0 = DT/parameters%TAU0 + ARG = parameters%GRAIN_GROWTH*(1./TFRZ-1./TG) AGE1 = EXP(ARG) - AGE2 = EXP(AMIN1(0.,10.*ARG)) - AGE3 = 0.3 + AGE2 = EXP(AMIN1(0.,parameters%EXTRA_GROWTH*ARG)) + AGE3 = parameters%DIRT_SOOT TAGE = AGE1+AGE2+AGE3 DELA = DELA0*TAGE DELS = AMAX1(0.0,SNEQV-SNEQVO) / parameters%SWEMX @@ -2894,8 +2943,8 @@ SUBROUTINE SNOWALB_BATS (parameters,NBAND,FSNO,COSZ,FAGE,ALBSND,ALBSNI) REAL :: SL2 !2.*SL REAL :: SL1 !1/SL REAL :: SL !adjustable parameter - REAL, PARAMETER :: C1 = 0.2 !default in BATS - REAL, PARAMETER :: C2 = 0.5 !default in BATS +! REAL, PARAMETER :: C1 = 0.2 !default in BATS +! REAL, PARAMETER :: C2 = 0.5 !default in BATS ! REAL, PARAMETER :: C1 = 0.2 * 2. ! double the default to match Sleepers River's ! REAL, PARAMETER :: C2 = 0.5 * 2. ! snow surface albedo (double aging effects) ! --------------------------------------------------------------------------------------------- @@ -2906,17 +2955,17 @@ SUBROUTINE SNOWALB_BATS (parameters,NBAND,FSNO,COSZ,FAGE,ALBSND,ALBSNI) ! when cosz > 0 - SL=2.0 + SL=parameters%BATS_COSZ SL1=1./SL SL2=2.*SL CF1=((1.+SL1)/(1.+SL2*COSZ)-SL1) FZEN=AMAX1(CF1,0.) - ALBSNI(1)=0.95*(1.-C1*FAGE) - ALBSNI(2)=0.65*(1.-C2*FAGE) + ALBSNI(1)=parameters%BATS_VIS_NEW*(1.-parameters%BATS_VIS_AGE*FAGE) + ALBSNI(2)=parameters%BATS_NIR_NEW*(1.-parameters%BATS_NIR_AGE*FAGE) - ALBSND(1)=ALBSNI(1)+0.4*FZEN*(1.-ALBSNI(1)) ! vis direct - ALBSND(2)=ALBSNI(2)+0.4*FZEN*(1.-ALBSNI(2)) ! nir direct + ALBSND(1)=ALBSNI(1)+parameters%BATS_VIS_DIR*FZEN*(1.-ALBSNI(1)) ! vis direct + ALBSND(2)=ALBSNI(2)+parameters%BATS_VIS_DIR*FZEN*(1.-ALBSNI(2)) ! nir direct END SUBROUTINE SNOWALB_BATS @@ -3544,11 +3593,11 @@ SUBROUTINE VEGE_FLUX(parameters,NSNOW ,NSOIL ,ISNOW ,VEGTYP ,VEG , & H = 0. QFX = 0. -! convert grid-cell LAI to the fractional vegetated area (FVEG) +! limit LAI - VAIE = MIN(6.,VAI / FVEG) - LAISUNE = MIN(6.,LAISUN / FVEG) - LAISHAE = MIN(6.,LAISHA / FVEG) + VAIE = MIN(6.,VAI ) + LAISUNE = MIN(6.,LAISUN) + LAISHAE = MIN(6.,LAISHA) ! saturation vapor pressure at ground temperature @@ -4356,7 +4405,7 @@ SUBROUTINE SFCDIF1(parameters,ITER ,SFCTMP ,RHOAIR ,H ,QAIR , & !in MOZOLD = MOZ IF(ZLVL <= ZPD) THEN - write(*,*) 'critical problem: ZLVL <= ZPD; model stops' + write(*,*) 'WARNING: critical problem: ZLVL <= ZPD; model stops' call wrf_error_fatal("STOP in Noah-MP") ENDIF @@ -5487,6 +5536,11 @@ SUBROUTINE PHASECHANGE (parameters,NSNOW ,NSOIL ,ISNOW ,DT ,FACT , STC(J) = STC(J) + FACT(J)*HEATR IF (J <= 0) THEN ! snow IF (MLIQ(J)*MICE(J)>0.) STC(J) = TFRZ + IF (MICE(J) == 0.) THEN ! BARLAGE + STC(J) = TFRZ ! BARLAGE + HM(J+1) = HM(J+1) + HEATR ! BARLAGE + XM(J+1) = HM(J+1)*DT/HFUS ! BARLAGE + ENDIF END IF ENDIF @@ -6115,9 +6169,9 @@ SUBROUTINE SNOWWATER (parameters,NSNOW ,NSOIL ,IMELT ,DT ,ZSOIL , & !in !to obtain equilibrium state of snow in glacier region - IF(SNEQV > 2000.) THEN ! 2000 mm -> maximum water depth + IF(SNEQV > 5000.) THEN ! 5000 mm -> maximum water depth BDSNOW = SNICE(0) / DZSNSO(0) - SNOFLOW = (SNEQV - 2000.) + SNOFLOW = (SNEQV - 5000.) SNICE(0) = SNICE(0) - SNOFLOW DZSNSO(0) = DZSNSO(0) - SNOFLOW/BDSNOW SNOFLOW = SNOFLOW / DT @@ -9216,7 +9270,19 @@ MODULE NOAHMP_TABLES REAL :: Z0SNO_TABLE !snow surface roughness length (m) (0.002) REAL :: SSI_TABLE !liquid water holding capacity for snowpack (m3/m3) (0.03) REAL :: SWEMX_TABLE !new snow mass to fully cover old snow (mm) + REAL :: TAU0_TABLE !tau0 from Yang97 eqn. 10a + REAL :: GRAIN_GROWTH_TABLE !growth from vapor diffusion Yang97 eqn. 10b + REAL :: EXTRA_GROWTH_TABLE !extra growth near freezing Yang97 eqn. 10c + REAL :: DIRT_SOOT_TABLE !dirt and soot term Yang97 eqn. 10d + REAL :: BATS_COSZ_TABLE !zenith angle snow albedo adjustment; b in Yang97 eqn. 15 + REAL :: BATS_VIS_NEW_TABLE !new snow visible albedo + REAL :: BATS_NIR_NEW_TABLE !new snow NIR albedo + REAL :: BATS_VIS_AGE_TABLE !age factor for diffuse visible snow albedo Yang97 eqn. 17 + REAL :: BATS_NIR_AGE_TABLE !age factor for diffuse NIR snow albedo Yang97 eqn. 18 + REAL :: BATS_VIS_DIR_TABLE !cosz factor for direct visible snow albedo Yang97 eqn. 15 + REAL :: BATS_NIR_DIR_TABLE !cosz factor for direct NIR snow albedo Yang97 eqn. 16 REAL :: RSURF_SNOW_TABLE !surface resistance for snow(s/m) + REAL :: RSURF_EXP_TABLE !exponent in the shape parameter for soil resistance option 1 ! MPTABLE.TBL crop parameters @@ -9324,6 +9390,7 @@ subroutine read_mp_veg_parameters(DATASET_IDENTIFIER) character(len=*), intent(in) :: DATASET_IDENTIFIER integer :: ierr INTEGER :: IK,IM + logical :: file_named integer :: NVEG character(len=256) :: VEG_DATASET_DESCRIPTION @@ -9430,12 +9497,15 @@ subroutine read_mp_veg_parameters(DATASET_IDENTIFIER) HIGH_DENSITY_RESIDENTIAL_TABLE = -99999 HIGH_INTENSITY_INDUSTRIAL_TABLE = -99999 - open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + inquire( file='MPTABLE.TBL', exist=file_named ) + if ( file_named ) then + open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + else + open(15, status='old', form='formatted', action='read', iostat=ierr) + end if + if (ierr /= 0) then - write(*,'("****** Error ******************************************************")') - write(*,'("Cannot find file MPTABLE.TBL")') - write(*,'("STOP")') - write(*,'("*******************************************************************")') + write(*,'("WARNING: Cannot find file MPTABLE.TBL")') call wrf_error_fatal("STOP in Noah-MP read_mp_veg_parameters") endif @@ -9446,8 +9516,8 @@ subroutine read_mp_veg_parameters(DATASET_IDENTIFIER) read(15,noahmp_modis_veg_categories) read(15,noahmp_modis_parameters) else - write(*,'("Unrecognized DATASET_IDENTIFIER in subroutine READ_MP_VEG_PARAMETERS")') - write(*,'("DATASET_IDENTIFIER = ''", A, "''")') trim(DATASET_IDENTIFIER) + write(*,'("WARNING: Unrecognized DATASET_IDENTIFIER in subroutine READ_MP_VEG_PARAMETERS")') + write(*,'("WARNING: DATASET_IDENTIFIER = ''", A, "''")') trim(DATASET_IDENTIFIER) call wrf_error_fatal("STOP in Noah-MP read_mp_veg_parameters") endif close(15) @@ -9551,6 +9621,7 @@ subroutine read_mp_soil_parameters() CHARACTER*4 :: SLTYPE INTEGER :: ITMP, NUM_SLOPE, LC CHARACTER(len=256) :: message + logical :: file_named ! Initialize our variables to bad values, so that if the namelist read fails, we come to a screeching halt as soon as we try to use anything. @@ -9575,74 +9646,87 @@ subroutine read_mp_soil_parameters() ! !-----READ IN SOIL PROPERTIES FROM SOILPARM.TBL ! - OPEN(19, FILE='SOILPARM.TBL',FORM='FORMATTED',STATUS='OLD',IOSTAT=ierr) + inquire( file='SOILPARM.TBL', exist=file_named ) + if ( file_named ) then + open(21, file='SOILPARM.TBL',form='formatted',status='old',iostat=ierr) + else + open(21, form='formatted',status='old',iostat=ierr) + end if + IF(ierr .NE. 0 ) THEN WRITE(message,FMT='(A)') 'module_sf_noahmpdrv.F: read_mp_soil_parameters: failure opening SOILPARM.TBL' CALL wrf_error_fatal ( message ) END IF - READ (19,*) - READ (19,*) SLTYPE - READ (19,*) SLCATS + READ (21,*) + READ (21,*) SLTYPE + READ (21,*) SLCATS WRITE( message , * ) 'SOIL TEXTURE CLASSIFICATION = ', TRIM ( SLTYPE ) , ' FOUND', & SLCATS,' CATEGORIES' CALL wrf_message ( message ) DO LC=1,SLCATS - READ (19,*) ITMP,BEXP_TABLE(LC),SMCDRY_TABLE(LC),F1_TABLE(LC),SMCMAX_TABLE(LC), & + READ (21,*) ITMP,BEXP_TABLE(LC),SMCDRY_TABLE(LC),F1_TABLE(LC),SMCMAX_TABLE(LC), & SMCREF_TABLE(LC),PSISAT_TABLE(LC),DKSAT_TABLE(LC), DWSAT_TABLE(LC), & SMCWLT_TABLE(LC), QUARTZ_TABLE(LC) ENDDO - CLOSE (19) + CLOSE (21) ! !-----READ IN GENERAL PARAMETERS FROM GENPARM.TBL ! - OPEN(19, FILE='GENPARM.TBL',FORM='FORMATTED',STATUS='OLD',IOSTAT=ierr) + inquire( file='GENPARM.TBL', exist=file_named ) + if ( file_named ) then + open(22, file='GENPARM.TBL',form='formatted',status='old',iostat=ierr) + else + open(22, form='formatted',status='old',iostat=ierr) + end if + IF(ierr .NE. 0 ) THEN WRITE(message,FMT='(A)') 'module_sf_noahlsm.F: read_mp_soil_parameters: failure opening GENPARM.TBL' CALL wrf_error_fatal ( message ) END IF - READ (19,*) - READ (19,*) - READ (19,*) NUM_SLOPE + READ (22,*) + READ (22,*) + READ (22,*) NUM_SLOPE DO LC=1,NUM_SLOPE - READ (19,*) SLOPE_TABLE(LC) + READ (22,*) SLOPE_TABLE(LC) ENDDO - READ (19,*) - READ (19,*) - READ (19,*) - READ (19,*) - READ (19,*) - READ (19,*) CSOIL_TABLE - READ (19,*) - READ (19,*) - READ (19,*) - READ (19,*) REFDK_TABLE - READ (19,*) - READ (19,*) REFKDT_TABLE - READ (19,*) - READ (19,*) FRZK_TABLE - READ (19,*) - READ (19,*) ZBOT_TABLE - READ (19,*) - READ (19,*) CZIL_TABLE - READ (19,*) - READ (19,*) - READ (19,*) - READ (19,*) - - CLOSE (19) + READ (22,*) + READ (22,*) + READ (22,*) + READ (22,*) + READ (22,*) + READ (22,*) CSOIL_TABLE + READ (22,*) + READ (22,*) + READ (22,*) + READ (22,*) REFDK_TABLE + READ (22,*) + READ (22,*) REFKDT_TABLE + READ (22,*) + READ (22,*) FRZK_TABLE + READ (22,*) + READ (22,*) ZBOT_TABLE + READ (22,*) + READ (22,*) CZIL_TABLE + READ (22,*) + READ (22,*) + READ (22,*) + READ (22,*) + + CLOSE (22) end subroutine read_mp_soil_parameters subroutine read_mp_rad_parameters() implicit none integer :: ierr + logical :: file_named REAL :: ALBICE(MBAND),ALBLAK(MBAND),OMEGAS(MBAND),BETADS,BETAIS,EG(2) REAL :: ALBSAT_VIS(MSC) @@ -9663,12 +9747,15 @@ subroutine read_mp_rad_parameters() BETAIS_TABLE = -1.E36 EG_TABLE = -1.E36 - open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + inquire( file='MPTABLE.TBL', exist=file_named ) + if ( file_named ) then + open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + else + open(15, status='old', form='formatted', action='read', iostat=ierr) + end if + if (ierr /= 0) then - write(*,'("****** Error ******************************************************")') - write(*,'("Cannot find file MPTABLE.TBL")') - write(*,'("STOP")') - write(*,'("*******************************************************************")') + write(*,'("WARNING: Cannot find file MPTABLE.TBL")') call wrf_error_fatal("STOP in Noah-MP read_mp_rad_parameters") endif @@ -9691,10 +9778,17 @@ end subroutine read_mp_rad_parameters subroutine read_mp_global_parameters() implicit none integer :: ierr + logical :: file_named - REAL :: CO2,O2,TIMEAN,FSATMX,Z0SNO,SSI,SWEMX,RSURF_SNOW + REAL :: CO2,O2,TIMEAN,FSATMX,Z0SNO,SSI, & + SWEMX,TAU0,GRAIN_GROWTH,EXTRA_GROWTH,DIRT_SOOT,& + BATS_COSZ,BATS_VIS_NEW,BATS_NIR_NEW,BATS_VIS_AGE,BATS_NIR_AGE,BATS_VIS_DIR,BATS_NIR_DIR,& + RSURF_SNOW,RSURF_EXP - NAMELIST / noahmp_global_parameters / CO2,O2,TIMEAN,FSATMX,Z0SNO,SSI,SWEMX,RSURF_SNOW + NAMELIST / noahmp_global_parameters / CO2,O2,TIMEAN,FSATMX,Z0SNO,SSI, & + SWEMX,TAU0,GRAIN_GROWTH,EXTRA_GROWTH,DIRT_SOOT,& + BATS_COSZ,BATS_VIS_NEW,BATS_NIR_NEW,BATS_VIS_AGE,BATS_NIR_AGE,BATS_VIS_DIR,BATS_NIR_DIR,& + RSURF_SNOW,RSURF_EXP ! Initialize our variables to bad values, so that if the namelist read fails, we come to a screeching halt as soon as we try to use anything. @@ -9705,14 +9799,29 @@ subroutine read_mp_global_parameters() Z0SNO_TABLE = -1.E36 SSI_TABLE = -1.E36 SWEMX_TABLE = -1.E36 + TAU0_TABLE = -1.E36 +GRAIN_GROWTH_TABLE = -1.E36 +EXTRA_GROWTH_TABLE = -1.E36 + DIRT_SOOT_TABLE = -1.E36 + BATS_COSZ_TABLE = -1.E36 +BATS_VIS_NEW_TABLE = -1.E36 +BATS_NIR_NEW_TABLE = -1.E36 +BATS_VIS_AGE_TABLE = -1.E36 +BATS_NIR_AGE_TABLE = -1.E36 +BATS_VIS_DIR_TABLE = -1.E36 +BATS_NIR_DIR_TABLE = -1.E36 RSURF_SNOW_TABLE = -1.E36 + RSURF_EXP_TABLE = -1.E36 + + inquire( file='MPTABLE.TBL', exist=file_named ) + if ( file_named ) then + open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + else + open(15, status='old', form='formatted', action='read', iostat=ierr) + end if - open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) if (ierr /= 0) then - write(*,'("****** Error ******************************************************")') - write(*,'("Cannot find file MPTABLE.TBL")') - write(*,'("STOP")') - write(*,'("*******************************************************************")') + write(*,'("WARNING: Cannot find file MPTABLE.TBL")') call wrf_error_fatal("STOP in Noah-MP read_mp_global_parameters") endif @@ -9726,13 +9835,26 @@ subroutine read_mp_global_parameters() Z0SNO_TABLE = Z0SNO SSI_TABLE = SSI SWEMX_TABLE = SWEMX + TAU0_TABLE = TAU0 +GRAIN_GROWTH_TABLE = GRAIN_GROWTH +EXTRA_GROWTH_TABLE = EXTRA_GROWTH + DIRT_SOOT_TABLE = DIRT_SOOT + BATS_COSZ_TABLE = BATS_COSZ +BATS_VIS_NEW_TABLE = BATS_VIS_NEW +BATS_NIR_NEW_TABLE = BATS_NIR_NEW +BATS_VIS_AGE_TABLE = BATS_VIS_AGE +BATS_NIR_AGE_TABLE = BATS_NIR_AGE +BATS_VIS_DIR_TABLE = BATS_VIS_DIR +BATS_NIR_DIR_TABLE = BATS_NIR_DIR RSURF_SNOW_TABLE = RSURF_SNOW + RSURF_EXP_TABLE = RSURF_EXP end subroutine read_mp_global_parameters subroutine read_mp_crop_parameters() implicit none integer :: ierr + logical :: file_named INTEGER :: DEFAULT_CROP INTEGER, DIMENSION(NCROP) :: PLTDAY @@ -9834,12 +9956,15 @@ subroutine read_mp_crop_parameters() BIO2LAI_TABLE = -1.E36 - open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + inquire( file='MPTABLE.TBL', exist=file_named ) + if ( file_named ) then + open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + else + open(15, status='old', form='formatted', action='read', iostat=ierr) + end if + if (ierr /= 0) then - write(*,'("****** Error ******************************************************")') - write(*,'("Cannot find file MPTABLE.TBL")') - write(*,'("STOP")') - write(*,'("*******************************************************************")') + write(*,'("WARNING: Cannot find file MPTABLE.TBL")') call wrf_error_fatal("STOP in Noah-MP read_mp_crop_parameters") endif @@ -9954,6 +10079,7 @@ end subroutine read_mp_crop_parameters subroutine read_mp_optional_parameters() implicit none integer :: ierr + logical :: file_named NAMELIST / noahmp_optional_parameters / & sr2006_theta_1500t_a, sr2006_theta_1500t_b, sr2006_theta_1500t_c, & @@ -9974,12 +10100,15 @@ subroutine read_mp_optional_parameters() sr2006_psi_e_a , sr2006_psi_e_b , sr2006_psi_e_c , & sr2006_smcmax_a , sr2006_smcmax_b - open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + inquire( file='MPTABLE.TBL', exist=file_named ) + if ( file_named ) then + open(15, file="MPTABLE.TBL", status='old', form='formatted', action='read', iostat=ierr) + else + open(15, status='old', form='formatted', action='read', iostat=ierr) + end if + if (ierr /= 0) then - write(*,'("****** Error ******************************************************")') - write(*,'("Cannot find file MPTABLE.TBL")') - write(*,'("STOP")') - write(*,'("*******************************************************************")') + write(*,'("WARNING: Cannot find file MPTABLE.TBL")') call wrf_error_fatal("STOP in Noah-MP read_mp_optional_parameters") endif diff --git a/phys/module_sf_pxlsm.F b/phys/module_sf_pxlsm.F index e9588c6f09..23c9ac7c37 100755 --- a/phys/module_sf_pxlsm.F +++ b/phys/module_sf_pxlsm.F @@ -40,6 +40,10 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & SN_NDG_OLD, SN_NDG_NEW, SNOW, SNOWH,SNOWNCV,& T2OBS, Q2OBS, PXLSM_SMOIS_INIT, & PXLSM_SOIL_NUDGE, & + pxlsm_modis_veg, & + LAI_PX, & + WWLT_PX, WFC_PX, WSAT_PX, & + CLAY_PX, CSAND_PX, FMSAND_PX, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte ) @@ -118,7 +122,15 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & ! for use over all non-water and non-frozen surfaces. ! - PAR function and impact on transpiration modified according to Echer et al.(2015). See P-X LSM documentation ! for full reference. These act to reduce moisture bias near surface during PBL transition. -! +! +! JP 11/2017 - Updated vegetation table for different land cover types. Added in WRFv4.0. +! +! LR 11/2017 - Update for MODIS vegetation: many changes in soil properties. Added in WRFv4.1. +! (Ran et al., 2016 JGR-atmosphere, Ran et al. 2017 in preparation) +! JP 12/2018 - revised soil type categories (ISTI) to conform to WRF soil type input data +! soil types Sand through Clay are now 1-12 rather than 1-11 + +! !-------------------------------------------------------------------------------------------------------------- !-------------------------------------------------------------------------------------------------------------- ! ARGUMENT LIST: @@ -174,7 +186,7 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & !-- RA Aerodynamic resistence !-- RS Stomatal resistence -!-- LAI Leaf area index (weighted according to fractional landuse) +!-- LAI read in Leaf area index (weighted according to fractional landuse) !-- ZNT rougness length !-- QSFC Sat. water vapor mixing ratio at the surface interface @@ -219,7 +231,15 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & !-- PXLSM_SMOIS_INIT Flag to intialize deep soil moisture to a value derived from moisture availiability. !-- PXLSM_SOIL_NUDGE Flag to use soil moisture and temperature nudging in the PX LSM ! This is typically done for the first simulation. - +!-- pxlsm_modis_veg Use MODIS vegetation option: 1 yes, 0 no +!-- LAI_PX LAI used for PX (m^2/m^2) +!-- WWLT_PX Computed soil wilting point for PX (m^3/m^3) +!-- WFC_PX Computed soil field capacity for PX (m^3/m^3) +!-- WSAT_PX Computed soil saturation for PX (m^3/m^3) +!-- CLAY_PX Aggregated soil clay fraction for PX (%) +!-- CSAND_PX Aggregated soil coarse sand fraction for PX (%) +!-- FMSAND_PX Aggregated soil fine-medium sand fraction for PX (%) +! !-- ids start index for i in domain !-- ide end index for i in domain !-- jds start index for j in domain @@ -288,6 +308,13 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & SNOWH, SNOWC, ALBEDO, XLAND, XICE, & IMPERV, CANFRA + INTEGER, OPTIONAL, INTENT(IN) :: pxlsm_modis_veg + + REAL, DIMENSION( ims:ime, jms:jme ), & + OPTIONAL, INTENT(OUT) :: LAI_PX, WWLT_PX, WFC_PX, WSAT_PX, & + CLAY_PX, CSAND_PX, FMSAND_PX + INTEGER :: KWAT + LOGICAL :: radiation !------------------------------------------------------------------------- @@ -320,10 +347,12 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & CORE, CORB, TIME_BETWEEN_ANALYSIS, & G1000, ALN10,RH2OBS, HU, SNOBS, & FWSAT,FWFC,FWWLT,FB,FCGSAT,FJP,FAS, & + FWRES, FC3, FCLAY, FCSAND, FFMSAND, & ! Soil model updates - JEP 12/14, LR 04/2017 FSEAS, T2I, HC_SNOW, SNOW_FRA,SNOWALB, & QST12,ZFUNC,ZF1,ZA2,QV2, DT_FDDA, & FC2R,FC1SAT, DTPBL, RAW + CHARACTER (LEN = 6) :: LAND_USE_TYPE !------------------------------------------------------------------------- @@ -385,9 +414,11 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & XLAND, XALB,XSNOALB,WETFRA,IMPERV,CANFRA, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte, LAND_USE_TYPE ) + its,ite, jts,jte, kts,kte, LAND_USE_TYPE, & + KWAT ) !----------------------------------------------------------------------------------- + !----------------------------------------------------------------------------------- ! Main loop over individual grid cells DO J = jts,jte !-- J LOOP @@ -402,16 +433,38 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & CALL SOILPROP (SOILCBOT(I,:,J), WEIGHT, & ITIMESTEP, MAVAIL(I,J), & PXLSM_SMOIS_INIT, & - FWSAT,FWFC,FWWLT,FB,FCGSAT, & - FJP,FAS,FC2R,FC1SAT,ISTI,SMOIS(I,1,J), & - SMOIS(I,2,J)) + FWSAT,FWFC,FWWLT,FCLAY,FCSAND,FFMSAND, & + FB,FCGSAT, & + FJP,FAS,FC2R,FC1SAT,FWRES, FC3, ISTI, & + SMOIS(I,1,J), SMOIS(I,2,J) ) !---------------------------------------------------------- !---------------------------------------------------------- ISLTYP(I,J) = ISTI ELSE ISLTYP(I,J) = 14 ! STATSGO type for water + + !-- aded for MODIS model + FWWLT = 0.1 + FWFC = 1.0 + FWSAT = 1.0 + + FCLAY = 0.0 + FCSAND = 0.0 + FFMSAND = 0.0 + !-- end + ENDIF + !-- aded for MODIS model + WWLT_PX(I,J) = FWWLT + WFC_PX(I,J) = FWFC + WSAT_PX(I,J) = FWSAT + + CLAY_PX(I,J) = FCLAY * 0.01 ! percent to fraction + CSAND_PX(I,J) = FCSAND * 0.01 + FMSAND_PX(I,J) = FFMSAND * 0.01 + !-- end + !-- Variables Sub. SURFPX needs SFCPRS = PSFC(i,j) / 1000.0 ! surface pressure in cb TA1 = T3D(i,1,j) ! air temperature at first layer @@ -495,13 +548,49 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & FSEAS = AMAX1(1.0 - 0.015625 * (290.0 - T2I) ** 2,0.0) ! JP97 IF (T2I .GE. 290.0) FSEAS = 1.0 - LAI(I,J) = XLAIMN(I,J) + FSEAS*(XLAI(I,J) - XLAIMN(I,J)) + !get PX table vegetation + LAI_PX(I,J) = XLAIMN(I,J) + FSEAS*(XLAI(I,J) - XLAIMN(I,J)) VEGF_PX(I,J) = XVEGMN(I,J) + FSEAS*(XVEG(I,J) - XVEGMN(I,J)) +!... use MODIS LAI and VEGFRA from wrflowinp + IF ( pxlsm_modis_veg .EQ. 1 ) THEN + +! IF ( I .EQ. 300 .AND. J .EQ. 120 ) THEN +! print*, " I=",I," J=",J," LAI_PX=",LAI_PX(I,J)," VEGF_PX=",VEGF_PX(I,J), & +! " LAI=",LAI(I,J)," VEGFRA=",VEGFRA(I,J) +! ENDIF + + ! get LAI for vegetated area + IF ( VEGFRA(I,J) .GT. 0.0 ) THEN + LAI_PX(I,J) = LAI(I,J) / ( VEGFRA(I,J) / 100.0) + ELSE + LAI_PX(I,J) = 0.0 + ENDIF + + VEGF_PX(I,J) = VEGFRA(I,J) / 100.0 + + !vegF is just for the land + IF ( LANDUSEF(I,KWAT,J) .LT. 1.0 ) THEN + VEGF_PX(I,J) = VEGF_PX(I,J) / (1.0 - LANDUSEF(I,KWAT,J)) + ELSE + VEGF_PX(I,J) = 0.0 + ENDIF + + ENDIF + + LAI_PX(I,J) = MIN(LAI_PX(I,J), 8.0) + LAI_PX(I,J) = MAX(LAI_PX(I,J), 0.0001) + + VEGF_PX(I,J) = MIN(VEGF_PX(I,J), 1.0) + VEGF_PX(I,J) = MAX(VEGF_PX(I,J), 0.0001) + +!... END OF MODIS LAI and FPAR + + ! Ensure veg algorithms not used for water IF (IFLAND .GE. 1.5) THEN VEGF_PX(I,J) = 0.0 - LAI(I,J) = 0.0 + LAI_PX(I,J) = 0.0 ENDIF !------------------------------------------------------------- @@ -555,10 +644,10 @@ SUBROUTINE pxlsm(U3D, V3D, DZ8W, QV3D,T3D,TH3D, RHO, & THETA1, PRECIP, & !in CPAIR, PSIH(I,J), & !in RH2OBS,T2OBS(I,J), & !in - VEGF_PX(I,J), ISTI, LAI(I,J), IMPERV(I,J), CANFRA(I,J), & !in + VEGF_PX(I,J), ISTI, LAI_PX(I,J), IMPERV(I,J), CANFRA(I,J), & !in BETAP, RSTMIN(I,J), HC_SNOW, SNOW_FRA, WETFRA(I,J), & !in - FWWLT, FWFC, FCGSAT, FWSAT, FB, & !in - FC1SAT,FC2R,FAS,FJP,DZS(1),DZS(2),QST12, & !in + FWWLT, FWFC, FWRES, FCGSAT, FWSAT, FB, & !in ! Soil model updates - JEP 12/14 + FC1SAT,FC2R,FAS,FJP,FC3,DZS(1),DZS(2),QST12, & !in RADNET(I,J), GRDFLX(I,J), HFX(I,J), QFX(I,J), LH(I,J), & !out EG(I,J), ER(I,J), ETR(I,J), & !out QST(I,J), CAPG(I,J), RS(I,J), RA(I,J), & !out @@ -593,7 +682,7 @@ SUBROUTINE VEGELAND( landusef, vegfra, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte, & - LAND_USE_TYPE ) + LAND_USE_TYPE, KWAT_OUT ) !------------------------------------------------------------------------- ! ! CALLED FROM Sub. bl_init in module_physics.init.F @@ -629,6 +718,9 @@ SUBROUTINE VEGELAND( landusef, vegfra, & REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: XLAI, XLAIMN, RSTMIN, XALB, & XVEG, XVEGMN, XSNUP, XLAND, & WETFRA, XSNOALB + + INTEGER, INTENT(OUT) :: KWAT_OUT + CHARACTER (LEN = 6), INTENT(IN) :: LAND_USE_TYPE @@ -717,6 +809,8 @@ SUBROUTINE VEGELAND( landusef, vegfra, & LIMIT1 = 12 LIMIT1 = 14 END IF + + KWAT_OUT = KWAT !-------------------------------------------------------------------- DO J = jts,jte DO I = its,ite @@ -907,6 +1001,7 @@ SUBROUTINE VEGELAND( landusef, vegfra, & XSNOALB(I,J)= SUMSNOALB ENDIF + !!!!!!!!!!!!!!!!!!!Qestion Limei Ran, deleted in wrf37 IF (FWAT .GT. 0.50) THEN ZNT(I,J) = Z0(KWAT) XALB(I,J) = ALB(KWAT) @@ -965,10 +1060,11 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in QV1, QSS, TA1, THETA1, PRECIP, CPAIR, PSIH, & !in RH2OBS, T2OBS, VEGFRC, ISTI,LAI,IMPERV,CANFRA,BETAP, & !in RSTMIN, HC_SNOW, SNOW_FRA, WETFRA, WWLT, WFC, & !in - CGSAT, WSAT, B, C1SAT, C2R, AS, JP, DS1, DS2, QST12, & !in - RADNET, GRDFLX, HFX, QFX, LH, EG, ER, ETR, & !out + WRES, CGSAT, WSAT, B, C1SAT, C2R, AS, JP, C3, DS1, & !in + DS2, QST12, & !in + RADNET, GRDFLX, HFX, QFX, LH, EG, ER, ETR, & !out QST, CAPG, RS, RA, TG, T2, WG, W2, WR, & !out - TA2, QA2, LAND_USE_TYPE, I, J ) !out + TA2, QA2, LAND_USE_TYPE, I, J ) !out !------------------------------------------------------------------------------ ! @@ -1057,7 +1153,7 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in REAL , INTENT(IN) :: CPAIR REAL , INTENT(IN) :: VEGFRC, LAI, IMPERV, CANFRA REAL , INTENT(IN) :: RSTMIN, HC_SNOW, SNOW_FRA, WETFRA - REAL , INTENT(IN) :: WWLT, WFC, CGSAT, WSAT, B, C1SAT, C2R, AS, JP + REAL , INTENT(IN) :: WWLT, WFC, WRES, CGSAT, WSAT, B, C1SAT, C2R, AS, JP, C3 REAL , INTENT(IN) :: RH2OBS,T2OBS REAL , INTENT(IN) :: QST12 @@ -1067,7 +1163,7 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in REAL , INTENT(INOUT) :: TG, T2, WG, W2, WR, UST, RA, BETAP REAL , INTENT(INOUT) :: GRDFLX, QFX, HFX, LH, PSIH, MOL - CHARACTER (LEN = 5), INTENT(IN) :: LAND_USE_TYPE + CHARACTER (LEN = 6), INTENT(IN) :: LAND_USE_TYPE ! Check Limei Ran, wrf38 set to 5 !... Local Variables @@ -1084,10 +1180,13 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in REAL :: QST1,PHIH,PSIOB REAL :: T2NUD, T2NUDF REAL :: VAPPRS, QSBT, RH2MOD, IMF, VEGF, SOILF + REAL :: RSOIL, LDRY, DP ! Soil model updates - JEP 12/14 + REAL :: C1MAX,ZZA,ZZB,ZDEL,ZLY,ZA,ZB,ZY2 !... Parameters REAL :: ZOBS, GAMAH, BETAH, SIGF, BH, CT_SNOW, CT_IMPERV +! REAL, PARAMETER :: CV = 2.0E-5 !1.2E-5 ! K-M2/J Note: Update from 8E-6 10/14 Jon Pleim REAL, PARAMETER :: CV = 1.2E-5 ! K-M2/J Note: Update from 8E-6 10/14 Jon Pleim PARAMETER (ZOBS = 1.5) ! height for observed screen temp., (m) @@ -1095,6 +1194,7 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in PARAMETER (GAMAH = 16. ) !11.6) PARAMETER (BETAH = 5.0 ) !8.21) PARAMETER (SIGF = 0.5) ! rain interception see LSM (can be 0-1) + REAL, PARAMETER :: DWAT = 0.2178 ! [cm^2 / s] at 273.15K !-------------------------------------------------------------------- ! OLD PX legacy value from MM5 ... unknown origin PARAMETER (CT_SNOW = 5.54E-5) ! New value of CT_SNOW calibrated using multilayer soil model where csnow=6.9E5 J/(m3 K) @@ -1166,15 +1266,30 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in RA=PR0* ( ALOG(Z1/ZNT) - PSIH )/(KARMAN*UST) RAH = RA + 5.0 / UST RAW = RA + 4.503 / UST + IF (IFLAND .LT. 1.5.AND. XICE1.LT.0.5) THEN + LDRY = 1.75*DS1*(EXP((1.-WG/WSAT)**5)-1.)/1.718 ! 1.75 cm is the layer thickness used by S&Z09 + DP = DWAT*1.E-4 * WSAT**2 * (1.-WRES/WSAT)**(2.+3./B) + !DP = DWAT*1.E-4 * 0.1 * ( 2.0*(1.-WRES/WSAT)**3 + 0.04*(1.-WRES/WSAT) ) !Deepagoda et al. 2010 + RSOIL=LDRY/DP + + !Merlin et al. 2016 ECMWF H-TESSEL + !IF ( WG > WRES ) THEN + ! RSOIL = 50.0 * (WFC - WRES ) / (WG - WRES) + !ELSE + ! RSOIL = 8000.0 + !ENDIF + ELSE + RSOIL = 0.0 + ENDIF !-------------------------------------------------------------------- ! Compute soil moisture layer 2 that considers fraction of saturated ! wetlands. If 100% of cell is wetland, soil moisture can be no lower ! than full soil saturation. If half wetland, no less than half saturated IF (IFLAND .LT. 1.5 ) THEN - WETSAT = 1.00 * WSAT ! Wetlands soil moisture - SM2 = (WETFRA * WETSAT) ! - W2 = AMAX1(SM2, W2) ! In case that W2 > Field capacity (heavy precip), use wetter W2 + WETSAT = 1.00 * WSAT ! Wetlands soil moisture + SM2 = (WETFRA * WETSAT) ! + W2 = AMAX1(SM2, W2) ! In case that W2 > Field capacity (heavy precip), use wetter W2 ENDIF !-------------------------------------------------------------------- @@ -1182,7 +1297,7 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in CALL QFLUX( DENS1, QV1, TA1, SOLDN, RAW, QSS, & VEGFRC, ISNOW, ISTI, IFLAND, LAI, BETAP, & WG, W2, WR, & - RSTMIN, WWLT, WFC, & + RSTMIN, WWLT, WFC, RSOIL, & ! Soil model updates - JEP 12/14 EG, ER, ETR, CQ4, RS, FASS) !-------------------------------------------------------------------- @@ -1252,11 +1367,13 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in CALL SMASS (ISTI, FASS, SOLDN, VEGFRC, RA, WWLT, WFC, & ALPH1, ALPH2, BET1, BET2, T2NUDF) - !--COMPUTE MODEL RH - WGNUDG = ALPH1 * (T2OBS - TA2) + ALPH2 * (RH2OBS - RH2MOD) * 100 + !--COMPUTE SOIL MOISTURE NUDGING + WGNUDG = ALPH1 * (T2OBS - TA2) + ALPH2 * (RH2OBS - RH2MOD) * 100 !NUDGING W2 FOR NON-VEG W2NUDG = BET1 * (T2OBS - TA2) + BET2 * (RH2OBS - RH2MOD) * 100 IF (W2 .GE. WFC) W2NUDG = AMIN1(W2NUDG,0.0) IF (W2 .LE. WWLT) W2NUDG = AMAX1(W2NUDG,0.0) + IF (W2 .GE. WFC) WGNUDG = AMIN1(WGNUDG,0.0) + IF (W2 .LE. WWLT) WGNUDG = AMAX1(WGNUDG,0.0) T2NUD = T2NUDF * (T2OBS - TA2) ENDIF ENDIF @@ -1269,7 +1386,8 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in !-- Calculate the coefficients for implicit calculation of TG CQ1 = (1.0 - 0.622 * LV * CRANKP / (r_d * TG)) * QSS CQ2 = 0.622 * LV * QSS * CRANKP / (r_d * TG * TG) - CQ3 = DENS1 * BETAP * (1.0 - VEGFRC) / RAW + CQ3 = DENS1 * (1.0 - VEGFRC) / (RAW + RSOIL) +! CQ3 = DENS1 * BETAP * (1.0 - VEGFRC) / RAW COEFFNP1 = 1.0 + DTPBL * CRANKP * (4.0 * EMISSI * STBOLT * TG ** 3 & * CT + DENS1 * CPAIR / RAH * CPOT * CT + 2.0 * PI & * TAUINV ) + DTPBL * (CT * LV * CQ2 * (CQ3 + CQ4)) @@ -1325,10 +1443,11 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in !-- Compute W2 PG = DENW * (PRECIP - PC) ! PG is precip. reaching soil (PC already including ROFF) TENDW2 = 1.0 / (DENW * DS2) * (PG - EG - ETR) & + - C3/DS2 * TAUINV * AMAX1(0.0,(W2 - WFC)) & + (W2NUDG + WGNUDG) / DS2 ! NUDGING W2NEW = W2 + DTPBL * TENDW2 W2NEW = AMIN1(W2NEW,WSAT) - W2NEW = AMAX1(W2NEW,0.05) + W2NEW = AMAX1(W2NEW,WRES) !0.05) !Limei 08/02/2017 W2HLF = 0.5 * (W2 + W2NEW) !.. new values W2 = W2NEW @@ -1346,10 +1465,22 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in ELSE W2REL = W2HLF / WSAT IF (WG .GT. WWLT) THEN - C1 = C1SAT * (WSAT / WG) ** (0.5 * B + 1.0) - ELSE ! elimilate C1 for wg < wilting point - C1 = C1SAT * (WSAT / WWLT) ** (0.5 * B + 1.0) + C1 = DS1*C1SAT * (WSAT / WG) ** (0.5 * B + 1.0) + ELSE ! revise C1 for wg < wilting point Noilhan & Mahfouf (1996) + ZY2 = C1SAT * (WSAT / WWLT) ** (0.5 * B + 1.0) + C1MAX = (1.19*WWLT - 5.09)*TG - 146.*WWLT + 1786. + C1MAX = MAX(MAX(C1MAX,ZY2),10.) +!* Giard-Bazile formulation (resolution of a second order equation) +! + ZLY = LOG( C1MAX/10.) + ZZA = - LOG( ZY2 /10.) + ZZB = 2. * WWLT * ZLY + ZDEL = 4. * (ZLY+ZZA) * ZLY * WWLT**2 + ZA = (-ZZB+SQRT(ZDEL)) / (2.*ZZA) + ZB = ZA**2 / ZLY + C1 = DS1*C1MAX * EXP(-(WG-ZA)**2/ZB) ENDIF + C2 = C2R * W2HLF / (WSAT - W2HLF + 1.E-11) IF (W2HLF .GE. WSAT) THEN WEQ = WSAT @@ -1358,12 +1489,12 @@ SUBROUTINE SURFPX(DTPBL, IFLAND, ISNOW, NUDGEX, XICE1, SOLDN, GSW, & !in (1.0 - W2REL ** (8.0 * JP)) ENDIF - !.... The beta method, Lee & Pielke (JAM, May 1992) + !.... The diffusion method in Sakaguchi and Zeng [2009] (JGR-Atmos.) CFNP1 = 1.0 + DTPBL * C2 * TAUINV * CRANKP CFN = C1 / (DENW * DS1) * (PG - EG) - C2 * TAUINV * & - ((1.0 - CRANKP) * WG - WEQ) + WGNUDG/ DS1 + ((1.0 - CRANKP) * WG - WEQ) + WGNUDG/ DS1 - WGNEW = AMAX1((WG + DTPBL * CFN) / CFNP1,0.001) + WGNEW = AMAX1((WG + DTPBL * CFN) / CFNP1, WRES ) !0.001) ! Limei 08/02/2017 !-- NEW VALUES WG = AMIN1(WGNEW,WSAT) @@ -1379,7 +1510,7 @@ END SUBROUTINE surfpx SUBROUTINE QFLUX (DENS1, QV1, TA1, RG, RAW, QSS, & ! in VEGFRC, ISNOW, ISTI, IFLAND, LAI, BETAP, & ! in WG, W2, WR, & ! in - RSTMIN, WWLT, WFC, & + RSTMIN, WWLT, WFC, RSOIL, & ! in !Soil model updates - JEP 12/14 EG, ER, ETR, CQ4, RS, FASS) ! out !------------------------------------------------------------------------- @@ -1433,7 +1564,7 @@ SUBROUTINE QFLUX (DENS1, QV1, TA1, RG, RAW, QSS, & ! in REAL , INTENT(IN) :: DENS1, QV1, TA1, RG, RAW, QSS, & VEGFRC, LAI, & WG, W2, WR, RSTMIN - REAL , INTENT(INOUT) :: BETAP + REAL , INTENT(INOUT) :: BETAP, RSOIL REAL, INTENT(IN) :: WWLT, WFC REAL , INTENT(OUT) :: EG, ER, ETR, CQ4, RS, FASS @@ -1459,8 +1590,10 @@ SUBROUTINE QFLUX (DENS1, QV1, TA1, RG, RAW, QSS, & ! in CQ4 = 0.0 !... GROUND EVAPORATION (DEPOSITION) - IF (QSS .LT. QV1) BETAP = 1.0 - EG = DENS1 * (1.0 - VEGFRC) * BETAP * (QSS - QV1) / RAW +! IF (QSS .LT. QV1) BETAP = 1.0 + IF (QSS .LT. QV1) RSOIL = 0.0 +! EG = DENS1 * (1.0 - VEGFRC) * BETAP * (QSS - QV1) / RAW + EG = DENS1 * (1.0 - VEGFRC) * (QSS - QV1) / (RAW + RSOIL) !!--------------------------------------------------------------------- !... CANOPY @@ -1576,35 +1709,29 @@ SUBROUTINE SMASS (ISTI, FASS, RG, VEGFRC, RA, & !in !... Real REAL :: FBET, FALPH, FRA, FTEXT - REAL, DIMENSION( 1: NSCAT ) :: WFCX, WWLTX !... Parameters REAL, PARAMETER :: A1MAX = -10.E-5, A2MAX = 1.E-5 ! m/K, m for 6hr period REAL, PARAMETER :: B1MAX = -10.E-3, B2MAX = 1.E-3 ! m/K, m (Bouttier et al 1993) REAL, PARAMETER :: TASSI = 4.6296E-5 ! 1/6hr in 1/sec REAL, PARAMETER :: RAMIN = 10.0 ! 0.1 s/cm -! -!-- WFC is field capacity (M^3/M^3) (JN90) - DATA WFCX / 0.135, 0.150, 0.195, 0.255, 0.240, 0.255, 0.322, & - 0.325, 0.310, 0.370, 0.367, 0.367, 0.367, 0.367, 0.367, 0.367 / -! -!-- WWLT is wilting point (M^3/M^3) (JN90) - DATA WWLTX / 0.068, 0.075, 0.114, 0.179, 0.155, 0.175, 0.218, & - 0.250, 0.219, 0.283, 0.286, 0.286, 0.286, 0.286, 0.286, 0.286 / + REAL, PARAMETER :: WFCX = 0.243 ! middle of WFC range + REAL, PARAMETER :: WWLTX = 0.169 ! middle of WWLT range ! FBET = FASS FALPH = RG / 1370.0 !--TEXTURE FACTOR NORMALIZED BY LOAM (IST=5) FRA = RAMIN / RA ! scale by aerodynamic resistance - FTEXT = TASSI * (WWLT + WFC) / (WWLTX(5) + WFCX(5)) * FRA + FTEXT = TASSI * (WWLT + WFC) / (WWLTX + WFCX) * FRA ! write(6,*) ' ftot, fbet=',ftot, fbet,' ftext=',ftext/tassi ! ALPH1 = A1MAX * FALPH * (1.0 - VEGFRC) * FTEXT ALPH2 = A2MAX * FALPH * (1.0 - VEGFRC) * FTEXT BET1 = B1MAX * FBET * VEGFRC * FTEXT BET2 = B2MAX * FBET * VEGFRC * FTEXT - T2NUDF = 1.0E-5 * MAX((1.0 - 5.0 * FALPH),0.0) ! T2 Nudging at night + !T2NUDF = 1.0E-5 * MAX((1.0 - 5.0 * FALPH),0.0) ! T2 Nudging at night + T2NUDF = 1.0E-5 * ( VEGFRC*MAX((1.0 - 5.0 * FALPH),0.0) + (1-VEGFRC) ) ! T2 Nudging at night and day for non-veg frac - jp 10/30/14 END SUBROUTINE smass !------------------------------------------------------------------------------------------ @@ -1612,31 +1739,34 @@ END SUBROUTINE smass !------------------------------------------------------------------------------------------ !------------------------------------------------------------------------------------------ + SUBROUTINE SOILPROP (SOILCBOT,WEIGHT, ITIMESTEP, MAVAIL, & ! IN PXLSM_SMOIS_INIT, & ! IN - FWSAT,FWFC,FWWLT,FB,FCGSAT, & ! OUT - FJP,FAS,FC2R,FC1SAT,ISTI, WG, W2 ) ! OUT + FWSAT,FWFC,FWWLT,FCLAY,FCSAND, & ! OUT + FFMSAND,FB,FCGSAT, & ! OUT + FJP,FAS,FC2R,FC1SAT,FWRES,FC3,ISTI, & ! OUT + WG, W2 ) ! OUT !------------------------------------------------------------------------ ! SOILPROP COMPUTES SOIL PARAMETERS FOR BOTH BOTTOM AND TOP LAYERS ! USING FRACTIONAL SOIL TYPE. A HARD CODED OPTION IS AVAILIABLE ! TO COMPUTE THE SOIL PARAMETERS USING FRACTIONAL INFORMATION, OR ! TO JUST USE SOIL PARAMETERS OF THE DOMINANT SOIL TYPE !------------------------------------------------------------------------ - !-- SOIL PARAMETERS ARE SPECIFIED BY SOIL TYPE: - ! # SOIL TYPE WSAT WFC WWLT B CGSAT JP AS C2R C1SAT - ! _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ - ! 1 SAND .395 .135 .068 4.05 3.222 4 .387 3.9 .082 - ! 2 LOAMY SAND .410 .150 .075 4.38 3.057 4 .404 3.7 .098 - ! 3 SANDY LOAM .435 .195 .114 4.90 3.560 4 .219 1.8 .132 - ! 4 SILT LOAM .485 .255 .179 5.30 4.418 6 .105 0.8 .153 - ! 5 SILT .485 .255 .179 5.30 4.418 6 .105 0.8 .153 NP89 does not have Silt so mapped to Silt Loam - ! 6 LOAM .451 .240 .155 5.39 4.111 6 .148 0.8 .191 - ! 7 SND CLY LM .420 .255 .175 7.12 3.670 6 .135 0.8 .213 - ! 8 SLT CLY LM .477 .322 .218 7.75 3.593 8 .127 0.4 .385 - ! 9 CLAY LOAM .476 .325 .250 8.52 3.995 10 .084 0.6 .227 - ! 10 SANDY CLAY .426 .310 .219 10.40 3.058 8 .139 0.3 .421 - ! 11 SILTY CLAY .482 .370 .283 10.40 3.729 10 .075 0.3 .375 - ! 12 CLAY .482 .367 .286 11.40 3.600 12 .083 0.3 .342 + !-- SOIL PARAMETERS ARE SPECIFIED BY SOIL TYPE: + ! # SOIL TYPE WSAT WFC WWLT B CGSAT JP AS C2R C1SAT WRES + ! _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ ____ + ! 1 SAND .395 .135 .068 4.05 3.222 4 .387 3.9 .082 0.020 + ! 2 LOAMY SAND .410 .150 .075 4.38 3.057 4 .404 3.7 .098 0.035 + ! 3 SANDY LOAM .435 .195 .114 4.90 3.560 4 .219 1.8 .132 0.041 + ! 4 SILT LOAM .485 .255 .179 5.30 4.418 6 .105 0.8 .153 0.015 + ! 5 SILT .485 .255 .179 5.30 4.418 6 .105 0.8 .153 0.015 + ! 6 LOAM .451 .240 .155 5.39 4.111 6 .148 0.8 .191 0.027 + ! 7 SND CLY LM .420 .255 .175 7.12 3.670 6 .135 0.8 .213 0.068 + ! 8 SLT CLY LM .477 .322 .218 7.75 3.593 8 .127 0.4 .385 0.040 + ! 9 CLAY LOAM .476 .325 .250 8.52 3.995 10 .084 0.6 .227 0.075 + ! 10 SANDY CLAY .426 .310 .219 10.40 3.058 8 .139 0.3 .421 0.109 + ! 11 SILTY CLAY .482 .370 .283 10.40 3.729 10 .075 0.3 .375 0.056 + ! 12 CLAY .482 .367 .286 11.40 3.600 12 .083 0.3 .342 0.090 !------------------------------------------------------------------------ !------------------------------------------------------------------------------------------ !------------------------------------------------------------------------------------------ @@ -1649,8 +1779,9 @@ SUBROUTINE SOILPROP (SOILCBOT,WEIGHT, ITIMESTEP, MAVAIL, & ! IN INTEGER, INTENT(IN) :: WEIGHT, ITIMESTEP, PXLSM_SMOIS_INIT REAL, INTENT(IN) :: MAVAIL REAL, DIMENSION(1:NSCAT), INTENT(IN) :: SOILCBOT - REAL, INTENT(OUT) :: FWSAT,FWFC,FWWLT,FB,FCGSAT, & - FJP,FAS,FC2R,FC1SAT + REAL, INTENT(OUT) :: FWSAT,FWFC,FWWLT,FCLAY, & + FCSAND,FFMSAND,FB,FCGSAT, & + FJP,FAS,FC2R,FC1SAT,FWRES,FC3 REAL, INTENT(INOUT) :: W2, WG @@ -1661,182 +1792,144 @@ SUBROUTINE SOILPROP (SOILCBOT,WEIGHT, ITIMESTEP, MAVAIL, & ! IN !... Integer INTEGER:: S !... Real - REAL:: TFRACBOT, CFRAC, SUMSND, SUMCLY, AVS, AVC, AVSLT + REAL:: TFRACBOT, CFRAC, SUMCSND, SUMFMSND, SUMCLY, & + AVS, AVCS, AVFMS, AVC, AVSLT, & + SSMPOT, DSMPOT ! saturated and air-dry soil matric potential + REAL, DIMENSION( 1: NSCAT ) :: WSAT, WFC, WWLT, B, CGSAT, AS, & - JP, C2R, C1SAT + JP, C2R, C1SAT, WRES - REAL, DIMENSION( 1: NSCATMIN ) :: SAND, CLAY + REAL, DIMENSION( 1: NSCATMIN ) :: CSAND,FMSAND, CLAY !.......... DATA statement for SOIL PARAMETERS for the 11 soil types - DATA SAND /92.5,80.5,61.1,19.6,4.0,40.0,57.1,11.3,26.8, & - 52.0,6.5,10.2,1.0,1.0,1.0,1.0/ - DATA CLAY/2.1,4.1,10.9,19.1,7.3,18.8,23.3,32.2,36.6, & - 43.0,46.2,58.8,1.0,1.0,1.0,1.0/ - DATA TEXID/'Sand','Lsan','Sloa','Sill','Silt','Loam','Sclo', & - 'Sicl','Cllo','Sacl','Sicy','Clay','Ormt','Wate', & - 'Bedr','Othe'/ - -! -!-- WSAT is saturated soil moisture (M^3/M^3) (JN90) - DATA WSAT / 0.395, 0.410, 0.435, 0.485, 0.451, 0.420, 0.477, & - 0.476, 0.426, 0.482, 0.482, 0.482, 0.482, 0.482, 0.482, 0.482 / -! -!-- WFC is field capacity (M^3/M^3) (JN90) - DATA WFC / 0.135, 0.150, 0.195, 0.255, 0.240, 0.255, 0.322, & - 0.325, 0.310, 0.370, 0.367, 0.367, 0.367, 0.367, 0.367, 0.367 / -! -!-- WWLT is wilting point (M^3/M^3) (JN90) - DATA WWLT / 0.068, 0.075, 0.114, 0.179, 0.155, 0.175, 0.218, & - 0.250, 0.219, 0.283, 0.286, 0.286, 0.286, 0.286, 0.286, 0.286 / -! -!-- B is slop of the retention curve (NP89) - DATA B / 4.05, 4.38, 4.90, 5.30, 5.39, 7.12, 7.75, & - 8.52, 10.40, 10.40, 11.40, 11.40, 11.40, 11.40, 11.40, 11.40 / -! -!-- CGSAT is soil thermal coef. at saturation (10^-6 K M^2 J^-1) (NP89) - DATA CGSAT / 3.222, 3.057, 3.560, 4.418, 4.111, 3.670, 3.593, & - 3.995, 3.058, 3.729, 3.600, 3.600, 3.600, 3.600, 3.600, 3.600 / -! -!-- JP is coefficient of WGEQ formulation (NP89) - DATA JP / 4, 4, 4, 6, 6, 6, 8, & - 10, 8, 10, 12, 12, 12, 12, 12, 12 / -! -!-- AS is coefficient of WGEQ formulation (NP89) - DATA AS / 0.387, 0.404, 0.219, 0.105, 0.148, 0.135, 0.127, & - 0.084, 0.139, 0.075, 0.083, 0.083, 0.083, 0.083, 0.083, 0.083 / -! -!-- C2R is the value of C2 for W2=0.5WSAT (NP89) - DATA C2R / 3.9, 3.7, 1.8, 0.8, 0.8, 0.8, 0.4, & - 0.6, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3 / -! -!-- C1SAT is the value of C1 at saturation (NP89) - DATA C1SAT / 0.082, 0.098, 0.132, 0.153, 0.191, 0.213, 0.385, & - 0.227, 0.421, 0.375, 0.342, 0.342, 0.342, 0.342, 0.342, 0.342 / +!...........Follow Menut et al., 2013 JGR + DATA CSAND /46.0,40.0,29.0, 0.0, 0.0, & + 0.0,29.0, 0.0, 0.0, 0.0, & + 0.0, 0.0, 0.0, 0.0,46.0, & + 0.0/ + DATA FMSAND /46.0,40.0,29.0,17.0,10.0, & + 43.0,29.0,10.0,32.0,52.0, & + 6.0,22.0,43.0,43.0,46.0, & + 32.0/ + + DATA CLAY / 3.0, 4.0,10.0,13.0, 5.0, & + 18.0,27.0,34.0,34.0,42.0, & + 47.0,58.0,18.0,18.0, 3.0, & + 34.0/ + + DATA TEXID/'Sand','Lsan','Sloa','Sill','Silt', & + 'Loam','Sclo','Sicl','Cllo','Sacl', & + 'Sicy','Clay','Ormt','Wate','Bedr', & + 'Othe'/ +!-- Removed soil parameter lookup table data since these parameters are now computed analytically (Noilhan and Mahfouf 1996) + + DSMPOT = -1.0E7 ! mm air-dry water matric potential ! !-------------------------------Exicutable starts here-------------------- - IF(WEIGHT.GE.1.0) THEN !Compute soil characteristics using weighting determined by fractional soil content - FWSAT =0 - FWFC =0 - FWWLT =0 - FB =0 - FCGSAT=0 - FJP =0 - FAS =0 - FC2R =0 - FC1SAT=0 - TFRACBOT =0 - CFRAC=0 - - DO S=1,NSCAT - - IF(SOILCBOT(S).GE.CFRAC) THEN - ISTI=S - CFRAC=SOILCBOT(S) - ENDIF - - TFRACBOT=TFRACBOT+SOILCBOT(S) - FWSAT =FWSAT + WSAT(S) *SOILCBOT(S) - FWFC =FWFC + WFC(S) *SOILCBOT(S) - FWWLT =FWWLT + WWLT(S) *SOILCBOT(S) - FB =FB + B(S) *SOILCBOT(S) - FCGSAT=FCGSAT + CGSAT(S) *SOILCBOT(S) - FJP =FJP + JP(S) *SOILCBOT(S) - FAS =FAS + AS(S) *SOILCBOT(S) - FC2R =FC2R + C2R(S) *SOILCBOT(S) - FC1SAT=FC1SAT + C1SAT(S) *SOILCBOT(S) - - ENDDO - - TFRACBOT = 1/TFRACBOT - FWSAT =FWSAT * TFRACBOT - FWFC =FWFC * TFRACBOT - FWWLT =FWWLT * TFRACBOT - FB =FB * TFRACBOT - FCGSAT=FCGSAT * TFRACBOT - FJP =FJP * TFRACBOT - FAS =FAS * TFRACBOT - FC2R =FC2R * TFRACBOT - FC1SAT=FC1SAT * TFRACBOT - - ELSE !Compute soil characteristics by sand and clay fraction +! Compute soil characteristics by sand (coarse and fine-medium) and clay fraction CFRAC = 0.0 - SUMSND = 0.0 + SUMCSND = 0.0 + SUMFMSND = 0.0 SUMCLY = 0.0 TFRACBOT = 0.0 - DO S = 1,12 + DO S = 1,NSCAT TFRACBOT = TFRACBOT + SOILCBOT(S) - SUMSND = SUMSND + SAND(S) * SOILCBOT(S) - SUMCLY = SUMCLY + CLAY(S) * SOILCBOT(S) - + SUMCSND = SUMCSND + CSAND(S) * SOILCBOT(S) + SUMFMSND = SUMFMSND + FMSAND(S) * SOILCBOT(S) + SUMCLY = SUMCLY + CLAY(S) * SOILCBOT(S) + IF(SOILCBOT(S).GE.CFRAC) THEN ! Find Dominant Category and fraction ISTI=S CFRAC=SOILCBOT(S) ENDIF ENDDO + IF(TFRACBOT.GT.0.001) THEN - AVS = SUMSND / TFRACBOT - AVC = SUMCLY / TFRACBOT - AVSLT = 100 - AVS - AVC + AVCS = SUMCSND / TFRACBOT + AVFMS = SUMFMSND / TFRACBOT + AVS = AVCS + AVFMS + + AVC = SUMCLY / TFRACBOT + AVSLT = 100.0 - AVS - AVC IF(AVS.GT.(85.+ 0.5*AVC)) THEN AVCLASS= 'Sand' - ISTI = 1 + ISTI = 1 ELSE IF(AVS.GT.(70.+ AVC)) THEN AVCLASS= 'Lsan' - ISTI = 2 + ISTI = 2 ELSE IF((AVC.LT.20..AND.AVS.GT.52.) & .OR.(AVC.LE.7.5.AND.AVSLT.LT.50.)) THEN AVCLASS= 'Sloa' - ISTI = 3 + ISTI = 3 ELSE IF(AVC.LT.35..AND.AVS.GT.45..AND.AVSLT.LT.28.) THEN AVCLASS= 'Sclo' - ISTI = 6 + ISTI = 7 ELSE IF(AVC.GE.35..AND.AVS.GT.45.) THEN AVCLASS = 'Sacl' - ISTI = 9 + ISTI = 10 ELSE IF(AVC.LT.27.0.AND.AVSLT.LT.50.) THEN AVCLASS= 'Loam' - ISTI = 5 + ISTI = 6 ELSE IF(AVC.LT.12..AND.AVSLT.GT.80.) THEN AVCLASS = 'Silt' - ISTI = 4 + ISTI = 5 ELSE IF(AVC.LT.27.) THEN AVCLASS = 'Sill' - ISTI = 4 + ISTI = 4 ELSE IF(AVC.LT.40..AND.AVS.GT.20.) THEN AVCLASS = 'Cllo' - ISTI = 8 + ISTI = 9 ELSE IF(AVC.LT.40.) THEN AVCLASS = 'Sicl' - ISTI = 7 + ISTI = 8 ELSE IF(AVSLT.GE.40.) THEN AVCLASS = 'Sicy' - ISTI = 10 + ISTI = 11 ELSE AVCLASS = 'Clay' - ISTI = 11 + ISTI = 12 ENDIF ELSE - ISTI=5 + ! set no soil to 9 - clay loam + ISTI = 9 AVCLASS = TEXID(ISTI) + + AVCS = CSAND(ISTI) + AVFMS = FMSAND(ISTI) + AVS = AVCS + AVFMS + + AVC = CLAY(ISTI) + AVSLT = 100.0 - AVS - AVC + ENDIF + + FCSAND = AVCS + FFMSAND = AVFMS + FCLAY = AVC - FWSAT =WSAT(ISTI) - FWFC =WFC(ISTI) - FWWLT =WWLT(ISTI) - FB =B(ISTI) - FCGSAT=CGSAT(ISTI) - FJP =JP(ISTI) - FAS =AS(ISTI) - FC2R =C2R(ISTI) - FC1SAT=C1SAT(ISTI) + ! Continous formulation of secondary soil parmeters (Noilhan and Mahfouf 1996) + FWSAT = (-1.08 * AVS + 494.305) * 1.0E-3 + FWWLT = 37.1342E-3 * SQRT(AVC) + FWFC = 89.0467E-3 * AVC**0.3496 + FB = 0.137 * AVC + 3.501 + FCGSAT= -1.557E-2 * AVS - 1.441E-2 * AVC + 4.7021 + FC1SAT= (5.58 * AVC + 84.88) * 1.0E-2 + FC2R = 13.815 * AVC**(-0.954) + FC3 = 5.327 * AVC **(-1.043) + FAS = 732.42E-3 * AVC **(-0.539) + FJP = 0.134 * AVC + 3.4 + FWRES = 0.00123 * AVC - 0.00066 * AVSLT + 0.0405 !J. Pleim fitted function + FWRES = AMAX1(FWRES, 0.01) !L. Ran set minimum + + !SSMPOT = -10.0 * 10.0**(1.88 - 0.0131 * AVS) !compute saturated mineral soil matric potential CLM4.5 + !FWRES = FWSAT * (SSMPOT/DSMPOT)**(1.0 / FB) !Swenson and Lawrence 2014, Dingman 2002 - ENDIF ! Compute W2 using soil moisture availiability if pxlsm_smois_init (in namelist) is not zero IF (ITIMESTEP .EQ. 1 .AND. PXLSM_SMOIS_INIT .GT. 0) THEN @@ -1848,7 +1941,6 @@ END SUBROUTINE soilprop !------------------------------------------------------------------------------------------ !------------------------------------------------------------------------------------------ - !------------------------------------------------------------------------------------------ !------------------------------------------------------------------------------------------ SUBROUTINE PXSNOW (ITIMESTEP, ASNOW, CSNOW, SNOW, & diff --git a/phys/module_sf_sfcdiags.F b/phys/module_sf_sfcdiags.F index 5f22012477..4c88ead386 100644 --- a/phys/module_sf_sfcdiags.F +++ b/phys/module_sf_sfcdiags.F @@ -50,7 +50,11 @@ SUBROUTINE SFCDIAGS(HFX,QFX,TSK,QSFC,CHS2,CQS2,T2,TH2,Q2, & IF ( UA_PHYS ) THEN Q2(I,J) = QSFC(I,J) - CHS(I,J)/CQS2(I,J)*(QSFC(I,J) - QV3D(i,1,j)) ELSE +#if (HWRF==1) + Q2(I,J) = QSFC(I,J) - amax1(amin1(CHS(I,J)/CQS2(I,J),0.0),2.0)*(QSFC(I,J) - QV3D(i,1,j)) +#else Q2(I,J) = QSFC(I,J) - QFX(I,J)/(RHO*CQS2(I,J)) +#endif ENDIF endif if(CHS2(I,J).lt.1.E-5) then @@ -59,7 +63,11 @@ SUBROUTINE SFCDIAGS(HFX,QFX,TSK,QSFC,CHS2,CQS2,T2,TH2,Q2, & IF ( UA_PHYS ) THEN T2(I,J) = TSK(I,J) - CHS(I,J)/CHS2(I,J)*(TSK(I,J) - T3D(i,1,j)) ELSE +#if (HWRF==1) + T2(I,J) = TSK(I,J) - amax1(amin1(CHS(I,J)/CHS2(I,J),0.0),2.0)*(TSK(I,J) - T3D(i,1,j)) +#else T2(I,J) = TSK(I,J) - HFX(I,J)/(RHO*CP*CHS2(I,J)) +#endif ENDIF endif TH2(I,J) = T2(I,J)*(1.E5/PSFC(I,J))**ROVCP diff --git a/phys/module_sf_sfclay.F b/phys/module_sf_sfclay.F index 4d606672fe..73e3cea1de 100644 --- a/phys/module_sf_sfclay.F +++ b/phys/module_sf_sfclay.F @@ -24,9 +24,8 @@ SUBROUTINE SFCLAY(U3D,V3D,T3D,QV3D,P3D,dz8w, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte, & - ustm,ck,cka,cd,cda,isftcflx,iz0tlnd,scm_force_flux & - ,dxCell & - ) + ustm,ck,cka,cd,cda, & + isftcflx,iz0tlnd,scm_force_flux) !------------------------------------------------------------------- IMPLICIT NONE !------------------------------------------------------------------- @@ -174,8 +173,14 @@ SUBROUTINE SFCLAY(U3D,V3D,T3D,QV3D,P3D,dz8w, & REAL, DIMENSION( ims:ime, jms:jme ) , & INTENT(INOUT) :: & QGH +#if defined(mpas) + REAL, INTENT(IN ) :: CP,G,ROVCP,R,XLV + REAL, DIMENSION( ims:ime, jms:jme ) , & + INTENT(IN ) :: DX +#else REAL, INTENT(IN ) :: CP,G,ROVCP,R,XLV,DX +#endif REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ) , & INTENT(OUT) :: ck,cka,cd,cda @@ -186,9 +191,8 @@ SUBROUTINE SFCLAY(U3D,V3D,T3D,QV3D,P3D,dz8w, & INTEGER, OPTIONAL, INTENT(IN ) :: ISFTCFLX, IZ0TLND INTEGER, OPTIONAL, INTENT(IN ) :: SCM_FORCE_FLUX - real,intent(in),dimension(ims:ime,jms:jme),optional:: dxCell - - real,intent(inout),dimension(ims:ime,jms:jme):: qsfc + REAL, DIMENSION( ims:ime, jms:jme ) , & + INTENT(INOUT ) :: QSFC REAL, DIMENSION( ims:ime, jms:jme ) , & INTENT(OUT ) :: U10, & @@ -207,9 +211,22 @@ SUBROUTINE SFCLAY(U3D,V3D,T3D,QV3D,P3D,dz8w, & REAL, DIMENSION( its:ite ) :: dz8w1d + REAL, DIMENSION( its:ite ) :: DX2D + INTEGER :: I,J DO J=jts,jte + +#if defined(mpas) + DO i=its,ite + DX2D(i)=DX(i,j) + ENDDO +#else + DO i=its,ite + DX2D(i)=DX + ENDDo +#endif + DO i=its,ite dz8w1d(I) = dz8w(i,1,j) ENDDO @@ -235,20 +252,16 @@ SUBROUTINE SFCLAY(U3D,V3D,T3D,QV3D,P3D,dz8w, & U10(ims,j),V10(ims,j),TH2(ims,j),T2(ims,j), & Q2(ims,j),FLHC(ims,j),FLQC(ims,j),QGH(ims,j), & QSFC(ims,j),LH(ims,j), & - GZ1OZ0(ims,j),WSPD(ims,j),BR(ims,j),ISFFLX,DX, & + GZ1OZ0(ims,j),WSPD(ims,j),BR(ims,j),ISFFLX,DX2D, & SVP1,SVP2,SVP3,SVPT0,EP1,EP2,KARMAN,EOMEG,STBOLT, & P1000mb, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte & -#if defined(mpas) - ,isftcflx,iz0tlnd,scm_force_flux, & - USTM(ims,j),CK(ims,j),CKA(ims,j), & - CD(ims,j),CDA(ims,j),dxCell(ims,j) & -#elif ( EM_CORE == 1) +#if ( EM_CORE == 1 ) ,isftcflx,iz0tlnd,scm_force_flux, & USTM(ims,j),CK(ims,j),CKA(ims,j), & - CD(ims,j),CDA(ims,j) & + CD(ims,j),CDA(ims,j) & #endif ) ENDDO @@ -271,7 +284,7 @@ SUBROUTINE SFCLAY1D(J,UX,VX,T1D,QV1D,P1D,dz8w1d, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte, & isftcflx, iz0tlnd, scm_force_flux, & - ustm,ck,cka,cd,cda,dxCell ) + ustm,ck,cka,cd,cda ) !------------------------------------------------------------------- IMPLICIT NONE !------------------------------------------------------------------- @@ -325,14 +338,14 @@ SUBROUTINE SFCLAY1D(J,UX,VX,T1D,QV1D,P1D,dz8w1d, & INTENT(INOUT) :: & QGH - REAL, DIMENSION( ims:ime ), INTENT(INOUT) :: QSFC - REAL, DIMENSION( ims:ime ) , & INTENT(OUT) :: U10,V10, & - TH2,T2,Q2,LH + TH2,T2,Q2,QSFC,LH - REAL, INTENT(IN ) :: CP,G,ROVCP,R,XLV,DX + REAL, INTENT(IN ) :: CP,G,ROVCP,R,XLV + + REAL, DIMENSION( its:ite ), INTENT(IN ) :: DX ! MODULE-LOCAL VARIABLES, DEFINED IN SUBROUTINE SFCLAY REAL, DIMENSION( its:ite ), INTENT(IN ) :: dz8w1d @@ -343,8 +356,6 @@ SUBROUTINE SFCLAY1D(J,UX,VX,T1D,QV1D,P1D,dz8w1d, & P1D, & T1D - real,intent(in),dimension(ims:ime),optional:: dxCell - REAL, OPTIONAL, DIMENSION( ims:ime ) , & INTENT(OUT) :: ck,cka,cd,cda REAL, OPTIONAL, DIMENSION( ims:ime ) , & @@ -521,11 +532,7 @@ SUBROUTINE SFCLAY1D(J,UX,VX,T1D,QV1D,P1D,dz8w1d, & VCONV = SQRT(DTHVM) endif ! Mahrt and Sun low-res correction - if(present(dxCell)) then - vsgd = 0.32 * (max(dxCell(i)/5000.-1.,0.))**.33 - else - VSGD = 0.32 * (max(dx/5000.-1.,0.))**.33 - endif + VSGD = 0.32 * (max(dx(i)/5000.-1.,0.))**.33 WSPD(I)=SQRT(WSPD(I)*WSPD(I)+VCONV*VCONV+vsgd*vsgd) WSPD(I)=AMAX1(WSPD(I),0.1) BR(I)=GOVRTH(I)*ZA(I)*DTHVDZ/(WSPD(I)*WSPD(I)) diff --git a/phys/module_sf_urban.F b/phys/module_sf_urban.F index 303b7d21cf..e0bffadef4 100644 --- a/phys/module_sf_urban.F +++ b/phys/module_sf_urban.F @@ -26,6 +26,8 @@ MODULE module_sf_urban REAL, ALLOCATABLE, DIMENSION(:) :: FRC_URB_TBL REAL, ALLOCATABLE, DIMENSION(:) :: COP_TBL + REAL, ALLOCATABLE, DIMENSION(:) :: BLDAC_FRC_TBL + REAL, ALLOCATABLE, DIMENSION(:) :: COOLED_FRC_TBL REAL, ALLOCATABLE, DIMENSION(:) :: PWIN_TBL REAL, ALLOCATABLE, DIMENSION(:) :: BETA_TBL INTEGER, ALLOCATABLE, DIMENSION(:) :: SW_COND_TBL @@ -2101,6 +2103,10 @@ SUBROUTINE urban_param_init(DZR,DZB,DZG,num_soil_layers, & if(allocate_status /= 0) CALL wrf_error_fatal('Error allocating HPERCENT_BIN_TBL in urban_param_init') ALLOCATE( COP_TBL(ICATE), stat=allocate_status ) if(allocate_status /= 0) CALL wrf_error_fatal('Error allocating COP_TBL in urban_param_init') + ALLOCATE( BLDAC_FRC_TBL(ICATE), stat=allocate_status ) + if(allocate_status /= 0) CALL wrf_error_fatal('Error allocating BLDAC_FRC_TBL in urban_param_init') + ALLOCATE( COOLED_FRC_TBL(ICATE), stat=allocate_status ) + if(allocate_status /= 0) CALL wrf_error_fatal('Error allocating COOLED_FRC_TBL in urban_param_init') ALLOCATE( PWIN_TBL(ICATE), stat=allocate_status ) if(allocate_status /= 0) CALL wrf_error_fatal('Error allocating PWIN_TBL in urban_param_init') ALLOCATE( BETA_TBL(ICATE), stat=allocate_status ) @@ -2287,6 +2293,10 @@ SUBROUTINE urban_param_init(DZR,DZB,DZG,num_soil_layers, & read(string(indx+1:),*) Z0R_tbl(1:icate) else if ( name == "COP") then read(string(indx+1:),*) cop_tbl(1:icate) + else if ( name == "BLDAC_FRC") then + read(string(indx+1:),*) bldac_frc_tbl(1:icate) + else if ( name == "COOLED_FRC") then + read(string(indx+1:),*) cooled_frc_tbl(1:icate) else if ( name == "PWIN") then read(string(indx+1:),*) pwin_tbl(1:icate) else if ( name == "BETA") then @@ -2413,7 +2423,16 @@ SUBROUTINE urban_var_init(ISURBAN, TSURFACE0_URB,TLAYER0_URB,TDEEP0_URB,IVGTYP, TRL_URB3D,TBL_URB3D,TGL_URB3D, & ! inout SH_URB2D,LH_URB2D,G_URB2D,RN_URB2D, & ! inout TS_URB2D, & ! inout - num_urban_layers, & ! in + num_urban_ndm, & ! in + urban_map_zrd, & ! in + urban_map_zwd, & ! in + urban_map_gd, & ! in + urban_map_zd, & ! in + urban_map_zdf, & ! in + urban_map_bd, & ! in + urban_map_wd, & ! in + urban_map_gbd, & ! in + urban_map_fbd, & ! in num_urban_hi, & ! in TRB_URB4D,TW1_URB4D,TW2_URB4D,TGB_URB4D, & ! inout TLEV_URB3D,QLEV_URB3D, & ! inout @@ -2439,7 +2458,16 @@ SUBROUTINE urban_var_init(ISURBAN, TSURFACE0_URB,TLAYER0_URB,TDEEP0_URB,IVGTYP, INTEGER, INTENT(IN) :: ISURBAN, sf_urban_physics INTEGER, INTENT(IN) :: LOW_DENSITY_RESIDENTIAL, HIGH_DENSITY_RESIDENTIAL, HIGH_INTENSITY_INDUSTRIAL INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme,num_soil_layers - INTEGER, INTENT(IN) :: num_urban_layers !multi-layer urban + INTEGER, INTENT(IN) :: num_urban_ndm + INTEGER, INTENT(IN) :: urban_map_zrd + INTEGER, INTENT(IN) :: urban_map_zwd + INTEGER, INTENT(IN) :: urban_map_gd + INTEGER, INTENT(IN) :: urban_map_zd + INTEGER, INTENT(IN) :: urban_map_zdf + INTEGER, INTENT(IN) :: urban_map_bd + INTEGER, INTENT(IN) :: urban_map_wd + INTEGER, INTENT(IN) :: urban_map_gbd + INTEGER, INTENT(IN) :: urban_map_fbd INTEGER, INTENT(IN) :: num_urban_hi !multi-layer urban ! INTEGER, INTENT(IN) :: num_roof_layers, num_wall_layers, num_road_layers @@ -2484,28 +2512,28 @@ SUBROUTINE urban_var_init(ISURBAN, TSURFACE0_URB,TLAYER0_URB,TDEEP0_URB,IVGTYP, REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: TS_URB2D ! multi-layer UCM variables - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TRB_URB4D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TW1_URB4D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TW2_URB4D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TGB_URB4D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: TLEV_URB3D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: QLEV_URB3D - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW1LEV_URB3D - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TW2LEV_URB3D - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TGLEV_URB3D - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: TFLEV_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_zrd, jms:jme), INTENT(INOUT) :: TRB_URB4D + REAL, DIMENSION(ims:ime, 1:urban_map_zwd, jms:jme), INTENT(INOUT) :: TW1_URB4D + REAL, DIMENSION(ims:ime, 1:urban_map_zwd, jms:jme), INTENT(INOUT) :: TW2_URB4D + REAL, DIMENSION(ims:ime, 1:urban_map_gd , jms:jme), INTENT(INOUT) :: TGB_URB4D + REAL, DIMENSION(ims:ime, 1:urban_map_bd , jms:jme), INTENT(INOUT) :: TLEV_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_bd , jms:jme), INTENT(INOUT) :: QLEV_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_wd , jms:jme), INTENT(INOUT) :: TW1LEV_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_wd , jms:jme), INTENT(INOUT) :: TW2LEV_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_gbd, jms:jme), INTENT(INOUT) :: TGLEV_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_fbd, jms:jme), INTENT(INOUT) :: TFLEV_URB3D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LF_AC_URB3D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: SF_AC_URB3D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: CM_AC_URB3D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: SFVENT_URB3D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LFVENT_URB3D - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFWIN1_URB3D - REAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: SFWIN2_URB3D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFW1_URB3D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFW2_URB3D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFR_URB3D - REAL, DIMENSION(ims:ime, 1:num_urban_layers, jms:jme), INTENT(INOUT) :: SFG_URB3D - REAL, DIMENSION( ims:ime,1:num_urban_hi, jms:jme), INTENT(INOUT) :: HI_URB2D + REAL, DIMENSION( ims:ime, 1:urban_map_wd, jms:jme), INTENT(INOUT) :: SFWIN1_URB3D + REAL, DIMENSION( ims:ime, 1:urban_map_wd, jms:jme), INTENT(INOUT) :: SFWIN2_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_zd , jms:jme), INTENT(INOUT) :: SFW1_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_zd , jms:jme), INTENT(INOUT) :: SFW2_URB3D + REAL, DIMENSION(ims:ime, 1:urban_map_zdf, jms:jme), INTENT(INOUT) :: SFR_URB3D + REAL, DIMENSION(ims:ime, 1:num_urban_ndm, jms:jme), INTENT(INOUT) :: SFG_URB3D + REAL, DIMENSION( ims:ime,1:num_urban_hi , jms:jme), INTENT(INOUT) :: HI_URB2D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LP_URB2D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LB_URB2D REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: HGT_URB2D @@ -2786,7 +2814,6 @@ SUBROUTINE urban_var_init(ISURBAN, TSURFACE0_URB,TLAYER0_URB,TDEEP0_URB,IVGTYP, ! multi-layer urban ! IF( sf_urban_physics .EQ. 2)THEN IF((SF_URBAN_PHYSICS.eq.2).OR.(SF_URBAN_PHYSICS.eq.3)) THEN - DO k=1,num_urban_layers ! TRB_URB4D(I,k,J)=TSURFACE0_URB(I,J) ! TW1_URB4D(I,k,J)=TSURFACE0_URB(I,J) ! TW2_URB4D(I,k,J)=TSURFACE0_URB(I,J) @@ -2795,20 +2822,19 @@ SUBROUTINE urban_var_init(ISURBAN, TSURFACE0_URB,TLAYER0_URB,TDEEP0_URB,IVGTYP, !MT TW1_URB4D(I,K,J)=tlayer0_urb(I,1,J) !MT TW2_URB4D(I,K,J)=tlayer0_urb(I,1,J) IF (UTYPE_URB2D(I,J) > 0) THEN - TRB_URB4D(I,K,J)=TBLEND_TBL(UTYPE_URB2D(I,J)) - TW1_URB4D(I,K,J)=TBLEND_TBL(UTYPE_URB2D(I,J)) - TW2_URB4D(I,K,J)=TBLEND_TBL(UTYPE_URB2D(I,J)) + TRB_URB4D(I,:,J)=TBLEND_TBL(UTYPE_URB2D(I,J)) + TW1_URB4D(I,:,J)=TBLEND_TBL(UTYPE_URB2D(I,J)) + TW2_URB4D(I,:,J)=TBLEND_TBL(UTYPE_URB2D(I,J)) ELSE - TRB_URB4D(I,K,J)=tlayer0_urb(I,1,J) - TW1_URB4D(I,K,J)=tlayer0_urb(I,1,J) - TW2_URB4D(I,K,J)=tlayer0_urb(I,1,J) + TRB_URB4D(I,:,J)=tlayer0_urb(I,1,J) + TW1_URB4D(I,:,J)=tlayer0_urb(I,1,J) + TW2_URB4D(I,:,J)=tlayer0_urb(I,1,J) ENDIF - TGB_URB4D(I,K,J)=tlayer0_urb(I,1,J) - SFW1_URB3D(I,K,J)=0. - SFW2_URB3D(I,K,J)=0. - SFR_URB3D(I,K,J)=0. - SFG_URB3D(I,K,J)=0. - ENDDO + TGB_URB4D(I,:,J)=tlayer0_urb(I,1,J) + SFW1_URB3D(I,:,J)=0. + SFW2_URB3D(I,:,J)=0. + SFR_URB3D(I,:,J)=0. + SFG_URB3D(I,:,J)=0. ENDIF @@ -2819,21 +2845,19 @@ SUBROUTINE urban_var_init(ISURBAN, TSURFACE0_URB,TLAYER0_URB,TDEEP0_URB,IVGTYP, SFVENT_URB3D(I,J)=0. LFVENT_URB3D(I,J)=0. - DO K=1,num_urban_layers - TLEV_URB3D(I,K,J)=tlayer0_urb(I,1,J) - TW1LEV_URB3D(I,K,J)=tlayer0_urb(I,1,J) - TW2LEV_URB3D(I,K,J)=tlayer0_urb(I,1,J) - TGLEV_URB3D(I,K,J)=tlayer0_urb(I,1,J) - TFLEV_URB3D(I,K,J)=tlayer0_urb(I,1,J) - QLEV_URB3D(I,K,J)=0.01 - SFWIN1_URB3D(I,K,J)=0. - SFWIN2_URB3D(I,K,J)=0. + TLEV_URB3D(I,:,J)=tlayer0_urb(I,1,J) + TW1LEV_URB3D(I,:,J)=tlayer0_urb(I,1,J) + TW2LEV_URB3D(I,:,J)=tlayer0_urb(I,1,J) + TGLEV_URB3D(I,:,J)=tlayer0_urb(I,1,J) + TFLEV_URB3D(I,:,J)=tlayer0_urb(I,1,J) + QLEV_URB3D(I,:,J)=0.01 + SFWIN1_URB3D(I,:,J)=0. + SFWIN2_URB3D(I,:,J)=0. !rm LF_AC_URB3D(I,J)=0. !rm SF_AC_URB3D(I,J)=0. !rm CM_AC_URB3D(I,J)=0. !rm SFVENT_URB3D(I,J)=0. !rm LFVENT_URB3D(I,J)=0. - ENDDO endif @@ -2861,6 +2885,8 @@ SUBROUTINE urban_var_init(ISURBAN, TSURFACE0_URB,TLAYER0_URB,TDEEP0_URB,IVGTYP, IF (CHECK.EQ.0)THEN IF(IVGTYP(I,J).EQ.1)THEN + write(mesg,*) 'Sample of Urban settings' + call wrf_message(mesg) write(mesg,*) 'TSURFACE0_URB',TSURFACE0_URB(I,J) call wrf_message(mesg) write(mesg,*) 'TDEEP0_URB', TDEEP0_URB(I,J) diff --git a/phys/module_shallowcu_driver.F b/phys/module_shallowcu_driver.F index cbb7396628..e1a235c5c9 100644 --- a/phys/module_shallowcu_driver.F +++ b/phys/module_shallowcu_driver.F @@ -51,7 +51,19 @@ SUBROUTINE shallowcu_driver( & ! for grims shallow convection with ysupbl ,wstar,delta,kpbl,znu,raincv & ! for nscv shallow convection - ,w,xland,hfx,qfx,mp_physics,pgcon & + ,w,xland,hfx,qfx,mp_physics,pgcon & + ,RDCASHTEN, RQCDCSHTEN, W0AVG & + ,clddpthb, cldtopb & + ,cldareaa, cldareab, cldliqa, cldliqb & + ,cldfra_sh, ca_rad, cw_rad & + ,wub, pblmax, xlong & + ,rainshvb, capesave, radsave & + ,ainckfsa, ltopb & + ,kdcldtop, kdcldbas & + ,el_pbl, rthratenlw, rthratensw, exch_h & + ,dnw, xtime, xtime1, gmt & + ,qke,PBLHAVG, TKEAVG & + ,bl_pbl_physics & ) !---------------------------------------------------------------------- USE module_model_constants @@ -61,12 +73,15 @@ SUBROUTINE shallowcu_driver( & # endif , G3SHCUSCHEME & , GRIMSSHCUSCHEME & + , DENGSHCUSCHEME & , NSCVSHCUSCHEME ! *** add new modules of schemes here USE module_shcu_camuwshcu_driver, ONLY : camuwshcu_driver USE module_shcu_grims , ONLY : grims USE module_shcu_nscv , ONLY : shcu_nscv + USE module_shcu_deng, ONLY: deng_shcu_driver + USE module_dm USE module_domain, ONLY: domain #if ( WRF_CHEM == 1 ) @@ -274,7 +289,8 @@ SUBROUTINE shallowcu_driver( & REAL, DIMENSION( ims:ime , jms:jme ), INTENT(IN) :: & - MAVAIL,PBLH,ht +! MAVAIL,PBLH,ht + PBLH,ht REAL, DIMENSION( ims:ime , jms:jme ), & INTENT(INOUT) :: RAINSH & @@ -352,6 +368,53 @@ SUBROUTINE shallowcu_driver( & OPTIONAL, INTENT(IN ) :: hfx,qfx INTEGER, INTENT(IN), OPTIONAL :: mp_physics REAL, INTENT(IN), OPTIONAL :: pgcon + + +! PSU-DENG Shallow cu variables +! + INTEGER, INTENT(IN ) :: bl_pbl_physics + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & + INTENT(IN ) :: qke + + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & + INTENT(INOUT) :: RDCASHTEN, RQCDCSHTEN + + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & + INTENT(INOUT) :: cldareaa, cldareab, & + cldliqa, cldliqb, wub, & + W0AVG, TKEAVG + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & + INTENT( OUT) :: cldfra_sh, ca_rad, cw_rad + + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), & + INTENT(INOUT) :: el_pbl, rthratenlw, rthratensw, exch_h + + REAL, DIMENSION( kms:kme ), INTENT(IN ) :: & + dnw + + REAL, INTENT(IN ) :: xtime, gmt + + REAL, DIMENSION( ims:ime, jms:jme ), & + INTENT(INOUT) :: & + cldtopb, pblmax, rainshvb, capesave, radsave, & + clddpthb, xtime1, PBLHAVG, MAVAIL + + REAL, DIMENSION( ims:ime, jms:jme ), & + INTENT(IN ) :: xlong + + INTEGER, DIMENSION( ims:ime, jms:jme ), & + INTENT(INOUT) :: & + ltopb, kdcldtop, kdcldbas + + REAL, DIMENSION( ims:ime, 1:100, jms:jme ), & + INTENT(INOUT) :: & + ainckfsa + + REAL, DIMENSION( ims:ime, kms:kme, jms:jme ) :: tke_scr, kth_scr, bbls_scr +! +! End PSU-DENG Shallow cu variables +! + ! ! Flags relating to the optional tendency arrays declared above ! Models that carry the optional tendencies will provdide the @@ -508,6 +571,68 @@ SUBROUTINE shallowcu_driver( & CALL wrf_error_fatal('Lacking arguments for SHCU_NSCV in shallow cumulus driver') ENDIF + CASE (DENGSHCUSCHEME) + CALL wrf_debug(100,'in PSU-DENG Shallow Cu CPS') + + + IF ( bl_pbl_physics == 2 ) THEN ! MYJ + DO j=jts,jte + DO i=its,ite + DO k=kts,kte + tke_scr(I,K,J) = tke_pbl(I,K,J) + kth_scr(I,K,J) = exch_h(I,K,J) + bbls_scr(I,K,J) = el_pbl(I,K,J) + ENDDO + ENDDO + ENDDO + ELSE IF ( bl_pbl_physics == 5 ) THEN ! MYNN + DO j=jts,jte + DO i=its,ite + DO k=kts,kte + tke_scr(I,K,J) = 0.5 * qke(I,K,J) + kth_scr(I,K,J) = exch_h(I,K,J) + bbls_scr(I,K,J) = el_pbl(I,K,J) + ENDDO + ENDDO + ENDDO + ELSE + WRITE(message,*) 'PSU DENG ShCu currently does not support PBL option: ', & + bl_pbl_physics + CALL wrf_error_fatal ( message ) + STOP + ENDIF + CALL deng_shcu_driver( & + IDS=ids,IDE=ide,JDS=jds,JDE=jde,KDS=kds,KDE=kde & + ,IMS=ims,IME=ime,JMS=jms,JME=jme,KMS=kms,KME=kme & + ,ITS=its,ITE=ite,JTS=jts,JTE=jte,KTS=kts,KTE=kte & + ,DT=dt ,KTAU=itimestep ,DX=dx, xtime=xtime, gmt=gmt & + ,XLV=XLV, XLS=XLS & + ,XLV0=XLV0 ,XLV1=XLV1 ,XLS0=XLS0 ,XLS1=XLS1 & + ,CP=CP, R=R_d ,G=G & + ,SVP1=SVP1 ,SVP2=SVP2 ,SVP3=SVP3 ,SVPT0=SVPT0 & + ,ADAPT_STEP_FLAG=ADAPT_STEP_FLAG, DSIGMA=dnw & + ,XLONG=xlong, HT=ht, PBLH=pblh & + ,U=u,V=v, w=w, TH=th ,T=t & + ,QV=qv_curr, QC=qc_curr, QR=qr_curr, DZ8W=dz8w & + ,PCPS=p, RHO=rho, Z_AT_W=z_at_w, PI=pi & + ,TKE=tke_scr, kth=kth_scr, bbls=bbls_scr & + ,ten_radl=rthratenlw, ten_rads=rthratensw & + ,RAINSH=RAINSH, RAINSHV=RAINSHV,rainshvb=rainshvb & + ,pblmax=pblmax, capesave=capesave, xtime1=xtime1 & + ,radsave=radsave, clddpthb=clddpthb, cldtopb=cldtopb & + ,MAVAIL=MAVAIL, PBLHAVG=PBLHAVG & + ,ainckfsa=ainckfsa & + ,ltopb=ltopb, kdcldtop=kdcldtop, kdcldbas=kdcldbas & + ,W0AVG=W0AVG, TKEAVG=TKEAVG & + ,cldareaa=cldareaa, cldareab=cldareab & + ,cldliqa=cldliqa, cldliqb=cldliqb & + ,cldfra_sh=cldfra_sh,ca_rad=ca_rad, cw_rad=cw_rad, wub=wub & + ,RUSHTEN=rushten, RVSHTEN=rvshten, RTHSHTEN=rthshten & + ,RQVSHTEN=rqvshten, RQCSHTEN=rqcshten, RQRSHTEN=rqrshten & + ,RDCASHTEN=RDCASHTEN, RQCDCSHTEN=RQCDCSHTEN & + ) + + CASE DEFAULT WRITE( message , * ) 'The shallow cumulus option does not exist: shcu_physics = ', shcu_physics CALL wrf_error_fatal ( message ) diff --git a/phys/module_shcu_deng.F b/phys/module_shcu_deng.F new file mode 100644 index 0000000000..4a84bd74fd --- /dev/null +++ b/phys/module_shcu_deng.F @@ -0,0 +1,5428 @@ +!#define DENG_SHCU1D +!#define DENG_SHCU1D_subsidence +MODULE module_shcu_deng + + USE module_wrf_error + + REAL , PARAMETER :: TO = 263.15 +! Lookup table variables: + INTEGER, PARAMETER :: KFNT=250,KFNP=220 + REAL, DIMENSION(KFNT,KFNP),PRIVATE, SAVE :: TTAB,QSTAB + REAL, DIMENSION(KFNP),PRIVATE, SAVE :: THE0K + REAL, DIMENSION(200),PRIVATE, SAVE :: ALU + REAL, PRIVATE, SAVE :: RDPR,RDTHK,PLUTOP + +CONTAINS + + SUBROUTINE deng_shcu_driver( & + ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte & + ,DT,KTAU,DX, xtime, gmt & + ,XLV, XLS,XLV0,XLV1,XLS0,XLS1,CP,R,G & ! Constants + ,SVP1,SVP2,SVP3,SVPT0 & ! Constants + ,ADAPT_STEP_FLAG, DSIGMA & ! in + ,XLONG, ht, PBLH & ! in 2D + ,U,V,w,TH,T,QV,QC,QR,dz8w,PCPS,rho,z_at_w,pi & ! in 3D + ,tke, kth, bbls & + ,ten_radl, ten_rads & ! in 3D + ,rainsh, rainshv, rainshvb, pblmax, capesave & ! inout 2D + ,xtime1, radsave, clddpthb, cldtopb, MAVAIL, PBLHAVG & ! inout 2D + ,ainckfsa, ltopb, kdcldtop, kdcldbas & ! inout 2D + ,W0AVG, TKEAVG, cldareaa, cldareab & ! inout 3D + ,cldliqa, cldliqb, cldfra_sh, ca_rad, cw_rad, wub & ! inout 3D + ,RUSHTEN, RVSHTEN, RTHSHTEN, RQVSHTEN, RQCSHTEN & ! inout 3D + ,RQRSHTEN, RDCASHTEN, RQCDCSHTEN & ! inout 3D + ) +!------------------------------------------------------------- + IMPLICIT NONE +! ------------ IN --------------------------------------------- + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + REAL, INTENT(IN ) :: DT, DX, xtime, gmt + INTEGER, INTENT(IN ) :: KTAU + REAL, INTENT(IN ) :: XLV, XLS,XLV0,XLV1,XLS0,XLS1,CP,R,G, & + SVP1,SVP2,SVP3,SVPT0 + LOGICAL , INTENT(IN ) :: adapt_step_flag + REAL, DIMENSION( kms:kme ), INTENT(IN ) :: dsigma + + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(IN ) :: xlong, ht, pblh + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , & + INTENT(IN ) :: U, V, W, TH, T, QV, QR, dz8w, Pcps, & + rho, z_at_w, pi, tke, & + kth, bbls, ten_radl, ten_rads +! ------------ INOUT ------------------------------------------ + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: RAINSHV, RAINSH, pblmax, cldtopb, clddpthb, & + rainshvb, capesave, xtime1, radsave, & + MAVAIL, PBLHAVG + + REAL, DIMENSION( ims:ime , 1:100, jms:jme ), & + INTENT(INOUT) :: ainckfsa + INTEGER, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: ltopb, kdcldtop, kdcldbas + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , & + INTENT(INOUT) :: W0AVG, TKEAVG, QC, & + cldareaa, cldareab, cldliqa, cldliqb, wub + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , & + INTENT( OUT) :: ca_rad, cw_rad, cldfra_sh + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(INOUT) :: RUSHTEN, RVSHTEN, RTHSHTEN, RQVSHTEN, RQCSHTEN, & + RQRSHTEN, RDCASHTEN, RQCDCSHTEN +! +! Local Variables +! + REAL, DIMENSION( its:ite , jts:jte ) :: CAPEI, RADIUSC, AINCKFI + REAL, DIMENSION( kts:kte ) :: U1D, V1D, TH1D, T1D, DZ1D, QV1D, & + QC1D, RH1D, QR1D, P1D, z1d, RHO1D, W0AVG1D, & + kth1D, tke1d, bbls1D, & +#ifdef DENG_SHCU1D + ca_rad1d, & +#endif + ten_radl1d, ten_rads1d + REAL, DIMENSION( kts:kte+1 ) :: z_at_w1d + REAL, DIMENSION( kts:kte ) :: QVTEN, QCTEN, QRTEN, TTEN, DCATEN, QCDCTEN + REAL, DIMENSION( its:ite , jts:jte ) :: pblh_tile, pblhavg_tile + REAL, DIMENSION( its:ite , kts:kte , jts:jte ) :: w_at_half, w_at_half_mean + REAL, DIMENSION( its:ite , kts:kte , jts:jte ) :: tke_tile, tkeavg_tile + REAL, DIMENSION( its:ite , kts:kte , jts:jte ) :: cldareac, cldliqc, rh + + REAL :: dt2, DXSQ + INTEGER :: i, j, k, ii, ntst, kk + REAL :: AMOIS, time_period_avg_min ! time window to perform a running mean value + INTEGER :: if_avg_w=1, if_avg_pbl=0, if_avg_tke=0 + REAL :: GNUHF, OMUHF + REAL :: es, qes, alf1, alf2, alf3, c1, c2, cs, qctot +#ifdef DENG_SHCU1D_subsidence + REAL, DIMENSION(100) :: P_P, WSUBS_P + REAL, DIMENSION(kte) :: P_SIGMA, WSUBSID, WSUBSID_td, thten_sub + REAL, DIMENSION(kte+1) :: th_full +#endif + INTEGER :: kx, kxp1, kl + + dxsq = dx*dx + dt2 = 2.0*dt + GNUHF = 0.1 + OMUHF = 1.-2.*GNUHF + kx = kte + kl = kte + kxp1 = kx + 1 + +! print*, ids, ide, jds, jde, kds, kde +! print*, ims, ime, jms, jme, kms, kme +! print*, its, ite, jts, jte, kts, kte + +#ifdef DENG_SHCU1D + write(301,*) xtime/60.,pblh(1,1) +#ifdef DENG_SHCU1D_subsidence + OPEN(3,FILE='input03.dat',STATUS='old') + READ(3,*) + DO K=1,35 + READ(3,*) P_P(K),WSUBS_P(K) ! SUBSIDENCE IN CM/SEC. (from Betts 1994) + ENDDO + CLOSE(3) +#endif +#endif +! +! Time averaging w on the half levels +! + IF( if_avg_w == 1 ) THEN + time_period_avg_min = 10.0 + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + w_at_half(i,k,j) = 0.5* ( w(i,k,j) + w(i,k+1,j) ) + w_at_half_mean(i,k,j) = w0avg(i,k,j) + ENDDO + ENDDO + ENDDO + CALL time_avg_3d( dt, ADAPT_STEP_FLAG, time_period_avg_min & + ,w_at_half, w_at_half_mean & + ,its,ite, jts,jte, kts,kte & + ) + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + w0avg(i,k,j) = w_at_half_mean(i,k,j) + ENDDO + ENDDO + ENDDO + ELSE + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + w_at_half(i,k,j) = 0.5* ( w(i,k,j) + w(i,k+1,j) ) + w0avg(i,k,j) = w_at_half(i,k,j) + ENDDO + ENDDO + ENDDO + ENDIF +! +! Time averaging PBLH +! + IF( if_avg_pbl == 1 ) THEN + time_period_avg_min = 120.0 + DO J = jts,jte + DO I = its,ite + pblh_tile(i,j) = pblh(i,j) + pblhavg_tile(i,j) = pblhavg(i,j) + ENDDO + ENDDO + CALL time_avg_2d( dt, ADAPT_STEP_FLAG, time_period_avg_min & + ,pblh_tile, pblhavg_tile & + ,its,ite, jts,jte & + ) + DO J = jts,jte + DO I = its,ite + pblhavg(i,j) = pblhavg_tile(i,j) + ENDDO + ENDDO + ELSE + DO J = jts,jte + DO I = its,ite + pblh_tile(i,j) = pblh(i,j) + pblhavg(i,j) = pblh_tile(i,j) + ENDDO + ENDDO + ENDIF +#ifdef DENG_SHCU1D + write(302,*) xtime/60.,PBLHAVG(1,1) +#endif +! +! Time averaging TKE +! + IF( if_avg_tke == 1 ) THEN + time_period_avg_min = 30.0 + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + tke_tile(i,k,j) = tke(i,k,j) + tkeavg_tile(i,k,j) = tkeavg(i,k,j) + ENDDO + ENDDO + ENDDO + CALL time_avg_3d( dt, ADAPT_STEP_FLAG, time_period_avg_min & + ,tke_tile, tkeavg_tile & + ,its,ite, jts,jte, kts,kte & + ) + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + tkeavg(i,k,j) = tkeavg_tile(i,k,j) + ENDDO + ENDDO + ENDDO + ELSE + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + tke_tile(i,k,j) = tke(i,k,j) + tkeavg(i,k,j) = tke_tile(i,k,j) + ENDDO + ENDDO + ENDDO + ENDIF +! +! Calculate the RH-based cloud fraction, CS, based on Xu and Randall (1996, JAS) +! As shown in Deng et al. 2003a, the virtual cloud fraction CAREA is a wighted average +! of Deng scheme-predicted cloud fraction, CLDLIQA and CS. This effective cloud +! fraction is used in the radiation calculation. +! + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + IF( T(i,k,j) .GE. TO ) THEN + ES=1.E3*SVP1*EXP(SVP2*(T(i,k,j)-SVPT0)/(T(i,k,j)-SVP3)) + ELSE + ES=611.0*EXP(22.514-6.15E3/T(i,k,j)) + ENDIF + QES = 0.622*ES/(PCPS(i,k,j)-ES) + RH(i,k,j)=AMAX1(QV(i,k,j)/QES,1.0E-25) + + alf1 = 0.25 + alf2 = 0.49 + alf3 = 100.0 + IF( RH(I,K,J) .LT. 0.999) THEN + C1=(1.0-RH(I,K,J))*QES**alf2 + QCTOT=CLDLIQA(I,K,J)*CLDAREAA(I,K,J)+QC(I,K,J) + C2=-alf3*QCTOT/C1 + CS=RH(I,K,J)**alf1*(1.0-EXP(C2)) + ELSE + CS=1.0 + ENDIF + + CA_RAD(I,K,J)=(1.0-CLDAREAA(I,K,J))*CS+CLDAREAA(I,K,J) + CLDFRA_SH(I,K,J)= CA_RAD(I,K,J) +! CW_RAD(I,K,J)=CLDLIQA(I,K,J)+QC(I,K,J) + CW_RAD(I,K,J)=CLDLIQA(I,K,J)*CLDAREAA(I,K,J) + QC(I,K,J) + ENDDO + ENDDO + ENDDO + + DO J = jts,jte + DO I = its,ite + DO k=kts,kte + QVTEN(k)=0. + QCTEN(k)=0. + QRTEN(k)=0. + TTEN(k)=0. + DCATEN(k)=0. + QCDCTEN(k)=0. + ENDDO + RAINSHV(I,J)=0. + RAINSH(I,J)=0. + + DO K=kts,kte + U1D(K) =U(I,K,J) + V1D(K) =V(I,K,J) + TH1D(K) =TH(I,K,J) + T1D(K) =T(I,K,J) + W0AVG1D(k) = W0AVG(i,k,j) + tke1d(k) = tkeavg(i,k,j) + RHO1D(K) =rho(I,K,J) + QV1D(K)=QV(I,K,J) + RH1D(K)=RH(I,K,J) +#ifdef DENG_SHCU1D + ca_rad1d(k) = ca_rad(i,k,j) +#endif + QC1D(K)=QC(I,K,J) + QR1D(K)=QR(I,K,J) + P1D(K) =Pcps(I,K,J) + DZ1D(k)=dz8w(I,K,J) + kth1d(k) = kth(i,k,j) + bbls1d(k) = bbls(i,k,j) + ten_radl1d(k) = ten_radl(i,k,j) + ten_rads1d(k) = ten_rads(i,k,j) + ENDDO + + DO K=kts,kte+1 + z_at_w1d(k) = z_at_w(I,K,J) + ENDDO + +#ifdef DENG_SHCU1D_subsidence + DO K=1,KL + kk = KL - K + 1 + P_SIGMA(K) = p1d(kk)/100.0 + ENDDO + CALL INTERP1D( P_SIGMA, P_P, WSUBS_P, WSUBSID_td, KX, 35 ) + DO K = 1,KX + kk = KX - K + 1 + WSUBSID(K) = WSUBSID_td(KK)/100.0 ! convert to m/s (READ IN INPUT2.F) + ENDDO + DO K = 2,KX + th_full(K) = 0.5*( th1d(k)+th1d(k-1) ) + ENDDO + DO K = 2,KX-1 + thten_sub(K) = - WSUBSID(K) * ( th_full(K+1)-th_full(K) ) / dz1d(k) + ENDDO + thten_sub(1) = 0.0 + thten_sub(kx) = 0.0 +#endif + CALL deng_shcu(I, J, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte, & + XLV,XLS,XLV0,XLV1,XLS0,XLS1,CP,R,G, & + SVP1,SVP2,SVP3,SVPT0, & + DT, ktau, dt2, DX, DXSQ, xtime, gmt, & + PBLHAVG(i,j), ht(i,j), xlong, capesave, radsave, ainckfsa, & + U1D,V1D,T1D,QV1D,rh1d,QC1D,QR1D,p1d,RHO1D,z_at_w1d,DZ1D,W0AVG1D, & +#ifdef DENG_SHCU1D + ca_rad1d, & ! for 1d printing only +#endif + tke1d, kth1d, bbls1d, ten_radl1d, ten_rads1d, dsigma, & + RAINSHV, RAINSH, pblmax, CLDTOPB, CLDDPTHB, & + ltopb, kdcldtop, kdcldbas, & + cldareab, cldliqb, wub, & + CAPEI, RADIUSC, AINCKFI, & + QVTEN,QCTEN,QRTEN,TTEN,DCATEN,QCDCTEN & + ) + + DO K=kts,kte + RUSHTEN(i,k,j) = 0.0 + RVSHTEN(i,k,j) = 0.0 + RTHSHTEN(i,k,j) = TTEN(k)/pi(I,K,J) * 1.0 +#ifdef DENG_SHCU1D_subsidence + RTHSHTEN(i,k,j) = RTHSHTEN(i,k,j) + thten_sub(k) +#endif + RQVSHTEN(i,k,j) = QVTEN(k) * 1.0 + RQCSHTEN(i,k,j) = QCTEN(k) * 1.0 + RQRSHTEN(i,k,j) = QRTEN(k) * 1.0 + RDCASHTEN(i,k,j) = DCATEN(K) * 1.0 + RQCDCSHTEN(i,k,j) = QCDCTEN(K) * 1.0 + ENDDO +! +! IF THERE IS CONVECTIVE PRECIPITATION, UPDATE THE SURFACE MOISTURE +! AVAILABILITY THAT THE SURFACE IS WET FOR THE FOLLOWING HOUR +! + IF(RAINSHV(I,J) .EQ. 0.0 .AND. RAINSHVB(I,J) .NE. 0.0) THEN + XTIME1(I,J)=XTIME+60. + ENDIF + + AMOIS = MAVAIL(I,J) + IF(RAINSHV(I,J) .NE. 0.0 .OR. XTIME .LE. XTIME1(I,J)) THEN + MAVAIL(I,J)=AMOIS+0.67*(1.0-AMOIS) + ELSE + MAVAIL(I,J)=AMOIS + ENDIF + + RAINSHVB(I,J)=RAINSHV(I,J) + DO II = 100,2,-1 + AINCKFSA(i,ii,j) = AINCKFSA(i,ii-1,j) + ENDDO + RADSAVE(I,J)=RADIUSC(i,j) + AINCKFSA(i,1,j) = AINCKFI(i,j) + CAPESAVE(i,j) = CAPEI(i,j) + + ENDDO ! i-loop + ENDDO ! j-loop +! +! NBC prediction using the MM5 leapfog method +! + DO J = jts,jte + DO I = its,ite + DO K = kts,kte + CLDAREAC(I,K,J) = CLDAREAB(I,K,J) + RDCASHTEN(I,K,J) * DT + CLDLIQC(I,K,J) = CLDLIQB(I,K,J) + RQCDCSHTEN(I,K,J) * DT + CLDAREAC(I,K,J) = AMAX1(0.0,CLDAREAC(I,K,J)) + CLDLIQC(I,K,J) = AMAX1(0.0,CLDLIQC(I,K,J)) + IF( CLDAREAC(I,K,J) .GT. 0.99999 ) THEN + CLDLIQC(I,K,J) = CLDLIQC(I,K,J)*CLDAREAC(I,K,J) + CLDAREAC(I,K,J) = 1.0 + ENDIF + IF( CLDAREAC(I,K,J) .LE. 1.0e-17 .OR. CLDLIQC(I,K,J) .LE. 1.0e-17 ) THEN + CLDAREAC(I,K,J) = 0.0 + CLDLIQC(I,K,J) = 0.0 + ENDIF + ENDDO + ENDDO + ENDDO + + DO J = jts,jte + DO I = its,ite + DO K = kts,kte + CLDAREAB(I,K,J)=OMUHF*CLDAREAA(I,K,J)+GNUHF*(CLDAREAB(I,K,J)+CLDAREAC(I,K,J)) + CLDLIQB(I,K,J)=OMUHF*CLDLIQA(I,K,J) +GNUHF*(CLDLIQB(I,K,J)+CLDLIQC(I,K,J)) + CLDAREAA(I,K,J)=CLDAREAC(I,K,J) + CLDLIQA(I,K,J)= CLDLIQC(I,K,J) + + IF( CLDAREAA(I,K,J) .LE. 1.0e-17 .OR. CLDLIQA(I,K,J) .LE. 1.0e-17 ) THEN + CLDAREAA(I,K,J) = 0.0 + CLDLIQA(I,K,J) = 0.0 + ENDIF + + IF(CLDDPTHB(I,J) .LE. 0.0) THEN ! No active updraft + IF( CLDAREAB(I,K,J) .LE. 1.0e-3 .OR. CLDLIQB(I,K,J) .LE. 1.0e-17 ) THEN + ! QC(I,K,J)=QC(I,K,J)+CLDAREAB(I,K,J)*CLDLIQB(I,K,J) + RQCSHTEN(I,K,J)=RQCSHTEN(I,K,J)+CLDAREAB(I,K,J)*CLDLIQB(I,K,J)/DT + CLDAREAB(I,K,J) = 0.0 + CLDLIQB(I,K,J) = 0.0 + ENDIF + ENDIF + ENDDO + ENDDO + ENDDO + + END SUBROUTINE deng_shcu_driver + +!================ + SUBROUTINE deng_shcu(I,J, & ! in + ids,ide, jds,jde, kds,kde, & ! in + ims,ime, jms,jme, kms,kme, & ! in + its,ite, jts,jte, kts,kte, & ! in + XLV,XLS,XLV0,XLV1,XLS0,XLS1,CP,R,G, & ! in + SVP1,SVP2,SVP3,SVPT0, & ! in + DT, ktau, dt2, DX, DXSQ, xtime, gmt, zpbl, ht, & ! in + xlong, capesave, radsave, ainckfsa, & ! in 2D + U0,V0,T0,Q0,RH0, QC0_expl,QR0,P0, & ! in 3D + RHOE,z_at_w0, DZQ,W0AVG0, & ! in 1D +#ifdef DENG_SHCU1D + ca_rad0, & ! for 1d printing only +#endif + tke0, kth0, bbls0, ten_radl0, ten_rads0, dsigma, & ! in 1D + RAINSHV, RAINSH, pblmax, CLDTOPB, CLDDPTHB, & ! inout 2D + ltopb, kdcldtop, kdcldbas, & ! inout 2D + cldareab, cldliqb, wub, & ! inout 3D + CAPEI,RADIUSC, AINCKFI, & ! out 2D + QVTEN,QCTEN,QRTEN,TTEN,DCATEN,QCDCTEN & ! out 1D (output tendencie) + ) +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + IMPLICIT NONE +! ----------- IN ------------------------------------------- + INTEGER, INTENT(IN ) :: i, j, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + REAL, INTENT(IN ) :: XLV,XLS,XLV0,XLV1,XLS0,XLS1, & + CP,R,G,SVP1,SVP2,SVP3,SVPT0 + REAL, INTENT(IN ) :: DT, dt2, DX, DXSQ, xtime, gmt + INTEGER, INTENT(IN ) :: KTAU + REAL, INTENT(IN ) :: zpbl, ht + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(IN ) :: xlong, capesave, radsave + REAL, DIMENSION( ims:ime , 1:100, jms:jme ), & + INTENT(IN ) :: ainckfsa + REAL, DIMENSION( kts:kte ), & + INTENT(IN ) :: U0, V0, T0, QR0, RH0, P0, rhoe, DZQ, W0AVG0, & + TKE0, KTH0, BBLS0, ten_radl0, ten_rads0 + REAL, DIMENSION( kms:kme ), & + INTENT(IN ) :: dsigma + REAL, DIMENSION( kts:kte+1 ), & + INTENT(IN ) :: z_at_w0 +! ------------ INOUT --------------------------------------------- + REAL, DIMENSION( kts:kte ), & + INTENT(INOUT) :: Q0, QC0_expl + REAL, DIMENSION( ims:ime, jms:jme ), & + INTENT(INOUT) :: RAINSHV, RAINSH, pblmax, cldtopb, clddpthb + INTEGER, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: ltopb, kdcldtop, kdcldbas + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ) , & + INTENT(INOUT) :: cldareab, cldliqb, wub + REAL, DIMENSION( kts:kte ), & + INTENT(INOUT) :: QVTEN, QCTEN, QRTEN, TTEN, DCATEN, QCDCTEN +! ----------- OUT ------------------------------------------------ + REAL, DIMENSION( its:ite, jts:jte ), & + INTENT( OUT) :: CAPEI, RADIUSC, AINCKFI +! +! Local variables +! + + REAL, DIMENSION( kts:kte ) :: DTDT, DQDT, DQRDT, DQLDT, DDCADT, DQCDCDT + + REAL , PARAMETER :: PIE = 3.141592654 + REAL , PARAMETER :: TTFRZ = 268.16 + REAL , PARAMETER :: TBFRZ = 248.16 + REAL , PARAMETER :: RHBC = 0.90 + REAL , PARAMETER :: P00 = 100000.0 + REAL , PARAMETER :: T00 = 273.16 + REAL , PARAMETER :: RLF = 3.339E5 + REAL , PARAMETER :: AVTS = 11.72 + REAL , PARAMETER :: BVTS = 0.41 + REAL , PARAMETER :: N0R = 8.E6 +! REAL , PARAMETER :: TO = 263.15 + REAL , PARAMETER :: XN0 = 1.E-2 + REAL , PARAMETER :: XMMAX = 9.4E-10 ! from MM5 param.F for autoconvertion of qc to qs + REAL , PARAMETER :: N0S = 2.E7 + REAL , PARAMETER :: ESI = 0.1 + REAL , PARAMETER :: QCTH = 0.5E-3 ! from MM5 param.F for autoconvertion of qc to qr + REAL , PARAMETER :: QCK1 = 1.0E-3 ! from MM5 param.F for autoconvertion of qc to qr + REAL , PARAMETER :: AVT = 841.99667 + REAL , PARAMETER :: BVT = 0.8 + REAL , PARAMETER :: RHCRIT = 0.999 + + REAL, DIMENSION( kts:kte ) :: SCR3 + + REAL :: nupdraft, ZLCL,ZLFC, TRPPT, CLDTOP, CLDDPTH, & ! nupdraft is for sure a real number + TTLCL, PPLCL, ainc, ainc2, ainc3, ainc4, tenv, qenv, tven, tvbar, & + AINCM1, AINCM2, AINCMX, timeunv, timeloc, wbar, wtke, wpbltp, wnh + + INTEGER :: LLC, KPBL, KKPBL,KLCL,KDCB,KDCT,LTOP, LTOP1, LTOPM1, LTOP2, & + kpblmax, kl, klm, kx, kxp1, kp1, LCL, LET, LFS, L, n + + REAL, DIMENSION( kts:kte ) :: z0, prc, pra, tlong,tshort, & + QU,TU,TVU,UMF,UER,TZ,QD,TV0, & + WD,TVD,DMF,DER,TG,QQG,TVG, & + EMS,EMSD,THETEU,THETED,THETEE,THTAU, & + THTAD,THTA0,RLIQ,RICE,QLQOUT,QICOUT, & + PPTLIQ,PPTICE,DETLQ,DETIC,UMF2,DMF2, & + DETLQ2,DETIC2,UDR,UDR2,DDR,UER2, & + DER2,RATIO2,DOMGDP,EXN, & + DZA,TVQU,DP,DMS,EQFRC,WSPD,QDT,FXM, & + THTES,THTESG,THTAG,DDR2,THPA,QPA, & + THFXIN,THFXOUT,QFXIN,QFXOUT,DTFM, & + QC0,QCG,QCPA,QCFXIN,QCFXOUT, & + DCA,DCAFXIN,DCAFXOUT,DCA0, & + RGVC,FALOUTC,wu,qes + + REAL, DIMENSION( kts:kte+1 ) :: OMG, KV,KR, LFLUX, LFLUX1, LFLUX2 + + REAL :: zagl_bot, zagl_top, & + tmix, thmix, qmix, zmix, pmix, dpthmx, & + qmix1, zmix1, dpthmx1, & + tmix2, thmix2, qmix2, pmix2, emix, emix2, & + c1, c2, c3, AREA, AREA1, AREA2, CLQ, CLQ1, CLQ2, & + emax, zval, TLCL, PLCL, TVLCL, ES, QS, TVAVG, QESE, WTW, RHOLCL, & + sum, val, val0, val1, val2, ff, h, b, rad, & + PPBL, TENVPBL, QENVPBL, TVENPBL, TPBL, TVPBL, RHOPBL, ROCPQ, & + RHO_INI, T_INI, TV_INI, TVEN_INI, Z_INI, P_INI, & + DPTH, PPLSDP, AU0, VMFPBLCL, VMFLCL, UPOLD, UPNEW, & + abe, THTUDL, TUDL, TTEMP, RATE, FRC, FRC1, QNEWLQ, QNEWIC, RL, & + QNWFRZ, EFFQ, BE, BOTERM, ENTERM, DZZ, WSQ, & + WABS, UDLBE, ee, ee1, ee2, ud1, ud2, rei, ttmp, f1, f2, THTTMP, & + RTMP, TMPLIQ, TMPICE, TU95, TU10, EQMAX, EQMIN, CTP1, CTP2, WUMAX, & + DPTT, DUMFDP, TSAT, THTA, P165, PPTMLT, PPTML2, CLVF, USR, VCONV, & + TIMEC, TADVEC, TCMIN, TCMAX, SHSIGN, VWS, PEF, PEFMX, PEFMN, & + CBH, RCBH, PEFCBH, CBHMX, PEFF, TDER, TDER2, THTMIN, DTMLTD, & + DPT, DPDD, a1, rdd, DQSSDT, DTMP, QSRH, PPTFLX, PPTFL2, CPR, CNDTNF, & + UPDINC, DMFMIN, DEVDMF, PPR, RCED, DPPTDF, DMFLFS, & + DDINC, FABE, STAB, TKEMAX, DSOURCE, TIMECS, & + DTT, DTT1, GD, CPM, GM, DTEMPDT, DTHETADT, & + TMA, TMB, TMM, BCOEFF, ACOEFF, TOPOMG, DTMLTE, TDP, & + DQ, QMIN, TLOG, TDPT, CPORQ, DLP, ZLCL1, ABEG, THATA, & + THTFC, DABE, AINCMIN, RF, UPDIN2, & + DR, UDFRC, UEFRC, DDFRC, DEFRC, TUC, TDC, QGS, RH_0, RHG, & + QINIT, QFNL, QCFINL, ERR2, RELERR, & + DIFFK, RLC, E2, EOVLC, RCP, RLOVCP, & + RHCR, AREADIFF, FX, FX1, FX2, & + EFOLD, EX, DEPTHMAX, HIN, HOUT, DELTH, QIN, QOUT, & + DELTQ, RKAPA, DELTA, RATIO, RATIOMIN, RATIOMAX, & + GAMA, BEITA, SIGMMA, WFUN, BVT3, BVTS3, PPI, G3PB, G3PBS, PRAC, PRACS, & + TOUT, SC2, SC3, SC7, RHOS, PPIS, XNC, & + RHO2, VT2C, FALTNDC, gdry, p300, factor1, & + z1, p1, t1, w1, z2, p2, t2, w2, r1, & + t1rh, dtime, ROVCP + + INTEGER :: ii, k, ks, k1, k2, kk, k0, ndk, nj, nm, nk, nk1, & + kval, kval1, kval2, iflag, kflag, nic, & + KMIN, KSTART, ND, NT, ND1, LDB, LDT, LMAX, NCOUNT, ISTOP, & + k100, k1000, KAMAX, KLCMAX, dbg_level, i0, j0, KRADLMAX, & + NTC, NSTEP, ML, L5, LLFC, LM, LM1, LM2, LC, lvf, kradsmax + + REAL :: ALIQ, BLIQ, CLIQ, DLIQ + + LOGICAL, EXTERNAL :: wrf_dm_on_monitor + +! REAL :: tpdd ! Function declaration +! REAL :: GAMMA ! Function declaration + + CHARACTER*1024 message + +#ifdef DENG_SHCU1D + REAL, DIMENSION( its:ite , jts:jte ) :: & + TPBLG,PPBLG,TLCLG,PLCLG, & ! used to be 1-d mm5 graphics + CLDHGTG,TCLDTPG,PCLDTPG,TLFSG,PLFSG,TLDTG,PLDTG, & + TLDBG,PLDBG,TLLCG,PLLCG + + REAL, DIMENSION( its:ite , jts:jte ) :: & + CLDBMFLX, & + nca_ctr1,nca_ctr2,nca_ctr3,nca_ctr4, & + dcldtop, dcldbase + + REAL, DIMENSION( kts:kte ) :: tt4, tt6, tt7, wsubsub, wutemp, cldaten0, cldaten, & + cldlctn0, cldlctn1, cldlctn2, cldlctn3, cldlctn4, & + cldlctn5, thtetmp, thtatmp, cldua, tug, wsp_plot, & + wdr_plot, td_plot, ca_rad0 + + REAL :: PLET,TLET, aa=60.0*60.0, bb=60.0*60.0*1000.0, qqq, ees, & + PLOTFRQ = 30.0 + + INTEGER :: KTAU1HUR, KCBASE +#endif +!****************************************************************************** +! + CALL get_wrf_debug_level( dbg_level ) + + ISTOP= 0 + NT = 0 + ALIQ = SVP1*1000. + BLIQ = SVP2 + CLIQ = SVP2*SVPT0 + DLIQ = SVP3 + + GDRY = -G/CP + ROVCP=R/CP + + KL=kte + klm = kl - 1 + KX=kte + kxp1 = kx + 1 + + i0 = (ite-its)/2+its + j0 = (jte-jts)/2+jts + +#ifdef DENG_SHCU1D + kcbase=1 + KTAU1HUR = 3600/INT(DT) + IF( i == 1 .AND. j == 1 ) write(31,*) xtime/60.,zpbl + do k=1,kl + tt4(k)=0.0 + tt6(k)=0.0 + tt7(k)=0.0 + wutemp(k)=0.0 + wsubsub(k)=0.0 + cldaten0(k)=0.0 + cldaten(k)=0.0 + cldlctn0(k)=0.0 + cldlctn1(k)=0.0 + cldlctn2(k)=0.0 + cldlctn3(k)=0.0 + cldlctn4(k)=0.0 + cldlctn5(k)=0.0 + thtetmp(k)=0.0 + thtatmp(k)=0.0 + enddo +#endif + + LTOP=1 + KPBLMAX = 1 + CLDDPTH=0.0 + CLDTOP=0.0 + DO K=1,KL +#ifdef DENG_SHCU1D + CLDUA(K)=0.0 + TUG(K)=0.0 +#endif + WU(K)=0.0 + OMG(K)=0.0 + UMF(K)=0.0 + THTAD(K)=0.0 + WD(K)=0.0 + KV(K)=0.0 + KR(K)=0.0 + ENDDO + RAINSHV(I,J)=0.0 + AINCKFI(I,J)=0.0 + CAPEI(I,J)=0.0 +#ifdef DENG_SHCU1D + DCLDTOP(I,J)=0.0 + DCLDBASE(I,J)=0.0 + CLDBMFLX(I,J)=0.0 +#endif +! +!...INPUT A VERTICAL SOUNDING ... NOTE THAT MODEL LAYERS ARE NUMBERED FROM THE +!...BOTTOM-UP IN THE SHALLOW CONVECTION SCHEME... +! + + P300=P0(1)-30000. + ML = 0 + + DO K=1,KX + QC0(K)=0.0 + DCA0(K)=0.0 +! +!...IF Q0 IS ABOVE SATURATION VALUE, REDUCE IT TO SATURATION LEVEL... +! +! ES=ALIQ*EXP((BLIQ*T0(K)-CLIQ)/(T0(K)-DLIQ)) + IF( T0(K) .GT. TO ) THEN + ES=1.E3*SVP1*EXP(SVP2*(T0(K)-SVPT0)/(T0(K)-SVP3)) + ELSE + ES=611.0*EXP(22.514-6.15E3/T0(K)) + ENDIF + QES(K)=0.622*ES/(P0(K)-ES) + Q0(K)=AMIN1(QES(K),Q0(K)) + IF(Q0(K).GT.QES(K))Q0(K)=QES(K) + + TV0(K)=T0(K)*(1.+.608*Q0(K)) +! RHOE(K)=P0(K)/(R*TV0(K)) +! +!...DZQ IS DZ BETWEEN SIGMA SURFACES, DZA IS DZ BETWEEN MODEL HALF LEVELS, +! DP IS THE PRESSURE INTERVAL BETWEEN FULL SIGMA LEVELS... +! + DP(K)=rhoe(k)*g*DZQ(k) + IF(P0(K).GE.500E2) L5=K + IF(P0(K).GE.P300) LLFC=K + IF(T0(K).GT.T00) ML=K + ENDDO + + Z0(1)=.5*DZQ(1) + DO K=2,KL + Z0(K) = Z0(K-1)+.5*(DZQ(K)+DZQ(K-1)) + DZA(K-1) = Z0(K)-Z0(K-1) + ENDDO + DZA(KL) = 0. + + LC = 1 + KFLAG=0 + AINC=999.0 + CTP2=99999.9 + LTOP2=99999 +! ZPBL = PBL(I,J) +! +!...FIND CONVECTIVE SOURCE LAYER WHERE THE INITIAL PARCEL CHARACTERISTICS +! ARE DEFINED. IT IS THE MAXIMUM OF 20% OF PBL AND 2 (IF PBL IS AT LEAST +! 4 LATERS DEEP. DEFINE THE PARCEL PURTERBATION PROPERTITES FROM THE +! SOURCE LAYER (THMIX,QMIX,ZMIX,PMIX) +! + LM1 = 1 + FACTOR1 = 0.20 ! 20% of PBL + source: DO NK = 1,KL + IF( (Z0(NK)+0.5*DZQ(NK)) .LT. FACTOR1*ZPBL ) THEN + LM1=LM1+1 + ELSE + EXIT source + ENDIF + ENDDO source + + kpbl = 1 + + loop_ku: DO k = 1, kl + zagl_bot = z_at_w0(k)-ht + zagl_top = z_at_w0(k+1)-ht + IF( zpbl >= zagl_bot .AND. zpbl < zagl_top ) THEN + kpbl = k + EXIT loop_ku + ENDIF + ENDDO loop_ku + + LM2=1 + IF( KPBL .GE. 4 ) LM2=2 + LM=MAX(LM1,LM2) + + THMIX=0. + QMIX=0. + ZMIX=0. + PMIX=0. + DPTHMX=0. + DO NK = 1, LM + DPTHMX=DPTHMX+DP(NK) + ROCPQ=0.2854*(1.-0.28*Q0(NK)) + THMIX=THMIX+DP(NK)*T0(NK)*(P00/P0(NK))**ROCPQ + QMIX=QMIX+DP(NK)*Q0(NK) + ZMIX=ZMIX+DP(NK)*Z0(NK) + PMIX=PMIX+DP(NK)*P0(NK) + ENDDO + THMIX=THMIX/DPTHMX + QMIX=QMIX/DPTHMX + ZMIX=ZMIX/DPTHMX + PMIX=PMIX/DPTHMX +! +! FIND THE LCL (TLCL,TVLCL,PLCL,KLCL) +! + ROCPQ=0.2854*(1.-0.28*QMIX) + TMIX=THMIX*(PMIX/P00)**ROCPQ + EMIX=QMIX*PMIX/(0.622+QMIX) +! TLOG=ALOG(EMIX/ALIQ) +! TDPT=(CLIQ-DLIQ*TLOG)/(BLIQ-TLOG) + TLOG=ALOG(EMIX/SVP1/1000.) + TDPT=(SVP2*SVPT0-SVP3*TLOG)/(SVP2-TLOG) + TLCL=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(TMIX-T00))* & + (TMIX-TDPT) + TLCL=AMIN1(TLCL,TMIX) + TVLCL=TLCL*(1.+0.608*QMIX) + CPORQ=1./ROCPQ + PLCL=P00*(TLCL/THMIX)**CPORQ + + DO NK = 1,KL + KLCL=NK + IF( PLCL >= P0(NK) ) GO TO 35 + ENDDO + GOTO 425 + 35 CONTINUE + K=KLCL-1 + + IF(KLCL .EQ. 1 ) THEN +#ifdef DENG_SHCU1D + write(*,*) 'KL layer is saturated and skip over active con.' + PLET = PLCL + TLET = TLCL + PLFSG(I,J) = PLCL + TLFSG(I,J) = TLCL + PLDTG(I,J) = PLCL + TLDTG(I,J) = TLCL + PLDBG(I,J) = PLCL + TLDBG(I,J) = TLCL + PLLCG(I,J) = PLCL + TLLCG(I,J) = TLCL + CLDHGTG(I,J)=0.0 + PCLDTPG(I,J)=PLCL + TCLDTPG(I,J)=TLCL +#endif + + IF(ZPBL .LE. Z0(1)) THEN + PPBL=P0(1) + ELSE + loop12: DO KK=1, KL-1 + IF(ZPBL .GE. Z0(KK) .AND. ZPBL .LT. Z0(KK+1)) THEN + K0=KK + EXIT loop12 + END IF + ENDDO loop12 + + C1=(ZPBL-Z0(K0))/(Z0(K0+1)-Z0(K0)) + PPBL=P0(K0)*EXP(C1*(ALOG(P0(K0+1))-ALOG(P0(K0)))) + END IF + TPBL=TLCL*(PPBL/PLCL)**ROCPQ + + ZLCL=Z0(KLCL) + CLDTOP=ZLCL + ZLFC=Z0(KL) +#ifdef DENG_SHCU1D + nca_ctr1(i,j)=nca_ctr1(i,j)+1 +#endif + GOTO 425 + +! KLCL=KLCL+1 +! K=KLCL-1 + ENDIF + + DLP=LOG(PLCL/P0(K))/LOG(P0(KLCL)/P0(K)) +! +!...ESTIMATE ENVIRONMENTAL TEMPERATURE AND MIXING RATIO AT THE LCL... +! + TENV=T0(K)+(T0(KLCL)-T0(K))*DLP + QENV=Q0(K)+(Q0(KLCL)-Q0(K))*DLP + TVEN=TENV*(1.+0.608*QENV) + TVBAR=0.5*(TV0(K)+TVEN) + ZLCL=Z0(K)+(Z0(KLCL)-Z0(K))*DLP +! +! DETERMINE PURTERBATION VERTICAL VELOCITIES FOR INITIATING PARCEL, +! WPBLTP=WBAR+WTKE+WNH, WHERE WBAR IS THE RESOLVABLE-SCALE MEAN VERTICAL +! MOTION, WTKE IS THE CONTRIBUTION FROM THE PBL TKE AND WNH IS THE NON-HYDROSTAIC +! PUMPING EFFECT +! + IF( zpbl .GT. PBLMAX(I,J) ) THEN + PBLMAX(I,J) = zpbl + KPBLMAX = KPBL + ENDIF +! +! CALCULATE LOCAL TIME USING UTC (DATE) AND THE LONGITUDE. +! + TIMEUNV = gmt + XTIME/60. + IF( TIMEUNV .GE. 24.0 ) TIMEUNV = TIMEUNV - 24.0 + TIMELOC = TIMEUNV + XLONG(I,J)/15.0 + IF( TIMELOC .LT. 0.0 ) TIMELOC = TIMELOC + 24.0 + IF( TIMELOC .GE.24.0 ) TIMELOC = TIMELOC - 24.0 + + IF( ABS(TIMELOC-6.0) .LT. 0.01 ) THEN + PBLMAX(I,J) = 0.0 ! SET PBLMAX=0 IF LOCAL TIME=6AM + KPBLMAX = 1 + END IF + KVAL=MIN(KLCL,KPBLMAX) + + EMAX = 0.0 + loop154: DO nk = 1, KVAL + val = TKE0(nK) + IF( val.LT.EMAX ) CYCLE loop154 + EMAX = val + ENDDO loop154 + + KVAL=MIN(KLCL-1,KPBL) + + WBAR=W0AVG0(KVAL) + WTKE=SQRT(2.0*EMAX/3.0) + + WPBLTP=WBAR+WTKE + + WNH=0.0 + IF( CLDDPTHB(I,J) .GT. 4.0E3 ) THEN + ZVAL = ZLCL + 2000.0 + DO NK = 1,KL + IF( ABS(Z0(NK)-ZVAL) .LT. DZQ(NK)/2.0 ) KVAL = NK + ENDDO + IF( WUB(I,KVAL,J) .GT. WPBLTP ) THEN + WNH=0.25*(WUB(I,KVAL,J)-WPBLTP) + ELSE + WNH=0.0 + ENDIF + ENDIF + + WPBLTP=WPBLTP+WNH +#ifdef DENG_SHCU1D + IF( i == 1 .AND. j == 1 ) write(45,*) xtime/60.,WBAR,WTKE,WNH,WPBLTP +#endif +! +!...THE PARCEL IS BUOYANT; COMPUTE EQUIVALENT POTENTIAL TEMPERATURE (THETEU) +!...AND VERTICAL VELOCITY OF THE RISING PARCEL AT THE LCL...USE BOLTONS (1980) +!...FORMULA FOR THETE... +! + THETEU(K)=TMIX*(1.E5/PMIX)**(0.2854*(1.-0.28*QMIX))* & + EXP((3374.6525/TLCL-2.5403)*QMIX*(1.+0.81*QMIX)) + ES=1.E3*SVP1*EXP(SVP2*(TENV-SVPT0)/(TENV-SVP3)) + TVAVG=0.5*(TV0(KLCL)+TENV*(1.+0.608*QENV)) + QESE=0.622*ES/(PLCL-ES) + THTES(K)=TENV*(1.E5/PLCL)**(0.2854*(1.-0.28*QESE))* & + EXP((3374.6525/TENV-2.5403)*QESE*(1.+0.81*QESE)) + WTW=WPBLTP*WPBLTP + TVLCL=TLCL*(1.+0.608*QMIX) + RHOLCL=PLCL/(R*TVLCL) + LCL=KLCL + LET=LCL +! +! DEFINE THE UPDRAFT RADIUS, RAD, AS A FUNCTION OF DEPTHS OF THE PBL +! AND UPDRAFT AT THE PREVIOUS TIME STEP. RAD IS IN THE RANGE OF 150 +! AND 1500 M +! + VAL=CLDDPTHB(I,J) + VAL1=ZPBL + IF(VAL/1000.0 .GT. 3.9) THEN + RAD=1500.0 + GO TO 1001 + END IF + FF=12.0*VAL/(4.0-VAL/1000.)/1000. + H=VAL1*FF + B=-0.5*(7.0+2.0*H/1000.) + RAD=0.5*(-B-SQRT(B*B-12.0*H/1000.0)) + RAD=RAD*0.5*1000. + IF(RAD .LT. 150.0) RAD=150.0 + IF(RAD .GT.1500.0) RAD=1500.0 + 1001 CONTINUE +! write(*,'(i7, 2i3, 4f10.3)') ktau, i, j, xtime/60.0, rad, zpbl, CLDDPTHB(I,J) + +! Averaging the radius between current and the previous time value +! + IF(CAPESAVE(I,J) .LT. 100.0) RAD=(RAD+RADSAVE(I,J))/2.0 + + RADIUSC(i,j)=RAD +! +! FIND PBL PROPERTIES +! + IF( ZPBL .LE. Z0(1) ) THEN + K = 1 + PPBL = P0(K) + TENVPBL = T0(K) + QENVPBL = Q0(K) + TVENPBL = TV0(K) + ELSE + loop13: DO KK = 1, KL-1 + IF( ZPBL .GE. Z0(KK) .AND. ZPBL .LT. Z0(KK+1) ) THEN + K = KK + EXIT loop13 + END IF + ENDDO loop13 + + C1 = ( ZPBL-Z0(K) )/( Z0(K+1)-Z0(K) ) + PPBL = P0(K)*EXP( C1 * ( ALOG(P0(K+1))-ALOG(P0(K)) ) ) + TENVPBL = C1* (T0(K+1)-T0(K)) + T0(K) + QENVPBL = C1* (Q0(K+1)-Q0(K)) + Q0(K) + TVENPBL = C1* (TV0(K+1)-TV0(K)) + TV0(K) + END IF + KKPBL = K + TPBL=TLCL*(PPBL/PLCL)**ROCPQ + TVPBL = TPBL*(1.+0.608*QMIX) + RHOPBL=PPBL/(R*TVPBL) +! +! THE LOWER OF LCL AND PBL IS DETERMINED AS THE PARCEL RELEASING POINT +! WHERE K,RHO_INI, T_INI, TV_INI, TVEN_IN, Z_INI AND P_INI ARE DEFINED +! + IF( PPBL .GE. PLCL ) THEN + THETEU(K)=TMIX*(1.E5/PMIX)**(0.2854*(1.-0.28*QMIX))* & + EXP((3374.6525/TLCL-2.5403)*QMIX*(1.+0.81*QMIX)) + ES=1.E3*SVP1*EXP(SVP2*(TENVPBL-SVPT0)/(TENVPBL-SVP3)) + QESE=0.622*ES/(PPBL-ES) + THTES(K)=TENVPBL*(1.E5/PPBL)**(0.2854*(1.-0.28*QESE))* & + EXP((3374.6525/TENVPBL-2.5403)*QESE*(1.+0.81*QESE)) + RHO_INI = RHOPBL + T_INI = TPBL + TV_INI = TVPBL + TVEN_INI = TVENPBL + Z_INI = ZPBL + P_INI = PPBL + LET = KKPBL + ELSE + K = KLCL-1 + RHO_INI = RHOLCL + T_INI = TLCL + TV_INI = TVLCL + TVEN_INI= TVEN + Z_INI = ZLCL + P_INI = PLCL + END IF +! +! DETERMIN THE DEPTH OF SOURCE LAYER WHERE THE MASS IS IS REMOVED AS A RESULTS OF +! CONVECTION. THE DEPTH IS DEFINED AS A FUNCTION OF CLOUD RADIUS AND IS IN THE +! RANGE OF 10 MB TO 60 MB +! + DPTHMX1 = 0.0 + DO NK = 1, K + DPTHMX1 = DPTHMX1 + DP(NK) + ENDDO + IF( K .EQ. 1 ) THEN + LLC=1 + GO TO 897 + ENDIF + DPTH = 100.0*(RAD-150.0)/27.0 + 1000.0 + IF( DPTH .GE. DPTHMX1 ) THEN + LLC = 1 + GO TO 897 + END IF + PPLSDP = P0(K+1) + DP(K+1)/2.0 + DPTH + LLC = K + DO NK = K-1, 1, -1 + IF( ABS(PPLSDP-P0(NK)) .LE. ABS(PPLSDP-P0(NK+1)) ) LLC = NK + ENDDO + + 897 CONTINUE + +#ifdef DENG_SHCU1D + KCBASE=KLCL + IF( i == 1 .AND. j == 1 ) write(300,*) xtime/60.,K, RHO_INI, T_INI, TV_INI, TVEN_INI, Z_INI, P_INI +#endif +! +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! BEGINING OF UPDRAFT CACULATION +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! +! COMPUTE INITIAL UPDRAFT MASS FLUX UMF(K) +! + WU(K)=WPBLTP + AU0=PIE*RAD*RAD + UMF(K)=RHO_INI*AU0*WPBLTP + VMFPBLCL=UMF(K) + VMFLCL=UMF(K) + UPOLD=VMFPBLCL + UPNEW=UPOLD + RATIO2(K)=0. +! +!...UER IS THE ENVIR ENTRAINMENT RATE, ABE IS AVAILABLE BUOYANT ENERGY, +! TRPPT IS THE TOTAL RATE OF PRECIPITATION PRODUCTION... +! + UER(K)=0. + ABE=0. + TRPPT=0. + TU(K)=T_INI + TVU(K)=TV_INI + QU(K)=QMIX + EQFRC(K)=1. + RLIQ(K)=0. + RICE(K)=0. + QLQOUT(K)=0. + QICOUT(K)=0. + DETLQ(K)=0. + DETIC(K)=0. + PPTLIQ(K)=0. + PPTICE(K)=0. + IFLAG = 0 +! KFRZ=LC +! +!...THE AMOUNT OF CONV AVAIL POT ENERGY (CAPE) IS CALCULATED WITH RESPECT TO +!...UNDILUTE PARCEL ASCENT; EQ POT TEMP OF UNDILT PARCEL IS THTUDL, UNDILT +! TEMP IS GIVEN BY TUDL... +! + THTUDL=THETEU(K) + TUDL=T_INI +! +!...TTEMP IS USED DURING CALCULATION OF THE LINEAR GLACIATION PROCESS; IT IS +! INITIALLY SET TO THE TEMPERATURE AT WHICH FREEZING IS SPECIFIED TO BEGIN; +! WITHIN THE GLACIATION INTERVAL, IT IS SET EQUAL TO THE UPDR TEMP AT THE +! PREVIOUS MODEL LEVEL... +! + TTEMP=TTFRZ +! +! FOR SHALLOW CONVECTION, SET RATE=0 SO NO LIQUID FALLS OUT +! + IF( CLDDPTHB(I,J) .LT. 4.E3) THEN + RATE = 0.0 ! TURN OFF DOWNDRAFT ALSO + ELSE + RATE = 0.01 + ENDIF +! +!...ENTER THE LOOP FOR UPDRAFT CALCULATIONS...CALCULATE UPDRAFT TEMP, MIXING +! RATIO, VERTICAL MASS FLUX, LATERAL DETRAINMENT OF MASS AND MOISTURE, AND +! PRECIPITATION RATES AT EACH MODEL LEVEL... +! + EE1=1. + UD1=0. + REI = 0. + loop60: DO NK=K,KLM + NK1=NK+1 + RATIO2(NK1)=RATIO2(NK) +! +!...UPDATE UPDRAFT PROPERTIES AT THE NEXT MODEL LVL TO REFLECT ENTRAINMNT OF +! ENVIRONMENTAL AIR... +! + FRC1=0. + TU(NK1)=T0(NK1) + THETEU(NK1)=THETEU(NK) + QU(NK1)=QU(NK) + RLIQ(NK1)=RLIQ(NK) + RICE(NK1)=RICE(NK) + CALL TPMIX(P0(NK1),THETEU(NK1),TU(NK1),QU(NK1),RLIQ(NK1), & + RICE(NK1),QNEWLQ,QNEWIC,RATIO2(NK1),RL,XLV0,XLV1,XLS0,XLS1, & + SVP1,SVP2,SVPT0,SVP3) +! CALL TPMIXBG(P0(NK1),THETEU(NK1),TU(NK1),QU(NK1),RLIQ(NK1), & +! RICE(NK1),QNEWLQ,QNEWIC,RATIO2(NK1),RL,XLV0,XLV1,XLS0,XLS1, & +! SVP1,SVP2,SVPT0,SVP3) + +! CALL TPMIX2(P0(NK1),THETEU(NK1),TU(NK1),QU(NK1),RLIQ(NK1), & +! RICE(NK1),QNEWLQ,QNEWIC,XLV1,XLV0,ktau,i,j,nk1, 1) + TVU(NK1)=TU(NK1)*(1.+0.608*QU(NK1)) +! +! CHECK TO SEE IF UPDRAFT TEMP IS WITHIN THE FREEZING INTERVAL, IF IT IS, +! CALCULATE THE FRACTIONAL CONVERSION TO GLACIATION AND ADJUST QNEWLQ TO +! REFLECT THE GRADUAL CHANGE IN THETAU SINCE THE LAST MODEL LEVEL...THE +! GLACIATION EFFECTS WILL BE DETERMINED AFTER THE AMOUNT OF CONDENSATE +! AVAILABLE AFTER PRECIP FALLOUT IS DETERMINED...TTFRZ IS THE TEMP AT WHICH +! GLACIATION BEGINS, TBFRZ THE TEMP AT WHICH IT ENDS... +! + IF(TU(NK1).LE.TTFRZ.AND.IFLAG.LT.1)THEN + IF(TU(NK1).GT.TBFRZ)THEN + IF(TTEMP.GT.TTFRZ)TTEMP=TTFRZ + FRC1=(TTEMP-TU(NK1))/(TTFRZ-TBFRZ) + R1=(TTEMP-TU(NK1))/(TTEMP-TBFRZ) + ELSE + FRC1=(TTEMP-TBFRZ)/(TTFRZ-TBFRZ) + R1=1. + IFLAG=1 + ENDIF + QNWFRZ=QNEWLQ + QNEWIC=QNEWIC+QNEWLQ*R1*0.5 + QNEWLQ=QNEWLQ-QNEWLQ*R1*0.5 + IF( ABS(TTEMP-TBFRZ) < 1.E-3 ) THEN + EFFQ= 1.0 + ELSE + EFFQ=(TTFRZ-TBFRZ)/(TTEMP-TBFRZ) + ENDIF + TTEMP=TU(NK1) + ENDIF +! +! CALCULATE UPDRAFT VERTICAL VELOCITY AND PRECIPITATION FALLOUT... +! + IF(NK.EQ.K)THEN + BE=(TV_INI+TVU(NK1))/(TVEN_INI+TV0(NK1))-1. + BOTERM=2.*(Z0(NK1)-Z_INI)*G*BE/1.5 + ENTERM=0. + DZZ=Z0(NK1)-Z_INI + ELSE + BE=(TVU(NK)+TVU(NK1))/(TV0(NK)+TV0(NK1))-1. + BOTERM=2.*DZA(NK)*G*BE/1.5 + ENTERM=2.*UER(NK)*WTW/UPOLD + DZZ=DZA(NK) + ENDIF + WSQ=WTW + CALL CONDLOAD(RLIQ(NK1),RICE(NK1),WTW,DZZ,BOTERM,ENTERM, & + RATE,QNEWLQ,QNEWIC,QLQOUT(NK1),QICOUT(NK1), G) + IF(WTW < 1.E-3) THEN + EXIT loop60 + ELSE + WU(NK1)=SQRT(WTW) + ENDIF +! +!...IF VERT VELOCITY IS LESS THAN ZERO, EXIT THE UPDRAFT LOOP AND, IF CLOUD +! IS TALL ENOUGH, FINALIZE UPDRAFT CALCULATIONS... +! +! IF(WU(NK1).LT.0.) EXIT loop60 +! +! UPDATE THE ABE FOR UNDILUTE ASCENT... +! + THTES(NK1)=T0(NK1)*(1.E5/P0(NK1))**(0.2854*(1.-0.28*QES(NK1)))* & + EXP((3374.6525/T0(NK1)-2.5403)*QES(NK1)*(1.+0.81*QES(NK1))) + UDLBE=((2.*THTUDL)/(THTES(NK)+THTES(NK1))-1.)*DZZ + IF(UDLBE.GT.0.)ABE=ABE+UDLBE*G +! +! DETERMINE THE EFFECTS OF CLOUD GLACIATION IF WITHIN THE SPECIFIED +! TEMP INTERVAL... +! + IF(FRC1.GT.1.E-6)THEN + CALL DTFRZNEW(TU(NK1),P0(NK1),THETEU(NK1),QU(NK1),RLIQ(NK1), & + RICE(NK1),RATIO2(NK1),QNWFRZ,RL,FRC1,EFFQ, & + IFLAG,XLV0,XLV1,XLS0,XLS1, & + SVP1,SVP2,SVPT0,SVP3) + ENDIF +! +! CALL SUBROUTINE TO CALCULATE ENVIRONMENTAL EQUIVALENT POTENTIAL TEMP... +! WITHIN GLACIATION INTERVAL, THETAE MUST BE CALCULATED WITH RESPECT TO THE +! SAME DEGREE OF GLACIATION FOR ALL ENTRAINING AIR... +! + CALL ENVIRTHT(P0(NK1),T0(NK1),Q0(NK1), & + THETEE(NK1),RATIO2(NK1),RL, & + SVP1,SVP2,SVPT0,SVP3,I,J) +! CALL ENVIRTHT2(P0(NK1),T0(NK1),Q0(NK1), & +! THETEE(NK1),ALIQ,BLIQ,CLIQ,DLIQ) +! +!...REI IS THE RATE OF ENVIRONMENTAL INFLOW... +! + REI=VMFPBLCL*DP(NK1)*0.03/RAD +! +!...TVQU IS THE PARCEL TEMP INCLUDING WATER LOADING... +!...IF IT BECOMES GREATER THAN TV0, THEN YOU ARE PAST LFC... +!... + TVQU(NK1)=TU(NK1)*(1.+0.608*QU(NK1)-RLIQ(NK1)-RICE(NK1)) +! +!...IF CLOUD PARCELS ARE VIRTUALLY COLDER THAN THE ENVIRONMENT, NO +! ENTRAINMENT IS ALLOWED AT THIS LEVEL... +! + IF(TVQU(NK1).LE.TV0(NK1))THEN + UER(NK1)=0.0 + UDR(NK1)=REI + EE2=0. + UD2=1. + EQFRC(NK1)=0. + GOTO 55 + ENDIF + LET=NK1 + TTMP=TVQU(NK1) +! +!...DETERMINE THE CRITICAL MIXED FRACTION OF UPDRAFT AND ENVIRONMENTAL AIR... +! + F1=0.95 + F2=1.-F1 + THTTMP=F1*THETEE(NK1)+F2*THETEU(NK1) + RTMP=F1*Q0(NK1)+F2*QU(NK1) + TMPLIQ=F2*RLIQ(NK1) + TMPICE=F2*RICE(NK1) + CALL TPMIX(P0(NK1),THTTMP,TTMP,RTMP,TMPLIQ,TMPICE,QNEWLQ, & + QNEWIC,RATIO2(NK1),RL,XLV0,XLV1,XLS0,XLS1, & + SVP1,SVP2,SVPT0,SVP3) +! CALL TPMIX2(P0(NK1),THTTMP,TTMP,RTMP,TMPLIQ,TMPICE,QNEWLQ, & +! QNEWIC,XLV1,XLV0,ktau,i,j,nk1,2) +! CALL TPMIXBG(P0(NK1),THTTMP,TTMP,RTMP,TMPLIQ,TMPICE,QNEWLQ, & +! QNEWIC,RATIO2(NK1),RL,XLV0,XLV1,XLS0,XLS1, & +! SVP1,SVP2,SVPT0,SVP3) + TU95=TTMP*(1.+0.608*RTMP-TMPLIQ-TMPICE) + IF(TU95.GT.TV0(NK1))THEN + EE2=1. + UD2=0. + EQFRC(NK1)=1.0 + GOTO 50 + ENDIF + F1=0.10 + F2=1.-F1 + THTTMP=F1*THETEE(NK1)+F2*THETEU(NK1) + RTMP=F1*Q0(NK1)+F2*QU(NK1) + TMPLIQ=F2*RLIQ(NK1) + TMPICE=F2*RICE(NK1) + CALL TPMIX(P0(NK1),THTTMP,TTMP,RTMP,TMPLIQ,TMPICE,QNEWLQ, & + QNEWIC,RATIO2(NK1),RL,XLV0,XLV1,XLS0,XLS1, & + SVP1,SVP2,SVPT0,SVP3) +! CALL TPMIX2(P0(NK1),THTTMP,TTMP,RTMP,TMPLIQ,TMPICE,QNEWLQ, & +! QNEWIC,XLV1,XLV0,ktau,i,j,nk1,3) +! CALL TPMIXBG(P0(NK1),THTTMP,TTMP,RTMP,TMPLIQ,TMPICE,QNEWLQ, & +! QNEWIC,RATIO2(NK1),RL,XLV0,XLV1,XLS0,XLS1, & +! SVP1,SVP2,SVPT0,SVP3) + TU10=TTMP*(1.+0.608*RTMP-TMPLIQ-TMPICE) + IF( ABS(TU10-TVQU(NK1)) < 1.E-3) THEN + EQFRC(NK1)= 1.0 + ELSE + EQFRC(NK1)=(TV0(NK1)-TVQU(NK1))*F1/(TU10-TVQU(NK1)+1.E-20) + ENDIF + EQMAX = 1. + EQMIN = 0. + EQFRC(NK1)=MAX(EQMIN,EQFRC(NK1)) + EQFRC(NK1)=MIN(EQMAX,EQFRC(NK1)) + IF(EQFRC(NK1).EQ.1)THEN + EE2=1. + UD2=0. + GOTO 50 + ELSEIF(EQFRC(NK1).EQ.0.)THEN + EE2=0. + UD2=1. + GOTO 50 + ELSE +! +!...SUBROUTINE PROF5 INTEGRATES OVER THE GAUSSIAN DIST TO DETERMINE THE +! FRACTIONAL ENTRAINMENT AND DETRAINMENT RATES... +! + CALL PROF5(EQFRC(NK1),EE2,UD2) + ENDIF + + 50 CONTINUE + +! IF( NK .EQ. K) THEN +! EE1=1. +! UD1=0. +! ENDIF +! +!...NET ENTRAINMENT AND DETRAINMENT RATES ARE GIVEN BY THE AVERAGE FRACTIONAL +! VALUES IN THE LAYER... +! + UER(NK1)=0.5*REI*(EE1+EE2) + UDR(NK1)=0.5*REI*(UD1+UD2) +! +!...IF THE CALCULATED UPDRAFT DETRAINMENT RATE IS GREATER THAN THE TOTAL +! UPDRAFT MASS FLUX, ALL CLOUD MASS DETRAINS, EXIT UPDRAFT CALCULATIONS... +! + 55 CONTINUE + + IF(UMF(NK)-UDR(NK1).LT.10.)THEN +! +!...IF THE CALCULATED DETRAINED MASS FLUX IS GREATER THAN THE TOTAL UPD MASS +! FLUX, IMPOSE TOTAL DETRAINMENT OF UPDRAFT MASS AT THE PREVIOUS MODEL LVL.. +! + IF(UDLBE.GT.0.)ABE=ABE-UDLBE*G + LET=NK + EXIT loop60 + ENDIF + + EE1=EE2 + UD1=UD2 + UPOLD=UMF(NK)-UDR(NK1) + UPNEW=UPOLD+UER(NK1) + UMF(NK1)=UPNEW +! +!...DETLQ AND DETIC ARE THE RATES OF DETRAINMENT OF LIQUID AND ICE IN THE +! DETRAINING UPDRAFT MASS... +! + DETLQ(NK1)=RLIQ(NK1)*UDR(NK1) + DETIC(NK1)=RICE(NK1)*UDR(NK1) + QDT(NK1)=QU(NK1) + QU(NK1)=(UPOLD*QU(NK1)+UER(NK1)*Q0(NK1))/UPNEW + THETEU(NK1)=(THETEU(NK1)*UPOLD+THETEE(NK1)*UER(NK1))/UPNEW + RLIQ(NK1)=RLIQ(NK1)*UPOLD/UPNEW + RICE(NK1)=RICE(NK1)*UPOLD/UPNEW +! +!...KFRZ IS THE HIGHEST MODEL LEVEL AT WHICH LIQUID CONDENSATE IS GENERATED... +! PPTLIQ IS THE RATE OF GENERATION (FALLOUT) OF LIQUID PRECIP AT A GIVEN +! MODEL LVL, PPTICE THE SAME FOR ICE, TRPPT IS THE TOTAL RATE OF PRODUCTION +! OF PRECIP UP TO THE CURRENT MODEL LEVEL... +! +! IF(ABS(RATIO2(NK1)-1.).GT.1.E-6)KFRZ=NK1 + PPTLIQ(NK1)=QLQOUT(NK1)*UMF(NK) + PPTICE(NK1)=QICOUT(NK1)*UMF(NK) + TRPPT=TRPPT+PPTLIQ(NK1)+PPTICE(NK1) + ENDDO loop60 + + CAPEI(I,J) = ABE +#ifdef DENG_SHCU1D + IF( i == 1 .AND. j == 1 ) write(88,*) xtime/60.,ABE +#endif +! +! UPDRAFT TOP IS DEFINED AS THE LAGER VALUE OF LTOP1 (CTP1) AND LTOP1 (CTP2) +! WHERE LTOP1 IS THE KAIN-FRITSCH UPDRAFT TOP AND LTOP2 IS THE HEIGHT CALCULATED +! USING THE EQUATION: CTP2=CLDTOPB(I,J)+0.2*WUMAX*DT2/2.0 +! + LTOP1=NK + CTP1=Z0(LTOP1) + + WUMAX=WU(1) + DO NK=2,LTOPB(I,J) + IF(WU(NK) .GT. WUMAX) WUMAX=WU(NK) + ENDDO + + IF(LTOPB(I,J) .LE. 1) GOTO 666 + CTP2=CLDTOPB(I,J)+0.2*WUMAX*DT2/2.0 + LTOP2=1 + IF(CTP2 .GE. (Z0(KL)+DZQ(KL)/2.0)) THEN + CTP2=Z0(KL) + LTOP2=KL + ELSE + DO NK=1,KL + IF(CTP2 .LT. (Z0(NK)+DZQ(NK)/2.0) .AND. & + CTP2 .GE. (Z0(NK)-DZQ(NK)/2.0)) LTOP2 = NK + ENDDO + CTP2=MAX(CTP2,ZLCL) + LTOP2=MAX(LTOP2,KLCL) + ENDIF + + CLDTOP=MIN(CTP1,CTP2) + LTOP=MIN(LTOP1,LTOP2) + GOTO 667 + 666 CONTINUE + CLDTOP=CTP1 + LTOP=LTOP1 + 667 CONTINUE +#ifdef DENG_SHCU1D + IF( i == 1 .AND. j == 1 ) write(89,'(8f10.3,i3)') xtime/60.,CLDTOPB(I,J),CTP1,CTP2, & + CLDTOP,ZLCL,WUMAX,ABE, LTOPB(I,J) +#endif +! +! MODIFY TRPPT CONSIDERING ACTUAL CLOUD TOP WHICH IS +! LOWER IN MOST CASES +! + IF(LTOP .EQ. LTOP2 .AND. LTOP1 .GT. LTOP2) THEN + DO NK=LTOP2+1,LTOP1 + TRPPT=TRPPT-PPTLIQ(NK)-PPTICE(NK) + ENDDO + ENDIF + CLDDPTH=CLDTOP-ZLCL + IF(CLDDPTH .LE. 0.0) CLDDPTH=0.0 +#ifdef DENG_SHCU1D + CLDHGTG(I,J)=CLDDPTH ! Graphics + PCLDTPG(I,J)=P0(LTOP) ! Graphics + TCLDTPG(I,J)=TU(LTOP) ! Graphics +#endif +! +! FIND LEVEL OF FREE CONVECTION. WHEN THE PARCCEL IS WARMER THAN THE ENVIRONMENT +! AT ITS LCL, IT NEED AT LEAST 400 M TO SAY THAT LFC IF AT LCL +! + ZLFC=Z0(KL) + IF(CLDDPTH .LE. 0.0) THEN + ZLFC=Z0(KL) + GOTO 67 + ELSE IF(TVQU(KLCL) .GE. TV0(KLCL)) THEN + SUM=0.0 + KVAL=MAX(KLCL,KKPBL) + loop61: DO KS=KVAL,LTOP1 + IF(TVQU(KS).GT.TV0(KS)) THEN + SUM=SUM+DZQ(KS) + ELSE + EXIT loop61 + ENDIF + ENDDO loop61 + + IF(SUM .GE. 300.) THEN + ZLFC=ZLCL + GO TO 67 + ENDIF + ENDIF + + KVAL=KLCL + loop66: DO KK =KVAL,LTOP1-1 + IF(TVQU(KK) .LT. TV0(KK) .AND. TVQU(KK+1).GT.TV0(KK+1)) THEN + K1=KK + K2=KK+1 +! VAL0=TVQU(K2)-TV0(K2)+TV0(K1)-TVQU(K1) +! IF( ABS(VAL0) < 0.001 ) then +! if( dbg_level > 100 ) then +! write(message,*) kval, k1, k2, TVQU(K2), TV0(K2), TVQU(K1), TV0(K1), TVQU(K2)-TV0(K2)+TV0(K1)-TVQU(K1) +! call wrf_message( message ) +! endif +! STOP 999 ! aj +! ENDIF +! VAL1=(TVQU(K2)-TV0(K2))/VAL0 +! VAL2=(TV0(K1)-TVQU(K1))/VAL0 +! VAL=VAL1*Z0(K1)+VAL2*Z0(K2) + VAL=Z0(K2) + + SUM=0.0 + loop62: DO KS=K2,LTOP1 + IF(TVQU(KS).GT.TV0(KS)) THEN + SUM=SUM+DZQ(KS) + ELSE + EXIT loop62 + ENDIF + ENDDO loop62 + + IF(SUM .GE. 300.) THEN + ZLFC=VAL + EXIT loop66 + ELSE + CYCLE loop66 + ENDIF + ENDIF + + ENDDO loop66 + + 67 CONTINUE + + ZLFC=MAX(ZLFC,ZPBL) +! ZLFC=ZLCL +! ZLFC=Z0(KL) +!================================================================= +#ifdef DENG_SHCU1D + DO NK=LLC,K + TUG(NK)=TLCL*(P0(NK)/PLCL)**ROCPQ + ENDDO + DO NK=K+1,LTOP + TUG(NK)=TU(NK) + ENDDO +#endif + + IF( CLDTOP .LE. ZLCL .OR. LTOP .LT. KLCL) THEN +#ifdef DENG_SHCU1D + PLET = P0(1) + TLET = TLCL*(PLET/PLCL)**ROVCP + PLFSG(I,J) = P0(1) + TLFSG(I,J) = TLCL*(PLFSG(I,J)/PLCL)**ROVCP + PLDTG(I,J) = P0(1) + TLDTG(I,J) = TLCL*(PLDTG(I,J)/PLCL)**ROVCP + PLDBG(I,J) = P0(1) + TLDBG(I,J) = TLCL*(PLDBG(I,J)/PLCL)**ROVCP +#endif + CLDTOP = Z0(1) + LTOP = 1 + GO TO 425 + END IF + IF( LET .GT. LTOP ) LET = LTOP +! +!...IF THE LET AND LTOP ARE THE SAME, DETRAIN ALL OF THE UPDRAFT MASS FLUX AT +! THIS LEVEL... +! + IF(LET.EQ.LTOP)THEN + UPOLD=UMF(LTOP-1)-UDR(LTOP) + UPNEW=UPOLD+UER(LTOP) + UDR(LTOP)=UMF(LTOP)+UDR(LTOP)-UER(LTOP) + IF( ABS(UPOLD) < 0.001 ) STOP 907 + DETLQ(LTOP)=RLIQ(LTOP)*UDR(LTOP)*UPNEW/UPOLD + DETIC(LTOP)=RICE(LTOP)*UDR(LTOP)*UPNEW/UPOLD + UER(LTOP)=0. + UMF(LTOP)=0. + GOTO 85 + ENDIF +! +! BEGIN TOTAL DETRAINMENT AT THE LEVEL ABOVE THE LET... +! + DPTT=0. + DO NJ=LET+1,LTOP + DPTT=DPTT+DP(NJ) + ENDDO + DUMFDP=UMF(LET)/DPTT +! +!...ADJUST MASS FLUX PROFILES, DETRAINMENT RATES, AND PRECIPITATION FALLOUT +! RATES TO REFLECT THE LINEAR DECREASE IN MASS FLX BETWEEN THE LET AND LTOP +! + DO NK=LET+1,LTOP + UDR(NK)=DP(NK)*DUMFDP + UMF(NK)=UMF(NK-1)-UDR(NK) + DETLQ(NK)=RLIQ(NK)*UDR(NK) + DETIC(NK)=RICE(NK)*UDR(NK) + IF(NK.GE.LET+2)THEN + TRPPT=TRPPT-PPTLIQ(NK)-PPTICE(NK) + PPTLIQ(NK)=UMF(NK-1)*QLQOUT(NK) + PPTICE(NK)=UMF(NK-1)*QICOUT(NK) + TRPPT=TRPPT+PPTLIQ(NK)+PPTICE(NK) + ENDIF + ENDDO + +85 CONTINUE +! +!...EXTEND THE UPDRAFT MASS FLUX PROFILE DOWN TO THE SOURCE LAYER FOR THE +! UPDRAFT AIR...ALSO, DEFINE THETAE FOR LEVELS BELOW THE LCL... +! + QMIX1 = 0.0 + ZMIX1 = 0.0 + DPTHMX1 = 0.0 + DO NK = LLC, K + DPTHMX1 = DPTHMX1 + DP(NK) + QMIX1 = QMIX1 + DP(NK)*Q0(NK) + ZMIX1 = ZMIX1 + DP(NK)*Z0(NK) + ENDDO + QMIX1 = QMIX1 / DPTHMX1 + ZMIX1 = ZMIX1 / DPTHMX1 + + DO NK=1,K + IF(NK.GE.LLC)THEN + IF(NK.EQ.LLC)THEN + UMF(NK)=VMFPBLCL*DP(NK)/DPTHMX1 + UER(NK)=VMFPBLCL*DP(NK)/DPTHMX1 + ELSEIF(NK .LE. K)THEN + UER(NK)=VMFPBLCL*DP(NK)/DPTHMX1 + UMF(NK)=UMF(NK-1)+UER(NK) + ELSE + UMF(NK)=VMFPBLCL + UER(NK)=0. + ENDIF + QU(NK)=QMIX1 + TU(NK)=TLCL+(Z0(NK)-ZLCL)*GDRY + WU(NK)=WPBLTP + ELSE + TU(NK)=0. + QU(NK)=0. + UMF(NK)=0. + WU(NK)=0. + UER(NK)=0. + ENDIF + UDR(NK)=0. + QDT(NK)=0. + RLIQ(NK)=0. + RICE(NK)=0. + QLQOUT(NK)=0. + QICOUT(NK)=0. + PPTLIQ(NK)=0. + PPTICE(NK)=0. + DETLQ(NK)=0. + DETIC(NK)=0. + RATIO2(NK)=0. + EE=Q0(NK)*P0(NK)/(0.622+Q0(NK)) + TLOG=ALOG(EE/SVP1/1000.) + TDPT=(SVP2*SVPT0-SVP3*TLOG)/(SVP2-TLOG) + TSAT=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(T0(NK)-T00))*(T0(NK)-TDPT) + THTA=T0(NK)*(1.E5/P0(NK))**(0.2854*(1.-0.28*Q0(NK))) + THETEE(NK)=THTA*EXP((3374.6525/TSAT-2.5403)*Q0(NK)*(1.+0.81*Q0(NK))) + THTES(NK)=THTA*EXP((3374.6525/T0(NK)-2.5403)*QES(NK)*(1.+0.81*QES(NK))) + EQFRC(NK)=1.0 + ENDDO + + LTOP1=LTOP+1 + LTOPM1=LTOP-1 +! +!...DEFINE VARIABLES ABOVE CLOUD TOP... +! + DO NK = LTOP1, KX + UMF(NK) = 0. + UDR(NK)=0. + UER(NK)=0. + QDT(NK)=0. + RLIQ(NK)=0. + RICE(NK)=0. + QLQOUT(NK)=0. + QICOUT(NK)=0. + DETLQ(NK)=0. + DETIC(NK)=0. + PPTLIQ(NK)=0. + PPTICE(NK)=0. + IF(NK.GT.LTOP1)THEN + TU(NK)=0. + QU(NK)=0. + WU(NK)=0. + ENDIF + THTA0(NK)=0. + THTAU(NK)=0. + EMS(NK)=DP(NK)*DXSQ/G + EMSD(NK)=1./EMS(NK) + TG(NK)=T0(NK) + QQG(NK)=Q0(NK) + QCG(NK)=0. + DCA(NK)=0. + DMS(NK)=0. + DTFM(NK)=0. + FXM(NK)=0.0 + OMG(NK)=0. + ENDDO + OMG(KXP1)=0. + +#ifdef DENG_SHCU1D +! +! 1-D GRAPHICS +! + DO NK=1,KL + wutemp(nk)=wu(NK) + ENDDO +#endif + + P165=P0(KLCL)-1.65E4 + PPTMLT=0. + DO NK=1,LTOP + EMS(NK)=DP(NK)*DXSQ/G + EMSD(NK)=1./EMS(NK) + DTFM(NK)=0. +! +!...INITIALIZE SOME VARIABLES TO BE USED LATER IN THE VERT ADVECTION SCHEME. +! + EXN(NK)=(P00/P0(NK))**(0.2854*(1.-0.28*QDT(NK))) + THTAU(NK)=TU(NK)*EXN(NK) + EXN(NK)=(P00/P0(NK))**(0.2854*(1.-0.28*Q0(NK))) + THTA0(NK)=T0(NK)*EXN(NK) + + IF(P0(NK).GT.P165) LVF=NK + PPTMLT=PPTMLT+PPTICE(NK) + + OMG(NK)=0. + ENDDO + + CLVF=0. + DO NK=KLCL,LVF+1 + CLVF=CLVF+PPTLIQ(NK)+PPTICE(NK) + ENDDO + USR=UMF(LVF+1)*QU(LVF+1)+CLVF + USR=MIN(USR,TRPPT) +! WRITE(28,1025)KLCL,ZLCL,LTOP,P0(LTOP),IFLAG, & +! TMIX-T00,PMIX,QMIX,ABE +! WRITE(28,1030)P0(LET)/100.,P0(LTOP)/100.,VMFPBLCL,XTIME/60. & +! ,PLCL/100.,WPBLTP,CLDDPTH +!1025 FORMAT(5X,' KLCL=',I2,' ZLCL=',F7.1,'M', & +! ' LTOP=',I2,' P0(LTOP)=',-2PF5.1,'MB FRZ LV=', & +! I2,' TMIX=',0PF4.1,1X,'PMIX=',-2PF6.1,' QMIX=',3PF5.1, & +! ' CAPE=',0PF7.1) +!1030 FORMAT(' ',' P0(LET) = ',F6.1,' P0(LTOP) = ',F6.1,' VMFLCL =', & +! E12.3,' XTIME =',F10.3,' PLCL =',F6.1,' WLCL =',F6.3,' CLDHGT =', & +! F8.1) +! +!...COMPUTE CONVECTIVE TIME SCALE(TIMEC). THE MEAN WIND AT THE LCL +!...AND MIDTROPOSPHERE IS USED. +! + WSPD(KLCL)=SQRT(U0(KLCL)*U0(KLCL)+V0(KLCL)*V0(KLCL)) + WSPD(L5)=SQRT(U0(L5)*U0(L5)+V0(L5)*V0(L5)) + WSPD(LTOP)=SQRT(U0(LTOP)*U0(LTOP)+V0(LTOP)*V0(LTOP)) + VCONV = .5*(WSPD(KLCL)+WSPD(L5)) + TIMEC = DX/VCONV + TADVEC = TIMEC + TCMIN = 1800. + TCMAX = 3600. + TIMEC = MAX(TCMIN,TIMEC) + TIMEC = MIN(TCMAX,TIMEC) + NIC = NINT(TIMEC/(.5*DT2)) + TIMEC = FLOAT(NIC)*.5*DT2 +! +!...COMPUTE WIND SHEAR AND PRECIPITATION EFFICIENCY. +! + IF(WSPD(LTOP).GT.WSPD(KLCL))THEN + SHSIGN=1. + ELSE + SHSIGN=-1. + ENDIF + VWS=(U0(LTOP)-U0(KLCL))*(U0(LTOP)-U0(KLCL))+(V0(LTOP)-V0(KLCL))*(V0(LTOP)-V0(KLCL)) + IF(LTOP .LE. LCL) GO TO 425 + VWS=1.E3*SHSIGN*SQRT(VWS)/(Z0(LTOP)-Z0(LCL)) + PEF=1.591+VWS*(-.639+VWS*(9.53E-2-VWS*4.96E-3)) + PEFMX=0.9 + PEFMN=0.2 + PEF=MAX(PEF,PEFMN) + PEF=MIN(PEF,PEFMX) +! +!...PRECIPITATION EFFICIENCY IS A FUNCTION OF THE HEIGHT OF CLOUD BASE. +! + CBH=(ZLCL-Z0(1))*3.281E-3 + IF(CBH.LT.3.) THEN + RCBH=.02 + ELSE + RCBH=.96729352+CBH*(-.70034167+CBH*(.162179896+CBH*(- & + 1.2569798E-2+CBH*(4.2772E-4-CBH*5.44E-6)))) + ENDIF + IF (CBH.GT.25) RCBH=2.4 + PEFCBH=1./(1.+RCBH) + CBHMX=0.9 + PEFCBH=MIN(PEFCBH,CBHMX) +! +!... MEAN PEF. IS USED TO COMPUTE RAINFALL. +! DOWNDRAFT IS TURNED OFF BY RATE=0.0 +! + PEFF=.5*(PEF+PEFCBH) + IF(CLDDPTHB(I,J) .LT. 4.E3) THEN + USR=TRPPT + PEFF=0.99999 + ENDIF +! IF ( wrf_dm_on_monitor()) THEN +! CALL get_wrf_debug_level( dbg_level ) +! IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN +! WRITE(message,1035)PEF,PEFCBH,LC,LET,VWS +!1035 FORMAT(1X,'PEF(WS)=',F4.2,'(CB)=',F4.2,'LC,LET=',2I3,'VWS=',F5.2) +! CALL wrf_message( message ) +! ENDIF +! ENDIF +! +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! BEGINING OF DOWNDRAFT CACULATION +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! +!...LET DOWNDRAFT ORIGINATE AT THE LEVEL OF MINIMUM SATURATION EQUIVALENT +!...POTENTIAL TEMPERATURE (SEQT) IN THE CLOUD LAYER, EXTEND DOWNWARD TO THE +!...SURFACE, OR TO THE LAYER BELOW CLOUD BASE AT WHICH ENVIR SEQT IS LESS +!...THAN MIN SEQT IN THE CLOUD LAYER...LET DOWNDRAFT DETRAIN OVER A LAYER +!...OF SPECIFIED PRESSURE-DEPTH (DPDD)... +! + TDER=0. + KSTART=MAX0(KKPBL,KLCL) + THTMIN=THTES(KSTART+1) + KMIN=KSTART+1 + DO NK=KSTART+2,LTOP-1 + THTMIN=MIN(THTMIN,THTES(NK)) + IF(THTMIN.EQ.THTES(NK))KMIN=NK + ENDDO + LFS=KMIN + IF(LFS .GE. LTOP) LFS=LTOP-1 + IF(RATIO2(LFS).GT.0.)CALL ENVIRTHT(P0(LFS),T0(LFS),Q0(LFS), & + THETEE(LFS),0.,RL, & + SVP1,SVP2,SVPT0,SVP3,I,J) +! IF(RATIO2(LFS).GT.0.)CALL ENVIRTHT2(P0(LFS),T0(LFS),Q0(LFS), & +! THETEE(LFS),ALIQ,BLIQ,CLIQ,DLIQ) + + IF( ABS(THETEE(LFS)-THETEU(LFS)) < 1.E-3 ) THEN ! DENG 20140110 fix to avoid dividing by 0 + EQFRC(LFS) = 1.0 + ELSE + EQFRC(LFS)=(THTES(LFS)-THETEU(LFS))/(THETEE(LFS)-THETEU(LFS)) + ENDIF + EQFRC(LFS)=MAX(EQFRC(LFS),0.) + EQFRC(LFS)=MIN(EQFRC(LFS),1.) + THETED(LFS)=THTES(LFS) +! +!...ESTIMATE THE EFFECT OF MELTING ON THE DOWNDRAFT... +! + IF(ML.GT.0)THEN + DTMLTD=0.5*(QU(KLCL)-QU(LTOP))*RLF/CP + ELSE + DTMLTD=0. + ENDIF + TZ(LFS)=T0(LFS)-DTMLTD + ES=1.E3*SVP1*EXP(SVP2*(TZ(LFS)-SVPT0)/(TZ(LFS)-SVP3)) + QS = 0.622*ES/(P0(LFS)-ES) + QD(LFS)=EQFRC(LFS)*Q0(LFS)+(1.-EQFRC(LFS))*QU(LFS) + THTAD(LFS)=TZ(LFS)*(P00/P0(LFS))**(0.2854*(1.-0.28*QD(LFS))) + IF( QD(LFS) .GE. QS ) THEN + THETED(LFS)=THTAD(LFS)* & + EXP((3374.6525/TZ(LFS)-2.5403)*QS*(1.+0.81*QS)) + ELSE + CALL ENVIRTHT(P0(LFS),TZ(LFS),QD(LFS), & + THETED(LFS),0.,RL, & + SVP1,SVP2,SVPT0,SVP3,I,J) +! CALL ENVIRTHT2(P0(LFS),TZ(LFS),QD(LFS), & +! THETED(LFS),ALIQ,BLIQ,CLIQ,DLIQ) + ENDIF +! +!...DETERMINE THE LOWEST LEVEL TO WHICH DOWNDRAFT CAN PENETRATE (LDB)... +! + loop107: DO NK=1,LFS + ND=LFS-NK + IF(THETED(LFS).GT.THTES(ND) .OR. ND.EQ.1)THEN + LDB=ND + EXIT loop107 + ENDIF + ENDDO loop107 +! +!...ASSUME ALL OF DOWNDRAFT DETRAINMENT OCCURS AT ITS BASE, SO THE TOP OF THE +!...DETRAINMENT LAYER (LDT) IS THE SAME AS LDB... +! + DPDD= 20.0E2 + DPT=0. + loop115: DO NK=LDB,LFS + DPT=DPT+DP(NK) + IF(DPT.GT.DPDD)THEN + LDT=NK + FRC=(DPDD+DP(NK)-DPT)/DP(NK) + EXIT loop115 + ENDIF + IF(NK.EQ.LFS-1)THEN + LDT=NK + FRC=1. + DPDD=DPT + EXIT loop115 + ENDIF + ENDDO loop115 + + IF(LDB.EQ.LFS) THEN + TDER=0. + GOTO 141 + ENDIF +! +!...MAKE A FIRST GUESS AT INITIAL DOWNDRAFT MASS FLUX, DETERMINE ITS VERTICAL +!...PROFILE... +! + TVD(LFS)=T0(LFS)*(1.+0.608*QES(LFS)) + RDD=P0(LFS)/(R*TVD(LFS)) + A1=(1.-PEFF)*AU0 + DMF(LFS)=-A1*RDD + DER(LFS)=EQFRC(LFS)*DMF(LFS) + DDR(LFS)=0. + DO ND=LFS-1,LDB,-1 + ND1=ND+1 + IF(ND.LE.LDT)THEN + DER(ND)=0. + DDR(ND)=-DMF(LDT+1)*DP(ND)*FRC/DPDD + DMF(ND)=DMF(ND1)+DDR(ND) + FRC=1. + THETED(ND)=THETED(ND1) + QD(ND)=QD(ND1) + ELSE + DER(ND)=DMF(LFS)*0.03*DP(ND)/RAD + DDR(ND)=0. + DMF(ND)=DMF(ND1)+DER(ND) + IF(RATIO2(ND).GT.0.)CALL ENVIRTHT(P0(ND),T0(ND),Q0(ND), & + THETEE(ND),0.,RL, & + SVP1,SVP2,SVPT0,SVP3,I,J) +! IF(RATIO2(ND).GT.0.)CALL ENVIRTHT2(P0(ND),T0(ND),Q0(ND), & +! THETEE(ND),ALIQ,BLIQ,CLIQ,DLIQ) + THETED(ND)=(THETED(ND1)*DMF(ND1)+THETEE(ND)*DER(ND))/DMF(ND) + QD(ND)=(QD(ND1)*DMF(ND1)+Q0(ND)*DER(ND))/DMF(ND) + ENDIF + ENDDO +! +!...DETERMINE TOTAL DOWNDRAFT EVAPORATION RATE (TDER) +! + TDER=0. + DO ND=LDB,LDT + TZ(ND)=TPDDBG(P0(ND),THETED(LDT),T0(ND),QS,QD(ND),1.0, & + XLV0,XLV1, & + SVP1,SVP2,SVPT0,SVP3) +! CALL TPMIX2DD(p0(ND),theted(LDT),tz(ND),qs,ktau,i,j,nd) + + ES=1.E3*SVP1*EXP(SVP2*(TZ(ND)-SVPT0)/(TZ(ND)-SVP3)) + QS=0.622*ES/(P0(ND)-ES) + DQSSDT=SVP2*(SVPT0-SVP3)/((TZ(ND)-SVP3)*(TZ(ND)-SVP3)) + RL=XLV0-XLV1*TZ(ND) + DTMP=RL*QS*(1.-RHBC)/(CP+RL*RHBC*QS*DQSSDT) + T1RH=TZ(ND)+DTMP + ES=RHBC*1.E3*SVP1*EXP(SVP2*(T1RH-SVPT0)/(T1RH-SVP3)) + QSRH=0.622*ES/(P0(ND)-ES) +! +!...CHECK TO SEE IF MIXING RATIO AT SPECIFIED RH IS LESS THAN ACTUAL +!...MIXING RATIO...IF SO, ADJUST TO GIVE ZERO EVAPORATION... +! + IF(QSRH.LT.QD(ND))THEN + QSRH=QD(ND) + T1RH=TZ(ND) + ENDIF + TZ(ND)=T1RH + QS=QSRH + TDER=TDER + (QS-QD(ND))*DDR(ND) + QD(ND)=QS + THTAD(ND)=TZ(ND)*(P00/P0(ND))**(0.2854*(1.-0.28*QD(ND))) + ENDDO +! +!...IF DOWNDRAFT DOES NOT EVAPORATE ANY WATER FOR SPECIFIED RELATIVE +!...HUMIDITY, NO DOWNDRAFT IS ALLOWED... +! + 141 CONTINUE + IF(TDER.LT.1.)THEN + PPTFLX=TRPPT + CPR=TRPPT + TDER=0. + CNDTNF=0. + UPDINC=1. + LDB=LFS + + DO NDK=1,KX + DMS(NDK)=0. + DMF(NDK)=0. + DER(NDK)=0. + DDR(NDK)=0. + THTAD(NDK)=0. + WD(NDK)=0. + TZ(NDK)=0. + QD(NDK)=0. + ENDDO + + AINCM2=100. + DMFMIN=0. + GOTO 165 + ENDIF +! +!...ADJUST DOWNDRAFT MASS FLUX SO THAT EVAPORATION RATE IN DOWNDRAFT IS +!...CONSISTENT WITH PRECIPITATION EFFICIENCY RELATIONSHIP... +! + DEVDMF=TDER/DMF(LFS) + PPR=0. + PPTFLX=PEFF*USR + RCED=TRPPT-PPTFLX +! +!...PPR IS THE TOTAL AMOUNT OF PRECIPITATION THAT FALLS OUT OF THE UPDRAFT +!...FROM CLOUD BASE TO THE LFS...UPDRAFT MASS FLUX WILL BE INCREASED UP TO +!...THE LFS TO ACCOUNT FOR UPDRAFT AIR MIXING WITH ENVIRONMENTAL AIR TO MAKE +!...THE UPDRAFT, SO PPR WILL INCREASE PROPORTIONATELY... +! + DO NM=KLCL,LFS + PPR=PPR+PPTLIQ(NM)+PPTICE(NM) + ENDDO + IF(LFS.GE.KLCL)THEN + DPPTDF=(1.-PEFF)*PPR*(1.-EQFRC(LFS))/UMF(LFS) + ELSE + DPPTDF=0. + ENDIF +! +!...CNDTNF IS THE AMOUNT OF CONDENSATE TRANSFERRED ALONG WITH UPDRAFT MASS TO +!...THE DOWNDRAFT AT THE LFS... +! + CNDTNF=(RLIQ(LFS)+RICE(LFS))*(1.-EQFRC(LFS)) + DMFLFS=RCED/(DEVDMF+DPPTDF+CNDTNF) + IF(DMFLFS.GT.0.)THEN + TDER=0. + GOTO 141 + ENDIF +!...DDINC IS THE FACTOR BY WHICH TO INCREASE THE FIRST-GUESS DOWNDRAFT MASS FLUX +!...TO SATISFY THE PRECIP EFFICIENCY RELATIONSHIP, UPDINC IS THE FACTOR BY WHICH +!...TO INCREASE THE UPDRAFT MASS FLUX BELOW THE LFS TO ACCOUNT FOR THE TRANSFER +!...OF MASS FROM UPDRAFT TO DOWNDRAFT... +! + DDINC=DMFLFS/DMF(LFS) + IF(LFS.GE.KLCL)THEN + UPDINC=(UMF(LFS)-(1.-EQFRC(LFS))*DMFLFS)/UMF(LFS) + ELSE + UPDINC=1. + ENDIF + DO NK=LDB,LFS + DMF(NK)=DMF(NK)*DDINC + DER(NK)=DER(NK)*DDINC + DDR(NK)=DDR(NK)*DDINC + ENDDO + CPR=TRPPT+PPR*(UPDINC-1.) + PPTFLX = PPTFLX+PEFF*PPR*(UPDINC-1.) + TDER=TDER*DDINC +! +!...ADJUST UPDRAFT MASS FLUX, MASS DETRAINMENT RATE, AND LIQUID WATER AND ICE +! DETRAINMENT RATES TO BE CONSISTENT WITH THE TRANSFER OF THE ESTIMATED MASS +! FROM THE UPDRAFT TO THE DOWNDRAFT AT THE LFS... +! + DO NK=LC,LFS + UMF(NK)=UMF(NK)*UPDINC + UDR(NK)=UDR(NK)*UPDINC + UER(NK)=UER(NK)*UPDINC + PPTLIQ(NK)=PPTLIQ(NK)*UPDINC + PPTICE(NK)=PPTICE(NK)*UPDINC + DETLQ(NK)=DETLQ(NK)*UPDINC + DETIC(NK)=DETIC(NK)*UPDINC + ENDDO + IF(LDB.GT.1)THEN + DO NK=1,LDB-1 + DMF(NK)=0. + DER(NK)=0. + DDR(NK)=0. + WD(NK)=0. + TZ(NK)=0. + QD(NK)=0. + THTAD(NK)=0. + ENDDO + ENDIF + + DO NK=LFS+1,KX + DMF(NK)=0. + DER(NK)=0. + DDR(NK)=0. + WD(NK)=0. + TZ(NK)=0. + QD(NK)=0. + THTAD(NK)=0. + ENDDO + + DO NK=LDT+1,LFS-1 + TZ(NK)=0. + QD(NK)=0. + ENDDO +! +!...SET LIMITS ON THE UPDRAFT AND DOWNDRAFT MASS FLUXES SO THAT THE INFLOW +! INTO CONVECTIVE DRAFTS FROM A GIVEN LAYER IS NO MORE THAN IS AVAILABLE +! IN THAT LAYER INITIALLY... +! +165 CONTINUE + AINCMX=1000. + LMAX=MAX0(KLCL,LFS) + DO NK=LLC,LMAX + IF((UER(NK)-DER(NK)).GT.0.) & + AINCM1=EMS(NK)/((UER(NK)-DER(NK))*TIMEC) + AINCMX=MIN(AINCMX,AINCM1) + ENDDO + + AINC=1. + IF(AINCMX.LT.AINC)AINC=AINCMX +! +!...SAVE THE RELEVENT VARIABLES FOR A UNIT UPDRFT AND DOWNDRFT...THEY WILL BE +! ADJUSTED BY THE FACTOR AINC TO SATISFY THE STABILIZATION CLOSURE... +! + NCOUNT=0 + PPTMLT=0. + TDER2=TDER + PPTFL2=PPTFLX + DO NK=1,LTOP + DETLQ2(NK)=DETLQ(NK) + DETIC2(NK)=DETIC(NK) + UDR2(NK)=UDR(NK) + UER2(NK)=UER(NK) + DDR2(NK)=DDR(NK) + DER2(NK)=DER(NK) + UMF2(NK)=UMF(NK) + DMF2(NK)=DMF(NK) + DMS(NK)=0. + IF(NK.GT.ML .AND. NK.LT.LTOP)THEN + PPTMLT=PPTMLT+PPTICE(NK+1) + ENDIF + ENDDO + + PPTML2=PPTMLT + FABE=1. + STAB=0.95 + AINC2=AINC + IF(AINC/AINCMX.GT.0.999)GOTO 255 + ISTOP=0 + + KKPBL=K +! +!...FIND THE MAXIMUM TKE VALUE BETWEEN LLC AND KLCL... AND USE IT TO +! CALCULATE AINC2 +! + TKEMAX=0. + DO KK=LLC,KLCL + TKEMAX=AMAX1(TKEMAX,TKE0(KK)) + ENDDO + TKEMAX=AMIN1(TKEMAX,10.) + TKEMAX=AMAX1(TKEMAX,1.0) + DSOURCE=Z0(K)-Z0(LLC)+0.5*(DZQ(K)+DZQ(LLC)) + TIMECS=DSOURCE/WPBLTP*45.0 + AINC2=TKEMAX*DPTHMX1*DXSQ/(VMFLCL*G*TIMECS) +#ifdef DENG_SHCU1D + IF( i == 1 .AND. j == 1 ) write(808,'(i7,f10.3, 2i4)') ktau, xtime/60.,LLC, KLCL + IF( i == 1 .AND. j == 1 ) write(809,'(i7,4f10.3)') ktau, xtime/60.,TKEMAX, & + DSOURCE, AINC2 +#endif +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! BEGINING OF CLOSURE ASSUMPTION SELECTIONS +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! + IF(CAPEI(I,J) .LT. 100.0) THEN ! averaging KF number of clouds + NT = NINT(15.0*60.0/(0.5*DT))-1 ! for 15 min. + ELSE + NT = 0 + ENDIF + + 175 NCOUNT=NCOUNT+1 +! +! +!...DETERMINE OMEGA VALUE NECESSARY AT TOP AND BOTTOM OF EACH LAYER TO +!...SATISFY MASS CONTINUITY... +! + DTT=TIMEC + DO NK=1,LTOP + DOMGDP(NK)=-(UER(NK)-DER(NK)-UDR(NK)-DDR(NK))*EMSD(NK) + IF(NK.GT.1)THEN + OMG(NK)=OMG(NK-1)-DP(NK-1)*DOMGDP(NK-1) + DTT1 = 0.75*DP(NK-1)/(ABS(OMG(NK))+1.E-10) + DTT=MIN(DTT,DTT1) + ENDIF + ENDDO +! +! NOTE: +! KFLAG=2: CLOUD TOP LOWER THAN LFC +! KFLAG=3: CLOUD TOP HIGHER THAN LFC BUT LOWER THAN 4 KM +! KFLAG=4: CLOUD TOP HIGHER THAN 4 KM +! + IF(KFLAG .EQ. 2) GO TO 176 + + IF((CLDDPTH+ZLCL) .LE. ZLFC) THEN + AINC=AINC2 + KFLAG=2 + GO TO 255 + ENDIF + + 176 CONTINUE + + DO NK=1,LTOP + THPA(NK)=THTA0(NK) + QPA(NK)=Q0(NK) + QCPA(NK)= QC0(NK) + DCA(NK) = DCA0(NK) + NSTEP=NINT(TIMEC/DTT+1) + DTIME=TIMEC/FLOAT(NSTEP) + FXM(NK)=OMG(NK)*DXSQ/G +#ifdef DENG_SHCU1D + wsubsub(nk)=-omg(nk)/rhoe(nk)/g +#endif + ENDDO + + loop495: DO NTC=1,NSTEP +! +!...ASSIGN THETA AND Q VALUES AT THE TOP AND BOTTOM OF EACH LAYER BASED ON THE +!...SIGN OF OMEGA... +! + DO NK=1,LTOP + THFXIN(NK)=0. + THFXOUT(NK)=0. + QFXIN(NK)=0. + QFXOUT(NK)=0. + QCFXIN(NK)=0. + QCFXOUT(NK)=0. + DCAFXIN(NK)=0.0 + DCAFXOUT(NK)=0.0 + ENDDO + + DO NK=2,LTOP +! +! THIS PART IS ALSO MODIFIED TO INCLUDE THE SUBSIDANCE EFFECT +! ON DEAD CLOUD. THE FLUXES INTO THE LAYER ARE MODIFIED +! TO CONSIDER THE EFFECT ON QC,THETA,QV, GD ID ADIABATIC LAPSE +! RATE AND GM IS MOIST ADIABATIC LAPSE RATE +! + IF(OMG(NK).LE.0.)THEN + THFXIN(NK)=-FXM(NK)*THPA(NK-1) + QFXIN(NK)=-FXM(NK)*QPA(NK-1) + QCFXIN(NK)=-FXM(NK)*QCPA(NK-1) + DCAFXIN(NK) = -FXM(NK)*DCA(NK-1) + THFXOUT(NK-1)=THFXOUT(NK-1)+THFXIN(NK) + QFXOUT(NK-1)=QFXOUT(NK-1)+QFXIN(NK) + QCFXOUT(NK-1)=QCFXOUT(NK-1)+QCFXIN(NK) + DCAFXOUT(NK-1)=DCAFXOUT(NK-1)+DCAFXIN(NK) + ELSE + GD=G/CP + CPM=CP*(1.+0.887*Q0(NK)) + IF(T0(NK) .GT. TO) THEN + RL=XLV0-XLV1*T0(NK) + DQSSDT=QES(NK)*SVP2*(SVPT0-SVP3) & + /((T0(NK)-SVP3)*(T0(NK)-SVP3)) + ELSE + RL=XLS + DQSSDT=QES(NK)*6.15E3/(T0(NK)*T0(NK)) + ENDIF + GM=GD/(1.0+RL/CPM*DQSSDT) + DTEMPDT=(GD-GM)*OMG(NK)/RHOE(NK)/G + IF((QCPA(NK)-DTEMPDT*CP/RL*DTIME) .LE. 0.0) & + DTEMPDT=QCPA(NK)/(CP/RL*DTIME) + DTHETADT=DTEMPDT*(P00/P0(NK))**(0.2854*(1.-0.28*Q0(NK))) + THFXOUT(NK)=FXM(NK)*(THPA(NK)-DTHETADT*DTIME) + QFXOUT(NK)=FXM(NK)*(QPA(NK) +DTEMPDT*CP/RL*DTIME) + QCFXOUT(NK)=FXM(NK)*(QCPA(NK)-DTEMPDT*CP/RL*DTIME) + DCAFXOUT(NK)=FXM(NK)*DCA(NK) + THFXIN(NK-1)=THFXIN(NK-1)+THFXOUT(NK) + QFXIN(NK-1)=QFXIN(NK-1)+QFXOUT(NK) + QCFXIN(NK-1)=QCFXIN(NK-1)+QCFXOUT(NK) + DCAFXIN(NK-1)=DCAFXIN(NK-1)+DCAFXOUT(NK) + ENDIF + ENDDO +! +!...UPDATE THE THETA AND QV VALUES AT EACH LEVEL... +! + DO NK=LTOP,1,-1 + IF( NK .GT. KKPBL .OR. NK .LT. LLC) THEN + THPA(NK)=THPA(NK)+ & + (THFXIN(NK)+UDR(NK)*THTAU(NK)+DDR(NK)*THTAD(NK)- & + THFXOUT(NK)-(UER(NK)-DER(NK))*THTA0(NK))*DTIME*EMSD(NK) + QPA(NK)=QPA(NK)+ & + (QFXIN(NK)+UDR(NK)*QDT(NK)+DDR(NK)*QD(NK) & + -QFXOUT(NK)-(UER(NK)-DER(NK))*Q0(NK))*DTIME*EMSD(NK) + ELSE + THPA(NK)=THPA(NK)+ & + (THFXIN(NK)+UDR(NK)*THTAU(NK)+DDR(NK)*THTAD(NK)- & + THFXOUT(NK)-UER(NK)*THMIX+DER(NK)*THTA0(NK))* & + DTIME*EMSD(NK) + QPA(NK)=QPA(NK)+ & + (QFXIN(NK)+UDR(NK)*QDT(NK)+DDR(NK)*QD(NK) & + -QFXOUT(NK)-UER(NK)*QMIX+DER(NK)*Q0(NK))* & + DTIME*EMSD(NK) + END IF + QCPA(NK)=QCPA(NK)+ & + (QCFXIN(NK)+DETLQ(NK)+DETIC(NK)-QCFXOUT(NK))*DTIME*EMSD(NK) +! +! ADDING DEAD CLOUD AREA DCA WHICH WILL BE USED IN LOOP 320 TO CALCULATED +! THE TENDENCY DDCADT IN LOOP 320, THE TENDENCY (DQCDCDT) FOR DEAD CLOUD +! LIQUID WATER CONTENT QCDC IS SOLVE AS A RESIDUAL OF DQLDT-DDCADT +! + DCA(NK)=DCA(NK)+(DCAFXIN(NK)-DCAFXOUT(NK)+UDR(NK))*DTIME*EMSD(NK) + ENDDO + + ENDDO loop495 + + DO NK=LTOP,1,-1 + THTAG(NK)=THPA(NK) + QQG(NK)=QPA(NK) + QCG(NK)=QCPA(NK) + ENDDO +! +!...CHECK TO SEE IF MIXING RATIO DIPS BELOW ZERO ANYWHERE; IF SO, BORROW +!...MOISTURE FROM ADJACENT LAYERS TO BRING IT BACK UP ABOVE ZERO... +! + DO NK = 1,LTOP + IF(QQG(NK).LT.0.)THEN + TMA = QQG(NK+1)*EMS(NK+1) + TMB = QQG(NK-1)*EMS(NK-1) + TMM = (QQG(NK)-1.E-9)*EMS(NK ) + BCOEFF = -TMM/((TMA*TMA)/TMB+TMB) + ACOEFF = BCOEFF*TMA/TMB + TMB = TMB*(1.-BCOEFF) + TMA = TMA*(1.-ACOEFF) + QQG(NK) = 1.E-9 + QQG(NK+1) = TMA*EMSD(NK+1) + QQG(NK-1) = TMB*EMSD(NK-1) + ENDIF + ENDDO + TOPOMG = (UDR(LTOP)-UER(LTOP))*DP(LTOP)*EMSD(LTOP) + IF(ABS(TOPOMG-OMG(LTOP)).GT. 1.E-3)THEN + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + WRITE(message,*)'ERROR: MASS DOES NOT BALANCE IN KF SCHEME;', & + ' TOPOMG, OMG =',TOPOMG,OMG(LTOP) + CALL wrf_message( message ) + ENDIF + ENDIF + ISTOP=1 + GOTO 265 + ENDIF +! +!...CONVERT THETA TO T, FREEZE ALL SUPERCOOLED DETRAINED LIQUID WATER BECAUSE +!...SUPERCOOLED WATER NOT ALLOWED IN EXMOIS...FREEZE SUPERCOOLED PRECIP IF +!...FEEDING IT BACK TO EXMOIS... +! + DO NK=1,LTOP + EXN(NK)=(P00/P0(NK))**(0.2854*(1.-0.28*QQG(NK))) + TG(NK)=THTAG(NK)/EXN(NK) + IF(NK.GT.ML)DTFM(NK)=DETLQ(NK)*RLF*EMSD(NK)/CP + TG(NK)=TG(NK)+DTFM(NK)*timec + TVG(NK)=TG(NK)*(1.+0.608*QQG(NK)) + ENDDO +! +!...ALLOW FROZEN PRECIP TO MELT OVER A LAYER 200mb DEEP IF PRECIP IS NOT FED +!...BACK TO EXMOIS... +! + DTMLTE=0. + TDP=0. + loop231: DO K = 1,ML + NK = ML-K+1 + TDP=TDP+DP(NK) + IF(TDP.LT.2.E4)THEN + DTFM(NK)=DTMLTE + TG(NK)=TG(NK)+DTMLTE*TIMEC + ELSE + DTFM(NK)=DTMLTE*(2.E4+DP(NK)-TDP)/DP(NK) + TG(NK)=TG(NK)+DTMLTE*TIMEC*(2.E4+DP(NK)-TDP)/DP(NK) + EXIT loop231 + ENDIF + ENDDO loop231 + + IF(KFLAG .EQ. 2 .OR. KFLAG .EQ. 3) GO TO 265 +! +! COMPUTE NEW CLOUD AND CHANGE IN AVAILABLE BUOYANT ENERGY. +! +!...THE FOLLOWING COMPUTATIONS ARE SIMILAR TO THAT FOR UPDRAFT +! + THMIX2=0. + QMIX2=0. + PMIX2=0. + DO NK = 1,LM + ROCPQ=0.2854*(1.-0.28*QQG(NK)) + THMIX2=THMIX2+DP(NK)*TG(NK)*(P00/P0(NK))**ROCPQ + QMIX2=QMIX2+DP(NK)*QQG(NK) + PMIX2=PMIX2+DP(NK)*P0(NK) + ENDDO + THMIX2=THMIX2/DPTHMX + QMIX2=QMIX2/DPTHMX + PMIX2=PMIX2/DPTHMX + + ROCPQ=0.2854*(1.-0.28*QMIX2) + TMIX2=THMIX2*(PMIX2/P00)**ROCPQ + ES=1.E3*SVP1*EXP(SVP2*(TMIX2-SVPT0)/(TMIX2-SVP3)) + QS=0.622*ES/(PMIX2-ES) + IF(QMIX2.GT.QS)THEN + RL=XLV0-XLV1*TMIX2 + CPM=CP*(1.+0.887*QMIX2) + DQSSDT=QS*SVP2*(SVPT0-SVP3)/((TMIX2-SVP3)*(TMIX2-SVP3)) + DQ=(QMIX2-QS)/(1.+RL*DQSSDT/CPM) + TMIX2=TMIX2+RL/CP*DQ + QMIX2=QMIX2-DQ + ROCPQ=0.2854*(1.-0.28*QMIX2) + THMIX2=TMIX2*(P00/PMIX2)**ROCPQ + TTLCL=TMIX2 + PPLCL=PMIX2 + ELSE + QMIN=0. + QMIX2=MAX(QMIX2,QMIN) + EMIX2=QMIX2*PMIX2/(0.622+QMIX2) + TLOG=LOG(EMIX2/SVP1/1000.) + TDPT=(SVP2*SVPT0-SVP3*TLOG)/(SVP2-TLOG) + TTLCL=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(TMIX2-T00))* & + (TMIX2-TDPT) + TTLCL=MIN(TTLCL,TMIX2) + CPORQ=1./ROCPQ + PPLCL=P00*(TTLCL/THMIX2)**CPORQ + ENDIF + TVLCL=TTLCL*(1.+0.608*QMIX2) + + loop235: DO NK=LC,KL + KLCL=NK + IF(PPLCL.GE.P0(NK)) EXIT loop235 + ENDDO loop235 + + K=KLCL-1 + + DLP=LOG(PPLCL/P0(K))/LOG(P0(KLCL)/P0(K)) +! +!...ESTIMATE ENVIRONMENTAL TEMPERATURE AND MIXING RATIO AT THE LCL... +! + TENV=TG(K)+(TG(KLCL)-TG(K))*DLP + QENV=QQG(K)+(QQG(KLCL)-QQG(K))*DLP + TVEN=TENV*(1.+0.608*QENV) + TVBAR=0.5*(TVG(K)+TVEN) + ZLCL1=Z0(K)+R*TVBAR*LOG(P0(K)/PPLCL)/G + TVAVG=0.5*(TVEN+TG(KLCL)*(1.+0.608*QQG(KLCL))) + PPLCL=P0(KLCL)*EXP(G/(R*TVAVG)*(Z0(KLCL)-ZLCL1)) + THETEU(K)=TMIX2*(1.E5/PMIX2)**(0.2854*(1.-0.28*QMIX2))* & + EXP((3374.6525/TTLCL-2.5403)*QMIX2* & + (1.+0.81*QMIX2)) + ES=1.E3*SVP1*EXP(SVP2*(TENV-SVPT0)/(TENV-SVP3)) + QESE=0.622*ES/(PPLCL-ES) + THTESG(K)=TENV*(1.E5/PPLCL)**(0.2854*(1.-0.28*QESE))* & + EXP((3374.6525/TENV-2.5403)*QESE*(1.+0.81*QESE)) +! +!...COMPUTE ADJUSTED ABE(ABEG). +! + ABEG=0. + THTUDL=THETEU(K) + THATA = TMIX2*(1.E5/PMIX2)**0.286 + THTFC = THATA*EXP((XLV0-XLV1*TTLCL)*QMIX2/(CP*TTLCL)) + DO NK=K,LTOPM1 + NK1=NK+1 + ES=1.E3*SVP1*EXP(SVP2*(TG(NK1)-SVPT0)/(TG(NK1)-SVP3)) + QESE=0.622*ES/(P0(NK1)-ES) + THTESG(NK1)=TG(NK1)*(1.E5/P0(NK1))**(0.2854*(1.-0.28*QESE))* & + EXP((3374.6525/TG(NK1)-2.5403)*QESE*(1.+0.81*QESE)) + IF(NK.EQ.K)THEN + DZZ=Z0(KLCL)-ZLCL1 + ELSE + DZZ=DZA(NK) + ENDIF + BE=((2.*THTUDL)/(THTESG(NK1)+THTESG(NK))-1.)*DZZ + IF(BE.GT.0.)ABEG=ABEG+BE*G + ENDDO +! +!...FIND OUT HOW MUCH CAPE HAS BEEN REMOVED... +! + C1=999.9 + C2=999.9 + C3=999.9 + AINC3=999.0 + IF(ABEG.EQ.0)THEN + AINC=AINC*0.5 + IF(NCOUNT .LT. 10) THEN + GOTO 255 + ELSE + AINC4=AINC + IF(CLDDPTH .GE. 4.E3) THEN + KFLAG=4 + GOTO 265 + ELSE IF((CLDDPTH) .LT. 4.E3 .AND. & + CLDDPTH+ZLCL .GT. ZLFC) THEN + C1=CLDDPTH+ZLCL-ZLFC + C2=4000.0-ZLFC+ZLCL + IF( ABS(C2) < 0.001 ) STOP 901 + C3=C1/C2 + VAL = 0.0 + DO II = 1, NT + VAL = VAL + AINCKFSA(I,II,J) + ENDDO + AINC=(AINC+VAL)/FLOAT(NT+1) + AINCKFI(i,j)=AINC + AINC3=C3*AINC+(1-C3)*AINC2 + AINC=AINC3 + KFLAG=3 + GO TO 255 + ENDIF + ENDIF + ENDIF + DABE=MAX(ABE-ABEG,0.1*ABE) + FABE=ABEG/(ABE+1.E-8) + IF(AINC/AINCMX.GT.0.999 .AND. FABE.GT.1.05-STAB) THEN + AINC4=AINC + IF(CLDDPTH .GE. 4.E3) THEN + KFLAG=4 + GOTO 265 + ELSE IF((CLDDPTH) .LT. 4.E3 .AND. & + CLDDPTH+ZLCL .GT. ZLFC) THEN + C1=CLDDPTH+ZLCL-ZLFC + C2=4000.0-ZLFC+ZLCL + IF( ABS(C2) < 0.001 ) STOP 902 + C3=C1/C2 + VAL = 0.0 + DO II = 1, NT + VAL = VAL + AINCKFSA(I,II,J) + ENDDO + AINC=(AINC+VAL)/FLOAT(NT+1) + AINCKFI(i,j)=AINC + AINC3=C3*AINC+(1-C3)*AINC2 + AINC=AINC3 + KFLAG=3 + GO TO 255 + ENDIF + ENDIF + + IF(NCOUNT.GT.10)THEN + AINC4=AINC + IF(CLDDPTH .GE. 4.E3) THEN + KFLAG=4 + GOTO 265 + ELSE IF((CLDDPTH) .LT. 4.E3 .AND. & + CLDDPTH+ZLCL .GT. ZLFC) THEN + C1=CLDDPTH+ZLCL-ZLFC + C2=4000.0-ZLFC+ZLCL + IF( ABS(C2) < 0.001 ) STOP 903 + C3=C1/C2 + VAL = 0.0 + DO II = 1, NT + VAL = VAL + AINCKFSA(I,II,J) + ENDDO + AINC=(AINC+VAL)/FLOAT(NT+1) + AINCKFI(i,j)=AINC + AINC3=C3*AINC+(1-C3)*AINC2 + AINC=AINC3 + KFLAG=3 + GO TO 255 + ENDIF + ENDIF + + IF(FABE.LE.1.05-STAB.AND.FABE.GE.0.95-STAB) THEN + AINC4=AINC + IF(CLDDPTH .GE. 4.E3) THEN + KFLAG=4 + GOTO 265 + ELSE IF((CLDDPTH) .LT. 4.E3 .AND. & + CLDDPTH+ZLCL .GT. ZLFC) THEN + C1=CLDDPTH+ZLCL-ZLFC + C2=4000.0-ZLFC+ZLCL + IF( ABS(C2) < 0.001 ) STOP 904 + C3=C1/C2 + VAL = 0.0 + DO II = 1, NT + VAL = VAL + AINCKFSA(I,II,J) + ENDDO + AINC=(AINC+VAL)/FLOAT(NT+1) + AINCKFI(i,j)=AINC + AINC3=C3*AINC+(1-C3)*AINC2 + AINC=AINC3 + KFLAG=3 + GO TO 255 + ENDIF + ENDIF +! +!...ADJUST MASS FLUX BY THE FACTOR AINC TO CONVERGE TO SPECIFIED DEGREE OF STAB- +!...ILIZATION... +! + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + WRITE(message,1080) LFS,LDB,LDT,TIMEC,NSTEP,NCOUNT,FABE,AINC + 1080 FORMAT(2X,'LFS,LDB,LDT =',3I3,' TIMEC, NSTEP=',F5.0,I3, & + 'NCOUNT, FABE, AINC=',I2,1X,F5.3,F6.2) + CALL wrf_message(message) + ENDIF + ENDIF + + AINC=AINC*STAB*ABE/(DABE+1.E-8) + +255 CONTINUE + + AINC=MIN(AINCMX,AINC) + AINCMIN = 0. + AINC=MAX(AINC,AINCMIN) + PPTMLT=PPTML2*AINC + TDER=TDER2*AINC + PPTFLX=PPTFL2*AINC + DO NK=1,LTOP + UMF(NK)=UMF2(NK)*AINC + DMF(NK)=DMF2(NK)*AINC + DETLQ(NK)=DETLQ2(NK)*AINC + DETIC(NK)=DETIC2(NK)*AINC + UDR(NK)=UDR2(NK)*AINC + UER(NK)=UER2(NK)*AINC + DER(NK)=DER2(NK)*AINC + DDR(NK)=DDR2(NK)*AINC + DTFM(NK)=0. + DMS(NK)=0. + ENDDO +! +!...IF THE DOWNDRAFT OVERDRAWS THE INITIAL MASS AVAILABLE AT THE LFS, ALLOW +!...PEFF TO CHANGE SO THAT DOWNDRAFT MASS FLUX IS NOT THE LIMITING FACTOR +!...IN THE TOTAL CONVECTIVE MASS FLUX. THIS IS USUALLY NECESSARY ONLY WHEN +!...THE DOWNDRAFT IS VERY SHALLOW... +! + DMFMIN=UER(LFS)-EMS(LFS)/TIMEC + IF(DER(LFS).LT.DMFMIN .AND. DMFMIN.LT.0.)THEN + RF=DMFMIN/DER(LFS) + DO NK=LDB,LFS + DER2(NK)=DER2(NK)*RF + DDR2(NK)=DDR2(NK)*RF + DMF2(NK)=DMF2(NK)*RF + DER(NK)=DER2(NK)*AINC + DDR(NK)=DDR2(NK)*AINC + DMF(NK)=DMF2(NK)*AINC + ENDDO + TDER2=TDER2*RF + TDER=TDER2*AINC + IF(LFS.GE.KLCL)THEN + UPDIN2=1.-(1.-EQFRC(LFS))*DMF(LFS)*UPDINC/UMF(LFS) + ELSE + UPDIN2=1. + ENDIF + CPR=TRPPT+PPR*(UPDIN2-1.) + PEFF=1.-(TDER+(1.-EQFRC(LFS))*DMF(LFS)*(RLIQ(LFS)+RICE(LFS)))/ & + (CPR*AINC) + PPTFL2=PEFF*CPR + PPTFLX=PPTFL2*AINC + F1=UPDIN2/(AINC*UPDINC) + DO NK=LC,LFS + UMF2(NK)=UMF(NK)*F1 + UMF(NK)=UMF2(NK)*AINC + UDR2(NK)=UDR(NK)*F1 + UDR(NK)=UDR2(NK)*AINC + UER2(NK)=UER(NK)*F1 + UER(NK)=UER2(NK)*AINC + DETLQ2(NK)=DETLQ(NK)*F1 + DETLQ(NK)=DETLQ2(NK)*AINC + DETIC2(NK)=DETIC(NK)*F1 + DETIC(NK)=DETIC2(NK)*AINC + PPTML2=PPTML2-PPTICE(NK)*(1.-UPDIN2/UPDINC) + PPTLIQ(NK)=PPTLIQ(NK)*F1*AINC + PPTICE(NK)=PPTICE(NK)*F1*AINC + ENDDO + PPTMLT=PPTML2*AINC + UPDINC=UPDIN2 + ENDIF + + GO TO 175 + +265 CONTINUE + +#ifdef DENG_SHCU1D + DO K=KLCL,LTOP + CLDUA(K)= AINC*AU0/DXSQ ! updraft fraction + ENDDO +#endif + +! IF ( wrf_dm_on_monitor()) THEN +! CALL get_wrf_debug_level( dbg_level ) +! IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN +! WRITE(message,1080)LFS,LDB,LDT,TIMEC,NSTEP,NCOUNT,FABE,AINC +! CALL wrf_message(message) +! ENDIF +! ENDIF +! +!...SEND FINAL PARAMETERIZED VALUES TO OUTPUT FILES... +! +! IF ( wrf_dm_on_monitor()) THEN +! CALL get_wrf_debug_level( dbg_level ) +! IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN +! WRITE(message,3071)EQFRC(LFS),UPDINC +! CALL wrf_message(message) +!3071 FORMAT('EQFRC(LFS) =',F7.4,'UPDINC =',F8.4) +! WRITE(message,969) +! CALL wrf_message(message) +!969 FORMAT(1x,' P ',' DP ',' DT K/D ', & +! ' DR K/D ',' OMG ', & +! ' DOMGDP ',' UMF ',' UER ',' UDR ',' DMF ',' DER ' & +! ,' DDR ',' EMS ',' W0 ',' DETLQ ',' DETIC') +! ENDIF +! ENDIF + + DO NK=1,LTOP + K=LTOP-NK+1 + DTT=(TG(K)-T0(K))*86400./TIMEC + RL=XLV0-XLV1*TG(K) + DR=-(QQG(K)-Q0(K))*RL*86400./(TIMEC*CP) + UDFRC=UDR(K)*TIMEC*EMSD(K) + UEFRC=UER(K)*TIMEC*EMSD(K) + DDFRC=DDR(K)*TIMEC*EMSD(K) + DEFRC=-DER(K)*TIMEC*EMSD(K) + +! IF ( wrf_dm_on_monitor()) THEN +! CALL get_wrf_debug_level( dbg_level ) +! IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN +! WRITE(message,'(F8.2,3(F8.2),2(F8.3),F8.2,2F8.3,F8.2,6F7.3)') & +! P0(K)/100.,DP(K)/100.,DTT,DR,OMG(K),DOMGDP(K)*1.E4, & +! UMF(K)/1.E6,UEFRC,UDFRC,DMF(K)/1.E6,DEFRC,DDFRC,EMS(K)/1.E11, & +! W0AVG0(K)*1.E2,DETLQ(K)*TIMEC*EMSD(K)*1.E3,DETIC(K)* & +! TIMEC*EMSD(K)*1.E3 +! CALL wrf_message(message) +! ENDIF +! ENDIF + + ENDDO + +#ifdef DENG_SHCU1D + DO k = 1, KL + tt6(k)=UMF(k)*QU(k) + tt7(k)=OMG(k)/G*DXSQ*Q0(k) + ENDDO + CLDBMFLX(I,J)=UMF(KCBASE)/1.0E+6 +#endif + +! IF ( wrf_dm_on_monitor()) THEN +! CALL get_wrf_debug_level( dbg_level ) +! IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN +! WRITE(message,'(A3,15A7,2A8)') & +! 'K','P','Z','T0','TG','DT','TU','TD','Q0','QQG', & +! 'DQ','QU','QD','QCG','WU','WD','RH0','RHG' +! CALL wrf_message(message) +! ENDIF +! ENDIF + + DO NK=1,KX + K=KX-NK+1 + DTT=TG(K)-T0(K) + TUC=TU(K)-T00 + IF(K.LT.LC .OR. K.GT.LTOP)TUC=0. + TDC=TZ(K)-T00 + IF((K.LT.LDB .OR. K.GT.LDT) .AND. K.NE.LFS)TDC=0. + ES=1.E3*SVP1*EXP(SVP2*(TG(K)-SVPT0)/(TG(K)-SVP3)) + QGS=ES*0.622/(P0(K)-ES) + RH_0=Q0(K)/QES(K) + RHG=QQG(K)/QGS + +! IF ( wrf_dm_on_monitor()) THEN +! CALL get_wrf_debug_level( dbg_level ) +! IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN +! WRITE(message,'(I3,F7.2,F7.0,10F7.2,F7.3,2F7.2,2F8.3)') & +! K,P0(K)/100.,Z0(K),T0(K)-T00,TG(K)-T00,DTT,TUC, & +! TDC,Q0(K)*1000.,QQG(K)*1000.,(QQG(K)-Q0(K))*1000.,QU(K)* & +! 1000.,QD(K)*1000.,QCG(K)*1000.,WU(K),WD(K),RH_0,RHG +! CALL wrf_message(message) +! ENDIF +! ENDIF + + ENDDO +! +!...IF CALCULATIONS ABOVE SHOW AN ERROR IN THE MASS BUDGET, PRINT OUT A SOUNDING +!...TO BE USED LATER FOR DIAGNOSTIC PURPOSES, THEN ABORT RUN... +! + IF(ISTOP.EQ.1)THEN + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + DO K = 1,KX + WRITE(message,'(2X,F6.0,2X,F7.2,2X,F5.1,2X,F6.3,2(2X,F5.1),2X,F7.2,2X,F7.4)') & + Z0(K),P0(K)/100.,T0(K)-273.16,Q0(K)*1000., & + U0(K),V0(K),DP(K)/100.,W0AVG0(K) + CALL wrf_message(message) + ENDDO + ENDIF + ENDIF + ENDIF + + CNDTNF=(1.-EQFRC(LFS))*(RLIQ(LFS)+RICE(LFS))*DMF(LFS) + +! IF ( wrf_dm_on_monitor()) THEN +! CALL get_wrf_debug_level( dbg_level ) +! IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN +! WRITE(message,1095)CPR*AINC,TDER+PPTFLX+CNDTNF +!1095 FORMAT(' ',' PPT PRODUCTION RATE= ',F10.0,' TOTAL EVAP+PPT= ',F10.0) +! CALL wrf_message(message) +! ENDIF +! ENDIF +! +! EVALUATE MOISTURE BUDGET... +! + QINIT=0. + QFNL=0. + QCFINL=0. + DO NK=1,LTOP + QINIT=QINIT+Q0(NK)*EMS(NK) + QFNL=QFNL+(QQG(NK)+QCG(NK))*DP(NK)*DXSQ/G + QCFINL=QCFINL+QCG(NK)*DP(NK)*DXSQ/G + ENDDO + QFNL=QFNL+PPTFLX*TIMEC + ERR2=(QFNL-QINIT)*100./QINIT + RELERR=ERR2*QINIT/(PPTFLX*TIMEC+1.E-10) + + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + WRITE(message,*)'QFNL-QINIT, QCFINL =',QFNL-QINIT,QCFINL + CALL wrf_message(message) + WRITE(message,1110)QINIT,QFNL,ERR2 + CALL wrf_message(message) + WRITE(message,1200)RELERR + CALL wrf_message(message) + 1110 FORMAT(' ','INITIAL WATER =',E12.5,' FINAL WATER =',E12.5, & + ' TOTAL WATER CHANGE =',F8.2,'%') + 1200 FORMAT(' ','MOISTURE ERROR AS FUNCTION OF TOTAL PPT =',F9.3,'%') +! WRITE(message,*)'TDER, CPR, USR, TRPPT =',TDER,CPR*AINC,USR*AINC,TRPPT*AINC +! CALL wrf_message(message) + ENDIF + ENDIF +! +!...IF THE ADVECTIVE TIME PERIOD (TADVEC) IS LESS THAN SPECIFIED MINIMUM FOR +!...TIMEC, ALLOW FEEDBACK TO OCCUR ONLY DURING TADVEC... +! + IF(TADVEC.LT.TIMEC)NIC=NINT(TADVEC/(0.5*DT2)) +! +!...CALCULATE CONVECTIVE TENDENCIES... +! + loop320: DO K = KX,1,-1 + DTDT(K) = (TG(K)-T0(K))/TIMEC + DQDT(K) = (QQG(K)-Q0(K))/TIMEC + DQLDT(K)= (QCG(K)-QC0(K))/TIMEC + DQRDT(K)= 0.0 ! set this to zero for now, unlike kfpara (don't remember why yet) + DDCADT(K)=(DCA(K)-DCA0(K))/TIMEC + IF(DQLDT(K) .LE. 1.0E-17 & + .OR. RH0(K) .GT. RHCRIT) DDCADT(K)=0.0 + AREA=AMAX1((CLDAREAB(I,K,J)+DDCADT(K)*DT),0.0) + IF(AREA .LE. 1.0E-17 & + .OR. (DQLDT(K) .LE. 1.0E-17) & + .OR. RH0(K) .GT. RHCRIT) THEN + DQCDCDT(K)=0.0 + ELSE + DQCDCDT(K)=(DQLDT(K)-CLDLIQB(I,K,J)*DDCADT(K))/AREA + ENDIF +#ifdef DENG_SHCU1D + + CLDATEN0(K)=DDCADT(K) + CLDLCTN0(K)=DQCDCDT(K) + tt4(k) = RLIQ(K)+RICE(K) +#endif + ENDDO loop320 + +! +! CALCULATE THE CONVECTIVE RAINFALL +! + RAINSHV(I,J)=.1*.5*DT2*PPTFLX/DXSQ + + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + WRITE(message,909) RAINSHV(I,J)*NIC + 909 FORMAT(' CONVECTIVE RAINFALL =',F8.4,' CM') + CALL wrf_message(message) + ENDIF + ENDIF +! +!...FEED BACK CONVECTIVE TENDENCIES TO RESOLVABLE SCALE EXCEPT THAT QC IS NOT +! FED BACK TO THE GRID SCALE WHEN THE GRID IS SUB-SATURATED. INSTEAD, IT +! IS DETRAINED TO FORM NBC. DCATEN(I,K): NBC AREA TENDENCY. +! QCDCTEN(I,K): NBC LIQUID/ICE WATER CONTENT. +! + DO K=1,KX + TTEN(K)=TTEN(K)+ DTDT(K) + QVTEN(K)=QVTEN(K)+ DQDT(K) + QRTEN(K)=QRTEN(K)+DQRDT(K) + IF(RH0(K) .GT. RHCRIT) THEN + QCTEN(K)=QCTEN(K)+DQLDT(K) + ELSE + DCATEN(K)=DCATEN(K)+DDCADT(K) + QCDCTEN(K)=QCDCTEN(K)+DQCDCDT(K) + ENDIF + ENDDO + +! +! raincn(i,j) is in cm. We can convert it to KG/m^2 in following way: +! +! 1cm=1cm*1g/cm^3=1g/cm^2=10^-3Kg/10^-4m^2=10Kg/m^2 +! + RAINSH(I,J) = RAINSH(I,J)+RAINSHV(I,J) + +#ifdef DENG_SHCU1D + + PLET = P0(LET) + TLET = TU(LET) + PLFSG(I,J) = P0(LFS) + TLFSG(I,J) = TU(LFS) + PLDTG(I,J) = P0(LDT) + TLDTG(I,J) = TLCL*(PLDTG(I,J)/PLCL)**ROVCP + PLDBG(I,J) = P0(LDB) + TLDBG(I,J) = TLCL*(PLDBG(I,J)/PLCL)**ROVCP + PLLCG(I,J) = P0(LLC) + TLLCG(I,J) = TU(LLC) + + nca_ctr2(i,j)=nca_ctr2(i,j)+1 + +#endif + + 425 CONTINUE + +#ifdef DENG_SHCU1D + nca_ctr4(i,j)=nca_ctr4(i,j)+1 + PPBLG(I,J)=PPBL + TPBLG(I,J)=TPBL + PLCLG(I,J)=PLCL + TLCLG(I,J)=TLCL + + IF( i == 1 .AND. j == 1 ) THEN + write(32,*) xtime/60.,ZLCL + write(33,*) xtime/60.,CLDDPTH+zlcl + write(34,*) xtime/60.0,zlfc +! CALL MAXIM(wutemp,KX,KLCL+1,KX,KVAL1) +! CALL MINIM(wsubsub,KX,KLCL+1,KX,KVAL2) +! write(82,*) xtime/60.0,wutemp(kval1),wsubsub(kval2) + write(63,*) xtime/60.,CLDBMFLX(I,J) + write(98,*) xtime/60.,tt6(KCBASE),tt7(KCBASE) + ENDIF +#endif +! +! FIND NBC TOP (KDCT), NBC BASE (KDCB), LOCATION OF MAXIMUM NBC AREA +! (KAMAX) AND MAXIMUM CLD LIQUID WATER CONTENT (KLCMAX), AND THE +! LOCATION 1000M AWAY FROM KAMAX (K1000) +! + KDCB=1 + KDCT=1 + K1000=KDCT + loop429: DO K=KL-1,2,-1 + IF(CLDAREAB(I,K,J) .GT. 0.001 .OR. RH0(K) .GT. RHCRIT) THEN + KDCT=K + EXIT loop429 + ENDIF + ENDDO loop429 + + loop441: DO K=2,KL-1 ! UPWARD + IF(CLDAREAB(I,K,J) .GT. 0.001 .OR. RH0(K) .GT. RHCRIT ) THEN + KDCB=K + EXIT loop441 + ENDIF + ENDDO loop441 + +#ifdef DENG_SHCU1D + DCLDTOP(I,J)=Z0(KDCT) + DCLDBASE(I,J)=Z0(KDCB) +#endif + KDCLDTOP(I,J)=KDCT + KDCLDBAS(I,J)=KDCB + + IF(AINC .NE. 999.0) THEN + NUPDRAFT=AINC + ELSE + NUPDRAFT=0 + ENDIF + +#ifdef DENG_SHCU1D + IF( i == 1 .AND. j == 1 ) THEN + write(93,*) xtime/60.,DCLDTOP(I,J) + write(94,*) xtime/60.,DCLDBASE(I,J) + IF(AINC .NE. 999.0) THEN + write(19,*) xtime/60.,RAD + write(25,*) xtime/60.,NUPDRAFT + ELSE + VAL=0.0 + write(19,*) xtime/60.,VAL + write(25,*) xtime/60.,VAL + ENDIF + ENDIF +#endif + + IF(KDCT .LE. 1) THEN +#ifdef DENG_SHCU1D + nca_ctr3(i,j)=nca_ctr3(i,j)+1 +#endif + GOTO 345 ! END OF DISSIPATION CALCULATION + ENDIF + + KAMAX=KDCB + KLCMAX=KDCB + DO K=KDCB,KDCT + IF( CLDAREAB(I,K,J) .GT. CLDAREAB(I,KAMAX,J) ) KAMAX = K + IF( CLDLIQB(I,K,J) .GT. CLDLIQB(I,KLCMAX,J) ) KLCMAX = K + ENDDO + + loop430: DO K=KAMAX,1,-1 + IF(Z0(KAMAX)-Z0(K) .GE. 1000.0) THEN + K1000 = K + EXIT loop430 + ENDIF + ENDDO loop430 + + K1000=MAX(K1000,KDCB) +! +! WHEN THE GRID IS SATURATED, CONVERT NBC TO RESOLVABLE-SCALE CLOUD +! + DO K=1,KL + IF(RH0(K) .GT. RHCRIT) THEN + CLQ=AMAX1(CLDLIQB(I,K,J)+QCDCTEN(K)*DT,0.0) + AREA=AMAX1(CLDAREAB(I,K,J)+DCATEN(K)*DT,0.0) + QCDCTEN(K)=QCDCTEN(K)-CLQ/DT + DCATEN(K)=DCATEN(K)-AREA/DT + QCTEN(K)=QCTEN(K)+AREA*CLQ/DT + ENDIF + ENDDO +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! BEGINING OF DISSIPATION CACULATION +! goto 345 +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! +! EVAPORATION OF NBC AT THE CLOUD EDGE ******************************* +! +#ifdef DENG_SHCU1D + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + if( mod(ktau,KTAU1HUR) .eq. 0 ) then + write(*, *) ' ------- a evaporation' + endif + ENDIF + ENDIF +#endif + + DIFFK=1.0E-5 + loop332: DO K=1,KX + RLC=AMAX1(CLDLIQB(I,K,J)+QCDCTEN(K)*DT,0.0) + VAL=QES(K)-Q0(K) + VAL=AMAX1(0.0,VAL) + E2=(0.01+CLDAREAB(I,K,J))*DIFFK*VAL*SQRT(NUPDRAFT) + IF(RLC .LE. 1.0E-17) CYCLE loop332 + EOVLC=AMIN1(E2/RLC,CLDAREAB(I,K,J)/DT) + DCATEN(K)=DCATEN(K)-EOVLC +#ifdef DENG_SHCU1D + cldaten(k)=-EOVLC +#endif + QVTEN(K)=QVTEN(K)+EOVLC*RLC + IF(T0(K) .LE. TO) THEN + RL=XLS + ELSE + RL=XLV0-XLV1*T0(K) + ENDIF + RCP=CP*(1.+0.887*Q0(K)) + RLOVCP=RL/RCP + TTEN(K)=TTEN(K)-EOVLC*RLC*RLOVCP + ENDDO loop332 +! +! VERTICAL DIFFUSION OF NBC LIQUID/ICE WATER CONTENT ********************** +! +! CALCULAT KH (VERTICAL DIFF COEF ) AND KR ( RADIATIVE INDUCED VERTICAL +! DIFF COEF). KR IS CALCULATED AT KAMAX+1 (FULL LAYER AT CLOUD TOP), THEN +! CONSTANT UNTIL CLOUD TOP. IT LINEARLY DROPS TO ZERO AT K1000, WHICH IS +! THE LARGER ONE OF KDCB AND K1000. +! + DO K=KDCB,KDCT+1 ! UPWARD + KV(K)=KTH0(K) + ENDDO + + DO K=1,KL + tlong(k)=TEN_RADL0(K) + tshort(k)=TEN_RADS0(K) + ENDDO + K=KAMAX + KP1=K+1 + CALL MINIM(tlong, KX,KDCB,KDCT,KRADLMAX) + CALL MAXIM(tshort,KX,KDCB,KDCT,KRADSMAX) + + KR(KP1)=BBLS0(K)*BBLS0(K)/(T0(K)*(P00/P0(K))**ROCPQ) & + *(ABS(TEN_RADL0(KRADLMAX))*DZQ(K)/15.0 & + +ABS(TEN_RADS0(KRADSMAX))*DZQ(K)/50.0) + + DO K=K1000,KAMAX+1 + IF(KDCT+1 .NE. K1000) KR(K)=KR(KAMAX+1)*(FLOAT(K-K1000) & + /FLOAT(KAMAX+1-K1000)) + ENDDO + DO K=KAMAX+1,KDCT+1 + KR(K)=KR(KAMAX+1) + ENDDO +! +! CALCULATE IN-CLOUD DIFF FLUXES ASSOCIATED WITH KV and KR. MAKE SURE +! THAT UPWARD FLUXES AT CLOUD TOP(KDCT+1) VANISH, SO THAT THERE IS NO +! LIQUID DIFFUSE UPWARD +! + DO K=1,KDCB-1 + LFLUX(K)=0.0 + LFLUX1(K)=0.0 + LFLUX2(K)=0.0 + ENDDO + + DO K=KDCT+1,KXP1 + LFLUX(K)=0.0 + LFLUX1(K)=0.0 + LFLUX2(K)=0.0 + ENDDO + + DO K=KDCT,KDCB,-1 + IF(K .EQ. KDCB) THEN + C1=15.0 + ELSE + C1=DZA(K-1) + ENDIF + AREA1=AMAX1(CLDAREAB(I,K,J)+DCATEN(K)*DT,0.0) + AREA2=AMAX1(CLDAREAB(I,K-1,J)+DCATEN(K-1)*DT,0.0) + CLQ1=AMAX1(CLDLIQB(I,K,J)+QCDCTEN(K)*DT,0.0) + CLQ2=AMAX1(CLDLIQB(I,K-1,J)+QCDCTEN(K-1)*DT,0.0) + LFLUX1(K)=-RHOE(K)*KV(K)*(AREA1*CLQ1-AREA2*CLQ2)/C1 + LFLUX2(K)=RHOE(K)*KR(K)*(AREA1*CLQ1-AREA2*CLQ2)/C1 + LFLUX1(K)=AMIN1(LFLUX1(K),0.0) + LFLUX2(K)=AMIN1(LFLUX2(K),0.0) + LFLUX(K)=LFLUX1(K)+LFLUX2(K) +! 0.05 IS USED HERE TO +! MAKE SURE THAT NOT MORE THAN 5% OF THE TOTAL LIQUID MASS AT THIS LAYER +! IS REMOVED BY IN-CLOUD MIXING IN A SINGLE TIME STEP. + C1=LFLUX(K+1)-CLQ1*DP(K)/(G*DT)*0.05 + LFLUX(K)=AMAX1(LFLUX(K),C1) + ENDDO + DO K=KDCT+1,KDCB,-1 + IF(RH0(K) .GT. RHCRIT .OR. & + (CLDAREAB(I,K,J)+DCATEN(K)*DT) .LE. 1.0e-6) then + LFLUX(K)=0.0 + LFLUX(K+1)=0.0 + ENDIF + ENDDO +! +! CALCULATE DIFF TENDENCY ASSOCIATED WITH IN-CLOUD FLUXES CALCULATED ABOVE. +! FLUXES AT CLD BASE (KDCB) CARRY LIQUID TO THE LAYER BELOW THE CLD BASE +! AND EVAPORATE IN THAT LAYER +! +#ifdef DENG_SHCU1D + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + if( mod(ktau,KTAU1HUR) .eq. 0 ) then + write(*, *) ' --- lc in-cloud mixing' + endif + ENDIF + ENDIF +#endif +! +! THIS IS TO ENSURE THAT THE LAYER BELOW THE CLOUD BASE (KDCB-1) DOES +! NOT REACH SATURATION ONLY BECAUSE OF MIXING (USE 95% HERE). ADJUST +! LFLUX(KDCB) SO THAT THE AMOUNT OF MASS TRANPORTED TO THIS LAYER IS +! LESS THAN THE AMOUNT OF MASS NEEDED TO RAISE THE RH TO 95%. +! + RHCR=0.95 + IF(Q0(KDCB-1)/QES(KDCB-1) .GT. RHCR) THEN + LFLUX(KDCB)=0.0 + ELSE + VAL1=-G*(LFLUX(KDCB)-LFLUX(KDCB-1))/DP(KDCB-1) + VAL2=(RHCR*QES(KDCB-1)-Q0(KDCB-1))/DT + VAL=AMIN1(VAL1,VAL2) + LFLUX(KDCB)=-VAL*DP(KDCB-1)/G + ENDIF + + loop436: DO K = KDCT, KDCB, -1 + AREA=AMAX1(CLDAREAB(I,K,J)+DCATEN(K)*DT,0.0) + IF( RH0(K) .GT. RHCRIT .OR. AREA .LE. 1.0e-6 ) CYCLE loop436 + QCDCTEN(K)=QCDCTEN(K)-G*(LFLUX(K+1)-LFLUX(K))/DP(K)/AREA +#ifdef DENG_SHCU1D + cldlctn1(k)=-G*(LFLUX(K+1)-LFLUX(K))/DP(K)/AREA +#endif + ENDDO loop436 + + K=KDCB-1 + IF(T0(K) .LE. TO) THEN + RL=XLS + ELSE + RL=XLV0-XLV1*T0(K) + ENDIF + RCP=CP*(1.+0.887*Q0(K)) + RLOVCP=RL/RCP + QVTEN(K)=QVTEN(K)-G*(LFLUX(K+1)-LFLUX(K))/DP(K) + TTEN(K)=TTEN(K)+G*(LFLUX(K+1)-LFLUX(K))/DP(K)*RLOVCP +! +! CALCULATE DIFF TENDENCY ASSOCIATED WITH DOWNWARD FLUXES AT +! EXPOSED CLD BASE IF CLD AREA INCREASE WITH HEIGHT. THIS FLUXE WILL +! CAUSE LIQUID DECREASE IN THE CLD LAYER AND WATER VAPOR INCREASE IN THE +! LAYER BELOW THE EXPOSED CLD BASE DUE TO EVAPORATION +! +#ifdef DENG_SHCU1D + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + if(mod(ktau,KTAU1HUR) .eq. 0) then + write(*, *) ' ----lc exp-cld-base mixing' + endif + ENDIF + ENDIF +#endif + + loop440: DO K=KDCT,KDCB+1,-1 + AREADIFF=CLDAREAB(I,K,J)-CLDAREAB(I,K-1,J) + AREADIFF=AMAX1(AREADIFF,0.0) + CLQ=AMAX1(CLDLIQB(I,K,J)+QCDCTEN(K)*DT,0.0) + C1=-CLQ*DP(K)/(G*DT)*0.05 ! limit of flux that remove 5% of + ! all the liquid in the layer above + FX1=-RHOE(K)*KV(K)*CLDLIQB(I,K,J)/15.*AREADIFF + FX2=-RHOE(K)*KR(K)*CLDLIQB(I,K,J)/15.*AREADIFF + FX=FX1+FX2 + FX=AMAX1(FX,C1) + + IF((CLDAREAB(I,K,J)+DCATEN(K)*DT) .LE. 1.0E-6) CYCLE loop440 + + IF(RH0(K) .GT. RHCRIT) CYCLE loop440 +! +! THIS IS TO ENSURE THAT THE LAYER BELOW THE EXPOSED CLOUD BASE (K-1) DOES +! NOT REACH SATURATION ONLY BECAUSE OF MIXING (USE 95% HERE). ADJUST +! LFLUX(KDCB) SO THAT THE AMOUNT OF MASS TRANPORTED TO THIS LAYER IS +! LESS THAN THE AMOUNT OF MASS NEEDED TO RAISE THE RH TO 95%. +! + RHCR=0.95 + IF(Q0(K-1)/QES(K-1) .GT. RHCR) THEN + FX=0.0 + ELSE + VAL1=-G*FX/DP(K-1) + VAL2=(RHCR*QES(K-1)-Q0(K-1))/DT + VAL=AMIN1(VAL1,VAL2) + FX=-VAL*DP(K-1)/G + ENDIF + + AREA=AMAX1(CLDAREAB(I,K,J)+DCATEN(K)*DT,0.0) + IF(AREA .LE. 1.0E-6) CYCLE loop440 ! this line was not in MM5 + QCDCTEN(K)=QCDCTEN(K)+G*FX/DP(K)/AREA +#ifdef DENG_SHCU1D + cldlctn2(k)=G*FX/DP(K)/AREA +#endif + IF(T0(K-1) .LE. TO) THEN + RL=XLS + ELSE + RL=XLV0-XLV1*T0(K-1) + ENDIF + RCP=CP*(1.+0.887*Q0(K-1)) + RLOVCP=RL/RCP + QVTEN(K-1)=QVTEN(K-1)-G*FX/DP(K-1) + TTEN(K-1)=TTEN(K-1)+G*FX/DP(K-1)*RLOVCP + ENDDO loop440 +! +! CLOUD TOP ENTRAINMENT INSTABILITY (CTEI) ******************************** +! RANDALL (JAS 1980), DEARDOFF (JAS 1980) AND DEL GENIO (J. CLIMATE 1996) +! + RATIO=0.0 + RATIOMIN=0.0 + RATIOMAX=0.0 + IF(RH0(KDCT) .GT. RHCRIT) GOTO 340 + EFOLD=1.0E-4 + EX=1.0 + DEPTHMAX=100.0 + IF(KDCT .LE. 0) GOTO 340 + IF(T0(KDCT) .GE. TO) THEN + HIN=CP*T0(KDCT)+G*Z0(KDCT)+XLV*QES(KDCT) + ELSE + HIN=CP*T0(KDCT)+G*Z0(KDCT)+XLS*QES(KDCT) + ENDIF + IF(T0(KDCT+1) .GE. TO) THEN + HOUT=CP*T0(KDCT+1)+G*Z0(KDCT+1)+XLV*Q0(KDCT+1) + ELSE + HOUT=CP*T0(KDCT+1)+G*Z0(KDCT+1)+XLS*Q0(KDCT+1) + ENDIF + DELTH=HIN-HOUT + QIN=QES(KDCT)+CLDLIQB(I,KDCT,J) + QOUT=Q0(KDCT+1) + DELTQ=QIN-QOUT + RATIO=DELTH/(XLV*DELTQ+1.E-8) + RKAPA=CP*0.5*(T0(KDCT)+T0(KDCT+1))/XLV + DELTA=0.608 + IF(T0(KDCT) .GT. TO) THEN + DQSSDT=QES(KDCT)*SVP2*(SVPT0-SVP3) & + /((T0(KDCT)-SVP3)*(T0(KDCT)-SVP3)) + RL=XLV0-XLV1*T0(KDCT) + ELSE + DQSSDT=QES(KDCT)*6.15E3/(T0(KDCT)*T0(KDCT)) + RL=XLS + ENDIF + RCP=CP*(1.+0.887*Q0(KDCT)) + RLOVCP=RL/RCP + + GAMA=RLOVCP*DQSSDT + BEITA=(1+(1+DELTA)*GAMA*RKAPA)/(1+GAMA) + RATIOMIN=RKAPA/BEITA + RATIOMAX=(1+GAMA)*(1+(1-DELTA)*RKAPA) & + /(2+(1+(1+DELTA)*RKAPA)*GAMA) + + IF(RATIO .LE. RATIOMIN) THEN + SIGMMA=0.0 + GOTO 340 + ELSE IF(RATIO .GE. RATIOMAX) THEN + SIGMMA=EFOLD + ELSE + SIGMMA=EFOLD*((RATIO-RATIOMIN)/(RATIOMAX-RATIOMIN))**EX + ENDIF + +#ifdef DENG_SHCU1D + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + if( mod(ktau,KTAU1HUR) .eq. 0 ) then + write(* ,*) ' -------- lc CTEI ' + endif + ENDIF + ENDIF +#endif +! +! LOCATE K WHERE ITS DISTANCE FROM KDCT IS 100M +! + K100=KDCT + loop335: DO L=KDCT-1,KDCB,-1 + IF((Z0(KDCT)+0.5*DZQ(KDCT))-(Z0(L)-0.5*DZQ(L)) .GE. DEPTHMAX) THEN + K100=K100-1 + EXIT loop335 + ENDIF + K100=L + ENDDO loop335 + + RHCR=0.95 + IF(RH0(KDCT+1) .GT. RHCR) GOTO 340 + + loop344: DO L=KDCT,K100,-1 + IF(RH0(L) .GT. RHCRIT) CYCLE loop344 + WFUN=FLOAT(L-K100+1)/FLOAT(KDCT-K100+1) + AREA=AMAX1(CLDAREAB(I,L,J)+DCATEN(L)*DT,0.0) + IF(T0(L) .LE. TO) THEN + RL=XLS + ELSE + RL=XLV0-XLV1*T0(L) + ENDIF + RCP=CP*(1.+0.887*Q0(L)) + RLOVCP=RL/RCP + + VAL1=SIGMMA*CLDLIQB(I,L,J)*WFUN + QCDCTEN(L)=QCDCTEN(L)-VAL1 +#ifdef DENG_SHCU1D + cldlctn5(L)=-VAL1 +#endif + QVTEN(KDCT+1)=QVTEN(KDCT+1) & + +VAL1*AREA*DP(L)/DP(KDCT+1) + TTEN(L)=TTEN(L)-VAL1*AREA*RLOVCP + VAL=Q0(KDCT+1) + QVTEN(KDCT+1)*DT +! +! ENSURING THAT THE LAYER ABOVE CLOUD TOP DOES NOT REACH SATURATION (RH=95%) +! ONLY BECAUSE OF CTEI. IF IT HAPPENS DUE TO CTEI THEN REMOVE THIS EFFECT +! + IF( VAL/QES(KDCT+1) .GT. RHCR ) THEN + QVTEN(KDCT+1)=QVTEN(KDCT+1) & + -VAL1*DP(L)/DP(KDCT+1) + TTEN(L)=TTEN(L)+VAL1*AREA*RLOVCP + ENDIF + ENDDO loop344 + + 340 CONTINUE +! +! PRECIPITATION (DRIZZLE) PROCESS **************************************** +! +#ifdef DENG_SHCU1D + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + if( mod(ktau,KTAU1HUR) .eq. 0 ) then + write( *,*) ' ------ lc drizzle' + endif + ENDIF + ENDIF +#endif + + DO K=1,KL + PRC(K)=0. + PRA(K)=0. + ENDDO + + BVTS3=3.+BVTS + PPI=1./(PIE*N0R) + G3PBS=GAMMA(3.+BVTS) + PRACS=PIE*N0S*AVTS*G3PBS*.25*ESI ! from MM5 + + DO K=1,KX + TOUT=T0(K) + SC2=AMAX1(0.0,CLDLIQB(I,K,J)) + SC3=AMAX1(0.0,QR0(K)) + IF(TOUT.GT.TO)THEN + SC7=(RHOE(K)*SC3*PPI/1000.)**0.25 + ELSE + RHOS=0.1 + PPIS=1./(PIE*N0S*RHOS) + SC7=(RHOE(K)*SC3*PPIS/1000.)**0.25 + ENDIF + IF(TOUT .LT. TO)THEN + XNC=XN0*EXP(0.6*(TO-TOUT))/RHOE(K) ! XN0 = 1.E-2 in MM5 domain/initial/param.F + XNC=AMAX1(XNC,10000./RHOE(K)) +!... AUTOCONVERSION OF CLOUD ICE TO SNOW: + PRC(K)=AMAX1(0.,(SC2-XMMAX*XNC)/DT) +!... ACCRETION OF CLOUD ICE BY SNOW: + IF(SC3 .LT. 1.0E-17)THEN + PRA(K)=0. + ELSE + PRA(K)=PRACS*SC7**BVTS3*SC2 + ENDIF + ELSE +!--- AUTOCONVERSION OF CLOUD WATER TO RAINWATER: + PRC(K)=AMAX1(0.,QCK1*(SC2-QCTH)) +!--- ACCRETION OF CLOUD WATER BY RAINWATER: + BVT3=3.+BVT + IF (SC3 .LT. 1.0E-17) THEN + PRA(K)=0. + ELSE + G3PB=GAMMA(3.+BVT) + PRAC=PIE*N0R*AVT*G3PB*0.25 + PRA(K)=PRAC*SC7**BVT3*SC2 + ENDIF + ENDIF + + VAL=PRC(K)+PRA(K) + VAL=MIN(VAL,CLDLIQB(I,K,J)/DT) + AREA=AMAX1(CLDAREAB(I,K,J)+DCATEN(K)*DT,0.0) + IF(AREA .LT. 1.0E-17) VAL=0.0 + QRTEN(K)=QRTEN(K)+VAL*AREA + QCDCTEN(K)=QCDCTEN(K)-VAL +#ifdef DENG_SHCU1D + cldlctn3(k)=-VAL +#endif + + ENDDO +! +! ICE SEDIMENTATION AS A SINK TERM TO CLDLIQ ****************************** +! +#ifdef DENG_SHCU1D + IF ( wrf_dm_on_monitor()) THEN + CALL get_wrf_debug_level( dbg_level ) + IF( dbg_level >= 10 .AND. i == i0 .AND. j == j0 ) THEN + if( mod(ktau,KTAU1HUR) .eq. 0 ) then + write( *,*) ' ----- lc ice settling' + write(18,*) ' ----- lc ice settling' + endif + ENDIF + ENDIF +#endif + + DO K=1,KL + CLQ=AMAX1(CLDLIQB(I,K,J)+QCDCTEN(K)*DT,0.0) + AREA=AMAX1(CLDAREAB(I,K,J)+DCATEN(K)*DT,0.0) + SCR3(K)=CLQ*AREA + ENDDO + + NSTEP=1 + DO K=1,KL +! +! NOTE: RHO2=RHO/(PSB*1000) WHERE RHO IS THE AIR DENSITY IN KG/M^3 +! NSTEP IS THE # OF TIME STEPS NEEDED FOR A DROPLET TO MOVE FROM THE LAYER-TOP +! TO THE LAYER-BOTTOM +! + RHO2=P0(K)/(R*( T0(K)+DT*TTEN(K))) + IF( (T0(K)+DT*TTEN(K)) .GT.TO)THEN + VT2C=0. + ELSE +! +! NOTE: SEDIMENTATION FORMULA OF HEYMSFIELD AND DONNER (1990, JAS) +! + VT2C=3.29*(RHO2* SCR3(K) )**0.16 ! m/s + ENDIF + + RGVC(K)=G*RHO2*VT2C ! rho*g*vt2c/(1000*ps) + NSTEP=MAX0(IFIX(RGVC(K)*DT/DSIGMA(K)+1.),NSTEP) ! dvt2c*dt/DZ + ENDDO + + DO N=1,NSTEP + IF(N.GT.1000)STOP & + 'IN SUB. SHALLOW (ICE SETTLING), NSTEP TOO LARGE, PROBABLY NAN' + + DO K=1,KL + FALOUTC(K)=RGVC(K)*SCR3(K) + ENDDO + + loop341: DO K=KL-1,2,-1 + AREA=AMAX1(CLDAREAB(I,K,J)+DCATEN(K)*DT,0.0) + CLQ=AMAX1(CLDLIQB(I,K,J)+QCDCTEN(K)*DT,0.0) + IF(RH0(K) .GT. RHCRIT) CYCLE loop341 + IF(AREA .LE. 1.E-4) CYCLE loop341 + FALTNDC=(FALOUTC(K)-FALOUTC(K+1))/DSIGMA(K) + C1=AMIN1(FALTNDC,AREA*CLQ/DT*NSTEP) + C1=AMAX1(0.0,C1) + QCDCTEN(K)=QCDCTEN(K)-C1/AREA/NSTEP +#ifdef DENG_SHCU1D + cldlctn4(k) = cldlctn4(k)-C1/AREA/NSTEP ! 1-D graphics +#endif + SCR3(K)=SCR3(K)-C1*DT/NSTEP/AREA + QCTEN(K-1)=QCTEN(K-1)+C1*DSIGMA(K)/DSIGMA(K-1)/NSTEP +! if(i.eq.82.and.j.eq.74) then +! endif + RGVC(K)=AMAX1(RGVC(K)/DSIGMA(K),RGVC(K+1)/DSIGMA(K+1))*DSIGMA(K) + ENDDO loop341 + + ENDDO +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + 345 CONTINUE ! END OF DISSIPATION CACULATION +!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& +! +! PUT INTO TAU-1 ARRAYS +! + CLDDPTHB(I,J)=CLDDPTH + CLDTOPB(I,J)=CLDTOP + LTOPB(I,J)=LTOP + DO K=1,KL + WUB(I,K,J)=WU(K) + ENDDO + +#ifdef DENG_SHCU1D + + IF( i == 1 .AND. j == 1 ) THEN + + DO NK = 1,KX + EE=Q0(NK)*P0(NK)/(0.622+Q0(NK)) + TLOG=LOG(EE/SVP1/1000.) + TDPT=(SVP2*SVPT0-SVP3*TLOG)/(SVP2-TLOG) + TSAT=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(T0(NK)-T00))* & + (T0(NK)-TDPT) + THTA=T0(NK)*(1.E5/P0(NK))**(0.2854*(1.-0.28*Q0(NK))) + THETEE(NK)=THTA* & + EXP((3374.6525/TSAT-2.5403)*Q0(NK)*(1.+0.81*Q0(NK))) + thtetmp(nk)=THETEE(NK) + thtatmp(nk)=THTA + ENDDO + + if(mod(ktau,KTAU1HUR) .eq. 0) then + write(*,878) xtime/60.0, zpbl, Zlcl,Zlfc,CLDDPTHB(I,J) + write(18,878) Zlcl,Zlfc,CLDDPTH + 878 format(5x,'xtime=',f6.1,' Zpbl=',f5.1,' Zlcl=',f6.1,1x,'Zlfc=',f8.1, & + 1x,'CLD_Depth=',f7.1) + endif + + KK=INT(PLOTFRQ*(KTAU1HUR/60.)) + IF( MOD(KTAU-1,KK) .EQ. 0) THEN + write(17,*) xtime/60.0,ktau,ZPBL,ZLCL,LLC,KPBL,KLCL, & + CLDTOP,KX-LTOP+1,KX-KDCB+1,KX-KDCT+1,RHCRIT +! write(43,*) xtime/60.0,ktau,ZPBL,ZLCL,LLC,KPBL,KLCL, & +! CLDTOP,LTOP,KDCB,KDCT + DO k = KL, 1, -1 + write(17,*) kl-k+1,p0(k)/100.0,z0(k),CLDUA(k)*100.0, & + CLDAREAB(I,K,J)*100.0, & + CLDLIQB(I,K,J)*1000.0, & + CLDAREAB(I,K,J)*CLDLIQB(I,K,J)*1000.0, & + tt4(k)*1000.0, & + RH0(K)*100.0, & + ca_rad0(K)*100.0, & + QC0_expl(K)*1000. + ENDDO + +! DO k = 1, KL +! write(43,*) k,p0(k),z0(k), & +! cldaten0(k)*aa, & +! cldaten(k)*aa, & +! cldlctn0(k)*bb, & +! cldlctn1(k)*bb, & +! cldlctn2(k)*bb, & +! cldlctn3(k)*bb, & +! cldlctn4(k)*bb, & +! cldlctn5(k)*bb ! g/hour +! ENDDO + ENDIF + + + KK=INT(PLOTFRQ*(KTAU1HUR/60.)) + IF( MOD(KTAU-1,KK) .EQ. 0) THEN + + write(10,*) xtime/60.0, ktau-1 + + DO k = kl, 1, -1 + wsp_plot(k) = sqrt(u0(k)**2+v0(k)**2) + if( ABS(wsp_plot(k)) < 0.001 ) then + wdr_plot(k)=0. + else if(v0(k) .gt. 0.) then + wdr_plot(k)=atan(u0(k)/v0(k)) + wdr_plot(k)=wdr_plot(k)*180./pie+180. + else if (v0(k) .lt. 0.) then + if( u0(k) .gt. 0.0 ) then + wdr_plot(k)=atan(u0(k)/v0(k)) + wdr_plot(k)=wdr_plot(k)*180./PIE+360. + else if( u0(k) .lt. 0.0 ) then + wdr_plot(k)=atan(u0(k)/v0(k)) + wdr_plot(k)=wdr_plot(k)*180./PIE + end if + else if (u0(k) .gt.0.) then + wdr_plot(k)=270. + else + wdr_plot(k)=90. + end if + + qqq= Q0(K) + qqq = AMAX1(qqq,1.0E-25) + EES=qqq*p0(k)/100.0/(0.622+qqq) + IF( t0(k) .GT. TO ) THEN + TLOG=LOG(EES/SVP1/10.) + td_plot(k) = (SVP2*SVPT0-SVP3*TLOG)/(SVP2-TLOG)-SVPT0 + ELSE + TLOG=LOG(EES/0.611/10.) + td_plot(k) = 6150./(22.514-TLOG)-SVPT0 + ENDIF + + write(10,*) p0(k)/100.0, t0(k)-SVPT0, td_plot(k), wsp_plot(k), wdr_plot(k) + ENDDO + + write(10,*) (TUG(K),K=1,KL),TPBLG(I,J),PPBLG(I,J),TLCLG(I,J), & + PLCLG(I,J), PCLDTPG(I,J), TCLDTPG(I,J), & + CLDHGTG(I,J),PLET,TLET,PLFSG(I,J),TLFSG(I,J),PLDTG(I,J), & + TLDTG(I,J),PLDBG(I,J),TLDBG(I,J),PLLCG(I,J),TLLCG(I,J), & + TRPPT + ENDIF + + KK=INT(PLOTFRQ*(KTAU1HUR/60.)) + IF( MOD(KTAU-1,KK) .EQ. 0) THEN + + write(7,*) xtime/60.0,ktau,ZPBL,ZLCL,LLC,KKPBL,KLCL, & + CLDTOP,kx-LTOP+1,kx-KDCB+1,kx-KDCT+1 + do k = kx, 1, -1 + write(7,*) kx-k+1, p0(k)/100.0, z_at_w0(k)-ht, tke0(k) + enddo + + write(67,*) (TKE0(K),K=KXP1-KL/3+1,1,-1), (z_at_w0(k)-ht,k=KXP1-KL/3+1,1,-1) + ENDIF + + ENDIF +#endif + + END SUBROUTINE deng_shcu + +!==================================================================== + SUBROUTINE deng_shcu_init(RTHSHTEN,RQVSHTEN,RQCSHTEN,RQRSHTEN, & + RUSHTEN,RVSHTEN,RDCASHTEN,RQCDCSHTEN,W0AVG, & + PBLHAVG, TKEAVG, cldareaa, cldareab, & + cldliqa, cldliqb, ca_rad, cw_rad, & + wub, pblmax, ltopb, clddpthb, cldtopb, & + capesave, ainckfsa, radsave, & + rainsh, rainshvb, kdcldtop, kdcldbas, & + xtime1, & + restart, & + SVP1,SVP2,SVP3,SVPT0, & + 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 + + LOGICAL , INTENT(IN) :: restart + REAL , INTENT(IN) :: SVP1,SVP2,SVP3,SVPT0 + + REAL, DIMENSION( ims:ime , kms:kme , jms:jme ), INTENT(OUT) :: & + RUSHTEN, & + RVSHTEN, & + RTHSHTEN, & + RQVSHTEN, & + RQCSHTEN, & + RQRSHTEN, & + RDCASHTEN, & + RQCDCSHTEN + + REAL , DIMENSION( ims:ime , kms:kme , jms:jme ) , INTENT(OUT) :: W0AVG, & + TKEAVG + + REAL , DIMENSION( ims:ime , jms:jme), INTENT(OUT) :: pblmax, & + rainsh, rainshvb, clddpthb, cldtopb, capesave, radsave, xtime1, & + pblhavg + + REAL , DIMENSION( ims:ime , 1:100, jms:jme ), INTENT(OUT) :: ainckfsa + + INTEGER , DIMENSION( ims:ime , jms:jme), INTENT(OUT) :: ltopb & + ,kdcldtop, kdcldbas + + REAL , DIMENSION( ims:ime , kms:kme, jms:jme ), INTENT(OUT) :: wub, & + cldareaa, cldareab, cldliqa, cldliqb, ca_rad, cw_rad + + + INTEGER :: i, j, k, itf, jtf, ktf + + jtf=min0(jte,jde-1) + ktf=min0(kte,kde-1) + itf=min0(ite,ide-1) + + IF(.NOT.RESTART)THEN + DO j=jts,jtf + DO i=its,itf + DO k=kts,ktf + RUSHTEN(i,k,j) = 0. + RVSHTEN(i,k,j) = 0. + RTHSHTEN(i,k,j) = 0. + RQVSHTEN(i,k,j) = 0. + RQCSHTEN(i,k,j) = 0. + RQRSHTEN(i,k,j) = 0. + RDCASHTEN(i,k,j) = 0. + RQCDCSHTEN(i,k,j) = 0. + W0AVG(i,k,j) = 0. + TKEAVG(i,k,j) = 0. + wub(i,k,j) = 0. + cldareaa(i,k,j) = 0.0 + cldareab(i,k,j) = 0.0 + cldliqa(i,k,j) = 0.0 + cldliqb(i,k,j) = 0.0 + ca_rad(i,k,j) = 0.0 + cw_rad(i,k,j) = 0.0 + ENDDO + PBLHAVG(i,j) = 0.0 + pblmax(i,j) = 0.0 + clddpthb(I,J) = 0.0 + cldtopb(I,J) = 0.0 + rainsh(i,j) = 0.0 + rainshvb(i,j) = 0.0 + capesave(i,j) = 0.0 + radsave(i,j) = 0.0 + xtime1(i,j) = 0.0 + ltopb(i,j) = 1 + kdcldtop(i,j) = 1 + kdcldbas(i,j) = 1 + ENDDO + ENDDO + + DO j=jts,jtf + DO i=its,itf + DO k=1,100 + ainckfsa(i,k,j) = 0.0 + ENDDO + ENDDO + ENDDO + + ENDIF + + CALL KF_LUTAB(SVP1,SVP2,SVP3,SVPT0) +! CALL KF_LUTABBG(SVP1,SVP2,SVP3,SVPT0) + + END SUBROUTINE deng_shcu_init + +!========================================================== + SUBROUTINE time_avg_2d( dt, ADAPT_STEP_FLAG, time_period_avg_min & + ,array2d, array2d_avg & + ,its,ite, jts,jte & + ) + IMPLICIT NONE + INTEGER, INTENT(IN ) :: its,ite, jts,jte + + REAL, INTENT(IN ) :: time_period_avg_min, dt ! time window to perform + !a running mean value + LOGICAL ,INTENT(IN) :: adapt_step_flag + REAL, DIMENSION( its:ite , jts:jte ), INTENT(IN ) :: array2d + REAL, DIMENSION( its:ite , jts:jte ), INTENT(INOUT) :: array2d_avg + + INTEGER :: i, j, ntst + REAL :: tst, AVGfctr, fctr, den + + NTST = NINT( time_period_avg_min * 60.0 / dt ) ! number of time steps in time_period_avg_min + TST = FLOAT(NTST) + IF( TST <= 0 ) STOP 'Denominator has to be greater than zero - deng_shcu_driver' + + if (ADAPT_STEP_FLAG) then + AVGfctr = MAX( time_period_avg_min*60,dt ) - dt + fctr = dt + den = MAX( time_period_avg_min*60,dt ) + else + AVGfctr = (TST-1.) + fctr = 1. + den = TST + endif + + DO J = jts,jte + DO I = its,ite + array2d_avg(i,j) = ( array2d_avg(i,j) * AVGfctr + array2d(i,j) * fctr ) / den + ENDDO + ENDDO + +! write(*,'(5f10.4)') array2d(1,1), array2d_avg(1,1), AVGfctr, fctr, den + + END SUBROUTINE time_avg_2d + +!========================================================== + SUBROUTINE time_avg_3d( dt, ADAPT_STEP_FLAG, time_period_avg_min & + ,array3d, array3d_avg & + ,its,ite, jts,jte, kts,kte & + ) + IMPLICIT NONE + INTEGER, INTENT(IN ) :: its,ite, jts,jte, kts,kte + + REAL, INTENT(IN ) :: time_period_avg_min, dt ! time window to perform + !a running mean value + LOGICAL ,INTENT(IN) :: adapt_step_flag + REAL, DIMENSION( its:ite , kts:kte , jts:jte ), INTENT(IN ) :: array3d + REAL, DIMENSION( its:ite , kts:kte , jts:jte ), INTENT(INOUT) :: array3d_avg + + INTEGER :: i, j, k, ntst + REAL :: tst, AVGfctr, fctr, den + + NTST = NINT( time_period_avg_min * 60.0 / dt ) ! number of time steps in time_period_avg_min + TST = FLOAT(NTST) + IF( TST <= 0 ) STOP 'Denominator has to be greater than zero - deng_shcu_driver' + + if (ADAPT_STEP_FLAG) then + AVGfctr = MAX( time_period_avg_min*60,dt ) - dt + fctr = dt + den = MAX( time_period_avg_min*60,dt ) + else + AVGfctr = (TST-1.) + fctr = 1. + den = TST + endif + + DO J = jts,jte + DO I = its,ite + DO k = kts,kte + array3d_avg(i,k,j) = ( array3d_avg(i,k,j) * AVGfctr + array3d(i,k,j) * fctr ) / den + ENDDO + ENDDO + ENDDO + +! do k = 1,kte +! write(*,'(i3,5f10.4)') k, array3d(1,k,1), array3d_avg(1,k,1), AVGfctr, fctr, den +! enddo + + END SUBROUTINE time_avg_3d + +!==================================================================== + SUBROUTINE CONDLOAD(QLIQ,QICE,WTW,DZ,BOTERM,ENTERM,RATE,QNEWLQ, & + QNEWIC,QLQOUT,QICOUT,G) +! 9/18/88...THIS PRECIPITATION FALLOUT SCHEME IS BASED ON THE SCHEME US +! BY OGURA AND CHO (1973). LIQUID WATER FALLOUT FROM A PARCEL IS CAL- +! CULATED USING THE EQUATION DQ=-RATE*Q*DT, BUT TO SIMULATE A QUASI- +! CONTINUOUS PROCESS, AND TO ELIMINATE A DEPENDENCY ON VERTICAL +! RESOLUTION THIS IS EXPRESSED AS Q=Q*EXP(-RATE*DZ). +!---------------------- + IMPLICIT NONE +!---------------------- + REAL, INTENT(IN ) :: G + REAL, INTENT(IN ) :: DZ,BOTERM,ENTERM,RATE + REAL, INTENT(INOUT) :: QLQOUT,QICOUT,WTW,QLIQ,QICE,QNEWLQ,QNEWIC + REAL :: QTOT,QNEW,QEST,G1,WAVG,CONV,RATIO3,OLDQ,RATIO4,DQ,PPTDRG + + IF(ABS(WTW).LT.1.E-4) WTW=1.E-4 + QTOT=QLIQ+QICE + QNEW=QNEWLQ+QNEWIC +! +! ESTIMATE THE VERTICAL VELOCITY SO THAT AN AVERAGE VERTICAL VELOCITY +! BE CALCULATED TO ESTIMATE THE TIME REQUIRED FOR ASCENT BETWEEN MODEL +! LEVELS... +! + QEST=0.5*(QTOT+QNEW) + G1=WTW+BOTERM-ENTERM-2.*G*DZ*QEST/1.5 + IF(G1.LT.0.0)G1=0. + WAVG=0.5*(SQRT(WTW)+SQRT(G1)) + CONV=RATE*DZ/WAVG +! +! RATIO3 IS THE FRACTION OF LIQUID WATER IN FRESH CONDENSATE, RATIO4 IS +! THE FRACTION OF LIQUID WATER IN THE TOTAL AMOUNT OF CONDENSATE INVOLV +! IN THE PRECIPITATION PROCESS - NOTE THAT ONLY 60% OF THE FRESH CONDEN +! SATE IS IS ALLOWED TO PARTICIPATE IN THE CONVERSION PROCESS... +! + RATIO3=QNEWLQ/(QNEW+1.E-8) +! OLDQ=QTOT + QTOT=QTOT+0.6*QNEW + OLDQ=QTOT + RATIO4=(0.6*QNEWLQ+QLIQ)/(QTOT+1.E-8) + QTOT=QTOT*EXP(-CONV) +! +! DETERMINE THE AMOUNT OF PRECIPITATION THAT FALLS OUT OF THE UPDRAFT +! PARCEL AT THIS LEVEL... +! + DQ=OLDQ-QTOT + QLQOUT=RATIO4*DQ + QICOUT=(1.-RATIO4)*DQ +! +! ESTIMATE THE MEAN LOAD OF CONDENSATE ON THE UPDRAFT IN THE LAYER, CAL +! LATE VERTICAL VELOCITY +! + PPTDRG=0.5*(OLDQ+QTOT-0.2*QNEW) + WTW=WTW+BOTERM-ENTERM-2.*G*DZ*PPTDRG/1.5 + IF(ABS(WTW).LT.1.E-4)WTW=1.E-4 +! +! DETERMINE THE NEW LIQUID WATER AND ICE CONCENTRATIONS INCLUDING LOSSE +! DUE TO PRECIPITATION AND GAINS FROM CONDENSATION... +! + QLIQ=RATIO4*QTOT+RATIO3*0.4*QNEW + QICE=(1.-RATIO4)*QTOT+(1.-RATIO3)*0.4*QNEW + QNEWLQ=0. + QNEWIC=0. + + END SUBROUTINE CONDLOAD +!==================================================================== + SUBROUTINE DTFRZNEW(TU,P,THTEU,QVAP,QLIQ,QICE,RATIO2, & + QNWFRZ,RL,FRC1,EFFQ,IFLAG,XLV0,XLV1,XLS0,XLS1, & +! ALIQ,BLIQ,CLIQ,DLIQ,AICE,BICE,CICE,DICE, & + SVP1,SVP2,SVPT0,SVP3) +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P, SVP1,SVP2,SVPT0,SVP3, & + XLV0,XLV1,XLS0,XLS1, EFFQ + + REAL, INTENT(INOUT) :: TU, THTEU, QVAP, QLIQ, QICE, RATIO2, & + QNWFRZ, FRC1, RL + INTEGER, INTENT(INOUT) :: IFLAG + REAL :: A, B, C, C5, RLC, RLS, RLF, QVAP1, & + RV, CS, QLQFRZ, QNEW, ESLIQ, ESICE, & + CP, DQVAP, DTFRZ, TU1, ES, pi +! +!...ALLOW GLACIATION OF THE UPDRAFT TO OCCUR AS AN APPROXIMATELY LINEAR +! FUNCTION OF TEMPERATURE IN THE TEMPERATURE RANGE TTFRZ TO TBFRZ... +! + RV=461.5 + C5=1.0723E-3 +! +!...ADJUST THE LIQUID WATER CONCENTRATIONS FROM FRESH CONDENSATE AND THA +! BROUGHT UP FROM LOWER LEVELS TO AN AMOUNT THAT WOULD BE PRESENT IF N +! LIQUID WATER HAD FROZEN THUS FAR...THIS IS NECESSARY BECAUSE THE +! EXPRESSION FOR TEMP CHANGE IS MULTIPLIED BY THE FRACTION EQUAL TO TH +! PARCEL TEMP DECREASE SINCE THE LAST MODEL LEVEL DIVIDED BY THE TOTAL +! GLACIATION INTERVAL, SO THAT EFFECTIVELY THIS APPROXIMATELY ALLOWS A +! AMOUNT OF LIQUID WATER TO FREEZE WHICH IS EQUAL TO THIS SAME FRACTIO +! OF THE LIQUID WATER THAT WAS PRESENT BEFORE THE GLACIATION PROCESS W +! INITIATED...ALSO, TO ALLOW THETAU TO CONVERT APPROXIMATELY LINEARLY +! ITS VALUE WITH RESPECT TO ICE, WE NEED TO ALLOW A PORTION OF THE FRE +! CONDENSATE TO CONTRIBUTE TO THE GLACIATION PROCESS; THE FRACTIONAL +! AMOUNT THAT APPLIES TO THIS PORTION IS 1/2 OF THE FRACTIONAL AMOUNT +! FROZEN OF THE "OLD" CONDENSATE BECAUSE THIS FRESH CONDENSATE IS ONLY +! PRODUCED GRADUALLY OVER THE LAYER...NOTE THAT IN TERMS OF THE DYNAMI +! OF THE PRECIPITATION PROCESS, IE. PRECIPITATION FALLOUT, THIS FRACTI +! AMNT OF FRESH CONDENSATE HAS ALREADY BEEN INCLUDED IN THE ICE CATEGO +! + QLQFRZ=QLIQ*EFFQ + QNEW=QNWFRZ*EFFQ*0.5 +! ESLIQ=ALIQ*EXP((BLIQ*TU-CLIQ)/(TU-DLIQ)) + ESLIQ=1.E3*SVP1*EXP(SVP2*(TU-SVPT0)/(TU-SVP3)) +! ESICE=AICE*EXP((BICE*TU-CICE)/(TU-DICE)) + ESICE=611.0*EXP(22.514-6.15E3/TU) + RLC=2.5E6-2369.276*(TU-273.16) + RLS=2833922.-259.532*(TU-273.16) + RLF=RLS-RLC + CP=1005.7*(1.+0.89*QVAP) +! +! A = D(ES)/DT IS THAT CALCULATED FROM BUCK`S (1981) EMPIRICAL FORMULAS +! FOR SATURATION VAPOR PRESSURE... +! +! A=(CICE-BICE*DICE)/((TU-DICE)*(TU-DICE)) + A=6.15E+3/(TU*TU) + B=RLS*0.622/P + C=A*B*ESICE/CP + DQVAP=B*(ESLIQ-ESICE)/(RLS+RLS*C)-RLF*(QLQFRZ+QNEW)/(RLS+RLS/C) + DTFRZ=(RLF*(QLQFRZ+QNEW)+B*(ESLIQ-ESICE))/(CP+A*B*ESICE) + TU1=TU + QVAP1=QVAP + TU=TU+FRC1*DTFRZ + QVAP=QVAP-FRC1*DQVAP + ES=QVAP*P/(0.622+QVAP) +! ESLIQ=ALIQ*EXP((BLIQ*TU-CLIQ)/(TU-DLIQ)) + ESLIQ=1.E3*SVP1*EXP(SVP2*(TU-SVPT0)/(TU-SVP3)) +! ESICE=AICE*EXP((BICE*TU-CICE)/(TU-DICE)) + ESICE=611.0*EXP(22.514-6.15E3/TU) + RATIO2=(ESLIQ-ES)/(ESLIQ-ESICE) +! +! TYPICALLY, RATIO2 IS VERY CLOSE TO (TTFRZ-TU)/(TTFRZ-TBFRZ), USUALLY +! WITHIN 1% (USING TU BEFORE GALCIATION EFFECTS ARE APPLIED); IF THE +! INITIAL UPDRAFT TEMP IS BELOW TBFRZ AND RATIO2 IS STILL LESS THAN 1, +! AN ADJUSTMENT TO FRC1 AND RATIO2 IS INTRODUCED SO THAT GLACIATION +! EFFECTS ARE NOT UNDERESTIMATED; CONVERSELY, IF RATIO2 IS GREATER THAN +! FRC1 IS ADJUSTED SO THAT GLACIATION EFFECTS ARE NOT OVERESTIMATED... +! + IF(IFLAG.GT.0.AND.RATIO2.LT.1)THEN + FRC1=FRC1+(1.-RATIO2) + TU=TU1+FRC1*DTFRZ + QVAP=QVAP1-FRC1*DQVAP + RATIO2=1. + IFLAG=1 + GOTO 20 + ENDIF + IF(RATIO2.GT.1.)THEN + FRC1=FRC1-(RATIO2-1.) + FRC1=AMAX1(0.0,FRC1) + TU=TU1+FRC1*DTFRZ + QVAP=QVAP1-FRC1*DQVAP + RATIO2=1. + IFLAG=1 + ENDIF +! +! CALCULATE A HYBRID VALUE OF THETAU, ASSUMING THAT THE LATENT HEAT OF +! VAPORIZATION/SUBLIMATION CAN BE ESTIMATED USING THE SAME WEIGHTING +! FUNCTION AS THAT USED TO CALCULATE SATURATION VAPOR PRESSURE, CALCU- +! LATE NEW LIQUID WATER AND ICE CONCENTRATIONS... +! + 20 RLC=XLV0-XLV1*TU + RLS=XLS0-XLS1*TU + RL=RATIO2*RLS+(1.-RATIO2)*RLC + PI=(1.E5/P)**(0.2854*(1.-0.28*QVAP)) + THTEU=TU*PI*EXP(RL*QVAP*C5/TU*(1.+0.81*QVAP)) + IF(IFLAG.EQ.1)THEN + QICE=QICE+FRC1*DQVAP+QLIQ + QLIQ=0. + ELSE + QICE=QICE+FRC1*(DQVAP+QLQFRZ) + QLIQ=QLIQ-FRC1*QLQFRZ + ENDIF + QNWFRZ=0. + + END SUBROUTINE DTFRZNEW +! *********************************************************************** +!==================================================================== +!==================================================================== + SUBROUTINE ENVIRTHT(P1,T1,Q1,THT1,R1,RL, & +! ALIQ,BLIQ,CLIQ,DLIQ,AICE,BICE,CICE,DICE, & + SVP1,SVP2,SVPT0,SVP3,I,J) +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P1,T1,Q1,R1,RL,SVP1,SVP2,SVPT0,SVP3 + INTEGER, INTENT(IN ) :: I,J + REAL, INTENT( OUT) :: THT1 + REAL :: EE,TLOG,TDPT,TSAT,THT,TFPT + REAL :: T00,P00,C1,C2,C3,C4,C5,tlogic, tsatlq, tsatic +!----------------------------------------------------------------------- + DATA T00,P00,C1,C2,C3,C4,C5/273.16,1.E5,3374.6525,2.5403,3114.834, & + 0.278296,1.0723E-3/ +! +! CALCULATE ENVIRONMENTAL EQUIVALENT POTENTIAL TEMPERATURE... +! + IF(R1.LT.1.E-6)THEN + ! EE=Q1*P1/(0.622+Q1) + EE=max(Q1*P1/(0.622+Q1),1.e-9) +! TLOG=ALOG(EE/ALIQ) +! TDPT=(CLIQ-DLIQ*TLOG)/(BLIQ-TLOG) + TLOG=ALOG(EE/SVP1/1000.) + TDPT=(SVP2*SVPT0-SVP3*TLOG)/(SVP2-TLOG) + TSAT=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(T1-T00))*(T1-TDPT) + THT=T1*(P00/P1)**(0.2854*(1.-0.28*Q1)) + THT1=THT*EXP((C1/TSAT-C2)*Q1*(1.+0.81*Q1)) + ELSEIF(ABS(R1-1.).LT.1.E-6)THEN + ! EE=Q1*P1/(0.622+Q1) + EE=max(Q1*P1/(0.622+Q1),1.e-9) +! TLOG=ALOG(EE/AICE) +! TFPT=(CICE-DICE*TLOG)/(BICE-TLOG) + TLOG=ALOG(EE/611.0) + TFPT=6150./(22.514-TLOG) + THT=T1*(P00/P1)**(0.2854*(1.-0.28*Q1)) + TSAT=TFPT-(.182+1.13E-3*(TFPT-T00)-3.58E-4*(T1-T00))*(T1-TFPT) + THT1=THT*EXP((C3/TSAT-C4)*Q1*(1.+0.81*Q1)) + ELSE + ! EE=Q1*P1/(0.622+Q1) + EE=max(Q1*P1/(0.622+Q1),1.e-9) +! TLOG=ALOG(EE/ALIQ) +! TDPT=(CLIQ-DLIQ*TLOG)/(BLIQ-TLOG) +! TLOGIC=ALOG(EE/AICE) +! TFPT=(CICE-DICE*TLOGIC)/(BICE-TLOGIC) + TLOG=ALOG(EE/SVP1/1000.) + TDPT=(SVP2*SVPT0-SVP3*TLOG)/(SVP2-TLOG) + TLOGIC=ALOG(EE/611.0) + TFPT=6150./(22.514-TLOGIC) + THT=T1*(P00/P1)**(0.2854*(1.-0.28*Q1)) + TSATLQ=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(T1-T00))*(T1-TDPT) + TSATIC=TFPT-(.182+1.13E-3*(TFPT-T00)-3.58E-4*(T1-T00))*(T1-TFPT) + TSAT=R1*TSATIC+(1.-R1)*TSATLQ + THT1=THT*EXP(RL*Q1*C5/TSAT*(1.+0.81*Q1)) + ! NaN 326. NaN 30.88963 NaN 0.0 NaN -Infinity -Infinity 0 + ENDIF + + END SUBROUTINE ENVIRTHT +!==================================================================== + SUBROUTINE ENVIRTHT2(P1,T1,Q1,THT1,ALIQ,BLIQ,CLIQ,DLIQ) +! +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P1,T1,Q1,ALIQ,BLIQ,CLIQ,DLIQ + REAL, INTENT(INOUT) :: THT1 + REAL :: EE,TLOG,ASTRT,AINC,A1,TP,VALUE,AINTRP,TDPT,TSAT,THT, & + T00,P00,C1,C2,C3,C4,C5 + INTEGER :: INDLU +!----------------------------------------------------------------------- + DATA T00,P00,C1,C2,C3,C4,C5/273.16,1.E5,3374.6525,2.5403,3114.834, & + 0.278296,1.0723E-3/ +! +! CALCULATE ENVIRONMENTAL EQUIVALENT POTENTIAL TEMPERATURE... +! +! NOTE: Calculations for mixed/ice phase no longer used...jsk 8/00 +! For example, KF90 Eq. 10 no longer used +! + EE=Q1*P1/(0.622+Q1) +! TLOG=ALOG(EE/ALIQ) +! ...calculate LOG term using lookup table... +! + astrt=1.e-3 + ainc=0.075 + a1=ee/aliq + tp=(a1-astrt)/ainc + indlu=int(tp)+1 + value=(indlu-1)*ainc+astrt + aintrp=(a1-value)/ainc + tlog=aintrp*alu(indlu+1)+(1-aintrp)*alu(indlu) +! + TDPT=(CLIQ-DLIQ*TLOG)/(BLIQ-TLOG) + TSAT=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(T1-T00))*(T1-TDPT) + THT=T1*(P00/P1)**(0.2854*(1.-0.28*Q1)) + THT1=THT*EXP((C1/TSAT-C2)*Q1*(1.+0.81*Q1)) +! + END SUBROUTINE ENVIRTHT2 +! *********************************************************************** +!==================================================================== + SUBROUTINE PROF5(EQ,EE,UD) +!----------------------------------------------------------------------- +! THIS SUBROUTINE INTEGRATES THE AREA UNDER THE CURVE IN THE GAUSSIAN +! DISTRIBUTION...THE NUMERICAL APPROXIMATION TO THE INTEGRAL IS TAKEN FROM +! `HANDBOOK OF MATHEMATICAL FUNCTIONS WITH FORMULAS, GRAPHS AND MATHEMATICAL +! TABLES` ED. BY ABRAMOWITZ AND STEGUN, NAT`L BUREAU OF STANDARDS APPLIED +! MATHEMATICS SERIES. JUNE, 1964., MAY, 1968. +! JACK KAIN +! 7/6/89 +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: EQ + REAL, INTENT( OUT) :: EE,UD + REAL :: SQRT2P,A1,A2,A3,P,SIGMA,FE,X,Y,EY,E45,T1,T2,C1,C2 +!----------------------------------------------------------------------- +!********************************************************************* +!***** GAUSSIAN TYPE MIXING PROFILE....****************************** + DATA SQRT2P,A1,A2,A3,P,SIGMA,FE/2.506628,0.4361836,-0.1201676, & + 0.9372980,0.33267,0.166666667,0.202765151/ + X=(EQ-0.5)/SIGMA + Y=6.*EQ-3. + EY=EXP(Y*Y/(-2)) + E45=EXP(-4.5) + T2=1./(1.+P*ABS(Y)) + T1=0.500498 + C1=A1*T1+A2*T1*T1+A3*T1*T1*T1 + C2=A1*T2+A2*T2*T2+A3*T2*T2*T2 + IF(Y.GE.0.)THEN + EE=SIGMA*(0.5*(SQRT2P-E45*C1-EY*C2)+SIGMA*(E45-EY))-E45*EQ*EQ/2. + UD=SIGMA*(0.5*(EY*C2-E45*C1)+SIGMA*(E45-EY))-E45*(0.5+EQ*EQ/2.-EQ) + ELSE + EE=SIGMA*(0.5*(EY*C2-E45*C1)+SIGMA*(E45-EY))-E45*EQ*EQ/2. + UD=SIGMA*(0.5*(SQRT2P-E45*C1-EY*C2)+SIGMA*(E45-EY))-E45*(0.5+EQ* & + EQ/2.-EQ) + ENDIF + EE=EE/FE + UD=UD/FE + + END SUBROUTINE PROF5 +! *********************************************************************** +!==================================================================== + FUNCTION TPDD(P,THTED,TGS,RS,RD,RH,XLV0,XLV1, & +! ALIQ,BLIQ,CLIQ,DLIQ,AICE,BICE,CICE,DICE, & + SVP1,SVP2,SVPT0,SVP3) +!************************* TPDD.FOR ************************************ +! THIS SUBROUTINE ITERATIVELY EXTRACTS TEMPERATURE FROM EQUIVALENT * +! POTENTIAL TEMP. IT IS DESIGNED FOR USE WITH DOWNDRAFT CALCULATIONS. +! IF RELATIVE HUMIDITY IS SPECIFIED TO BE LESS THAN 100%, PARCEL * +! TEMP, SPECIFIC HUMIDITY, AND LIQUID WATER CONTENT ARE ITERATIVELY * +! CALCULATED. * +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P,THTED,TGS,RD,RH,XLV0,XLV1,SVP1,SVP2,SVPT0,SVP3 +! REAL, INTENT( OUT ) :: tpdd + REAL :: tpdd + REAL, INTENT(INOUT) :: RS + REAL :: ES, PI, THTGS, F0, T1, T0, CP, F1, DT, DSSDT, T1RH, RSRH, RL + INTEGER :: ITCNT +!----------------------------------------------------------------------- +! ES=ALIQ*EXP((BLIQ*TGS-CLIQ)/(TGS-DLIQ)) + ES=1.E3*SVP1*EXP(SVP2*(TGS-SVPT0)/(TGS-SVP3)) + RS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*RS)) + THTGS=TGS*PI*EXP((3374.6525/TGS-2.5403)*RS*(1.+0.81*RS)) + F0=THTGS-THTED + T1=TGS-0.5*F0 + T0=TGS + CP=1005.7 +! +!...ITERATE TO FIND WET-BULB TEMPERATURE... +! + ITCNT=0 +! 90 ES=ALIQ*EXP((BLIQ*T1-CLIQ)/(T1-DLIQ)) + 90 ES=1.E3*SVP1*EXP(SVP2*(T1-SVPT0)/(T1-SVP3)) + RS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*RS)) + THTGS=T1*PI*EXP((3374.6525/T1-2.5403)*RS*(1.+0.81*RS)) + F1=THTGS-THTED + IF(ABS(F1).LT.0.05)GOTO 50 + ITCNT=ITCNT+1 + IF(ITCNT.GT.10)GOTO 50 + DT=F1*(T1-T0)/(F1-F0) + T0=T1 + F0=F1 + T1=T1-DT + GOTO 90 + 50 RL=XLV0-XLV1*T1 +! +!...IF RELATIVE HUMIDITY IS SPECIFIED TO BE LESS THAN 100%, ESTIMATE THE +! TEMPERATURE AND MIXING RATIO WHICH WILL YIELD THE APPROPRIATE VALUE. +! + IF(RH.EQ.1.)GOTO 110 + DSSDT=SVP2*(SVPT0-SVP3)/((T1-SVP3)*(T1-SVP3)) + DT=RL*RS*(1.-RH)/(CP+RL*RH*RS*DSSDT) + T1RH=T1+DT +! ES=RH*ALIQ*EXP((BLIQ*T1RH-CLIQ)/(T1RH-DLIQ)) + ES=RH*1.E3*SVP1*EXP(SVP2*(T1RH-SVPT0)/(T1RH-SVP3)) + RSRH=0.622*ES/(P-ES) +! +!...CHECK TO SEE IF MIXING RATIO AT SPECIFIED RH IS LESS THAN ACTUAL +!...MIXING RATIO...IF SO, ADJUST TO GIVE ZERO EVAPORATION... +! + IF(RSRH.LT.RD)THEN + RSRH=RD + T1RH=T1+(RS-RSRH)*RL/CP + ENDIF + T1=T1RH + RS=RSRH + 110 TPDD=T1 +! IF(ITCNT.GT.10)PRINT*,'***** NUMBER OF ITERATIONS IN TPDD = ', +! + ITCNT + RETURN + END FUNCTION TPDD +!==================================================================== + FUNCTION TPDDBG(P,THTED,TGS,RS,RD,RH,XLV0,XLV1, & +! ALIQ,BLIQ,CLIQ,DLIQ,AICE,BICE,CICE,DICE, & + SVP1,SVP2,SVPT0,SVP3) +!************************* TPDD.FOR ************************************ +! THIS SUBROUTINE ITERATIVELY EXTRACTS TEMPERATURE FROM EQUIVALENT * +! POTENTIAL TEMP. IT IS DESIGNED FOR USE WITH DOWNDRAFT CALCULATIONS. +! IF RELATIVE HUMIDITY IS SPECIFIED TO BE LESS THAN 100%, PARCEL * +! TEMP, SPECIFIC HUMIDITY, AND LIQUID WATER CONTENT ARE ITERATIVELY * +! CALCULATED. * +!----------------------------------------------------------------------- +! +! Modified BJG 1/17/2014 +! + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P,THTED,TGS,RD,RH,XLV0,XLV1,SVP1,SVP2,SVPT0,SVP3 +! REAL, INTENT( OUT ) :: tpddbg + REAL :: tpddbg + REAL, INTENT(INOUT) :: RS + REAL :: ES, PI, THTGS, F0, T1, T0, CP, F1, DT, DSSDT, T1RH, RSRH, RL + real :: f2, t2 + INTEGER :: ITCNT +!----------------------------------------------------------------------- +! ES=ALIQ*EXP((BLIQ*TGS-CLIQ)/(TGS-DLIQ)) + ES=1.E3*SVP1*EXP(SVP2*(TGS-SVPT0)/(TGS-SVP3)) + RS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*RS)) + THTGS=TGS*PI*EXP((3374.6525/TGS-2.5403)*RS*(1.+0.81*RS)) + F0=THTGS-THTED +!c T1=TGS-0.5*F0 + T2=TGS-0.5*F0 + T0=TGS + + t1 = t0 + f1 = f0 + + CP=1005.7 +! +!...ITERATE TO FIND WET-BULB TEMPERATURE... +! + ITCNT=0 +! 90 ES=ALIQ*EXP((BLIQ*T1-CLIQ)/(T1-DLIQ)) + 90 ES=1.E3*SVP1*EXP(SVP2*(t2-SVPT0)/(t2-SVP3)) + RS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*RS)) + THTGS=t2*PI*EXP((3374.6525/t2-2.5403)*RS*(1.+0.81*RS)) + + f2=THTGS-THTED + if((f1 * f2).lt.0.0) then + f0 = f1 + t0 = t1 + else + f0 = f0 + t0 = t0 + endif + f1 = f2 + t1 = t2 + + IF(ABS(F1).LT.0.05)GOTO 50 + ITCNT=ITCNT+1 + IF(ITCNT.GT.10)GOTO 50 + DT=F1*(T1-T0)/(F1-F0) + + if(abs(dt).lt.abs( (t1-t0)/2.0 )) then + dt = (t1 - t0) / 2.0 + endif + +!c T0=T1 +!c F0=F1 + t2=T1-DT + + GOTO 90 + 50 RL=XLV0-XLV1*T1 +! +!...IF RELATIVE HUMIDITY IS SPECIFIED TO BE LESS THAN 100%, ESTIMATE THE +! TEMPERATURE AND MIXING RATIO WHICH WILL YIELD THE APPROPRIATE VALUE. +! + IF(RH.EQ.1.)GOTO 110 + DSSDT=SVP2*(SVPT0-SVP3)/((T1-SVP3)*(T1-SVP3)) + DT=RL*RS*(1.-RH)/(CP+RL*RH*RS*DSSDT) + T1RH=T1+DT +! ES=RH*ALIQ*EXP((BLIQ*T1RH-CLIQ)/(T1RH-DLIQ)) + ES=RH*1.E3*SVP1*EXP(SVP2*(T1RH-SVPT0)/(T1RH-SVP3)) + RSRH=0.622*ES/(P-ES) +! +!...CHECK TO SEE IF MIXING RATIO AT SPECIFIED RH IS LESS THAN ACTUAL +!...MIXING RATIO...IF SO, ADJUST TO GIVE ZERO EVAPORATION... +! + IF(RSRH.LT.RD)THEN + RSRH=RD + T1RH=T1+(RS-RSRH)*RL/CP + ENDIF + T1=T1RH + RS=RSRH + 110 TPDDBG=T1 +! IF(ITCNT.GT.10)PRINT*,'***** NUMBER OF ITERATIONS IN TPDD = ', +! + ITCNT + RETURN + END FUNCTION TPDDBG +!==================================================================== + SUBROUTINE TPMIX(P,THTU,TU,QU,QLIQ,QICE,QNEWLQ,QNEWIC,RATIO2,RL, & + XLV0,XLV1,XLS0,XLS1, & +! ALIQ,BLIQ,CLIQ,DLIQ,AICE,BICE,CICE,DICE, & + SVP1,SVP2,SVPT0,SVP3) +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P,THTU,RATIO2,RL, & + XLV0,XLV1,XLS0,XLS1,SVP1,SVP2,SVPT0,SVP3 + REAL, INTENT( OUT) :: QNEWLQ,QNEWIC + REAL, INTENT(INOUT) :: TU,QU,QLIQ,QICE + REAL :: C5, RV, ES, QS, PI, THTGS, ESLIQ, ESICE, F0, T1, T0, & + F1, DT, QNEW, QTOT, DQICE, DQLIQ, RLL, CP, dq + INTEGER :: ITCNT +!----------------------------------------------------------------------- +! +!...THIS SUBROUTINE ITERATIVELY EXTRACTS WET-BULB TEMPERATURE FROM EQUIV +! POTENTIAL TEMPERATURE, THEN CHECKS TO SEE IF SUFFICIENT MOISTURE IS +! AVAILABLE TO ACHIEVE SATURATION...IF NOT, TEMPERATURE IS ADJUSTED +! ACCORDINGLY, IF SO, THE RESIDUAL LIQUID WATER/ICE CONCENTRATION IS +! DETERMINED... + + C5=1.0723E-3 + RV=461.5 +! +! ITERATE TO FIND WET BULB TEMPERATURE AS A FUNCTION OF EQUIVALENT POT +! TEMP AND PRS, ASSUMING SATURATION VAPOR PRESSURE...RATIO2 IS THE DEG +! OF GLACIATION... +! + IF(RATIO2.LT.1.E-6)THEN +! ES=ALIQ*EXP((BLIQ*TU-CLIQ)/(TU-DLIQ)) + ES=1.E3*SVP1*EXP(SVP2*(TU-SVPT0)/(TU-SVP3)) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=TU*PI*EXP((3374.6525/TU-2.5403)*QS*(1.+0.81*QS)) + ELSEIF(ABS(RATIO2-1.).LT.1.E-6)THEN +! ES=AICE*EXP((BICE*TU-CICE)/(TU-DICE)) + ES=611.0*EXP(22.514-6.15E3/TU) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=TU*PI*EXP((3114.834/TU-0.278296)*QS*(1.+0.81*QS)) + ELSE +! ESLIQ=ALIQ*EXP((BLIQ*TU-CLIQ)/(TU-DLIQ)) +! ESICE=AICE*EXP((BICE*TU-CICE)/(TU-DICE)) + ESLIQ=1.E3*SVP1*EXP(SVP2*(TU-SVPT0)/(TU-SVP3)) + ESICE=611.0*EXP(22.514-6.15E3/TU) + ES=(1.-RATIO2)*ESLIQ+RATIO2*ESICE + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=TU*PI*EXP(RL*QS*C5/TU*(1.+0.81*QS)) + ENDIF + F0=THTGS-THTU + T1=TU-0.5*F0 + T0=TU + ITCNT=0 + 90 IF(RATIO2.LT.1.E-6)THEN +! ES=ALIQ*EXP((BLIQ*T1-CLIQ)/(T1-DLIQ)) + ES=1.E3*SVP1*EXP(SVP2*(T1-SVPT0)/(T1-SVP3)) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=T1*PI*EXP((3374.6525/T1-2.5403)*QS*(1.+0.81*QS)) + ELSEIF(ABS(RATIO2-1.).LT.1.E-6)THEN +! ES=AICE*EXP((BICE*T1-CICE)/(T1-DICE)) + ES=611.0*EXP(22.514-6.15E3/T1) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=T1*PI*EXP((3114.834/T1-0.278296)*QS*(1.+0.81*QS)) + ELSE +! ESLIQ=ALIQ*EXP((BLIQ*T1-CLIQ)/(T1-DLIQ)) +! ESICE=AICE*EXP((BICE*T1-CICE)/(T1-DICE)) + ESLIQ=1.E3*SVP1*EXP(SVP2*(T1-SVPT0)/(T1-SVP3)) + ESICE=611.0*EXP(22.514-6.15E3/T1) + ES=(1.-RATIO2)*ESLIQ+RATIO2*ESICE + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=T1*PI*EXP(RL*QS*C5/T1*(1.+0.81*QS)) + ENDIF + F1=THTGS-THTU + IF(ABS(F1).LT.0.01)GOTO 50 + ITCNT=ITCNT+1 + IF(ITCNT.GT.10)GOTO 50 + DT=F1*(T1-T0)/(F1-F0) + T0=T1 + F0=F1 + T1=T1-DT + GOTO 90 +! +! IF THE PARCEL IS SUPERSATURATED, CALCULATE CONCENTRATION OF FRESH +! CONDENSATE... +! + 50 IF(QS.LE.QU)THEN + QNEW=QU-QS + QU=QS + GOTO 96 + ENDIF +! +! IF THE PARCEL IS SUBSATURATED, TEMPERATURE AND MIXING RATIO MUST BE +! ADJUSTED...IF LIQUID WATER OR ICE IS PRESENT, IT IS ALLOWED TO EVAPO +! SUBLIMATE. +! + QNEW=0. + DQ=QS-QU + QTOT=QLIQ+QICE +! +! IF THERE IS ENOUGH LIQUID OR ICE TO SATURATE THE PARCEL, TEMP STAYS +! WET BULB VALUE, VAPOR MIXING RATIO IS AT SATURATED LEVEL, AND THE MI +! RATIOS OF LIQUID AND ICE ARE ADJUSTED TO MAKE UP THE ORIGINAL SATURA +! DEFICIT... OTHERWISE, ANY AVAILABLE LIQ OR ICE VAPORIZES AND APPROPR +! ADJUSTMENTS TO PARCEL TEMP; VAPOR, LIQUID, AND ICE MIXING RATIOS ARE +! +!...NOTE THAT THE LIQ AND ICE MAY BE PRESENT IN PROPORTIONS SLIGHTLY DIF +! THAN SUGGESTED BY THE VALUE OF RATIO2...CHECK TO MAKE SURE THAT LIQ +! ICE CONCENTRATIONS ARE NOT REDUCED TO BELOW ZERO WHEN EVAPORATION/ +! SUBLIMATION OCCURS... +! + IF(QTOT.GE.DQ)THEN + DQICE=0.0 + DQLIQ=0.0 + QLIQ=QLIQ-(1.-RATIO2)*DQ + IF(QLIQ.LT.0.)THEN + DQICE=0.0-QLIQ + QLIQ=0.0 + ENDIF + QICE=QICE-RATIO2*DQ+DQICE + IF(QICE.LT.0.)THEN + DQLIQ=0.0-QICE + QICE=0.0 + ENDIF + QLIQ=QLIQ+DQLIQ + QU=QS + GOTO 96 + ELSE + IF(RATIO2.LT.1.E-6)THEN + RLL=XLV0-XLV1*T1 + ELSEIF(ABS(RATIO2-1.).LT.1.E-6)THEN + RLL=XLS0-XLS1*T1 + ELSE + RLL=RL + ENDIF + CP=1005.7*(1.+0.89*QU) + IF(QTOT.LT.1.E-10)THEN +! +!...IF NO LIQUID WATER OR ICE IS AVAILABLE, TEMPERATURE IS GIVEN BY: + T1=T1+RLL*(DQ/(1.+DQ))/CP + GOTO 96 + ELSE +! +!...IF SOME LIQ WATER/ICE IS AVAILABLE, BUT NOT ENOUGH TO ACHIEVE SATURA +! THE TEMPERATURE IS GIVEN BY: + T1=T1+RLL*((DQ-QTOT)/(1+DQ-QTOT))/CP + QU=QU+QTOT + QTOT=0. + ENDIF + QLIQ=0 + QICE=0. + ENDIF + 96 TU=T1 + QNEWLQ=(1.-RATIO2)*QNEW + QNEWIC=RATIO2*QNEW +! IF(ITCNT.GT.10)PRINT*,'***** NUMBER OF ITERATIONS IN TPMIX =', +! + ITCNT + + END SUBROUTINE TPMIX + +!=============================================================================== + + SUBROUTINE TPMIX2(p,thes,tu,qu,qliq,qice,qnewlq,qnewic,XLV1,XLV0,ktau,i,j,nk,tracker) +! +! Lookup table variables: +! INTEGER, PARAMETER :: (KFNT=250,KFNP=220) +! REAL, SAVE, DIMENSION(1:KFNT,1:KFNP) :: TTAB,QSTAB +! REAL, SAVE, DIMENSION(1:KFNP) :: THE0K +! REAL, SAVE, DIMENSION(1:200) :: ALU +! REAL, SAVE :: RDPR,RDTHK,PLUTOP +! End of Lookup table variables: +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P,THES,XLV1,XLV0 + REAL, INTENT(OUT ) :: QNEWLQ,QNEWIC + REAL, INTENT(INOUT) :: TU,QU,QLIQ,QICE + REAL :: TP,QQ,BTH,TTH,PP,T00,T10,T01,T11,Q00,Q10,Q01,Q11, & + TEMP,QS,QNEW,DQ,QTOT,RLL,CPP + INTEGER :: IPTB,ITHTB + INTEGER, INTENT(IN ) :: ktau,i,j,nk,tracker ! aj +!----------------------------------------------------------------------- + +!c******** LOOKUP TABLE VARIABLES... **************************** +! parameter(kfnt=250,kfnp=220) +!c +! COMMON/KFLUT/ ttab(kfnt,kfnp),qstab(kfnt,kfnp),the0k(kfnp), +! * alu(200),rdpr,rdthk,plutop +!C*************************************************************** +!c +!c*********************************************************************** +!c scaling pressure and tt table index +!c*********************************************************************** +!c + tp=(p-plutop)*rdpr + qq=tp-aint(tp) + iptb=int(tp)+1 + +! +!*********************************************************************** +! base and scaling factor for the +!*********************************************************************** +! +! scaling the and tt table index + bth=(the0k(iptb+1)-the0k(iptb))*qq+the0k(iptb) + tth=(thes-bth)*rdthk + pp =tth-aint(tth) + ithtb=int(tth)+1 + IF(IPTB.GE.220 .OR. IPTB.LE.1 .OR. ITHTB.GE.250 .OR. ITHTB.LE.1)THEN + write(98,'(a,6i5,2f9.2,i3)')'*** OUT OF BOUNDS ***', ktau,i,j,nk,IPTB, ITHTB, & + p/100.0, thes, tracker + call flush(98) + ENDIF +! + t00=ttab(ithtb ,iptb ) + t10=ttab(ithtb+1,iptb ) + t01=ttab(ithtb ,iptb+1) + t11=ttab(ithtb+1,iptb+1) +! + q00=qstab(ithtb ,iptb ) + q10=qstab(ithtb+1,iptb ) + q01=qstab(ithtb ,iptb+1) + q11=qstab(ithtb+1,iptb+1) +! +!*********************************************************************** +! parcel temperature +!*********************************************************************** +! + temp=(t00+(t10-t00)*pp+(t01-t00)*qq+(t00-t10-t01+t11)*pp*qq) +! + qs=(q00+(q10-q00)*pp+(q01-q00)*qq+(q00-q10-q01+q11)*pp*qq) +! + DQ=QS-QU + IF(DQ.LE.0.)THEN + QNEW=QU-QS + QU=QS + ELSE +! +! IF THE PARCEL IS SUBSATURATED, TEMPERATURE AND MIXING RATIO MUST BE +! ADJUSTED...IF LIQUID WATER IS PRESENT, IT IS ALLOWED TO EVAPORATE +! + QNEW=0. + QTOT=QLIQ+QICE +! +! IF THERE IS ENOUGH LIQUID OR ICE TO SATURATE THE PARCEL, TEMP STAYS AT ITS +! WET BULB VALUE, VAPOR MIXING RATIO IS AT SATURATED LEVEL, AND THE MIXING +! RATIOS OF LIQUID AND ICE ARE ADJUSTED TO MAKE UP THE ORIGINAL SATURATION +! DEFICIT... OTHERWISE, ANY AVAILABLE LIQ OR ICE VAPORIZES AND APPROPRIATE +! ADJUSTMENTS TO PARCEL TEMP; VAPOR, LIQUID, AND ICE MIXING RATIOS ARE MADE. +! +!...subsaturated values only occur in calculations involving various mixtures of +!...updraft and environmental air for estimation of entrainment and detrainment. +!...For these purposes, assume that reasonable estimates can be given using +!...liquid water saturation calculations only - i.e., ignore the effect of the +!...ice phase in this process only...will not affect conservative properties... +! + IF(QTOT.GE.DQ)THEN + qliq=qliq-dq*qliq/(qtot+1.e-10) + qice=qice-dq*qice/(qtot+1.e-10) + QU=QS + ELSE + RLL=XLV0-XLV1*TEMP + CPP=1004.5*(1.+0.89*QU) + IF(QTOT.LT.1.E-10)THEN +! +!...IF NO LIQUID WATER OR ICE IS AVAILABLE, TEMPERATURE IS GIVEN BY: + TEMP=TEMP+RLL*(DQ/(1.+DQ))/CPP + ELSE +! +!...IF SOME LIQ WATER/ICE IS AVAILABLE, BUT NOT ENOUGH TO ACHIEVE SATURATION, +! THE TEMPERATURE IS GIVEN BY: +! + TEMP=TEMP+RLL*((DQ-QTOT)/(1+DQ-QTOT))/CPP + QU=QU+QTOT + QTOT=0. + QLIQ=0. + QICE=0. + ENDIF + ENDIF + ENDIF + TU=TEMP + qnewlq=qnew + qnewic=0. +! + END SUBROUTINE TPMIX2 + +!=============================================================================== + SUBROUTINE TPMIXBG(P,THTU,TU,QU,QLIQ,QICE,QNEWLQ,QNEWIC,RATIO2,RL, & + XLV0,XLV1,XLS0,XLS1, & +! ALIQ,BLIQ,CLIQ,DLIQ,AICE,BICE,CICE,DICE, & + SVP1,SVP2,SVPT0,SVP3) +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P,THTU,RATIO2,RL, & + XLV0,XLV1,XLS0,XLS1,SVP1,SVP2,SVPT0,SVP3 + REAL, INTENT( OUT) :: QNEWLQ,QNEWIC + REAL, INTENT(INOUT) :: TU,QU,QLIQ,QICE + REAL :: C5, RV, ES, QS, PI, THTGS, ESLIQ, ESICE, F0, T1, T0, & + F1, DT, QNEW, QTOT, DQICE, DQLIQ, RLL, CP, dq + real :: f2, t2 + INTEGER :: ITCNT +!----------------------------------------------------------------------- +! +!...THIS SUBROUTINE ITERATIVELY EXTRACTS WET-BULB TEMPERATURE FROM EQUIV +! POTENTIAL TEMPERATURE, THEN CHECKS TO SEE IF SUFFICIENT MOISTURE IS +! AVAILABLE TO ACHIEVE SATURATION...IF NOT, TEMPERATURE IS ADJUSTED +! ACCORDINGLY, IF SO, THE RESIDUAL LIQUID WATER/ICE CONCENTRATION IS +! DETERMINED... +! +! Modified BJG 1/17/2014 +! + + C5=1.0723E-3 + RV=461.5 + + tu = thtu / (1.e5/p) ** 0.2854 + + +! +! ITERATE TO FIND WET BULB TEMPERATURE AS A FUNCTION OF EQUIVALENT POT +! TEMP AND PRS, ASSUMING SATURATION VAPOR PRESSURE...RATIO2 IS THE DEG +! OF GLACIATION... +! + IF(RATIO2.LT.1.E-6)THEN +! ES=ALIQ*EXP((BLIQ*TU-CLIQ)/(TU-DLIQ)) + ES=1.E3*SVP1*EXP(SVP2*(TU-SVPT0)/(TU-SVP3)) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=TU*PI*EXP((3374.6525/TU-2.5403)*QS*(1.+0.81*QS)) + ELSEIF(ABS(RATIO2-1.).LT.1.E-6)THEN +! ES=AICE*EXP((BICE*TU-CICE)/(TU-DICE)) + ES=611.0*EXP(22.514-6.15E3/TU) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=TU*PI*EXP((3114.834/TU-0.278296)*QS*(1.+0.81*QS)) + ELSE +! ESLIQ=ALIQ*EXP((BLIQ*TU-CLIQ)/(TU-DLIQ)) +! ESICE=AICE*EXP((BICE*TU-CICE)/(TU-DICE)) + ESLIQ=1.E3*SVP1*EXP(SVP2*(TU-SVPT0)/(TU-SVP3)) + ESICE=611.0*EXP(22.514-6.15E3/TU) + ES=(1.-RATIO2)*ESLIQ+RATIO2*ESICE + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=TU*PI*EXP(RL*QS*C5/TU*(1.+0.81*QS)) + ENDIF + F0=THTGS-THTU +!c T1=TU-0.5*F0 + T0=TU + t1 = t0 + f1 = f0 + t2 = 50.0 + + + + ITCNT=0 + 90 IF(RATIO2.LT.1.E-6)THEN +! ES=ALIQ*EXP((BLIQ*T1-CLIQ)/(T1-DLIQ)) + ES=1.E3*SVP1*EXP(SVP2*(t2-SVPT0)/(t2-SVP3)) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=t2*PI*EXP((3374.6525/t2-2.5403)*QS*(1.+0.81*QS)) + ELSEIF(ABS(RATIO2-1.).LT.1.E-6)THEN +! ES=AICE*EXP((BICE*T1-CICE)/(T1-DICE)) + ES=611.0*EXP(22.514-6.15E3/t2) + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=t2*PI*EXP((3114.834/t2-0.278296)*QS*(1.+0.81*QS)) + ELSE +! ESLIQ=ALIQ*EXP((BLIQ*T1-CLIQ)/(T1-DLIQ)) +! ESICE=AICE*EXP((BICE*T1-CICE)/(T1-DICE)) + ESLIQ=1.E3*SVP1*EXP(SVP2*(t2-SVPT0)/(t2-SVP3)) + ESICE=611.0*EXP(22.514-6.15E3/t2) + ES=(1.-RATIO2)*ESLIQ+RATIO2*ESICE + QS=0.622*ES/(P-ES) + PI=(1.E5/P)**(0.2854*(1.-0.28*QS)) + THTGS=t2*PI*EXP(RL*QS*C5/t2*(1.+0.81*QS)) + ENDIF + + f2=THTGS-THTU + if((f1 * f2).lt.0.0) then + f0 = f1 + t0 = t1 + else + f0 = f0 + t0 = t0 + endif + f1 = f2 + t1 = t2 + + IF(ABS(F1).LT.0.01)GOTO 50 + ITCNT=ITCNT+1 + IF(ITCNT.GT.10)GOTO 50 + DT=F1*(T1-T0)/(F1-F0) + + if(abs(dt).lt.abs( (t1-t0)/2.0 )) then + dt = (t1 - t0) / 2.0 + endif + +!c T0=T1 +!c F0=F1 + t2=T1-DT + GOTO 90 +! +! IF THE PARCEL IS SUPERSATURATED, CALCULATE CONCENTRATION OF FRESH +! CONDENSATE... +! + 50 IF(QS.LE.QU)THEN + QNEW=QU-QS + QU=QS + GOTO 96 + ENDIF +! +! IF THE PARCEL IS SUBSATURATED, TEMPERATURE AND MIXING RATIO MUST BE +! ADJUSTED...IF LIQUID WATER OR ICE IS PRESENT, IT IS ALLOWED TO EVAPO +! SUBLIMATE. +! + QNEW=0. + DQ=QS-QU + QTOT=QLIQ+QICE +! +! IF THERE IS ENOUGH LIQUID OR ICE TO SATURATE THE PARCEL, TEMP STAYS +! WET BULB VALUE, VAPOR MIXING RATIO IS AT SATURATED LEVEL, AND THE MI +! RATIOS OF LIQUID AND ICE ARE ADJUSTED TO MAKE UP THE ORIGINAL SATURA +! DEFICIT... OTHERWISE, ANY AVAILABLE LIQ OR ICE VAPORIZES AND APPROPR +! ADJUSTMENTS TO PARCEL TEMP; VAPOR, LIQUID, AND ICE MIXING RATIOS ARE +! +!...NOTE THAT THE LIQ AND ICE MAY BE PRESENT IN PROPORTIONS SLIGHTLY DIF +! THAN SUGGESTED BY THE VALUE OF RATIO2...CHECK TO MAKE SURE THAT LIQ +! ICE CONCENTRATIONS ARE NOT REDUCED TO BELOW ZERO WHEN EVAPORATION/ +! SUBLIMATION OCCURS... +! + IF(QTOT.GE.DQ)THEN + DQICE=0.0 + DQLIQ=0.0 + QLIQ=QLIQ-(1.-RATIO2)*DQ + IF(QLIQ.LT.0.)THEN + DQICE=0.0-QLIQ + QLIQ=0.0 + ENDIF + QICE=QICE-RATIO2*DQ+DQICE + IF(QICE.LT.0.)THEN + DQLIQ=0.0-QICE + QICE=0.0 + ENDIF + QLIQ=QLIQ+DQLIQ + QU=QS + GOTO 96 + ELSE + IF(RATIO2.LT.1.E-6)THEN + RLL=XLV0-XLV1*T1 + ELSEIF(ABS(RATIO2-1.).LT.1.E-6)THEN + RLL=XLS0-XLS1*T1 + ELSE + RLL=RL + ENDIF + CP=1005.7*(1.+0.89*QU) + IF(QTOT.LT.1.E-10)THEN +! +!...IF NO LIQUID WATER OR ICE IS AVAILABLE, TEMPERATURE IS GIVEN BY: + T1=T1+RLL*(DQ/(1.+DQ))/CP + GOTO 96 + ELSE +! +!...IF SOME LIQ WATER/ICE IS AVAILABLE, BUT NOT ENOUGH TO ACHIEVE SATURA +! THE TEMPERATURE IS GIVEN BY: + T1=T1+RLL*((DQ-QTOT)/(1+DQ-QTOT))/CP + QU=QU+QTOT + QTOT=0. + ENDIF + QLIQ=0 + QICE=0. + ENDIF + 96 TU=T1 + QNEWLQ=(1.-RATIO2)*QNEW + QNEWIC=RATIO2*QNEW +! IF(ITCNT.GT.10)PRINT*,'***** NUMBER OF ITERATIONS IN TPMIX =', +! + ITCNT + + END SUBROUTINE TPMIXBG + +!=============================================================================== + SUBROUTINE TPMIX2DD(p,thes,ts,qs,ktau,i,j,nk) +! +! Lookup table variables: +! INTEGER, PARAMETER :: (KFNT=250,KFNP=220) +! REAL, SAVE, DIMENSION(1:KFNT,1:KFNP) :: TTAB,QSTAB +! REAL, SAVE, DIMENSION(1:KFNP) :: THE0K +! REAL, SAVE, DIMENSION(1:200) :: ALU +! REAL, SAVE :: RDPR,RDTHK,PLUTOP +! End of Lookup table variables: +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: P,THES + REAL, INTENT(INOUT) :: TS,QS + INTEGER, INTENT(IN ) :: ktau,i,j,nk ! avail for debugging aj + REAL :: TP,QQ,BTH,TTH,PP,T00,T10,T01,T11,Q00,Q10,Q01,Q11 + INTEGER :: IPTB,ITHTB + CHARACTER*256 :: MESS +!----------------------------------------------------------------------- + +! +!******** LOOKUP TABLE VARIABLES (F77 format)... **************************** +! parameter(kfnt=250,kfnp=220) +! +! COMMON/KFLUT/ ttab(kfnt,kfnp),qstab(kfnt,kfnp),the0k(kfnp), & +! alu(200),rdpr,rdthk,plutop +!*************************************************************** +! +!*********************************************************************** +! scaling pressure and tt table index +!*********************************************************************** +! + tp=(p-plutop)*rdpr + qq=tp-aint(tp) + iptb=int(tp)+1 +! +!*********************************************************************** +! base and scaling factor for the +!*********************************************************************** +! +! scaling the and tt table index + bth=(the0k(iptb+1)-the0k(iptb))*qq+the0k(iptb) + tth=(thes-bth)*rdthk + pp =tth-aint(tth) + ithtb=int(tth)+1 + IF(IPTB.GE.220 .OR. IPTB.LE.1 .OR. ITHTB.GE.250 .OR. ITHTB.LE.1)THEN + write(97,'(a,6i5,2f9.2)')'*** OUT OF BOUNDS ***', ktau,i,j,nk,IPTB, ITHTB, p/100., thes + call flush(97) + ENDIF +! + t00=ttab(ithtb ,iptb ) + t10=ttab(ithtb+1,iptb ) + t01=ttab(ithtb ,iptb+1) + t11=ttab(ithtb+1,iptb+1) +! + q00=qstab(ithtb ,iptb ) + q10=qstab(ithtb+1,iptb ) + q01=qstab(ithtb ,iptb+1) + q11=qstab(ithtb+1,iptb+1) +! +!*********************************************************************** +! parcel temperature and saturation mixing ratio +!*********************************************************************** +! + ts=(t00+(t10-t00)*pp+(t01-t00)*qq+(t00-t10-t01+t11)*pp*qq) +! + qs=(q00+(q10-q00)*pp+(q01-q00)*qq+(q00-q10-q01+q11)*pp*qq) +! + END SUBROUTINE TPMIX2DD + +!=============================================================================== + + REAL FUNCTION GAMMA(X) +!D DOUBLE PRECISION FUNCTION DGAMMA(X) +!----------------------------------------------------------------------- + IMPLICIT NONE +!----------------------------------------------------------------------- + REAL, INTENT(IN ) :: X +! REAL, INTENT( OUT) :: GAMMA +!---------------------------------------------------------------------- +! +! THIS ROUTINE CALCULATES THE GAMMA FUNCTION FOR A REAL ARGUMENT X. +! COMPUTATION IS BASED ON AN ALGORITHM OUTLINED IN REFERENCE 1. +! THE PROGRAM USES RATIONAL FUNCTIONS THAT APPROXIMATE THE GAMMA +! FUNCTION TO AT LEAST 20 SIGNIFICANT DECIMAL DIGITS. COEFFICIENTS +! FOR THE APPROXIMATION OVER THE INTERVAL (1,2) ARE UNPUBLISHED. +! THOSE FOR THE APPROXIMATION FOR X .GE. 12 ARE FROM REFERENCE 2. +! THE ACCURACY ACHIEVED DEPENDS ON THE ARITHMETIC SYSTEM, THE +! COMPILER, THE INTRINSIC FUNCTIONS, AND PROPER SELECTION OF THE +! MACHINE-DEPENDENT CONSTANTS. +! +! +!******************************************************************* +!******************************************************************* +! +! EXPLANATION OF MACHINE-DEPENDENT CONSTANTS +! +! BETA - RADIX FOR THE FLOATING-POINT REPRESENTATION +! MAXEXP - THE SMALLEST POSITIVE POWER OF BETA THAT OVERFLOWS +! XBIG - THE LARGEST ARGUMENT FOR WHICH GAMMA(X) IS REPRESENTABLE +! IN THE MACHINE, I.E., THE SOLUTION TO THE EQUATION +! GAMMA(XBIG) = BETA**MAXEXP +! XINF - THE LARGEST MACHINE REPRESENTABLE FLOATING-POINT NUMBER; +! APPROXIMATELY BETA**MAXEXP +! EPS - THE SMALLEST POSITIVE FLOATING-POINT NUMBER SUCH THAT +! 1.0+EPS .GT. 1.0 +! XMININ - THE SMALLEST POSITIVE FLOATING-POINT NUMBER SUCH THAT +! 1/XMININ IS MACHINE REPRESENTABLE +! +! APPROXIMATE VALUES FOR SOME IMPORTANT MACHINES ARE: +! +! BETA MAXEXP XBIG +! +! CRAY-1 (S.P.) 2 8191 966.961 +! CYBER 180/855 +! UNDER NOS (S.P.) 2 1070 177.803 +! IEEE (IBM/XT, +! SUN, ETC.) (S.P.) 2 128 35.040 +! IEEE (IBM/XT, +! SUN, ETC.) (D.P.) 2 1024 171.624 +! IBM 3033 (D.P.) 16 63 57.574 +! VAX D-FORMAT (D.P.) 2 127 34.844 +! VAX G-FORMAT (D.P.) 2 1023 171.489 +! +! XINF EPS XMININ +! +! CRAY-1 (S.P.) 5.45E+2465 7.11E-15 1.84E-2466 +! CYBER 180/855 +! UNDER NOS (S.P.) 1.26E+322 3.55E-15 3.14E-294 +! IEEE (IBM/XT, +! SUN, ETC.) (S.P.) 3.40E+38 1.19E-7 1.18E-38 +! IEEE (IBM/XT, +! SUN, ETC.) (D.P.) 1.79D+308 2.22D-16 2.23D-308 +! IBM 3033 (D.P.) 7.23D+75 2.22D-16 1.39D-76 +! VAX D-FORMAT (D.P.) 1.70D+38 1.39D-17 5.88D-39 +! VAX G-FORMAT (D.P.) 8.98D+307 1.11D-16 1.12D-308 +! +!************************************************************** +!************************************************************* +! +! ERROR RETURNS +! +! THE PROGRAM RETURNS THE VALUE XINF FOR SINGULARITIES OR +! WHEN OVERFLOW WOULD OCCUR. THE COMPUTATION IS BELIEVED +! TO BE FREE OF UNDERFLOW AND OVERFLOW. +! +! +! INTRINSIC FUNCTIONS REQUIRED ARE: +! +! INT, DBLE, EXP, LOG, REAL, SIN +! +! +! REFERENCES: `AN OVERVIEW OF SOFTWARE DEVELOPMENT FOR SPECIAL +! FUNCTIONS`, W. J. CODY, LECTURE NOTES IN MATHEMATICS, +! 506, NUMERICAL ANALYSIS DUNDEE, 1975, G. A. WATSON +! (ED.), SPRINGER VERLAG, BERLIN, 1976. +! +! COMPUTER APPROXIMATIONS, HART, ET. AL., WILEY AND +! SONS, NEW YORK, 1968. +! +! LATEST MODIFICATION: OCTOBER 12, 1989 +! +! AUTHORS: W. J. CODY AND L. STOLTZ +! APPLIED MATHEMATICS DIVISION +! ARGONNE NATIONAL LABORATORY +! ARGONNE, IL 60439 +! +!------------------------------------------------------ + INTEGER I,N + LOGICAL PARITY + REAL :: & +!D DOUBLE PRECISION + C,CONV,EPS,FACT,HALF,ONE,P,PI,Q,RES,SQRTPI,SUM,TWELVE, & + TWO,XBIG,XDEN,XINF,XMININ,XNUM,Y,Y1,YSQ,Z,ZERO + DIMENSION C(7),P(8),Q(8) +!------------------------------------------------------------- +! MATHEMATICAL CONSTANTS +!----------------------------------------------------------- + DATA ONE,HALF,TWELVE,TWO,ZERO/1.0E0,0.5E0,12.0E0,2.0E0,0.0E0/, & + SQRTPI/0.9189385332046727417803297E0/, & + PI/3.1415926535897932384626434E0/ +!D DATA ONE,HALF,TWELVE,TWO,ZERO/1.0D0,0.5D0,12.0D0,2.0D0,0.0D0/, +!D 1 SQRTPI/0.9189385332046727417803297D0/, +!D 2 PI/3.1415926535897932384626434D0/ +!---------------------------------------------------------------- +! MACHINE DEPENDENT PARAMETERS +!-------------------------------------------------------------- + DATA XBIG,XMININ,EPS/35.040E0,1.18E-38,1.19E-7/, & + XINF/3.4E38/ +!D DATA XBIG,XMININ,EPS/171.624D0,2.23D-308,2.22D-16/, +!D 1 XINF/1.79D308/ +!--------------------------------------------------------- +! NUMERATOR AND DENOMINATOR COEFFICIENTS FOR RATIONAL MINIMAX +! APPROXIMATION OVER (1,2). +!----------------------------------------------------------- + DATA P/-1.71618513886549492533811E+0,2.47656508055759199108314E+1, & + -3.79804256470945635097577E+2,6.29331155312818442661052E+2, & + 8.66966202790413211295064E+2,-3.14512729688483675254357E+4, & + -3.61444134186911729807069E+4,6.64561438202405440627855E+4/ + DATA Q/-3.08402300119738975254353E+1,3.15350626979604161529144E+2, & + -1.01515636749021914166146E+3,-3.10777167157231109440444E+3, & + 2.25381184209801510330112E+4,4.75584627752788110767815E+3, & + -1.34659959864969306392456E+5,-1.15132259675553483497211E+5/ +!D DATA P/-1.71618513886549492533811D+0,2.47656508055759199108314D+1, +!D 1 -3.79804256470945635097577D+2,6.29331155312818442661052D+2, +!D 2 8.66966202790413211295064D+2,-3.14512729688483675254357D+4, +!D 3 -3.61444134186911729807069D+4,6.64561438202405440627855D+4/ +!D DATA Q/-3.08402300119738975254353D+1,3.15350626979604161529144D+2, +!D 1 -1.01515636749021914166146D+3,-3.10777167157231109440444D+3, +!D 2 2.25381184209801510330112D+4,4.75584627752788110767815D+3, +!D 3 -1.34659959864969306392456D+5,-1.15132259675553483497211D+5/ +!---------------------------------------------------------------------- +! COEFFICIENTS FOR MINIMAX APPROXIMATION OVER (12, INF). +!-------------------------------------------------------------------- + DATA C/-1.910444077728E-03,8.4171387781295E-04, & + -5.952379913043012E-04,7.93650793500350248E-04, & + -2.777777777777681622553E-03,8.333333333333333331554247E-02, & + 5.7083835261E-03/ +!D DATA C/-1.910444077728D-03,8.4171387781295D-04, +!D 1 -5.952379913043012D-04,7.93650793500350248D-04, +!D 2 -2.777777777777681622553D-03,8.333333333333333331554247D-02, +!D 3 5.7083835261D-03/ +!-------------------------------------------------------------------- +! STATEMENT FUNCTIONS FOR CONVERSION BETWEEN INTEGER AND FLOAT +!------------------------------------------------------------------ + CONV(I) = REAL(I) +!D CONV(I) = DBLE(I) + PARITY=.FALSE. + FACT=ONE + N=0 + Y=X + IF(Y.LE.ZERO)THEN +!---------------------------------------------------------- +! ARGUMENT IS NEGATIVE +!-------------------------------------------------------- + Y=-X + Y1=AINT(Y) + RES=Y-Y1 + IF(RES.NE.ZERO)THEN + IF(Y1.NE.AINT(Y1*HALF)*TWO)PARITY=.TRUE. + FACT=-PI/SIN(PI*RES) + Y=Y+ONE + ELSE + RES=XINF + GOTO 900 + ENDIF + ENDIF +!------------------------------------------- +! ARGUMENT IS POSITIVE +!----------------------------------------- + IF(Y.LT.EPS)THEN +!--------------------------------------- +! ARGUMENT .LT. EPS +!------------------------------------- + IF(Y.GE.XMININ)THEN + RES=ONE/Y + ELSE + RES=XINF + GOTO 900 + ENDIF + ELSEIF(Y.LT.TWELVE)THEN + Y1=Y + IF(Y.LT.ONE)THEN +!--------------------------- +! 0.0 .LT. ARGUMENT .LT. 1.0 +!-------------------------- + Z=Y + Y=Y+ONE + ELSE +!-------------------------- +! 1.0 .LT. ARGUMENT .LT. 12.0, REDUCE ARGUMENT IF NECESSARY +!----------------------------------------------------------- + N=INT(Y)-1 + Y=Y-CONV(N) + Z=Y-ONE + ENDIF +!------------------------------------------------------ +! EVALUATE APPROXIMATION FOR 1.0 .LT. ARGUMENT .LT. 2.0 +!----------------------------------------------------- + XNUM=ZERO + XDEN=ONE + DO 260 I=1,8 + XNUM=(XNUM+P(I))*Z + XDEN=XDEN*Z+Q(I) + 260 CONTINUE + RES=XNUM/XDEN+ONE + IF(Y1.LT.Y)THEN +!----------------------------------------------- +! ADJUST RESULT FOR CASE 0.0 .LT. ARGUMENT .LT. 1.0 +!---------------------------------------------- + RES=RES/Y1 + ELSEIF(Y1.GT.Y)THEN +!------------------------------------------------- +! ADJUST RESULT FOR CASE 2.0 .LT. ARGUMENT .LT. 12.0 +!------------------------------------------------ + DO 290 I=1,N + RES=RES*Y + Y=Y+ONE + 290 CONTINUE + ENDIF + ELSE +!---------------------------------------------- +! EVALUATE FOR ARGUMENT .GE. 12.0, +!-------------------------------------------- + IF(Y.LE.XBIG)THEN + YSQ=Y*Y + SUM=C(7) + DO 350 I=1,6 + SUM=SUM/YSQ+C(I) + 350 CONTINUE + SUM=SUM/Y-Y+SQRTPI + SUM=SUM+(Y-HALF)*LOG(Y) + RES=EXP(SUM) + ELSE + RES=XINF + GOTO 900 + ENDIF + ENDIF +!----------------------------- +! FINAL ADJUSTMENTS AND RETURN +!------------------------------ + IF(PARITY)RES=-RES + IF(FACT.NE.ONE)RES=FACT/RES + 900 GAMMA=RES +!D900 DGAMMA = RES + RETURN +! ---------- LAST LINE OF GAMMA - + END FUNCTION GAMMA +!==================================================================== + SUBROUTINE MINIM(ARRAY,KDIM,KS,KEND,KT) + DIMENSION ARRAY(KDIM) + KT=KS + X=ARRAY(KS) + + DO K=KS+1,KEND + IF(ARRAY(K).LT.X)THEN + X=ARRAY(K) + KT=K + ENDIF + ENDDO + + END SUBROUTINE MINIM +!==================================================================== + SUBROUTINE MAXIM(ARRAY,KDIM,KS,KE,MAX) + DIMENSION ARRAY(KDIM) + MAX=KS + X=ARRAY(KS) + + DO K=KS,KE + XAR=ARRAY(K) + IF(XAR.GE.X)THEN + X=XAR + MAX=K + ENDIF + ENDDO + + END SUBROUTINE MAXIM +!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC +! +! Interpolating from p surface to sigma surface + subroutine interp1d(pp,p,datain,dataout,kl,km) +! +!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC + IMPLICIT NONE +!--------------------------------- + INTEGER, INTENT(IN ) :: kl, km + REAL, dimension(km), INTENT(IN ) :: p, datain + REAL, dimension(kl), INTENT(IN ) :: pp + REAL, dimension(kl), INTENT( OUT) :: dataout + + INTEGER :: i, j, k1, k2, kmin + REAL :: pmin, pdif, pmindif + + DO i = 1, kl + pmin=2000. + DO j = 1, km + pdif = pp(i) - p(j) + if( abs( pdif ) .le. pmin ) then + pmin = abs( pdif ) + pmindif = pdif + kmin = j + endif + ENDDO + + if( pmindif .le. 0.0 ) then + k1 = kmin - 1 + k2 = kmin + else + k1 = kmin + k2 = kmin + 1 + endif + + dataout(i) = (datain(k2)-datain(k1))/LOG(p(k2)/p(k1)) & + *LOG(pp(i)/p(k1))+datain(k1) + + ENDDO + + end subroutine interp1d +!==================================================================== + + + subroutine kf_lutab(SVP1,SVP2,SVP3,SVPT0) +! +! This subroutine is a lookup table. +! Given a series of series of saturation equivalent potential +! temperatures, the temperature is calculated. +! +!-------------------------------------------------------------------- + IMPLICIT NONE +!-------------------------------------------------------------------- +! Lookup table variables +! INTEGER, SAVE, PARAMETER :: KFNT=250,KFNP=220 +! REAL, SAVE, DIMENSION(1:KFNT,1:KFNP) :: TTAB,QSTAB +! REAL, SAVE, DIMENSION(1:KFNP) :: THE0K +! REAL, SAVE, DIMENSION(1:200) :: ALU +! REAL, SAVE :: RDPR,RDTHK,PLUTOP +! End of Lookup table variables + + INTEGER :: KP,IT,ITCNT,I + REAL :: DTH,TMIN,TOLER,PBOT,DPR, & + TEMP,P,ES,QS,PI,THES,TGUES,THGUES,F0,T1,T0,THGS,F1,DT, & + ASTRT,AINC,A1,THTGS +! REAL :: ALIQ,BLIQ,CLIQ,DLIQ,SVP1,SVP2,SVP3,SVPT0 + REAL :: ALIQ,BLIQ,CLIQ,DLIQ + REAL, INTENT(IN) :: SVP1,SVP2,SVP3,SVPT0 +! +! equivalent potential temperature increment + data dth/1./ +! minimum starting temp + data tmin/150./ +! tolerance for accuracy of temperature + data toler/0.001/ +! top pressure (pascals) + plutop=5000.0 +! bottom pressure (pascals) + pbot=110000.0 + + ALIQ = SVP1*1000. + BLIQ = SVP2 + CLIQ = SVP2*SVPT0 + DLIQ = SVP3 + +! +! compute parameters +! +! 1._over_(sat. equiv. theta increment) + rdthk=1./dth +! pressure increment +! + DPR=(PBOT-PLUTOP)/REAL(KFNP-1) +! dpr=(pbot-plutop)/REAL(kfnp-1) +! 1._over_(pressure increment) + rdpr=1./dpr +! compute the spread of thes +! thespd=dth*(kfnt-1) +! +! calculate the starting sat. equiv. theta +! + temp=tmin + p=plutop-dpr + do kp=1,kfnp + p=p+dpr + es=aliq*exp((bliq*temp-cliq)/(temp-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + the0k(kp)=temp*pi*exp((3374.6525/temp-2.5403)*qs* & + (1.+0.81*qs)) + enddo +! +! compute temperatures for each sat. equiv. potential temp. +! + p=plutop-dpr + do kp=1,kfnp + thes=the0k(kp)-dth + p=p+dpr + do it=1,kfnt +! define sat. equiv. pot. temp. + thes=thes+dth +! iterate to find temperature +! find initial guess + if(it.eq.1) then + tgues=tmin + else + tgues=ttab(it-1,kp) + endif + es=aliq*exp((bliq*tgues-cliq)/(tgues-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + thgues=tgues*pi*exp((3374.6525/tgues-2.5403)*qs* & + (1.+0.81*qs)) + f0=thgues-thes + t1=tgues-0.5*f0 + t0=tgues + itcnt=0 +! iteration loop + do itcnt=1,11 + es=aliq*exp((bliq*t1-cliq)/(t1-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + thtgs=t1*pi*exp((3374.6525/t1-2.5403)*qs*(1.+0.81*qs)) + f1=thtgs-thes + if(abs(f1).lt.toler)then + exit + endif +! itcnt=itcnt+1 + dt=f1*(t1-t0)/(f1-f0) + t0=t1 + f0=f1 + t1=t1-dt + enddo + ttab(it,kp)=t1 + qstab(it,kp)=qs + enddo + enddo +! +! lookup table for tlog(emix/aliq) +! +! set up intial values for lookup tables +! + astrt=1.e-3 + ainc=0.075 +! + a1=astrt-ainc + do i=1,200 + a1=a1+ainc + alu(i)=alog(a1) + enddo +! + END SUBROUTINE KF_LUTAB + +!==================================================================== + subroutine kf_lutabbg(SVP1,SVP2,SVP3,SVPT0) +! +! This subroutine is a lookup table. +! Given a series of series of saturation equivalent potential +! temperatures, the temperature is calculated. +! +!-------------------------------------------------------------------- + IMPLICIT NONE +!-------------------------------------------------------------------- +! Lookup table variables +! INTEGER, SAVE, PARAMETER :: KFNT=250,KFNP=220 +! REAL, SAVE, DIMENSION(1:KFNT,1:KFNP) :: TTAB,QSTAB +! REAL, SAVE, DIMENSION(1:KFNP) :: THE0K +! REAL, SAVE, DIMENSION(1:200) :: ALU +! REAL, SAVE :: RDPR,RDTHK,PLUTOP +! End of Lookup table variables + + INTEGER :: KP,IT,ITCNT,I + REAL :: DTH,TMIN,TOLER,PBOT,DPR, & + TEMP,P,ES,QS,PI,THES,TGUES,THGUES,F0,T1,T0,THGS,F1,DT, & + ASTRT,AINC,A1,THTGS + real :: t2, f2 +! REAL :: ALIQ,BLIQ,CLIQ,DLIQ,SVP1,SVP2,SVP3,SVPT0 + REAL :: ALIQ,BLIQ,CLIQ,DLIQ + REAL, INTENT(IN) :: SVP1,SVP2,SVP3,SVPT0 +! +! equivalent potential temperature increment + data dth/1./ +! minimum starting temp + data tmin/150./ +! tolerance for accuracy of temperature + data toler/0.001/ +! top pressure (pascals) + plutop=5000.0 +! bottom pressure (pascals) + pbot=110000.0 + + ALIQ = SVP1*1000. + BLIQ = SVP2 + CLIQ = SVP2*SVPT0 + DLIQ = SVP3 + +! +! compute parameters +! +! 1._over_(sat. equiv. theta increment) + rdthk=1./dth +! pressure increment +! + DPR=(PBOT-PLUTOP)/REAL(KFNP-1) +! dpr=(pbot-plutop)/REAL(kfnp-1) +! 1._over_(pressure increment) + rdpr=1./dpr +! compute the spread of thes +! thespd=dth*(kfnt-1) +! +! calculate the starting sat. equiv. theta +! + temp=tmin + p=plutop-dpr + do kp=1,kfnp + p=p+dpr + es=aliq*exp((bliq*temp-cliq)/(temp-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + the0k(kp)=temp*pi*exp((3374.6525/temp-2.5403)*qs* & + (1.+0.81*qs)) + enddo +! +! compute temperatures for each sat. equiv. potential temp. +! + p=plutop-dpr + do kp=1,kfnp + thes=the0k(kp)-dth + p=p+dpr + do it=1,kfnt +! define sat. equiv. pot. temp. + thes=thes+dth +! iterate to find temperature +! find initial guess + if(it.eq.1) then + tgues=tmin + else + tgues=ttab(it-1,kp) + endif + es=aliq*exp((bliq*tgues-cliq)/(tgues-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + thgues=tgues*pi*exp((3374.6525/tgues-2.5403)*qs* & + (1.+0.81*qs)) + f0=thgues-thes +! t1=tgues-0.5*f0 + t2=tgues-0.5*f0 + t0=tgues + t1 = t0 + f1 = f0 + + + itcnt=0 +! iteration loop + do itcnt=1,11 +! es=aliq*exp((bliq*t1-cliq)/(t1-dliq)) + es=aliq*exp((bliq*t2-cliq)/(t2-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) +! thtgs=t1*pi*exp((3374.6525/t1-2.5403)*qs*(1.+0.81*qs)) + thtgs=t2*pi*exp((3374.6525/t2-2.5403)*qs*(1.+0.81*qs)) + +! f1=thtgs-thes + f2=thtgs-thes + + if((f1 * f2).lt.0.0) then + f0 = f1 + t0 = t1 + else + f0 = f0 + t0 = t0 + endif + f1 = f2 + t1 = t2 + + + if(abs(f1).lt.toler)then + exit + endif +! itcnt=itcnt+1 + dt=f1*(t1-t0)/(f1-f0) + + if(abs(dt).lt.abs( (t1-t0)/2.0 )) then + dt = (t1 - t0) / 2.0 + endif + +! t0=t1 +! f0=f1 +! t1=t1-dt + t2=t1-dt + enddo + ttab(it,kp)=t1 + qstab(it,kp)=qs + enddo + enddo +! +! lookup table for tlog(emix/aliq) +! +! set up intial values for lookup tables +! + astrt=1.e-3 + ainc=0.075 +! + a1=astrt-ainc + do i=1,200 + a1=a1+ainc + alu(i)=alog(a1) + enddo +! + END SUBROUTINE KF_LUTABBG +!==================================================================== + +END MODULE module_shcu_deng diff --git a/phys/module_surface_driver.F b/phys/module_surface_driver.F index d4421f62ba..9481299df3 100644 --- a/phys/module_surface_driver.F +++ b/phys/module_surface_driver.F @@ -53,6 +53,8 @@ SUBROUTINE surface_driver( & & ,landusef,soilctop,soilcbot,ra,rs,nlcat,nscat,vegf_px & ! PX-LSM & ,snowncv, anal_interval, lai, imperv, canfra & ! PX-LSM & ,pxlsm_smois_init, pxlsm_soil_nudge & ! PX-LSM + & ,pxlsm_modis_veg, lai_px, wwlt_px, wfc_px & ! PX-LSM + & ,wsat_px, clay_px, csand_px, fmsand_px & ! PX-LSM & ,idveg ,iopt_crs ,iopt_btr ,iopt_run ,iopt_sfc ,iopt_frz & & ,iopt_inf ,iopt_rad ,iopt_alb ,iopt_snf ,iopt_tbot ,iopt_stc & & ,iopt_gla ,iopt_rsf ,iopt_soil ,iopt_pedo ,iopt_crop & @@ -240,7 +242,16 @@ SUBROUTINE surface_driver( & & ,bldt,curr_secs,adapt_step_flag,bldtacttime & ! Optional urban with BEP & ,sf_urban_physics,gmt,xlat,xlong,julday & - & ,num_urban_layers & !multi-layer urban + & ,num_urban_ndm & !multi-layer urban + & ,urban_map_zrd & !multi-layer urban + & ,urban_map_zwd & !multi-layer urban + & ,urban_map_gd & !multi-layer urban + & ,urban_map_zd & !multi-layer urban + & ,urban_map_zdf & !multi-layer urban + & ,urban_map_bd & !multi-layer urban + & ,urban_map_wd & !multi-layer urban + & ,urban_map_gbd & !multi-layer urban + & ,urban_map_fbd & !multi-layer urban & ,num_urban_hi & !multi-layer urban & ,tsk_rural & !multi-layer urban & ,trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d & !multi-layer urban @@ -524,6 +535,14 @@ SUBROUTINE surface_driver( & !-- CANFRA Canopy/Tree fraction ! P-X LSM !-- NLCAT Number of landuse categories ! P-X LSM !-- NSCAT Number of soil categories ! P-X LSM +!-- pxlsm_modis_veg Flag for using MODIS vegeation LAI and vegF (1 is yes) ! P-X LSM +!-- LAI_PX Computed LAI for PX (m^2/m^2) ! P-X LSM +!-- WWLT_PX Computed soil wilting point for PX (m^3/m^3) ! P-X LSM +!-- WFC_PX Computed soil field capacity for PX (m^3/m^3) ! P-X LSM +!-- WSAT_PX Computed soil saturation for PX (m^3/m^3) ! P-X LSM +!-- CLAY_PX Aggregated soil clay fraction for PX (%) ! P-X LSM +!-- CSAND_PX Aggregated soil coarse sand fraction for PX (%) ! P-X LSM +!-- FMSAND_PX Aggregated soil fine-medium sand fraction for PX (%) ! P-X LSM !-- ch - drag coefficient for heat/moisture ! MYNN LSM ! @@ -891,30 +910,39 @@ SUBROUTINE surface_driver( & REAL, OPTIONAL, INTENT(IN ) :: GMT INTEGER, OPTIONAL, INTENT(IN ) :: JULDAY REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN ) ::XLAT, XLONG - INTEGER, INTENT(IN ):: NUM_URBAN_LAYERS + INTEGER , INTENT(IN) :: num_urban_ndm + INTEGER , INTENT(IN) :: urban_map_zrd + INTEGER , INTENT(IN) :: urban_map_zwd + INTEGER , INTENT(IN) :: urban_map_gd + INTEGER , INTENT(IN) :: urban_map_zd + INTEGER , INTENT(IN) :: urban_map_zdf + INTEGER , INTENT(IN) :: urban_map_bd + INTEGER , INTENT(IN) :: urban_map_wd + INTEGER , INTENT(IN) :: urban_map_gbd + INTEGER , INTENT(IN) :: urban_map_fbd INTEGER, INTENT(IN ):: NUM_URBAN_HI REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: tsk_rural - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: trb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tgb_urb4d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: qlev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw1lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tw2lev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tglev_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: tflev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zrd, jms:jme ), INTENT(INOUT) :: trb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw1_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zwd, jms:jme ), INTENT(INOUT) :: tw2_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gd, jms:jme ), INTENT(INOUT) :: tgb_urb4d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd, jms:jme ), INTENT(INOUT) :: tlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_bd, jms:jme ), INTENT(INOUT) :: qlev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd, jms:jme ), INTENT(INOUT) :: tw1lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd, jms:jme ), INTENT(INOUT) :: tw2lev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_gbd, jms:jme ), INTENT(INOUT) :: tglev_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_fbd, jms:jme ), INTENT(INOUT) :: tflev_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sf_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: cm_ac_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: sfvent_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: lfvent_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfwin2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw1_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfw2_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfr_urb3d - REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_layers, jms:jme ), INTENT(INOUT) :: sfg_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd, jms:jme ), INTENT(INOUT) :: sfwin1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_wd, jms:jme ), INTENT(INOUT) :: sfwin2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd, jms:jme ), INTENT(INOUT) :: sfw1_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zd, jms:jme ), INTENT(INOUT) :: sfw2_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:urban_map_zdf, jms:jme ), INTENT(INOUT) :: sfr_urb3d + REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_ndm, jms:jme ), INTENT(INOUT) :: sfg_urb3d REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_urban_hi, jms:jme ), INTENT(IN) :: hi_urb2d !urban REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: lp_urb2d !urban REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: lb_urb2d !urban @@ -981,7 +1009,9 @@ SUBROUTINE surface_driver( & ! ! PX LSM Surface Grid Analysis nudging ! - INTEGER, OPTIONAL, INTENT(IN) :: pxlsm_smois_init, pxlsm_soil_nudge, ANAL_INTERVAL + INTEGER, OPTIONAL, INTENT(IN) :: pxlsm_smois_init, pxlsm_soil_nudge, & + ANAL_INTERVAL, pxlsm_modis_veg + REAL, DIMENSION( ims:ime, NLCAT, jms:jme ) , OPTIONAL, INTENT(INOUT):: LANDUSEF REAL, DIMENSION( ims:ime, NSCAT, jms:jme ) , OPTIONAL, INTENT(INOUT):: SOILCTOP, SOILCBOT REAL, DIMENSION( ims:ime , jms:jme ), OPTIONAL, INTENT(INOUT):: IMPERV, CANFRA @@ -989,16 +1019,14 @@ SUBROUTINE surface_driver( & REAL, DIMENSION( ims:ime, jms:jme ) , OPTIONAL, INTENT(INOUT):: RA REAL, DIMENSION( ims:ime, jms:jme ) , OPTIONAL, INTENT(INOUT):: RS REAL, DIMENSION( ims:ime, jms:jme ) , OPTIONAL, INTENT(INOUT):: LAI - REAL, DIMENSION( ims:ime, jms:jme ), OPTIONAL, INTENT(OUT):: T2OBS - REAL, DIMENSION( ims:ime, jms:jme ), OPTIONAL, INTENT(OUT):: Q2OBS - - REAL, DIMENSION( ims:ime, jms:jme ), & - OPTIONAL, INTENT(INOUT) :: t2_ndg_old, & - q2_ndg_old, & - t2_ndg_new, & - q2_ndg_new, & - sn_ndg_old, & - sn_ndg_new + REAL, DIMENSION( ims:ime, jms:jme ), OPTIONAL, INTENT(OUT):: T2OBS, Q2OBS, LAI_PX + REAL, DIMENSION( ims:ime, jms:jme ), OPTIONAL, INTENT(OUT):: WWLT_PX, WFC_PX, WSAT_PX, & + CLAY_PX, CSAND_PX, FMSAND_PX + + REAL, DIMENSION( ims:ime, jms:jme ), & + OPTIONAL, INTENT(INOUT) :: t2_ndg_old, t2_ndg_new, q2_ndg_old, & + q2_ndg_new, sn_ndg_old, sn_ndg_new + ! ! ! Flags relating to the optional tendency arrays declared above @@ -2619,7 +2647,16 @@ SUBROUTINE surface_driver( & DRELR_URB2D,DRELB_URB2D,DRELG_URB2D, & !H urban FLXHUMR_URB2D,FLXHUMB_URB2D,FLXHUMG_URB2D, & !H urban FRC_URB2D, UTYPE_URB2D, & !I urban - num_urban_layers, & !I multi-layer urban + num_urban_ndm, & !I multi-layer urban + urban_map_zrd, & !I multi-layer urban + urban_map_zwd, & !I multi-layer urban + urban_map_gd, & !I multi-layer urban + urban_map_zd, & !I multi-layer urban + urban_map_zdf, & !I multi-layer urban + urban_map_bd, & !I multi-layer urban + urban_map_wd, & !I multi-layer urban + urban_map_gbd, & !I multi-layer urban + urban_map_fbd, & !I multi-layer urban num_urban_hi, & !I multi-layer urban tsk_rural, & !H multi-layer urban trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & !H multi-layer urban @@ -2724,7 +2761,16 @@ SUBROUTINE surface_driver( & FLXHUMR_URB2D,FLXHUMB_URB2D,FLXHUMG_URB2D, & !H urban julian, julyr, & !H urban FRC_URB2D, UTYPE_URB2D, & !I urban - num_urban_layers, & !I multi-layer urban + num_urban_ndm, & !I multi-layer urban + urban_map_zrd, & !I multi-layer urban + urban_map_zwd, & !I multi-layer urban + urban_map_gd, & !I multi-layer urban + urban_map_zd, & !I multi-layer urban + urban_map_zdf, & !I multi-layer urban + urban_map_bd, & !I multi-layer urban + urban_map_wd, & !I multi-layer urban + urban_map_gbd, & !I multi-layer urban + urban_map_fbd, & !I multi-layer urban num_urban_hi, & !I multi-layer urban tsk_rural, & !H multi-layer urban trb_urb4d,tw1_urb4d,tw2_urb4d,tgb_urb4d, & !H multi-layer urban @@ -3034,7 +3080,9 @@ SUBROUTINE surface_driver( & julian, julyr, & !H urban frc_urb2d, utype_urb2d, & !I urban chs, chs2, cqs2, & !H - num_urban_layers, & !I multi-layer urban + num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & !I multi-layer urban + urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & !I multi-layer urban + urban_map_gbd, urban_map_fbd, & !I multi-layer urban num_urban_hi, & !I multi-layer urban trb_urb4d, tw1_urb4d, tw2_urb4d, tgb_urb4d, & !H multi-layer urban tlev_urb3d, qlev_urb3d, & !H multi-layer urban @@ -3448,6 +3496,8 @@ SUBROUTINE surface_driver( & t2_ndg_old,t2_ndg_new,q2_ndg_old,q2_ndg_new, & sn_ndg_old, sn_ndg_new, snow, snowh,snowncv, & t2obs, q2obs,pxlsm_smois_init,pxlsm_soil_nudge, & + pxlsm_modis_veg, LAI_PX, WWLT_PX, WFC_PX, & + WSAT_PX, CLAY_PX, CSAND_PX, FMSAND_PX, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & i_start(ij),i_end(ij), j_start(ij),j_end(ij), kts,kte) diff --git a/run/BROADBAND_CLOUD_GODDARD.bin b/run/BROADBAND_CLOUD_GODDARD.bin new file mode 100644 index 0000000000..76f383e1ea Binary files /dev/null and b/run/BROADBAND_CLOUD_GODDARD.bin differ diff --git a/run/MPTABLE.TBL b/run/MPTABLE.TBL index e32814218e..be26e9b248 100644 --- a/run/MPTABLE.TBL +++ b/run/MPTABLE.TBL @@ -329,7 +329,19 @@ SSI = 0.03 !liquid water holding capacity for snowpack (m3/m3) (0.03) SWEMX = 1.00 !new snow mass to fully cover old snow (mm) !equivalent to 10mm depth (density = 100 kg/m3) + TAU0 = 1.e6 !tau0 from Yang97 eqn. 10a + GRAIN_GROWTH = 5000. !growth from vapor diffusion Yang97 eqn. 10b + EXTRA_GROWTH = 10. !extra growth near freezing Yang97 eqn. 10c + DIRT_SOOT = 0.3 !dirt and soot term Yang97 eqn. 10d + BATS_COSZ = 2.0 !zenith angle snow albedo adjustment; b in Yang97 eqn. 15 + BATS_VIS_NEW = 0.95 !new snow visible albedo + BATS_NIR_NEW = 0.65 !new snow NIR albedo + BATS_VIS_AGE = 0.2 !age factor for diffuse visible snow albedo Yang97 eqn. 17 + BATS_NIR_AGE = 0.5 !age factor for diffuse NIR snow albedo Yang97 eqn. 18 + BATS_VIS_DIR = 0.4 !cosz factor for direct visible snow albedo Yang97 eqn. 15 + BATS_NIR_DIR = 0.4 !cosz factor for direct NIR snow albedo Yang97 eqn. 16 RSURF_SNOW = 50.0 !surface resistence for snow [s/m] + RSURF_EXP = 5.0 !exponent in the shape parameter for soil resistance option 1 / diff --git a/run/README.namelist b/run/README.namelist index c633d2ecde..6506da6f03 100644 --- a/run/README.namelist +++ b/run/README.namelist @@ -10,28 +10,28 @@ information on NMM specific settings (http://www.dtcenter.org/wrf-nmm/users) be defined for the nests when max_dom > 1. &time_control - run_days = 0, ; run time in days - run_hours = 0, ; run time in hours + run_days = 0, ! run time in days + run_hours = 0, ! run time in hours Note: if it is more than 1 day, one may use both run_days and run_hours or just run_hours. e.g. if the total run length is 36 hrs, you may set run_days = 1, and run_hours = 12, or run_days = 0, and run_hours = 36 - run_minutes = 0, ; run time in minutes - run_seconds = 0, ; run time in seconds - start_year (max_dom) = 2001, ; four digit year of starting time - start_month (max_dom) = 06, ; two digit month of starting time - start_day (max_dom) = 11, ; two digit day of starting time - start_hour (max_dom) = 12, ; two digit hour of starting time - start_minute (max_dom) = 00, ; two digit minute of starting time - start_second (max_dom) = 00, ; two digit second of starting time + run_minutes = 0, ! run time in minutes + run_seconds = 0, ! run time in seconds + start_year (max_dom) = 2001, ! four digit year of starting time + start_month (max_dom) = 06, ! two digit month of starting time + start_day (max_dom) = 11, ! two digit day of starting time + start_hour (max_dom) = 12, ! two digit hour of starting time + start_minute (max_dom) = 00, ! two digit minute of starting time + start_second (max_dom) = 00, ! two digit second of starting time Note: the start time is used to name the first wrfout file. It also controls the start time for nest domains, and the time to restart - tstart (max_dom) = 00, ; FOR NMM: starting hour of the forecast - end_year (max_dom) = 2001, ; four digit year of ending time - end_month (max_dom) = 06, ; two digit month of ending time - end_day (max_dom) = 12, ; two digit day of ending time - end_hour (max_dom) = 12, ; two digit hour of ending time - end_minute (max_dom) = 00, ; two digit minute of ending time - end_second (max_dom) = 00, ; two digit second of ending time + tstart (max_dom) = 00, ! FOR NMM: starting hour of the forecast + end_year (max_dom) = 2001, ! four digit year of ending time + end_month (max_dom) = 06, ! two digit month of ending time + end_day (max_dom) = 12, ! two digit day of ending time + end_hour (max_dom) = 12, ! two digit hour of ending time + end_minute (max_dom) = 00, ! two digit minute of ending time + end_second (max_dom) = 00, ! two digit second of ending time It also controls when the nest domain integrations end All start and end times are used by real.exe. @@ -41,106 +41,106 @@ information on NMM specific settings (http://www.dtcenter.org/wrf-nmm/users) takes precedence over the end times. Program real.exe uses start and end times only. - interval_seconds = 10800, ; time interval between incoming real data, which will be the interval + interval_seconds = 10800, ! time interval between incoming real data, which will be the interval between the lateral boundary condition file (in seconds) - input_from_file (max_dom) = T, ; whether nested run will have input files for domains other than 1 - fine_input_stream (max_dom) = 0, ; field selection from nest input for its initialization - 0: all fields are used; 2: only static and time-varying, masked land + input_from_file (max_dom) = T, ! whether nested run will have input files for domains other than 1 + fine_input_stream (max_dom) = 0, ! field selection from nest input for its initialization + 0: all fields are used! 2: only static and time-varying, masked land surface fields are used. In V3.2, this requires the use of io_form_auxinput2 - history_interval (max_dom) = 60, ; history output file interval in minutes - frames_per_outfile (max_dom) = 1, ; number of output times per history output file, + history_interval (max_dom) = 60, ! history output file interval in minutes + frames_per_outfile (max_dom) = 1, ! number of output times per history output file, used to split output into multiple files into smaller pieces - restart = F, ; whether this run is a restart run - cycling = F, ; whether this run is a cycling run, if so, initializes look-up table for Thompson schemes only - restart_interval = 1440, ; restart output file interval in minutes - reset_simulation_start = F, ; whether to overwrite simulation_start_date with forecast start time - io_form_history = 2, ; 2 = netCDF - io_form_restart = 2, ; 2 = netCDF - io_form_input = 2, ; 2 = netCDF - io_form_boundary = 2, ; netCDF format - = 4, ; PHD5 format - = 5, ; GRIB1 format - = 10, ; GRIB2 format - = 11, ; pnetCDF format - ncd_nofill = .true., ; only a single write, not the write/read/write sequence, new in 3.6 - frames_per_emissfile = 12, ; number of times in each chemistry emission file. - io_style_emiss = 1, ; style to use for the chemistry emission files. - ; 0 = Do not read emissions from files. - ; 1 = Cycle between two 12 hour files (set frames_per_emissfile=12) - ; 2 = Dated files with length set by frames_per_emissfile - debug_level = 0, ; 50,100,200,300 values give increasing prints - diag_print = 0, ; print out time series of model diagnostics - ; 0 = no print - ; 1 = domain averaged 3-hourly hydrostatic surface pressure tendency + restart = F, ! whether this run is a restart run + cycling = F, ! whether this run is a cycling run, if so, initializes look-up table for Thompson schemes only + restart_interval = 1440, ! restart output file interval in minutes + reset_simulation_start = F, ! whether to overwrite simulation_start_date with forecast start time + io_form_history = 2, ! 2 = netCDF + io_form_restart = 2, ! 2 = netCDF + io_form_input = 2, ! 2 = netCDF + io_form_boundary = 2, ! netCDF format + = 4, ! PHD5 format + = 5, ! GRIB1 format + = 10, ! GRIB2 format + = 11, ! pnetCDF format + ncd_nofill = .true., ! only a single write, not the write/read/write sequence, new in 3.6 + frames_per_emissfile = 12, ! number of times in each chemistry emission file. + io_style_emiss = 1, ! style to use for the chemistry emission files. + ! 0 = Do not read emissions from files. + ! 1 = Cycle between two 12 hour files (set frames_per_emissfile=12) + ! 2 = Dated files with length set by frames_per_emissfile + debug_level = 0, ! 50,100,200,300 values give increasing prints + diag_print = 0, ! print out time series of model diagnostics + 0 = no print + 1 = domain averaged 3-hourly hydrostatic surface pressure tendency (Dpsfc/Dt), and dry-hydrostatic column pressure tendency (Dmu/Dt) will appear in stdout file - ; 2 = in addition to those above, domain averaged rainfall, - surface evaporation, and sensible and latent heat fluxes will be output - all_ic_times = .false., ; whether to write out wrfinput for all processing times - adjust_output_times = .false., ; adjust output times to the nearest hour - override_restart_timers = .false., ; whether to change the alarms from what is previously set - write_hist_at_0h_rst = .false., ; whether to output history file at the start of restart run - output_ready_flag = .true., ; asks the model to write-out an empty file with the name 'wrfoutReady_d_. + 2 = in addition to those above, domain averaged rainfall, + surface evaporation, and sensible and latent heat fluxes will be output + all_ic_times = .false., ! whether to write out wrfinput for all processing times + adjust_output_times = .false., ! adjust output times to the nearest hour + override_restart_timers = .false., ! whether to change the alarms from what is previously set + write_hist_at_0h_rst = .false., ! whether to output history file at the start of restart run + output_ready_flag = .true., ! asks the model to write-out an empty file with the name 'wrfoutReady_d_. Useful in production runs so that post-processing code can check on the completeness of this file - force_use_old_data = .false., ; if set to .true., allow WRF Version 3 input data + force_use_old_data = .false., ! if set to .true., allow WRF Version 3 input data =.false., stop when WRF model detects Version 3 input data To choose between SI and WPS input to real for EM core: - auxinput1_inname = "met_em.d." ; Input to real from WPS (default since 3.0) - = "wrf_real_input_em.d." ; Input to real from SI + auxinput1_inname = "met_em.d." ! Input to real from WPS (default since 3.0) + = "wrf_real_input_em.d." ! Input to real from SI To choose between SI and WPS input to real for NMM core: - auxinput1_inname = "met_nm.d." ; Input to real from WPS - = "wrf_real_input_nm.d." ; Input to real from SI + auxinput1_inname = "met_nm.d." ! Input to real from WPS + = "wrf_real_input_nm.d." ! Input to real from SI Other output options: - auxhist2_outname = "rainfall" ; file name for extra output; if not specified, - auxhist2_d_ will be used - also note that to write variables in output other - than the history file requires Registry.EM file change - auxhist2_interval (max_dom) = 10, ; interval in minutes - io_form_auxhist2 = 2, ; output in netCDF - frames_per_auxhist2 = 1000, ; number of output times in this file + auxhist2_outname = "rainfall" ! file name for extra output! if not specified, + auxhist2_d_ will be used + also note that to write variables in output other + than the history file requires Registry.EM file change + auxhist2_interval (max_dom) = 10, ! interval in minutes + io_form_auxhist2 = 2, ! output in netCDF + frames_per_auxhist2 = 1000, ! number of output times in this file For SST updating (used only with sst_update=1): auxinput4_inname = "wrflowinp_d" - auxinput4_interval = 360 ; minutes generally matches time given by interval_seconds - io_form_auxinput4 = 2 ; IO format, required in V3.2 + auxinput4_interval = 360 ! minutes generally matches time given by interval_seconds + io_form_auxinput4 = 2 ! IO format, required in V3.2 - nwp_diagnostics = 0 ; set to = 1 to add 7 history-interval max diagnostic fields + nwp_diagnostics = 0 ! set to = 1 to add 7 history-interval max diagnostic fields For additional regional climate surface fields - output_diagnostics = 0 ; set to = 1 to add 36 surface diagnostic arrays (max/min/mean/std) - auxhist3_outname = 'wrfxtrm_d_' ; file name for added diagnostics - io_form_auxhist3 = 2 ; netcdf - auxhist3_interval = 1440 ; minutes between outputs (1440 gives daily max/min) - frames_per_auxhist3 = 1 ; output times per file + output_diagnostics = 0 ! set to = 1 to add 36 surface diagnostic arrays (max/min/mean/std) + auxhist3_outname = 'wrfxtrm_d_' ! file name for added diagnostics + io_form_auxhist3 = 2 ! netcdf + auxhist3_interval = 1440 ! minutes between outputs (1440 gives daily max/min) + frames_per_auxhist3 = 1 ! output times per file Note: do restart only at multiple of auxhist3_intervals For observation nudging: - auxinput11_interval = 10 ; interval in minutes for observation data. It should be + auxinput11_interval = 10 ! interval in minutes for observation data. It should be set as or more frequently as obs_ionf (with unit of coarse domain time step). - auxinput11_end_h = 6 ; end of observation time in hours. + auxinput11_end_h = 6 ! end of observation time in hours. Options for run-time IO: iofields_filename (max_dom) = "my_iofields_list.txt", (example: +:h:21:rainc, rainnc, rthcuten) - ignore_iofields_warning = .true., ; what to do when encountering an error in the user-specified files - .false., : abort when encountering an error in iofields_filename file + ignore_iofields_warning = .true., ! what to do when encountering an error in the user-specified files + .false., ! abort when encountering an error in iofields_filename file Additional settings when running WRFVAR: - write_input = t, ; write input-formatted data as output - inputout_interval (max_dom) = 180, ; interval in minutes when writing input-formatted data - input_outname = 'wrfinput_d_' ; you may change the output file name + write_input = t, ! write input-formatted data as output + inputout_interval (max_dom) = 180, ! interval in minutes when writing input-formatted data + input_outname = 'wrfinput_d_' ! you may change the output file name inputout_begin_y (max_dom) = 0 inputout_begin_mo = 0 inputout_begin_d (max_dom) = 0 @@ -152,7 +152,7 @@ Additional settings when running WRFVAR: inputout_end_d (max_dom) = 0 inputout_end_h (max_dom) = 12 inputout_end_m (max_dom) = 0 - inputout_end_s (max_dom) = 0 ; the above shows that the input-formatted data are output + inputout_end_s (max_dom) = 0 ! the above shows that the input-formatted data are output starting from hour 3 to hour 12 in 180 min interval. For automatic moving nests: requires special input data, and environment variable TERRAIN_AND_LANDUSE set at compile time @@ -161,117 +161,117 @@ For automatic moving nests: requires special input data, and environment variabl rsmas_data_path = "path-to-terrain-and-landuse-dataset" &domains - time_step = 60, ; time step for integration in integer seconds + time_step = 60, ! time step for integration in integer seconds recommend 6*dx (in km) for typical real-data cases - time_step_fract_num = 0, ; numerator for fractional time step - time_step_fract_den = 1, ; denominator for fractional time step + time_step_fract_num = 0, ! numerator for fractional time step + time_step_fract_den = 1, ! denominator for fractional time step Example, if you want to use 60.3 sec as your time step, set time_step = 60, time_step_fract_num = 3, and time_step_fract_den = 10 - time_step_dfi = 60, ; time step for DFI, may be different from regular time_step - max_dom = 1, ; number of domains - set it to > 1 if it is a nested run - s_we (max_dom) = 1, ; start index in x (west-east) direction (leave as is) - e_we (max_dom) = 91, ; end index in x (west-east) direction (staggered dimension) - s_sn (max_dom) = 1, ; start index in y (south-north) direction (leave as is) - e_sn (max_dom) = 82, ; end index in y (south-north) direction (staggered dimension) - s_vert (max_dom) = 1, ; start index in z (vertical) direction (leave as is) - e_vert (max_dom) = 30, ; end index in z (vertical) direction (staggered dimension) + time_step_dfi = 60, ! time step for DFI, may be different from regular time_step + max_dom = 1, ! number of domains - set it to > 1 if it is a nested run + s_we (max_dom) = 1, ! start index in x (west-east) direction (leave as is) + e_we (max_dom) = 91, ! end index in x (west-east) direction (staggered dimension) + s_sn (max_dom) = 1, ! start index in y (south-north) direction (leave as is) + e_sn (max_dom) = 82, ! end index in y (south-north) direction (staggered dimension) + s_vert (max_dom) = 1, ! start index in z (vertical) direction (leave as is) + e_vert (max_dom) = 30, ! end index in z (vertical) direction (staggered dimension) Note: this refers to full levels including surface and top vertical dimensions need to be the same for all nests Note: most variables are unstaggered (= staggered dim - 1) - dx (max_dom) = 10000, ; grid length in x direction; ARW: unit in meters, NMM: unit in degrees (e.g. 0.667) - dy (max_dom) = 10000, ; grid length in y direction; ARW: unit in meters, NMM: unit in degrees (e.g. 0.0658) - ztop (max_dom) = 19000. ; used in mass model for idealized cases - grid_id (max_dom) = 1, ; domain identifier - parent_id (max_dom) = 0, ; id of the parent domain - i_parent_start (max_dom) = 0, ; starting LLC I-indices from the parent domain - j_parent_start (max_dom) = 0, ; starting LLC J-indices from the parent domain - parent_grid_ratio (max_dom) = 1, ; parent-to-nest domain grid size ratio: for real-data cases - the ratio has to be odd; for idealized cases, + dx (max_dom) = 10000, ! grid length in x direction; ARW: unit in meters, NMM: unit in degrees (e.g. 0.667) + dy (max_dom) = 10000, ! grid length in y direction; ARW: unit in meters, NMM: unit in degrees (e.g. 0.0658) + ztop (max_dom) = 19000. ! used in mass model for idealized cases + grid_id (max_dom) = 1, ! domain identifier + parent_id (max_dom) = 0, ! id of the parent domain + i_parent_start (max_dom) = 0, ! starting LLC I-indices from the parent domain + j_parent_start (max_dom) = 0, ! starting LLC J-indices from the parent domain + parent_grid_ratio (max_dom) = 1, ! parent-to-nest domain grid size ratio: for real-data cases + the ratio has to be odd! for idealized cases, the ratio can be even if feedback is set to 0. (NMM: must be 3) - parent_time_step_ratio (max_dom) = 1, ; parent-to-nest time step ratio; it can be different + parent_time_step_ratio (max_dom) = 1, ! parent-to-nest time step ratio! it can be different from the parent_grid_ratio (NMM: must be 3) - feedback = 1, ; feedback from nest to its parent domain; 0 = no feedback - smooth_option = 2 ; smoothing option for parent domain, used only with feedback + feedback = 1, ! feedback from nest to its parent domain; 0 = no feedback + smooth_option = 2 ! smoothing option for parent domain, used only with feedback option on. 0: no smoothing; 1: 1-2-1 smoothing; 2: smoothing-desmoothing (default) Namelist variables specifically for the WPS input for real: - num_metgrid_soil_levels = 4 ; number of vertical soil levels or layers input - ; from WPS metgrid program - num_metgrid_levels = 27 ; number of vertical levels of 3d meteorological fields coming - ; from WPS metgrid program - interp_type = 2 ; vertical interpolation - ; 1 = linear in pressure - ; 2 = linear in log(pressure) - extrap_type = 2 ; vertical extrapolation of non-temperature fields - ; 1 = extrapolate using the two lowest levels - ; 2 = use lowest level as constant below ground - t_extrap_type = 2 ; vertical extrapolation for potential temperature - ; 1 = isothermal - ; 2 = -6.5 K/km lapse rate for temperature - ; 3 = constant theta - use_levels_below_ground = .true. ; in vertical interpolation, use levels below input surface level - ; T = use input isobaric levels below input surface - ; F = extrapolate when WRF location is below input surface value - use_surface = .true. ; use the input surface level data in the vertical interp and extrap - ; T = use the input surface data - ; F = do not use the input surface data - lagrange_order = 2 ; vertical interpolation order - ; 1 = linear - ; 2 = quadratic - ; 9 = cubic spline - zap_close_levels = 500 ; ignore isobaric level above surface if delta p (Pa) < zap_close_levels - lowest_lev_from_sfc = .false. ; place the surface value into the lowest eta location - ; T = use surface value as lowest eta (u,v,t,q) - ; F = use traditional interpolation - force_sfc_in_vinterp = 1 ; use the surface level as the lower boundary when interpolating - ; through this many eta levels - ; 0 = perform traditional trapping interpolation - ; n = first n eta levels directly use surface level - maxw_horiz_pres_diff = 5000 ; Pressure threshold (Pa). For using the level of max winds, when the - ; pressure difference between neighboring values exceeds this maximum, - ; the variable is NOT inserted into the column for vertical interpolation. - ; ARW real only. - trop_horiz_pres_diff = 5000 ; Pressure threshold (Pa). For using the tropopause level, when the - ; pressure difference between neighboring values exceeds this maximum, - ; the variable is NOT inserted into the column for vertical interpolation. - ; ARW real only. - maxw_above_this_level = 30000 ; Minimum height (actually it is pressure in Pa) to allow using the - ; level of max wind information in real. With a value of 300 hPa, then - ; a max wind value at 500 hPa will be ignored. - ; ARW real only. - use_maxw_level ; 0=do not use max wind speed level in vertical interpolation inside - ; of the ARW real program, 1 = use level - use_trop_level ; as above, with tropopause level data - sfcp_to_sfcp = .false. ; Optional method to compute model's surface pressure when incoming - ; data only has surface pressure and terrain, but not SLP - smooth_cg_topo = .false. ; Smooth the outer rows and columns of domain 1's topography w.r.t. - ; the input data - use_tavg_for_tsk = .false. ; whether to use diurnally averaged surface temp as skin temp. The + num_metgrid_soil_levels = 4 ! number of vertical soil levels or layers input + from WPS metgrid program + num_metgrid_levels = 27 ! number of vertical levels of 3d meteorological fields coming + from WPS metgrid program + interp_type = 2 ! vertical interpolation + 1 = linear in pressure + 2 = linear in log(pressure) + extrap_type = 2 ! vertical extrapolation of non-temperature fields + 1 = extrapolate using the two lowest levels + 2 = use lowest level as constant below ground + t_extrap_type = 2 ! vertical extrapolation for potential temperature + 1 = isothermal + 2 = -6.5 K/km lapse rate for temperature + 3 = constant theta + use_levels_below_ground = .true. ! in vertical interpolation, use levels below input surface level + T = use input isobaric levels below input surface + F = extrapolate when WRF location is below input surface value + use_surface = .true. ! use the input surface level data in the vertical interp and extrap + T = use the input surface data + F = do not use the input surface data + lagrange_order = 2 ! vertical interpolation order + 1 = linear + 2 = quadratic + 9 = cubic spline + zap_close_levels = 500 ! ignore isobaric level above surface if delta p (Pa) < zap_close_levels + lowest_lev_from_sfc = .false. ! place the surface value into the lowest eta location + ! T = use surface value as lowest eta (u,v,t,q) + ! F = use traditional interpolation + force_sfc_in_vinterp = 1 ! use the surface level as the lower boundary when interpolating + through this many eta levels + 0 = perform traditional trapping interpolation + n = first n eta levels directly use surface level + maxw_horiz_pres_diff = 5000 ! Pressure threshold (Pa). For using the level of max winds, when the + pressure difference between neighboring values exceeds this maximum, + the variable is NOT inserted into the column for vertical interpolation. + ARW real only. + trop_horiz_pres_diff = 5000 ! Pressure threshold (Pa). For using the tropopause level, when the + pressure difference between neighboring values exceeds this maximum, + the variable is NOT inserted into the column for vertical interpolation. + ARW real only. + maxw_above_this_level = 30000 ! Minimum height (actually it is pressure in Pa) to allow using the + level of max wind information in real. With a value of 300 hPa, then + a max wind value at 500 hPa will be ignored. + ARW real only. + use_maxw_level 0=do not use max wind speed level in vertical interpolation inside + of the ARW real program, 1 = use level + use_trop_level as above, with tropopause level data + sfcp_to_sfcp = .false. ! Optional method to compute model's surface pressure when incoming + data only has surface pressure and terrain, but not SLP + smooth_cg_topo = .false. ! Smooth the outer rows and columns of domain 1's topography w.r.t. + the input data + use_tavg_for_tsk = .false. ! whether to use diurnally averaged surface temp as skin temp. The diurnally averaged surface temp can be computed using WPS utility avg_tsfc.exe. May use this option when SKINTEMP is not present. - aggregate_lu = .false. ; whether to aggregate the grass, shrubs, trees in dominant landuse; + aggregate_lu = .false. ! whether to aggregate the grass, shrubs, trees in dominant landuse; default is false. - rh2qv_wrt_liquid = .true., ; whether to compute RH with respect to water (true) or ice (false) - rh2qv_method = 1, ; which method to use to computer mixing ratio from RH: + rh2qv_wrt_liquid = .true., ! whether to compute RH with respect to water (true) or ice (false) + rh2qv_method = 1, ! which method to use to computer mixing ratio from RH: default is option 1, the old MM5 method; option 2 uses a WMO recommended method (WMO-No. 49, corrigendum, August 2000) - there is a difference between the two methods though small - interp_theta = .false. ; If set to .false., it will vertically interpolate temperature + interp_theta = .false. ! If set to .false., it will vertically interpolate temperature instead of potential temperature, which may reduce bias when compared with input data - hypsometric_opt = 2, ; = 1: default method + hypsometric_opt = 2, ! = 1: default method = 2: it uses an alternative way (less biased when compared against input data) to compute height in program real and pressure in model (ARW only). - p_top_requested = 5000 ; p_top (Pa) to use in the model - ptsgm = 42000. ; FOR NMM: defines the pressure interface dividing - ; the terrain following portion of the hybrid vertical - ; coordinate (p > ptsgm) and the purely - ; isobaric portion of the vertical coordinate (p < ptsgm) - vert_refine_fact = 1 ; vertical refinement factor for ndown, not used for concurrent vertical grid refinement - vert_refine_method (max_dom) = 0 ; vertical refinement method (new in 3.7) + p_top_requested = 5000 ! p_top (Pa) to use in the model + ptsgm = 42000. ! FOR NMM: defines the pressure interface dividing + the terrain following portion of the hybrid vertical + coordinate (p > ptsgm) and the purely + isobaric portion of the vertical coordinate (p < ptsgm) + vert_refine_fact = 1 ! vertical refinement factor for ndown, not used for concurrent vertical grid refinement + vert_refine_method (max_dom) = 0 ! vertical refinement method (new in 3.7) 0: no vertical refinement 1: integer vertical refinement 2: use specified or computed eta levels for vertical refinement @@ -285,12 +285,12 @@ The new method has surface and upper stretching factors (dz_stretch_s and dz_str log p up to where it reaches the maximum thickness (max_dz) and starting from thickness dzbot. The stretching transitions from dzstretch_s to dzstretch_u by the time the thickness reaches max_dz/2. - max_dz = 1000. ; maximum level thickness allowed (m) - auto_levels_opt = 1 ; old - = 2 ; new default (also set dzstretch_s, dzstretch_u, dzbot, max_dz) - dzbot = 50. ; thickness of lowest layer (m) for auto_levels_opt=2 - dzstretch_s = 1.3 ; surface stretch factor for auto_levels_opt=2 - dzstretch_u = 1.1 ; upper stretch factor for auto_levels_opt=2 + max_dz = 1000. ! maximum level thickness allowed (m) + auto_levels_opt = 1 ! old + = 2 ! new default (also set dzstretch_s, dzstretch_u, dzbot, max_dz) + dzbot = 50. ! thickness of lowest layer (m) for auto_levels_opt=2 + dzstretch_s = 1.3 ! surface stretch factor for auto_levels_opt=2 + dzstretch_u = 1.1 ! upper stretch factor for auto_levels_opt=2 eta_levels = 1.000, 0.990, 0.978, 0.964, 0.946, 0.922, 0.894, 0.860, 0.817, 0.766, @@ -306,8 +306,8 @@ The stretching transitions from dzstretch_s to dzstretch_u by the time the thick 0.150, 0.127, 0.106, 0.088, 0.070, 0.055, 0.040, 0.026, 0.013, 0.000 - = 0,2, ; this allows vertical nesting in the nest domain - Note that with vertical nesting one can only use RRTM and RRTMG radiation physics + = 0,2, ! this allows vertical nesting in the nest domain + Note that with vertical nesting one can only use RRTM and RRTMG radiation physics An example to define vertical nested levels (in program real): @@ -334,11 +334,11 @@ lateral BC computations. interp_method_type = 1 ! bi-linear interpolation = 2 ! SINT, (default) = 3 ! nearest neighbor - only to be used for - ! testing purposes + testing purposes = 4 ! overlapping quadratic =12 ! again for testing, uses SINT horizontal - ! interpolation, and same scheme for - ! computation of FG lateral boundaries + interpolation, and same scheme for + computation of FG lateral boundaries Variables specifically for the 3d ocean initialization with a single profile. Set the ocean physics option to #2. Specify a number of levels. For each of those levels, @@ -375,102 +375,102 @@ Namelist variables for controlling the specified moving nest: Note that this moving nest option needs to be activated at the compile time by adding -DMOVE_NESTS to the ARCHFLAGS. The maximum number of moves, max_moves, is set to 50 but can be modified in source code file frame/module_driver_constants.F. - num_moves = 0 ; total number of moves - move_id(max_moves) = 2,2,2,2, ; a list of nest domain id's, one per move - move_interval(max_moves) = 60,120,150,180, ; time in minutes since the start of this domain - move_cd_x(max_moves) = 1,1,0,-1,; the number of parent domain grid cells to move in i direction - move_cd_y(max_moves) = 1,0,-1,1,; the number of parent domain grid cells to move in j direction - positive is to move in increasing i and j direction, and - negative is to move in decreasing i and j direction. - 0 means no move. The limitation now is to move only 1 grid cell - at each move. + num_moves = 0 ! total number of moves + move_id(max_moves) = 2,2,2,2, ! a list of nest domain id's, one per move + move_interval(max_moves) = 60,120,150,180, ! time in minutes since the start of this domain + move_cd_x(max_moves) = 1,1,0,-1, ! the number of parent domain grid cells to move in i direction + move_cd_y(max_moves) = 1,0,-1,1, ! the number of parent domain grid cells to move in j direction + positive is to move in increasing i and j direction, and + negative is to move in decreasing i and j direction. + 0 means no move. The limitation now is to move only 1 grid cell + at each move. Namelist variables for controlling the automatic moving nest: Note that this moving nest option needs to be activated at the compile time by adding -DMOVE_NESTS and -DVORTEX_CENTER to the ARCHFLAGS. This option uses a mid-level vortex following algorithm to determine the nest move. This option is experimental. - vortex_interval(max_dom) = 15 ; how often the new vortex position is computed - max_vortex_speed(max_dom) = 40 ; used to compute the search radius for the new vortex position - corral_dist(max_dom) = 8 ; how many coarse grid cells the moving nest is allowed to get + vortex_interval(max_dom) = 15 ! how often the new vortex position is computed + max_vortex_speed(max_dom) = 40 ! used to compute the search radius for the new vortex position + corral_dist(max_dom) = 8 ! how many coarse grid cells the moving nest is allowed to get near the mother domain boundary - track_level = 50000 ; pressure value in Pa where the vortex is tracked - time_to_move(max_dom) = 0. ; time (in minutes) to start the moving nests + track_level = 50000 ! pressure value in Pa where the vortex is tracked + time_to_move(max_dom) = 0. ! time (in minutes) to start the moving nests - tile_sz_x = 0, ; number of points in tile x direction - tile_sz_y = 0, ; number of points in tile y direction + tile_sz_x = 0, ! number of points in tile x direction + tile_sz_y = 0, ! number of points in tile y direction can be determined automatically - numtiles = 1, ; number of tiles per patch (alternative to above two items) - nproc_x = -1, ; number of processors in x for decomposition - nproc_y = -1, ; number of processors in y for decomposition + numtiles = 1, ! number of tiles per patch (alternative to above two items) + nproc_x = -1, ! number of processors in x for decomposition + nproc_y = -1, ! number of processors in y for decomposition -1: code will do automatic decomposition >1: for both: will be used for decomposition Namelist variables for controlling the adaptive time step option: These options are only valid for the ARW core. - use_adaptive_time_step = .false. ; T/F use adaptive time stepping, ARW only - step_to_output_time = .true. ; if adaptive time stepping, T/F modify the + use_adaptive_time_step = .false. ! T/F use adaptive time stepping, ARW only + step_to_output_time = .true. ! if adaptive time stepping, T/F modify the time steps so that the exact history time is reached - target_cfl(max_dom) = 1.2,1.2 ; vertical and horizontal CFL <= to this value implies + target_cfl(max_dom) = 1.2,1.2 ! vertical and horizontal CFL <= to this value implies no reason to reduce the time step, and to increase it - target_hcfl(max_dom) = .84,.84 ; horizontal CFL <= to this value implies - max_step_increase_pct(max_dom) = 5,51 ; percentage of previous time step to increase, if the + target_hcfl(max_dom) = .84,.84 ! horizontal CFL <= to this value implies + max_step_increase_pct(max_dom) = 5,51 ! percentage of previous time step to increase, if the max(vert cfl, horiz cfl) <= target_cfl, then the time will increase by max_step_increase_pct. Use something large for nests (51% suggested) - starting_time_step(max_dom) = -1,-1 ; flag = -1 implies use 6 * dx (defined in start_em), + starting_time_step(max_dom) = -1,-1 ! flag = -1 implies use 6 * dx (defined in start_em), starting_time_step = 100 means the starting time step for the coarse grid is 100 s - max_time_step(max_dom) = -1,-1 ; flag = -1 implies max time step is 3 * starting_time_step, + max_time_step(max_dom) = -1,-1 ! flag = -1 implies max time step is 3 * starting_time_step, max_time_step = 100 means that the time step will not exceed 100 s - min_time_step(max_dom) = -1,-1 ; flag = -1 implies max time step is 0.5 * starting_time_step, + min_time_step(max_dom) = -1,-1 ! flag = -1 implies max time step is 0.5 * starting_time_step, min_time_step = 100 means that the time step will not be less than 100 s - adaptation_domain = 1 ; default, all fine grid domains adaptive dt driven by coarse-grid - ; 2 = Fine grid domain #2 determines the fundamental adaptive dt. + adaptation_domain = 1 ! default, all fine grid domains adaptive dt driven by coarse-grid + 2 = Fine grid domain #2 determines the fundamental adaptive dt. &dfi_control - dfi_opt = 0 ; which DFI option to use (3 is recommended) - ; 0 = no digital filter initialization - ; 1 = digital filter launch (DFL) - ; 2 = diabatic DFI (DDFI) - ; 3 = twice DFI (TDFI) - dfi_nfilter = 7 ; digital filter type to use (7 is recommended) - ; 0 = uniform - ; 1 = Lanczos - ; 2 = Hamming - ; 3 = Blackman - ; 4 = Kaiser - ; 5 = Potter - ; 6 = Dolph window - ; 7 = Dolph - ; 8 = recursive high-order - dfi_write_filtered_input = .true. ; whether to write wrfinput file with filtered - ; model state before beginning forecast - dfi_write_dfi_history = .false. ; whether to write wrfout files during filtering integration - dfi_cutoff_seconds = 3600 ; cutoff period, in seconds, for the filter - dfi_time_dim = 1000 ; maximum number of time steps for filtering period - ; this value can be larger than necessary - dfi_bckstop_year = 2004 ; four-digit year of stop time for backward DFI integration - dfi_bckstop_month = 03 ; two-digit month of stop time for backward DFI integration - dfi_bckstop_day = 14 ; two-digit day of stop time for backward DFI integration - dfi_bckstop_hour = 12 ; two-digit hour of stop time for backward DFI integration - dfi_bckstop_minute = 00 ; two-digit minute of stop time for backward DFI integration - dfi_bckstop_second = 00 ; two-digit second of stop time for backward DFI integration - dfi_fwdstop_year = 2004 ; four-digit year of stop time for forward DFI integration - dfi_fwdstop_month = 03 ; two-digit month of stop time for forward DFI integration - dfi_fwdstop_day = 13 ; two-digit month of stop time for forward DFI integration - dfi_fwdstop_hour = 12 ; two-digit month of stop time for forward DFI integration - dfi_fwdstop_minute = 00 ; two-digit month of stop time for forward DFI integration - dfi_fwdstop_second = 00 ; two-digit month of stop time for forward DFI integration - dfi_radar = 0 ; DFI radar da switch + dfi_opt = 0 ! which DFI option to use (3 is recommended) + 0 = no digital filter initialization + 1 = digital filter launch (DFL) + 2 = diabatic DFI (DDFI) + 3 = twice DFI (TDFI) + dfi_nfilter = 7 ! digital filter type to use (7 is recommended) + 0 = uniform + 1 = Lanczos + 2 = Hamming + 3 = Blackman + 4 = Kaiser + 5 = Potter + 6 = Dolph window + 7 = Dolph + 8 = recursive high-order + dfi_write_filtered_input = .true. ! whether to write wrfinput file with filtered + model state before beginning forecast + dfi_write_dfi_history = .false. ! whether to write wrfout files during filtering integration + dfi_cutoff_seconds = 3600 ! cutoff period, in seconds, for the filter + dfi_time_dim = 1000 ! maximum number of time steps for filtering period + this value can be larger than necessary + dfi_bckstop_year = 2004 ! four-digit year of stop time for backward DFI integration + dfi_bckstop_month = 03 ! two-digit month of stop time for backward DFI integration + dfi_bckstop_day = 14 ! two-digit day of stop time for backward DFI integration + dfi_bckstop_hour = 12 ! two-digit hour of stop time for backward DFI integration + dfi_bckstop_minute = 00 ! two-digit minute of stop time for backward DFI integration + dfi_bckstop_second = 00 ! two-digit second of stop time for backward DFI integration + dfi_fwdstop_year = 2004 ! four-digit year of stop time for forward DFI integration + dfi_fwdstop_month = 03 ! two-digit month of stop time for forward DFI integration + dfi_fwdstop_day = 13 ! two-digit month of stop time for forward DFI integration + dfi_fwdstop_hour = 12 ! two-digit month of stop time for forward DFI integration + dfi_fwdstop_minute = 00 ! two-digit month of stop time for forward DFI integration + dfi_fwdstop_second = 00 ! two-digit month of stop time for forward DFI integration + dfi_radar = 0 ! DFI radar da switch &physics Note: even the physics options can be different in different nest domains, caution must be used as what options are sensible to use - chem_opt (max_dom) = 0, ; chemistry option - use WRF-Chem + chem_opt (max_dom) = 0, ! chemistry option - use WRF-Chem mp_physics (max_dom) microphysics option = 0, no microphysics = 1, Kessler scheme @@ -479,9 +479,9 @@ Namelist variables for controlling the adaptive time step option: = 4, WSM 5-class scheme = 5, Ferrier (new Eta) microphysics, operational High-Resolution Window version = 6, WSM 6-class graupel scheme - = 7, Goddard GCE scheme (also uses gsfcgce_hail, gsfcgce_2ice) - = 8, Thompson scheme (new for V3.1) - = 9, Milbrandt-Yau 2-moment scheme (new for V3.2) + = 7, Goddard 4-ice scheme + = 8, Thompson scheme + = 9, Milbrandt-Yau 2-moment scheme = 10, Morrison (2 moments) = 11, CAM 5.1 microphysics = 13, SBU_YLIN scheme @@ -489,8 +489,9 @@ Namelist variables for controlling the adaptive time step option: = 16, WDM 6-class scheme = 17, NSSL 2-moment 4-ice scheme (steady background CCN) = 18, NSSL 2-moment 4-ice scheme with predicted CCN (better for idealized than real cases) - ; to set a global CCN value, use - nssl_cccn = 0.7e9 ; CCN for NSSL scheme (18). Also sets same value to ccn_conc for mp_physics=18 + to set a global CCN value, use + nssl_cccn = 0.7e9 ; CCN for NSSL scheme (18). + Also sets same value to ccn_conc for mp_physics=18 = 19, NSSL 1-moment (7 class: qv,qc,qr,qi,qs,qg,qh; predicts graupel density) = 21, NSSL 1-moment, (6-class), very similar to Gilmore et al. 2004 Can set intercepts and particle densities in physics namelist, e.g., nssl_cnor @@ -518,37 +519,38 @@ Namelist variables for controlling the adaptive time step option: = 50, P3 1-category = 51, P3 1-category plus double-moment cloud water = 95, Ferrier (old Eta) microphysics, operational NAM (WRF NMM) version + = 97, Goddard GCE scheme (also uses gsfcgce_hail, gsfcgce_2ice) For non-zero mp_physics options, to keep Qv .GE. 0, and to set the other moisture fields .LT. a critical value to zero - mp_zero_out = 0, ; no action taken, no adjustment to any moist field - = 1, ; except for Qv, all other moist arrays are set to zero - ; if they fall below a critical value - = 2, ; Qv is .GE. 0, all other moist arrays are set to zero - ; if they fall below a critical value - mp_zero_out_thresh = 1.e-8 ; critical value for moist array threshold, below which - ; moist arrays (except for Qv) are set to zero (kg/kg) + mp_zero_out = 0, ! no action taken, no adjustment to any moist field + = 1, ! except for Qv, all other moist arrays are set to zero + if they fall below a critical value + = 2, ! Qv is .GE. 0, all other moist arrays are set to zero + if they fall below a critical value + mp_zero_out_thresh = 1.e-8 ! critical value for moist array threshold, below which + moist arrays (except for Qv) are set to zero (kg/kg) - gsfcgce_hail = 0 ; for running gsfcgce microphysics with graupel - = 1 ; for running gsfcgce microphysics with hail + gsfcgce_hail = 0 ! for running gsfcgce microphysics with graupel + = 1 ! for running gsfcgce microphysics with hail default value = 0 - gsfcgce_2ice = 0 ; for running with snow, ice and graupel/hail - = 1 ; for running with only ice and snow - = 2 ; for running with only ice and graupel + gsfcgce_2ice = 0 ! for running with snow, ice and graupel/hail + = 1 ! for running with only ice and snow + = 2 ! for running with only ice and graupel (only used in very extreme situation) default value = 0 gsfcgce_hail is ignored if gsfcgce_2ice is set to 1 or 2. - hail_opt = 0 ; hail switch for WSM6 and WDM6 : 0 - off, 1 - on (new in 3.6.1) - morr_rimed_ice = 1 ; hail switch for Morrison schemes (mp_physics=10 and 40: 0 - off, 1 - on (new in 4.0) - clean_atm_diag = 0 ; if set to =1, turns on clean sky diagnostics (for chem); default is 0=off - progn (max_dom) = 0 ; switch to use mix-activate scheme (Only for Morrison, WDM6, WDM5, + hail_opt = 0 ! hail switch for WSM6 and WDM6 : 0 - off, 1 - on (new in 3.6.1) + morr_rimed_ice = 1 ! hail switch for Morrison schemes (mp_physics=10 and 40: 0 - off, 1 - on (new in 4.0) + clean_atm_diag = 0 ! if set to =1, turns on clean sky diagnostics (for chem); default is 0=off + progn (max_dom) = 0 ! switch to use mix-activate scheme (Only for Morrison, WDM6, WDM5, and NSSL_2MOMCCN/NSSL_2MOM - ccn_conc = 1.E8 ; CCN concentration, used by WDM schemes (new in 3.6.1) + ccn_conc = 1.E8 ! CCN concentration, used by WDM schemes (new in 3.6.1) - no_mp_heating = 0 ; normal - = 1 ; turn off latent heating from a microphysics scheme - use_mp_re = 1 ; whether to use effective radii computed in mp schemes in RRTMG (new in 3.8). + no_mp_heating = 0 ! normal + = 1 ! turn off latent heating from a microphysics scheme + use_mp_re = 1 ! whether to use effective radii computed in mp schemes in RRTMG (new in 3.8). 0: do not use; 1: use effective radii (The mp schemes that compute effective radii are 3,4,6,8,14,16,17-21,28) @@ -583,9 +585,11 @@ Namelist variables for controlling the adaptive time step option: = 99, GFDL (Eta) longwave (semi-supported) also must use co2tf = 1 for ARW - radt (max_dom) = 30, ; minutes between radiation physics calls - recommend 1 min per km of dx (e.g. 10 for 10 km); - use the same value for all nests. + radt (max_dom) = 30, ! minutes between radiation physics calls + recommend 1 min per km of dx (e.g. 10 for 10 km); + use the same value for all nests. + cldovrlp = 2, ! cloud overlapping option for RRTMG only. 1=random, 2=maximum-random (default), + 3=maximum, 4=exponential, 5=exponential-random nrads (max_dom) = FOR NMM: number of fundamental timesteps between calls to shortwave radiation; the value @@ -599,37 +603,37 @@ Namelist variables for controlling the adaptive time step option: by namelist value. co2tf CO2 transmission function flag only for GFDL radiation - = 0, read CO2 function data from pre-generated file - = 1, generate CO2 functions internally in the forecast + = 0, ! read CO2 function data from pre-generated file + = 1, ! generate CO2 functions internally in the forecast ra_call_offset radiation call offset - = 0 (no offset), =-1 (old offset) - swint_opt Interpolation of short-wave radiation based on the updated solar zenith angle - between SW call - = 0, no interpolation - = 1, use interpolation - cam_abs_freq_s = 21600 default CAM clearsky longwave absorption calculation frequency - (recommended minimum value to speed scheme up) - levsiz = 59 for CAM radiation input ozone levels, set automatically - paerlev = 29 for CAM radiation input aerosol levels, set automatically - cam_abs_dim1 = 4 for CAM absorption save array, set automatically + = 0 ! (=0, no offset; =-1, old offset) + swint_opt Interpolation of short-wave radiation based on the updated solar zenith angle + between SW call + = 0, ! no interpolation + = 1, ! use interpolation + cam_abs_freq_s = 21600 ! default CAM clearsky longwave absorption calculation frequency + (recommended minimum value to speed scheme up) + levsiz = 59 ! for CAM radiation input ozone levels, set automatically + paerlev = 29 ! for CAM radiation input aerosol levels, set automatically + cam_abs_dim1 = 4 ! for CAM absorption save array, set automatically cam_abs_dim2 = value of e_vert for CAM 2nd absorption save array, set automatically o3input = ozone input option for radiation (currently rrtmg only) - = 0, using profile inside the code - = 2, using CAM ozone data (ozone.formatted) + = 0, ! using profile inside the code + = 2, ! using CAM ozone data (ozone.formatted) aer_opt = aerosol input option for radiation (currently rrtmg only) - = 0, none - = 1, using Tegen (1997) data, - = 2, using J. A. Ruiz-Arias method (see other aer_* options) - = 3, using G. Thompson's water/ice friendly climatological aerosol - alevsiz = 12 for Tegen aerosol input levels, set automatically - no_src_types = 6 for Tegen aerosols: organic and black carbon, sea salt, sulfalte, dust, - and stratospheric aerosol (volcanic ashes - currently 0), set automatically + = 0, ! none + = 1, ! using Tegen (1997) data, + = 2, ! using J. A. Ruiz-Arias method (see other aer_* options) + = 3, ! using G. Thompson's water/ice friendly climatological aerosol + alevsiz = 12 ! for Tegen aerosol input levels, set automatically + no_src_types = 6 ! for Tegen aerosols: organic and black carbon, sea salt, sulfalte, dust, + and stratospheric aerosol (volcanic ashes - currently 0), set automatically The following aerosol options allow RRTMG and new Goddard radiation schemes to see it, but the aerosols are constant during the model integration. - aer_aod550_opt (max_dom) = [1,2] : + aer_aod550_opt (max_dom) = [1,2] 1 = input constant value for AOD at 550 nm from namelist. In this case, the value is read from aer_aod550_val; 2 = input value from auxiliary input 15. It is a time-varying 2D grid in netcdf @@ -670,7 +674,7 @@ Namelist variables for controlling the adaptive time step option: = 8, Simplified Simple Biosphere Model (SSiB) - can be used with Dudhia/RRTM, CAM or RRTMG radiation options - sf_urban_physics(max_dom) = 0, ; activate urban canopy model (in Noah LSM only) + sf_urban_physics(max_dom) = 0, ! activate urban canopy model (in Noah and Noah-MP LSMs only) = 0: no = 1: Single-layer, UCM = 2: Multi-layer, Building Environment Parameterization (BEP) scheme @@ -678,6 +682,15 @@ Namelist variables for controlling the adaptive time step option: = 3: Multi-layer, Building Environment Model (BEM) scheme (works only with MYJ and BouLac PBL) + num_urban_ndm = 1! (= 2 if BEP or BEM active) maximum number of street dimensions (ndm in BEP or BEM header) + num_urban_ng = 1! (= 10 if BEP or BEM active) number of grid levels in the ground (ng_u in BEP or BEM header) + num_urban_nwr = 1! (= 10 if BEP or BEM active) number of grid levels in the walls or roof (nwr_u in BEP or BEM header) + num_urban_nz = 1! (= 18 if BEP or BEM active) maximum number of vertical levels in the urban grid (nz_um in BEP or BEM header) + num_urban_ngb = 1! (= 10 if BEM active) number of grid levels in the ground below building (ngb_u in BEM header) + num_urban_nf = 1! (= 10 if BEM active) number of grid levels in the floors (nf_u in BEM header) + num_urban_nbui = 1! (= 15 if BEM active) maximum number of types of buildings in an urban class (nbui_max in BEM header) + + bl_pbl_physics (max_dom) boundary-layer option = 0, no boundary-layer = 1, YSU scheme @@ -698,7 +711,7 @@ Namelist variables for controlling the adaptive time step option: = 93, 2015 GFS scheme (NMM only) = 99, MRF scheme - bldt (max_dom) = 0, ; minutes between boundary-layer physics calls + bldt (max_dom) = 0, ! minutes between boundary-layer physics calls grav_settling (max_dom) gravitational settling of fog/cloud droplets (Now works for any PBL scheme) = 0, No settling of cloud droplets @@ -711,54 +724,54 @@ Namelist variables for controlling the adaptive time step option: the value is set in Registry.NMM but is overridden by namelist value; bldt will be computed from this. - ysu_topdown_pblmix = 0,; whether to turn on top-down, radiation-driven mixing (1=yes) - mfshconv (max_dom) = 1,; whether to turn on new day-time EDMF QNSE (0=no) - topo_wind (max_dom) = 0, turn off, - = 1, turn on topographic surface wind correction from Jimenez - (YSU PBL only, and require extra input from geogrid) - = 2, turn on topographic surface wind correction from Mass (YSU PBL only) - - bl_mynn_tkebudget (max_dom) = 0, default off; = 1 adds MYNN tke budget terms to output - bl_mynn_tkeadvect (max_dom) = .false., default off; = .true. do MYNN tke advection - icloud_bl option to couple the subgrid-scale clouds from the PBL scheme (MYNN only) - to radiation schemes - 0: no coupling; 1: activate coupling to radiation (default) - bl_mynn_cloudmix (max_dom) = 0, default off; =1 activates mixing of qc and qi in MYNN + ysu_topdown_pblmix = 0, ! whether to turn on top-down, radiation-driven mixing (1=yes) + mfshconv (max_dom) = 1, ! whether to turn on new day-time EDMF QNSE (0=no) + topo_wind (max_dom) = 0, ! turn off, + = 1, turn on topographic surface wind correction from Jimenez + (YSU PBL only, and require extra input from geogrid) + = 2, turn on topographic surface wind correction from Mass (YSU PBL only) + + bl_mynn_tkebudget (max_dom) = 0, ! default off; = 1 adds MYNN tke budget terms to output + bl_mynn_tkeadvect (max_dom) = .false., ! default off; = .true. do MYNN tke advection + icloud_bl option to couple the subgrid-scale clouds from the PBL scheme (MYNN only) + to radiation schemes + 0: no coupling; 1: activate coupling to radiation (default) + bl_mynn_cloudmix (max_dom) = 0 ! default off; =1 activates mixing of qc and qi in MYNN 0: no mixing of qc & qi; 1: mixing activated (default). - Note qnc and qni are mixed when scalar_pblmix =1. + Note qnc and qni are mixed when scalar_pblmix =1. bl_mynn_mixlength option to change mixing length formulation in MYNN - 0:original as in Nakanishi and Niino 2009, - 1:RAP/HRRR (including BouLac in free atmosphere), - 2:experimental (default; includes cloud-specific mixing length and a scale-aware mixing - length, following Ito et al. 2015, BLM). Option 2 has been well tested with - the edmf options. + 0: original as in Nakanishi and Niino 2009, + 1: RAP/HRRR (including BouLac in free atmosphere), + 2: experimental (default; includes cloud-specific mixing length and a scale-aware mixing + length, following Ito et al. 2015, BLM). Option 2 has been well tested with + the edmf options. bl_mynn_cloudpdf option to switch to different cloud PDFs to represent subgrid clouds 0: original (Sommeria and Deardorf 1977); 1: Kuwano et al 2010, similar to option 0, but uses resolved scale gradients as opposed to higher order moments ; 2: from Chaboureau and Bechtold (2002, JAS, with mods, default) - bl_mynn_edmf (max_dom) = 0, default; = 1 activates mass-flux scheme in MYNN - 1: (default) for StEM; 2: for TEMF; 0: just regular MYNN. - Related (hidden) options: - bl_mynn_edmf_mom (max_dom) = 1 - activates momentum transport in MYNN mass-flux scheme - (assuming bl_mynn_edmf > 0); 0=off (default) - 0: no momentum transport; 1: momentum transport activated (default) - bl_mynn_edmf_tke (max_dom) = 0, default; = 1 activates TKE transport in MYNN mass-flux scheme - (assuming bl_mynn_edmf > 0) - 0: no TKE transport (default);1: activate TKE transport - - scalar_pblmix (max_dom) = 1 ; mix scalar fields consistent with PBL option (exch_h) - tracer_pblmix (max_dom) = 1 ; mix tracer fields consistent with PBL option (exch_h) - shinhong_tke_diag (max_dom) = 0 ; diagnostic TKE and mixing length from Shin-Hong PBL - opt_thcnd option to treat thermal conductivity in Noah LSM (new in 3.8) - = 1, original (default) - = 2, McCumber and Pielke for silt loam and sandy loam + bl_mynn_edmf (max_dom) = 0, ! default; = 1 activates mass-flux scheme in MYNN + 1: ! (default) for StEM; 2: for TEMF; 0: just regular MYNN. + Related (hidden) options: + bl_mynn_edmf_mom (max_dom) = 1 ! - activates momentum transport in MYNN mass-flux scheme + (assuming bl_mynn_edmf > 0); 0=off (default) + 0 no momentum transport; 1: momentum transport activated (default) + bl_mynn_edmf_tke (max_dom) = 0, ! default; = 1 activates TKE transport in MYNN mass-flux scheme + (assuming bl_mynn_edmf > 0) + 0 no TKE transport (default);1: activate TKE transport + + scalar_pblmix (max_dom) = 1 ! mix scalar fields consistent with PBL option (exch_h) + tracer_pblmix (max_dom) = 1 ! mix tracer fields consistent with PBL option (exch_h) + shinhong_tke_diag (max_dom) = 0 ! diagnostic TKE and mixing length from Shin-Hong PBL + opt_thcnd option to treat thermal conductivity in Noah LSM (new in 3.8) + = 1, original (default) + = 2, McCumber and Pielke for silt loam and sandy loam sf_surface_mosaic option to mosaic landuse categories for Noah LSM - = 0 ; default; use dominant category only - = 1 ; use mosaic landuse categories - mosaic_cat = 3 ; number of mosaic landuse categories in a grid cell - mosaic_lu = 0, default ; set to = 1 to use mosaic landuse categories in RUC - mosaic_soil = 0, default ; set to = 1 to use mosaic soil categories in RUC + = 0 ! default; use dominant category only + = 1 ! use mosaic landuse categories + mosaic_cat = 3 ! number of mosaic landuse categories in a grid cell + mosaic_lu = 0, ! default ; set to = 1 to use mosaic landuse categories in RUC + mosaic_soil = 0, ! default ; set to = 1 to use mosaic soil categories in RUC cu_physics (max_dom) cumulus option = 0, no cumulus @@ -785,18 +798,22 @@ Namelist variables for controlling the adaptive time step option: = 1, Grell 3D ensemble scheme (use with cu_physics=93 or 5) (PLACEHOLDER: SWITCH NOT YET IMPLEMENTED--use ishallow) = 2, Park and Bretherton shallow cumulus from CAM5 (CESM 1_0_1) = 3, GRIMS shallow cumulus from YSU group - - ishallow = 0, = 1 turns on shallow convection, used with Grell 3D ensemble schemes (cu_physics = 3 or 5) - clos_choice = 0, closure choice (place holder only) - cu_diag (max_dom) = 0, additional t-averaged stuff for cu physics (cu_phys = 3, 5 and 93 only) - kf_edrates (max_dom) = 0, Add entrainment/detrainment rates and convective timescale output variables for KF-based - cumulus schemes (cu_phys = 1, 11 and 99 only) (new in 3.8) - = 0, no output; = 1, additional output - convtrans_avglen_m = 30, averaging time for variables used by convective transport (call cu_phys options) and radiation routines (only cu_phys=3,5 and 93) (minutes) - cu_rad_feedback (max_dom) = .false. ; sub-grid cloud effect to the optical depth in radiation + = 5, Deng cumulus scheme (including both shallow and deep convections) from PSU and WRF-Solar. + However the deep part isn't very active. Not recommended to use alone for deep convection + case. Could work well for grid sizes 3-9 km. + This scheme only works with MYJ or MYNN PBL schemes + + ishallow = 0, ! = 1 turns on shallow convection, used with Grell 3D ensemble schemes (cu_physics = 3 or 5) + clos_choice = 0, ! closure choice (place holder only) + cu_diag (max_dom) = 0, ! additional t-averaged stuff for cu physics (cu_phys = 3, 5, 10, and 93 only) + kf_edrates (max_dom) = 0, ! Add entrainment/detrainment rates and convective timescale output variables for KF-based + cumulus schemes (cu_phys = 1, 11 and 99 only) (new in 3.8) + = 0, ! no output; = 1, additional output + convtrans_avglen_m = 30, ! averaging time for variables used by convective transport (call cu_phys options) and radiation routines (only cu_phys=3,5 and 93) (minutes) + cu_rad_feedback (max_dom) = .false. ! sub-grid cloud effect to the optical depth in radiation currently it works only for GF, G3, GD and KF scheme - One also needs to set cu_diag = 1 for GF, G3 and GD schemes - cudt (max_dom) = 0, ; minutes between cumulus physics calls + One also needs to set cu_diag = 1 for GF, G3, KF-CuP, and GD schemes + cudt (max_dom) = 0, ! minutes between cumulus physics calls kfeta_trigger KF trigger option (cu_physics=1 only): = 1, default option = 2, moisture-advection based trigger (Ma and Tan [2009]) - ARW only @@ -804,8 +821,8 @@ Namelist variables for controlling the adaptive time step option: cugd_avedx ; number of grid boxes over which subsidence is spread. = 1, default, for large grid distances = 3, for small grid distances (DX < 5 km) - nsas_dx_factor = 0, default option - = 1, NSAS grid-distance dependent option (new in 3.6) + nsas_dx_factor = 0, ! default option + = 1, NSAS grid-distance dependent option (new in 3.6) For KF-CuP scheme: recommended to use with cu_rad_feedback shallowcu_forced_ra(max_dom) radiative impact of shallow Cu by a prescribed maximum cloud fraction = .false., option off, default @@ -824,11 +841,11 @@ Namelist variables for controlling the adaptive time step option: = 1: aerosol interaction with MSKF only = 2: aerosol interaction with both MSKF and Morrison aercu_fct factor to multiply with aerosol amount - = 1.: default value - no_src_types_cu = 1 ; number of aerosol species in global aerosol data: 10 for CESM input, - ; set automatically - alevsiz_cu = 1 ; number of levels in global aerosol data: 30 for CESM input, - ; set automatically + = 1. ! default value + no_src_types_cu = 1 ! number of aerosol species in global aerosol data: 10 for CESM input, + set automatically + alevsiz_cu = 1 ! number of levels in global aerosol data: 30 for CESM input, + set automatically ncnvc (max_dom) = FOR NMM: number of fundamental timesteps between calls to convection; the value is set in Registry.NMM @@ -843,7 +860,7 @@ Namelist variables for controlling the adaptive time step option: tsrfc (max_dom) = FOR NMM: number of hours in surface flux buckets pcpflg (max_dom) = FOR NMM: logical switch for precipitation assimilation - isfflx = 1, ; heat and moisture fluxes from the surface + isfflx = 1, ! heat and moisture fluxes from the surface (only works for sf_sfclay_physics = 1,5,7,11) 1 = with fluxes from the surface 0 = no flux from the surface @@ -851,13 +868,13 @@ Namelist variables for controlling the adaptive time step option: and tke_heat_flux in vertical diffusion 2 = use drag from sf_sfclay_physics and heat flux from tke_heat_flux with bl_pbl_physics=0 - ideal_xland = 1, ; sets XLAND (1=land,2=water) for ideal cases with no input land-use + ideal_xland = 1, ! sets XLAND (1=land,2=water) for ideal cases with no input land-use run-time switch for wrf.exe physics_init (default 1 as before) - ifsnow = 1, ; snow-cover effects + ifsnow = 1, ! snow-cover effects (only works for sf_surface_physics = 1) 1 = with snow-cover effect 0 = without snow-cover effect - icloud = 1, ; cloud effect to the optical depth in radiation + icloud = 1, ! cloud effect to the optical depth in radiation (only works for ra_sw_physics = 1,4 and ra_lw_physics = 1,4) Since 3.6, this also controls the cloud fraction options 1 = with cloud effect, and use cloud fraction option 1 @@ -867,515 +884,519 @@ Namelist variables for controlling the adaptive time step option: on threshold 3 = with cloud effect, and use cloud fraction option 3, based on Sundqvist et al. (1989) (since 3.7) - swrad_scat = 1. ; scattering tuning parameter (default 1. is 1.e-5 m2/kg) + swrad_scat = 1. ! scattering tuning parameter (default 1. is 1.e-5 m2/kg) (works for ra_sw_physics = 1 option only) - surface_input_source = 3, ; where landuse and soil category data come from: + surface_input_source = 3, ! where landuse and soil category data come from: 1 = WPS/geogrid but with dominant categories recomputed 2 = GRIB data from another model (only possible (VEGCAT/SOILCAT are in met_em files from WPS) 3 = use dominant land and soil categories from WPS/geogrid (default since 3.8) - num_soil_layers = 5, ; number of soil layers in land surface model + num_soil_layers = 5, ! number of soil layers in land surface model = 5: thermal diffusion scheme = 4: Noah landsurface model = 6 or 9: RUC landsurface model = 10: CLM4 landsurface model = 2: Pleim-Xu landsurface model = 3: SSiB landsurface model - num_land_cat = 21, ; number of land categories in input data. + num_land_cat = 21, ! number of land categories in input data. 24 - for USGS (default); 20 for MODIS 28 - for USGS if including lake category 21 - for MODIS if including lake category (default since 3.8) 40 - for NCLD - num_soil_cat = 16, ; number of soil categories in input data + num_soil_cat = 16, ! number of soil categories in input data - pxlsm_smois_init(max_dom) = 1 ; PXLSM Soil moisture initialization option + pxlsm_smois_init(max_dom) = 1 ! PXLSM Soil moisture initialization option 0 - From analysis, 1 - From moisture availability or SLMO in LANDUSE.TBL - - maxiens = 1, ; Grell-Devenyi only - maxens = 3, ; G-D only - maxens2 = 3, ; G-D only - maxens3 = 16 ; G-D only - ensdim = 144 ; G-D only + pxlsm_modis_veg = 1, ! PX LSM LAI and VEGFRA + 0 - Old PX method that uses PX landuse look-up table + 1 - Use VEGFRA and LAI in wrflowinp_d0* file + Note: Values used are called VEGF_PX and LAI_PX in output. + + maxiens = 1, ! Grell-Devenyi only + maxens = 3, ! G-D only + maxens2 = 3, ! G-D only + maxens3 = 16 ! G-D only + ensdim = 144 ! G-D only These are recommended numbers. If you would like to use any other number, consult the code, know what you are doing. - seaice_threshold = 100. ; tsk < seaice_threshold, if water point and 5-layer slab - ; scheme, set to land point and permanent ice; if water point - ; and Noah scheme, set to land point, permanent ice, set temps - ; from 2 m to surface, and set smois and sh2o. The default value has changed - ; from 271 to 100 K in v3.5.1 to avoid mixed-up use with fractional seaice input - ; Used by land model option 1,2,3,4 and 8 - sst_update = 0 ; time-varying sea-surface temp (0=no, 1=yes). If selected real - ; puts SST, XICE, ALBEDO and VEGFRA in wrflowinp_d01 file, and wrf updates - ; these from it at same interval as boundary file. Also requires - ; namelists in &time_control: auxinput4_interval, auxinput4_end_h, - ; auxinput4_inname = "wrflowinp_d", - ; and in V3.2 io_form_auxinput4 - usemonalb = .false. ; use monthly albedo map instead of table value - ; (must be set to true for NMM, and recommended for sst_update=1) - rdmaxalb = .true. ; use snow albedo from geogrid; false means using values from table - rdlai2d = .false. ; use LAI from input; false means using values from table + seaice_threshold = 100. ! tsk < seaice_threshold, if water point and 5-layer slab + scheme, set to land point and permanent ice; if water point + and Noah scheme, set to land point, permanent ice, set temps + from 2 m to surface, and set smois and sh2o. The default value has changed + from 271 to 100 K in v3.5.1 to avoid mixed-up use with fractional seaice input + Used by land model option 1,2,3,4 and 8 + sst_update = 0 ! time-varying sea-surface temp (0=no, 1=yes). If selected real + puts SST, XICE, ALBEDO and VEGFRA in wrflowinp_d01 file, and wrf updates + these from it at same interval as boundary file. Also requires + namelists in &time_control: auxinput4_interval, auxinput4_end_h, + auxinput4_inname = "wrflowinp_d", + and in V3.2 io_form_auxinput4 + usemonalb = .false. ! use monthly albedo map instead of table value + (must be set to true for NMM, and recommended for sst_update=1) + rdmaxalb = .true. ! use snow albedo from geogrid; false means using values from table + rdlai2d = .false. ! use LAI from input; false means using values from table if sst_update=1, LAI will also be in wrflowinp file - dust_emis = 0 ; Enable (0=no, 1=yes) surface dust emission scheme to enter mp_physics=28 QNIFA (ice-friendly aerosol variable) - erosion_dim = 3 ; In conjunction with dust_emis=1, this value can only be set equal to 3 (erodibility information) - bucket_mm = -1. ; bucket reset value for water accumulations (value in mm, -1.=inactive) - bucket_J = -1. ; bucket reset value for energy accumulations (value in J, -1.=inactive) - tmn_update = 0 ; update deep soil temperature (1, yes; 0, no) - lagday = 150 ; days over which tmn is computed using skin temperature - sst_skin = 0 ; calculate skin SST - slope_rad (max_dom) = 0 ; slope effects for solar radiation (1=on, 0=off) - topo_shading (max_dom) = 0 ; neighboring-point shadow effects for solar radiation (1=on, 0=off) - shadlen = 25000. ; max shadow length in meters for topo_shading=1 - sf_ocean_physics = 0 ; activate ocean model (0=no, 1=1d mixed layer; 2=3D PWP, no bathymetry) - oml_hml0 = 50 ; oml model can be initialized with a constant depth everywhere (m) - oml_gamma = 0.14 ; oml deep water lapse rate (K m-1) - oml_relaxation_time = 0. ; Relaxation time (in second) of mixed layer ocean model back to original values + dust_emis = 0 ! Enable (0=no, 1=yes) surface dust emission scheme to enter mp_physics=28 QNIFA (ice-friendly aerosol variable) + erosion_dim = 3 ! In conjunction with dust_emis=1, this value can only be set equal to 3 (erodibility information) + bucket_mm = -1. ! bucket reset value for water accumulations (value in mm, -1.=inactive) + bucket_J = -1. ! bucket reset value for energy accumulations (value in J, -1.=inactive) + tmn_update = 0 ! update deep soil temperature (1, yes; 0, no) + lagday = 150 ! days over which tmn is computed using skin temperature + sst_skin = 0 ! calculate skin SST + slope_rad (max_dom) = 0 ! slope effects for solar radiation (1=on, 0=off) + topo_shading (max_dom) = 0 ! neighboring-point shadow effects for solar radiation (1=on, 0=off) + shadlen = 25000. ! max shadow length in meters for topo_shading=1 + sf_ocean_physics = 0 ! activate ocean model (0=no, 1=1d mixed layer; 2=3D PWP, no bathymetry) + oml_hml0 = 50 ! oml model can be initialized with a constant depth everywhere (m) + oml_gamma = 0.14 ! oml deep water lapse rate (K m-1) + oml_relaxation_time = 0. ! Relaxation time (in second) of mixed layer ocean model back to original values (an example value is 259200 sec. (3 days)) (new in 3.8) - omdt = 1. ; 3D PWP time step (min). It can be set to be the same as WRF time step - ; in corresponding nested grids, but omdt should be no less than 1.0 minute. - ocean_levels = 30 ; number of vertical levels in 3DPWP. Note that the depth of each ocean - ; model layers is specified in OM_DEPTH in wrfinput_d01 - traj_opt = 0 ; Forward trajectory calculation (Lee and Chen 2013) - num_traj = 1000 ; number of trajectories to be released - isftcflx = 0 ; alternative Ck, Cd formulation for tropical storm application - ; sf_sfclay=1 and 11 - ; 0=default - ; 1=Donelan Cd + const z0q - ; 2=Donelan Cd + Garratt - ; sf_sfclay=5 - ; (default) =0: z0, zt, and zq from COARE3.0 (Fairall et al 2003) - ; =1: z0 from Davis et al (2008), zt & zq from COARE3.0 - ; =2: z0 from Davis et al (2008), zt & zq from Garratt (1992) - fractional_seaice = 0 ; treat sea-ice as fractional field (1) or ice/no-ice flag (0) + omdt = 1. ! 3D PWP time step (min). It can be set to be the same as WRF time step + in corresponding nested grids, but omdt should be no less than 1.0 minute. + ocean_levels = 30 ! number of vertical levels in 3DPWP. Note that the depth of each ocean + model layers is specified in OM_DEPTH in wrfinput_d01 + traj_opt = 0 ! Forward trajectory calculation (Lee and Chen 2013) + num_traj = 1000 ! number of trajectories to be released + isftcflx = 0 ! alternative Ck, Cd formulation for tropical storm application + sf_sfclay=1 and 11 + 0=default + 1=Donelan Cd + const z0q + 2=Donelan Cd + Garratt + sf_sfclay=5 + (default) =0: z0, zt, and zq from COARE3.0 (Fairall et al 2003) + =1: z0 from Davis et al (2008), zt & zq from COARE3.0 + =2: z0 from Davis et al (2008), zt & zq from Garratt (1992) + fractional_seaice = 0 ! treat sea-ice as fractional field (1) or ice/no-ice flag (0) works for sf_sfclay_physics=1,2,3,4,5,7,and 91 If fractional_seaice = 1, also set seaice_threshold = 0. - seaice_albedo_opt = 0 ; option to set albedo over sea ice - ; 0 = seaice albedo is a constant value from namelist option seaice_albedo_default - ; 1 = seaice albedo is f(Tair,Tskin,Snow) following Mills (2011) for Arctic Ocean - ; 2 = seaice albedo read in from input variable ALBSI - seaice_albedo_default = 0.65 ; default value of seaice albedo for seaice_albedo_opt=0 - seaice_snowdepth_opt = 0 ; method for treating snow depth on sea ice - ; 0 = snow depth on sea ice is bounded by seaice_snowdepth_min and seaice_snowdepth_max - ; 1 = snow depth on sea ice read in from input array SNOWSI (bounded by + seaice_albedo_opt = 0 ! option to set albedo over sea ice + ! 0 = seaice albedo is a constant value from namelist option seaice_albedo_default + ! 1 = seaice albedo is f(Tair,Tskin,Snow) following Mills (2011) for Arctic Ocean + ! 2 = seaice albedo read in from input variable ALBSI + seaice_albedo_default = 0.65 ! default value of seaice albedo for seaice_albedo_opt=0 + seaice_snowdepth_opt = 0 ! method for treating snow depth on sea ice + ! 0 = snow depth on sea ice is bounded by seaice_snowdepth_min and seaice_snowdepth_max + ! 1 = snow depth on sea ice read in from input array SNOWSI (bounded by ; seaice_snowdepth_min and seaice_snodepth_max) - seaice_snowdepth_max = 1.E10 ; maximum allowed accumulation of snow (m) on sea ice - seaice_snowdepth_min = 0.001 ; minimum snow depth (m) on sea ice - seaice_thickness_opt = 0 ; option for treating seaice thickness - ; 0 = seaice thickness is uniform value taken from namelist variable seaice_thickness_default - ; 1 = seaice_thickness is read in from input variable ICEDEPTH - seaice_thickness_default = 3.0 ; default value of seaice thickness for seaice_thickness_opt=0 - tice2tsk_if2cold = .false. ; set Tice to Tsk to avoid unrealistically low sea ice temperatures - iz0tlnd = 0 ; thermal roughness length for sfclay (0 = old, 1 = veg dependent Chen-Zhang Czil, + seaice_snowdepth_max = 1.E10 ! maximum allowed accumulation of snow (m) on sea ice + seaice_snowdepth_min = 0.001 ! minimum snow depth (m) on sea ice + seaice_thickness_opt = 0 ! option for treating seaice thickness + ! 0 = seaice thickness is uniform value taken from namelist variable seaice_thickness_default + ! 1 = seaice_thickness is read in from input variable ICEDEPTH + seaice_thickness_default = 3.0 ! default value of seaice thickness for seaice_thickness_opt=0 + tice2tsk_if2cold = .false. ! set Tice to Tsk to avoid unrealistically low sea ice temperatures + iz0tlnd = 0 ! thermal roughness length for sfclay (0 = old, 1 = veg dependent Chen-Zhang Czil, 2 = Zilitinkevitch (czil=0.1)) - ; for mynn sfc (0=Zilitinkevitch (def),1=Chen-Zhang,2=mod Yang,3=const zt) - mp_tend_lim = 10., ; limit on temp tendency from mp latent heating from radar data assimilation - prec_acc_dt (max_dom) = 0., ; number of minutes in precipitation bucket (ARW only) - will add three + for mynn sfc (0=Zilitinkevitch (def),1=Chen-Zhang,2=mod Yang,3=const zt) + mp_tend_lim = 10., ! limit on temp tendency from mp latent heating from radar data assimilation + prec_acc_dt (max_dom) = 0., ! number of minutes in precipitation bucket (ARW only) - will add three new 2d output fields: prec_acc_c, prec_acc_nc and snow_acc_nc - topo_wind (max_dom) = 0, ; 1 = improve effect of topography for surface winds. - ua_phys = .false. ; Option to activate UA Noah changes: a different snow-cover physics in + topo_wind (max_dom) = 0, ! 1 = improve effect of topography for surface winds. + ua_phys = .false. ! Option to activate UA Noah changes: a different snow-cover physics in Noah, aimed particularly toward improving treatment of snow as it relates to the vegetation canopy. Also uses new columns added in VEGPARM.TBL - do_radar_ref = 0, ; 1 = allows radar reflectivity to be computed using mp-scheme-specific + do_radar_ref = 0, ! 1 = allows radar reflectivity to be computed using mp-scheme-specific parameters. Currently works for mp_physics = 2,4,6,7,8,10,14,16,28 - hailcast_opt (max_dom) = 0, ; 1 = 1-D hail growth model which predicts 1st-5th rank-ordered hail diameters, mean hail + hailcast_opt (max_dom) = 0, ! 1 = 1-D hail growth model which predicts 1st-5th rank-ordered hail diameters, mean hail diameter and standard deviation of hail diameter. (Adams-Selin and Ziegler, MWR Dec 2016.) Updated in V3.9, replacing afwa_hailcast_opt in previous versions. - haildt (max_dom) = 0., ; seconds between WRF-HAILCAST calls (s) + haildt (max_dom) = 0., ! seconds between WRF-HAILCAST calls (s) Namelist variables for lake module: - sf_lake_physics(max_dom) = 1, ; lake model on/off - lakedepth_default(max_dom) = 50, ; default lake depth (If there is no lake_depth information in the input data, then lake depth + sf_lake_physics(max_dom) = 1, ! lake model on/off + lakedepth_default(max_dom) = 50, ! default lake depth (If there is no lake_depth information in the input data, then lake depth is assumed to be 50m) - lake_min_elev(max_dom) = 5, ; minimum elevation of lakes. May be used to determine whether a water point is a lake in the absence of lake + lake_min_elev(max_dom) = 5, ! minimum elevation of lakes. May be used to determine whether a water point is a lake in the absence of lake category. If the landuse type includes 'lake' (i.e. Modis_lake and USGS_LAKE), this variable is of no effects. - use_lakedepth (max_dom) = 1, ; option to use lake depth data. Lake depth data is available from 3.6 geogrid program. If one didn't process + use_lakedepth (max_dom) = 1, ! option to use lake depth data. Lake depth data is available from 3.6 geogrid program. If one didn't process the lake depth data, but this switch is set to 1, the program will stop and tell one to go back to geogrid program. = 0, do not use lake depth data. - lightning_option (max_dom) ; Lightning parameterization option to allow flash rate prediction without chemistry - = 0 ; off - = 1 ; PR92 based on maximum w, redistributes flashes within dBZ > 20 (for convection resolved runs; must also use + lightning_option (max_dom) Lightning parameterization option to allow flash rate prediction without chemistry + = 0 ! off + = 1 ! PR92 based on maximum w, redistributes flashes within dBZ > 20 (for convection resolved runs; must also use do_radar_ref = 1, and mp_physics = 2,4,6,7,8,10,14, or 16) - = 2 ; PR92 based on 20 dBZ top, redistributes flashes within dBZ > 20 (for convection resolved runs; must also use + = 2 ! PR92 based on 20 dBZ top, redistributes flashes within dBZ > 20 (for convection resolved runs; must also use do_radar_ref = 1, and mp_physics = 2,4,6,7,8,10,14, or 16) - = 3 ; Predicting the potential for lightning activity (based on Yair et al, 2010, J. Geophys. Res., 115, D04205, doi:10.1029/2008JD010868) - = 11 ; PR92 based on level of neutral buoyancy from convective parameterization (for scales + = 3 ! Predicting the potential for lightning activity (based on Yair et al, 2010, J. Geophys. Res., 115, D04205, doi:10.1029/2008JD010868) + = 11 ! PR92 based on level of neutral buoyancy from convective parameterization (for scales where a CPS is used, intended for use at 10 < dx < 50 km; must also use cu_physics = 5 or 93) - lightning_dt (max_dom) = 0. ; time interval (seconds) for calling lightning parameterization. Default uses model time step - lightning_start_seconds (max_dom) = 0. ; Start time for calling lightning parameterization. Recommends at least 10 minutes for spin-up. - flashrate_factor (max_dom) = 1.0 ; Factor to adjust the predicted number of flashes. Recommends 1.0 for lightning_option = 11 + lightning_dt (max_dom) = 0. ! time interval (seconds) for calling lightning parameterization. Default uses model time step + lightning_start_seconds (max_dom) = 0. ! Start time for calling lightning parameterization. Recommends at least 10 minutes for spin-up. + flashrate_factor (max_dom) = 1.0 ! Factor to adjust the predicted number of flashes. Recommends 1.0 for lightning_option = 11 between dx=10 and 50 km. Manual tuning recommended for all other options independently for each nest. - cellcount_method (max_dom) ; Method for counting storm cells. Used by CRM options (lightning_options=1,2). - = 0, ; model determines method used - = 1, ; tile-wide, appropriate for large domains - = 2, ; domain-wide, appropriate for sing-storm domains - cldtop_adjustment (max_dom) = 0. ; Adjustment from LNB in km. Used by lightning_option=11. Default is 0, but recommends 2 km - iccg_method (max_dom) ; IC:CG partitioning method (IC: intra-cloud; CG: cloud-to-ground) - = 0 ; Default method depending on lightning option, currently all options use iccg_method=2 by default - = 1 ; Constant everywhere, set with namelist options iccg_prescribed (num|den)#, default is 0./1. (all CG). - = 2 ; Coarsely prescribed 1995-1999 NLDN/OTD climatology based on Boccippio et al. (2001) - = 3 ; Parameterization by Price and Rind (1993) based on cold-cloud depth - = 4 ; Gridded input via arrays iccg_in_(num|den) from wrfinput for monthly mapped ratios. + cellcount_method (max_dom) Method for counting storm cells. Used by CRM options (lightning_options=1,2). + = 0, ! model determines method used + = 1, ! tile-wide, appropriate for large domains + = 2, ! domain-wide, appropriate for sing-storm domains + cldtop_adjustment (max_dom) = 0. ! Adjustment from LNB in km. Used by lightning_option=11. Default is 0, but recommends 2 km + iccg_method (max_dom) IC:CG partitioning method (IC: intra-cloud; CG: cloud-to-ground) + = 0 ! Default method depending on lightning option, currently all options use iccg_method=2 by default + = 1 ! Constant everywhere, set with namelist options iccg_prescribed (num|den)#, default is 0./1. (all CG). + = 2 ! Coarsely prescribed 1995-1999 NLDN/OTD climatology based on Boccippio et al. (2001) + = 3 ! Parameterization by Price and Rind (1993) based on cold-cloud depth + = 4 ! Gridded input via arrays iccg_in_(num|den) from wrfinput for monthly mapped ratios. Points with 0/0 values use ratio defined by iccg_prescribed_(num|den) - iccg_prescribed_num (max_dom) = 0. ; Numerator of user-specified prescribed IC:CG - iccg_prescribed_den (max_dom) = 1. ; Denominator of user-specified prescribed IC:CG + iccg_prescribed_num (max_dom) = 0. ! Numerator of user-specified prescribed IC:CG + iccg_prescribed_den (max_dom) = 1. ! Denominator of user-specified prescribed IC:CG Options for wind turbine drag parameterization: - windfarm_opt (max_dom) = 0 ; 1 = Simulates the effects of wind turbines in the atmospheric evolution - windfarm_ij = 0 ; whether to use lat-lon or i-j coordinate as wind turbine locations - ; 0 = The coordinate of the turbines are defined in terms of lat-lon - ; 1 = The coordinate of the turbines are defined in terms of grid points + windfarm_opt (max_dom) = 0 ! 1 = Simulates the effects of wind turbines in the atmospheric evolution + windfarm_ij = 0 ! whether to use lat-lon or i-j coordinate as wind turbine locations + ! 0 = The coordinate of the turbines are defined in terms of lat-lon + ! 1 = The coordinate of the turbines are defined in terms of grid points Stochastic parameterization schemes: &stoch ; Random perturbation field (rand_perturb=1) - rand_perturb (max_dom) = 1 ; Generate array with random perturbations for user-determined use, 1: on - gridpt_stddev_rand_pert (max_dom) = 0.03 ; Standard deviation of random perturbation field at each gridpoint. - ; Determines amplitude of random perturbations - lengthscale_rand_pert (max_dom) = 500000.0 ; Perturbation lengthscale (in m). - timescale_rand_pert (max_dom) = 21600.0 ; Temporal decorrelation of random field (in s). - stddev_cutoff_rand_pert (max_dom) = 3.0 ; Cutoff tails of perturbation pattern above this threshold standard deviation. - rand_pert_vertstruc = 0 ; Vertical structure for random perturbation field: 0=constant; 1=random phase with tilt - iseed_rand_pert ; Seed for random number stream for rand_perturb. Will be - ; combined with seed nens signifying ensemble member number and initial - ; start time to ensure different random number streams for forecasts - ; starting from different initial times and for different ensemble members. + rand_perturb (max_dom) = 1 ! Generate array with random perturbations for user-determined use, 1: on + gridpt_stddev_rand_pert (max_dom) = 0.03 ! Standard deviation of random perturbation field at each gridpoint. + Determines amplitude of random perturbations + lengthscale_rand_pert (max_dom) = 500000.0 ! Perturbation lengthscale (in m). + timescale_rand_pert (max_dom) = 21600.0 ! Temporal decorrelation of random field (in s). + stddev_cutoff_rand_pert (max_dom) = 3.0 ! Cutoff tails of perturbation pattern above this threshold standard deviation. + rand_pert_vertstruc = 0 ! Vertical structure for random perturbation field: 0=constant; 1=random phase with tilt + iseed_rand_pert Seed for random number stream for rand_perturb. Will be + combined with seed nens signifying ensemble member number and initial + start time to ensure different random number streams for forecasts + starting from different initial times and for different ensemble members. ; Stochastically perturbed physics tendencies (SPPT) (sppt=1) - sppt (max_dom) = 0 ; Stochastically perturbed physics tendencies (SPPT), 0: off, 1: on - gridpt_stddev_sppt (max_dom) = 0.5 ; Standard deviation of random perturbation field at each gridpoint. - ; Determines amplitude of random perturbations - lengthscale_sppt (max_dom) = 150000.0 ; Perturbation lengthscale (in m). - timescale_sppt (max_dom) = 21600.0 ; Temporal decorrelation of random field (in s). - stddev_cutoff_sppt (max_dom) = 2.0 ; Cutoff tails of perturbation pattern above this threshold standard deviation. - iseed_sppt ; Seed for random number stream for sppt. Will be - ; combined with seed nens signifying ensemble member number and initial - ; start time to ensure different random number streams for forecasts - ; starting from different initial times and for different ensemble members. + sppt (max_dom) = 0 ! Stochastically perturbed physics tendencies (SPPT), 0: off, 1: on + gridpt_stddev_sppt (max_dom) = 0.5 ! Standard deviation of random perturbation field at each gridpoint. + Determines amplitude of random perturbations + lengthscale_sppt (max_dom) = 150000.0 ! Perturbation lengthscale (in m). + timescale_sppt (max_dom) = 21600.0 ! Temporal decorrelation of random field (in s). + stddev_cutoff_sppt (max_dom) = 2.0 ! Cutoff tails of perturbation pattern above this threshold standard deviation. + iseed_sppt Seed for random number stream for sppt. Will be + combined with seed nens signifying ensemble member number and initial + start time to ensure different random number streams for forecasts + starting from different initial times and for different ensemble members. ; Stochastic kinetic-energy backscatter scheme (SKEBS)(skebs=1): - skebs (max_dom) = 0 ; stochastic kinetic-energy backscatter scheme, 0: off, 1: on - tot_backscat_psi (max_dom) = 1.0E-05 ; Controls amplitude of rotational wind perturbations - tot_backscat_t (max_dom) = 1.0E-06 ; Controls amplitude of potential temperature perturbations - ztau_psi = 10800.0 ; decorr. time of noise for psi perturb - ztau_t = 10800.0 ; decorr. time of noise for theta perturb - rexponent_psi = -1.83 ; spectral slope of forcing for psi - rexponent_t = -1.83 ; spectral slope of forcing for theta - zsigma2_eps = 0.0833 ; variance of noise for psi perturb - zsigma2_eta = 0.0833 ; variance of noise for theta perturb - kminforc = 1 ; min. forcing wavenumber in lon. for psi perturb - lminforc = 1 ; min. forcing wavenumber in lat. for psi perturb - kminforct = 1 ; min. forcing wavenumber in lon. for theta perturb - lminforct = 1 ; min. forcing wavenumber in lat. for theta perturb - kmaxforc = 1000000 ; max. forcing wavenumber in lon. for psi perturb - lmaxforc = 1000000 ; max. forcing wavenumber in lat. for psi perturb - kmaxforct = 1000000 ; max. forcing wavenumber in lon. for theta perturb - lmaxforct = 1000000 ; max. forcing wavenumber in lat. for theta perturb - skebs_vertstruc = 0 ; Vertical structure for random perturbation field: 0=constant; 1=random phase with tilt + skebs (max_dom) = 0 ! stochastic kinetic-energy backscatter scheme, 0: off, 1: on + tot_backscat_psi (max_dom) = 1.0E-05 ! Controls amplitude of rotational wind perturbations + tot_backscat_t (max_dom) = 1.0E-06 ! Controls amplitude of potential temperature perturbations + ztau_psi = 10800.0 ! decorr. time of noise for psi perturb + ztau_t = 10800.0 ! decorr. time of noise for theta perturb + rexponent_psi = -1.83 ! spectral slope of forcing for psi + rexponent_t = -1.83 ! spectral slope of forcing for theta + zsigma2_eps = 0.0833 ! variance of noise for psi perturb + zsigma2_eta = 0.0833 ! variance of noise for theta perturb + kminforc = 1 ! min. forcing wavenumber in lon. for psi perturb + lminforc = 1 ! min. forcing wavenumber in lat. for psi perturb + kminforct = 1 ! min. forcing wavenumber in lon. for theta perturb + lminforct = 1 ! min. forcing wavenumber in lat. for theta perturb + kmaxforc = 1000000 ! max. forcing wavenumber in lon. for psi perturb + lmaxforc = 1000000 ! max. forcing wavenumber in lat. for psi perturb + kmaxforct = 1000000 ! max. forcing wavenumber in lon. for theta perturb + lmaxforct = 1000000 ! max. forcing wavenumber in lat. for theta perturb + skebs_vertstruc = 0 ! Vertical structure for random perturbation field: 0=constant; 1=random phase with tilt Stochastically perturbed parameter scheme (SPP) (spp=1) - sppt (max_dom) = 0 ; Stochastically perturbed parameter (SPP) scheme for + sppt (max_dom) = 0 ! Stochastically perturbed parameter (SPP) scheme for ; GF convection scheme, MYNN boundary layer scheme and RUC LSM. 0: off, 1: on - spp_conv (max_dom) = 0 ; Perturb parameters of GF convection scheme only - gridpt_stddev_spp_conv (max_dom) = 0.3 ; Standard deviation of random perturbation field at each gridpoint. + spp_conv (max_dom) = 0 ! Perturb parameters of GF convection scheme only + gridpt_stddev_spp_conv (max_dom) = 0.3 ! Standard deviation of random perturbation field at each gridpoint. + Determines amplitude of random perturbations + lengthscale_spp_conv (max_dom) = 150000.0 ! Perturbation lengthscale (in m). + timescale_spp_conv (max_dom) = 21600.0 ! Temporal decorrelation of random field (in s). + stddev_cutoff_spp_conv (max_dom) = 3.0 ! Cutoff tails of perturbation pattern above this threshold standard deviation. + iseed_spp_conv Seed for random number stream for spp_conv. Will be + combined with seed nens signifying ensemble member number and initial + start time to ensure different random number streams for forecasts + starting from different initial times and for different ensemble members. + spp_pbl (max_dom) = 0 ! Perturb parameters of MYNN PBL scheme only + gridpt_stddev_spp_pbl (max_dom) = 0.15 ! Standard deviation of random perturbation field at each gridpoint. + Determines amplitude of random perturbations + lengthscale_spp_pbl (max_dom) = 70000.0 ! Perturbation lengthscale (in m). + timescale_spp_pbl (max_dom) = 21600.0 ! Temporal decorrelation of random field (in s). + stddev_cutoff_spp_pbl (max_dom) = 2.0 ! Cutoff tails of perturbation pattern above this threshold standard deviation. + iseed_spp_pbl Seed for random number stream for spp_pbl . Will be + combined with seed nens signifying ensemble member number and initial + start time to ensure different random number streams for forecasts + starting from different initial times and for different ensemble members. + spp_lsm (max_dom) = 0 ! Perturb parameters of RUC LSM + gridpt_stddev_spp_lsm (max_dom) = 0.3 ! Standard deviation of random perturbation field at each gridpoint. ; Determines amplitude of random perturbations - lengthscale_spp_conv (max_dom) = 150000.0 ; Perturbation lengthscale (in m). - timescale_spp_conv (max_dom) = 21600.0 ; Temporal decorrelation of random field (in s). - stddev_cutoff_spp_conv (max_dom) = 3.0 ; Cutoff tails of perturbation pattern above this threshold standard deviation. - iseed_spp_conv ; Seed for random number stream for spp_conv. Will be - ; combined with seed nens signifying ensemble member number and initial - ; start time to ensure different random number streams for forecasts - ; starting from different initial times and for different ensemble members. - spp_pbl (max_dom) = 0 ; Perturb parameters of MYNN PBL scheme only - gridpt_stddev_spp_pbl (max_dom) = 0.15 ; Standard deviation of random perturbation field at each gridpoint. - ; Determines amplitude of random perturbations - lengthscale_spp_pbl (max_dom) = 70000.0 ; Perturbation lengthscale (in m). - timescale_spp_pbl (max_dom) = 21600.0 ; Temporal decorrelation of random field (in s). - stddev_cutoff_spp_pbl (max_dom) = 2.0 ; Cutoff tails of perturbation pattern above this threshold standard deviation. - iseed_spp_pbl ; Seed for random number stream for spp_pbl . Will be - ; combined with seed nens signifying ensemble member number and initial - ; start time to ensure different random number streams for forecasts - ; starting from different initial times and for different ensemble members. - spp_lsm (max_dom) = 0 ; Perturb parameters of RUC LSM - gridpt_stddev_spp_lsm (max_dom) = 0.3 ; Standard deviation of random perturbation field at each gridpoint. - ; Determines amplitude of random perturbations - lengthscale_spp_lsm (max_dom) = 50000.0 ; Perturbation lengthscale (in m). - timescale_spp_lsm (max_dom) = 86400.0 ; Temporal decorrelation of random field (in s). - stddev_cutoff_spp_lsm (max_dom) = 3.0 ; Cutoff tails of perturbation pattern above this threshold standard deviation. - iseed_spp_lsm ; Seed for random number stream for spp_lsm . Will be - ; combined with seed nens signifying ensemble member number and initial - ; start time to ensure different random number streams for forecasts - ; starting from different initial times and for different ensemble members. + lengthscale_spp_lsm (max_dom) = 50000.0 ! Perturbation lengthscale (in m). + timescale_spp_lsm (max_dom) = 86400.0 ! Temporal decorrelation of random field (in s). + stddev_cutoff_spp_lsm (max_dom) = 3.0 ! Cutoff tails of perturbation pattern above this threshold standard deviation. + iseed_spp_lsm Seed for random number stream for spp_lsm . Will be + combined with seed nens signifying ensemble member number and initial + start time to ensure different random number streams for forecasts + starting from different initial times and for different ensemble members. ; Stochastic Perturbations to the boundary conditions?| (perturb_bdy) - perturb_bdy = 0 ; No boundary perturbations - 1 ; Use SKEBS pattern for boundary perturbations - 2 ; Use other user-provided pattern for boundary perturbations + perturb_bdy = 0 ! No boundary perturbations + 1 Use SKEBS pattern for boundary perturbations + 2 Use other user-provided pattern for boundary perturbations ; Stochastic perturbations to the boundary tendencies in WRF-CHEM (perturb_chem_bdy) - perturb_chem_bdy ; Options for perturbing lateral boundaries of chemical tracers: - ; 0 = off; 1 = on with RAND_PERTURB pattern + perturb_chem_bdy Options for perturbing lateral boundaries of chemical tracers: + 0 = off; 1 = on with RAND_PERTURB pattern ; Common to all stochastic schemes - nens =1 ; Seed for random number stream. For ensemble forecasts this parameter needs to be - ; different for each member. The seed is a function of initial start time - ; to ensure different random number streams for forecasts starting from - ; different initial times. Changing this seed changes the random number - ; streams for all activated stochastic parameterization schemes. + nens =1 ! Seed for random number stream. For ensemble forecasts this parameter needs to be + different for each member. The seed is a function of initial start time + to ensure different random number streams for forecasts starting from + different initial times. Changing this seed changes the random number + streams for all activated stochastic parameterization schemes. Options for use with the Noah-MP Land Surface Model: &noah_mp - dveg = 4, ; Noah-MP Dynamic Vegetation option: - ; 1 = Off (LAI from table; FVEG = shdfac) - ; 2 = On (LAI predicted; FVEG calculated) - ; 3 = Off (LAI from table; FVEG calculated) - ; 4 = Off (LAI from table; FVEG = maximum veg. fraction) - ; 5 = On (LAI predicted; FVEG = maximum veg. fraction) - ; 6 = On (use FVEG = SHDFAC from input) - ; 7 = Off (use input LAI; use FVEG = SHDFAC from input) - ; 8 = Off (use input LAI; calculate FVEG) - ; 9 = Off (use input LAI; use maximum vegetation fraction) - opt_crs = 1, ; Noah-MP Stomatal Resistance option: - ; 1 = Ball-Berry - ; 2 = Jarvis - opt_sfc = 1 ; Noah-MP surface layer drag coefficient calculation - ; 1 = Monin-Obukhov - ; 2 = original Noah (Chen97) - opt_btr = 1, ; Noah-MP Soil Moisture Factor for Stomatal Resistance - ; 1 = Noah - ; 2 = CLM - ; 3 = SSiB - opt_run = 3, ; Noah-MP Runoff and Groundwater option - ; 1 = TOPMODEL with groundwater - ; 2 = TOPMODEL with equilibrium water table - ; 3 = original surface and subsurface runoff (free drainage) - default - ; 4 = BATS surface and subsurface runoff (free drainage) - ; 5 = Miguez-Macho & Fan groundwater scheme (Miguez-Macho et al. 2007 JGR; Fan et al. 2007 JGR) - ; geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution - opt_frz = 1, ; Noah-MP Supercooled Liquid Water option - ; 1 = No iteration - ; 2 = Koren's iteration - opt_inf = 1, ; Noah-MP Soil Permeability option - ; 1 = Linear effects, more permeable - ; 2 = Non-linear effects, less permeable - opt_rad = 3, ; Noah-MP Radiative Transfer option - ; 1 = Modified two-stream (known to cause problems when vegetation fraction is small) - ; 2 = Two-stream applied to grid-cell - ; 3 = Two-stream applied to vegetated fraction - opt_alb = 2, ; Noah-MP Ground Surface Albedo option - ; 1 = BATS - ; 2 = CLASS - opt_snf = 1, ; Noah-MP Precipitation Partitioning between snow and rain - ; 1 = Jordan (1991) - ; 2 = BATS: Snow when SFCTMP < TFRZ+2.2 - ; 3 = Snow when SFCTMP < TFRZ - ; 4 = Use WRF precipitation partitioning - opt_tbot = 2, ; Noah-MP Soil Temperature Lower Boundary Condition - ; 1 = Zero heat flux - ; 2 = TBOT at 8 m from input file - opt_stc = 1, ; Noah-MP Snow/Soil temperature time scheme - ; 1 = semi-implicit - ; 2 = full-implicit - ; 3 = semi-implicit where Ts uses snow cover fraction - opt_gla = 1, ; Noah-MP glacier treatment option (new in 3.8) - ; 1 = includes phase change - ; 2 = slab ice (Noah) - opt_rsf = 1, ; Noah-MP surface evaporation resistance option (new in 3.8) - ; 1 -> Sakaguchi and Zeng, 2009 - ; 2 -> Sellers (1992) - ; 3 -> adjusted Sellers to decrease RSURF for wet soil - ; 4 -> option 1 for non-snow; rsurf = rsurf_snow for snow (set in MPTABLE) - opt_soil = 1, ; Noah-MP options for defining soil properties - ; geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution - ; 1 -> use input dominant soil texture - ; 2 -> use input soil texture that varies with depth - ; 3 -> use soil composition (sand, clay, orgm) and pedotransfer functions (OPT_PEDO) - ; 4 -> use input soil properties (BEXP_3D, SMCMAX_3D, etc.) (not valid in WRF) - opt_pedo = 1, ; Noah-MP options for pedotransfer functions (used when OPT_SOIL = 3) - ; geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution - ; 1 -> Saxton and Rawls (2006) - opt_crop = 0, ; options for crop model - ; geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution - ; 0 -> No crop model, will run default dynamic vegetation - ; 1 -> Liu, et al. 2016 - ; 2 -> Gecros (Genotype-by-Environment interaction on CROp growth Simulator) Yin and van Laar, 2005 + dveg = 4, ! Noah-MP Dynamic Vegetation option: + 1 = Off (LAI from table; FVEG = shdfac) + 2 = On (LAI predicted; FVEG calculated) + 3 = Off (LAI from table; FVEG calculated) + 4 = Off (LAI from table; FVEG = maximum veg. fraction) + 5 = On (LAI predicted; FVEG = maximum veg. fraction) + 6 = On (use FVEG = SHDFAC from input) + 7 = Off (use input LAI; use FVEG = SHDFAC from input) + 8 = Off (use input LAI; calculate FVEG) + 9 = Off (use input LAI; use maximum vegetation fraction) + opt_crs = 1, ! Noah-MP Stomatal Resistance option: + 1 = Ball-Berry + 2 = Jarvis + opt_sfc = 1 ! Noah-MP surface layer drag coefficient calculation + 1 = Monin-Obukhov + 2 = original Noah (Chen97) + opt_btr = 1, ! Noah-MP Soil Moisture Factor for Stomatal Resistance + 1 = Noah + 2 = CLM + 3 = SSiB + opt_run = 3, ! Noah-MP Runoff and Groundwater option + 1 = TOPMODEL with groundwater + 2 = TOPMODEL with equilibrium water table + 3 = original surface and subsurface runoff (free drainage) - default + 4 = BATS surface and subsurface runoff (free drainage) + 5 = Miguez-Macho & Fan groundwater scheme (Miguez-Macho et al. 2007 JGR; Fan et al. 2007 JGR) + geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution + opt_frz = 1, ! Noah-MP Supercooled Liquid Water option + 1 = No iteration + 2 = Koren's iteration + opt_inf = 1, ! Noah-MP Soil Permeability option + 1 = Linear effects, more permeable + 2 = Non-linear effects, less permeable + opt_rad = 3, ! Noah-MP Radiative Transfer option + 1 = Modified two-stream (known to cause problems when vegetation fraction is small) + 2 = Two-stream applied to grid-cell + 3 = Two-stream applied to vegetated fraction + opt_alb = 2, ! Noah-MP Ground Surface Albedo option + 1 = BATS + 2 = CLASS + opt_snf = 1, ! Noah-MP Precipitation Partitioning between snow and rain + 1 = Jordan (1991) + 2 = BATS: Snow when SFCTMP < TFRZ+2.2 + 3 = Snow when SFCTMP < TFRZ + 4 = Use WRF precipitation partitioning + opt_tbot = 2, ! Noah-MP Soil Temperature Lower Boundary Condition + 1 = Zero heat flux + 2 = TBOT at 8 m from input file + opt_stc = 1, ! Noah-MP Snow/Soil temperature time scheme + 1 = semi-implicit + 2 = full-implicit + 3 = semi-implicit where Ts uses snow cover fraction + opt_gla = 1, ! Noah-MP glacier treatment option (new in 3.8) + 1 = includes phase change + 2 = slab ice (Noah) + opt_rsf = 1, ! Noah-MP surface evaporation resistance option (new in 3.8) + 1 -> Sakaguchi and Zeng, 2009 + 2 -> Sellers (1992) + 3 -> adjusted Sellers to decrease RSURF for wet soil + 4 -> option 1 for non-snow; rsurf = rsurf_snow for snow (set in MPTABLE) + opt_soil = 1, ! Noah-MP options for defining soil properties + geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution + 1 -> use input dominant soil texture + 2 -> use input soil texture that varies with depth + 3 -> use soil composition (sand, clay, orgm) and pedotransfer functions (OPT_PEDO) + 4 -> use input soil properties (BEXP_3D, SMCMAX_3D, etc.) (not valid in WRF) + opt_pedo = 1, ! Noah-MP options for pedotransfer functions (used when OPT_SOIL = 3) + geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution + 1 -> Saxton and Rawls (2006) + opt_crop = 0, ! options for crop model + geogrid must have been run with GEOGRID.TBL.ARW.noahmp, use with caution + 0 -> No crop model, will run default dynamic vegetation + 1 -> Liu, et al. 2016 + 2 -> Gecros (Genotype-by-Environment interaction on CROp growth Simulator) Yin and van Laar, 2005 / &fdda - grid_fdda (max_dom) = 1 ; grid-nudging fdda on (=0 off) for each domain - = 2 ; spectral nudging - gfdda_inname = "wrffdda_d" ; defined name in real - gfdda_interval_m (max_dom) = 360 ; time interval (in min) between analysis times (must use minutes) - gfdda_end_h (max_dom) = 6 ; time (in hours) to stop nudging after start of forecast - io_form_gfdda = 2 ; analysis data io format (2 = netCDF) - fgdt (max_dom) = 0 ; calculation frequency (minutes) for grid-nudging (0=every step) - if_no_pbl_nudging_uv (max_dom) = 0 ; 1= no nudging of u and v in the pbl, 0=nudging in the pbl - if_no_pbl_nudging_t (max_dom) = 0 ; 1= no nudging of temp in the pbl, 0=nudging in the pbl - if_no_pbl_nudging_q (max_dom) = 0 ; 1= no nudging of qvapor in the pbl, 0=nudging in the pbl - if_zfac_uv (max_dom) = 0 ; 0= nudge u and v in all layers, 1= limit nudging to levels above k_zfac_uv - k_zfac_uv (max_dom) = 10 ; 10=model level below which nudging is switched off for u and v - if_zfac_t (max_dom) = 0 ; 0= nudge temp in all layers, 1= limit nudging to levels above k_zfac_t - k_zfac_t (max_dom) = 10 ; 10=model level below which nudging is switched off for temp - if_zfac_q (max_dom) = 0 ; 0= nudge qvapor in all layers, 1= limit nudging to levels above k_zfac_q - k_zfac_q (max_dom) = 10 ; 10=model level below which nudging is switched off for qvapor - guv (max_dom) = 0.0003 ; nudging coefficient for u and v (sec-1) - gt (max_dom) = 0.0003 ; nudging coefficient for temp (sec-1) - gq (max_dom) = 0.00001 ; nudging coefficient for qvapor (sec-1) - if_ramping = 0 ; 0= nudging ends as a step function, 1= ramping nudging down at end of period - dtramp_min = 0 ; time (min) for ramping function - grid_sfdda (max_dom) = 0 ; surface fdda switch + grid_fdda (max_dom) = 1 ! grid-nudging fdda on (=0 off) for each domain + = 2 ! spectral nudging + gfdda_inname = "wrffdda_d" ! defined name in real + gfdda_interval_m (max_dom) = 360 ! time interval (in min) between analysis times (must use minutes) + gfdda_end_h (max_dom) = 6 ! time (in hours) to stop nudging after start of forecast + io_form_gfdda = 2 ! analysis data io format (2 = netCDF) + fgdt (max_dom) = 0 ! calculation frequency (minutes) for grid-nudging (0=every step) + if_no_pbl_nudging_uv (max_dom) = 0 ! 1= no nudging of u and v in the pbl, 0=nudging in the pbl + if_no_pbl_nudging_t (max_dom) = 0 ! 1= no nudging of temp in the pbl, 0=nudging in the pbl + if_no_pbl_nudging_q (max_dom) = 0 ! 1= no nudging of qvapor in the pbl, 0=nudging in the pbl + if_zfac_uv (max_dom) = 0 ! 0= nudge u and v in all layers, 1= limit nudging to levels above k_zfac_uv + k_zfac_uv (max_dom) = 10 ! 10=model level below which nudging is switched off for u and v + if_zfac_t (max_dom) = 0 ! 0= nudge temp in all layers, 1= limit nudging to levels above k_zfac_t + k_zfac_t (max_dom) = 10 ! 10=model level below which nudging is switched off for temp + if_zfac_q (max_dom) = 0 ! 0= nudge qvapor in all layers, 1= limit nudging to levels above k_zfac_q + k_zfac_q (max_dom) = 10 ! 10=model level below which nudging is switched off for qvapor + guv (max_dom) = 0.0003 ! nudging coefficient for u and v (sec-1) + gt (max_dom) = 0.0003 ! nudging coefficient for temp (sec-1) + gq (max_dom) = 0.00001 ! nudging coefficient for qvapor (sec-1) + if_ramping = 0 ! 0= nudging ends as a step function, 1= ramping nudging down at end of period + dtramp_min = 0 ! time (min) for ramping function + grid_sfdda (max_dom) = 0 ! surface fdda switch 0: off; 1: nudging selected surface fields; 2: FASDAS (flux-adjusting surface data assimilation system) - sgfdda_inname = "wrfsfdda_d" ; defined name for sfc nudgingi in input file (from program obsgrid) - sgfdda_end_h (max_dom) = 6 ; time (in hours) to stop sfc nudging after start of forecast - sgfdda_interval_m (max_dom) = 180 ; time interval (in min) between sfc analysis times (must use minutes) - io_form_sgfdda = 2 ; sfc analysis data io format (2 = netCDF) - guv_sfc (max_dom) = 0.0003 ; nudging coefficient for sfc u and v (sec-1) - gt_sfc (max_dom) = 0.0003 ; nudging coefficient for sfc temp (sec-1) - gq_sfc (max_dom) = 0.00001 ; nudging coefficient for sfc qvapor (sec-1) - rinblw (max_dom) = 0. ; radius of influence used to determine the confidence (or weights) for + sgfdda_inname = "wrfsfdda_d" ! defined name for sfc nudgingi in input file (from program obsgrid) + sgfdda_end_h (max_dom) = 6 ! time (in hours) to stop sfc nudging after start of forecast + sgfdda_interval_m (max_dom) = 180 ! time interval (in min) between sfc analysis times (must use minutes) + io_form_sgfdda = 2 ! sfc analysis data io format (2 = netCDF) + guv_sfc (max_dom) = 0.0003 ! nudging coefficient for sfc u and v (sec-1) + gt_sfc (max_dom) = 0.0003 ! nudging coefficient for sfc temp (sec-1) + gq_sfc (max_dom) = 0.00001 ! nudging coefficient for sfc qvapor (sec-1) + rinblw (max_dom) = 0. ! radius of influence used to determine the confidence (or weights) for the analysis, which is based on the distance between the grid point to the nearest obs. The analysis without nearby observation is used at a reduced weight. - pxlsm_soil_nudge(max_dom) = 1 ; PXLSM Soil nudging option (requires wrfsfdda file) + pxlsm_soil_nudge(max_dom) = 1 ! PXLSM Soil nudging option (requires wrfsfdda file) The following are for spectral nudging: - fgdtzero (max_dom) = 0, ; 1= nudging tendencies are set to zero in between fdda calls - if_no_pbl_nudging_uv (max_dom) = 0, ; 1= no nudging of uv in the pbl, 0= nudging in the pbl - if_no_pbl_nudging_t (max_dom) = 0, ; 1= no nudging of t in the pbl, 0= nudging in the pbl - if_no_pbl_nudging_ph (max_dom) = 0, ; 1= no nudging of ph in the pbl, 0= nudging in the pbl - if_no_pbl_nudging_q (max_dom) = 0, ; 1= no nudging of q in the pbl, 0= nudging in the pbl - if_zfac_uv (max_dom) = 0, ; 0= nudge uv in all layers, 1= limit nudging to levels above k_zfac_uv - k_zfac_uv (max_dom) = 0, ; 0= model level below which nudging is switched off for uv - dk_zfac_uv (max_dom) = 1, ; depth in k between k_zfac_X to dk_zfac_X where nudging increases - linearly to full strength - if_zfac_t (max_dom) = 0, ; 0= nudge t in all layers, 1= limit nudging to levels above k_zfac_t - k_zfac_t (max_dom) = 0, ; 0= model level below which nudging is switched off for t - dk_zfac_t (max_dom) = 1, ; depth in k between k_zfac_X to dk_zfac_X where nudging increases + fgdtzero (max_dom) = 0, ! 1= nudging tendencies are set to zero in between fdda calls + if_no_pbl_nudging_uv (max_dom) = 0, ! 1= no nudging of uv in the pbl, 0= nudging in the pbl + if_no_pbl_nudging_t (max_dom) = 0, ! 1= no nudging of t in the pbl, 0= nudging in the pbl + if_no_pbl_nudging_ph (max_dom) = 0, ! 1= no nudging of ph in the pbl, 0= nudging in the pbl + if_no_pbl_nudging_q (max_dom) = 0, ! 1= no nudging of q in the pbl, 0= nudging in the pbl + if_zfac_uv (max_dom) = 0, ! 0= nudge uv in all layers, 1= limit nudging to levels above k_zfac_uv + k_zfac_uv (max_dom) = 0, ! 0= model level below which nudging is switched off for uv + dk_zfac_uv (max_dom) = 1, ! depth in k between k_zfac_X to dk_zfac_X where nudging increases + ; linearly to full strength + if_zfac_t (max_dom) = 0, ! 0= nudge t in all layers, 1= limit nudging to levels above k_zfac_t + k_zfac_t (max_dom) = 0, ! 0= model level below which nudging is switched off for t + dk_zfac_t (max_dom) = 1, ! depth in k between k_zfac_X to dk_zfac_X where nudging increases linearly to full strength - if_zfac_ph (max_dom) = 0, ; 0= nudge ph in all layers, 1= limit nudging to levels above k_zfac_ph - k_zfac_ph (max_dom) = 0, ; 0= model level below which nudging is switched off for ph - dk_zfac_ph (max_dom) = 1, ; depth in k between k_zfac_X to dk_zfac_X where nudging increases + if_zfac_ph (max_dom) = 0, ! 0= nudge ph in all layers, 1= limit nudging to levels above k_zfac_ph + k_zfac_ph (max_dom) = 0, ! 0= model level below which nudging is switched off for ph + dk_zfac_ph (max_dom) = 1, ! depth in k between k_zfac_X to dk_zfac_X where nudging increases linearly to full strength - if_zfac_q (max_dom) = 0, ; 0= nudge q in all layers, 1= limit nudging to levels above k_zfac_q - k_zfac_q (max_dom) = 0, ; 0= model level below which nudging is switched off for q - dk_zfac_q (max_dom) = 1, ; depth in k between k_zfac_X to dk_zfac_X where nudging increases + if_zfac_q (max_dom) = 0, ! 0= nudge q in all layers, 1= limit nudging to levels above k_zfac_q + k_zfac_q (max_dom) = 0, ! 0= model level below which nudging is switched off for q + dk_zfac_q (max_dom) = 1, ! depth in k between k_zfac_X to dk_zfac_X where nudging increases gph (max_dom) = 0.0003, - ktrop = 0, ; layer nominally representing tropopause for limiting nudging to q and t + ktrop = 0, ! layer nominally representing tropopause for limiting nudging to q and t ; setting ktrop = 0 allows nudging to extend to the top of the atmosphere - xwavenum (max_dom) = 3, ; top wave number to nudge in x direction - ywavenum (max_dom) = 3, ; top wave number to nudge in y direction + xwavenum (max_dom) = 3, ! top wave number to nudge in x direction + ywavenum (max_dom) = 3, ! top wave number to nudge in y direction The following are for observation nudging: - obs_nudge_opt (max_dom) = 1 ; obs-nudging fdda on (=0 off) for each domain + obs_nudge_opt (max_dom) = 1 ! obs-nudging fdda on (=0 off) for each domain also need to set auxinput11_interval and auxinput11_end_h in time_control namelist - max_obs = 0 ; max number of observations used on a domain during any + max_obs = 0 ! max number of observations used on a domain during any given time window - fdda_start (max_dom) = 0 ; obs nudging start time in minutes - fdda_end (max_dom) = 0 ; obs nudging end time in minutes - obs_nudge_wind (max_dom) = 1 ; whether to nudge wind: (=0 off) - obs_coef_wind (max_dom) = 0, ; nudging coefficient for wind, unit: s-1 - obs_nudge_temp (max_dom) = 0, ; set to = 1 to turn to nudge temperature (default = 0; off) - obs_coef_temp (max_dom) = 0, ; nudging coefficient for temperature, unit: s-1 - obs_nudge_mois (max_dom) = 1 ; whether to nudge water vapor mixing ratio: (=0 off) - obs_coef_mois (max_dom) = 0, ; nudging coefficient for water vapor mixing ratio, unit: s-1 - obs_nudge_pstr (max_dom) = 0 ; whether to nudge surface pressure (not used) - obs_coef_pstr (max_dom) = 0. ; nudging coefficient for surface pressure, unit: s-1 (not used) - obs_rinxy (max_dom) = 0. ; horizonal radius of influence in km - obs_rinsig = 0 ; vertical radius of influence in eta - obs_twindo (max_dom) = 0.66667 ; half-period time window over which an observation + fdda_start (max_dom) = 0 ! obs nudging start time in minutes + fdda_end (max_dom) = 0 ! obs nudging end time in minutes + obs_nudge_wind (max_dom) = 1 ! whether to nudge wind: (=0 off) + obs_coef_wind (max_dom) = 0, ! nudging coefficient for wind, unit: s-1 + obs_nudge_temp (max_dom) = 0, ! set to = 1 to turn to nudge temperature (default = 0; off) + obs_coef_temp (max_dom) = 0, ! nudging coefficient for temperature, unit: s-1 + obs_nudge_mois (max_dom) = 1 ! whether to nudge water vapor mixing ratio: (=0 off) + obs_coef_mois (max_dom) = 0, ! nudging coefficient for water vapor mixing ratio, unit: s-1 + obs_nudge_pstr (max_dom) = 0 ! whether to nudge surface pressure (not used) + obs_coef_pstr (max_dom) = 0. ! nudging coefficient for surface pressure, unit: s-1 (not used) + obs_rinxy (max_dom) = 0. ! horizonal radius of influence in km + obs_rinsig = 0 ! vertical radius of influence in eta + obs_twindo (max_dom) = 0.66667 ! half-period time window over which an observation will be used for nudging (hours) - obs_npfi = 0, ; freq in coarse grid timesteps for diagnostic prints - obs_ionf (max_dom) = 2 ; freq in coarse grid timesteps for obs input and err calc - obs_idynin = 0 ; for dynamic initialization using a ramp-down function to gradually + obs_npfi = 0, ! freq in coarse grid timesteps for diagnostic prints + obs_ionf (max_dom) = 2 ! freq in coarse grid timesteps for obs input and err calc + obs_idynin = 0 ! for dynamic initialization using a ramp-down function to gradually turn off the FDDA before the pure forecast (=1 on) - obs_dtramp = 0 ; time period in minutes over which the nudging is ramped down + obs_dtramp = 0 ! time period in minutes over which the nudging is ramped down from one to zero. - obs_prt_freq (max_dom) = 10, ; Frequency in obs index for diagnostic printout - obs_prt_max = 1000, ; Maximum allowed obs entries in diagnostic printout - obs_ipf_in4dob = .true. ; print obs input diagnostics (=.false. off) - obs_ipf_errob = .true. ; print obs error diagnostics (=.false. off) - obs_ipf_nudob = .true. ; print obs nudge diagnostics (=.false. off) - obs_ipf_init = .true. ; Enable obs init warning messages - - obs_no_pbl_nudge_uv (max_dom) = 0 ; 1=no wind-nudging within pbl - obs_no_pbl_nudge_t (max_dom) = 0 ; 1=no temperature-nudging within pbl - obs_no_pbl_nudge_q (max_dom) = 0 ; 1=no moisture-nudging within pbl - obs_sfc_scheme_horiz = 0 ; horizontal spreading scheme for surf obs; - 0=wrf scheme, 1=original mm5 scheme - obs_sfc_scheme_vert = 0 ; vertical spreading scheme for surf obs + obs_prt_freq (max_dom) = 10, ! Frequency in obs index for diagnostic printout + obs_prt_max = 1000, ! Maximum allowed obs entries in diagnostic printout + obs_ipf_in4dob = .true. ! print obs input diagnostics (=.false. off) + obs_ipf_errob = .true. ! print obs error diagnostics (=.false. off) + obs_ipf_nudob = .true. ! print obs nudge diagnostics (=.false. off) + obs_ipf_init = .true. ! Enable obs init warning messages + + obs_no_pbl_nudge_uv (max_dom) = 0 ! 1=no wind-nudging within pbl + obs_no_pbl_nudge_t (max_dom) = 0 ! 1=no temperature-nudging within pbl + obs_no_pbl_nudge_q (max_dom) = 0 ! 1=no moisture-nudging within pbl + obs_sfc_scheme_horiz = 0 ! horizontal spreading scheme for surf obs; + ; 0=wrf scheme, 1=original mm5 scheme + obs_sfc_scheme_vert = 0 ! vertical spreading scheme for surf obs 0=regime vif scheme, 1=original simple scheme - obs_max_sndng_gap = 20 ; Max pressure gap between soundings, in cb - obs_nudgezfullr1_uv = 50 ; Vert infl full weight height for lowest model level (LML) obs, regime 1, winds - obs_nudgezrampr1_uv = 50 ; Vert infl ramp-to-zero height for LML obs, regime 1, winds - obs_nudgezfullr2_uv = 50 ; Vert infl full weight height for LML obs, regime 2, winds - obs_nudgezrampr2_uv = 50 ; Vert infl ramp-to-zero height for LML obs, regime 2, winds - obs_nudgezfullr4_uv = -5000 ; Vert infl full weight height for LML obs, regime 4, winds - obs_nudgezrampr4_uv = 50 ; Vert infl ramp-to-zero height for LML obs, regime 4, winds - obs_nudgezfullr1_t = 50 ; Vert infl full weight height for LML obs, regime 1, temperature - obs_nudgezrampr1_t = 50 ; Vert infl ramp-to-zero height for LML obs, regime 1, temperature - obs_nudgezfullr2_t = 50 ; Vert infl full weight height for LML obs, regime 2, temperature - obs_nudgezrampr2_t = 50 ; Vert infl ramp-to-zero height for LML obs, regime 2, temperature - obs_nudgezfullr4_t = -5000 ; Vert infl full weight height for LML obs, regime 4, temperature - obs_nudgezrampr4_t = 50 ; Vert infl ramp-to-zero height for LML obs, regime 4, temperature - obs_nudgezfullr1_q = 50 ; Vert infl full weight height for LML obs, regime 1, moisture - obs_nudgezrampr1_q = 50 ; Vert infl ramp-to-zero height for LML obs, regime 1, moisture - obs_nudgezfullr2_q = 50 ; Vert infl full weight height for LML obs, regime 2, moisture - obs_nudgezrampr2_q = 50 ; Vert infl ramp-to-zero height for LML obs, regime 2, moisture - obs_nudgezfullr4_q = -5000 ; Vert infl full weight height for LML obs, regime 4, moisture - obs_nudgezrampr4_q = 50 ; Vert infl ramp-to-zero height for LML obs, regime 4, moisture - obs_nudgezfullmin = 50 ; Min depth through which vertical infl fcn remains 1.0 - obs_nudgezrampmin = 50 ; Min depth (m) through which vert infl fcn decreases from 1 to 0 - obs_nudgezmax = 3000 ; Max depth (m) in which vert infl function is nonzero - obs_sfcfact = 1.0 ; Scale factor applied to time window for surface obs - obs_sfcfacr = 1.0 ; Scale factor applied to horiz radius of influence for surface obs - obs_dpsmx = 7.5 ; Max pressure change (cb) allowed within horiz radius of influence - - obs_scl_neg_qv_innov = 0 ; 1 = prevent to nudge toward negative QV + obs_max_sndng_gap = 20 ! Max pressure gap between soundings, in cb + obs_nudgezfullr1_uv = 50 ! Vert infl full weight height for lowest model level (LML) obs, regime 1, winds + obs_nudgezrampr1_uv = 50 ! Vert infl ramp-to-zero height for LML obs, regime 1, winds + obs_nudgezfullr2_uv = 50 ! Vert infl full weight height for LML obs, regime 2, winds + obs_nudgezrampr2_uv = 50 ! Vert infl ramp-to-zero height for LML obs, regime 2, winds + obs_nudgezfullr4_uv = -5000 ! Vert infl full weight height for LML obs, regime 4, winds + obs_nudgezrampr4_uv = 50 ! Vert infl ramp-to-zero height for LML obs, regime 4, winds + obs_nudgezfullr1_t = 50 ! Vert infl full weight height for LML obs, regime 1, temperature + obs_nudgezrampr1_t = 50 ! Vert infl ramp-to-zero height for LML obs, regime 1, temperature + obs_nudgezfullr2_t = 50 ! Vert infl full weight height for LML obs, regime 2, temperature + obs_nudgezrampr2_t = 50 ! Vert infl ramp-to-zero height for LML obs, regime 2, temperature + obs_nudgezfullr4_t = -5000 ! Vert infl full weight height for LML obs, regime 4, temperature + obs_nudgezrampr4_t = 50 ! Vert infl ramp-to-zero height for LML obs, regime 4, temperature + obs_nudgezfullr1_q = 50 ! Vert infl full weight height for LML obs, regime 1, moisture + obs_nudgezrampr1_q = 50 ! Vert infl ramp-to-zero height for LML obs, regime 1, moisture + obs_nudgezfullr2_q = 50 ! Vert infl full weight height for LML obs, regime 2, moisture + obs_nudgezrampr2_q = 50 ! Vert infl ramp-to-zero height for LML obs, regime 2, moisture + obs_nudgezfullr4_q = -5000 ! Vert infl full weight height for LML obs, regime 4, moisture + obs_nudgezrampr4_q = 50 ! Vert infl ramp-to-zero height for LML obs, regime 4, moisture + obs_nudgezfullmin = 50 ! Min depth through which vertical infl fcn remains 1.0 + obs_nudgezrampmin = 50 ! Min depth (m) through which vert infl fcn decreases from 1 to 0 + obs_nudgezmax = 3000 ! Max depth (m) in which vert infl function is nonzero + obs_sfcfact = 1.0 ! Scale factor applied to time window for surface obs + obs_sfcfacr = 1.0 ! Scale factor applied to horiz radius of influence for surface obs + obs_dpsmx = 7.5 ! Max pressure change (cb) allowed within horiz radius of influence + + obs_scl_neg_qv_innov = 0 ! 1 = prevent to nudge toward negative QV / &scm - scm_force = 1, ; switch for single column forcing (=0 off) - scm_force_dx = 4000. ; DX for SCM forcing (in meters) - num_force_layers = 8 ; number of SCM input forcing layers - scm_lu_index = 2 ; SCM landuse category (2 is dryland, cropland and pasture) - scm_isltyp = 4 ; SCM soil category (4 is silt loam) - scm_vegfra = 0.5 ; SCM vegetation fraction - scm_canwat = 0.0 ; SCM canopy water - scm_lat = 36.605 ; SCM latitude - scm_lon = -97.485 ; SCM longitude - scm_th_adv = .true. ; turn on theta advection in SCM - scm_wind_adv = .true. ; turn on wind advection in SCM - scm_qv_adv = .true. ; turn on moisture advection in SCM - scm_ql_adv = .true. ; turn on cloud liquid water advection in SCM - scm_vert_adv = .true. ; turn on vertical advection in SCM - num_force_soil_layers = 5, ; Number of SCM soil forcing layer - scm_soilT_force = .false. ; Turn on soil temp forcing in SCM - scm_soilq_force = .false. ; Turn on soil moisture forcing in SCM - scm_force_th_largescale = .false. ; Turn on large scale theta forcing in SCM - scm_force_qv_largescale = .false. ; Turn on large scale qv forcing in SCM - scm_force_ql_largescale = .false. ; Turn on large scale cloud water forcing in SCM - scm_force_wind_largescale = .false. ; Turn on large scale wind forcing in SCM + scm_force = 1, ! switch for single column forcing (=0 off) + scm_force_dx = 4000. ! DX for SCM forcing (in meters) + num_force_layers = 8 ! number of SCM input forcing layers + scm_lu_index = 2 ! SCM landuse category (2 is dryland, cropland and pasture) + scm_isltyp = 4 ! SCM soil category (4 is silt loam) + scm_vegfra = 0.5 ! SCM vegetation fraction + scm_canwat = 0.0 ! SCM canopy water + scm_lat = 36.605 ! SCM latitude + scm_lon = -97.485 ! SCM longitude + scm_th_adv = .true. ! turn on theta advection in SCM + scm_wind_adv = .true. ! turn on wind advection in SCM + scm_qv_adv = .true. ! turn on moisture advection in SCM + scm_ql_adv = .true. ! turn on cloud liquid water advection in SCM + scm_vert_adv = .true. ! turn on vertical advection in SCM + num_force_soil_layers = 5, ! Number of SCM soil forcing layer + scm_soilT_force = .false. ! Turn on soil temp forcing in SCM + scm_soilq_force = .false. ! Turn on soil moisture forcing in SCM + scm_force_th_largescale = .false. ! Turn on large scale theta forcing in SCM + scm_force_qv_largescale = .false. ! Turn on large scale qv forcing in SCM + scm_force_ql_largescale = .false. ! Turn on large scale cloud water forcing in SCM + scm_force_wind_largescale = .false. ! Turn on large scale wind forcing in SCM &dynamics - hybrid_opt = 2, ; default; Klemp cubic form with etac + hybrid_opt = 2, ! default; Klemp cubic form with etac 0 = original WRF terrain-following coordinate (through V3) - etac = 0.2 ; znw(k) < etac, eta surfaces are isobaric, 0.2 is a good default (Pa/Pa) - rk_ord = 3, ; time-integration scheme option: + etac = 0.2 ! znw(k) < etac, eta surfaces are isobaric, 0.2 is a good default (Pa/Pa) + rk_ord = 3, ! time-integration scheme option: 2 = Runge-Kutta 2nd order 3 = Runge-Kutta 3rd order - diff_opt(max_dom) = 0, ; turbulence and mixing option: + diff_opt(max_dom) = 0, ! turbulence and mixing option: 0 = no turbulence or explicit spatial numerical filters (km_opt IS IGNORED). 1 = evaluates 2nd order @@ -1387,14 +1408,14 @@ The following are for observation nudging: physical space (stress form) (x,y,z). turbulence parameterization is chosen by specifying km_opt. - km_opt(max_dom) = 1, ; eddy coefficient option + km_opt(max_dom) = 1, ! eddy coefficient option 1 = constant (use khdif kvdif) 2 = 1.5 order TKE closure (3D) 3 = Smagorinsky first order closure (3D) Note: option 2 and 3 are not recommended for DX > 2 km 4 = horizontal Smagorinsky first order closure (recommended for real-data cases) - damp_opt = 0, ; upper level damping flag + damp_opt = 0, ! upper level damping flag 0 = without damping 1 = with diffusive damping, maybe used for real-data cases (dampcoef nondimensional ~0.01-0.1) @@ -1402,146 +1423,146 @@ The following are for observation nudging: not for real-data cases) 3 = with w-Rayleigh damping (dampcoef inverse time scale [1/s] e.g. .2; for real-data cases) - use_theta_m = 1 ; 1: use theta_m=theta(1+1.61Qv) + use_theta_m = 1 ! 1: use theta_m=theta(1+1.61Qv) 0: use dry theta in dynamics - use_q_diabatic = 0 ; whether to include QV and QC tendencies in advection (new in 3.7) + use_q_diabatic = 0 ! whether to include QV and QC tendencies in advection (new in 3.7) 0 = default, old behavior 1 = include QV and QC tendencies - this helps to produce correct solution in an idealized 'moist benchmark' test case (Bryan, 2014). In real data testing, time step needs to be reduce to maintain stable solution - c_s (max_dom) = 0.25 ; Smagorinsky coeff - c_k (max_dom) = 0.15 ; TKE coeff - diff_6th_opt (max_dom) = 0, ; 6th-order numerical diffusion + c_s (max_dom) = 0.25 ! Smagorinsky coeff + c_k (max_dom) = 0.15 ! TKE coeff + diff_6th_opt (max_dom) = 0, ! 6th-order numerical diffusion 0 = no 6th-order diffusion (default) 1 = 6th-order numerical diffusion (not recommended) 2 = 6th-order numerical diffusion but prohibit up-gradient diffusion - diff_6th_factor (max_dom) = 0.12, ; 6th-order numerical diffusion non-dimensional rate (max value 1.0 + diff_6th_factor (max_dom) = 0.12, ! 6th-order numerical diffusion non-dimensional rate (max value 1.0 corresponds to complete removal of 2dx wave in one timestep) - diff_6th_slopeopt (max_dom) = 0 ; if set to =1, turns on 6th-order numerical diffusion - terrain-slope tapering. default is 0=off - diff_6th_thresh (max_dom) = 0.10 ; slope threshold (m/m) that turns off 6th order diff in steep terrain - dampcoef (max_dom) = 0., ; damping coefficient (see above) - zdamp (max_dom) = 5000., ; damping depth (m) from model top - w_damping = 0, ; vertical velocity damping flag (for operational use) + diff_6th_slopeopt (max_dom) = 0 ! if set to =1, turns on 6th-order numerical diffusion - terrain-slope tapering. default is 0=off + diff_6th_thresh (max_dom) = 0.10 ! slope threshold (m/m) that turns off 6th order diff in steep terrain + dampcoef (max_dom) = 0., ! damping coefficient (see above) + zdamp (max_dom) = 5000., ! damping depth (m) from model top + w_damping = 0, ! vertical velocity damping flag (for operational use) 0 = without damping 1 = with damping - base_temp = 290., ; real-data, em ONLY, base sea-level temp (K) - base_pres = 10^5 ; real-data, em ONLY, base sea-level pres (Pa), DO NOT CHANGE - base_lapse = 50., ; real-data, em ONLY, lapse rate (K), DO NOT CHANGE - iso_temp = 200., ; real-data, em ONLY, reference temp in stratosphere, US Standard atmosphere 216.5 K - base_pres_strat = 0. ; real-data, em ONLY, base state pressure (Pa) at bottom of the stratosphere, + base_temp = 290., ! real-data, em ONLY, base sea-level temp (K) + base_pres = 10^5 ! real-data, em ONLY, base sea-level pres (Pa), DO NOT CHANGE + base_lapse = 50., ! real-data, em ONLY, lapse rate (K), DO NOT CHANGE + iso_temp = 200., ! real-data, em ONLY, reference temp in stratosphere, US Standard atmosphere 216.5 K + base_pres_strat = 0. ! real-data, em ONLY, base state pressure (Pa) at bottom of the stratosphere, US Standard atmosphere 55 hPa - base_lapse_strat = -11. ; real-data, em ONLY, base state lapse rate ( dT / d(lnP) ) in stratosphere, + base_lapse_strat = -11. ! real-data, em ONLY, base state lapse rate ( dT / d(lnP) ) in stratosphere, approx to US Standard atmosphere -12 K - use_baseparam_fr_nml = .f., ; whether to use base state parameters from the namelist - use_input_w = .f., ; whether to use vertical velocity from input file + use_baseparam_fr_nml = .f., ! whether to use base state parameters from the namelist + use_input_w = .f., ! whether to use vertical velocity from input file khdif (max_dom) = 0, ; horizontal diffusion constant (m^2/s). A typical value should be 0.1*DX in meters. - kvdif (max_dom) = 0, ; vertical diffusion constant (m^2/s). A typical value should be 100. - smdiv (max_dom) = 0.1, ; divergence damping (0.1 is typical) - emdiv (max_dom) = 0.01, ; external-mode filter coef for mass coordinate model + kvdif (max_dom) = 0, ! vertical diffusion constant (m^2/s). A typical value should be 100. + smdiv (max_dom) = 0.1, ! divergence damping (0.1 is typical) + emdiv (max_dom) = 0.01, ! external-mode filter coef for mass coordinate model (0.01 is typical for real-data cases) - epssm (max_dom) = .1, ; time off-centering for vertical sound waves - non_hydrostatic (max_dom) = .true., ; whether running the model in hydrostatic or non-hydro mode - pert_coriolis (max_dom) = .false., ; Coriolis only acts on wind perturbation (idealized) - top_lid (max_dom) = .false., ; Zero vertical motion at top of domain - mix_full_fields(max_dom) = .true., ; used with diff_opt = 2; value of ".true." is recommended, except for + epssm (max_dom) = .1, ! time off-centering for vertical sound waves + non_hydrostatic (max_dom) = .true., ! whether running the model in hydrostatic or non-hydro mode + pert_coriolis (max_dom) = .false., ! Coriolis only acts on wind perturbation (idealized) + top_lid (max_dom) = .false., ! Zero vertical motion at top of domain + mix_full_fields(max_dom) = .true., ! used with diff_opt = 2; value of ".true." is recommended, except for highly idealized numerical tests; damp_opt must not be 1 if ".true." is chosen. .false. means subtract 1-d base-state profile before mixing - mix_isotropic(max_dom) = 0 ; 0=anisotropic vertical/horizontal diffusion coeffs, 1=isotropic - mix_upper_bound(max_dom) = 0.1 ; non-dimensional upper limit for diffusion coeffs - tke_drag_coefficient(max_dom) = 0., ; surface drag coefficient (Cd, dimensionless) for diff_opt=2 only - tke_heat_flux(max_dom) = 0., ; surface thermal flux (H/(rho*cp), K m/s) for diff_opt=2 only - h_mom_adv_order (max_dom) = 5, ; horizontal momentum advection order (5=5th, etc.) - v_mom_adv_order (max_dom) = 3, ; vertical momentum advection order - h_sca_adv_order (max_dom) = 5, ; horizontal scalar advection order - v_sca_adv_order (max_dom) = 3, ; vertical scalar advection order - - momentum_adv_opt(max_dom) = 1, ; advection options for momentum variables: + mix_isotropic(max_dom) = 0 ! 0=anisotropic vertical/horizontal diffusion coeffs, 1=isotropic + mix_upper_bound(max_dom) = 0.1 ! non-dimensional upper limit for diffusion coeffs + tke_drag_coefficient(max_dom) = 0., ! surface drag coefficient (Cd, dimensionless) for diff_opt=2 only + tke_heat_flux(max_dom) = 0., ! surface thermal flux (H/(rho*cp), K m/s) for diff_opt=2 only + h_mom_adv_order (max_dom) = 5, ! horizontal momentum advection order (5=5th, etc.) + v_mom_adv_order (max_dom) = 3, ! vertical momentum advection order + h_sca_adv_order (max_dom) = 5, ! horizontal scalar advection order + v_sca_adv_order (max_dom) = 3, ! vertical scalar advection order + + momentum_adv_opt(max_dom) = 1, ! advection options for momentum variables: 1=original, 3 = 5th-order WENO - ; advection options for scalar variables: 0=simple, 1=positive definite, + advection options for scalar variables: 0=simple, 1=positive definite, 2=monotonic, 3=5th order WENO, 4=5th-order WENO with positive definite filter - moist_adv_opt (max_dom) = 1 ; for moisture - moist_adv_dfi_opt (max_dom) = 0 ; positive-definite RK3 transport switch. Default is 0=off - scalar_adv_opt (max_dom) = 1 ; for scalars - chem_adv_opt (max_dom) = 1 ; for chem variables - tracer_adv_opt (max_dom) = 1 ; for tracer variables (WRF-Chem activated) - tke_adv_opt (max_dom) = 1 ; for tke - moist_mix2_off (max_dom) = .false. ; if set to T, deactivate 2nd-order horizontal mixing for moisture. default is F. - chem_mix2_off (max_dom) = .false. ; if set to T, deactivate 2nd-order horizontal mixing for chem species. default is F. - tracer_mix2_off (max_dom) = .false. ; if set to T, deactivate 2nd-order horizontal mixing for tracers. default is F. - scalar_mix2_off (max_dom) = .false. ; if set to T, deactivate 2nd-order horizontal mixing for scalars. default is F. - tke_mix2_off (max_dom) = .false. ; if set to T, deactivate 2nd-order horizontal mixing for tke. default is F. - moist_mix6_off (max_dom) = .false. ; if set to T, deactivate 6th-order horizontal mixing for moisture. default is F. - chem_mix6_off (max_dom) = .false. ; if set to T, deactivate 6th-order horizontal mixing for chem species. default is F. - tracer_mix6_off (max_dom) = .false. ; if set to T, deactivate 6th-order horizontal mixing for tracers. default is F. - scalar_mix6_off (max_dom) = .false. ; if set to T, deactivate 6th-order horizontal mixing for scalars. default is F. - tke_mix6_off (max_dom) = .false. ; if set to T, deactivate 6th-order horizontal mixing for tke. default is F. - - - time_step_sound (max_dom) = 4 / ; number of sound steps per time-step (0=set automatically) + moist_adv_opt (max_dom) = 1 ! for moisture + moist_adv_dfi_opt (max_dom) = 0 ! positive-definite RK3 transport switch. Default is 0=off + scalar_adv_opt (max_dom) = 1 ! for scalars + chem_adv_opt (max_dom) = 1 ! for chem variables + tracer_adv_opt (max_dom) = 1 ! for tracer variables (WRF-Chem activated) + tke_adv_opt (max_dom) = 1 ! for tke + moist_mix2_off (max_dom) = .false. ! if set to T, deactivate 2nd-order horizontal mixing for moisture. default is F. + chem_mix2_off (max_dom) = .false. ! if set to T, deactivate 2nd-order horizontal mixing for chem species. default is F. + tracer_mix2_off (max_dom) = .false. ! if set to T, deactivate 2nd-order horizontal mixing for tracers. default is F. + scalar_mix2_off (max_dom) = .false. ! if set to T, deactivate 2nd-order horizontal mixing for scalars. default is F. + tke_mix2_off (max_dom) = .false. ! if set to T, deactivate 2nd-order horizontal mixing for tke. default is F. + moist_mix6_off (max_dom) = .false. ! if set to T, deactivate 6th-order horizontal mixing for moisture. default is F. + chem_mix6_off (max_dom) = .false. ! if set to T, deactivate 6th-order horizontal mixing for chem species. default is F. + tracer_mix6_off (max_dom) = .false. ! if set to T, deactivate 6th-order horizontal mixing for tracers. default is F. + scalar_mix6_off (max_dom) = .false. ! if set to T, deactivate 6th-order horizontal mixing for scalars. default is F. + tke_mix6_off (max_dom) = .false. ! if set to T, deactivate 6th-order horizontal mixing for tke. default is F. + + + time_step_sound (max_dom) = 4 / ! number of sound steps per time-step (0=set automatically) (if using a time_step much larger than 6*dx (in km), proportionally increase number of sound steps - also best to use even numbers) - do_avgflx_em (max_dom) = 0, ; whether to output time-averaged mass-coupled advective velocities + do_avgflx_em (max_dom) = 0, ! whether to output time-averaged mass-coupled advective velocities 0 = no (default) 1 = yes - do_avgflx_cugd (max_dom) = 0, ; whether to output time-averaged convective mass-fluxes from Grell-Devenyi ensemble scheme + do_avgflx_cugd (max_dom) = 0, ! whether to output time-averaged convective mass-fluxes from Grell-Devenyi ensemble scheme 0 = no (default) 1 = yes (only takes effect if do_avgflx_em=1 and cu_physics= 93 - do_coriolis (max_dom) = .true., ; whether to do Coriolis calculations (idealized) (inactive) - do_curvature (max_dom) = .true., ; whether to do curvature calculations (idealized) (inactive) - do_gradp (max_dom) = .true., ; whether to do horizontal pressure gradient calculations (idealized) (inactive) - fft_filter_lat = 91. ; the latitude above which the polar filter is turned on (degrees) - 45 degrees is a + do_coriolis (max_dom) = .true., ! whether to do Coriolis calculations (idealized) (inactive) + do_curvature (max_dom) = .true., ! whether to do curvature calculations (idealized) (inactive) + do_gradp (max_dom) = .true., ! whether to do horizontal pressure gradient calculations (idealized) (inactive) + fft_filter_lat = 91. ! the latitude above which the polar filter is turned on (degrees) - 45 degrees is a reasonable latitude to start using polar filters - coupled_filtering = .true. ; T/F mu coupled scalar arrays are run through the polar filters - pos_def = .false. ; T/F remove negative values of scalar arrays by setting minimum value to zero - swap_pole_with_next_j = .false. ; T/F replace the entire j=1 (jds-1) with the values from j=2 (jds-2) - actual_distance_average = .false. ; T/F average the field at each i location in the j-loop with a number of grid points based on a map-factor ratio - gwd_opt = 0 ; for running without gravity wave drag + coupled_filtering = .true. ! T/F mu coupled scalar arrays are run through the polar filters + pos_def = .false. ! T/F remove negative values of scalar arrays by setting minimum value to zero + swap_pole_with_next_j = .false. ! T/F replace the entire j=1 (jds-1) with the values from j=2 (jds-2) + actual_distance_average = .false. ! T/F average the field at each i location in the j-loop with a number of grid points based on a map-factor ratio + gwd_opt = 0 ! for running without gravity wave drag = 1 ; for running the WRF-ARW with its gravity wave drag = 2 ; for running the WRF-NMM with its gravity wave drag - sfs_opt (max_dom) = 0 ; nonlinear backscatter and anisotropy (NBA) off - = 1 ; NBA1 using diagnostic stress terms (km_opt=2,3 for scalars) - = 2 ; NBA2 using tke-based stress terms (km_opt=2 needed) - m_opt (max_dom) = 0 ; no added output - = 1 ; adds output of Mij stress terms when NBA is not used - tracer_opt(max_dom) = 0 ; + sfs_opt (max_dom) = 0 ! nonlinear backscatter and anisotropy (NBA) off + = 1 ! NBA1 using diagnostic stress terms (km_opt=2,3 for scalars) + = 2 ! NBA2 using tke-based stress terms (km_opt=2 needed) + m_opt (max_dom) = 0 ! no added output + = 1 ! adds output of Mij stress terms when NBA is not used + tracer_opt(max_dom) = 0 ! &bdy_control - spec_bdy_width = 5, ; total number of rows for specified boundary value nudging - spec_zone = 1, ; number of points in specified zone (spec b.c. option) - relax_zone = 4, ; number of points in relaxation zone (spec b.c. option) - specified (max_dom) = .false., ; specified boundary conditions (only can be used for domain 1) + spec_bdy_width = 5, ! total number of rows for specified boundary value nudging + spec_zone = 1, ! number of points in specified zone (spec b.c. option) + relax_zone = 4, ! number of points in relaxation zone (spec b.c. option) + specified (max_dom) = .false., ! specified boundary conditions (only can be used for domain 1) the above 4 are used for real-data runs - spec_exp = 0. ; exponential multiplier for relaxation zone ramp for specified=.t. + spec_exp = 0. ! exponential multiplier for relaxation zone ramp for specified=.t. (0.=linear ramp default, e.g. 0.33=~3*dx exp decay factor) - constant_bc = .false. ; constant boundary condition used with DFI - spec_bdy_final_mu = 1, ; whether to call spec_bdy_final for mu (this may cause different restart results in V3.8): + constant_bc = .false. ! constant boundary condition used with DFI + spec_bdy_final_mu = 1, ! whether to call spec_bdy_final for mu (this may cause different restart results in V3.8): = 0, no call; = 1: call (this may cause different restart results) - periodic_x (max_dom) = .false., ; periodic boundary conditions in x direction - symmetric_xs (max_dom) = .false., ; symmetric boundary conditions at x start (west) - symmetric_xe (max_dom) = .false., ; symmetric boundary conditions at x end (east) - open_xs (max_dom) = .false., ; open boundary conditions at x start (west) - open_xe (max_dom) = .false., ; open boundary conditions at x end (east) - periodic_y (max_dom) = .false., ; periodic boundary conditions in y direction - symmetric_ys (max_dom) = .false., ; symmetric boundary conditions at y start (south) - symmetric_ye (max_dom) = .false., ; symmetric boundary conditions at y end (north) - open_ys (max_dom) = .false., ; open boundary conditions at y start (south) - open_ye (max_dom) = .false., ; open boundary conditions at y end (north) - nested (max_dom) = .false., ; nested boundary conditions (must be used for nests) - polar (max_dom) = .false., ; polar boundary condition + periodic_x (max_dom) = .false., ! periodic boundary conditions in x direction + symmetric_xs (max_dom) = .false., ! symmetric boundary conditions at x start (west) + symmetric_xe (max_dom) = .false., ! symmetric boundary conditions at x end (east) + open_xs (max_dom) = .false., ! open boundary conditions at x start (west) + open_xe (max_dom) = .false., ! open boundary conditions at x end (east) + periodic_y (max_dom) = .false., ! periodic boundary conditions in y direction + symmetric_ys (max_dom) = .false., ! symmetric boundary conditions at y start (south) + symmetric_ye (max_dom) = .false., ! symmetric boundary conditions at y end (north) + open_ys (max_dom) = .false., ! open boundary conditions at y start (south) + open_ye (max_dom) = .false., ! open boundary conditions at y end (north) + nested (max_dom) = .false., ! nested boundary conditions (must be used for nests) + polar (max_dom) = .false., ! polar boundary condition (v=0 at polarward-most v-point) - have_bcs_moist (max_dom) = .false., ; model run after ndown only: do not use microphysics variables in bdy file - = .true. , ; use microphysics variables in bdy file - have_bcs_scalar (max_dom) = .false., ; model run after ndown only: do not use scalar variables in bdy file - = .true. , ; use scalar variables in bdy file + have_bcs_moist (max_dom) = .false., ! model run after ndown only: do not use microphysics variables in bdy file + = .true. , ! use microphysics variables in bdy file + have_bcs_scalar (max_dom) = .false., ! model run after ndown only: do not use scalar variables in bdy file + = .true. , ! use scalar variables in bdy file - euler_adv = .false., ; conservative Eulerian passive advection (NMM only) - idtadt = 1, ; fundamental timesteps between calls to Euler advection, dynamics (NMM only) - idtadc = 1 ; fundamental timesteps between calls to Euler advection, chemistry (NMM only) + euler_adv = .false., ! conservative Eulerian passive advection (NMM only) + idtadt = 1, ! fundamental timesteps between calls to Euler advection, dynamics (NMM only) + idtadc = 1 ! fundamental timesteps between calls to Euler advection, chemistry (NMM only) &ideal - ideal_case = 0 ; ideal case number. Option selects CASEs within module_initialize_ideal.F + ideal_case = 0 ! ideal case number. Option selects CASEs within module_initialize_ideal.F realcase ideal_case=0 hill2d_x ideal_case=1 quarter_ss ideal_case=2 @@ -1555,37 +1576,37 @@ The following are for observation nudging: &tc ; controls for tc_em.exe ONLY, no impact on real, ndown, or model - insert_bogus_storm = .false. ; T/F for inserting a bogus tropical storm (TC) - remove_storm = .false. ; T/F for only removing the original TC - num_storm = 1 ; Number of bogus TC - latc_loc = -999. ; center latitude of the bogus TC - lonc_loc = -999. ; center longitude of the bogus TC - vmax_meters_per_second(max_bogus) = -999. ; vmax of bogus storm in meters per second - rmax = -999. ; maximum radius outward from storm center - vmax_ratio(max_bogus) = -999. ; ratio for representative maximum winds, 0.75 for 45 km grid, and + insert_bogus_storm = .false. ! T/F for inserting a bogus tropical storm (TC) + remove_storm = .false. ! T/F for only removing the original TC + num_storm = 1 ! Number of bogus TC + latc_loc = -999. ! center latitude of the bogus TC + lonc_loc = -999. ! center longitude of the bogus TC + vmax_meters_per_second(max_bogus) = -999. ! vmax of bogus storm in meters per second + rmax = -999. ! maximum radius outward from storm center + vmax_ratio(max_bogus) = -999. ! ratio for representative maximum winds, 0.75 for 45 km grid, and 0.9 for 15 km grid. - rankine_lid = -999. ; top pressure limit for the tc bogus scheme + rankine_lid = -999. ! top pressure limit for the tc bogus scheme &namelist_quilt This namelist record controls asynchronized I/O for MPI applications. - nio_tasks_per_group = 0, default value is 0: no quilting; > 0 quilting I/O - nio_groups = 1, default 1. May be set to higher value for nesting IO - or history and restart IO + nio_tasks_per_group = 0, ! default value is 0: no quilting; > 0 quilting I/O + nio_groups = 1, ! default 1. May be set to higher value for nesting IO + or history and restart IO &grib2: - background_proc_id = 255, ; Background generating process identifier, typically defined + background_proc_id = 255, ! Background generating process identifier, typically defined by the originating center to identify the background data that was used in creating the data. This is octet 13 of Section 4 in the grib2 message - forecast_proc_id = 255, ; Analysis or generating forecast process identifier, typically + forecast_proc_id = 255, ! Analysis or generating forecast process identifier, typically defined by the originating center to identify the forecast process that was used to generate the data. This is octet 14 of Section 4 in the grib2 message - production_status = 255, ; Production status of processed data in the grib2 message. + production_status = 255, ! Production status of processed data in the grib2 message. See Code Table 1.3 of the grib2 manual. This is octet 20 of Section 1 in the grib2 record - compression = 40, ; The compression method to encode the output grib2 message. + compression = 40, ! The compression method to encode the output grib2 message. Only 40 for jpeg2000 or 41 for PNG are supported @@ -1594,39 +1615,39 @@ the vertical interpolation options requires the user to define an io_form and in the requested stream. See examples.namelist. &diags: - p_lev_diags = 1, ; Vertically interpolate diagnostics to p-levels + p_lev_diags = 1, ! Vertically interpolate diagnostics to p-levels 0=NO, 1=YES - num_press_levels = 0, ; Number of pressure levels to interpolate to, for example, + num_press_levels = 0, ! Number of pressure levels to interpolate to, for example, could be 2 - press_levels = 0, ; Which pressure levels (Pa) to interpolate to, for example + press_levels = 0, ! Which pressure levels (Pa) to interpolate to, for example could be 85000, 70000 - use_tot_or_hyd_p = 2 ; Which half level pressure to use: 1=total (p+pb); 2=hydrostatic + use_tot_or_hyd_p = 2 ! Which half level pressure to use: 1=total (p+pb); 2=hydrostatic (p_hyd). The p_hyd option is the default and less noisy. Total pressure is consistent with what is done in various post-proc packages. - z_lev_diags = 0, ; Vertically interpolate diagnostics to z-levels + z_lev_diags = 0, ! Vertically interpolate diagnostics to z-levels 0=NO, 1=YES - num_z_levels = 2, ; Number of height levels to interpolate to - z_levels = 0, ; List of height values (m) to interpolate data to. - ; Positive numbers are for height above mean sea level (i.e. a flight level) - ; Negative numbers are for levels above ground + num_z_levels = 2, ! Number of height levels to interpolate to + z_levels = 0, ! List of height values (m) to interpolate data to. + Positive numbers are for height above mean sea level (i.e. a flight level) + Negative numbers are for levels above ground / AFWA diagnostics: &afwa -afwa_diag_opt (max_dom) = 0, ; AFWA Diagnostic option, 1: on -afwa_ptype_opt (max_dom) = 0, ; Precip type option, 1: on -afwa_vil_opt (max_dom) = 0, ; Vert Int Liquid option, 1: on -afwa_radar_opt (max_dom) = 0, ; Radar option, 1: on -afwa_severe_opt (max_dom) = 0, ; Severe Wx option, 1: on -afwa_icing_opt (max_dom) = 0, ; Icing option, 1: on -afwa_vis_opt (max_dom) = 0, ; Visibility option, 1: on -afwa_cloud_opt (max_dom) = 0, ; Cloud option, 1: on -afwa_therm_opt (max_dom) = 0, ; Thermal indices option, 1: on -afwa_turb_opt (max_dom) = 0, ; Turbulence option, 1: on -afwa_buoy_opt (max_dom) = 0, ; Buoyancy option, 1: on -afwa_ptype_ccn_tmp = 264.15, ; CCN temperature for precipitation type calculation -afwa_ptype_tot_melt = 50, ; Total melting energy for precipitation type calculation +afwa_diag_opt (max_dom) = 0, ! AFWA Diagnostic option, 1: on +afwa_ptype_opt (max_dom) = 0, ! Precip type option, 1: on +afwa_vil_opt (max_dom) = 0, ! Vert Int Liquid option, 1: on +afwa_radar_opt (max_dom) = 0, ! Radar option, 1: on +afwa_severe_opt (max_dom) = 0, ! Severe Wx option, 1: on +afwa_icing_opt (max_dom) = 0, ! Icing option, 1: on +afwa_vis_opt (max_dom) = 0, ! Visibility option, 1: on +afwa_cloud_opt (max_dom) = 0, ! Cloud option, 1: on +afwa_therm_opt (max_dom) = 0, ! Thermal indices option, 1: on +afwa_turb_opt (max_dom) = 0, ! Turbulence option, 1: on +afwa_buoy_opt (max_dom) = 0, ! Buoyancy option, 1: on +afwa_ptype_ccn_tmp = 264.15, ! CCN temperature for precipitation type calculation +afwa_ptype_tot_melt = 50, ! Total melting energy for precipitation type calculation diff --git a/run/README.tslist b/run/README.tslist index 85773631ff..7865a26779 100644 --- a/run/README.tslist +++ b/run/README.tslist @@ -1,9 +1,10 @@ To activate time series output in WRF, a file named "tslist" must be present in the WRF run directory. The tslist file contains a list of locations, given -by their latitude and longitude, along with a short description and an -abbreviation for each location. The first three lines in the file are -regarded as header information, and are ignored. The contents of an example -tslist file are shown below. +by their latitude and longitude, or i/j coordinates, along with a short +description and an abbreviation for each location. The first three lines in +the file are regarded as header information, and are used to determine if the +given coordinates are lat/long or i/j. The contents of an example tslist file +for coordinate specification are shown below. #-----------------------------------------------# @@ -15,18 +16,31 @@ Bogus point A pt_a 29.718 -75.772 Bogus point B pt_b 37.614 -74.650 +If cell locations are to be used (such as for idealized cases), the i/j +locations are to be specified as follows: + +#-----------------------------------------------# +# 24 characters for name | pfx | I | J | +#-----------------------------------------------# +tower0001 t0001 10 10 +tower0002 t0002 20 20 +tower0003 t0003 30 30 + Given a tslist file, for each location inside a model domain (either coarse -or nested), below files are created: +or nested), the following files are created: 1. pfx*.dNN.TS containing the regular time series output of surface variables. 2. pfx.dNN.UU containing a vertical profile of u wind component for each time step 3. pfx.dNN.VV containing a vertical profile of v wind component for each time step -4. pfx.dNN.TH containing a vertical profile of potential temperature for time step -5. pfx.dNN.PH containing a vertical profile of geopotential height in time step -6. pfx.dNN.QV containing a vertical profile of water vapor mixing ratio time step +4. pfx.dNN.WW containing a vertical profile of w wind component for each time step +5. pfx.dNN.TH containing a vertical profile of potential temperature for time step +6. pfx.dNN.PH containing a vertical profile of geopotential height for each time step +7. pfx.dNN.QV containing a vertical profile of water vapor mixing ratio for each time step +8. pfx.dNN.PR containing a vertical profile of pressure for each time step -Where pfx is the specified prefix for the dd location in the tslist file, and NN is the domain ID, as given in +Where pfx is the specified prefix for the dd location in the tslist file, +and NN is the domain ID, as given in namelist.input. If locations not in any model domain are specified in the tslist file, they will be simply ignored by the time series capability. @@ -39,12 +53,17 @@ however, smaller buffers will need to be flushed to disk more often than larger buffers. Thus, it is recommended that the size of the buffer be set to the maximum number of time steps for any domain in a model run. +By default, the u, v, and w component winds are output on the staggered grid. +To unstagger them, the namelist variable tslist_unstagger_winds can be set to true. + Namelist.input variables related to to this new capability: * max_ts_locs = maximum number of locations in 'tslist' ( default is 5) * ts_buf_size = buffer size for time series output (default is 200) * max_ts_level = number of model levels for time series vertical profiles (default is 15) + * tslist_unstagger_winds = output the unstaggered u, v, and w component + winds (default is false) The first line in a time-series output of surface variables (pfx*.dNN.TS) looks like this: @@ -79,4 +98,5 @@ Example: Format of the files of vertical profile: -each line starting with the model time in hours, followed by the variable at model level 1,2,3, ... up to the highest model level of interest +each line starting with the model time in hours, followed by the variable +at model level 1,2,3, ... up to the highest model level of interest diff --git a/run/SOILPARM.TBL_Kishne_2017 b/run/SOILPARM.TBL_Kishne_2017 new file mode 100644 index 0000000000..4bde3398a0 --- /dev/null +++ b/run/SOILPARM.TBL_Kishne_2017 @@ -0,0 +1,45 @@ +Soil Parameters +STAS +19,1 'BB DRYSMC F11 MAXSMC REFSMC SATPSI SATDK SATDW WLTSMC QTZ ' +1, 3.36, 0.004, -0.472, 0.402, 0.086, 0.047, 2.40E-5, 9.36E-6, 0.024, 0.92, 'SAND' +2, 4.06, 0.010, -1.044, 0.396, 0.142, 0.063, 1.72E-5, 1.11E-5, 0.057, 0.82, 'LOAMY SAND' +3, 4.85, 0.016, -0.569, 0.413, 0.213, 0.105, 1.01E-5, 1.18E-5, 0.081, 0.60, 'SANDY LOAM' +4, 5.72, 0.023, 0.162, 0.456, 0.303, 0.399, 2.20E-6, 9.99E-6, 0.123, 0.25, 'SILT LOAM' +5, 4.18, 0.010, 0.162, 0.438, 0.346, 0.568, 1.30E-6, 7.78E-6, 0.064, 0.10, 'SILT' +6, 6.01, 0.022, -0.327, 0.440, 0.274, 0.219, 4.12E-6, 1.20E-5, 0.128, 0.40, 'LOAM' +7, 7.03, 0.029, -1.491, 0.416, 0.288, 0.139, 7.08E-6, 1.58E-5, 0.168, 0.60, 'SANDY CLAY LOAM' +8, 8.49, 0.039, -1.118, 0.457, 0.350, 0.517, 1.48E-6, 1.41E-5, 0.212, 0.10, 'SILTY CLAY LOAM' +9, 8.20, 0.036, -1.297, 0.449, 0.335, 0.288, 3.02E-6, 1.52E-5, 0.196, 0.35, 'CLAY LOAM' +10, 8.98, 0.037, -3.209, 0.425, 0.355, 0.171, 5.13E-6, 1.93E-5, 0.239, 0.52, 'SANDY CLAY' +11, 10.24, 0.052, -1.916, 0.467, 0.392, 0.588, 1.27E-6, 1.61E-5, 0.264, 0.10, 'SILTY CLAY' +12, 11.56, 0.058, -2.138, 0.506, 0.428, 0.483, 1.66E-6, 1.74E-5, 0.285, 0.25, 'CLAY' +13, 5.25, 0.003, -0.327, 0.439, 0.286, 0.355, 3.38E-6, 1.43E-5, 0.118, 0.05, 'ORGANIC MATERIAL' +14, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.60, 'WATER' +15, 2.79, 0.001, -1.111, 0.200, 0.050, 0.069, 1.41E-4, 1.36E-4, 0.009, 0.07, 'BEDROCK' +16, 4.26, 0.010, -1.044, 0.421, 0.145, 0.036, 1.41E-5, 5.14E-6, 0.049, 0.25, 'OTHER(land-ice)' +17, 11.55, 0.147, -10.472, 0.468, 0.395, 0.468, 9.74E-7, 1.12E-5, 0.264, 0.60, 'PLAYA' +18, 2.79, 0.001, -0.472, 0.200, 0.050, 0.069, 1.41E-4, 1.36E-4, 0.009, 0.52, 'LAVA' +19, 2.79, 0.001, -0.472, 0.339, 0.084, 0.069, 4.66E-5, 6.08E-7, 0.015, 0.92, 'WHITE SAND' +Soil Parameters +STAS-RUC +19,1 'BB DRYSMC HC MAXSMC REFSMC SATPSI SATDK SATDW WLTSMC QTZ ' +1, 4.05, 0.002, 1.47, 0.395, 0.174, 0.121, 1.76E-4, 0.608E-6, 0.033, 0.92, 'SAND' +2, 4.38, 0.035, 1.41, 0.410, 0.179, 0.090, 1.56E-4, 0.514E-5, 0.055, 0.82, 'LOAMY SAND' +3, 4.90, 0.041, 1.34, 0.435, 0.249, 0.218, 3.47E-5, 0.805E-5, 0.095, 0.60, 'SANDY LOAM' +4, 5.30, 0.034, 1.27, 0.485, 0.369, 0.786, 7.20E-6, 0.239E-4, 0.143, 0.25, 'SILT LOAM' +5, 5.30, 0.034, 1.27, 0.485, 0.369, 0.786, 7.20E-6, 0.239E-4, 0.143, 0.10, 'SILT' +6, 5.39, 0.050, 1.21, 0.451, 0.314, 0.478, 6.95E-6, 0.143E-4, 0.137, 0.40, 'LOAM' +7, 7.12, 0.068, 1.18, 0.420, 0.299, 0.299, 6.30E-6, 0.990E-5, 0.148, 0.60, 'SANDY CLAY LOAM' +8, 7.75, 0.060, 1.32, 0.477, 0.357, 0.356, 1.70E-6, 0.237E-4, 0.208, 0.10, 'SILTY CLAY LOAM' +9, 8.52, 0.085, 1.23, 0.476, 0.391, 0.630, 2.45E-6, 0.113E-4, 0.230, 0.35, 'CLAY LOAM' +10, 10.40, 0.100, 1.18, 0.426, 0.316, 0.153, 2.17E-6, 0.187E-4, 0.210, 0.52, 'SANDY CLAY' +11, 10.40, 0.070, 1.15, 0.492, 0.409, 0.490, 1.03E-6, 0.964E-5, 0.250, 0.10, 'SILTY CLAY' +12, 11.40, 0.068, 1.09, 0.482, 0.400, 0.405, 1.28E-6, 0.112E-4, 0.268, 0.25, 'CLAY' +13, 5.39, 0.027, 1.21, 0.451, 0.314, 0.478, 6.95E-6, 0.143E-4, 0.117, 0.05, 'ORGANIC MATERIAL' +14, 0.0, 0.0, 4.18, 1.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.00, 'WATER' +15, 4.05, 0.004, 2.03, 0.200, 0.10 , 0.121, 1.41E-4, 0.136E-3, 0.006, 0.60, 'BEDROCK' +16, 4.90, 0.065, 2.10, 0.435, 0.249, 0.218, 3.47E-5, 0.514E-5, 0.114, 0.05, 'OTHER(land-ice)' +17, 11.40, 0.030, 1.41, 0.468, 0.454, 0.468, 9.74E-7, 0.112E-4, 0.030, 0.60, 'PLAYA' +18, 4.05, 0.006, 1.41, 0.200, 0.17, 0.069, 1.41E-4, 0.136E-3, 0.006, 0.52, 'LAVA' +19, 4.05, 0.01, 1.47, 0.339, 0.236, 0.069, 1.76E-4, 0.608E-6, 0.060, 0.92, 'WHITE SAND' + diff --git a/run/URBPARM.TBL b/run/URBPARM.TBL index cb4d31d335..3ea29a1634 100644 --- a/run/URBPARM.TBL +++ b/run/URBPARM.TBL @@ -370,6 +370,19 @@ TGLEND: 293.00, 293.00, 293.00 COP: 3.5, 3.5, 3.5 +# +# BLDAC_FRC: fraction of buildings installed with A/C systems [ - ] +# (sf_urban_physics=3) +# + +BLDAC_FRC: 1.0, 1.0, 1.0 + +# +# COOLED_FRC: fraction of cooled floor area in buildings [ - ] +# (sf_urban_physics=3) +# +COOLED_FRC: 1.0, 1.0, 1.0 + # # PWIN: Coverage area fraction of windows in the walls of the building [ - ] # (sf_urban_physics=3) diff --git a/run/create_p3_lookupTable_1.f90 b/run/create_p3_lookupTable_1.f90 index f14bc2fbee..3b3b27de68 100644 --- a/run/create_p3_lookupTable_1.f90 +++ b/run/create_p3_lookupTable_1.f90 @@ -7,8 +7,8 @@ PROGRAM make_p3_lookuptable1 ! ! Note: compile with double-precision (pgf90 -r8 create_p3_lookupTable_1.f90) ! -! P3 package version: v2.4.7 -! Last modified : 2017-06-28 +! P3 lookup table version: v4.1 +! Last modified : 2019-03-13 !______________________________________________________________________________________ implicit none @@ -49,6 +49,9 @@ PROGRAM make_p3_lookuptable1 real, parameter :: Dm_max = 2000.e-6 ! max. mean ice size for lambda limiter real, parameter :: Dm_min = 2.e-6 ! min. mean ice size for lambda limiter +! modify for constant mu_r, set value here + real, parameter :: mu_r_constant = 0. + real, parameter :: thrd = 1./3. real, parameter :: sxth = 1./6. @@ -165,7 +168,7 @@ PROGRAM make_p3_lookuptable1 stop endif - open(unit=1,file='./p3_lookup_table_1-v2.4.7.dat',status='unknown') + open(unit=1,file='./p3_lookup_table_1.dat-v4.1',status='unknown') !......................................................... @@ -206,7 +209,9 @@ PROGRAM make_p3_lookuptable1 111 continue ! assign lookup table values - mu_r_table(i) = mu_r +! modify for constant mu_r = 1 +! mu_r_table(i) = mu_r + mu_r_table(i) = mu_r_constant enddo !i-loop @@ -1029,19 +1034,23 @@ PROGRAM make_p3_lookuptable1 ! get mu_r from lamr dum = 1./lamv - if (dum.lt.282.e-6) then - mu_r = 8.282 - elseif (dum.ge.282.e-6 .and. dum.lt.502.e-6) then -! interpolate - rdumii = (dum-250.e-6)*1.e6*0.5 - rdumii = max(rdumii,1.) - rdumii = min(rdumii,150.) - dumii = int(rdumii) - dumii = min(149,dumii) - mu_r = mu_r_table(dumii)+(mu_r_table(dumii+1)-mu_r_table(dumii))*(rdumii-real(dumii)) - elseif (dum.ge.502.e-6) then - mu_r = 0. - endif +! if (dum.lt.282.e-6) then +! mu_r = 8.282 +! elseif (dum.ge.282.e-6 .and. dum.lt.502.e-6) then +!! interpolate +! rdumii = (dum-250.e-6)*1.e6*0.5 +! rdumii = max(rdumii,1.) +! rdumii = min(rdumii,150.) +! dumii = int(rdumii) +! dumii = min(149,dumii) +! mu_r = mu_r_table(dumii)+(mu_r_table(dumii+1)-mu_r_table(dumii))*(rdumii-real(dumii)) +! elseif (dum.ge.502.e-6) then +! mu_r = 0. +! endif + +! modify for constant mu_r + mu_r = mu_r_constant + ! recalculate slope based on mu_r ! LAMR = (pi*sxth*rhow*nr(i_Qnorm,k)*gamma(mu_r+4.)/(qr(i_Qnorm,k)*gamma(mu_r+1.)))**thrd diff --git a/run/ishmael-gamma-tab.bin b/run/ishmael-gamma-tab.bin new file mode 100644 index 0000000000..5531ea71ca Binary files /dev/null and b/run/ishmael-gamma-tab.bin differ diff --git a/run/ishmael-qi-qc.bin b/run/ishmael-qi-qc.bin new file mode 100644 index 0000000000..e16a2269b8 Binary files /dev/null and b/run/ishmael-qi-qc.bin differ diff --git a/run/ishmael-qi-qr.bin b/run/ishmael-qi-qr.bin new file mode 100644 index 0000000000..acba4e355f Binary files /dev/null and b/run/ishmael-qi-qr.bin differ diff --git a/run/p3_lookup_table_1.dat-v2.8.2 b/run/p3_lookup_table_1.dat-v4.1 similarity index 52% rename from run/p3_lookup_table_1.dat-v2.8.2 rename to run/p3_lookup_table_1.dat-v4.1 index a63d6bec18..a7acf5e9fc 100644 --- a/run/p3_lookup_table_1.dat-v2.8.2 +++ b/run/p3_lookup_table_1.dat-v4.1 @@ -1,4 +1,4 @@ -VERSION 2.8.2 +VERSION 4.1 1 1 0.45665E-15 0.10000E+01 0.15624E-03 0.35587E-03 0.52131E-54 0.00000E+00 0.13613E-06 0.13832E-05 0.82436E-01 0.45191E-08 0.35000E+07 0.29969E-34 0.00000E+00 0.30666E-05 0.90000E+03 1 1 0.79683E-15 0.10000E+01 0.15624E-03 0.35587E-03 0.15873E-53 0.00000E+00 0.23754E-06 0.13832E-05 0.14385E+00 0.78855E-08 0.35000E+07 0.52295E-34 0.00000E+00 0.30666E-05 0.90000E+03 @@ -50,24 +50,24 @@ VERSION 2.8.2 1 1 0.10550E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.32745E+00 0.17361E-02 0.40027E+00 0.67662E-04 0.46642E+10 0.64076E+03 0.50000E+03 0.39278E-15 0.18468E-01 0.57605E-02 0.10978E+02 1 1 0.18409E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.99703E+00 0.30293E-02 0.69845E+00 0.67662E-04 0.81388E+10 0.11181E+04 0.50000E+03 0.68538E-15 0.32225E-01 0.57605E-02 0.10978E+02 1 1 0.32123E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.30358E+01 0.52860E-02 0.12188E+01 0.67662E-04 0.14202E+11 0.19510E+04 0.50000E+03 0.11959E-14 0.56230E-01 0.57605E-02 0.10978E+02 - 1 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 1 1 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 1 1 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 1 1 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 1 1 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 1 1 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 1 1 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 1 1 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 1 1 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 1 1 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 1 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 1 1 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 1 1 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 1 1 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 1 1 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 1 1 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 1 1 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 1 1 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 1 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 1 1 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 1 1 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 1 1 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 1 1 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 1 1 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 1 1 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 1 1 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 1 1 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 1 1 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 1 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 1 1 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 1 1 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 1 1 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 1 1 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 1 1 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 1 1 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 1 1 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 1 1 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 1 1 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 1 1 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -80,24 +80,24 @@ VERSION 2.8.2 1 1 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 1 1 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 1 1 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 1 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 1 1 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 1 1 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 1 1 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 1 1 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 1 1 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 1 1 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 1 1 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 1 1 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 1 1 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 1 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 1 1 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 1 1 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 1 1 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 1 1 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 1 1 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 1 1 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 1 1 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 1 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 1 1 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 1 1 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 1 1 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 1 1 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 1 1 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 1 1 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 1 1 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 1 1 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 1 1 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 1 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 1 1 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 1 1 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 1 1 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 1 1 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 1 1 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 1 1 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 1 1 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 1 1 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 1 1 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 1 1 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -110,24 +110,24 @@ VERSION 2.8.2 1 1 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 1 1 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 1 1 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 1 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 1 1 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 1 1 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 1 1 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 1 1 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 1 1 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 1 1 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 1 1 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 1 1 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 1 1 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 1 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 1 1 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 1 1 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 1 1 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 1 1 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 1 1 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 1 1 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 1 1 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 1 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 1 1 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 1 1 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 1 1 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 1 1 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 1 1 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 1 1 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 1 1 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 1 1 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 1 1 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 1 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 1 1 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 1 1 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 1 1 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 1 1 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 1 1 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 1 1 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 1 1 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 1 1 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 1 1 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 1 1 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -140,24 +140,24 @@ VERSION 2.8.2 1 1 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 1 1 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 1 1 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 1 1 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 1 1 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 1 1 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 1 1 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 1 1 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 1 1 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 1 1 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 1 1 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 1 1 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 1 1 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 1 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 1 1 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 1 1 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 1 1 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 1 1 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 1 1 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 1 1 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 1 1 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 1 1 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 1 1 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 1 1 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 1 1 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 1 1 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 1 1 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 1 1 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 1 1 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 1 1 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 1 1 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 1 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 1 1 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 1 1 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 1 1 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 1 1 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 1 1 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 1 1 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 1 1 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 1 1 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 1 1 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 1 1 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -170,24 +170,24 @@ VERSION 2.8.2 1 1 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 1 1 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 1 1 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 1 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 1 1 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 1 1 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 1 1 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 1 1 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 1 1 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 1 1 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 1 1 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 1 1 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 1 1 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 1 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 1 1 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 1 1 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 1 1 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 1 1 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 1 1 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 1 1 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 1 1 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 1 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 1 1 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 1 1 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 1 1 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 1 1 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 1 1 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 1 1 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 1 1 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 1 1 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 1 1 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 1 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 1 1 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 1 1 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 1 1 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 1 1 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 1 1 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 1 1 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 1 1 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 1 1 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 1 1 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 1 1 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -200,24 +200,24 @@ VERSION 2.8.2 1 1 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 1 1 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 1 1 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 1 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 1 1 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 1 1 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 1 1 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 1 1 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 1 1 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 1 1 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 1 1 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 1 1 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 1 1 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 1 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 1 1 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 1 1 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 1 1 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 1 1 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 1 1 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 1 1 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 1 1 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 1 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 1 1 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 1 1 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 1 1 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 1 1 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 1 1 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 1 1 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 1 1 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 1 1 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 1 1 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 1 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 1 1 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 1 1 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 1 1 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 1 1 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 1 1 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 1 1 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 1 1 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 1 1 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 1 1 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 1 1 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -230,24 +230,24 @@ VERSION 2.8.2 1 1 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 1 1 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 1 1 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 1 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 1 1 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 1 1 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 1 1 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 1 1 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 1 1 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 1 1 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 1 1 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 1 1 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 1 1 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 1 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 1 1 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 1 1 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 1 1 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 1 1 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 1 1 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 1 1 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 1 1 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 1 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 1 1 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 1 1 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 1 1 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 1 1 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 1 1 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 1 1 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 1 1 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 1 1 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 1 1 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 1 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 1 1 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 1 1 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 1 1 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 1 1 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 1 1 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 1 1 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 1 1 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 1 1 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 1 1 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 1 1 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -260,24 +260,24 @@ VERSION 2.8.2 1 1 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 1 1 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 1 1 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 1 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 1 1 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 1 1 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 1 1 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 1 1 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 1 1 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 1 1 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 1 1 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 1 1 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 1 1 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 1 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 1 1 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 1 1 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 1 1 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 1 1 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 1 1 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 1 1 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 1 1 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 1 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 1 1 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 1 1 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 1 1 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 1 1 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 1 1 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 1 1 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 1 1 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 1 1 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 1 1 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 1 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 1 1 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 1 1 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 1 1 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 1 1 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 1 1 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 1 1 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 1 1 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 1 1 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 1 1 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 1 1 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -290,24 +290,24 @@ VERSION 2.8.2 1 1 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 1 1 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 1 1 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 1 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 1 1 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 1 1 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 1 1 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 1 1 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 1 1 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 1 1 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 1 1 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 1 1 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 1 1 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 1 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 1 1 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 1 1 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 1 1 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 1 1 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 1 1 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 1 1 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 1 1 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 1 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 1 1 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 1 1 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 1 1 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 1 1 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 1 1 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 1 1 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 1 1 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 1 1 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 1 1 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 1 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 1 1 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 1 1 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 1 1 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 1 1 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 1 1 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 1 1 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 1 1 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 1 1 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 1 1 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 1 1 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -320,24 +320,24 @@ VERSION 2.8.2 1 1 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 1 1 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 1 1 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 1 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 1 1 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 1 1 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 1 1 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 1 1 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 1 1 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 1 1 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 1 1 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 1 1 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 1 1 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 1 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 1 1 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 1 1 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 1 1 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 1 1 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 1 1 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 1 1 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 1 1 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 1 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 1 1 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 1 1 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 1 1 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 1 1 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 1 1 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 1 1 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 1 1 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 1 1 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 1 1 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 1 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 1 1 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 1 1 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 1 1 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 1 1 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 1 1 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 1 1 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 1 1 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 1 1 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 1 1 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 1 1 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -350,24 +350,24 @@ VERSION 2.8.2 1 1 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 1 1 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 1 1 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 1 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 1 1 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 1 1 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 1 1 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 1 1 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 1 1 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 1 1 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 1 1 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 1 1 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 1 1 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 1 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 1 1 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 1 1 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 1 1 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 1 1 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 1 1 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 1 1 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 1 1 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 1 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 1 1 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 1 1 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 1 1 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 1 1 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 1 1 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 1 1 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 1 1 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 1 1 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 1 1 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 1 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 1 1 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 1 1 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 1 1 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 1 1 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 1 1 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 1 1 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 1 1 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 1 1 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 1 1 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 1 1 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -380,24 +380,24 @@ VERSION 2.8.2 1 1 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 1 1 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 1 1 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 1 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 1 1 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 1 1 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 1 1 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 1 1 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 1 1 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 1 1 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 1 1 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 1 1 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 1 1 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 1 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 1 1 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 1 1 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 1 1 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 1 1 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 1 1 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 1 1 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 1 1 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 1 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 1 1 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 1 1 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 1 1 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 1 1 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 1 1 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 1 1 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 1 1 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 1 1 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 1 1 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 1 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 1 1 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 1 1 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 1 1 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 1 1 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 1 1 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 1 1 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 1 1 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 1 1 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 1 1 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 1 1 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -410,24 +410,24 @@ VERSION 2.8.2 1 1 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 1 1 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 1 1 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 1 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 1 1 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 1 1 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 1 1 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 1 1 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 1 1 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 1 1 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 1 1 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 1 1 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 1 1 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 1 1 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 1 1 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 1 1 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 1 1 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 1 1 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 1 1 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 1 1 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 1 1 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 1 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 1 1 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 1 1 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 1 1 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 1 1 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 1 1 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 1 1 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 1 1 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 1 1 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 1 1 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 1 1 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 1 1 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 1 1 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 1 1 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 1 1 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 1 1 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 1 1 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 1 1 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 1 1 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 1 1 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 1 1 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -440,24 +440,24 @@ VERSION 2.8.2 1 1 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 1 1 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 1 1 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 1 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 1 1 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 1 1 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 1 1 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 1 1 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 1 1 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 1 1 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 1 1 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 1 1 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 1 1 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 1 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 1 1 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 1 1 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 1 1 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 1 1 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 1 1 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 1 1 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 1 1 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 1 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 1 1 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 1 1 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 1 1 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 1 1 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 1 1 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 1 1 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 1 1 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 1 1 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 1 1 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 1 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 1 1 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 1 1 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 1 1 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 1 1 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 1 1 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 1 1 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 1 1 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 1 1 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 1 1 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 1 1 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -470,24 +470,24 @@ VERSION 2.8.2 1 1 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 1 1 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 1 1 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 1 1 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 1 1 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 1 1 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 1 1 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 1 1 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 1 1 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 1 1 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 1 1 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 1 1 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 1 1 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 1 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 1 1 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 1 1 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 1 1 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 1 1 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 1 1 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 1 1 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 1 1 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 1 1 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 1 1 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 1 1 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 1 1 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 1 1 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 1 1 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 1 1 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 1 1 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 1 1 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 1 1 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 1 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 1 1 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 1 1 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 1 1 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 1 1 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 1 1 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 1 1 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 1 1 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 1 1 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 1 1 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 1 1 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -500,24 +500,24 @@ VERSION 2.8.2 1 1 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 1 1 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 1 1 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 1 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 1 1 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 1 1 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 1 1 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 1 1 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 1 1 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 1 1 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 1 1 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 1 1 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 1 1 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 1 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 1 1 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 1 1 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 1 1 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 1 1 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 1 1 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 1 1 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 1 1 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 1 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 1 1 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 1 1 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 1 1 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 1 1 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 1 1 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 1 1 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 1 1 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 1 1 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 1 1 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 1 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 1 1 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 1 1 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 1 1 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 1 1 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 1 1 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 1 1 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 1 1 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 1 1 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 1 1 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 1 1 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -530,24 +530,24 @@ VERSION 2.8.2 1 1 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 1 1 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 1 1 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 1 1 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 1 1 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 1 1 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 1 1 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 1 1 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 1 1 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 1 1 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 1 1 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 1 1 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 1 1 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 1 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 1 1 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 1 1 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 1 1 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 1 1 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 1 1 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 1 1 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 1 1 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 1 1 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 1 1 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 1 1 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 1 1 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 1 1 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 1 1 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 1 1 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 1 1 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 1 1 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 1 1 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 1 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 1 1 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 1 1 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 1 1 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 1 1 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 1 1 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 1 1 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 1 1 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 1 1 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 1 1 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 1 1 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -560,24 +560,24 @@ VERSION 2.8.2 1 1 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 1 1 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 1 1 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 1 1 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 1 1 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 1 1 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 1 1 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 1 1 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 1 1 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 1 1 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 1 1 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 1 1 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 1 1 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 1 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 1 1 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 1 1 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 1 1 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 1 1 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 1 1 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 1 1 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 1 1 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 1 1 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 1 1 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 1 1 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 1 1 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 1 1 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 1 1 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 1 1 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 1 1 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 1 1 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 1 1 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 1 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 1 1 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 1 1 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 1 1 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 1 1 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 1 1 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 1 1 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 1 1 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 1 1 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 1 1 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 1 1 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -590,24 +590,24 @@ VERSION 2.8.2 1 1 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 1 1 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 1 1 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 1 1 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 1 1 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 1 1 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 1 1 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 1 1 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 1 1 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 1 1 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 1 1 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 1 1 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 1 1 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 1 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 1 1 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 1 1 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 1 1 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 1 1 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 1 1 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 1 1 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 1 1 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 1 1 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 1 1 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 1 1 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 1 1 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 1 1 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 1 1 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 1 1 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 1 1 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 1 1 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 1 1 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 1 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 1 1 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 1 1 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 1 1 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 1 1 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 1 1 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 1 1 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 1 1 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 1 1 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 1 1 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 1 1 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -620,24 +620,24 @@ VERSION 2.8.2 1 1 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 1 1 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 1 1 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 1 1 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 1 1 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 1 1 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 1 1 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 1 1 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 1 1 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 1 1 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 1 1 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 1 1 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 1 1 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 1 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 1 1 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 1 1 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 1 1 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 1 1 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 1 1 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 1 1 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 1 1 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 1 1 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 1 1 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 1 1 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 1 1 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 1 1 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 1 1 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 1 1 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 1 1 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 1 1 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 1 1 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 1 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 1 1 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 1 1 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 1 1 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 1 1 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 1 1 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 1 1 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 1 1 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 1 1 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 1 1 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 1 1 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -650,24 +650,24 @@ VERSION 2.8.2 1 1 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 1 1 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 1 1 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 1 1 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 1 1 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 1 1 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 1 1 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 1 1 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 1 1 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 1 1 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 1 1 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 1 1 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 1 1 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 1 1 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 1 1 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 1 1 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 1 1 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 1 1 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 1 1 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 1 1 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 1 1 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 1 1 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 1 1 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 1 1 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 1 1 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 1 1 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 1 1 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 1 1 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 1 1 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 1 1 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 1 1 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 1 1 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 1 1 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 1 1 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 1 1 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 1 1 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 1 1 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 1 1 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 1 1 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 1 1 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 1 1 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 1 1 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -680,24 +680,24 @@ VERSION 2.8.2 1 1 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 1 1 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 1 1 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 1 1 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 1 1 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 1 1 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 1 1 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 1 1 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 1 1 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 1 1 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 1 1 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 1 1 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 1 1 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 1 1 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 1 1 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 1 1 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 1 1 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 1 1 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 1 1 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 1 1 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 1 1 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 1 1 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 1 1 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 1 1 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 1 1 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 1 1 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 1 1 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 1 1 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 1 1 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 1 1 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 1 1 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 1 1 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 1 1 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 1 1 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 1 1 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 1 1 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 1 1 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 1 1 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 1 1 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 1 1 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 1 1 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 1 1 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -710,24 +710,24 @@ VERSION 2.8.2 1 1 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 1 1 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 1 1 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 1 1 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 1 1 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 1 1 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 1 1 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 1 1 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 1 1 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 1 1 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 1 1 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 1 1 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 1 1 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 1 1 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 1 1 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 1 1 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 1 1 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 1 1 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 1 1 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 1 1 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 1 1 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 1 1 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 1 1 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 1 1 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 1 1 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 1 1 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 1 1 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 1 1 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 1 1 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 1 1 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 1 1 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 1 1 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 1 1 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 1 1 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 1 1 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 1 1 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 1 1 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 1 1 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 1 1 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 1 1 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 1 1 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 1 1 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -740,24 +740,24 @@ VERSION 2.8.2 1 1 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 1 1 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 1 1 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 1 1 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 1 1 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 1 1 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 1 1 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 1 1 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 1 1 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 1 1 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 1 1 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 1 1 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 1 1 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 1 1 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 1 1 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 1 1 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 1 1 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 1 1 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 1 1 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 1 1 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 1 1 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 1 1 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 1 1 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 1 1 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 1 1 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 1 1 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 1 1 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 1 1 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 1 1 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 1 1 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 1 1 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 1 1 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 1 1 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 1 1 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 1 1 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 1 1 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 1 1 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 1 1 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 1 1 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 1 1 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 1 1 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 1 1 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -770,24 +770,24 @@ VERSION 2.8.2 1 1 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 1 1 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 1 1 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 1 1 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 1 1 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 1 1 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 1 1 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 1 1 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 1 1 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 1 1 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 1 1 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 1 1 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 1 1 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 1 1 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 1 1 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 1 1 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 1 1 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 1 1 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 1 1 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 1 1 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 1 1 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 1 1 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 1 1 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 1 1 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 1 1 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 1 1 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 1 1 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 1 1 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 1 1 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 1 1 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 1 1 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 1 1 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 1 1 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 1 1 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 1 1 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 1 1 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 1 1 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 1 1 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 1 1 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 1 1 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 1 1 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 1 1 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -800,24 +800,24 @@ VERSION 2.8.2 1 1 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 1 1 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 1 1 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 1 1 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 1 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 1 1 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 1 1 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 1 1 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 1 1 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 1 1 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 1 1 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 1 1 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 1 1 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 1 1 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 1 1 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 1 1 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 1 1 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 1 1 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 1 1 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 1 1 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 1 1 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 1 1 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 1 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 1 1 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 1 1 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 1 1 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 1 1 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 1 1 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 1 1 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 1 1 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 1 1 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 1 1 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 1 1 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 1 1 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 1 1 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 1 1 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 1 1 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 1 1 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 1 1 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 1 1 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 1 1 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 1 1 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -830,24 +830,24 @@ VERSION 2.8.2 1 1 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 1 1 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 1 1 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 1 1 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 1 1 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 1 1 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 1 1 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 1 1 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 1 1 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 1 1 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 1 1 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 1 1 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 1 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 1 1 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 1 1 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 1 1 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 1 1 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 1 1 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 1 1 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 1 1 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 1 1 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 1 1 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 1 1 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 1 1 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 1 1 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 1 1 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 1 1 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 1 1 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 1 1 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 1 1 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 1 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 1 1 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 1 1 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 1 1 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 1 1 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 1 1 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 1 1 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 1 1 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 1 1 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 1 1 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 1 1 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 1 1 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -860,24 +860,24 @@ VERSION 2.8.2 1 1 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 1 1 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 1 1 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 1 1 0.15405E-08 0.10000E+01 0.80645E+05 0.22169E-55 0.16538E-66 0.19444E-63 - 1 1 0.15405E-08 0.10000E+01 0.65036E+05 0.18709E-54 0.26199E-65 0.16386E-62 - 1 1 0.15405E-08 0.10000E+01 0.52449E+05 0.15857E-53 0.34936E-64 0.13874E-61 - 1 1 0.15405E-08 0.10000E+01 0.42297E+05 0.11856E-52 0.46757E-63 0.10359E-60 - 1 1 0.15405E-08 0.10000E+01 0.34111E+05 0.84435E-52 0.62479E-62 0.73632E-60 - 1 1 0.15405E-08 0.10000E+01 0.27509E+05 0.59246E-51 0.81019E-61 0.51534E-59 - 1 1 0.15405E-08 0.10000E+01 0.22184E+05 0.40692E-50 0.10307E-59 0.35092E-58 - 1 1 0.15405E-08 0.10000E+01 0.17891E+05 0.27534E-49 0.14075E-58 0.22768E-57 - 1 1 0.15405E-08 0.10000E+01 0.14428E+05 0.19631E-48 0.24555E-57 0.13888E-56 - 1 1 0.15405E-08 0.10000E+01 0.11635E+05 0.17070E-47 0.57662E-56 0.81553E-56 - 1 1 0.15405E-08 0.10000E+01 0.93834E+04 0.19685E-46 0.15733E-54 0.52856E-55 - 1 1 0.15405E-08 0.10000E+01 0.75673E+04 0.27170E-45 0.44125E-53 0.48422E-54 - 1 1 0.15405E-08 0.10000E+01 0.61026E+04 0.39529E-44 0.12261E-51 0.62492E-53 - 1 1 0.15405E-08 0.10000E+01 0.49215E+04 0.57536E-43 0.33698E-50 0.90174E-52 - 1 1 0.15405E-08 0.10000E+01 0.39689E+04 0.83012E-42 0.92000E-49 0.13001E-50 - 1 1 0.15405E-08 0.10000E+01 0.32008E+04 0.37425E-39 0.80984E-46 0.58076E-48 - 1 1 0.15405E-08 0.10000E+01 0.25813E+04 0.27849E-30 0.13803E-36 0.42644E-39 - 1 1 0.15405E-08 0.10000E+01 0.20817E+04 0.53875E-14 0.11903E-19 0.81441E-23 + 1 1 0.15405E-08 0.10000E+01 0.80645E+05 0.15001E-12 0.91972E-24 0.13169E-20 + 1 1 0.15405E-08 0.10000E+01 0.65036E+05 0.19213E-12 0.20848E-23 0.16858E-20 + 1 1 0.15405E-08 0.10000E+01 0.52449E+05 0.24243E-12 0.47202E-23 0.21254E-20 + 1 1 0.15405E-08 0.10000E+01 0.42297E+05 0.30246E-12 0.11147E-22 0.26464E-20 + 1 1 0.15405E-08 0.10000E+01 0.34111E+05 0.37429E-12 0.29920E-22 0.32582E-20 + 1 1 0.15405E-08 0.10000E+01 0.27509E+05 0.46190E-12 0.98679E-22 0.39673E-20 + 1 1 0.15405E-08 0.10000E+01 0.22184E+05 0.57520E-12 0.39261E-21 0.47820E-20 + 1 1 0.15405E-08 0.10000E+01 0.17891E+05 0.74041E-12 0.17297E-20 0.57272E-20 + 1 1 0.15405E-08 0.10000E+01 0.14428E+05 0.10253E-11 0.78986E-20 0.68859E-20 + 1 1 0.15405E-08 0.10000E+01 0.11635E+05 0.15998E-11 0.36328E-19 0.84980E-20 + 1 1 0.15405E-08 0.10000E+01 0.93834E+04 0.28796E-11 0.16677E-18 0.11186E-19 + 1 1 0.15405E-08 0.10000E+01 0.75673E+04 0.58696E-11 0.76119E-18 0.16480E-19 + 1 1 0.15405E-08 0.10000E+01 0.61026E+04 0.12974E-10 0.34345E-17 0.28036E-19 + 1 1 0.15405E-08 0.10000E+01 0.49215E+04 0.29868E-10 0.15201E-16 0.54439E-19 + 1 1 0.15405E-08 0.10000E+01 0.39689E+04 0.69673E-10 0.65650E-16 0.11541E-18 + 1 1 0.15405E-08 0.10000E+01 0.32008E+04 0.16191E-09 0.27640E-15 0.25516E-18 + 1 1 0.15405E-08 0.10000E+01 0.25813E+04 0.37121E-09 0.11350E-14 0.57012E-18 + 1 1 0.15405E-08 0.10000E+01 0.20817E+04 0.83541E-09 0.45411E-14 0.12655E-17 1 1 0.15405E-08 0.10000E+01 0.16788E+04 0.18406E-08 0.17690E-13 0.27668E-17 1 1 0.15405E-08 0.10000E+01 0.13538E+04 0.39646E-08 0.67251E-13 0.59320E-17 1 1 0.15405E-08 0.10000E+01 0.10918E+04 0.83445E-08 0.25085E-12 0.12448E-16 @@ -890,24 +890,24 @@ VERSION 2.8.2 1 1 0.15405E-08 0.10000E+01 0.24221E+03 0.83283E-06 0.76833E-09 0.12325E-14 1 1 0.15405E-08 0.10000E+01 0.19533E+03 0.13126E-05 0.14601E-08 0.19419E-14 1 1 0.15405E-08 0.10000E+01 0.15752E+03 0.13126E-05 0.14601E-08 0.19419E-14 - 1 1 0.26880E-08 0.10000E+01 0.80645E+05 0.44147E-55 0.32899E-66 0.76539E-63 - 1 1 0.26880E-08 0.10000E+01 0.65036E+05 0.37227E-54 0.52097E-65 0.64519E-62 - 1 1 0.26880E-08 0.10000E+01 0.52449E+05 0.31535E-53 0.69411E-64 0.54648E-61 - 1 1 0.26880E-08 0.10000E+01 0.42297E+05 0.23562E-52 0.92815E-63 0.40832E-60 - 1 1 0.26880E-08 0.10000E+01 0.34111E+05 0.16767E-51 0.12398E-61 0.29071E-59 - 1 1 0.26880E-08 0.10000E+01 0.27509E+05 0.11758E-50 0.16033E-60 0.20417E-58 - 1 1 0.26880E-08 0.10000E+01 0.22184E+05 0.80503E-50 0.19916E-59 0.14006E-57 - 1 1 0.26880E-08 0.10000E+01 0.17891E+05 0.53362E-49 0.24604E-58 0.92169E-57 - 1 1 0.26880E-08 0.10000E+01 0.14428E+05 0.35072E-48 0.34415E-57 0.57325E-56 - 1 1 0.26880E-08 0.10000E+01 0.11635E+05 0.25233E-47 0.64825E-56 0.33641E-55 - 1 1 0.26880E-08 0.10000E+01 0.93834E+04 0.23294E-46 0.16099E-54 0.19548E-54 - 1 1 0.26880E-08 0.10000E+01 0.75673E+04 0.28462E-45 0.44413E-53 0.13553E-53 - 1 1 0.26880E-08 0.10000E+01 0.61026E+04 0.40026E-44 0.12346E-51 0.13880E-52 - 1 1 0.26880E-08 0.10000E+01 0.49215E+04 0.57964E-43 0.33900E-50 0.18524E-51 - 1 1 0.26880E-08 0.10000E+01 0.39689E+04 0.83490E-42 0.92262E-49 0.26049E-50 - 1 1 0.26880E-08 0.10000E+01 0.32008E+04 0.37529E-39 0.80913E-46 0.11368E-47 - 1 1 0.26880E-08 0.10000E+01 0.25813E+04 0.27821E-30 0.13740E-36 0.81010E-39 - 1 1 0.26880E-08 0.10000E+01 0.20817E+04 0.53615E-14 0.11804E-19 0.14934E-22 + 1 1 0.26880E-08 0.10000E+01 0.80645E+05 0.29889E-12 0.18253E-23 0.51836E-20 + 1 1 0.26880E-08 0.10000E+01 0.65036E+05 0.38272E-12 0.41144E-23 0.66371E-20 + 1 1 0.26880E-08 0.10000E+01 0.52449E+05 0.48272E-12 0.91242E-23 0.83711E-20 + 1 1 0.26880E-08 0.10000E+01 0.42297E+05 0.60166E-12 0.20271E-22 0.10431E-19 + 1 1 0.26880E-08 0.10000E+01 0.34111E+05 0.74252E-12 0.47711E-22 0.12857E-19 + 1 1 0.26880E-08 0.10000E+01 0.27509E+05 0.90955E-12 0.13100E-21 0.15675E-19 + 1 1 0.26880E-08 0.10000E+01 0.22184E+05 0.11119E-11 0.44757E-21 0.18903E-19 + 1 1 0.26880E-08 0.10000E+01 0.17891E+05 0.13741E-11 0.18206E-20 0.22571E-19 + 1 1 0.26880E-08 0.10000E+01 0.14428E+05 0.17613E-11 0.80566E-20 0.26806E-19 + 1 1 0.26880E-08 0.10000E+01 0.11635E+05 0.24407E-11 0.36623E-19 0.32029E-19 + 1 1 0.26880E-08 0.10000E+01 0.93834E+04 0.38265E-11 0.16721E-18 0.39399E-19 + 1 1 0.26880E-08 0.10000E+01 0.75673E+04 0.69213E-11 0.76050E-18 0.51802E-19 + 1 1 0.26880E-08 0.10000E+01 0.61026E+04 0.14123E-10 0.34224E-17 0.76072E-19 + 1 1 0.26880E-08 0.10000E+01 0.49215E+04 0.31080E-10 0.15118E-16 0.12798E-18 + 1 1 0.26880E-08 0.10000E+01 0.39689E+04 0.70831E-10 0.65194E-16 0.24321E-18 + 1 1 0.26880E-08 0.10000E+01 0.32008E+04 0.16267E-09 0.27419E-15 0.50060E-18 + 1 1 0.26880E-08 0.10000E+01 0.25813E+04 0.37069E-09 0.11250E-14 0.10705E-17 + 1 1 0.26880E-08 0.10000E+01 0.20817E+04 0.83144E-09 0.44988E-14 0.23125E-17 1 1 0.26880E-08 0.10000E+01 0.16788E+04 0.18283E-08 0.17519E-13 0.49687E-17 1 1 0.26880E-08 0.10000E+01 0.13538E+04 0.39332E-08 0.66577E-13 0.10530E-16 1 1 0.26880E-08 0.10000E+01 0.10918E+04 0.82717E-08 0.24827E-12 0.21919E-16 @@ -920,24 +920,24 @@ VERSION 2.8.2 1 1 0.26880E-08 0.10000E+01 0.24221E+03 0.82391E-06 0.75991E-09 0.21294E-14 1 1 0.26880E-08 0.10000E+01 0.19533E+03 0.12984E-05 0.14440E-08 0.33534E-14 1 1 0.26880E-08 0.10000E+01 0.15752E+03 0.12984E-05 0.14440E-08 0.33534E-14 - 1 1 0.46905E-08 0.10000E+01 0.80645E+05 0.84914E-55 0.63264E-66 0.25137E-62 - 1 1 0.46905E-08 0.10000E+01 0.65036E+05 0.71591E-54 0.10018E-64 0.21198E-61 - 1 1 0.46905E-08 0.10000E+01 0.52449E+05 0.60640E-53 0.13347E-63 0.17961E-60 - 1 1 0.46905E-08 0.10000E+01 0.42297E+05 0.45308E-52 0.17852E-62 0.13429E-59 - 1 1 0.46905E-08 0.10000E+01 0.34111E+05 0.32249E-51 0.23870E-61 0.95741E-59 - 1 1 0.46905E-08 0.10000E+01 0.27509E+05 0.22631E-50 0.30904E-60 0.67413E-58 - 1 1 0.46905E-08 0.10000E+01 0.22184E+05 0.15505E-49 0.38168E-59 0.46473E-57 - 1 1 0.46905E-08 0.10000E+01 0.17891E+05 0.10224E-48 0.45256E-58 0.30863E-56 - 1 1 0.46905E-08 0.10000E+01 0.14428E+05 0.65022E-48 0.55190E-57 0.19482E-55 - 1 1 0.46905E-08 0.10000E+01 0.11635E+05 0.41896E-47 0.82401E-56 0.11604E-54 - 1 1 0.46905E-08 0.10000E+01 0.93834E+04 0.31427E-46 0.17362E-54 0.66133E-54 - 1 1 0.46905E-08 0.10000E+01 0.75673E+04 0.31973E-45 0.45741E-53 0.40197E-53 - 1 1 0.46905E-08 0.10000E+01 0.61026E+04 0.41790E-44 0.12665E-51 0.33476E-52 - 1 1 0.46905E-08 0.10000E+01 0.49215E+04 0.59589E-43 0.34720E-50 0.40051E-51 - 1 1 0.46905E-08 0.10000E+01 0.39689E+04 0.85492E-42 0.94020E-49 0.54427E-50 - 1 1 0.46905E-08 0.10000E+01 0.32008E+04 0.38237E-39 0.81918E-46 0.23194E-47 - 1 1 0.46905E-08 0.10000E+01 0.25813E+04 0.28156E-30 0.13815E-36 0.15995E-38 - 1 1 0.46905E-08 0.10000E+01 0.20817E+04 0.53870E-14 0.11779E-19 0.28225E-22 + 1 1 0.46905E-08 0.10000E+01 0.80645E+05 0.57500E-12 0.35114E-23 0.17022E-19 + 1 1 0.46905E-08 0.10000E+01 0.65036E+05 0.73624E-12 0.79068E-23 0.21799E-19 + 1 1 0.46905E-08 0.10000E+01 0.52449E+05 0.92859E-12 0.17410E-22 0.27505E-19 + 1 1 0.46905E-08 0.10000E+01 0.42297E+05 0.11572E-11 0.37661E-22 0.34293E-19 + 1 1 0.46905E-08 0.10000E+01 0.34111E+05 0.14269E-11 0.82369E-22 0.42305E-19 + 1 1 0.46905E-08 0.10000E+01 0.27509E+05 0.17430E-11 0.19616E-21 0.51643E-19 + 1 1 0.46905E-08 0.10000E+01 0.22184E+05 0.21140E-11 0.56452E-21 0.62357E-19 + 1 1 0.46905E-08 0.10000E+01 0.17891E+05 0.25619E-11 0.20325E-20 0.74483E-19 + 1 1 0.46905E-08 0.10000E+01 0.14428E+05 0.31486E-11 0.84913E-20 0.88202E-19 + 1 1 0.46905E-08 0.10000E+01 0.11635E+05 0.40389E-11 0.37719E-19 0.10425E-18 + 1 1 0.46905E-08 0.10000E+01 0.93834E+04 0.56486E-11 0.17039E-18 0.12484E-18 + 1 1 0.46905E-08 0.10000E+01 0.75673E+04 0.89903E-11 0.76986E-18 0.15558E-18 + 1 1 0.46905E-08 0.10000E+01 0.61026E+04 0.16481E-10 0.34474E-17 0.20966E-18 + 1 1 0.46905E-08 0.10000E+01 0.49215E+04 0.33800E-10 0.15170E-16 0.31695E-18 + 1 1 0.46905E-08 0.10000E+01 0.39689E+04 0.74009E-10 0.65230E-16 0.54361E-18 + 1 1 0.46905E-08 0.10000E+01 0.32008E+04 0.16638E-09 0.27375E-15 0.10331E-17 + 1 1 0.46905E-08 0.10000E+01 0.25813E+04 0.37483E-09 0.11215E-14 0.20907E-17 + 1 1 0.46905E-08 0.10000E+01 0.20817E+04 0.83538E-09 0.44796E-14 0.43540E-17 1 1 0.46905E-08 0.10000E+01 0.16788E+04 0.18300E-08 0.17429E-13 0.91273E-17 1 1 0.46905E-08 0.10000E+01 0.13538E+04 0.39273E-08 0.66194E-13 0.19016E-16 1 1 0.46905E-08 0.10000E+01 0.10918E+04 0.82460E-08 0.24672E-12 0.39111E-16 @@ -950,24 +950,24 @@ VERSION 2.8.2 1 1 0.46905E-08 0.10000E+01 0.24221E+03 0.81813E-06 0.75423E-09 0.36911E-14 1 1 0.46905E-08 0.10000E+01 0.19533E+03 0.12892E-05 0.14332E-08 0.58084E-14 1 1 0.46905E-08 0.10000E+01 0.15752E+03 0.12892E-05 0.14332E-08 0.58084E-14 - 1 1 0.81846E-08 0.10000E+01 0.80645E+05 0.16157E-54 0.12039E-65 0.81777E-62 - 1 1 0.81846E-08 0.10000E+01 0.65036E+05 0.13624E-53 0.19067E-64 0.68988E-61 - 1 1 0.81846E-08 0.10000E+01 0.52449E+05 0.11542E-52 0.25416E-63 0.58475E-60 - 1 1 0.81846E-08 0.10000E+01 0.42297E+05 0.86267E-52 0.34029E-62 0.43752E-59 - 1 1 0.81846E-08 0.10000E+01 0.34111E+05 0.61456E-51 0.45595E-61 0.31234E-58 - 1 1 0.81846E-08 0.10000E+01 0.27509E+05 0.43204E-50 0.59265E-60 0.22044E-57 - 1 1 0.81846E-08 0.10000E+01 0.22184E+05 0.29695E-49 0.73515E-59 0.15261E-56 - 1 1 0.81846E-08 0.10000E+01 0.17891E+05 0.19647E-48 0.86568E-58 0.10213E-55 - 1 1 0.81846E-08 0.10000E+01 0.14428E+05 0.12425E-47 0.99469E-57 0.65308E-55 - 1 1 0.81846E-08 0.10000E+01 0.11635E+05 0.76467E-47 0.12439E-55 0.39573E-54 - 1 1 0.81846E-08 0.10000E+01 0.93834E+04 0.49731E-46 0.20939E-54 0.22686E-53 - 1 1 0.81846E-08 0.10000E+01 0.75673E+04 0.40864E-45 0.49634E-53 0.12961E-52 - 1 1 0.81846E-08 0.10000E+01 0.61026E+04 0.46629E-44 0.13469E-51 0.90893E-52 - 1 1 0.81846E-08 0.10000E+01 0.49215E+04 0.63787E-43 0.36725E-50 0.94409E-51 - 1 1 0.81846E-08 0.10000E+01 0.39689E+04 0.90467E-42 0.98534E-49 0.12204E-49 - 1 1 0.81846E-08 0.10000E+01 0.32008E+04 0.40062E-39 0.84797E-46 0.50685E-47 - 1 1 0.81846E-08 0.10000E+01 0.25813E+04 0.29122E-30 0.14099E-36 0.33706E-38 - 1 1 0.81846E-08 0.10000E+01 0.20817E+04 0.54889E-14 0.11826E-19 0.56261E-22 + 1 1 0.81846E-08 0.10000E+01 0.80645E+05 0.10941E-11 0.66970E-23 0.55365E-19 + 1 1 0.81846E-08 0.10000E+01 0.65036E+05 0.14011E-11 0.15103E-22 0.70920E-19 + 1 1 0.81846E-08 0.10000E+01 0.52449E+05 0.17674E-11 0.33261E-22 0.89511E-19 + 1 1 0.81846E-08 0.10000E+01 0.42297E+05 0.22031E-11 0.71397E-22 0.11166E-18 + 1 1 0.81846E-08 0.10000E+01 0.34111E+05 0.27171E-11 0.15113E-21 0.13787E-18 + 1 1 0.81846E-08 0.10000E+01 0.27509E+05 0.33175E-11 0.32969E-21 0.16851E-18 + 1 1 0.81846E-08 0.10000E+01 0.22184E+05 0.40129E-11 0.81462E-21 0.20377E-18 + 1 1 0.81846E-08 0.10000E+01 0.17891E+05 0.48227E-11 0.25093E-20 0.24371E-18 + 1 1 0.81846E-08 0.10000E+01 0.14428E+05 0.58046E-11 0.95196E-20 0.28853E-18 + 1 1 0.81846E-08 0.10000E+01 0.11635E+05 0.71217E-11 0.40435E-19 0.33953E-18 + 1 1 0.81846E-08 0.10000E+01 0.93834E+04 0.91982E-11 0.17875E-18 0.40104E-18 + 1 1 0.81846E-08 0.10000E+01 0.75673E+04 0.13076E-10 0.79676E-18 0.48454E-18 + 1 1 0.81846E-08 0.10000E+01 0.61026E+04 0.21236E-10 0.35315E-17 0.61692E-18 + 1 1 0.81846E-08 0.10000E+01 0.49215E+04 0.39469E-10 0.15416E-16 0.85780E-18 + 1 1 0.81846E-08 0.10000E+01 0.39689E+04 0.81002E-10 0.65872E-16 0.13354E-17 + 1 1 0.81846E-08 0.10000E+01 0.32008E+04 0.17532E-09 0.27513E-15 0.23201E-17 + 1 1 0.81846E-08 0.10000E+01 0.25813E+04 0.38650E-09 0.11232E-14 0.43741E-17 + 1 1 0.81846E-08 0.10000E+01 0.20817E+04 0.85051E-09 0.44750E-14 0.86491E-17 1 1 0.81846E-08 0.10000E+01 0.16788E+04 0.18486E-08 0.17379E-13 0.17469E-16 1 1 0.81846E-08 0.10000E+01 0.13538E+04 0.39471E-08 0.65916E-13 0.35430E-16 1 1 0.81846E-08 0.10000E+01 0.10918E+04 0.82589E-08 0.24542E-12 0.71449E-16 @@ -980,24 +980,24 @@ VERSION 2.8.2 1 1 0.81846E-08 0.10000E+01 0.24221E+03 0.81272E-06 0.74859E-09 0.64172E-14 1 1 0.81846E-08 0.10000E+01 0.19533E+03 0.12804E-05 0.14225E-08 0.10085E-13 1 1 0.81846E-08 0.10000E+01 0.15752E+03 0.12804E-05 0.14225E-08 0.10085E-13 - 1 1 0.14282E-07 0.10000E+01 0.80645E+05 0.30442E-54 0.22691E-65 0.26444E-61 - 1 1 0.14282E-07 0.10000E+01 0.65036E+05 0.25675E-53 0.35946E-64 0.22317E-60 - 1 1 0.14282E-07 0.10000E+01 0.52449E+05 0.21757E-52 0.47947E-63 0.18923E-59 - 1 1 0.14282E-07 0.10000E+01 0.42297E+05 0.16272E-51 0.64280E-62 0.14168E-58 - 1 1 0.14282E-07 0.10000E+01 0.34111E+05 0.11605E-50 0.86337E-61 0.10127E-57 - 1 1 0.14282E-07 0.10000E+01 0.27509E+05 0.81753E-50 0.11274E-59 0.71622E-57 - 1 1 0.14282E-07 0.10000E+01 0.22184E+05 0.56408E-49 0.14089E-58 0.49766E-56 - 1 1 0.14282E-07 0.10000E+01 0.17891E+05 0.37546E-48 0.16701E-57 0.33521E-55 - 1 1 0.14282E-07 0.10000E+01 0.14428E+05 0.23872E-47 0.18921E-56 0.21667E-54 - 1 1 0.14282E-07 0.10000E+01 0.11635E+05 0.14540E-46 0.21527E-55 0.13338E-53 - 1 1 0.14282E-07 0.10000E+01 0.93834E+04 0.88067E-46 0.29254E-54 0.77578E-53 - 1 1 0.14282E-07 0.10000E+01 0.75673E+04 0.60553E-45 0.58326E-53 0.43430E-52 - 1 1 0.14282E-07 0.10000E+01 0.61026E+04 0.57349E-44 0.15051E-51 0.27098E-51 - 1 1 0.14282E-07 0.10000E+01 0.49215E+04 0.72317E-43 0.40568E-50 0.24252E-50 - 1 1 0.14282E-07 0.10000E+01 0.39689E+04 0.10013E-41 0.10738E-48 0.29366E-49 - 1 1 0.14282E-07 0.10000E+01 0.32008E+04 0.43649E-39 0.90644E-46 0.11889E-46 - 1 1 0.14282E-07 0.10000E+01 0.25813E+04 0.31082E-30 0.14709E-36 0.76420E-38 - 1 1 0.14282E-07 0.10000E+01 0.20817E+04 0.57088E-14 0.11967E-19 0.12009E-21 + 1 1 0.14282E-07 0.10000E+01 0.80645E+05 0.20612E-11 0.12658E-22 0.17900E-18 + 1 1 0.14282E-07 0.10000E+01 0.65036E+05 0.26399E-11 0.28613E-22 0.22934E-18 + 1 1 0.14282E-07 0.10000E+01 0.52449E+05 0.33311E-11 0.63196E-22 0.28955E-18 + 1 1 0.14282E-07 0.10000E+01 0.42297E+05 0.41540E-11 0.13575E-21 0.36139E-18 + 1 1 0.14282E-07 0.10000E+01 0.34111E+05 0.51262E-11 0.28433E-21 0.44655E-18 + 1 1 0.14282E-07 0.10000E+01 0.27509E+05 0.62620E-11 0.59381E-21 0.54640E-18 + 1 1 0.14282E-07 0.10000E+01 0.22184E+05 0.75726E-11 0.13206E-20 0.66172E-18 + 1 1 0.14282E-07 0.10000E+01 0.17891E+05 0.90746E-11 0.34882E-20 0.79266E-18 + 1 1 0.14282E-07 0.10000E+01 0.14428E+05 0.10820E-10 0.11624E-19 0.93933E-18 + 1 1 0.14282E-07 0.10000E+01 0.11635E+05 0.12970E-10 0.45915E-19 0.11039E-17 + 1 1 0.14282E-07 0.10000E+01 0.93834E+04 0.15966E-10 0.19556E-18 0.12952E-17 + 1 1 0.14282E-07 0.10000E+01 0.75673E+04 0.20907E-10 0.85157E-18 0.15380E-17 + 1 1 0.14282E-07 0.10000E+01 0.61026E+04 0.30404E-10 0.37080E-17 0.18909E-17 + 1 1 0.14282E-07 0.10000E+01 0.49215E+04 0.50484E-10 0.15955E-16 0.24806E-17 + 1 1 0.14282E-07 0.10000E+01 0.39689E+04 0.94752E-10 0.67398E-16 0.35711E-17 + 1 1 0.14282E-07 0.10000E+01 0.32008E+04 0.19322E-09 0.27900E-15 0.56992E-17 + 1 1 0.14282E-07 0.10000E+01 0.25813E+04 0.41059E-09 0.11313E-14 0.99423E-17 + 1 1 0.14282E-07 0.10000E+01 0.20817E+04 0.88330E-09 0.44851E-14 0.18446E-16 1 1 0.14282E-07 0.10000E+01 0.16788E+04 0.18924E-08 0.17356E-13 0.35443E-16 1 1 0.14282E-07 0.10000E+01 0.13538E+04 0.40020E-08 0.65652E-13 0.69167E-16 1 1 0.14282E-07 0.10000E+01 0.10918E+04 0.83184E-08 0.24397E-12 0.13540E-15 @@ -1010,24 +1010,24 @@ VERSION 2.8.2 1 1 0.14282E-07 0.10000E+01 0.24221E+03 0.80590E-06 0.74114E-09 0.11214E-13 1 1 0.14282E-07 0.10000E+01 0.19533E+03 0.12691E-05 0.14082E-08 0.17584E-13 1 1 0.14282E-07 0.10000E+01 0.15752E+03 0.12691E-05 0.14082E-08 0.17584E-13 - 1 1 0.24920E-07 0.10000E+01 0.80645E+05 0.56799E-54 0.42354E-65 0.84609E-61 - 1 1 0.24920E-07 0.10000E+01 0.65036E+05 0.47921E-53 0.67115E-64 0.71433E-60 - 1 1 0.24920E-07 0.10000E+01 0.52449E+05 0.40621E-52 0.89589E-63 0.60589E-59 - 1 1 0.24920E-07 0.10000E+01 0.42297E+05 0.30398E-51 0.12027E-61 0.45392E-58 - 1 1 0.24920E-07 0.10000E+01 0.34111E+05 0.21705E-50 0.16193E-60 0.32479E-57 - 1 1 0.24920E-07 0.10000E+01 0.27509E+05 0.15323E-49 0.21238E-59 0.23013E-56 - 1 1 0.24920E-07 0.10000E+01 0.22184E+05 0.10612E-48 0.26744E-58 0.16041E-55 - 1 1 0.24920E-07 0.10000E+01 0.17891E+05 0.71084E-48 0.32040E-57 0.10863E-54 - 1 1 0.24920E-07 0.10000E+01 0.14428E+05 0.45587E-47 0.36499E-56 0.70834E-54 - 1 1 0.24920E-07 0.10000E+01 0.11635E+05 0.27903E-46 0.40136E-55 0.44191E-53 - 1 1 0.24920E-07 0.10000E+01 0.93834E+04 0.16495E-45 0.47141E-54 0.26116E-52 - 1 1 0.24920E-07 0.10000E+01 0.75673E+04 0.10159E-44 0.76552E-53 0.14621E-51 - 1 1 0.24920E-07 0.10000E+01 0.61026E+04 0.79681E-44 0.18024E-51 0.85225E-51 - 1 1 0.24920E-07 0.10000E+01 0.49215E+04 0.88844E-43 0.47589E-50 0.66813E-50 - 1 1 0.24920E-07 0.10000E+01 0.39689E+04 0.11805E-41 0.12392E-48 0.74971E-49 - 1 1 0.24920E-07 0.10000E+01 0.32008E+04 0.50367E-39 0.10197E-45 0.29630E-46 - 1 1 0.24920E-07 0.10000E+01 0.25813E+04 0.34881E-30 0.15962E-36 0.18551E-37 - 1 1 0.24920E-07 0.10000E+01 0.20817E+04 0.61657E-14 0.12352E-19 0.27613E-21 + 1 1 0.24920E-07 0.10000E+01 0.80645E+05 0.38452E-11 0.23695E-22 0.57263E-18 + 1 1 0.24920E-07 0.10000E+01 0.65036E+05 0.49257E-11 0.53696E-22 0.73379E-18 + 1 1 0.24920E-07 0.10000E+01 0.52449E+05 0.62173E-11 0.11903E-21 0.92671E-18 + 1 1 0.24920E-07 0.10000E+01 0.42297E+05 0.77567E-11 0.25668E-21 0.11572E-17 + 1 1 0.24920E-07 0.10000E+01 0.34111E+05 0.95787E-11 0.53751E-21 0.14308E-17 + 1 1 0.24920E-07 0.10000E+01 0.27509E+05 0.11711E-10 0.11035E-20 0.17525E-17 + 1 1 0.24920E-07 0.10000E+01 0.22184E+05 0.14172E-10 0.23126E-20 0.21252E-17 + 1 1 0.24920E-07 0.10000E+01 0.17891E+05 0.16978E-10 0.54240E-20 0.25497E-17 + 1 1 0.24920E-07 0.10000E+01 0.14428E+05 0.20171E-10 0.15753E-19 0.30257E-17 + 1 1 0.24920E-07 0.10000E+01 0.11635E+05 0.23912E-10 0.56487E-19 0.35565E-17 + 1 1 0.24920E-07 0.10000E+01 0.93834E+04 0.28672E-10 0.22781E-18 0.41605E-17 + 1 1 0.24920E-07 0.10000E+01 0.75673E+04 0.35659E-10 0.95840E-18 0.48942E-17 + 1 1 0.24920E-07 0.10000E+01 0.61026E+04 0.47734E-10 0.40629E-17 0.58929E-17 + 1 1 0.24920E-07 0.10000E+01 0.49215E+04 0.71409E-10 0.17094E-16 0.74460E-17 + 1 1 0.24920E-07 0.10000E+01 0.39689E+04 0.12111E-09 0.70870E-16 0.10136E-16 + 1 1 0.24920E-07 0.10000E+01 0.32008E+04 0.22814E-09 0.28897E-15 0.15098E-16 + 1 1 0.24920E-07 0.10000E+01 0.25813E+04 0.45899E-09 0.11580E-14 0.24517E-16 + 1 1 0.24920E-07 0.10000E+01 0.20817E+04 0.95244E-09 0.45507E-14 0.42571E-16 1 1 0.24920E-07 0.10000E+01 0.16788E+04 0.19921E-08 0.17496E-13 0.77232E-16 1 1 0.24920E-07 0.10000E+01 0.13538E+04 0.41442E-08 0.65869E-13 0.14362E-15 1 1 0.24920E-07 0.10000E+01 0.10918E+04 0.85146E-08 0.24393E-12 0.27015E-15 @@ -1040,24 +1040,24 @@ VERSION 2.8.2 1 1 0.24920E-07 0.10000E+01 0.24221E+03 0.80227E-06 0.73576E-09 0.19769E-13 1 1 0.24920E-07 0.10000E+01 0.19533E+03 0.12625E-05 0.13979E-08 0.30878E-13 1 1 0.24920E-07 0.10000E+01 0.15752E+03 0.12625E-05 0.13979E-08 0.30878E-13 - 1 1 0.43485E-07 0.10000E+01 0.80645E+05 0.10510E-53 0.78406E-65 0.26954E-60 - 1 1 0.43485E-07 0.10000E+01 0.65036E+05 0.88705E-53 0.12428E-63 0.22764E-59 - 1 1 0.43485E-07 0.10000E+01 0.52449E+05 0.75217E-52 0.16602E-62 0.19314E-58 - 1 1 0.43485E-07 0.10000E+01 0.42297E+05 0.56321E-51 0.22317E-61 0.14477E-57 - 1 1 0.43485E-07 0.10000E+01 0.34111E+05 0.40259E-50 0.30113E-60 0.10369E-56 - 1 1 0.43485E-07 0.10000E+01 0.27509E+05 0.28477E-49 0.39653E-59 0.73588E-56 - 1 1 0.43485E-07 0.10000E+01 0.22184E+05 0.19790E-48 0.50282E-58 0.51431E-55 - 1 1 0.43485E-07 0.10000E+01 0.17891E+05 0.13334E-47 0.60891E-57 0.34986E-54 - 1 1 0.43485E-07 0.10000E+01 0.14428E+05 0.86274E-47 0.70205E-56 0.22981E-53 - 1 1 0.43485E-07 0.10000E+01 0.11635E+05 0.53336E-46 0.76941E-55 0.14498E-52 - 1 1 0.43485E-07 0.10000E+01 0.93834E+04 0.31489E-45 0.83738E-54 0.86955E-52 - 1 1 0.43485E-07 0.10000E+01 0.75673E+04 0.18378E-44 0.11296E-52 0.49107E-51 - 1 1 0.43485E-07 0.10000E+01 0.61026E+04 0.12414E-43 0.23332E-51 0.27625E-50 - 1 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11934E-42 0.59575E-50 0.19471E-49 - 1 1 0.43485E-07 0.10000E+01 0.39689E+04 0.14919E-41 0.15251E-48 0.20142E-48 - 1 1 0.43485E-07 0.10000E+01 0.32008E+04 0.62017E-39 0.12195E-45 0.77746E-46 - 1 1 0.43485E-07 0.10000E+01 0.25813E+04 0.41582E-30 0.18220E-36 0.47847E-37 - 1 1 0.43485E-07 0.10000E+01 0.20817E+04 0.69929E-14 0.13076E-19 0.68378E-21 + 1 1 0.43485E-07 0.10000E+01 0.80645E+05 0.71141E-11 0.43986E-22 0.18240E-17 + 1 1 0.43485E-07 0.10000E+01 0.65036E+05 0.91148E-11 0.99912E-22 0.23377E-17 + 1 1 0.43485E-07 0.10000E+01 0.52449E+05 0.11508E-10 0.22227E-21 0.29530E-17 + 1 1 0.43485E-07 0.10000E+01 0.42297E+05 0.14364E-10 0.48161E-21 0.36888E-17 + 1 1 0.43485E-07 0.10000E+01 0.34111E+05 0.17750E-10 0.10125E-20 0.45638E-17 + 1 1 0.43485E-07 0.10000E+01 0.27509E+05 0.21722E-10 0.20708E-20 0.55947E-17 + 1 1 0.43485E-07 0.10000E+01 0.22184E+05 0.26316E-10 0.42158E-20 0.67926E-17 + 1 1 0.43485E-07 0.10000E+01 0.17891E+05 0.31549E-10 0.91452E-20 0.81616E-17 + 1 1 0.43485E-07 0.10000E+01 0.14428E+05 0.37454E-10 0.23555E-19 0.96998E-17 + 1 1 0.43485E-07 0.10000E+01 0.11635E+05 0.44187E-10 0.75836E-19 0.11411E-16 + 1 1 0.43485E-07 0.10000E+01 0.93834E+04 0.52264E-10 0.28550E-18 0.13335E-16 + 1 1 0.43485E-07 0.10000E+01 0.75673E+04 0.63072E-10 0.11484E-17 0.15607E-16 + 1 1 0.43485E-07 0.10000E+01 0.61026E+04 0.79908E-10 0.46980E-17 0.18558E-16 + 1 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11014E-09 0.19154E-16 0.22894E-16 + 1 1 0.43485E-07 0.10000E+01 0.39689E+04 0.16970E-09 0.77244E-16 0.30000E-16 + 1 1 0.43485E-07 0.10000E+01 0.32008E+04 0.29224E-09 0.30762E-15 0.42466E-16 + 1 1 0.43485E-07 0.10000E+01 0.25813E+04 0.54774E-09 0.12094E-14 0.65040E-16 + 1 1 0.43485E-07 0.10000E+01 0.20817E+04 0.10796E-08 0.46827E-14 0.10637E-15 1 1 0.43485E-07 0.10000E+01 0.16788E+04 0.21769E-08 0.17804E-13 0.18225E-15 1 1 0.43485E-07 0.10000E+01 0.13538E+04 0.44115E-08 0.66480E-13 0.32148E-15 1 1 0.43485E-07 0.10000E+01 0.10918E+04 0.88927E-08 0.24471E-12 0.57669E-15 @@ -1070,24 +1070,24 @@ VERSION 2.8.2 1 1 0.43485E-07 0.10000E+01 0.24221E+03 0.79881E-06 0.72902E-09 0.35353E-13 1 1 0.43485E-07 0.10000E+01 0.19533E+03 0.12554E-05 0.13849E-08 0.54870E-13 1 1 0.43485E-07 0.10000E+01 0.15752E+03 0.12554E-05 0.13849E-08 0.54870E-13 - 1 1 0.75878E-07 0.10000E+01 0.80645E+05 0.19293E-53 0.14399E-64 0.85056E-60 - 1 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16289E-52 0.22830E-63 0.71854E-59 - 1 1 0.75878E-07 0.10000E+01 0.52449E+05 0.13816E-51 0.30518E-62 0.60980E-58 - 1 1 0.75878E-07 0.10000E+01 0.42297E+05 0.10351E-50 0.41074E-61 0.45730E-57 - 1 1 0.75878E-07 0.10000E+01 0.34111E+05 0.74069E-50 0.55532E-60 0.32780E-56 - 1 1 0.75878E-07 0.10000E+01 0.27509E+05 0.52484E-49 0.73379E-59 0.23296E-55 - 1 1 0.75878E-07 0.10000E+01 0.22184E+05 0.36584E-48 0.93610E-58 0.16319E-54 - 1 1 0.75878E-07 0.10000E+01 0.17891E+05 0.24774E-47 0.11445E-56 0.11143E-53 - 1 1 0.75878E-07 0.10000E+01 0.14428E+05 0.16158E-46 0.13367E-55 0.73631E-53 - 1 1 0.75878E-07 0.10000E+01 0.11635E+05 0.10097E-45 0.14784E-54 0.46877E-52 - 1 1 0.75878E-07 0.10000E+01 0.93834E+04 0.60091E-45 0.15625E-53 0.28479E-51 - 1 1 0.75878E-07 0.10000E+01 0.75673E+04 0.34403E-44 0.18447E-52 0.16269E-50 - 1 1 0.75878E-07 0.10000E+01 0.61026E+04 0.21087E-43 0.32835E-51 0.90097E-50 - 1 1 0.75878E-07 0.10000E+01 0.49215E+04 0.17543E-42 0.79923E-50 0.58681E-49 - 1 1 0.75878E-07 0.10000E+01 0.39689E+04 0.20309E-41 0.20144E-48 0.56056E-48 - 1 1 0.75878E-07 0.10000E+01 0.32008E+04 0.82056E-39 0.15688E-45 0.21124E-45 - 1 1 0.75878E-07 0.10000E+01 0.25813E+04 0.53309E-30 0.22263E-36 0.12883E-36 - 1 1 0.75878E-07 0.10000E+01 0.20817E+04 0.84860E-14 0.14460E-19 0.17965E-20 + 1 1 0.75878E-07 0.10000E+01 0.80645E+05 0.13057E-10 0.80981E-22 0.57549E-17 + 1 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16732E-10 0.18433E-21 0.73767E-17 + 1 1 0.75878E-07 0.10000E+01 0.52449E+05 0.21132E-10 0.41141E-21 0.93204E-17 + 1 1 0.75878E-07 0.10000E+01 0.42297E+05 0.26387E-10 0.89556E-21 0.11647E-16 + 1 1 0.75878E-07 0.10000E+01 0.34111E+05 0.32628E-10 0.18928E-20 0.14417E-16 + 1 1 0.75878E-07 0.10000E+01 0.27509E+05 0.39965E-10 0.38794E-20 0.17686E-16 + 1 1 0.75878E-07 0.10000E+01 0.22184E+05 0.48472E-10 0.78065E-20 0.21495E-16 + 1 1 0.75878E-07 0.10000E+01 0.17891E+05 0.58177E-10 0.16183E-19 0.25862E-16 + 1 1 0.75878E-07 0.10000E+01 0.14428E+05 0.69101E-10 0.38115E-19 0.30780E-16 + 1 1 0.75878E-07 0.10000E+01 0.11635E+05 0.81389E-10 0.11095E-18 0.36251E-16 + 1 1 0.75878E-07 0.10000E+01 0.93834E+04 0.95626E-10 0.38789E-18 0.42362E-16 + 1 1 0.75878E-07 0.10000E+01 0.75673E+04 0.11349E-09 0.14840E-17 0.49443E-16 + 1 1 0.75878E-07 0.10000E+01 0.61026E+04 0.13903E-09 0.58282E-17 0.58347E-16 + 1 1 0.75878E-07 0.10000E+01 0.49215E+04 0.18113E-09 0.22875E-16 0.70893E-16 + 1 1 0.75878E-07 0.10000E+01 0.39689E+04 0.25844E-09 0.88979E-16 0.90584E-16 + 1 1 0.75878E-07 0.10000E+01 0.32008E+04 0.40904E-09 0.34290E-15 0.12377E-15 + 1 1 0.75878E-07 0.10000E+01 0.25813E+04 0.70961E-09 0.13105E-14 0.18156E-15 + 1 1 0.75878E-07 0.10000E+01 0.20817E+04 0.13130E-08 0.49585E-14 0.28319E-15 1 1 0.75878E-07 0.10000E+01 0.16788E+04 0.25209E-08 0.18518E-13 0.46195E-15 1 1 0.75878E-07 0.10000E+01 0.13538E+04 0.49208E-08 0.68214E-13 0.77574E-15 1 1 0.75878E-07 0.10000E+01 0.10918E+04 0.96387E-08 0.24856E-12 0.13259E-14 @@ -1100,24 +1100,24 @@ VERSION 2.8.2 1 1 0.75878E-07 0.10000E+01 0.24221E+03 0.80111E-06 0.72499E-09 0.64669E-13 1 1 0.75878E-07 0.10000E+01 0.19533E+03 0.12563E-05 0.13768E-08 0.99357E-13 1 1 0.75878E-07 0.10000E+01 0.15752E+03 0.12563E-05 0.13768E-08 0.99357E-13 - 1 1 0.13240E-06 0.10000E+01 0.80645E+05 0.35149E-53 0.26243E-64 0.26493E-59 - 1 1 0.13240E-06 0.10000E+01 0.65036E+05 0.29686E-52 0.41619E-63 0.22387E-58 - 1 1 0.13240E-06 0.10000E+01 0.52449E+05 0.25186E-51 0.55670E-62 0.19003E-57 - 1 1 0.13240E-06 0.10000E+01 0.42297E+05 0.18879E-50 0.75005E-61 0.14256E-56 - 1 1 0.13240E-06 0.10000E+01 0.34111E+05 0.13522E-49 0.10159E-59 0.10226E-55 - 1 1 0.13240E-06 0.10000E+01 0.27509E+05 0.95960E-49 0.13464E-58 0.72760E-55 - 1 1 0.13240E-06 0.10000E+01 0.22184E+05 0.67063E-48 0.17264E-57 0.51065E-54 - 1 1 0.13240E-06 0.10000E+01 0.17891E+05 0.45613E-47 0.21282E-56 0.34977E-53 - 1 1 0.13240E-06 0.10000E+01 0.14428E+05 0.29957E-46 0.25150E-55 0.23226E-52 - 1 1 0.13240E-06 0.10000E+01 0.11635E+05 0.18905E-45 0.28182E-54 0.14896E-51 - 1 1 0.13240E-06 0.10000E+01 0.93834E+04 0.11374E-44 0.29637E-53 0.91462E-51 - 1 1 0.13240E-06 0.10000E+01 0.75673E+04 0.64991E-44 0.32234E-52 0.52854E-50 - 1 1 0.13240E-06 0.10000E+01 0.61026E+04 0.37686E-43 0.49738E-51 0.29128E-49 - 1 1 0.13240E-06 0.10000E+01 0.49215E+04 0.27755E-42 0.11389E-49 0.17945E-48 - 1 1 0.13240E-06 0.10000E+01 0.39689E+04 0.29504E-41 0.28323E-48 0.15939E-47 - 1 1 0.13240E-06 0.10000E+01 0.32008E+04 0.11576E-38 0.21621E-45 0.58612E-45 - 1 1 0.13240E-06 0.10000E+01 0.25813E+04 0.73259E-30 0.29238E-36 0.35614E-36 - 1 1 0.13240E-06 0.10000E+01 0.20817E+04 0.11079E-13 0.16893E-19 0.49130E-20 + 1 1 0.13240E-06 0.10000E+01 0.80645E+05 0.23785E-10 0.14792E-21 0.17923E-16 + 1 1 0.13240E-06 0.10000E+01 0.65036E+05 0.30484E-10 0.33732E-21 0.22977E-16 + 1 1 0.13240E-06 0.10000E+01 0.52449E+05 0.38508E-10 0.75503E-21 0.29037E-16 + 1 1 0.13240E-06 0.10000E+01 0.42297E+05 0.48103E-10 0.16504E-20 0.36294E-16 + 1 1 0.13240E-06 0.10000E+01 0.34111E+05 0.59513E-10 0.35068E-20 0.44946E-16 + 1 1 0.13240E-06 0.10000E+01 0.27509E+05 0.72956E-10 0.72204E-20 0.55174E-16 + 1 1 0.13240E-06 0.10000E+01 0.22184E+05 0.88581E-10 0.14488E-19 0.67115E-16 + 1 1 0.13240E-06 0.10000E+01 0.17891E+05 0.10645E-09 0.29303E-19 0.80840E-16 + 1 1 0.13240E-06 0.10000E+01 0.14428E+05 0.12657E-09 0.64911E-19 0.96338E-16 + 1 1 0.13240E-06 0.10000E+01 0.11635E+05 0.14906E-09 0.17374E-18 0.11359E-15 + 1 1 0.13240E-06 0.10000E+01 0.93834E+04 0.17460E-09 0.56605E-18 0.13279E-15 + 1 1 0.13240E-06 0.10000E+01 0.75673E+04 0.20535E-09 0.20612E-17 0.15478E-15 + 1 1 0.13240E-06 0.10000E+01 0.61026E+04 0.24656E-09 0.77727E-17 0.18180E-15 + 1 1 0.13240E-06 0.10000E+01 0.49215E+04 0.30972E-09 0.29308E-16 0.21872E-15 + 1 1 0.13240E-06 0.10000E+01 0.39689E+04 0.41816E-09 0.10941E-15 0.27483E-15 + 1 1 0.13240E-06 0.10000E+01 0.32008E+04 0.61770E-09 0.40475E-15 0.36657E-15 + 1 1 0.13240E-06 0.10000E+01 0.25813E+04 0.99685E-09 0.14891E-14 0.52176E-15 + 1 1 0.13240E-06 0.10000E+01 0.20817E+04 0.17254E-08 0.54513E-14 0.78628E-15 1 1 0.13240E-06 0.10000E+01 0.16788E+04 0.31279E-08 0.19813E-13 0.12354E-14 1 1 0.13240E-06 0.10000E+01 0.13538E+04 0.58205E-08 0.71440E-13 0.19932E-14 1 1 0.13240E-06 0.10000E+01 0.10918E+04 0.10963E-07 0.25607E-12 0.32657E-14 @@ -1130,24 +1130,24 @@ VERSION 2.8.2 1 1 0.13240E-06 0.10000E+01 0.24221E+03 0.80796E-06 0.72072E-09 0.12224E-12 1 1 0.13240E-06 0.10000E+01 0.19533E+03 0.12624E-05 0.13681E-08 0.18497E-12 1 1 0.13240E-06 0.10000E+01 0.15752E+03 0.12624E-05 0.13681E-08 0.18497E-12 - 1 1 0.23103E-06 0.10000E+01 0.80645E+05 0.62184E-53 0.46434E-64 0.57270E-59 - 1 1 0.23103E-06 0.10000E+01 0.65036E+05 0.52524E-52 0.73646E-63 0.48397E-58 - 1 1 0.23103E-06 0.10000E+01 0.52449E+05 0.44567E-51 0.98531E-62 0.41084E-57 - 1 1 0.23103E-06 0.10000E+01 0.42297E+05 0.33413E-50 0.13280E-60 0.30827E-56 - 1 1 0.23103E-06 0.10000E+01 0.34111E+05 0.23939E-49 0.17998E-59 0.22118E-55 - 1 1 0.23103E-06 0.10000E+01 0.27509E+05 0.16998E-48 0.23878E-58 0.15742E-54 - 1 1 0.23103E-06 0.10000E+01 0.22184E+05 0.11890E-47 0.30673E-57 0.11055E-53 - 1 1 0.23103E-06 0.10000E+01 0.17891E+05 0.80993E-47 0.37918E-56 0.75799E-53 - 1 1 0.23103E-06 0.10000E+01 0.14428E+05 0.53319E-46 0.44995E-55 0.50413E-52 - 1 1 0.23103E-06 0.10000E+01 0.11635E+05 0.33767E-45 0.50678E-54 0.32409E-51 - 1 1 0.23103E-06 0.10000E+01 0.93834E+04 0.20402E-44 0.53377E-53 0.19968E-50 - 1 1 0.23103E-06 0.10000E+01 0.75673E+04 0.11677E-43 0.56856E-52 0.11585E-49 - 1 1 0.23103E-06 0.10000E+01 0.61026E+04 0.66804E-43 0.83475E-51 0.63832E-49 - 1 1 0.23103E-06 0.10000E+01 0.49215E+04 0.47306E-42 0.18618E-49 0.38697E-48 - 1 1 0.23103E-06 0.10000E+01 0.39689E+04 0.48639E-41 0.46084E-48 0.33532E-47 - 1 1 0.23103E-06 0.10000E+01 0.32008E+04 0.18868E-38 0.34985E-45 0.12217E-44 - 1 1 0.23103E-06 0.10000E+01 0.25813E+04 0.11844E-29 0.46547E-36 0.74197E-36 - 1 1 0.23103E-06 0.10000E+01 0.20817E+04 0.17609E-13 0.25667E-19 0.10221E-19 + 1 1 0.23103E-06 0.10000E+01 0.80645E+05 0.42077E-10 0.26193E-21 0.38743E-16 + 1 1 0.23103E-06 0.10000E+01 0.65036E+05 0.53931E-10 0.59769E-21 0.49670E-16 + 1 1 0.23103E-06 0.10000E+01 0.52449E+05 0.68132E-10 0.13392E-20 0.62773E-16 + 1 1 0.23103E-06 0.10000E+01 0.42297E+05 0.85118E-10 0.29316E-20 0.78469E-16 + 1 1 0.23103E-06 0.10000E+01 0.34111E+05 0.10533E-09 0.62413E-20 0.97187E-16 + 1 1 0.23103E-06 0.10000E+01 0.27509E+05 0.12916E-09 0.12876E-19 0.11933E-15 + 1 1 0.23103E-06 0.10000E+01 0.22184E+05 0.15688E-09 0.25841E-19 0.14520E-15 + 1 1 0.23103E-06 0.10000E+01 0.17891E+05 0.18862E-09 0.51958E-19 0.17495E-15 + 1 1 0.23103E-06 0.10000E+01 0.14428E+05 0.22437E-09 0.11308E-18 0.20859E-15 + 1 1 0.23103E-06 0.10000E+01 0.11635E+05 0.26429E-09 0.29454E-18 0.24605E-15 + 1 1 0.23103E-06 0.10000E+01 0.93834E+04 0.30939E-09 0.93601E-18 0.28770E-15 + 1 1 0.23103E-06 0.10000E+01 0.75673E+04 0.36304E-09 0.33483E-17 0.33522E-15 + 1 1 0.23103E-06 0.10000E+01 0.61026E+04 0.43359E-09 0.12444E-16 0.39324E-15 + 1 1 0.23103E-06 0.10000E+01 0.49215E+04 0.53915E-09 0.46232E-16 0.47178E-15 + 1 1 0.23103E-06 0.10000E+01 0.39689E+04 0.71618E-09 0.16983E-15 0.58999E-15 + 1 1 0.23103E-06 0.10000E+01 0.32008E+04 0.10352E-08 0.61769E-15 0.78153E-15 + 1 1 0.23103E-06 0.10000E+01 0.25813E+04 0.16300E-08 0.22346E-14 0.11027E-14 + 1 1 0.23103E-06 0.10000E+01 0.20817E+04 0.27527E-08 0.80544E-14 0.16451E-14 1 1 0.23103E-06 0.10000E+01 0.16788E+04 0.48777E-08 0.28888E-13 0.25561E-14 1 1 0.23103E-06 0.10000E+01 0.13538E+04 0.88944E-08 0.10303E-12 0.40733E-14 1 1 0.23103E-06 0.10000E+01 0.10918E+04 0.16460E-07 0.36612E-12 0.65838E-14 @@ -1160,24 +1160,24 @@ VERSION 2.8.2 1 1 0.23103E-06 0.10000E+01 0.24221E+03 0.11421E-05 0.10106E-08 0.22208E-12 1 1 0.23103E-06 0.10000E+01 0.19533E+03 0.17808E-05 0.19179E-08 0.33363E-12 1 1 0.23103E-06 0.10000E+01 0.15752E+03 0.17808E-05 0.19179E-08 0.33363E-12 - 1 1 0.40314E-06 0.10000E+01 0.80645E+05 0.10851E-52 0.81024E-64 0.99933E-59 - 1 1 0.40314E-06 0.10000E+01 0.65036E+05 0.91650E-52 0.12851E-62 0.84451E-58 - 1 1 0.40314E-06 0.10000E+01 0.52449E+05 0.77767E-51 0.17193E-61 0.71690E-57 - 1 1 0.40314E-06 0.10000E+01 0.42297E+05 0.58304E-50 0.23173E-60 0.53791E-56 - 1 1 0.40314E-06 0.10000E+01 0.34111E+05 0.41772E-49 0.31405E-59 0.38594E-55 - 1 1 0.40314E-06 0.10000E+01 0.27509E+05 0.29661E-48 0.41666E-58 0.27470E-54 - 1 1 0.40314E-06 0.10000E+01 0.22184E+05 0.20747E-47 0.53522E-57 0.19291E-53 - 1 1 0.40314E-06 0.10000E+01 0.17891E+05 0.14133E-46 0.66165E-56 0.13226E-52 - 1 1 0.40314E-06 0.10000E+01 0.14428E+05 0.93039E-46 0.78513E-55 0.87968E-52 - 1 1 0.40314E-06 0.10000E+01 0.11635E+05 0.58921E-45 0.88430E-54 0.56552E-51 - 1 1 0.40314E-06 0.10000E+01 0.93834E+04 0.35600E-44 0.93140E-53 0.34843E-50 - 1 1 0.40314E-06 0.10000E+01 0.75673E+04 0.20375E-43 0.99210E-52 0.20216E-49 - 1 1 0.40314E-06 0.10000E+01 0.61026E+04 0.11657E-42 0.14566E-50 0.11138E-48 - 1 1 0.40314E-06 0.10000E+01 0.49215E+04 0.82547E-42 0.32487E-49 0.67524E-48 - 1 1 0.40314E-06 0.10000E+01 0.39689E+04 0.84872E-41 0.80414E-48 0.58511E-47 - 1 1 0.40314E-06 0.10000E+01 0.32008E+04 0.32923E-38 0.61047E-45 0.21319E-44 - 1 1 0.40314E-06 0.10000E+01 0.25813E+04 0.20668E-29 0.81221E-36 0.12947E-35 - 1 1 0.40314E-06 0.10000E+01 0.20817E+04 0.30727E-13 0.44788E-19 0.17834E-19 + 1 1 0.40314E-06 0.10000E+01 0.80645E+05 0.73422E-10 0.45705E-21 0.67605E-16 + 1 1 0.40314E-06 0.10000E+01 0.65036E+05 0.94106E-10 0.10429E-20 0.86670E-16 + 1 1 0.40314E-06 0.10000E+01 0.52449E+05 0.11889E-09 0.23368E-20 0.10953E-15 + 1 1 0.40314E-06 0.10000E+01 0.42297E+05 0.14853E-09 0.51155E-20 0.13692E-15 + 1 1 0.40314E-06 0.10000E+01 0.34111E+05 0.18380E-09 0.10891E-19 0.16959E-15 + 1 1 0.40314E-06 0.10000E+01 0.27509E+05 0.22538E-09 0.22468E-19 0.20822E-15 + 1 1 0.40314E-06 0.10000E+01 0.22184E+05 0.27375E-09 0.45092E-19 0.25336E-15 + 1 1 0.40314E-06 0.10000E+01 0.17891E+05 0.32913E-09 0.90663E-19 0.30528E-15 + 1 1 0.40314E-06 0.10000E+01 0.14428E+05 0.39152E-09 0.19732E-18 0.36397E-15 + 1 1 0.40314E-06 0.10000E+01 0.11635E+05 0.46117E-09 0.51396E-18 0.42934E-15 + 1 1 0.40314E-06 0.10000E+01 0.93834E+04 0.53987E-09 0.16333E-17 0.50201E-15 + 1 1 0.40314E-06 0.10000E+01 0.75673E+04 0.63348E-09 0.58426E-17 0.58494E-15 + 1 1 0.40314E-06 0.10000E+01 0.61026E+04 0.75658E-09 0.21713E-16 0.68618E-15 + 1 1 0.40314E-06 0.10000E+01 0.49215E+04 0.94078E-09 0.80672E-16 0.82324E-15 + 1 1 0.40314E-06 0.10000E+01 0.39689E+04 0.12497E-08 0.29634E-15 0.10295E-14 + 1 1 0.40314E-06 0.10000E+01 0.32008E+04 0.18064E-08 0.10778E-14 0.13637E-14 + 1 1 0.40314E-06 0.10000E+01 0.25813E+04 0.28442E-08 0.38992E-14 0.19242E-14 + 1 1 0.40314E-06 0.10000E+01 0.20817E+04 0.48032E-08 0.14054E-13 0.28706E-14 1 1 0.40314E-06 0.10000E+01 0.16788E+04 0.85112E-08 0.50407E-13 0.44602E-14 1 1 0.40314E-06 0.10000E+01 0.13538E+04 0.15520E-07 0.17978E-12 0.71077E-14 1 1 0.40314E-06 0.10000E+01 0.10918E+04 0.28723E-07 0.63886E-12 0.11488E-13 @@ -1190,24 +1190,24 @@ VERSION 2.8.2 1 1 0.40314E-06 0.10000E+01 0.24221E+03 0.19928E-05 0.17635E-08 0.38751E-12 1 1 0.40314E-06 0.10000E+01 0.19533E+03 0.31074E-05 0.33466E-08 0.58216E-12 1 1 0.40314E-06 0.10000E+01 0.15752E+03 0.31074E-05 0.33466E-08 0.58216E-12 - 1 1 0.70346E-06 0.10000E+01 0.80645E+05 0.18934E-52 0.14138E-63 0.17438E-58 - 1 1 0.70346E-06 0.10000E+01 0.65036E+05 0.15992E-51 0.22424E-62 0.14736E-57 - 1 1 0.70346E-06 0.10000E+01 0.52449E+05 0.13570E-50 0.30001E-61 0.12509E-56 - 1 1 0.70346E-06 0.10000E+01 0.42297E+05 0.10174E-49 0.40436E-60 0.93861E-56 - 1 1 0.70346E-06 0.10000E+01 0.34111E+05 0.72889E-49 0.54800E-59 0.67344E-55 - 1 1 0.70346E-06 0.10000E+01 0.27509E+05 0.51756E-48 0.72704E-58 0.47933E-54 - 1 1 0.70346E-06 0.10000E+01 0.22184E+05 0.36203E-47 0.93392E-57 0.33662E-53 - 1 1 0.70346E-06 0.10000E+01 0.17891E+05 0.24661E-46 0.11545E-55 0.23079E-52 - 1 1 0.70346E-06 0.10000E+01 0.14428E+05 0.16235E-45 0.13700E-54 0.15350E-51 - 1 1 0.70346E-06 0.10000E+01 0.11635E+05 0.10281E-44 0.15430E-53 0.98681E-51 - 1 1 0.70346E-06 0.10000E+01 0.93834E+04 0.62119E-44 0.16252E-52 0.60798E-50 - 1 1 0.70346E-06 0.10000E+01 0.75673E+04 0.35554E-43 0.17312E-51 0.35275E-49 - 1 1 0.70346E-06 0.10000E+01 0.61026E+04 0.20340E-42 0.25417E-50 0.19436E-48 - 1 1 0.70346E-06 0.10000E+01 0.49215E+04 0.14404E-41 0.56687E-49 0.11783E-47 - 1 1 0.70346E-06 0.10000E+01 0.39689E+04 0.14810E-40 0.14032E-47 0.10210E-46 - 1 1 0.70346E-06 0.10000E+01 0.32008E+04 0.57449E-38 0.10652E-44 0.37200E-44 - 1 1 0.70346E-06 0.10000E+01 0.25813E+04 0.36064E-29 0.14173E-35 0.22592E-35 - 1 1 0.70346E-06 0.10000E+01 0.20817E+04 0.53617E-13 0.78152E-19 0.31120E-19 + 1 1 0.70346E-06 0.10000E+01 0.80645E+05 0.12812E-09 0.79753E-21 0.11797E-15 + 1 1 0.70346E-06 0.10000E+01 0.65036E+05 0.16421E-09 0.18199E-20 0.15123E-15 + 1 1 0.70346E-06 0.10000E+01 0.52449E+05 0.20745E-09 0.40775E-20 0.19113E-15 + 1 1 0.70346E-06 0.10000E+01 0.42297E+05 0.25917E-09 0.89262E-20 0.23892E-15 + 1 1 0.70346E-06 0.10000E+01 0.34111E+05 0.32071E-09 0.19004E-19 0.29592E-15 + 1 1 0.70346E-06 0.10000E+01 0.27509E+05 0.39327E-09 0.39205E-19 0.36333E-15 + 1 1 0.70346E-06 0.10000E+01 0.22184E+05 0.47768E-09 0.78682E-19 0.44209E-15 + 1 1 0.70346E-06 0.10000E+01 0.17891E+05 0.57432E-09 0.15820E-18 0.53270E-15 + 1 1 0.70346E-06 0.10000E+01 0.14428E+05 0.68317E-09 0.34432E-18 0.63510E-15 + 1 1 0.70346E-06 0.10000E+01 0.11635E+05 0.80471E-09 0.89683E-18 0.74917E-15 + 1 1 0.70346E-06 0.10000E+01 0.93834E+04 0.94204E-09 0.28500E-17 0.87598E-15 + 1 1 0.70346E-06 0.10000E+01 0.75673E+04 0.11054E-08 0.10195E-16 0.10207E-14 + 1 1 0.70346E-06 0.10000E+01 0.61026E+04 0.13202E-08 0.37889E-16 0.11973E-14 + 1 1 0.70346E-06 0.10000E+01 0.49215E+04 0.16416E-08 0.14077E-15 0.14365E-14 + 1 1 0.70346E-06 0.10000E+01 0.39689E+04 0.21806E-08 0.51710E-15 0.17964E-14 + 1 1 0.70346E-06 0.10000E+01 0.32008E+04 0.31520E-08 0.18808E-14 0.23796E-14 + 1 1 0.70346E-06 0.10000E+01 0.25813E+04 0.49630E-08 0.68039E-14 0.33576E-14 + 1 1 0.70346E-06 0.10000E+01 0.20817E+04 0.83813E-08 0.24524E-13 0.50090E-14 1 1 0.70346E-06 0.10000E+01 0.16788E+04 0.14852E-07 0.87958E-13 0.77828E-14 1 1 0.70346E-06 0.10000E+01 0.13538E+04 0.27082E-07 0.31370E-12 0.12403E-13 1 1 0.70346E-06 0.10000E+01 0.10918E+04 0.50119E-07 0.11148E-11 0.20046E-13 @@ -1220,24 +1220,24 @@ VERSION 2.8.2 1 1 0.70346E-06 0.10000E+01 0.24221E+03 0.34773E-05 0.30771E-08 0.67618E-12 1 1 0.70346E-06 0.10000E+01 0.19533E+03 0.54222E-05 0.58395E-08 0.10158E-11 1 1 0.70346E-06 0.10000E+01 0.15752E+03 0.54222E-05 0.58395E-08 0.10158E-11 - 1 1 0.12275E-05 0.10000E+01 0.80645E+05 0.33038E-52 0.24670E-63 0.30428E-58 - 1 1 0.12275E-05 0.10000E+01 0.65036E+05 0.27906E-51 0.39128E-62 0.25714E-57 - 1 1 0.12275E-05 0.10000E+01 0.52449E+05 0.23679E-50 0.52350E-61 0.21828E-56 - 1 1 0.12275E-05 0.10000E+01 0.42297E+05 0.17752E-49 0.70559E-60 0.16378E-55 - 1 1 0.12275E-05 0.10000E+01 0.34111E+05 0.12719E-48 0.95622E-59 0.11751E-54 - 1 1 0.12275E-05 0.10000E+01 0.27509E+05 0.90311E-48 0.12686E-57 0.83640E-54 - 1 1 0.12275E-05 0.10000E+01 0.22184E+05 0.63172E-47 0.16296E-56 0.58737E-53 - 1 1 0.12275E-05 0.10000E+01 0.17891E+05 0.43032E-46 0.20146E-55 0.40272E-52 - 1 1 0.12275E-05 0.10000E+01 0.14428E+05 0.28329E-45 0.23906E-54 0.26785E-51 - 1 1 0.12275E-05 0.10000E+01 0.11635E+05 0.17940E-44 0.26925E-53 0.17219E-50 - 1 1 0.12275E-05 0.10000E+01 0.93834E+04 0.10839E-43 0.28359E-52 0.10609E-49 - 1 1 0.12275E-05 0.10000E+01 0.75673E+04 0.62039E-43 0.30208E-51 0.61553E-49 - 1 1 0.12275E-05 0.10000E+01 0.61026E+04 0.35493E-42 0.44350E-50 0.33914E-48 - 1 1 0.12275E-05 0.10000E+01 0.49215E+04 0.25134E-41 0.98915E-49 0.20560E-47 - 1 1 0.12275E-05 0.10000E+01 0.39689E+04 0.25842E-40 0.24485E-47 0.17815E-46 - 1 1 0.12275E-05 0.10000E+01 0.32008E+04 0.10025E-37 0.18588E-44 0.64912E-44 - 1 1 0.12275E-05 0.10000E+01 0.25813E+04 0.62929E-29 0.24730E-35 0.39421E-35 - 1 1 0.12275E-05 0.10000E+01 0.20817E+04 0.93558E-13 0.13637E-18 0.54302E-19 + 1 1 0.12275E-05 0.10000E+01 0.80645E+05 0.22356E-09 0.13916E-20 0.20584E-15 + 1 1 0.12275E-05 0.10000E+01 0.65036E+05 0.28653E-09 0.31755E-20 0.26390E-15 + 1 1 0.12275E-05 0.10000E+01 0.52449E+05 0.36199E-09 0.71150E-20 0.33351E-15 + 1 1 0.12275E-05 0.10000E+01 0.42297E+05 0.45224E-09 0.15576E-19 0.41690E-15 + 1 1 0.12275E-05 0.10000E+01 0.34111E+05 0.55962E-09 0.33160E-19 0.51636E-15 + 1 1 0.12275E-05 0.10000E+01 0.27509E+05 0.68623E-09 0.68410E-19 0.63399E-15 + 1 1 0.12275E-05 0.10000E+01 0.22184E+05 0.83353E-09 0.13730E-18 0.77143E-15 + 1 1 0.12275E-05 0.10000E+01 0.17891E+05 0.10022E-08 0.27605E-18 0.92953E-15 + 1 1 0.12275E-05 0.10000E+01 0.14428E+05 0.11921E-08 0.60081E-18 0.11082E-14 + 1 1 0.12275E-05 0.10000E+01 0.11635E+05 0.14042E-08 0.15649E-17 0.13073E-14 + 1 1 0.12275E-05 0.10000E+01 0.93834E+04 0.16438E-08 0.49730E-17 0.15285E-14 + 1 1 0.12275E-05 0.10000E+01 0.75673E+04 0.19288E-08 0.17790E-16 0.17810E-14 + 1 1 0.12275E-05 0.10000E+01 0.61026E+04 0.23036E-08 0.66113E-16 0.20893E-14 + 1 1 0.12275E-05 0.10000E+01 0.49215E+04 0.28645E-08 0.24563E-15 0.25066E-14 + 1 1 0.12275E-05 0.10000E+01 0.39689E+04 0.38051E-08 0.90231E-15 0.31346E-14 + 1 1 0.12275E-05 0.10000E+01 0.32008E+04 0.55001E-08 0.32818E-14 0.41523E-14 + 1 1 0.12275E-05 0.10000E+01 0.25813E+04 0.86602E-08 0.11872E-13 0.58588E-14 + 1 1 0.12275E-05 0.10000E+01 0.20817E+04 0.14625E-07 0.42793E-13 0.87404E-14 1 1 0.12275E-05 0.10000E+01 0.16788E+04 0.25915E-07 0.15348E-12 0.13581E-13 1 1 0.12275E-05 0.10000E+01 0.13538E+04 0.47256E-07 0.54739E-12 0.21642E-13 1 1 0.12275E-05 0.10000E+01 0.10918E+04 0.87455E-07 0.19452E-11 0.34980E-13 @@ -1250,24 +1250,24 @@ VERSION 2.8.2 1 1 0.12275E-05 0.10000E+01 0.24221E+03 0.60678E-05 0.53694E-08 0.11799E-11 1 1 0.12275E-05 0.10000E+01 0.19533E+03 0.94614E-05 0.10190E-07 0.17726E-11 1 1 0.12275E-05 0.10000E+01 0.15752E+03 0.94614E-05 0.10190E-07 0.17726E-11 - 1 1 0.21419E-05 0.10000E+01 0.80645E+05 0.57650E-52 0.43048E-63 0.53095E-58 - 1 1 0.21419E-05 0.10000E+01 0.65036E+05 0.48694E-51 0.68276E-62 0.44869E-57 - 1 1 0.21419E-05 0.10000E+01 0.52449E+05 0.41318E-50 0.91347E-61 0.38089E-56 - 1 1 0.21419E-05 0.10000E+01 0.42297E+05 0.30977E-49 0.12312E-59 0.28579E-55 - 1 1 0.21419E-05 0.10000E+01 0.34111E+05 0.22193E-48 0.16686E-58 0.20505E-54 - 1 1 0.21419E-05 0.10000E+01 0.27509E+05 0.15759E-47 0.22137E-57 0.14595E-53 - 1 1 0.21419E-05 0.10000E+01 0.22184E+05 0.11023E-46 0.28436E-56 0.10249E-52 - 1 1 0.21419E-05 0.10000E+01 0.17891E+05 0.75088E-46 0.35154E-55 0.70273E-52 - 1 1 0.21419E-05 0.10000E+01 0.14428E+05 0.49432E-45 0.41714E-54 0.46738E-51 - 1 1 0.21419E-05 0.10000E+01 0.11635E+05 0.31305E-44 0.46983E-53 0.30046E-50 - 1 1 0.21419E-05 0.10000E+01 0.93834E+04 0.18914E-43 0.49485E-52 0.18512E-49 - 1 1 0.21419E-05 0.10000E+01 0.75673E+04 0.10825E-42 0.52710E-51 0.10741E-48 - 1 1 0.21419E-05 0.10000E+01 0.61026E+04 0.61933E-42 0.77389E-50 0.59178E-48 - 1 1 0.21419E-05 0.10000E+01 0.49215E+04 0.43857E-41 0.17260E-48 0.35876E-47 - 1 1 0.21419E-05 0.10000E+01 0.39689E+04 0.45093E-40 0.42724E-47 0.31087E-46 - 1 1 0.21419E-05 0.10000E+01 0.32008E+04 0.17492E-37 0.32434E-44 0.11327E-43 - 1 1 0.21419E-05 0.10000E+01 0.25813E+04 0.10981E-28 0.43153E-35 0.68787E-35 - 1 1 0.21419E-05 0.10000E+01 0.20817E+04 0.16325E-12 0.23796E-18 0.94754E-19 + 1 1 0.21419E-05 0.10000E+01 0.80645E+05 0.39009E-09 0.24283E-20 0.35918E-15 + 1 1 0.21419E-05 0.10000E+01 0.65036E+05 0.49998E-09 0.55411E-20 0.46048E-15 + 1 1 0.21419E-05 0.10000E+01 0.52449E+05 0.63164E-09 0.12415E-19 0.58196E-15 + 1 1 0.21419E-05 0.10000E+01 0.42297E+05 0.78912E-09 0.27179E-19 0.72747E-15 + 1 1 0.21419E-05 0.10000E+01 0.34111E+05 0.97651E-09 0.57863E-19 0.90101E-15 + 1 1 0.21419E-05 0.10000E+01 0.27509E+05 0.11974E-08 0.11937E-18 0.11063E-14 + 1 1 0.21419E-05 0.10000E+01 0.22184E+05 0.14545E-08 0.23957E-18 0.13461E-14 + 1 1 0.21419E-05 0.10000E+01 0.17891E+05 0.17487E-08 0.48169E-18 0.16220E-14 + 1 1 0.21419E-05 0.10000E+01 0.14428E+05 0.20801E-08 0.10484E-17 0.19338E-14 + 1 1 0.21419E-05 0.10000E+01 0.11635E+05 0.24502E-08 0.27307E-17 0.22811E-14 + 1 1 0.21419E-05 0.10000E+01 0.93834E+04 0.28683E-08 0.86777E-17 0.26672E-14 + 1 1 0.21419E-05 0.10000E+01 0.75673E+04 0.33657E-08 0.31042E-16 0.31078E-14 + 1 1 0.21419E-05 0.10000E+01 0.61026E+04 0.40197E-08 0.11536E-15 0.36457E-14 + 1 1 0.21419E-05 0.10000E+01 0.49215E+04 0.49984E-08 0.42861E-15 0.43739E-14 + 1 1 0.21419E-05 0.10000E+01 0.39689E+04 0.66397E-08 0.15745E-14 0.54697E-14 + 1 1 0.21419E-05 0.10000E+01 0.32008E+04 0.95974E-08 0.57266E-14 0.72455E-14 + 1 1 0.21419E-05 0.10000E+01 0.25813E+04 0.15111E-07 0.20717E-13 0.10223E-13 + 1 1 0.21419E-05 0.10000E+01 0.20817E+04 0.25520E-07 0.74671E-13 0.15252E-13 1 1 0.21419E-05 0.10000E+01 0.16788E+04 0.45220E-07 0.26781E-12 0.23697E-13 1 1 0.21419E-05 0.10000E+01 0.13538E+04 0.82459E-07 0.95516E-12 0.37764E-13 1 1 0.21419E-05 0.10000E+01 0.10918E+04 0.15260E-06 0.33943E-11 0.61038E-13 @@ -1280,24 +1280,24 @@ VERSION 2.8.2 1 1 0.21419E-05 0.10000E+01 0.24221E+03 0.10588E-04 0.93693E-08 0.20589E-11 1 1 0.21419E-05 0.10000E+01 0.19533E+03 0.16510E-04 0.17780E-07 0.30930E-11 1 1 0.21419E-05 0.10000E+01 0.15752E+03 0.16510E-04 0.17780E-07 0.30930E-11 - 1 1 0.37375E-05 0.10000E+01 0.80645E+05 0.10060E-51 0.75117E-63 0.92647E-58 - 1 1 0.37375E-05 0.10000E+01 0.65036E+05 0.84968E-51 0.11914E-61 0.78293E-57 - 1 1 0.37375E-05 0.10000E+01 0.52449E+05 0.72097E-50 0.15940E-60 0.66463E-56 - 1 1 0.37375E-05 0.10000E+01 0.42297E+05 0.54053E-49 0.21484E-59 0.49869E-55 - 1 1 0.37375E-05 0.10000E+01 0.34111E+05 0.38726E-48 0.29115E-58 0.35780E-54 - 1 1 0.37375E-05 0.10000E+01 0.27509E+05 0.27498E-47 0.38628E-57 0.25467E-53 - 1 1 0.37375E-05 0.10000E+01 0.22184E+05 0.19235E-46 0.49619E-56 0.17884E-52 - 1 1 0.37375E-05 0.10000E+01 0.17891E+05 0.13102E-45 0.61341E-55 0.12262E-51 - 1 1 0.37375E-05 0.10000E+01 0.14428E+05 0.86256E-45 0.72789E-54 0.81554E-51 - 1 1 0.37375E-05 0.10000E+01 0.11635E+05 0.54625E-44 0.81982E-53 0.52429E-50 - 1 1 0.37375E-05 0.10000E+01 0.93834E+04 0.33004E-43 0.86349E-52 0.32302E-49 - 1 1 0.37375E-05 0.10000E+01 0.75673E+04 0.18890E-42 0.91977E-51 0.18742E-48 - 1 1 0.37375E-05 0.10000E+01 0.61026E+04 0.10807E-41 0.13504E-49 0.10326E-47 - 1 1 0.37375E-05 0.10000E+01 0.49215E+04 0.76528E-41 0.30118E-48 0.62601E-47 - 1 1 0.37375E-05 0.10000E+01 0.39689E+04 0.78684E-40 0.74551E-47 0.54244E-46 - 1 1 0.37375E-05 0.10000E+01 0.32008E+04 0.30523E-37 0.56596E-44 0.19764E-43 - 1 1 0.37375E-05 0.10000E+01 0.25813E+04 0.19161E-28 0.75300E-35 0.12003E-34 - 1 1 0.37375E-05 0.10000E+01 0.20817E+04 0.28487E-12 0.41522E-18 0.16534E-18 + 1 1 0.37375E-05 0.10000E+01 0.80645E+05 0.68069E-09 0.42373E-20 0.62676E-15 + 1 1 0.37375E-05 0.10000E+01 0.65036E+05 0.87244E-09 0.96689E-20 0.80351E-15 + 1 1 0.37375E-05 0.10000E+01 0.52449E+05 0.11022E-08 0.21664E-19 0.10155E-14 + 1 1 0.37375E-05 0.10000E+01 0.42297E+05 0.13770E-08 0.47425E-19 0.12694E-14 + 1 1 0.37375E-05 0.10000E+01 0.34111E+05 0.17040E-08 0.10097E-18 0.15722E-14 + 1 1 0.37375E-05 0.10000E+01 0.27509E+05 0.20894E-08 0.20830E-18 0.19304E-14 + 1 1 0.37375E-05 0.10000E+01 0.22184E+05 0.25379E-08 0.41804E-18 0.23489E-14 + 1 1 0.37375E-05 0.10000E+01 0.17891E+05 0.30514E-08 0.84052E-18 0.28302E-14 + 1 1 0.37375E-05 0.10000E+01 0.14428E+05 0.36297E-08 0.18294E-17 0.33743E-14 + 1 1 0.37375E-05 0.10000E+01 0.11635E+05 0.42754E-08 0.47649E-17 0.39804E-14 + 1 1 0.37375E-05 0.10000E+01 0.93834E+04 0.50051E-08 0.15142E-16 0.46541E-14 + 1 1 0.37375E-05 0.10000E+01 0.75673E+04 0.58729E-08 0.54166E-16 0.54229E-14 + 1 1 0.37375E-05 0.10000E+01 0.61026E+04 0.70142E-08 0.20130E-15 0.63615E-14 + 1 1 0.37375E-05 0.10000E+01 0.49215E+04 0.87218E-08 0.74790E-15 0.76321E-14 + 1 1 0.37375E-05 0.10000E+01 0.39689E+04 0.11586E-07 0.27474E-14 0.95444E-14 + 1 1 0.37375E-05 0.10000E+01 0.32008E+04 0.16747E-07 0.99925E-14 0.12643E-13 + 1 1 0.37375E-05 0.10000E+01 0.25813E+04 0.26369E-07 0.36149E-13 0.17839E-13 + 1 1 0.37375E-05 0.10000E+01 0.20817E+04 0.44530E-07 0.13030E-12 0.26613E-13 1 1 0.37375E-05 0.10000E+01 0.16788E+04 0.78907E-07 0.46732E-12 0.41350E-13 1 1 0.37375E-05 0.10000E+01 0.13538E+04 0.14389E-06 0.16667E-11 0.65895E-13 1 1 0.37375E-05 0.10000E+01 0.10918E+04 0.26628E-06 0.59228E-11 0.10651E-12 @@ -1310,24 +1310,24 @@ VERSION 2.8.2 1 1 0.37375E-05 0.10000E+01 0.24221E+03 0.18475E-04 0.16349E-07 0.35926E-11 1 1 0.37375E-05 0.10000E+01 0.19533E+03 0.28808E-04 0.31026E-07 0.53971E-11 1 1 0.37375E-05 0.10000E+01 0.15752E+03 0.28808E-04 0.31026E-07 0.53971E-11 - 1 1 0.65217E-05 0.10000E+01 0.80645E+05 0.17553E-51 0.13107E-62 0.16166E-57 - 1 1 0.65217E-05 0.10000E+01 0.65036E+05 0.14826E-50 0.20789E-61 0.13662E-56 - 1 1 0.65217E-05 0.10000E+01 0.52449E+05 0.12581E-49 0.27814E-60 0.11597E-55 - 1 1 0.65217E-05 0.10000E+01 0.42297E+05 0.94319E-49 0.37488E-59 0.87018E-55 - 1 1 0.65217E-05 0.10000E+01 0.34111E+05 0.67575E-48 0.50804E-58 0.62434E-54 - 1 1 0.65217E-05 0.10000E+01 0.27509E+05 0.47982E-47 0.67403E-57 0.44438E-53 - 1 1 0.65217E-05 0.10000E+01 0.22184E+05 0.33563E-46 0.86583E-56 0.31207E-52 - 1 1 0.65217E-05 0.10000E+01 0.17891E+05 0.22863E-45 0.10704E-54 0.21397E-51 - 1 1 0.65217E-05 0.10000E+01 0.14428E+05 0.15051E-44 0.12701E-53 0.14231E-50 - 1 1 0.65217E-05 0.10000E+01 0.11635E+05 0.95317E-44 0.14305E-52 0.91486E-50 - 1 1 0.65217E-05 0.10000E+01 0.93834E+04 0.57590E-43 0.15067E-51 0.56365E-49 - 1 1 0.65217E-05 0.10000E+01 0.75673E+04 0.32961E-42 0.16049E-50 0.32703E-48 - 1 1 0.65217E-05 0.10000E+01 0.61026E+04 0.18857E-41 0.23563E-49 0.18018E-47 - 1 1 0.65217E-05 0.10000E+01 0.49215E+04 0.13354E-40 0.52554E-48 0.10924E-46 - 1 1 0.65217E-05 0.10000E+01 0.39689E+04 0.13730E-39 0.13009E-46 0.94653E-46 - 1 1 0.65217E-05 0.10000E+01 0.32008E+04 0.53260E-37 0.98757E-44 0.34488E-43 - 1 1 0.65217E-05 0.10000E+01 0.25813E+04 0.33434E-28 0.13139E-34 0.20944E-34 - 1 1 0.65217E-05 0.10000E+01 0.20817E+04 0.49708E-12 0.72454E-18 0.28851E-18 + 1 1 0.65217E-05 0.10000E+01 0.80645E+05 0.11878E-08 0.73938E-20 0.10937E-14 + 1 1 0.65217E-05 0.10000E+01 0.65036E+05 0.15224E-08 0.16872E-19 0.14021E-14 + 1 1 0.65217E-05 0.10000E+01 0.52449E+05 0.19232E-08 0.37802E-19 0.17720E-14 + 1 1 0.65217E-05 0.10000E+01 0.42297E+05 0.24027E-08 0.82754E-19 0.22150E-14 + 1 1 0.65217E-05 0.10000E+01 0.34111E+05 0.29733E-08 0.17618E-18 0.27434E-14 + 1 1 0.65217E-05 0.10000E+01 0.27509E+05 0.36459E-08 0.36346E-18 0.33684E-14 + 1 1 0.65217E-05 0.10000E+01 0.22184E+05 0.44285E-08 0.72945E-18 0.40986E-14 + 1 1 0.65217E-05 0.10000E+01 0.17891E+05 0.53245E-08 0.14667E-17 0.49386E-14 + 1 1 0.65217E-05 0.10000E+01 0.14428E+05 0.63336E-08 0.31921E-17 0.58880E-14 + 1 1 0.65217E-05 0.10000E+01 0.11635E+05 0.74604E-08 0.83144E-17 0.69455E-14 + 1 1 0.65217E-05 0.10000E+01 0.93834E+04 0.87335E-08 0.26422E-16 0.81211E-14 + 1 1 0.65217E-05 0.10000E+01 0.75673E+04 0.10248E-07 0.94516E-16 0.94626E-14 + 1 1 0.65217E-05 0.10000E+01 0.61026E+04 0.12239E-07 0.35126E-15 0.11100E-13 + 1 1 0.65217E-05 0.10000E+01 0.49215E+04 0.15219E-07 0.13050E-14 0.13318E-13 + 1 1 0.65217E-05 0.10000E+01 0.39689E+04 0.20217E-07 0.47940E-14 0.16654E-13 + 1 1 0.65217E-05 0.10000E+01 0.32008E+04 0.29222E-07 0.17436E-13 0.22061E-13 + 1 1 0.65217E-05 0.10000E+01 0.25813E+04 0.46012E-07 0.63078E-13 0.31128E-13 + 1 1 0.65217E-05 0.10000E+01 0.20817E+04 0.77702E-07 0.22736E-12 0.46438E-13 1 1 0.65217E-05 0.10000E+01 0.16788E+04 0.13769E-06 0.81545E-12 0.72153E-13 1 1 0.65217E-05 0.10000E+01 0.13538E+04 0.25107E-06 0.29083E-11 0.11498E-12 1 1 0.65217E-05 0.10000E+01 0.10918E+04 0.46465E-06 0.10335E-10 0.18585E-12 @@ -1340,24 +1340,24 @@ VERSION 2.8.2 1 1 0.65217E-05 0.10000E+01 0.24221E+03 0.32238E-04 0.28528E-07 0.62688E-11 1 1 0.65217E-05 0.10000E+01 0.19533E+03 0.50269E-04 0.54138E-07 0.94177E-11 1 1 0.65217E-05 0.10000E+01 0.15752E+03 0.50269E-04 0.54138E-07 0.94177E-11 - 1 1 0.11380E-04 0.10000E+01 0.80645E+05 0.30630E-51 0.22872E-62 0.28209E-57 - 1 1 0.11380E-04 0.10000E+01 0.65036E+05 0.25871E-50 0.36275E-61 0.23839E-56 - 1 1 0.11380E-04 0.10000E+01 0.52449E+05 0.21952E-49 0.48533E-60 0.20237E-55 - 1 1 0.11380E-04 0.10000E+01 0.42297E+05 0.16458E-48 0.65414E-59 0.15184E-54 - 1 1 0.11380E-04 0.10000E+01 0.34111E+05 0.11791E-47 0.88650E-58 0.10894E-53 - 1 1 0.11380E-04 0.10000E+01 0.27509E+05 0.83726E-47 0.11761E-56 0.77542E-53 - 1 1 0.11380E-04 0.10000E+01 0.22184E+05 0.58566E-46 0.15108E-55 0.54455E-52 - 1 1 0.11380E-04 0.10000E+01 0.17891E+05 0.39894E-45 0.18677E-54 0.37336E-51 - 1 1 0.11380E-04 0.10000E+01 0.14428E+05 0.26263E-44 0.22163E-53 0.24832E-50 - 1 1 0.11380E-04 0.10000E+01 0.11635E+05 0.16632E-43 0.24962E-52 0.15964E-49 - 1 1 0.11380E-04 0.10000E+01 0.93834E+04 0.10049E-42 0.26292E-51 0.98354E-49 - 1 1 0.11380E-04 0.10000E+01 0.75673E+04 0.57516E-42 0.28005E-50 0.57065E-48 - 1 1 0.11380E-04 0.10000E+01 0.61026E+04 0.32905E-41 0.41117E-49 0.31441E-47 - 1 1 0.11380E-04 0.10000E+01 0.49215E+04 0.23301E-40 0.91703E-48 0.19061E-46 - 1 1 0.11380E-04 0.10000E+01 0.39689E+04 0.23958E-39 0.22699E-46 0.16516E-45 - 1 1 0.11380E-04 0.10000E+01 0.32008E+04 0.92936E-37 0.17232E-43 0.60179E-43 - 1 1 0.11380E-04 0.10000E+01 0.25813E+04 0.58341E-28 0.22927E-34 0.36547E-34 - 1 1 0.11380E-04 0.10000E+01 0.20817E+04 0.86737E-12 0.12643E-17 0.50343E-18 + 1 1 0.11380E-04 0.10000E+01 0.80645E+05 0.20726E-08 0.12902E-19 0.19084E-14 + 1 1 0.11380E-04 0.10000E+01 0.65036E+05 0.26564E-08 0.29440E-19 0.24465E-14 + 1 1 0.11380E-04 0.10000E+01 0.52449E+05 0.33559E-08 0.65962E-19 0.30920E-14 + 1 1 0.11380E-04 0.10000E+01 0.42297E+05 0.41926E-08 0.14440E-18 0.38651E-14 + 1 1 0.11380E-04 0.10000E+01 0.34111E+05 0.51882E-08 0.30742E-18 0.47871E-14 + 1 1 0.11380E-04 0.10000E+01 0.27509E+05 0.63620E-08 0.63422E-18 0.58776E-14 + 1 1 0.11380E-04 0.10000E+01 0.22184E+05 0.77275E-08 0.12729E-17 0.71518E-14 + 1 1 0.11380E-04 0.10000E+01 0.17891E+05 0.92909E-08 0.25592E-17 0.86175E-14 + 1 1 0.11380E-04 0.10000E+01 0.14428E+05 0.11052E-07 0.55700E-17 0.10274E-13 + 1 1 0.11380E-04 0.10000E+01 0.11635E+05 0.13018E-07 0.14508E-16 0.12119E-13 + 1 1 0.11380E-04 0.10000E+01 0.93834E+04 0.15240E-07 0.46105E-16 0.14171E-13 + 1 1 0.11380E-04 0.10000E+01 0.75673E+04 0.17882E-07 0.16492E-15 0.16512E-13 + 1 1 0.11380E-04 0.10000E+01 0.61026E+04 0.21357E-07 0.61293E-15 0.19370E-13 + 1 1 0.11380E-04 0.10000E+01 0.49215E+04 0.26556E-07 0.22772E-14 0.23238E-13 + 1 1 0.11380E-04 0.10000E+01 0.39689E+04 0.35277E-07 0.83652E-14 0.29061E-13 + 1 1 0.11380E-04 0.10000E+01 0.32008E+04 0.50991E-07 0.30425E-13 0.38495E-13 + 1 1 0.11380E-04 0.10000E+01 0.25813E+04 0.80288E-07 0.11007E-12 0.54316E-13 + 1 1 0.11380E-04 0.10000E+01 0.20817E+04 0.13559E-06 0.39673E-12 0.81032E-13 1 1 0.11380E-04 0.10000E+01 0.16788E+04 0.24026E-06 0.14229E-11 0.12590E-12 1 1 0.11380E-04 0.10000E+01 0.13538E+04 0.43811E-06 0.50748E-11 0.20064E-12 1 1 0.11380E-04 0.10000E+01 0.10918E+04 0.81078E-06 0.18034E-10 0.32429E-12 @@ -1370,24 +1370,24 @@ VERSION 2.8.2 1 1 0.11380E-04 0.10000E+01 0.24221E+03 0.56254E-04 0.49779E-07 0.10939E-10 1 1 0.11380E-04 0.10000E+01 0.19533E+03 0.87716E-04 0.94467E-07 0.16433E-10 1 1 0.11380E-04 0.10000E+01 0.15752E+03 0.87716E-04 0.94467E-07 0.16433E-10 - 1 1 0.19857E-04 0.10000E+01 0.80645E+05 0.53447E-51 0.39910E-62 0.49223E-57 - 1 1 0.19857E-04 0.10000E+01 0.65036E+05 0.45144E-50 0.63298E-61 0.41597E-56 - 1 1 0.19857E-04 0.10000E+01 0.52449E+05 0.38305E-49 0.84687E-60 0.35312E-55 - 1 1 0.19857E-04 0.10000E+01 0.42297E+05 0.28718E-48 0.11414E-58 0.26495E-54 - 1 1 0.19857E-04 0.10000E+01 0.34111E+05 0.20575E-47 0.15469E-57 0.19010E-53 - 1 1 0.19857E-04 0.10000E+01 0.27509E+05 0.14610E-46 0.20523E-56 0.13531E-52 - 1 1 0.19857E-04 0.10000E+01 0.22184E+05 0.10219E-45 0.26363E-55 0.95020E-52 - 1 1 0.19857E-04 0.10000E+01 0.17891E+05 0.69613E-45 0.32590E-54 0.65149E-51 - 1 1 0.19857E-04 0.10000E+01 0.14428E+05 0.45828E-44 0.38673E-53 0.43330E-50 - 1 1 0.19857E-04 0.10000E+01 0.11635E+05 0.29022E-43 0.43557E-52 0.27856E-49 - 1 1 0.19857E-04 0.10000E+01 0.93834E+04 0.17535E-42 0.45877E-51 0.17162E-48 - 1 1 0.19857E-04 0.10000E+01 0.75673E+04 0.10036E-41 0.48867E-50 0.99575E-48 - 1 1 0.19857E-04 0.10000E+01 0.61026E+04 0.57417E-41 0.71746E-49 0.54863E-47 - 1 1 0.19857E-04 0.10000E+01 0.49215E+04 0.40660E-40 0.16002E-47 0.33260E-46 - 1 1 0.19857E-04 0.10000E+01 0.39689E+04 0.41805E-39 0.39609E-46 0.28820E-45 - 1 1 0.19857E-04 0.10000E+01 0.32008E+04 0.16217E-36 0.30070E-43 0.10501E-42 - 1 1 0.19857E-04 0.10000E+01 0.25813E+04 0.10180E-27 0.40007E-34 0.63772E-34 - 1 1 0.19857E-04 0.10000E+01 0.20817E+04 0.15135E-11 0.22061E-17 0.87845E-18 + 1 1 0.19857E-04 0.10000E+01 0.80645E+05 0.36165E-08 0.22513E-19 0.33300E-14 + 1 1 0.19857E-04 0.10000E+01 0.65036E+05 0.46353E-08 0.51371E-19 0.42691E-14 + 1 1 0.19857E-04 0.10000E+01 0.52449E+05 0.58559E-08 0.11510E-18 0.53953E-14 + 1 1 0.19857E-04 0.10000E+01 0.42297E+05 0.73159E-08 0.25197E-18 0.67443E-14 + 1 1 0.19857E-04 0.10000E+01 0.34111E+05 0.90531E-08 0.53644E-18 0.83532E-14 + 1 1 0.19857E-04 0.10000E+01 0.27509E+05 0.11101E-07 0.11067E-17 0.10256E-13 + 1 1 0.19857E-04 0.10000E+01 0.22184E+05 0.13484E-07 0.22211E-17 0.12480E-13 + 1 1 0.19857E-04 0.10000E+01 0.17891E+05 0.16212E-07 0.44657E-17 0.15037E-13 + 1 1 0.19857E-04 0.10000E+01 0.14428E+05 0.19285E-07 0.97194E-17 0.17928E-13 + 1 1 0.19857E-04 0.10000E+01 0.11635E+05 0.22715E-07 0.25316E-16 0.21148E-13 + 1 1 0.19857E-04 0.10000E+01 0.93834E+04 0.26592E-07 0.80450E-16 0.24727E-13 + 1 1 0.19857E-04 0.10000E+01 0.75673E+04 0.31203E-07 0.28778E-15 0.28812E-13 + 1 1 0.19857E-04 0.10000E+01 0.61026E+04 0.37266E-07 0.10695E-14 0.33799E-13 + 1 1 0.19857E-04 0.10000E+01 0.49215E+04 0.46339E-07 0.39736E-14 0.40550E-13 + 1 1 0.19857E-04 0.10000E+01 0.39689E+04 0.61556E-07 0.14597E-13 0.50709E-13 + 1 1 0.19857E-04 0.10000E+01 0.32008E+04 0.88976E-07 0.53090E-13 0.67172E-13 + 1 1 0.19857E-04 0.10000E+01 0.25813E+04 0.14010E-06 0.19206E-12 0.94778E-13 + 1 1 0.19857E-04 0.10000E+01 0.20817E+04 0.23659E-06 0.69227E-12 0.14140E-12 1 1 0.19857E-04 0.10000E+01 0.16788E+04 0.41923E-06 0.24829E-11 0.21969E-12 1 1 0.19857E-04 0.10000E+01 0.13538E+04 0.76447E-06 0.88552E-11 0.35010E-12 1 1 0.19857E-04 0.10000E+01 0.10918E+04 0.14148E-05 0.31468E-10 0.56587E-12 @@ -1400,24 +1400,24 @@ VERSION 2.8.2 1 1 0.19857E-04 0.10000E+01 0.24221E+03 0.98159E-04 0.86862E-07 0.19087E-10 1 1 0.19857E-04 0.10000E+01 0.19533E+03 0.15306E-03 0.16484E-06 0.28675E-10 1 1 0.19857E-04 0.10000E+01 0.15752E+03 0.15306E-03 0.16484E-06 0.28675E-10 - 1 1 0.34650E-04 0.10000E+01 0.80645E+05 0.93261E-51 0.69640E-62 0.85892E-57 - 1 1 0.34650E-04 0.10000E+01 0.65036E+05 0.78773E-50 0.11045E-60 0.72585E-56 - 1 1 0.34650E-04 0.10000E+01 0.52449E+05 0.66841E-49 0.14777E-59 0.61617E-55 - 1 1 0.34650E-04 0.10000E+01 0.42297E+05 0.50112E-48 0.19917E-58 0.46233E-54 - 1 1 0.34650E-04 0.10000E+01 0.34111E+05 0.35903E-47 0.26992E-57 0.33171E-53 - 1 1 0.34650E-04 0.10000E+01 0.27509E+05 0.25493E-46 0.35811E-56 0.23610E-52 - 1 1 0.34650E-04 0.10000E+01 0.22184E+05 0.17832E-45 0.46002E-55 0.16580E-51 - 1 1 0.34650E-04 0.10000E+01 0.17891E+05 0.12147E-44 0.56868E-54 0.11368E-50 - 1 1 0.34650E-04 0.10000E+01 0.14428E+05 0.79967E-44 0.67482E-53 0.75608E-50 - 1 1 0.34650E-04 0.10000E+01 0.11635E+05 0.50642E-43 0.76005E-52 0.48607E-49 - 1 1 0.34650E-04 0.10000E+01 0.93834E+04 0.30598E-42 0.80053E-51 0.29947E-48 - 1 1 0.34650E-04 0.10000E+01 0.75673E+04 0.17512E-41 0.85271E-50 0.17375E-47 - 1 1 0.34650E-04 0.10000E+01 0.61026E+04 0.10019E-40 0.12519E-48 0.95732E-47 - 1 1 0.34650E-04 0.10000E+01 0.49215E+04 0.70948E-40 0.27922E-47 0.58037E-46 - 1 1 0.34650E-04 0.10000E+01 0.39689E+04 0.72947E-39 0.69116E-46 0.50289E-45 - 1 1 0.34650E-04 0.10000E+01 0.32008E+04 0.28297E-36 0.52470E-43 0.18323E-42 - 1 1 0.34650E-04 0.10000E+01 0.25813E+04 0.17764E-27 0.69809E-34 0.11128E-33 - 1 1 0.34650E-04 0.10000E+01 0.20817E+04 0.26410E-11 0.38495E-17 0.15328E-17 + 1 1 0.34650E-04 0.10000E+01 0.80645E+05 0.63106E-08 0.39283E-19 0.58106E-14 + 1 1 0.34650E-04 0.10000E+01 0.65036E+05 0.80883E-08 0.89639E-19 0.74493E-14 + 1 1 0.34650E-04 0.10000E+01 0.52449E+05 0.10218E-07 0.20084E-18 0.94144E-14 + 1 1 0.34650E-04 0.10000E+01 0.42297E+05 0.12766E-07 0.43967E-18 0.11768E-13 + 1 1 0.34650E-04 0.10000E+01 0.34111E+05 0.15797E-07 0.93605E-18 0.14576E-13 + 1 1 0.34650E-04 0.10000E+01 0.27509E+05 0.19371E-07 0.19311E-17 0.17896E-13 + 1 1 0.34650E-04 0.10000E+01 0.22184E+05 0.23529E-07 0.38756E-17 0.21776E-13 + 1 1 0.34650E-04 0.10000E+01 0.17891E+05 0.28289E-07 0.77924E-17 0.26239E-13 + 1 1 0.34650E-04 0.10000E+01 0.14428E+05 0.33651E-07 0.16960E-16 0.31283E-13 + 1 1 0.34650E-04 0.10000E+01 0.11635E+05 0.39637E-07 0.44175E-16 0.36901E-13 + 1 1 0.34650E-04 0.10000E+01 0.93834E+04 0.46401E-07 0.14038E-15 0.43148E-13 + 1 1 0.34650E-04 0.10000E+01 0.75673E+04 0.54447E-07 0.50216E-15 0.50275E-13 + 1 1 0.34650E-04 0.10000E+01 0.61026E+04 0.65028E-07 0.18663E-14 0.58977E-13 + 1 1 0.34650E-04 0.10000E+01 0.49215E+04 0.80859E-07 0.69337E-14 0.70757E-13 + 1 1 0.34650E-04 0.10000E+01 0.39689E+04 0.10741E-06 0.25470E-13 0.88485E-13 + 1 1 0.34650E-04 0.10000E+01 0.32008E+04 0.15526E-06 0.92639E-13 0.11721E-12 + 1 1 0.34650E-04 0.10000E+01 0.25813E+04 0.24446E-06 0.33513E-12 0.16538E-12 + 1 1 0.34650E-04 0.10000E+01 0.20817E+04 0.41283E-06 0.12080E-11 0.24673E-12 1 1 0.34650E-04 0.10000E+01 0.16788E+04 0.73153E-06 0.43325E-11 0.38335E-12 1 1 0.34650E-04 0.10000E+01 0.13538E+04 0.13339E-05 0.15452E-10 0.61091E-12 1 1 0.34650E-04 0.10000E+01 0.10918E+04 0.24687E-05 0.54910E-10 0.98742E-12 @@ -1430,24 +1430,24 @@ VERSION 2.8.2 1 1 0.34650E-04 0.10000E+01 0.24221E+03 0.17128E-03 0.15157E-06 0.33306E-10 1 1 0.34650E-04 0.10000E+01 0.19533E+03 0.26708E-03 0.28763E-06 0.50036E-10 1 1 0.34650E-04 0.10000E+01 0.15752E+03 0.26708E-03 0.28763E-06 0.50036E-10 - 1 1 0.60462E-04 0.10000E+01 0.80645E+05 0.16274E-50 0.12152E-61 0.14988E-56 - 1 1 0.60462E-04 0.10000E+01 0.65036E+05 0.13745E-49 0.19273E-60 0.12666E-55 - 1 1 0.60462E-04 0.10000E+01 0.52449E+05 0.11663E-48 0.25786E-59 0.10752E-54 - 1 1 0.60462E-04 0.10000E+01 0.42297E+05 0.87442E-48 0.34755E-58 0.80673E-54 - 1 1 0.60462E-04 0.10000E+01 0.34111E+05 0.62648E-47 0.47100E-57 0.57882E-53 - 1 1 0.60462E-04 0.10000E+01 0.27509E+05 0.44484E-46 0.62489E-56 0.41198E-52 - 1 1 0.60462E-04 0.10000E+01 0.22184E+05 0.31116E-45 0.80270E-55 0.28932E-51 - 1 1 0.60462E-04 0.10000E+01 0.17891E+05 0.21196E-44 0.99232E-54 0.19837E-50 - 1 1 0.60462E-04 0.10000E+01 0.14428E+05 0.13954E-43 0.11775E-52 0.13193E-49 - 1 1 0.60462E-04 0.10000E+01 0.11635E+05 0.88367E-43 0.13262E-51 0.84815E-49 - 1 1 0.60462E-04 0.10000E+01 0.93834E+04 0.53391E-42 0.13969E-50 0.52256E-48 - 1 1 0.60462E-04 0.10000E+01 0.75673E+04 0.30558E-41 0.14879E-49 0.30319E-47 - 1 1 0.60462E-04 0.10000E+01 0.61026E+04 0.17483E-40 0.21845E-48 0.16705E-46 - 1 1 0.60462E-04 0.10000E+01 0.49215E+04 0.12380E-39 0.48722E-47 0.10127E-45 - 1 1 0.60462E-04 0.10000E+01 0.39689E+04 0.12729E-38 0.12060E-45 0.87752E-45 - 1 1 0.60462E-04 0.10000E+01 0.32008E+04 0.49377E-36 0.91556E-43 0.31973E-42 - 1 1 0.60462E-04 0.10000E+01 0.25813E+04 0.30997E-27 0.12181E-33 0.19417E-33 - 1 1 0.60462E-04 0.10000E+01 0.20817E+04 0.46083E-11 0.67171E-17 0.26747E-17 + 1 1 0.60462E-04 0.10000E+01 0.80645E+05 0.11012E-07 0.68547E-19 0.10139E-13 + 1 1 0.60462E-04 0.10000E+01 0.65036E+05 0.14114E-07 0.15642E-18 0.12999E-13 + 1 1 0.60462E-04 0.10000E+01 0.52449E+05 0.17830E-07 0.35046E-18 0.16428E-13 + 1 1 0.60462E-04 0.10000E+01 0.42297E+05 0.22275E-07 0.76720E-18 0.20535E-13 + 1 1 0.60462E-04 0.10000E+01 0.34111E+05 0.27565E-07 0.16334E-17 0.25434E-13 + 1 1 0.60462E-04 0.10000E+01 0.27509E+05 0.33801E-07 0.33696E-17 0.31228E-13 + 1 1 0.60462E-04 0.10000E+01 0.22184E+05 0.41057E-07 0.67627E-17 0.37998E-13 + 1 1 0.60462E-04 0.10000E+01 0.17891E+05 0.49362E-07 0.13597E-16 0.45785E-13 + 1 1 0.60462E-04 0.10000E+01 0.14428E+05 0.58718E-07 0.29594E-16 0.54587E-13 + 1 1 0.60462E-04 0.10000E+01 0.11635E+05 0.69164E-07 0.77082E-16 0.64391E-13 + 1 1 0.60462E-04 0.10000E+01 0.93834E+04 0.80968E-07 0.24495E-15 0.75290E-13 + 1 1 0.60462E-04 0.10000E+01 0.75673E+04 0.95007E-07 0.87625E-15 0.87727E-13 + 1 1 0.60462E-04 0.10000E+01 0.61026E+04 0.11347E-06 0.32565E-14 0.10291E-12 + 1 1 0.60462E-04 0.10000E+01 0.49215E+04 0.14109E-06 0.12099E-13 0.12347E-12 + 1 1 0.60462E-04 0.10000E+01 0.39689E+04 0.18743E-06 0.44444E-13 0.15440E-12 + 1 1 0.60462E-04 0.10000E+01 0.32008E+04 0.27092E-06 0.16165E-12 0.20453E-12 + 1 1 0.60462E-04 0.10000E+01 0.25813E+04 0.42657E-06 0.58479E-12 0.28858E-12 + 1 1 0.60462E-04 0.10000E+01 0.20817E+04 0.72037E-06 0.21078E-11 0.43052E-12 1 1 0.60462E-04 0.10000E+01 0.16788E+04 0.12765E-05 0.75599E-11 0.66893E-12 1 1 0.60462E-04 0.10000E+01 0.13538E+04 0.23277E-05 0.26962E-10 0.10660E-11 1 1 0.60462E-04 0.10000E+01 0.10918E+04 0.43077E-05 0.95814E-10 0.17230E-11 @@ -1460,24 +1460,24 @@ VERSION 2.8.2 1 1 0.60462E-04 0.10000E+01 0.24221E+03 0.29888E-03 0.26448E-06 0.58118E-10 1 1 0.60462E-04 0.10000E+01 0.19533E+03 0.46603E-03 0.50190E-06 0.87310E-10 1 1 0.60462E-04 0.10000E+01 0.15752E+03 0.46603E-03 0.50190E-06 0.87310E-10 - 1 1 0.10550E-03 0.10000E+01 0.80645E+05 0.28396E-50 0.21204E-61 0.26152E-56 - 1 1 0.10550E-03 0.10000E+01 0.65036E+05 0.23985E-49 0.33630E-60 0.22101E-55 - 1 1 0.10550E-03 0.10000E+01 0.52449E+05 0.20352E-48 0.44994E-59 0.18761E-54 - 1 1 0.10550E-03 0.10000E+01 0.42297E+05 0.15258E-47 0.60645E-58 0.14077E-53 - 1 1 0.10550E-03 0.10000E+01 0.34111E+05 0.10932E-46 0.82187E-57 0.10100E-52 - 1 1 0.10550E-03 0.10000E+01 0.27509E+05 0.77622E-46 0.10904E-55 0.71888E-52 - 1 1 0.10550E-03 0.10000E+01 0.22184E+05 0.54296E-45 0.14007E-54 0.50484E-51 - 1 1 0.10550E-03 0.10000E+01 0.17891E+05 0.36985E-44 0.17315E-53 0.34614E-50 - 1 1 0.10550E-03 0.10000E+01 0.14428E+05 0.24348E-43 0.20547E-52 0.23021E-49 - 1 1 0.10550E-03 0.10000E+01 0.11635E+05 0.15420E-42 0.23142E-51 0.14800E-48 - 1 1 0.10550E-03 0.10000E+01 0.93834E+04 0.93164E-42 0.24375E-50 0.91183E-48 - 1 1 0.10550E-03 0.10000E+01 0.75673E+04 0.53322E-41 0.25963E-49 0.52904E-47 - 1 1 0.10550E-03 0.10000E+01 0.61026E+04 0.30506E-40 0.38119E-48 0.29149E-46 - 1 1 0.10550E-03 0.10000E+01 0.49215E+04 0.21602E-39 0.85017E-47 0.17671E-45 - 1 1 0.10550E-03 0.10000E+01 0.39689E+04 0.22211E-38 0.21044E-45 0.15312E-44 - 1 1 0.10550E-03 0.10000E+01 0.32008E+04 0.86160E-36 0.15976E-42 0.55791E-42 - 1 1 0.10550E-03 0.10000E+01 0.25813E+04 0.54087E-27 0.21256E-33 0.33882E-33 - 1 1 0.10550E-03 0.10000E+01 0.20817E+04 0.80413E-11 0.11721E-16 0.46672E-17 + 1 1 0.10550E-03 0.10000E+01 0.80645E+05 0.19215E-07 0.11961E-18 0.17692E-13 + 1 1 0.10550E-03 0.10000E+01 0.65036E+05 0.24627E-07 0.27293E-18 0.22682E-13 + 1 1 0.10550E-03 0.10000E+01 0.52449E+05 0.31113E-07 0.61153E-18 0.28665E-13 + 1 1 0.10550E-03 0.10000E+01 0.42297E+05 0.38869E-07 0.13387E-17 0.35833E-13 + 1 1 0.10550E-03 0.10000E+01 0.34111E+05 0.48099E-07 0.28501E-17 0.44381E-13 + 1 1 0.10550E-03 0.10000E+01 0.27509E+05 0.58981E-07 0.58798E-17 0.54491E-13 + 1 1 0.10550E-03 0.10000E+01 0.22184E+05 0.71641E-07 0.11800E-16 0.66304E-13 + 1 1 0.10550E-03 0.10000E+01 0.17891E+05 0.86134E-07 0.23726E-16 0.79892E-13 + 1 1 0.10550E-03 0.10000E+01 0.14428E+05 0.10246E-06 0.51639E-16 0.95251E-13 + 1 1 0.10550E-03 0.10000E+01 0.11635E+05 0.12069E-06 0.13450E-15 0.11236E-12 + 1 1 0.10550E-03 0.10000E+01 0.93834E+04 0.14128E-06 0.42743E-15 0.13138E-12 + 1 1 0.10550E-03 0.10000E+01 0.75673E+04 0.16578E-06 0.15290E-14 0.15308E-12 + 1 1 0.10550E-03 0.10000E+01 0.61026E+04 0.19800E-06 0.56824E-14 0.17957E-12 + 1 1 0.10550E-03 0.10000E+01 0.49215E+04 0.24620E-06 0.21112E-13 0.21544E-12 + 1 1 0.10550E-03 0.10000E+01 0.39689E+04 0.32705E-06 0.77553E-13 0.26942E-12 + 1 1 0.10550E-03 0.10000E+01 0.32008E+04 0.47273E-06 0.28207E-12 0.35689E-12 + 1 1 0.10550E-03 0.10000E+01 0.25813E+04 0.74434E-06 0.10204E-11 0.50356E-12 + 1 1 0.10550E-03 0.10000E+01 0.20817E+04 0.12570E-05 0.36780E-11 0.75124E-12 1 1 0.10550E-03 0.10000E+01 0.16788E+04 0.22274E-05 0.13192E-10 0.11672E-11 1 1 0.10550E-03 0.10000E+01 0.13538E+04 0.40616E-05 0.47048E-10 0.18601E-11 1 1 0.10550E-03 0.10000E+01 0.10918E+04 0.75167E-05 0.16719E-09 0.30065E-11 @@ -1490,24 +1490,24 @@ VERSION 2.8.2 1 1 0.10550E-03 0.10000E+01 0.24221E+03 0.52152E-03 0.46150E-06 0.10141E-09 1 1 0.10550E-03 0.10000E+01 0.19533E+03 0.81320E-03 0.87579E-06 0.15235E-09 1 1 0.10550E-03 0.10000E+01 0.15752E+03 0.81320E-03 0.87579E-06 0.15235E-09 - 1 1 0.18409E-03 0.10000E+01 0.80645E+05 0.49550E-50 0.37000E-61 0.45635E-56 - 1 1 0.18409E-03 0.10000E+01 0.65036E+05 0.41852E-49 0.58683E-60 0.38564E-55 - 1 1 0.18409E-03 0.10000E+01 0.52449E+05 0.35513E-48 0.78513E-59 0.32737E-54 - 1 1 0.18409E-03 0.10000E+01 0.42297E+05 0.26624E-47 0.10582E-57 0.24564E-53 - 1 1 0.18409E-03 0.10000E+01 0.34111E+05 0.19075E-46 0.14341E-56 0.17624E-52 - 1 1 0.18409E-03 0.10000E+01 0.27509E+05 0.13545E-45 0.19027E-55 0.12544E-51 - 1 1 0.18409E-03 0.10000E+01 0.22184E+05 0.94743E-45 0.24441E-54 0.88092E-51 - 1 1 0.18409E-03 0.10000E+01 0.17891E+05 0.64537E-44 0.30214E-53 0.60399E-50 - 1 1 0.18409E-03 0.10000E+01 0.14428E+05 0.42486E-43 0.35853E-52 0.40171E-49 - 1 1 0.18409E-03 0.10000E+01 0.11635E+05 0.26906E-42 0.40381E-51 0.25825E-48 - 1 1 0.18409E-03 0.10000E+01 0.93834E+04 0.16257E-41 0.42532E-50 0.15911E-47 - 1 1 0.18409E-03 0.10000E+01 0.75673E+04 0.93044E-41 0.45304E-49 0.92315E-47 - 1 1 0.18409E-03 0.10000E+01 0.61026E+04 0.53231E-40 0.66515E-48 0.50863E-46 - 1 1 0.18409E-03 0.10000E+01 0.49215E+04 0.37695E-39 0.14835E-46 0.30835E-45 - 1 1 0.18409E-03 0.10000E+01 0.39689E+04 0.38757E-38 0.36721E-45 0.26719E-44 - 1 1 0.18409E-03 0.10000E+01 0.32008E+04 0.15034E-35 0.27877E-42 0.97352E-42 - 1 1 0.18409E-03 0.10000E+01 0.25813E+04 0.94379E-27 0.37090E-33 0.59122E-33 - 1 1 0.18409E-03 0.10000E+01 0.20817E+04 0.14032E-10 0.20452E-16 0.81440E-17 + 1 1 0.18409E-03 0.10000E+01 0.80645E+05 0.33528E-07 0.20871E-18 0.30872E-13 + 1 1 0.18409E-03 0.10000E+01 0.65036E+05 0.42973E-07 0.47625E-18 0.39578E-13 + 1 1 0.18409E-03 0.10000E+01 0.52449E+05 0.54289E-07 0.10671E-17 0.50019E-13 + 1 1 0.18409E-03 0.10000E+01 0.42297E+05 0.67825E-07 0.23360E-17 0.62526E-13 + 1 1 0.18409E-03 0.10000E+01 0.34111E+05 0.83930E-07 0.49733E-17 0.77442E-13 + 1 1 0.18409E-03 0.10000E+01 0.27509E+05 0.10292E-06 0.10260E-16 0.95083E-13 + 1 1 0.18409E-03 0.10000E+01 0.22184E+05 0.12501E-06 0.20591E-16 0.11570E-12 + 1 1 0.18409E-03 0.10000E+01 0.17891E+05 0.15030E-06 0.41401E-16 0.13941E-12 + 1 1 0.18409E-03 0.10000E+01 0.14428E+05 0.17879E-06 0.90107E-16 0.16621E-12 + 1 1 0.18409E-03 0.10000E+01 0.11635E+05 0.21059E-06 0.23470E-15 0.19606E-12 + 1 1 0.18409E-03 0.10000E+01 0.93834E+04 0.24653E-06 0.74584E-15 0.22924E-12 + 1 1 0.18409E-03 0.10000E+01 0.75673E+04 0.28928E-06 0.26680E-14 0.26711E-12 + 1 1 0.18409E-03 0.10000E+01 0.61026E+04 0.34549E-06 0.99154E-14 0.31334E-12 + 1 1 0.18409E-03 0.10000E+01 0.49215E+04 0.42961E-06 0.36839E-13 0.37593E-12 + 1 1 0.18409E-03 0.10000E+01 0.39689E+04 0.57068E-06 0.13533E-12 0.47012E-12 + 1 1 0.18409E-03 0.10000E+01 0.32008E+04 0.82489E-06 0.49219E-12 0.62275E-12 + 1 1 0.18409E-03 0.10000E+01 0.25813E+04 0.12988E-05 0.17806E-11 0.87868E-12 + 1 1 0.18409E-03 0.10000E+01 0.20817E+04 0.21934E-05 0.64179E-11 0.13109E-11 1 1 0.18409E-03 0.10000E+01 0.16788E+04 0.38867E-05 0.23019E-10 0.20368E-11 1 1 0.18409E-03 0.10000E+01 0.13538E+04 0.70873E-05 0.82096E-10 0.32458E-11 1 1 0.18409E-03 0.10000E+01 0.10918E+04 0.13116E-04 0.29174E-09 0.52462E-11 @@ -1520,24 +1520,24 @@ VERSION 2.8.2 1 1 0.18409E-03 0.10000E+01 0.24221E+03 0.91002E-03 0.80529E-06 0.17696E-09 1 1 0.18409E-03 0.10000E+01 0.19533E+03 0.14190E-02 0.15282E-05 0.26584E-09 1 1 0.18409E-03 0.10000E+01 0.15752E+03 0.14190E-02 0.15282E-05 0.26584E-09 - 1 1 0.32123E-03 0.10000E+01 0.80645E+05 0.86462E-50 0.64562E-61 0.79629E-56 - 1 1 0.32123E-03 0.10000E+01 0.65036E+05 0.73030E-49 0.10240E-59 0.67293E-55 - 1 1 0.32123E-03 0.10000E+01 0.52449E+05 0.61967E-48 0.13700E-58 0.57125E-54 - 1 1 0.32123E-03 0.10000E+01 0.42297E+05 0.46458E-47 0.18465E-57 0.42862E-53 - 1 1 0.32123E-03 0.10000E+01 0.34111E+05 0.33285E-46 0.25024E-56 0.30753E-52 - 1 1 0.32123E-03 0.10000E+01 0.27509E+05 0.23634E-45 0.33200E-55 0.21889E-51 - 1 1 0.32123E-03 0.10000E+01 0.22184E+05 0.16532E-44 0.42648E-54 0.15372E-50 - 1 1 0.32123E-03 0.10000E+01 0.17891E+05 0.11261E-43 0.52722E-53 0.10539E-49 - 1 1 0.32123E-03 0.10000E+01 0.14428E+05 0.74136E-43 0.62562E-52 0.70095E-49 - 1 1 0.32123E-03 0.10000E+01 0.11635E+05 0.46950E-42 0.70463E-51 0.45063E-48 - 1 1 0.32123E-03 0.10000E+01 0.93834E+04 0.28367E-41 0.74216E-50 0.27764E-47 - 1 1 0.32123E-03 0.10000E+01 0.75673E+04 0.16236E-40 0.79053E-49 0.16108E-46 - 1 1 0.32123E-03 0.10000E+01 0.61026E+04 0.92885E-40 0.11607E-47 0.88752E-46 - 1 1 0.32123E-03 0.10000E+01 0.49215E+04 0.65775E-39 0.25886E-46 0.53805E-45 - 1 1 0.32123E-03 0.10000E+01 0.39689E+04 0.67628E-38 0.64076E-45 0.46623E-44 - 1 1 0.32123E-03 0.10000E+01 0.32008E+04 0.26234E-35 0.48644E-42 0.16987E-41 - 1 1 0.32123E-03 0.10000E+01 0.25813E+04 0.16469E-26 0.64720E-33 0.10316E-32 - 1 1 0.32123E-03 0.10000E+01 0.20817E+04 0.24484E-10 0.35688E-16 0.14211E-16 + 1 1 0.32123E-03 0.10000E+01 0.80645E+05 0.58505E-07 0.36419E-18 0.53869E-13 + 1 1 0.32123E-03 0.10000E+01 0.65036E+05 0.74986E-07 0.83104E-18 0.69061E-13 + 1 1 0.32123E-03 0.10000E+01 0.52449E+05 0.94732E-07 0.18620E-17 0.87280E-13 + 1 1 0.32123E-03 0.10000E+01 0.42297E+05 0.11835E-06 0.40762E-17 0.10910E-12 + 1 1 0.32123E-03 0.10000E+01 0.34111E+05 0.14645E-06 0.86780E-17 0.13513E-12 + 1 1 0.32123E-03 0.10000E+01 0.27509E+05 0.17959E-06 0.17903E-16 0.16591E-12 + 1 1 0.32123E-03 0.10000E+01 0.22184E+05 0.21813E-06 0.35930E-16 0.20188E-12 + 1 1 0.32123E-03 0.10000E+01 0.17891E+05 0.26226E-06 0.72243E-16 0.24326E-12 + 1 1 0.32123E-03 0.10000E+01 0.14428E+05 0.31197E-06 0.15723E-15 0.29002E-12 + 1 1 0.32123E-03 0.10000E+01 0.11635E+05 0.36747E-06 0.40954E-15 0.34211E-12 + 1 1 0.32123E-03 0.10000E+01 0.93834E+04 0.43018E-06 0.13014E-14 0.40002E-12 + 1 1 0.32123E-03 0.10000E+01 0.75673E+04 0.50478E-06 0.46555E-14 0.46609E-12 + 1 1 0.32123E-03 0.10000E+01 0.61026E+04 0.60286E-06 0.17302E-13 0.54677E-12 + 1 1 0.32123E-03 0.10000E+01 0.49215E+04 0.74964E-06 0.64282E-13 0.65598E-12 + 1 1 0.32123E-03 0.10000E+01 0.39689E+04 0.99579E-06 0.23613E-12 0.82033E-12 + 1 1 0.32123E-03 0.10000E+01 0.32008E+04 0.14394E-05 0.85885E-12 0.10867E-11 + 1 1 0.32123E-03 0.10000E+01 0.25813E+04 0.22664E-05 0.31070E-11 0.15332E-11 + 1 1 0.32123E-03 0.10000E+01 0.20817E+04 0.38273E-05 0.11199E-10 0.22874E-11 1 1 0.32123E-03 0.10000E+01 0.16788E+04 0.67820E-05 0.40166E-10 0.35540E-11 1 1 0.32123E-03 0.10000E+01 0.13538E+04 0.12367E-04 0.14325E-09 0.56636E-11 1 1 0.32123E-03 0.10000E+01 0.10918E+04 0.22887E-04 0.50906E-09 0.91542E-11 @@ -1600,24 +1600,24 @@ VERSION 2.8.2 1 2 0.10550E-03 0.10000E+01 0.92637E+00 0.14562E+01 0.29213E+00 0.16722E-02 0.35741E+00 0.70530E-04 0.46642E+10 0.43443E+03 0.50000E+03 0.59796E-15 0.15639E-01 0.58374E-02 0.14614E+02 1 2 0.18409E-03 0.10000E+01 0.92637E+00 0.14562E+01 0.88947E+00 0.29180E-02 0.62367E+00 0.70530E-04 0.81388E+10 0.75805E+03 0.50000E+03 0.10434E-14 0.27289E-01 0.58374E-02 0.14614E+02 1 2 0.32123E-03 0.10000E+01 0.92637E+00 0.14562E+01 0.27083E+01 0.50917E-02 0.10883E+01 0.70530E-04 0.14202E+11 0.13228E+04 0.50000E+03 0.18207E-14 0.47618E-01 0.58374E-02 0.14614E+02 - 1 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 1 2 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 1 2 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 1 2 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 1 2 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 1 2 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 1 2 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 1 2 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 1 2 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 1 2 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 1 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 1 2 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 1 2 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 1 2 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 1 2 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 1 2 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 1 2 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 1 2 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 1 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 1 2 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 1 2 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 1 2 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 1 2 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 1 2 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 1 2 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 1 2 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 1 2 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 1 2 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 1 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 1 2 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 1 2 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 1 2 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 1 2 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 1 2 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 1 2 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 1 2 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 1 2 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 1 2 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 1 2 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -1630,24 +1630,24 @@ VERSION 2.8.2 1 2 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 1 2 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 1 2 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 1 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 1 2 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 1 2 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 1 2 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 1 2 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 1 2 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 1 2 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 1 2 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 1 2 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 1 2 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 1 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 1 2 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 1 2 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 1 2 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 1 2 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 1 2 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 1 2 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 1 2 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 1 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 1 2 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 1 2 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 1 2 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 1 2 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 1 2 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 1 2 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 1 2 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 1 2 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 1 2 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 1 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 1 2 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 1 2 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 1 2 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 1 2 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 1 2 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 1 2 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 1 2 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 1 2 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 1 2 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 1 2 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -1660,24 +1660,24 @@ VERSION 2.8.2 1 2 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 1 2 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 1 2 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 1 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 1 2 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 1 2 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 1 2 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 1 2 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 1 2 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 1 2 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 1 2 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 1 2 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 1 2 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 1 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 1 2 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 1 2 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 1 2 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 1 2 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 1 2 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 1 2 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 1 2 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 1 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 1 2 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 1 2 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 1 2 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 1 2 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 1 2 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 1 2 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 1 2 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 1 2 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 1 2 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 1 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 1 2 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 1 2 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 1 2 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 1 2 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 1 2 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 1 2 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 1 2 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 1 2 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 1 2 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 1 2 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -1690,24 +1690,24 @@ VERSION 2.8.2 1 2 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 1 2 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 1 2 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 1 2 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 1 2 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 1 2 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 1 2 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 1 2 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 1 2 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 1 2 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 1 2 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 1 2 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 1 2 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 1 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 1 2 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 1 2 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 1 2 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 1 2 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 1 2 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 1 2 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 1 2 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 1 2 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 1 2 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 1 2 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 1 2 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 1 2 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 1 2 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 1 2 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 1 2 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 1 2 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 1 2 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 1 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 1 2 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 1 2 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 1 2 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 1 2 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 1 2 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 1 2 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 1 2 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 1 2 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 1 2 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 1 2 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -1720,24 +1720,24 @@ VERSION 2.8.2 1 2 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 1 2 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 1 2 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 1 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 1 2 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 1 2 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 1 2 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 1 2 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 1 2 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 1 2 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 1 2 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 1 2 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 1 2 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 1 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 1 2 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 1 2 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 1 2 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 1 2 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 1 2 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 1 2 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 1 2 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 1 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 1 2 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 1 2 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 1 2 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 1 2 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 1 2 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 1 2 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 1 2 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 1 2 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 1 2 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 1 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 1 2 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 1 2 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 1 2 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 1 2 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 1 2 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 1 2 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 1 2 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 1 2 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 1 2 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 1 2 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -1750,24 +1750,24 @@ VERSION 2.8.2 1 2 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 1 2 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 1 2 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 1 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 1 2 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 1 2 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 1 2 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 1 2 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 1 2 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 1 2 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 1 2 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 1 2 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 1 2 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 1 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 1 2 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 1 2 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 1 2 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 1 2 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 1 2 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 1 2 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 1 2 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 1 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 1 2 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 1 2 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 1 2 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 1 2 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 1 2 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 1 2 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 1 2 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 1 2 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 1 2 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 1 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 1 2 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 1 2 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 1 2 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 1 2 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 1 2 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 1 2 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 1 2 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 1 2 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 1 2 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 1 2 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -1780,24 +1780,24 @@ VERSION 2.8.2 1 2 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 1 2 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 1 2 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 1 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 1 2 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 1 2 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 1 2 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 1 2 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 1 2 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 1 2 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 1 2 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 1 2 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 1 2 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 1 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 1 2 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 1 2 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 1 2 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 1 2 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 1 2 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 1 2 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 1 2 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 1 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 1 2 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 1 2 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 1 2 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 1 2 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 1 2 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 1 2 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 1 2 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 1 2 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 1 2 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 1 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 1 2 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 1 2 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 1 2 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 1 2 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 1 2 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 1 2 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 1 2 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 1 2 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 1 2 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 1 2 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -1810,24 +1810,24 @@ VERSION 2.8.2 1 2 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 1 2 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 1 2 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 1 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 1 2 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 1 2 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 1 2 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 1 2 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 1 2 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 1 2 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 1 2 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 1 2 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 1 2 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 1 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 1 2 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 1 2 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 1 2 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 1 2 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 1 2 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 1 2 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 1 2 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 1 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 1 2 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 1 2 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 1 2 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 1 2 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 1 2 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 1 2 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 1 2 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 1 2 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 1 2 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 1 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 1 2 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 1 2 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 1 2 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 1 2 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 1 2 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 1 2 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 1 2 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 1 2 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 1 2 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 1 2 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -1840,24 +1840,24 @@ VERSION 2.8.2 1 2 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 1 2 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 1 2 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 1 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 1 2 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 1 2 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 1 2 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 1 2 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 1 2 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 1 2 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 1 2 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 1 2 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 1 2 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 1 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 1 2 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 1 2 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 1 2 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 1 2 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 1 2 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 1 2 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 1 2 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 1 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 1 2 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 1 2 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 1 2 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 1 2 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 1 2 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 1 2 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 1 2 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 1 2 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 1 2 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 1 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 1 2 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 1 2 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 1 2 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 1 2 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 1 2 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 1 2 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 1 2 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 1 2 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 1 2 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 1 2 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -1870,24 +1870,24 @@ VERSION 2.8.2 1 2 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 1 2 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 1 2 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 1 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 1 2 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 1 2 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 1 2 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 1 2 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 1 2 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 1 2 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 1 2 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 1 2 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 1 2 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 1 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 1 2 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 1 2 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 1 2 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 1 2 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 1 2 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 1 2 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 1 2 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 1 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 1 2 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 1 2 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 1 2 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 1 2 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 1 2 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 1 2 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 1 2 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 1 2 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 1 2 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 1 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 1 2 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 1 2 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 1 2 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 1 2 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 1 2 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 1 2 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 1 2 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 1 2 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 1 2 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 1 2 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -1900,24 +1900,24 @@ VERSION 2.8.2 1 2 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 1 2 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 1 2 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 1 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 1 2 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 1 2 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 1 2 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 1 2 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 1 2 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 1 2 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 1 2 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 1 2 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 1 2 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 1 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 1 2 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 1 2 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 1 2 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 1 2 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 1 2 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 1 2 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 1 2 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 1 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 1 2 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 1 2 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 1 2 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 1 2 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 1 2 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 1 2 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 1 2 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 1 2 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 1 2 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 1 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 1 2 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 1 2 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 1 2 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 1 2 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 1 2 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 1 2 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 1 2 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 1 2 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 1 2 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 1 2 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -1930,24 +1930,24 @@ VERSION 2.8.2 1 2 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 1 2 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 1 2 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 1 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 1 2 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 1 2 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 1 2 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 1 2 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 1 2 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 1 2 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 1 2 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 1 2 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 1 2 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 1 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 1 2 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 1 2 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 1 2 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 1 2 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 1 2 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 1 2 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 1 2 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 1 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 1 2 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 1 2 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 1 2 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 1 2 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 1 2 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 1 2 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 1 2 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 1 2 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 1 2 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 1 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 1 2 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 1 2 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 1 2 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 1 2 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 1 2 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 1 2 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 1 2 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 1 2 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 1 2 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 1 2 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -1960,24 +1960,24 @@ VERSION 2.8.2 1 2 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 1 2 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 1 2 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 1 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 1 2 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 1 2 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 1 2 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 1 2 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 1 2 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 1 2 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 1 2 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 1 2 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 1 2 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 1 2 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 1 2 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 1 2 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 1 2 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 1 2 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 1 2 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 1 2 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 1 2 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 1 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 1 2 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 1 2 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 1 2 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 1 2 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 1 2 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 1 2 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 1 2 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 1 2 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 1 2 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 1 2 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 1 2 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 1 2 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 1 2 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 1 2 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 1 2 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 1 2 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 1 2 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 1 2 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 1 2 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 1 2 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -1990,24 +1990,24 @@ VERSION 2.8.2 1 2 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 1 2 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 1 2 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 1 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 1 2 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 1 2 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 1 2 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 1 2 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 1 2 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 1 2 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 1 2 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 1 2 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 1 2 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 1 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 1 2 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 1 2 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 1 2 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 1 2 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 1 2 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 1 2 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 1 2 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 1 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 1 2 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 1 2 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 1 2 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 1 2 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 1 2 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 1 2 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 1 2 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 1 2 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 1 2 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 1 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 1 2 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 1 2 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 1 2 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 1 2 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 1 2 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 1 2 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 1 2 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 1 2 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 1 2 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 1 2 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -2020,24 +2020,24 @@ VERSION 2.8.2 1 2 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 1 2 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 1 2 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 1 2 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 1 2 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 1 2 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 1 2 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 1 2 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 1 2 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 1 2 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 1 2 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 1 2 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 1 2 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 1 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 1 2 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 1 2 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 1 2 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 1 2 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 1 2 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 1 2 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 1 2 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 1 2 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 1 2 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 1 2 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 1 2 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 1 2 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 1 2 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 1 2 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 1 2 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 1 2 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 1 2 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 1 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 1 2 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 1 2 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 1 2 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 1 2 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 1 2 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 1 2 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 1 2 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 1 2 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 1 2 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 1 2 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -2050,24 +2050,24 @@ VERSION 2.8.2 1 2 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 1 2 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 1 2 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 1 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 1 2 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 1 2 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 1 2 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 1 2 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 1 2 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 1 2 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 1 2 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 1 2 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 1 2 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 1 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 1 2 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 1 2 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 1 2 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 1 2 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 1 2 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 1 2 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 1 2 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 1 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 1 2 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 1 2 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 1 2 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 1 2 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 1 2 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 1 2 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 1 2 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 1 2 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 1 2 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 1 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 1 2 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 1 2 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 1 2 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 1 2 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 1 2 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 1 2 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 1 2 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 1 2 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 1 2 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 1 2 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -2080,24 +2080,24 @@ VERSION 2.8.2 1 2 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 1 2 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 1 2 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 1 2 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 1 2 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 1 2 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 1 2 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 1 2 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 1 2 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 1 2 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 1 2 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 1 2 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 1 2 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 1 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 1 2 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 1 2 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 1 2 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 1 2 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 1 2 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 1 2 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 1 2 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 1 2 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 1 2 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 1 2 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 1 2 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 1 2 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 1 2 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 1 2 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 1 2 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 1 2 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 1 2 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 1 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 1 2 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 1 2 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 1 2 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 1 2 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 1 2 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 1 2 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 1 2 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 1 2 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 1 2 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 1 2 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -2110,24 +2110,24 @@ VERSION 2.8.2 1 2 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 1 2 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 1 2 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 1 2 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 1 2 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 1 2 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 1 2 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 1 2 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 1 2 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 1 2 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 1 2 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 1 2 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 1 2 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 1 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 1 2 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 1 2 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 1 2 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 1 2 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 1 2 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 1 2 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 1 2 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 1 2 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 1 2 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 1 2 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 1 2 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 1 2 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 1 2 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 1 2 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 1 2 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 1 2 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 1 2 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 1 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 1 2 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 1 2 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 1 2 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 1 2 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 1 2 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 1 2 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 1 2 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 1 2 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 1 2 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 1 2 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -2140,24 +2140,24 @@ VERSION 2.8.2 1 2 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 1 2 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 1 2 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 1 2 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 1 2 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 1 2 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 1 2 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 1 2 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 1 2 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 1 2 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 1 2 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 1 2 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 1 2 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 1 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 1 2 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 1 2 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 1 2 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 1 2 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 1 2 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 1 2 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 1 2 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 1 2 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 1 2 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 1 2 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 1 2 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 1 2 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 1 2 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 1 2 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 1 2 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 1 2 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 1 2 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 1 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 1 2 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 1 2 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 1 2 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 1 2 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 1 2 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 1 2 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 1 2 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 1 2 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 1 2 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 1 2 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -2170,24 +2170,24 @@ VERSION 2.8.2 1 2 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 1 2 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 1 2 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 1 2 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 1 2 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 1 2 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 1 2 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 1 2 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 1 2 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 1 2 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 1 2 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 1 2 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 1 2 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 1 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 1 2 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 1 2 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 1 2 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 1 2 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 1 2 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 1 2 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 1 2 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 1 2 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 1 2 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 1 2 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 1 2 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 1 2 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 1 2 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 1 2 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 1 2 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 1 2 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 1 2 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 1 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 1 2 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 1 2 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 1 2 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 1 2 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 1 2 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 1 2 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 1 2 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 1 2 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 1 2 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 1 2 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -2200,24 +2200,24 @@ VERSION 2.8.2 1 2 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 1 2 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 1 2 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 1 2 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 1 2 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 1 2 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 1 2 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 1 2 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 1 2 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 1 2 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 1 2 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 1 2 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 1 2 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 1 2 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 1 2 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 1 2 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 1 2 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 1 2 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 1 2 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 1 2 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 1 2 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 1 2 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 1 2 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 1 2 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 1 2 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 1 2 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 1 2 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 1 2 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 1 2 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 1 2 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 1 2 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 1 2 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 1 2 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 1 2 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 1 2 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 1 2 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 1 2 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 1 2 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 1 2 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 1 2 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 1 2 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 1 2 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -2230,24 +2230,24 @@ VERSION 2.8.2 1 2 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 1 2 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 1 2 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 1 2 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 1 2 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 1 2 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 1 2 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 1 2 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 1 2 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 1 2 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 1 2 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 1 2 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 1 2 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 1 2 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 1 2 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 1 2 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 1 2 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 1 2 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 1 2 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 1 2 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 1 2 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 1 2 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 1 2 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 1 2 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 1 2 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 1 2 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 1 2 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 1 2 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 1 2 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 1 2 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 1 2 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 1 2 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 1 2 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 1 2 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 1 2 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 1 2 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 1 2 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 1 2 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 1 2 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 1 2 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 1 2 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 1 2 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -2260,24 +2260,24 @@ VERSION 2.8.2 1 2 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 1 2 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 1 2 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 1 2 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 1 2 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 1 2 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 1 2 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 1 2 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 1 2 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 1 2 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 1 2 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 1 2 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 1 2 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 1 2 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 1 2 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 1 2 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 1 2 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 1 2 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 1 2 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 1 2 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 1 2 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 1 2 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 1 2 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 1 2 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 1 2 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 1 2 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 1 2 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 1 2 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 1 2 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 1 2 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 1 2 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 1 2 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 1 2 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 1 2 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 1 2 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 1 2 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 1 2 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 1 2 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 1 2 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 1 2 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 1 2 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 1 2 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -2290,24 +2290,24 @@ VERSION 2.8.2 1 2 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 1 2 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 1 2 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 1 2 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 1 2 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 1 2 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 1 2 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 1 2 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 1 2 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 1 2 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 1 2 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 1 2 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 1 2 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 1 2 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 1 2 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 1 2 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 1 2 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 1 2 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 1 2 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 1 2 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 1 2 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 1 2 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 1 2 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 1 2 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 1 2 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 1 2 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 1 2 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 1 2 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 1 2 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 1 2 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 1 2 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 1 2 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 1 2 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 1 2 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 1 2 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 1 2 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 1 2 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 1 2 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 1 2 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 1 2 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 1 2 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 1 2 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -2320,24 +2320,24 @@ VERSION 2.8.2 1 2 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 1 2 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 1 2 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 1 2 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 1 2 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 1 2 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 1 2 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 1 2 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 1 2 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 1 2 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 1 2 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 1 2 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 1 2 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 1 2 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 1 2 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 1 2 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 1 2 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 1 2 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 1 2 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 1 2 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 1 2 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 1 2 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 1 2 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 1 2 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 1 2 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 1 2 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 1 2 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 1 2 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 1 2 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 1 2 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 1 2 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 1 2 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 1 2 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 1 2 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 1 2 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 1 2 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 1 2 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 1 2 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 1 2 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 1 2 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 1 2 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 1 2 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -2350,24 +2350,24 @@ VERSION 2.8.2 1 2 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 1 2 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 1 2 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 1 2 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 1 2 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 1 2 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 1 2 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 1 2 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 1 2 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 1 2 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 1 2 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 1 2 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 1 2 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 1 2 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 1 2 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 1 2 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 1 2 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 1 2 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 1 2 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 1 2 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 1 2 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 1 2 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 1 2 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 1 2 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 1 2 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 1 2 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 1 2 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 1 2 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 1 2 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 1 2 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 1 2 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 1 2 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 1 2 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 1 2 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 1 2 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 1 2 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 1 2 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 1 2 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 1 2 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 1 2 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 1 2 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 1 2 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -2380,24 +2380,24 @@ VERSION 2.8.2 1 2 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 1 2 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 1 2 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 1 2 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 1 2 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 1 2 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 1 2 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 1 2 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 1 2 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 1 2 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 1 2 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 1 2 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 1 2 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 1 2 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 1 2 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 1 2 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 1 2 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 1 2 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 1 2 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 1 2 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 1 2 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 1 2 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 1 2 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 1 2 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 1 2 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 1 2 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 1 2 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 1 2 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 1 2 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 1 2 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 1 2 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 1 2 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 1 2 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 1 2 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 1 2 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 1 2 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 1 2 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 1 2 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 1 2 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 1 2 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 1 2 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 1 2 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -2410,24 +2410,24 @@ VERSION 2.8.2 1 2 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 1 2 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 1 2 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 1 2 0.15405E-08 0.10000E+01 0.80645E+05 0.23034E-55 0.17173E-66 0.26666E-63 - 1 2 0.15405E-08 0.10000E+01 0.65036E+05 0.19430E-54 0.27196E-65 0.22434E-62 - 1 2 0.15405E-08 0.10000E+01 0.52449E+05 0.16462E-53 0.36241E-64 0.18968E-61 - 1 2 0.15405E-08 0.10000E+01 0.42297E+05 0.12301E-52 0.48467E-63 0.14126E-60 - 1 2 0.15405E-08 0.10000E+01 0.34111E+05 0.87550E-52 0.64744E-62 0.99955E-60 - 1 2 0.15405E-08 0.10000E+01 0.27509E+05 0.61409E-51 0.84030E-61 0.69457E-59 - 1 2 0.15405E-08 0.10000E+01 0.22184E+05 0.42200E-50 0.10717E-59 0.46759E-58 - 1 2 0.15405E-08 0.10000E+01 0.17891E+05 0.28605E-49 0.14663E-58 0.29803E-57 - 1 2 0.15405E-08 0.10000E+01 0.14428E+05 0.20426E-48 0.25481E-57 0.17758E-56 - 1 2 0.15405E-08 0.10000E+01 0.11635E+05 0.17712E-47 0.59325E-56 0.10250E-55 - 1 2 0.15405E-08 0.10000E+01 0.93834E+04 0.20270E-46 0.16066E-54 0.67252E-55 - 1 2 0.15405E-08 0.10000E+01 0.75673E+04 0.27766E-45 0.44817E-53 0.62938E-54 - 1 2 0.15405E-08 0.10000E+01 0.61026E+04 0.40167E-44 0.12401E-51 0.79547E-53 - 1 2 0.15405E-08 0.10000E+01 0.49215E+04 0.58214E-43 0.33969E-50 0.10967E-51 - 1 2 0.15405E-08 0.10000E+01 0.39689E+04 0.83704E-42 0.92491E-49 0.15099E-50 - 1 2 0.15405E-08 0.10000E+01 0.32008E+04 0.37632E-39 0.81234E-46 0.64803E-48 - 1 2 0.15405E-08 0.10000E+01 0.25813E+04 0.27936E-30 0.13816E-36 0.45986E-39 - 1 2 0.15405E-08 0.10000E+01 0.20817E+04 0.53916E-14 0.11889E-19 0.85065E-23 + 1 2 0.15405E-08 0.10000E+01 0.80645E+05 0.15591E-12 0.95411E-24 0.18075E-20 + 1 2 0.15405E-08 0.10000E+01 0.65036E+05 0.19966E-12 0.21629E-23 0.23122E-20 + 1 2 0.15405E-08 0.10000E+01 0.52449E+05 0.25190E-12 0.48992E-23 0.29118E-20 + 1 2 0.15405E-08 0.10000E+01 0.42297E+05 0.31422E-12 0.11569E-22 0.36198E-20 + 1 2 0.15405E-08 0.10000E+01 0.34111E+05 0.38878E-12 0.30974E-22 0.44467E-20 + 1 2 0.15405E-08 0.10000E+01 0.27509E+05 0.47969E-12 0.10156E-21 0.53992E-20 + 1 2 0.15405E-08 0.10000E+01 0.22184E+05 0.59709E-12 0.40124E-21 0.64860E-20 + 1 2 0.15405E-08 0.10000E+01 0.17891E+05 0.76764E-12 0.17573E-20 0.77368E-20 + 1 2 0.15405E-08 0.10000E+01 0.14428E+05 0.10600E-11 0.79887E-20 0.92520E-20 + 1 2 0.15405E-08 0.10000E+01 0.11635E+05 0.16456E-11 0.36617E-19 0.11313E-19 + 1 2 0.15405E-08 0.10000E+01 0.93834E+04 0.29429E-11 0.16765E-18 0.14624E-19 + 1 2 0.15405E-08 0.10000E+01 0.75673E+04 0.59610E-11 0.76362E-18 0.20862E-19 + 1 2 0.15405E-08 0.10000E+01 0.61026E+04 0.13110E-10 0.34401E-17 0.33930E-19 + 1 2 0.15405E-08 0.10000E+01 0.49215E+04 0.30070E-10 0.15208E-16 0.62811E-19 + 1 2 0.15405E-08 0.10000E+01 0.39689E+04 0.69962E-10 0.65624E-16 0.12785E-18 + 1 2 0.15405E-08 0.10000E+01 0.32008E+04 0.16228E-09 0.27612E-15 0.27419E-18 + 1 2 0.15405E-08 0.10000E+01 0.25813E+04 0.37158E-09 0.11333E-14 0.59962E-18 + 1 2 0.15405E-08 0.10000E+01 0.20817E+04 0.83546E-09 0.45331E-14 0.13113E-17 1 2 0.15405E-08 0.10000E+01 0.16788E+04 0.18395E-08 0.17655E-13 0.28371E-17 1 2 0.15405E-08 0.10000E+01 0.13538E+04 0.39601E-08 0.67110E-13 0.60382E-17 1 2 0.15405E-08 0.10000E+01 0.10918E+04 0.83320E-08 0.25030E-12 0.12605E-16 @@ -2440,24 +2440,24 @@ VERSION 2.8.2 1 2 0.15405E-08 0.10000E+01 0.24221E+03 0.83097E-06 0.76658E-09 0.12333E-14 1 2 0.15405E-08 0.10000E+01 0.19533E+03 0.13096E-05 0.14567E-08 0.19426E-14 1 2 0.15405E-08 0.10000E+01 0.15752E+03 0.13096E-05 0.14567E-08 0.19426E-14 - 1 2 0.26880E-08 0.10000E+01 0.80645E+05 0.46241E-55 0.34411E-66 0.10620E-62 - 1 2 0.26880E-08 0.10000E+01 0.65036E+05 0.38949E-54 0.54445E-65 0.89267E-62 - 1 2 0.26880E-08 0.10000E+01 0.52449E+05 0.32961E-53 0.72383E-64 0.75419E-61 - 1 2 0.26880E-08 0.10000E+01 0.42297E+05 0.24584E-52 0.96434E-63 0.56094E-60 - 1 2 0.26880E-08 0.10000E+01 0.34111E+05 0.17440E-51 0.12806E-61 0.39611E-59 - 1 2 0.26880E-08 0.10000E+01 0.27509E+05 0.12167E-50 0.16397E-60 0.27444E-58 - 1 2 0.26880E-08 0.10000E+01 0.22184E+05 0.82594E-50 0.20034E-59 0.18404E-57 - 1 2 0.26880E-08 0.10000E+01 0.17891E+05 0.54006E-49 0.24273E-58 0.11668E-56 - 1 2 0.26880E-08 0.10000E+01 0.14428E+05 0.34919E-48 0.33950E-57 0.68938E-56 - 1 2 0.26880E-08 0.10000E+01 0.11635E+05 0.25019E-47 0.65943E-56 0.39029E-55 - 1 2 0.26880E-08 0.10000E+01 0.93834E+04 0.23590E-46 0.16744E-54 0.24238E-54 - 1 2 0.26880E-08 0.10000E+01 0.75673E+04 0.29445E-45 0.46186E-53 0.20517E-53 - 1 2 0.26880E-08 0.10000E+01 0.61026E+04 0.41541E-44 0.12727E-51 0.23538E-52 - 1 2 0.26880E-08 0.10000E+01 0.49215E+04 0.59755E-43 0.34641E-50 0.30005E-51 - 1 2 0.26880E-08 0.10000E+01 0.39689E+04 0.85372E-42 0.93657E-49 0.38373E-50 - 1 2 0.26880E-08 0.10000E+01 0.32008E+04 0.38117E-39 0.81739E-46 0.15279E-47 - 1 2 0.26880E-08 0.10000E+01 0.25813E+04 0.28112E-30 0.13826E-36 0.10035E-38 - 1 2 0.26880E-08 0.10000E+01 0.20817E+04 0.53942E-14 0.11836E-19 0.17042E-22 + 1 2 0.26880E-08 0.10000E+01 0.80645E+05 0.31323E-12 0.18953E-23 0.72021E-20 + 1 2 0.26880E-08 0.10000E+01 0.65036E+05 0.40087E-12 0.42481E-23 0.92095E-20 + 1 2 0.26880E-08 0.10000E+01 0.52449E+05 0.50522E-12 0.93469E-23 0.11592E-19 + 1 2 0.26880E-08 0.10000E+01 0.42297E+05 0.62897E-12 0.20591E-22 0.14401E-19 + 1 2 0.26880E-08 0.10000E+01 0.34111E+05 0.77494E-12 0.48264E-22 0.17674E-19 + 1 2 0.26880E-08 0.10000E+01 0.27509E+05 0.94722E-12 0.13318E-21 0.21432E-19 + 1 2 0.26880E-08 0.10000E+01 0.22184E+05 0.11551E-11 0.45909E-21 0.25691E-19 + 1 2 0.26880E-08 0.10000E+01 0.17891E+05 0.14237E-11 0.18735E-20 0.30515E-19 + 1 2 0.26880E-08 0.10000E+01 0.14428E+05 0.18205E-11 0.82664E-20 0.36148E-19 + 1 2 0.26880E-08 0.10000E+01 0.11635E+05 0.25174E-11 0.37374E-19 0.43277E-19 + 1 2 0.26880E-08 0.10000E+01 0.93834E+04 0.39366E-11 0.16973E-18 0.53570E-19 + 1 2 0.26880E-08 0.10000E+01 0.75673E+04 0.70944E-11 0.76870E-18 0.70792E-19 + 1 2 0.26880E-08 0.10000E+01 0.61026E+04 0.14410E-10 0.34486E-17 0.10323E-18 + 1 2 0.26880E-08 0.10000E+01 0.49215E+04 0.31570E-10 0.15200E-16 0.16897E-18 + 1 2 0.26880E-08 0.10000E+01 0.39689E+04 0.71668E-10 0.65453E-16 0.30735E-18 + 1 2 0.26880E-08 0.10000E+01 0.32008E+04 0.16410E-09 0.27500E-15 0.60285E-18 + 1 2 0.26880E-08 0.10000E+01 0.25813E+04 0.37309E-09 0.11276E-14 0.12343E-17 + 1 2 0.26880E-08 0.10000E+01 0.20817E+04 0.83546E-09 0.45068E-14 0.25740E-17 1 2 0.26880E-08 0.10000E+01 0.16788E+04 0.18350E-08 0.17544E-13 0.53821E-17 1 2 0.26880E-08 0.10000E+01 0.13538E+04 0.39444E-08 0.66659E-13 0.11176E-16 1 2 0.26880E-08 0.10000E+01 0.10918E+04 0.82902E-08 0.24854E-12 0.22917E-16 @@ -2470,24 +2470,24 @@ VERSION 2.8.2 1 2 0.26880E-08 0.10000E+01 0.24221E+03 0.82467E-06 0.76053E-09 0.21485E-14 1 2 0.26880E-08 0.10000E+01 0.19533E+03 0.12996E-05 0.14452E-08 0.33805E-14 1 2 0.26880E-08 0.10000E+01 0.15752E+03 0.12996E-05 0.14452E-08 0.33805E-14 - 1 2 0.46905E-08 0.10000E+01 0.80645E+05 0.92701E-55 0.68895E-66 0.39853E-62 - 1 2 0.46905E-08 0.10000E+01 0.65036E+05 0.77999E-54 0.10892E-64 0.33502E-61 - 1 2 0.46905E-08 0.10000E+01 0.52449E+05 0.65953E-53 0.14456E-63 0.28308E-60 - 1 2 0.46905E-08 0.10000E+01 0.42297E+05 0.49122E-52 0.19208E-62 0.21060E-59 - 1 2 0.46905E-08 0.10000E+01 0.34111E+05 0.34767E-51 0.25410E-61 0.14880E-58 - 1 2 0.46905E-08 0.10000E+01 0.27509E+05 0.24170E-50 0.32302E-60 0.10322E-57 - 1 2 0.46905E-08 0.10000E+01 0.22184E+05 0.16302E-49 0.38678E-59 0.69404E-57 - 1 2 0.46905E-08 0.10000E+01 0.17891E+05 0.10479E-48 0.44027E-58 0.44230E-56 - 1 2 0.46905E-08 0.10000E+01 0.14428E+05 0.64467E-48 0.53049E-57 0.26327E-55 - 1 2 0.46905E-08 0.10000E+01 0.11635E+05 0.40885E-47 0.85151E-56 0.14923E-54 - 1 2 0.46905E-08 0.10000E+01 0.93834E+04 0.32109E-46 0.19475E-54 0.89508E-54 - 1 2 0.46905E-08 0.10000E+01 0.75673E+04 0.35149E-45 0.51870E-53 0.69169E-53 - 1 2 0.46905E-08 0.10000E+01 0.61026E+04 0.46983E-44 0.14006E-51 0.72513E-52 - 1 2 0.46905E-08 0.10000E+01 0.49215E+04 0.65869E-43 0.37341E-50 0.87043E-51 - 1 2 0.46905E-08 0.10000E+01 0.39689E+04 0.92133E-42 0.98936E-49 0.10571E-49 - 1 2 0.46905E-08 0.10000E+01 0.32008E+04 0.40310E-39 0.84807E-46 0.39681E-47 - 1 2 0.46905E-08 0.10000E+01 0.25813E+04 0.29175E-30 0.14111E-36 0.24216E-38 - 1 2 0.46905E-08 0.10000E+01 0.20817E+04 0.54991E-14 0.11883E-19 0.37230E-22 + 1 2 0.46905E-08 0.10000E+01 0.80645E+05 0.62831E-12 0.37737E-23 0.27026E-19 + 1 2 0.46905E-08 0.10000E+01 0.65036E+05 0.80376E-12 0.84098E-23 0.34561E-19 + 1 2 0.46905E-08 0.10000E+01 0.52449E+05 0.10123E-11 0.18251E-22 0.43508E-19 + 1 2 0.46905E-08 0.10000E+01 0.42297E+05 0.12589E-11 0.38845E-22 0.54064E-19 + 1 2 0.46905E-08 0.10000E+01 0.34111E+05 0.15477E-11 0.84215E-22 0.66378E-19 + 1 2 0.46905E-08 0.10000E+01 0.27509E+05 0.18834E-11 0.20305E-21 0.80530E-19 + 1 2 0.46905E-08 0.10000E+01 0.22184E+05 0.22744E-11 0.60239E-21 0.96557E-19 + 1 2 0.46905E-08 0.10000E+01 0.17891E+05 0.27453E-11 0.22126E-20 0.11460E-18 + 1 2 0.46905E-08 0.10000E+01 0.14428E+05 0.33656E-11 0.92184E-20 0.13529E-18 + 1 2 0.46905E-08 0.10000E+01 0.11635E+05 0.43161E-11 0.40344E-19 0.16039E-18 + 1 2 0.46905E-08 0.10000E+01 0.93834E+04 0.60414E-11 0.17924E-18 0.19420E-18 + 1 2 0.46905E-08 0.10000E+01 0.75673E+04 0.96021E-11 0.79848E-18 0.24600E-18 + 1 2 0.46905E-08 0.10000E+01 0.61026E+04 0.17493E-10 0.35379E-17 0.33515E-18 + 1 2 0.46905E-08 0.10000E+01 0.49215E+04 0.35516E-10 0.15452E-16 0.50150E-18 + 1 2 0.46905E-08 0.10000E+01 0.39689E+04 0.76927E-10 0.66100E-16 0.82694E-18 + 1 2 0.46905E-08 0.10000E+01 0.32008E+04 0.17132E-09 0.27641E-15 0.14793E-17 + 1 2 0.46905E-08 0.10000E+01 0.25813E+04 0.38308E-09 0.11296E-14 0.28005E-17 + 1 2 0.46905E-08 0.10000E+01 0.20817E+04 0.84902E-09 0.45042E-14 0.54824E-17 1 2 0.46905E-08 0.10000E+01 0.16788E+04 0.18523E-08 0.17505E-13 0.10907E-16 1 2 0.46905E-08 0.10000E+01 0.13538E+04 0.39637E-08 0.66430E-13 0.21794E-16 1 2 0.46905E-08 0.10000E+01 0.10918E+04 0.83049E-08 0.24746E-12 0.43395E-16 @@ -2500,24 +2500,24 @@ VERSION 2.8.2 1 2 0.46905E-08 0.10000E+01 0.24221E+03 0.82013E-06 0.75578E-09 0.37692E-14 1 2 0.46905E-08 0.10000E+01 0.19533E+03 0.12922E-05 0.14362E-08 0.59190E-14 1 2 0.46905E-08 0.10000E+01 0.15752E+03 0.12922E-05 0.14362E-08 0.59190E-14 - 1 2 0.81846E-08 0.10000E+01 0.80645E+05 0.18156E-54 0.13485E-65 0.13224E-61 - 1 2 0.81846E-08 0.10000E+01 0.65036E+05 0.15269E-53 0.21314E-64 0.11126E-60 - 1 2 0.81846E-08 0.10000E+01 0.52449E+05 0.12906E-52 0.28267E-63 0.94081E-60 - 1 2 0.81846E-08 0.10000E+01 0.42297E+05 0.96070E-52 0.37518E-62 0.70089E-59 - 1 2 0.81846E-08 0.10000E+01 0.34111E+05 0.67934E-51 0.49572E-61 0.49648E-58 - 1 2 0.81846E-08 0.10000E+01 0.27509E+05 0.47173E-50 0.62901E-60 0.34592E-57 - 1 2 0.81846E-08 0.10000E+01 0.22184E+05 0.31760E-49 0.74878E-59 0.23440E-56 - 1 2 0.81846E-08 0.10000E+01 0.17891E+05 0.20313E-48 0.83243E-58 0.15141E-55 - 1 2 0.81846E-08 0.10000E+01 0.14428E+05 0.12264E-47 0.92767E-57 0.91985E-55 - 1 2 0.81846E-08 0.10000E+01 0.11635E+05 0.73198E-47 0.12788E-55 0.53085E-54 - 1 2 0.81846E-08 0.10000E+01 0.93834E+04 0.50404E-46 0.25692E-54 0.31137E-53 - 1 2 0.81846E-08 0.10000E+01 0.75673E+04 0.47870E-45 0.64405E-53 0.21691E-52 - 1 2 0.81846E-08 0.10000E+01 0.61026E+04 0.59016E-44 0.16778E-51 0.20221E-51 - 1 2 0.81846E-08 0.10000E+01 0.49215E+04 0.79182E-43 0.43225E-50 0.22881E-50 - 1 2 0.81846E-08 0.10000E+01 0.39689E+04 0.10689E-41 0.11068E-48 0.27081E-49 - 1 2 0.81846E-08 0.10000E+01 0.32008E+04 0.45183E-39 0.91877E-46 0.99141E-47 - 1 2 0.81846E-08 0.10000E+01 0.25813E+04 0.31617E-30 0.14811E-36 0.58086E-38 - 1 2 0.81846E-08 0.10000E+01 0.20817E+04 0.57578E-14 0.12061E-19 0.83137E-22 + 1 2 0.81846E-08 0.10000E+01 0.80645E+05 0.12309E-11 0.73721E-23 0.89644E-19 + 1 2 0.81846E-08 0.10000E+01 0.65036E+05 0.15743E-11 0.16399E-22 0.11468E-18 + 1 2 0.81846E-08 0.10000E+01 0.52449E+05 0.19823E-11 0.35420E-22 0.14447E-18 + 1 2 0.81846E-08 0.10000E+01 0.42297E+05 0.24641E-11 0.74341E-22 0.17969E-18 + 1 2 0.81846E-08 0.10000E+01 0.34111E+05 0.30272E-11 0.15516E-21 0.22093E-18 + 1 2 0.81846E-08 0.10000E+01 0.27509E+05 0.36775E-11 0.34407E-21 0.26853E-18 + 1 2 0.81846E-08 0.10000E+01 0.22184E+05 0.44232E-11 0.89985E-21 0.32263E-18 + 1 2 0.81846E-08 0.10000E+01 0.17891E+05 0.52892E-11 0.29344E-20 0.38352E-18 + 1 2 0.81846E-08 0.10000E+01 0.14428E+05 0.63512E-11 0.11278E-19 0.45251E-18 + 1 2 0.81846E-08 0.10000E+01 0.11635E+05 0.78115E-11 0.46858E-19 0.53376E-18 + 1 2 0.81846E-08 0.10000E+01 0.93834E+04 0.10166E-10 0.20045E-18 0.63747E-18 + 1 2 0.81846E-08 0.10000E+01 0.75673E+04 0.14575E-10 0.86675E-18 0.78585E-18 + 1 2 0.81846E-08 0.10000E+01 0.61026E+04 0.23709E-10 0.37509E-17 0.10240E-17 + 1 2 0.81846E-08 0.10000E+01 0.49215E+04 0.43656E-10 0.16090E-16 0.14415E-17 + 1 2 0.81846E-08 0.10000E+01 0.39689E+04 0.88108E-10 0.67911E-16 0.22138E-17 + 1 2 0.81846E-08 0.10000E+01 0.32008E+04 0.18726E-09 0.28120E-15 0.36850E-17 + 1 2 0.81846E-08 0.10000E+01 0.25813E+04 0.40630E-09 0.11410E-14 0.65278E-17 + 1 2 0.81846E-08 0.10000E+01 0.20817E+04 0.88281E-09 0.45270E-14 0.12057E-16 1 2 0.81846E-08 0.10000E+01 0.16788E+04 0.19005E-08 0.17530E-13 0.22831E-16 1 2 0.81846E-08 0.10000E+01 0.13538E+04 0.40296E-08 0.66358E-13 0.43784E-16 1 2 0.81846E-08 0.10000E+01 0.10918E+04 0.83883E-08 0.24674E-12 0.84310E-16 @@ -2530,24 +2530,24 @@ VERSION 2.8.2 1 2 0.81846E-08 0.10000E+01 0.24221E+03 0.81588E-06 0.75077E-09 0.66425E-14 1 2 0.81846E-08 0.10000E+01 0.19533E+03 0.12850E-05 0.14266E-08 0.10402E-13 1 2 0.81846E-08 0.10000E+01 0.15752E+03 0.12850E-05 0.14266E-08 0.10402E-13 - 1 2 0.14282E-07 0.10000E+01 0.80645E+05 0.34323E-54 0.25497E-65 0.39604E-61 - 1 2 0.14282E-07 0.10000E+01 0.65036E+05 0.28870E-53 0.40305E-64 0.33357E-60 - 1 2 0.14282E-07 0.10000E+01 0.52449E+05 0.24406E-52 0.53475E-63 0.28234E-59 - 1 2 0.14282E-07 0.10000E+01 0.42297E+05 0.18173E-51 0.71033E-62 0.21072E-58 - 1 2 0.14282E-07 0.10000E+01 0.34111E+05 0.12859E-50 0.94005E-61 0.14975E-57 - 1 2 0.14282E-07 0.10000E+01 0.27509E+05 0.89416E-50 0.11967E-59 0.10492E-56 - 1 2 0.14282E-07 0.10000E+01 0.22184E+05 0.60360E-49 0.14318E-58 0.71773E-56 - 1 2 0.14282E-07 0.10000E+01 0.17891E+05 0.38757E-48 0.15946E-57 0.47122E-55 - 1 2 0.14282E-07 0.10000E+01 0.14428E+05 0.23430E-47 0.17297E-56 0.29344E-54 - 1 2 0.14282E-07 0.10000E+01 0.11635E+05 0.13713E-46 0.21491E-55 0.17390E-53 - 1 2 0.14282E-07 0.10000E+01 0.93834E+04 0.87125E-46 0.37436E-54 0.10158E-52 - 1 2 0.14282E-07 0.10000E+01 0.75673E+04 0.72281E-45 0.86112E-53 0.64688E-52 - 1 2 0.14282E-07 0.10000E+01 0.61026E+04 0.80368E-44 0.21461E-51 0.52136E-51 - 1 2 0.14282E-07 0.10000E+01 0.49215E+04 0.10193E-42 0.53289E-50 0.54071E-50 - 1 2 0.14282E-07 0.10000E+01 0.39689E+04 0.13217E-41 0.13123E-48 0.62589E-49 - 1 2 0.14282E-07 0.10000E+01 0.32008E+04 0.53685E-39 0.10456E-45 0.22824E-46 - 1 2 0.14282E-07 0.10000E+01 0.25813E+04 0.35981E-30 0.16113E-36 0.13193E-37 - 1 2 0.14282E-07 0.10000E+01 0.20817E+04 0.62382E-14 0.12439E-19 0.18178E-21 + 1 2 0.14282E-07 0.10000E+01 0.80645E+05 0.23269E-11 0.13963E-22 0.26833E-18 + 1 2 0.14282E-07 0.10000E+01 0.65036E+05 0.29764E-11 0.31107E-22 0.34346E-18 + 1 2 0.14282E-07 0.10000E+01 0.52449E+05 0.37484E-11 0.67279E-22 0.43301E-18 + 1 2 0.14282E-07 0.10000E+01 0.42297E+05 0.46605E-11 0.14096E-21 0.53926E-18 + 1 2 0.14282E-07 0.10000E+01 0.34111E+05 0.57272E-11 0.29007E-21 0.66424E-18 + 1 2 0.14282E-07 0.10000E+01 0.27509E+05 0.69581E-11 0.61445E-21 0.80933E-18 + 1 2 0.14282E-07 0.10000E+01 0.22184E+05 0.83623E-11 0.14654E-20 0.97524E-18 + 1 2 0.14282E-07 0.10000E+01 0.17891E+05 0.99659E-11 0.42665E-20 0.11625E-17 + 1 2 0.14282E-07 0.10000E+01 0.14428E+05 0.11854E-10 0.14957E-19 0.13735E-17 + 1 2 0.14282E-07 0.10000E+01 0.11635E+05 0.14265E-10 0.58303E-19 0.16162E-17 + 1 2 0.14282E-07 0.10000E+01 0.93834E+04 0.17778E-10 0.23781E-18 0.19124E-17 + 1 2 0.14282E-07 0.10000E+01 0.75673E+04 0.23727E-10 0.98863E-18 0.23106E-17 + 1 2 0.14282E-07 0.10000E+01 0.61026E+04 0.35099E-10 0.41394E-17 0.29108E-17 + 1 2 0.14282E-07 0.10000E+01 0.49215E+04 0.58507E-10 0.17287E-16 0.39083E-17 + 1 2 0.14282E-07 0.10000E+01 0.39689E+04 0.10848E-09 0.71446E-16 0.56766E-17 + 1 2 0.14282E-07 0.10000E+01 0.32008E+04 0.21646E-09 0.29113E-15 0.89226E-17 + 1 2 0.14282E-07 0.10000E+01 0.25813E+04 0.44933E-09 0.11673E-14 0.14981E-16 + 1 2 0.14282E-07 0.10000E+01 0.20817E+04 0.94690E-09 0.45913E-14 0.26375E-16 1 2 0.14282E-07 0.10000E+01 0.16788E+04 0.19953E-08 0.17669E-13 0.47880E-16 1 2 0.14282E-07 0.10000E+01 0.13538E+04 0.41667E-08 0.66587E-13 0.88504E-16 1 2 0.14282E-07 0.10000E+01 0.10918E+04 0.85795E-08 0.24680E-12 0.16512E-15 @@ -2560,24 +2560,24 @@ VERSION 2.8.2 1 2 0.14282E-07 0.10000E+01 0.24221E+03 0.81294E-06 0.74618E-09 0.11718E-13 1 2 0.14282E-07 0.10000E+01 0.19533E+03 0.12795E-05 0.14177E-08 0.18289E-13 1 2 0.14282E-07 0.10000E+01 0.15752E+03 0.12795E-05 0.14177E-08 0.18289E-13 - 1 2 0.24920E-07 0.10000E+01 0.80645E+05 0.62772E-54 0.46665E-65 0.11213E-60 - 1 2 0.24920E-07 0.10000E+01 0.65036E+05 0.52830E-53 0.73801E-64 0.94548E-60 - 1 2 0.24920E-07 0.10000E+01 0.52449E+05 0.44685E-52 0.98035E-63 0.80107E-59 - 1 2 0.24920E-07 0.10000E+01 0.42297E+05 0.33306E-51 0.13051E-61 0.59895E-58 - 1 2 0.24920E-07 0.10000E+01 0.34111E+05 0.23611E-50 0.17337E-60 0.42705E-57 - 1 2 0.24920E-07 0.10000E+01 0.27509E+05 0.16472E-49 0.22222E-59 0.30084E-56 - 1 2 0.24920E-07 0.10000E+01 0.22184E+05 0.11185E-48 0.26912E-58 0.20770E-55 - 1 2 0.24920E-07 0.10000E+01 0.17891E+05 0.72526E-48 0.30476E-57 0.13849E-54 - 1 2 0.24920E-07 0.10000E+01 0.14428E+05 0.44426E-47 0.33190E-56 0.88303E-54 - 1 2 0.24920E-07 0.10000E+01 0.11635E+05 0.26121E-46 0.38771E-55 0.53815E-53 - 1 2 0.24920E-07 0.10000E+01 0.93834E+04 0.15910E-45 0.58514E-54 0.31786E-52 - 1 2 0.24920E-07 0.10000E+01 0.75673E+04 0.11716E-44 0.11986E-52 0.19142E-51 - 1 2 0.24920E-07 0.10000E+01 0.61026E+04 0.11502E-43 0.28334E-51 0.13347E-50 - 1 2 0.24920E-07 0.10000E+01 0.49215E+04 0.13611E-42 0.68218E-50 0.12171E-49 - 1 2 0.24920E-07 0.10000E+01 0.39689E+04 0.16983E-41 0.16261E-48 0.13524E-48 - 1 2 0.24920E-07 0.10000E+01 0.32008E+04 0.66631E-39 0.12451E-45 0.49479E-46 - 1 2 0.24920E-07 0.10000E+01 0.25813E+04 0.42814E-30 0.18234E-36 0.28697E-37 - 1 2 0.24920E-07 0.10000E+01 0.20817E+04 0.70203E-14 0.13114E-19 0.39010E-21 + 1 2 0.24920E-07 0.10000E+01 0.80645E+05 0.42545E-11 0.25671E-22 0.75931E-18 + 1 2 0.24920E-07 0.10000E+01 0.65036E+05 0.54437E-11 0.57403E-22 0.97244E-18 + 1 2 0.24920E-07 0.10000E+01 0.52449E+05 0.68588E-11 0.12482E-21 0.12270E-17 + 1 2 0.24920E-07 0.10000E+01 0.42297E+05 0.85338E-11 0.26294E-21 0.15300E-17 + 1 2 0.24920E-07 0.10000E+01 0.34111E+05 0.10498E-10 0.54067E-21 0.18881E-17 + 1 2 0.24920E-07 0.10000E+01 0.27509E+05 0.12769E-10 0.11198E-20 0.23064E-17 + 1 2 0.24920E-07 0.10000E+01 0.22184E+05 0.15363E-10 0.25035E-20 0.27880E-17 + 1 2 0.24920E-07 0.10000E+01 0.17891E+05 0.18306E-10 0.65871E-20 0.33344E-17 + 1 2 0.24920E-07 0.10000E+01 0.14428E+05 0.21695E-10 0.20965E-19 0.39490E-17 + 1 2 0.24920E-07 0.10000E+01 0.11635E+05 0.25812E-10 0.76244E-19 0.46454E-17 + 1 2 0.24920E-07 0.10000E+01 0.93834E+04 0.31354E-10 0.29581E-18 0.54644E-17 + 1 2 0.24920E-07 0.10000E+01 0.75673E+04 0.39911E-10 0.11797E-17 0.65050E-17 + 1 2 0.24920E-07 0.10000E+01 0.61026E+04 0.54956E-10 0.47605E-17 0.79774E-17 + 1 2 0.24920E-07 0.10000E+01 0.49215E+04 0.83953E-10 0.19248E-16 0.10296E-16 + 1 2 0.24920E-07 0.10000E+01 0.39689E+04 0.14283E-09 0.77417E-16 0.14247E-16 + 1 2 0.24920E-07 0.10000E+01 0.32008E+04 0.26517E-09 0.30860E-15 0.21281E-16 + 1 2 0.24920E-07 0.10000E+01 0.25813E+04 0.52107E-09 0.12163E-14 0.34062E-16 + 1 2 0.24920E-07 0.10000E+01 0.20817E+04 0.10547E-08 0.47230E-14 0.57472E-16 1 2 0.24920E-07 0.10000E+01 0.16788E+04 0.21580E-08 0.18006E-13 0.10050E-15 1 2 0.24920E-07 0.10000E+01 0.13538E+04 0.44101E-08 0.67393E-13 0.17968E-15 1 2 0.24920E-07 0.10000E+01 0.10918E+04 0.89371E-08 0.24856E-12 0.32547E-15 @@ -2590,24 +2590,24 @@ VERSION 2.8.2 1 2 0.24920E-07 0.10000E+01 0.24221E+03 0.81381E-06 0.74406E-09 0.20684E-13 1 2 0.24920E-07 0.10000E+01 0.19533E+03 0.12796E-05 0.14135E-08 0.32155E-13 1 2 0.24920E-07 0.10000E+01 0.15752E+03 0.12796E-05 0.14135E-08 0.32155E-13 - 1 2 0.43485E-07 0.10000E+01 0.80645E+05 0.11207E-53 0.83401E-65 0.31396E-60 - 1 2 0.43485E-07 0.10000E+01 0.65036E+05 0.94399E-53 0.13199E-63 0.26501E-59 - 1 2 0.43485E-07 0.10000E+01 0.52449E+05 0.79906E-52 0.17563E-62 0.22473E-58 - 1 2 0.43485E-07 0.10000E+01 0.42297E+05 0.59642E-51 0.23452E-61 0.16830E-57 - 1 2 0.43485E-07 0.10000E+01 0.34111E+05 0.42390E-50 0.31309E-60 0.12035E-56 - 1 2 0.43485E-07 0.10000E+01 0.27509E+05 0.29703E-49 0.40489E-59 0.85191E-56 - 1 2 0.43485E-07 0.10000E+01 0.22184E+05 0.20322E-48 0.49807E-58 0.59289E-55 - 1 2 0.43485E-07 0.10000E+01 0.17891E+05 0.13348E-47 0.57742E-57 0.40058E-54 - 1 2 0.43485E-07 0.10000E+01 0.14428E+05 0.83323E-47 0.64146E-56 0.26063E-53 - 1 2 0.43485E-07 0.10000E+01 0.11635E+05 0.49841E-46 0.72832E-55 0.16295E-52 - 1 2 0.43485E-07 0.10000E+01 0.93834E+04 0.29888E-45 0.96872E-54 0.98110E-52 - 1 2 0.43485E-07 0.10000E+01 0.75673E+04 0.20018E-44 0.17119E-52 0.57824E-51 - 1 2 0.43485E-07 0.10000E+01 0.61026E+04 0.17073E-43 0.37604E-51 0.36080E-50 - 1 2 0.43485E-07 0.10000E+01 0.49215E+04 0.18422E-42 0.88187E-50 0.28108E-49 - 1 2 0.43485E-07 0.10000E+01 0.39689E+04 0.22083E-41 0.20590E-48 0.28881E-48 - 1 2 0.43485E-07 0.10000E+01 0.32008E+04 0.84474E-39 0.15292E-45 0.10541E-45 - 1 2 0.43485E-07 0.10000E+01 0.25813E+04 0.52495E-30 0.21332E-36 0.61919E-37 - 1 2 0.43485E-07 0.10000E+01 0.20817E+04 0.81642E-14 0.14124E-19 0.84476E-21 + 1 2 0.43485E-07 0.10000E+01 0.80645E+05 0.75929E-11 0.46162E-22 0.21251E-17 + 1 2 0.43485E-07 0.10000E+01 0.65036E+05 0.97192E-11 0.10375E-21 0.27229E-17 + 1 2 0.43485E-07 0.10000E+01 0.52449E+05 0.12253E-10 0.22728E-21 0.34382E-17 + 1 2 0.43485E-07 0.10000E+01 0.42297E+05 0.15261E-10 0.48325E-21 0.42922E-17 + 1 2 0.43485E-07 0.10000E+01 0.34111E+05 0.18800E-10 0.10003E-20 0.53057E-17 + 1 2 0.43485E-07 0.10000E+01 0.27509E+05 0.22911E-10 0.20549E-20 0.64965E-17 + 1 2 0.43485E-07 0.10000E+01 0.22184E+05 0.27623E-10 0.43965E-20 0.78767E-17 + 1 2 0.43485E-07 0.10000E+01 0.17891E+05 0.32968E-10 0.10593E-19 0.94526E-17 + 1 2 0.43485E-07 0.10000E+01 0.14428E+05 0.39051E-10 0.30491E-19 0.11229E-16 + 1 2 0.43485E-07 0.10000E+01 0.11635E+05 0.46197E-10 0.10273E-18 0.13224E-16 + 1 2 0.43485E-07 0.10000E+01 0.93834E+04 0.55240E-10 0.37876E-18 0.15509E-16 + 1 2 0.43485E-07 0.10000E+01 0.75673E+04 0.68097E-10 0.14524E-17 0.18276E-16 + 1 2 0.43485E-07 0.10000E+01 0.61026E+04 0.88910E-10 0.56557E-17 0.21957E-16 + 1 2 0.43485E-07 0.10000E+01 0.49215E+04 0.12636E-09 0.22110E-16 0.27431E-16 + 1 2 0.43485E-07 0.10000E+01 0.39689E+04 0.19843E-09 0.86227E-16 0.36359E-16 + 1 2 0.43485E-07 0.10000E+01 0.32008E+04 0.34194E-09 0.33460E-15 0.51776E-16 + 1 2 0.43485E-07 0.10000E+01 0.25813E+04 0.63176E-09 0.12897E-14 0.79103E-16 + 1 2 0.43485E-07 0.10000E+01 0.20817E+04 0.12188E-08 0.49211E-14 0.12799E-15 1 2 0.43485E-07 0.10000E+01 0.16788E+04 0.24037E-08 0.18514E-13 0.21565E-15 1 2 0.43485E-07 0.10000E+01 0.13538E+04 0.47763E-08 0.68614E-13 0.37296E-15 1 2 0.43485E-07 0.10000E+01 0.10918E+04 0.94745E-08 0.25124E-12 0.65539E-15 @@ -2620,24 +2620,24 @@ VERSION 2.8.2 1 2 0.43485E-07 0.10000E+01 0.24221E+03 0.81526E-06 0.74101E-09 0.36658E-13 1 2 0.43485E-07 0.10000E+01 0.19533E+03 0.12799E-05 0.14075E-08 0.56691E-13 1 2 0.43485E-07 0.10000E+01 0.15752E+03 0.12799E-05 0.14075E-08 0.56691E-13 - 1 2 0.75878E-07 0.10000E+01 0.80645E+05 0.19714E-53 0.14688E-64 0.89266E-60 - 1 2 0.75878E-07 0.10000E+01 0.65036E+05 0.16621E-52 0.23263E-63 0.75410E-59 - 1 2 0.75878E-07 0.10000E+01 0.52449E+05 0.14081E-51 0.31014E-62 0.63996E-58 - 1 2 0.75878E-07 0.10000E+01 0.42297E+05 0.10527E-50 0.41550E-61 0.47991E-57 - 1 2 0.75878E-07 0.10000E+01 0.34111E+05 0.75030E-50 0.55770E-60 0.34399E-56 - 1 2 0.75878E-07 0.10000E+01 0.27509E+05 0.52824E-49 0.72798E-59 0.24445E-55 - 1 2 0.75878E-07 0.10000E+01 0.22184E+05 0.36432E-48 0.91010E-58 0.17121E-54 - 1 2 0.75878E-07 0.10000E+01 0.17891E+05 0.24255E-47 0.10814E-56 0.11689E-53 - 1 2 0.75878E-07 0.10000E+01 0.14428E+05 0.15449E-46 0.12329E-55 0.77272E-53 - 1 2 0.75878E-07 0.10000E+01 0.11635E+05 0.94470E-46 0.13935E-54 0.49339E-52 - 1 2 0.75878E-07 0.10000E+01 0.93834E+04 0.56769E-45 0.16914E-53 0.30338E-51 - 1 2 0.75878E-07 0.10000E+01 0.75673E+04 0.35691E-44 0.25391E-52 0.17917E-50 - 1 2 0.75878E-07 0.10000E+01 0.61026E+04 0.26489E-43 0.50001E-51 0.10509E-49 - 1 2 0.75878E-07 0.10000E+01 0.49215E+04 0.25284E-42 0.11357E-49 0.70631E-49 - 1 2 0.75878E-07 0.10000E+01 0.39689E+04 0.28750E-41 0.26272E-48 0.64405E-48 - 1 2 0.75878E-07 0.10000E+01 0.32008E+04 0.10796E-38 0.19177E-45 0.23008E-45 - 1 2 0.75878E-07 0.10000E+01 0.25813E+04 0.65683E-30 0.25713E-36 0.13729E-36 - 1 2 0.75878E-07 0.10000E+01 0.20817E+04 0.97914E-14 0.15586E-19 0.19030E-20 + 1 2 0.75878E-07 0.10000E+01 0.80645E+05 0.13350E-10 0.81846E-22 0.60398E-17 + 1 2 0.75878E-07 0.10000E+01 0.65036E+05 0.17097E-10 0.18495E-21 0.77418E-17 + 1 2 0.75878E-07 0.10000E+01 0.52449E+05 0.21570E-10 0.40851E-21 0.97817E-17 + 1 2 0.75878E-07 0.10000E+01 0.42297E+05 0.26894E-10 0.87796E-21 0.12223E-16 + 1 2 0.75878E-07 0.10000E+01 0.34111E+05 0.33183E-10 0.18363E-20 0.15130E-16 + 1 2 0.75878E-07 0.10000E+01 0.27509E+05 0.40529E-10 0.37755E-20 0.18562E-16 + 1 2 0.75878E-07 0.10000E+01 0.22184E+05 0.48992E-10 0.78641E-20 0.22565E-16 + 1 2 0.75878E-07 0.10000E+01 0.17891E+05 0.58622E-10 0.17645E-19 0.27163E-16 + 1 2 0.75878E-07 0.10000E+01 0.14428E+05 0.69527E-10 0.45933E-19 0.32367E-16 + 1 2 0.75878E-07 0.10000E+01 0.11635E+05 0.82060E-10 0.14193E-18 0.38197E-16 + 1 2 0.75878E-07 0.10000E+01 0.93834E+04 0.97188E-10 0.49504E-18 0.44766E-16 + 1 2 0.75878E-07 0.10000E+01 0.75673E+04 0.11721E-09 0.18298E-17 0.52439E-16 + 1 2 0.75878E-07 0.10000E+01 0.61026E+04 0.14714E-09 0.69041E-17 0.62114E-16 + 1 2 0.75878E-07 0.10000E+01 0.49215E+04 0.19731E-09 0.26153E-16 0.75691E-16 + 1 2 0.75878E-07 0.10000E+01 0.39689E+04 0.28863E-09 0.98819E-16 0.96809E-16 + 1 2 0.75878E-07 0.10000E+01 0.32008E+04 0.46259E-09 0.37206E-15 0.13206E-15 + 1 2 0.75878E-07 0.10000E+01 0.25813E+04 0.80105E-09 0.13960E-14 0.19295E-15 + 1 2 0.75878E-07 0.10000E+01 0.20817E+04 0.14647E-08 0.52081E-14 0.29935E-15 1 2 0.75878E-07 0.10000E+01 0.16788E+04 0.27671E-08 0.19247E-13 0.48549E-15 1 2 0.75878E-07 0.10000E+01 0.13538E+04 0.53137E-08 0.70359E-13 0.81066E-15 1 2 0.75878E-07 0.10000E+01 0.10918E+04 0.10258E-07 0.25498E-12 0.13784E-14 @@ -2650,24 +2650,24 @@ VERSION 2.8.2 1 2 0.75878E-07 0.10000E+01 0.24221E+03 0.81670E-06 0.73587E-09 0.65719E-13 1 2 0.75878E-07 0.10000E+01 0.19533E+03 0.12793E-05 0.13973E-08 0.10087E-12 1 2 0.75878E-07 0.10000E+01 0.15752E+03 0.12793E-05 0.13973E-08 0.10087E-12 - 1 2 0.13240E-06 0.10000E+01 0.80645E+05 0.34430E-53 0.25682E-64 0.25810E-59 - 1 2 0.13240E-06 0.10000E+01 0.65036E+05 0.29056E-52 0.40705E-63 0.21818E-58 - 1 2 0.13240E-06 0.10000E+01 0.52449E+05 0.24636E-51 0.54366E-62 0.18526E-57 - 1 2 0.13240E-06 0.10000E+01 0.42297E+05 0.18444E-50 0.73063E-61 0.13906E-56 - 1 2 0.13240E-06 0.10000E+01 0.34111E+05 0.13181E-49 0.98561E-60 0.99857E-56 - 1 2 0.13240E-06 0.10000E+01 0.27509E+05 0.93215E-49 0.12976E-58 0.71167E-55 - 1 2 0.13240E-06 0.10000E+01 0.22184E+05 0.64768E-48 0.16459E-57 0.50083E-54 - 1 2 0.13240E-06 0.10000E+01 0.17891E+05 0.43650E-47 0.19994E-56 0.34457E-53 - 1 2 0.13240E-06 0.10000E+01 0.14428E+05 0.28316E-46 0.23379E-55 0.23043E-52 - 1 2 0.13240E-06 0.10000E+01 0.11635E+05 0.17696E-45 0.26681E-54 0.14949E-51 - 1 2 0.13240E-06 0.10000E+01 0.93834E+04 0.10759E-44 0.30781E-53 0.93635E-51 - 1 2 0.13240E-06 0.10000E+01 0.75673E+04 0.65507E-44 0.39990E-52 0.56019E-50 - 1 2 0.13240E-06 0.10000E+01 0.61026E+04 0.43465E-43 0.68060E-51 0.32155E-49 - 1 2 0.13240E-06 0.10000E+01 0.49215E+04 0.35962E-42 0.14667E-49 0.19501E-48 - 1 2 0.13240E-06 0.10000E+01 0.39689E+04 0.37850E-41 0.33814E-48 0.15526E-47 - 1 2 0.13240E-06 0.10000E+01 0.32008E+04 0.13951E-38 0.24585E-45 0.52882E-45 - 1 2 0.13240E-06 0.10000E+01 0.25813E+04 0.84057E-30 0.32088E-36 0.31929E-36 - 1 2 0.13240E-06 0.10000E+01 0.20817E+04 0.12196E-13 0.17837E-19 0.45305E-20 + 1 2 0.13240E-06 0.10000E+01 0.80645E+05 0.23307E-10 0.14402E-21 0.17458E-16 + 1 2 0.13240E-06 0.10000E+01 0.65036E+05 0.29860E-10 0.32712E-21 0.22385E-16 + 1 2 0.13240E-06 0.10000E+01 0.52449E+05 0.37699E-10 0.72807E-21 0.28296E-16 + 1 2 0.13240E-06 0.10000E+01 0.42297E+05 0.47052E-10 0.15810E-20 0.35383E-16 + 1 2 0.13240E-06 0.10000E+01 0.34111E+05 0.58145E-10 0.33444E-20 0.43845E-16 + 1 2 0.13240E-06 0.10000E+01 0.27509E+05 0.71167E-10 0.69181E-20 0.53872E-16 + 1 2 0.13240E-06 0.10000E+01 0.22184E+05 0.86259E-10 0.14227E-19 0.65623E-16 + 1 2 0.13240E-06 0.10000E+01 0.17891E+05 0.10351E-09 0.30350E-19 0.79200E-16 + 1 2 0.13240E-06 0.10000E+01 0.14428E+05 0.12304E-09 0.72212E-19 0.94637E-16 + 1 2 0.13240E-06 0.10000E+01 0.11635E+05 0.14520E-09 0.20319E-18 0.11195E-15 + 1 2 0.13240E-06 0.10000E+01 0.93834E+04 0.17106E-09 0.66508E-18 0.13130E-15 + 1 2 0.13240E-06 0.10000E+01 0.75673E+04 0.20337E-09 0.23690E-17 0.15338E-15 + 1 2 0.13240E-06 0.10000E+01 0.61026E+04 0.24824E-09 0.86995E-17 0.18012E-15 + 1 2 0.13240E-06 0.10000E+01 0.49215E+04 0.31835E-09 0.32071E-16 0.21578E-15 + 1 2 0.13240E-06 0.10000E+01 0.39689E+04 0.43886E-09 0.11762E-15 0.26874E-15 + 1 2 0.13240E-06 0.10000E+01 0.32008E+04 0.65836E-09 0.42920E-15 0.35406E-15 + 1 2 0.13240E-06 0.10000E+01 0.25813E+04 0.10697E-08 0.15620E-14 0.49762E-15 + 1 2 0.13240E-06 0.10000E+01 0.20817E+04 0.18492E-08 0.56700E-14 0.74266E-15 1 2 0.13240E-06 0.10000E+01 0.16788E+04 0.33323E-08 0.20477E-13 0.11609E-14 1 2 0.13240E-06 0.10000E+01 0.13538E+04 0.61519E-08 0.73487E-13 0.18718E-14 1 2 0.13240E-06 0.10000E+01 0.10918E+04 0.11496E-07 0.26252E-12 0.30757E-14 @@ -2680,24 +2680,24 @@ VERSION 2.8.2 1 2 0.13240E-06 0.10000E+01 0.24221E+03 0.82520E-06 0.73402E-09 0.12042E-12 1 2 0.13240E-06 0.10000E+01 0.19533E+03 0.12884E-05 0.13932E-08 0.18278E-12 1 2 0.13240E-06 0.10000E+01 0.15752E+03 0.12884E-05 0.13932E-08 0.18278E-12 - 1 2 0.23103E-06 0.10000E+01 0.80645E+05 0.59930E-53 0.44747E-64 0.75027E-59 - 1 2 0.23103E-06 0.10000E+01 0.65036E+05 0.50616E-52 0.70967E-63 0.63450E-58 - 1 2 0.23103E-06 0.10000E+01 0.52449E+05 0.42946E-51 0.94934E-62 0.53898E-57 - 1 2 0.23103E-06 0.10000E+01 0.42297E+05 0.32194E-50 0.12793E-60 0.40488E-56 - 1 2 0.23103E-06 0.10000E+01 0.34111E+05 0.23061E-49 0.17331E-59 0.29110E-55 - 1 2 0.23103E-06 0.10000E+01 0.27509E+05 0.16370E-48 0.22982E-58 0.20789E-54 - 1 2 0.23103E-06 0.10000E+01 0.22184E+05 0.11446E-47 0.29504E-57 0.14680E-53 - 1 2 0.23103E-06 0.10000E+01 0.17891E+05 0.77929E-47 0.36494E-56 0.10154E-52 - 1 2 0.23103E-06 0.10000E+01 0.14428E+05 0.51329E-46 0.43619E-55 0.68455E-52 - 1 2 0.23103E-06 0.10000E+01 0.11635E+05 0.32692E-45 0.50556E-54 0.44913E-51 - 1 2 0.23103E-06 0.10000E+01 0.93834E+04 0.20181E-44 0.57221E-53 0.28542E-50 - 1 2 0.23103E-06 0.10000E+01 0.75673E+04 0.12170E-43 0.67131E-52 0.17329E-49 - 1 2 0.23103E-06 0.10000E+01 0.61026E+04 0.75039E-43 0.97202E-51 0.99463E-49 - 1 2 0.23103E-06 0.10000E+01 0.49215E+04 0.54015E-42 0.19222E-49 0.57051E-48 - 1 2 0.23103E-06 0.10000E+01 0.39689E+04 0.51129E-41 0.44030E-48 0.40359E-47 - 1 2 0.23103E-06 0.10000E+01 0.32008E+04 0.18320E-38 0.32219E-45 0.12858E-44 - 1 2 0.23103E-06 0.10000E+01 0.25813E+04 0.11019E-29 0.41458E-36 0.77932E-36 - 1 2 0.23103E-06 0.10000E+01 0.20817E+04 0.15808E-13 0.21253E-19 0.11346E-19 + 1 2 0.23103E-06 0.10000E+01 0.80645E+05 0.40553E-10 0.25231E-21 0.50738E-16 + 1 2 0.23103E-06 0.10000E+01 0.65036E+05 0.51976E-10 0.57558E-21 0.65070E-16 + 1 2 0.23103E-06 0.10000E+01 0.52449E+05 0.65659E-10 0.12895E-20 0.82281E-16 + 1 2 0.23103E-06 0.10000E+01 0.42297E+05 0.82024E-10 0.28257E-20 0.10294E-15 + 1 2 0.23103E-06 0.10000E+01 0.34111E+05 0.10150E-09 0.60407E-20 0.12766E-15 + 1 2 0.23103E-06 0.10000E+01 0.27509E+05 0.12446E-09 0.12601E-19 0.15703E-15 + 1 2 0.23103E-06 0.10000E+01 0.22184E+05 0.15122E-09 0.25830E-19 0.19157E-15 + 1 2 0.23103E-06 0.10000E+01 0.17891E+05 0.18197E-09 0.53424E-19 0.23165E-15 + 1 2 0.23103E-06 0.10000E+01 0.14428E+05 0.21685E-09 0.11840E-18 0.27744E-15 + 1 2 0.23103E-06 0.10000E+01 0.11635E+05 0.25620E-09 0.30383E-18 0.32891E-15 + 1 2 0.23103E-06 0.10000E+01 0.93834E+04 0.30113E-09 0.92503E-18 0.38627E-15 + 1 2 0.23103E-06 0.10000E+01 0.75673E+04 0.35485E-09 0.31629E-17 0.45088E-15 + 1 2 0.23103E-06 0.10000E+01 0.61026E+04 0.42491E-09 0.11330E-16 0.52698E-15 + 1 2 0.23103E-06 0.10000E+01 0.49215E+04 0.52725E-09 0.40821E-16 0.62461E-15 + 1 2 0.23103E-06 0.10000E+01 0.39689E+04 0.69329E-09 0.14575E-15 0.76386E-15 + 1 2 0.23103E-06 0.10000E+01 0.32008E+04 0.98228E-09 0.51552E-15 0.98105E-15 + 1 2 0.23103E-06 0.10000E+01 0.25813E+04 0.15037E-08 0.18148E-14 0.13376E-14 + 1 2 0.23103E-06 0.10000E+01 0.20817E+04 0.24585E-08 0.63774E-14 0.19332E-14 1 2 0.23103E-06 0.10000E+01 0.16788E+04 0.42153E-08 0.22371E-13 0.29276E-14 1 2 0.23103E-06 0.10000E+01 0.13538E+04 0.74508E-08 0.78320E-13 0.45750E-14 1 2 0.23103E-06 0.10000E+01 0.10918E+04 0.13405E-07 0.27422E-12 0.72832E-14 @@ -2710,24 +2710,24 @@ VERSION 2.8.2 1 2 0.23103E-06 0.10000E+01 0.24221E+03 0.83864E-06 0.73153E-09 0.22778E-12 1 2 0.23103E-06 0.10000E+01 0.19533E+03 0.13029E-05 0.13876E-08 0.34036E-12 1 2 0.23103E-06 0.10000E+01 0.15752E+03 0.13029E-05 0.13876E-08 0.34036E-12 - 1 2 0.40314E-06 0.10000E+01 0.80645E+05 0.10452E-52 0.78047E-64 0.13696E-58 - 1 2 0.40314E-06 0.10000E+01 0.65036E+05 0.88283E-52 0.12379E-62 0.11583E-57 - 1 2 0.40314E-06 0.10000E+01 0.52449E+05 0.74910E-51 0.16561E-61 0.98394E-57 - 1 2 0.40314E-06 0.10000E+01 0.42297E+05 0.56161E-50 0.22322E-60 0.73917E-56 - 1 2 0.40314E-06 0.10000E+01 0.34111E+05 0.40237E-49 0.30251E-59 0.53150E-55 - 1 2 0.40314E-06 0.10000E+01 0.27509E+05 0.28571E-48 0.40138E-58 0.37964E-54 - 1 2 0.40314E-06 0.10000E+01 0.22184E+05 0.19986E-47 0.51577E-57 0.26813E-53 - 1 2 0.40314E-06 0.10000E+01 0.17891E+05 0.13619E-46 0.63888E-56 0.18553E-52 - 1 2 0.40314E-06 0.10000E+01 0.14428E+05 0.89812E-46 0.76498E-55 0.12516E-51 - 1 2 0.40314E-06 0.10000E+01 0.11635E+05 0.57290E-45 0.88796E-54 0.82184E-51 - 1 2 0.40314E-06 0.10000E+01 0.93834E+04 0.35415E-44 0.10044E-52 0.52283E-50 - 1 2 0.40314E-06 0.10000E+01 0.75673E+04 0.21354E-43 0.11703E-51 0.31784E-49 - 1 2 0.40314E-06 0.10000E+01 0.61026E+04 0.13104E-42 0.16705E-50 0.18251E-48 - 1 2 0.40314E-06 0.10000E+01 0.49215E+04 0.93251E-42 0.32722E-49 0.10435E-47 - 1 2 0.40314E-06 0.10000E+01 0.39689E+04 0.87326E-41 0.74873E-48 0.73159E-47 - 1 2 0.40314E-06 0.10000E+01 0.32008E+04 0.31185E-38 0.54841E-45 0.23160E-44 - 1 2 0.40314E-06 0.10000E+01 0.25813E+04 0.18758E-29 0.70516E-36 0.14037E-35 - 1 2 0.40314E-06 0.10000E+01 0.20817E+04 0.26904E-13 0.35901E-19 0.20482E-19 + 1 2 0.40314E-06 0.10000E+01 0.80645E+05 0.70725E-10 0.44027E-21 0.92619E-16 + 1 2 0.40314E-06 0.10000E+01 0.65036E+05 0.90648E-10 0.10047E-20 0.11878E-15 + 1 2 0.40314E-06 0.10000E+01 0.52449E+05 0.11452E-09 0.22522E-20 0.15020E-15 + 1 2 0.40314E-06 0.10000E+01 0.42297E+05 0.14307E-09 0.49386E-20 0.18792E-15 + 1 2 0.40314E-06 0.10000E+01 0.34111E+05 0.17706E-09 0.10567E-19 0.23306E-15 + 1 2 0.40314E-06 0.10000E+01 0.27509E+05 0.21715E-09 0.22060E-19 0.28670E-15 + 1 2 0.40314E-06 0.10000E+01 0.22184E+05 0.26390E-09 0.45224E-19 0.34981E-15 + 1 2 0.40314E-06 0.10000E+01 0.17891E+05 0.31763E-09 0.93351E-19 0.42307E-15 + 1 2 0.40314E-06 0.10000E+01 0.14428E+05 0.37861E-09 0.20578E-18 0.50677E-15 + 1 2 0.40314E-06 0.10000E+01 0.11635E+05 0.44735E-09 0.52391E-18 0.60089E-15 + 1 2 0.40314E-06 0.10000E+01 0.93834E+04 0.52576E-09 0.15842E-17 0.70579E-15 + 1 2 0.40314E-06 0.10000E+01 0.75673E+04 0.61919E-09 0.53955E-17 0.82382E-15 + 1 2 0.40314E-06 0.10000E+01 0.61026E+04 0.74042E-09 0.19285E-16 0.96259E-15 + 1 2 0.40314E-06 0.10000E+01 0.49215E+04 0.91650E-09 0.69350E-16 0.11401E-14 + 1 2 0.40314E-06 0.10000E+01 0.39689E+04 0.12007E-08 0.24705E-15 0.13925E-14 + 1 2 0.40314E-06 0.10000E+01 0.32008E+04 0.16933E-08 0.87142E-15 0.17851E-14 + 1 2 0.40314E-06 0.10000E+01 0.25813E+04 0.25791E-08 0.30581E-14 0.24282E-14 + 1 2 0.40314E-06 0.10000E+01 0.20817E+04 0.41960E-08 0.10713E-13 0.35010E-14 1 2 0.40314E-06 0.10000E+01 0.16788E+04 0.71619E-08 0.37467E-13 0.52886E-14 1 2 0.40314E-06 0.10000E+01 0.13538E+04 0.12608E-07 0.13083E-12 0.82438E-14 1 2 0.40314E-06 0.10000E+01 0.10918E+04 0.22600E-07 0.45708E-12 0.13090E-13 @@ -2740,24 +2740,24 @@ VERSION 2.8.2 1 2 0.40314E-06 0.10000E+01 0.24221E+03 0.13936E-05 0.12129E-08 0.40101E-12 1 2 0.40314E-06 0.10000E+01 0.19533E+03 0.21640E-05 0.23005E-08 0.59821E-12 1 2 0.40314E-06 0.10000E+01 0.15752E+03 0.21640E-05 0.23005E-08 0.59821E-12 - 1 2 0.70346E-06 0.10000E+01 0.80645E+05 0.18238E-52 0.13619E-63 0.23898E-58 - 1 2 0.70346E-06 0.10000E+01 0.65036E+05 0.15405E-51 0.21600E-62 0.20211E-57 - 1 2 0.70346E-06 0.10000E+01 0.52449E+05 0.13071E-50 0.28898E-61 0.17169E-56 - 1 2 0.70346E-06 0.10000E+01 0.42297E+05 0.97998E-50 0.38950E-60 0.12898E-55 - 1 2 0.70346E-06 0.10000E+01 0.34111E+05 0.70211E-49 0.52787E-59 0.92744E-55 - 1 2 0.70346E-06 0.10000E+01 0.27509E+05 0.49855E-48 0.70038E-58 0.66244E-54 - 1 2 0.70346E-06 0.10000E+01 0.22184E+05 0.34875E-47 0.89999E-57 0.46787E-53 - 1 2 0.70346E-06 0.10000E+01 0.17891E+05 0.23764E-46 0.11148E-55 0.32375E-52 - 1 2 0.70346E-06 0.10000E+01 0.14428E+05 0.15672E-45 0.13348E-54 0.21840E-51 - 1 2 0.70346E-06 0.10000E+01 0.11635E+05 0.99968E-45 0.15494E-53 0.14341E-50 - 1 2 0.70346E-06 0.10000E+01 0.93834E+04 0.61797E-44 0.17526E-52 0.91231E-50 - 1 2 0.70346E-06 0.10000E+01 0.75673E+04 0.37261E-43 0.20420E-51 0.55460E-49 - 1 2 0.70346E-06 0.10000E+01 0.61026E+04 0.22866E-42 0.29150E-50 0.31847E-48 - 1 2 0.70346E-06 0.10000E+01 0.49215E+04 0.16272E-41 0.57098E-49 0.18209E-47 - 1 2 0.70346E-06 0.10000E+01 0.39689E+04 0.15238E-40 0.13065E-47 0.12766E-46 - 1 2 0.70346E-06 0.10000E+01 0.32008E+04 0.54417E-38 0.95694E-45 0.40414E-44 - 1 2 0.70346E-06 0.10000E+01 0.25813E+04 0.32732E-29 0.12305E-35 0.24493E-35 - 1 2 0.70346E-06 0.10000E+01 0.20817E+04 0.46946E-13 0.62644E-19 0.35740E-19 + 1 2 0.70346E-06 0.10000E+01 0.80645E+05 0.12341E-09 0.76824E-21 0.16161E-15 + 1 2 0.70346E-06 0.10000E+01 0.65036E+05 0.15818E-09 0.17532E-20 0.20727E-15 + 1 2 0.70346E-06 0.10000E+01 0.52449E+05 0.19983E-09 0.39299E-20 0.26210E-15 + 1 2 0.70346E-06 0.10000E+01 0.42297E+05 0.24965E-09 0.86176E-20 0.32792E-15 + 1 2 0.70346E-06 0.10000E+01 0.34111E+05 0.30895E-09 0.18439E-19 0.40667E-15 + 1 2 0.70346E-06 0.10000E+01 0.27509E+05 0.37892E-09 0.38494E-19 0.50028E-15 + 1 2 0.70346E-06 0.10000E+01 0.22184E+05 0.46048E-09 0.78913E-19 0.61040E-15 + 1 2 0.70346E-06 0.10000E+01 0.17891E+05 0.55425E-09 0.16289E-18 0.73823E-15 + 1 2 0.70346E-06 0.10000E+01 0.14428E+05 0.66064E-09 0.35908E-18 0.88428E-15 + 1 2 0.70346E-06 0.10000E+01 0.11635E+05 0.78060E-09 0.91420E-18 0.10485E-14 + 1 2 0.70346E-06 0.10000E+01 0.93834E+04 0.91741E-09 0.27644E-17 0.12316E-14 + 1 2 0.70346E-06 0.10000E+01 0.75673E+04 0.10804E-08 0.94149E-17 0.14375E-14 + 1 2 0.70346E-06 0.10000E+01 0.61026E+04 0.12920E-08 0.33651E-16 0.16797E-14 + 1 2 0.70346E-06 0.10000E+01 0.49215E+04 0.15992E-08 0.12101E-15 0.19894E-14 + 1 2 0.70346E-06 0.10000E+01 0.39689E+04 0.20951E-08 0.43109E-15 0.24298E-14 + 1 2 0.70346E-06 0.10000E+01 0.32008E+04 0.29546E-08 0.15206E-14 0.31149E-14 + 1 2 0.70346E-06 0.10000E+01 0.25813E+04 0.45003E-08 0.53363E-14 0.42371E-14 + 1 2 0.70346E-06 0.10000E+01 0.20817E+04 0.73217E-08 0.18693E-13 0.61090E-14 1 2 0.70346E-06 0.10000E+01 0.16788E+04 0.12497E-07 0.65377E-13 0.92282E-14 1 2 0.70346E-06 0.10000E+01 0.13538E+04 0.21999E-07 0.22829E-12 0.14385E-13 1 2 0.70346E-06 0.10000E+01 0.10918E+04 0.39436E-07 0.79757E-12 0.22841E-13 @@ -2770,24 +2770,24 @@ VERSION 2.8.2 1 2 0.70346E-06 0.10000E+01 0.24221E+03 0.24318E-05 0.21165E-08 0.69973E-12 1 2 0.70346E-06 0.10000E+01 0.19533E+03 0.37760E-05 0.40143E-08 0.10438E-11 1 2 0.70346E-06 0.10000E+01 0.15752E+03 0.37760E-05 0.40143E-08 0.10438E-11 - 1 2 0.12275E-05 0.10000E+01 0.80645E+05 0.31825E-52 0.23764E-63 0.41701E-58 - 1 2 0.12275E-05 0.10000E+01 0.65036E+05 0.26880E-51 0.37690E-62 0.35268E-57 - 1 2 0.12275E-05 0.10000E+01 0.52449E+05 0.22809E-50 0.50426E-61 0.29959E-56 - 1 2 0.12275E-05 0.10000E+01 0.42297E+05 0.17100E-49 0.67966E-60 0.22506E-55 - 1 2 0.12275E-05 0.10000E+01 0.34111E+05 0.12251E-48 0.92110E-59 0.16183E-54 - 1 2 0.12275E-05 0.10000E+01 0.27509E+05 0.86993E-48 0.12221E-57 0.11559E-53 - 1 2 0.12275E-05 0.10000E+01 0.22184E+05 0.60855E-47 0.15704E-56 0.81641E-53 - 1 2 0.12275E-05 0.10000E+01 0.17891E+05 0.41467E-46 0.19453E-55 0.56492E-52 - 1 2 0.12275E-05 0.10000E+01 0.14428E+05 0.27346E-45 0.23292E-54 0.38109E-51 - 1 2 0.12275E-05 0.10000E+01 0.11635E+05 0.17444E-44 0.27037E-53 0.25024E-50 - 1 2 0.12275E-05 0.10000E+01 0.93834E+04 0.10783E-43 0.30582E-52 0.15919E-49 - 1 2 0.12275E-05 0.10000E+01 0.75673E+04 0.65019E-43 0.35632E-51 0.96775E-49 - 1 2 0.12275E-05 0.10000E+01 0.61026E+04 0.39900E-42 0.50865E-50 0.55572E-48 - 1 2 0.12275E-05 0.10000E+01 0.49215E+04 0.28393E-41 0.99632E-49 0.31773E-47 - 1 2 0.12275E-05 0.10000E+01 0.39689E+04 0.26589E-40 0.22797E-47 0.22276E-46 - 1 2 0.12275E-05 0.10000E+01 0.32008E+04 0.94954E-38 0.16698E-44 0.70519E-44 - 1 2 0.12275E-05 0.10000E+01 0.25813E+04 0.57115E-29 0.21471E-35 0.42739E-35 - 1 2 0.12275E-05 0.10000E+01 0.20817E+04 0.81918E-13 0.10931E-18 0.62364E-19 + 1 2 0.12275E-05 0.10000E+01 0.80645E+05 0.21534E-09 0.13405E-20 0.28201E-15 + 1 2 0.12275E-05 0.10000E+01 0.65036E+05 0.27601E-09 0.30592E-20 0.36167E-15 + 1 2 0.12275E-05 0.10000E+01 0.52449E+05 0.34869E-09 0.68575E-20 0.45734E-15 + 1 2 0.12275E-05 0.10000E+01 0.42297E+05 0.43563E-09 0.15037E-19 0.57220E-15 + 1 2 0.12275E-05 0.10000E+01 0.34111E+05 0.53910E-09 0.32175E-19 0.70962E-15 + 1 2 0.12275E-05 0.10000E+01 0.27509E+05 0.66119E-09 0.67169E-19 0.87295E-15 + 1 2 0.12275E-05 0.10000E+01 0.22184E+05 0.80351E-09 0.13770E-18 0.10651E-14 + 1 2 0.12275E-05 0.10000E+01 0.17891E+05 0.96713E-09 0.28424E-18 0.12882E-14 + 1 2 0.12275E-05 0.10000E+01 0.14428E+05 0.11528E-08 0.62657E-18 0.15430E-14 + 1 2 0.12275E-05 0.10000E+01 0.11635E+05 0.13621E-08 0.15952E-17 0.18296E-14 + 1 2 0.12275E-05 0.10000E+01 0.93834E+04 0.16008E-08 0.48237E-17 0.21490E-14 + 1 2 0.12275E-05 0.10000E+01 0.75673E+04 0.18853E-08 0.16428E-16 0.25084E-14 + 1 2 0.12275E-05 0.10000E+01 0.61026E+04 0.22544E-08 0.58719E-16 0.29309E-14 + 1 2 0.12275E-05 0.10000E+01 0.49215E+04 0.27906E-08 0.21116E-15 0.34714E-14 + 1 2 0.12275E-05 0.10000E+01 0.39689E+04 0.36558E-08 0.75223E-15 0.42399E-14 + 1 2 0.12275E-05 0.10000E+01 0.32008E+04 0.51557E-08 0.26533E-14 0.54353E-14 + 1 2 0.12275E-05 0.10000E+01 0.25813E+04 0.78528E-08 0.93115E-14 0.73935E-14 + 1 2 0.12275E-05 0.10000E+01 0.20817E+04 0.12776E-07 0.32619E-13 0.10660E-13 1 2 0.12275E-05 0.10000E+01 0.16788E+04 0.21807E-07 0.11408E-12 0.16103E-13 1 2 0.12275E-05 0.10000E+01 0.13538E+04 0.38388E-07 0.39836E-12 0.25101E-13 1 2 0.12275E-05 0.10000E+01 0.10918E+04 0.68814E-07 0.13917E-11 0.39856E-13 @@ -2800,24 +2800,24 @@ VERSION 2.8.2 1 2 0.12275E-05 0.10000E+01 0.24221E+03 0.42433E-05 0.36931E-08 0.12210E-11 1 2 0.12275E-05 0.10000E+01 0.19533E+03 0.65888E-05 0.70046E-08 0.18214E-11 1 2 0.12275E-05 0.10000E+01 0.15752E+03 0.65888E-05 0.70046E-08 0.18214E-11 - 1 2 0.21419E-05 0.10000E+01 0.80645E+05 0.55532E-52 0.41466E-63 0.72766E-58 - 1 2 0.21419E-05 0.10000E+01 0.65036E+05 0.46905E-51 0.65767E-62 0.61540E-57 - 1 2 0.21419E-05 0.10000E+01 0.52449E+05 0.39800E-50 0.87990E-61 0.52277E-56 - 1 2 0.21419E-05 0.10000E+01 0.42297E+05 0.29838E-49 0.11860E-59 0.39272E-55 - 1 2 0.21419E-05 0.10000E+01 0.34111E+05 0.21378E-48 0.16073E-58 0.28239E-54 - 1 2 0.21419E-05 0.10000E+01 0.27509E+05 0.15180E-47 0.21325E-57 0.20170E-53 - 1 2 0.21419E-05 0.10000E+01 0.22184E+05 0.10619E-46 0.27403E-56 0.14246E-52 - 1 2 0.21419E-05 0.10000E+01 0.17891E+05 0.72358E-46 0.33944E-55 0.98575E-52 - 1 2 0.21419E-05 0.10000E+01 0.14428E+05 0.47717E-45 0.40643E-54 0.66497E-51 - 1 2 0.21419E-05 0.10000E+01 0.11635E+05 0.30438E-44 0.47177E-53 0.43665E-50 - 1 2 0.21419E-05 0.10000E+01 0.93834E+04 0.18816E-43 0.53364E-52 0.27778E-49 - 1 2 0.21419E-05 0.10000E+01 0.75673E+04 0.11345E-42 0.62176E-51 0.16887E-48 - 1 2 0.21419E-05 0.10000E+01 0.61026E+04 0.69623E-42 0.88756E-50 0.96970E-48 - 1 2 0.21419E-05 0.10000E+01 0.49215E+04 0.49544E-41 0.17385E-48 0.55442E-47 - 1 2 0.21419E-05 0.10000E+01 0.39689E+04 0.46396E-40 0.39780E-47 0.38870E-46 - 1 2 0.21419E-05 0.10000E+01 0.32008E+04 0.16569E-37 0.29137E-44 0.12305E-43 - 1 2 0.21419E-05 0.10000E+01 0.25813E+04 0.99663E-29 0.37465E-35 0.74577E-35 - 1 2 0.21419E-05 0.10000E+01 0.20817E+04 0.14294E-12 0.19074E-18 0.10882E-18 + 1 2 0.21419E-05 0.10000E+01 0.80645E+05 0.37576E-09 0.23392E-20 0.49209E-15 + 1 2 0.21419E-05 0.10000E+01 0.65036E+05 0.48162E-09 0.53381E-20 0.63109E-15 + 1 2 0.21419E-05 0.10000E+01 0.52449E+05 0.60844E-09 0.11966E-19 0.79803E-15 + 1 2 0.21419E-05 0.10000E+01 0.42297E+05 0.76014E-09 0.26239E-19 0.99845E-15 + 1 2 0.21419E-05 0.10000E+01 0.34111E+05 0.94070E-09 0.56144E-19 0.12382E-14 + 1 2 0.21419E-05 0.10000E+01 0.27509E+05 0.11537E-08 0.11721E-18 0.15232E-14 + 1 2 0.21419E-05 0.10000E+01 0.22184E+05 0.14021E-08 0.24027E-18 0.18585E-14 + 1 2 0.21419E-05 0.10000E+01 0.17891E+05 0.16876E-08 0.49597E-18 0.22478E-14 + 1 2 0.21419E-05 0.10000E+01 0.14428E+05 0.20115E-08 0.10933E-17 0.26925E-14 + 1 2 0.21419E-05 0.10000E+01 0.11635E+05 0.23768E-08 0.27836E-17 0.31926E-14 + 1 2 0.21419E-05 0.10000E+01 0.93834E+04 0.27934E-08 0.84171E-17 0.37499E-14 + 1 2 0.21419E-05 0.10000E+01 0.75673E+04 0.32898E-08 0.28667E-16 0.43770E-14 + 1 2 0.21419E-05 0.10000E+01 0.61026E+04 0.39339E-08 0.10246E-15 0.51142E-14 + 1 2 0.21419E-05 0.10000E+01 0.49215E+04 0.48694E-08 0.36846E-15 0.60574E-14 + 1 2 0.21419E-05 0.10000E+01 0.39689E+04 0.63792E-08 0.13126E-14 0.73984E-14 + 1 2 0.21419E-05 0.10000E+01 0.32008E+04 0.89963E-08 0.46299E-14 0.94843E-14 + 1 2 0.21419E-05 0.10000E+01 0.25813E+04 0.13703E-07 0.16248E-13 0.12901E-13 + 1 2 0.21419E-05 0.10000E+01 0.20817E+04 0.22293E-07 0.56918E-13 0.18601E-13 1 2 0.21419E-05 0.10000E+01 0.16788E+04 0.38051E-07 0.19906E-12 0.28098E-13 1 2 0.21419E-05 0.10000E+01 0.13538E+04 0.66984E-07 0.69511E-12 0.43799E-13 1 2 0.21419E-05 0.10000E+01 0.10918E+04 0.12008E-06 0.24285E-11 0.69547E-13 @@ -2830,24 +2830,24 @@ VERSION 2.8.2 1 2 0.21419E-05 0.10000E+01 0.24221E+03 0.74043E-05 0.64443E-08 0.21305E-11 1 2 0.21419E-05 0.10000E+01 0.19533E+03 0.11497E-04 0.12223E-07 0.31783E-11 1 2 0.21419E-05 0.10000E+01 0.15752E+03 0.11497E-04 0.12223E-07 0.31783E-11 - 1 2 0.37375E-05 0.10000E+01 0.80645E+05 0.96900E-52 0.72356E-63 0.12697E-57 - 1 2 0.37375E-05 0.10000E+01 0.65036E+05 0.81846E-51 0.11476E-61 0.10738E-56 - 1 2 0.37375E-05 0.10000E+01 0.52449E+05 0.69448E-50 0.15354E-60 0.91220E-56 - 1 2 0.37375E-05 0.10000E+01 0.42297E+05 0.52066E-49 0.20694E-59 0.68528E-55 - 1 2 0.37375E-05 0.10000E+01 0.34111E+05 0.37303E-48 0.28046E-58 0.49275E-54 - 1 2 0.37375E-05 0.10000E+01 0.27509E+05 0.26488E-47 0.37211E-57 0.35196E-53 - 1 2 0.37375E-05 0.10000E+01 0.22184E+05 0.18529E-46 0.47817E-56 0.24858E-52 - 1 2 0.37375E-05 0.10000E+01 0.17891E+05 0.12626E-45 0.59230E-55 0.17201E-51 - 1 2 0.37375E-05 0.10000E+01 0.14428E+05 0.83263E-45 0.70920E-54 0.11603E-50 - 1 2 0.37375E-05 0.10000E+01 0.11635E+05 0.53113E-44 0.82322E-53 0.76192E-50 - 1 2 0.37375E-05 0.10000E+01 0.93834E+04 0.32833E-43 0.93117E-52 0.48471E-49 - 1 2 0.37375E-05 0.10000E+01 0.75673E+04 0.19797E-42 0.10849E-50 0.29466E-48 - 1 2 0.37375E-05 0.10000E+01 0.61026E+04 0.12149E-41 0.15487E-49 0.16921E-47 - 1 2 0.37375E-05 0.10000E+01 0.49215E+04 0.86452E-41 0.30336E-48 0.96742E-47 - 1 2 0.37375E-05 0.10000E+01 0.39689E+04 0.80959E-40 0.69414E-47 0.67825E-46 - 1 2 0.37375E-05 0.10000E+01 0.32008E+04 0.28912E-37 0.50842E-44 0.21472E-43 - 1 2 0.37375E-05 0.10000E+01 0.25813E+04 0.17391E-28 0.65374E-35 0.13013E-34 - 1 2 0.37375E-05 0.10000E+01 0.20817E+04 0.24942E-12 0.33283E-18 0.18989E-18 + 1 2 0.37375E-05 0.10000E+01 0.80645E+05 0.65568E-09 0.40817E-20 0.85866E-15 + 1 2 0.37375E-05 0.10000E+01 0.65036E+05 0.84039E-09 0.93147E-20 0.11012E-14 + 1 2 0.37375E-05 0.10000E+01 0.52449E+05 0.10617E-08 0.20880E-19 0.13925E-14 + 1 2 0.37375E-05 0.10000E+01 0.42297E+05 0.13264E-08 0.45786E-19 0.17422E-14 + 1 2 0.37375E-05 0.10000E+01 0.34111E+05 0.16415E-08 0.97968E-19 0.21607E-14 + 1 2 0.37375E-05 0.10000E+01 0.27509E+05 0.20132E-08 0.20452E-18 0.26580E-14 + 1 2 0.37375E-05 0.10000E+01 0.22184E+05 0.24465E-08 0.41926E-18 0.32431E-14 + 1 2 0.37375E-05 0.10000E+01 0.17891E+05 0.29447E-08 0.86544E-18 0.39222E-14 + 1 2 0.37375E-05 0.10000E+01 0.14428E+05 0.35100E-08 0.19078E-17 0.46982E-14 + 1 2 0.37375E-05 0.10000E+01 0.11635E+05 0.41474E-08 0.48571E-17 0.55708E-14 + 1 2 0.37375E-05 0.10000E+01 0.93834E+04 0.48742E-08 0.14687E-16 0.65433E-14 + 1 2 0.37375E-05 0.10000E+01 0.75673E+04 0.57404E-08 0.50021E-16 0.76375E-14 + 1 2 0.37375E-05 0.10000E+01 0.61026E+04 0.68644E-08 0.17879E-15 0.89241E-14 + 1 2 0.37375E-05 0.10000E+01 0.49215E+04 0.84968E-08 0.64293E-15 0.10570E-13 + 1 2 0.37375E-05 0.10000E+01 0.39689E+04 0.11131E-07 0.22904E-14 0.12910E-13 + 1 2 0.37375E-05 0.10000E+01 0.32008E+04 0.15698E-07 0.80788E-14 0.16549E-13 + 1 2 0.37375E-05 0.10000E+01 0.25813E+04 0.23910E-07 0.28352E-13 0.22512E-13 + 1 2 0.37375E-05 0.10000E+01 0.20817E+04 0.38900E-07 0.99318E-13 0.32457E-13 1 2 0.37375E-05 0.10000E+01 0.16788E+04 0.66397E-07 0.34735E-12 0.49030E-13 1 2 0.37375E-05 0.10000E+01 0.13538E+04 0.11688E-06 0.12129E-11 0.76427E-13 1 2 0.37375E-05 0.10000E+01 0.10918E+04 0.20953E-06 0.42375E-11 0.12136E-12 @@ -2860,24 +2860,24 @@ VERSION 2.8.2 1 2 0.37375E-05 0.10000E+01 0.24221E+03 0.12920E-04 0.11245E-07 0.37177E-11 1 2 0.37375E-05 0.10000E+01 0.19533E+03 0.20062E-04 0.21328E-07 0.55460E-11 1 2 0.37375E-05 0.10000E+01 0.15752E+03 0.20062E-04 0.21328E-07 0.55460E-11 - 1 2 0.65217E-05 0.10000E+01 0.80645E+05 0.16908E-51 0.12626E-62 0.22156E-57 - 1 2 0.65217E-05 0.10000E+01 0.65036E+05 0.14282E-50 0.20025E-61 0.18738E-56 - 1 2 0.65217E-05 0.10000E+01 0.52449E+05 0.12118E-49 0.26791E-60 0.15917E-55 - 1 2 0.65217E-05 0.10000E+01 0.42297E+05 0.90853E-49 0.36110E-59 0.11958E-54 - 1 2 0.65217E-05 0.10000E+01 0.34111E+05 0.65091E-48 0.48938E-58 0.85982E-54 - 1 2 0.65217E-05 0.10000E+01 0.27509E+05 0.46220E-47 0.64931E-57 0.61414E-53 - 1 2 0.65217E-05 0.10000E+01 0.22184E+05 0.32332E-46 0.83437E-56 0.43376E-52 - 1 2 0.65217E-05 0.10000E+01 0.17891E+05 0.22032E-45 0.10335E-54 0.30014E-51 - 1 2 0.65217E-05 0.10000E+01 0.14428E+05 0.14529E-44 0.12375E-53 0.20247E-50 - 1 2 0.65217E-05 0.10000E+01 0.11635E+05 0.92679E-44 0.14365E-52 0.13295E-49 - 1 2 0.65217E-05 0.10000E+01 0.93834E+04 0.57291E-43 0.16248E-51 0.84580E-49 - 1 2 0.65217E-05 0.10000E+01 0.75673E+04 0.34544E-42 0.18931E-50 0.51417E-48 - 1 2 0.65217E-05 0.10000E+01 0.61026E+04 0.21199E-41 0.27025E-49 0.29525E-47 - 1 2 0.65217E-05 0.10000E+01 0.49215E+04 0.15085E-40 0.52935E-48 0.16881E-46 - 1 2 0.65217E-05 0.10000E+01 0.39689E+04 0.14127E-39 0.12112E-46 0.11835E-45 - 1 2 0.65217E-05 0.10000E+01 0.32008E+04 0.50449E-37 0.88717E-44 0.37467E-43 - 1 2 0.65217E-05 0.10000E+01 0.25813E+04 0.30346E-28 0.11407E-34 0.22707E-34 - 1 2 0.65217E-05 0.10000E+01 0.20817E+04 0.43523E-12 0.58077E-18 0.33134E-18 + 1 2 0.65217E-05 0.10000E+01 0.80645E+05 0.11441E-08 0.71223E-20 0.14983E-14 + 1 2 0.65217E-05 0.10000E+01 0.65036E+05 0.14664E-08 0.16254E-19 0.19216E-14 + 1 2 0.65217E-05 0.10000E+01 0.52449E+05 0.18526E-08 0.36434E-19 0.24299E-14 + 1 2 0.65217E-05 0.10000E+01 0.42297E+05 0.23145E-08 0.79893E-19 0.30401E-14 + 1 2 0.65217E-05 0.10000E+01 0.34111E+05 0.28643E-08 0.17095E-18 0.37702E-14 + 1 2 0.65217E-05 0.10000E+01 0.27509E+05 0.35129E-08 0.35687E-18 0.46380E-14 + 1 2 0.65217E-05 0.10000E+01 0.22184E+05 0.42691E-08 0.73159E-18 0.56589E-14 + 1 2 0.65217E-05 0.10000E+01 0.17891E+05 0.51384E-08 0.15101E-17 0.68440E-14 + 1 2 0.65217E-05 0.10000E+01 0.14428E+05 0.61248E-08 0.33290E-17 0.81980E-14 + 1 2 0.65217E-05 0.10000E+01 0.11635E+05 0.72369E-08 0.84754E-17 0.97207E-14 + 1 2 0.65217E-05 0.10000E+01 0.93834E+04 0.85053E-08 0.25628E-16 0.11418E-13 + 1 2 0.65217E-05 0.10000E+01 0.75673E+04 0.10017E-07 0.87284E-16 0.13327E-13 + 1 2 0.65217E-05 0.10000E+01 0.61026E+04 0.11978E-07 0.31197E-15 0.15572E-13 + 1 2 0.65217E-05 0.10000E+01 0.49215E+04 0.14826E-07 0.11219E-14 0.18444E-13 + 1 2 0.65217E-05 0.10000E+01 0.39689E+04 0.19423E-07 0.39966E-14 0.22527E-13 + 1 2 0.65217E-05 0.10000E+01 0.32008E+04 0.27392E-07 0.14097E-13 0.28878E-13 + 1 2 0.65217E-05 0.10000E+01 0.25813E+04 0.41722E-07 0.49472E-13 0.39282E-13 + 1 2 0.65217E-05 0.10000E+01 0.20817E+04 0.67879E-07 0.17330E-12 0.56636E-13 1 2 0.65217E-05 0.10000E+01 0.16788E+04 0.11586E-06 0.60611E-12 0.85554E-13 1 2 0.65217E-05 0.10000E+01 0.13538E+04 0.20395E-06 0.21165E-11 0.13336E-12 1 2 0.65217E-05 0.10000E+01 0.10918E+04 0.36561E-06 0.73942E-11 0.21176E-12 @@ -2890,24 +2890,24 @@ VERSION 2.8.2 1 2 0.65217E-05 0.10000E+01 0.24221E+03 0.22545E-04 0.19622E-07 0.64871E-11 1 2 0.65217E-05 0.10000E+01 0.19533E+03 0.35007E-04 0.37216E-07 0.96774E-11 1 2 0.65217E-05 0.10000E+01 0.15752E+03 0.35007E-04 0.37216E-07 0.96774E-11 - 1 2 0.11380E-04 0.10000E+01 0.80645E+05 0.29504E-51 0.22031E-62 0.38661E-57 - 1 2 0.11380E-04 0.10000E+01 0.65036E+05 0.24921E-50 0.34942E-61 0.32696E-56 - 1 2 0.11380E-04 0.10000E+01 0.52449E+05 0.21146E-49 0.46749E-60 0.27775E-55 - 1 2 0.11380E-04 0.10000E+01 0.42297E+05 0.15853E-48 0.63010E-59 0.20866E-54 - 1 2 0.11380E-04 0.10000E+01 0.34111E+05 0.11358E-47 0.85394E-58 0.15003E-53 - 1 2 0.11380E-04 0.10000E+01 0.27509E+05 0.80650E-47 0.11330E-56 0.10716E-52 - 1 2 0.11380E-04 0.10000E+01 0.22184E+05 0.56418E-46 0.14559E-55 0.75688E-52 - 1 2 0.11380E-04 0.10000E+01 0.17891E+05 0.38444E-45 0.18034E-54 0.52373E-51 - 1 2 0.11380E-04 0.10000E+01 0.14428E+05 0.25352E-44 0.21594E-53 0.35330E-50 - 1 2 0.11380E-04 0.10000E+01 0.11635E+05 0.16172E-43 0.25065E-52 0.23199E-49 - 1 2 0.11380E-04 0.10000E+01 0.93834E+04 0.99970E-43 0.28352E-51 0.14759E-48 - 1 2 0.11380E-04 0.10000E+01 0.75673E+04 0.60278E-42 0.33034E-50 0.89719E-48 - 1 2 0.11380E-04 0.10000E+01 0.61026E+04 0.36991E-41 0.47156E-49 0.51520E-47 - 1 2 0.11380E-04 0.10000E+01 0.49215E+04 0.26323E-40 0.92368E-48 0.29456E-46 - 1 2 0.11380E-04 0.10000E+01 0.39689E+04 0.24650E-39 0.21135E-46 0.20651E-45 - 1 2 0.11380E-04 0.10000E+01 0.32008E+04 0.88030E-37 0.15481E-43 0.65378E-43 - 1 2 0.11380E-04 0.10000E+01 0.25813E+04 0.52951E-28 0.19905E-34 0.39623E-34 - 1 2 0.11380E-04 0.10000E+01 0.20817E+04 0.75945E-12 0.10134E-17 0.57817E-18 + 1 2 0.11380E-04 0.10000E+01 0.80645E+05 0.19964E-08 0.12428E-19 0.26145E-14 + 1 2 0.11380E-04 0.10000E+01 0.65036E+05 0.25588E-08 0.28362E-19 0.33530E-14 + 1 2 0.11380E-04 0.10000E+01 0.52449E+05 0.32327E-08 0.63575E-19 0.42400E-14 + 1 2 0.11380E-04 0.10000E+01 0.42297E+05 0.40387E-08 0.13941E-18 0.53048E-14 + 1 2 0.11380E-04 0.10000E+01 0.34111E+05 0.49980E-08 0.29829E-18 0.65788E-14 + 1 2 0.11380E-04 0.10000E+01 0.27509E+05 0.61298E-08 0.62272E-18 0.80930E-14 + 1 2 0.11380E-04 0.10000E+01 0.22184E+05 0.74493E-08 0.12766E-17 0.98745E-14 + 1 2 0.11380E-04 0.10000E+01 0.17891E+05 0.89662E-08 0.26351E-17 0.11942E-13 + 1 2 0.11380E-04 0.10000E+01 0.14428E+05 0.10687E-07 0.58089E-17 0.14305E-13 + 1 2 0.11380E-04 0.10000E+01 0.11635E+05 0.12628E-07 0.14789E-16 0.16962E-13 + 1 2 0.11380E-04 0.10000E+01 0.93834E+04 0.14841E-07 0.44720E-16 0.19923E-13 + 1 2 0.11380E-04 0.10000E+01 0.75673E+04 0.17479E-07 0.15231E-15 0.23255E-13 + 1 2 0.11380E-04 0.10000E+01 0.61026E+04 0.20901E-07 0.54437E-15 0.27172E-13 + 1 2 0.11380E-04 0.10000E+01 0.49215E+04 0.25871E-07 0.19576E-14 0.32183E-13 + 1 2 0.11380E-04 0.10000E+01 0.39689E+04 0.33893E-07 0.69739E-14 0.39308E-13 + 1 2 0.11380E-04 0.10000E+01 0.32008E+04 0.47798E-07 0.24599E-13 0.50390E-13 + 1 2 0.11380E-04 0.10000E+01 0.25813E+04 0.72802E-07 0.86326E-13 0.68545E-13 + 1 2 0.11380E-04 0.10000E+01 0.20817E+04 0.11844E-06 0.30240E-12 0.98826E-13 1 2 0.11380E-04 0.10000E+01 0.16788E+04 0.20217E-06 0.10576E-11 0.14929E-12 1 2 0.11380E-04 0.10000E+01 0.13538E+04 0.35589E-06 0.36931E-11 0.23271E-12 1 2 0.11380E-04 0.10000E+01 0.10918E+04 0.63797E-06 0.12902E-10 0.36950E-12 @@ -2920,24 +2920,24 @@ VERSION 2.8.2 1 2 0.11380E-04 0.10000E+01 0.24221E+03 0.39339E-04 0.34239E-07 0.11320E-10 1 2 0.11380E-04 0.10000E+01 0.19533E+03 0.61084E-04 0.64939E-07 0.16886E-10 1 2 0.11380E-04 0.10000E+01 0.15752E+03 0.61084E-04 0.64939E-07 0.16886E-10 - 1 2 0.19857E-04 0.10000E+01 0.80645E+05 0.51483E-51 0.38443E-62 0.67461E-57 - 1 2 0.19857E-04 0.10000E+01 0.65036E+05 0.43485E-50 0.60972E-61 0.57053E-56 - 1 2 0.19857E-04 0.10000E+01 0.52449E+05 0.36898E-49 0.81575E-60 0.48465E-55 - 1 2 0.19857E-04 0.10000E+01 0.42297E+05 0.27663E-48 0.10995E-58 0.36409E-54 - 1 2 0.19857E-04 0.10000E+01 0.34111E+05 0.19819E-47 0.14901E-57 0.26180E-53 - 1 2 0.19857E-04 0.10000E+01 0.27509E+05 0.14073E-46 0.19770E-56 0.18699E-52 - 1 2 0.19857E-04 0.10000E+01 0.22184E+05 0.98446E-46 0.25405E-55 0.13207E-51 - 1 2 0.19857E-04 0.10000E+01 0.17891E+05 0.67082E-45 0.31469E-54 0.91388E-51 - 1 2 0.19857E-04 0.10000E+01 0.14428E+05 0.44238E-44 0.37680E-53 0.61649E-50 - 1 2 0.19857E-04 0.10000E+01 0.11635E+05 0.28219E-43 0.43738E-52 0.40481E-49 - 1 2 0.19857E-04 0.10000E+01 0.93834E+04 0.17444E-42 0.49473E-51 0.25753E-48 - 1 2 0.19857E-04 0.10000E+01 0.75673E+04 0.10518E-41 0.57643E-50 0.15655E-47 - 1 2 0.19857E-04 0.10000E+01 0.61026E+04 0.64547E-41 0.82285E-49 0.89899E-47 - 1 2 0.19857E-04 0.10000E+01 0.49215E+04 0.45932E-40 0.16118E-47 0.51399E-46 - 1 2 0.19857E-04 0.10000E+01 0.39689E+04 0.43013E-39 0.36880E-46 0.36036E-45 - 1 2 0.19857E-04 0.10000E+01 0.32008E+04 0.15361E-36 0.27013E-43 0.11408E-42 - 1 2 0.19857E-04 0.10000E+01 0.25813E+04 0.92397E-28 0.34733E-34 0.69140E-34 - 1 2 0.19857E-04 0.10000E+01 0.20817E+04 0.13252E-11 0.17683E-17 0.10089E-17 + 1 2 0.19857E-04 0.10000E+01 0.80645E+05 0.34836E-08 0.21686E-19 0.45621E-14 + 1 2 0.19857E-04 0.10000E+01 0.65036E+05 0.44650E-08 0.49489E-19 0.58508E-14 + 1 2 0.19857E-04 0.10000E+01 0.52449E+05 0.56408E-08 0.11093E-18 0.73985E-14 + 1 2 0.19857E-04 0.10000E+01 0.42297E+05 0.70472E-08 0.24326E-18 0.92565E-14 + 1 2 0.19857E-04 0.10000E+01 0.34111E+05 0.87212E-08 0.52051E-18 0.11480E-13 + 1 2 0.19857E-04 0.10000E+01 0.27509E+05 0.10696E-07 0.10866E-17 0.14122E-13 + 1 2 0.19857E-04 0.10000E+01 0.22184E+05 0.12999E-07 0.22276E-17 0.17230E-13 + 1 2 0.19857E-04 0.10000E+01 0.17891E+05 0.15645E-07 0.45981E-17 0.20839E-13 + 1 2 0.19857E-04 0.10000E+01 0.14428E+05 0.18649E-07 0.10136E-16 0.24962E-13 + 1 2 0.19857E-04 0.10000E+01 0.11635E+05 0.22035E-07 0.25806E-16 0.29598E-13 + 1 2 0.19857E-04 0.10000E+01 0.93834E+04 0.25897E-07 0.78034E-16 0.34765E-13 + 1 2 0.19857E-04 0.10000E+01 0.75673E+04 0.30499E-07 0.26576E-15 0.40578E-13 + 1 2 0.19857E-04 0.10000E+01 0.61026E+04 0.36470E-07 0.94990E-15 0.47414E-13 + 1 2 0.19857E-04 0.10000E+01 0.49215E+04 0.45143E-07 0.34159E-14 0.56157E-13 + 1 2 0.19857E-04 0.10000E+01 0.39689E+04 0.59141E-07 0.12169E-13 0.68589E-13 + 1 2 0.19857E-04 0.10000E+01 0.32008E+04 0.83404E-07 0.42923E-13 0.87928E-13 + 1 2 0.19857E-04 0.10000E+01 0.25813E+04 0.12704E-06 0.15063E-12 0.11961E-12 + 1 2 0.19857E-04 0.10000E+01 0.20817E+04 0.20668E-06 0.52768E-12 0.17245E-12 1 2 0.19857E-04 0.10000E+01 0.16788E+04 0.35277E-06 0.18455E-11 0.26050E-12 1 2 0.19857E-04 0.10000E+01 0.13538E+04 0.62100E-06 0.64443E-11 0.40606E-12 1 2 0.19857E-04 0.10000E+01 0.10918E+04 0.11132E-05 0.22514E-10 0.64476E-12 @@ -2950,24 +2950,24 @@ VERSION 2.8.2 1 2 0.19857E-04 0.10000E+01 0.24221E+03 0.68645E-04 0.59744E-07 0.19752E-10 1 2 0.19857E-04 0.10000E+01 0.19533E+03 0.10659E-03 0.11332E-06 0.29466E-10 1 2 0.19857E-04 0.10000E+01 0.15752E+03 0.10659E-03 0.11332E-06 0.29466E-10 - 1 2 0.34650E-04 0.10000E+01 0.80645E+05 0.89835E-51 0.67081E-62 0.11771E-56 - 1 2 0.34650E-04 0.10000E+01 0.65036E+05 0.75878E-50 0.10639E-60 0.99554E-56 - 1 2 0.34650E-04 0.10000E+01 0.52449E+05 0.64385E-49 0.14234E-59 0.84569E-55 - 1 2 0.34650E-04 0.10000E+01 0.42297E+05 0.48270E-48 0.19185E-58 0.63532E-54 - 1 2 0.34650E-04 0.10000E+01 0.34111E+05 0.34583E-47 0.26001E-57 0.45682E-53 - 1 2 0.34650E-04 0.10000E+01 0.27509E+05 0.24557E-46 0.34498E-56 0.32629E-52 - 1 2 0.34650E-04 0.10000E+01 0.22184E+05 0.17178E-45 0.44330E-55 0.23046E-51 - 1 2 0.34650E-04 0.10000E+01 0.17891E+05 0.11705E-44 0.54911E-54 0.15947E-50 - 1 2 0.34650E-04 0.10000E+01 0.14428E+05 0.77193E-44 0.65750E-53 0.10757E-49 - 1 2 0.34650E-04 0.10000E+01 0.11635E+05 0.49240E-43 0.76320E-52 0.70637E-49 - 1 2 0.34650E-04 0.10000E+01 0.93834E+04 0.30439E-42 0.86327E-51 0.44937E-48 - 1 2 0.34650E-04 0.10000E+01 0.75673E+04 0.18354E-41 0.10058E-49 0.27318E-47 - 1 2 0.34650E-04 0.10000E+01 0.61026E+04 0.11263E-40 0.14358E-48 0.15687E-46 - 1 2 0.34650E-04 0.10000E+01 0.49215E+04 0.80148E-40 0.28124E-47 0.89689E-46 - 1 2 0.34650E-04 0.10000E+01 0.39689E+04 0.75056E-39 0.64353E-46 0.62880E-45 - 1 2 0.34650E-04 0.10000E+01 0.32008E+04 0.26804E-36 0.47135E-43 0.19906E-42 - 1 2 0.34650E-04 0.10000E+01 0.25813E+04 0.16123E-27 0.60608E-34 0.12064E-33 - 1 2 0.34650E-04 0.10000E+01 0.20817E+04 0.23124E-11 0.30856E-17 0.17604E-17 + 1 2 0.34650E-04 0.10000E+01 0.80645E+05 0.60787E-08 0.37841E-19 0.79605E-14 + 1 2 0.34650E-04 0.10000E+01 0.65036E+05 0.77912E-08 0.86356E-19 0.10209E-13 + 1 2 0.34650E-04 0.10000E+01 0.52449E+05 0.98428E-08 0.19357E-18 0.12910E-13 + 1 2 0.34650E-04 0.10000E+01 0.42297E+05 0.12297E-07 0.42447E-18 0.16152E-13 + 1 2 0.34650E-04 0.10000E+01 0.34111E+05 0.15218E-07 0.90825E-18 0.20031E-13 + 1 2 0.34650E-04 0.10000E+01 0.27509E+05 0.18664E-07 0.18961E-17 0.24642E-13 + 1 2 0.34650E-04 0.10000E+01 0.22184E+05 0.22682E-07 0.38870E-17 0.30066E-13 + 1 2 0.34650E-04 0.10000E+01 0.17891E+05 0.27300E-07 0.80234E-17 0.36363E-13 + 1 2 0.34650E-04 0.10000E+01 0.14428E+05 0.32541E-07 0.17687E-16 0.43556E-13 + 1 2 0.34650E-04 0.10000E+01 0.11635E+05 0.38450E-07 0.45030E-16 0.51646E-13 + 1 2 0.34650E-04 0.10000E+01 0.93834E+04 0.45189E-07 0.13616E-15 0.60662E-13 + 1 2 0.34650E-04 0.10000E+01 0.75673E+04 0.53219E-07 0.46374E-15 0.70807E-13 + 1 2 0.34650E-04 0.10000E+01 0.61026E+04 0.63639E-07 0.16575E-14 0.82734E-13 + 1 2 0.34650E-04 0.10000E+01 0.49215E+04 0.78772E-07 0.59606E-14 0.97991E-13 + 1 2 0.34650E-04 0.10000E+01 0.39689E+04 0.10320E-06 0.21234E-13 0.11968E-12 + 1 2 0.34650E-04 0.10000E+01 0.32008E+04 0.14554E-06 0.74898E-13 0.15343E-12 + 1 2 0.34650E-04 0.10000E+01 0.25813E+04 0.22167E-06 0.26285E-12 0.20871E-12 + 1 2 0.34650E-04 0.10000E+01 0.20817E+04 0.36064E-06 0.92076E-12 0.30091E-12 1 2 0.34650E-04 0.10000E+01 0.16788E+04 0.61556E-06 0.32203E-11 0.45455E-12 1 2 0.34650E-04 0.10000E+01 0.13538E+04 0.10836E-05 0.11245E-10 0.70855E-12 1 2 0.34650E-04 0.10000E+01 0.10918E+04 0.19425E-05 0.39286E-10 0.11251E-11 @@ -2980,24 +2980,24 @@ VERSION 2.8.2 1 2 0.34650E-04 0.10000E+01 0.24221E+03 0.11978E-03 0.10425E-06 0.34466E-10 1 2 0.34650E-04 0.10000E+01 0.19533E+03 0.18599E-03 0.19773E-06 0.51416E-10 1 2 0.34650E-04 0.10000E+01 0.15752E+03 0.18599E-03 0.19773E-06 0.51416E-10 - 1 2 0.60462E-04 0.10000E+01 0.80645E+05 0.15676E-50 0.11705E-61 0.20541E-56 - 1 2 0.60462E-04 0.10000E+01 0.65036E+05 0.13240E-49 0.18565E-60 0.17372E-55 - 1 2 0.60462E-04 0.10000E+01 0.52449E+05 0.11235E-48 0.24838E-59 0.14757E-54 - 1 2 0.60462E-04 0.10000E+01 0.42297E+05 0.84228E-48 0.33478E-58 0.11086E-53 - 1 2 0.60462E-04 0.10000E+01 0.34111E+05 0.60346E-47 0.45370E-57 0.79713E-53 - 1 2 0.60462E-04 0.10000E+01 0.27509E+05 0.42850E-46 0.60197E-56 0.56936E-52 - 1 2 0.60462E-04 0.10000E+01 0.22184E+05 0.29975E-45 0.77353E-55 0.40213E-51 - 1 2 0.60462E-04 0.10000E+01 0.17891E+05 0.20425E-44 0.95817E-54 0.27826E-50 - 1 2 0.60462E-04 0.10000E+01 0.14428E+05 0.13470E-43 0.11473E-52 0.18771E-49 - 1 2 0.60462E-04 0.10000E+01 0.11635E+05 0.85922E-43 0.13317E-51 0.12326E-48 - 1 2 0.60462E-04 0.10000E+01 0.93834E+04 0.53114E-42 0.15064E-50 0.78413E-48 - 1 2 0.60462E-04 0.10000E+01 0.75673E+04 0.32026E-41 0.17551E-49 0.47668E-47 - 1 2 0.60462E-04 0.10000E+01 0.61026E+04 0.19653E-40 0.25054E-48 0.27373E-46 - 1 2 0.60462E-04 0.10000E+01 0.49215E+04 0.13985E-39 0.49075E-47 0.15650E-45 - 1 2 0.60462E-04 0.10000E+01 0.39689E+04 0.13097E-38 0.11229E-45 0.10972E-44 - 1 2 0.60462E-04 0.10000E+01 0.32008E+04 0.46771E-36 0.82249E-43 0.34735E-42 - 1 2 0.60462E-04 0.10000E+01 0.25813E+04 0.28133E-27 0.10576E-33 0.21052E-33 - 1 2 0.60462E-04 0.10000E+01 0.20817E+04 0.40350E-11 0.53842E-17 0.30718E-17 + 1 2 0.60462E-04 0.10000E+01 0.80645E+05 0.10607E-07 0.66030E-19 0.13891E-13 + 1 2 0.60462E-04 0.10000E+01 0.65036E+05 0.13595E-07 0.15069E-18 0.17815E-13 + 1 2 0.60462E-04 0.10000E+01 0.52449E+05 0.17175E-07 0.33777E-18 0.22527E-13 + 1 2 0.60462E-04 0.10000E+01 0.42297E+05 0.21457E-07 0.74068E-18 0.28184E-13 + 1 2 0.60462E-04 0.10000E+01 0.34111E+05 0.26554E-07 0.15848E-17 0.34953E-13 + 1 2 0.60462E-04 0.10000E+01 0.27509E+05 0.32568E-07 0.33085E-17 0.42998E-13 + 1 2 0.60462E-04 0.10000E+01 0.22184E+05 0.39578E-07 0.67825E-17 0.52463E-13 + 1 2 0.60462E-04 0.10000E+01 0.17891E+05 0.47638E-07 0.14000E-16 0.63450E-13 + 1 2 0.60462E-04 0.10000E+01 0.14428E+05 0.56782E-07 0.30863E-16 0.76003E-13 + 1 2 0.60462E-04 0.10000E+01 0.11635E+05 0.67092E-07 0.78575E-16 0.90120E-13 + 1 2 0.60462E-04 0.10000E+01 0.93834E+04 0.78851E-07 0.23760E-15 0.10585E-12 + 1 2 0.60462E-04 0.10000E+01 0.75673E+04 0.92864E-07 0.80920E-15 0.12355E-12 + 1 2 0.60462E-04 0.10000E+01 0.61026E+04 0.11105E-06 0.28923E-14 0.14437E-12 + 1 2 0.60462E-04 0.10000E+01 0.49215E+04 0.13745E-06 0.10401E-13 0.17099E-12 + 1 2 0.60462E-04 0.10000E+01 0.39689E+04 0.18007E-06 0.37052E-13 0.20884E-12 + 1 2 0.60462E-04 0.10000E+01 0.32008E+04 0.25395E-06 0.13069E-12 0.26772E-12 + 1 2 0.60462E-04 0.10000E+01 0.25813E+04 0.38680E-06 0.45865E-12 0.36418E-12 + 1 2 0.60462E-04 0.10000E+01 0.20817E+04 0.62930E-06 0.16067E-11 0.52506E-12 1 2 0.60462E-04 0.10000E+01 0.16788E+04 0.10741E-05 0.56192E-11 0.79316E-12 1 2 0.60462E-04 0.10000E+01 0.13538E+04 0.18908E-05 0.19622E-10 0.12364E-11 1 2 0.60462E-04 0.10000E+01 0.10918E+04 0.33895E-05 0.68551E-10 0.19632E-11 @@ -3010,24 +3010,24 @@ VERSION 2.8.2 1 2 0.60462E-04 0.10000E+01 0.24221E+03 0.20901E-03 0.18191E-06 0.60141E-10 1 2 0.60462E-04 0.10000E+01 0.19533E+03 0.32454E-03 0.34502E-06 0.89718E-10 1 2 0.60462E-04 0.10000E+01 0.15752E+03 0.32454E-03 0.34502E-06 0.89718E-10 - 1 2 0.10550E-03 0.10000E+01 0.80645E+05 0.27353E-50 0.20425E-61 0.35842E-56 - 1 2 0.10550E-03 0.10000E+01 0.65036E+05 0.23104E-49 0.32395E-60 0.30312E-55 - 1 2 0.10550E-03 0.10000E+01 0.52449E+05 0.19604E-48 0.43341E-59 0.25750E-54 - 1 2 0.10550E-03 0.10000E+01 0.42297E+05 0.14697E-47 0.58416E-58 0.19344E-53 - 1 2 0.10550E-03 0.10000E+01 0.34111E+05 0.10530E-46 0.79168E-57 0.13909E-52 - 1 2 0.10550E-03 0.10000E+01 0.27509E+05 0.74770E-46 0.10504E-55 0.99351E-52 - 1 2 0.10550E-03 0.10000E+01 0.22184E+05 0.52305E-45 0.13498E-54 0.70170E-51 - 1 2 0.10550E-03 0.10000E+01 0.17891E+05 0.35641E-44 0.16720E-53 0.48554E-50 - 1 2 0.10550E-03 0.10000E+01 0.14428E+05 0.23504E-43 0.20020E-52 0.32754E-49 - 1 2 0.10550E-03 0.10000E+01 0.11635E+05 0.14993E-42 0.23238E-51 0.21508E-48 - 1 2 0.10550E-03 0.10000E+01 0.93834E+04 0.92681E-42 0.26285E-50 0.13683E-47 - 1 2 0.10550E-03 0.10000E+01 0.75673E+04 0.55883E-41 0.30626E-49 0.83177E-47 - 1 2 0.10550E-03 0.10000E+01 0.61026E+04 0.34294E-40 0.43718E-48 0.47764E-46 - 1 2 0.10550E-03 0.10000E+01 0.49215E+04 0.24404E-39 0.85633E-47 0.27309E-45 - 1 2 0.10550E-03 0.10000E+01 0.39689E+04 0.22853E-38 0.19594E-45 0.19146E-44 - 1 2 0.10550E-03 0.10000E+01 0.32008E+04 0.81612E-36 0.14352E-42 0.60611E-42 - 1 2 0.10550E-03 0.10000E+01 0.25813E+04 0.49090E-27 0.18454E-33 0.36734E-33 - 1 2 0.10550E-03 0.10000E+01 0.20817E+04 0.70408E-11 0.93952E-17 0.53602E-17 + 1 2 0.10550E-03 0.10000E+01 0.80645E+05 0.18509E-07 0.11522E-18 0.24238E-13 + 1 2 0.10550E-03 0.10000E+01 0.65036E+05 0.23723E-07 0.26294E-18 0.31085E-13 + 1 2 0.10550E-03 0.10000E+01 0.52449E+05 0.29970E-07 0.58940E-18 0.39308E-13 + 1 2 0.10550E-03 0.10000E+01 0.42297E+05 0.37442E-07 0.12924E-17 0.49180E-13 + 1 2 0.10550E-03 0.10000E+01 0.34111E+05 0.46336E-07 0.27655E-17 0.60992E-13 + 1 2 0.10550E-03 0.10000E+01 0.27509E+05 0.56829E-07 0.57731E-17 0.75030E-13 + 1 2 0.10550E-03 0.10000E+01 0.22184E+05 0.69061E-07 0.11835E-16 0.91545E-13 + 1 2 0.10550E-03 0.10000E+01 0.17891E+05 0.83125E-07 0.24430E-16 0.11072E-12 + 1 2 0.10550E-03 0.10000E+01 0.14428E+05 0.99081E-07 0.53854E-16 0.13262E-12 + 1 2 0.10550E-03 0.10000E+01 0.11635E+05 0.11707E-06 0.13711E-15 0.15725E-12 + 1 2 0.10550E-03 0.10000E+01 0.93834E+04 0.13759E-06 0.41459E-15 0.18470E-12 + 1 2 0.10550E-03 0.10000E+01 0.75673E+04 0.16204E-06 0.14120E-14 0.21559E-12 + 1 2 0.10550E-03 0.10000E+01 0.61026E+04 0.19377E-06 0.50468E-14 0.25191E-12 + 1 2 0.10550E-03 0.10000E+01 0.49215E+04 0.23985E-06 0.18149E-13 0.29836E-12 + 1 2 0.10550E-03 0.10000E+01 0.39689E+04 0.31422E-06 0.64654E-13 0.36442E-12 + 1 2 0.10550E-03 0.10000E+01 0.32008E+04 0.44313E-06 0.22805E-12 0.46716E-12 + 1 2 0.10550E-03 0.10000E+01 0.25813E+04 0.67494E-06 0.80032E-12 0.63547E-12 + 1 2 0.10550E-03 0.10000E+01 0.20817E+04 0.10981E-05 0.28036E-11 0.91620E-12 1 2 0.10550E-03 0.10000E+01 0.16788E+04 0.18743E-05 0.98051E-11 0.13840E-11 1 2 0.10550E-03 0.10000E+01 0.13538E+04 0.32994E-05 0.34239E-10 0.21574E-11 1 2 0.10550E-03 0.10000E+01 0.10918E+04 0.59145E-05 0.11962E-09 0.34256E-11 @@ -3040,24 +3040,24 @@ VERSION 2.8.2 1 2 0.10550E-03 0.10000E+01 0.24221E+03 0.36471E-03 0.31742E-06 0.10494E-09 1 2 0.10550E-03 0.10000E+01 0.19533E+03 0.56631E-03 0.60205E-06 0.15655E-09 1 2 0.10550E-03 0.10000E+01 0.15752E+03 0.56631E-03 0.60205E-06 0.15655E-09 - 1 2 0.18409E-03 0.10000E+01 0.80645E+05 0.47729E-50 0.35640E-61 0.62542E-56 - 1 2 0.18409E-03 0.10000E+01 0.65036E+05 0.40314E-49 0.56527E-60 0.52893E-55 - 1 2 0.18409E-03 0.10000E+01 0.52449E+05 0.34208E-48 0.75627E-59 0.44931E-54 - 1 2 0.18409E-03 0.10000E+01 0.42297E+05 0.25646E-47 0.10193E-57 0.33754E-53 - 1 2 0.18409E-03 0.10000E+01 0.34111E+05 0.18374E-46 0.13814E-56 0.24271E-52 - 1 2 0.18409E-03 0.10000E+01 0.27509E+05 0.13047E-45 0.18329E-55 0.17336E-51 - 1 2 0.18409E-03 0.10000E+01 0.22184E+05 0.91268E-45 0.23553E-54 0.12244E-50 - 1 2 0.18409E-03 0.10000E+01 0.17891E+05 0.62191E-44 0.29175E-53 0.84725E-50 - 1 2 0.18409E-03 0.10000E+01 0.14428E+05 0.41013E-43 0.34933E-52 0.57154E-49 - 1 2 0.18409E-03 0.10000E+01 0.11635E+05 0.26162E-42 0.40549E-51 0.37529E-48 - 1 2 0.18409E-03 0.10000E+01 0.93834E+04 0.16172E-41 0.45866E-50 0.23875E-47 - 1 2 0.18409E-03 0.10000E+01 0.75673E+04 0.97513E-41 0.53440E-49 0.14514E-46 - 1 2 0.18409E-03 0.10000E+01 0.61026E+04 0.59841E-40 0.76285E-48 0.83345E-46 - 1 2 0.18409E-03 0.10000E+01 0.49215E+04 0.42583E-39 0.14942E-46 0.47652E-45 - 1 2 0.18409E-03 0.10000E+01 0.39689E+04 0.39877E-38 0.34191E-45 0.33408E-44 - 1 2 0.18409E-03 0.10000E+01 0.32008E+04 0.14241E-35 0.25043E-42 0.10576E-41 - 1 2 0.18409E-03 0.10000E+01 0.25813E+04 0.85660E-27 0.32201E-33 0.64099E-33 - 1 2 0.18409E-03 0.10000E+01 0.20817E+04 0.12286E-10 0.16394E-16 0.93532E-17 + 1 2 0.18409E-03 0.10000E+01 0.80645E+05 0.32296E-07 0.20105E-18 0.42294E-13 + 1 2 0.18409E-03 0.10000E+01 0.65036E+05 0.41395E-07 0.45881E-18 0.54242E-13 + 1 2 0.18409E-03 0.10000E+01 0.52449E+05 0.52295E-07 0.10285E-17 0.68591E-13 + 1 2 0.18409E-03 0.10000E+01 0.42297E+05 0.65334E-07 0.22552E-17 0.85816E-13 + 1 2 0.18409E-03 0.10000E+01 0.34111E+05 0.80853E-07 0.48256E-17 0.10643E-12 + 1 2 0.18409E-03 0.10000E+01 0.27509E+05 0.99163E-07 0.10074E-16 0.13092E-12 + 1 2 0.18409E-03 0.10000E+01 0.22184E+05 0.12051E-06 0.20651E-16 0.15974E-12 + 1 2 0.18409E-03 0.10000E+01 0.17891E+05 0.14505E-06 0.42629E-16 0.19319E-12 + 1 2 0.18409E-03 0.10000E+01 0.14428E+05 0.17289E-06 0.93971E-16 0.23142E-12 + 1 2 0.18409E-03 0.10000E+01 0.11635E+05 0.20428E-06 0.23925E-15 0.27440E-12 + 1 2 0.18409E-03 0.10000E+01 0.93834E+04 0.24009E-06 0.72344E-15 0.32230E-12 + 1 2 0.18409E-03 0.10000E+01 0.75673E+04 0.28275E-06 0.24639E-14 0.37620E-12 + 1 2 0.18409E-03 0.10000E+01 0.61026E+04 0.33811E-06 0.88064E-14 0.43957E-12 + 1 2 0.18409E-03 0.10000E+01 0.49215E+04 0.41852E-06 0.31669E-13 0.52063E-12 + 1 2 0.18409E-03 0.10000E+01 0.39689E+04 0.54829E-06 0.11282E-12 0.63588E-12 + 1 2 0.18409E-03 0.10000E+01 0.32008E+04 0.77323E-06 0.39793E-12 0.81517E-12 + 1 2 0.18409E-03 0.10000E+01 0.25813E+04 0.11777E-05 0.13965E-11 0.11089E-11 + 1 2 0.18409E-03 0.10000E+01 0.20817E+04 0.19161E-05 0.48920E-11 0.15987E-11 1 2 0.18409E-03 0.10000E+01 0.16788E+04 0.32705E-05 0.17109E-10 0.24150E-11 1 2 0.18409E-03 0.10000E+01 0.13538E+04 0.57573E-05 0.59744E-10 0.37645E-11 1 2 0.18409E-03 0.10000E+01 0.10918E+04 0.10321E-04 0.20872E-09 0.59775E-11 @@ -3070,24 +3070,24 @@ VERSION 2.8.2 1 2 0.18409E-03 0.10000E+01 0.24221E+03 0.63640E-03 0.55388E-06 0.18312E-09 1 2 0.18409E-03 0.10000E+01 0.19533E+03 0.98817E-03 0.10505E-05 0.27317E-09 1 2 0.18409E-03 0.10000E+01 0.15752E+03 0.98817E-03 0.10505E-05 0.27317E-09 - 1 2 0.32123E-03 0.10000E+01 0.80645E+05 0.83285E-50 0.62190E-61 0.10913E-55 - 1 2 0.32123E-03 0.10000E+01 0.65036E+05 0.70346E-49 0.98636E-60 0.92296E-55 - 1 2 0.32123E-03 0.10000E+01 0.52449E+05 0.59690E-48 0.13196E-58 0.78403E-54 - 1 2 0.32123E-03 0.10000E+01 0.42297E+05 0.44751E-47 0.17787E-57 0.58900E-53 - 1 2 0.32123E-03 0.10000E+01 0.34111E+05 0.32062E-46 0.24105E-56 0.42352E-52 - 1 2 0.32123E-03 0.10000E+01 0.27509E+05 0.22766E-45 0.31983E-55 0.30250E-51 - 1 2 0.32123E-03 0.10000E+01 0.22184E+05 0.15926E-44 0.41098E-54 0.21365E-50 - 1 2 0.32123E-03 0.10000E+01 0.17891E+05 0.10852E-43 0.50908E-53 0.14784E-49 - 1 2 0.32123E-03 0.10000E+01 0.14428E+05 0.71564E-43 0.60956E-52 0.99730E-49 - 1 2 0.32123E-03 0.10000E+01 0.11635E+05 0.45650E-42 0.70755E-51 0.65487E-48 - 1 2 0.32123E-03 0.10000E+01 0.93834E+04 0.28220E-41 0.80033E-50 0.41661E-47 - 1 2 0.32123E-03 0.10000E+01 0.75673E+04 0.17015E-40 0.93249E-49 0.25326E-46 - 1 2 0.32123E-03 0.10000E+01 0.61026E+04 0.10442E-39 0.13311E-47 0.14543E-45 - 1 2 0.32123E-03 0.10000E+01 0.49215E+04 0.74305E-39 0.26074E-46 0.83149E-45 - 1 2 0.32123E-03 0.10000E+01 0.39689E+04 0.69583E-38 0.59661E-45 0.58295E-44 - 1 2 0.32123E-03 0.10000E+01 0.32008E+04 0.24849E-35 0.43699E-42 0.18455E-41 - 1 2 0.32123E-03 0.10000E+01 0.25813E+04 0.14947E-26 0.56189E-33 0.11185E-32 - 1 2 0.32123E-03 0.10000E+01 0.20817E+04 0.21438E-10 0.28607E-16 0.16321E-16 + 1 2 0.32123E-03 0.10000E+01 0.80645E+05 0.56355E-07 0.35082E-18 0.73801E-13 + 1 2 0.32123E-03 0.10000E+01 0.65036E+05 0.72231E-07 0.80059E-18 0.94649E-13 + 1 2 0.32123E-03 0.10000E+01 0.52449E+05 0.91252E-07 0.17946E-17 0.11969E-12 + 1 2 0.32123E-03 0.10000E+01 0.42297E+05 0.11400E-06 0.39352E-17 0.14974E-12 + 1 2 0.32123E-03 0.10000E+01 0.34111E+05 0.14108E-06 0.84203E-17 0.18571E-12 + 1 2 0.32123E-03 0.10000E+01 0.27509E+05 0.17303E-06 0.17578E-16 0.22845E-12 + 1 2 0.32123E-03 0.10000E+01 0.22184E+05 0.21028E-06 0.36036E-16 0.27874E-12 + 1 2 0.32123E-03 0.10000E+01 0.17891E+05 0.25310E-06 0.74384E-16 0.33711E-12 + 1 2 0.32123E-03 0.10000E+01 0.14428E+05 0.30168E-06 0.16397E-15 0.40381E-12 + 1 2 0.32123E-03 0.10000E+01 0.11635E+05 0.35646E-06 0.41747E-15 0.47881E-12 + 1 2 0.32123E-03 0.10000E+01 0.93834E+04 0.41894E-06 0.12624E-14 0.56239E-12 + 1 2 0.32123E-03 0.10000E+01 0.75673E+04 0.49339E-06 0.42993E-14 0.65644E-12 + 1 2 0.32123E-03 0.10000E+01 0.61026E+04 0.58999E-06 0.15367E-13 0.76702E-12 + 1 2 0.32123E-03 0.10000E+01 0.49215E+04 0.73029E-06 0.55260E-13 0.90846E-12 + 1 2 0.32123E-03 0.10000E+01 0.39689E+04 0.95673E-06 0.19686E-12 0.11096E-11 + 1 2 0.32123E-03 0.10000E+01 0.32008E+04 0.13492E-05 0.69437E-12 0.14224E-11 + 1 2 0.32123E-03 0.10000E+01 0.25813E+04 0.20551E-05 0.24368E-11 0.19349E-11 + 1 2 0.32123E-03 0.10000E+01 0.20817E+04 0.33435E-05 0.85363E-11 0.27897E-11 1 2 0.32123E-03 0.10000E+01 0.16788E+04 0.57068E-05 0.29855E-10 0.42141E-11 1 2 0.32123E-03 0.10000E+01 0.13538E+04 0.10046E-04 0.10425E-09 0.65689E-11 1 2 0.32123E-03 0.10000E+01 0.10918E+04 0.18009E-04 0.36421E-09 0.10430E-10 @@ -3150,24 +3150,24 @@ VERSION 2.8.2 1 3 0.10550E-03 0.10000E+01 0.96583E+00 0.17425E+01 0.16179E+00 0.14936E-02 0.23889E+00 0.90885E-04 0.46642E+10 0.22975E+03 0.50000E+03 0.12580E-14 0.11209E-01 0.60775E-02 0.23899E+02 1 3 0.18409E-03 0.10000E+01 0.96583E+00 0.17425E+01 0.49262E+00 0.26062E-02 0.41685E+00 0.90885E-04 0.81388E+10 0.40090E+03 0.50000E+03 0.21952E-14 0.19559E-01 0.60775E-02 0.23899E+02 1 3 0.32123E-03 0.10000E+01 0.96583E+00 0.17425E+01 0.15000E+01 0.45477E-02 0.72738E+00 0.90885E-04 0.14202E+11 0.69954E+03 0.50000E+03 0.38305E-14 0.34130E-01 0.60775E-02 0.23899E+02 - 1 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 1 3 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 1 3 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 1 3 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 1 3 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 1 3 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 1 3 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 1 3 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 1 3 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 1 3 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 1 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 1 3 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 1 3 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 1 3 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 1 3 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 1 3 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 1 3 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 1 3 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 1 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 1 3 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 1 3 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 1 3 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 1 3 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 1 3 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 1 3 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 1 3 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 1 3 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 1 3 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 1 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 1 3 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 1 3 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 1 3 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 1 3 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 1 3 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 1 3 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 1 3 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 1 3 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 1 3 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 1 3 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -3180,24 +3180,24 @@ VERSION 2.8.2 1 3 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 1 3 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 1 3 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 1 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 1 3 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 1 3 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 1 3 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 1 3 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 1 3 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 1 3 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 1 3 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 1 3 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 1 3 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 1 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 1 3 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 1 3 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 1 3 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 1 3 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 1 3 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 1 3 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 1 3 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 1 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 1 3 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 1 3 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 1 3 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 1 3 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 1 3 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 1 3 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 1 3 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 1 3 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 1 3 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 1 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 1 3 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 1 3 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 1 3 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 1 3 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 1 3 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 1 3 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 1 3 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 1 3 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 1 3 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 1 3 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -3210,24 +3210,24 @@ VERSION 2.8.2 1 3 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 1 3 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 1 3 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 1 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 1 3 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 1 3 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 1 3 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 1 3 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 1 3 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 1 3 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 1 3 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 1 3 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 1 3 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 1 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 1 3 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 1 3 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 1 3 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 1 3 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 1 3 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 1 3 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 1 3 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 1 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 1 3 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 1 3 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 1 3 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 1 3 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 1 3 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 1 3 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 1 3 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 1 3 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 1 3 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 1 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 1 3 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 1 3 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 1 3 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 1 3 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 1 3 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 1 3 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 1 3 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 1 3 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 1 3 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 1 3 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -3240,24 +3240,24 @@ VERSION 2.8.2 1 3 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 1 3 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 1 3 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 1 3 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 1 3 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 1 3 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 1 3 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 1 3 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 1 3 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 1 3 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 1 3 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 1 3 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 1 3 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 1 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 1 3 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 1 3 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 1 3 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 1 3 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 1 3 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 1 3 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 1 3 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 1 3 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 1 3 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 1 3 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 1 3 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 1 3 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 1 3 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 1 3 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 1 3 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 1 3 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 1 3 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 1 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 1 3 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 1 3 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 1 3 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 1 3 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 1 3 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 1 3 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 1 3 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 1 3 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 1 3 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 1 3 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -3270,24 +3270,24 @@ VERSION 2.8.2 1 3 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 1 3 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 1 3 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 1 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 1 3 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 1 3 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 1 3 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 1 3 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 1 3 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 1 3 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 1 3 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 1 3 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 1 3 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 1 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 1 3 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 1 3 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 1 3 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 1 3 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 1 3 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 1 3 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 1 3 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 1 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 1 3 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 1 3 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 1 3 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 1 3 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 1 3 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 1 3 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 1 3 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 1 3 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 1 3 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 1 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 1 3 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 1 3 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 1 3 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 1 3 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 1 3 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 1 3 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 1 3 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 1 3 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 1 3 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 1 3 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -3300,24 +3300,24 @@ VERSION 2.8.2 1 3 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 1 3 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 1 3 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 1 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 1 3 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 1 3 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 1 3 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 1 3 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 1 3 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 1 3 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 1 3 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 1 3 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 1 3 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 1 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 1 3 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 1 3 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 1 3 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 1 3 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 1 3 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 1 3 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 1 3 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 1 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 1 3 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 1 3 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 1 3 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 1 3 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 1 3 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 1 3 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 1 3 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 1 3 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 1 3 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 1 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 1 3 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 1 3 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 1 3 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 1 3 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 1 3 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 1 3 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 1 3 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 1 3 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 1 3 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 1 3 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -3330,24 +3330,24 @@ VERSION 2.8.2 1 3 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 1 3 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 1 3 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 1 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 1 3 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 1 3 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 1 3 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 1 3 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 1 3 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 1 3 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 1 3 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 1 3 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 1 3 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 1 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 1 3 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 1 3 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 1 3 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 1 3 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 1 3 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 1 3 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 1 3 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 1 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 1 3 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 1 3 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 1 3 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 1 3 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 1 3 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 1 3 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 1 3 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 1 3 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 1 3 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 1 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 1 3 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 1 3 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 1 3 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 1 3 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 1 3 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 1 3 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 1 3 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 1 3 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 1 3 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 1 3 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -3360,24 +3360,24 @@ VERSION 2.8.2 1 3 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 1 3 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 1 3 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 1 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 1 3 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 1 3 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 1 3 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 1 3 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 1 3 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 1 3 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 1 3 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 1 3 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 1 3 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 1 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 1 3 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 1 3 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 1 3 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 1 3 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 1 3 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 1 3 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 1 3 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 1 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 1 3 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 1 3 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 1 3 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 1 3 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 1 3 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 1 3 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 1 3 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 1 3 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 1 3 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 1 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 1 3 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 1 3 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 1 3 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 1 3 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 1 3 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 1 3 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 1 3 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 1 3 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 1 3 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 1 3 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -3390,24 +3390,24 @@ VERSION 2.8.2 1 3 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 1 3 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 1 3 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 1 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 1 3 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 1 3 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 1 3 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 1 3 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 1 3 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 1 3 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 1 3 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 1 3 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 1 3 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 1 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 1 3 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 1 3 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 1 3 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 1 3 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 1 3 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 1 3 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 1 3 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 1 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 1 3 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 1 3 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 1 3 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 1 3 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 1 3 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 1 3 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 1 3 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 1 3 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 1 3 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 1 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 1 3 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 1 3 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 1 3 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 1 3 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 1 3 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 1 3 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 1 3 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 1 3 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 1 3 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 1 3 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -3420,24 +3420,24 @@ VERSION 2.8.2 1 3 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 1 3 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 1 3 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 1 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 1 3 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 1 3 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 1 3 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 1 3 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 1 3 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 1 3 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 1 3 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 1 3 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 1 3 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 1 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 1 3 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 1 3 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 1 3 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 1 3 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 1 3 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 1 3 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 1 3 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 1 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 1 3 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 1 3 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 1 3 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 1 3 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 1 3 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 1 3 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 1 3 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 1 3 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 1 3 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 1 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 1 3 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 1 3 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 1 3 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 1 3 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 1 3 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 1 3 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 1 3 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 1 3 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 1 3 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 1 3 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -3450,24 +3450,24 @@ VERSION 2.8.2 1 3 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 1 3 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 1 3 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 1 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 1 3 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 1 3 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 1 3 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 1 3 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 1 3 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 1 3 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 1 3 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 1 3 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 1 3 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 1 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 1 3 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 1 3 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 1 3 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 1 3 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 1 3 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 1 3 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 1 3 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 1 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 1 3 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 1 3 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 1 3 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 1 3 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 1 3 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 1 3 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 1 3 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 1 3 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 1 3 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 1 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 1 3 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 1 3 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 1 3 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 1 3 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 1 3 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 1 3 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 1 3 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 1 3 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 1 3 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 1 3 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -3480,24 +3480,24 @@ VERSION 2.8.2 1 3 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 1 3 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 1 3 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 1 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 1 3 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 1 3 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 1 3 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 1 3 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 1 3 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 1 3 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 1 3 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 1 3 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 1 3 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 1 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 1 3 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 1 3 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 1 3 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 1 3 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 1 3 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 1 3 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 1 3 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 1 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 1 3 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 1 3 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 1 3 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 1 3 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 1 3 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 1 3 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 1 3 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 1 3 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 1 3 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 1 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 1 3 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 1 3 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 1 3 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 1 3 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 1 3 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 1 3 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 1 3 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 1 3 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 1 3 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 1 3 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -3510,24 +3510,24 @@ VERSION 2.8.2 1 3 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 1 3 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 1 3 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 1 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 1 3 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 1 3 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 1 3 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 1 3 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 1 3 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 1 3 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 1 3 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 1 3 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 1 3 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 1 3 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 1 3 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 1 3 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 1 3 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 1 3 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 1 3 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 1 3 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 1 3 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 1 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 1 3 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 1 3 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 1 3 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 1 3 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 1 3 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 1 3 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 1 3 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 1 3 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 1 3 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 1 3 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 1 3 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 1 3 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 1 3 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 1 3 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 1 3 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 1 3 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 1 3 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 1 3 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 1 3 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 1 3 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -3540,24 +3540,24 @@ VERSION 2.8.2 1 3 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 1 3 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 1 3 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 1 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 1 3 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 1 3 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 1 3 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 1 3 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 1 3 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 1 3 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 1 3 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 1 3 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 1 3 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 1 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 1 3 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 1 3 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 1 3 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 1 3 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 1 3 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 1 3 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 1 3 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 1 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 1 3 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 1 3 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 1 3 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 1 3 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 1 3 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 1 3 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 1 3 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 1 3 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 1 3 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 1 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 1 3 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 1 3 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 1 3 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 1 3 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 1 3 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 1 3 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 1 3 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 1 3 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 1 3 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 1 3 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -3570,24 +3570,24 @@ VERSION 2.8.2 1 3 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 1 3 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 1 3 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 1 3 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 1 3 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 1 3 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 1 3 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 1 3 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 1 3 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 1 3 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 1 3 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 1 3 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 1 3 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 1 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 1 3 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 1 3 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 1 3 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 1 3 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 1 3 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 1 3 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 1 3 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 1 3 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 1 3 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 1 3 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 1 3 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 1 3 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 1 3 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 1 3 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 1 3 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 1 3 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 1 3 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 1 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 1 3 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 1 3 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 1 3 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 1 3 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 1 3 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 1 3 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 1 3 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 1 3 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 1 3 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 1 3 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -3600,24 +3600,24 @@ VERSION 2.8.2 1 3 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 1 3 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 1 3 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 1 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 1 3 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 1 3 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 1 3 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 1 3 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 1 3 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 1 3 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 1 3 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 1 3 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 1 3 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 1 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 1 3 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 1 3 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 1 3 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 1 3 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 1 3 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 1 3 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 1 3 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 1 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 1 3 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 1 3 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 1 3 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 1 3 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 1 3 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 1 3 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 1 3 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 1 3 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 1 3 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 1 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 1 3 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 1 3 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 1 3 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 1 3 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 1 3 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 1 3 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 1 3 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 1 3 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 1 3 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 1 3 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -3630,24 +3630,24 @@ VERSION 2.8.2 1 3 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 1 3 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 1 3 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 1 3 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 1 3 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 1 3 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 1 3 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 1 3 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 1 3 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 1 3 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 1 3 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 1 3 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 1 3 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 1 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 1 3 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 1 3 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 1 3 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 1 3 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 1 3 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 1 3 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 1 3 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 1 3 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 1 3 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 1 3 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 1 3 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 1 3 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 1 3 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 1 3 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 1 3 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 1 3 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 1 3 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 1 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 1 3 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 1 3 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 1 3 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 1 3 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 1 3 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 1 3 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 1 3 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 1 3 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 1 3 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 1 3 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -3660,24 +3660,24 @@ VERSION 2.8.2 1 3 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 1 3 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 1 3 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 1 3 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 1 3 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 1 3 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 1 3 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 1 3 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 1 3 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 1 3 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 1 3 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 1 3 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 1 3 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 1 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 1 3 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 1 3 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 1 3 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 1 3 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 1 3 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 1 3 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 1 3 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 1 3 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 1 3 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 1 3 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 1 3 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 1 3 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 1 3 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 1 3 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 1 3 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 1 3 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 1 3 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 1 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 1 3 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 1 3 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 1 3 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 1 3 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 1 3 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 1 3 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 1 3 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 1 3 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 1 3 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 1 3 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -3690,24 +3690,24 @@ VERSION 2.8.2 1 3 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 1 3 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 1 3 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 1 3 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 1 3 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 1 3 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 1 3 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 1 3 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 1 3 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 1 3 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 1 3 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 1 3 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 1 3 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 1 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 1 3 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 1 3 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 1 3 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 1 3 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 1 3 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 1 3 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 1 3 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 1 3 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 1 3 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 1 3 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 1 3 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 1 3 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 1 3 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 1 3 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 1 3 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 1 3 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 1 3 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 1 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 1 3 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 1 3 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 1 3 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 1 3 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 1 3 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 1 3 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 1 3 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 1 3 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 1 3 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 1 3 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -3720,24 +3720,24 @@ VERSION 2.8.2 1 3 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 1 3 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 1 3 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 1 3 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 1 3 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 1 3 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 1 3 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 1 3 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 1 3 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 1 3 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 1 3 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 1 3 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 1 3 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 1 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 1 3 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 1 3 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 1 3 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 1 3 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 1 3 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 1 3 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 1 3 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 1 3 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 1 3 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 1 3 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 1 3 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 1 3 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 1 3 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 1 3 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 1 3 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 1 3 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 1 3 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 1 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 1 3 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 1 3 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 1 3 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 1 3 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 1 3 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 1 3 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 1 3 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 1 3 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 1 3 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 1 3 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -3750,24 +3750,24 @@ VERSION 2.8.2 1 3 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 1 3 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 1 3 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 1 3 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 1 3 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 1 3 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 1 3 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 1 3 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 1 3 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 1 3 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 1 3 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 1 3 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 1 3 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 1 3 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 1 3 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 1 3 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 1 3 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 1 3 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 1 3 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 1 3 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 1 3 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 1 3 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 1 3 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 1 3 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 1 3 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 1 3 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 1 3 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 1 3 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 1 3 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 1 3 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 1 3 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 1 3 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 1 3 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 1 3 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 1 3 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 1 3 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 1 3 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 1 3 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 1 3 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 1 3 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 1 3 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 1 3 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -3780,24 +3780,24 @@ VERSION 2.8.2 1 3 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 1 3 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 1 3 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 1 3 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 1 3 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 1 3 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 1 3 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 1 3 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 1 3 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 1 3 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 1 3 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 1 3 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 1 3 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 1 3 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 1 3 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 1 3 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 1 3 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 1 3 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 1 3 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 1 3 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 1 3 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 1 3 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 1 3 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 1 3 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 1 3 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 1 3 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 1 3 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 1 3 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 1 3 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 1 3 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 1 3 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 1 3 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 1 3 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 1 3 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 1 3 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 1 3 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 1 3 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 1 3 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 1 3 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 1 3 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 1 3 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 1 3 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -3810,24 +3810,24 @@ VERSION 2.8.2 1 3 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 1 3 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 1 3 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 1 3 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 1 3 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 1 3 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 1 3 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 1 3 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 1 3 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 1 3 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 1 3 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 1 3 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 1 3 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 1 3 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 1 3 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 1 3 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 1 3 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 1 3 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 1 3 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 1 3 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 1 3 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 1 3 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 1 3 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 1 3 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 1 3 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 1 3 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 1 3 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 1 3 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 1 3 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 1 3 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 1 3 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 1 3 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 1 3 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 1 3 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 1 3 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 1 3 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 1 3 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 1 3 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 1 3 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 1 3 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 1 3 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 1 3 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -3840,24 +3840,24 @@ VERSION 2.8.2 1 3 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 1 3 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 1 3 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 1 3 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 1 3 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 1 3 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 1 3 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 1 3 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 1 3 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 1 3 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 1 3 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 1 3 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 1 3 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 1 3 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 1 3 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 1 3 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 1 3 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 1 3 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 1 3 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 1 3 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 1 3 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 1 3 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 1 3 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 1 3 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 1 3 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 1 3 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 1 3 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 1 3 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 1 3 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 1 3 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 1 3 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 1 3 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 1 3 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 1 3 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 1 3 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 1 3 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 1 3 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 1 3 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 1 3 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 1 3 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 1 3 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 1 3 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -3870,24 +3870,24 @@ VERSION 2.8.2 1 3 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 1 3 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 1 3 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 1 3 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 1 3 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 1 3 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 1 3 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 1 3 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 1 3 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 1 3 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 1 3 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 1 3 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 1 3 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 1 3 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 1 3 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 1 3 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 1 3 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 1 3 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 1 3 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 1 3 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 1 3 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 1 3 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 1 3 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 1 3 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 1 3 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 1 3 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 1 3 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 1 3 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 1 3 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 1 3 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 1 3 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 1 3 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 1 3 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 1 3 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 1 3 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 1 3 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 1 3 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 1 3 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 1 3 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 1 3 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 1 3 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 1 3 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -3900,24 +3900,24 @@ VERSION 2.8.2 1 3 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 1 3 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 1 3 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 1 3 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 1 3 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 1 3 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 1 3 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 1 3 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 1 3 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 1 3 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 1 3 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 1 3 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 1 3 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 1 3 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 1 3 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 1 3 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 1 3 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 1 3 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 1 3 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 1 3 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 1 3 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 1 3 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 1 3 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 1 3 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 1 3 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 1 3 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 1 3 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 1 3 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 1 3 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 1 3 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 1 3 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 1 3 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 1 3 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 1 3 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 1 3 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 1 3 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 1 3 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 1 3 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 1 3 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 1 3 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 1 3 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 1 3 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -3930,24 +3930,24 @@ VERSION 2.8.2 1 3 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 1 3 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 1 3 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 1 3 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 1 3 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 1 3 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 1 3 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 1 3 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 1 3 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 1 3 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 1 3 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 1 3 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 1 3 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 1 3 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 1 3 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 1 3 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 1 3 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 1 3 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 1 3 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 1 3 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 1 3 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 1 3 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 1 3 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 1 3 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 1 3 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 1 3 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 1 3 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 1 3 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 1 3 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 1 3 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 1 3 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 1 3 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 1 3 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 1 3 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 1 3 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 1 3 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 1 3 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 1 3 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 1 3 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 1 3 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 1 3 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 1 3 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -3960,24 +3960,24 @@ VERSION 2.8.2 1 3 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 1 3 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 1 3 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 1 3 0.15405E-08 0.10000E+01 0.80645E+05 0.22620E-55 0.16864E-66 0.23703E-63 - 1 3 0.15405E-08 0.10000E+01 0.65036E+05 0.19081E-54 0.26706E-65 0.19937E-62 - 1 3 0.15405E-08 0.10000E+01 0.52449E+05 0.16165E-53 0.35581E-64 0.16853E-61 - 1 3 0.15405E-08 0.10000E+01 0.42297E+05 0.12078E-52 0.47552E-63 0.12545E-60 - 1 3 0.15405E-08 0.10000E+01 0.34111E+05 0.85908E-52 0.63408E-62 0.88694E-60 - 1 3 0.15405E-08 0.10000E+01 0.27509E+05 0.60167E-51 0.81948E-61 0.61536E-59 - 1 3 0.15405E-08 0.10000E+01 0.22184E+05 0.41204E-50 0.10373E-59 0.41308E-58 - 1 3 0.15405E-08 0.10000E+01 0.17891E+05 0.27762E-49 0.14102E-58 0.26202E-57 - 1 3 0.15405E-08 0.10000E+01 0.14428E+05 0.19712E-48 0.24653E-57 0.15531E-56 - 1 3 0.15405E-08 0.10000E+01 0.11635E+05 0.17148E-47 0.58223E-56 0.90013E-56 - 1 3 0.15405E-08 0.10000E+01 0.93834E+04 0.19859E-46 0.15915E-54 0.61112E-55 - 1 3 0.15405E-08 0.10000E+01 0.75673E+04 0.27465E-45 0.44565E-53 0.60167E-54 - 1 3 0.15405E-08 0.10000E+01 0.61026E+04 0.39916E-44 0.12353E-51 0.77885E-53 - 1 3 0.15405E-08 0.10000E+01 0.49215E+04 0.57973E-43 0.33877E-50 0.10787E-51 - 1 3 0.15405E-08 0.10000E+01 0.39689E+04 0.83470E-42 0.92343E-49 0.14869E-50 - 1 3 0.15405E-08 0.10000E+01 0.32008E+04 0.37570E-39 0.81189E-46 0.63957E-48 - 1 3 0.15405E-08 0.10000E+01 0.25813E+04 0.27921E-30 0.13824E-36 0.45542E-39 - 1 3 0.15405E-08 0.10000E+01 0.20817E+04 0.53954E-14 0.11910E-19 0.84600E-23 + 1 3 0.15405E-08 0.10000E+01 0.80645E+05 0.15310E-12 0.93528E-24 0.16069E-20 + 1 3 0.15405E-08 0.10000E+01 0.65036E+05 0.19604E-12 0.21159E-23 0.20552E-20 + 1 3 0.15405E-08 0.10000E+01 0.52449E+05 0.24730E-12 0.47782E-23 0.25876E-20 + 1 3 0.15405E-08 0.10000E+01 0.42297E+05 0.30839E-12 0.11255E-22 0.32158E-20 + 1 3 0.15405E-08 0.10000E+01 0.34111E+05 0.38139E-12 0.30174E-22 0.39487E-20 + 1 3 0.15405E-08 0.10000E+01 0.27509E+05 0.47028E-12 0.99560E-22 0.47923E-20 + 1 3 0.15405E-08 0.10000E+01 0.22184E+05 0.58503E-12 0.39623E-21 0.57555E-20 + 1 3 0.15405E-08 0.10000E+01 0.17891E+05 0.75210E-12 0.17441E-20 0.68696E-20 + 1 3 0.15405E-08 0.10000E+01 0.14428E+05 0.10398E-11 0.79522E-20 0.82368E-20 + 1 3 0.15405E-08 0.10000E+01 0.11635E+05 0.16192E-11 0.36515E-19 0.10138E-19 + 1 3 0.15405E-08 0.10000E+01 0.93834E+04 0.29080E-11 0.16739E-18 0.13273E-19 + 1 3 0.15405E-08 0.10000E+01 0.75673E+04 0.59143E-11 0.76321E-18 0.19304E-19 + 1 3 0.15405E-08 0.10000E+01 0.61026E+04 0.13048E-10 0.34409E-17 0.32103E-19 + 1 3 0.15405E-08 0.10000E+01 0.49215E+04 0.29993E-10 0.15221E-16 0.60599E-19 + 1 3 0.15405E-08 0.10000E+01 0.39689E+04 0.69882E-10 0.65711E-16 0.12506E-18 + 1 3 0.15405E-08 0.10000E+01 0.32008E+04 0.16226E-09 0.27659E-15 0.27053E-18 + 1 3 0.15405E-08 0.10000E+01 0.25813E+04 0.37180E-09 0.11355E-14 0.59469E-18 + 1 3 0.15405E-08 0.10000E+01 0.20817E+04 0.83637E-09 0.45427E-14 0.13047E-17 1 3 0.15405E-08 0.10000E+01 0.16788E+04 0.18422E-08 0.17695E-13 0.28286E-17 1 3 0.15405E-08 0.10000E+01 0.13538E+04 0.39671E-08 0.67265E-13 0.60285E-17 1 3 0.15405E-08 0.10000E+01 0.10918E+04 0.83484E-08 0.25089E-12 0.12597E-16 @@ -3990,24 +3990,24 @@ VERSION 2.8.2 1 3 0.15405E-08 0.10000E+01 0.24221E+03 0.83294E-06 0.76841E-09 0.12353E-14 1 3 0.15405E-08 0.10000E+01 0.19533E+03 0.13127E-05 0.14602E-08 0.19459E-14 1 3 0.15405E-08 0.10000E+01 0.15752E+03 0.13127E-05 0.14602E-08 0.19459E-14 - 1 3 0.26880E-08 0.10000E+01 0.80645E+05 0.47006E-55 0.34964E-66 0.12965E-62 - 1 3 0.26880E-08 0.10000E+01 0.65036E+05 0.39578E-54 0.55302E-65 0.10897E-61 - 1 3 0.26880E-08 0.10000E+01 0.52449E+05 0.33482E-53 0.73466E-64 0.92058E-61 - 1 3 0.26880E-08 0.10000E+01 0.42297E+05 0.24957E-52 0.97749E-63 0.68466E-60 - 1 3 0.26880E-08 0.10000E+01 0.34111E+05 0.17685E-51 0.12954E-61 0.48342E-59 - 1 3 0.26880E-08 0.10000E+01 0.27509E+05 0.12315E-50 0.16528E-60 0.33492E-58 - 1 3 0.26880E-08 0.10000E+01 0.22184E+05 0.83349E-50 0.20083E-59 0.22462E-57 - 1 3 0.26880E-08 0.10000E+01 0.17891E+05 0.54253E-49 0.24200E-58 0.14251E-56 - 1 3 0.26880E-08 0.10000E+01 0.14428E+05 0.34916E-48 0.33952E-57 0.84343E-56 - 1 3 0.26880E-08 0.10000E+01 0.11635E+05 0.25040E-47 0.66759E-56 0.47815E-55 - 1 3 0.26880E-08 0.10000E+01 0.93834E+04 0.23827E-46 0.17057E-54 0.29526E-54 - 1 3 0.26880E-08 0.10000E+01 0.75673E+04 0.29940E-45 0.46972E-53 0.24503E-53 - 1 3 0.26880E-08 0.10000E+01 0.61026E+04 0.42228E-44 0.12894E-51 0.27461E-52 - 1 3 0.26880E-08 0.10000E+01 0.49215E+04 0.60549E-43 0.34976E-50 0.34354E-51 - 1 3 0.26880E-08 0.10000E+01 0.39689E+04 0.86222E-42 0.94322E-49 0.43193E-50 - 1 3 0.26880E-08 0.10000E+01 0.32008E+04 0.38396E-39 0.82165E-46 0.16890E-47 - 1 3 0.26880E-08 0.10000E+01 0.25813E+04 0.28261E-30 0.13877E-36 0.10865E-38 - 1 3 0.26880E-08 0.10000E+01 0.20817E+04 0.54136E-14 0.11863E-19 0.17980E-22 + 1 3 0.26880E-08 0.10000E+01 0.80645E+05 0.31848E-12 0.19208E-23 0.87923E-20 + 1 3 0.26880E-08 0.10000E+01 0.65036E+05 0.40751E-12 0.42969E-23 0.11243E-19 + 1 3 0.26880E-08 0.10000E+01 0.52449E+05 0.51345E-12 0.94306E-23 0.14151E-19 + 1 3 0.26880E-08 0.10000E+01 0.42297E+05 0.63895E-12 0.20727E-22 0.17579E-19 + 1 3 0.26880E-08 0.10000E+01 0.34111E+05 0.78681E-12 0.48570E-22 0.21576E-19 + 1 3 0.26880E-08 0.10000E+01 0.27509E+05 0.96107E-12 0.13442E-21 0.26164E-19 + 1 3 0.26880E-08 0.10000E+01 0.22184E+05 0.11711E-11 0.46489E-21 0.31362E-19 + 1 3 0.26880E-08 0.10000E+01 0.17891E+05 0.14425E-11 0.18985E-20 0.37242E-19 + 1 3 0.26880E-08 0.10000E+01 0.14428E+05 0.18437E-11 0.83628E-20 0.44076E-19 + 1 3 0.26880E-08 0.10000E+01 0.11635E+05 0.25487E-11 0.37722E-19 0.52630E-19 + 1 3 0.26880E-08 0.10000E+01 0.93834E+04 0.39834E-11 0.17094E-18 0.64748E-19 + 1 3 0.26880E-08 0.10000E+01 0.75673E+04 0.71708E-11 0.77289E-18 0.84537E-19 + 1 3 0.26880E-08 0.10000E+01 0.61026E+04 0.14542E-10 0.34631E-17 0.12089E-18 + 1 3 0.26880E-08 0.10000E+01 0.49215E+04 0.31803E-10 0.15251E-16 0.19294E-18 + 1 3 0.26880E-08 0.10000E+01 0.39689E+04 0.72087E-10 0.65634E-16 0.34169E-18 + 1 3 0.26880E-08 0.10000E+01 0.32008E+04 0.16486E-09 0.27564E-15 0.65426E-18 + 1 3 0.26880E-08 0.10000E+01 0.25813E+04 0.37449E-09 0.11299E-14 0.13134E-17 + 1 3 0.26880E-08 0.10000E+01 0.20817E+04 0.83806E-09 0.45153E-14 0.26974E-17 1 3 0.26880E-08 0.10000E+01 0.16788E+04 0.18398E-08 0.17575E-13 0.55750E-17 1 3 0.26880E-08 0.10000E+01 0.13538E+04 0.39534E-08 0.66770E-13 0.11475E-16 1 3 0.26880E-08 0.10000E+01 0.10918E+04 0.83073E-08 0.24894E-12 0.23377E-16 @@ -4020,24 +4020,24 @@ VERSION 2.8.2 1 3 0.26880E-08 0.10000E+01 0.24221E+03 0.82594E-06 0.76167E-09 0.21563E-14 1 3 0.26880E-08 0.10000E+01 0.19533E+03 0.13016E-05 0.14474E-08 0.33915E-14 1 3 0.26880E-08 0.10000E+01 0.15752E+03 0.13016E-05 0.14474E-08 0.33915E-14 - 1 3 0.46905E-08 0.10000E+01 0.80645E+05 0.94304E-55 0.70058E-66 0.55234E-62 - 1 3 0.46905E-08 0.10000E+01 0.65036E+05 0.79323E-54 0.11074E-64 0.46463E-61 - 1 3 0.46905E-08 0.10000E+01 0.52449E+05 0.67053E-53 0.14687E-63 0.39283E-60 - 1 3 0.46905E-08 0.10000E+01 0.42297E+05 0.49915E-52 0.19493E-62 0.29257E-59 - 1 3 0.46905E-08 0.10000E+01 0.34111E+05 0.35295E-51 0.25743E-61 0.20714E-58 - 1 3 0.46905E-08 0.10000E+01 0.27509E+05 0.24500E-50 0.32630E-60 0.14419E-57 - 1 3 0.46905E-08 0.10000E+01 0.22184E+05 0.16483E-49 0.38892E-59 0.97546E-57 - 1 3 0.46905E-08 0.10000E+01 0.17891E+05 0.10557E-48 0.44067E-58 0.62839E-56 - 1 3 0.46905E-08 0.10000E+01 0.14428E+05 0.64692E-48 0.53252E-57 0.38025E-55 - 1 3 0.46905E-08 0.10000E+01 0.11635E+05 0.41071E-47 0.86809E-56 0.21873E-54 - 1 3 0.46905E-08 0.10000E+01 0.93834E+04 0.32617E-46 0.20055E-54 0.12907E-53 - 1 3 0.46905E-08 0.10000E+01 0.75673E+04 0.36079E-45 0.53297E-53 0.92525E-53 - 1 3 0.46905E-08 0.10000E+01 0.61026E+04 0.48234E-44 0.14307E-51 0.89592E-52 - 1 3 0.46905E-08 0.10000E+01 0.49215E+04 0.67297E-43 0.37937E-50 0.10381E-50 - 1 3 0.46905E-08 0.10000E+01 0.39689E+04 0.93648E-42 0.10010E-48 0.12466E-49 - 1 3 0.46905E-08 0.10000E+01 0.32008E+04 0.40801E-39 0.85540E-46 0.46364E-47 - 1 3 0.46905E-08 0.10000E+01 0.25813E+04 0.29431E-30 0.14194E-36 0.27817E-38 - 1 3 0.46905E-08 0.10000E+01 0.20817E+04 0.55308E-14 0.11922E-19 0.41446E-22 + 1 3 0.46905E-08 0.10000E+01 0.80645E+05 0.63928E-12 0.38292E-23 0.37445E-19 + 1 3 0.46905E-08 0.10000E+01 0.65036E+05 0.81767E-12 0.85202E-23 0.47900E-19 + 1 3 0.46905E-08 0.10000E+01 0.52449E+05 0.10296E-11 0.18454E-22 0.60331E-19 + 1 3 0.46905E-08 0.10000E+01 0.42297E+05 0.12799E-11 0.39208E-22 0.75027E-19 + 1 3 0.46905E-08 0.10000E+01 0.34111E+05 0.15729E-11 0.85021E-22 0.92219E-19 + 1 3 0.46905E-08 0.10000E+01 0.27509E+05 0.19131E-11 0.20579E-21 0.11205E-18 + 1 3 0.46905E-08 0.10000E+01 0.22184E+05 0.23091E-11 0.61382E-21 0.13457E-18 + 1 3 0.46905E-08 0.10000E+01 0.17891E+05 0.27862E-11 0.22591E-20 0.15993E-18 + 1 3 0.46905E-08 0.10000E+01 0.14428E+05 0.34158E-11 0.93936E-20 0.18879E-18 + 1 3 0.46905E-08 0.10000E+01 0.11635E+05 0.43823E-11 0.40966E-19 0.22311E-18 + 1 3 0.46905E-08 0.10000E+01 0.93834E+04 0.61369E-11 0.18137E-18 0.26775E-18 + 1 3 0.46905E-08 0.10000E+01 0.75673E+04 0.97516E-11 0.80568E-18 0.33332E-18 + 1 3 0.46905E-08 0.10000E+01 0.61026E+04 0.17741E-10 0.35622E-17 0.44174E-18 + 1 3 0.46905E-08 0.10000E+01 0.49215E+04 0.35941E-10 0.15534E-16 0.63746E-18 + 1 3 0.46905E-08 0.10000E+01 0.39689E+04 0.77668E-10 0.66378E-16 0.10101E-17 + 1 3 0.46905E-08 0.10000E+01 0.32008E+04 0.17262E-09 0.27736E-15 0.17397E-17 + 1 3 0.46905E-08 0.10000E+01 0.25813E+04 0.38539E-09 0.11329E-14 0.31868E-17 + 1 3 0.46905E-08 0.10000E+01 0.20817E+04 0.85313E-09 0.45157E-14 0.60701E-17 1 3 0.46905E-08 0.10000E+01 0.16788E+04 0.18597E-08 0.17545E-13 0.11810E-16 1 3 0.46905E-08 0.10000E+01 0.13538E+04 0.39770E-08 0.66571E-13 0.23178E-16 1 3 0.46905E-08 0.10000E+01 0.10918E+04 0.83290E-08 0.24796E-12 0.45495E-16 @@ -4050,24 +4050,24 @@ VERSION 2.8.2 1 3 0.46905E-08 0.10000E+01 0.24221E+03 0.82169E-06 0.75716E-09 0.37967E-14 1 3 0.46905E-08 0.10000E+01 0.19533E+03 0.12946E-05 0.14388E-08 0.59555E-14 1 3 0.46905E-08 0.10000E+01 0.15752E+03 0.12946E-05 0.14388E-08 0.59555E-14 - 1 3 0.81846E-08 0.10000E+01 0.80645E+05 0.18327E-54 0.13611E-65 0.20472E-61 - 1 3 0.81846E-08 0.10000E+01 0.65036E+05 0.15412E-53 0.21511E-64 0.17242E-60 - 1 3 0.81846E-08 0.10000E+01 0.52449E+05 0.13026E-52 0.28523E-63 0.14593E-59 - 1 3 0.81846E-08 0.10000E+01 0.42297E+05 0.96944E-52 0.37845E-62 0.10890E-58 - 1 3 0.81846E-08 0.10000E+01 0.34111E+05 0.68532E-51 0.49977E-61 0.77371E-58 - 1 3 0.81846E-08 0.10000E+01 0.27509E+05 0.47567E-50 0.63366E-60 0.54185E-57 - 1 3 0.81846E-08 0.10000E+01 0.22184E+05 0.32004E-49 0.75366E-59 0.37040E-56 - 1 3 0.81846E-08 0.10000E+01 0.17891E+05 0.20454E-48 0.83821E-58 0.24290E-55 - 1 3 0.81846E-08 0.10000E+01 0.14428E+05 0.12352E-47 0.93869E-57 0.15097E-54 - 1 3 0.81846E-08 0.10000E+01 0.11635E+05 0.73968E-47 0.13073E-55 0.89202E-54 - 1 3 0.81846E-08 0.10000E+01 0.93834E+04 0.51345E-46 0.26393E-54 0.51996E-53 - 1 3 0.81846E-08 0.10000E+01 0.75673E+04 0.49056E-45 0.65906E-53 0.33325E-52 - 1 3 0.81846E-08 0.10000E+01 0.61026E+04 0.60374E-44 0.17078E-51 0.27343E-51 - 1 3 0.81846E-08 0.10000E+01 0.49215E+04 0.80635E-43 0.43826E-50 0.28767E-50 - 1 3 0.81846E-08 0.10000E+01 0.39689E+04 0.10843E-41 0.11191E-48 0.33476E-49 - 1 3 0.81846E-08 0.10000E+01 0.32008E+04 0.45699E-39 0.92696E-46 0.12239E-46 - 1 3 0.81846E-08 0.10000E+01 0.25813E+04 0.31902E-30 0.14912E-36 0.71085E-38 - 1 3 0.81846E-08 0.10000E+01 0.20817E+04 0.57961E-14 0.12115E-19 0.98929E-22 + 1 3 0.81846E-08 0.10000E+01 0.80645E+05 0.12426E-11 0.74362E-23 0.13871E-18 + 1 3 0.81846E-08 0.10000E+01 0.65036E+05 0.15892E-11 0.16535E-22 0.17754E-18 + 1 3 0.81846E-08 0.10000E+01 0.52449E+05 0.20009E-11 0.35704E-22 0.22382E-18 + 1 3 0.81846E-08 0.10000E+01 0.42297E+05 0.24870E-11 0.74951E-22 0.27871E-18 + 1 3 0.81846E-08 0.10000E+01 0.34111E+05 0.30551E-11 0.15667E-21 0.34326E-18 + 1 3 0.81846E-08 0.10000E+01 0.27509E+05 0.37110E-11 0.34862E-21 0.41816E-18 + 1 3 0.81846E-08 0.10000E+01 0.22184E+05 0.44635E-11 0.91534E-21 0.50375E-18 + 1 3 0.81846E-08 0.10000E+01 0.17891E+05 0.53383E-11 0.29888E-20 0.60033E-18 + 1 3 0.81846E-08 0.10000E+01 0.14428E+05 0.64130E-11 0.11469E-19 0.70917E-18 + 1 3 0.81846E-08 0.10000E+01 0.11635E+05 0.78936E-11 0.47517E-19 0.83472E-18 + 1 3 0.81846E-08 0.10000E+01 0.93834E+04 0.10282E-10 0.20274E-18 0.98869E-18 + 1 3 0.81846E-08 0.10000E+01 0.75673E+04 0.14752E-10 0.87474E-18 0.11974E-17 + 1 3 0.81846E-08 0.10000E+01 0.61026E+04 0.23995E-10 0.37792E-17 0.15150E-17 + 1 3 0.81846E-08 0.10000E+01 0.49215E+04 0.44140E-10 0.16191E-16 0.20477E-17 + 1 3 0.81846E-08 0.10000E+01 0.39689E+04 0.88956E-10 0.68273E-16 0.30003E-17 + 1 3 0.81846E-08 0.10000E+01 0.32008E+04 0.18879E-09 0.28251E-15 0.47635E-17 + 1 3 0.81846E-08 0.10000E+01 0.25813E+04 0.40909E-09 0.11457E-14 0.80814E-17 + 1 3 0.81846E-08 0.10000E+01 0.20817E+04 0.88799E-09 0.45442E-14 0.14372E-16 1 3 0.81846E-08 0.10000E+01 0.16788E+04 0.19102E-08 0.17593E-13 0.26338E-16 1 3 0.81846E-08 0.10000E+01 0.13538E+04 0.40478E-08 0.66583E-13 0.49105E-16 1 3 0.81846E-08 0.10000E+01 0.10918E+04 0.84228E-08 0.24755E-12 0.92317E-16 @@ -4080,24 +4080,24 @@ VERSION 2.8.2 1 3 0.81846E-08 0.10000E+01 0.24221E+03 0.81850E-06 0.75314E-09 0.67291E-14 1 3 0.81846E-08 0.10000E+01 0.19533E+03 0.12891E-05 0.14311E-08 0.10512E-13 1 3 0.81846E-08 0.10000E+01 0.15752E+03 0.12891E-05 0.14311E-08 0.10512E-13 - 1 3 0.14282E-07 0.10000E+01 0.80645E+05 0.34257E-54 0.25451E-65 0.65442E-61 - 1 3 0.14282E-07 0.10000E+01 0.65036E+05 0.28817E-53 0.40236E-64 0.55175E-60 - 1 3 0.14282E-07 0.10000E+01 0.52449E+05 0.24363E-52 0.53394E-63 0.46742E-59 - 1 3 0.14282E-07 0.10000E+01 0.42297E+05 0.18144E-51 0.70950E-62 0.34942E-58 - 1 3 0.14282E-07 0.10000E+01 0.34111E+05 0.12843E-50 0.93953E-61 0.24904E-57 - 1 3 0.14282E-07 0.10000E+01 0.27509E+05 0.89351E-50 0.11974E-59 0.17533E-56 - 1 3 0.14282E-07 0.10000E+01 0.22184E+05 0.60376E-49 0.14362E-58 0.12093E-55 - 1 3 0.14282E-07 0.10000E+01 0.17891E+05 0.38846E-48 0.16077E-57 0.80497E-55 - 1 3 0.14282E-07 0.10000E+01 0.14428E+05 0.23576E-47 0.17575E-56 0.51183E-54 - 1 3 0.14282E-07 0.10000E+01 0.11635E+05 0.13883E-46 0.21944E-55 0.31057E-53 - 1 3 0.14282E-07 0.10000E+01 0.93834E+04 0.88664E-46 0.38013E-54 0.18261E-52 - 1 3 0.14282E-07 0.10000E+01 0.75673E+04 0.73386E-45 0.86593E-53 0.11035E-51 - 1 3 0.14282E-07 0.10000E+01 0.61026E+04 0.80940E-44 0.21466E-51 0.78459E-51 - 1 3 0.14282E-07 0.10000E+01 0.49215E+04 0.10208E-42 0.53246E-50 0.73008E-50 - 1 3 0.14282E-07 0.10000E+01 0.39689E+04 0.13213E-41 0.13123E-48 0.81438E-49 - 1 3 0.14282E-07 0.10000E+01 0.32008E+04 0.53689E-39 0.10467E-45 0.29647E-46 - 1 3 0.14282E-07 0.10000E+01 0.25813E+04 0.36018E-30 0.16144E-36 0.17095E-37 - 1 3 0.14282E-07 0.10000E+01 0.20817E+04 0.62502E-14 0.12469E-19 0.23078E-21 + 1 3 0.14282E-07 0.10000E+01 0.80645E+05 0.23223E-11 0.13949E-22 0.44319E-18 + 1 3 0.14282E-07 0.10000E+01 0.65036E+05 0.29707E-11 0.31096E-22 0.56755E-18 + 1 3 0.14282E-07 0.10000E+01 0.52449E+05 0.37415E-11 0.67339E-22 0.71605E-18 + 1 3 0.14282E-07 0.10000E+01 0.42297E+05 0.46525E-11 0.14137E-21 0.89276E-18 + 1 3 0.14282E-07 0.10000E+01 0.34111E+05 0.57185E-11 0.29173E-21 0.11015E-17 + 1 3 0.14282E-07 0.10000E+01 0.27509E+05 0.69497E-11 0.61975E-21 0.13451E-17 + 1 3 0.14282E-07 0.10000E+01 0.22184E+05 0.83560E-11 0.14793E-20 0.16253E-17 + 1 3 0.14282E-07 0.10000E+01 0.17891E+05 0.99643E-11 0.42966E-20 0.19429E-17 + 1 3 0.14282E-07 0.10000E+01 0.14428E+05 0.11861E-10 0.15011E-19 0.23001E-17 + 1 3 0.14282E-07 0.10000E+01 0.11635E+05 0.14283E-10 0.58392E-19 0.27053E-17 + 1 3 0.14282E-07 0.10000E+01 0.93834E+04 0.17811E-10 0.23804E-18 0.31835E-17 + 1 3 0.14282E-07 0.10000E+01 0.75673E+04 0.23778E-10 0.98981E-18 0.37944E-17 + 1 3 0.14282E-07 0.10000E+01 0.61026E+04 0.35172E-10 0.41461E-17 0.46635E-17 + 1 3 0.14282E-07 0.10000E+01 0.49215E+04 0.58621E-10 0.17321E-16 0.60367E-17 + 1 3 0.14282E-07 0.10000E+01 0.39689E+04 0.10868E-09 0.71606E-16 0.83770E-17 + 1 3 0.14282E-07 0.10000E+01 0.32008E+04 0.21686E-09 0.29183E-15 0.12538E-16 + 1 3 0.14282E-07 0.10000E+01 0.25813E+04 0.45024E-09 0.11702E-14 0.20077E-16 + 1 3 0.14282E-07 0.10000E+01 0.20817E+04 0.94896E-09 0.46030E-14 0.33845E-16 1 3 0.14282E-07 0.10000E+01 0.16788E+04 0.19999E-08 0.17715E-13 0.59069E-16 1 3 0.14282E-07 0.10000E+01 0.13538E+04 0.41767E-08 0.66763E-13 0.10536E-15 1 3 0.14282E-07 0.10000E+01 0.10918E+04 0.86008E-08 0.24747E-12 0.19036E-15 @@ -4110,24 +4110,24 @@ VERSION 2.8.2 1 3 0.14282E-07 0.10000E+01 0.24221E+03 0.81521E-06 0.74832E-09 0.11970E-13 1 3 0.14282E-07 0.10000E+01 0.19533E+03 0.12831E-05 0.14218E-08 0.18601E-13 1 3 0.14282E-07 0.10000E+01 0.15752E+03 0.12831E-05 0.14218E-08 0.18601E-13 - 1 3 0.24920E-07 0.10000E+01 0.80645E+05 0.61926E-54 0.46046E-65 0.18610E-60 - 1 3 0.24920E-07 0.10000E+01 0.65036E+05 0.52127E-53 0.72834E-64 0.15704E-59 - 1 3 0.24920E-07 0.10000E+01 0.52449E+05 0.44098E-52 0.96787E-63 0.13315E-58 - 1 3 0.24920E-07 0.10000E+01 0.42297E+05 0.32878E-51 0.12893E-61 0.99679E-58 - 1 3 0.24920E-07 0.10000E+01 0.34111E+05 0.23322E-50 0.17146E-60 0.71230E-57 - 1 3 0.24920E-07 0.10000E+01 0.27509E+05 0.16286E-49 0.22020E-59 0.50364E-56 - 1 3 0.24920E-07 0.10000E+01 0.22184E+05 0.11076E-48 0.26768E-58 0.34986E-55 - 1 3 0.24920E-07 0.10000E+01 0.17891E+05 0.72045E-48 0.30512E-57 0.23567E-54 - 1 3 0.24920E-07 0.10000E+01 0.14428E+05 0.44362E-47 0.33516E-56 0.15260E-53 - 1 3 0.24920E-07 0.10000E+01 0.11635E+05 0.26267E-46 0.39332E-55 0.94766E-53 - 1 3 0.24920E-07 0.10000E+01 0.93834E+04 0.16083E-45 0.58908E-54 0.56702E-52 - 1 3 0.24920E-07 0.10000E+01 0.75673E+04 0.11798E-44 0.11890E-52 0.33574E-51 - 1 3 0.24920E-07 0.10000E+01 0.61026E+04 0.11442E-43 0.27860E-51 0.21620E-50 - 1 3 0.24920E-07 0.10000E+01 0.49215E+04 0.13413E-42 0.67009E-50 0.17609E-49 - 1 3 0.24920E-07 0.10000E+01 0.39689E+04 0.16697E-41 0.16021E-48 0.18363E-48 - 1 3 0.24920E-07 0.10000E+01 0.32008E+04 0.65659E-39 0.12319E-45 0.66346E-46 - 1 3 0.24920E-07 0.10000E+01 0.25813E+04 0.42361E-30 0.18122E-36 0.38445E-37 - 1 3 0.24920E-07 0.10000E+01 0.20817E+04 0.69807E-14 0.13100E-19 0.51648E-21 + 1 3 0.24920E-07 0.10000E+01 0.80645E+05 0.41968E-11 0.25365E-22 0.12598E-17 + 1 3 0.24920E-07 0.10000E+01 0.65036E+05 0.53703E-11 0.56785E-22 0.16140E-17 + 1 3 0.24920E-07 0.10000E+01 0.52449E+05 0.67672E-11 0.12370E-21 0.20376E-17 + 1 3 0.24920E-07 0.10000E+01 0.42297E+05 0.84218E-11 0.26130E-21 0.25431E-17 + 1 3 0.24920E-07 0.10000E+01 0.34111E+05 0.10363E-10 0.53914E-21 0.31423E-17 + 1 3 0.24920E-07 0.10000E+01 0.27509E+05 0.12612E-10 0.11201E-20 0.38453E-17 + 1 3 0.24920E-07 0.10000E+01 0.22184E+05 0.15183E-10 0.25049E-20 0.46589E-17 + 1 3 0.24920E-07 0.10000E+01 0.17891E+05 0.18106E-10 0.65631E-20 0.55863E-17 + 1 3 0.24920E-07 0.10000E+01 0.14428E+05 0.21477E-10 0.20767E-19 0.66308E-17 + 1 3 0.24920E-07 0.10000E+01 0.11635E+05 0.25572E-10 0.75287E-19 0.78066E-17 + 1 3 0.24920E-07 0.10000E+01 0.93834E+04 0.31077E-10 0.29216E-18 0.91613E-17 + 1 3 0.24920E-07 0.10000E+01 0.75673E+04 0.39558E-10 0.11677E-17 0.10818E-16 + 1 3 0.24920E-07 0.10000E+01 0.61026E+04 0.54452E-10 0.47245E-17 0.13048E-16 + 1 3 0.24920E-07 0.10000E+01 0.49215E+04 0.83175E-10 0.19150E-16 0.16391E-16 + 1 3 0.24920E-07 0.10000E+01 0.39689E+04 0.14159E-09 0.77182E-16 0.21857E-16 + 1 3 0.24920E-07 0.10000E+01 0.32008E+04 0.26322E-09 0.30815E-15 0.31275E-16 + 1 3 0.24920E-07 0.10000E+01 0.25813E+04 0.51811E-09 0.12160E-14 0.47889E-16 + 1 3 0.24920E-07 0.10000E+01 0.20817E+04 0.10505E-08 0.47256E-14 0.77431E-16 1 3 0.24920E-07 0.10000E+01 0.16788E+04 0.21527E-08 0.18027E-13 0.13007E-15 1 3 0.24920E-07 0.10000E+01 0.13538E+04 0.44047E-08 0.67502E-13 0.22392E-15 1 3 0.24920E-07 0.10000E+01 0.10918E+04 0.89349E-08 0.24905E-12 0.39142E-15 @@ -4140,24 +4140,24 @@ VERSION 2.8.2 1 3 0.24920E-07 0.10000E+01 0.24221E+03 0.81581E-06 0.74613E-09 0.21327E-13 1 3 0.24920E-07 0.10000E+01 0.19533E+03 0.12828E-05 0.14175E-08 0.32945E-13 1 3 0.24920E-07 0.10000E+01 0.15752E+03 0.12828E-05 0.14175E-08 0.32945E-13 - 1 3 0.43485E-07 0.10000E+01 0.80645E+05 0.10929E-53 0.81346E-65 0.49312E-60 - 1 3 0.43485E-07 0.10000E+01 0.65036E+05 0.92070E-53 0.12875E-63 0.41646E-59 - 1 3 0.43485E-07 0.10000E+01 0.52449E+05 0.77946E-52 0.17139E-62 0.35333E-58 - 1 3 0.43485E-07 0.10000E+01 0.42297E+05 0.58195E-51 0.22899E-61 0.26484E-57 - 1 3 0.43485E-07 0.10000E+01 0.34111E+05 0.41383E-50 0.30600E-60 0.18968E-56 - 1 3 0.43485E-07 0.10000E+01 0.27509E+05 0.29022E-49 0.39638E-59 0.13460E-55 - 1 3 0.43485E-07 0.10000E+01 0.22184E+05 0.19885E-48 0.48910E-58 0.94070E-55 - 1 3 0.43485E-07 0.10000E+01 0.17891E+05 0.13095E-47 0.56999E-57 0.63994E-54 - 1 3 0.43485E-07 0.10000E+01 0.14428E+05 0.82084E-47 0.63764E-56 0.42069E-53 - 1 3 0.43485E-07 0.10000E+01 0.11635E+05 0.49386E-46 0.72866E-55 0.26662E-52 - 1 3 0.43485E-07 0.10000E+01 0.93834E+04 0.29798E-45 0.97043E-54 0.16283E-51 - 1 3 0.43485E-07 0.10000E+01 0.75673E+04 0.20011E-44 0.16987E-52 0.96583E-51 - 1 3 0.43485E-07 0.10000E+01 0.61026E+04 0.16956E-43 0.36824E-51 0.58727E-50 - 1 3 0.43485E-07 0.10000E+01 0.49215E+04 0.18085E-42 0.85835E-50 0.42195E-49 - 1 3 0.43485E-07 0.10000E+01 0.39689E+04 0.21535E-41 0.20067E-48 0.39899E-48 - 1 3 0.43485E-07 0.10000E+01 0.32008E+04 0.82391E-39 0.14976E-45 0.14088E-45 - 1 3 0.43485E-07 0.10000E+01 0.25813E+04 0.51434E-30 0.21030E-36 0.82356E-37 - 1 3 0.43485E-07 0.10000E+01 0.20817E+04 0.80589E-14 0.14054E-19 0.11199E-20 + 1 3 0.43485E-07 0.10000E+01 0.80645E+05 0.74036E-11 0.45079E-22 0.33370E-17 + 1 3 0.43485E-07 0.10000E+01 0.65036E+05 0.94776E-11 0.10141E-21 0.42768E-17 + 1 3 0.43485E-07 0.10000E+01 0.52449E+05 0.11951E-10 0.22253E-21 0.54024E-17 + 1 3 0.43485E-07 0.10000E+01 0.42297E+05 0.14887E-10 0.47424E-21 0.67484E-17 + 1 3 0.43485E-07 0.10000E+01 0.34111E+05 0.18344E-10 0.98476E-21 0.83494E-17 + 1 3 0.43485E-07 0.10000E+01 0.27509E+05 0.22366E-10 0.20302E-20 0.10236E-16 + 1 3 0.43485E-07 0.10000E+01 0.22184E+05 0.26981E-10 0.43545E-20 0.12432E-16 + 1 3 0.43485E-07 0.10000E+01 0.17891E+05 0.32226E-10 0.10480E-19 0.14951E-16 + 1 3 0.43485E-07 0.10000E+01 0.14428E+05 0.38206E-10 0.30019E-19 0.17798E-16 + 1 3 0.43485E-07 0.10000E+01 0.11635E+05 0.45239E-10 0.10068E-18 0.20997E-16 + 1 3 0.43485E-07 0.10000E+01 0.93834E+04 0.54138E-10 0.37076E-18 0.24628E-16 + 1 3 0.43485E-07 0.10000E+01 0.75673E+04 0.66774E-10 0.14244E-17 0.28927E-16 + 1 3 0.43485E-07 0.10000E+01 0.61026E+04 0.87205E-10 0.55658E-17 0.34446E-16 + 1 3 0.43485E-07 0.10000E+01 0.49215E+04 0.12399E-09 0.21841E-16 0.42313E-16 + 1 3 0.43485E-07 0.10000E+01 0.39689E+04 0.19490E-09 0.85477E-16 0.54668E-16 + 1 3 0.43485E-07 0.10000E+01 0.32008E+04 0.33652E-09 0.33268E-15 0.75346E-16 + 1 3 0.43485E-07 0.10000E+01 0.25813E+04 0.62341E-09 0.12854E-14 0.11104E-15 + 1 3 0.43485E-07 0.10000E+01 0.20817E+04 0.12062E-08 0.49136E-14 0.17324E-15 1 3 0.43485E-07 0.10000E+01 0.16788E+04 0.23855E-08 0.18511E-13 0.28178E-15 1 3 0.43485E-07 0.10000E+01 0.13538E+04 0.47516E-08 0.68676E-13 0.47098E-15 1 3 0.43485E-07 0.10000E+01 0.10918E+04 0.94444E-08 0.25166E-12 0.80072E-15 @@ -4170,24 +4170,24 @@ VERSION 2.8.2 1 3 0.43485E-07 0.10000E+01 0.24221E+03 0.81750E-06 0.74356E-09 0.38062E-13 1 3 0.43485E-07 0.10000E+01 0.19533E+03 0.12837E-05 0.14123E-08 0.58417E-13 1 3 0.43485E-07 0.10000E+01 0.15752E+03 0.12837E-05 0.14123E-08 0.58417E-13 - 1 3 0.75878E-07 0.10000E+01 0.80645E+05 0.18972E-53 0.14137E-64 0.12615E-59 - 1 3 0.75878E-07 0.10000E+01 0.65036E+05 0.15997E-52 0.22392E-63 0.10661E-58 - 1 3 0.75878E-07 0.10000E+01 0.52449E+05 0.13554E-51 0.29858E-62 0.90506E-58 - 1 3 0.75878E-07 0.10000E+01 0.42297E+05 0.10134E-50 0.40015E-61 0.67915E-57 - 1 3 0.75878E-07 0.10000E+01 0.34111E+05 0.72251E-50 0.53738E-60 0.48736E-56 - 1 3 0.75878E-07 0.10000E+01 0.27509E+05 0.50892E-49 0.70211E-59 0.34697E-55 - 1 3 0.75878E-07 0.10000E+01 0.22184E+05 0.35128E-48 0.87923E-58 0.24377E-54 - 1 3 0.75878E-07 0.10000E+01 0.17891E+05 0.23419E-47 0.10477E-56 0.16725E-53 - 1 3 0.75878E-07 0.10000E+01 0.14428E+05 0.14952E-46 0.11998E-55 0.11139E-52 - 1 3 0.75878E-07 0.10000E+01 0.11635E+05 0.91776E-46 0.13667E-54 0.71882E-52 - 1 3 0.75878E-07 0.10000E+01 0.93834E+04 0.55513E-45 0.16820E-53 0.44830E-51 - 1 3 0.75878E-07 0.10000E+01 0.75673E+04 0.35297E-44 0.25483E-52 0.26958E-50 - 1 3 0.75878E-07 0.10000E+01 0.61026E+04 0.26440E-43 0.49629E-51 0.15993E-49 - 1 3 0.75878E-07 0.10000E+01 0.49215E+04 0.25097E-42 0.11099E-49 0.10388E-48 - 1 3 0.75878E-07 0.10000E+01 0.39689E+04 0.28179E-41 0.25528E-48 0.86782E-48 - 1 3 0.75878E-07 0.10000E+01 0.32008E+04 0.10514E-38 0.18676E-45 0.29154E-45 - 1 3 0.75878E-07 0.10000E+01 0.25813E+04 0.64076E-30 0.25213E-36 0.17150E-36 - 1 3 0.75878E-07 0.10000E+01 0.20817E+04 0.96264E-14 0.15481E-19 0.23911E-20 + 1 3 0.75878E-07 0.10000E+01 0.80645E+05 0.12847E-10 0.78828E-22 0.85337E-17 + 1 3 0.75878E-07 0.10000E+01 0.65036E+05 0.16453E-10 0.17823E-21 0.10941E-16 + 1 3 0.75878E-07 0.10000E+01 0.52449E+05 0.20760E-10 0.39403E-21 0.13827E-16 + 1 3 0.75878E-07 0.10000E+01 0.42297E+05 0.25886E-10 0.84806E-21 0.17286E-16 + 1 3 0.75878E-07 0.10000E+01 0.34111E+05 0.31945E-10 0.17779E-20 0.21412E-16 + 1 3 0.75878E-07 0.10000E+01 0.27509E+05 0.39027E-10 0.36696E-20 0.26295E-16 + 1 3 0.75878E-07 0.10000E+01 0.22184E+05 0.47196E-10 0.76870E-20 0.32009E-16 + 1 3 0.75878E-07 0.10000E+01 0.17891E+05 0.56505E-10 0.17344E-19 0.38602E-16 + 1 3 0.75878E-07 0.10000E+01 0.14428E+05 0.67074E-10 0.45212E-19 0.46098E-16 + 1 3 0.75878E-07 0.10000E+01 0.11635E+05 0.79256E-10 0.13925E-18 0.54528E-16 + 1 3 0.75878E-07 0.10000E+01 0.93834E+04 0.94004E-10 0.48411E-18 0.64020E-16 + 1 3 0.75878E-07 0.10000E+01 0.75673E+04 0.11356E-09 0.17887E-17 0.74997E-16 + 1 3 0.75878E-07 0.10000E+01 0.61026E+04 0.14281E-09 0.67647E-17 0.88523E-16 + 1 3 0.75878E-07 0.10000E+01 0.49215E+04 0.19190E-09 0.25725E-16 0.10689E-15 + 1 3 0.75878E-07 0.10000E+01 0.39689E+04 0.28139E-09 0.97626E-16 0.13450E-15 + 1 3 0.75878E-07 0.10000E+01 0.32008E+04 0.45236E-09 0.36913E-15 0.17932E-15 + 1 3 0.75878E-07 0.10000E+01 0.25813E+04 0.78623E-09 0.13903E-14 0.25505E-15 + 1 3 0.75878E-07 0.10000E+01 0.20817E+04 0.14434E-08 0.52028E-14 0.38482E-15 1 3 0.75878E-07 0.10000E+01 0.16788E+04 0.27378E-08 0.19275E-13 0.60747E-15 1 3 0.75878E-07 0.10000E+01 0.13538E+04 0.52768E-08 0.70600E-13 0.98848E-15 1 3 0.75878E-07 0.10000E+01 0.10918E+04 0.10220E-07 0.25624E-12 0.16392E-14 @@ -4200,24 +4200,24 @@ VERSION 2.8.2 1 3 0.75878E-07 0.10000E+01 0.24221E+03 0.82235E-06 0.74195E-09 0.68173E-13 1 3 0.75878E-07 0.10000E+01 0.19533E+03 0.12886E-05 0.14089E-08 0.10387E-12 1 3 0.75878E-07 0.10000E+01 0.15752E+03 0.12886E-05 0.14089E-08 0.10387E-12 - 1 3 0.13240E-06 0.10000E+01 0.80645E+05 0.32574E-53 0.24299E-64 0.32157E-59 - 1 3 0.13240E-06 0.10000E+01 0.65036E+05 0.27491E-52 0.38515E-63 0.27194E-58 - 1 3 0.13240E-06 0.10000E+01 0.52449E+05 0.23310E-51 0.51447E-62 0.23099E-57 - 1 3 0.13240E-06 0.10000E+01 0.42297E+05 0.17453E-50 0.69154E-61 0.17351E-56 - 1 3 0.13240E-06 0.10000E+01 0.34111E+05 0.12475E-49 0.93317E-60 0.12474E-55 - 1 3 0.13240E-06 0.10000E+01 0.27509E+05 0.88247E-49 0.12292E-58 0.89065E-55 - 1 3 0.13240E-06 0.10000E+01 0.22184E+05 0.61345E-48 0.15607E-57 0.62871E-54 - 1 3 0.13240E-06 0.10000E+01 0.17891E+05 0.41377E-47 0.18992E-56 0.43466E-53 - 1 3 0.13240E-06 0.10000E+01 0.14428E+05 0.26881E-46 0.22284E-55 0.29285E-52 - 1 3 0.13240E-06 0.10000E+01 0.11635E+05 0.16849E-45 0.25657E-54 0.19204E-51 - 1 3 0.13240E-06 0.10000E+01 0.93834E+04 0.10317E-44 0.30266E-53 0.12221E-50 - 1 3 0.13240E-06 0.10000E+01 0.75673E+04 0.63899E-44 0.40504E-52 0.74925E-50 - 1 3 0.13240E-06 0.10000E+01 0.61026E+04 0.43449E-43 0.68890E-51 0.44369E-49 - 1 3 0.13240E-06 0.10000E+01 0.49215E+04 0.36192E-42 0.14431E-49 0.26939E-48 - 1 3 0.13240E-06 0.10000E+01 0.39689E+04 0.37378E-41 0.32637E-48 0.19690E-47 - 1 3 0.13240E-06 0.10000E+01 0.32008E+04 0.13529E-38 0.23641E-45 0.60680E-45 - 1 3 0.13240E-06 0.10000E+01 0.25813E+04 0.81164E-30 0.31031E-36 0.35554E-36 - 1 3 0.13240E-06 0.10000E+01 0.20817E+04 0.11855E-13 0.17527E-19 0.51374E-20 + 1 3 0.13240E-06 0.10000E+01 0.80645E+05 0.22049E-10 0.13632E-21 0.21747E-16 + 1 3 0.13240E-06 0.10000E+01 0.65036E+05 0.28250E-10 0.30973E-21 0.27889E-16 + 1 3 0.13240E-06 0.10000E+01 0.52449E+05 0.35668E-10 0.68977E-21 0.35265E-16 + 1 3 0.13240E-06 0.10000E+01 0.42297E+05 0.44520E-10 0.14994E-20 0.44118E-16 + 1 3 0.13240E-06 0.10000E+01 0.34111E+05 0.55022E-10 0.31783E-20 0.54707E-16 + 1 3 0.13240E-06 0.10000E+01 0.27509E+05 0.67357E-10 0.66033E-20 0.67287E-16 + 1 3 0.13240E-06 0.10000E+01 0.22184E+05 0.81666E-10 0.13691E-19 0.82084E-16 + 1 3 0.13240E-06 0.10000E+01 0.17891E+05 0.98051E-10 0.29535E-19 0.99263E-16 + 1 3 0.13240E-06 0.10000E+01 0.14428E+05 0.11665E-09 0.70857E-19 0.11892E-15 + 1 3 0.13240E-06 0.10000E+01 0.11635E+05 0.13786E-09 0.19923E-18 0.14111E-15 + 1 3 0.13240E-06 0.10000E+01 0.93834E+04 0.16275E-09 0.64789E-18 0.16602E-15 + 1 3 0.13240E-06 0.10000E+01 0.75673E+04 0.19399E-09 0.22966E-17 0.19434E-15 + 1 3 0.13240E-06 0.10000E+01 0.61026E+04 0.23747E-09 0.84285E-17 0.22808E-15 + 1 3 0.13240E-06 0.10000E+01 0.49215E+04 0.30547E-09 0.31158E-16 0.27175E-15 + 1 3 0.13240E-06 0.10000E+01 0.39689E+04 0.42239E-09 0.11481E-15 0.33440E-15 + 1 3 0.13240E-06 0.10000E+01 0.32008E+04 0.63574E-09 0.42115E-15 0.43250E-15 + 1 3 0.13240E-06 0.10000E+01 0.25813E+04 0.10368E-08 0.15409E-14 0.59435E-15 + 1 3 0.13240E-06 0.10000E+01 0.20817E+04 0.18003E-08 0.56201E-14 0.86702E-15 1 3 0.13240E-06 0.10000E+01 0.16788E+04 0.32595E-08 0.20380E-13 0.13278E-14 1 3 0.13240E-06 0.10000E+01 0.13538E+04 0.60466E-08 0.73378E-13 0.21034E-14 1 3 0.13240E-06 0.10000E+01 0.10918E+04 0.11351E-07 0.26282E-12 0.34036E-14 @@ -4230,24 +4230,24 @@ VERSION 2.8.2 1 3 0.13240E-06 0.10000E+01 0.24221E+03 0.82909E-06 0.73928E-09 0.12307E-12 1 3 0.13240E-06 0.10000E+01 0.19533E+03 0.12953E-05 0.14033E-08 0.18591E-12 1 3 0.13240E-06 0.10000E+01 0.15752E+03 0.12953E-05 0.14033E-08 0.18591E-12 - 1 3 0.23103E-06 0.10000E+01 0.80645E+05 0.55534E-53 0.41470E-64 0.83320E-59 - 1 3 0.23103E-06 0.10000E+01 0.65036E+05 0.46908E-52 0.65774E-63 0.70502E-58 - 1 3 0.23103E-06 0.10000E+01 0.52449E+05 0.39804E-51 0.88004E-62 0.59916E-57 - 1 3 0.23103E-06 0.10000E+01 0.42297E+05 0.29843E-50 0.11863E-60 0.45047E-56 - 1 3 0.23103E-06 0.10000E+01 0.34111E+05 0.21383E-49 0.16079E-59 0.32437E-55 - 1 3 0.23103E-06 0.10000E+01 0.27509E+05 0.15185E-48 0.21339E-58 0.23221E-54 - 1 3 0.23103E-06 0.10000E+01 0.22184E+05 0.10625E-47 0.27433E-57 0.16461E-53 - 1 3 0.23103E-06 0.10000E+01 0.17891E+05 0.72428E-47 0.34016E-56 0.11456E-52 - 1 3 0.23103E-06 0.10000E+01 0.14428E+05 0.47805E-46 0.40847E-55 0.77963E-52 - 1 3 0.23103E-06 0.10000E+01 0.11635E+05 0.30569E-45 0.47868E-54 0.51842E-51 - 1 3 0.23103E-06 0.10000E+01 0.93834E+04 0.19042E-44 0.55683E-53 0.33596E-50 - 1 3 0.23103E-06 0.10000E+01 0.75673E+04 0.11728E-43 0.68333E-52 0.21027E-49 - 1 3 0.23103E-06 0.10000E+01 0.61026E+04 0.74904E-43 0.10046E-50 0.12600E-48 - 1 3 0.23103E-06 0.10000E+01 0.49215E+04 0.55035E-42 0.19007E-49 0.73999E-48 - 1 3 0.23103E-06 0.10000E+01 0.39689E+04 0.50783E-41 0.41766E-48 0.48108E-47 - 1 3 0.23103E-06 0.10000E+01 0.32008E+04 0.17539E-38 0.30166E-45 0.13137E-44 - 1 3 0.23103E-06 0.10000E+01 0.25813E+04 0.10405E-29 0.39025E-36 0.75162E-36 - 1 3 0.23103E-06 0.10000E+01 0.20817E+04 0.15035E-13 0.20466E-19 0.11339E-19 + 1 3 0.23103E-06 0.10000E+01 0.80645E+05 0.37577E-10 0.23398E-21 0.56333E-16 + 1 3 0.23103E-06 0.10000E+01 0.65036E+05 0.48164E-10 0.53405E-21 0.72263E-16 + 1 3 0.23103E-06 0.10000E+01 0.52449E+05 0.60848E-10 0.11975E-20 0.91412E-16 + 1 3 0.23103E-06 0.10000E+01 0.42297E+05 0.76022E-10 0.26278E-20 0.11443E-15 + 1 3 0.23103E-06 0.10000E+01 0.34111E+05 0.94085E-10 0.56337E-20 0.14204E-15 + 1 3 0.23103E-06 0.10000E+01 0.27509E+05 0.11540E-09 0.11819E-19 0.17495E-15 + 1 3 0.23103E-06 0.10000E+01 0.22184E+05 0.14028E-09 0.24485E-19 0.21384E-15 + 1 3 0.23103E-06 0.10000E+01 0.17891E+05 0.16893E-09 0.51420E-19 0.25926E-15 + 1 3 0.23103E-06 0.10000E+01 0.14428E+05 0.20157E-09 0.11547E-18 0.31157E-15 + 1 3 0.23103E-06 0.10000E+01 0.11635E+05 0.23860E-09 0.29640E-18 0.37094E-15 + 1 3 0.23103E-06 0.10000E+01 0.93834E+04 0.28119E-09 0.89151E-18 0.43761E-15 + 1 3 0.23103E-06 0.10000E+01 0.75673E+04 0.33243E-09 0.30112E-17 0.51268E-15 + 1 3 0.23103E-06 0.10000E+01 0.61026E+04 0.39943E-09 0.10731E-16 0.59972E-15 + 1 3 0.23103E-06 0.10000E+01 0.49215E+04 0.49714E-09 0.38720E-16 0.70763E-15 + 1 3 0.23103E-06 0.10000E+01 0.39689E+04 0.65526E-09 0.13901E-15 0.85501E-15 + 1 3 0.23103E-06 0.10000E+01 0.32008E+04 0.93034E-09 0.49543E-15 0.10765E-14 + 1 3 0.23103E-06 0.10000E+01 0.25813E+04 0.14280E-08 0.17586E-14 0.14316E-14 + 1 3 0.23103E-06 0.10000E+01 0.20817E+04 0.23438E-08 0.62301E-14 0.20185E-14 1 3 0.23103E-06 0.10000E+01 0.16788E+04 0.40400E-08 0.22014E-13 0.29951E-14 1 3 0.23103E-06 0.10000E+01 0.13538E+04 0.71865E-08 0.77551E-13 0.46135E-14 1 3 0.23103E-06 0.10000E+01 0.10918E+04 0.13018E-07 0.27292E-12 0.72787E-14 @@ -4260,24 +4260,24 @@ VERSION 2.8.2 1 3 0.23103E-06 0.10000E+01 0.24221E+03 0.84065E-06 0.73705E-09 0.22552E-12 1 3 0.23103E-06 0.10000E+01 0.19533E+03 0.13077E-05 0.13983E-08 0.33698E-12 1 3 0.23103E-06 0.10000E+01 0.15752E+03 0.13077E-05 0.13983E-08 0.33698E-12 - 1 3 0.40314E-06 0.10000E+01 0.80645E+05 0.94192E-53 0.70404E-64 0.22053E-58 - 1 3 0.40314E-06 0.10000E+01 0.65036E+05 0.79623E-52 0.11173E-62 0.18670E-57 - 1 3 0.40314E-06 0.10000E+01 0.52449E+05 0.67609E-51 0.14972E-61 0.15873E-56 - 1 3 0.40314E-06 0.10000E+01 0.42297E+05 0.50752E-50 0.20234E-60 0.11944E-55 - 1 3 0.40314E-06 0.10000E+01 0.34111E+05 0.36444E-49 0.27536E-59 0.86119E-55 - 1 3 0.40314E-06 0.10000E+01 0.27509E+05 0.25974E-48 0.36788E-58 0.61789E-54 - 1 3 0.40314E-06 0.10000E+01 0.22184E+05 0.18280E-47 0.47814E-57 0.43955E-53 - 1 3 0.40314E-06 0.10000E+01 0.17891E+05 0.12578E-46 0.60264E-56 0.30763E-52 - 1 3 0.40314E-06 0.10000E+01 0.14428E+05 0.84186E-46 0.73885E-55 0.21108E-51 - 1 3 0.40314E-06 0.10000E+01 0.11635E+05 0.54816E-45 0.88337E-54 0.14196E-50 - 1 3 0.40314E-06 0.10000E+01 0.93834E+04 0.34785E-44 0.10318E-52 0.93394E-50 - 1 3 0.40314E-06 0.10000E+01 0.75673E+04 0.21580E-43 0.12081E-51 0.59557E-49 - 1 3 0.40314E-06 0.10000E+01 0.61026E+04 0.13359E-42 0.15630E-50 0.36308E-48 - 1 3 0.40314E-06 0.10000E+01 0.49215E+04 0.88810E-42 0.25757E-49 0.21164E-47 - 1 3 0.40314E-06 0.10000E+01 0.39689E+04 0.71766E-41 0.53492E-48 0.12695E-46 - 1 3 0.40314E-06 0.10000E+01 0.32008E+04 0.22991E-38 0.38542E-45 0.30350E-44 - 1 3 0.40314E-06 0.10000E+01 0.25813E+04 0.13458E-29 0.49799E-36 0.16530E-35 - 1 3 0.40314E-06 0.10000E+01 0.20817E+04 0.19587E-13 0.24616E-19 0.26057E-19 + 1 3 0.40314E-06 0.10000E+01 0.80645E+05 0.63712E-10 0.39930E-21 0.14907E-15 + 1 3 0.40314E-06 0.10000E+01 0.65036E+05 0.81691E-10 0.91514E-21 0.19127E-15 + 1 3 0.40314E-06 0.10000E+01 0.52449E+05 0.10326E-09 0.20647E-20 0.24204E-15 + 1 3 0.40314E-06 0.10000E+01 0.42297E+05 0.12913E-09 0.45704E-20 0.30317E-15 + 1 3 0.40314E-06 0.10000E+01 0.34111E+05 0.16002E-09 0.99051E-20 0.37661E-15 + 1 3 0.40314E-06 0.10000E+01 0.27509E+05 0.19664E-09 0.21010E-19 0.46443E-15 + 1 3 0.40314E-06 0.10000E+01 0.22184E+05 0.23961E-09 0.43759E-19 0.56863E-15 + 1 3 0.40314E-06 0.10000E+01 0.17891E+05 0.28941E-09 0.90759E-19 0.69095E-15 + 1 3 0.40314E-06 0.10000E+01 0.14428E+05 0.34642E-09 0.19455E-18 0.83270E-15 + 1 3 0.40314E-06 0.10000E+01 0.11635E+05 0.41109E-09 0.45983E-18 0.99453E-15 + 1 3 0.40314E-06 0.10000E+01 0.93834E+04 0.48465E-09 0.12674E-17 0.11768E-14 + 1 3 0.40314E-06 0.10000E+01 0.75673E+04 0.57050E-09 0.40330E-17 0.13810E-14 + 1 3 0.40314E-06 0.10000E+01 0.61026E+04 0.67703E-09 0.13912E-16 0.16134E-14 + 1 3 0.40314E-06 0.10000E+01 0.49215E+04 0.82254E-09 0.49132E-16 0.18916E-14 + 1 3 0.40314E-06 0.10000E+01 0.39689E+04 0.10436E-08 0.17266E-15 0.22543E-14 + 1 3 0.40314E-06 0.10000E+01 0.32008E+04 0.14094E-08 0.59978E-15 0.27759E-14 + 1 3 0.40314E-06 0.10000E+01 0.25813E+04 0.20455E-08 0.20672E-14 0.35859E-14 + 1 3 0.40314E-06 0.10000E+01 0.20817E+04 0.31779E-08 0.71006E-14 0.48959E-14 1 3 0.40314E-06 0.10000E+01 0.16788E+04 0.52107E-08 0.24355E-13 0.70404E-14 1 3 0.40314E-06 0.10000E+01 0.13538E+04 0.88681E-08 0.83540E-13 0.10540E-13 1 3 0.40314E-06 0.10000E+01 0.10918E+04 0.15451E-07 0.28740E-12 0.16202E-13 @@ -4290,24 +4290,24 @@ VERSION 2.8.2 1 3 0.40314E-06 0.10000E+01 0.24221E+03 0.85688E-06 0.73334E-09 0.42291E-12 1 3 0.40314E-06 0.10000E+01 0.19533E+03 0.13250E-05 0.13901E-08 0.62317E-12 1 3 0.40314E-06 0.10000E+01 0.15752E+03 0.13250E-05 0.13901E-08 0.62317E-12 - 1 3 0.70346E-06 0.10000E+01 0.80645E+05 0.16313E-52 0.12196E-63 0.42383E-58 - 1 3 0.70346E-06 0.10000E+01 0.65036E+05 0.13792E-51 0.19358E-62 0.35884E-57 - 1 3 0.70346E-06 0.10000E+01 0.52449E+05 0.11713E-50 0.25948E-61 0.30512E-56 - 1 3 0.70346E-06 0.10000E+01 0.42297E+05 0.87949E-50 0.35085E-60 0.22961E-55 - 1 3 0.70346E-06 0.10000E+01 0.34111E+05 0.63184E-49 0.47787E-59 0.16561E-54 - 1 3 0.70346E-06 0.10000E+01 0.27509E+05 0.45065E-48 0.63934E-58 0.11887E-53 - 1 3 0.70346E-06 0.10000E+01 0.22184E+05 0.31755E-47 0.83285E-57 0.84623E-53 - 1 3 0.70346E-06 0.10000E+01 0.17891E+05 0.21893E-46 0.10533E-55 0.59289E-52 - 1 3 0.70346E-06 0.10000E+01 0.14428E+05 0.14696E-45 0.12970E-54 0.40746E-51 - 1 3 0.70346E-06 0.10000E+01 0.11635E+05 0.96056E-45 0.15578E-53 0.27465E-50 - 1 3 0.70346E-06 0.10000E+01 0.93834E+04 0.61210E-44 0.18240E-52 0.18121E-49 - 1 3 0.70346E-06 0.10000E+01 0.75673E+04 0.38077E-43 0.21231E-51 0.11599E-48 - 1 3 0.70346E-06 0.10000E+01 0.61026E+04 0.23488E-42 0.26808E-50 0.70997E-48 - 1 3 0.70346E-06 0.10000E+01 0.49215E+04 0.15335E-41 0.42658E-49 0.41410E-47 - 1 3 0.70346E-06 0.10000E+01 0.39689E+04 0.12014E-40 0.86978E-48 0.24524E-46 - 1 3 0.70346E-06 0.10000E+01 0.32008E+04 0.37653E-38 0.62576E-45 0.56977E-44 - 1 3 0.70346E-06 0.10000E+01 0.25813E+04 0.21943E-29 0.80963E-36 0.30592E-35 - 1 3 0.70346E-06 0.10000E+01 0.20817E+04 0.32067E-13 0.39578E-19 0.48672E-19 + 1 3 0.70346E-06 0.10000E+01 0.80645E+05 0.11034E-09 0.69246E-21 0.28647E-15 + 1 3 0.70346E-06 0.10000E+01 0.65036E+05 0.14148E-09 0.15884E-20 0.36759E-15 + 1 3 0.70346E-06 0.10000E+01 0.52449E+05 0.17887E-09 0.35885E-20 0.46520E-15 + 1 3 0.70346E-06 0.10000E+01 0.42297E+05 0.22371E-09 0.79578E-20 0.58275E-15 + 1 3 0.70346E-06 0.10000E+01 0.34111E+05 0.27730E-09 0.17287E-19 0.72404E-15 + 1 3 0.70346E-06 0.10000E+01 0.27509E+05 0.34089E-09 0.36762E-19 0.89309E-15 + 1 3 0.70346E-06 0.10000E+01 0.22184E+05 0.41560E-09 0.76705E-19 0.10938E-14 + 1 3 0.70346E-06 0.10000E+01 0.17891E+05 0.50233E-09 0.15889E-18 0.13297E-14 + 1 3 0.70346E-06 0.10000E+01 0.14428E+05 0.60171E-09 0.33788E-18 0.16034E-14 + 1 3 0.70346E-06 0.10000E+01 0.11635E+05 0.71452E-09 0.78526E-18 0.19163E-14 + 1 3 0.70346E-06 0.10000E+01 0.93834E+04 0.84262E-09 0.21202E-17 0.22690E-14 + 1 3 0.70346E-06 0.10000E+01 0.75673E+04 0.99132E-09 0.66427E-17 0.26639E-14 + 1 3 0.70346E-06 0.10000E+01 0.61026E+04 0.11739E-08 0.22722E-16 0.31120E-14 + 1 3 0.70346E-06 0.10000E+01 0.49215E+04 0.14199E-08 0.79865E-16 0.36447E-14 + 1 3 0.70346E-06 0.10000E+01 0.39689E+04 0.17881E-08 0.27944E-15 0.43326E-14 + 1 3 0.70346E-06 0.10000E+01 0.32008E+04 0.23900E-08 0.96561E-15 0.53125E-14 + 1 3 0.70346E-06 0.10000E+01 0.25813E+04 0.34274E-08 0.33067E-14 0.68226E-14 + 1 3 0.70346E-06 0.10000E+01 0.20817E+04 0.52599E-08 0.11277E-13 0.92524E-14 1 3 0.70346E-06 0.10000E+01 0.16788E+04 0.85263E-08 0.38399E-13 0.13215E-13 1 3 0.70346E-06 0.10000E+01 0.13538E+04 0.14362E-07 0.13082E-12 0.19658E-13 1 3 0.70346E-06 0.10000E+01 0.10918E+04 0.24792E-07 0.44735E-12 0.30045E-13 @@ -4320,24 +4320,24 @@ VERSION 2.8.2 1 3 0.70346E-06 0.10000E+01 0.24221E+03 0.13218E-05 0.11235E-08 0.75291E-12 1 3 0.70346E-06 0.10000E+01 0.19533E+03 0.20405E-05 0.21291E-08 0.11054E-11 1 3 0.70346E-06 0.10000E+01 0.15752E+03 0.20405E-05 0.21291E-08 0.11054E-11 - 1 3 0.12275E-05 0.10000E+01 0.80645E+05 0.28466E-52 0.21281E-63 0.73956E-58 - 1 3 0.12275E-05 0.10000E+01 0.65036E+05 0.24067E-51 0.33778E-62 0.62615E-57 - 1 3 0.12275E-05 0.10000E+01 0.52449E+05 0.20438E-50 0.45277E-61 0.53241E-56 - 1 3 0.12275E-05 0.10000E+01 0.42297E+05 0.15347E-49 0.61221E-60 0.40066E-55 - 1 3 0.12275E-05 0.10000E+01 0.34111E+05 0.11025E-48 0.83386E-59 0.28898E-54 - 1 3 0.12275E-05 0.10000E+01 0.27509E+05 0.78636E-48 0.11156E-57 0.20743E-53 - 1 3 0.12275E-05 0.10000E+01 0.22184E+05 0.55411E-47 0.14533E-56 0.14766E-52 - 1 3 0.12275E-05 0.10000E+01 0.17891E+05 0.38202E-46 0.18379E-55 0.10346E-51 - 1 3 0.12275E-05 0.10000E+01 0.14428E+05 0.25644E-45 0.22632E-54 0.71099E-51 - 1 3 0.12275E-05 0.10000E+01 0.11635E+05 0.16761E-44 0.27183E-53 0.47925E-50 - 1 3 0.12275E-05 0.10000E+01 0.93834E+04 0.10681E-43 0.31828E-52 0.31621E-49 - 1 3 0.12275E-05 0.10000E+01 0.75673E+04 0.66442E-43 0.37047E-51 0.20240E-48 - 1 3 0.12275E-05 0.10000E+01 0.61026E+04 0.40985E-42 0.46778E-50 0.12389E-47 - 1 3 0.12275E-05 0.10000E+01 0.49215E+04 0.26759E-41 0.74436E-49 0.72257E-47 - 1 3 0.12275E-05 0.10000E+01 0.39689E+04 0.20963E-40 0.15177E-47 0.42794E-46 - 1 3 0.12275E-05 0.10000E+01 0.32008E+04 0.65702E-38 0.10919E-44 0.99421E-44 - 1 3 0.12275E-05 0.10000E+01 0.25813E+04 0.38289E-29 0.14128E-35 0.53382E-35 - 1 3 0.12275E-05 0.10000E+01 0.20817E+04 0.55955E-13 0.69062E-19 0.84930E-19 + 1 3 0.12275E-05 0.10000E+01 0.80645E+05 0.19253E-09 0.12083E-20 0.49988E-15 + 1 3 0.12275E-05 0.10000E+01 0.65036E+05 0.24688E-09 0.27717E-20 0.64142E-15 + 1 3 0.12275E-05 0.10000E+01 0.52449E+05 0.31211E-09 0.62616E-20 0.81175E-15 + 1 3 0.12275E-05 0.10000E+01 0.42297E+05 0.39036E-09 0.13886E-19 0.10169E-14 + 1 3 0.12275E-05 0.10000E+01 0.34111E+05 0.48387E-09 0.30166E-19 0.12634E-14 + 1 3 0.12275E-05 0.10000E+01 0.27509E+05 0.59483E-09 0.64148E-19 0.15584E-14 + 1 3 0.12275E-05 0.10000E+01 0.22184E+05 0.72521E-09 0.13385E-18 0.19086E-14 + 1 3 0.12275E-05 0.10000E+01 0.17891E+05 0.87653E-09 0.27725E-18 0.23203E-14 + 1 3 0.12275E-05 0.10000E+01 0.14428E+05 0.10500E-08 0.58958E-18 0.27979E-14 + 1 3 0.12275E-05 0.10000E+01 0.11635E+05 0.12468E-08 0.13702E-17 0.33438E-14 + 1 3 0.12275E-05 0.10000E+01 0.93834E+04 0.14703E-08 0.36997E-17 0.39592E-14 + 1 3 0.12275E-05 0.10000E+01 0.75673E+04 0.17298E-08 0.11591E-16 0.46483E-14 + 1 3 0.12275E-05 0.10000E+01 0.61026E+04 0.20485E-08 0.39648E-16 0.54303E-14 + 1 3 0.12275E-05 0.10000E+01 0.49215E+04 0.24776E-08 0.13936E-15 0.63597E-14 + 1 3 0.12275E-05 0.10000E+01 0.39689E+04 0.31202E-08 0.48761E-15 0.75602E-14 + 1 3 0.12275E-05 0.10000E+01 0.32008E+04 0.41705E-08 0.16849E-14 0.92700E-14 + 1 3 0.12275E-05 0.10000E+01 0.25813E+04 0.59806E-08 0.57700E-14 0.11905E-13 + 1 3 0.12275E-05 0.10000E+01 0.20817E+04 0.91782E-08 0.19677E-13 0.16145E-13 1 3 0.12275E-05 0.10000E+01 0.16788E+04 0.14878E-07 0.67004E-13 0.23059E-13 1 3 0.12275E-05 0.10000E+01 0.13538E+04 0.25061E-07 0.22827E-12 0.34302E-13 1 3 0.12275E-05 0.10000E+01 0.10918E+04 0.43261E-07 0.78059E-12 0.52427E-13 @@ -4350,24 +4350,24 @@ VERSION 2.8.2 1 3 0.12275E-05 0.10000E+01 0.24221E+03 0.23065E-05 0.19604E-08 0.13138E-11 1 3 0.12275E-05 0.10000E+01 0.19533E+03 0.35605E-05 0.37152E-08 0.19288E-11 1 3 0.12275E-05 0.10000E+01 0.15752E+03 0.35605E-05 0.37152E-08 0.19288E-11 - 1 3 0.21419E-05 0.10000E+01 0.80645E+05 0.49671E-52 0.37134E-63 0.12905E-57 - 1 3 0.21419E-05 0.10000E+01 0.65036E+05 0.41995E-51 0.58941E-62 0.10926E-56 - 1 3 0.21419E-05 0.10000E+01 0.52449E+05 0.35664E-50 0.79006E-61 0.92902E-56 - 1 3 0.21419E-05 0.10000E+01 0.42297E+05 0.26779E-49 0.10683E-59 0.69913E-55 - 1 3 0.21419E-05 0.10000E+01 0.34111E+05 0.19238E-48 0.14550E-58 0.50425E-54 - 1 3 0.21419E-05 0.10000E+01 0.27509E+05 0.13722E-47 0.19467E-57 0.36195E-53 - 1 3 0.21419E-05 0.10000E+01 0.22184E+05 0.96688E-47 0.25359E-56 0.25766E-52 - 1 3 0.21419E-05 0.10000E+01 0.17891E+05 0.66661E-46 0.32070E-55 0.18052E-51 - 1 3 0.21419E-05 0.10000E+01 0.14428E+05 0.44746E-45 0.39491E-54 0.12406E-50 - 1 3 0.21419E-05 0.10000E+01 0.11635E+05 0.29247E-44 0.47433E-53 0.83626E-50 - 1 3 0.21419E-05 0.10000E+01 0.93834E+04 0.18637E-43 0.55539E-52 0.55176E-49 - 1 3 0.21419E-05 0.10000E+01 0.75673E+04 0.11594E-42 0.64644E-51 0.35318E-48 - 1 3 0.21419E-05 0.10000E+01 0.61026E+04 0.71516E-42 0.81625E-50 0.21617E-47 - 1 3 0.21419E-05 0.10000E+01 0.49215E+04 0.46693E-41 0.12989E-48 0.12608E-46 - 1 3 0.21419E-05 0.10000E+01 0.39689E+04 0.36579E-40 0.26483E-47 0.74672E-46 - 1 3 0.21419E-05 0.10000E+01 0.32008E+04 0.11465E-37 0.19053E-44 0.17348E-43 - 1 3 0.21419E-05 0.10000E+01 0.25813E+04 0.66812E-29 0.24652E-35 0.93148E-35 - 1 3 0.21419E-05 0.10000E+01 0.20817E+04 0.97638E-13 0.12051E-18 0.14820E-18 + 1 3 0.21419E-05 0.10000E+01 0.80645E+05 0.33595E-09 0.21084E-20 0.87226E-15 + 1 3 0.21419E-05 0.10000E+01 0.65036E+05 0.43079E-09 0.48364E-20 0.11192E-14 + 1 3 0.21419E-05 0.10000E+01 0.52449E+05 0.54462E-09 0.10926E-19 0.14165E-14 + 1 3 0.21419E-05 0.10000E+01 0.42297E+05 0.68115E-09 0.24230E-19 0.17744E-14 + 1 3 0.21419E-05 0.10000E+01 0.34111E+05 0.84432E-09 0.52637E-19 0.22046E-14 + 1 3 0.21419E-05 0.10000E+01 0.27509E+05 0.10379E-08 0.11193E-18 0.27193E-14 + 1 3 0.21419E-05 0.10000E+01 0.22184E+05 0.12654E-08 0.23355E-18 0.33305E-14 + 1 3 0.21419E-05 0.10000E+01 0.17891E+05 0.15295E-08 0.48379E-18 0.40488E-14 + 1 3 0.21419E-05 0.10000E+01 0.14428E+05 0.18321E-08 0.10288E-17 0.48822E-14 + 1 3 0.21419E-05 0.10000E+01 0.11635E+05 0.21756E-08 0.23910E-17 0.58348E-14 + 1 3 0.21419E-05 0.10000E+01 0.93834E+04 0.25656E-08 0.64557E-17 0.69086E-14 + 1 3 0.21419E-05 0.10000E+01 0.75673E+04 0.30184E-08 0.20226E-16 0.81111E-14 + 1 3 0.21419E-05 0.10000E+01 0.61026E+04 0.35744E-08 0.69184E-16 0.94755E-14 + 1 3 0.21419E-05 0.10000E+01 0.49215E+04 0.43232E-08 0.24317E-15 0.11097E-13 + 1 3 0.21419E-05 0.10000E+01 0.39689E+04 0.54445E-08 0.85084E-15 0.13192E-13 + 1 3 0.21419E-05 0.10000E+01 0.32008E+04 0.72772E-08 0.29401E-14 0.16176E-13 + 1 3 0.21419E-05 0.10000E+01 0.25813E+04 0.10436E-07 0.10068E-13 0.20774E-13 + 1 3 0.21419E-05 0.10000E+01 0.20817E+04 0.16015E-07 0.34336E-13 0.28172E-13 1 3 0.21419E-05 0.10000E+01 0.16788E+04 0.25961E-07 0.11692E-12 0.40237E-13 1 3 0.21419E-05 0.10000E+01 0.13538E+04 0.43730E-07 0.39832E-12 0.59856E-13 1 3 0.21419E-05 0.10000E+01 0.10918E+04 0.75488E-07 0.13621E-11 0.91481E-13 @@ -4380,24 +4380,24 @@ VERSION 2.8.2 1 3 0.21419E-05 0.10000E+01 0.24221E+03 0.40248E-05 0.34207E-08 0.22925E-11 1 3 0.21419E-05 0.10000E+01 0.19533E+03 0.62129E-05 0.64827E-08 0.33656E-11 1 3 0.21419E-05 0.10000E+01 0.15752E+03 0.62129E-05 0.64827E-08 0.33656E-11 - 1 3 0.37375E-05 0.10000E+01 0.80645E+05 0.86672E-52 0.64797E-63 0.22518E-57 - 1 3 0.37375E-05 0.10000E+01 0.65036E+05 0.73278E-51 0.10285E-61 0.19065E-56 - 1 3 0.37375E-05 0.10000E+01 0.52449E+05 0.62231E-50 0.13786E-60 0.16211E-55 - 1 3 0.37375E-05 0.10000E+01 0.42297E+05 0.46727E-49 0.18641E-59 0.12199E-54 - 1 3 0.37375E-05 0.10000E+01 0.34111E+05 0.33570E-48 0.25390E-58 0.87988E-54 - 1 3 0.37375E-05 0.10000E+01 0.27509E+05 0.23943E-47 0.33968E-57 0.63157E-53 - 1 3 0.37375E-05 0.10000E+01 0.22184E+05 0.16871E-46 0.44250E-56 0.44960E-52 - 1 3 0.37375E-05 0.10000E+01 0.17891E+05 0.11632E-45 0.55961E-55 0.31500E-51 - 1 3 0.37375E-05 0.10000E+01 0.14428E+05 0.78080E-45 0.68910E-54 0.21648E-50 - 1 3 0.37375E-05 0.10000E+01 0.11635E+05 0.51035E-44 0.82767E-53 0.14592E-49 - 1 3 0.37375E-05 0.10000E+01 0.93834E+04 0.32521E-43 0.96912E-52 0.96279E-49 - 1 3 0.37375E-05 0.10000E+01 0.75673E+04 0.20230E-42 0.11280E-50 0.61628E-48 - 1 3 0.37375E-05 0.10000E+01 0.61026E+04 0.12479E-41 0.14243E-49 0.37721E-47 - 1 3 0.37375E-05 0.10000E+01 0.49215E+04 0.81477E-41 0.22664E-48 0.22001E-46 - 1 3 0.37375E-05 0.10000E+01 0.39689E+04 0.63829E-40 0.46211E-47 0.13030E-45 - 1 3 0.37375E-05 0.10000E+01 0.32008E+04 0.20005E-37 0.33247E-44 0.30272E-43 - 1 3 0.37375E-05 0.10000E+01 0.25813E+04 0.11658E-28 0.43016E-35 0.16254E-34 - 1 3 0.37375E-05 0.10000E+01 0.20817E+04 0.17037E-12 0.21028E-18 0.25860E-18 + 1 3 0.37375E-05 0.10000E+01 0.80645E+05 0.58621E-09 0.36791E-20 0.15220E-14 + 1 3 0.37375E-05 0.10000E+01 0.65036E+05 0.75170E-09 0.84393E-20 0.19530E-14 + 1 3 0.37375E-05 0.10000E+01 0.52449E+05 0.95032E-09 0.19066E-19 0.24716E-14 + 1 3 0.37375E-05 0.10000E+01 0.42297E+05 0.11886E-08 0.42280E-19 0.30961E-14 + 1 3 0.37375E-05 0.10000E+01 0.34111E+05 0.14733E-08 0.91849E-19 0.38468E-14 + 1 3 0.37375E-05 0.10000E+01 0.27509E+05 0.18112E-08 0.19532E-18 0.47450E-14 + 1 3 0.37375E-05 0.10000E+01 0.22184E+05 0.22081E-08 0.40754E-18 0.58115E-14 + 1 3 0.37375E-05 0.10000E+01 0.17891E+05 0.26689E-08 0.84418E-18 0.70649E-14 + 1 3 0.37375E-05 0.10000E+01 0.14428E+05 0.31969E-08 0.17952E-17 0.85191E-14 + 1 3 0.37375E-05 0.10000E+01 0.11635E+05 0.37963E-08 0.41721E-17 0.10181E-13 + 1 3 0.37375E-05 0.10000E+01 0.93834E+04 0.44769E-08 0.11265E-16 0.12055E-13 + 1 3 0.37375E-05 0.10000E+01 0.75673E+04 0.52669E-08 0.35293E-16 0.14153E-13 + 1 3 0.37375E-05 0.10000E+01 0.61026E+04 0.62372E-08 0.12072E-15 0.16534E-13 + 1 3 0.37375E-05 0.10000E+01 0.49215E+04 0.75437E-08 0.42432E-15 0.19364E-13 + 1 3 0.37375E-05 0.10000E+01 0.39689E+04 0.95003E-08 0.14847E-14 0.23019E-13 + 1 3 0.37375E-05 0.10000E+01 0.32008E+04 0.12698E-07 0.51303E-14 0.28226E-13 + 1 3 0.37375E-05 0.10000E+01 0.25813E+04 0.18210E-07 0.17569E-13 0.36249E-13 + 1 3 0.37375E-05 0.10000E+01 0.20817E+04 0.27946E-07 0.59914E-13 0.49158E-13 1 3 0.37375E-05 0.10000E+01 0.16788E+04 0.45300E-07 0.20401E-12 0.70211E-13 1 3 0.37375E-05 0.10000E+01 0.13538E+04 0.76305E-07 0.69504E-12 0.10444E-12 1 3 0.37375E-05 0.10000E+01 0.10918E+04 0.13172E-06 0.23768E-11 0.15963E-12 @@ -4410,24 +4410,24 @@ VERSION 2.8.2 1 3 0.37375E-05 0.10000E+01 0.24221E+03 0.70230E-05 0.59690E-08 0.40002E-11 1 3 0.37375E-05 0.10000E+01 0.19533E+03 0.10841E-04 0.11312E-07 0.58729E-11 1 3 0.37375E-05 0.10000E+01 0.15752E+03 0.10841E-04 0.11312E-07 0.58729E-11 - 1 3 0.65217E-05 0.10000E+01 0.80645E+05 0.15124E-51 0.11307E-62 0.39293E-57 - 1 3 0.65217E-05 0.10000E+01 0.65036E+05 0.12787E-50 0.17946E-61 0.33268E-56 - 1 3 0.65217E-05 0.10000E+01 0.52449E+05 0.10859E-49 0.24056E-60 0.28287E-55 - 1 3 0.65217E-05 0.10000E+01 0.42297E+05 0.81536E-49 0.32527E-59 0.21287E-54 - 1 3 0.65217E-05 0.10000E+01 0.34111E+05 0.58577E-48 0.44303E-58 0.15353E-53 - 1 3 0.65217E-05 0.10000E+01 0.27509E+05 0.41780E-47 0.59272E-57 0.11021E-52 - 1 3 0.65217E-05 0.10000E+01 0.22184E+05 0.29440E-46 0.77213E-56 0.78453E-52 - 1 3 0.65217E-05 0.10000E+01 0.17891E+05 0.20297E-45 0.97649E-55 0.54966E-51 - 1 3 0.65217E-05 0.10000E+01 0.14428E+05 0.13624E-44 0.12024E-53 0.37775E-50 - 1 3 0.65217E-05 0.10000E+01 0.11635E+05 0.89053E-44 0.14442E-52 0.25463E-49 - 1 3 0.65217E-05 0.10000E+01 0.93834E+04 0.56747E-43 0.16911E-51 0.16800E-48 - 1 3 0.65217E-05 0.10000E+01 0.75673E+04 0.35301E-42 0.19683E-50 0.10754E-47 - 1 3 0.65217E-05 0.10000E+01 0.61026E+04 0.21775E-41 0.24853E-49 0.65821E-47 - 1 3 0.65217E-05 0.10000E+01 0.49215E+04 0.14217E-40 0.39548E-48 0.38390E-46 - 1 3 0.65217E-05 0.10000E+01 0.39689E+04 0.11138E-39 0.80636E-47 0.22736E-45 - 1 3 0.65217E-05 0.10000E+01 0.32008E+04 0.34908E-37 0.58014E-44 0.52822E-43 - 1 3 0.65217E-05 0.10000E+01 0.25813E+04 0.20343E-28 0.75060E-35 0.28362E-34 - 1 3 0.65217E-05 0.10000E+01 0.20817E+04 0.29729E-12 0.36693E-18 0.45123E-18 + 1 3 0.65217E-05 0.10000E+01 0.80645E+05 0.10229E-08 0.64197E-20 0.26559E-14 + 1 3 0.65217E-05 0.10000E+01 0.65036E+05 0.13117E-08 0.14726E-19 0.34079E-14 + 1 3 0.65217E-05 0.10000E+01 0.52449E+05 0.16583E-08 0.33268E-19 0.43128E-14 + 1 3 0.65217E-05 0.10000E+01 0.42297E+05 0.20740E-08 0.73776E-19 0.54026E-14 + 1 3 0.65217E-05 0.10000E+01 0.34111E+05 0.25708E-08 0.16027E-18 0.67125E-14 + 1 3 0.65217E-05 0.10000E+01 0.27509E+05 0.31604E-08 0.34082E-18 0.82797E-14 + 1 3 0.65217E-05 0.10000E+01 0.22184E+05 0.38530E-08 0.71113E-18 0.10141E-13 + 1 3 0.65217E-05 0.10000E+01 0.17891E+05 0.46570E-08 0.14730E-17 0.12328E-13 + 1 3 0.65217E-05 0.10000E+01 0.14428E+05 0.55784E-08 0.31324E-17 0.14865E-13 + 1 3 0.65217E-05 0.10000E+01 0.11635E+05 0.66243E-08 0.72801E-17 0.17766E-13 + 1 3 0.65217E-05 0.10000E+01 0.93834E+04 0.78119E-08 0.19656E-16 0.21035E-13 + 1 3 0.65217E-05 0.10000E+01 0.75673E+04 0.91904E-08 0.61584E-16 0.24697E-13 + 1 3 0.65217E-05 0.10000E+01 0.61026E+04 0.10883E-07 0.21065E-15 0.28851E-13 + 1 3 0.65217E-05 0.10000E+01 0.49215E+04 0.13163E-07 0.74042E-15 0.33789E-13 + 1 3 0.65217E-05 0.10000E+01 0.39689E+04 0.16578E-07 0.25907E-14 0.40167E-13 + 1 3 0.65217E-05 0.10000E+01 0.32008E+04 0.22158E-07 0.89521E-14 0.49252E-13 + 1 3 0.65217E-05 0.10000E+01 0.25813E+04 0.31775E-07 0.30656E-13 0.63252E-13 + 1 3 0.65217E-05 0.10000E+01 0.20817E+04 0.48764E-07 0.10455E-12 0.85778E-13 1 3 0.65217E-05 0.10000E+01 0.16788E+04 0.79046E-07 0.35599E-12 0.12251E-12 1 3 0.65217E-05 0.10000E+01 0.13538E+04 0.13315E-06 0.12128E-11 0.18225E-12 1 3 0.65217E-05 0.10000E+01 0.10918E+04 0.22985E-06 0.41473E-11 0.27854E-12 @@ -4440,24 +4440,24 @@ VERSION 2.8.2 1 3 0.65217E-05 0.10000E+01 0.24221E+03 0.12255E-04 0.10416E-07 0.69802E-11 1 3 0.65217E-05 0.10000E+01 0.19533E+03 0.18917E-04 0.19739E-07 0.10248E-10 1 3 0.65217E-05 0.10000E+01 0.15752E+03 0.18917E-04 0.19739E-07 0.10248E-10 - 1 3 0.11380E-04 0.10000E+01 0.80645E+05 0.26390E-51 0.19729E-62 0.68564E-57 - 1 3 0.11380E-04 0.10000E+01 0.65036E+05 0.22312E-50 0.31315E-61 0.58050E-56 - 1 3 0.11380E-04 0.10000E+01 0.52449E+05 0.18948E-49 0.41976E-60 0.49359E-55 - 1 3 0.11380E-04 0.10000E+01 0.42297E+05 0.14228E-48 0.56757E-59 0.37145E-54 - 1 3 0.11380E-04 0.10000E+01 0.34111E+05 0.10221E-47 0.77306E-58 0.26791E-53 - 1 3 0.11380E-04 0.10000E+01 0.27509E+05 0.72903E-47 0.10343E-56 0.19230E-52 - 1 3 0.11380E-04 0.10000E+01 0.22184E+05 0.51370E-46 0.13473E-55 0.13690E-51 - 1 3 0.11380E-04 0.10000E+01 0.17891E+05 0.35417E-45 0.17039E-54 0.95912E-51 - 1 3 0.11380E-04 0.10000E+01 0.14428E+05 0.23774E-44 0.20982E-53 0.65915E-50 - 1 3 0.11380E-04 0.10000E+01 0.11635E+05 0.15539E-43 0.25201E-52 0.44431E-49 - 1 3 0.11380E-04 0.10000E+01 0.93834E+04 0.99020E-43 0.29508E-51 0.29315E-48 - 1 3 0.11380E-04 0.10000E+01 0.75673E+04 0.61598E-42 0.34346E-50 0.18764E-47 - 1 3 0.11380E-04 0.10000E+01 0.61026E+04 0.37996E-41 0.43367E-49 0.11485E-46 - 1 3 0.11380E-04 0.10000E+01 0.49215E+04 0.24808E-40 0.69009E-48 0.66989E-46 - 1 3 0.11380E-04 0.10000E+01 0.39689E+04 0.19435E-39 0.14071E-46 0.39674E-45 - 1 3 0.11380E-04 0.10000E+01 0.32008E+04 0.60912E-37 0.10123E-43 0.92172E-43 - 1 3 0.11380E-04 0.10000E+01 0.25813E+04 0.35497E-28 0.13097E-34 0.49490E-34 - 1 3 0.11380E-04 0.10000E+01 0.20817E+04 0.51875E-12 0.64026E-18 0.78737E-18 + 1 3 0.11380E-04 0.10000E+01 0.80645E+05 0.17849E-08 0.11202E-19 0.46343E-14 + 1 3 0.11380E-04 0.10000E+01 0.65036E+05 0.22888E-08 0.25696E-19 0.59465E-14 + 1 3 0.11380E-04 0.10000E+01 0.52449E+05 0.28936E-08 0.58051E-19 0.75256E-14 + 1 3 0.11380E-04 0.10000E+01 0.42297E+05 0.36190E-08 0.12873E-18 0.94272E-14 + 1 3 0.11380E-04 0.10000E+01 0.34111E+05 0.44859E-08 0.27966E-18 0.11713E-13 + 1 3 0.11380E-04 0.10000E+01 0.27509E+05 0.55146E-08 0.59471E-18 0.14448E-13 + 1 3 0.11380E-04 0.10000E+01 0.22184E+05 0.67233E-08 0.12409E-17 0.17695E-13 + 1 3 0.11380E-04 0.10000E+01 0.17891E+05 0.81262E-08 0.25704E-17 0.21511E-13 + 1 3 0.11380E-04 0.10000E+01 0.14428E+05 0.97340E-08 0.54659E-17 0.25939E-13 + 1 3 0.11380E-04 0.10000E+01 0.11635E+05 0.11559E-07 0.12703E-16 0.31000E-13 + 1 3 0.11380E-04 0.10000E+01 0.93834E+04 0.13631E-07 0.34299E-16 0.36705E-13 + 1 3 0.11380E-04 0.10000E+01 0.75673E+04 0.16037E-07 0.10746E-15 0.43094E-13 + 1 3 0.11380E-04 0.10000E+01 0.61026E+04 0.18991E-07 0.36758E-15 0.50343E-13 + 1 3 0.11380E-04 0.10000E+01 0.49215E+04 0.22969E-07 0.12920E-14 0.58960E-13 + 1 3 0.11380E-04 0.10000E+01 0.39689E+04 0.28927E-07 0.45206E-14 0.70090E-13 + 1 3 0.11380E-04 0.10000E+01 0.32008E+04 0.38664E-07 0.15621E-13 0.85942E-13 + 1 3 0.11380E-04 0.10000E+01 0.25813E+04 0.55445E-07 0.53493E-13 0.11037E-12 + 1 3 0.11380E-04 0.10000E+01 0.20817E+04 0.85090E-07 0.18243E-12 0.14968E-12 1 3 0.11380E-04 0.10000E+01 0.16788E+04 0.13793E-06 0.62119E-12 0.21378E-12 1 3 0.11380E-04 0.10000E+01 0.13538E+04 0.23234E-06 0.21163E-11 0.31801E-12 1 3 0.11380E-04 0.10000E+01 0.10918E+04 0.40107E-06 0.72368E-11 0.48604E-12 @@ -4470,24 +4470,24 @@ VERSION 2.8.2 1 3 0.11380E-04 0.10000E+01 0.24221E+03 0.21384E-04 0.18174E-07 0.12180E-10 1 3 0.11380E-04 0.10000E+01 0.19533E+03 0.33009E-04 0.34443E-07 0.17882E-10 1 3 0.11380E-04 0.10000E+01 0.15752E+03 0.33009E-04 0.34443E-07 0.17882E-10 - 1 3 0.19857E-04 0.10000E+01 0.80645E+05 0.46049E-51 0.34427E-62 0.11964E-56 - 1 3 0.19857E-04 0.10000E+01 0.65036E+05 0.38933E-50 0.54643E-61 0.10129E-55 - 1 3 0.19857E-04 0.10000E+01 0.52449E+05 0.33063E-49 0.73245E-60 0.86128E-55 - 1 3 0.19857E-04 0.10000E+01 0.42297E+05 0.24826E-48 0.99038E-59 0.64816E-54 - 1 3 0.19857E-04 0.10000E+01 0.34111E+05 0.17836E-47 0.13489E-57 0.46748E-53 - 1 3 0.19857E-04 0.10000E+01 0.27509E+05 0.12721E-46 0.18047E-56 0.33556E-52 - 1 3 0.19857E-04 0.10000E+01 0.22184E+05 0.89638E-46 0.23510E-55 0.23887E-51 - 1 3 0.19857E-04 0.10000E+01 0.17891E+05 0.61800E-45 0.29732E-54 0.16736E-50 - 1 3 0.19857E-04 0.10000E+01 0.14428E+05 0.41484E-44 0.36612E-53 0.11502E-49 - 1 3 0.19857E-04 0.10000E+01 0.11635E+05 0.27115E-43 0.43974E-52 0.77529E-49 - 1 3 0.19857E-04 0.10000E+01 0.93834E+04 0.17278E-42 0.51489E-51 0.51153E-48 - 1 3 0.19857E-04 0.10000E+01 0.75673E+04 0.10748E-41 0.59931E-50 0.32743E-47 - 1 3 0.19857E-04 0.10000E+01 0.61026E+04 0.66302E-41 0.75673E-49 0.20041E-46 - 1 3 0.19857E-04 0.10000E+01 0.49215E+04 0.43289E-40 0.12042E-47 0.11689E-45 - 1 3 0.19857E-04 0.10000E+01 0.39689E+04 0.33912E-39 0.24552E-46 0.69228E-45 - 1 3 0.19857E-04 0.10000E+01 0.32008E+04 0.10629E-36 0.17664E-43 0.16083E-42 - 1 3 0.19857E-04 0.10000E+01 0.25813E+04 0.61941E-28 0.22854E-34 0.86357E-34 - 1 3 0.19857E-04 0.10000E+01 0.20817E+04 0.90519E-12 0.11172E-17 0.13739E-17 + 1 3 0.19857E-04 0.10000E+01 0.80645E+05 0.31146E-08 0.19547E-19 0.80866E-14 + 1 3 0.19857E-04 0.10000E+01 0.65036E+05 0.39938E-08 0.44838E-19 0.10376E-13 + 1 3 0.19857E-04 0.10000E+01 0.52449E+05 0.50491E-08 0.10130E-18 0.13132E-13 + 1 3 0.19857E-04 0.10000E+01 0.42297E+05 0.63149E-08 0.22463E-18 0.16450E-13 + 1 3 0.19857E-04 0.10000E+01 0.34111E+05 0.78276E-08 0.48799E-18 0.20438E-13 + 1 3 0.19857E-04 0.10000E+01 0.27509E+05 0.96227E-08 0.10377E-17 0.25210E-13 + 1 3 0.19857E-04 0.10000E+01 0.22184E+05 0.11732E-07 0.21652E-17 0.30876E-13 + 1 3 0.19857E-04 0.10000E+01 0.17891E+05 0.14180E-07 0.44851E-17 0.37536E-13 + 1 3 0.19857E-04 0.10000E+01 0.14428E+05 0.16985E-07 0.95377E-17 0.45262E-13 + 1 3 0.19857E-04 0.10000E+01 0.11635E+05 0.20170E-07 0.22167E-16 0.54094E-13 + 1 3 0.19857E-04 0.10000E+01 0.93834E+04 0.23786E-07 0.59850E-16 0.64049E-13 + 1 3 0.19857E-04 0.10000E+01 0.75673E+04 0.27983E-07 0.18751E-15 0.75197E-13 + 1 3 0.19857E-04 0.10000E+01 0.61026E+04 0.33138E-07 0.64140E-15 0.87846E-13 + 1 3 0.19857E-04 0.10000E+01 0.49215E+04 0.40080E-07 0.22544E-14 0.10288E-12 + 1 3 0.19857E-04 0.10000E+01 0.39689E+04 0.50475E-07 0.78881E-14 0.12230E-12 + 1 3 0.19857E-04 0.10000E+01 0.32008E+04 0.67466E-07 0.27257E-13 0.14996E-12 + 1 3 0.19857E-04 0.10000E+01 0.25813E+04 0.96749E-07 0.93342E-13 0.19259E-12 + 1 3 0.19857E-04 0.10000E+01 0.20817E+04 0.14848E-06 0.31833E-12 0.26118E-12 1 3 0.19857E-04 0.10000E+01 0.16788E+04 0.24068E-06 0.10839E-11 0.37303E-12 1 3 0.19857E-04 0.10000E+01 0.13538E+04 0.40541E-06 0.36928E-11 0.55492E-12 1 3 0.19857E-04 0.10000E+01 0.10918E+04 0.69984E-06 0.12628E-10 0.84811E-12 @@ -4500,24 +4500,24 @@ VERSION 2.8.2 1 3 0.19857E-04 0.10000E+01 0.24221E+03 0.37313E-04 0.31713E-07 0.21253E-10 1 3 0.19857E-04 0.10000E+01 0.19533E+03 0.57599E-04 0.60101E-07 0.31203E-10 1 3 0.19857E-04 0.10000E+01 0.15752E+03 0.57599E-04 0.60101E-07 0.31203E-10 - 1 3 0.34650E-04 0.10000E+01 0.80645E+05 0.80353E-51 0.60072E-62 0.20876E-56 - 1 3 0.34650E-04 0.10000E+01 0.65036E+05 0.67935E-50 0.95349E-61 0.17675E-55 - 1 3 0.34650E-04 0.10000E+01 0.52449E+05 0.57694E-49 0.12781E-59 0.15029E-54 - 1 3 0.34650E-04 0.10000E+01 0.42297E+05 0.43320E-48 0.17282E-58 0.11310E-53 - 1 3 0.34650E-04 0.10000E+01 0.34111E+05 0.31122E-47 0.23538E-57 0.81573E-53 - 1 3 0.34650E-04 0.10000E+01 0.27509E+05 0.22198E-46 0.31491E-56 0.58553E-52 - 1 3 0.34650E-04 0.10000E+01 0.22184E+05 0.15641E-45 0.41023E-55 0.41682E-51 - 1 3 0.34650E-04 0.10000E+01 0.17891E+05 0.10784E-44 0.51881E-54 0.29203E-50 - 1 3 0.34650E-04 0.10000E+01 0.14428E+05 0.72387E-44 0.63886E-53 0.20070E-49 - 1 3 0.34650E-04 0.10000E+01 0.11635E+05 0.47314E-43 0.76732E-52 0.13528E-48 - 1 3 0.34650E-04 0.10000E+01 0.93834E+04 0.30150E-42 0.89846E-51 0.89259E-48 - 1 3 0.34650E-04 0.10000E+01 0.75673E+04 0.18755E-41 0.10458E-49 0.57134E-47 - 1 3 0.34650E-04 0.10000E+01 0.61026E+04 0.11569E-40 0.13205E-48 0.34971E-46 - 1 3 0.34650E-04 0.10000E+01 0.49215E+04 0.75536E-40 0.21012E-47 0.20397E-45 - 1 3 0.34650E-04 0.10000E+01 0.39689E+04 0.59175E-39 0.42842E-46 0.12080E-44 - 1 3 0.34650E-04 0.10000E+01 0.32008E+04 0.18546E-36 0.30823E-43 0.28065E-42 - 1 3 0.34650E-04 0.10000E+01 0.25813E+04 0.10808E-27 0.39879E-34 0.15069E-33 - 1 3 0.34650E-04 0.10000E+01 0.20817E+04 0.15795E-11 0.19495E-17 0.23974E-17 + 1 3 0.34650E-04 0.10000E+01 0.80645E+05 0.54347E-08 0.34108E-19 0.14111E-13 + 1 3 0.34650E-04 0.10000E+01 0.65036E+05 0.69689E-08 0.78239E-19 0.18106E-13 + 1 3 0.34650E-04 0.10000E+01 0.52449E+05 0.88103E-08 0.17675E-18 0.22914E-13 + 1 3 0.34650E-04 0.10000E+01 0.42297E+05 0.11019E-07 0.39197E-18 0.28704E-13 + 1 3 0.34650E-04 0.10000E+01 0.34111E+05 0.13659E-07 0.85152E-18 0.35664E-13 + 1 3 0.34650E-04 0.10000E+01 0.27509E+05 0.16791E-07 0.18108E-17 0.43990E-13 + 1 3 0.34650E-04 0.10000E+01 0.22184E+05 0.20471E-07 0.37782E-17 0.53877E-13 + 1 3 0.34650E-04 0.10000E+01 0.17891E+05 0.24743E-07 0.78263E-17 0.65498E-13 + 1 3 0.34650E-04 0.10000E+01 0.14428E+05 0.29638E-07 0.16643E-16 0.78980E-13 + 1 3 0.34650E-04 0.10000E+01 0.11635E+05 0.35195E-07 0.38679E-16 0.94391E-13 + 1 3 0.34650E-04 0.10000E+01 0.93834E+04 0.41504E-07 0.10444E-15 0.11176E-12 + 1 3 0.34650E-04 0.10000E+01 0.75673E+04 0.48829E-07 0.32719E-15 0.13121E-12 + 1 3 0.34650E-04 0.10000E+01 0.61026E+04 0.57824E-07 0.11192E-14 0.15329E-12 + 1 3 0.34650E-04 0.10000E+01 0.49215E+04 0.69937E-07 0.39338E-14 0.17952E-12 + 1 3 0.34650E-04 0.10000E+01 0.39689E+04 0.88077E-07 0.13764E-13 0.21341E-12 + 1 3 0.34650E-04 0.10000E+01 0.32008E+04 0.11772E-06 0.47563E-13 0.26168E-12 + 1 3 0.34650E-04 0.10000E+01 0.25813E+04 0.16882E-06 0.16288E-12 0.33606E-12 + 1 3 0.34650E-04 0.10000E+01 0.20817E+04 0.25908E-06 0.55546E-12 0.45574E-12 1 3 0.34650E-04 0.10000E+01 0.16788E+04 0.41997E-06 0.18914E-11 0.65092E-12 1 3 0.34650E-04 0.10000E+01 0.13538E+04 0.70742E-06 0.64436E-11 0.96829E-12 1 3 0.34650E-04 0.10000E+01 0.10918E+04 0.12212E-05 0.22035E-10 0.14799E-11 @@ -4530,24 +4530,24 @@ VERSION 2.8.2 1 3 0.34650E-04 0.10000E+01 0.24221E+03 0.65109E-04 0.55338E-07 0.37086E-10 1 3 0.34650E-04 0.10000E+01 0.19533E+03 0.10051E-03 0.10487E-06 0.54447E-10 1 3 0.34650E-04 0.10000E+01 0.15752E+03 0.10051E-03 0.10487E-06 0.54447E-10 - 1 3 0.60462E-04 0.10000E+01 0.80645E+05 0.14021E-50 0.10482E-61 0.36428E-56 - 1 3 0.60462E-04 0.10000E+01 0.65036E+05 0.11854E-49 0.16638E-60 0.30842E-55 - 1 3 0.60462E-04 0.10000E+01 0.52449E+05 0.10067E-48 0.22302E-59 0.26225E-54 - 1 3 0.60462E-04 0.10000E+01 0.42297E+05 0.75591E-48 0.30155E-58 0.19735E-53 - 1 3 0.60462E-04 0.10000E+01 0.34111E+05 0.54306E-47 0.41073E-57 0.14234E-52 - 1 3 0.60462E-04 0.10000E+01 0.27509E+05 0.38733E-46 0.54951E-56 0.10217E-51 - 1 3 0.60462E-04 0.10000E+01 0.22184E+05 0.27293E-45 0.71583E-55 0.72733E-51 - 1 3 0.60462E-04 0.10000E+01 0.17891E+05 0.18817E-44 0.90529E-54 0.50958E-50 - 1 3 0.60462E-04 0.10000E+01 0.14428E+05 0.12631E-43 0.11148E-52 0.35021E-49 - 1 3 0.60462E-04 0.10000E+01 0.11635E+05 0.82560E-43 0.13389E-51 0.23606E-48 - 1 3 0.60462E-04 0.10000E+01 0.93834E+04 0.52610E-42 0.15678E-50 0.15575E-47 - 1 3 0.60462E-04 0.10000E+01 0.75673E+04 0.32727E-41 0.18248E-49 0.99696E-47 - 1 3 0.60462E-04 0.10000E+01 0.61026E+04 0.20188E-40 0.23041E-48 0.61022E-46 - 1 3 0.60462E-04 0.10000E+01 0.49215E+04 0.13181E-39 0.36664E-47 0.35591E-45 - 1 3 0.60462E-04 0.10000E+01 0.39689E+04 0.10326E-38 0.74757E-46 0.21079E-44 - 1 3 0.60462E-04 0.10000E+01 0.32008E+04 0.32362E-36 0.53784E-43 0.48971E-42 - 1 3 0.60462E-04 0.10000E+01 0.25813E+04 0.18860E-27 0.69587E-34 0.26294E-33 - 1 3 0.60462E-04 0.10000E+01 0.20817E+04 0.27561E-11 0.34017E-17 0.41833E-17 + 1 3 0.60462E-04 0.10000E+01 0.80645E+05 0.94832E-08 0.59517E-19 0.24622E-13 + 1 3 0.60462E-04 0.10000E+01 0.65036E+05 0.12160E-07 0.13652E-18 0.31594E-13 + 1 3 0.60462E-04 0.10000E+01 0.52449E+05 0.15373E-07 0.30843E-18 0.39984E-13 + 1 3 0.60462E-04 0.10000E+01 0.42297E+05 0.19228E-07 0.68397E-18 0.50087E-13 + 1 3 0.60462E-04 0.10000E+01 0.34111E+05 0.23833E-07 0.14858E-17 0.62231E-13 + 1 3 0.60462E-04 0.10000E+01 0.27509E+05 0.29299E-07 0.31597E-17 0.76760E-13 + 1 3 0.60462E-04 0.10000E+01 0.22184E+05 0.35721E-07 0.65928E-17 0.94013E-13 + 1 3 0.60462E-04 0.10000E+01 0.17891E+05 0.43175E-07 0.13656E-16 0.11429E-12 + 1 3 0.60462E-04 0.10000E+01 0.14428E+05 0.51717E-07 0.29040E-16 0.13781E-12 + 1 3 0.60462E-04 0.10000E+01 0.11635E+05 0.61413E-07 0.67493E-16 0.16471E-12 + 1 3 0.60462E-04 0.10000E+01 0.93834E+04 0.72423E-07 0.18223E-15 0.19502E-12 + 1 3 0.60462E-04 0.10000E+01 0.75673E+04 0.85204E-07 0.57093E-15 0.22896E-12 + 1 3 0.60462E-04 0.10000E+01 0.61026E+04 0.10090E-06 0.19529E-14 0.26748E-12 + 1 3 0.60462E-04 0.10000E+01 0.49215E+04 0.12204E-06 0.68643E-14 0.31326E-12 + 1 3 0.60462E-04 0.10000E+01 0.39689E+04 0.15369E-06 0.24018E-13 0.37239E-12 + 1 3 0.60462E-04 0.10000E+01 0.32008E+04 0.20542E-06 0.82994E-13 0.45661E-12 + 1 3 0.60462E-04 0.10000E+01 0.25813E+04 0.29458E-06 0.28421E-12 0.58640E-12 + 1 3 0.60462E-04 0.10000E+01 0.20817E+04 0.45209E-06 0.96924E-12 0.79524E-12 1 3 0.60462E-04 0.10000E+01 0.16788E+04 0.73283E-06 0.33004E-11 0.11358E-11 1 3 0.60462E-04 0.10000E+01 0.13538E+04 0.12344E-05 0.11244E-10 0.16896E-11 1 3 0.60462E-04 0.10000E+01 0.10918E+04 0.21309E-05 0.38449E-10 0.25823E-11 @@ -4560,24 +4560,24 @@ VERSION 2.8.2 1 3 0.60462E-04 0.10000E+01 0.24221E+03 0.11361E-03 0.96561E-07 0.64712E-10 1 3 0.60462E-04 0.10000E+01 0.19533E+03 0.17538E-03 0.18300E-06 0.95006E-10 1 3 0.60462E-04 0.10000E+01 0.15752E+03 0.17538E-03 0.18300E-06 0.95006E-10 - 1 3 0.10550E-03 0.10000E+01 0.80645E+05 0.24466E-50 0.18291E-61 0.63565E-56 - 1 3 0.10550E-03 0.10000E+01 0.65036E+05 0.20685E-49 0.29032E-60 0.53817E-55 - 1 3 0.10550E-03 0.10000E+01 0.52449E+05 0.17567E-48 0.38915E-59 0.45760E-54 - 1 3 0.10550E-03 0.10000E+01 0.42297E+05 0.13190E-47 0.52619E-58 0.34437E-53 - 1 3 0.10550E-03 0.10000E+01 0.34111E+05 0.94761E-47 0.71670E-57 0.24837E-52 - 1 3 0.10550E-03 0.10000E+01 0.27509E+05 0.67588E-46 0.95885E-56 0.17828E-51 - 1 3 0.10550E-03 0.10000E+01 0.22184E+05 0.47625E-45 0.12491E-54 0.12691E-50 - 1 3 0.10550E-03 0.10000E+01 0.17891E+05 0.32835E-44 0.15797E-53 0.88919E-50 - 1 3 0.10550E-03 0.10000E+01 0.14428E+05 0.22040E-43 0.19452E-52 0.61109E-49 - 1 3 0.10550E-03 0.10000E+01 0.11635E+05 0.14406E-42 0.23364E-51 0.41191E-48 - 1 3 0.10550E-03 0.10000E+01 0.93834E+04 0.91800E-42 0.27356E-50 0.27178E-47 - 1 3 0.10550E-03 0.10000E+01 0.75673E+04 0.57106E-41 0.31842E-49 0.17396E-46 - 1 3 0.10550E-03 0.10000E+01 0.61026E+04 0.35226E-40 0.40205E-48 0.10648E-45 - 1 3 0.10550E-03 0.10000E+01 0.49215E+04 0.22999E-39 0.63977E-47 0.62105E-45 - 1 3 0.10550E-03 0.10000E+01 0.39689E+04 0.18018E-38 0.13045E-45 0.36781E-44 - 1 3 0.10550E-03 0.10000E+01 0.32008E+04 0.56470E-36 0.93850E-43 0.85452E-42 - 1 3 0.10550E-03 0.10000E+01 0.25813E+04 0.32909E-27 0.12143E-33 0.45881E-33 - 1 3 0.10550E-03 0.10000E+01 0.20817E+04 0.48093E-11 0.59358E-17 0.72997E-17 + 1 3 0.10550E-03 0.10000E+01 0.80645E+05 0.16548E-07 0.10385E-18 0.42964E-13 + 1 3 0.10550E-03 0.10000E+01 0.65036E+05 0.21219E-07 0.23822E-18 0.55130E-13 + 1 3 0.10550E-03 0.10000E+01 0.52449E+05 0.26826E-07 0.53819E-18 0.69769E-13 + 1 3 0.10550E-03 0.10000E+01 0.42297E+05 0.33551E-07 0.11935E-17 0.87398E-13 + 1 3 0.10550E-03 0.10000E+01 0.34111E+05 0.41588E-07 0.25927E-17 0.10859E-12 + 1 3 0.10550E-03 0.10000E+01 0.27509E+05 0.51125E-07 0.55135E-17 0.13394E-12 + 1 3 0.10550E-03 0.10000E+01 0.22184E+05 0.62331E-07 0.11504E-16 0.16405E-12 + 1 3 0.10550E-03 0.10000E+01 0.17891E+05 0.75337E-07 0.23830E-16 0.19943E-12 + 1 3 0.10550E-03 0.10000E+01 0.14428E+05 0.90243E-07 0.50674E-16 0.24048E-12 + 1 3 0.10550E-03 0.10000E+01 0.11635E+05 0.10716E-06 0.11777E-15 0.28740E-12 + 1 3 0.10550E-03 0.10000E+01 0.93834E+04 0.12637E-06 0.31799E-15 0.34029E-12 + 1 3 0.10550E-03 0.10000E+01 0.75673E+04 0.14868E-06 0.99625E-15 0.39952E-12 + 1 3 0.10550E-03 0.10000E+01 0.61026E+04 0.17606E-06 0.34078E-14 0.46673E-12 + 1 3 0.10550E-03 0.10000E+01 0.49215E+04 0.21295E-06 0.11978E-13 0.54662E-12 + 1 3 0.10550E-03 0.10000E+01 0.39689E+04 0.26818E-06 0.41910E-13 0.64979E-12 + 1 3 0.10550E-03 0.10000E+01 0.32008E+04 0.35845E-06 0.14482E-12 0.79676E-12 + 1 3 0.10550E-03 0.10000E+01 0.25813E+04 0.51403E-06 0.49593E-12 0.10232E-11 + 1 3 0.10550E-03 0.10000E+01 0.20817E+04 0.78886E-06 0.16913E-11 0.13876E-11 1 3 0.10550E-03 0.10000E+01 0.16788E+04 0.12787E-05 0.57590E-11 0.19819E-11 1 3 0.10550E-03 0.10000E+01 0.13538E+04 0.21540E-05 0.19620E-10 0.29483E-11 1 3 0.10550E-03 0.10000E+01 0.10918E+04 0.37183E-05 0.67091E-10 0.45060E-11 @@ -4590,24 +4590,24 @@ VERSION 2.8.2 1 3 0.10550E-03 0.10000E+01 0.24221E+03 0.19825E-03 0.16849E-06 0.11292E-09 1 3 0.10550E-03 0.10000E+01 0.19533E+03 0.30602E-03 0.31932E-06 0.16578E-09 1 3 0.10550E-03 0.10000E+01 0.15752E+03 0.30602E-03 0.31932E-06 0.16578E-09 - 1 3 0.18409E-03 0.10000E+01 0.80645E+05 0.42692E-50 0.31917E-61 0.11092E-55 - 1 3 0.18409E-03 0.10000E+01 0.65036E+05 0.36094E-49 0.50659E-60 0.93908E-55 - 1 3 0.18409E-03 0.10000E+01 0.52449E+05 0.30653E-48 0.67905E-59 0.79849E-54 - 1 3 0.18409E-03 0.10000E+01 0.42297E+05 0.23016E-47 0.91817E-58 0.60090E-53 - 1 3 0.18409E-03 0.10000E+01 0.34111E+05 0.16535E-46 0.12506E-56 0.43340E-52 - 1 3 0.18409E-03 0.10000E+01 0.27509E+05 0.11794E-45 0.16731E-55 0.31109E-51 - 1 3 0.18409E-03 0.10000E+01 0.22184E+05 0.83103E-45 0.21796E-54 0.22146E-50 - 1 3 0.18409E-03 0.10000E+01 0.17891E+05 0.57294E-44 0.27564E-53 0.15516E-49 - 1 3 0.18409E-03 0.10000E+01 0.14428E+05 0.38459E-43 0.33943E-52 0.10663E-48 - 1 3 0.18409E-03 0.10000E+01 0.11635E+05 0.25138E-42 0.40768E-51 0.71876E-48 - 1 3 0.18409E-03 0.10000E+01 0.93834E+04 0.16019E-41 0.47735E-50 0.47424E-47 - 1 3 0.18409E-03 0.10000E+01 0.75673E+04 0.99647E-41 0.55562E-49 0.30356E-46 - 1 3 0.18409E-03 0.10000E+01 0.61026E+04 0.61467E-40 0.70156E-48 0.18580E-45 - 1 3 0.18409E-03 0.10000E+01 0.49215E+04 0.40133E-39 0.11164E-46 0.10837E-44 - 1 3 0.18409E-03 0.10000E+01 0.39689E+04 0.31440E-38 0.22762E-45 0.64180E-44 - 1 3 0.18409E-03 0.10000E+01 0.32008E+04 0.98537E-36 0.16376E-42 0.14911E-41 - 1 3 0.18409E-03 0.10000E+01 0.25813E+04 0.57425E-27 0.21188E-33 0.80060E-33 - 1 3 0.18409E-03 0.10000E+01 0.20817E+04 0.83919E-11 0.10358E-16 0.12737E-16 + 1 3 0.18409E-03 0.10000E+01 0.80645E+05 0.28875E-07 0.18122E-18 0.74970E-13 + 1 3 0.18409E-03 0.10000E+01 0.65036E+05 0.37026E-07 0.41569E-18 0.96198E-13 + 1 3 0.18409E-03 0.10000E+01 0.52449E+05 0.46809E-07 0.93910E-18 0.12174E-12 + 1 3 0.18409E-03 0.10000E+01 0.42297E+05 0.58544E-07 0.20826E-17 0.15250E-12 + 1 3 0.18409E-03 0.10000E+01 0.34111E+05 0.72568E-07 0.45241E-17 0.18948E-12 + 1 3 0.18409E-03 0.10000E+01 0.27509E+05 0.89211E-07 0.96207E-17 0.23372E-12 + 1 3 0.18409E-03 0.10000E+01 0.22184E+05 0.10876E-06 0.20074E-16 0.28625E-12 + 1 3 0.18409E-03 0.10000E+01 0.17891E+05 0.13146E-06 0.41581E-16 0.34799E-12 + 1 3 0.18409E-03 0.10000E+01 0.14428E+05 0.15747E-06 0.88423E-16 0.41962E-12 + 1 3 0.18409E-03 0.10000E+01 0.11635E+05 0.18699E-06 0.20550E-15 0.50150E-12 + 1 3 0.18409E-03 0.10000E+01 0.93834E+04 0.22051E-06 0.55487E-15 0.59379E-12 + 1 3 0.18409E-03 0.10000E+01 0.75673E+04 0.25943E-06 0.17384E-14 0.69714E-12 + 1 3 0.18409E-03 0.10000E+01 0.61026E+04 0.30722E-06 0.59463E-14 0.81441E-12 + 1 3 0.18409E-03 0.10000E+01 0.49215E+04 0.37158E-06 0.20901E-13 0.95381E-12 + 1 3 0.18409E-03 0.10000E+01 0.39689E+04 0.46795E-06 0.73130E-13 0.11339E-11 + 1 3 0.18409E-03 0.10000E+01 0.32008E+04 0.62547E-06 0.25270E-12 0.13903E-11 + 1 3 0.18409E-03 0.10000E+01 0.25813E+04 0.89695E-06 0.86536E-12 0.17855E-11 + 1 3 0.18409E-03 0.10000E+01 0.20817E+04 0.13765E-05 0.29512E-11 0.24214E-11 1 3 0.18409E-03 0.10000E+01 0.16788E+04 0.22313E-05 0.10049E-10 0.34583E-11 1 3 0.18409E-03 0.10000E+01 0.13538E+04 0.37585E-05 0.34235E-10 0.51446E-11 1 3 0.18409E-03 0.10000E+01 0.10918E+04 0.64881E-05 0.11707E-09 0.78628E-11 @@ -4620,24 +4620,24 @@ VERSION 2.8.2 1 3 0.18409E-03 0.10000E+01 0.24221E+03 0.34593E-03 0.29401E-06 0.19704E-09 1 3 0.18409E-03 0.10000E+01 0.19533E+03 0.53399E-03 0.55719E-06 0.28928E-09 1 3 0.18409E-03 0.10000E+01 0.15752E+03 0.53399E-03 0.55719E-06 0.28928E-09 - 1 3 0.32123E-03 0.10000E+01 0.80645E+05 0.74494E-50 0.55692E-61 0.19354E-55 - 1 3 0.32123E-03 0.10000E+01 0.65036E+05 0.62982E-49 0.88397E-60 0.16386E-54 - 1 3 0.32123E-03 0.10000E+01 0.52449E+05 0.53487E-48 0.11849E-58 0.13933E-53 - 1 3 0.32123E-03 0.10000E+01 0.42297E+05 0.40162E-47 0.16022E-57 0.10485E-52 - 1 3 0.32123E-03 0.10000E+01 0.34111E+05 0.28853E-46 0.21822E-56 0.75625E-52 - 1 3 0.32123E-03 0.10000E+01 0.27509E+05 0.20579E-45 0.29195E-55 0.54283E-51 - 1 3 0.32123E-03 0.10000E+01 0.22184E+05 0.14501E-44 0.38032E-54 0.38643E-50 - 1 3 0.32123E-03 0.10000E+01 0.17891E+05 0.99975E-44 0.48098E-53 0.27074E-49 - 1 3 0.32123E-03 0.10000E+01 0.14428E+05 0.67109E-43 0.59228E-52 0.18607E-48 - 1 3 0.32123E-03 0.10000E+01 0.11635E+05 0.43864E-42 0.71138E-51 0.12542E-47 - 1 3 0.32123E-03 0.10000E+01 0.93834E+04 0.27952E-41 0.83295E-50 0.82751E-47 - 1 3 0.32123E-03 0.10000E+01 0.75673E+04 0.17388E-40 0.96952E-49 0.52969E-46 - 1 3 0.32123E-03 0.10000E+01 0.61026E+04 0.10726E-39 0.12242E-47 0.32421E-45 - 1 3 0.32123E-03 0.10000E+01 0.49215E+04 0.70029E-39 0.19480E-46 0.18910E-44 - 1 3 0.32123E-03 0.10000E+01 0.39689E+04 0.54861E-38 0.39718E-45 0.11199E-43 - 1 3 0.32123E-03 0.10000E+01 0.32008E+04 0.17194E-35 0.28575E-42 0.26018E-41 - 1 3 0.32123E-03 0.10000E+01 0.25813E+04 0.10020E-26 0.36972E-33 0.13970E-32 - 1 3 0.32123E-03 0.10000E+01 0.20817E+04 0.14643E-10 0.18073E-16 0.22226E-16 + 1 3 0.32123E-03 0.10000E+01 0.80645E+05 0.50385E-07 0.31621E-18 0.13082E-12 + 1 3 0.32123E-03 0.10000E+01 0.65036E+05 0.64608E-07 0.72535E-18 0.16786E-12 + 1 3 0.32123E-03 0.10000E+01 0.52449E+05 0.81680E-07 0.16387E-17 0.21243E-12 + 1 3 0.32123E-03 0.10000E+01 0.42297E+05 0.10216E-06 0.36339E-17 0.26611E-12 + 1 3 0.32123E-03 0.10000E+01 0.34111E+05 0.12663E-06 0.78943E-17 0.33063E-12 + 1 3 0.32123E-03 0.10000E+01 0.27509E+05 0.15567E-06 0.16788E-16 0.40783E-12 + 1 3 0.32123E-03 0.10000E+01 0.22184E+05 0.18979E-06 0.35027E-16 0.49949E-12 + 1 3 0.32123E-03 0.10000E+01 0.17891E+05 0.22939E-06 0.72557E-16 0.60722E-12 + 1 3 0.32123E-03 0.10000E+01 0.14428E+05 0.27477E-06 0.15429E-15 0.73221E-12 + 1 3 0.32123E-03 0.10000E+01 0.11635E+05 0.32629E-06 0.35859E-15 0.87509E-12 + 1 3 0.32123E-03 0.10000E+01 0.93834E+04 0.38478E-06 0.96821E-15 0.10361E-11 + 1 3 0.32123E-03 0.10000E+01 0.75673E+04 0.45269E-06 0.30334E-14 0.12165E-11 + 1 3 0.32123E-03 0.10000E+01 0.61026E+04 0.53608E-06 0.10376E-13 0.14211E-11 + 1 3 0.32123E-03 0.10000E+01 0.49215E+04 0.64838E-06 0.36470E-13 0.16643E-11 + 1 3 0.32123E-03 0.10000E+01 0.39689E+04 0.81655E-06 0.12761E-12 0.19785E-11 + 1 3 0.32123E-03 0.10000E+01 0.32008E+04 0.10914E-05 0.44095E-12 0.24260E-11 + 1 3 0.32123E-03 0.10000E+01 0.25813E+04 0.15651E-05 0.15100E-11 0.31156E-11 + 1 3 0.32123E-03 0.10000E+01 0.20817E+04 0.24019E-05 0.51496E-11 0.42251E-11 1 3 0.32123E-03 0.10000E+01 0.16788E+04 0.38935E-05 0.17535E-10 0.60346E-11 1 3 0.32123E-03 0.10000E+01 0.13538E+04 0.65584E-05 0.59738E-10 0.89769E-11 1 3 0.32123E-03 0.10000E+01 0.10918E+04 0.11321E-04 0.20428E-09 0.13720E-10 @@ -4700,24 +4700,24 @@ VERSION 2.8.2 1 4 0.10550E-03 0.10000E+01 0.10601E+01 0.26424E+01 0.56197E-01 0.11474E-02 0.10460E+00 0.16363E-03 0.46642E+10 0.83909E+02 0.50000E+03 0.99993E-14 0.58896E-02 0.78429E-02 0.50065E+02 1 4 0.18409E-03 0.10000E+01 0.10601E+01 0.26424E+01 0.17111E+00 0.20022E-02 0.18252E+00 0.16363E-03 0.81388E+10 0.14642E+03 0.50000E+03 0.17448E-13 0.10277E-01 0.78429E-02 0.50065E+02 1 4 0.32123E-03 0.10000E+01 0.10601E+01 0.26424E+01 0.52100E+00 0.34938E-02 0.31849E+00 0.16363E-03 0.14202E+11 0.25549E+03 0.50000E+03 0.30446E-13 0.17933E-01 0.78429E-02 0.50065E+02 - 1 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 1 4 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 1 4 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 1 4 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 1 4 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 1 4 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 1 4 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 1 4 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 1 4 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 1 4 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 1 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 1 4 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 1 4 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 1 4 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 1 4 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 1 4 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 1 4 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 1 4 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 1 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 1 4 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 1 4 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 1 4 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 1 4 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 1 4 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 1 4 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 1 4 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 1 4 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 1 4 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 1 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 1 4 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 1 4 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 1 4 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 1 4 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 1 4 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 1 4 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 1 4 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 1 4 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 1 4 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 1 4 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -4730,24 +4730,24 @@ VERSION 2.8.2 1 4 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 1 4 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 1 4 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 1 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 1 4 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 1 4 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 1 4 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 1 4 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 1 4 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 1 4 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 1 4 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 1 4 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 1 4 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 1 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 1 4 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 1 4 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 1 4 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 1 4 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 1 4 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 1 4 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 1 4 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 1 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 1 4 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 1 4 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 1 4 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 1 4 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 1 4 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 1 4 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 1 4 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 1 4 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 1 4 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 1 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 1 4 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 1 4 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 1 4 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 1 4 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 1 4 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 1 4 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 1 4 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 1 4 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 1 4 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 1 4 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -4760,24 +4760,24 @@ VERSION 2.8.2 1 4 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 1 4 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 1 4 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 1 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 1 4 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 1 4 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 1 4 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 1 4 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 1 4 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 1 4 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 1 4 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 1 4 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 1 4 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 1 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 1 4 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 1 4 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 1 4 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 1 4 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 1 4 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 1 4 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 1 4 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 1 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 1 4 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 1 4 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 1 4 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 1 4 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 1 4 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 1 4 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 1 4 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 1 4 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 1 4 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 1 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 1 4 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 1 4 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 1 4 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 1 4 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 1 4 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 1 4 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 1 4 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 1 4 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 1 4 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 1 4 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -4790,24 +4790,24 @@ VERSION 2.8.2 1 4 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 1 4 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 1 4 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 1 4 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 1 4 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 1 4 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 1 4 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 1 4 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 1 4 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 1 4 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 1 4 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 1 4 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 1 4 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 1 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 1 4 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 1 4 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 1 4 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 1 4 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 1 4 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 1 4 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 1 4 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 1 4 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 1 4 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 1 4 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 1 4 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 1 4 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 1 4 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 1 4 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 1 4 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 1 4 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 1 4 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 1 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 1 4 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 1 4 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 1 4 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 1 4 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 1 4 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 1 4 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 1 4 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 1 4 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 1 4 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 1 4 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -4820,24 +4820,24 @@ VERSION 2.8.2 1 4 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 1 4 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 1 4 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 1 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 1 4 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 1 4 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 1 4 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 1 4 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 1 4 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 1 4 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 1 4 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 1 4 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 1 4 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 1 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 1 4 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 1 4 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 1 4 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 1 4 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 1 4 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 1 4 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 1 4 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 1 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 1 4 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 1 4 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 1 4 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 1 4 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 1 4 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 1 4 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 1 4 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 1 4 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 1 4 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 1 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 1 4 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 1 4 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 1 4 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 1 4 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 1 4 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 1 4 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 1 4 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 1 4 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 1 4 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 1 4 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -4850,24 +4850,24 @@ VERSION 2.8.2 1 4 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 1 4 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 1 4 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 1 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 1 4 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 1 4 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 1 4 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 1 4 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 1 4 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 1 4 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 1 4 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 1 4 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 1 4 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 1 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 1 4 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 1 4 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 1 4 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 1 4 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 1 4 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 1 4 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 1 4 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 1 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 1 4 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 1 4 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 1 4 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 1 4 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 1 4 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 1 4 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 1 4 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 1 4 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 1 4 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 1 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 1 4 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 1 4 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 1 4 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 1 4 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 1 4 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 1 4 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 1 4 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 1 4 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 1 4 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 1 4 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -4880,24 +4880,24 @@ VERSION 2.8.2 1 4 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 1 4 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 1 4 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 1 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 1 4 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 1 4 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 1 4 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 1 4 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 1 4 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 1 4 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 1 4 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 1 4 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 1 4 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 1 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 1 4 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 1 4 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 1 4 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 1 4 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 1 4 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 1 4 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 1 4 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 1 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 1 4 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 1 4 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 1 4 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 1 4 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 1 4 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 1 4 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 1 4 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 1 4 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 1 4 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 1 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 1 4 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 1 4 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 1 4 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 1 4 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 1 4 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 1 4 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 1 4 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 1 4 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 1 4 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 1 4 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -4910,24 +4910,24 @@ VERSION 2.8.2 1 4 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 1 4 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 1 4 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 1 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 1 4 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 1 4 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 1 4 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 1 4 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 1 4 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 1 4 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 1 4 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 1 4 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 1 4 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 1 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 1 4 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 1 4 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 1 4 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 1 4 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 1 4 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 1 4 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 1 4 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 1 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 1 4 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 1 4 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 1 4 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 1 4 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 1 4 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 1 4 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 1 4 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 1 4 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 1 4 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 1 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 1 4 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 1 4 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 1 4 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 1 4 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 1 4 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 1 4 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 1 4 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 1 4 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 1 4 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 1 4 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -4940,24 +4940,24 @@ VERSION 2.8.2 1 4 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 1 4 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 1 4 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 1 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 1 4 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 1 4 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 1 4 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 1 4 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 1 4 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 1 4 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 1 4 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 1 4 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 1 4 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 1 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 1 4 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 1 4 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 1 4 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 1 4 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 1 4 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 1 4 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 1 4 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 1 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 1 4 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 1 4 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 1 4 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 1 4 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 1 4 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 1 4 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 1 4 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 1 4 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 1 4 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 1 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 1 4 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 1 4 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 1 4 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 1 4 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 1 4 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 1 4 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 1 4 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 1 4 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 1 4 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 1 4 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -4970,24 +4970,24 @@ VERSION 2.8.2 1 4 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 1 4 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 1 4 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 1 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 1 4 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 1 4 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 1 4 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 1 4 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 1 4 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 1 4 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 1 4 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 1 4 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 1 4 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 1 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 1 4 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 1 4 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 1 4 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 1 4 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 1 4 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 1 4 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 1 4 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 1 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 1 4 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 1 4 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 1 4 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 1 4 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 1 4 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 1 4 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 1 4 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 1 4 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 1 4 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 1 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 1 4 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 1 4 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 1 4 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 1 4 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 1 4 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 1 4 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 1 4 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 1 4 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 1 4 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 1 4 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -5000,24 +5000,24 @@ VERSION 2.8.2 1 4 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 1 4 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 1 4 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 1 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 1 4 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 1 4 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 1 4 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 1 4 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 1 4 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 1 4 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 1 4 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 1 4 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 1 4 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 1 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 1 4 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 1 4 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 1 4 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 1 4 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 1 4 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 1 4 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 1 4 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 1 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 1 4 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 1 4 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 1 4 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 1 4 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 1 4 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 1 4 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 1 4 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 1 4 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 1 4 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 1 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 1 4 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 1 4 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 1 4 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 1 4 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 1 4 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 1 4 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 1 4 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 1 4 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 1 4 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 1 4 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -5030,24 +5030,24 @@ VERSION 2.8.2 1 4 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 1 4 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 1 4 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 1 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 1 4 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 1 4 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 1 4 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 1 4 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 1 4 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 1 4 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 1 4 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 1 4 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 1 4 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 1 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 1 4 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 1 4 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 1 4 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 1 4 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 1 4 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 1 4 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 1 4 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 1 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 1 4 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 1 4 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 1 4 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 1 4 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 1 4 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 1 4 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 1 4 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 1 4 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 1 4 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 1 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 1 4 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 1 4 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 1 4 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 1 4 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 1 4 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 1 4 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 1 4 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 1 4 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 1 4 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 1 4 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -5060,24 +5060,24 @@ VERSION 2.8.2 1 4 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 1 4 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 1 4 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 1 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 1 4 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 1 4 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 1 4 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 1 4 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 1 4 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 1 4 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 1 4 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 1 4 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 1 4 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 1 4 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 1 4 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 1 4 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 1 4 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 1 4 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 1 4 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 1 4 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 1 4 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 1 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 1 4 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 1 4 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 1 4 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 1 4 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 1 4 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 1 4 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 1 4 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 1 4 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 1 4 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 1 4 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 1 4 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 1 4 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 1 4 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 1 4 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 1 4 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 1 4 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 1 4 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 1 4 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 1 4 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 1 4 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -5090,24 +5090,24 @@ VERSION 2.8.2 1 4 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 1 4 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 1 4 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 1 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 1 4 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 1 4 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 1 4 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 1 4 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 1 4 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 1 4 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 1 4 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 1 4 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 1 4 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 1 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 1 4 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 1 4 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 1 4 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 1 4 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 1 4 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 1 4 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 1 4 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 1 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 1 4 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 1 4 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 1 4 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 1 4 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 1 4 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 1 4 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 1 4 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 1 4 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 1 4 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 1 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 1 4 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 1 4 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 1 4 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 1 4 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 1 4 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 1 4 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 1 4 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 1 4 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 1 4 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 1 4 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -5120,24 +5120,24 @@ VERSION 2.8.2 1 4 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 1 4 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 1 4 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 1 4 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 1 4 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 1 4 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 1 4 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 1 4 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 1 4 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 1 4 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 1 4 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 1 4 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 1 4 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 1 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 1 4 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 1 4 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 1 4 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 1 4 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 1 4 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 1 4 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 1 4 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 1 4 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 1 4 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 1 4 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 1 4 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 1 4 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 1 4 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 1 4 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 1 4 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 1 4 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 1 4 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 1 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 1 4 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 1 4 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 1 4 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 1 4 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 1 4 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 1 4 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 1 4 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 1 4 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 1 4 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 1 4 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -5150,24 +5150,24 @@ VERSION 2.8.2 1 4 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 1 4 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 1 4 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 1 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 1 4 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 1 4 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 1 4 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 1 4 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 1 4 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 1 4 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 1 4 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 1 4 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 1 4 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 1 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 1 4 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 1 4 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 1 4 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 1 4 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 1 4 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 1 4 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 1 4 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 1 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 1 4 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 1 4 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 1 4 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 1 4 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 1 4 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 1 4 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 1 4 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 1 4 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 1 4 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 1 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 1 4 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 1 4 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 1 4 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 1 4 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 1 4 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 1 4 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 1 4 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 1 4 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 1 4 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 1 4 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -5180,24 +5180,24 @@ VERSION 2.8.2 1 4 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 1 4 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 1 4 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 1 4 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 1 4 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 1 4 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 1 4 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 1 4 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 1 4 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 1 4 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 1 4 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 1 4 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 1 4 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 1 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 1 4 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 1 4 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 1 4 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 1 4 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 1 4 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 1 4 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 1 4 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 1 4 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 1 4 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 1 4 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 1 4 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 1 4 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 1 4 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 1 4 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 1 4 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 1 4 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 1 4 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 1 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 1 4 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 1 4 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 1 4 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 1 4 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 1 4 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 1 4 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 1 4 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 1 4 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 1 4 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 1 4 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -5210,24 +5210,24 @@ VERSION 2.8.2 1 4 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 1 4 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 1 4 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 1 4 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 1 4 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 1 4 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 1 4 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 1 4 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 1 4 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 1 4 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 1 4 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 1 4 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 1 4 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 1 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 1 4 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 1 4 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 1 4 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 1 4 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 1 4 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 1 4 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 1 4 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 1 4 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 1 4 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 1 4 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 1 4 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 1 4 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 1 4 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 1 4 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 1 4 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 1 4 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 1 4 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 1 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 1 4 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 1 4 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 1 4 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 1 4 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 1 4 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 1 4 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 1 4 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 1 4 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 1 4 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 1 4 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -5240,24 +5240,24 @@ VERSION 2.8.2 1 4 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 1 4 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 1 4 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 1 4 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 1 4 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 1 4 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 1 4 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 1 4 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 1 4 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 1 4 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 1 4 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 1 4 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 1 4 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 1 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 1 4 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 1 4 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 1 4 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 1 4 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 1 4 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 1 4 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 1 4 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 1 4 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 1 4 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 1 4 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 1 4 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 1 4 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 1 4 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 1 4 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 1 4 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 1 4 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 1 4 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 1 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 1 4 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 1 4 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 1 4 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 1 4 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 1 4 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 1 4 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 1 4 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 1 4 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 1 4 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 1 4 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -5270,24 +5270,24 @@ VERSION 2.8.2 1 4 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 1 4 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 1 4 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 1 4 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 1 4 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 1 4 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 1 4 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 1 4 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 1 4 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 1 4 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 1 4 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 1 4 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 1 4 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 1 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 1 4 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 1 4 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 1 4 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 1 4 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 1 4 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 1 4 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 1 4 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 1 4 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 1 4 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 1 4 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 1 4 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 1 4 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 1 4 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 1 4 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 1 4 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 1 4 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 1 4 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 1 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 1 4 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 1 4 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 1 4 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 1 4 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 1 4 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 1 4 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 1 4 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 1 4 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 1 4 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 1 4 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -5300,24 +5300,24 @@ VERSION 2.8.2 1 4 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 1 4 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 1 4 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 1 4 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 1 4 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 1 4 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 1 4 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 1 4 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 1 4 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 1 4 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 1 4 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 1 4 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 1 4 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 1 4 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 1 4 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 1 4 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 1 4 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 1 4 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 1 4 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 1 4 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 1 4 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 1 4 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 1 4 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 1 4 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 1 4 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 1 4 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 1 4 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 1 4 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 1 4 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 1 4 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 1 4 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 1 4 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 1 4 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 1 4 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 1 4 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 1 4 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 1 4 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 1 4 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 1 4 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 1 4 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 1 4 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 1 4 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -5330,24 +5330,24 @@ VERSION 2.8.2 1 4 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 1 4 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 1 4 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 1 4 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 1 4 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 1 4 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 1 4 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 1 4 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 1 4 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 1 4 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 1 4 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 1 4 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 1 4 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 1 4 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 1 4 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 1 4 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 1 4 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 1 4 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 1 4 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 1 4 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 1 4 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 1 4 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 1 4 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 1 4 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 1 4 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 1 4 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 1 4 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 1 4 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 1 4 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 1 4 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 1 4 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 1 4 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 1 4 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 1 4 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 1 4 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 1 4 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 1 4 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 1 4 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 1 4 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 1 4 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 1 4 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 1 4 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -5360,24 +5360,24 @@ VERSION 2.8.2 1 4 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 1 4 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 1 4 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 1 4 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 1 4 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 1 4 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 1 4 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 1 4 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 1 4 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 1 4 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 1 4 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 1 4 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 1 4 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 1 4 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 1 4 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 1 4 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 1 4 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 1 4 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 1 4 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 1 4 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 1 4 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 1 4 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 1 4 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 1 4 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 1 4 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 1 4 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 1 4 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 1 4 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 1 4 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 1 4 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 1 4 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 1 4 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 1 4 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 1 4 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 1 4 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 1 4 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 1 4 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 1 4 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 1 4 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 1 4 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 1 4 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 1 4 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -5390,24 +5390,24 @@ VERSION 2.8.2 1 4 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 1 4 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 1 4 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 1 4 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 1 4 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 1 4 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 1 4 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 1 4 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 1 4 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 1 4 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 1 4 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 1 4 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 1 4 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 1 4 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 1 4 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 1 4 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 1 4 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 1 4 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 1 4 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 1 4 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 1 4 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 1 4 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 1 4 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 1 4 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 1 4 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 1 4 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 1 4 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 1 4 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 1 4 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 1 4 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 1 4 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 1 4 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 1 4 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 1 4 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 1 4 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 1 4 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 1 4 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 1 4 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 1 4 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 1 4 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 1 4 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 1 4 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -5420,24 +5420,24 @@ VERSION 2.8.2 1 4 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 1 4 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 1 4 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 1 4 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 1 4 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 1 4 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 1 4 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 1 4 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 1 4 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 1 4 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 1 4 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 1 4 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 1 4 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 1 4 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 1 4 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 1 4 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 1 4 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 1 4 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 1 4 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 1 4 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 1 4 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 1 4 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 1 4 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 1 4 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 1 4 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 1 4 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 1 4 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 1 4 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 1 4 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 1 4 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 1 4 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 1 4 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 1 4 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 1 4 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 1 4 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 1 4 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 1 4 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 1 4 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 1 4 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 1 4 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 1 4 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 1 4 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -5450,24 +5450,24 @@ VERSION 2.8.2 1 4 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 1 4 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 1 4 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 1 4 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 1 4 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 1 4 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 1 4 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 1 4 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 1 4 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 1 4 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 1 4 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 1 4 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 1 4 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 1 4 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 1 4 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 1 4 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 1 4 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 1 4 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 1 4 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 1 4 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 1 4 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 1 4 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 1 4 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 1 4 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 1 4 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 1 4 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 1 4 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 1 4 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 1 4 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 1 4 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 1 4 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 1 4 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 1 4 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 1 4 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 1 4 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 1 4 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 1 4 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 1 4 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 1 4 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 1 4 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 1 4 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 1 4 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -5480,24 +5480,24 @@ VERSION 2.8.2 1 4 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 1 4 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 1 4 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 1 4 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 1 4 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 1 4 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 1 4 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 1 4 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 1 4 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 1 4 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 1 4 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 1 4 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 1 4 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 1 4 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 1 4 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 1 4 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 1 4 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 1 4 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 1 4 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 1 4 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 1 4 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 1 4 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 1 4 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 1 4 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 1 4 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 1 4 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 1 4 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 1 4 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 1 4 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 1 4 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 1 4 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 1 4 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 1 4 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 1 4 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 1 4 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 1 4 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 1 4 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 1 4 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 1 4 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 1 4 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 1 4 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 1 4 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -5510,24 +5510,24 @@ VERSION 2.8.2 1 4 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 1 4 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 1 4 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 1 4 0.15405E-08 0.10000E+01 0.80645E+05 0.19148E-55 0.14304E-66 0.64549E-64 - 1 4 0.15405E-08 0.10000E+01 0.65036E+05 0.16177E-54 0.22667E-65 0.54419E-63 - 1 4 0.15405E-08 0.10000E+01 0.52449E+05 0.13717E-53 0.30230E-64 0.46081E-62 - 1 4 0.15405E-08 0.10000E+01 0.42297E+05 0.10257E-52 0.40364E-63 0.34394E-61 - 1 4 0.15405E-08 0.10000E+01 0.34111E+05 0.72900E-52 0.53361E-62 0.24407E-60 - 1 4 0.15405E-08 0.10000E+01 0.27509E+05 0.50699E-51 0.66987E-61 0.16985E-59 - 1 4 0.15405E-08 0.10000E+01 0.22184E+05 0.33929E-50 0.79423E-60 0.11394E-58 - 1 4 0.15405E-08 0.10000E+01 0.17891E+05 0.21742E-49 0.10042E-58 0.71853E-58 - 1 4 0.15405E-08 0.10000E+01 0.14428E+05 0.14537E-48 0.18130E-57 0.43039E-57 - 1 4 0.15405E-08 0.10000E+01 0.11635E+05 0.12749E-47 0.47622E-56 0.28276E-56 - 1 4 0.15405E-08 0.10000E+01 0.93834E+04 0.16067E-46 0.13944E-54 0.26903E-55 - 1 4 0.15405E-08 0.10000E+01 0.75673E+04 0.23847E-45 0.40338E-53 0.36493E-54 - 1 4 0.15405E-08 0.10000E+01 0.61026E+04 0.35982E-44 0.11395E-51 0.54839E-53 - 1 4 0.15405E-08 0.10000E+01 0.49215E+04 0.53385E-43 0.31709E-50 0.81774E-52 - 1 4 0.15405E-08 0.10000E+01 0.39689E+04 0.78041E-42 0.87482E-49 0.11960E-50 - 1 4 0.15405E-08 0.10000E+01 0.32008E+04 0.35568E-39 0.77726E-46 0.54394E-48 - 1 4 0.15405E-08 0.10000E+01 0.25813E+04 0.26733E-30 0.13372E-36 0.40787E-39 - 1 4 0.15405E-08 0.10000E+01 0.20817E+04 0.52263E-14 0.11647E-19 0.79630E-23 + 1 4 0.15405E-08 0.10000E+01 0.80645E+05 0.12945E-12 0.78765E-24 0.43699E-21 + 1 4 0.15405E-08 0.10000E+01 0.65036E+05 0.16578E-12 0.17576E-23 0.55933E-21 + 1 4 0.15405E-08 0.10000E+01 0.52449E+05 0.20905E-12 0.38754E-23 0.70486E-21 + 1 4 0.15405E-08 0.10000E+01 0.42297E+05 0.26037E-12 0.89006E-23 0.87685E-21 + 1 4 0.15405E-08 0.10000E+01 0.34111E+05 0.32113E-12 0.23847E-22 0.10782E-20 + 1 4 0.15405E-08 0.10000E+01 0.27509E+05 0.39426E-12 0.81765E-22 0.13126E-20 + 1 4 0.15405E-08 0.10000E+01 0.22184E+05 0.48805E-12 0.34228E-21 0.15900E-20 + 1 4 0.15405E-08 0.10000E+01 0.17891E+05 0.62598E-12 0.15655E-20 0.19418E-20 + 1 4 0.15405E-08 0.10000E+01 0.14428E+05 0.87069E-12 0.73181E-20 0.24583E-20 + 1 4 0.15405E-08 0.10000E+01 0.11635E+05 0.13815E-11 0.34179E-19 0.33782E-20 + 1 4 0.15405E-08 0.10000E+01 0.93834E+04 0.25527E-11 0.15867E-18 0.53006E-20 + 1 4 0.15405E-08 0.10000E+01 0.75673E+04 0.53449E-11 0.73056E-18 0.96899E-20 + 1 4 0.15405E-08 0.10000E+01 0.61026E+04 0.12074E-10 0.33188E-17 0.20076E-19 + 1 4 0.15405E-08 0.10000E+01 0.49215E+04 0.28238E-10 0.14766E-16 0.44838E-19 + 1 4 0.15405E-08 0.10000E+01 0.39689E+04 0.66611E-10 0.64015E-16 0.10342E-18 + 1 4 0.15405E-08 0.10000E+01 0.32008E+04 0.15603E-09 0.27029E-15 0.23972E-18 + 1 4 0.15405E-08 0.10000E+01 0.25813E+04 0.35979E-09 0.11122E-14 0.55005E-18 + 1 4 0.15405E-08 0.10000E+01 0.20817E+04 0.81311E-09 0.44565E-14 0.12402E-17 1 4 0.15405E-08 0.10000E+01 0.16788E+04 0.17970E-08 0.17378E-13 0.27379E-17 1 4 0.15405E-08 0.10000E+01 0.13538E+04 0.38795E-08 0.66103E-13 0.59072E-17 1 4 0.15405E-08 0.10000E+01 0.10918E+04 0.81788E-08 0.24665E-12 0.12449E-16 @@ -5540,24 +5540,24 @@ VERSION 2.8.2 1 4 0.15405E-08 0.10000E+01 0.24221E+03 0.81901E-06 0.75568E-09 0.12452E-14 1 4 0.15405E-08 0.10000E+01 0.19533E+03 0.12908E-05 0.14360E-08 0.19625E-14 1 4 0.15405E-08 0.10000E+01 0.15752E+03 0.12908E-05 0.14360E-08 0.19625E-14 - 1 4 0.26880E-08 0.10000E+01 0.80645E+05 0.48120E-55 0.35762E-66 0.15528E-62 - 1 4 0.26880E-08 0.10000E+01 0.65036E+05 0.40488E-54 0.56534E-65 0.13053E-61 - 1 4 0.26880E-08 0.10000E+01 0.52449E+05 0.34232E-53 0.75005E-64 0.11029E-60 - 1 4 0.26880E-08 0.10000E+01 0.42297E+05 0.25488E-52 0.99572E-63 0.82050E-60 - 1 4 0.26880E-08 0.10000E+01 0.34111E+05 0.18027E-51 0.13148E-61 0.57963E-59 - 1 4 0.26880E-08 0.10000E+01 0.27509E+05 0.12514E-50 0.16675E-60 0.40195E-58 - 1 4 0.26880E-08 0.10000E+01 0.22184E+05 0.84262E-50 0.20078E-59 0.27008E-57 - 1 4 0.26880E-08 0.10000E+01 0.17891E+05 0.54440E-49 0.24021E-58 0.17202E-56 - 1 4 0.26880E-08 0.10000E+01 0.14428E+05 0.34812E-48 0.34029E-57 0.10259E-55 - 1 4 0.26880E-08 0.10000E+01 0.11635E+05 0.25093E-47 0.68430E-56 0.58811E-55 - 1 4 0.26880E-08 0.10000E+01 0.93834E+04 0.24305E-46 0.17627E-54 0.36387E-54 - 1 4 0.26880E-08 0.10000E+01 0.75673E+04 0.30845E-45 0.48307E-53 0.29367E-53 - 1 4 0.26880E-08 0.10000E+01 0.61026E+04 0.43402E-44 0.13162E-51 0.31654E-52 - 1 4 0.26880E-08 0.10000E+01 0.49215E+04 0.61834E-43 0.35485E-50 0.38601E-51 - 1 4 0.26880E-08 0.10000E+01 0.39689E+04 0.87526E-42 0.95268E-49 0.47781E-50 - 1 4 0.26880E-08 0.10000E+01 0.32008E+04 0.38797E-39 0.82716E-46 0.18433E-47 - 1 4 0.26880E-08 0.10000E+01 0.25813E+04 0.28456E-30 0.13932E-36 0.11673E-38 - 1 4 0.26880E-08 0.10000E+01 0.20817E+04 0.54344E-14 0.11879E-19 0.18914E-22 + 1 4 0.26880E-08 0.10000E+01 0.80645E+05 0.32613E-12 0.19560E-23 0.10530E-19 + 1 4 0.26880E-08 0.10000E+01 0.65036E+05 0.41717E-12 0.43617E-23 0.13466E-19 + 1 4 0.26880E-08 0.10000E+01 0.52449E+05 0.52537E-12 0.95354E-23 0.16951E-19 + 1 4 0.26880E-08 0.10000E+01 0.42297E+05 0.65335E-12 0.20894E-22 0.21063E-19 + 1 4 0.26880E-08 0.10000E+01 0.34111E+05 0.80382E-12 0.49015E-22 0.25860E-19 + 1 4 0.26880E-08 0.10000E+01 0.27509E+05 0.98080E-12 0.13652E-21 0.31376E-19 + 1 4 0.26880E-08 0.10000E+01 0.22184E+05 0.11938E-11 0.47498E-21 0.37636E-19 + 1 4 0.26880E-08 0.10000E+01 0.17891E+05 0.14694E-11 0.19405E-20 0.44721E-19 + 1 4 0.26880E-08 0.10000E+01 0.14428E+05 0.18776E-11 0.85186E-20 0.52930E-19 + 1 4 0.26880E-08 0.10000E+01 0.11635E+05 0.25957E-11 0.38256E-19 0.63102E-19 + 1 4 0.26880E-08 0.10000E+01 0.93834E+04 0.40552E-11 0.17269E-18 0.77239E-19 + 1 4 0.26880E-08 0.10000E+01 0.75673E+04 0.72883E-11 0.77840E-18 0.99767E-19 + 1 4 0.26880E-08 0.10000E+01 0.61026E+04 0.14740E-10 0.34801E-17 0.14016E-18 + 1 4 0.26880E-08 0.10000E+01 0.49215E+04 0.32140E-10 0.15303E-16 0.21857E-18 + 1 4 0.26880E-08 0.10000E+01 0.39689E+04 0.72656E-10 0.65785E-16 0.37768E-18 + 1 4 0.26880E-08 0.10000E+01 0.32008E+04 0.16580E-09 0.27608E-15 0.70728E-18 + 1 4 0.26880E-08 0.10000E+01 0.25813E+04 0.37603E-09 0.11311E-14 0.13943E-17 + 1 4 0.26880E-08 0.10000E+01 0.20817E+04 0.84051E-09 0.45186E-14 0.28232E-17 1 4 0.26880E-08 0.10000E+01 0.16788E+04 0.18437E-08 0.17583E-13 0.57719E-17 1 4 0.26880E-08 0.10000E+01 0.13538E+04 0.39593E-08 0.66792E-13 0.11783E-16 1 4 0.26880E-08 0.10000E+01 0.10918E+04 0.83161E-08 0.24899E-12 0.23856E-16 @@ -5570,24 +5570,24 @@ VERSION 2.8.2 1 4 0.26880E-08 0.10000E+01 0.24221E+03 0.82605E-06 0.76171E-09 0.21664E-14 1 4 0.26880E-08 0.10000E+01 0.19533E+03 0.13017E-05 0.14475E-08 0.34061E-14 1 4 0.26880E-08 0.10000E+01 0.15752E+03 0.13017E-05 0.14475E-08 0.34061E-14 - 1 4 0.46905E-08 0.10000E+01 0.80645E+05 0.95209E-55 0.70695E-66 0.63861E-62 - 1 4 0.46905E-08 0.10000E+01 0.65036E+05 0.80051E-54 0.11171E-64 0.53757E-61 - 1 4 0.46905E-08 0.10000E+01 0.52449E+05 0.67645E-53 0.14804E-63 0.45478E-60 - 1 4 0.46905E-08 0.10000E+01 0.42297E+05 0.50323E-52 0.19622E-62 0.33910E-59 - 1 4 0.46905E-08 0.10000E+01 0.34111E+05 0.35542E-51 0.25855E-61 0.24057E-58 - 1 4 0.46905E-08 0.10000E+01 0.27509E+05 0.24624E-50 0.32652E-60 0.16805E-57 - 1 4 0.46905E-08 0.10000E+01 0.22184E+05 0.16516E-49 0.38718E-59 0.11438E-56 - 1 4 0.46905E-08 0.10000E+01 0.17891E+05 0.10533E-48 0.43758E-58 0.74470E-56 - 1 4 0.46905E-08 0.10000E+01 0.14428E+05 0.64392E-48 0.53536E-57 0.45857E-55 - 1 4 0.46905E-08 0.10000E+01 0.11635E+05 0.41200E-47 0.89589E-56 0.26967E-54 - 1 4 0.46905E-08 0.10000E+01 0.93834E+04 0.33408E-46 0.20893E-54 0.16031E-53 - 1 4 0.46905E-08 0.10000E+01 0.75673E+04 0.37422E-45 0.55124E-53 0.10991E-52 - 1 4 0.46905E-08 0.10000E+01 0.61026E+04 0.49861E-44 0.14659E-51 0.98279E-52 - 1 4 0.46905E-08 0.10000E+01 0.49215E+04 0.69006E-43 0.38600E-50 0.10838E-50 - 1 4 0.46905E-08 0.10000E+01 0.39689E+04 0.95355E-42 0.10135E-48 0.12840E-49 - 1 4 0.46905E-08 0.10000E+01 0.32008E+04 0.41328E-39 0.86283E-46 0.47797E-47 - 1 4 0.46905E-08 0.10000E+01 0.25813E+04 0.29693E-30 0.14271E-36 0.28725E-38 - 1 4 0.46905E-08 0.10000E+01 0.20817E+04 0.55603E-14 0.11950E-19 0.42716E-22 + 1 4 0.46905E-08 0.10000E+01 0.80645E+05 0.64554E-12 0.38538E-23 0.43279E-19 + 1 4 0.46905E-08 0.10000E+01 0.65036E+05 0.82552E-12 0.85591E-23 0.55382E-19 + 1 4 0.46905E-08 0.10000E+01 0.52449E+05 0.10392E-11 0.18501E-22 0.69791E-19 + 1 4 0.46905E-08 0.10000E+01 0.42297E+05 0.12914E-11 0.39278E-22 0.86860E-19 + 1 4 0.46905E-08 0.10000E+01 0.34111E+05 0.15862E-11 0.85445E-22 0.10689E-18 + 1 4 0.46905E-08 0.10000E+01 0.27509E+05 0.19282E-11 0.20863E-21 0.13008E-18 + 1 4 0.46905E-08 0.10000E+01 0.22184E+05 0.23265E-11 0.62801E-21 0.15655E-18 + 1 4 0.46905E-08 0.10000E+01 0.17891E+05 0.28077E-11 0.23172E-20 0.18646E-18 + 1 4 0.46905E-08 0.10000E+01 0.14428E+05 0.34453E-11 0.96041E-20 0.22045E-18 + 1 4 0.46905E-08 0.10000E+01 0.11635E+05 0.44285E-11 0.41679E-19 0.26044E-18 + 1 4 0.46905E-08 0.10000E+01 0.93834E+04 0.62158E-11 0.18369E-18 0.31129E-18 + 1 4 0.46905E-08 0.10000E+01 0.75673E+04 0.98912E-11 0.81313E-18 0.38373E-18 + 1 4 0.46905E-08 0.10000E+01 0.61026E+04 0.17989E-10 0.35858E-17 0.50024E-18 + 1 4 0.46905E-08 0.10000E+01 0.49215E+04 0.36376E-10 0.15608E-16 0.70648E-18 + 1 4 0.46905E-08 0.10000E+01 0.39689E+04 0.78421E-10 0.66609E-16 0.10944E-17 + 1 4 0.46905E-08 0.10000E+01 0.32008E+04 0.17390E-09 0.27807E-15 0.18481E-17 + 1 4 0.46905E-08 0.10000E+01 0.25813E+04 0.38755E-09 0.11350E-14 0.33347E-17 + 1 4 0.46905E-08 0.10000E+01 0.20817E+04 0.85673E-09 0.45224E-14 0.62826E-17 1 4 0.46905E-08 0.10000E+01 0.16788E+04 0.18656E-08 0.17566E-13 0.12127E-16 1 4 0.46905E-08 0.10000E+01 0.13538E+04 0.39867E-08 0.66637E-13 0.23659E-16 1 4 0.46905E-08 0.10000E+01 0.10918E+04 0.83449E-08 0.24818E-12 0.46231E-16 @@ -5600,24 +5600,24 @@ VERSION 2.8.2 1 4 0.46905E-08 0.10000E+01 0.24221E+03 0.82231E-06 0.75767E-09 0.38099E-14 1 4 0.46905E-08 0.10000E+01 0.19533E+03 0.12956E-05 0.14397E-08 0.59742E-14 1 4 0.46905E-08 0.10000E+01 0.15752E+03 0.12956E-05 0.14397E-08 0.59742E-14 - 1 4 0.81846E-08 0.10000E+01 0.80645E+05 0.18111E-54 0.13450E-65 0.23556E-61 - 1 4 0.81846E-08 0.10000E+01 0.65036E+05 0.15229E-53 0.21255E-64 0.19859E-60 - 1 4 0.81846E-08 0.10000E+01 0.52449E+05 0.12871E-52 0.28181E-63 0.16822E-59 - 1 4 0.81846E-08 0.10000E+01 0.42297E+05 0.95784E-52 0.37384E-62 0.12573E-58 - 1 4 0.81846E-08 0.10000E+01 0.34111E+05 0.67702E-51 0.49355E-61 0.89590E-58 - 1 4 0.81846E-08 0.10000E+01 0.27509E+05 0.46979E-50 0.62555E-60 0.63043E-57 - 1 4 0.81846E-08 0.10000E+01 0.22184E+05 0.31600E-49 0.74438E-59 0.43445E-56 - 1 4 0.81846E-08 0.10000E+01 0.17891E+05 0.20205E-48 0.83205E-58 0.28883E-55 - 1 4 0.81846E-08 0.10000E+01 0.14428E+05 0.12246E-47 0.94697E-57 0.18350E-54 - 1 4 0.81846E-08 0.10000E+01 0.11635E+05 0.74197E-47 0.13473E-55 0.11165E-53 - 1 4 0.81846E-08 0.10000E+01 0.93834E+04 0.52445E-46 0.27223E-54 0.66559E-53 - 1 4 0.81846E-08 0.10000E+01 0.75673E+04 0.50420E-45 0.67103E-53 0.41573E-52 - 1 4 0.81846E-08 0.10000E+01 0.61026E+04 0.61527E-44 0.17222E-51 0.30814E-51 - 1 4 0.81846E-08 0.10000E+01 0.49215E+04 0.81434E-43 0.44006E-50 0.29215E-50 - 1 4 0.81846E-08 0.10000E+01 0.39689E+04 0.10896E-41 0.11219E-48 0.32574E-49 - 1 4 0.81846E-08 0.10000E+01 0.32008E+04 0.45827E-39 0.92847E-46 0.11906E-46 - 1 4 0.81846E-08 0.10000E+01 0.25813E+04 0.31959E-30 0.14925E-36 0.70041E-38 - 1 4 0.81846E-08 0.10000E+01 0.20817E+04 0.58019E-14 0.12116E-19 0.99109E-22 + 1 4 0.81846E-08 0.10000E+01 0.80645E+05 0.12280E-11 0.73459E-23 0.15953E-18 + 1 4 0.81846E-08 0.10000E+01 0.65036E+05 0.15705E-11 0.16334E-22 0.20429E-18 + 1 4 0.81846E-08 0.10000E+01 0.52449E+05 0.19773E-11 0.35289E-22 0.25773E-18 + 1 4 0.81846E-08 0.10000E+01 0.42297E+05 0.24576E-11 0.74244E-22 0.32129E-18 + 1 4 0.81846E-08 0.10000E+01 0.34111E+05 0.30190E-11 0.15601E-21 0.39635E-18 + 1 4 0.81846E-08 0.10000E+01 0.27509E+05 0.36678E-11 0.35008E-21 0.48396E-18 + 1 4 0.81846E-08 0.10000E+01 0.22184E+05 0.44134E-11 0.92594E-21 0.58477E-18 + 1 4 0.81846E-08 0.10000E+01 0.17891E+05 0.52829E-11 0.30271E-20 0.69929E-18 + 1 4 0.81846E-08 0.10000E+01 0.14428E+05 0.63561E-11 0.11578E-19 0.82867E-18 + 1 4 0.81846E-08 0.10000E+01 0.11635E+05 0.78411E-11 0.47801E-19 0.97677E-18 + 1 4 0.81846E-08 0.10000E+01 0.93834E+04 0.10242E-10 0.20346E-18 0.11542E-17 + 1 4 0.81846E-08 0.10000E+01 0.75673E+04 0.14735E-10 0.87661E-18 0.13856E-17 + 1 4 0.81846E-08 0.10000E+01 0.61026E+04 0.24016E-10 0.37841E-17 0.17234E-17 + 1 4 0.81846E-08 0.10000E+01 0.49215E+04 0.44217E-10 0.16203E-16 0.22726E-17 + 1 4 0.81846E-08 0.10000E+01 0.39689E+04 0.89114E-10 0.68302E-16 0.32379E-17 + 1 4 0.81846E-08 0.10000E+01 0.32008E+04 0.18906E-09 0.28256E-15 0.50117E-17 + 1 4 0.81846E-08 0.10000E+01 0.25813E+04 0.40950E-09 0.11457E-14 0.83427E-17 + 1 4 0.81846E-08 0.10000E+01 0.20817E+04 0.88856E-09 0.45435E-14 0.14657E-16 1 4 0.81846E-08 0.10000E+01 0.16788E+04 0.19109E-08 0.17589E-13 0.26669E-16 1 4 0.81846E-08 0.10000E+01 0.13538E+04 0.40484E-08 0.66565E-13 0.49519E-16 1 4 0.81846E-08 0.10000E+01 0.10918E+04 0.84228E-08 0.24748E-12 0.92868E-16 @@ -5630,24 +5630,24 @@ VERSION 2.8.2 1 4 0.81846E-08 0.10000E+01 0.24221E+03 0.81829E-06 0.75294E-09 0.67291E-14 1 4 0.81846E-08 0.10000E+01 0.19533E+03 0.12888E-05 0.14307E-08 0.10510E-13 1 4 0.81846E-08 0.10000E+01 0.15752E+03 0.12888E-05 0.14307E-08 0.10510E-13 - 1 4 0.14282E-07 0.10000E+01 0.80645E+05 0.33147E-54 0.24634E-65 0.79150E-61 - 1 4 0.14282E-07 0.10000E+01 0.65036E+05 0.27890E-53 0.38951E-64 0.66813E-60 - 1 4 0.14282E-07 0.10000E+01 0.52449E+05 0.23585E-52 0.51713E-63 0.56661E-59 - 1 4 0.14282E-07 0.10000E+01 0.42297E+05 0.17571E-51 0.68772E-62 0.42438E-58 - 1 4 0.14282E-07 0.10000E+01 0.34111E+05 0.12446E-50 0.91188E-61 0.30352E-57 - 1 4 0.14282E-07 0.10000E+01 0.27509E+05 0.86687E-50 0.11650E-59 0.21490E-56 - 1 4 0.14282E-07 0.10000E+01 0.22184E+05 0.58699E-49 0.14044E-58 0.14962E-55 - 1 4 0.14282E-07 0.10000E+01 0.17891E+05 0.37926E-48 0.15901E-57 0.10117E-54 - 1 4 0.14282E-07 0.10000E+01 0.14428E+05 0.23222E-47 0.17745E-56 0.65935E-54 - 1 4 0.14282E-07 0.10000E+01 0.11635E+05 0.13894E-46 0.22579E-55 0.41406E-53 - 1 4 0.14282E-07 0.10000E+01 0.93834E+04 0.90280E-46 0.38735E-54 0.25238E-52 - 1 4 0.14282E-07 0.10000E+01 0.75673E+04 0.74621E-45 0.86049E-53 0.15321E-51 - 1 4 0.14282E-07 0.10000E+01 0.61026E+04 0.80735E-44 0.21040E-51 0.10000E-50 - 1 4 0.14282E-07 0.10000E+01 0.49215E+04 0.10038E-42 0.52110E-50 0.79413E-50 - 1 4 0.14282E-07 0.10000E+01 0.39689E+04 0.12947E-41 0.12892E-48 0.79429E-49 - 1 4 0.14282E-07 0.10000E+01 0.32008E+04 0.52756E-39 0.10335E-45 0.28194E-46 - 1 4 0.14282E-07 0.10000E+01 0.25813E+04 0.35570E-30 0.16027E-36 0.16512E-37 - 1 4 0.14282E-07 0.10000E+01 0.20817E+04 0.62095E-14 0.12451E-19 0.23039E-21 + 1 4 0.14282E-07 0.10000E+01 0.80645E+05 0.22468E-11 0.13523E-22 0.53573E-18 + 1 4 0.14282E-07 0.10000E+01 0.65036E+05 0.28745E-11 0.30193E-22 0.68645E-18 + 1 4 0.14282E-07 0.10000E+01 0.52449E+05 0.36209E-11 0.65563E-22 0.86682E-18 + 1 4 0.14282E-07 0.10000E+01 0.42297E+05 0.45039E-11 0.13831E-21 0.10822E-17 + 1 4 0.14282E-07 0.10000E+01 0.34111E+05 0.55384E-11 0.28753E-21 0.13379E-17 + 1 4 0.14282E-07 0.10000E+01 0.27509E+05 0.67356E-11 0.61606E-21 0.16385E-17 + 1 4 0.14282E-07 0.10000E+01 0.22184E+05 0.81074E-11 0.14771E-20 0.19874E-17 + 1 4 0.14282E-07 0.10000E+01 0.17891E+05 0.96825E-11 0.42752E-20 0.23868E-17 + 1 4 0.14282E-07 0.10000E+01 0.14428E+05 0.11548E-10 0.14837E-19 0.28391E-17 + 1 4 0.14282E-07 0.10000E+01 0.11635E+05 0.13937E-10 0.57512E-19 0.33512E-17 + 1 4 0.14282E-07 0.10000E+01 0.93834E+04 0.17419E-10 0.23457E-18 0.39435E-17 + 1 4 0.14282E-07 0.10000E+01 0.75673E+04 0.23306E-10 0.97797E-18 0.46684E-17 + 1 4 0.14282E-07 0.10000E+01 0.61026E+04 0.34550E-10 0.41098E-17 0.56420E-17 + 1 4 0.14282E-07 0.10000E+01 0.49215E+04 0.57726E-10 0.17219E-16 0.71006E-17 + 1 4 0.14282E-07 0.10000E+01 0.39689E+04 0.10732E-09 0.71348E-16 0.95008E-17 + 1 4 0.14282E-07 0.10000E+01 0.32008E+04 0.21477E-09 0.29128E-15 0.13695E-16 + 1 4 0.14282E-07 0.10000E+01 0.25813E+04 0.44709E-09 0.11695E-14 0.21250E-16 + 1 4 0.14282E-07 0.10000E+01 0.20817E+04 0.94444E-09 0.46044E-14 0.35031E-16 1 4 0.14282E-07 0.10000E+01 0.16788E+04 0.19940E-08 0.17732E-13 0.60294E-16 1 4 0.14282E-07 0.10000E+01 0.13538E+04 0.41701E-08 0.66858E-13 0.10667E-15 1 4 0.14282E-07 0.10000E+01 0.10918E+04 0.85964E-08 0.24791E-12 0.19182E-15 @@ -5660,24 +5660,24 @@ VERSION 2.8.2 1 4 0.14282E-07 0.10000E+01 0.24221E+03 0.81703E-06 0.75021E-09 0.11938E-13 1 4 0.14282E-07 0.10000E+01 0.19533E+03 0.12861E-05 0.14254E-08 0.18544E-13 1 4 0.14282E-07 0.10000E+01 0.15752E+03 0.12861E-05 0.14254E-08 0.18544E-13 - 1 4 0.24920E-07 0.10000E+01 0.80645E+05 0.58846E-54 0.43781E-65 0.24932E-60 - 1 4 0.24920E-07 0.10000E+01 0.65036E+05 0.49557E-53 0.69276E-64 0.21069E-59 - 1 4 0.24920E-07 0.10000E+01 0.52449E+05 0.41941E-52 0.92141E-63 0.17884E-58 - 1 4 0.24920E-07 0.10000E+01 0.42297E+05 0.31293E-51 0.12293E-61 0.13418E-57 - 1 4 0.24920E-07 0.10000E+01 0.34111E+05 0.22226E-50 0.16388E-60 0.96257E-57 - 1 4 0.24920E-07 0.10000E+01 0.27509E+05 0.15554E-49 0.21139E-59 0.68494E-56 - 1 4 0.24920E-07 0.10000E+01 0.22184E+05 0.10619E-48 0.25909E-58 0.48080E-55 - 1 4 0.24920E-07 0.10000E+01 0.17891E+05 0.69545E-48 0.29991E-57 0.32945E-54 - 1 4 0.24920E-07 0.10000E+01 0.14428E+05 0.43352E-47 0.33749E-56 0.21906E-53 - 1 4 0.24920E-07 0.10000E+01 0.11635E+05 0.26169E-46 0.40452E-55 0.14124E-52 - 1 4 0.24920E-07 0.10000E+01 0.93834E+04 0.16337E-45 0.59807E-54 0.88397E-52 - 1 4 0.24920E-07 0.10000E+01 0.75673E+04 0.11949E-44 0.11584E-52 0.54003E-51 - 1 4 0.24920E-07 0.10000E+01 0.61026E+04 0.11229E-43 0.26413E-51 0.33289E-50 - 1 4 0.24920E-07 0.10000E+01 0.49215E+04 0.12801E-42 0.63243E-50 0.22820E-49 - 1 4 0.24920E-07 0.10000E+01 0.39689E+04 0.15805E-41 0.15237E-48 0.19583E-48 - 1 4 0.24920E-07 0.10000E+01 0.32008E+04 0.62485E-39 0.11854E-45 0.65013E-46 - 1 4 0.24920E-07 0.10000E+01 0.25813E+04 0.40779E-30 0.17678E-36 0.37883E-37 - 1 4 0.24920E-07 0.10000E+01 0.20817E+04 0.68243E-14 0.12995E-19 0.53558E-21 + 1 4 0.24920E-07 0.10000E+01 0.80645E+05 0.39873E-11 0.24192E-22 0.16867E-17 + 1 4 0.24920E-07 0.10000E+01 0.65036E+05 0.51033E-11 0.54302E-22 0.21623E-17 + 1 4 0.24920E-07 0.10000E+01 0.52449E+05 0.64329E-11 0.11881E-21 0.27327E-17 + 1 4 0.24920E-07 0.10000E+01 0.42297E+05 0.80098E-11 0.25268E-21 0.34158E-17 + 1 4 0.24920E-07 0.10000E+01 0.34111E+05 0.98641E-11 0.52630E-21 0.42303E-17 + 1 4 0.24920E-07 0.10000E+01 0.27509E+05 0.12019E-10 0.11042E-20 0.51939E-17 + 1 4 0.24920E-07 0.10000E+01 0.22184E+05 0.14492E-10 0.24782E-20 0.63212E-17 + 1 4 0.24920E-07 0.10000E+01 0.17891E+05 0.17319E-10 0.64375E-20 0.76227E-17 + 1 4 0.24920E-07 0.10000E+01 0.14428E+05 0.20592E-10 0.20071E-19 0.91059E-17 + 1 4 0.24920E-07 0.10000E+01 0.11635E+05 0.24575E-10 0.72119E-19 0.10783E-16 + 1 4 0.24920E-07 0.10000E+01 0.93834E+04 0.29917E-10 0.27994E-18 0.12690E-16 + 1 4 0.24920E-07 0.10000E+01 0.75673E+04 0.38110E-10 0.11256E-17 0.14928E-16 + 1 4 0.24920E-07 0.10000E+01 0.61026E+04 0.52466E-10 0.45907E-17 0.17741E-16 + 1 4 0.24920E-07 0.10000E+01 0.49215E+04 0.80208E-10 0.18752E-16 0.21644E-16 + 1 4 0.24920E-07 0.10000E+01 0.39689E+04 0.13692E-09 0.76069E-16 0.27644E-16 + 1 4 0.24920E-07 0.10000E+01 0.32008E+04 0.25575E-09 0.30527E-15 0.37604E-16 + 1 4 0.24920E-07 0.10000E+01 0.25813E+04 0.50630E-09 0.12093E-14 0.54860E-16 + 1 4 0.24920E-07 0.10000E+01 0.20817E+04 0.10324E-08 0.47134E-14 0.85309E-16 1 4 0.24920E-07 0.10000E+01 0.16788E+04 0.21261E-08 0.18018E-13 0.13936E-15 1 4 0.24920E-07 0.10000E+01 0.13538E+04 0.43680E-08 0.67570E-13 0.23544E-15 1 4 0.24920E-07 0.10000E+01 0.10918E+04 0.88890E-08 0.24957E-12 0.40632E-15 @@ -5690,24 +5690,24 @@ VERSION 2.8.2 1 4 0.24920E-07 0.10000E+01 0.24221E+03 0.81861E-06 0.74934E-09 0.21315E-13 1 4 0.24920E-07 0.10000E+01 0.19533E+03 0.12875E-05 0.14236E-08 0.32875E-13 1 4 0.24920E-07 0.10000E+01 0.15752E+03 0.12875E-05 0.14236E-08 0.32875E-13 - 1 4 0.43485E-07 0.10000E+01 0.80645E+05 0.10216E-53 0.76096E-65 0.75592E-60 - 1 4 0.43485E-07 0.10000E+01 0.65036E+05 0.86116E-53 0.12050E-63 0.63934E-59 - 1 4 0.43485E-07 0.10000E+01 0.52449E+05 0.72944E-52 0.16059E-62 0.54314E-58 - 1 4 0.43485E-07 0.10000E+01 0.42297E+05 0.54513E-51 0.21500E-61 0.40807E-57 - 1 4 0.43485E-07 0.10000E+01 0.34111E+05 0.38833E-50 0.28825E-60 0.29348E-56 - 1 4 0.43485E-07 0.10000E+01 0.27509E+05 0.27312E-49 0.37551E-59 0.20968E-55 - 1 4 0.43485E-07 0.10000E+01 0.22184E+05 0.18805E-48 0.46806E-58 0.14817E-54 - 1 4 0.43485E-07 0.10000E+01 0.17891E+05 0.12489E-47 0.55515E-57 0.10260E-53 - 1 4 0.43485E-07 0.10000E+01 0.14428E+05 0.79420E-47 0.63758E-56 0.69311E-53 - 1 4 0.43485E-07 0.10000E+01 0.11635E+05 0.48821E-46 0.74770E-55 0.45652E-52 - 1 4 0.43485E-07 0.10000E+01 0.93834E+04 0.30148E-45 0.99102E-54 0.29292E-51 - 1 4 0.43485E-07 0.10000E+01 0.75673E+04 0.20315E-44 0.16493E-52 0.18254E-50 - 1 4 0.43485E-07 0.10000E+01 0.61026E+04 0.16608E-43 0.33999E-51 0.11131E-49 - 1 4 0.43485E-07 0.10000E+01 0.49215E+04 0.16895E-42 0.77833E-50 0.69992E-49 - 1 4 0.43485E-07 0.10000E+01 0.39689E+04 0.19656E-41 0.18306E-48 0.51314E-48 - 1 4 0.43485E-07 0.10000E+01 0.32008E+04 0.75334E-39 0.13890E-45 0.15157E-45 - 1 4 0.43485E-07 0.10000E+01 0.25813E+04 0.47780E-30 0.19950E-36 0.86168E-37 - 1 4 0.43485E-07 0.10000E+01 0.20817E+04 0.76816E-14 0.13754E-19 0.12564E-20 + 1 4 0.43485E-07 0.10000E+01 0.80645E+05 0.69187E-11 0.42344E-22 0.51118E-17 + 1 4 0.43485E-07 0.10000E+01 0.65036E+05 0.88594E-11 0.95588E-22 0.65560E-17 + 1 4 0.43485E-07 0.10000E+01 0.52449E+05 0.11176E-10 0.21089E-21 0.82906E-17 + 1 4 0.43485E-07 0.10000E+01 0.42297E+05 0.13931E-10 0.45316E-21 0.10373E-16 + 1 4 0.43485E-07 0.10000E+01 0.34111E+05 0.17184E-10 0.95158E-21 0.12866E-16 + 1 4 0.43485E-07 0.10000E+01 0.27509E+05 0.20984E-10 0.19854E-20 0.15831E-16 + 1 4 0.43485E-07 0.10000E+01 0.22184E+05 0.25366E-10 0.42836E-20 0.19323E-16 + 1 4 0.43485E-07 0.10000E+01 0.17891E+05 0.30377E-10 0.10211E-19 0.23388E-16 + 1 4 0.43485E-07 0.10000E+01 0.14428E+05 0.36122E-10 0.28569E-19 0.28057E-16 + 1 4 0.43485E-07 0.10000E+01 0.11635E+05 0.42891E-10 0.93898E-19 0.33358E-16 + 1 4 0.43485E-07 0.10000E+01 0.93834E+04 0.51419E-10 0.34368E-18 0.39352E-16 + 1 4 0.43485E-07 0.10000E+01 0.75673E+04 0.63413E-10 0.13281E-17 0.46221E-16 + 1 4 0.43485E-07 0.10000E+01 0.61026E+04 0.82643E-10 0.52495E-17 0.54446E-16 + 1 4 0.43485E-07 0.10000E+01 0.49215E+04 0.11719E-09 0.20864E-16 0.65110E-16 + 1 4 0.43485E-07 0.10000E+01 0.39689E+04 0.18414E-09 0.82616E-16 0.80404E-16 + 1 4 0.43485E-07 0.10000E+01 0.32008E+04 0.31905E-09 0.32473E-15 0.10440E-15 + 1 4 0.43485E-07 0.10000E+01 0.25813E+04 0.59512E-09 0.12646E-14 0.14430E-15 + 1 4 0.43485E-07 0.10000E+01 0.20817E+04 0.11613E-08 0.48632E-14 0.21252E-15 1 4 0.43485E-07 0.10000E+01 0.16788E+04 0.23163E-08 0.18403E-13 0.33019E-15 1 4 0.43485E-07 0.10000E+01 0.13538E+04 0.46490E-08 0.68499E-13 0.53342E-15 1 4 0.43485E-07 0.10000E+01 0.10918E+04 0.92993E-08 0.25161E-12 0.88426E-15 @@ -5720,24 +5720,24 @@ VERSION 2.8.2 1 4 0.43485E-07 0.10000E+01 0.24221E+03 0.81971E-06 0.74701E-09 0.38436E-13 1 4 0.43485E-07 0.10000E+01 0.19533E+03 0.12878E-05 0.14190E-08 0.58737E-13 1 4 0.43485E-07 0.10000E+01 0.15752E+03 0.12878E-05 0.14190E-08 0.58737E-13 - 1 4 0.75878E-07 0.10000E+01 0.80645E+05 0.17443E-53 0.13009E-64 0.22393E-59 - 1 4 0.75878E-07 0.10000E+01 0.65036E+05 0.14719E-52 0.20617E-63 0.18954E-58 - 1 4 0.75878E-07 0.10000E+01 0.52449E+05 0.12479E-51 0.27531E-62 0.16112E-57 - 1 4 0.75878E-07 0.10000E+01 0.42297E+05 0.93405E-51 0.36983E-61 0.12120E-56 - 1 4 0.75878E-07 0.10000E+01 0.34111E+05 0.66730E-50 0.49854E-60 0.87345E-56 - 1 4 0.75878E-07 0.10000E+01 0.27509E+05 0.47160E-49 0.65554E-59 0.62617E-55 - 1 4 0.75878E-07 0.10000E+01 0.22184E+05 0.32733E-48 0.83008E-58 0.44486E-54 - 1 4 0.75878E-07 0.10000E+01 0.17891E+05 0.22029E-47 0.10076E-56 0.31070E-53 - 1 4 0.75878E-07 0.10000E+01 0.14428E+05 0.14281E-46 0.11853E-55 0.21256E-52 - 1 4 0.75878E-07 0.10000E+01 0.11635E+05 0.89654E-46 0.13916E-54 0.14243E-51 - 1 4 0.75878E-07 0.10000E+01 0.93834E+04 0.55684E-45 0.17298E-53 0.93362E-51 - 1 4 0.75878E-07 0.10000E+01 0.75673E+04 0.35907E-44 0.25108E-52 0.59519E-50 - 1 4 0.75878E-07 0.10000E+01 0.61026E+04 0.26189E-43 0.45435E-51 0.36735E-49 - 1 4 0.75878E-07 0.10000E+01 0.49215E+04 0.23353E-42 0.97133E-50 0.22369E-48 - 1 4 0.75878E-07 0.10000E+01 0.39689E+04 0.24973E-41 0.22214E-48 0.14596E-47 - 1 4 0.75878E-07 0.10000E+01 0.32008E+04 0.92057E-39 0.16527E-45 0.37149E-45 - 1 4 0.75878E-07 0.10000E+01 0.25813E+04 0.56958E-30 0.22986E-36 0.19859E-36 - 1 4 0.75878E-07 0.10000E+01 0.20817E+04 0.88612E-14 0.14792E-19 0.30033E-20 + 1 4 0.75878E-07 0.10000E+01 0.80645E+05 0.11808E-10 0.72891E-22 0.15138E-16 + 1 4 0.75878E-07 0.10000E+01 0.65036E+05 0.15128E-10 0.16545E-21 0.19421E-16 + 1 4 0.75878E-07 0.10000E+01 0.52449E+05 0.19098E-10 0.36802E-21 0.24574E-16 + 1 4 0.75878E-07 0.10000E+01 0.42297E+05 0.23833E-10 0.79936E-21 0.30773E-16 + 1 4 0.75878E-07 0.10000E+01 0.34111E+05 0.29446E-10 0.16969E-20 0.38216E-16 + 1 4 0.75878E-07 0.10000E+01 0.27509E+05 0.36037E-10 0.35530E-20 0.47107E-16 + 1 4 0.75878E-07 0.10000E+01 0.22184E+05 0.43685E-10 0.75184E-20 0.57643E-16 + 1 4 0.75878E-07 0.10000E+01 0.17891E+05 0.52464E-10 0.16872E-19 0.69996E-16 + 1 4 0.75878E-07 0.10000E+01 0.14428E+05 0.62500E-10 0.42806E-19 0.84302E-16 + 1 4 0.75878E-07 0.10000E+01 0.11635E+05 0.74112E-10 0.12742E-18 0.10066E-15 + 1 4 0.75878E-07 0.10000E+01 0.93834E+04 0.88119E-10 0.43430E-18 0.11918E-15 + 1 4 0.75878E-07 0.10000E+01 0.75673E+04 0.10646E-09 0.16034E-17 0.14016E-15 + 1 4 0.75878E-07 0.10000E+01 0.61026E+04 0.13346E-09 0.61340E-17 0.16451E-15 + 1 4 0.75878E-07 0.10000E+01 0.49215E+04 0.17829E-09 0.23709E-16 0.19442E-15 + 1 4 0.75878E-07 0.10000E+01 0.39689E+04 0.26001E-09 0.91497E-16 0.23454E-15 + 1 4 0.75878E-07 0.10000E+01 0.32008E+04 0.41744E-09 0.35126E-15 0.29375E-15 + 1 4 0.75878E-07 0.10000E+01 0.25813E+04 0.72875E-09 0.13401E-14 0.38773E-15 + 1 4 0.75878E-07 0.10000E+01 0.20817E+04 0.13499E-08 0.50670E-14 0.54310E-15 1 4 0.75878E-07 0.10000E+01 0.16788E+04 0.25887E-08 0.18921E-13 0.80391E-15 1 4 0.75878E-07 0.10000E+01 0.13538E+04 0.50451E-08 0.69715E-13 0.12428E-14 1 4 0.75878E-07 0.10000E+01 0.10918E+04 0.98701E-08 0.25414E-12 0.19802E-14 @@ -5750,24 +5750,24 @@ VERSION 2.8.2 1 4 0.75878E-07 0.10000E+01 0.24221E+03 0.82009E-06 0.74263E-09 0.70293E-13 1 4 0.75878E-07 0.10000E+01 0.19533E+03 0.12863E-05 0.14104E-08 0.10617E-12 1 4 0.75878E-07 0.10000E+01 0.15752E+03 0.12863E-05 0.14104E-08 0.10617E-12 - 1 4 0.13240E-06 0.10000E+01 0.80645E+05 0.29427E-53 0.21972E-64 0.65148E-59 - 1 4 0.13240E-06 0.10000E+01 0.65036E+05 0.24854E-52 0.34847E-63 0.55177E-58 - 1 4 0.13240E-06 0.10000E+01 0.52449E+05 0.21088E-51 0.46617E-62 0.46931E-57 - 1 4 0.13240E-06 0.10000E+01 0.42297E+05 0.15809E-50 0.62818E-61 0.35337E-56 - 1 4 0.13240E-06 0.10000E+01 0.34111E+05 0.11324E-49 0.85103E-60 0.25511E-55 - 1 4 0.13240E-06 0.10000E+01 0.27509E+05 0.80384E-49 0.11285E-58 0.18340E-54 - 1 4 0.13240E-06 0.10000E+01 0.22184E+05 0.56202E-48 0.14489E-57 0.13088E-53 - 1 4 0.13240E-06 0.10000E+01 0.17891E+05 0.38272E-47 0.17951E-56 0.92045E-53 - 1 4 0.13240E-06 0.10000E+01 0.14428E+05 0.25243E-46 0.21619E-55 0.63613E-52 - 1 4 0.13240E-06 0.10000E+01 0.11635E+05 0.16176E-45 0.25704E-54 0.43216E-51 - 1 4 0.13240E-06 0.10000E+01 0.93834E+04 0.10187E-44 0.31076E-53 0.28831E-50 - 1 4 0.13240E-06 0.10000E+01 0.75673E+04 0.64641E-44 0.40868E-52 0.18772E-49 - 1 4 0.13240E-06 0.10000E+01 0.61026E+04 0.43696E-43 0.64331E-51 0.11823E-48 - 1 4 0.13240E-06 0.10000E+01 0.49215E+04 0.34324E-42 0.12446E-49 0.72060E-48 - 1 4 0.13240E-06 0.10000E+01 0.39689E+04 0.32874E-41 0.27274E-48 0.44263E-47 - 1 4 0.13240E-06 0.10000E+01 0.32008E+04 0.11451E-38 0.19929E-45 0.98141E-45 - 1 4 0.13240E-06 0.10000E+01 0.25813E+04 0.69120E-30 0.27050E-36 0.47410E-36 - 1 4 0.13240E-06 0.10000E+01 0.20817E+04 0.10521E-13 0.16264E-19 0.73597E-20 + 1 4 0.13240E-06 0.10000E+01 0.80645E+05 0.19913E-10 0.12389E-21 0.44027E-16 + 1 4 0.13240E-06 0.10000E+01 0.65036E+05 0.25521E-10 0.28265E-21 0.56503E-16 + 1 4 0.13240E-06 0.10000E+01 0.52449E+05 0.32241E-10 0.63346E-21 0.71526E-16 + 1 4 0.13240E-06 0.10000E+01 0.42297E+05 0.40277E-10 0.13900E-20 0.89634E-16 + 1 4 0.13240E-06 0.10000E+01 0.34111E+05 0.49840E-10 0.29850E-20 0.11143E-15 + 1 4 0.13240E-06 0.10000E+01 0.27509E+05 0.61127E-10 0.63018E-20 0.13757E-15 + 1 4 0.13240E-06 0.10000E+01 0.22184E+05 0.74305E-10 0.13260E-19 0.16869E-15 + 1 4 0.13240E-06 0.10000E+01 0.17891E+05 0.89516E-10 0.28694E-19 0.20542E-15 + 1 4 0.13240E-06 0.10000E+01 0.14428E+05 0.10694E-09 0.67381E-19 0.24829E-15 + 1 4 0.13240E-06 0.10000E+01 0.11635E+05 0.12692E-09 0.18163E-18 0.29768E-15 + 1 4 0.13240E-06 0.10000E+01 0.93834E+04 0.15038E-09 0.56904E-18 0.35389E-15 + 1 4 0.13240E-06 0.10000E+01 0.75673E+04 0.17948E-09 0.19882E-17 0.41745E-15 + 1 4 0.13240E-06 0.10000E+01 0.61026E+04 0.21918E-09 0.73398E-17 0.48991E-15 + 1 4 0.13240E-06 0.10000E+01 0.49215E+04 0.28003E-09 0.27593E-16 0.57551E-15 + 1 4 0.13240E-06 0.10000E+01 0.39689E+04 0.38371E-09 0.10378E-15 0.68386E-15 + 1 4 0.13240E-06 0.10000E+01 0.32008E+04 0.57354E-09 0.38861E-15 0.83404E-15 + 1 4 0.13240E-06 0.10000E+01 0.25813E+04 0.93477E-09 0.14486E-14 0.10603E-14 + 1 4 0.13240E-06 0.10000E+01 0.20817E+04 0.16336E-08 0.53674E-14 0.14203E-14 1 4 0.13240E-06 0.10000E+01 0.16788E+04 0.29921E-08 0.19712E-13 0.20081E-14 1 4 0.13240E-06 0.10000E+01 0.13538E+04 0.56278E-08 0.71678E-13 0.29736E-14 1 4 0.13240E-06 0.10000E+01 0.10918E+04 0.10712E-07 0.25867E-12 0.45565E-14 @@ -5780,24 +5780,24 @@ VERSION 2.8.2 1 4 0.13240E-06 0.10000E+01 0.24221E+03 0.82383E-06 0.73945E-09 0.13090E-12 1 4 0.13240E-06 0.10000E+01 0.19533E+03 0.12892E-05 0.14039E-08 0.19491E-12 1 4 0.13240E-06 0.10000E+01 0.15752E+03 0.12892E-05 0.14039E-08 0.19491E-12 - 1 4 0.23103E-06 0.10000E+01 0.80645E+05 0.49207E-53 0.36779E-64 0.18666E-58 - 1 4 0.23103E-06 0.10000E+01 0.65036E+05 0.41595E-52 0.58370E-63 0.15818E-57 - 1 4 0.23103E-06 0.10000E+01 0.52449E+05 0.35319E-51 0.78212E-62 0.13460E-56 - 1 4 0.23103E-06 0.10000E+01 0.42297E+05 0.26512E-50 0.10569E-60 0.10143E-55 - 1 4 0.23103E-06 0.10000E+01 0.34111E+05 0.19037E-49 0.14381E-59 0.73335E-55 - 1 4 0.23103E-06 0.10000E+01 0.27509E+05 0.13566E-48 0.19209E-58 0.52844E-54 - 1 4 0.23103E-06 0.10000E+01 0.22184E+05 0.95456E-48 0.24959E-57 0.37850E-53 - 1 4 0.23103E-06 0.10000E+01 0.17891E+05 0.65669E-47 0.31470E-56 0.26772E-52 - 1 4 0.23103E-06 0.10000E+01 0.14428E+05 0.43966E-46 0.38707E-55 0.18655E-51 - 1 4 0.23103E-06 0.10000E+01 0.11635E+05 0.28700E-45 0.46811E-54 0.12814E-50 - 1 4 0.23103E-06 0.10000E+01 0.93834E+04 0.18376E-44 0.56330E-53 0.86714E-50 - 1 4 0.23103E-06 0.10000E+01 0.75673E+04 0.11670E-43 0.70004E-52 0.57486E-49 - 1 4 0.23103E-06 0.10000E+01 0.61026E+04 0.75765E-43 0.97715E-51 0.36974E-48 - 1 4 0.23103E-06 0.10000E+01 0.49215E+04 0.53857E-42 0.16679E-49 0.22894E-47 - 1 4 0.23103E-06 0.10000E+01 0.39689E+04 0.45601E-41 0.34119E-48 0.13822E-46 - 1 4 0.23103E-06 0.10000E+01 0.32008E+04 0.14638E-38 0.24331E-45 0.27890E-44 - 1 4 0.23103E-06 0.10000E+01 0.25813E+04 0.85577E-30 0.32450E-36 0.11940E-35 - 1 4 0.23103E-06 0.10000E+01 0.20817E+04 0.12896E-13 0.18346E-19 0.18557E-19 + 1 4 0.23103E-06 0.10000E+01 0.80645E+05 0.33284E-10 0.20857E-21 0.12612E-15 + 1 4 0.23103E-06 0.10000E+01 0.65036E+05 0.42677E-10 0.47796E-21 0.16189E-15 + 1 4 0.23103E-06 0.10000E+01 0.52449E+05 0.53946E-10 0.10783E-20 0.20502E-15 + 1 4 0.23103E-06 0.10000E+01 0.42297E+05 0.67456E-10 0.23880E-20 0.25707E-15 + 1 4 0.23103E-06 0.10000E+01 0.34111E+05 0.83590E-10 0.51856E-20 0.31987E-15 + 1 4 0.23103E-06 0.10000E+01 0.27509E+05 0.10272E-09 0.11061E-19 0.39540E-15 + 1 4 0.23103E-06 0.10000E+01 0.22184E+05 0.12519E-09 0.23337E-19 0.48573E-15 + 1 4 0.23103E-06 0.10000E+01 0.17891E+05 0.15129E-09 0.49611E-19 0.59293E-15 + 1 4 0.23103E-06 0.10000E+01 0.14428E+05 0.18130E-09 0.11047E-18 0.71890E-15 + 1 4 0.23103E-06 0.10000E+01 0.11635E+05 0.21568E-09 0.27278E-18 0.86516E-15 + 1 4 0.23103E-06 0.10000E+01 0.93834E+04 0.25540E-09 0.77936E-18 0.10328E-14 + 1 4 0.23103E-06 0.10000E+01 0.75673E+04 0.30289E-09 0.25449E-17 0.12228E-14 + 1 4 0.23103E-06 0.10000E+01 0.61026E+04 0.36379E-09 0.90098E-17 0.14379E-14 + 1 4 0.23103E-06 0.10000E+01 0.49215E+04 0.45032E-09 0.32916E-16 0.16857E-14 + 1 4 0.23103E-06 0.10000E+01 0.39689E+04 0.58755E-09 0.12076E-15 0.19854E-14 + 1 4 0.23103E-06 0.10000E+01 0.32008E+04 0.82495E-09 0.44110E-15 0.23771E-14 + 1 4 0.23103E-06 0.10000E+01 0.25813E+04 0.12578E-08 0.16043E-14 0.29350E-14 + 1 4 0.23103E-06 0.10000E+01 0.20817E+04 0.20674E-08 0.58098E-14 0.37850E-14 1 4 0.23103E-06 0.10000E+01 0.16788E+04 0.35971E-08 0.20916E-13 0.51300E-14 1 4 0.23103E-06 0.10000E+01 0.13538E+04 0.64930E-08 0.74817E-13 0.72872E-14 1 4 0.23103E-06 0.10000E+01 0.10918E+04 0.11962E-07 0.26648E-12 0.10747E-13 @@ -5810,24 +5810,24 @@ VERSION 2.8.2 1 4 0.23103E-06 0.10000E+01 0.24221E+03 0.83398E-06 0.73950E-09 0.24905E-12 1 4 0.23103E-06 0.10000E+01 0.19533E+03 0.13011E-05 0.14035E-08 0.36468E-12 1 4 0.23103E-06 0.10000E+01 0.15752E+03 0.13011E-05 0.14035E-08 0.36468E-12 - 1 4 0.40314E-06 0.10000E+01 0.80645E+05 0.81645E-53 0.61081E-64 0.53109E-58 - 1 4 0.40314E-06 0.10000E+01 0.65036E+05 0.69067E-52 0.96995E-63 0.45025E-57 - 1 4 0.40314E-06 0.10000E+01 0.52449E+05 0.58684E-51 0.13016E-61 0.38328E-56 - 1 4 0.40314E-06 0.10000E+01 0.42297E+05 0.44104E-50 0.17632E-60 0.28904E-55 - 1 4 0.40314E-06 0.10000E+01 0.34111E+05 0.31736E-49 0.24086E-59 0.20924E-54 - 1 4 0.40314E-06 0.10000E+01 0.27509E+05 0.22694E-48 0.32377E-58 0.15107E-53 - 1 4 0.40314E-06 0.10000E+01 0.22184E+05 0.16058E-47 0.42505E-57 0.10854E-52 - 1 4 0.40314E-06 0.10000E+01 0.17891E+05 0.11145E-46 0.54399E-56 0.77140E-52 - 1 4 0.40314E-06 0.10000E+01 0.14428E+05 0.75588E-46 0.68160E-55 0.54120E-51 - 1 4 0.40314E-06 0.10000E+01 0.11635E+05 0.50159E-45 0.83927E-54 0.37512E-50 - 1 4 0.40314E-06 0.10000E+01 0.93834E+04 0.32664E-44 0.10178E-52 0.25679E-49 - 1 4 0.40314E-06 0.10000E+01 0.75673E+04 0.20944E-43 0.12346E-51 0.17279E-48 - 1 4 0.40314E-06 0.10000E+01 0.61026E+04 0.13395E-42 0.15836E-50 0.11326E-47 - 1 4 0.40314E-06 0.10000E+01 0.49215E+04 0.89200E-42 0.23716E-49 0.71567E-47 - 1 4 0.40314E-06 0.10000E+01 0.39689E+04 0.67248E-41 0.43799E-48 0.43493E-46 - 1 4 0.40314E-06 0.10000E+01 0.32008E+04 0.19392E-38 0.29920E-45 0.83696E-44 - 1 4 0.40314E-06 0.10000E+01 0.25813E+04 0.10796E-29 0.39285E-36 0.32059E-35 - 1 4 0.40314E-06 0.10000E+01 0.20817E+04 0.16255E-13 0.21073E-19 0.48409E-19 + 1 4 0.40314E-06 0.10000E+01 0.80645E+05 0.55206E-10 0.34813E-21 0.35874E-15 + 1 4 0.40314E-06 0.10000E+01 0.65036E+05 0.70810E-10 0.80097E-21 0.46062E-15 + 1 4 0.40314E-06 0.10000E+01 0.52449E+05 0.89558E-10 0.18178E-20 0.58350E-15 + 1 4 0.40314E-06 0.10000E+01 0.42297E+05 0.11208E-09 0.40589E-20 0.73203E-15 + 1 4 0.40314E-06 0.10000E+01 0.34111E+05 0.13907E-09 0.89052E-20 0.91155E-15 + 1 4 0.40314E-06 0.10000E+01 0.27509E+05 0.17120E-09 0.19203E-19 0.11280E-14 + 1 4 0.40314E-06 0.10000E+01 0.22184E+05 0.20915E-09 0.40813E-19 0.13878E-14 + 1 4 0.40314E-06 0.10000E+01 0.17891E+05 0.25351E-09 0.86315E-19 0.16976E-14 + 1 4 0.40314E-06 0.10000E+01 0.14428E+05 0.30482E-09 0.18617E-18 0.20639E-14 + 1 4 0.40314E-06 0.10000E+01 0.11635E+05 0.36369E-09 0.42911E-18 0.24922E-14 + 1 4 0.40314E-06 0.10000E+01 0.93834E+04 0.43126E-09 0.11181E-17 0.29868E-14 + 1 4 0.40314E-06 0.10000E+01 0.75673E+04 0.51017E-09 0.33661E-17 0.35505E-14 + 1 4 0.40314E-06 0.10000E+01 0.61026E+04 0.60672E-09 0.11301E-16 0.41879E-14 + 1 4 0.40314E-06 0.10000E+01 0.49215E+04 0.73495E-09 0.39960E-16 0.49121E-14 + 1 4 0.40314E-06 0.10000E+01 0.39689E+04 0.92397E-09 0.14299E-15 0.57597E-14 + 1 4 0.40314E-06 0.10000E+01 0.32008E+04 0.12309E-08 0.50985E-15 0.68127E-14 + 1 4 0.40314E-06 0.10000E+01 0.25813E+04 0.17639E-08 0.18083E-14 0.82298E-14 + 1 4 0.40314E-06 0.10000E+01 0.20817E+04 0.27241E-08 0.63875E-14 0.10286E-13 1 4 0.40314E-06 0.10000E+01 0.16788E+04 0.44828E-08 0.22471E-13 0.13424E-13 1 4 0.40314E-06 0.10000E+01 0.13538E+04 0.77225E-08 0.78773E-13 0.18328E-13 1 4 0.40314E-06 0.10000E+01 0.10918E+04 0.13694E-07 0.27591E-12 0.26027E-13 @@ -5840,24 +5840,24 @@ VERSION 2.8.2 1 4 0.40314E-06 0.10000E+01 0.24221E+03 0.84355E-06 0.73546E-09 0.48604E-12 1 4 0.40314E-06 0.10000E+01 0.19533E+03 0.13104E-05 0.13950E-08 0.69836E-12 1 4 0.40314E-06 0.10000E+01 0.15752E+03 0.13104E-05 0.13950E-08 0.69836E-12 - 1 4 0.70346E-06 0.10000E+01 0.80645E+05 0.13459E-52 0.10077E-63 0.14717E-57 - 1 4 0.70346E-06 0.10000E+01 0.65036E+05 0.11393E-51 0.16011E-62 0.12481E-56 - 1 4 0.70346E-06 0.10000E+01 0.52449E+05 0.96860E-51 0.21513E-61 0.10628E-55 - 1 4 0.70346E-06 0.10000E+01 0.42297E+05 0.72872E-50 0.29205E-60 0.80196E-55 - 1 4 0.70346E-06 0.10000E+01 0.34111E+05 0.52533E-49 0.40028E-59 0.58112E-54 - 1 4 0.70346E-06 0.10000E+01 0.27509E+05 0.37678E-48 0.54101E-58 0.42024E-53 - 1 4 0.70346E-06 0.10000E+01 0.22184E+05 0.26788E-47 0.71639E-57 0.30270E-52 - 1 4 0.70346E-06 0.10000E+01 0.17891E+05 0.18733E-46 0.92838E-56 0.21594E-51 - 1 4 0.70346E-06 0.10000E+01 0.14428E+05 0.12843E-45 0.11816E-54 0.15232E-50 - 1 4 0.70346E-06 0.10000E+01 0.11635E+05 0.86420E-45 0.14795E-53 0.10632E-49 - 1 4 0.70346E-06 0.10000E+01 0.93834E+04 0.57160E-44 0.18178E-52 0.73436E-49 - 1 4 0.70346E-06 0.10000E+01 0.75673E+04 0.37138E-43 0.21979E-51 0.49991E-48 - 1 4 0.70346E-06 0.10000E+01 0.61026E+04 0.23768E-42 0.26926E-50 0.33273E-47 - 1 4 0.70346E-06 0.10000E+01 0.49215E+04 0.15315E-41 0.36197E-49 0.21422E-46 - 1 4 0.70346E-06 0.10000E+01 0.39689E+04 0.10574E-40 0.59025E-48 0.13224E-45 - 1 4 0.70346E-06 0.10000E+01 0.32008E+04 0.27140E-38 0.37510E-45 0.25096E-43 - 1 4 0.70346E-06 0.10000E+01 0.25813E+04 0.14072E-29 0.48167E-36 0.88827E-35 - 1 4 0.70346E-06 0.10000E+01 0.20817E+04 0.21237E-13 0.24790E-19 0.12772E-18 + 1 4 0.70346E-06 0.10000E+01 0.80645E+05 0.90979E-10 0.57689E-21 0.99393E-15 + 1 4 0.70346E-06 0.10000E+01 0.65036E+05 0.11673E-09 0.13318E-20 0.12764E-14 + 1 4 0.70346E-06 0.10000E+01 0.52449E+05 0.14771E-09 0.30380E-20 0.16174E-14 + 1 4 0.70346E-06 0.10000E+01 0.42297E+05 0.18500E-09 0.68317E-20 0.20299E-14 + 1 4 0.70346E-06 0.10000E+01 0.34111E+05 0.22979E-09 0.15126E-19 0.25292E-14 + 1 4 0.70346E-06 0.10000E+01 0.27509E+05 0.28333E-09 0.32958E-19 0.31326E-14 + 1 4 0.70346E-06 0.10000E+01 0.22184E+05 0.34688E-09 0.70702E-19 0.38590E-14 + 1 4 0.70346E-06 0.10000E+01 0.17891E+05 0.42160E-09 0.14992E-18 0.47284E-14 + 1 4 0.70346E-06 0.10000E+01 0.14428E+05 0.50856E-09 0.31857E-18 0.57613E-14 + 1 4 0.70346E-06 0.10000E+01 0.11635E+05 0.60878E-09 0.70114E-18 0.69765E-14 + 1 4 0.70346E-06 0.10000E+01 0.93834E+04 0.72367E-09 0.16872E-17 0.83892E-14 + 1 4 0.70346E-06 0.10000E+01 0.75673E+04 0.85613E-09 0.46526E-17 0.10010E-13 + 1 4 0.70346E-06 0.10000E+01 0.61026E+04 0.10131E-08 0.14624E-16 0.11846E-13 + 1 4 0.70346E-06 0.10000E+01 0.49215E+04 0.12106E-08 0.49684E-16 0.13921E-13 + 1 4 0.70346E-06 0.10000E+01 0.39689E+04 0.14825E-08 0.17320E-15 0.16299E-13 + 1 4 0.70346E-06 0.10000E+01 0.32008E+04 0.18956E-08 0.60358E-15 0.19142E-13 + 1 4 0.70346E-06 0.10000E+01 0.25813E+04 0.25754E-08 0.20899E-14 0.22779E-13 + 1 4 0.70346E-06 0.10000E+01 0.20817E+04 0.37502E-08 0.71978E-14 0.27802E-13 1 4 0.70346E-06 0.10000E+01 0.16788E+04 0.58311E-08 0.24695E-13 0.35176E-13 1 4 0.70346E-06 0.10000E+01 0.13538E+04 0.95543E-08 0.84583E-13 0.46384E-13 1 4 0.70346E-06 0.10000E+01 0.10918E+04 0.16238E-07 0.29031E-12 0.63615E-13 @@ -5870,24 +5870,24 @@ VERSION 2.8.2 1 4 0.70346E-06 0.10000E+01 0.24221E+03 0.86137E-06 0.73399E-09 0.96876E-12 1 4 0.70346E-06 0.10000E+01 0.19533E+03 0.13305E-05 0.13911E-08 0.13648E-11 1 4 0.70346E-06 0.10000E+01 0.15752E+03 0.13305E-05 0.13911E-08 0.13648E-11 - 1 4 0.12275E-05 0.10000E+01 0.80645E+05 0.21995E-52 0.16480E-63 0.38845E-57 - 1 4 0.12275E-05 0.10000E+01 0.65036E+05 0.18630E-51 0.26195E-62 0.32953E-56 - 1 4 0.12275E-05 0.10000E+01 0.52449E+05 0.15846E-50 0.35235E-61 0.28068E-55 - 1 4 0.12275E-05 0.10000E+01 0.42297E+05 0.11932E-49 0.47924E-60 0.21188E-54 - 1 4 0.12275E-05 0.10000E+01 0.34111E+05 0.86156E-49 0.65871E-59 0.15365E-53 - 1 4 0.12275E-05 0.10000E+01 0.27509E+05 0.61951E-48 0.89437E-58 0.11125E-52 - 1 4 0.12275E-05 0.10000E+01 0.22184E+05 0.44224E-47 0.11929E-56 0.80287E-52 - 1 4 0.12275E-05 0.10000E+01 0.17891E+05 0.31120E-46 0.15619E-55 0.57443E-51 - 1 4 0.12275E-05 0.10000E+01 0.14428E+05 0.21529E-45 0.20140E-54 0.40683E-50 - 1 4 0.12275E-05 0.10000E+01 0.11635E+05 0.14657E-44 0.25592E-53 0.28547E-49 - 1 4 0.12275E-05 0.10000E+01 0.93834E+04 0.98276E-44 0.31899E-52 0.19848E-48 - 1 4 0.12275E-05 0.10000E+01 0.75673E+04 0.64733E-43 0.38857E-51 0.13627E-47 - 1 4 0.12275E-05 0.10000E+01 0.61026E+04 0.41781E-42 0.46775E-50 0.91739E-47 - 1 4 0.12275E-05 0.10000E+01 0.49215E+04 0.26633E-41 0.58535E-49 0.59953E-46 - 1 4 0.12275E-05 0.10000E+01 0.39689E+04 0.17415E-40 0.84411E-48 0.37608E-45 - 1 4 0.12275E-05 0.10000E+01 0.32008E+04 0.40265E-38 0.48351E-45 0.71538E-43 - 1 4 0.12275E-05 0.10000E+01 0.25813E+04 0.19083E-29 0.59649E-36 0.24168E-34 - 1 4 0.12275E-05 0.10000E+01 0.20817E+04 0.28724E-13 0.29715E-19 0.32985E-18 + 1 4 0.12275E-05 0.10000E+01 0.80645E+05 0.14864E-09 0.94699E-21 0.26231E-14 + 1 4 0.12275E-05 0.10000E+01 0.65036E+05 0.19076E-09 0.21926E-20 0.33691E-14 + 1 4 0.12275E-05 0.10000E+01 0.52449E+05 0.24149E-09 0.50233E-20 0.42699E-14 + 1 4 0.12275E-05 0.10000E+01 0.42297E+05 0.30264E-09 0.11364E-19 0.53607E-14 + 1 4 0.12275E-05 0.10000E+01 0.34111E+05 0.37628E-09 0.25361E-19 0.66826E-14 + 1 4 0.12275E-05 0.10000E+01 0.27509E+05 0.46460E-09 0.55780E-19 0.82824E-14 + 1 4 0.12275E-05 0.10000E+01 0.22184E+05 0.56987E-09 0.12082E-18 0.10213E-13 + 1 4 0.12275E-05 0.10000E+01 0.17891E+05 0.69431E-09 0.25790E-18 0.12530E-13 + 1 4 0.12275E-05 0.10000E+01 0.14428E+05 0.84001E-09 0.54595E-18 0.15293E-13 + 1 4 0.12275E-05 0.10000E+01 0.11635E+05 0.10088E-08 0.11700E-17 0.18559E-13 + 1 4 0.12275E-05 0.10000E+01 0.93834E+04 0.12028E-08 0.26509E-17 0.22378E-13 + 1 4 0.12275E-05 0.10000E+01 0.75673E+04 0.14253E-08 0.67196E-17 0.26782E-13 + 1 4 0.12275E-05 0.10000E+01 0.61026E+04 0.16837E-08 0.19561E-16 0.31794E-13 + 1 4 0.12275E-05 0.10000E+01 0.49215E+04 0.19961E-08 0.63199E-16 0.37447E-13 + 1 4 0.12275E-05 0.10000E+01 0.39689E+04 0.24016E-08 0.21380E-15 0.43850E-13 + 1 4 0.12275E-05 0.10000E+01 0.32008E+04 0.29787E-08 0.72854E-15 0.51304E-13 + 1 4 0.12275E-05 0.10000E+01 0.25813E+04 0.38748E-08 0.24670E-14 0.60471E-13 + 1 4 0.12275E-05 0.10000E+01 0.20817E+04 0.53542E-08 0.82919E-14 0.72585E-13 1 4 0.12275E-05 0.10000E+01 0.16788E+04 0.78821E-08 0.27726E-13 0.89705E-13 1 4 0.12275E-05 0.10000E+01 0.13538E+04 0.12269E-07 0.92572E-13 0.11500E-12 1 4 0.12275E-05 0.10000E+01 0.10918E+04 0.19927E-07 0.31029E-12 0.15313E-12 @@ -5900,24 +5900,24 @@ VERSION 2.8.2 1 4 0.12275E-05 0.10000E+01 0.24221E+03 0.88701E-06 0.73300E-09 0.19472E-11 1 4 0.12275E-05 0.10000E+01 0.19533E+03 0.13599E-05 0.13877E-08 0.26920E-11 1 4 0.12275E-05 0.10000E+01 0.15752E+03 0.13599E-05 0.13877E-08 0.26920E-11 - 1 4 0.21419E-05 0.10000E+01 0.80645E+05 0.38261E-52 0.28669E-63 0.68893E-57 - 1 4 0.21419E-05 0.10000E+01 0.65036E+05 0.32408E-51 0.45570E-62 0.58445E-56 - 1 4 0.21419E-05 0.10000E+01 0.52449E+05 0.27566E-50 0.61298E-61 0.49781E-55 - 1 4 0.21419E-05 0.10000E+01 0.42297E+05 0.20758E-49 0.83379E-60 0.37580E-54 - 1 4 0.21419E-05 0.10000E+01 0.34111E+05 0.14989E-48 0.11462E-58 0.27253E-53 - 1 4 0.21419E-05 0.10000E+01 0.27509E+05 0.10779E-47 0.15565E-57 0.19734E-52 - 1 4 0.21419E-05 0.10000E+01 0.22184E+05 0.76960E-47 0.20766E-56 0.14242E-51 - 1 4 0.21419E-05 0.10000E+01 0.17891E+05 0.54169E-46 0.27201E-55 0.10191E-50 - 1 4 0.21419E-05 0.10000E+01 0.14428E+05 0.37488E-45 0.35091E-54 0.72184E-50 - 1 4 0.21419E-05 0.10000E+01 0.11635E+05 0.25534E-44 0.44617E-53 0.50661E-49 - 1 4 0.21419E-05 0.10000E+01 0.93834E+04 0.17130E-43 0.55647E-52 0.35232E-48 - 1 4 0.21419E-05 0.10000E+01 0.75673E+04 0.11289E-42 0.67814E-51 0.24197E-47 - 1 4 0.21419E-05 0.10000E+01 0.61026E+04 0.72899E-42 0.81609E-50 0.16296E-46 - 1 4 0.21419E-05 0.10000E+01 0.49215E+04 0.46464E-41 0.10190E-48 0.10656E-45 - 1 4 0.21419E-05 0.10000E+01 0.39689E+04 0.30332E-40 0.14623E-47 0.66883E-45 - 1 4 0.21419E-05 0.10000E+01 0.32008E+04 0.69853E-38 0.83340E-45 0.12726E-42 - 1 4 0.21419E-05 0.10000E+01 0.25813E+04 0.32969E-29 0.10258E-35 0.42932E-34 - 1 4 0.21419E-05 0.10000E+01 0.20817E+04 0.49611E-13 0.51037E-19 0.58471E-18 + 1 4 0.21419E-05 0.10000E+01 0.80645E+05 0.25856E-09 0.16476E-20 0.46522E-14 + 1 4 0.21419E-05 0.10000E+01 0.65036E+05 0.33184E-09 0.38153E-20 0.59752E-14 + 1 4 0.21419E-05 0.10000E+01 0.52449E+05 0.42009E-09 0.87422E-20 0.75730E-14 + 1 4 0.21419E-05 0.10000E+01 0.42297E+05 0.52648E-09 0.19783E-19 0.95078E-14 + 1 4 0.21419E-05 0.10000E+01 0.34111E+05 0.65460E-09 0.44161E-19 0.11852E-13 + 1 4 0.21419E-05 0.10000E+01 0.27509E+05 0.80829E-09 0.97165E-19 0.14690E-13 + 1 4 0.21419E-05 0.10000E+01 0.22184E+05 0.99151E-09 0.21055E-18 0.18114E-13 + 1 4 0.21419E-05 0.10000E+01 0.17891E+05 0.12082E-08 0.44958E-18 0.22225E-13 + 1 4 0.21419E-05 0.10000E+01 0.14428E+05 0.14619E-08 0.95172E-18 0.27129E-13 + 1 4 0.21419E-05 0.10000E+01 0.11635E+05 0.17559E-08 0.20380E-17 0.32926E-13 + 1 4 0.21419E-05 0.10000E+01 0.93834E+04 0.20938E-08 0.46077E-17 0.39703E-13 + 1 4 0.21419E-05 0.10000E+01 0.75673E+04 0.24813E-08 0.11640E-16 0.47523E-13 + 1 4 0.21419E-05 0.10000E+01 0.61026E+04 0.29312E-08 0.33769E-16 0.56424E-13 + 1 4 0.21419E-05 0.10000E+01 0.49215E+04 0.34742E-08 0.10884E-15 0.66462E-13 + 1 4 0.21419E-05 0.10000E+01 0.39689E+04 0.41774E-08 0.36768E-15 0.77828E-13 + 1 4 0.21419E-05 0.10000E+01 0.32008E+04 0.51756E-08 0.12517E-14 0.91048E-13 + 1 4 0.21419E-05 0.10000E+01 0.25813E+04 0.67214E-08 0.42346E-14 0.10728E-12 + 1 4 0.21419E-05 0.10000E+01 0.20817E+04 0.92685E-08 0.14219E-13 0.12870E-12 1 4 0.21419E-05 0.10000E+01 0.16788E+04 0.13614E-07 0.47492E-13 0.15892E-12 1 4 0.21419E-05 0.10000E+01 0.13538E+04 0.21144E-07 0.15839E-12 0.20353E-12 1 4 0.21419E-05 0.10000E+01 0.10918E+04 0.34273E-07 0.53032E-12 0.27069E-12 @@ -5930,24 +5930,24 @@ VERSION 2.8.2 1 4 0.21419E-05 0.10000E+01 0.24221E+03 0.15133E-05 0.12487E-08 0.34179E-11 1 4 0.21419E-05 0.10000E+01 0.19533E+03 0.23193E-05 0.23639E-08 0.47218E-11 1 4 0.21419E-05 0.10000E+01 0.15752E+03 0.23193E-05 0.23639E-08 0.47218E-11 - 1 4 0.37375E-05 0.10000E+01 0.80645E+05 0.66764E-52 0.50026E-63 0.12021E-56 - 1 4 0.37375E-05 0.10000E+01 0.65036E+05 0.56549E-51 0.79516E-62 0.10198E-55 - 1 4 0.37375E-05 0.10000E+01 0.52449E+05 0.48101E-50 0.10696E-60 0.86865E-55 - 1 4 0.37375E-05 0.10000E+01 0.42297E+05 0.36222E-49 0.14549E-59 0.65575E-54 - 1 4 0.37375E-05 0.10000E+01 0.34111E+05 0.26155E-48 0.20000E-58 0.47555E-53 - 1 4 0.37375E-05 0.10000E+01 0.27509E+05 0.18809E-47 0.27160E-57 0.34434E-52 - 1 4 0.37375E-05 0.10000E+01 0.22184E+05 0.13429E-46 0.36236E-56 0.24851E-51 - 1 4 0.37375E-05 0.10000E+01 0.17891E+05 0.94522E-46 0.47465E-55 0.17782E-50 - 1 4 0.37375E-05 0.10000E+01 0.14428E+05 0.65414E-45 0.61232E-54 0.12596E-49 - 1 4 0.37375E-05 0.10000E+01 0.11635E+05 0.44555E-44 0.77853E-53 0.88401E-49 - 1 4 0.37375E-05 0.10000E+01 0.93834E+04 0.29890E-43 0.97101E-52 0.61477E-48 - 1 4 0.37375E-05 0.10000E+01 0.75673E+04 0.19699E-42 0.11833E-50 0.42222E-47 - 1 4 0.37375E-05 0.10000E+01 0.61026E+04 0.12720E-41 0.14240E-49 0.28436E-46 - 1 4 0.37375E-05 0.10000E+01 0.49215E+04 0.81076E-41 0.17780E-48 0.18593E-45 - 1 4 0.37375E-05 0.10000E+01 0.39689E+04 0.52927E-40 0.25516E-47 0.11671E-44 - 1 4 0.37375E-05 0.10000E+01 0.32008E+04 0.12189E-37 0.14542E-44 0.22206E-42 - 1 4 0.37375E-05 0.10000E+01 0.25813E+04 0.57529E-29 0.17900E-35 0.74914E-34 - 1 4 0.37375E-05 0.10000E+01 0.20817E+04 0.86569E-13 0.89056E-19 0.10203E-17 + 1 4 0.37375E-05 0.10000E+01 0.80645E+05 0.45117E-09 0.28750E-20 0.81179E-14 + 1 4 0.37375E-05 0.10000E+01 0.65036E+05 0.57904E-09 0.66574E-20 0.10426E-13 + 1 4 0.37375E-05 0.10000E+01 0.52449E+05 0.73303E-09 0.15255E-19 0.13214E-13 + 1 4 0.37375E-05 0.10000E+01 0.42297E+05 0.91868E-09 0.34519E-19 0.16590E-13 + 1 4 0.37375E-05 0.10000E+01 0.34111E+05 0.11422E-08 0.77057E-19 0.20682E-13 + 1 4 0.37375E-05 0.10000E+01 0.27509E+05 0.14104E-08 0.16955E-18 0.25634E-13 + 1 4 0.37375E-05 0.10000E+01 0.22184E+05 0.17301E-08 0.36740E-18 0.31608E-13 + 1 4 0.37375E-05 0.10000E+01 0.17891E+05 0.21082E-08 0.78449E-18 0.38782E-13 + 1 4 0.37375E-05 0.10000E+01 0.14428E+05 0.25508E-08 0.16607E-17 0.47338E-13 + 1 4 0.37375E-05 0.10000E+01 0.11635E+05 0.30639E-08 0.35562E-17 0.57453E-13 + 1 4 0.37375E-05 0.10000E+01 0.93834E+04 0.36536E-08 0.80401E-17 0.69280E-13 + 1 4 0.37375E-05 0.10000E+01 0.75673E+04 0.43297E-08 0.20312E-16 0.82925E-13 + 1 4 0.37375E-05 0.10000E+01 0.61026E+04 0.51148E-08 0.58925E-16 0.98456E-13 + 1 4 0.37375E-05 0.10000E+01 0.49215E+04 0.60623E-08 0.18992E-15 0.11597E-12 + 1 4 0.37375E-05 0.10000E+01 0.39689E+04 0.72893E-08 0.64158E-15 0.13580E-12 + 1 4 0.37375E-05 0.10000E+01 0.32008E+04 0.90310E-08 0.21841E-14 0.15887E-12 + 1 4 0.37375E-05 0.10000E+01 0.25813E+04 0.11728E-07 0.73892E-14 0.18720E-12 + 1 4 0.37375E-05 0.10000E+01 0.20817E+04 0.16173E-07 0.24811E-13 0.22457E-12 1 4 0.37375E-05 0.10000E+01 0.16788E+04 0.23755E-07 0.82870E-13 0.27731E-12 1 4 0.37375E-05 0.10000E+01 0.13538E+04 0.36894E-07 0.27638E-12 0.35515E-12 1 4 0.37375E-05 0.10000E+01 0.10918E+04 0.59804E-07 0.92537E-12 0.47234E-12 @@ -5960,24 +5960,24 @@ VERSION 2.8.2 1 4 0.37375E-05 0.10000E+01 0.24221E+03 0.26407E-05 0.21788E-08 0.59640E-11 1 4 0.37375E-05 0.10000E+01 0.19533E+03 0.40470E-05 0.41248E-08 0.82392E-11 1 4 0.37375E-05 0.10000E+01 0.15752E+03 0.40470E-05 0.41248E-08 0.82392E-11 - 1 4 0.65217E-05 0.10000E+01 0.80645E+05 0.11650E-51 0.87292E-63 0.20977E-56 - 1 4 0.65217E-05 0.10000E+01 0.65036E+05 0.98675E-51 0.13875E-61 0.17795E-55 - 1 4 0.65217E-05 0.10000E+01 0.52449E+05 0.83933E-50 0.18664E-60 0.15157E-54 - 1 4 0.65217E-05 0.10000E+01 0.42297E+05 0.63205E-49 0.25387E-59 0.11442E-53 - 1 4 0.65217E-05 0.10000E+01 0.34111E+05 0.45640E-48 0.34898E-58 0.82981E-53 - 1 4 0.65217E-05 0.10000E+01 0.27509E+05 0.32821E-47 0.47392E-57 0.60085E-52 - 1 4 0.65217E-05 0.10000E+01 0.22184E+05 0.23433E-46 0.63229E-56 0.43364E-51 - 1 4 0.65217E-05 0.10000E+01 0.17891E+05 0.16494E-45 0.82823E-55 0.31029E-50 - 1 4 0.65217E-05 0.10000E+01 0.14428E+05 0.11414E-44 0.10685E-53 0.21979E-49 - 1 4 0.65217E-05 0.10000E+01 0.11635E+05 0.77746E-44 0.13585E-52 0.15425E-48 - 1 4 0.65217E-05 0.10000E+01 0.93834E+04 0.52156E-43 0.16944E-51 0.10727E-47 - 1 4 0.65217E-05 0.10000E+01 0.75673E+04 0.34374E-42 0.20648E-50 0.73674E-47 - 1 4 0.65217E-05 0.10000E+01 0.61026E+04 0.22196E-41 0.24848E-49 0.49619E-46 - 1 4 0.65217E-05 0.10000E+01 0.49215E+04 0.14147E-40 0.31025E-48 0.32444E-45 - 1 4 0.65217E-05 0.10000E+01 0.39689E+04 0.92354E-40 0.44524E-47 0.20365E-44 - 1 4 0.65217E-05 0.10000E+01 0.32008E+04 0.21269E-37 0.25375E-44 0.38749E-42 - 1 4 0.65217E-05 0.10000E+01 0.25813E+04 0.10039E-28 0.31234E-35 0.13072E-33 - 1 4 0.65217E-05 0.10000E+01 0.20817E+04 0.15106E-12 0.15540E-18 0.17803E-17 + 1 4 0.65217E-05 0.10000E+01 0.80645E+05 0.78727E-09 0.50167E-20 0.14165E-13 + 1 4 0.65217E-05 0.10000E+01 0.65036E+05 0.10104E-08 0.11617E-19 0.18193E-13 + 1 4 0.65217E-05 0.10000E+01 0.52449E+05 0.12791E-08 0.26618E-19 0.23058E-13 + 1 4 0.65217E-05 0.10000E+01 0.42297E+05 0.16030E-08 0.60234E-19 0.28949E-13 + 1 4 0.65217E-05 0.10000E+01 0.34111E+05 0.19931E-08 0.13446E-18 0.36088E-13 + 1 4 0.65217E-05 0.10000E+01 0.27509E+05 0.24611E-08 0.29585E-18 0.44729E-13 + 1 4 0.65217E-05 0.10000E+01 0.22184E+05 0.30190E-08 0.64109E-18 0.55155E-13 + 1 4 0.65217E-05 0.10000E+01 0.17891E+05 0.36786E-08 0.13689E-17 0.67672E-13 + 1 4 0.65217E-05 0.10000E+01 0.14428E+05 0.44511E-08 0.28978E-17 0.82602E-13 + 1 4 0.65217E-05 0.10000E+01 0.11635E+05 0.53464E-08 0.62053E-17 0.10025E-12 + 1 4 0.65217E-05 0.10000E+01 0.93834E+04 0.63753E-08 0.14029E-16 0.12089E-12 + 1 4 0.65217E-05 0.10000E+01 0.75673E+04 0.75550E-08 0.35443E-16 0.14470E-12 + 1 4 0.65217E-05 0.10000E+01 0.61026E+04 0.89249E-08 0.10282E-15 0.17180E-12 + 1 4 0.65217E-05 0.10000E+01 0.49215E+04 0.10578E-07 0.33141E-15 0.20236E-12 + 1 4 0.65217E-05 0.10000E+01 0.39689E+04 0.12719E-07 0.11195E-14 0.23697E-12 + 1 4 0.65217E-05 0.10000E+01 0.32008E+04 0.15759E-07 0.38112E-14 0.27722E-12 + 1 4 0.65217E-05 0.10000E+01 0.25813E+04 0.20465E-07 0.12894E-13 0.32665E-12 + 1 4 0.65217E-05 0.10000E+01 0.20817E+04 0.28221E-07 0.43294E-13 0.39187E-12 1 4 0.65217E-05 0.10000E+01 0.16788E+04 0.41451E-07 0.14460E-12 0.48388E-12 1 4 0.65217E-05 0.10000E+01 0.13538E+04 0.64378E-07 0.48226E-12 0.61971E-12 1 4 0.65217E-05 0.10000E+01 0.10918E+04 0.10435E-06 0.16147E-11 0.82420E-12 @@ -5990,24 +5990,24 @@ VERSION 2.8.2 1 4 0.65217E-05 0.10000E+01 0.24221E+03 0.46078E-05 0.38019E-08 0.10407E-10 1 4 0.65217E-05 0.10000E+01 0.19533E+03 0.70617E-05 0.71976E-08 0.14377E-10 1 4 0.65217E-05 0.10000E+01 0.15752E+03 0.70617E-05 0.71976E-08 0.14377E-10 - 1 4 0.11380E-04 0.10000E+01 0.80645E+05 0.20328E-51 0.15232E-62 0.36603E-56 - 1 4 0.11380E-04 0.10000E+01 0.65036E+05 0.17218E-50 0.24211E-61 0.31052E-55 - 1 4 0.11380E-04 0.10000E+01 0.52449E+05 0.14646E-49 0.32568E-60 0.26449E-54 - 1 4 0.11380E-04 0.10000E+01 0.42297E+05 0.11029E-48 0.44299E-59 0.19966E-53 - 1 4 0.11380E-04 0.10000E+01 0.34111E+05 0.79638E-48 0.60896E-58 0.14480E-52 - 1 4 0.11380E-04 0.10000E+01 0.27509E+05 0.57270E-47 0.82697E-57 0.10484E-51 - 1 4 0.11380E-04 0.10000E+01 0.22184E+05 0.40889E-46 0.11033E-55 0.75668E-51 - 1 4 0.11380E-04 0.10000E+01 0.17891E+05 0.28780E-45 0.14452E-54 0.54143E-50 - 1 4 0.11380E-04 0.10000E+01 0.14428E+05 0.19917E-44 0.18644E-53 0.38352E-49 - 1 4 0.11380E-04 0.10000E+01 0.11635E+05 0.13566E-43 0.23705E-52 0.26916E-48 - 1 4 0.11380E-04 0.10000E+01 0.93834E+04 0.91010E-43 0.29565E-51 0.18719E-47 - 1 4 0.11380E-04 0.10000E+01 0.75673E+04 0.59981E-42 0.36030E-50 0.12856E-46 - 1 4 0.11380E-04 0.10000E+01 0.61026E+04 0.38731E-41 0.43359E-49 0.86581E-46 - 1 4 0.11380E-04 0.10000E+01 0.49215E+04 0.24686E-40 0.54137E-48 0.56613E-45 - 1 4 0.11380E-04 0.10000E+01 0.39689E+04 0.16115E-39 0.77691E-47 0.35535E-44 - 1 4 0.11380E-04 0.10000E+01 0.32008E+04 0.37113E-37 0.44278E-44 0.67614E-42 - 1 4 0.11380E-04 0.10000E+01 0.25813E+04 0.17517E-28 0.54501E-35 0.22810E-33 - 1 4 0.11380E-04 0.10000E+01 0.20817E+04 0.26359E-12 0.27116E-18 0.31066E-17 + 1 4 0.11380E-04 0.10000E+01 0.80645E+05 0.13737E-08 0.87538E-20 0.24717E-13 + 1 4 0.11380E-04 0.10000E+01 0.65036E+05 0.17631E-08 0.20271E-19 0.31746E-13 + 1 4 0.11380E-04 0.10000E+01 0.52449E+05 0.22319E-08 0.46447E-19 0.40236E-13 + 1 4 0.11380E-04 0.10000E+01 0.42297E+05 0.27972E-08 0.10510E-18 0.50515E-13 + 1 4 0.11380E-04 0.10000E+01 0.34111E+05 0.34779E-08 0.23463E-18 0.62972E-13 + 1 4 0.11380E-04 0.10000E+01 0.27509E+05 0.42945E-08 0.51624E-18 0.78050E-13 + 1 4 0.11380E-04 0.10000E+01 0.22184E+05 0.52679E-08 0.11187E-17 0.96242E-13 + 1 4 0.11380E-04 0.10000E+01 0.17891E+05 0.64190E-08 0.23886E-17 0.11808E-12 + 1 4 0.11380E-04 0.10000E+01 0.14428E+05 0.77668E-08 0.50565E-17 0.14413E-12 + 1 4 0.11380E-04 0.10000E+01 0.11635E+05 0.93291E-08 0.10828E-16 0.17493E-12 + 1 4 0.11380E-04 0.10000E+01 0.93834E+04 0.11124E-07 0.24481E-16 0.21094E-12 + 1 4 0.11380E-04 0.10000E+01 0.75673E+04 0.13183E-07 0.61846E-16 0.25249E-12 + 1 4 0.11380E-04 0.10000E+01 0.61026E+04 0.15573E-07 0.17942E-15 0.29978E-12 + 1 4 0.11380E-04 0.10000E+01 0.49215E+04 0.18458E-07 0.57828E-15 0.35311E-12 + 1 4 0.11380E-04 0.10000E+01 0.39689E+04 0.22195E-07 0.19535E-14 0.41350E-12 + 1 4 0.11380E-04 0.10000E+01 0.32008E+04 0.27498E-07 0.66503E-14 0.48374E-12 + 1 4 0.11380E-04 0.10000E+01 0.25813E+04 0.35711E-07 0.22499E-13 0.56999E-12 + 1 4 0.11380E-04 0.10000E+01 0.20817E+04 0.49244E-07 0.75546E-13 0.68378E-12 1 4 0.11380E-04 0.10000E+01 0.16788E+04 0.72329E-07 0.25232E-12 0.84435E-12 1 4 0.11380E-04 0.10000E+01 0.13538E+04 0.11234E-06 0.84152E-12 0.10814E-11 1 4 0.11380E-04 0.10000E+01 0.10918E+04 0.18209E-06 0.28176E-11 0.14382E-11 @@ -6020,24 +6020,24 @@ VERSION 2.8.2 1 4 0.11380E-04 0.10000E+01 0.24221E+03 0.80403E-05 0.66342E-08 0.18159E-10 1 4 0.11380E-04 0.10000E+01 0.19533E+03 0.12322E-04 0.12559E-07 0.25087E-10 1 4 0.11380E-04 0.10000E+01 0.15752E+03 0.12322E-04 0.12559E-07 0.25087E-10 - 1 4 0.19857E-04 0.10000E+01 0.80645E+05 0.35472E-51 0.26579E-62 0.63870E-56 - 1 4 0.19857E-04 0.10000E+01 0.65036E+05 0.30045E-50 0.42247E-61 0.54184E-55 - 1 4 0.19857E-04 0.10000E+01 0.52449E+05 0.25556E-49 0.56829E-60 0.46152E-54 - 1 4 0.19857E-04 0.10000E+01 0.42297E+05 0.19245E-48 0.77299E-59 0.34840E-53 - 1 4 0.19857E-04 0.10000E+01 0.34111E+05 0.13896E-47 0.10626E-57 0.25266E-52 - 1 4 0.19857E-04 0.10000E+01 0.27509E+05 0.99933E-47 0.14430E-56 0.18295E-51 - 1 4 0.19857E-04 0.10000E+01 0.22184E+05 0.71349E-46 0.19252E-55 0.13204E-50 - 1 4 0.19857E-04 0.10000E+01 0.17891E+05 0.50220E-45 0.25218E-54 0.94477E-50 - 1 4 0.19857E-04 0.10000E+01 0.14428E+05 0.34755E-44 0.32532E-53 0.66921E-49 - 1 4 0.19857E-04 0.10000E+01 0.11635E+05 0.23672E-43 0.41364E-52 0.46968E-48 - 1 4 0.19857E-04 0.10000E+01 0.93834E+04 0.15881E-42 0.51590E-51 0.32663E-47 - 1 4 0.19857E-04 0.10000E+01 0.75673E+04 0.10466E-41 0.62870E-50 0.22432E-46 - 1 4 0.19857E-04 0.10000E+01 0.61026E+04 0.67584E-41 0.75659E-49 0.15108E-45 - 1 4 0.19857E-04 0.10000E+01 0.49215E+04 0.43076E-40 0.94466E-48 0.98786E-45 - 1 4 0.19857E-04 0.10000E+01 0.39689E+04 0.28120E-39 0.13557E-46 0.62007E-44 - 1 4 0.19857E-04 0.10000E+01 0.32008E+04 0.64760E-37 0.77263E-44 0.11798E-41 - 1 4 0.19857E-04 0.10000E+01 0.25813E+04 0.30565E-28 0.95101E-35 0.39802E-33 - 1 4 0.19857E-04 0.10000E+01 0.20817E+04 0.45994E-12 0.47316E-18 0.54208E-17 + 1 4 0.19857E-04 0.10000E+01 0.80645E+05 0.23971E-08 0.15275E-19 0.43130E-13 + 1 4 0.19857E-04 0.10000E+01 0.65036E+05 0.30765E-08 0.35371E-19 0.55396E-13 + 1 4 0.19857E-04 0.10000E+01 0.52449E+05 0.38946E-08 0.81048E-19 0.70209E-13 + 1 4 0.19857E-04 0.10000E+01 0.42297E+05 0.48810E-08 0.18340E-18 0.88145E-13 + 1 4 0.19857E-04 0.10000E+01 0.34111E+05 0.60688E-08 0.40941E-18 0.10988E-12 + 1 4 0.19857E-04 0.10000E+01 0.27509E+05 0.74936E-08 0.90081E-18 0.13619E-12 + 1 4 0.19857E-04 0.10000E+01 0.22184E+05 0.91922E-08 0.19520E-17 0.16794E-12 + 1 4 0.19857E-04 0.10000E+01 0.17891E+05 0.11201E-07 0.41680E-17 0.20605E-12 + 1 4 0.19857E-04 0.10000E+01 0.14428E+05 0.13553E-07 0.88233E-17 0.25151E-12 + 1 4 0.19857E-04 0.10000E+01 0.11635E+05 0.16279E-07 0.18894E-16 0.30525E-12 + 1 4 0.19857E-04 0.10000E+01 0.93834E+04 0.19412E-07 0.42717E-16 0.36809E-12 + 1 4 0.19857E-04 0.10000E+01 0.75673E+04 0.23004E-07 0.10792E-15 0.44058E-12 + 1 4 0.19857E-04 0.10000E+01 0.61026E+04 0.27175E-07 0.31307E-15 0.52310E-12 + 1 4 0.19857E-04 0.10000E+01 0.49215E+04 0.32209E-07 0.10091E-14 0.61616E-12 + 1 4 0.19857E-04 0.10000E+01 0.39689E+04 0.38728E-07 0.34087E-14 0.72153E-12 + 1 4 0.19857E-04 0.10000E+01 0.32008E+04 0.47982E-07 0.11604E-13 0.84409E-12 + 1 4 0.19857E-04 0.10000E+01 0.25813E+04 0.62313E-07 0.39259E-13 0.99460E-12 + 1 4 0.19857E-04 0.10000E+01 0.20817E+04 0.85927E-07 0.13182E-12 0.11932E-11 1 4 0.19857E-04 0.10000E+01 0.16788E+04 0.12621E-06 0.44029E-12 0.14733E-11 1 4 0.19857E-04 0.10000E+01 0.13538E+04 0.19602E-06 0.14684E-11 0.18869E-11 1 4 0.19857E-04 0.10000E+01 0.10918E+04 0.31774E-06 0.49165E-11 0.25095E-11 @@ -6050,24 +6050,24 @@ VERSION 2.8.2 1 4 0.19857E-04 0.10000E+01 0.24221E+03 0.14030E-04 0.11576E-07 0.31687E-10 1 4 0.19857E-04 0.10000E+01 0.19533E+03 0.21502E-04 0.21915E-07 0.43775E-10 1 4 0.19857E-04 0.10000E+01 0.15752E+03 0.21502E-04 0.21915E-07 0.43775E-10 - 1 4 0.34650E-04 0.10000E+01 0.80645E+05 0.61896E-51 0.46378E-62 0.11145E-55 - 1 4 0.34650E-04 0.10000E+01 0.65036E+05 0.52426E-50 0.73719E-61 0.94548E-55 - 1 4 0.34650E-04 0.10000E+01 0.52449E+05 0.44594E-49 0.99163E-60 0.80532E-54 - 1 4 0.34650E-04 0.10000E+01 0.42297E+05 0.33581E-48 0.13488E-58 0.60793E-53 - 1 4 0.34650E-04 0.10000E+01 0.34111E+05 0.24248E-47 0.18542E-57 0.44088E-52 - 1 4 0.34650E-04 0.10000E+01 0.27509E+05 0.17438E-46 0.25180E-56 0.31923E-51 - 1 4 0.34650E-04 0.10000E+01 0.22184E+05 0.12450E-45 0.33594E-55 0.23039E-50 - 1 4 0.34650E-04 0.10000E+01 0.17891E+05 0.87630E-45 0.44004E-54 0.16486E-49 - 1 4 0.34650E-04 0.10000E+01 0.14428E+05 0.60645E-44 0.56767E-53 0.11677E-48 - 1 4 0.34650E-04 0.10000E+01 0.11635E+05 0.41307E-43 0.72177E-52 0.81956E-48 - 1 4 0.34650E-04 0.10000E+01 0.93834E+04 0.27711E-42 0.90021E-51 0.56995E-47 - 1 4 0.34650E-04 0.10000E+01 0.75673E+04 0.18263E-41 0.10970E-49 0.39143E-46 - 1 4 0.34650E-04 0.10000E+01 0.61026E+04 0.11793E-40 0.13202E-48 0.26362E-45 - 1 4 0.34650E-04 0.10000E+01 0.49215E+04 0.75165E-40 0.16484E-47 0.17238E-44 - 1 4 0.34650E-04 0.10000E+01 0.39689E+04 0.49068E-39 0.23656E-46 0.10820E-43 - 1 4 0.34650E-04 0.10000E+01 0.32008E+04 0.11300E-36 0.13482E-43 0.20587E-41 - 1 4 0.34650E-04 0.10000E+01 0.25813E+04 0.53335E-28 0.16594E-34 0.69452E-33 - 1 4 0.34650E-04 0.10000E+01 0.20817E+04 0.80257E-12 0.82563E-18 0.94590E-17 + 1 4 0.34650E-04 0.10000E+01 0.80645E+05 0.41828E-08 0.26654E-19 0.75260E-13 + 1 4 0.34650E-04 0.10000E+01 0.65036E+05 0.53682E-08 0.61720E-19 0.96662E-13 + 1 4 0.34650E-04 0.10000E+01 0.52449E+05 0.67958E-08 0.14142E-18 0.12251E-12 + 1 4 0.34650E-04 0.10000E+01 0.42297E+05 0.85170E-08 0.32002E-18 0.15381E-12 + 1 4 0.34650E-04 0.10000E+01 0.34111E+05 0.10590E-07 0.71439E-18 0.19174E-12 + 1 4 0.34650E-04 0.10000E+01 0.27509E+05 0.13076E-07 0.15719E-17 0.23765E-12 + 1 4 0.34650E-04 0.10000E+01 0.22184E+05 0.16040E-07 0.34061E-17 0.29304E-12 + 1 4 0.34650E-04 0.10000E+01 0.17891E+05 0.19545E-07 0.72729E-17 0.35954E-12 + 1 4 0.34650E-04 0.10000E+01 0.14428E+05 0.23649E-07 0.15396E-16 0.43886E-12 + 1 4 0.34650E-04 0.10000E+01 0.11635E+05 0.28405E-07 0.32969E-16 0.53264E-12 + 1 4 0.34650E-04 0.10000E+01 0.93834E+04 0.33872E-07 0.74539E-16 0.64229E-12 + 1 4 0.34650E-04 0.10000E+01 0.75673E+04 0.40140E-07 0.18831E-15 0.76879E-12 + 1 4 0.34650E-04 0.10000E+01 0.61026E+04 0.47418E-07 0.54629E-15 0.91277E-12 + 1 4 0.34650E-04 0.10000E+01 0.49215E+04 0.56203E-07 0.17608E-14 0.10752E-11 + 1 4 0.34650E-04 0.10000E+01 0.39689E+04 0.67578E-07 0.59480E-14 0.12590E-11 + 1 4 0.34650E-04 0.10000E+01 0.32008E+04 0.83726E-07 0.20249E-13 0.14729E-11 + 1 4 0.34650E-04 0.10000E+01 0.25813E+04 0.10873E-06 0.68505E-13 0.17355E-11 + 1 4 0.34650E-04 0.10000E+01 0.20817E+04 0.14994E-06 0.23002E-12 0.20820E-11 1 4 0.34650E-04 0.10000E+01 0.16788E+04 0.22023E-06 0.76828E-12 0.25709E-11 1 4 0.34650E-04 0.10000E+01 0.13538E+04 0.34204E-06 0.25623E-11 0.32925E-11 1 4 0.34650E-04 0.10000E+01 0.10918E+04 0.55444E-06 0.85790E-11 0.43790E-11 @@ -6080,24 +6080,24 @@ VERSION 2.8.2 1 4 0.34650E-04 0.10000E+01 0.24221E+03 0.24481E-04 0.20200E-07 0.55292E-10 1 4 0.34650E-04 0.10000E+01 0.19533E+03 0.37519E-04 0.38241E-07 0.76385E-10 1 4 0.34650E-04 0.10000E+01 0.15752E+03 0.37519E-04 0.38241E-07 0.76385E-10 - 1 4 0.60462E-04 0.10000E+01 0.80645E+05 0.10800E-50 0.80927E-62 0.19447E-55 - 1 4 0.60462E-04 0.10000E+01 0.65036E+05 0.91481E-50 0.12863E-60 0.16498E-54 - 1 4 0.60462E-04 0.10000E+01 0.52449E+05 0.77813E-49 0.17303E-59 0.14052E-53 - 1 4 0.60462E-04 0.10000E+01 0.42297E+05 0.58597E-48 0.23536E-58 0.10608E-52 - 1 4 0.60462E-04 0.10000E+01 0.34111E+05 0.42312E-47 0.32354E-57 0.76931E-52 - 1 4 0.60462E-04 0.10000E+01 0.27509E+05 0.30428E-46 0.43937E-56 0.55704E-51 - 1 4 0.60462E-04 0.10000E+01 0.22184E+05 0.21724E-45 0.58619E-55 0.40202E-50 - 1 4 0.60462E-04 0.10000E+01 0.17891E+05 0.15291E-44 0.76784E-54 0.28766E-49 - 1 4 0.60462E-04 0.10000E+01 0.14428E+05 0.10582E-43 0.99055E-53 0.20376E-48 - 1 4 0.60462E-04 0.10000E+01 0.11635E+05 0.72078E-43 0.12594E-51 0.14301E-47 - 1 4 0.60462E-04 0.10000E+01 0.93834E+04 0.48354E-42 0.15708E-50 0.99453E-47 - 1 4 0.60462E-04 0.10000E+01 0.75673E+04 0.31868E-41 0.19143E-49 0.68303E-46 - 1 4 0.60462E-04 0.10000E+01 0.61026E+04 0.20578E-40 0.23037E-48 0.46001E-45 - 1 4 0.60462E-04 0.10000E+01 0.49215E+04 0.13116E-39 0.28763E-47 0.30079E-44 - 1 4 0.60462E-04 0.10000E+01 0.39689E+04 0.85620E-39 0.41278E-46 0.18880E-43 - 1 4 0.60462E-04 0.10000E+01 0.32008E+04 0.19718E-36 0.23525E-43 0.35924E-41 - 1 4 0.60462E-04 0.10000E+01 0.25813E+04 0.93066E-28 0.28956E-34 0.12119E-32 - 1 4 0.60462E-04 0.10000E+01 0.20817E+04 0.14004E-11 0.14407E-17 0.16505E-16 + 1 4 0.60462E-04 0.10000E+01 0.80645E+05 0.72987E-08 0.46509E-19 0.13132E-12 + 1 4 0.60462E-04 0.10000E+01 0.65036E+05 0.93672E-08 0.10770E-18 0.16867E-12 + 1 4 0.60462E-04 0.10000E+01 0.52449E+05 0.11858E-07 0.24677E-18 0.21377E-12 + 1 4 0.60462E-04 0.10000E+01 0.42297E+05 0.14862E-07 0.55842E-18 0.26839E-12 + 1 4 0.60462E-04 0.10000E+01 0.34111E+05 0.18478E-07 0.12466E-17 0.33457E-12 + 1 4 0.60462E-04 0.10000E+01 0.27509E+05 0.22817E-07 0.27428E-17 0.41468E-12 + 1 4 0.60462E-04 0.10000E+01 0.22184E+05 0.27989E-07 0.59435E-17 0.51133E-12 + 1 4 0.60462E-04 0.10000E+01 0.17891E+05 0.34104E-07 0.12691E-16 0.62738E-12 + 1 4 0.60462E-04 0.10000E+01 0.14428E+05 0.41265E-07 0.26865E-16 0.76579E-12 + 1 4 0.60462E-04 0.10000E+01 0.11635E+05 0.49566E-07 0.57529E-16 0.92943E-12 + 1 4 0.60462E-04 0.10000E+01 0.93834E+04 0.59104E-07 0.13007E-15 0.11208E-11 + 1 4 0.60462E-04 0.10000E+01 0.75673E+04 0.70042E-07 0.32859E-15 0.13415E-11 + 1 4 0.60462E-04 0.10000E+01 0.61026E+04 0.82742E-07 0.95324E-15 0.15927E-11 + 1 4 0.60462E-04 0.10000E+01 0.49215E+04 0.98070E-07 0.30724E-14 0.18761E-11 + 1 4 0.60462E-04 0.10000E+01 0.39689E+04 0.11792E-06 0.10379E-13 0.21969E-11 + 1 4 0.60462E-04 0.10000E+01 0.32008E+04 0.14610E-06 0.35333E-13 0.25701E-11 + 1 4 0.60462E-04 0.10000E+01 0.25813E+04 0.18973E-06 0.11954E-12 0.30284E-11 + 1 4 0.60462E-04 0.10000E+01 0.20817E+04 0.26163E-06 0.40137E-12 0.36330E-11 1 4 0.60462E-04 0.10000E+01 0.16788E+04 0.38429E-06 0.13406E-11 0.44860E-11 1 4 0.60462E-04 0.10000E+01 0.13538E+04 0.59685E-06 0.44710E-11 0.57452E-11 1 4 0.60462E-04 0.10000E+01 0.10918E+04 0.96746E-06 0.14970E-10 0.76411E-11 @@ -6110,24 +6110,24 @@ VERSION 2.8.2 1 4 0.60462E-04 0.10000E+01 0.24221E+03 0.42718E-04 0.35247E-07 0.96481E-10 1 4 0.60462E-04 0.10000E+01 0.19533E+03 0.65468E-04 0.66728E-07 0.13329E-09 1 4 0.60462E-04 0.10000E+01 0.15752E+03 0.65468E-04 0.66728E-07 0.13329E-09 - 1 4 0.10550E-03 0.10000E+01 0.80645E+05 0.18846E-50 0.14121E-61 0.33934E-55 - 1 4 0.10550E-03 0.10000E+01 0.65036E+05 0.15963E-49 0.22446E-60 0.28788E-54 - 1 4 0.10550E-03 0.10000E+01 0.52449E+05 0.13578E-48 0.30193E-59 0.24520E-53 - 1 4 0.10550E-03 0.10000E+01 0.42297E+05 0.10225E-47 0.41069E-58 0.18510E-52 - 1 4 0.10550E-03 0.10000E+01 0.34111E+05 0.73832E-47 0.56456E-57 0.13424E-51 - 1 4 0.10550E-03 0.10000E+01 0.27509E+05 0.53094E-46 0.76668E-56 0.97200E-51 - 1 4 0.10550E-03 0.10000E+01 0.22184E+05 0.37908E-45 0.10229E-54 0.70151E-50 - 1 4 0.10550E-03 0.10000E+01 0.17891E+05 0.26682E-44 0.13398E-53 0.50196E-49 - 1 4 0.10550E-03 0.10000E+01 0.14428E+05 0.18465E-43 0.17285E-52 0.35555E-48 - 1 4 0.10550E-03 0.10000E+01 0.11635E+05 0.12577E-42 0.21977E-51 0.24954E-47 - 1 4 0.10550E-03 0.10000E+01 0.93834E+04 0.84374E-42 0.27410E-50 0.17354E-46 - 1 4 0.10550E-03 0.10000E+01 0.75673E+04 0.55608E-41 0.33403E-49 0.11918E-45 - 1 4 0.10550E-03 0.10000E+01 0.61026E+04 0.35907E-40 0.40198E-48 0.80269E-45 - 1 4 0.10550E-03 0.10000E+01 0.49215E+04 0.22886E-39 0.50190E-47 0.52485E-44 - 1 4 0.10550E-03 0.10000E+01 0.39689E+04 0.14940E-38 0.72027E-46 0.32944E-43 - 1 4 0.10550E-03 0.10000E+01 0.32008E+04 0.34407E-36 0.41050E-43 0.62684E-41 - 1 4 0.10550E-03 0.10000E+01 0.25813E+04 0.16239E-27 0.50527E-34 0.21147E-32 - 1 4 0.10550E-03 0.10000E+01 0.20817E+04 0.24437E-11 0.25139E-17 0.28801E-16 + 1 4 0.10550E-03 0.10000E+01 0.80645E+05 0.12736E-07 0.81155E-19 0.22915E-12 + 1 4 0.10550E-03 0.10000E+01 0.65036E+05 0.16345E-07 0.18793E-18 0.29432E-12 + 1 4 0.10550E-03 0.10000E+01 0.52449E+05 0.20692E-07 0.43061E-18 0.37302E-12 + 1 4 0.10550E-03 0.10000E+01 0.42297E+05 0.25933E-07 0.97442E-18 0.46832E-12 + 1 4 0.10550E-03 0.10000E+01 0.34111E+05 0.32243E-07 0.21752E-17 0.58381E-12 + 1 4 0.10550E-03 0.10000E+01 0.27509E+05 0.39814E-07 0.47860E-17 0.72359E-12 + 1 4 0.10550E-03 0.10000E+01 0.22184E+05 0.48838E-07 0.10371E-16 0.89225E-12 + 1 4 0.10550E-03 0.10000E+01 0.17891E+05 0.59509E-07 0.22145E-16 0.10947E-11 + 1 4 0.10550E-03 0.10000E+01 0.14428E+05 0.72005E-07 0.46878E-16 0.13363E-11 + 1 4 0.10550E-03 0.10000E+01 0.11635E+05 0.86489E-07 0.10038E-15 0.16218E-11 + 1 4 0.10550E-03 0.10000E+01 0.93834E+04 0.10313E-06 0.22696E-15 0.19556E-11 + 1 4 0.10550E-03 0.10000E+01 0.75673E+04 0.12222E-06 0.57337E-15 0.23408E-11 + 1 4 0.10550E-03 0.10000E+01 0.61026E+04 0.14438E-06 0.16633E-14 0.27792E-11 + 1 4 0.10550E-03 0.10000E+01 0.49215E+04 0.17113E-06 0.53612E-14 0.32737E-11 + 1 4 0.10550E-03 0.10000E+01 0.39689E+04 0.20576E-06 0.18111E-13 0.38335E-11 + 1 4 0.10550E-03 0.10000E+01 0.32008E+04 0.25493E-06 0.61654E-13 0.44847E-11 + 1 4 0.10550E-03 0.10000E+01 0.25813E+04 0.33107E-06 0.20858E-12 0.52843E-11 + 1 4 0.10550E-03 0.10000E+01 0.20817E+04 0.45653E-06 0.70037E-12 0.63393E-11 1 4 0.10550E-03 0.10000E+01 0.16788E+04 0.67056E-06 0.23393E-11 0.78279E-11 1 4 0.10550E-03 0.10000E+01 0.13538E+04 0.10415E-05 0.78016E-11 0.10025E-10 1 4 0.10550E-03 0.10000E+01 0.10918E+04 0.16882E-05 0.26122E-10 0.13333E-10 @@ -6140,24 +6140,24 @@ VERSION 2.8.2 1 4 0.10550E-03 0.10000E+01 0.24221E+03 0.74541E-04 0.61505E-07 0.16835E-09 1 4 0.10550E-03 0.10000E+01 0.19533E+03 0.11424E-03 0.11644E-06 0.23258E-09 1 4 0.10550E-03 0.10000E+01 0.15752E+03 0.11424E-03 0.11644E-06 0.23258E-09 - 1 4 0.18409E-03 0.10000E+01 0.80645E+05 0.32885E-50 0.24641E-61 0.59213E-55 - 1 4 0.18409E-03 0.10000E+01 0.65036E+05 0.27854E-49 0.39167E-60 0.50233E-54 - 1 4 0.18409E-03 0.10000E+01 0.52449E+05 0.23693E-48 0.52686E-59 0.42787E-53 - 1 4 0.18409E-03 0.10000E+01 0.42297E+05 0.17842E-47 0.71663E-58 0.32300E-52 - 1 4 0.18409E-03 0.10000E+01 0.34111E+05 0.12883E-46 0.98512E-57 0.23424E-51 - 1 4 0.18409E-03 0.10000E+01 0.27509E+05 0.92647E-46 0.13378E-55 0.16961E-50 - 1 4 0.18409E-03 0.10000E+01 0.22184E+05 0.66147E-45 0.17848E-54 0.12241E-49 - 1 4 0.18409E-03 0.10000E+01 0.17891E+05 0.46558E-44 0.23379E-53 0.87588E-49 - 1 4 0.18409E-03 0.10000E+01 0.14428E+05 0.32221E-43 0.30160E-52 0.62042E-48 - 1 4 0.18409E-03 0.10000E+01 0.11635E+05 0.21946E-42 0.38348E-51 0.43543E-47 - 1 4 0.18409E-03 0.10000E+01 0.93834E+04 0.14723E-41 0.47829E-50 0.30282E-46 - 1 4 0.18409E-03 0.10000E+01 0.75673E+04 0.97032E-41 0.58286E-49 0.20797E-45 - 1 4 0.18409E-03 0.10000E+01 0.61026E+04 0.62656E-40 0.70143E-48 0.14006E-44 - 1 4 0.18409E-03 0.10000E+01 0.49215E+04 0.39935E-39 0.87578E-47 0.91584E-44 - 1 4 0.18409E-03 0.10000E+01 0.39689E+04 0.26070E-38 0.12568E-45 0.57486E-43 - 1 4 0.18409E-03 0.10000E+01 0.32008E+04 0.60038E-36 0.71630E-43 0.10938E-40 - 1 4 0.18409E-03 0.10000E+01 0.25813E+04 0.28337E-27 0.88167E-34 0.36900E-32 - 1 4 0.18409E-03 0.10000E+01 0.20817E+04 0.42641E-11 0.43866E-17 0.50256E-16 + 1 4 0.18409E-03 0.10000E+01 0.80645E+05 0.22223E-07 0.14161E-18 0.39986E-12 + 1 4 0.18409E-03 0.10000E+01 0.65036E+05 0.28522E-07 0.32792E-18 0.51357E-12 + 1 4 0.18409E-03 0.10000E+01 0.52449E+05 0.36106E-07 0.75138E-18 0.65090E-12 + 1 4 0.18409E-03 0.10000E+01 0.42297E+05 0.45251E-07 0.17003E-17 0.81719E-12 + 1 4 0.18409E-03 0.10000E+01 0.34111E+05 0.56263E-07 0.37956E-17 0.10187E-11 + 1 4 0.18409E-03 0.10000E+01 0.27509E+05 0.69472E-07 0.83513E-17 0.12626E-11 + 1 4 0.18409E-03 0.10000E+01 0.22184E+05 0.85220E-07 0.18097E-16 0.15569E-11 + 1 4 0.18409E-03 0.10000E+01 0.17891E+05 0.10384E-06 0.38641E-16 0.19103E-11 + 1 4 0.18409E-03 0.10000E+01 0.14428E+05 0.12565E-06 0.81800E-16 0.23317E-11 + 1 4 0.18409E-03 0.10000E+01 0.11635E+05 0.15092E-06 0.17516E-15 0.28299E-11 + 1 4 0.18409E-03 0.10000E+01 0.93834E+04 0.17996E-06 0.39603E-15 0.34125E-11 + 1 4 0.18409E-03 0.10000E+01 0.75673E+04 0.21326E-06 0.10005E-14 0.40846E-11 + 1 4 0.18409E-03 0.10000E+01 0.61026E+04 0.25193E-06 0.29024E-14 0.48496E-11 + 1 4 0.18409E-03 0.10000E+01 0.49215E+04 0.29861E-06 0.93549E-14 0.57124E-11 + 1 4 0.18409E-03 0.10000E+01 0.39689E+04 0.35904E-06 0.31602E-13 0.66893E-11 + 1 4 0.18409E-03 0.10000E+01 0.32008E+04 0.44484E-06 0.10758E-12 0.78255E-11 + 1 4 0.18409E-03 0.10000E+01 0.25813E+04 0.57770E-06 0.36397E-12 0.92208E-11 + 1 4 0.18409E-03 0.10000E+01 0.20817E+04 0.79662E-06 0.12221E-11 0.11062E-10 1 4 0.18409E-03 0.10000E+01 0.16788E+04 0.11701E-05 0.40819E-11 0.13659E-10 1 4 0.18409E-03 0.10000E+01 0.13538E+04 0.18173E-05 0.13613E-10 0.17493E-10 1 4 0.18409E-03 0.10000E+01 0.10918E+04 0.29457E-05 0.45581E-10 0.23266E-10 @@ -6170,24 +6170,24 @@ VERSION 2.8.2 1 4 0.18409E-03 0.10000E+01 0.24221E+03 0.13007E-03 0.10732E-06 0.29377E-09 1 4 0.18409E-03 0.10000E+01 0.19533E+03 0.19934E-03 0.20317E-06 0.40583E-09 1 4 0.18409E-03 0.10000E+01 0.15752E+03 0.19934E-03 0.20317E-06 0.40583E-09 - 1 4 0.32123E-03 0.10000E+01 0.80645E+05 0.57383E-50 0.42997E-61 0.10332E-54 - 1 4 0.32123E-03 0.10000E+01 0.65036E+05 0.48604E-49 0.68344E-60 0.87654E-54 - 1 4 0.32123E-03 0.10000E+01 0.52449E+05 0.41342E-48 0.91933E-59 0.74660E-53 - 1 4 0.32123E-03 0.10000E+01 0.42297E+05 0.31133E-47 0.12505E-57 0.56361E-52 - 1 4 0.32123E-03 0.10000E+01 0.34111E+05 0.22480E-46 0.17190E-56 0.40874E-51 - 1 4 0.32123E-03 0.10000E+01 0.27509E+05 0.16166E-45 0.23344E-55 0.29596E-50 - 1 4 0.32123E-03 0.10000E+01 0.22184E+05 0.11542E-44 0.31144E-54 0.21360E-49 - 1 4 0.32123E-03 0.10000E+01 0.17891E+05 0.81241E-44 0.40795E-53 0.15284E-48 - 1 4 0.32123E-03 0.10000E+01 0.14428E+05 0.56223E-43 0.52628E-52 0.10826E-47 - 1 4 0.32123E-03 0.10000E+01 0.11635E+05 0.38295E-42 0.66914E-51 0.75980E-47 - 1 4 0.32123E-03 0.10000E+01 0.93834E+04 0.25690E-41 0.83458E-50 0.52839E-46 - 1 4 0.32123E-03 0.10000E+01 0.75673E+04 0.16931E-40 0.10171E-48 0.36289E-45 - 1 4 0.32123E-03 0.10000E+01 0.61026E+04 0.10933E-39 0.12239E-47 0.24440E-44 - 1 4 0.32123E-03 0.10000E+01 0.49215E+04 0.69685E-39 0.15282E-46 0.15981E-43 - 1 4 0.32123E-03 0.10000E+01 0.39689E+04 0.45490E-38 0.21931E-45 0.10031E-42 - 1 4 0.32123E-03 0.10000E+01 0.32008E+04 0.10476E-35 0.12499E-42 0.19086E-40 - 1 4 0.32123E-03 0.10000E+01 0.25813E+04 0.49446E-27 0.15385E-33 0.64388E-32 - 1 4 0.32123E-03 0.10000E+01 0.20817E+04 0.74405E-11 0.76543E-17 0.87693E-16 + 1 4 0.32123E-03 0.10000E+01 0.80645E+05 0.38778E-07 0.24710E-18 0.69773E-12 + 1 4 0.32123E-03 0.10000E+01 0.65036E+05 0.49768E-07 0.57220E-18 0.89614E-12 + 1 4 0.32123E-03 0.10000E+01 0.52449E+05 0.63004E-07 0.13111E-17 0.11358E-11 + 1 4 0.32123E-03 0.10000E+01 0.42297E+05 0.78960E-07 0.29669E-17 0.14259E-11 + 1 4 0.32123E-03 0.10000E+01 0.34111E+05 0.98175E-07 0.66230E-17 0.17776E-11 + 1 4 0.32123E-03 0.10000E+01 0.27509E+05 0.12122E-06 0.14573E-16 0.22032E-11 + 1 4 0.32123E-03 0.10000E+01 0.22184E+05 0.14870E-06 0.31578E-16 0.27167E-11 + 1 4 0.32123E-03 0.10000E+01 0.17891E+05 0.18120E-06 0.67426E-16 0.33333E-11 + 1 4 0.32123E-03 0.10000E+01 0.14428E+05 0.21924E-06 0.14274E-15 0.40687E-11 + 1 4 0.32123E-03 0.10000E+01 0.11635E+05 0.26334E-06 0.30565E-15 0.49381E-11 + 1 4 0.32123E-03 0.10000E+01 0.93834E+04 0.31402E-06 0.69104E-15 0.59546E-11 + 1 4 0.32123E-03 0.10000E+01 0.75673E+04 0.37213E-06 0.17458E-14 0.71274E-11 + 1 4 0.32123E-03 0.10000E+01 0.61026E+04 0.43961E-06 0.50646E-14 0.84622E-11 + 1 4 0.32123E-03 0.10000E+01 0.49215E+04 0.52105E-06 0.16324E-13 0.99677E-11 + 1 4 0.32123E-03 0.10000E+01 0.39689E+04 0.62651E-06 0.55143E-13 0.11672E-10 + 1 4 0.32123E-03 0.10000E+01 0.32008E+04 0.77621E-06 0.18772E-12 0.13655E-10 + 1 4 0.32123E-03 0.10000E+01 0.25813E+04 0.10080E-05 0.63510E-12 0.16090E-10 + 1 4 0.32123E-03 0.10000E+01 0.20817E+04 0.13901E-05 0.21325E-11 0.19302E-10 1 4 0.32123E-03 0.10000E+01 0.16788E+04 0.20417E-05 0.71227E-11 0.23834E-10 1 4 0.32123E-03 0.10000E+01 0.13538E+04 0.31710E-05 0.23754E-10 0.30525E-10 1 4 0.32123E-03 0.10000E+01 0.10918E+04 0.51401E-05 0.79535E-10 0.40597E-10 @@ -6250,24 +6250,24 @@ VERSION 2.8.2 2 1 0.10550E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.32745E+00 0.17361E-02 0.40027E+00 0.67662E-04 0.46642E+10 0.64076E+03 0.50000E+03 0.39278E-15 0.18468E-01 0.57605E-02 0.10978E+02 2 1 0.18409E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.99703E+00 0.30293E-02 0.69845E+00 0.67662E-04 0.81388E+10 0.11181E+04 0.50000E+03 0.68538E-15 0.32225E-01 0.57605E-02 0.10978E+02 2 1 0.32123E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.30358E+01 0.52860E-02 0.12188E+01 0.67662E-04 0.14202E+11 0.19510E+04 0.50000E+03 0.11959E-14 0.56230E-01 0.57605E-02 0.10978E+02 - 2 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 2 1 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 2 1 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 2 1 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 2 1 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 2 1 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 2 1 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 2 1 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 2 1 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 2 1 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 2 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 2 1 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 2 1 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 2 1 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 2 1 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 2 1 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 2 1 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 2 1 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 2 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 2 1 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 2 1 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 2 1 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 2 1 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 2 1 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 2 1 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 2 1 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 2 1 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 2 1 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 2 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 2 1 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 2 1 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 2 1 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 2 1 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 2 1 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 2 1 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 2 1 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 2 1 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 2 1 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 2 1 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -6280,24 +6280,24 @@ VERSION 2.8.2 2 1 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 2 1 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 2 1 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 2 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 2 1 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 2 1 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 2 1 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 2 1 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 2 1 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 2 1 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 2 1 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 2 1 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 2 1 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 2 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 2 1 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 2 1 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 2 1 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 2 1 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 2 1 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 2 1 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 2 1 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 2 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 2 1 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 2 1 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 2 1 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 2 1 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 2 1 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 2 1 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 2 1 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 2 1 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 2 1 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 2 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 2 1 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 2 1 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 2 1 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 2 1 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 2 1 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 2 1 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 2 1 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 2 1 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 2 1 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 2 1 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -6310,24 +6310,24 @@ VERSION 2.8.2 2 1 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 2 1 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 2 1 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 2 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 2 1 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 2 1 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 2 1 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 2 1 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 2 1 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 2 1 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 2 1 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 2 1 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 2 1 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 2 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 2 1 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 2 1 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 2 1 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 2 1 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 2 1 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 2 1 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 2 1 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 2 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 2 1 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 2 1 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 2 1 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 2 1 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 2 1 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 2 1 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 2 1 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 2 1 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 2 1 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 2 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 2 1 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 2 1 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 2 1 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 2 1 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 2 1 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 2 1 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 2 1 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 2 1 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 2 1 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 2 1 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -6340,24 +6340,24 @@ VERSION 2.8.2 2 1 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 2 1 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 2 1 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 2 1 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 2 1 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 2 1 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 2 1 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 2 1 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 2 1 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 2 1 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 2 1 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 2 1 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 2 1 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 2 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 2 1 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 2 1 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 2 1 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 2 1 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 2 1 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 2 1 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 2 1 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 2 1 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 2 1 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 2 1 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 2 1 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 2 1 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 2 1 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 2 1 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 2 1 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 2 1 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 2 1 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 2 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 2 1 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 2 1 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 2 1 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 2 1 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 2 1 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 2 1 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 2 1 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 2 1 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 2 1 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 2 1 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -6370,24 +6370,24 @@ VERSION 2.8.2 2 1 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 2 1 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 2 1 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 2 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 2 1 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 2 1 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 2 1 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 2 1 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 2 1 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 2 1 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 2 1 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 2 1 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 2 1 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 2 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 2 1 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 2 1 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 2 1 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 2 1 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 2 1 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 2 1 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 2 1 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 2 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 2 1 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 2 1 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 2 1 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 2 1 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 2 1 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 2 1 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 2 1 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 2 1 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 2 1 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 2 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 2 1 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 2 1 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 2 1 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 2 1 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 2 1 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 2 1 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 2 1 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 2 1 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 2 1 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 2 1 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -6400,24 +6400,24 @@ VERSION 2.8.2 2 1 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 2 1 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 2 1 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 2 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 2 1 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 2 1 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 2 1 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 2 1 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 2 1 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 2 1 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 2 1 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 2 1 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 2 1 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 2 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 2 1 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 2 1 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 2 1 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 2 1 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 2 1 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 2 1 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 2 1 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 2 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 2 1 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 2 1 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 2 1 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 2 1 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 2 1 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 2 1 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 2 1 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 2 1 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 2 1 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 2 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 2 1 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 2 1 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 2 1 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 2 1 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 2 1 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 2 1 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 2 1 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 2 1 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 2 1 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 2 1 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -6430,24 +6430,24 @@ VERSION 2.8.2 2 1 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 2 1 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 2 1 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 2 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 2 1 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 2 1 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 2 1 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 2 1 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 2 1 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 2 1 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 2 1 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 2 1 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 2 1 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 2 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 2 1 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 2 1 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 2 1 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 2 1 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 2 1 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 2 1 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 2 1 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 2 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 2 1 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 2 1 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 2 1 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 2 1 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 2 1 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 2 1 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 2 1 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 2 1 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 2 1 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 2 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 2 1 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 2 1 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 2 1 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 2 1 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 2 1 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 2 1 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 2 1 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 2 1 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 2 1 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 2 1 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -6460,24 +6460,24 @@ VERSION 2.8.2 2 1 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 2 1 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 2 1 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 2 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 2 1 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 2 1 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 2 1 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 2 1 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 2 1 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 2 1 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 2 1 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 2 1 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 2 1 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 2 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 2 1 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 2 1 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 2 1 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 2 1 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 2 1 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 2 1 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 2 1 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 2 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 2 1 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 2 1 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 2 1 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 2 1 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 2 1 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 2 1 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 2 1 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 2 1 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 2 1 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 2 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 2 1 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 2 1 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 2 1 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 2 1 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 2 1 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 2 1 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 2 1 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 2 1 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 2 1 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 2 1 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -6490,24 +6490,24 @@ VERSION 2.8.2 2 1 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 2 1 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 2 1 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 2 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 2 1 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 2 1 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 2 1 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 2 1 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 2 1 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 2 1 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 2 1 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 2 1 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 2 1 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 2 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 2 1 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 2 1 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 2 1 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 2 1 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 2 1 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 2 1 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 2 1 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 2 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 2 1 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 2 1 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 2 1 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 2 1 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 2 1 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 2 1 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 2 1 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 2 1 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 2 1 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 2 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 2 1 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 2 1 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 2 1 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 2 1 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 2 1 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 2 1 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 2 1 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 2 1 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 2 1 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 2 1 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -6520,24 +6520,24 @@ VERSION 2.8.2 2 1 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 2 1 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 2 1 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 2 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 2 1 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 2 1 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 2 1 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 2 1 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 2 1 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 2 1 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 2 1 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 2 1 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 2 1 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 2 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 2 1 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 2 1 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 2 1 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 2 1 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 2 1 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 2 1 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 2 1 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 2 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 2 1 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 2 1 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 2 1 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 2 1 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 2 1 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 2 1 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 2 1 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 2 1 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 2 1 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 2 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 2 1 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 2 1 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 2 1 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 2 1 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 2 1 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 2 1 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 2 1 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 2 1 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 2 1 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 2 1 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -6550,24 +6550,24 @@ VERSION 2.8.2 2 1 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 2 1 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 2 1 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 2 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 2 1 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 2 1 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 2 1 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 2 1 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 2 1 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 2 1 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 2 1 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 2 1 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 2 1 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 2 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 2 1 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 2 1 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 2 1 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 2 1 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 2 1 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 2 1 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 2 1 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 2 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 2 1 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 2 1 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 2 1 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 2 1 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 2 1 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 2 1 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 2 1 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 2 1 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 2 1 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 2 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 2 1 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 2 1 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 2 1 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 2 1 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 2 1 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 2 1 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 2 1 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 2 1 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 2 1 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 2 1 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -6580,24 +6580,24 @@ VERSION 2.8.2 2 1 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 2 1 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 2 1 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 2 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 2 1 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 2 1 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 2 1 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 2 1 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 2 1 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 2 1 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 2 1 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 2 1 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 2 1 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 2 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 2 1 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 2 1 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 2 1 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 2 1 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 2 1 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 2 1 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 2 1 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 2 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 2 1 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 2 1 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 2 1 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 2 1 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 2 1 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 2 1 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 2 1 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 2 1 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 2 1 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 2 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 2 1 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 2 1 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 2 1 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 2 1 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 2 1 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 2 1 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 2 1 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 2 1 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 2 1 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 2 1 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -6610,24 +6610,24 @@ VERSION 2.8.2 2 1 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 2 1 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 2 1 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 2 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 2 1 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 2 1 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 2 1 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 2 1 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 2 1 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 2 1 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 2 1 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 2 1 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 2 1 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 2 1 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 2 1 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 2 1 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 2 1 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 2 1 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 2 1 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 2 1 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 2 1 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 2 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 2 1 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 2 1 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 2 1 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 2 1 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 2 1 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 2 1 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 2 1 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 2 1 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 2 1 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 2 1 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 2 1 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 2 1 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 2 1 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 2 1 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 2 1 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 2 1 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 2 1 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 2 1 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 2 1 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 2 1 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -6640,24 +6640,24 @@ VERSION 2.8.2 2 1 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 2 1 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 2 1 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 2 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 2 1 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 2 1 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 2 1 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 2 1 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 2 1 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 2 1 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 2 1 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 2 1 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 2 1 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 2 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 2 1 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 2 1 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 2 1 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 2 1 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 2 1 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 2 1 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 2 1 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 2 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 2 1 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 2 1 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 2 1 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 2 1 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 2 1 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 2 1 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 2 1 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 2 1 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 2 1 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 2 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 2 1 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 2 1 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 2 1 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 2 1 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 2 1 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 2 1 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 2 1 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 2 1 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 2 1 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 2 1 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -6670,24 +6670,24 @@ VERSION 2.8.2 2 1 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 2 1 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 2 1 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 2 1 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 2 1 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 2 1 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 2 1 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 2 1 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 2 1 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 2 1 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 2 1 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 2 1 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 2 1 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 2 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 2 1 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 2 1 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 2 1 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 2 1 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 2 1 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 2 1 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 2 1 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 2 1 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 2 1 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 2 1 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 2 1 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 2 1 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 2 1 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 2 1 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 2 1 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 2 1 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 2 1 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 2 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 2 1 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 2 1 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 2 1 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 2 1 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 2 1 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 2 1 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 2 1 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 2 1 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 2 1 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 2 1 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -6700,24 +6700,24 @@ VERSION 2.8.2 2 1 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 2 1 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 2 1 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 2 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 2 1 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 2 1 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 2 1 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 2 1 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 2 1 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 2 1 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 2 1 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 2 1 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 2 1 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 2 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 2 1 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 2 1 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 2 1 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 2 1 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 2 1 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 2 1 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 2 1 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 2 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 2 1 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 2 1 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 2 1 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 2 1 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 2 1 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 2 1 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 2 1 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 2 1 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 2 1 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 2 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 2 1 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 2 1 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 2 1 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 2 1 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 2 1 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 2 1 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 2 1 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 2 1 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 2 1 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 2 1 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -6730,24 +6730,24 @@ VERSION 2.8.2 2 1 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 2 1 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 2 1 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 2 1 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 2 1 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 2 1 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 2 1 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 2 1 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 2 1 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 2 1 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 2 1 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 2 1 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 2 1 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 2 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 2 1 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 2 1 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 2 1 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 2 1 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 2 1 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 2 1 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 2 1 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 2 1 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 2 1 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 2 1 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 2 1 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 2 1 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 2 1 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 2 1 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 2 1 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 2 1 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 2 1 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 2 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 2 1 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 2 1 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 2 1 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 2 1 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 2 1 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 2 1 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 2 1 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 2 1 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 2 1 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 2 1 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -6760,24 +6760,24 @@ VERSION 2.8.2 2 1 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 2 1 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 2 1 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 2 1 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 2 1 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 2 1 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 2 1 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 2 1 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 2 1 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 2 1 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 2 1 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 2 1 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 2 1 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 2 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 2 1 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 2 1 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 2 1 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 2 1 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 2 1 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 2 1 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 2 1 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 2 1 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 2 1 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 2 1 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 2 1 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 2 1 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 2 1 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 2 1 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 2 1 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 2 1 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 2 1 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 2 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 2 1 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 2 1 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 2 1 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 2 1 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 2 1 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 2 1 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 2 1 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 2 1 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 2 1 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 2 1 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -6790,24 +6790,24 @@ VERSION 2.8.2 2 1 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 2 1 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 2 1 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 2 1 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 2 1 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 2 1 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 2 1 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 2 1 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 2 1 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 2 1 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 2 1 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 2 1 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 2 1 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 2 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 2 1 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 2 1 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 2 1 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 2 1 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 2 1 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 2 1 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 2 1 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 2 1 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 2 1 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 2 1 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 2 1 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 2 1 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 2 1 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 2 1 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 2 1 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 2 1 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 2 1 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 2 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 2 1 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 2 1 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 2 1 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 2 1 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 2 1 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 2 1 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 2 1 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 2 1 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 2 1 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 2 1 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -6820,24 +6820,24 @@ VERSION 2.8.2 2 1 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 2 1 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 2 1 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 2 1 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 2 1 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 2 1 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 2 1 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 2 1 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 2 1 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 2 1 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 2 1 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 2 1 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 2 1 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 2 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 2 1 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 2 1 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 2 1 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 2 1 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 2 1 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 2 1 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 2 1 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 2 1 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 2 1 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 2 1 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 2 1 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 2 1 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 2 1 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 2 1 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 2 1 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 2 1 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 2 1 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 2 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 2 1 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 2 1 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 2 1 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 2 1 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 2 1 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 2 1 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 2 1 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 2 1 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 2 1 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 2 1 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -6850,24 +6850,24 @@ VERSION 2.8.2 2 1 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 2 1 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 2 1 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 2 1 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 2 1 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 2 1 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 2 1 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 2 1 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 2 1 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 2 1 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 2 1 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 2 1 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 2 1 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 2 1 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 2 1 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 2 1 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 2 1 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 2 1 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 2 1 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 2 1 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 2 1 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 2 1 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 2 1 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 2 1 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 2 1 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 2 1 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 2 1 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 2 1 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 2 1 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 2 1 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 2 1 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 2 1 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 2 1 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 2 1 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 2 1 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 2 1 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 2 1 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 2 1 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 2 1 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 2 1 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 2 1 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 2 1 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -6880,24 +6880,24 @@ VERSION 2.8.2 2 1 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 2 1 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 2 1 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 2 1 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 2 1 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 2 1 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 2 1 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 2 1 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 2 1 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 2 1 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 2 1 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 2 1 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 2 1 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 2 1 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 2 1 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 2 1 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 2 1 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 2 1 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 2 1 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 2 1 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 2 1 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 2 1 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 2 1 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 2 1 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 2 1 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 2 1 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 2 1 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 2 1 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 2 1 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 2 1 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 2 1 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 2 1 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 2 1 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 2 1 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 2 1 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 2 1 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 2 1 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 2 1 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 2 1 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 2 1 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 2 1 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 2 1 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -6910,24 +6910,24 @@ VERSION 2.8.2 2 1 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 2 1 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 2 1 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 2 1 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 2 1 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 2 1 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 2 1 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 2 1 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 2 1 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 2 1 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 2 1 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 2 1 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 2 1 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 2 1 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 2 1 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 2 1 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 2 1 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 2 1 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 2 1 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 2 1 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 2 1 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 2 1 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 2 1 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 2 1 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 2 1 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 2 1 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 2 1 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 2 1 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 2 1 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 2 1 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 2 1 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 2 1 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 2 1 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 2 1 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 2 1 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 2 1 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 2 1 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 2 1 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 2 1 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 2 1 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 2 1 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 2 1 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -6940,24 +6940,24 @@ VERSION 2.8.2 2 1 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 2 1 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 2 1 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 2 1 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 2 1 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 2 1 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 2 1 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 2 1 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 2 1 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 2 1 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 2 1 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 2 1 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 2 1 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 2 1 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 2 1 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 2 1 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 2 1 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 2 1 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 2 1 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 2 1 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 2 1 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 2 1 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 2 1 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 2 1 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 2 1 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 2 1 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 2 1 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 2 1 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 2 1 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 2 1 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 2 1 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 2 1 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 2 1 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 2 1 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 2 1 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 2 1 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 2 1 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 2 1 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 2 1 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 2 1 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 2 1 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 2 1 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -6970,24 +6970,24 @@ VERSION 2.8.2 2 1 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 2 1 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 2 1 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 2 1 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 2 1 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 2 1 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 2 1 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 2 1 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 2 1 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 2 1 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 2 1 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 2 1 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 2 1 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 2 1 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 2 1 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 2 1 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 2 1 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 2 1 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 2 1 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 2 1 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 2 1 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 2 1 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 2 1 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 2 1 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 2 1 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 2 1 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 2 1 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 2 1 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 2 1 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 2 1 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 2 1 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 2 1 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 2 1 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 2 1 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 2 1 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 2 1 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 2 1 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 2 1 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 2 1 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 2 1 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 2 1 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 2 1 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -7000,24 +7000,24 @@ VERSION 2.8.2 2 1 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 2 1 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 2 1 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 2 1 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 2 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 2 1 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 2 1 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 2 1 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 2 1 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 2 1 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 2 1 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 2 1 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 2 1 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 2 1 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 2 1 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 2 1 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 2 1 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 2 1 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 2 1 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 2 1 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 2 1 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 2 1 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 2 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 2 1 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 2 1 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 2 1 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 2 1 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 2 1 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 2 1 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 2 1 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 2 1 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 2 1 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 2 1 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 2 1 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 2 1 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 2 1 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 2 1 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 2 1 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 2 1 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 2 1 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 2 1 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 2 1 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -7030,24 +7030,24 @@ VERSION 2.8.2 2 1 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 2 1 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 2 1 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 2 1 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 2 1 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 2 1 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 2 1 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 2 1 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 2 1 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 2 1 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 2 1 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 2 1 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 2 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 2 1 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 2 1 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 2 1 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 2 1 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 2 1 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 2 1 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 2 1 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 2 1 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 2 1 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 2 1 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 2 1 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 2 1 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 2 1 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 2 1 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 2 1 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 2 1 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 2 1 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 2 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 2 1 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 2 1 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 2 1 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 2 1 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 2 1 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 2 1 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 2 1 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 2 1 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 2 1 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 2 1 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 2 1 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -7060,24 +7060,24 @@ VERSION 2.8.2 2 1 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 2 1 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 2 1 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 2 1 0.15405E-08 0.10000E+01 0.80645E+05 0.22169E-55 0.16538E-66 0.19444E-63 - 2 1 0.15405E-08 0.10000E+01 0.65036E+05 0.18709E-54 0.26199E-65 0.16386E-62 - 2 1 0.15405E-08 0.10000E+01 0.52449E+05 0.15857E-53 0.34936E-64 0.13874E-61 - 2 1 0.15405E-08 0.10000E+01 0.42297E+05 0.11856E-52 0.46757E-63 0.10359E-60 - 2 1 0.15405E-08 0.10000E+01 0.34111E+05 0.84435E-52 0.62479E-62 0.73632E-60 - 2 1 0.15405E-08 0.10000E+01 0.27509E+05 0.59246E-51 0.81019E-61 0.51534E-59 - 2 1 0.15405E-08 0.10000E+01 0.22184E+05 0.40692E-50 0.10307E-59 0.35092E-58 - 2 1 0.15405E-08 0.10000E+01 0.17891E+05 0.27534E-49 0.14075E-58 0.22768E-57 - 2 1 0.15405E-08 0.10000E+01 0.14428E+05 0.19631E-48 0.24555E-57 0.13888E-56 - 2 1 0.15405E-08 0.10000E+01 0.11635E+05 0.17070E-47 0.57662E-56 0.81553E-56 - 2 1 0.15405E-08 0.10000E+01 0.93834E+04 0.19685E-46 0.15733E-54 0.52856E-55 - 2 1 0.15405E-08 0.10000E+01 0.75673E+04 0.27170E-45 0.44125E-53 0.48422E-54 - 2 1 0.15405E-08 0.10000E+01 0.61026E+04 0.39529E-44 0.12261E-51 0.62492E-53 - 2 1 0.15405E-08 0.10000E+01 0.49215E+04 0.57536E-43 0.33698E-50 0.90174E-52 - 2 1 0.15405E-08 0.10000E+01 0.39689E+04 0.83012E-42 0.92000E-49 0.13001E-50 - 2 1 0.15405E-08 0.10000E+01 0.32008E+04 0.37425E-39 0.80984E-46 0.58076E-48 - 2 1 0.15405E-08 0.10000E+01 0.25813E+04 0.27849E-30 0.13803E-36 0.42644E-39 - 2 1 0.15405E-08 0.10000E+01 0.20817E+04 0.53875E-14 0.11903E-19 0.81441E-23 + 2 1 0.15405E-08 0.10000E+01 0.80645E+05 0.15001E-12 0.91972E-24 0.13169E-20 + 2 1 0.15405E-08 0.10000E+01 0.65036E+05 0.19213E-12 0.20848E-23 0.16858E-20 + 2 1 0.15405E-08 0.10000E+01 0.52449E+05 0.24243E-12 0.47202E-23 0.21254E-20 + 2 1 0.15405E-08 0.10000E+01 0.42297E+05 0.30246E-12 0.11147E-22 0.26464E-20 + 2 1 0.15405E-08 0.10000E+01 0.34111E+05 0.37429E-12 0.29920E-22 0.32582E-20 + 2 1 0.15405E-08 0.10000E+01 0.27509E+05 0.46190E-12 0.98679E-22 0.39673E-20 + 2 1 0.15405E-08 0.10000E+01 0.22184E+05 0.57520E-12 0.39261E-21 0.47820E-20 + 2 1 0.15405E-08 0.10000E+01 0.17891E+05 0.74041E-12 0.17297E-20 0.57272E-20 + 2 1 0.15405E-08 0.10000E+01 0.14428E+05 0.10253E-11 0.78986E-20 0.68859E-20 + 2 1 0.15405E-08 0.10000E+01 0.11635E+05 0.15998E-11 0.36328E-19 0.84980E-20 + 2 1 0.15405E-08 0.10000E+01 0.93834E+04 0.28796E-11 0.16677E-18 0.11186E-19 + 2 1 0.15405E-08 0.10000E+01 0.75673E+04 0.58696E-11 0.76119E-18 0.16480E-19 + 2 1 0.15405E-08 0.10000E+01 0.61026E+04 0.12974E-10 0.34345E-17 0.28036E-19 + 2 1 0.15405E-08 0.10000E+01 0.49215E+04 0.29868E-10 0.15201E-16 0.54439E-19 + 2 1 0.15405E-08 0.10000E+01 0.39689E+04 0.69673E-10 0.65650E-16 0.11541E-18 + 2 1 0.15405E-08 0.10000E+01 0.32008E+04 0.16191E-09 0.27640E-15 0.25516E-18 + 2 1 0.15405E-08 0.10000E+01 0.25813E+04 0.37121E-09 0.11350E-14 0.57012E-18 + 2 1 0.15405E-08 0.10000E+01 0.20817E+04 0.83541E-09 0.45411E-14 0.12655E-17 2 1 0.15405E-08 0.10000E+01 0.16788E+04 0.18406E-08 0.17690E-13 0.27668E-17 2 1 0.15405E-08 0.10000E+01 0.13538E+04 0.39646E-08 0.67251E-13 0.59320E-17 2 1 0.15405E-08 0.10000E+01 0.10918E+04 0.83445E-08 0.25085E-12 0.12448E-16 @@ -7090,24 +7090,24 @@ VERSION 2.8.2 2 1 0.15405E-08 0.10000E+01 0.24221E+03 0.83283E-06 0.76833E-09 0.12325E-14 2 1 0.15405E-08 0.10000E+01 0.19533E+03 0.13126E-05 0.14601E-08 0.19419E-14 2 1 0.15405E-08 0.10000E+01 0.15752E+03 0.13126E-05 0.14601E-08 0.19419E-14 - 2 1 0.26880E-08 0.10000E+01 0.80645E+05 0.44147E-55 0.32899E-66 0.76539E-63 - 2 1 0.26880E-08 0.10000E+01 0.65036E+05 0.37227E-54 0.52097E-65 0.64519E-62 - 2 1 0.26880E-08 0.10000E+01 0.52449E+05 0.31535E-53 0.69411E-64 0.54648E-61 - 2 1 0.26880E-08 0.10000E+01 0.42297E+05 0.23562E-52 0.92815E-63 0.40832E-60 - 2 1 0.26880E-08 0.10000E+01 0.34111E+05 0.16767E-51 0.12398E-61 0.29071E-59 - 2 1 0.26880E-08 0.10000E+01 0.27509E+05 0.11758E-50 0.16033E-60 0.20417E-58 - 2 1 0.26880E-08 0.10000E+01 0.22184E+05 0.80503E-50 0.19916E-59 0.14006E-57 - 2 1 0.26880E-08 0.10000E+01 0.17891E+05 0.53362E-49 0.24604E-58 0.92169E-57 - 2 1 0.26880E-08 0.10000E+01 0.14428E+05 0.35072E-48 0.34415E-57 0.57325E-56 - 2 1 0.26880E-08 0.10000E+01 0.11635E+05 0.25233E-47 0.64825E-56 0.33641E-55 - 2 1 0.26880E-08 0.10000E+01 0.93834E+04 0.23294E-46 0.16099E-54 0.19548E-54 - 2 1 0.26880E-08 0.10000E+01 0.75673E+04 0.28462E-45 0.44413E-53 0.13553E-53 - 2 1 0.26880E-08 0.10000E+01 0.61026E+04 0.40026E-44 0.12346E-51 0.13880E-52 - 2 1 0.26880E-08 0.10000E+01 0.49215E+04 0.57964E-43 0.33900E-50 0.18524E-51 - 2 1 0.26880E-08 0.10000E+01 0.39689E+04 0.83490E-42 0.92262E-49 0.26049E-50 - 2 1 0.26880E-08 0.10000E+01 0.32008E+04 0.37529E-39 0.80913E-46 0.11368E-47 - 2 1 0.26880E-08 0.10000E+01 0.25813E+04 0.27821E-30 0.13740E-36 0.81010E-39 - 2 1 0.26880E-08 0.10000E+01 0.20817E+04 0.53615E-14 0.11804E-19 0.14934E-22 + 2 1 0.26880E-08 0.10000E+01 0.80645E+05 0.29889E-12 0.18253E-23 0.51836E-20 + 2 1 0.26880E-08 0.10000E+01 0.65036E+05 0.38272E-12 0.41144E-23 0.66371E-20 + 2 1 0.26880E-08 0.10000E+01 0.52449E+05 0.48272E-12 0.91242E-23 0.83711E-20 + 2 1 0.26880E-08 0.10000E+01 0.42297E+05 0.60166E-12 0.20271E-22 0.10431E-19 + 2 1 0.26880E-08 0.10000E+01 0.34111E+05 0.74252E-12 0.47711E-22 0.12857E-19 + 2 1 0.26880E-08 0.10000E+01 0.27509E+05 0.90955E-12 0.13100E-21 0.15675E-19 + 2 1 0.26880E-08 0.10000E+01 0.22184E+05 0.11119E-11 0.44757E-21 0.18903E-19 + 2 1 0.26880E-08 0.10000E+01 0.17891E+05 0.13741E-11 0.18206E-20 0.22571E-19 + 2 1 0.26880E-08 0.10000E+01 0.14428E+05 0.17613E-11 0.80566E-20 0.26806E-19 + 2 1 0.26880E-08 0.10000E+01 0.11635E+05 0.24407E-11 0.36623E-19 0.32029E-19 + 2 1 0.26880E-08 0.10000E+01 0.93834E+04 0.38265E-11 0.16721E-18 0.39399E-19 + 2 1 0.26880E-08 0.10000E+01 0.75673E+04 0.69213E-11 0.76050E-18 0.51802E-19 + 2 1 0.26880E-08 0.10000E+01 0.61026E+04 0.14123E-10 0.34224E-17 0.76072E-19 + 2 1 0.26880E-08 0.10000E+01 0.49215E+04 0.31080E-10 0.15118E-16 0.12798E-18 + 2 1 0.26880E-08 0.10000E+01 0.39689E+04 0.70831E-10 0.65194E-16 0.24321E-18 + 2 1 0.26880E-08 0.10000E+01 0.32008E+04 0.16267E-09 0.27419E-15 0.50060E-18 + 2 1 0.26880E-08 0.10000E+01 0.25813E+04 0.37069E-09 0.11250E-14 0.10705E-17 + 2 1 0.26880E-08 0.10000E+01 0.20817E+04 0.83144E-09 0.44988E-14 0.23125E-17 2 1 0.26880E-08 0.10000E+01 0.16788E+04 0.18283E-08 0.17519E-13 0.49687E-17 2 1 0.26880E-08 0.10000E+01 0.13538E+04 0.39332E-08 0.66577E-13 0.10530E-16 2 1 0.26880E-08 0.10000E+01 0.10918E+04 0.82717E-08 0.24827E-12 0.21919E-16 @@ -7120,24 +7120,24 @@ VERSION 2.8.2 2 1 0.26880E-08 0.10000E+01 0.24221E+03 0.82391E-06 0.75991E-09 0.21294E-14 2 1 0.26880E-08 0.10000E+01 0.19533E+03 0.12984E-05 0.14440E-08 0.33534E-14 2 1 0.26880E-08 0.10000E+01 0.15752E+03 0.12984E-05 0.14440E-08 0.33534E-14 - 2 1 0.46905E-08 0.10000E+01 0.80645E+05 0.84914E-55 0.63264E-66 0.25137E-62 - 2 1 0.46905E-08 0.10000E+01 0.65036E+05 0.71591E-54 0.10018E-64 0.21198E-61 - 2 1 0.46905E-08 0.10000E+01 0.52449E+05 0.60640E-53 0.13347E-63 0.17961E-60 - 2 1 0.46905E-08 0.10000E+01 0.42297E+05 0.45308E-52 0.17852E-62 0.13429E-59 - 2 1 0.46905E-08 0.10000E+01 0.34111E+05 0.32249E-51 0.23870E-61 0.95741E-59 - 2 1 0.46905E-08 0.10000E+01 0.27509E+05 0.22631E-50 0.30904E-60 0.67413E-58 - 2 1 0.46905E-08 0.10000E+01 0.22184E+05 0.15505E-49 0.38168E-59 0.46473E-57 - 2 1 0.46905E-08 0.10000E+01 0.17891E+05 0.10224E-48 0.45256E-58 0.30863E-56 - 2 1 0.46905E-08 0.10000E+01 0.14428E+05 0.65022E-48 0.55190E-57 0.19482E-55 - 2 1 0.46905E-08 0.10000E+01 0.11635E+05 0.41896E-47 0.82401E-56 0.11604E-54 - 2 1 0.46905E-08 0.10000E+01 0.93834E+04 0.31427E-46 0.17362E-54 0.66133E-54 - 2 1 0.46905E-08 0.10000E+01 0.75673E+04 0.31973E-45 0.45741E-53 0.40197E-53 - 2 1 0.46905E-08 0.10000E+01 0.61026E+04 0.41790E-44 0.12665E-51 0.33476E-52 - 2 1 0.46905E-08 0.10000E+01 0.49215E+04 0.59589E-43 0.34720E-50 0.40051E-51 - 2 1 0.46905E-08 0.10000E+01 0.39689E+04 0.85492E-42 0.94020E-49 0.54427E-50 - 2 1 0.46905E-08 0.10000E+01 0.32008E+04 0.38237E-39 0.81918E-46 0.23194E-47 - 2 1 0.46905E-08 0.10000E+01 0.25813E+04 0.28156E-30 0.13815E-36 0.15995E-38 - 2 1 0.46905E-08 0.10000E+01 0.20817E+04 0.53870E-14 0.11779E-19 0.28225E-22 + 2 1 0.46905E-08 0.10000E+01 0.80645E+05 0.57500E-12 0.35114E-23 0.17022E-19 + 2 1 0.46905E-08 0.10000E+01 0.65036E+05 0.73624E-12 0.79068E-23 0.21799E-19 + 2 1 0.46905E-08 0.10000E+01 0.52449E+05 0.92859E-12 0.17410E-22 0.27505E-19 + 2 1 0.46905E-08 0.10000E+01 0.42297E+05 0.11572E-11 0.37661E-22 0.34293E-19 + 2 1 0.46905E-08 0.10000E+01 0.34111E+05 0.14269E-11 0.82369E-22 0.42305E-19 + 2 1 0.46905E-08 0.10000E+01 0.27509E+05 0.17430E-11 0.19616E-21 0.51643E-19 + 2 1 0.46905E-08 0.10000E+01 0.22184E+05 0.21140E-11 0.56452E-21 0.62357E-19 + 2 1 0.46905E-08 0.10000E+01 0.17891E+05 0.25619E-11 0.20325E-20 0.74483E-19 + 2 1 0.46905E-08 0.10000E+01 0.14428E+05 0.31486E-11 0.84913E-20 0.88202E-19 + 2 1 0.46905E-08 0.10000E+01 0.11635E+05 0.40389E-11 0.37719E-19 0.10425E-18 + 2 1 0.46905E-08 0.10000E+01 0.93834E+04 0.56486E-11 0.17039E-18 0.12484E-18 + 2 1 0.46905E-08 0.10000E+01 0.75673E+04 0.89903E-11 0.76986E-18 0.15558E-18 + 2 1 0.46905E-08 0.10000E+01 0.61026E+04 0.16481E-10 0.34474E-17 0.20966E-18 + 2 1 0.46905E-08 0.10000E+01 0.49215E+04 0.33800E-10 0.15170E-16 0.31695E-18 + 2 1 0.46905E-08 0.10000E+01 0.39689E+04 0.74009E-10 0.65230E-16 0.54361E-18 + 2 1 0.46905E-08 0.10000E+01 0.32008E+04 0.16638E-09 0.27375E-15 0.10331E-17 + 2 1 0.46905E-08 0.10000E+01 0.25813E+04 0.37483E-09 0.11215E-14 0.20907E-17 + 2 1 0.46905E-08 0.10000E+01 0.20817E+04 0.83538E-09 0.44796E-14 0.43540E-17 2 1 0.46905E-08 0.10000E+01 0.16788E+04 0.18300E-08 0.17429E-13 0.91273E-17 2 1 0.46905E-08 0.10000E+01 0.13538E+04 0.39273E-08 0.66194E-13 0.19016E-16 2 1 0.46905E-08 0.10000E+01 0.10918E+04 0.82460E-08 0.24672E-12 0.39111E-16 @@ -7150,24 +7150,24 @@ VERSION 2.8.2 2 1 0.46905E-08 0.10000E+01 0.24221E+03 0.81813E-06 0.75423E-09 0.36911E-14 2 1 0.46905E-08 0.10000E+01 0.19533E+03 0.12892E-05 0.14332E-08 0.58084E-14 2 1 0.46905E-08 0.10000E+01 0.15752E+03 0.12892E-05 0.14332E-08 0.58084E-14 - 2 1 0.81846E-08 0.10000E+01 0.80645E+05 0.16157E-54 0.12039E-65 0.81777E-62 - 2 1 0.81846E-08 0.10000E+01 0.65036E+05 0.13624E-53 0.19067E-64 0.68988E-61 - 2 1 0.81846E-08 0.10000E+01 0.52449E+05 0.11542E-52 0.25416E-63 0.58475E-60 - 2 1 0.81846E-08 0.10000E+01 0.42297E+05 0.86267E-52 0.34029E-62 0.43752E-59 - 2 1 0.81846E-08 0.10000E+01 0.34111E+05 0.61456E-51 0.45595E-61 0.31234E-58 - 2 1 0.81846E-08 0.10000E+01 0.27509E+05 0.43204E-50 0.59265E-60 0.22044E-57 - 2 1 0.81846E-08 0.10000E+01 0.22184E+05 0.29695E-49 0.73515E-59 0.15261E-56 - 2 1 0.81846E-08 0.10000E+01 0.17891E+05 0.19647E-48 0.86568E-58 0.10213E-55 - 2 1 0.81846E-08 0.10000E+01 0.14428E+05 0.12425E-47 0.99469E-57 0.65308E-55 - 2 1 0.81846E-08 0.10000E+01 0.11635E+05 0.76467E-47 0.12439E-55 0.39573E-54 - 2 1 0.81846E-08 0.10000E+01 0.93834E+04 0.49731E-46 0.20939E-54 0.22686E-53 - 2 1 0.81846E-08 0.10000E+01 0.75673E+04 0.40864E-45 0.49634E-53 0.12961E-52 - 2 1 0.81846E-08 0.10000E+01 0.61026E+04 0.46629E-44 0.13469E-51 0.90893E-52 - 2 1 0.81846E-08 0.10000E+01 0.49215E+04 0.63787E-43 0.36725E-50 0.94409E-51 - 2 1 0.81846E-08 0.10000E+01 0.39689E+04 0.90467E-42 0.98534E-49 0.12204E-49 - 2 1 0.81846E-08 0.10000E+01 0.32008E+04 0.40062E-39 0.84797E-46 0.50685E-47 - 2 1 0.81846E-08 0.10000E+01 0.25813E+04 0.29122E-30 0.14099E-36 0.33706E-38 - 2 1 0.81846E-08 0.10000E+01 0.20817E+04 0.54889E-14 0.11826E-19 0.56261E-22 + 2 1 0.81846E-08 0.10000E+01 0.80645E+05 0.10941E-11 0.66970E-23 0.55365E-19 + 2 1 0.81846E-08 0.10000E+01 0.65036E+05 0.14011E-11 0.15103E-22 0.70920E-19 + 2 1 0.81846E-08 0.10000E+01 0.52449E+05 0.17674E-11 0.33261E-22 0.89511E-19 + 2 1 0.81846E-08 0.10000E+01 0.42297E+05 0.22031E-11 0.71397E-22 0.11166E-18 + 2 1 0.81846E-08 0.10000E+01 0.34111E+05 0.27171E-11 0.15113E-21 0.13787E-18 + 2 1 0.81846E-08 0.10000E+01 0.27509E+05 0.33175E-11 0.32969E-21 0.16851E-18 + 2 1 0.81846E-08 0.10000E+01 0.22184E+05 0.40129E-11 0.81462E-21 0.20377E-18 + 2 1 0.81846E-08 0.10000E+01 0.17891E+05 0.48227E-11 0.25093E-20 0.24371E-18 + 2 1 0.81846E-08 0.10000E+01 0.14428E+05 0.58046E-11 0.95196E-20 0.28853E-18 + 2 1 0.81846E-08 0.10000E+01 0.11635E+05 0.71217E-11 0.40435E-19 0.33953E-18 + 2 1 0.81846E-08 0.10000E+01 0.93834E+04 0.91982E-11 0.17875E-18 0.40104E-18 + 2 1 0.81846E-08 0.10000E+01 0.75673E+04 0.13076E-10 0.79676E-18 0.48454E-18 + 2 1 0.81846E-08 0.10000E+01 0.61026E+04 0.21236E-10 0.35315E-17 0.61692E-18 + 2 1 0.81846E-08 0.10000E+01 0.49215E+04 0.39469E-10 0.15416E-16 0.85780E-18 + 2 1 0.81846E-08 0.10000E+01 0.39689E+04 0.81002E-10 0.65872E-16 0.13354E-17 + 2 1 0.81846E-08 0.10000E+01 0.32008E+04 0.17532E-09 0.27513E-15 0.23201E-17 + 2 1 0.81846E-08 0.10000E+01 0.25813E+04 0.38650E-09 0.11232E-14 0.43741E-17 + 2 1 0.81846E-08 0.10000E+01 0.20817E+04 0.85051E-09 0.44750E-14 0.86491E-17 2 1 0.81846E-08 0.10000E+01 0.16788E+04 0.18486E-08 0.17379E-13 0.17469E-16 2 1 0.81846E-08 0.10000E+01 0.13538E+04 0.39471E-08 0.65916E-13 0.35430E-16 2 1 0.81846E-08 0.10000E+01 0.10918E+04 0.82589E-08 0.24542E-12 0.71449E-16 @@ -7180,24 +7180,24 @@ VERSION 2.8.2 2 1 0.81846E-08 0.10000E+01 0.24221E+03 0.81272E-06 0.74859E-09 0.64172E-14 2 1 0.81846E-08 0.10000E+01 0.19533E+03 0.12804E-05 0.14225E-08 0.10085E-13 2 1 0.81846E-08 0.10000E+01 0.15752E+03 0.12804E-05 0.14225E-08 0.10085E-13 - 2 1 0.14282E-07 0.10000E+01 0.80645E+05 0.30442E-54 0.22691E-65 0.26444E-61 - 2 1 0.14282E-07 0.10000E+01 0.65036E+05 0.25675E-53 0.35946E-64 0.22317E-60 - 2 1 0.14282E-07 0.10000E+01 0.52449E+05 0.21757E-52 0.47947E-63 0.18923E-59 - 2 1 0.14282E-07 0.10000E+01 0.42297E+05 0.16272E-51 0.64280E-62 0.14168E-58 - 2 1 0.14282E-07 0.10000E+01 0.34111E+05 0.11605E-50 0.86337E-61 0.10127E-57 - 2 1 0.14282E-07 0.10000E+01 0.27509E+05 0.81753E-50 0.11274E-59 0.71622E-57 - 2 1 0.14282E-07 0.10000E+01 0.22184E+05 0.56408E-49 0.14089E-58 0.49766E-56 - 2 1 0.14282E-07 0.10000E+01 0.17891E+05 0.37546E-48 0.16701E-57 0.33521E-55 - 2 1 0.14282E-07 0.10000E+01 0.14428E+05 0.23872E-47 0.18921E-56 0.21667E-54 - 2 1 0.14282E-07 0.10000E+01 0.11635E+05 0.14540E-46 0.21527E-55 0.13338E-53 - 2 1 0.14282E-07 0.10000E+01 0.93834E+04 0.88067E-46 0.29254E-54 0.77578E-53 - 2 1 0.14282E-07 0.10000E+01 0.75673E+04 0.60553E-45 0.58326E-53 0.43430E-52 - 2 1 0.14282E-07 0.10000E+01 0.61026E+04 0.57349E-44 0.15051E-51 0.27098E-51 - 2 1 0.14282E-07 0.10000E+01 0.49215E+04 0.72317E-43 0.40568E-50 0.24252E-50 - 2 1 0.14282E-07 0.10000E+01 0.39689E+04 0.10013E-41 0.10738E-48 0.29366E-49 - 2 1 0.14282E-07 0.10000E+01 0.32008E+04 0.43649E-39 0.90644E-46 0.11889E-46 - 2 1 0.14282E-07 0.10000E+01 0.25813E+04 0.31082E-30 0.14709E-36 0.76420E-38 - 2 1 0.14282E-07 0.10000E+01 0.20817E+04 0.57088E-14 0.11967E-19 0.12009E-21 + 2 1 0.14282E-07 0.10000E+01 0.80645E+05 0.20612E-11 0.12658E-22 0.17900E-18 + 2 1 0.14282E-07 0.10000E+01 0.65036E+05 0.26399E-11 0.28613E-22 0.22934E-18 + 2 1 0.14282E-07 0.10000E+01 0.52449E+05 0.33311E-11 0.63196E-22 0.28955E-18 + 2 1 0.14282E-07 0.10000E+01 0.42297E+05 0.41540E-11 0.13575E-21 0.36139E-18 + 2 1 0.14282E-07 0.10000E+01 0.34111E+05 0.51262E-11 0.28433E-21 0.44655E-18 + 2 1 0.14282E-07 0.10000E+01 0.27509E+05 0.62620E-11 0.59381E-21 0.54640E-18 + 2 1 0.14282E-07 0.10000E+01 0.22184E+05 0.75726E-11 0.13206E-20 0.66172E-18 + 2 1 0.14282E-07 0.10000E+01 0.17891E+05 0.90746E-11 0.34882E-20 0.79266E-18 + 2 1 0.14282E-07 0.10000E+01 0.14428E+05 0.10820E-10 0.11624E-19 0.93933E-18 + 2 1 0.14282E-07 0.10000E+01 0.11635E+05 0.12970E-10 0.45915E-19 0.11039E-17 + 2 1 0.14282E-07 0.10000E+01 0.93834E+04 0.15966E-10 0.19556E-18 0.12952E-17 + 2 1 0.14282E-07 0.10000E+01 0.75673E+04 0.20907E-10 0.85157E-18 0.15380E-17 + 2 1 0.14282E-07 0.10000E+01 0.61026E+04 0.30404E-10 0.37080E-17 0.18909E-17 + 2 1 0.14282E-07 0.10000E+01 0.49215E+04 0.50484E-10 0.15955E-16 0.24806E-17 + 2 1 0.14282E-07 0.10000E+01 0.39689E+04 0.94752E-10 0.67398E-16 0.35711E-17 + 2 1 0.14282E-07 0.10000E+01 0.32008E+04 0.19322E-09 0.27900E-15 0.56992E-17 + 2 1 0.14282E-07 0.10000E+01 0.25813E+04 0.41059E-09 0.11313E-14 0.99423E-17 + 2 1 0.14282E-07 0.10000E+01 0.20817E+04 0.88330E-09 0.44851E-14 0.18446E-16 2 1 0.14282E-07 0.10000E+01 0.16788E+04 0.18924E-08 0.17356E-13 0.35443E-16 2 1 0.14282E-07 0.10000E+01 0.13538E+04 0.40020E-08 0.65652E-13 0.69167E-16 2 1 0.14282E-07 0.10000E+01 0.10918E+04 0.83184E-08 0.24397E-12 0.13540E-15 @@ -7210,24 +7210,24 @@ VERSION 2.8.2 2 1 0.14282E-07 0.10000E+01 0.24221E+03 0.80590E-06 0.74114E-09 0.11214E-13 2 1 0.14282E-07 0.10000E+01 0.19533E+03 0.12691E-05 0.14082E-08 0.17584E-13 2 1 0.14282E-07 0.10000E+01 0.15752E+03 0.12691E-05 0.14082E-08 0.17584E-13 - 2 1 0.24920E-07 0.10000E+01 0.80645E+05 0.56799E-54 0.42354E-65 0.84609E-61 - 2 1 0.24920E-07 0.10000E+01 0.65036E+05 0.47921E-53 0.67115E-64 0.71433E-60 - 2 1 0.24920E-07 0.10000E+01 0.52449E+05 0.40621E-52 0.89589E-63 0.60589E-59 - 2 1 0.24920E-07 0.10000E+01 0.42297E+05 0.30398E-51 0.12027E-61 0.45392E-58 - 2 1 0.24920E-07 0.10000E+01 0.34111E+05 0.21705E-50 0.16193E-60 0.32479E-57 - 2 1 0.24920E-07 0.10000E+01 0.27509E+05 0.15323E-49 0.21238E-59 0.23013E-56 - 2 1 0.24920E-07 0.10000E+01 0.22184E+05 0.10612E-48 0.26744E-58 0.16041E-55 - 2 1 0.24920E-07 0.10000E+01 0.17891E+05 0.71084E-48 0.32040E-57 0.10863E-54 - 2 1 0.24920E-07 0.10000E+01 0.14428E+05 0.45587E-47 0.36499E-56 0.70834E-54 - 2 1 0.24920E-07 0.10000E+01 0.11635E+05 0.27903E-46 0.40136E-55 0.44191E-53 - 2 1 0.24920E-07 0.10000E+01 0.93834E+04 0.16495E-45 0.47141E-54 0.26116E-52 - 2 1 0.24920E-07 0.10000E+01 0.75673E+04 0.10159E-44 0.76552E-53 0.14621E-51 - 2 1 0.24920E-07 0.10000E+01 0.61026E+04 0.79681E-44 0.18024E-51 0.85225E-51 - 2 1 0.24920E-07 0.10000E+01 0.49215E+04 0.88844E-43 0.47589E-50 0.66813E-50 - 2 1 0.24920E-07 0.10000E+01 0.39689E+04 0.11805E-41 0.12392E-48 0.74971E-49 - 2 1 0.24920E-07 0.10000E+01 0.32008E+04 0.50367E-39 0.10197E-45 0.29630E-46 - 2 1 0.24920E-07 0.10000E+01 0.25813E+04 0.34881E-30 0.15962E-36 0.18551E-37 - 2 1 0.24920E-07 0.10000E+01 0.20817E+04 0.61657E-14 0.12352E-19 0.27613E-21 + 2 1 0.24920E-07 0.10000E+01 0.80645E+05 0.38452E-11 0.23695E-22 0.57263E-18 + 2 1 0.24920E-07 0.10000E+01 0.65036E+05 0.49257E-11 0.53696E-22 0.73379E-18 + 2 1 0.24920E-07 0.10000E+01 0.52449E+05 0.62173E-11 0.11903E-21 0.92671E-18 + 2 1 0.24920E-07 0.10000E+01 0.42297E+05 0.77567E-11 0.25668E-21 0.11572E-17 + 2 1 0.24920E-07 0.10000E+01 0.34111E+05 0.95787E-11 0.53751E-21 0.14308E-17 + 2 1 0.24920E-07 0.10000E+01 0.27509E+05 0.11711E-10 0.11035E-20 0.17525E-17 + 2 1 0.24920E-07 0.10000E+01 0.22184E+05 0.14172E-10 0.23126E-20 0.21252E-17 + 2 1 0.24920E-07 0.10000E+01 0.17891E+05 0.16978E-10 0.54240E-20 0.25497E-17 + 2 1 0.24920E-07 0.10000E+01 0.14428E+05 0.20171E-10 0.15753E-19 0.30257E-17 + 2 1 0.24920E-07 0.10000E+01 0.11635E+05 0.23912E-10 0.56487E-19 0.35565E-17 + 2 1 0.24920E-07 0.10000E+01 0.93834E+04 0.28672E-10 0.22781E-18 0.41605E-17 + 2 1 0.24920E-07 0.10000E+01 0.75673E+04 0.35659E-10 0.95840E-18 0.48942E-17 + 2 1 0.24920E-07 0.10000E+01 0.61026E+04 0.47734E-10 0.40629E-17 0.58929E-17 + 2 1 0.24920E-07 0.10000E+01 0.49215E+04 0.71409E-10 0.17094E-16 0.74460E-17 + 2 1 0.24920E-07 0.10000E+01 0.39689E+04 0.12111E-09 0.70870E-16 0.10136E-16 + 2 1 0.24920E-07 0.10000E+01 0.32008E+04 0.22814E-09 0.28897E-15 0.15098E-16 + 2 1 0.24920E-07 0.10000E+01 0.25813E+04 0.45899E-09 0.11580E-14 0.24517E-16 + 2 1 0.24920E-07 0.10000E+01 0.20817E+04 0.95244E-09 0.45507E-14 0.42571E-16 2 1 0.24920E-07 0.10000E+01 0.16788E+04 0.19921E-08 0.17496E-13 0.77232E-16 2 1 0.24920E-07 0.10000E+01 0.13538E+04 0.41442E-08 0.65869E-13 0.14362E-15 2 1 0.24920E-07 0.10000E+01 0.10918E+04 0.85146E-08 0.24393E-12 0.27015E-15 @@ -7240,24 +7240,24 @@ VERSION 2.8.2 2 1 0.24920E-07 0.10000E+01 0.24221E+03 0.80227E-06 0.73576E-09 0.19769E-13 2 1 0.24920E-07 0.10000E+01 0.19533E+03 0.12625E-05 0.13979E-08 0.30878E-13 2 1 0.24920E-07 0.10000E+01 0.15752E+03 0.12625E-05 0.13979E-08 0.30878E-13 - 2 1 0.43485E-07 0.10000E+01 0.80645E+05 0.10510E-53 0.78406E-65 0.26954E-60 - 2 1 0.43485E-07 0.10000E+01 0.65036E+05 0.88705E-53 0.12428E-63 0.22764E-59 - 2 1 0.43485E-07 0.10000E+01 0.52449E+05 0.75217E-52 0.16602E-62 0.19314E-58 - 2 1 0.43485E-07 0.10000E+01 0.42297E+05 0.56321E-51 0.22317E-61 0.14477E-57 - 2 1 0.43485E-07 0.10000E+01 0.34111E+05 0.40259E-50 0.30113E-60 0.10369E-56 - 2 1 0.43485E-07 0.10000E+01 0.27509E+05 0.28477E-49 0.39653E-59 0.73588E-56 - 2 1 0.43485E-07 0.10000E+01 0.22184E+05 0.19790E-48 0.50282E-58 0.51431E-55 - 2 1 0.43485E-07 0.10000E+01 0.17891E+05 0.13334E-47 0.60891E-57 0.34986E-54 - 2 1 0.43485E-07 0.10000E+01 0.14428E+05 0.86274E-47 0.70205E-56 0.22981E-53 - 2 1 0.43485E-07 0.10000E+01 0.11635E+05 0.53336E-46 0.76941E-55 0.14498E-52 - 2 1 0.43485E-07 0.10000E+01 0.93834E+04 0.31489E-45 0.83738E-54 0.86955E-52 - 2 1 0.43485E-07 0.10000E+01 0.75673E+04 0.18378E-44 0.11296E-52 0.49107E-51 - 2 1 0.43485E-07 0.10000E+01 0.61026E+04 0.12414E-43 0.23332E-51 0.27625E-50 - 2 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11934E-42 0.59575E-50 0.19471E-49 - 2 1 0.43485E-07 0.10000E+01 0.39689E+04 0.14919E-41 0.15251E-48 0.20142E-48 - 2 1 0.43485E-07 0.10000E+01 0.32008E+04 0.62017E-39 0.12195E-45 0.77746E-46 - 2 1 0.43485E-07 0.10000E+01 0.25813E+04 0.41582E-30 0.18220E-36 0.47847E-37 - 2 1 0.43485E-07 0.10000E+01 0.20817E+04 0.69929E-14 0.13076E-19 0.68378E-21 + 2 1 0.43485E-07 0.10000E+01 0.80645E+05 0.71141E-11 0.43986E-22 0.18240E-17 + 2 1 0.43485E-07 0.10000E+01 0.65036E+05 0.91148E-11 0.99912E-22 0.23377E-17 + 2 1 0.43485E-07 0.10000E+01 0.52449E+05 0.11508E-10 0.22227E-21 0.29530E-17 + 2 1 0.43485E-07 0.10000E+01 0.42297E+05 0.14364E-10 0.48161E-21 0.36888E-17 + 2 1 0.43485E-07 0.10000E+01 0.34111E+05 0.17750E-10 0.10125E-20 0.45638E-17 + 2 1 0.43485E-07 0.10000E+01 0.27509E+05 0.21722E-10 0.20708E-20 0.55947E-17 + 2 1 0.43485E-07 0.10000E+01 0.22184E+05 0.26316E-10 0.42158E-20 0.67926E-17 + 2 1 0.43485E-07 0.10000E+01 0.17891E+05 0.31549E-10 0.91452E-20 0.81616E-17 + 2 1 0.43485E-07 0.10000E+01 0.14428E+05 0.37454E-10 0.23555E-19 0.96998E-17 + 2 1 0.43485E-07 0.10000E+01 0.11635E+05 0.44187E-10 0.75836E-19 0.11411E-16 + 2 1 0.43485E-07 0.10000E+01 0.93834E+04 0.52264E-10 0.28550E-18 0.13335E-16 + 2 1 0.43485E-07 0.10000E+01 0.75673E+04 0.63072E-10 0.11484E-17 0.15607E-16 + 2 1 0.43485E-07 0.10000E+01 0.61026E+04 0.79908E-10 0.46980E-17 0.18558E-16 + 2 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11014E-09 0.19154E-16 0.22894E-16 + 2 1 0.43485E-07 0.10000E+01 0.39689E+04 0.16970E-09 0.77244E-16 0.30000E-16 + 2 1 0.43485E-07 0.10000E+01 0.32008E+04 0.29224E-09 0.30762E-15 0.42466E-16 + 2 1 0.43485E-07 0.10000E+01 0.25813E+04 0.54774E-09 0.12094E-14 0.65040E-16 + 2 1 0.43485E-07 0.10000E+01 0.20817E+04 0.10796E-08 0.46827E-14 0.10637E-15 2 1 0.43485E-07 0.10000E+01 0.16788E+04 0.21769E-08 0.17804E-13 0.18225E-15 2 1 0.43485E-07 0.10000E+01 0.13538E+04 0.44115E-08 0.66480E-13 0.32148E-15 2 1 0.43485E-07 0.10000E+01 0.10918E+04 0.88927E-08 0.24471E-12 0.57669E-15 @@ -7270,24 +7270,24 @@ VERSION 2.8.2 2 1 0.43485E-07 0.10000E+01 0.24221E+03 0.79881E-06 0.72902E-09 0.35353E-13 2 1 0.43485E-07 0.10000E+01 0.19533E+03 0.12554E-05 0.13849E-08 0.54870E-13 2 1 0.43485E-07 0.10000E+01 0.15752E+03 0.12554E-05 0.13849E-08 0.54870E-13 - 2 1 0.75878E-07 0.10000E+01 0.80645E+05 0.19293E-53 0.14399E-64 0.85056E-60 - 2 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16289E-52 0.22830E-63 0.71854E-59 - 2 1 0.75878E-07 0.10000E+01 0.52449E+05 0.13816E-51 0.30518E-62 0.60980E-58 - 2 1 0.75878E-07 0.10000E+01 0.42297E+05 0.10351E-50 0.41074E-61 0.45730E-57 - 2 1 0.75878E-07 0.10000E+01 0.34111E+05 0.74069E-50 0.55532E-60 0.32780E-56 - 2 1 0.75878E-07 0.10000E+01 0.27509E+05 0.52484E-49 0.73379E-59 0.23296E-55 - 2 1 0.75878E-07 0.10000E+01 0.22184E+05 0.36584E-48 0.93610E-58 0.16319E-54 - 2 1 0.75878E-07 0.10000E+01 0.17891E+05 0.24774E-47 0.11445E-56 0.11143E-53 - 2 1 0.75878E-07 0.10000E+01 0.14428E+05 0.16158E-46 0.13367E-55 0.73631E-53 - 2 1 0.75878E-07 0.10000E+01 0.11635E+05 0.10097E-45 0.14784E-54 0.46877E-52 - 2 1 0.75878E-07 0.10000E+01 0.93834E+04 0.60091E-45 0.15625E-53 0.28479E-51 - 2 1 0.75878E-07 0.10000E+01 0.75673E+04 0.34403E-44 0.18447E-52 0.16269E-50 - 2 1 0.75878E-07 0.10000E+01 0.61026E+04 0.21087E-43 0.32835E-51 0.90097E-50 - 2 1 0.75878E-07 0.10000E+01 0.49215E+04 0.17543E-42 0.79923E-50 0.58681E-49 - 2 1 0.75878E-07 0.10000E+01 0.39689E+04 0.20309E-41 0.20144E-48 0.56056E-48 - 2 1 0.75878E-07 0.10000E+01 0.32008E+04 0.82056E-39 0.15688E-45 0.21124E-45 - 2 1 0.75878E-07 0.10000E+01 0.25813E+04 0.53309E-30 0.22263E-36 0.12883E-36 - 2 1 0.75878E-07 0.10000E+01 0.20817E+04 0.84860E-14 0.14460E-19 0.17965E-20 + 2 1 0.75878E-07 0.10000E+01 0.80645E+05 0.13057E-10 0.80981E-22 0.57549E-17 + 2 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16732E-10 0.18433E-21 0.73767E-17 + 2 1 0.75878E-07 0.10000E+01 0.52449E+05 0.21132E-10 0.41141E-21 0.93204E-17 + 2 1 0.75878E-07 0.10000E+01 0.42297E+05 0.26387E-10 0.89556E-21 0.11647E-16 + 2 1 0.75878E-07 0.10000E+01 0.34111E+05 0.32628E-10 0.18928E-20 0.14417E-16 + 2 1 0.75878E-07 0.10000E+01 0.27509E+05 0.39965E-10 0.38794E-20 0.17686E-16 + 2 1 0.75878E-07 0.10000E+01 0.22184E+05 0.48472E-10 0.78065E-20 0.21495E-16 + 2 1 0.75878E-07 0.10000E+01 0.17891E+05 0.58177E-10 0.16183E-19 0.25862E-16 + 2 1 0.75878E-07 0.10000E+01 0.14428E+05 0.69101E-10 0.38115E-19 0.30780E-16 + 2 1 0.75878E-07 0.10000E+01 0.11635E+05 0.81389E-10 0.11095E-18 0.36251E-16 + 2 1 0.75878E-07 0.10000E+01 0.93834E+04 0.95626E-10 0.38789E-18 0.42362E-16 + 2 1 0.75878E-07 0.10000E+01 0.75673E+04 0.11349E-09 0.14840E-17 0.49443E-16 + 2 1 0.75878E-07 0.10000E+01 0.61026E+04 0.13903E-09 0.58282E-17 0.58347E-16 + 2 1 0.75878E-07 0.10000E+01 0.49215E+04 0.18113E-09 0.22875E-16 0.70893E-16 + 2 1 0.75878E-07 0.10000E+01 0.39689E+04 0.25844E-09 0.88979E-16 0.90584E-16 + 2 1 0.75878E-07 0.10000E+01 0.32008E+04 0.40904E-09 0.34290E-15 0.12377E-15 + 2 1 0.75878E-07 0.10000E+01 0.25813E+04 0.70961E-09 0.13105E-14 0.18156E-15 + 2 1 0.75878E-07 0.10000E+01 0.20817E+04 0.13130E-08 0.49585E-14 0.28319E-15 2 1 0.75878E-07 0.10000E+01 0.16788E+04 0.25209E-08 0.18518E-13 0.46195E-15 2 1 0.75878E-07 0.10000E+01 0.13538E+04 0.49208E-08 0.68214E-13 0.77574E-15 2 1 0.75878E-07 0.10000E+01 0.10918E+04 0.96387E-08 0.24856E-12 0.13259E-14 @@ -7300,24 +7300,24 @@ VERSION 2.8.2 2 1 0.75878E-07 0.10000E+01 0.24221E+03 0.80111E-06 0.72499E-09 0.64669E-13 2 1 0.75878E-07 0.10000E+01 0.19533E+03 0.12563E-05 0.13768E-08 0.99357E-13 2 1 0.75878E-07 0.10000E+01 0.15752E+03 0.12563E-05 0.13768E-08 0.99357E-13 - 2 1 0.13240E-06 0.10000E+01 0.80645E+05 0.35149E-53 0.26243E-64 0.26493E-59 - 2 1 0.13240E-06 0.10000E+01 0.65036E+05 0.29686E-52 0.41619E-63 0.22387E-58 - 2 1 0.13240E-06 0.10000E+01 0.52449E+05 0.25186E-51 0.55670E-62 0.19003E-57 - 2 1 0.13240E-06 0.10000E+01 0.42297E+05 0.18879E-50 0.75005E-61 0.14256E-56 - 2 1 0.13240E-06 0.10000E+01 0.34111E+05 0.13522E-49 0.10159E-59 0.10226E-55 - 2 1 0.13240E-06 0.10000E+01 0.27509E+05 0.95960E-49 0.13464E-58 0.72760E-55 - 2 1 0.13240E-06 0.10000E+01 0.22184E+05 0.67063E-48 0.17264E-57 0.51065E-54 - 2 1 0.13240E-06 0.10000E+01 0.17891E+05 0.45613E-47 0.21282E-56 0.34977E-53 - 2 1 0.13240E-06 0.10000E+01 0.14428E+05 0.29957E-46 0.25150E-55 0.23226E-52 - 2 1 0.13240E-06 0.10000E+01 0.11635E+05 0.18905E-45 0.28182E-54 0.14896E-51 - 2 1 0.13240E-06 0.10000E+01 0.93834E+04 0.11374E-44 0.29637E-53 0.91462E-51 - 2 1 0.13240E-06 0.10000E+01 0.75673E+04 0.64991E-44 0.32234E-52 0.52854E-50 - 2 1 0.13240E-06 0.10000E+01 0.61026E+04 0.37686E-43 0.49738E-51 0.29128E-49 - 2 1 0.13240E-06 0.10000E+01 0.49215E+04 0.27755E-42 0.11389E-49 0.17945E-48 - 2 1 0.13240E-06 0.10000E+01 0.39689E+04 0.29504E-41 0.28323E-48 0.15939E-47 - 2 1 0.13240E-06 0.10000E+01 0.32008E+04 0.11576E-38 0.21621E-45 0.58612E-45 - 2 1 0.13240E-06 0.10000E+01 0.25813E+04 0.73259E-30 0.29238E-36 0.35614E-36 - 2 1 0.13240E-06 0.10000E+01 0.20817E+04 0.11079E-13 0.16893E-19 0.49130E-20 + 2 1 0.13240E-06 0.10000E+01 0.80645E+05 0.23785E-10 0.14792E-21 0.17923E-16 + 2 1 0.13240E-06 0.10000E+01 0.65036E+05 0.30484E-10 0.33732E-21 0.22977E-16 + 2 1 0.13240E-06 0.10000E+01 0.52449E+05 0.38508E-10 0.75503E-21 0.29037E-16 + 2 1 0.13240E-06 0.10000E+01 0.42297E+05 0.48103E-10 0.16504E-20 0.36294E-16 + 2 1 0.13240E-06 0.10000E+01 0.34111E+05 0.59513E-10 0.35068E-20 0.44946E-16 + 2 1 0.13240E-06 0.10000E+01 0.27509E+05 0.72956E-10 0.72204E-20 0.55174E-16 + 2 1 0.13240E-06 0.10000E+01 0.22184E+05 0.88581E-10 0.14488E-19 0.67115E-16 + 2 1 0.13240E-06 0.10000E+01 0.17891E+05 0.10645E-09 0.29303E-19 0.80840E-16 + 2 1 0.13240E-06 0.10000E+01 0.14428E+05 0.12657E-09 0.64911E-19 0.96338E-16 + 2 1 0.13240E-06 0.10000E+01 0.11635E+05 0.14906E-09 0.17374E-18 0.11359E-15 + 2 1 0.13240E-06 0.10000E+01 0.93834E+04 0.17460E-09 0.56605E-18 0.13279E-15 + 2 1 0.13240E-06 0.10000E+01 0.75673E+04 0.20535E-09 0.20612E-17 0.15478E-15 + 2 1 0.13240E-06 0.10000E+01 0.61026E+04 0.24656E-09 0.77727E-17 0.18180E-15 + 2 1 0.13240E-06 0.10000E+01 0.49215E+04 0.30972E-09 0.29308E-16 0.21872E-15 + 2 1 0.13240E-06 0.10000E+01 0.39689E+04 0.41816E-09 0.10941E-15 0.27483E-15 + 2 1 0.13240E-06 0.10000E+01 0.32008E+04 0.61770E-09 0.40475E-15 0.36657E-15 + 2 1 0.13240E-06 0.10000E+01 0.25813E+04 0.99685E-09 0.14891E-14 0.52176E-15 + 2 1 0.13240E-06 0.10000E+01 0.20817E+04 0.17254E-08 0.54513E-14 0.78628E-15 2 1 0.13240E-06 0.10000E+01 0.16788E+04 0.31279E-08 0.19813E-13 0.12354E-14 2 1 0.13240E-06 0.10000E+01 0.13538E+04 0.58205E-08 0.71440E-13 0.19932E-14 2 1 0.13240E-06 0.10000E+01 0.10918E+04 0.10963E-07 0.25607E-12 0.32657E-14 @@ -7330,24 +7330,24 @@ VERSION 2.8.2 2 1 0.13240E-06 0.10000E+01 0.24221E+03 0.80796E-06 0.72072E-09 0.12224E-12 2 1 0.13240E-06 0.10000E+01 0.19533E+03 0.12624E-05 0.13681E-08 0.18497E-12 2 1 0.13240E-06 0.10000E+01 0.15752E+03 0.12624E-05 0.13681E-08 0.18497E-12 - 2 1 0.23103E-06 0.10000E+01 0.80645E+05 0.62184E-53 0.46434E-64 0.57270E-59 - 2 1 0.23103E-06 0.10000E+01 0.65036E+05 0.52524E-52 0.73646E-63 0.48397E-58 - 2 1 0.23103E-06 0.10000E+01 0.52449E+05 0.44567E-51 0.98531E-62 0.41084E-57 - 2 1 0.23103E-06 0.10000E+01 0.42297E+05 0.33413E-50 0.13280E-60 0.30827E-56 - 2 1 0.23103E-06 0.10000E+01 0.34111E+05 0.23939E-49 0.17998E-59 0.22118E-55 - 2 1 0.23103E-06 0.10000E+01 0.27509E+05 0.16998E-48 0.23878E-58 0.15742E-54 - 2 1 0.23103E-06 0.10000E+01 0.22184E+05 0.11890E-47 0.30673E-57 0.11055E-53 - 2 1 0.23103E-06 0.10000E+01 0.17891E+05 0.80993E-47 0.37918E-56 0.75799E-53 - 2 1 0.23103E-06 0.10000E+01 0.14428E+05 0.53319E-46 0.44995E-55 0.50413E-52 - 2 1 0.23103E-06 0.10000E+01 0.11635E+05 0.33767E-45 0.50678E-54 0.32409E-51 - 2 1 0.23103E-06 0.10000E+01 0.93834E+04 0.20402E-44 0.53377E-53 0.19968E-50 - 2 1 0.23103E-06 0.10000E+01 0.75673E+04 0.11677E-43 0.56856E-52 0.11585E-49 - 2 1 0.23103E-06 0.10000E+01 0.61026E+04 0.66804E-43 0.83475E-51 0.63832E-49 - 2 1 0.23103E-06 0.10000E+01 0.49215E+04 0.47306E-42 0.18618E-49 0.38697E-48 - 2 1 0.23103E-06 0.10000E+01 0.39689E+04 0.48639E-41 0.46084E-48 0.33532E-47 - 2 1 0.23103E-06 0.10000E+01 0.32008E+04 0.18868E-38 0.34985E-45 0.12217E-44 - 2 1 0.23103E-06 0.10000E+01 0.25813E+04 0.11844E-29 0.46547E-36 0.74197E-36 - 2 1 0.23103E-06 0.10000E+01 0.20817E+04 0.17609E-13 0.25667E-19 0.10221E-19 + 2 1 0.23103E-06 0.10000E+01 0.80645E+05 0.42077E-10 0.26193E-21 0.38743E-16 + 2 1 0.23103E-06 0.10000E+01 0.65036E+05 0.53931E-10 0.59769E-21 0.49670E-16 + 2 1 0.23103E-06 0.10000E+01 0.52449E+05 0.68132E-10 0.13392E-20 0.62773E-16 + 2 1 0.23103E-06 0.10000E+01 0.42297E+05 0.85118E-10 0.29316E-20 0.78469E-16 + 2 1 0.23103E-06 0.10000E+01 0.34111E+05 0.10533E-09 0.62413E-20 0.97187E-16 + 2 1 0.23103E-06 0.10000E+01 0.27509E+05 0.12916E-09 0.12876E-19 0.11933E-15 + 2 1 0.23103E-06 0.10000E+01 0.22184E+05 0.15688E-09 0.25841E-19 0.14520E-15 + 2 1 0.23103E-06 0.10000E+01 0.17891E+05 0.18862E-09 0.51958E-19 0.17495E-15 + 2 1 0.23103E-06 0.10000E+01 0.14428E+05 0.22437E-09 0.11308E-18 0.20859E-15 + 2 1 0.23103E-06 0.10000E+01 0.11635E+05 0.26429E-09 0.29454E-18 0.24605E-15 + 2 1 0.23103E-06 0.10000E+01 0.93834E+04 0.30939E-09 0.93601E-18 0.28770E-15 + 2 1 0.23103E-06 0.10000E+01 0.75673E+04 0.36304E-09 0.33483E-17 0.33522E-15 + 2 1 0.23103E-06 0.10000E+01 0.61026E+04 0.43359E-09 0.12444E-16 0.39324E-15 + 2 1 0.23103E-06 0.10000E+01 0.49215E+04 0.53915E-09 0.46232E-16 0.47178E-15 + 2 1 0.23103E-06 0.10000E+01 0.39689E+04 0.71618E-09 0.16983E-15 0.58999E-15 + 2 1 0.23103E-06 0.10000E+01 0.32008E+04 0.10352E-08 0.61769E-15 0.78153E-15 + 2 1 0.23103E-06 0.10000E+01 0.25813E+04 0.16300E-08 0.22346E-14 0.11027E-14 + 2 1 0.23103E-06 0.10000E+01 0.20817E+04 0.27527E-08 0.80544E-14 0.16451E-14 2 1 0.23103E-06 0.10000E+01 0.16788E+04 0.48777E-08 0.28888E-13 0.25561E-14 2 1 0.23103E-06 0.10000E+01 0.13538E+04 0.88944E-08 0.10303E-12 0.40733E-14 2 1 0.23103E-06 0.10000E+01 0.10918E+04 0.16460E-07 0.36612E-12 0.65838E-14 @@ -7360,24 +7360,24 @@ VERSION 2.8.2 2 1 0.23103E-06 0.10000E+01 0.24221E+03 0.11421E-05 0.10106E-08 0.22208E-12 2 1 0.23103E-06 0.10000E+01 0.19533E+03 0.17808E-05 0.19179E-08 0.33363E-12 2 1 0.23103E-06 0.10000E+01 0.15752E+03 0.17808E-05 0.19179E-08 0.33363E-12 - 2 1 0.40314E-06 0.10000E+01 0.80645E+05 0.10851E-52 0.81024E-64 0.99933E-59 - 2 1 0.40314E-06 0.10000E+01 0.65036E+05 0.91650E-52 0.12851E-62 0.84451E-58 - 2 1 0.40314E-06 0.10000E+01 0.52449E+05 0.77767E-51 0.17193E-61 0.71690E-57 - 2 1 0.40314E-06 0.10000E+01 0.42297E+05 0.58304E-50 0.23173E-60 0.53791E-56 - 2 1 0.40314E-06 0.10000E+01 0.34111E+05 0.41772E-49 0.31405E-59 0.38594E-55 - 2 1 0.40314E-06 0.10000E+01 0.27509E+05 0.29661E-48 0.41666E-58 0.27470E-54 - 2 1 0.40314E-06 0.10000E+01 0.22184E+05 0.20747E-47 0.53522E-57 0.19291E-53 - 2 1 0.40314E-06 0.10000E+01 0.17891E+05 0.14133E-46 0.66165E-56 0.13226E-52 - 2 1 0.40314E-06 0.10000E+01 0.14428E+05 0.93039E-46 0.78513E-55 0.87968E-52 - 2 1 0.40314E-06 0.10000E+01 0.11635E+05 0.58921E-45 0.88430E-54 0.56552E-51 - 2 1 0.40314E-06 0.10000E+01 0.93834E+04 0.35600E-44 0.93140E-53 0.34843E-50 - 2 1 0.40314E-06 0.10000E+01 0.75673E+04 0.20375E-43 0.99210E-52 0.20216E-49 - 2 1 0.40314E-06 0.10000E+01 0.61026E+04 0.11657E-42 0.14566E-50 0.11138E-48 - 2 1 0.40314E-06 0.10000E+01 0.49215E+04 0.82547E-42 0.32487E-49 0.67524E-48 - 2 1 0.40314E-06 0.10000E+01 0.39689E+04 0.84872E-41 0.80414E-48 0.58511E-47 - 2 1 0.40314E-06 0.10000E+01 0.32008E+04 0.32923E-38 0.61047E-45 0.21319E-44 - 2 1 0.40314E-06 0.10000E+01 0.25813E+04 0.20668E-29 0.81221E-36 0.12947E-35 - 2 1 0.40314E-06 0.10000E+01 0.20817E+04 0.30727E-13 0.44788E-19 0.17834E-19 + 2 1 0.40314E-06 0.10000E+01 0.80645E+05 0.73422E-10 0.45705E-21 0.67605E-16 + 2 1 0.40314E-06 0.10000E+01 0.65036E+05 0.94106E-10 0.10429E-20 0.86670E-16 + 2 1 0.40314E-06 0.10000E+01 0.52449E+05 0.11889E-09 0.23368E-20 0.10953E-15 + 2 1 0.40314E-06 0.10000E+01 0.42297E+05 0.14853E-09 0.51155E-20 0.13692E-15 + 2 1 0.40314E-06 0.10000E+01 0.34111E+05 0.18380E-09 0.10891E-19 0.16959E-15 + 2 1 0.40314E-06 0.10000E+01 0.27509E+05 0.22538E-09 0.22468E-19 0.20822E-15 + 2 1 0.40314E-06 0.10000E+01 0.22184E+05 0.27375E-09 0.45092E-19 0.25336E-15 + 2 1 0.40314E-06 0.10000E+01 0.17891E+05 0.32913E-09 0.90663E-19 0.30528E-15 + 2 1 0.40314E-06 0.10000E+01 0.14428E+05 0.39152E-09 0.19732E-18 0.36397E-15 + 2 1 0.40314E-06 0.10000E+01 0.11635E+05 0.46117E-09 0.51396E-18 0.42934E-15 + 2 1 0.40314E-06 0.10000E+01 0.93834E+04 0.53987E-09 0.16333E-17 0.50201E-15 + 2 1 0.40314E-06 0.10000E+01 0.75673E+04 0.63348E-09 0.58426E-17 0.58494E-15 + 2 1 0.40314E-06 0.10000E+01 0.61026E+04 0.75658E-09 0.21713E-16 0.68618E-15 + 2 1 0.40314E-06 0.10000E+01 0.49215E+04 0.94078E-09 0.80672E-16 0.82324E-15 + 2 1 0.40314E-06 0.10000E+01 0.39689E+04 0.12497E-08 0.29634E-15 0.10295E-14 + 2 1 0.40314E-06 0.10000E+01 0.32008E+04 0.18064E-08 0.10778E-14 0.13637E-14 + 2 1 0.40314E-06 0.10000E+01 0.25813E+04 0.28442E-08 0.38992E-14 0.19242E-14 + 2 1 0.40314E-06 0.10000E+01 0.20817E+04 0.48032E-08 0.14054E-13 0.28706E-14 2 1 0.40314E-06 0.10000E+01 0.16788E+04 0.85112E-08 0.50407E-13 0.44602E-14 2 1 0.40314E-06 0.10000E+01 0.13538E+04 0.15520E-07 0.17978E-12 0.71077E-14 2 1 0.40314E-06 0.10000E+01 0.10918E+04 0.28723E-07 0.63886E-12 0.11488E-13 @@ -7390,24 +7390,24 @@ VERSION 2.8.2 2 1 0.40314E-06 0.10000E+01 0.24221E+03 0.19928E-05 0.17635E-08 0.38751E-12 2 1 0.40314E-06 0.10000E+01 0.19533E+03 0.31074E-05 0.33466E-08 0.58216E-12 2 1 0.40314E-06 0.10000E+01 0.15752E+03 0.31074E-05 0.33466E-08 0.58216E-12 - 2 1 0.70346E-06 0.10000E+01 0.80645E+05 0.18934E-52 0.14138E-63 0.17438E-58 - 2 1 0.70346E-06 0.10000E+01 0.65036E+05 0.15992E-51 0.22424E-62 0.14736E-57 - 2 1 0.70346E-06 0.10000E+01 0.52449E+05 0.13570E-50 0.30001E-61 0.12509E-56 - 2 1 0.70346E-06 0.10000E+01 0.42297E+05 0.10174E-49 0.40436E-60 0.93861E-56 - 2 1 0.70346E-06 0.10000E+01 0.34111E+05 0.72889E-49 0.54800E-59 0.67344E-55 - 2 1 0.70346E-06 0.10000E+01 0.27509E+05 0.51756E-48 0.72704E-58 0.47933E-54 - 2 1 0.70346E-06 0.10000E+01 0.22184E+05 0.36203E-47 0.93392E-57 0.33662E-53 - 2 1 0.70346E-06 0.10000E+01 0.17891E+05 0.24661E-46 0.11545E-55 0.23079E-52 - 2 1 0.70346E-06 0.10000E+01 0.14428E+05 0.16235E-45 0.13700E-54 0.15350E-51 - 2 1 0.70346E-06 0.10000E+01 0.11635E+05 0.10281E-44 0.15430E-53 0.98681E-51 - 2 1 0.70346E-06 0.10000E+01 0.93834E+04 0.62119E-44 0.16252E-52 0.60798E-50 - 2 1 0.70346E-06 0.10000E+01 0.75673E+04 0.35554E-43 0.17312E-51 0.35275E-49 - 2 1 0.70346E-06 0.10000E+01 0.61026E+04 0.20340E-42 0.25417E-50 0.19436E-48 - 2 1 0.70346E-06 0.10000E+01 0.49215E+04 0.14404E-41 0.56687E-49 0.11783E-47 - 2 1 0.70346E-06 0.10000E+01 0.39689E+04 0.14810E-40 0.14032E-47 0.10210E-46 - 2 1 0.70346E-06 0.10000E+01 0.32008E+04 0.57449E-38 0.10652E-44 0.37200E-44 - 2 1 0.70346E-06 0.10000E+01 0.25813E+04 0.36064E-29 0.14173E-35 0.22592E-35 - 2 1 0.70346E-06 0.10000E+01 0.20817E+04 0.53617E-13 0.78152E-19 0.31120E-19 + 2 1 0.70346E-06 0.10000E+01 0.80645E+05 0.12812E-09 0.79753E-21 0.11797E-15 + 2 1 0.70346E-06 0.10000E+01 0.65036E+05 0.16421E-09 0.18199E-20 0.15123E-15 + 2 1 0.70346E-06 0.10000E+01 0.52449E+05 0.20745E-09 0.40775E-20 0.19113E-15 + 2 1 0.70346E-06 0.10000E+01 0.42297E+05 0.25917E-09 0.89262E-20 0.23892E-15 + 2 1 0.70346E-06 0.10000E+01 0.34111E+05 0.32071E-09 0.19004E-19 0.29592E-15 + 2 1 0.70346E-06 0.10000E+01 0.27509E+05 0.39327E-09 0.39205E-19 0.36333E-15 + 2 1 0.70346E-06 0.10000E+01 0.22184E+05 0.47768E-09 0.78682E-19 0.44209E-15 + 2 1 0.70346E-06 0.10000E+01 0.17891E+05 0.57432E-09 0.15820E-18 0.53270E-15 + 2 1 0.70346E-06 0.10000E+01 0.14428E+05 0.68317E-09 0.34432E-18 0.63510E-15 + 2 1 0.70346E-06 0.10000E+01 0.11635E+05 0.80471E-09 0.89683E-18 0.74917E-15 + 2 1 0.70346E-06 0.10000E+01 0.93834E+04 0.94204E-09 0.28500E-17 0.87598E-15 + 2 1 0.70346E-06 0.10000E+01 0.75673E+04 0.11054E-08 0.10195E-16 0.10207E-14 + 2 1 0.70346E-06 0.10000E+01 0.61026E+04 0.13202E-08 0.37889E-16 0.11973E-14 + 2 1 0.70346E-06 0.10000E+01 0.49215E+04 0.16416E-08 0.14077E-15 0.14365E-14 + 2 1 0.70346E-06 0.10000E+01 0.39689E+04 0.21806E-08 0.51710E-15 0.17964E-14 + 2 1 0.70346E-06 0.10000E+01 0.32008E+04 0.31520E-08 0.18808E-14 0.23796E-14 + 2 1 0.70346E-06 0.10000E+01 0.25813E+04 0.49630E-08 0.68039E-14 0.33576E-14 + 2 1 0.70346E-06 0.10000E+01 0.20817E+04 0.83813E-08 0.24524E-13 0.50090E-14 2 1 0.70346E-06 0.10000E+01 0.16788E+04 0.14852E-07 0.87958E-13 0.77828E-14 2 1 0.70346E-06 0.10000E+01 0.13538E+04 0.27082E-07 0.31370E-12 0.12403E-13 2 1 0.70346E-06 0.10000E+01 0.10918E+04 0.50119E-07 0.11148E-11 0.20046E-13 @@ -7420,24 +7420,24 @@ VERSION 2.8.2 2 1 0.70346E-06 0.10000E+01 0.24221E+03 0.34773E-05 0.30771E-08 0.67618E-12 2 1 0.70346E-06 0.10000E+01 0.19533E+03 0.54222E-05 0.58395E-08 0.10158E-11 2 1 0.70346E-06 0.10000E+01 0.15752E+03 0.54222E-05 0.58395E-08 0.10158E-11 - 2 1 0.12275E-05 0.10000E+01 0.80645E+05 0.33038E-52 0.24670E-63 0.30428E-58 - 2 1 0.12275E-05 0.10000E+01 0.65036E+05 0.27906E-51 0.39128E-62 0.25714E-57 - 2 1 0.12275E-05 0.10000E+01 0.52449E+05 0.23679E-50 0.52350E-61 0.21828E-56 - 2 1 0.12275E-05 0.10000E+01 0.42297E+05 0.17752E-49 0.70559E-60 0.16378E-55 - 2 1 0.12275E-05 0.10000E+01 0.34111E+05 0.12719E-48 0.95622E-59 0.11751E-54 - 2 1 0.12275E-05 0.10000E+01 0.27509E+05 0.90311E-48 0.12686E-57 0.83640E-54 - 2 1 0.12275E-05 0.10000E+01 0.22184E+05 0.63172E-47 0.16296E-56 0.58737E-53 - 2 1 0.12275E-05 0.10000E+01 0.17891E+05 0.43032E-46 0.20146E-55 0.40272E-52 - 2 1 0.12275E-05 0.10000E+01 0.14428E+05 0.28329E-45 0.23906E-54 0.26785E-51 - 2 1 0.12275E-05 0.10000E+01 0.11635E+05 0.17940E-44 0.26925E-53 0.17219E-50 - 2 1 0.12275E-05 0.10000E+01 0.93834E+04 0.10839E-43 0.28359E-52 0.10609E-49 - 2 1 0.12275E-05 0.10000E+01 0.75673E+04 0.62039E-43 0.30208E-51 0.61553E-49 - 2 1 0.12275E-05 0.10000E+01 0.61026E+04 0.35493E-42 0.44350E-50 0.33914E-48 - 2 1 0.12275E-05 0.10000E+01 0.49215E+04 0.25134E-41 0.98915E-49 0.20560E-47 - 2 1 0.12275E-05 0.10000E+01 0.39689E+04 0.25842E-40 0.24485E-47 0.17815E-46 - 2 1 0.12275E-05 0.10000E+01 0.32008E+04 0.10025E-37 0.18588E-44 0.64912E-44 - 2 1 0.12275E-05 0.10000E+01 0.25813E+04 0.62929E-29 0.24730E-35 0.39421E-35 - 2 1 0.12275E-05 0.10000E+01 0.20817E+04 0.93558E-13 0.13637E-18 0.54302E-19 + 2 1 0.12275E-05 0.10000E+01 0.80645E+05 0.22356E-09 0.13916E-20 0.20584E-15 + 2 1 0.12275E-05 0.10000E+01 0.65036E+05 0.28653E-09 0.31755E-20 0.26390E-15 + 2 1 0.12275E-05 0.10000E+01 0.52449E+05 0.36199E-09 0.71150E-20 0.33351E-15 + 2 1 0.12275E-05 0.10000E+01 0.42297E+05 0.45224E-09 0.15576E-19 0.41690E-15 + 2 1 0.12275E-05 0.10000E+01 0.34111E+05 0.55962E-09 0.33160E-19 0.51636E-15 + 2 1 0.12275E-05 0.10000E+01 0.27509E+05 0.68623E-09 0.68410E-19 0.63399E-15 + 2 1 0.12275E-05 0.10000E+01 0.22184E+05 0.83353E-09 0.13730E-18 0.77143E-15 + 2 1 0.12275E-05 0.10000E+01 0.17891E+05 0.10022E-08 0.27605E-18 0.92953E-15 + 2 1 0.12275E-05 0.10000E+01 0.14428E+05 0.11921E-08 0.60081E-18 0.11082E-14 + 2 1 0.12275E-05 0.10000E+01 0.11635E+05 0.14042E-08 0.15649E-17 0.13073E-14 + 2 1 0.12275E-05 0.10000E+01 0.93834E+04 0.16438E-08 0.49730E-17 0.15285E-14 + 2 1 0.12275E-05 0.10000E+01 0.75673E+04 0.19288E-08 0.17790E-16 0.17810E-14 + 2 1 0.12275E-05 0.10000E+01 0.61026E+04 0.23036E-08 0.66113E-16 0.20893E-14 + 2 1 0.12275E-05 0.10000E+01 0.49215E+04 0.28645E-08 0.24563E-15 0.25066E-14 + 2 1 0.12275E-05 0.10000E+01 0.39689E+04 0.38051E-08 0.90231E-15 0.31346E-14 + 2 1 0.12275E-05 0.10000E+01 0.32008E+04 0.55001E-08 0.32818E-14 0.41523E-14 + 2 1 0.12275E-05 0.10000E+01 0.25813E+04 0.86602E-08 0.11872E-13 0.58588E-14 + 2 1 0.12275E-05 0.10000E+01 0.20817E+04 0.14625E-07 0.42793E-13 0.87404E-14 2 1 0.12275E-05 0.10000E+01 0.16788E+04 0.25915E-07 0.15348E-12 0.13581E-13 2 1 0.12275E-05 0.10000E+01 0.13538E+04 0.47256E-07 0.54739E-12 0.21642E-13 2 1 0.12275E-05 0.10000E+01 0.10918E+04 0.87455E-07 0.19452E-11 0.34980E-13 @@ -7450,24 +7450,24 @@ VERSION 2.8.2 2 1 0.12275E-05 0.10000E+01 0.24221E+03 0.60678E-05 0.53694E-08 0.11799E-11 2 1 0.12275E-05 0.10000E+01 0.19533E+03 0.94614E-05 0.10190E-07 0.17726E-11 2 1 0.12275E-05 0.10000E+01 0.15752E+03 0.94614E-05 0.10190E-07 0.17726E-11 - 2 1 0.21419E-05 0.10000E+01 0.80645E+05 0.57650E-52 0.43048E-63 0.53095E-58 - 2 1 0.21419E-05 0.10000E+01 0.65036E+05 0.48694E-51 0.68276E-62 0.44869E-57 - 2 1 0.21419E-05 0.10000E+01 0.52449E+05 0.41318E-50 0.91347E-61 0.38089E-56 - 2 1 0.21419E-05 0.10000E+01 0.42297E+05 0.30977E-49 0.12312E-59 0.28579E-55 - 2 1 0.21419E-05 0.10000E+01 0.34111E+05 0.22193E-48 0.16686E-58 0.20505E-54 - 2 1 0.21419E-05 0.10000E+01 0.27509E+05 0.15759E-47 0.22137E-57 0.14595E-53 - 2 1 0.21419E-05 0.10000E+01 0.22184E+05 0.11023E-46 0.28436E-56 0.10249E-52 - 2 1 0.21419E-05 0.10000E+01 0.17891E+05 0.75088E-46 0.35154E-55 0.70273E-52 - 2 1 0.21419E-05 0.10000E+01 0.14428E+05 0.49432E-45 0.41714E-54 0.46738E-51 - 2 1 0.21419E-05 0.10000E+01 0.11635E+05 0.31305E-44 0.46983E-53 0.30046E-50 - 2 1 0.21419E-05 0.10000E+01 0.93834E+04 0.18914E-43 0.49485E-52 0.18512E-49 - 2 1 0.21419E-05 0.10000E+01 0.75673E+04 0.10825E-42 0.52710E-51 0.10741E-48 - 2 1 0.21419E-05 0.10000E+01 0.61026E+04 0.61933E-42 0.77389E-50 0.59178E-48 - 2 1 0.21419E-05 0.10000E+01 0.49215E+04 0.43857E-41 0.17260E-48 0.35876E-47 - 2 1 0.21419E-05 0.10000E+01 0.39689E+04 0.45093E-40 0.42724E-47 0.31087E-46 - 2 1 0.21419E-05 0.10000E+01 0.32008E+04 0.17492E-37 0.32434E-44 0.11327E-43 - 2 1 0.21419E-05 0.10000E+01 0.25813E+04 0.10981E-28 0.43153E-35 0.68787E-35 - 2 1 0.21419E-05 0.10000E+01 0.20817E+04 0.16325E-12 0.23796E-18 0.94754E-19 + 2 1 0.21419E-05 0.10000E+01 0.80645E+05 0.39009E-09 0.24283E-20 0.35918E-15 + 2 1 0.21419E-05 0.10000E+01 0.65036E+05 0.49998E-09 0.55411E-20 0.46048E-15 + 2 1 0.21419E-05 0.10000E+01 0.52449E+05 0.63164E-09 0.12415E-19 0.58196E-15 + 2 1 0.21419E-05 0.10000E+01 0.42297E+05 0.78912E-09 0.27179E-19 0.72747E-15 + 2 1 0.21419E-05 0.10000E+01 0.34111E+05 0.97651E-09 0.57863E-19 0.90101E-15 + 2 1 0.21419E-05 0.10000E+01 0.27509E+05 0.11974E-08 0.11937E-18 0.11063E-14 + 2 1 0.21419E-05 0.10000E+01 0.22184E+05 0.14545E-08 0.23957E-18 0.13461E-14 + 2 1 0.21419E-05 0.10000E+01 0.17891E+05 0.17487E-08 0.48169E-18 0.16220E-14 + 2 1 0.21419E-05 0.10000E+01 0.14428E+05 0.20801E-08 0.10484E-17 0.19338E-14 + 2 1 0.21419E-05 0.10000E+01 0.11635E+05 0.24502E-08 0.27307E-17 0.22811E-14 + 2 1 0.21419E-05 0.10000E+01 0.93834E+04 0.28683E-08 0.86777E-17 0.26672E-14 + 2 1 0.21419E-05 0.10000E+01 0.75673E+04 0.33657E-08 0.31042E-16 0.31078E-14 + 2 1 0.21419E-05 0.10000E+01 0.61026E+04 0.40197E-08 0.11536E-15 0.36457E-14 + 2 1 0.21419E-05 0.10000E+01 0.49215E+04 0.49984E-08 0.42861E-15 0.43739E-14 + 2 1 0.21419E-05 0.10000E+01 0.39689E+04 0.66397E-08 0.15745E-14 0.54697E-14 + 2 1 0.21419E-05 0.10000E+01 0.32008E+04 0.95974E-08 0.57266E-14 0.72455E-14 + 2 1 0.21419E-05 0.10000E+01 0.25813E+04 0.15111E-07 0.20717E-13 0.10223E-13 + 2 1 0.21419E-05 0.10000E+01 0.20817E+04 0.25520E-07 0.74671E-13 0.15252E-13 2 1 0.21419E-05 0.10000E+01 0.16788E+04 0.45220E-07 0.26781E-12 0.23697E-13 2 1 0.21419E-05 0.10000E+01 0.13538E+04 0.82459E-07 0.95516E-12 0.37764E-13 2 1 0.21419E-05 0.10000E+01 0.10918E+04 0.15260E-06 0.33943E-11 0.61038E-13 @@ -7480,24 +7480,24 @@ VERSION 2.8.2 2 1 0.21419E-05 0.10000E+01 0.24221E+03 0.10588E-04 0.93693E-08 0.20589E-11 2 1 0.21419E-05 0.10000E+01 0.19533E+03 0.16510E-04 0.17780E-07 0.30930E-11 2 1 0.21419E-05 0.10000E+01 0.15752E+03 0.16510E-04 0.17780E-07 0.30930E-11 - 2 1 0.37375E-05 0.10000E+01 0.80645E+05 0.10060E-51 0.75117E-63 0.92647E-58 - 2 1 0.37375E-05 0.10000E+01 0.65036E+05 0.84968E-51 0.11914E-61 0.78293E-57 - 2 1 0.37375E-05 0.10000E+01 0.52449E+05 0.72097E-50 0.15940E-60 0.66463E-56 - 2 1 0.37375E-05 0.10000E+01 0.42297E+05 0.54053E-49 0.21484E-59 0.49869E-55 - 2 1 0.37375E-05 0.10000E+01 0.34111E+05 0.38726E-48 0.29115E-58 0.35780E-54 - 2 1 0.37375E-05 0.10000E+01 0.27509E+05 0.27498E-47 0.38628E-57 0.25467E-53 - 2 1 0.37375E-05 0.10000E+01 0.22184E+05 0.19235E-46 0.49619E-56 0.17884E-52 - 2 1 0.37375E-05 0.10000E+01 0.17891E+05 0.13102E-45 0.61341E-55 0.12262E-51 - 2 1 0.37375E-05 0.10000E+01 0.14428E+05 0.86256E-45 0.72789E-54 0.81554E-51 - 2 1 0.37375E-05 0.10000E+01 0.11635E+05 0.54625E-44 0.81982E-53 0.52429E-50 - 2 1 0.37375E-05 0.10000E+01 0.93834E+04 0.33004E-43 0.86349E-52 0.32302E-49 - 2 1 0.37375E-05 0.10000E+01 0.75673E+04 0.18890E-42 0.91977E-51 0.18742E-48 - 2 1 0.37375E-05 0.10000E+01 0.61026E+04 0.10807E-41 0.13504E-49 0.10326E-47 - 2 1 0.37375E-05 0.10000E+01 0.49215E+04 0.76528E-41 0.30118E-48 0.62601E-47 - 2 1 0.37375E-05 0.10000E+01 0.39689E+04 0.78684E-40 0.74551E-47 0.54244E-46 - 2 1 0.37375E-05 0.10000E+01 0.32008E+04 0.30523E-37 0.56596E-44 0.19764E-43 - 2 1 0.37375E-05 0.10000E+01 0.25813E+04 0.19161E-28 0.75300E-35 0.12003E-34 - 2 1 0.37375E-05 0.10000E+01 0.20817E+04 0.28487E-12 0.41522E-18 0.16534E-18 + 2 1 0.37375E-05 0.10000E+01 0.80645E+05 0.68069E-09 0.42373E-20 0.62676E-15 + 2 1 0.37375E-05 0.10000E+01 0.65036E+05 0.87244E-09 0.96689E-20 0.80351E-15 + 2 1 0.37375E-05 0.10000E+01 0.52449E+05 0.11022E-08 0.21664E-19 0.10155E-14 + 2 1 0.37375E-05 0.10000E+01 0.42297E+05 0.13770E-08 0.47425E-19 0.12694E-14 + 2 1 0.37375E-05 0.10000E+01 0.34111E+05 0.17040E-08 0.10097E-18 0.15722E-14 + 2 1 0.37375E-05 0.10000E+01 0.27509E+05 0.20894E-08 0.20830E-18 0.19304E-14 + 2 1 0.37375E-05 0.10000E+01 0.22184E+05 0.25379E-08 0.41804E-18 0.23489E-14 + 2 1 0.37375E-05 0.10000E+01 0.17891E+05 0.30514E-08 0.84052E-18 0.28302E-14 + 2 1 0.37375E-05 0.10000E+01 0.14428E+05 0.36297E-08 0.18294E-17 0.33743E-14 + 2 1 0.37375E-05 0.10000E+01 0.11635E+05 0.42754E-08 0.47649E-17 0.39804E-14 + 2 1 0.37375E-05 0.10000E+01 0.93834E+04 0.50051E-08 0.15142E-16 0.46541E-14 + 2 1 0.37375E-05 0.10000E+01 0.75673E+04 0.58729E-08 0.54166E-16 0.54229E-14 + 2 1 0.37375E-05 0.10000E+01 0.61026E+04 0.70142E-08 0.20130E-15 0.63615E-14 + 2 1 0.37375E-05 0.10000E+01 0.49215E+04 0.87218E-08 0.74790E-15 0.76321E-14 + 2 1 0.37375E-05 0.10000E+01 0.39689E+04 0.11586E-07 0.27474E-14 0.95444E-14 + 2 1 0.37375E-05 0.10000E+01 0.32008E+04 0.16747E-07 0.99925E-14 0.12643E-13 + 2 1 0.37375E-05 0.10000E+01 0.25813E+04 0.26369E-07 0.36149E-13 0.17839E-13 + 2 1 0.37375E-05 0.10000E+01 0.20817E+04 0.44530E-07 0.13030E-12 0.26613E-13 2 1 0.37375E-05 0.10000E+01 0.16788E+04 0.78907E-07 0.46732E-12 0.41350E-13 2 1 0.37375E-05 0.10000E+01 0.13538E+04 0.14389E-06 0.16667E-11 0.65895E-13 2 1 0.37375E-05 0.10000E+01 0.10918E+04 0.26628E-06 0.59228E-11 0.10651E-12 @@ -7510,24 +7510,24 @@ VERSION 2.8.2 2 1 0.37375E-05 0.10000E+01 0.24221E+03 0.18475E-04 0.16349E-07 0.35926E-11 2 1 0.37375E-05 0.10000E+01 0.19533E+03 0.28808E-04 0.31026E-07 0.53971E-11 2 1 0.37375E-05 0.10000E+01 0.15752E+03 0.28808E-04 0.31026E-07 0.53971E-11 - 2 1 0.65217E-05 0.10000E+01 0.80645E+05 0.17553E-51 0.13107E-62 0.16166E-57 - 2 1 0.65217E-05 0.10000E+01 0.65036E+05 0.14826E-50 0.20789E-61 0.13662E-56 - 2 1 0.65217E-05 0.10000E+01 0.52449E+05 0.12581E-49 0.27814E-60 0.11597E-55 - 2 1 0.65217E-05 0.10000E+01 0.42297E+05 0.94319E-49 0.37488E-59 0.87018E-55 - 2 1 0.65217E-05 0.10000E+01 0.34111E+05 0.67575E-48 0.50804E-58 0.62434E-54 - 2 1 0.65217E-05 0.10000E+01 0.27509E+05 0.47982E-47 0.67403E-57 0.44438E-53 - 2 1 0.65217E-05 0.10000E+01 0.22184E+05 0.33563E-46 0.86583E-56 0.31207E-52 - 2 1 0.65217E-05 0.10000E+01 0.17891E+05 0.22863E-45 0.10704E-54 0.21397E-51 - 2 1 0.65217E-05 0.10000E+01 0.14428E+05 0.15051E-44 0.12701E-53 0.14231E-50 - 2 1 0.65217E-05 0.10000E+01 0.11635E+05 0.95317E-44 0.14305E-52 0.91486E-50 - 2 1 0.65217E-05 0.10000E+01 0.93834E+04 0.57590E-43 0.15067E-51 0.56365E-49 - 2 1 0.65217E-05 0.10000E+01 0.75673E+04 0.32961E-42 0.16049E-50 0.32703E-48 - 2 1 0.65217E-05 0.10000E+01 0.61026E+04 0.18857E-41 0.23563E-49 0.18018E-47 - 2 1 0.65217E-05 0.10000E+01 0.49215E+04 0.13354E-40 0.52554E-48 0.10924E-46 - 2 1 0.65217E-05 0.10000E+01 0.39689E+04 0.13730E-39 0.13009E-46 0.94653E-46 - 2 1 0.65217E-05 0.10000E+01 0.32008E+04 0.53260E-37 0.98757E-44 0.34488E-43 - 2 1 0.65217E-05 0.10000E+01 0.25813E+04 0.33434E-28 0.13139E-34 0.20944E-34 - 2 1 0.65217E-05 0.10000E+01 0.20817E+04 0.49708E-12 0.72454E-18 0.28851E-18 + 2 1 0.65217E-05 0.10000E+01 0.80645E+05 0.11878E-08 0.73938E-20 0.10937E-14 + 2 1 0.65217E-05 0.10000E+01 0.65036E+05 0.15224E-08 0.16872E-19 0.14021E-14 + 2 1 0.65217E-05 0.10000E+01 0.52449E+05 0.19232E-08 0.37802E-19 0.17720E-14 + 2 1 0.65217E-05 0.10000E+01 0.42297E+05 0.24027E-08 0.82754E-19 0.22150E-14 + 2 1 0.65217E-05 0.10000E+01 0.34111E+05 0.29733E-08 0.17618E-18 0.27434E-14 + 2 1 0.65217E-05 0.10000E+01 0.27509E+05 0.36459E-08 0.36346E-18 0.33684E-14 + 2 1 0.65217E-05 0.10000E+01 0.22184E+05 0.44285E-08 0.72945E-18 0.40986E-14 + 2 1 0.65217E-05 0.10000E+01 0.17891E+05 0.53245E-08 0.14667E-17 0.49386E-14 + 2 1 0.65217E-05 0.10000E+01 0.14428E+05 0.63336E-08 0.31921E-17 0.58880E-14 + 2 1 0.65217E-05 0.10000E+01 0.11635E+05 0.74604E-08 0.83144E-17 0.69455E-14 + 2 1 0.65217E-05 0.10000E+01 0.93834E+04 0.87335E-08 0.26422E-16 0.81211E-14 + 2 1 0.65217E-05 0.10000E+01 0.75673E+04 0.10248E-07 0.94516E-16 0.94626E-14 + 2 1 0.65217E-05 0.10000E+01 0.61026E+04 0.12239E-07 0.35126E-15 0.11100E-13 + 2 1 0.65217E-05 0.10000E+01 0.49215E+04 0.15219E-07 0.13050E-14 0.13318E-13 + 2 1 0.65217E-05 0.10000E+01 0.39689E+04 0.20217E-07 0.47940E-14 0.16654E-13 + 2 1 0.65217E-05 0.10000E+01 0.32008E+04 0.29222E-07 0.17436E-13 0.22061E-13 + 2 1 0.65217E-05 0.10000E+01 0.25813E+04 0.46012E-07 0.63078E-13 0.31128E-13 + 2 1 0.65217E-05 0.10000E+01 0.20817E+04 0.77702E-07 0.22736E-12 0.46438E-13 2 1 0.65217E-05 0.10000E+01 0.16788E+04 0.13769E-06 0.81545E-12 0.72153E-13 2 1 0.65217E-05 0.10000E+01 0.13538E+04 0.25107E-06 0.29083E-11 0.11498E-12 2 1 0.65217E-05 0.10000E+01 0.10918E+04 0.46465E-06 0.10335E-10 0.18585E-12 @@ -7540,24 +7540,24 @@ VERSION 2.8.2 2 1 0.65217E-05 0.10000E+01 0.24221E+03 0.32238E-04 0.28528E-07 0.62688E-11 2 1 0.65217E-05 0.10000E+01 0.19533E+03 0.50269E-04 0.54138E-07 0.94177E-11 2 1 0.65217E-05 0.10000E+01 0.15752E+03 0.50269E-04 0.54138E-07 0.94177E-11 - 2 1 0.11380E-04 0.10000E+01 0.80645E+05 0.30630E-51 0.22872E-62 0.28209E-57 - 2 1 0.11380E-04 0.10000E+01 0.65036E+05 0.25871E-50 0.36275E-61 0.23839E-56 - 2 1 0.11380E-04 0.10000E+01 0.52449E+05 0.21952E-49 0.48533E-60 0.20237E-55 - 2 1 0.11380E-04 0.10000E+01 0.42297E+05 0.16458E-48 0.65414E-59 0.15184E-54 - 2 1 0.11380E-04 0.10000E+01 0.34111E+05 0.11791E-47 0.88650E-58 0.10894E-53 - 2 1 0.11380E-04 0.10000E+01 0.27509E+05 0.83726E-47 0.11761E-56 0.77542E-53 - 2 1 0.11380E-04 0.10000E+01 0.22184E+05 0.58566E-46 0.15108E-55 0.54455E-52 - 2 1 0.11380E-04 0.10000E+01 0.17891E+05 0.39894E-45 0.18677E-54 0.37336E-51 - 2 1 0.11380E-04 0.10000E+01 0.14428E+05 0.26263E-44 0.22163E-53 0.24832E-50 - 2 1 0.11380E-04 0.10000E+01 0.11635E+05 0.16632E-43 0.24962E-52 0.15964E-49 - 2 1 0.11380E-04 0.10000E+01 0.93834E+04 0.10049E-42 0.26292E-51 0.98354E-49 - 2 1 0.11380E-04 0.10000E+01 0.75673E+04 0.57516E-42 0.28005E-50 0.57065E-48 - 2 1 0.11380E-04 0.10000E+01 0.61026E+04 0.32905E-41 0.41117E-49 0.31441E-47 - 2 1 0.11380E-04 0.10000E+01 0.49215E+04 0.23301E-40 0.91703E-48 0.19061E-46 - 2 1 0.11380E-04 0.10000E+01 0.39689E+04 0.23958E-39 0.22699E-46 0.16516E-45 - 2 1 0.11380E-04 0.10000E+01 0.32008E+04 0.92936E-37 0.17232E-43 0.60179E-43 - 2 1 0.11380E-04 0.10000E+01 0.25813E+04 0.58341E-28 0.22927E-34 0.36547E-34 - 2 1 0.11380E-04 0.10000E+01 0.20817E+04 0.86737E-12 0.12643E-17 0.50343E-18 + 2 1 0.11380E-04 0.10000E+01 0.80645E+05 0.20726E-08 0.12902E-19 0.19084E-14 + 2 1 0.11380E-04 0.10000E+01 0.65036E+05 0.26564E-08 0.29440E-19 0.24465E-14 + 2 1 0.11380E-04 0.10000E+01 0.52449E+05 0.33559E-08 0.65962E-19 0.30920E-14 + 2 1 0.11380E-04 0.10000E+01 0.42297E+05 0.41926E-08 0.14440E-18 0.38651E-14 + 2 1 0.11380E-04 0.10000E+01 0.34111E+05 0.51882E-08 0.30742E-18 0.47871E-14 + 2 1 0.11380E-04 0.10000E+01 0.27509E+05 0.63620E-08 0.63422E-18 0.58776E-14 + 2 1 0.11380E-04 0.10000E+01 0.22184E+05 0.77275E-08 0.12729E-17 0.71518E-14 + 2 1 0.11380E-04 0.10000E+01 0.17891E+05 0.92909E-08 0.25592E-17 0.86175E-14 + 2 1 0.11380E-04 0.10000E+01 0.14428E+05 0.11052E-07 0.55700E-17 0.10274E-13 + 2 1 0.11380E-04 0.10000E+01 0.11635E+05 0.13018E-07 0.14508E-16 0.12119E-13 + 2 1 0.11380E-04 0.10000E+01 0.93834E+04 0.15240E-07 0.46105E-16 0.14171E-13 + 2 1 0.11380E-04 0.10000E+01 0.75673E+04 0.17882E-07 0.16492E-15 0.16512E-13 + 2 1 0.11380E-04 0.10000E+01 0.61026E+04 0.21357E-07 0.61293E-15 0.19370E-13 + 2 1 0.11380E-04 0.10000E+01 0.49215E+04 0.26556E-07 0.22772E-14 0.23238E-13 + 2 1 0.11380E-04 0.10000E+01 0.39689E+04 0.35277E-07 0.83652E-14 0.29061E-13 + 2 1 0.11380E-04 0.10000E+01 0.32008E+04 0.50991E-07 0.30425E-13 0.38495E-13 + 2 1 0.11380E-04 0.10000E+01 0.25813E+04 0.80288E-07 0.11007E-12 0.54316E-13 + 2 1 0.11380E-04 0.10000E+01 0.20817E+04 0.13559E-06 0.39673E-12 0.81032E-13 2 1 0.11380E-04 0.10000E+01 0.16788E+04 0.24026E-06 0.14229E-11 0.12590E-12 2 1 0.11380E-04 0.10000E+01 0.13538E+04 0.43811E-06 0.50748E-11 0.20064E-12 2 1 0.11380E-04 0.10000E+01 0.10918E+04 0.81078E-06 0.18034E-10 0.32429E-12 @@ -7570,24 +7570,24 @@ VERSION 2.8.2 2 1 0.11380E-04 0.10000E+01 0.24221E+03 0.56254E-04 0.49779E-07 0.10939E-10 2 1 0.11380E-04 0.10000E+01 0.19533E+03 0.87716E-04 0.94467E-07 0.16433E-10 2 1 0.11380E-04 0.10000E+01 0.15752E+03 0.87716E-04 0.94467E-07 0.16433E-10 - 2 1 0.19857E-04 0.10000E+01 0.80645E+05 0.53447E-51 0.39910E-62 0.49223E-57 - 2 1 0.19857E-04 0.10000E+01 0.65036E+05 0.45144E-50 0.63298E-61 0.41597E-56 - 2 1 0.19857E-04 0.10000E+01 0.52449E+05 0.38305E-49 0.84687E-60 0.35312E-55 - 2 1 0.19857E-04 0.10000E+01 0.42297E+05 0.28718E-48 0.11414E-58 0.26495E-54 - 2 1 0.19857E-04 0.10000E+01 0.34111E+05 0.20575E-47 0.15469E-57 0.19010E-53 - 2 1 0.19857E-04 0.10000E+01 0.27509E+05 0.14610E-46 0.20523E-56 0.13531E-52 - 2 1 0.19857E-04 0.10000E+01 0.22184E+05 0.10219E-45 0.26363E-55 0.95020E-52 - 2 1 0.19857E-04 0.10000E+01 0.17891E+05 0.69613E-45 0.32590E-54 0.65149E-51 - 2 1 0.19857E-04 0.10000E+01 0.14428E+05 0.45828E-44 0.38673E-53 0.43330E-50 - 2 1 0.19857E-04 0.10000E+01 0.11635E+05 0.29022E-43 0.43557E-52 0.27856E-49 - 2 1 0.19857E-04 0.10000E+01 0.93834E+04 0.17535E-42 0.45877E-51 0.17162E-48 - 2 1 0.19857E-04 0.10000E+01 0.75673E+04 0.10036E-41 0.48867E-50 0.99575E-48 - 2 1 0.19857E-04 0.10000E+01 0.61026E+04 0.57417E-41 0.71746E-49 0.54863E-47 - 2 1 0.19857E-04 0.10000E+01 0.49215E+04 0.40660E-40 0.16002E-47 0.33260E-46 - 2 1 0.19857E-04 0.10000E+01 0.39689E+04 0.41805E-39 0.39609E-46 0.28820E-45 - 2 1 0.19857E-04 0.10000E+01 0.32008E+04 0.16217E-36 0.30070E-43 0.10501E-42 - 2 1 0.19857E-04 0.10000E+01 0.25813E+04 0.10180E-27 0.40007E-34 0.63772E-34 - 2 1 0.19857E-04 0.10000E+01 0.20817E+04 0.15135E-11 0.22061E-17 0.87845E-18 + 2 1 0.19857E-04 0.10000E+01 0.80645E+05 0.36165E-08 0.22513E-19 0.33300E-14 + 2 1 0.19857E-04 0.10000E+01 0.65036E+05 0.46353E-08 0.51371E-19 0.42691E-14 + 2 1 0.19857E-04 0.10000E+01 0.52449E+05 0.58559E-08 0.11510E-18 0.53953E-14 + 2 1 0.19857E-04 0.10000E+01 0.42297E+05 0.73159E-08 0.25197E-18 0.67443E-14 + 2 1 0.19857E-04 0.10000E+01 0.34111E+05 0.90531E-08 0.53644E-18 0.83532E-14 + 2 1 0.19857E-04 0.10000E+01 0.27509E+05 0.11101E-07 0.11067E-17 0.10256E-13 + 2 1 0.19857E-04 0.10000E+01 0.22184E+05 0.13484E-07 0.22211E-17 0.12480E-13 + 2 1 0.19857E-04 0.10000E+01 0.17891E+05 0.16212E-07 0.44657E-17 0.15037E-13 + 2 1 0.19857E-04 0.10000E+01 0.14428E+05 0.19285E-07 0.97194E-17 0.17928E-13 + 2 1 0.19857E-04 0.10000E+01 0.11635E+05 0.22715E-07 0.25316E-16 0.21148E-13 + 2 1 0.19857E-04 0.10000E+01 0.93834E+04 0.26592E-07 0.80450E-16 0.24727E-13 + 2 1 0.19857E-04 0.10000E+01 0.75673E+04 0.31203E-07 0.28778E-15 0.28812E-13 + 2 1 0.19857E-04 0.10000E+01 0.61026E+04 0.37266E-07 0.10695E-14 0.33799E-13 + 2 1 0.19857E-04 0.10000E+01 0.49215E+04 0.46339E-07 0.39736E-14 0.40550E-13 + 2 1 0.19857E-04 0.10000E+01 0.39689E+04 0.61556E-07 0.14597E-13 0.50709E-13 + 2 1 0.19857E-04 0.10000E+01 0.32008E+04 0.88976E-07 0.53090E-13 0.67172E-13 + 2 1 0.19857E-04 0.10000E+01 0.25813E+04 0.14010E-06 0.19206E-12 0.94778E-13 + 2 1 0.19857E-04 0.10000E+01 0.20817E+04 0.23659E-06 0.69227E-12 0.14140E-12 2 1 0.19857E-04 0.10000E+01 0.16788E+04 0.41923E-06 0.24829E-11 0.21969E-12 2 1 0.19857E-04 0.10000E+01 0.13538E+04 0.76447E-06 0.88552E-11 0.35010E-12 2 1 0.19857E-04 0.10000E+01 0.10918E+04 0.14148E-05 0.31468E-10 0.56587E-12 @@ -7600,24 +7600,24 @@ VERSION 2.8.2 2 1 0.19857E-04 0.10000E+01 0.24221E+03 0.98159E-04 0.86862E-07 0.19087E-10 2 1 0.19857E-04 0.10000E+01 0.19533E+03 0.15306E-03 0.16484E-06 0.28675E-10 2 1 0.19857E-04 0.10000E+01 0.15752E+03 0.15306E-03 0.16484E-06 0.28675E-10 - 2 1 0.34650E-04 0.10000E+01 0.80645E+05 0.93261E-51 0.69640E-62 0.85892E-57 - 2 1 0.34650E-04 0.10000E+01 0.65036E+05 0.78773E-50 0.11045E-60 0.72585E-56 - 2 1 0.34650E-04 0.10000E+01 0.52449E+05 0.66841E-49 0.14777E-59 0.61617E-55 - 2 1 0.34650E-04 0.10000E+01 0.42297E+05 0.50112E-48 0.19917E-58 0.46233E-54 - 2 1 0.34650E-04 0.10000E+01 0.34111E+05 0.35903E-47 0.26992E-57 0.33171E-53 - 2 1 0.34650E-04 0.10000E+01 0.27509E+05 0.25493E-46 0.35811E-56 0.23610E-52 - 2 1 0.34650E-04 0.10000E+01 0.22184E+05 0.17832E-45 0.46002E-55 0.16580E-51 - 2 1 0.34650E-04 0.10000E+01 0.17891E+05 0.12147E-44 0.56868E-54 0.11368E-50 - 2 1 0.34650E-04 0.10000E+01 0.14428E+05 0.79967E-44 0.67482E-53 0.75608E-50 - 2 1 0.34650E-04 0.10000E+01 0.11635E+05 0.50642E-43 0.76005E-52 0.48607E-49 - 2 1 0.34650E-04 0.10000E+01 0.93834E+04 0.30598E-42 0.80053E-51 0.29947E-48 - 2 1 0.34650E-04 0.10000E+01 0.75673E+04 0.17512E-41 0.85271E-50 0.17375E-47 - 2 1 0.34650E-04 0.10000E+01 0.61026E+04 0.10019E-40 0.12519E-48 0.95732E-47 - 2 1 0.34650E-04 0.10000E+01 0.49215E+04 0.70948E-40 0.27922E-47 0.58037E-46 - 2 1 0.34650E-04 0.10000E+01 0.39689E+04 0.72947E-39 0.69116E-46 0.50289E-45 - 2 1 0.34650E-04 0.10000E+01 0.32008E+04 0.28297E-36 0.52470E-43 0.18323E-42 - 2 1 0.34650E-04 0.10000E+01 0.25813E+04 0.17764E-27 0.69809E-34 0.11128E-33 - 2 1 0.34650E-04 0.10000E+01 0.20817E+04 0.26410E-11 0.38495E-17 0.15328E-17 + 2 1 0.34650E-04 0.10000E+01 0.80645E+05 0.63106E-08 0.39283E-19 0.58106E-14 + 2 1 0.34650E-04 0.10000E+01 0.65036E+05 0.80883E-08 0.89639E-19 0.74493E-14 + 2 1 0.34650E-04 0.10000E+01 0.52449E+05 0.10218E-07 0.20084E-18 0.94144E-14 + 2 1 0.34650E-04 0.10000E+01 0.42297E+05 0.12766E-07 0.43967E-18 0.11768E-13 + 2 1 0.34650E-04 0.10000E+01 0.34111E+05 0.15797E-07 0.93605E-18 0.14576E-13 + 2 1 0.34650E-04 0.10000E+01 0.27509E+05 0.19371E-07 0.19311E-17 0.17896E-13 + 2 1 0.34650E-04 0.10000E+01 0.22184E+05 0.23529E-07 0.38756E-17 0.21776E-13 + 2 1 0.34650E-04 0.10000E+01 0.17891E+05 0.28289E-07 0.77924E-17 0.26239E-13 + 2 1 0.34650E-04 0.10000E+01 0.14428E+05 0.33651E-07 0.16960E-16 0.31283E-13 + 2 1 0.34650E-04 0.10000E+01 0.11635E+05 0.39637E-07 0.44175E-16 0.36901E-13 + 2 1 0.34650E-04 0.10000E+01 0.93834E+04 0.46401E-07 0.14038E-15 0.43148E-13 + 2 1 0.34650E-04 0.10000E+01 0.75673E+04 0.54447E-07 0.50216E-15 0.50275E-13 + 2 1 0.34650E-04 0.10000E+01 0.61026E+04 0.65028E-07 0.18663E-14 0.58977E-13 + 2 1 0.34650E-04 0.10000E+01 0.49215E+04 0.80859E-07 0.69337E-14 0.70757E-13 + 2 1 0.34650E-04 0.10000E+01 0.39689E+04 0.10741E-06 0.25470E-13 0.88485E-13 + 2 1 0.34650E-04 0.10000E+01 0.32008E+04 0.15526E-06 0.92639E-13 0.11721E-12 + 2 1 0.34650E-04 0.10000E+01 0.25813E+04 0.24446E-06 0.33513E-12 0.16538E-12 + 2 1 0.34650E-04 0.10000E+01 0.20817E+04 0.41283E-06 0.12080E-11 0.24673E-12 2 1 0.34650E-04 0.10000E+01 0.16788E+04 0.73153E-06 0.43325E-11 0.38335E-12 2 1 0.34650E-04 0.10000E+01 0.13538E+04 0.13339E-05 0.15452E-10 0.61091E-12 2 1 0.34650E-04 0.10000E+01 0.10918E+04 0.24687E-05 0.54910E-10 0.98742E-12 @@ -7630,24 +7630,24 @@ VERSION 2.8.2 2 1 0.34650E-04 0.10000E+01 0.24221E+03 0.17128E-03 0.15157E-06 0.33306E-10 2 1 0.34650E-04 0.10000E+01 0.19533E+03 0.26708E-03 0.28763E-06 0.50036E-10 2 1 0.34650E-04 0.10000E+01 0.15752E+03 0.26708E-03 0.28763E-06 0.50036E-10 - 2 1 0.60462E-04 0.10000E+01 0.80645E+05 0.16274E-50 0.12152E-61 0.14988E-56 - 2 1 0.60462E-04 0.10000E+01 0.65036E+05 0.13745E-49 0.19273E-60 0.12666E-55 - 2 1 0.60462E-04 0.10000E+01 0.52449E+05 0.11663E-48 0.25786E-59 0.10752E-54 - 2 1 0.60462E-04 0.10000E+01 0.42297E+05 0.87442E-48 0.34755E-58 0.80673E-54 - 2 1 0.60462E-04 0.10000E+01 0.34111E+05 0.62648E-47 0.47100E-57 0.57882E-53 - 2 1 0.60462E-04 0.10000E+01 0.27509E+05 0.44484E-46 0.62489E-56 0.41198E-52 - 2 1 0.60462E-04 0.10000E+01 0.22184E+05 0.31116E-45 0.80270E-55 0.28932E-51 - 2 1 0.60462E-04 0.10000E+01 0.17891E+05 0.21196E-44 0.99232E-54 0.19837E-50 - 2 1 0.60462E-04 0.10000E+01 0.14428E+05 0.13954E-43 0.11775E-52 0.13193E-49 - 2 1 0.60462E-04 0.10000E+01 0.11635E+05 0.88367E-43 0.13262E-51 0.84815E-49 - 2 1 0.60462E-04 0.10000E+01 0.93834E+04 0.53391E-42 0.13969E-50 0.52256E-48 - 2 1 0.60462E-04 0.10000E+01 0.75673E+04 0.30558E-41 0.14879E-49 0.30319E-47 - 2 1 0.60462E-04 0.10000E+01 0.61026E+04 0.17483E-40 0.21845E-48 0.16705E-46 - 2 1 0.60462E-04 0.10000E+01 0.49215E+04 0.12380E-39 0.48722E-47 0.10127E-45 - 2 1 0.60462E-04 0.10000E+01 0.39689E+04 0.12729E-38 0.12060E-45 0.87752E-45 - 2 1 0.60462E-04 0.10000E+01 0.32008E+04 0.49377E-36 0.91556E-43 0.31973E-42 - 2 1 0.60462E-04 0.10000E+01 0.25813E+04 0.30997E-27 0.12181E-33 0.19417E-33 - 2 1 0.60462E-04 0.10000E+01 0.20817E+04 0.46083E-11 0.67171E-17 0.26747E-17 + 2 1 0.60462E-04 0.10000E+01 0.80645E+05 0.11012E-07 0.68547E-19 0.10139E-13 + 2 1 0.60462E-04 0.10000E+01 0.65036E+05 0.14114E-07 0.15642E-18 0.12999E-13 + 2 1 0.60462E-04 0.10000E+01 0.52449E+05 0.17830E-07 0.35046E-18 0.16428E-13 + 2 1 0.60462E-04 0.10000E+01 0.42297E+05 0.22275E-07 0.76720E-18 0.20535E-13 + 2 1 0.60462E-04 0.10000E+01 0.34111E+05 0.27565E-07 0.16334E-17 0.25434E-13 + 2 1 0.60462E-04 0.10000E+01 0.27509E+05 0.33801E-07 0.33696E-17 0.31228E-13 + 2 1 0.60462E-04 0.10000E+01 0.22184E+05 0.41057E-07 0.67627E-17 0.37998E-13 + 2 1 0.60462E-04 0.10000E+01 0.17891E+05 0.49362E-07 0.13597E-16 0.45785E-13 + 2 1 0.60462E-04 0.10000E+01 0.14428E+05 0.58718E-07 0.29594E-16 0.54587E-13 + 2 1 0.60462E-04 0.10000E+01 0.11635E+05 0.69164E-07 0.77082E-16 0.64391E-13 + 2 1 0.60462E-04 0.10000E+01 0.93834E+04 0.80968E-07 0.24495E-15 0.75290E-13 + 2 1 0.60462E-04 0.10000E+01 0.75673E+04 0.95007E-07 0.87625E-15 0.87727E-13 + 2 1 0.60462E-04 0.10000E+01 0.61026E+04 0.11347E-06 0.32565E-14 0.10291E-12 + 2 1 0.60462E-04 0.10000E+01 0.49215E+04 0.14109E-06 0.12099E-13 0.12347E-12 + 2 1 0.60462E-04 0.10000E+01 0.39689E+04 0.18743E-06 0.44444E-13 0.15440E-12 + 2 1 0.60462E-04 0.10000E+01 0.32008E+04 0.27092E-06 0.16165E-12 0.20453E-12 + 2 1 0.60462E-04 0.10000E+01 0.25813E+04 0.42657E-06 0.58479E-12 0.28858E-12 + 2 1 0.60462E-04 0.10000E+01 0.20817E+04 0.72037E-06 0.21078E-11 0.43052E-12 2 1 0.60462E-04 0.10000E+01 0.16788E+04 0.12765E-05 0.75599E-11 0.66893E-12 2 1 0.60462E-04 0.10000E+01 0.13538E+04 0.23277E-05 0.26962E-10 0.10660E-11 2 1 0.60462E-04 0.10000E+01 0.10918E+04 0.43077E-05 0.95814E-10 0.17230E-11 @@ -7660,24 +7660,24 @@ VERSION 2.8.2 2 1 0.60462E-04 0.10000E+01 0.24221E+03 0.29888E-03 0.26448E-06 0.58118E-10 2 1 0.60462E-04 0.10000E+01 0.19533E+03 0.46603E-03 0.50190E-06 0.87310E-10 2 1 0.60462E-04 0.10000E+01 0.15752E+03 0.46603E-03 0.50190E-06 0.87310E-10 - 2 1 0.10550E-03 0.10000E+01 0.80645E+05 0.28396E-50 0.21204E-61 0.26152E-56 - 2 1 0.10550E-03 0.10000E+01 0.65036E+05 0.23985E-49 0.33630E-60 0.22101E-55 - 2 1 0.10550E-03 0.10000E+01 0.52449E+05 0.20352E-48 0.44994E-59 0.18761E-54 - 2 1 0.10550E-03 0.10000E+01 0.42297E+05 0.15258E-47 0.60645E-58 0.14077E-53 - 2 1 0.10550E-03 0.10000E+01 0.34111E+05 0.10932E-46 0.82187E-57 0.10100E-52 - 2 1 0.10550E-03 0.10000E+01 0.27509E+05 0.77622E-46 0.10904E-55 0.71888E-52 - 2 1 0.10550E-03 0.10000E+01 0.22184E+05 0.54296E-45 0.14007E-54 0.50484E-51 - 2 1 0.10550E-03 0.10000E+01 0.17891E+05 0.36985E-44 0.17315E-53 0.34614E-50 - 2 1 0.10550E-03 0.10000E+01 0.14428E+05 0.24348E-43 0.20547E-52 0.23021E-49 - 2 1 0.10550E-03 0.10000E+01 0.11635E+05 0.15420E-42 0.23142E-51 0.14800E-48 - 2 1 0.10550E-03 0.10000E+01 0.93834E+04 0.93164E-42 0.24375E-50 0.91183E-48 - 2 1 0.10550E-03 0.10000E+01 0.75673E+04 0.53322E-41 0.25963E-49 0.52904E-47 - 2 1 0.10550E-03 0.10000E+01 0.61026E+04 0.30506E-40 0.38119E-48 0.29149E-46 - 2 1 0.10550E-03 0.10000E+01 0.49215E+04 0.21602E-39 0.85017E-47 0.17671E-45 - 2 1 0.10550E-03 0.10000E+01 0.39689E+04 0.22211E-38 0.21044E-45 0.15312E-44 - 2 1 0.10550E-03 0.10000E+01 0.32008E+04 0.86160E-36 0.15976E-42 0.55791E-42 - 2 1 0.10550E-03 0.10000E+01 0.25813E+04 0.54087E-27 0.21256E-33 0.33882E-33 - 2 1 0.10550E-03 0.10000E+01 0.20817E+04 0.80413E-11 0.11721E-16 0.46672E-17 + 2 1 0.10550E-03 0.10000E+01 0.80645E+05 0.19215E-07 0.11961E-18 0.17692E-13 + 2 1 0.10550E-03 0.10000E+01 0.65036E+05 0.24627E-07 0.27293E-18 0.22682E-13 + 2 1 0.10550E-03 0.10000E+01 0.52449E+05 0.31113E-07 0.61153E-18 0.28665E-13 + 2 1 0.10550E-03 0.10000E+01 0.42297E+05 0.38869E-07 0.13387E-17 0.35833E-13 + 2 1 0.10550E-03 0.10000E+01 0.34111E+05 0.48099E-07 0.28501E-17 0.44381E-13 + 2 1 0.10550E-03 0.10000E+01 0.27509E+05 0.58981E-07 0.58798E-17 0.54491E-13 + 2 1 0.10550E-03 0.10000E+01 0.22184E+05 0.71641E-07 0.11800E-16 0.66304E-13 + 2 1 0.10550E-03 0.10000E+01 0.17891E+05 0.86134E-07 0.23726E-16 0.79892E-13 + 2 1 0.10550E-03 0.10000E+01 0.14428E+05 0.10246E-06 0.51639E-16 0.95251E-13 + 2 1 0.10550E-03 0.10000E+01 0.11635E+05 0.12069E-06 0.13450E-15 0.11236E-12 + 2 1 0.10550E-03 0.10000E+01 0.93834E+04 0.14128E-06 0.42743E-15 0.13138E-12 + 2 1 0.10550E-03 0.10000E+01 0.75673E+04 0.16578E-06 0.15290E-14 0.15308E-12 + 2 1 0.10550E-03 0.10000E+01 0.61026E+04 0.19800E-06 0.56824E-14 0.17957E-12 + 2 1 0.10550E-03 0.10000E+01 0.49215E+04 0.24620E-06 0.21112E-13 0.21544E-12 + 2 1 0.10550E-03 0.10000E+01 0.39689E+04 0.32705E-06 0.77553E-13 0.26942E-12 + 2 1 0.10550E-03 0.10000E+01 0.32008E+04 0.47273E-06 0.28207E-12 0.35689E-12 + 2 1 0.10550E-03 0.10000E+01 0.25813E+04 0.74434E-06 0.10204E-11 0.50356E-12 + 2 1 0.10550E-03 0.10000E+01 0.20817E+04 0.12570E-05 0.36780E-11 0.75124E-12 2 1 0.10550E-03 0.10000E+01 0.16788E+04 0.22274E-05 0.13192E-10 0.11672E-11 2 1 0.10550E-03 0.10000E+01 0.13538E+04 0.40616E-05 0.47048E-10 0.18601E-11 2 1 0.10550E-03 0.10000E+01 0.10918E+04 0.75167E-05 0.16719E-09 0.30065E-11 @@ -7690,24 +7690,24 @@ VERSION 2.8.2 2 1 0.10550E-03 0.10000E+01 0.24221E+03 0.52152E-03 0.46150E-06 0.10141E-09 2 1 0.10550E-03 0.10000E+01 0.19533E+03 0.81320E-03 0.87579E-06 0.15235E-09 2 1 0.10550E-03 0.10000E+01 0.15752E+03 0.81320E-03 0.87579E-06 0.15235E-09 - 2 1 0.18409E-03 0.10000E+01 0.80645E+05 0.49550E-50 0.37000E-61 0.45635E-56 - 2 1 0.18409E-03 0.10000E+01 0.65036E+05 0.41852E-49 0.58683E-60 0.38564E-55 - 2 1 0.18409E-03 0.10000E+01 0.52449E+05 0.35513E-48 0.78513E-59 0.32737E-54 - 2 1 0.18409E-03 0.10000E+01 0.42297E+05 0.26624E-47 0.10582E-57 0.24564E-53 - 2 1 0.18409E-03 0.10000E+01 0.34111E+05 0.19075E-46 0.14341E-56 0.17624E-52 - 2 1 0.18409E-03 0.10000E+01 0.27509E+05 0.13545E-45 0.19027E-55 0.12544E-51 - 2 1 0.18409E-03 0.10000E+01 0.22184E+05 0.94743E-45 0.24441E-54 0.88092E-51 - 2 1 0.18409E-03 0.10000E+01 0.17891E+05 0.64537E-44 0.30214E-53 0.60399E-50 - 2 1 0.18409E-03 0.10000E+01 0.14428E+05 0.42486E-43 0.35853E-52 0.40171E-49 - 2 1 0.18409E-03 0.10000E+01 0.11635E+05 0.26906E-42 0.40381E-51 0.25825E-48 - 2 1 0.18409E-03 0.10000E+01 0.93834E+04 0.16257E-41 0.42532E-50 0.15911E-47 - 2 1 0.18409E-03 0.10000E+01 0.75673E+04 0.93044E-41 0.45304E-49 0.92315E-47 - 2 1 0.18409E-03 0.10000E+01 0.61026E+04 0.53231E-40 0.66515E-48 0.50863E-46 - 2 1 0.18409E-03 0.10000E+01 0.49215E+04 0.37695E-39 0.14835E-46 0.30835E-45 - 2 1 0.18409E-03 0.10000E+01 0.39689E+04 0.38757E-38 0.36721E-45 0.26719E-44 - 2 1 0.18409E-03 0.10000E+01 0.32008E+04 0.15034E-35 0.27877E-42 0.97352E-42 - 2 1 0.18409E-03 0.10000E+01 0.25813E+04 0.94379E-27 0.37090E-33 0.59122E-33 - 2 1 0.18409E-03 0.10000E+01 0.20817E+04 0.14032E-10 0.20452E-16 0.81440E-17 + 2 1 0.18409E-03 0.10000E+01 0.80645E+05 0.33528E-07 0.20871E-18 0.30872E-13 + 2 1 0.18409E-03 0.10000E+01 0.65036E+05 0.42973E-07 0.47625E-18 0.39578E-13 + 2 1 0.18409E-03 0.10000E+01 0.52449E+05 0.54289E-07 0.10671E-17 0.50019E-13 + 2 1 0.18409E-03 0.10000E+01 0.42297E+05 0.67825E-07 0.23360E-17 0.62526E-13 + 2 1 0.18409E-03 0.10000E+01 0.34111E+05 0.83930E-07 0.49733E-17 0.77442E-13 + 2 1 0.18409E-03 0.10000E+01 0.27509E+05 0.10292E-06 0.10260E-16 0.95083E-13 + 2 1 0.18409E-03 0.10000E+01 0.22184E+05 0.12501E-06 0.20591E-16 0.11570E-12 + 2 1 0.18409E-03 0.10000E+01 0.17891E+05 0.15030E-06 0.41401E-16 0.13941E-12 + 2 1 0.18409E-03 0.10000E+01 0.14428E+05 0.17879E-06 0.90107E-16 0.16621E-12 + 2 1 0.18409E-03 0.10000E+01 0.11635E+05 0.21059E-06 0.23470E-15 0.19606E-12 + 2 1 0.18409E-03 0.10000E+01 0.93834E+04 0.24653E-06 0.74584E-15 0.22924E-12 + 2 1 0.18409E-03 0.10000E+01 0.75673E+04 0.28928E-06 0.26680E-14 0.26711E-12 + 2 1 0.18409E-03 0.10000E+01 0.61026E+04 0.34549E-06 0.99154E-14 0.31334E-12 + 2 1 0.18409E-03 0.10000E+01 0.49215E+04 0.42961E-06 0.36839E-13 0.37593E-12 + 2 1 0.18409E-03 0.10000E+01 0.39689E+04 0.57068E-06 0.13533E-12 0.47012E-12 + 2 1 0.18409E-03 0.10000E+01 0.32008E+04 0.82489E-06 0.49219E-12 0.62275E-12 + 2 1 0.18409E-03 0.10000E+01 0.25813E+04 0.12988E-05 0.17806E-11 0.87868E-12 + 2 1 0.18409E-03 0.10000E+01 0.20817E+04 0.21934E-05 0.64179E-11 0.13109E-11 2 1 0.18409E-03 0.10000E+01 0.16788E+04 0.38867E-05 0.23019E-10 0.20368E-11 2 1 0.18409E-03 0.10000E+01 0.13538E+04 0.70873E-05 0.82096E-10 0.32458E-11 2 1 0.18409E-03 0.10000E+01 0.10918E+04 0.13116E-04 0.29174E-09 0.52462E-11 @@ -7720,24 +7720,24 @@ VERSION 2.8.2 2 1 0.18409E-03 0.10000E+01 0.24221E+03 0.91002E-03 0.80529E-06 0.17696E-09 2 1 0.18409E-03 0.10000E+01 0.19533E+03 0.14190E-02 0.15282E-05 0.26584E-09 2 1 0.18409E-03 0.10000E+01 0.15752E+03 0.14190E-02 0.15282E-05 0.26584E-09 - 2 1 0.32123E-03 0.10000E+01 0.80645E+05 0.86462E-50 0.64562E-61 0.79629E-56 - 2 1 0.32123E-03 0.10000E+01 0.65036E+05 0.73030E-49 0.10240E-59 0.67293E-55 - 2 1 0.32123E-03 0.10000E+01 0.52449E+05 0.61967E-48 0.13700E-58 0.57125E-54 - 2 1 0.32123E-03 0.10000E+01 0.42297E+05 0.46458E-47 0.18465E-57 0.42862E-53 - 2 1 0.32123E-03 0.10000E+01 0.34111E+05 0.33285E-46 0.25024E-56 0.30753E-52 - 2 1 0.32123E-03 0.10000E+01 0.27509E+05 0.23634E-45 0.33200E-55 0.21889E-51 - 2 1 0.32123E-03 0.10000E+01 0.22184E+05 0.16532E-44 0.42648E-54 0.15372E-50 - 2 1 0.32123E-03 0.10000E+01 0.17891E+05 0.11261E-43 0.52722E-53 0.10539E-49 - 2 1 0.32123E-03 0.10000E+01 0.14428E+05 0.74136E-43 0.62562E-52 0.70095E-49 - 2 1 0.32123E-03 0.10000E+01 0.11635E+05 0.46950E-42 0.70463E-51 0.45063E-48 - 2 1 0.32123E-03 0.10000E+01 0.93834E+04 0.28367E-41 0.74216E-50 0.27764E-47 - 2 1 0.32123E-03 0.10000E+01 0.75673E+04 0.16236E-40 0.79053E-49 0.16108E-46 - 2 1 0.32123E-03 0.10000E+01 0.61026E+04 0.92885E-40 0.11607E-47 0.88752E-46 - 2 1 0.32123E-03 0.10000E+01 0.49215E+04 0.65775E-39 0.25886E-46 0.53805E-45 - 2 1 0.32123E-03 0.10000E+01 0.39689E+04 0.67628E-38 0.64076E-45 0.46623E-44 - 2 1 0.32123E-03 0.10000E+01 0.32008E+04 0.26234E-35 0.48644E-42 0.16987E-41 - 2 1 0.32123E-03 0.10000E+01 0.25813E+04 0.16469E-26 0.64720E-33 0.10316E-32 - 2 1 0.32123E-03 0.10000E+01 0.20817E+04 0.24484E-10 0.35688E-16 0.14211E-16 + 2 1 0.32123E-03 0.10000E+01 0.80645E+05 0.58505E-07 0.36419E-18 0.53869E-13 + 2 1 0.32123E-03 0.10000E+01 0.65036E+05 0.74986E-07 0.83104E-18 0.69061E-13 + 2 1 0.32123E-03 0.10000E+01 0.52449E+05 0.94732E-07 0.18620E-17 0.87280E-13 + 2 1 0.32123E-03 0.10000E+01 0.42297E+05 0.11835E-06 0.40762E-17 0.10910E-12 + 2 1 0.32123E-03 0.10000E+01 0.34111E+05 0.14645E-06 0.86780E-17 0.13513E-12 + 2 1 0.32123E-03 0.10000E+01 0.27509E+05 0.17959E-06 0.17903E-16 0.16591E-12 + 2 1 0.32123E-03 0.10000E+01 0.22184E+05 0.21813E-06 0.35930E-16 0.20188E-12 + 2 1 0.32123E-03 0.10000E+01 0.17891E+05 0.26226E-06 0.72243E-16 0.24326E-12 + 2 1 0.32123E-03 0.10000E+01 0.14428E+05 0.31197E-06 0.15723E-15 0.29002E-12 + 2 1 0.32123E-03 0.10000E+01 0.11635E+05 0.36747E-06 0.40954E-15 0.34211E-12 + 2 1 0.32123E-03 0.10000E+01 0.93834E+04 0.43018E-06 0.13014E-14 0.40002E-12 + 2 1 0.32123E-03 0.10000E+01 0.75673E+04 0.50478E-06 0.46555E-14 0.46609E-12 + 2 1 0.32123E-03 0.10000E+01 0.61026E+04 0.60286E-06 0.17302E-13 0.54677E-12 + 2 1 0.32123E-03 0.10000E+01 0.49215E+04 0.74964E-06 0.64282E-13 0.65598E-12 + 2 1 0.32123E-03 0.10000E+01 0.39689E+04 0.99579E-06 0.23613E-12 0.82033E-12 + 2 1 0.32123E-03 0.10000E+01 0.32008E+04 0.14394E-05 0.85885E-12 0.10867E-11 + 2 1 0.32123E-03 0.10000E+01 0.25813E+04 0.22664E-05 0.31070E-11 0.15332E-11 + 2 1 0.32123E-03 0.10000E+01 0.20817E+04 0.38273E-05 0.11199E-10 0.22874E-11 2 1 0.32123E-03 0.10000E+01 0.16788E+04 0.67820E-05 0.40166E-10 0.35540E-11 2 1 0.32123E-03 0.10000E+01 0.13538E+04 0.12367E-04 0.14325E-09 0.56636E-11 2 1 0.32123E-03 0.10000E+01 0.10918E+04 0.22887E-04 0.50906E-09 0.91542E-11 @@ -7800,24 +7800,24 @@ VERSION 2.8.2 2 2 0.10550E-03 0.10000E+01 0.11300E+01 0.16630E+01 0.22273E+00 0.14924E-02 0.28809E+00 0.95060E-04 0.46642E+10 0.42754E+03 0.50000E+03 0.58909E-15 0.14147E-01 0.57624E-02 0.16256E+02 2 2 0.18409E-03 0.10000E+01 0.11300E+01 0.16630E+01 0.67816E+00 0.26041E-02 0.50270E+00 0.95060E-04 0.81388E+10 0.74603E+03 0.50000E+03 0.10279E-14 0.24686E-01 0.57624E-02 0.16256E+02 2 2 0.32123E-03 0.10000E+01 0.11300E+01 0.16630E+01 0.20649E+01 0.45440E-02 0.87717E+00 0.95060E-04 0.14202E+11 0.13018E+04 0.50000E+03 0.17937E-14 0.43075E-01 0.57624E-02 0.16256E+02 - 2 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 2 2 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 2 2 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 2 2 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 2 2 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 2 2 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 2 2 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 2 2 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 2 2 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 2 2 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 2 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 2 2 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 2 2 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 2 2 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 2 2 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 2 2 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 2 2 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 2 2 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 2 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 2 2 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 2 2 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 2 2 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 2 2 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 2 2 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 2 2 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 2 2 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 2 2 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 2 2 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 2 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 2 2 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 2 2 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 2 2 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 2 2 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 2 2 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 2 2 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 2 2 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 2 2 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 2 2 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 2 2 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -7830,24 +7830,24 @@ VERSION 2.8.2 2 2 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 2 2 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 2 2 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 2 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 2 2 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 2 2 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 2 2 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 2 2 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 2 2 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 2 2 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 2 2 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 2 2 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 2 2 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 2 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 2 2 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 2 2 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 2 2 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 2 2 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 2 2 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 2 2 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 2 2 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 2 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 2 2 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 2 2 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 2 2 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 2 2 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 2 2 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 2 2 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 2 2 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 2 2 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 2 2 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 2 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 2 2 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 2 2 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 2 2 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 2 2 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 2 2 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 2 2 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 2 2 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 2 2 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 2 2 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 2 2 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -7860,24 +7860,24 @@ VERSION 2.8.2 2 2 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 2 2 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 2 2 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 2 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 2 2 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 2 2 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 2 2 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 2 2 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 2 2 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 2 2 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 2 2 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 2 2 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 2 2 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 2 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 2 2 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 2 2 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 2 2 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 2 2 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 2 2 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 2 2 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 2 2 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 2 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 2 2 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 2 2 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 2 2 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 2 2 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 2 2 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 2 2 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 2 2 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 2 2 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 2 2 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 2 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 2 2 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 2 2 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 2 2 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 2 2 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 2 2 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 2 2 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 2 2 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 2 2 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 2 2 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 2 2 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -7890,24 +7890,24 @@ VERSION 2.8.2 2 2 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 2 2 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 2 2 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 2 2 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 2 2 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 2 2 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 2 2 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 2 2 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 2 2 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 2 2 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 2 2 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 2 2 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 2 2 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 2 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 2 2 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 2 2 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 2 2 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 2 2 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 2 2 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 2 2 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 2 2 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 2 2 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 2 2 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 2 2 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 2 2 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 2 2 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 2 2 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 2 2 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 2 2 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 2 2 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 2 2 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 2 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 2 2 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 2 2 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 2 2 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 2 2 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 2 2 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 2 2 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 2 2 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 2 2 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 2 2 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 2 2 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -7920,24 +7920,24 @@ VERSION 2.8.2 2 2 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 2 2 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 2 2 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 2 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 2 2 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 2 2 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 2 2 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 2 2 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 2 2 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 2 2 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 2 2 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 2 2 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 2 2 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 2 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 2 2 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 2 2 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 2 2 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 2 2 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 2 2 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 2 2 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 2 2 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 2 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 2 2 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 2 2 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 2 2 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 2 2 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 2 2 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 2 2 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 2 2 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 2 2 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 2 2 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 2 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 2 2 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 2 2 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 2 2 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 2 2 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 2 2 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 2 2 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 2 2 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 2 2 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 2 2 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 2 2 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -7950,24 +7950,24 @@ VERSION 2.8.2 2 2 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 2 2 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 2 2 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 2 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 2 2 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 2 2 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 2 2 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 2 2 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 2 2 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 2 2 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 2 2 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 2 2 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 2 2 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 2 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 2 2 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 2 2 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 2 2 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 2 2 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 2 2 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 2 2 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 2 2 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 2 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 2 2 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 2 2 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 2 2 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 2 2 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 2 2 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 2 2 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 2 2 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 2 2 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 2 2 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 2 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 2 2 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 2 2 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 2 2 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 2 2 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 2 2 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 2 2 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 2 2 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 2 2 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 2 2 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 2 2 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -7980,24 +7980,24 @@ VERSION 2.8.2 2 2 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 2 2 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 2 2 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 2 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 2 2 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 2 2 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 2 2 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 2 2 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 2 2 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 2 2 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 2 2 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 2 2 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 2 2 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 2 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 2 2 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 2 2 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 2 2 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 2 2 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 2 2 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 2 2 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 2 2 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 2 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 2 2 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 2 2 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 2 2 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 2 2 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 2 2 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 2 2 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 2 2 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 2 2 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 2 2 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 2 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 2 2 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 2 2 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 2 2 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 2 2 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 2 2 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 2 2 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 2 2 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 2 2 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 2 2 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 2 2 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -8010,24 +8010,24 @@ VERSION 2.8.2 2 2 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 2 2 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 2 2 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 2 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 2 2 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 2 2 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 2 2 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 2 2 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 2 2 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 2 2 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 2 2 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 2 2 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 2 2 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 2 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 2 2 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 2 2 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 2 2 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 2 2 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 2 2 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 2 2 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 2 2 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 2 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 2 2 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 2 2 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 2 2 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 2 2 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 2 2 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 2 2 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 2 2 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 2 2 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 2 2 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 2 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 2 2 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 2 2 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 2 2 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 2 2 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 2 2 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 2 2 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 2 2 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 2 2 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 2 2 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 2 2 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -8040,24 +8040,24 @@ VERSION 2.8.2 2 2 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 2 2 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 2 2 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 2 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 2 2 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 2 2 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 2 2 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 2 2 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 2 2 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 2 2 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 2 2 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 2 2 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 2 2 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 2 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 2 2 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 2 2 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 2 2 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 2 2 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 2 2 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 2 2 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 2 2 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 2 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 2 2 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 2 2 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 2 2 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 2 2 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 2 2 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 2 2 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 2 2 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 2 2 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 2 2 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 2 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 2 2 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 2 2 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 2 2 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 2 2 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 2 2 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 2 2 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 2 2 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 2 2 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 2 2 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 2 2 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -8070,24 +8070,24 @@ VERSION 2.8.2 2 2 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 2 2 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 2 2 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 2 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 2 2 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 2 2 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 2 2 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 2 2 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 2 2 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 2 2 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 2 2 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 2 2 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 2 2 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 2 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 2 2 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 2 2 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 2 2 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 2 2 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 2 2 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 2 2 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 2 2 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 2 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 2 2 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 2 2 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 2 2 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 2 2 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 2 2 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 2 2 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 2 2 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 2 2 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 2 2 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 2 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 2 2 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 2 2 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 2 2 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 2 2 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 2 2 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 2 2 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 2 2 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 2 2 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 2 2 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 2 2 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -8100,24 +8100,24 @@ VERSION 2.8.2 2 2 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 2 2 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 2 2 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 2 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 2 2 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 2 2 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 2 2 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 2 2 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 2 2 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 2 2 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 2 2 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 2 2 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 2 2 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 2 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 2 2 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 2 2 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 2 2 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 2 2 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 2 2 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 2 2 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 2 2 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 2 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 2 2 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 2 2 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 2 2 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 2 2 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 2 2 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 2 2 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 2 2 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 2 2 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 2 2 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 2 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 2 2 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 2 2 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 2 2 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 2 2 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 2 2 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 2 2 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 2 2 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 2 2 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 2 2 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 2 2 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -8130,24 +8130,24 @@ VERSION 2.8.2 2 2 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 2 2 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 2 2 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 2 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 2 2 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 2 2 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 2 2 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 2 2 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 2 2 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 2 2 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 2 2 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 2 2 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 2 2 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 2 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 2 2 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 2 2 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 2 2 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 2 2 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 2 2 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 2 2 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 2 2 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 2 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 2 2 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 2 2 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 2 2 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 2 2 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 2 2 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 2 2 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 2 2 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 2 2 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 2 2 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 2 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 2 2 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 2 2 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 2 2 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 2 2 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 2 2 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 2 2 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 2 2 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 2 2 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 2 2 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 2 2 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -8160,24 +8160,24 @@ VERSION 2.8.2 2 2 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 2 2 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 2 2 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 2 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 2 2 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 2 2 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 2 2 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 2 2 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 2 2 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 2 2 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 2 2 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 2 2 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 2 2 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 2 2 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 2 2 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 2 2 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 2 2 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 2 2 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 2 2 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 2 2 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 2 2 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 2 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 2 2 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 2 2 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 2 2 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 2 2 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 2 2 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 2 2 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 2 2 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 2 2 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 2 2 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 2 2 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 2 2 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 2 2 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 2 2 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 2 2 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 2 2 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 2 2 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 2 2 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 2 2 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 2 2 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 2 2 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -8190,24 +8190,24 @@ VERSION 2.8.2 2 2 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 2 2 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 2 2 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 2 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 2 2 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 2 2 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 2 2 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 2 2 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 2 2 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 2 2 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 2 2 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 2 2 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 2 2 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 2 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 2 2 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 2 2 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 2 2 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 2 2 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 2 2 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 2 2 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 2 2 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 2 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 2 2 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 2 2 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 2 2 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 2 2 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 2 2 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 2 2 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 2 2 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 2 2 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 2 2 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 2 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 2 2 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 2 2 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 2 2 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 2 2 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 2 2 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 2 2 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 2 2 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 2 2 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 2 2 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 2 2 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -8220,24 +8220,24 @@ VERSION 2.8.2 2 2 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 2 2 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 2 2 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 2 2 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 2 2 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 2 2 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 2 2 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 2 2 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 2 2 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 2 2 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 2 2 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 2 2 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 2 2 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 2 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 2 2 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 2 2 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 2 2 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 2 2 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 2 2 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 2 2 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 2 2 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 2 2 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 2 2 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 2 2 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 2 2 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 2 2 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 2 2 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 2 2 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 2 2 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 2 2 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 2 2 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 2 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 2 2 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 2 2 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 2 2 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 2 2 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 2 2 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 2 2 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 2 2 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 2 2 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 2 2 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 2 2 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -8250,24 +8250,24 @@ VERSION 2.8.2 2 2 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 2 2 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 2 2 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 2 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 2 2 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 2 2 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 2 2 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 2 2 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 2 2 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 2 2 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 2 2 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 2 2 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 2 2 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 2 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 2 2 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 2 2 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 2 2 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 2 2 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 2 2 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 2 2 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 2 2 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 2 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 2 2 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 2 2 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 2 2 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 2 2 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 2 2 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 2 2 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 2 2 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 2 2 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 2 2 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 2 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 2 2 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 2 2 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 2 2 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 2 2 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 2 2 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 2 2 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 2 2 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 2 2 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 2 2 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 2 2 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -8280,24 +8280,24 @@ VERSION 2.8.2 2 2 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 2 2 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 2 2 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 2 2 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 2 2 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 2 2 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 2 2 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 2 2 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 2 2 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 2 2 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 2 2 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 2 2 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 2 2 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 2 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 2 2 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 2 2 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 2 2 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 2 2 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 2 2 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 2 2 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 2 2 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 2 2 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 2 2 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 2 2 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 2 2 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 2 2 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 2 2 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 2 2 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 2 2 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 2 2 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 2 2 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 2 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 2 2 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 2 2 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 2 2 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 2 2 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 2 2 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 2 2 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 2 2 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 2 2 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 2 2 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 2 2 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -8310,24 +8310,24 @@ VERSION 2.8.2 2 2 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 2 2 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 2 2 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 2 2 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 2 2 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 2 2 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 2 2 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 2 2 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 2 2 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 2 2 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 2 2 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 2 2 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 2 2 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 2 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 2 2 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 2 2 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 2 2 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 2 2 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 2 2 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 2 2 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 2 2 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 2 2 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 2 2 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 2 2 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 2 2 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 2 2 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 2 2 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 2 2 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 2 2 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 2 2 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 2 2 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 2 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 2 2 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 2 2 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 2 2 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 2 2 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 2 2 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 2 2 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 2 2 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 2 2 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 2 2 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 2 2 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -8340,24 +8340,24 @@ VERSION 2.8.2 2 2 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 2 2 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 2 2 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 2 2 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 2 2 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 2 2 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 2 2 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 2 2 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 2 2 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 2 2 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 2 2 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 2 2 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 2 2 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 2 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 2 2 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 2 2 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 2 2 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 2 2 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 2 2 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 2 2 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 2 2 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 2 2 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 2 2 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 2 2 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 2 2 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 2 2 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 2 2 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 2 2 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 2 2 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 2 2 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 2 2 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 2 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 2 2 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 2 2 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 2 2 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 2 2 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 2 2 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 2 2 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 2 2 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 2 2 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 2 2 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 2 2 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -8370,24 +8370,24 @@ VERSION 2.8.2 2 2 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 2 2 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 2 2 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 2 2 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 2 2 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 2 2 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 2 2 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 2 2 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 2 2 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 2 2 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 2 2 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 2 2 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 2 2 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 2 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 2 2 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 2 2 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 2 2 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 2 2 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 2 2 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 2 2 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 2 2 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 2 2 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 2 2 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 2 2 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 2 2 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 2 2 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 2 2 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 2 2 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 2 2 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 2 2 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 2 2 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 2 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 2 2 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 2 2 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 2 2 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 2 2 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 2 2 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 2 2 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 2 2 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 2 2 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 2 2 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 2 2 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -8400,24 +8400,24 @@ VERSION 2.8.2 2 2 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 2 2 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 2 2 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 2 2 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 2 2 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 2 2 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 2 2 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 2 2 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 2 2 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 2 2 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 2 2 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 2 2 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 2 2 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 2 2 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 2 2 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 2 2 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 2 2 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 2 2 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 2 2 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 2 2 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 2 2 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 2 2 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 2 2 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 2 2 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 2 2 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 2 2 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 2 2 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 2 2 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 2 2 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 2 2 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 2 2 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 2 2 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 2 2 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 2 2 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 2 2 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 2 2 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 2 2 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 2 2 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 2 2 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 2 2 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 2 2 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 2 2 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -8430,24 +8430,24 @@ VERSION 2.8.2 2 2 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 2 2 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 2 2 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 2 2 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 2 2 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 2 2 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 2 2 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 2 2 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 2 2 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 2 2 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 2 2 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 2 2 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 2 2 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 2 2 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 2 2 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 2 2 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 2 2 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 2 2 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 2 2 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 2 2 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 2 2 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 2 2 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 2 2 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 2 2 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 2 2 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 2 2 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 2 2 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 2 2 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 2 2 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 2 2 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 2 2 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 2 2 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 2 2 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 2 2 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 2 2 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 2 2 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 2 2 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 2 2 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 2 2 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 2 2 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 2 2 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 2 2 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -8460,24 +8460,24 @@ VERSION 2.8.2 2 2 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 2 2 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 2 2 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 2 2 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 2 2 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 2 2 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 2 2 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 2 2 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 2 2 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 2 2 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 2 2 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 2 2 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 2 2 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 2 2 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 2 2 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 2 2 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 2 2 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 2 2 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 2 2 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 2 2 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 2 2 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 2 2 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 2 2 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 2 2 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 2 2 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 2 2 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 2 2 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 2 2 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 2 2 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 2 2 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 2 2 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 2 2 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 2 2 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 2 2 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 2 2 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 2 2 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 2 2 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 2 2 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 2 2 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 2 2 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 2 2 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 2 2 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -8490,24 +8490,24 @@ VERSION 2.8.2 2 2 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 2 2 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 2 2 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 2 2 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33650E-66 - 2 2 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13506E-66 0.29210E-65 - 2 2 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25175E-64 - 2 2 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19204E-63 - 2 2 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 2 2 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 2 2 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77605E-61 - 2 2 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 2 2 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 2 2 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 2 2 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29612E-56 - 2 2 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 2 2 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 2 2 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95066E-53 - 2 2 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 2 2 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 2 2 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 2 2 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 2 2 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22336E-23 + 2 2 0.16616E-09 0.10000E+01 0.65036E+05 0.93473E-14 0.19315E-24 0.28859E-23 + 2 2 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36946E-23 + 2 2 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47533E-23 + 2 2 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63205E-23 + 2 2 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91067E-23 + 2 2 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 2 2 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 2 2 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61869E-22 + 2 2 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 2 2 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 2 2 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82595E-21 + 2 2 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 2 2 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 2 2 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 2 2 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 2 2 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 2 2 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 2 2 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 2 2 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 2 2 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -8520,24 +8520,24 @@ VERSION 2.8.2 2 2 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 2 2 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 2 2 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 2 2 0.28994E-09 0.10000E+01 0.80645E+05 0.22018E-56 0.16924E-67 0.11277E-65 - 2 2 0.28994E-09 0.10000E+01 0.65036E+05 0.19028E-55 0.27104E-66 0.96716E-65 - 2 2 0.28994E-09 0.10000E+01 0.52449E+05 0.16358E-54 0.36936E-65 0.82800E-64 - 2 2 0.28994E-09 0.10000E+01 0.42297E+05 0.12452E-53 0.50578E-64 0.62651E-63 - 2 2 0.28994E-09 0.10000E+01 0.34111E+05 0.90540E-53 0.69142E-63 0.45007E-62 - 2 2 0.28994E-09 0.10000E+01 0.27509E+05 0.65399E-52 0.10273E-61 0.31386E-61 - 2 2 0.28994E-09 0.10000E+01 0.22184E+05 0.51137E-51 0.21676E-60 0.21732E-60 - 2 2 0.28994E-09 0.10000E+01 0.17891E+05 0.53345E-50 0.62723E-59 0.17683E-59 - 2 2 0.28994E-09 0.10000E+01 0.14428E+05 0.75578E-49 0.19031E-57 0.20791E-58 - 2 2 0.28994E-09 0.10000E+01 0.11635E+05 0.11753E-47 0.55607E-56 0.31079E-57 - 2 2 0.28994E-09 0.10000E+01 0.93834E+04 0.17999E-46 0.15782E-54 0.48263E-56 - 2 2 0.28994E-09 0.10000E+01 0.75673E+04 0.26867E-45 0.44100E-53 0.73387E-55 - 2 2 0.28994E-09 0.10000E+01 0.61026E+04 0.39446E-44 0.12210E-51 0.10925E-53 - 2 2 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33587E-50 0.16037E-52 - 2 2 0.28994E-09 0.10000E+01 0.39689E+04 0.82767E-42 0.91937E-49 0.23322E-51 - 2 2 0.28994E-09 0.10000E+01 0.32008E+04 0.37399E-39 0.81124E-46 0.10600E-48 - 2 2 0.28994E-09 0.10000E+01 0.25813E+04 0.27895E-30 0.13850E-36 0.79468E-40 - 2 2 0.28994E-09 0.10000E+01 0.20817E+04 0.54046E-14 0.11956E-19 0.15479E-23 + 2 2 0.28994E-09 0.10000E+01 0.80645E+05 0.14663E-13 0.10186E-24 0.75475E-23 + 2 2 0.28994E-09 0.10000E+01 0.65036E+05 0.18929E-13 0.26880E-24 0.97077E-23 + 2 2 0.28994E-09 0.10000E+01 0.52449E+05 0.24210E-13 0.86426E-24 0.12321E-22 + 2 2 0.28994E-09 0.10000E+01 0.42297E+05 0.31095E-13 0.34707E-23 0.15543E-22 + 2 2 0.28994E-09 0.10000E+01 0.34111E+05 0.41175E-13 0.15843E-22 0.19770E-22 + 2 2 0.28994E-09 0.10000E+01 0.27509E+05 0.58774E-13 0.75126E-22 0.26106E-22 + 2 2 0.28994E-09 0.10000E+01 0.22184E+05 0.95202E-13 0.35634E-21 0.37555E-22 + 2 2 0.28994E-09 0.10000E+01 0.17891E+05 0.17903E-12 0.16757E-20 0.61908E-22 + 2 2 0.28994E-09 0.10000E+01 0.14428E+05 0.38085E-12 0.78138E-20 0.11877E-21 + 2 2 0.28994E-09 0.10000E+01 0.11635E+05 0.87305E-12 0.36192E-19 0.25651E-21 + 2 2 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16668E-18 0.59324E-21 + 2 2 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76231E-18 0.14151E-20 + 2 2 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34440E-17 0.34099E-20 + 2 2 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15256E-16 0.82076E-20 + 2 2 0.28994E-09 0.10000E+01 0.39689E+04 0.68743E-10 0.65921E-16 0.19587E-19 + 2 2 0.28994E-09 0.10000E+01 0.32008E+04 0.16124E-09 0.27763E-15 0.46071E-19 + 2 2 0.28994E-09 0.10000E+01 0.25813E+04 0.37131E-09 0.11402E-14 0.10635E-18 + 2 2 0.28994E-09 0.10000E+01 0.20817E+04 0.83745E-09 0.45625E-14 0.24030E-18 2 2 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17776E-13 0.53079E-18 2 2 0.28994E-09 0.10000E+01 0.13538E+04 0.39810E-08 0.67587E-13 0.11452E-17 2 2 0.28994E-09 0.10000E+01 0.10918E+04 0.83818E-08 0.25215E-12 0.24131E-17 @@ -8550,24 +8550,24 @@ VERSION 2.8.2 2 2 0.28994E-09 0.10000E+01 0.24221E+03 0.83748E-06 0.77281E-09 0.24149E-15 2 2 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14686E-08 0.38062E-15 2 2 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14686E-08 0.38062E-15 - 2 2 0.50593E-09 0.10000E+01 0.80645E+05 0.45186E-56 0.34244E-67 0.40784E-65 - 2 2 0.50593E-09 0.10000E+01 0.65036E+05 0.38615E-55 0.54575E-66 0.34590E-64 - 2 2 0.50593E-09 0.10000E+01 0.52449E+05 0.32979E-54 0.73583E-65 0.29392E-63 - 2 2 0.50593E-09 0.10000E+01 0.42297E+05 0.24878E-53 0.99119E-64 0.22015E-62 - 2 2 0.50593E-09 0.10000E+01 0.34111E+05 0.17824E-52 0.13069E-62 0.15625E-61 - 2 2 0.50593E-09 0.10000E+01 0.27509E+05 0.12426E-51 0.16812E-61 0.10751E-60 - 2 2 0.50593E-09 0.10000E+01 0.22184E+05 0.85693E-51 0.25655E-60 0.70994E-60 - 2 2 0.50593E-09 0.10000E+01 0.17891E+05 0.67513E-50 0.59316E-59 0.48268E-59 - 2 2 0.50593E-09 0.10000E+01 0.14428E+05 0.75142E-49 0.17367E-57 0.42746E-58 - 2 2 0.50593E-09 0.10000E+01 0.11635E+05 0.10888E-47 0.51671E-56 0.54801E-57 - 2 2 0.50593E-09 0.10000E+01 0.93834E+04 0.16748E-46 0.14936E-54 0.82467E-56 - 2 2 0.50593E-09 0.10000E+01 0.75673E+04 0.25395E-45 0.42250E-53 0.12546E-54 - 2 2 0.50593E-09 0.10000E+01 0.61026E+04 0.37748E-44 0.11795E-51 0.18729E-53 - 2 2 0.50593E-09 0.10000E+01 0.49215E+04 0.55345E-43 0.32647E-50 0.27529E-52 - 2 2 0.50593E-09 0.10000E+01 0.39689E+04 0.80410E-42 0.89805E-49 0.40065E-51 - 2 2 0.50593E-09 0.10000E+01 0.32008E+04 0.36521E-39 0.79582E-46 0.18226E-48 - 2 2 0.50593E-09 0.10000E+01 0.25813E+04 0.27367E-30 0.13646E-36 0.13683E-39 - 2 2 0.50593E-09 0.10000E+01 0.20817E+04 0.53288E-14 0.11836E-19 0.26712E-23 + 2 2 0.50593E-09 0.10000E+01 0.80645E+05 0.30314E-13 0.19324E-24 0.27493E-22 + 2 2 0.50593E-09 0.10000E+01 0.65036E+05 0.38950E-13 0.45557E-24 0.35231E-22 + 2 2 0.50593E-09 0.10000E+01 0.52449E+05 0.49365E-13 0.11934E-23 0.44463E-22 + 2 2 0.50593E-09 0.10000E+01 0.42297E+05 0.62122E-13 0.38826E-23 0.55494E-22 + 2 2 0.50593E-09 0.10000E+01 0.34111E+05 0.78600E-13 0.15754E-22 0.68961E-22 + 2 2 0.50593E-09 0.10000E+01 0.27509E+05 0.10260E-12 0.71942E-22 0.86608E-22 + 2 2 0.50593E-09 0.10000E+01 0.22184E+05 0.14447E-12 0.34003E-21 0.11333E-21 + 2 2 0.50593E-09 0.10000E+01 0.17891E+05 0.23107E-12 0.16084E-20 0.16221E-21 + 2 2 0.50593E-09 0.10000E+01 0.14428E+05 0.42999E-12 0.75520E-20 0.26659E-21 + 2 2 0.50593E-09 0.10000E+01 0.11635E+05 0.90802E-12 0.35190E-19 0.50934E-21 + 2 2 0.50593E-09 0.10000E+01 0.93834E+04 0.20722E-11 0.16287E-18 0.10933E-20 + 2 2 0.50593E-09 0.10000E+01 0.75673E+04 0.49081E-11 0.74783E-18 0.25109E-20 + 2 2 0.50593E-09 0.10000E+01 0.61026E+04 0.11784E-10 0.33893E-17 0.59468E-20 + 2 2 0.50593E-09 0.10000E+01 0.49215E+04 0.28311E-10 0.15050E-16 0.14212E-19 + 2 2 0.50593E-09 0.10000E+01 0.39689E+04 0.67496E-10 0.65151E-16 0.33833E-19 + 2 2 0.50593E-09 0.10000E+01 0.32008E+04 0.15867E-09 0.27476E-15 0.79534E-19 + 2 2 0.50593E-09 0.10000E+01 0.25813E+04 0.36614E-09 0.11296E-14 0.18363E-18 + 2 2 0.50593E-09 0.10000E+01 0.20817E+04 0.82718E-09 0.45231E-14 0.41511E-18 2 2 0.50593E-09 0.10000E+01 0.16788E+04 0.18269E-08 0.17631E-13 0.91739E-18 2 2 0.50593E-09 0.10000E+01 0.13538E+04 0.39414E-08 0.67053E-13 0.19802E-17 2 2 0.50593E-09 0.10000E+01 0.10918E+04 0.83047E-08 0.25019E-12 0.41740E-17 @@ -8580,24 +8580,24 @@ VERSION 2.8.2 2 2 0.50593E-09 0.10000E+01 0.24221E+03 0.83098E-06 0.76683E-09 0.41795E-15 2 2 0.50593E-09 0.10000E+01 0.19533E+03 0.13097E-05 0.14572E-08 0.65874E-15 2 2 0.50593E-09 0.10000E+01 0.15752E+03 0.13097E-05 0.14572E-08 0.65874E-15 - 2 2 0.88282E-09 0.10000E+01 0.80645E+05 0.94532E-56 0.70698E-67 0.16539E-64 - 2 2 0.88282E-09 0.10000E+01 0.65036E+05 0.79934E-55 0.11199E-65 0.13885E-63 - 2 2 0.88282E-09 0.10000E+01 0.52449E+05 0.67767E-54 0.14902E-64 0.11707E-62 - 2 2 0.88282E-09 0.10000E+01 0.42297E+05 0.50576E-53 0.19741E-63 0.86627E-62 - 2 2 0.88282E-09 0.10000E+01 0.34111E+05 0.35710E-52 0.25553E-62 0.60391E-61 - 2 2 0.88282E-09 0.10000E+01 0.27509E+05 0.24429E-51 0.31158E-61 0.40660E-60 - 2 2 0.88282E-09 0.10000E+01 0.22184E+05 0.16030E-50 0.39106E-60 0.26006E-59 - 2 2 0.88282E-09 0.10000E+01 0.17891E+05 0.10753E-49 0.68321E-59 0.16279E-58 - 2 2 0.88282E-09 0.10000E+01 0.14428E+05 0.92304E-49 0.17749E-57 0.11971E-57 - 2 2 0.88282E-09 0.10000E+01 0.11635E+05 0.11453E-47 0.51854E-56 0.12705E-56 - 2 2 0.88282E-09 0.10000E+01 0.93834E+04 0.16913E-46 0.14961E-54 0.17315E-55 - 2 2 0.88282E-09 0.10000E+01 0.75673E+04 0.25451E-45 0.42198E-53 0.24989E-54 - 2 2 0.88282E-09 0.10000E+01 0.61026E+04 0.37703E-44 0.11740E-51 0.35917E-53 - 2 2 0.88282E-09 0.10000E+01 0.49215E+04 0.55101E-43 0.32412E-50 0.51243E-52 - 2 2 0.88282E-09 0.10000E+01 0.39689E+04 0.79854E-42 0.89034E-49 0.72913E-51 - 2 2 0.88282E-09 0.10000E+01 0.32008E+04 0.36217E-39 0.78871E-46 0.32633E-48 - 2 2 0.88282E-09 0.10000E+01 0.25813E+04 0.27130E-30 0.13531E-36 0.24219E-39 - 2 2 0.88282E-09 0.10000E+01 0.20817E+04 0.52867E-14 0.11751E-19 0.46868E-23 + 2 2 0.88282E-09 0.10000E+01 0.80645E+05 0.63833E-13 0.38386E-24 0.11214E-21 + 2 2 0.88282E-09 0.10000E+01 0.65036E+05 0.81715E-13 0.85935E-24 0.14319E-21 + 2 2 0.88282E-09 0.10000E+01 0.52449E+05 0.10298E-12 0.19940E-23 0.17982E-21 + 2 2 0.88282E-09 0.10000E+01 0.42297E+05 0.12828E-12 0.53471E-23 0.22277E-21 + 2 2 0.88282E-09 0.10000E+01 0.34111E+05 0.15892E-12 0.18218E-22 0.27330E-21 + 2 2 0.88282E-09 0.10000E+01 0.27509E+05 0.19841E-12 0.75769E-22 0.33462E-21 + 2 2 0.88282E-09 0.10000E+01 0.22184E+05 0.25664E-12 0.34522E-21 0.41592E-21 + 2 2 0.88282E-09 0.10000E+01 0.17891E+05 0.35988E-12 0.16112E-20 0.54173E-21 + 2 2 0.88282E-09 0.10000E+01 0.14428E+05 0.57493E-12 0.75229E-20 0.77403E-21 + 2 2 0.88282E-09 0.10000E+01 0.11635E+05 0.10672E-11 0.34958E-19 0.12643E-20 + 2 2 0.88282E-09 0.10000E+01 0.93834E+04 0.22401E-11 0.16158E-18 0.23780E-20 + 2 2 0.88282E-09 0.10000E+01 0.75673E+04 0.50709E-11 0.74159E-18 0.49908E-20 + 2 2 0.88282E-09 0.10000E+01 0.61026E+04 0.11907E-10 0.33613E-17 0.11192E-19 + 2 2 0.88282E-09 0.10000E+01 0.49215E+04 0.28312E-10 0.14930E-16 0.25914E-19 + 2 2 0.88282E-09 0.10000E+01 0.39689E+04 0.67191E-10 0.64654E-16 0.60560E-19 + 2 2 0.88282E-09 0.10000E+01 0.32008E+04 0.15765E-09 0.27276E-15 0.14081E-18 + 2 2 0.88282E-09 0.10000E+01 0.25813E+04 0.36354E-09 0.11217E-14 0.32293E-18 + 2 2 0.88282E-09 0.10000E+01 0.20817E+04 0.82119E-09 0.44925E-14 0.72697E-18 2 2 0.88282E-09 0.10000E+01 0.16788E+04 0.18138E-08 0.17514E-13 0.16023E-17 2 2 0.88282E-09 0.10000E+01 0.13538E+04 0.39137E-08 0.66612E-13 0.34523E-17 2 2 0.88282E-09 0.10000E+01 0.10918E+04 0.82476E-08 0.24854E-12 0.72682E-17 @@ -8610,24 +8610,24 @@ VERSION 2.8.2 2 2 0.88282E-09 0.10000E+01 0.24221E+03 0.82539E-06 0.76161E-09 0.72575E-15 2 2 0.88282E-09 0.10000E+01 0.19533E+03 0.13009E-05 0.14473E-08 0.11438E-14 2 2 0.88282E-09 0.10000E+01 0.15752E+03 0.13009E-05 0.14473E-08 0.11438E-14 - 2 2 0.15405E-08 0.10000E+01 0.80645E+05 0.19793E-55 0.14661E-66 0.68500E-64 - 2 2 0.15405E-08 0.10000E+01 0.65036E+05 0.16608E-54 0.23109E-65 0.57290E-63 - 2 2 0.15405E-08 0.10000E+01 0.52449E+05 0.13999E-53 0.30403E-64 0.48172E-62 - 2 2 0.15405E-08 0.10000E+01 0.42297E+05 0.10352E-52 0.39635E-63 0.35491E-61 - 2 2 0.15405E-08 0.10000E+01 0.34111E+05 0.72101E-52 0.50398E-62 0.24596E-60 - 2 2 0.15405E-08 0.10000E+01 0.27509E+05 0.48506E-51 0.59835E-61 0.16464E-59 - 2 2 0.15405E-08 0.10000E+01 0.22184E+05 0.31032E-50 0.69333E-60 0.10457E-58 - 2 2 0.15405E-08 0.10000E+01 0.17891E+05 0.19456E-49 0.10108E-58 0.63464E-58 - 2 2 0.15405E-08 0.10000E+01 0.14428E+05 0.14275E-48 0.22523E-57 0.41471E-57 - 2 2 0.15405E-08 0.10000E+01 0.11635E+05 0.14989E-47 0.61293E-56 0.36284E-56 - 2 2 0.15405E-08 0.10000E+01 0.93834E+04 0.20204E-46 0.16954E-54 0.42937E-55 - 2 2 0.15405E-08 0.10000E+01 0.75673E+04 0.28948E-45 0.46219E-53 0.57127E-54 - 2 2 0.15405E-08 0.10000E+01 0.61026E+04 0.41400E-44 0.12506E-51 0.77345E-53 - 2 2 0.15405E-08 0.10000E+01 0.49215E+04 0.58832E-43 0.33802E-50 0.10482E-51 - 2 2 0.15405E-08 0.10000E+01 0.39689E+04 0.83444E-42 0.91452E-49 0.14278E-50 - 2 2 0.15405E-08 0.10000E+01 0.32008E+04 0.37251E-39 0.80144E-46 0.61701E-48 - 2 2 0.15405E-08 0.10000E+01 0.25813E+04 0.27587E-30 0.13636E-36 0.44537E-39 - 2 2 0.15405E-08 0.10000E+01 0.20817E+04 0.53282E-14 0.11760E-19 0.84161E-23 + 2 2 0.15405E-08 0.10000E+01 0.80645E+05 0.13424E-12 0.77367E-24 0.46547E-21 + 2 2 0.15405E-08 0.10000E+01 0.65036E+05 0.17139E-12 0.16901E-23 0.59365E-21 + 2 2 0.15405E-08 0.10000E+01 0.52449E+05 0.21518E-12 0.37081E-23 0.74429E-21 + 2 2 0.15405E-08 0.10000E+01 0.42297E+05 0.26653E-12 0.88609E-23 0.91985E-21 + 2 2 0.15405E-08 0.10000E+01 0.34111E+05 0.32689E-12 0.25819E-22 0.11233E-20 + 2 2 0.15405E-08 0.10000E+01 0.27509E+05 0.40001E-12 0.94358E-22 0.13612E-20 + 2 2 0.15405E-08 0.10000E+01 0.22184E+05 0.49651E-12 0.39739E-21 0.16526E-20 + 2 2 0.15405E-08 0.10000E+01 0.17891E+05 0.64468E-12 0.17706E-20 0.20482E-20 + 2 2 0.15405E-08 0.10000E+01 0.14428E+05 0.91571E-12 0.80216E-20 0.26738E-20 + 2 2 0.15405E-08 0.10000E+01 0.11635E+05 0.14832E-11 0.36498E-19 0.38285E-20 + 2 2 0.15405E-08 0.10000E+01 0.93834E+04 0.27644E-11 0.16620E-18 0.62112E-20 + 2 2 0.15405E-08 0.10000E+01 0.75673E+04 0.57581E-11 0.75491E-18 0.11453E-19 + 2 2 0.15405E-08 0.10000E+01 0.61026E+04 0.12843E-10 0.33980E-17 0.23363E-19 + 2 2 0.15405E-08 0.10000E+01 0.49215E+04 0.29625E-10 0.15024E-16 0.50800E-19 + 2 2 0.15405E-08 0.10000E+01 0.39689E+04 0.69062E-10 0.64866E-16 0.11404E-18 + 2 2 0.15405E-08 0.10000E+01 0.32008E+04 0.16031E-09 0.27310E-15 0.25844E-18 + 2 2 0.15405E-08 0.10000E+01 0.25813E+04 0.36722E-09 0.11216E-14 0.58290E-18 + 2 2 0.15405E-08 0.10000E+01 0.20817E+04 0.82600E-09 0.44881E-14 0.12978E-17 2 2 0.15405E-08 0.10000E+01 0.16788E+04 0.18194E-08 0.17486E-13 0.28390E-17 2 2 0.15405E-08 0.10000E+01 0.13538E+04 0.39186E-08 0.66475E-13 0.60857E-17 2 2 0.15405E-08 0.10000E+01 0.10918E+04 0.82476E-08 0.24794E-12 0.12767E-16 @@ -8640,24 +8640,24 @@ VERSION 2.8.2 2 2 0.15405E-08 0.10000E+01 0.24221E+03 0.82303E-06 0.75921E-09 0.12646E-14 2 2 0.15405E-08 0.10000E+01 0.19533E+03 0.12971E-05 0.14427E-08 0.19927E-14 2 2 0.15405E-08 0.10000E+01 0.15752E+03 0.12971E-05 0.14427E-08 0.19927E-14 - 2 2 0.26880E-08 0.10000E+01 0.80645E+05 0.43598E-55 0.32366E-66 0.84405E-63 - 2 2 0.26880E-08 0.10000E+01 0.65036E+05 0.36651E-54 0.51130E-65 0.71110E-62 - 2 2 0.26880E-08 0.10000E+01 0.52449E+05 0.30963E-53 0.67715E-64 0.60200E-61 - 2 2 0.26880E-08 0.10000E+01 0.42297E+05 0.23022E-52 0.89624E-63 0.44941E-60 - 2 2 0.26880E-08 0.10000E+01 0.34111E+05 0.16241E-51 0.11785E-61 0.31947E-59 - 2 2 0.26880E-08 0.10000E+01 0.27509E+05 0.11235E-50 0.14926E-60 0.22383E-58 - 2 2 0.26880E-08 0.10000E+01 0.22184E+05 0.75589E-50 0.18377E-59 0.15308E-57 - 2 2 0.26880E-08 0.10000E+01 0.17891E+05 0.49671E-49 0.23874E-58 0.10061E-56 - 2 2 0.26880E-08 0.10000E+01 0.14428E+05 0.33775E-48 0.37998E-57 0.63149E-56 - 2 2 0.26880E-08 0.10000E+01 0.11635E+05 0.26889E-47 0.78924E-56 0.38403E-55 - 2 2 0.26880E-08 0.10000E+01 0.93834E+04 0.27442E-46 0.19477E-54 0.23999E-54 - 2 2 0.26880E-08 0.10000E+01 0.75673E+04 0.34085E-45 0.51259E-53 0.17687E-53 - 2 2 0.26880E-08 0.10000E+01 0.61026E+04 0.46273E-44 0.13673E-51 0.17518E-52 - 2 2 0.26880E-08 0.10000E+01 0.49215E+04 0.64436E-43 0.36484E-50 0.21741E-51 - 2 2 0.26880E-08 0.10000E+01 0.39689E+04 0.90126E-42 0.97377E-49 0.29081E-50 - 2 2 0.26880E-08 0.10000E+01 0.32008E+04 0.39683E-39 0.84193E-46 0.12318E-47 - 2 2 0.26880E-08 0.10000E+01 0.25813E+04 0.28970E-30 0.14126E-36 0.85918E-39 - 2 2 0.26880E-08 0.10000E+01 0.20817E+04 0.55090E-14 0.11997E-19 0.15526E-22 + 2 2 0.26880E-08 0.10000E+01 0.80645E+05 0.29561E-12 0.17632E-23 0.57178E-20 + 2 2 0.26880E-08 0.10000E+01 0.65036E+05 0.37799E-12 0.39391E-23 0.73193E-20 + 2 2 0.26880E-08 0.10000E+01 0.52449E+05 0.47584E-12 0.87160E-23 0.92284E-20 + 2 2 0.26880E-08 0.10000E+01 0.42297E+05 0.59163E-12 0.19714E-22 0.11494E-19 + 2 2 0.26880E-08 0.10000E+01 0.34111E+05 0.72836E-12 0.48747E-22 0.14162E-19 + 2 2 0.26880E-08 0.10000E+01 0.27509E+05 0.89108E-12 0.14275E-21 0.17266E-19 + 2 2 0.26880E-08 0.10000E+01 0.22184E+05 0.10915E-11 0.50596E-21 0.20838E-19 + 2 2 0.26880E-08 0.10000E+01 0.17891E+05 0.13595E-11 0.20515E-20 0.24934E-19 + 2 2 0.26880E-08 0.10000E+01 0.14428E+05 0.17704E-11 0.88825E-20 0.29726E-19 + 2 2 0.26880E-08 0.10000E+01 0.11635E+05 0.25088E-11 0.39452E-19 0.35704E-19 + 2 2 0.26880E-08 0.10000E+01 0.93834E+04 0.40179E-11 0.17677E-18 0.44145E-19 + 2 2 0.26880E-08 0.10000E+01 0.75673E+04 0.73504E-11 0.79294E-18 0.58136E-19 + 2 2 0.26880E-08 0.10000E+01 0.61026E+04 0.14991E-10 0.35334E-17 0.84857E-19 + 2 2 0.26880E-08 0.10000E+01 0.49215E+04 0.32747E-10 0.15501E-16 0.14069E-18 + 2 2 0.26880E-08 0.10000E+01 0.39689E+04 0.73940E-10 0.66532E-16 0.26237E-18 + 2 2 0.26880E-08 0.10000E+01 0.32008E+04 0.16840E-09 0.27889E-15 0.53052E-18 + 2 2 0.26880E-08 0.10000E+01 0.25813E+04 0.38118E-09 0.11417E-14 0.11185E-17 + 2 2 0.26880E-08 0.10000E+01 0.20817E+04 0.85069E-09 0.45581E-14 0.23912E-17 2 2 0.26880E-08 0.10000E+01 0.16788E+04 0.18637E-08 0.17730E-13 0.50991E-17 2 2 0.26880E-08 0.10000E+01 0.13538E+04 0.39987E-08 0.67336E-13 0.10748E-16 2 2 0.26880E-08 0.10000E+01 0.10918E+04 0.83933E-08 0.25099E-12 0.22288E-16 @@ -8670,24 +8670,24 @@ VERSION 2.8.2 2 2 0.26880E-08 0.10000E+01 0.24221E+03 0.83268E-06 0.76781E-09 0.21469E-14 2 2 0.26880E-08 0.10000E+01 0.19533E+03 0.13122E-05 0.14591E-08 0.33804E-14 2 2 0.26880E-08 0.10000E+01 0.15752E+03 0.13122E-05 0.14591E-08 0.33804E-14 - 2 2 0.46905E-08 0.10000E+01 0.80645E+05 0.80826E-55 0.60080E-66 0.25172E-62 - 2 2 0.46905E-08 0.10000E+01 0.65036E+05 0.68017E-54 0.94997E-65 0.21231E-61 - 2 2 0.46905E-08 0.10000E+01 0.52449E+05 0.57519E-53 0.12611E-63 0.17992E-60 - 2 2 0.46905E-08 0.10000E+01 0.42297E+05 0.42849E-52 0.16763E-62 0.13457E-59 - 2 2 0.46905E-08 0.10000E+01 0.34111E+05 0.30338E-51 0.22199E-61 0.96000E-59 - 2 2 0.46905E-08 0.10000E+01 0.27509E+05 0.21113E-50 0.28375E-60 0.67667E-58 - 2 2 0.46905E-08 0.10000E+01 0.22184E+05 0.14310E-49 0.34841E-59 0.46746E-57 - 2 2 0.46905E-08 0.10000E+01 0.17891E+05 0.93846E-49 0.42679E-58 0.31204E-56 - 2 2 0.46905E-08 0.10000E+01 0.14428E+05 0.61020E-48 0.57873E-57 0.19957E-55 - 2 2 0.46905E-08 0.10000E+01 0.11635E+05 0.42573E-47 0.98364E-56 0.12250E-54 - 2 2 0.46905E-08 0.10000E+01 0.93834E+04 0.35867E-46 0.21362E-54 0.73662E-54 - 2 2 0.46905E-08 0.10000E+01 0.75673E+04 0.38505E-45 0.53629E-53 0.46997E-53 - 2 2 0.46905E-08 0.10000E+01 0.61026E+04 0.48978E-44 0.14126E-51 0.37875E-52 - 2 2 0.46905E-08 0.10000E+01 0.49215E+04 0.66774E-43 0.37469E-50 0.41846E-51 - 2 2 0.46905E-08 0.10000E+01 0.39689E+04 0.92611E-42 0.99357E-49 0.54566E-50 - 2 2 0.46905E-08 0.10000E+01 0.32008E+04 0.40497E-39 0.85304E-46 0.23044E-47 - 2 2 0.46905E-08 0.10000E+01 0.25813E+04 0.29349E-30 0.14209E-36 0.15921E-38 - 2 2 0.46905E-08 0.10000E+01 0.20817E+04 0.55387E-14 0.11974E-19 0.28226E-22 + 2 2 0.46905E-08 0.10000E+01 0.80645E+05 0.54779E-12 0.32975E-23 0.17043E-19 + 2 2 0.46905E-08 0.10000E+01 0.65036E+05 0.70082E-12 0.73846E-23 0.21829E-19 + 2 2 0.46905E-08 0.10000E+01 0.52449E+05 0.88287E-12 0.16242E-22 0.27547E-19 + 2 2 0.46905E-08 0.10000E+01 0.42297E+05 0.10986E-11 0.35580E-22 0.34356E-19 + 2 2 0.46905E-08 0.10000E+01 0.34111E+05 0.13527E-11 0.80849E-22 0.42408E-19 + 2 2 0.46905E-08 0.10000E+01 0.27509E+05 0.16513E-11 0.20516E-21 0.51824E-19 + 2 2 0.46905E-08 0.10000E+01 0.22184E+05 0.20062E-11 0.62476E-21 0.62690E-19 + 2 2 0.46905E-08 0.10000E+01 0.17891E+05 0.24459E-11 0.22849E-20 0.75093E-19 + 2 2 0.46905E-08 0.10000E+01 0.14428E+05 0.30445E-11 0.93958E-20 0.89270E-19 + 2 2 0.46905E-08 0.10000E+01 0.11635E+05 0.39864E-11 0.40772E-19 0.10599E-18 + 2 2 0.46905E-08 0.10000E+01 0.93834E+04 0.57192E-11 0.18053E-18 0.12746E-18 + 2 2 0.46905E-08 0.10000E+01 0.75673E+04 0.93077E-11 0.80373E-18 0.15921E-18 + 2 2 0.46905E-08 0.10000E+01 0.61026E+04 0.17260E-10 0.35620E-17 0.21432E-18 + 2 2 0.46905E-08 0.10000E+01 0.49215E+04 0.35413E-10 0.15563E-16 0.32250E-18 + 2 2 0.46905E-08 0.10000E+01 0.39689E+04 0.77120E-10 0.66590E-16 0.54980E-18 + 2 2 0.46905E-08 0.10000E+01 0.32008E+04 0.17219E-09 0.27850E-15 0.10397E-17 + 2 2 0.46905E-08 0.10000E+01 0.25813E+04 0.38552E-09 0.11382E-14 0.20980E-17 + 2 2 0.46905E-08 0.10000E+01 0.20817E+04 0.85495E-09 0.45390E-14 0.43634E-17 2 2 0.46905E-08 0.10000E+01 0.16788E+04 0.18659E-08 0.17641E-13 0.91433E-17 2 2 0.46905E-08 0.10000E+01 0.13538E+04 0.39935E-08 0.66952E-13 0.19050E-16 2 2 0.46905E-08 0.10000E+01 0.10918E+04 0.83684E-08 0.24944E-12 0.39189E-16 @@ -8700,24 +8700,24 @@ VERSION 2.8.2 2 2 0.46905E-08 0.10000E+01 0.24221E+03 0.82692E-06 0.76216E-09 0.37026E-14 2 2 0.46905E-08 0.10000E+01 0.19533E+03 0.13029E-05 0.14483E-08 0.58266E-14 2 2 0.46905E-08 0.10000E+01 0.15752E+03 0.13029E-05 0.14483E-08 0.58266E-14 - 2 2 0.81846E-08 0.10000E+01 0.80645E+05 0.14883E-54 0.11078E-65 0.76483E-62 - 2 2 0.81846E-08 0.10000E+01 0.65036E+05 0.12539E-53 0.17534E-64 0.64566E-61 - 2 2 0.81846E-08 0.10000E+01 0.52449E+05 0.10615E-52 0.23333E-63 0.54758E-60 - 2 2 0.81846E-08 0.10000E+01 0.42297E+05 0.79232E-52 0.31152E-62 0.41015E-59 - 2 2 0.81846E-08 0.10000E+01 0.34111E+05 0.56308E-51 0.41560E-61 0.29335E-58 - 2 2 0.81846E-08 0.10000E+01 0.27509E+05 0.39437E-50 0.53731E-60 0.20769E-57 - 2 2 0.81846E-08 0.10000E+01 0.22184E+05 0.26984E-49 0.66636E-59 0.14455E-56 - 2 2 0.81846E-08 0.10000E+01 0.17891E+05 0.17844E-48 0.80345E-58 0.97644E-56 - 2 2 0.81846E-08 0.10000E+01 0.14428E+05 0.11479E-47 0.99569E-57 0.63500E-55 - 2 2 0.81846E-08 0.10000E+01 0.11635E+05 0.74742E-47 0.14067E-55 0.39648E-54 - 2 2 0.81846E-08 0.10000E+01 0.93834E+04 0.53735E-46 0.25282E-54 0.23820E-53 - 2 2 0.81846E-08 0.10000E+01 0.75673E+04 0.47717E-45 0.57551E-53 0.14184E-52 - 2 2 0.81846E-08 0.10000E+01 0.61026E+04 0.53854E-44 0.14751E-51 0.95360E-52 - 2 2 0.81846E-08 0.10000E+01 0.49215E+04 0.70269E-43 0.38879E-50 0.88176E-51 - 2 2 0.81846E-08 0.10000E+01 0.39689E+04 0.96226E-42 0.10248E-48 0.10776E-49 - 2 2 0.81846E-08 0.10000E+01 0.32008E+04 0.41772E-39 0.87259E-46 0.45019E-47 - 2 2 0.81846E-08 0.10000E+01 0.25813E+04 0.30003E-30 0.14386E-36 0.30739E-38 - 2 2 0.81846E-08 0.10000E+01 0.20817E+04 0.56020E-14 0.11972E-19 0.53129E-22 + 2 2 0.81846E-08 0.10000E+01 0.80645E+05 0.10082E-11 0.61318E-23 0.51765E-19 + 2 2 0.81846E-08 0.10000E+01 0.65036E+05 0.12906E-11 0.13800E-22 0.66329E-19 + 2 2 0.81846E-08 0.10000E+01 0.52449E+05 0.16272E-11 0.30427E-22 0.83759E-19 + 2 2 0.81846E-08 0.10000E+01 0.42297E+05 0.20270E-11 0.65983E-22 0.10457E-18 + 2 2 0.81846E-08 0.10000E+01 0.34111E+05 0.24988E-11 0.14358E-21 0.12927E-18 + 2 2 0.81846E-08 0.10000E+01 0.27509E+05 0.30515E-11 0.32918E-21 0.15828E-18 + 2 2 0.81846E-08 0.10000E+01 0.22184E+05 0.36977E-11 0.86107E-21 0.19192E-18 + 2 2 0.81846E-08 0.10000E+01 0.17891E+05 0.44647E-11 0.27337E-20 0.23036E-18 + 2 2 0.81846E-08 0.10000E+01 0.14428E+05 0.54230E-11 0.10315E-19 0.27392E-18 + 2 2 0.81846E-08 0.10000E+01 0.11635E+05 0.67548E-11 0.42981E-19 0.32372E-18 + 2 2 0.81846E-08 0.10000E+01 0.93834E+04 0.89109E-11 0.18676E-18 0.38352E-18 + 2 2 0.81846E-08 0.10000E+01 0.75673E+04 0.12973E-10 0.82245E-18 0.46343E-18 + 2 2 0.81846E-08 0.10000E+01 0.61026E+04 0.21488E-10 0.36165E-17 0.58788E-18 + 2 2 0.81846E-08 0.10000E+01 0.49215E+04 0.40358E-10 0.15705E-16 0.81247E-18 + 2 2 0.81846E-08 0.10000E+01 0.39689E+04 0.83022E-10 0.66879E-16 0.12592E-17 + 2 2 0.81846E-08 0.10000E+01 0.32008E+04 0.17935E-09 0.27869E-15 0.21890E-17 + 2 2 0.81846E-08 0.10000E+01 0.25813E+04 0.39418E-09 0.11358E-14 0.41501E-17 + 2 2 0.81846E-08 0.10000E+01 0.20817E+04 0.86484E-09 0.45205E-14 0.82740E-17 2 2 0.81846E-08 0.10000E+01 0.16788E+04 0.18752E-08 0.17543E-13 0.16856E-16 2 2 0.81846E-08 0.10000E+01 0.13538E+04 0.39968E-08 0.66508E-13 0.34451E-16 2 2 0.81846E-08 0.10000E+01 0.10918E+04 0.83517E-08 0.24757E-12 0.69918E-16 @@ -8730,24 +8730,24 @@ VERSION 2.8.2 2 2 0.81846E-08 0.10000E+01 0.24221E+03 0.81978E-06 0.75504E-09 0.63903E-14 2 2 0.81846E-08 0.10000E+01 0.19533E+03 0.12914E-05 0.14347E-08 0.10047E-13 2 2 0.81846E-08 0.10000E+01 0.15752E+03 0.12914E-05 0.14347E-08 0.10047E-13 - 2 2 0.14282E-07 0.10000E+01 0.80645E+05 0.27285E-54 0.20336E-65 0.23577E-61 - 2 2 0.14282E-07 0.10000E+01 0.65036E+05 0.23011E-53 0.32213E-64 0.19916E-60 - 2 2 0.14282E-07 0.10000E+01 0.52449E+05 0.19498E-52 0.42960E-63 0.16901E-59 - 2 2 0.14282E-07 0.10000E+01 0.42297E+05 0.14580E-51 0.57576E-62 0.12672E-58 - 2 2 0.14282E-07 0.10000E+01 0.34111E+05 0.10395E-50 0.77302E-61 0.90811E-58 - 2 2 0.14282E-07 0.10000E+01 0.27509E+05 0.73212E-50 0.10097E-59 0.64500E-57 - 2 2 0.14282E-07 0.10000E+01 0.22184E+05 0.50533E-49 0.12685E-58 0.45133E-56 - 2 2 0.14282E-07 0.10000E+01 0.17891E+05 0.33780E-48 0.15360E-57 0.30758E-55 - 2 2 0.14282E-07 0.10000E+01 0.14428E+05 0.21833E-47 0.18390E-56 0.20268E-54 - 2 2 0.14282E-07 0.10000E+01 0.11635E+05 0.13873E-46 0.23059E-55 0.12870E-53 - 2 2 0.14282E-07 0.10000E+01 0.93834E+04 0.90746E-46 0.33890E-54 0.78387E-53 - 2 2 0.14282E-07 0.10000E+01 0.75673E+04 0.67394E-45 0.65435E-53 0.45884E-52 - 2 2 0.14282E-07 0.10000E+01 0.61026E+04 0.63849E-44 0.15764E-51 0.27644E-51 - 2 2 0.14282E-07 0.10000E+01 0.49215E+04 0.76409E-43 0.41073E-50 0.21122E-50 - 2 2 0.14282E-07 0.10000E+01 0.39689E+04 0.10204E-41 0.10771E-48 0.23026E-49 - 2 2 0.14282E-07 0.10000E+01 0.32008E+04 0.43906E-39 0.90850E-46 0.93591E-47 - 2 2 0.14282E-07 0.10000E+01 0.25813E+04 0.31202E-30 0.14764E-36 0.62949E-38 - 2 2 0.14282E-07 0.10000E+01 0.20817E+04 0.57402E-14 0.12042E-19 0.10549E-21 + 2 2 0.14282E-07 0.10000E+01 0.80645E+05 0.18475E-11 0.11341E-22 0.15952E-18 + 2 2 0.14282E-07 0.10000E+01 0.65036E+05 0.23662E-11 0.25658E-22 0.20447E-18 + 2 2 0.14282E-07 0.10000E+01 0.52449E+05 0.29857E-11 0.56876E-22 0.25833E-18 + 2 2 0.14282E-07 0.10000E+01 0.42297E+05 0.37234E-11 0.12341E-21 0.32276E-18 + 2 2 0.14282E-07 0.10000E+01 0.34111E+05 0.45964E-11 0.26415E-21 0.39945E-18 + 2 2 0.14282E-07 0.10000E+01 0.27509E+05 0.56203E-11 0.57230E-21 0.48990E-18 + 2 2 0.14282E-07 0.10000E+01 0.22184E+05 0.68115E-11 0.13315E-20 0.59523E-18 + 2 2 0.14282E-07 0.10000E+01 0.17891E+05 0.81963E-11 0.36248E-20 0.71607E-18 + 2 2 0.14282E-07 0.10000E+01 0.14428E+05 0.98404E-11 0.12077E-19 0.85280E-18 + 2 2 0.14282E-07 0.10000E+01 0.11635E+05 0.11920E-10 0.47010E-19 0.10070E-17 + 2 2 0.14282E-07 0.10000E+01 0.93834E+04 0.14887E-10 0.19790E-18 0.11849E-17 + 2 2 0.14282E-07 0.10000E+01 0.75673E+04 0.19850E-10 0.85707E-18 0.14055E-17 + 2 2 0.14282E-07 0.10000E+01 0.61026E+04 0.29424E-10 0.37259E-17 0.17164E-17 + 2 2 0.14282E-07 0.10000E+01 0.49215E+04 0.49651E-10 0.16033E-16 0.22263E-17 + 2 2 0.14282E-07 0.10000E+01 0.39689E+04 0.94192E-10 0.67767E-16 0.31701E-17 + 2 2 0.14282E-07 0.10000E+01 0.32008E+04 0.19322E-09 0.28071E-15 0.50400E-17 + 2 2 0.14282E-07 0.10000E+01 0.25813E+04 0.41183E-09 0.11389E-14 0.88469E-17 + 2 2 0.14282E-07 0.10000E+01 0.20817E+04 0.88742E-09 0.45170E-14 0.16638E-16 2 2 0.14282E-07 0.10000E+01 0.16788E+04 0.19031E-08 0.17485E-13 0.32501E-16 2 2 0.14282E-07 0.10000E+01 0.13538E+04 0.40273E-08 0.66164E-13 0.64463E-16 2 2 0.14282E-07 0.10000E+01 0.10918E+04 0.83752E-08 0.24594E-12 0.12800E-15 @@ -8760,24 +8760,24 @@ VERSION 2.8.2 2 2 0.14282E-07 0.10000E+01 0.24221E+03 0.81285E-06 0.74777E-09 0.11062E-13 2 2 0.14282E-07 0.10000E+01 0.19533E+03 0.12801E-05 0.14208E-08 0.17366E-13 2 2 0.14282E-07 0.10000E+01 0.15752E+03 0.12801E-05 0.14208E-08 0.17366E-13 - 2 2 0.24920E-07 0.10000E+01 0.80645E+05 0.49850E-54 0.37192E-65 0.73393E-61 - 2 2 0.24920E-07 0.10000E+01 0.65036E+05 0.42076E-53 0.58954E-64 0.62028E-60 - 2 2 0.24920E-07 0.10000E+01 0.52449E+05 0.35680E-52 0.78761E-63 0.52660E-59 - 2 2 0.24920E-07 0.10000E+01 0.42297E+05 0.26718E-51 0.10588E-61 0.39517E-58 - 2 2 0.24920E-07 0.10000E+01 0.34111E+05 0.19100E-50 0.14288E-60 0.28359E-57 - 2 2 0.24920E-07 0.10000E+01 0.27509E+05 0.13511E-49 0.18819E-59 0.20191E-56 - 2 2 0.24920E-07 0.10000E+01 0.22184E+05 0.93927E-49 0.23924E-58 0.14185E-55 - 2 2 0.24920E-07 0.10000E+01 0.17891E+05 0.63422E-48 0.29292E-57 0.97309E-55 - 2 2 0.24920E-07 0.10000E+01 0.14428E+05 0.41396E-47 0.34905E-56 0.64771E-54 - 2 2 0.24920E-07 0.10000E+01 0.11635E+05 0.26259E-46 0.41444E-55 0.41710E-53 - 2 2 0.24920E-07 0.10000E+01 0.93834E+04 0.16496E-45 0.52408E-54 0.25822E-52 - 2 2 0.24920E-07 0.10000E+01 0.75673E+04 0.10849E-44 0.82396E-53 0.15213E-51 - 2 2 0.24920E-07 0.10000E+01 0.61026E+04 0.84965E-44 0.17621E-51 0.87443E-51 - 2 2 0.24920E-07 0.10000E+01 0.49215E+04 0.88234E-43 0.44631E-50 0.57534E-50 - 2 2 0.24920E-07 0.10000E+01 0.39689E+04 0.11192E-41 0.11639E-48 0.54166E-49 - 2 2 0.24920E-07 0.10000E+01 0.32008E+04 0.47489E-39 0.97151E-46 0.20950E-46 - 2 2 0.24920E-07 0.10000E+01 0.25813E+04 0.33311E-30 0.15478E-36 0.13840E-37 - 2 2 0.24920E-07 0.10000E+01 0.20817E+04 0.60060E-14 0.12230E-19 0.22464E-21 + 2 2 0.24920E-07 0.10000E+01 0.80645E+05 0.33741E-11 0.20870E-22 0.49647E-18 + 2 2 0.24920E-07 0.10000E+01 0.65036E+05 0.43231E-11 0.47433E-22 0.63652E-18 + 2 2 0.24920E-07 0.10000E+01 0.52449E+05 0.54585E-11 0.10575E-21 0.80448E-18 + 2 2 0.24920E-07 0.10000E+01 0.42297E+05 0.68138E-11 0.23055E-21 0.10057E-17 + 2 2 0.24920E-07 0.10000E+01 0.34111E+05 0.84223E-11 0.49221E-21 0.12458E-17 + 2 2 0.24920E-07 0.10000E+01 0.27509E+05 0.10314E-10 0.10405E-20 0.15298E-17 + 2 2 0.24920E-07 0.10000E+01 0.22184E+05 0.12516E-10 0.22541E-20 0.18619E-17 + 2 2 0.24920E-07 0.10000E+01 0.17891E+05 0.15055E-10 0.53890E-20 0.22445E-17 + 2 2 0.24920E-07 0.10000E+01 0.14428E+05 0.17993E-10 0.15515E-19 0.26785E-17 + 2 2 0.24920E-07 0.10000E+01 0.11635E+05 0.21493E-10 0.54546E-19 0.31655E-17 + 2 2 0.24920E-07 0.10000E+01 0.93834E+04 0.26009E-10 0.21796E-18 0.37161E-17 + 2 2 0.24920E-07 0.10000E+01 0.75673E+04 0.32683E-10 0.91924E-18 0.43668E-17 + 2 2 0.24920E-07 0.10000E+01 0.61026E+04 0.44251E-10 0.39277E-17 0.52152E-17 + 2 2 0.24920E-07 0.10000E+01 0.49215E+04 0.67006E-10 0.16669E-16 0.64862E-17 + 2 2 0.24920E-07 0.10000E+01 0.39689E+04 0.11505E-09 0.69641E-16 0.86590E-17 + 2 2 0.24920E-07 0.10000E+01 0.32008E+04 0.21924E-09 0.28570E-15 0.12711E-16 + 2 2 0.24920E-07 0.10000E+01 0.25813E+04 0.44552E-09 0.11503E-14 0.20588E-16 + 2 2 0.24920E-07 0.10000E+01 0.20817E+04 0.93211E-09 0.45357E-14 0.36122E-16 2 2 0.24920E-07 0.10000E+01 0.16788E+04 0.19623E-08 0.17481E-13 0.66779E-16 2 2 0.24920E-07 0.10000E+01 0.13538E+04 0.41028E-08 0.65935E-13 0.12695E-15 2 2 0.24920E-07 0.10000E+01 0.10918E+04 0.84622E-08 0.24450E-12 0.24402E-15 @@ -8790,24 +8790,24 @@ VERSION 2.8.2 2 2 0.24920E-07 0.10000E+01 0.24221E+03 0.80555E-06 0.73958E-09 0.19267E-13 2 2 0.24920E-07 0.10000E+01 0.19533E+03 0.12680E-05 0.14052E-08 0.30166E-13 2 2 0.24920E-07 0.10000E+01 0.15752E+03 0.12680E-05 0.14052E-08 0.30166E-13 - 2 2 0.43485E-07 0.10000E+01 0.80645E+05 0.90744E-54 0.67758E-65 0.22898E-60 - 2 2 0.43485E-07 0.10000E+01 0.65036E+05 0.76645E-53 0.10746E-63 0.19360E-59 - 2 2 0.43485E-07 0.10000E+01 0.52449E+05 0.65033E-52 0.14376E-62 0.16442E-58 - 2 2 0.43485E-07 0.10000E+01 0.42297E+05 0.48753E-51 0.19373E-61 0.12346E-57 - 2 2 0.43485E-07 0.10000E+01 0.34111E+05 0.34923E-50 0.26242E-60 0.88701E-57 - 2 2 0.43485E-07 0.10000E+01 0.27509E+05 0.24788E-49 0.34787E-59 0.63270E-56 - 2 2 0.43485E-07 0.10000E+01 0.22184E+05 0.17327E-48 0.44657E-58 0.44586E-55 - 2 2 0.43485E-07 0.10000E+01 0.17891E+05 0.11797E-47 0.55321E-57 0.30738E-54 - 2 2 0.43485E-07 0.10000E+01 0.14428E+05 0.77787E-47 0.66412E-56 0.20617E-53 - 2 2 0.43485E-07 0.10000E+01 0.11635E+05 0.49708E-46 0.77697E-55 0.13423E-52 - 2 2 0.43485E-07 0.10000E+01 0.93834E+04 0.30932E-45 0.90696E-54 0.84318E-52 - 2 2 0.43485E-07 0.10000E+01 0.75673E+04 0.19146E-44 0.11877E-52 0.50368E-51 - 2 2 0.43485E-07 0.10000E+01 0.61026E+04 0.12897E-43 0.21316E-51 0.28620E-50 - 2 2 0.43485E-07 0.10000E+01 0.49215E+04 0.11210E-42 0.50802E-50 0.17168E-49 - 2 2 0.43485E-07 0.10000E+01 0.39689E+04 0.12983E-41 0.13118E-48 0.13980E-48 - 2 2 0.43485E-07 0.10000E+01 0.32008E+04 0.53711E-39 0.10830E-45 0.50446E-46 - 2 2 0.43485E-07 0.10000E+01 0.25813E+04 0.37075E-30 0.16814E-36 0.32679E-37 - 2 2 0.43485E-07 0.10000E+01 0.20817E+04 0.65135E-14 0.12660E-19 0.51678E-21 + 2 2 0.43485E-07 0.10000E+01 0.80645E+05 0.61402E-11 0.38204E-22 0.15487E-17 + 2 2 0.43485E-07 0.10000E+01 0.65036E+05 0.78698E-11 0.87152E-22 0.19859E-17 + 2 2 0.43485E-07 0.10000E+01 0.52449E+05 0.99417E-11 0.19528E-21 0.25107E-17 + 2 2 0.43485E-07 0.10000E+01 0.42297E+05 0.12420E-10 0.42821E-21 0.31401E-17 + 2 2 0.43485E-07 0.10000E+01 0.34111E+05 0.15368E-10 0.91737E-21 0.38923E-17 + 2 2 0.43485E-07 0.10000E+01 0.27509E+05 0.18847E-10 0.19260E-20 0.47846E-17 + 2 2 0.43485E-07 0.10000E+01 0.22184E+05 0.22905E-10 0.40298E-20 0.58314E-17 + 2 2 0.43485E-07 0.10000E+01 0.17891E+05 0.27581E-10 0.88336E-20 0.70422E-17 + 2 2 0.43485E-07 0.10000E+01 0.14428E+05 0.32930E-10 0.22226E-19 0.84202E-17 + 2 2 0.43485E-07 0.10000E+01 0.11635E+05 0.39101E-10 0.68903E-19 0.99666E-17 + 2 2 0.43485E-07 0.10000E+01 0.93834E+04 0.46544E-10 0.25497E-18 0.11698E-16 + 2 2 0.43485E-07 0.10000E+01 0.75673E+04 0.56459E-10 0.10326E-17 0.13688E-16 + 2 2 0.43485E-07 0.10000E+01 0.61026E+04 0.71782E-10 0.43015E-17 0.16147E-16 + 2 2 0.43485E-07 0.10000E+01 0.49215E+04 0.99271E-10 0.17890E-16 0.19570E-16 + 2 2 0.43485E-07 0.10000E+01 0.39689E+04 0.15390E-09 0.73438E-16 0.25003E-16 + 2 2 0.43485E-07 0.10000E+01 0.32008E+04 0.26793E-09 0.29675E-15 0.34516E-16 + 2 2 0.43485E-07 0.10000E+01 0.25813E+04 0.50937E-09 0.11800E-14 0.52080E-16 + 2 2 0.43485E-07 0.10000E+01 0.20817E+04 0.10191E-08 0.46079E-14 0.85217E-16 2 2 0.43485E-07 0.10000E+01 0.16788E+04 0.20832E-08 0.17629E-13 0.14810E-15 2 2 0.43485E-07 0.10000E+01 0.13538E+04 0.42705E-08 0.66127E-13 0.26727E-15 2 2 0.43485E-07 0.10000E+01 0.10918E+04 0.86882E-08 0.24421E-12 0.49214E-15 @@ -8820,24 +8820,24 @@ VERSION 2.8.2 2 2 0.43485E-07 0.10000E+01 0.24221E+03 0.80036E-06 0.73234E-09 0.33905E-13 2 2 0.43485E-07 0.10000E+01 0.19533E+03 0.12587E-05 0.13913E-08 0.52850E-13 2 2 0.43485E-07 0.10000E+01 0.15752E+03 0.12587E-05 0.13913E-08 0.52850E-13 - 2 2 0.75878E-07 0.10000E+01 0.80645E+05 0.16460E-53 0.12298E-64 0.71670E-60 - 2 2 0.75878E-07 0.10000E+01 0.65036E+05 0.13910E-52 0.19513E-63 0.60615E-59 - 2 2 0.75878E-07 0.10000E+01 0.52449E+05 0.11808E-51 0.26132E-62 0.51492E-58 - 2 2 0.75878E-07 0.10000E+01 0.42297E+05 0.88596E-51 0.35279E-61 0.38685E-57 - 2 2 0.75878E-07 0.10000E+01 0.34111E+05 0.63562E-50 0.47929E-60 0.27819E-56 - 2 2 0.75878E-07 0.10000E+01 0.27509E+05 0.45233E-49 0.63848E-59 0.19872E-55 - 2 2 0.75878E-07 0.10000E+01 0.22184E+05 0.31754E-48 0.82598E-58 0.14038E-54 - 2 2 0.75878E-07 0.10000E+01 0.17891E+05 0.21762E-47 0.10339E-56 0.97154E-54 - 2 2 0.75878E-07 0.10000E+01 0.14428E+05 0.14479E-46 0.12546E-55 0.65554E-53 - 2 2 0.75878E-07 0.10000E+01 0.11635E+05 0.93423E-46 0.14726E-54 0.43050E-52 - 2 2 0.75878E-07 0.10000E+01 0.93834E+04 0.58378E-45 0.16689E-53 0.27368E-51 - 2 2 0.75878E-07 0.10000E+01 0.75673E+04 0.35382E-44 0.19389E-52 0.16587E-50 - 2 2 0.75878E-07 0.10000E+01 0.61026E+04 0.21767E-43 0.28674E-51 0.94653E-50 - 2 2 0.75878E-07 0.10000E+01 0.49215E+04 0.15960E-42 0.61539E-50 0.54070E-49 - 2 2 0.75878E-07 0.10000E+01 0.39689E+04 0.16228E-41 0.15575E-48 0.39017E-48 - 2 2 0.75878E-07 0.10000E+01 0.32008E+04 0.64284E-39 0.12715E-45 0.12986E-45 - 2 2 0.75878E-07 0.10000E+01 0.25813E+04 0.43513E-30 0.19139E-36 0.82420E-37 - 2 2 0.75878E-07 0.10000E+01 0.20817E+04 0.74151E-14 0.13450E-19 0.12828E-20 + 2 2 0.75878E-07 0.10000E+01 0.80645E+05 0.11135E-10 0.69601E-22 0.48467E-17 + 2 2 0.75878E-07 0.10000E+01 0.65036E+05 0.14275E-10 0.15924E-21 0.62159E-17 + 2 2 0.75878E-07 0.10000E+01 0.52449E+05 0.18040E-10 0.35831E-21 0.78603E-17 + 2 2 0.75878E-07 0.10000E+01 0.42297E+05 0.22551E-10 0.78995E-21 0.98345E-17 + 2 2 0.75878E-07 0.10000E+01 0.34111E+05 0.27930E-10 0.17016E-20 0.12197E-16 + 2 2 0.75878E-07 0.10000E+01 0.27509E+05 0.34294E-10 0.35776E-20 0.15005E-16 + 2 2 0.75878E-07 0.10000E+01 0.22184E+05 0.41739E-10 0.73878E-20 0.18309E-16 + 2 2 0.75878E-07 0.10000E+01 0.17891E+05 0.50333E-10 0.15430E-19 0.22143E-16 + 2 2 0.75878E-07 0.10000E+01 0.14428E+05 0.60134E-10 0.35095E-19 0.26523E-16 + 2 2 0.75878E-07 0.10000E+01 0.11635E+05 0.71270E-10 0.95829E-19 0.31447E-16 + 2 2 0.75878E-07 0.10000E+01 0.93834E+04 0.84178E-10 0.32174E-18 0.36941E-16 + 2 2 0.75878E-07 0.10000E+01 0.75673E+04 0.10014E-09 0.12317E-17 0.43154E-16 + 2 2 0.75878E-07 0.10000E+01 0.61026E+04 0.12242E-09 0.49540E-17 0.50567E-16 + 2 2 0.75878E-07 0.10000E+01 0.49215E+04 0.15856E-09 0.20039E-16 0.60344E-16 + 2 2 0.75878E-07 0.10000E+01 0.39689E+04 0.22503E-09 0.80223E-16 0.74929E-16 + 2 2 0.75878E-07 0.10000E+01 0.32008E+04 0.35665E-09 0.31693E-15 0.99039E-16 + 2 2 0.75878E-07 0.10000E+01 0.25813E+04 0.62526E-09 0.12360E-14 0.14138E-15 + 2 2 0.75878E-07 0.10000E+01 0.20817E+04 0.11769E-08 0.47514E-14 0.21770E-15 2 2 0.75878E-07 0.10000E+01 0.16788E+04 0.23037E-08 0.17957E-13 0.35639E-15 2 2 0.75878E-07 0.10000E+01 0.13538E+04 0.45805E-08 0.66735E-13 0.60854E-15 2 2 0.75878E-07 0.10000E+01 0.10918E+04 0.91169E-08 0.24474E-12 0.10662E-14 @@ -8850,24 +8850,24 @@ VERSION 2.8.2 2 2 0.75878E-07 0.10000E+01 0.24221E+03 0.79501E-06 0.72325E-09 0.60685E-13 2 2 0.75878E-07 0.10000E+01 0.19533E+03 0.12485E-05 0.13738E-08 0.93908E-13 2 2 0.75878E-07 0.10000E+01 0.15752E+03 0.12485E-05 0.13738E-08 0.93908E-13 - 2 2 0.13240E-06 0.10000E+01 0.80645E+05 0.29734E-53 0.22228E-64 0.22335E-59 - 2 2 0.13240E-06 0.10000E+01 0.65036E+05 0.25138E-52 0.35280E-63 0.18895E-58 - 2 2 0.13240E-06 0.10000E+01 0.52449E+05 0.21347E-51 0.47286E-62 0.16055E-57 - 2 2 0.13240E-06 0.10000E+01 0.42297E+05 0.16028E-50 0.63927E-61 0.12067E-56 - 2 2 0.13240E-06 0.10000E+01 0.34111E+05 0.11513E-49 0.87045E-60 0.86835E-56 - 2 2 0.13240E-06 0.10000E+01 0.27509E+05 0.82094E-49 0.11639E-58 0.62104E-55 - 2 2 0.13240E-06 0.10000E+01 0.22184E+05 0.57820E-48 0.15148E-57 0.43955E-54 - 2 2 0.13240E-06 0.10000E+01 0.17891E+05 0.39831E-47 0.19125E-56 0.30515E-53 - 2 2 0.13240E-06 0.10000E+01 0.14428E+05 0.26697E-46 0.23449E-55 0.20687E-52 - 2 2 0.13240E-06 0.10000E+01 0.11635E+05 0.17385E-45 0.27789E-54 0.13677E-51 - 2 2 0.13240E-06 0.10000E+01 0.93834E+04 0.10959E-44 0.31389E-53 0.87782E-51 - 2 2 0.13240E-06 0.10000E+01 0.75673E+04 0.66346E-44 0.34381E-52 0.53883E-50 - 2 2 0.13240E-06 0.10000E+01 0.61026E+04 0.39133E-43 0.43278E-51 0.31053E-49 - 2 2 0.13240E-06 0.10000E+01 0.49215E+04 0.25297E-42 0.80771E-50 0.17353E-48 - 2 2 0.13240E-06 0.10000E+01 0.39689E+04 0.22214E-41 0.19718E-48 0.11454E-47 - 2 2 0.13240E-06 0.10000E+01 0.32008E+04 0.82558E-39 0.15927E-45 0.35133E-45 - 2 2 0.13240E-06 0.10000E+01 0.25813E+04 0.54631E-30 0.23215E-36 0.21841E-36 - 2 2 0.13240E-06 0.10000E+01 0.20817E+04 0.90287E-14 0.14932E-19 0.33824E-20 + 2 2 0.13240E-06 0.10000E+01 0.80645E+05 0.20111E-10 0.12616E-21 0.15102E-16 + 2 2 0.13240E-06 0.10000E+01 0.65036E+05 0.25787E-10 0.28930E-21 0.19371E-16 + 2 2 0.13240E-06 0.10000E+01 0.52449E+05 0.32600E-10 0.65318E-21 0.24500E-16 + 2 2 0.13240E-06 0.10000E+01 0.42297E+05 0.40770E-10 0.14467E-20 0.30663E-16 + 2 2 0.13240E-06 0.10000E+01 0.34111E+05 0.50531E-10 0.31335E-20 0.38046E-16 + 2 2 0.13240E-06 0.10000E+01 0.27509E+05 0.62107E-10 0.66189E-20 0.46835E-16 + 2 2 0.13240E-06 0.10000E+01 0.22184E+05 0.75689E-10 0.13640E-19 0.57200E-16 + 2 2 0.13240E-06 0.10000E+01 0.17891E+05 0.91411E-10 0.27851E-19 0.69265E-16 + 2 2 0.13240E-06 0.10000E+01 0.14428E+05 0.10935E-09 0.59430E-19 0.83092E-16 + 2 2 0.13240E-06 0.10000E+01 0.11635E+05 0.12961E-09 0.14609E-18 0.98677E-16 + 2 2 0.13240E-06 0.10000E+01 0.93834E+04 0.15261E-09 0.44275E-18 0.11605E-15 + 2 2 0.13240E-06 0.10000E+01 0.75673E+04 0.17976E-09 0.15840E-17 0.13553E-15 + 2 2 0.13240E-06 0.10000E+01 0.61026E+04 0.21484E-09 0.61029E-17 0.15825E-15 + 2 2 0.13240E-06 0.10000E+01 0.49215E+04 0.26673E-09 0.23857E-16 0.18712E-15 + 2 2 0.13240E-06 0.10000E+01 0.39689E+04 0.35458E-09 0.92494E-16 0.22818E-15 + 2 2 0.13240E-06 0.10000E+01 0.32008E+04 0.51783E-09 0.35437E-15 0.29297E-15 + 2 2 0.13240E-06 0.10000E+01 0.25813E+04 0.83557E-09 0.13440E-14 0.40198E-15 + 2 2 0.13240E-06 0.10000E+01 0.20817E+04 0.14641E-08 0.50452E-14 0.59071E-15 2 2 0.13240E-06 0.10000E+01 0.16788E+04 0.27094E-08 0.18705E-13 0.91991E-15 2 2 0.13240E-06 0.10000E+01 0.13538E+04 0.51620E-08 0.68478E-13 0.14937E-14 2 2 0.13240E-06 0.10000E+01 0.10918E+04 0.99478E-08 0.24828E-12 0.24916E-14 @@ -8880,24 +8880,24 @@ VERSION 2.8.2 2 2 0.13240E-06 0.10000E+01 0.24221E+03 0.79464E-06 0.71584E-09 0.11149E-12 2 2 0.13240E-06 0.10000E+01 0.19533E+03 0.12447E-05 0.13592E-08 0.17056E-12 2 2 0.13240E-06 0.10000E+01 0.15752E+03 0.12447E-05 0.13592E-08 0.17056E-12 - 2 2 0.23103E-06 0.10000E+01 0.80645E+05 0.53408E-53 0.39943E-64 0.68217E-59 - 2 2 0.23103E-06 0.10000E+01 0.65036E+05 0.45168E-52 0.63413E-63 0.57722E-58 - 2 2 0.23103E-06 0.10000E+01 0.52449E+05 0.38368E-51 0.85049E-62 0.49054E-57 - 2 2 0.23103E-06 0.10000E+01 0.42297E+05 0.28823E-50 0.11511E-60 0.36881E-56 - 2 2 0.23103E-06 0.10000E+01 0.34111E+05 0.20724E-49 0.15701E-59 0.26556E-55 - 2 2 0.23103E-06 0.10000E+01 0.27509E+05 0.14800E-48 0.21055E-58 0.19011E-54 - 2 2 0.23103E-06 0.10000E+01 0.22184E+05 0.10450E-47 0.27532E-57 0.13475E-53 - 2 2 0.23103E-06 0.10000E+01 0.17891E+05 0.72283E-47 0.35000E-56 0.93777E-53 - 2 2 0.23103E-06 0.10000E+01 0.14428E+05 0.48736E-46 0.43301E-55 0.63804E-52 - 2 2 0.23103E-06 0.10000E+01 0.11635E+05 0.31989E-45 0.51853E-54 0.42403E-51 - 2 2 0.23103E-06 0.10000E+01 0.93834E+04 0.20353E-44 0.59005E-53 0.27415E-50 - 2 2 0.23103E-06 0.10000E+01 0.75673E+04 0.12405E-43 0.63306E-52 0.17001E-49 - 2 2 0.23103E-06 0.10000E+01 0.61026E+04 0.72169E-43 0.71546E-51 0.99015E-49 - 2 2 0.23103E-06 0.10000E+01 0.49215E+04 0.43183E-42 0.11516E-49 0.54911E-48 - 2 2 0.23103E-06 0.10000E+01 0.39689E+04 0.33155E-41 0.26647E-48 0.34115E-47 - 2 2 0.23103E-06 0.10000E+01 0.32008E+04 0.11388E-38 0.21308E-45 0.97284E-45 - 2 2 0.23103E-06 0.10000E+01 0.25813E+04 0.73537E-30 0.30190E-36 0.59279E-36 - 2 2 0.23103E-06 0.10000E+01 0.20817E+04 0.11849E-13 0.17567E-19 0.92063E-20 + 2 2 0.23103E-06 0.10000E+01 0.80645E+05 0.36118E-10 0.22722E-21 0.46121E-16 + 2 2 0.23103E-06 0.10000E+01 0.65036E+05 0.46320E-10 0.52198E-21 0.59164E-16 + 2 2 0.23103E-06 0.10000E+01 0.52449E+05 0.58572E-10 0.11817E-20 0.74842E-16 + 2 2 0.23103E-06 0.10000E+01 0.42297E+05 0.73279E-10 0.26273E-20 0.93690E-16 + 2 2 0.23103E-06 0.10000E+01 0.34111E+05 0.90874E-10 0.57190E-20 0.11629E-15 + 2 2 0.23103E-06 0.10000E+01 0.27509E+05 0.11178E-09 0.12145E-19 0.14323E-15 + 2 2 0.23103E-06 0.10000E+01 0.22184E+05 0.13638E-09 0.25097E-19 0.17505E-15 + 2 2 0.23103E-06 0.10000E+01 0.17891E+05 0.16493E-09 0.50813E-19 0.21218E-15 + 2 2 0.23103E-06 0.10000E+01 0.14428E+05 0.19758E-09 0.10459E-18 0.25486E-15 + 2 2 0.23103E-06 0.10000E+01 0.11635E+05 0.23441E-09 0.23838E-18 0.30308E-15 + 2 2 0.23103E-06 0.10000E+01 0.93834E+04 0.27580E-09 0.65910E-18 0.35685E-15 + 2 2 0.23103E-06 0.10000E+01 0.75673E+04 0.32333E-09 0.21979E-17 0.41687E-15 + 2 2 0.23103E-06 0.10000E+01 0.61026E+04 0.38164E-09 0.80850E-17 0.48593E-15 + 2 2 0.23103E-06 0.10000E+01 0.49215E+04 0.46180E-09 0.30461E-16 0.57141E-15 + 2 2 0.23103E-06 0.10000E+01 0.39689E+04 0.58755E-09 0.11392E-15 0.68899E-15 + 2 2 0.23103E-06 0.10000E+01 0.32008E+04 0.80644E-09 0.42065E-15 0.86808E-15 + 2 2 0.23103E-06 0.10000E+01 0.25813E+04 0.12105E-08 0.15388E-14 0.11598E-14 + 2 2 0.23103E-06 0.10000E+01 0.20817E+04 0.19749E-08 0.55890E-14 0.16492E-14 2 2 0.23103E-06 0.10000E+01 0.16788E+04 0.34316E-08 0.20147E-13 0.24750E-14 2 2 0.23103E-06 0.10000E+01 0.13538E+04 0.62041E-08 0.72083E-13 0.38630E-14 2 2 0.23103E-06 0.10000E+01 0.10918E+04 0.11457E-07 0.25666E-12 0.61822E-14 @@ -8910,24 +8910,24 @@ VERSION 2.8.2 2 2 0.23103E-06 0.10000E+01 0.24221E+03 0.80191E-06 0.71053E-09 0.21195E-12 2 2 0.23103E-06 0.10000E+01 0.19533E+03 0.12508E-05 0.13484E-08 0.31897E-12 2 2 0.23103E-06 0.10000E+01 0.15752E+03 0.12508E-05 0.13484E-08 0.31897E-12 - 2 2 0.40314E-06 0.10000E+01 0.80645E+05 0.93454E-53 0.69895E-64 0.12691E-58 - 2 2 0.40314E-06 0.10000E+01 0.65036E+05 0.79038E-52 0.11097E-62 0.10739E-57 - 2 2 0.40314E-06 0.10000E+01 0.52449E+05 0.67141E-51 0.14884E-61 0.91266E-57 - 2 2 0.40314E-06 0.10000E+01 0.42297E+05 0.50441E-50 0.20147E-60 0.68619E-56 - 2 2 0.40314E-06 0.10000E+01 0.34111E+05 0.36270E-49 0.27486E-59 0.49412E-55 - 2 2 0.40314E-06 0.10000E+01 0.27509E+05 0.25907E-48 0.36870E-58 0.35376E-54 - 2 2 0.40314E-06 0.10000E+01 0.22184E+05 0.18298E-47 0.48235E-57 0.25080E-53 - 2 2 0.40314E-06 0.10000E+01 0.17891E+05 0.12662E-46 0.61364E-56 0.17458E-52 - 2 2 0.40314E-06 0.10000E+01 0.14428E+05 0.85424E-46 0.75990E-55 0.11882E-51 - 2 2 0.40314E-06 0.10000E+01 0.11635E+05 0.56117E-45 0.91109E-54 0.79007E-51 - 2 2 0.40314E-06 0.10000E+01 0.93834E+04 0.35743E-44 0.10380E-52 0.51119E-50 - 2 2 0.40314E-06 0.10000E+01 0.75673E+04 0.21808E-43 0.11126E-51 0.31734E-49 - 2 2 0.40314E-06 0.10000E+01 0.61026E+04 0.12680E-42 0.12455E-50 0.18503E-48 - 2 2 0.40314E-06 0.10000E+01 0.49215E+04 0.75376E-42 0.19709E-49 0.10258E-47 - 2 2 0.40314E-06 0.10000E+01 0.39689E+04 0.57048E-41 0.45266E-48 0.63374E-47 - 2 2 0.40314E-06 0.10000E+01 0.32008E+04 0.19400E-38 0.36154E-45 0.17932E-44 - 2 2 0.40314E-06 0.10000E+01 0.25813E+04 0.12490E-29 0.51074E-36 0.10902E-35 - 2 2 0.40314E-06 0.10000E+01 0.20817E+04 0.20075E-13 0.29358E-19 0.16942E-19 + 2 2 0.40314E-06 0.10000E+01 0.80645E+05 0.63198E-10 0.39771E-21 0.85805E-16 + 2 2 0.40314E-06 0.10000E+01 0.65036E+05 0.81051E-10 0.91380E-21 0.11007E-15 + 2 2 0.40314E-06 0.10000E+01 0.52449E+05 0.10249E-09 0.20693E-20 0.13924E-15 + 2 2 0.40314E-06 0.10000E+01 0.42297E+05 0.12823E-09 0.46026E-20 0.17431E-15 + 2 2 0.40314E-06 0.10000E+01 0.34111E+05 0.15903E-09 0.10024E-19 0.21636E-15 + 2 2 0.40314E-06 0.10000E+01 0.27509E+05 0.19564E-09 0.21301E-19 0.26650E-15 + 2 2 0.40314E-06 0.10000E+01 0.22184E+05 0.23872E-09 0.44038E-19 0.32574E-15 + 2 2 0.40314E-06 0.10000E+01 0.17891E+05 0.28874E-09 0.89125E-19 0.39488E-15 + 2 2 0.40314E-06 0.10000E+01 0.14428E+05 0.34596E-09 0.18290E-18 0.47435E-15 + 2 2 0.40314E-06 0.10000E+01 0.11635E+05 0.41050E-09 0.41385E-18 0.56418E-15 + 2 2 0.40314E-06 0.10000E+01 0.93834E+04 0.48298E-09 0.11331E-17 0.66437E-15 + 2 2 0.40314E-06 0.10000E+01 0.75673E+04 0.56602E-09 0.37477E-17 0.77615E-15 + 2 2 0.40314E-06 0.10000E+01 0.61026E+04 0.66738E-09 0.13710E-16 0.90461E-15 + 2 2 0.40314E-06 0.10000E+01 0.49215E+04 0.80573E-09 0.51429E-16 0.10632E-14 + 2 2 0.40314E-06 0.10000E+01 0.39689E+04 0.10210E-08 0.19150E-15 0.12807E-14 + 2 2 0.40314E-06 0.10000E+01 0.32008E+04 0.13928E-08 0.70379E-15 0.16108E-14 + 2 2 0.40314E-06 0.10000E+01 0.25813E+04 0.20747E-08 0.25622E-14 0.21468E-14 + 2 2 0.40314E-06 0.10000E+01 0.20817E+04 0.33579E-08 0.92641E-14 0.30432E-14 2 2 0.40314E-06 0.10000E+01 0.16788E+04 0.57905E-08 0.33260E-13 0.45508E-14 2 2 0.40314E-06 0.10000E+01 0.13538E+04 0.10399E-07 0.11860E-12 0.70752E-14 2 2 0.40314E-06 0.10000E+01 0.10918E+04 0.19094E-07 0.42114E-12 0.11276E-13 @@ -8940,24 +8940,24 @@ VERSION 2.8.2 2 2 0.40314E-06 0.10000E+01 0.24221E+03 0.13109E-05 0.11585E-08 0.37448E-12 2 2 0.40314E-06 0.10000E+01 0.19533E+03 0.20434E-05 0.21983E-08 0.56230E-12 2 2 0.40314E-06 0.10000E+01 0.15752E+03 0.20434E-05 0.21983E-08 0.56230E-12 - 2 2 0.70346E-06 0.10000E+01 0.80645E+05 0.16307E-52 0.12196E-63 0.22146E-58 - 2 2 0.70346E-06 0.10000E+01 0.65036E+05 0.13792E-51 0.19363E-62 0.18739E-57 - 2 2 0.70346E-06 0.10000E+01 0.52449E+05 0.11716E-50 0.25972E-61 0.15925E-56 - 2 2 0.70346E-06 0.10000E+01 0.42297E+05 0.88016E-50 0.35155E-60 0.11974E-55 - 2 2 0.70346E-06 0.10000E+01 0.34111E+05 0.63289E-49 0.47961E-59 0.86221E-55 - 2 2 0.70346E-06 0.10000E+01 0.27509E+05 0.45207E-48 0.64337E-58 0.61729E-54 - 2 2 0.70346E-06 0.10000E+01 0.22184E+05 0.31929E-47 0.84167E-57 0.43762E-53 - 2 2 0.70346E-06 0.10000E+01 0.17891E+05 0.22094E-46 0.10708E-55 0.30462E-52 - 2 2 0.70346E-06 0.10000E+01 0.14428E+05 0.14906E-45 0.13260E-54 0.20734E-51 - 2 2 0.70346E-06 0.10000E+01 0.11635E+05 0.97921E-45 0.15898E-53 0.13786E-50 - 2 2 0.70346E-06 0.10000E+01 0.93834E+04 0.62370E-44 0.18112E-52 0.89199E-50 - 2 2 0.70346E-06 0.10000E+01 0.75673E+04 0.38053E-43 0.19414E-51 0.55374E-49 - 2 2 0.70346E-06 0.10000E+01 0.61026E+04 0.22126E-42 0.21733E-50 0.32287E-48 - 2 2 0.70346E-06 0.10000E+01 0.49215E+04 0.13153E-41 0.34391E-49 0.17899E-47 - 2 2 0.70346E-06 0.10000E+01 0.39689E+04 0.99545E-41 0.78987E-48 0.11058E-46 - 2 2 0.70346E-06 0.10000E+01 0.32008E+04 0.33851E-38 0.63087E-45 0.31290E-44 - 2 2 0.70346E-06 0.10000E+01 0.25813E+04 0.21794E-29 0.89121E-36 0.19023E-35 - 2 2 0.70346E-06 0.10000E+01 0.20817E+04 0.35030E-13 0.51227E-19 0.29563E-19 + 2 2 0.70346E-06 0.10000E+01 0.80645E+05 0.11028E-09 0.69398E-21 0.14973E-15 + 2 2 0.70346E-06 0.10000E+01 0.65036E+05 0.14143E-09 0.15945E-20 0.19207E-15 + 2 2 0.70346E-06 0.10000E+01 0.52449E+05 0.17884E-09 0.36109E-20 0.24297E-15 + 2 2 0.70346E-06 0.10000E+01 0.42297E+05 0.22376E-09 0.80313E-20 0.30416E-15 + 2 2 0.70346E-06 0.10000E+01 0.34111E+05 0.27750E-09 0.17492E-19 0.37754E-15 + 2 2 0.70346E-06 0.10000E+01 0.27509E+05 0.34138E-09 0.37169E-19 0.46503E-15 + 2 2 0.70346E-06 0.10000E+01 0.22184E+05 0.41655E-09 0.76844E-19 0.56839E-15 + 2 2 0.70346E-06 0.10000E+01 0.17891E+05 0.50384E-09 0.15552E-18 0.68903E-15 + 2 2 0.70346E-06 0.10000E+01 0.14428E+05 0.60368E-09 0.31914E-18 0.82771E-15 + 2 2 0.70346E-06 0.10000E+01 0.11635E+05 0.71630E-09 0.72215E-18 0.98446E-15 + 2 2 0.70346E-06 0.10000E+01 0.93834E+04 0.84276E-09 0.19771E-17 0.11593E-14 + 2 2 0.70346E-06 0.10000E+01 0.75673E+04 0.98766E-09 0.65396E-17 0.13543E-14 + 2 2 0.70346E-06 0.10000E+01 0.61026E+04 0.11645E-08 0.23923E-16 0.15785E-14 + 2 2 0.70346E-06 0.10000E+01 0.49215E+04 0.14060E-08 0.89740E-16 0.18553E-14 + 2 2 0.70346E-06 0.10000E+01 0.39689E+04 0.17815E-08 0.33415E-15 0.22347E-14 + 2 2 0.70346E-06 0.10000E+01 0.32008E+04 0.24303E-08 0.12281E-14 0.28108E-14 + 2 2 0.70346E-06 0.10000E+01 0.25813E+04 0.36203E-08 0.44709E-14 0.37460E-14 + 2 2 0.70346E-06 0.10000E+01 0.20817E+04 0.58593E-08 0.16165E-13 0.53102E-14 2 2 0.70346E-06 0.10000E+01 0.16788E+04 0.10104E-07 0.58037E-13 0.79409E-14 2 2 0.70346E-06 0.10000E+01 0.13538E+04 0.18146E-07 0.20695E-12 0.12346E-13 2 2 0.70346E-06 0.10000E+01 0.10918E+04 0.33318E-07 0.73486E-12 0.19675E-13 @@ -8970,24 +8970,24 @@ VERSION 2.8.2 2 2 0.70346E-06 0.10000E+01 0.24221E+03 0.22874E-05 0.20215E-08 0.65345E-12 2 2 0.70346E-06 0.10000E+01 0.19533E+03 0.35657E-05 0.38359E-08 0.98117E-12 2 2 0.70346E-06 0.10000E+01 0.15752E+03 0.35657E-05 0.38359E-08 0.98117E-12 - 2 2 0.12275E-05 0.10000E+01 0.80645E+05 0.28455E-52 0.21282E-63 0.38643E-58 - 2 2 0.12275E-05 0.10000E+01 0.65036E+05 0.24066E-51 0.33788E-62 0.32698E-57 - 2 2 0.12275E-05 0.10000E+01 0.52449E+05 0.20443E-50 0.45319E-61 0.27789E-56 - 2 2 0.12275E-05 0.10000E+01 0.42297E+05 0.15358E-49 0.61343E-60 0.20893E-55 - 2 2 0.12275E-05 0.10000E+01 0.34111E+05 0.11044E-48 0.83689E-59 0.15045E-54 - 2 2 0.12275E-05 0.10000E+01 0.27509E+05 0.78883E-48 0.11226E-57 0.10771E-53 - 2 2 0.12275E-05 0.10000E+01 0.22184E+05 0.55715E-47 0.14687E-56 0.76363E-53 - 2 2 0.12275E-05 0.10000E+01 0.17891E+05 0.38552E-46 0.18684E-55 0.53155E-52 - 2 2 0.12275E-05 0.10000E+01 0.14428E+05 0.26010E-45 0.23138E-54 0.36179E-51 - 2 2 0.12275E-05 0.10000E+01 0.11635E+05 0.17087E-44 0.27741E-53 0.24056E-50 - 2 2 0.12275E-05 0.10000E+01 0.93834E+04 0.10883E-43 0.31604E-52 0.15565E-49 - 2 2 0.12275E-05 0.10000E+01 0.75673E+04 0.66400E-43 0.33876E-51 0.96625E-49 - 2 2 0.12275E-05 0.10000E+01 0.61026E+04 0.38609E-42 0.37922E-50 0.56340E-48 - 2 2 0.12275E-05 0.10000E+01 0.49215E+04 0.22951E-41 0.60011E-49 0.31233E-47 - 2 2 0.12275E-05 0.10000E+01 0.39689E+04 0.17370E-40 0.13783E-47 0.19296E-46 - 2 2 0.12275E-05 0.10000E+01 0.32008E+04 0.59069E-38 0.11008E-44 0.54600E-44 - 2 2 0.12275E-05 0.10000E+01 0.25813E+04 0.38029E-29 0.15551E-35 0.33194E-35 - 2 2 0.12275E-05 0.10000E+01 0.20817E+04 0.61126E-13 0.89388E-19 0.51586E-19 + 2 2 0.12275E-05 0.10000E+01 0.80645E+05 0.19243E-09 0.12109E-20 0.26126E-15 + 2 2 0.12275E-05 0.10000E+01 0.65036E+05 0.24679E-09 0.27823E-20 0.33515E-15 + 2 2 0.12275E-05 0.10000E+01 0.52449E+05 0.31207E-09 0.63007E-20 0.42396E-15 + 2 2 0.12275E-05 0.10000E+01 0.42297E+05 0.39045E-09 0.14014E-19 0.53074E-15 + 2 2 0.12275E-05 0.10000E+01 0.34111E+05 0.48423E-09 0.30522E-19 0.65879E-15 + 2 2 0.12275E-05 0.10000E+01 0.27509E+05 0.59569E-09 0.64858E-19 0.81144E-15 + 2 2 0.12275E-05 0.10000E+01 0.22184E+05 0.72685E-09 0.13409E-18 0.99181E-15 + 2 2 0.12275E-05 0.10000E+01 0.17891E+05 0.87916E-09 0.27137E-18 0.12023E-14 + 2 2 0.12275E-05 0.10000E+01 0.14428E+05 0.10534E-08 0.55689E-18 0.14443E-14 + 2 2 0.12275E-05 0.10000E+01 0.11635E+05 0.12499E-08 0.12601E-17 0.17178E-14 + 2 2 0.12275E-05 0.10000E+01 0.93834E+04 0.14706E-08 0.34500E-17 0.20229E-14 + 2 2 0.12275E-05 0.10000E+01 0.75673E+04 0.17234E-08 0.11411E-16 0.23632E-14 + 2 2 0.12275E-05 0.10000E+01 0.61026E+04 0.20321E-08 0.41745E-16 0.27544E-14 + 2 2 0.12275E-05 0.10000E+01 0.49215E+04 0.24533E-08 0.15659E-15 0.32373E-14 + 2 2 0.12275E-05 0.10000E+01 0.39689E+04 0.31087E-08 0.58307E-15 0.38995E-14 + 2 2 0.12275E-05 0.10000E+01 0.32008E+04 0.42408E-08 0.21429E-14 0.49046E-14 + 2 2 0.12275E-05 0.10000E+01 0.25813E+04 0.63172E-08 0.78015E-14 0.65366E-14 + 2 2 0.12275E-05 0.10000E+01 0.20817E+04 0.10224E-07 0.28208E-13 0.92659E-14 2 2 0.12275E-05 0.10000E+01 0.16788E+04 0.17631E-07 0.10127E-12 0.13856E-13 2 2 0.12275E-05 0.10000E+01 0.13538E+04 0.31663E-07 0.36111E-12 0.21543E-13 2 2 0.12275E-05 0.10000E+01 0.10918E+04 0.58138E-07 0.12823E-11 0.34332E-13 @@ -9000,24 +9000,24 @@ VERSION 2.8.2 2 2 0.12275E-05 0.10000E+01 0.24221E+03 0.39914E-05 0.35273E-08 0.11402E-11 2 2 0.12275E-05 0.10000E+01 0.19533E+03 0.62219E-05 0.66934E-08 0.17121E-11 2 2 0.12275E-05 0.10000E+01 0.15752E+03 0.62219E-05 0.66934E-08 0.17121E-11 - 2 2 0.21419E-05 0.10000E+01 0.80645E+05 0.49652E-52 0.37135E-63 0.67429E-58 - 2 2 0.21419E-05 0.10000E+01 0.65036E+05 0.41993E-51 0.58958E-62 0.57056E-57 - 2 2 0.21419E-05 0.10000E+01 0.52449E+05 0.35672E-50 0.79079E-61 0.48490E-56 - 2 2 0.21419E-05 0.10000E+01 0.42297E+05 0.26799E-49 0.10704E-59 0.36458E-55 - 2 2 0.21419E-05 0.10000E+01 0.34111E+05 0.19270E-48 0.14603E-58 0.26253E-54 - 2 2 0.21419E-05 0.10000E+01 0.27509E+05 0.13765E-47 0.19589E-57 0.18795E-53 - 2 2 0.21419E-05 0.10000E+01 0.22184E+05 0.97218E-47 0.25627E-56 0.13325E-52 - 2 2 0.21419E-05 0.10000E+01 0.17891E+05 0.67272E-46 0.32603E-55 0.92752E-52 - 2 2 0.21419E-05 0.10000E+01 0.14428E+05 0.45386E-45 0.40374E-54 0.63130E-51 - 2 2 0.21419E-05 0.10000E+01 0.11635E+05 0.29815E-44 0.48406E-53 0.41977E-50 - 2 2 0.21419E-05 0.10000E+01 0.93834E+04 0.18991E-43 0.55148E-52 0.27159E-49 - 2 2 0.21419E-05 0.10000E+01 0.75673E+04 0.11586E-42 0.59112E-51 0.16860E-48 - 2 2 0.21419E-05 0.10000E+01 0.61026E+04 0.67370E-42 0.66172E-50 0.98309E-48 - 2 2 0.21419E-05 0.10000E+01 0.49215E+04 0.40047E-41 0.10472E-48 0.54499E-47 - 2 2 0.21419E-05 0.10000E+01 0.39689E+04 0.30310E-40 0.24050E-47 0.33671E-46 - 2 2 0.21419E-05 0.10000E+01 0.32008E+04 0.10307E-37 0.19209E-44 0.95273E-44 - 2 2 0.21419E-05 0.10000E+01 0.25813E+04 0.66358E-29 0.27136E-35 0.57922E-35 - 2 2 0.21419E-05 0.10000E+01 0.20817E+04 0.10666E-12 0.15598E-18 0.90015E-19 + 2 2 0.21419E-05 0.10000E+01 0.80645E+05 0.33577E-09 0.21130E-20 0.45589E-15 + 2 2 0.21419E-05 0.10000E+01 0.65036E+05 0.43063E-09 0.48550E-20 0.58481E-15 + 2 2 0.21419E-05 0.10000E+01 0.52449E+05 0.54454E-09 0.10994E-19 0.73979E-15 + 2 2 0.21419E-05 0.10000E+01 0.42297E+05 0.68130E-09 0.24454E-19 0.92612E-15 + 2 2 0.21419E-05 0.10000E+01 0.34111E+05 0.84495E-09 0.53259E-19 0.11495E-14 + 2 2 0.21419E-05 0.10000E+01 0.27509E+05 0.10394E-08 0.11317E-18 0.14159E-14 + 2 2 0.21419E-05 0.10000E+01 0.22184E+05 0.12683E-08 0.23398E-18 0.17306E-14 + 2 2 0.21419E-05 0.10000E+01 0.17891E+05 0.15341E-08 0.47352E-18 0.20980E-14 + 2 2 0.21419E-05 0.10000E+01 0.14428E+05 0.18381E-08 0.97174E-18 0.25202E-14 + 2 2 0.21419E-05 0.10000E+01 0.11635E+05 0.21810E-08 0.21988E-17 0.29975E-14 + 2 2 0.21419E-05 0.10000E+01 0.93834E+04 0.25661E-08 0.60200E-17 0.35298E-14 + 2 2 0.21419E-05 0.10000E+01 0.75673E+04 0.30073E-08 0.19912E-16 0.41237E-14 + 2 2 0.21419E-05 0.10000E+01 0.61026E+04 0.35458E-08 0.72842E-16 0.48062E-14 + 2 2 0.21419E-05 0.10000E+01 0.49215E+04 0.42809E-08 0.27324E-15 0.56490E-14 + 2 2 0.21419E-05 0.10000E+01 0.39689E+04 0.54244E-08 0.10174E-14 0.68044E-14 + 2 2 0.21419E-05 0.10000E+01 0.32008E+04 0.73999E-08 0.37393E-14 0.85583E-14 + 2 2 0.21419E-05 0.10000E+01 0.25813E+04 0.11023E-07 0.13613E-13 0.11406E-13 + 2 2 0.21419E-05 0.10000E+01 0.20817E+04 0.17840E-07 0.49221E-13 0.16168E-13 2 2 0.21419E-05 0.10000E+01 0.16788E+04 0.30765E-07 0.17671E-12 0.24179E-13 2 2 0.21419E-05 0.10000E+01 0.13538E+04 0.55251E-07 0.63012E-12 0.37591E-13 2 2 0.21419E-05 0.10000E+01 0.10918E+04 0.10145E-06 0.22375E-11 0.59907E-13 @@ -9030,24 +9030,24 @@ VERSION 2.8.2 2 2 0.21419E-05 0.10000E+01 0.24221E+03 0.69648E-05 0.61550E-08 0.19896E-11 2 2 0.21419E-05 0.10000E+01 0.19533E+03 0.10857E-04 0.11680E-07 0.29875E-11 2 2 0.21419E-05 0.10000E+01 0.15752E+03 0.10857E-04 0.11680E-07 0.29875E-11 - 2 2 0.37375E-05 0.10000E+01 0.80645E+05 0.86640E-52 0.64799E-63 0.11766E-57 - 2 2 0.37375E-05 0.10000E+01 0.65036E+05 0.73275E-51 0.10288E-61 0.99560E-57 - 2 2 0.37375E-05 0.10000E+01 0.52449E+05 0.62246E-50 0.13799E-60 0.84612E-56 - 2 2 0.37375E-05 0.10000E+01 0.42297E+05 0.46763E-49 0.18678E-59 0.63616E-55 - 2 2 0.37375E-05 0.10000E+01 0.34111E+05 0.33626E-48 0.25482E-58 0.45810E-54 - 2 2 0.37375E-05 0.10000E+01 0.27509E+05 0.24018E-47 0.34182E-57 0.32797E-53 - 2 2 0.37375E-05 0.10000E+01 0.22184E+05 0.16964E-46 0.44718E-56 0.23251E-52 - 2 2 0.37375E-05 0.10000E+01 0.17891E+05 0.11739E-45 0.56890E-55 0.16185E-51 - 2 2 0.37375E-05 0.10000E+01 0.14428E+05 0.79196E-45 0.70450E-54 0.11016E-50 - 2 2 0.37375E-05 0.10000E+01 0.11635E+05 0.52026E-44 0.84466E-53 0.73247E-50 - 2 2 0.37375E-05 0.10000E+01 0.93834E+04 0.33137E-43 0.96230E-52 0.47392E-49 - 2 2 0.37375E-05 0.10000E+01 0.75673E+04 0.20218E-42 0.10315E-50 0.29420E-48 - 2 2 0.37375E-05 0.10000E+01 0.61026E+04 0.11756E-41 0.11547E-49 0.17154E-47 - 2 2 0.37375E-05 0.10000E+01 0.49215E+04 0.69880E-41 0.18272E-48 0.95098E-47 - 2 2 0.37375E-05 0.10000E+01 0.39689E+04 0.52888E-40 0.41966E-47 0.58753E-46 - 2 2 0.37375E-05 0.10000E+01 0.32008E+04 0.17985E-37 0.33518E-44 0.16625E-43 - 2 2 0.37375E-05 0.10000E+01 0.25813E+04 0.11579E-28 0.47350E-35 0.10107E-34 - 2 2 0.37375E-05 0.10000E+01 0.20817E+04 0.18612E-12 0.27217E-18 0.15707E-18 + 2 2 0.37375E-05 0.10000E+01 0.80645E+05 0.58590E-09 0.36871E-20 0.79549E-15 + 2 2 0.37375E-05 0.10000E+01 0.65036E+05 0.75142E-09 0.84717E-20 0.10205E-14 + 2 2 0.37375E-05 0.10000E+01 0.52449E+05 0.95019E-09 0.19185E-19 0.12909E-14 + 2 2 0.37375E-05 0.10000E+01 0.42297E+05 0.11888E-08 0.42671E-19 0.16160E-14 + 2 2 0.37375E-05 0.10000E+01 0.34111E+05 0.14744E-08 0.92933E-19 0.20059E-14 + 2 2 0.37375E-05 0.10000E+01 0.27509E+05 0.18138E-08 0.19748E-18 0.24707E-14 + 2 2 0.37375E-05 0.10000E+01 0.22184E+05 0.22131E-08 0.40827E-18 0.30199E-14 + 2 2 0.37375E-05 0.10000E+01 0.17891E+05 0.26769E-08 0.82627E-18 0.36608E-14 + 2 2 0.37375E-05 0.10000E+01 0.14428E+05 0.32073E-08 0.16956E-17 0.43976E-14 + 2 2 0.37375E-05 0.10000E+01 0.11635E+05 0.38057E-08 0.38368E-17 0.52305E-14 + 2 2 0.37375E-05 0.10000E+01 0.93834E+04 0.44776E-08 0.10505E-16 0.61593E-14 + 2 2 0.37375E-05 0.10000E+01 0.75673E+04 0.52475E-08 0.34745E-16 0.71956E-14 + 2 2 0.37375E-05 0.10000E+01 0.61026E+04 0.61872E-08 0.12710E-15 0.83865E-14 + 2 2 0.37375E-05 0.10000E+01 0.49215E+04 0.74698E-08 0.47679E-15 0.98571E-14 + 2 2 0.37375E-05 0.10000E+01 0.39689E+04 0.94653E-08 0.17753E-14 0.11873E-13 + 2 2 0.37375E-05 0.10000E+01 0.32008E+04 0.12912E-07 0.65248E-14 0.14934E-13 + 2 2 0.37375E-05 0.10000E+01 0.25813E+04 0.19235E-07 0.23754E-13 0.19903E-13 + 2 2 0.37375E-05 0.10000E+01 0.20817E+04 0.31131E-07 0.85887E-13 0.28213E-13 2 2 0.37375E-05 0.10000E+01 0.16788E+04 0.53683E-07 0.30835E-12 0.42190E-13 2 2 0.37375E-05 0.10000E+01 0.13538E+04 0.96409E-07 0.10995E-11 0.65594E-13 2 2 0.37375E-05 0.10000E+01 0.10918E+04 0.17702E-06 0.39043E-11 0.10453E-12 @@ -9060,24 +9060,24 @@ VERSION 2.8.2 2 2 0.37375E-05 0.10000E+01 0.24221E+03 0.12153E-04 0.10740E-07 0.34718E-11 2 2 0.37375E-05 0.10000E+01 0.19533E+03 0.18944E-04 0.20380E-07 0.52130E-11 2 2 0.37375E-05 0.10000E+01 0.15752E+03 0.18944E-04 0.20380E-07 0.52130E-11 - 2 2 0.65217E-05 0.10000E+01 0.80645E+05 0.15118E-51 0.11307E-62 0.20531E-57 - 2 2 0.65217E-05 0.10000E+01 0.65036E+05 0.12786E-50 0.17952E-61 0.17373E-56 - 2 2 0.65217E-05 0.10000E+01 0.52449E+05 0.10862E-49 0.24078E-60 0.14764E-55 - 2 2 0.65217E-05 0.10000E+01 0.42297E+05 0.81599E-49 0.32592E-59 0.11101E-54 - 2 2 0.65217E-05 0.10000E+01 0.34111E+05 0.58675E-48 0.44464E-58 0.79935E-54 - 2 2 0.65217E-05 0.10000E+01 0.27509E+05 0.41911E-47 0.59646E-57 0.57229E-53 - 2 2 0.65217E-05 0.10000E+01 0.22184E+05 0.29601E-46 0.78031E-56 0.40572E-52 - 2 2 0.65217E-05 0.10000E+01 0.17891E+05 0.20483E-45 0.99269E-55 0.28241E-51 - 2 2 0.65217E-05 0.10000E+01 0.14428E+05 0.13819E-44 0.12293E-53 0.19222E-50 - 2 2 0.65217E-05 0.10000E+01 0.11635E+05 0.90782E-44 0.14739E-52 0.12781E-49 - 2 2 0.65217E-05 0.10000E+01 0.93834E+04 0.57823E-43 0.16792E-51 0.82696E-49 - 2 2 0.65217E-05 0.10000E+01 0.75673E+04 0.35278E-42 0.17998E-50 0.51337E-48 - 2 2 0.65217E-05 0.10000E+01 0.61026E+04 0.20513E-41 0.20148E-49 0.29933E-47 - 2 2 0.65217E-05 0.10000E+01 0.49215E+04 0.12194E-40 0.31884E-48 0.16594E-46 - 2 2 0.65217E-05 0.10000E+01 0.39689E+04 0.92287E-40 0.73228E-47 0.10252E-45 - 2 2 0.65217E-05 0.10000E+01 0.32008E+04 0.31383E-37 0.58488E-44 0.29009E-43 - 2 2 0.65217E-05 0.10000E+01 0.25813E+04 0.20205E-28 0.82623E-35 0.17636E-34 - 2 2 0.65217E-05 0.10000E+01 0.20817E+04 0.32476E-12 0.47492E-18 0.27408E-18 + 2 2 0.65217E-05 0.10000E+01 0.80645E+05 0.10224E-08 0.64338E-20 0.13881E-14 + 2 2 0.65217E-05 0.10000E+01 0.65036E+05 0.13112E-08 0.14783E-19 0.17806E-14 + 2 2 0.65217E-05 0.10000E+01 0.52449E+05 0.16580E-08 0.33476E-19 0.22525E-14 + 2 2 0.65217E-05 0.10000E+01 0.42297E+05 0.20744E-08 0.74458E-19 0.28199E-14 + 2 2 0.65217E-05 0.10000E+01 0.34111E+05 0.25727E-08 0.16216E-18 0.35002E-14 + 2 2 0.65217E-05 0.10000E+01 0.27509E+05 0.31649E-08 0.34459E-18 0.43112E-14 + 2 2 0.65217E-05 0.10000E+01 0.22184E+05 0.38618E-08 0.71241E-18 0.52695E-14 + 2 2 0.65217E-05 0.10000E+01 0.17891E+05 0.46710E-08 0.14418E-17 0.63880E-14 + 2 2 0.65217E-05 0.10000E+01 0.14428E+05 0.55966E-08 0.29588E-17 0.76736E-14 + 2 2 0.65217E-05 0.10000E+01 0.11635E+05 0.66407E-08 0.66950E-17 0.91268E-14 + 2 2 0.65217E-05 0.10000E+01 0.93834E+04 0.78132E-08 0.18330E-16 0.10748E-13 + 2 2 0.65217E-05 0.10000E+01 0.75673E+04 0.91565E-08 0.60628E-16 0.12556E-13 + 2 2 0.65217E-05 0.10000E+01 0.61026E+04 0.10796E-07 0.22179E-15 0.14634E-13 + 2 2 0.65217E-05 0.10000E+01 0.49215E+04 0.13034E-07 0.83197E-15 0.17200E-13 + 2 2 0.65217E-05 0.10000E+01 0.39689E+04 0.16516E-07 0.30979E-14 0.20718E-13 + 2 2 0.65217E-05 0.10000E+01 0.32008E+04 0.22531E-07 0.11385E-13 0.26058E-13 + 2 2 0.65217E-05 0.10000E+01 0.25813E+04 0.33563E-07 0.41450E-13 0.34729E-13 + 2 2 0.65217E-05 0.10000E+01 0.20817E+04 0.54321E-07 0.14987E-12 0.49230E-13 2 2 0.65217E-05 0.10000E+01 0.16788E+04 0.93674E-07 0.53805E-12 0.73620E-13 2 2 0.65217E-05 0.10000E+01 0.13538E+04 0.16823E-06 0.19186E-11 0.11446E-12 2 2 0.65217E-05 0.10000E+01 0.10918E+04 0.30889E-06 0.68128E-11 0.18241E-12 @@ -9090,24 +9090,24 @@ VERSION 2.8.2 2 2 0.65217E-05 0.10000E+01 0.24221E+03 0.21207E-04 0.18741E-07 0.60580E-11 2 2 0.65217E-05 0.10000E+01 0.19533E+03 0.33057E-04 0.35562E-07 0.90964E-11 2 2 0.65217E-05 0.10000E+01 0.15752E+03 0.33057E-04 0.35562E-07 0.90964E-11 - 2 2 0.11380E-04 0.10000E+01 0.80645E+05 0.26380E-51 0.19730E-62 0.35825E-57 - 2 2 0.11380E-04 0.10000E+01 0.65036E+05 0.22311E-50 0.31324E-61 0.30314E-56 - 2 2 0.11380E-04 0.10000E+01 0.52449E+05 0.18953E-49 0.42015E-60 0.25763E-55 - 2 2 0.11380E-04 0.10000E+01 0.42297E+05 0.14238E-48 0.56870E-59 0.19370E-54 - 2 2 0.11380E-04 0.10000E+01 0.34111E+05 0.10238E-47 0.77587E-58 0.13948E-53 - 2 2 0.11380E-04 0.10000E+01 0.27509E+05 0.73132E-47 0.10408E-56 0.99860E-53 - 2 2 0.11380E-04 0.10000E+01 0.22184E+05 0.51652E-46 0.13616E-55 0.70795E-52 - 2 2 0.11380E-04 0.10000E+01 0.17891E+05 0.35742E-45 0.17322E-54 0.49280E-51 - 2 2 0.11380E-04 0.10000E+01 0.14428E+05 0.24114E-44 0.21451E-53 0.33541E-50 - 2 2 0.11380E-04 0.10000E+01 0.11635E+05 0.15841E-43 0.25718E-52 0.22302E-49 - 2 2 0.11380E-04 0.10000E+01 0.93834E+04 0.10090E-42 0.29300E-51 0.14430E-48 - 2 2 0.11380E-04 0.10000E+01 0.75673E+04 0.61559E-42 0.31406E-50 0.89580E-48 - 2 2 0.11380E-04 0.10000E+01 0.61026E+04 0.35794E-41 0.35157E-49 0.52232E-47 - 2 2 0.11380E-04 0.10000E+01 0.49215E+04 0.21277E-40 0.55635E-48 0.28956E-46 - 2 2 0.11380E-04 0.10000E+01 0.39689E+04 0.16104E-39 0.12778E-46 0.17889E-45 - 2 2 0.11380E-04 0.10000E+01 0.32008E+04 0.54762E-37 0.10206E-43 0.50619E-43 - 2 2 0.11380E-04 0.10000E+01 0.25813E+04 0.35256E-28 0.14417E-34 0.30774E-34 - 2 2 0.11380E-04 0.10000E+01 0.20817E+04 0.56669E-12 0.82871E-18 0.47825E-18 + 2 2 0.11380E-04 0.10000E+01 0.80645E+05 0.17840E-08 0.11227E-19 0.24221E-14 + 2 2 0.11380E-04 0.10000E+01 0.65036E+05 0.22879E-08 0.25795E-19 0.31071E-14 + 2 2 0.11380E-04 0.10000E+01 0.52449E+05 0.28932E-08 0.58413E-19 0.39305E-14 + 2 2 0.11380E-04 0.10000E+01 0.42297E+05 0.36198E-08 0.12992E-18 0.49205E-14 + 2 2 0.11380E-04 0.10000E+01 0.34111E+05 0.44892E-08 0.28296E-18 0.61076E-14 + 2 2 0.11380E-04 0.10000E+01 0.27509E+05 0.55226E-08 0.60129E-18 0.75228E-14 + 2 2 0.11380E-04 0.10000E+01 0.22184E+05 0.67385E-08 0.12431E-17 0.91949E-14 + 2 2 0.11380E-04 0.10000E+01 0.17891E+05 0.81506E-08 0.25158E-17 0.11147E-13 + 2 2 0.11380E-04 0.10000E+01 0.14428E+05 0.97658E-08 0.51629E-17 0.13390E-13 + 2 2 0.11380E-04 0.10000E+01 0.11635E+05 0.11588E-07 0.11682E-16 0.15926E-13 + 2 2 0.11380E-04 0.10000E+01 0.93834E+04 0.13634E-07 0.31985E-16 0.18754E-13 + 2 2 0.11380E-04 0.10000E+01 0.75673E+04 0.15978E-07 0.10579E-15 0.21909E-13 + 2 2 0.11380E-04 0.10000E+01 0.61026E+04 0.18839E-07 0.38701E-15 0.25535E-13 + 2 2 0.11380E-04 0.10000E+01 0.49215E+04 0.22744E-07 0.14517E-14 0.30013E-13 + 2 2 0.11380E-04 0.10000E+01 0.39689E+04 0.28820E-07 0.54056E-14 0.36152E-13 + 2 2 0.11380E-04 0.10000E+01 0.32008E+04 0.39316E-07 0.19867E-13 0.45470E-13 + 2 2 0.11380E-04 0.10000E+01 0.25813E+04 0.58566E-07 0.72327E-13 0.60600E-13 + 2 2 0.11380E-04 0.10000E+01 0.20817E+04 0.94787E-07 0.26151E-12 0.85903E-13 2 2 0.11380E-04 0.10000E+01 0.16788E+04 0.16345E-06 0.93887E-12 0.12846E-12 2 2 0.11380E-04 0.10000E+01 0.13538E+04 0.29355E-06 0.33478E-11 0.19972E-12 2 2 0.11380E-04 0.10000E+01 0.10918E+04 0.53899E-06 0.11888E-10 0.31829E-12 @@ -9120,24 +9120,24 @@ VERSION 2.8.2 2 2 0.11380E-04 0.10000E+01 0.24221E+03 0.37004E-04 0.32701E-07 0.10571E-10 2 2 0.11380E-04 0.10000E+01 0.19533E+03 0.57682E-04 0.62054E-07 0.15873E-10 2 2 0.11380E-04 0.10000E+01 0.15752E+03 0.57682E-04 0.62054E-07 0.15873E-10 - 2 2 0.19857E-04 0.10000E+01 0.80645E+05 0.46032E-51 0.34428E-62 0.62513E-57 - 2 2 0.19857E-04 0.10000E+01 0.65036E+05 0.38931E-50 0.54659E-61 0.52896E-56 - 2 2 0.19857E-04 0.10000E+01 0.52449E+05 0.33071E-49 0.73313E-60 0.44954E-55 - 2 2 0.19857E-04 0.10000E+01 0.42297E+05 0.24845E-48 0.99235E-59 0.33799E-54 - 2 2 0.19857E-04 0.10000E+01 0.34111E+05 0.17865E-47 0.13538E-57 0.24339E-53 - 2 2 0.19857E-04 0.10000E+01 0.27509E+05 0.12761E-46 0.18161E-56 0.17425E-52 - 2 2 0.19857E-04 0.10000E+01 0.22184E+05 0.90130E-46 0.23759E-55 0.12353E-51 - 2 2 0.19857E-04 0.10000E+01 0.17891E+05 0.62367E-45 0.30226E-54 0.85990E-51 - 2 2 0.19857E-04 0.10000E+01 0.14428E+05 0.42077E-44 0.37430E-53 0.58527E-50 - 2 2 0.19857E-04 0.10000E+01 0.11635E+05 0.27641E-43 0.44877E-52 0.38916E-49 - 2 2 0.19857E-04 0.10000E+01 0.93834E+04 0.17606E-42 0.51127E-51 0.25179E-48 - 2 2 0.19857E-04 0.10000E+01 0.75673E+04 0.10742E-41 0.54802E-50 0.15631E-47 - 2 2 0.19857E-04 0.10000E+01 0.61026E+04 0.62458E-41 0.61348E-49 0.91141E-47 - 2 2 0.19857E-04 0.10000E+01 0.49215E+04 0.37128E-40 0.97080E-48 0.50526E-46 - 2 2 0.19857E-04 0.10000E+01 0.39689E+04 0.28100E-39 0.22297E-46 0.31216E-45 - 2 2 0.19857E-04 0.10000E+01 0.32008E+04 0.95556E-37 0.17808E-43 0.88327E-43 - 2 2 0.19857E-04 0.10000E+01 0.25813E+04 0.61520E-28 0.25157E-34 0.53699E-34 - 2 2 0.19857E-04 0.10000E+01 0.20817E+04 0.98884E-12 0.14460E-17 0.83452E-18 + 2 2 0.19857E-04 0.10000E+01 0.80645E+05 0.31129E-08 0.19590E-19 0.42265E-14 + 2 2 0.19857E-04 0.10000E+01 0.65036E+05 0.39923E-08 0.45010E-19 0.54217E-14 + 2 2 0.19857E-04 0.10000E+01 0.52449E+05 0.50484E-08 0.10193E-18 0.68585E-14 + 2 2 0.19857E-04 0.10000E+01 0.42297E+05 0.63163E-08 0.22671E-18 0.85859E-14 + 2 2 0.19857E-04 0.10000E+01 0.34111E+05 0.78334E-08 0.49375E-18 0.10657E-13 + 2 2 0.19857E-04 0.10000E+01 0.27509E+05 0.96366E-08 0.10492E-17 0.13127E-13 + 2 2 0.19857E-04 0.10000E+01 0.22184E+05 0.11758E-07 0.21692E-17 0.16045E-13 + 2 2 0.19857E-04 0.10000E+01 0.17891E+05 0.14222E-07 0.43900E-17 0.19450E-13 + 2 2 0.19857E-04 0.10000E+01 0.14428E+05 0.17041E-07 0.90089E-17 0.23365E-13 + 2 2 0.19857E-04 0.10000E+01 0.11635E+05 0.20220E-07 0.20385E-16 0.27790E-13 + 2 2 0.19857E-04 0.10000E+01 0.93834E+04 0.23790E-07 0.55811E-16 0.32725E-13 + 2 2 0.19857E-04 0.10000E+01 0.75673E+04 0.27880E-07 0.18460E-15 0.38230E-13 + 2 2 0.19857E-04 0.10000E+01 0.61026E+04 0.32873E-07 0.67531E-15 0.44558E-13 + 2 2 0.19857E-04 0.10000E+01 0.49215E+04 0.39687E-07 0.25332E-14 0.52371E-13 + 2 2 0.19857E-04 0.10000E+01 0.39689E+04 0.50289E-07 0.94324E-14 0.63083E-13 + 2 2 0.19857E-04 0.10000E+01 0.32008E+04 0.68604E-07 0.34666E-13 0.79343E-13 + 2 2 0.19857E-04 0.10000E+01 0.25813E+04 0.10219E-06 0.12621E-12 0.10574E-12 + 2 2 0.19857E-04 0.10000E+01 0.20817E+04 0.16540E-06 0.45632E-12 0.14990E-12 2 2 0.19857E-04 0.10000E+01 0.16788E+04 0.28522E-06 0.16383E-11 0.22416E-12 2 2 0.19857E-04 0.10000E+01 0.13538E+04 0.51222E-06 0.58418E-11 0.34850E-12 2 2 0.19857E-04 0.10000E+01 0.10918E+04 0.94050E-06 0.20744E-10 0.55539E-12 @@ -9150,24 +9150,24 @@ VERSION 2.8.2 2 2 0.19857E-04 0.10000E+01 0.24221E+03 0.64570E-04 0.57062E-07 0.18446E-10 2 2 0.19857E-04 0.10000E+01 0.19533E+03 0.10065E-03 0.10828E-06 0.27697E-10 2 2 0.19857E-04 0.10000E+01 0.15752E+03 0.10065E-03 0.10828E-06 0.27697E-10 - 2 2 0.34650E-04 0.10000E+01 0.80645E+05 0.80323E-51 0.60074E-62 0.10908E-56 - 2 2 0.34650E-04 0.10000E+01 0.65036E+05 0.67933E-50 0.95377E-61 0.92301E-56 - 2 2 0.34650E-04 0.10000E+01 0.52449E+05 0.57708E-49 0.12793E-59 0.78443E-55 - 2 2 0.34650E-04 0.10000E+01 0.42297E+05 0.43353E-48 0.17316E-58 0.58978E-54 - 2 2 0.34650E-04 0.10000E+01 0.34111E+05 0.31174E-47 0.23624E-57 0.42469E-53 - 2 2 0.34650E-04 0.10000E+01 0.27509E+05 0.22267E-46 0.31690E-56 0.30406E-52 - 2 2 0.34650E-04 0.10000E+01 0.22184E+05 0.15727E-45 0.41458E-55 0.21556E-51 - 2 2 0.34650E-04 0.10000E+01 0.17891E+05 0.10883E-44 0.52742E-54 0.15005E-50 - 2 2 0.34650E-04 0.10000E+01 0.14428E+05 0.73421E-44 0.65313E-53 0.10213E-49 - 2 2 0.34650E-04 0.10000E+01 0.11635E+05 0.48232E-43 0.78308E-52 0.67906E-49 - 2 2 0.34650E-04 0.10000E+01 0.93834E+04 0.30721E-42 0.89214E-51 0.43936E-48 - 2 2 0.34650E-04 0.10000E+01 0.75673E+04 0.18744E-41 0.95626E-50 0.27275E-47 - 2 2 0.34650E-04 0.10000E+01 0.61026E+04 0.10898E-40 0.10705E-48 0.15904E-46 - 2 2 0.34650E-04 0.10000E+01 0.49215E+04 0.64785E-40 0.16940E-47 0.88164E-46 - 2 2 0.34650E-04 0.10000E+01 0.39689E+04 0.49032E-39 0.38906E-46 0.54469E-45 - 2 2 0.34650E-04 0.10000E+01 0.32008E+04 0.16674E-36 0.31075E-43 0.15413E-42 - 2 2 0.34650E-04 0.10000E+01 0.25813E+04 0.10735E-27 0.43898E-34 0.93702E-34 - 2 2 0.34650E-04 0.10000E+01 0.20817E+04 0.17255E-11 0.25233E-17 0.14562E-17 + 2 2 0.34650E-04 0.10000E+01 0.80645E+05 0.54318E-08 0.34183E-19 0.73749E-14 + 2 2 0.34650E-04 0.10000E+01 0.65036E+05 0.69663E-08 0.78540E-19 0.94606E-14 + 2 2 0.34650E-04 0.10000E+01 0.52449E+05 0.88092E-08 0.17786E-18 0.11968E-13 + 2 2 0.34650E-04 0.10000E+01 0.42297E+05 0.11022E-07 0.39559E-18 0.14982E-13 + 2 2 0.34650E-04 0.10000E+01 0.34111E+05 0.13669E-07 0.86157E-18 0.18596E-13 + 2 2 0.34650E-04 0.10000E+01 0.27509E+05 0.16815E-07 0.18308E-17 0.22906E-13 + 2 2 0.34650E-04 0.10000E+01 0.22184E+05 0.20518E-07 0.37851E-17 0.27997E-13 + 2 2 0.34650E-04 0.10000E+01 0.17891E+05 0.24817E-07 0.76603E-17 0.33939E-13 + 2 2 0.34650E-04 0.10000E+01 0.14428E+05 0.29735E-07 0.15720E-16 0.40770E-13 + 2 2 0.34650E-04 0.10000E+01 0.11635E+05 0.35282E-07 0.35571E-16 0.48491E-13 + 2 2 0.34650E-04 0.10000E+01 0.93834E+04 0.41512E-07 0.97387E-16 0.57102E-13 + 2 2 0.34650E-04 0.10000E+01 0.75673E+04 0.48649E-07 0.32212E-15 0.66709E-13 + 2 2 0.34650E-04 0.10000E+01 0.61026E+04 0.57361E-07 0.11784E-14 0.77751E-13 + 2 2 0.34650E-04 0.10000E+01 0.49215E+04 0.69252E-07 0.44203E-14 0.91384E-13 + 2 2 0.34650E-04 0.10000E+01 0.39689E+04 0.87752E-07 0.16459E-13 0.11008E-12 + 2 2 0.34650E-04 0.10000E+01 0.32008E+04 0.11971E-06 0.60491E-13 0.13845E-12 + 2 2 0.34650E-04 0.10000E+01 0.25813E+04 0.17832E-06 0.22022E-12 0.18452E-12 + 2 2 0.34650E-04 0.10000E+01 0.20817E+04 0.28861E-06 0.79625E-12 0.26156E-12 2 2 0.34650E-04 0.10000E+01 0.16788E+04 0.49769E-06 0.28587E-11 0.39114E-12 2 2 0.34650E-04 0.10000E+01 0.13538E+04 0.89380E-06 0.10194E-10 0.60811E-12 2 2 0.34650E-04 0.10000E+01 0.10918E+04 0.16411E-05 0.36196E-10 0.96913E-12 @@ -9180,24 +9180,24 @@ VERSION 2.8.2 2 2 0.34650E-04 0.10000E+01 0.24221E+03 0.11267E-03 0.99570E-07 0.32186E-10 2 2 0.34650E-04 0.10000E+01 0.19533E+03 0.17563E-03 0.18894E-06 0.48329E-10 2 2 0.34650E-04 0.10000E+01 0.15752E+03 0.17563E-03 0.18894E-06 0.48329E-10 - 2 2 0.60462E-04 0.10000E+01 0.80645E+05 0.14016E-50 0.10483E-61 0.19034E-56 - 2 2 0.60462E-04 0.10000E+01 0.65036E+05 0.11854E-49 0.16643E-60 0.16106E-55 - 2 2 0.60462E-04 0.10000E+01 0.52449E+05 0.10070E-48 0.22322E-59 0.13688E-54 - 2 2 0.60462E-04 0.10000E+01 0.42297E+05 0.75649E-48 0.30215E-58 0.10291E-53 - 2 2 0.60462E-04 0.10000E+01 0.34111E+05 0.54397E-47 0.41222E-57 0.74107E-53 - 2 2 0.60462E-04 0.10000E+01 0.27509E+05 0.38855E-46 0.55297E-56 0.53056E-52 - 2 2 0.60462E-04 0.10000E+01 0.22184E+05 0.27443E-45 0.72341E-55 0.37614E-51 - 2 2 0.60462E-04 0.10000E+01 0.17891E+05 0.18990E-44 0.92031E-54 0.26182E-50 - 2 2 0.60462E-04 0.10000E+01 0.14428E+05 0.12812E-43 0.11397E-52 0.17821E-49 - 2 2 0.60462E-04 0.10000E+01 0.11635E+05 0.84163E-43 0.13664E-51 0.11849E-48 - 2 2 0.60462E-04 0.10000E+01 0.93834E+04 0.53607E-42 0.15567E-50 0.76666E-48 - 2 2 0.60462E-04 0.10000E+01 0.75673E+04 0.32706E-41 0.16686E-49 0.47594E-47 - 2 2 0.60462E-04 0.10000E+01 0.61026E+04 0.19017E-40 0.18679E-48 0.27751E-46 - 2 2 0.60462E-04 0.10000E+01 0.49215E+04 0.11305E-39 0.29559E-47 0.15384E-45 - 2 2 0.60462E-04 0.10000E+01 0.39689E+04 0.85558E-39 0.67889E-46 0.95046E-45 - 2 2 0.60462E-04 0.10000E+01 0.32008E+04 0.29095E-36 0.54223E-43 0.26894E-42 - 2 2 0.60462E-04 0.10000E+01 0.25813E+04 0.18732E-27 0.76599E-34 0.16350E-33 - 2 2 0.60462E-04 0.10000E+01 0.20817E+04 0.30108E-11 0.44029E-17 0.25409E-17 + 2 2 0.60462E-04 0.10000E+01 0.80645E+05 0.94782E-08 0.59647E-19 0.12869E-13 + 2 2 0.60462E-04 0.10000E+01 0.65036E+05 0.12156E-07 0.13705E-18 0.16508E-13 + 2 2 0.60462E-04 0.10000E+01 0.52449E+05 0.15371E-07 0.31035E-18 0.20883E-13 + 2 2 0.60462E-04 0.10000E+01 0.42297E+05 0.19232E-07 0.69029E-18 0.26143E-13 + 2 2 0.60462E-04 0.10000E+01 0.34111E+05 0.23851E-07 0.15034E-17 0.32450E-13 + 2 2 0.60462E-04 0.10000E+01 0.27509E+05 0.29342E-07 0.31947E-17 0.39969E-13 + 2 2 0.60462E-04 0.10000E+01 0.22184E+05 0.35802E-07 0.66047E-17 0.48853E-13 + 2 2 0.60462E-04 0.10000E+01 0.17891E+05 0.43304E-07 0.13367E-16 0.59222E-13 + 2 2 0.60462E-04 0.10000E+01 0.14428E+05 0.51886E-07 0.27430E-16 0.71141E-13 + 2 2 0.60462E-04 0.10000E+01 0.11635E+05 0.61565E-07 0.62068E-16 0.84614E-13 + 2 2 0.60462E-04 0.10000E+01 0.93834E+04 0.72435E-07 0.16993E-15 0.99640E-13 + 2 2 0.60462E-04 0.10000E+01 0.75673E+04 0.84889E-07 0.56207E-15 0.11640E-12 + 2 2 0.60462E-04 0.10000E+01 0.61026E+04 0.10009E-06 0.20562E-14 0.13567E-12 + 2 2 0.60462E-04 0.10000E+01 0.49215E+04 0.12084E-06 0.77131E-14 0.15946E-12 + 2 2 0.60462E-04 0.10000E+01 0.39689E+04 0.15312E-06 0.28720E-13 0.19208E-12 + 2 2 0.60462E-04 0.10000E+01 0.32008E+04 0.20889E-06 0.10555E-12 0.24158E-12 + 2 2 0.60462E-04 0.10000E+01 0.25813E+04 0.31116E-06 0.38427E-12 0.32197E-12 + 2 2 0.60462E-04 0.10000E+01 0.20817E+04 0.50360E-06 0.13894E-11 0.45641E-12 2 2 0.60462E-04 0.10000E+01 0.16788E+04 0.86844E-06 0.49882E-11 0.68252E-12 2 2 0.60462E-04 0.10000E+01 0.13538E+04 0.15596E-05 0.17787E-10 0.10611E-11 2 2 0.60462E-04 0.10000E+01 0.10918E+04 0.28636E-05 0.63160E-10 0.16911E-11 @@ -9210,24 +9210,24 @@ VERSION 2.8.2 2 2 0.60462E-04 0.10000E+01 0.24221E+03 0.19660E-03 0.17374E-06 0.56163E-10 2 2 0.60462E-04 0.10000E+01 0.19533E+03 0.30647E-03 0.32969E-06 0.84331E-10 2 2 0.60462E-04 0.10000E+01 0.15752E+03 0.30647E-03 0.32969E-06 0.84331E-10 - 2 2 0.10550E-03 0.10000E+01 0.80645E+05 0.24457E-50 0.18292E-61 0.33213E-56 - 2 2 0.10550E-03 0.10000E+01 0.65036E+05 0.20684E-49 0.29041E-60 0.28104E-55 - 2 2 0.10550E-03 0.10000E+01 0.52449E+05 0.17571E-48 0.38951E-59 0.23884E-54 - 2 2 0.10550E-03 0.10000E+01 0.42297E+05 0.13200E-47 0.52724E-58 0.17958E-53 - 2 2 0.10550E-03 0.10000E+01 0.34111E+05 0.94919E-47 0.71930E-57 0.12931E-52 - 2 2 0.10550E-03 0.10000E+01 0.27509E+05 0.67800E-46 0.96490E-56 0.92580E-52 - 2 2 0.10550E-03 0.10000E+01 0.22184E+05 0.47886E-45 0.12623E-54 0.65633E-51 - 2 2 0.10550E-03 0.10000E+01 0.17891E+05 0.33136E-44 0.16059E-53 0.45687E-50 - 2 2 0.10550E-03 0.10000E+01 0.14428E+05 0.22355E-43 0.19887E-52 0.31096E-49 - 2 2 0.10550E-03 0.10000E+01 0.11635E+05 0.14686E-42 0.23843E-51 0.20676E-48 - 2 2 0.10550E-03 0.10000E+01 0.93834E+04 0.93540E-42 0.27164E-50 0.13378E-47 - 2 2 0.10550E-03 0.10000E+01 0.75673E+04 0.57071E-41 0.29116E-49 0.83048E-47 - 2 2 0.10550E-03 0.10000E+01 0.61026E+04 0.33184E-40 0.32594E-48 0.48423E-46 - 2 2 0.10550E-03 0.10000E+01 0.49215E+04 0.19726E-39 0.51579E-47 0.26844E-45 - 2 2 0.10550E-03 0.10000E+01 0.39689E+04 0.14929E-38 0.11846E-45 0.16585E-44 - 2 2 0.10550E-03 0.10000E+01 0.32008E+04 0.50769E-36 0.94616E-43 0.46928E-42 - 2 2 0.10550E-03 0.10000E+01 0.25813E+04 0.32686E-27 0.13366E-33 0.28530E-33 - 2 2 0.10550E-03 0.10000E+01 0.20817E+04 0.52537E-11 0.76829E-17 0.44338E-17 + 2 2 0.10550E-03 0.10000E+01 0.80645E+05 0.16539E-07 0.10408E-18 0.22455E-13 + 2 2 0.10550E-03 0.10000E+01 0.65036E+05 0.21211E-07 0.23914E-18 0.28806E-13 + 2 2 0.10550E-03 0.10000E+01 0.52449E+05 0.26822E-07 0.54154E-18 0.36439E-13 + 2 2 0.10550E-03 0.10000E+01 0.42297E+05 0.33559E-07 0.12045E-17 0.45617E-13 + 2 2 0.10550E-03 0.10000E+01 0.34111E+05 0.41619E-07 0.26233E-17 0.56623E-13 + 2 2 0.10550E-03 0.10000E+01 0.27509E+05 0.51199E-07 0.55745E-17 0.69743E-13 + 2 2 0.10550E-03 0.10000E+01 0.22184E+05 0.62472E-07 0.11525E-16 0.85245E-13 + 2 2 0.10550E-03 0.10000E+01 0.17891E+05 0.75563E-07 0.23324E-16 0.10334E-12 + 2 2 0.10550E-03 0.10000E+01 0.14428E+05 0.90537E-07 0.47864E-16 0.12414E-12 + 2 2 0.10550E-03 0.10000E+01 0.11635E+05 0.10743E-06 0.10831E-15 0.14765E-12 + 2 2 0.10550E-03 0.10000E+01 0.93834E+04 0.12639E-06 0.29653E-15 0.17387E-12 + 2 2 0.10550E-03 0.10000E+01 0.75673E+04 0.14813E-06 0.98079E-15 0.20312E-12 + 2 2 0.10550E-03 0.10000E+01 0.61026E+04 0.17465E-06 0.35879E-14 0.23674E-12 + 2 2 0.10550E-03 0.10000E+01 0.49215E+04 0.21086E-06 0.13459E-13 0.27825E-12 + 2 2 0.10550E-03 0.10000E+01 0.39689E+04 0.26719E-06 0.50115E-13 0.33516E-12 + 2 2 0.10550E-03 0.10000E+01 0.32008E+04 0.36449E-06 0.18418E-12 0.42155E-12 + 2 2 0.10550E-03 0.10000E+01 0.25813E+04 0.54296E-06 0.67054E-12 0.56182E-12 + 2 2 0.10550E-03 0.10000E+01 0.20817E+04 0.87876E-06 0.24244E-11 0.79640E-12 2 2 0.10550E-03 0.10000E+01 0.16788E+04 0.15154E-05 0.87042E-11 0.11910E-11 2 2 0.10550E-03 0.10000E+01 0.13538E+04 0.27215E-05 0.31037E-10 0.18516E-11 2 2 0.10550E-03 0.10000E+01 0.10918E+04 0.49969E-05 0.11021E-09 0.29508E-11 @@ -9240,24 +9240,24 @@ VERSION 2.8.2 2 2 0.10550E-03 0.10000E+01 0.24221E+03 0.34306E-03 0.30317E-06 0.98002E-10 2 2 0.10550E-03 0.10000E+01 0.19533E+03 0.53476E-03 0.57530E-06 0.14715E-09 2 2 0.10550E-03 0.10000E+01 0.15752E+03 0.53476E-03 0.57530E-06 0.14715E-09 - 2 2 0.18409E-03 0.10000E+01 0.80645E+05 0.42676E-50 0.31918E-61 0.57955E-56 - 2 2 0.18409E-03 0.10000E+01 0.65036E+05 0.36093E-49 0.50674E-60 0.49040E-55 - 2 2 0.18409E-03 0.10000E+01 0.52449E+05 0.30660E-48 0.67968E-59 0.41677E-54 - 2 2 0.18409E-03 0.10000E+01 0.42297E+05 0.23034E-47 0.92000E-58 0.31335E-53 - 2 2 0.18409E-03 0.10000E+01 0.34111E+05 0.16563E-46 0.12551E-56 0.22564E-52 - 2 2 0.18409E-03 0.10000E+01 0.27509E+05 0.11831E-45 0.16837E-55 0.16155E-51 - 2 2 0.18409E-03 0.10000E+01 0.22184E+05 0.83559E-45 0.22027E-54 0.11453E-50 - 2 2 0.18409E-03 0.10000E+01 0.17891E+05 0.57820E-44 0.28022E-53 0.79720E-50 - 2 2 0.18409E-03 0.10000E+01 0.14428E+05 0.39009E-43 0.34701E-52 0.54260E-49 - 2 2 0.18409E-03 0.10000E+01 0.11635E+05 0.25626E-42 0.41605E-51 0.36079E-48 - 2 2 0.18409E-03 0.10000E+01 0.93834E+04 0.16322E-41 0.47399E-50 0.23343E-47 - 2 2 0.18409E-03 0.10000E+01 0.75673E+04 0.99585E-41 0.50806E-49 0.14491E-46 - 2 2 0.18409E-03 0.10000E+01 0.61026E+04 0.57904E-40 0.56875E-48 0.84496E-46 - 2 2 0.18409E-03 0.10000E+01 0.49215E+04 0.34421E-39 0.90002E-47 0.46842E-45 - 2 2 0.18409E-03 0.10000E+01 0.39689E+04 0.26051E-38 0.20671E-45 0.28940E-44 - 2 2 0.18409E-03 0.10000E+01 0.32008E+04 0.88589E-36 0.16510E-42 0.81887E-42 - 2 2 0.18409E-03 0.10000E+01 0.25813E+04 0.57035E-27 0.23323E-33 0.49784E-33 - 2 2 0.18409E-03 0.10000E+01 0.20817E+04 0.91675E-11 0.13406E-16 0.77367E-17 + 2 2 0.18409E-03 0.10000E+01 0.80645E+05 0.28859E-07 0.18161E-18 0.39183E-13 + 2 2 0.18409E-03 0.10000E+01 0.65036E+05 0.37012E-07 0.41729E-18 0.50264E-13 + 2 2 0.18409E-03 0.10000E+01 0.52449E+05 0.46803E-07 0.94496E-18 0.63585E-13 + 2 2 0.18409E-03 0.10000E+01 0.42297E+05 0.58558E-07 0.21018E-17 0.79599E-13 + 2 2 0.18409E-03 0.10000E+01 0.34111E+05 0.72623E-07 0.45775E-17 0.98803E-13 + 2 2 0.18409E-03 0.10000E+01 0.27509E+05 0.89340E-07 0.97272E-17 0.12170E-12 + 2 2 0.18409E-03 0.10000E+01 0.22184E+05 0.10901E-06 0.20110E-16 0.14875E-12 + 2 2 0.18409E-03 0.10000E+01 0.17891E+05 0.13185E-06 0.40699E-16 0.18032E-12 + 2 2 0.18409E-03 0.10000E+01 0.14428E+05 0.15798E-06 0.83520E-16 0.21661E-12 + 2 2 0.18409E-03 0.10000E+01 0.11635E+05 0.18745E-06 0.18899E-15 0.25763E-12 + 2 2 0.18409E-03 0.10000E+01 0.93834E+04 0.22055E-06 0.51742E-15 0.30339E-12 + 2 2 0.18409E-03 0.10000E+01 0.75673E+04 0.25847E-06 0.17114E-14 0.35443E-12 + 2 2 0.18409E-03 0.10000E+01 0.61026E+04 0.30476E-06 0.62607E-14 0.41309E-12 + 2 2 0.18409E-03 0.10000E+01 0.49215E+04 0.36794E-06 0.23485E-13 0.48552E-12 + 2 2 0.18409E-03 0.10000E+01 0.39689E+04 0.46623E-06 0.87447E-13 0.58483E-12 + 2 2 0.18409E-03 0.10000E+01 0.32008E+04 0.63602E-06 0.32139E-12 0.73558E-12 + 2 2 0.18409E-03 0.10000E+01 0.25813E+04 0.94743E-06 0.11700E-11 0.98034E-12 + 2 2 0.18409E-03 0.10000E+01 0.20817E+04 0.15334E-05 0.42305E-11 0.13897E-11 2 2 0.18409E-03 0.10000E+01 0.16788E+04 0.26442E-05 0.15188E-10 0.20781E-11 2 2 0.18409E-03 0.10000E+01 0.13538E+04 0.47488E-05 0.54158E-10 0.32309E-11 2 2 0.18409E-03 0.10000E+01 0.10918E+04 0.87193E-05 0.19231E-09 0.51490E-11 @@ -9270,24 +9270,24 @@ VERSION 2.8.2 2 2 0.18409E-03 0.10000E+01 0.24221E+03 0.59862E-03 0.52902E-06 0.17101E-09 2 2 0.18409E-03 0.10000E+01 0.19533E+03 0.93313E-03 0.10039E-05 0.25677E-09 2 2 0.18409E-03 0.10000E+01 0.15752E+03 0.93313E-03 0.10039E-05 0.25677E-09 - 2 2 0.32123E-03 0.10000E+01 0.80645E+05 0.74467E-50 0.55694E-61 0.10113E-55 - 2 2 0.32123E-03 0.10000E+01 0.65036E+05 0.62980E-49 0.88423E-60 0.85571E-55 - 2 2 0.32123E-03 0.10000E+01 0.52449E+05 0.53500E-48 0.11860E-58 0.72723E-54 - 2 2 0.32123E-03 0.10000E+01 0.42297E+05 0.40192E-47 0.16053E-57 0.54678E-53 - 2 2 0.32123E-03 0.10000E+01 0.34111E+05 0.28901E-46 0.21901E-56 0.39373E-52 - 2 2 0.32123E-03 0.10000E+01 0.27509E+05 0.20644E-45 0.29379E-55 0.28189E-51 - 2 2 0.32123E-03 0.10000E+01 0.22184E+05 0.14580E-44 0.38435E-54 0.19984E-50 - 2 2 0.32123E-03 0.10000E+01 0.17891E+05 0.10089E-43 0.48896E-53 0.13911E-49 - 2 2 0.32123E-03 0.10000E+01 0.14428E+05 0.68068E-43 0.60551E-52 0.94681E-49 - 2 2 0.32123E-03 0.10000E+01 0.11635E+05 0.44716E-42 0.72598E-51 0.62955E-48 - 2 2 0.32123E-03 0.10000E+01 0.93834E+04 0.28481E-41 0.82709E-50 0.40733E-47 - 2 2 0.32123E-03 0.10000E+01 0.75673E+04 0.17377E-40 0.88654E-49 0.25287E-46 - 2 2 0.32123E-03 0.10000E+01 0.61026E+04 0.10104E-39 0.99243E-48 0.14744E-45 - 2 2 0.32123E-03 0.10000E+01 0.49215E+04 0.60062E-39 0.15705E-46 0.81736E-45 - 2 2 0.32123E-03 0.10000E+01 0.39689E+04 0.45457E-38 0.36069E-45 0.50498E-44 - 2 2 0.32123E-03 0.10000E+01 0.32008E+04 0.15458E-35 0.28809E-42 0.14289E-41 - 2 2 0.32123E-03 0.10000E+01 0.25813E+04 0.99522E-27 0.40697E-33 0.86870E-33 - 2 2 0.32123E-03 0.10000E+01 0.20817E+04 0.15997E-10 0.23393E-16 0.13500E-16 + 2 2 0.32123E-03 0.10000E+01 0.80645E+05 0.50358E-07 0.31690E-18 0.68372E-13 + 2 2 0.32123E-03 0.10000E+01 0.65036E+05 0.64584E-07 0.72814E-18 0.87708E-13 + 2 2 0.32123E-03 0.10000E+01 0.52449E+05 0.81669E-07 0.16489E-17 0.11095E-12 + 2 2 0.32123E-03 0.10000E+01 0.42297E+05 0.10218E-06 0.36675E-17 0.13890E-12 + 2 2 0.32123E-03 0.10000E+01 0.34111E+05 0.12672E-06 0.79875E-17 0.17241E-12 + 2 2 0.32123E-03 0.10000E+01 0.27509E+05 0.15589E-06 0.16973E-16 0.21236E-12 + 2 2 0.32123E-03 0.10000E+01 0.22184E+05 0.19022E-06 0.35091E-16 0.25956E-12 + 2 2 0.32123E-03 0.10000E+01 0.17891E+05 0.23008E-06 0.71017E-16 0.31465E-12 + 2 2 0.32123E-03 0.10000E+01 0.14428E+05 0.27567E-06 0.14574E-15 0.37797E-12 + 2 2 0.32123E-03 0.10000E+01 0.11635E+05 0.32710E-06 0.32977E-15 0.44956E-12 + 2 2 0.32123E-03 0.10000E+01 0.93834E+04 0.38485E-06 0.90286E-15 0.52939E-12 + 2 2 0.32123E-03 0.10000E+01 0.75673E+04 0.45102E-06 0.29863E-14 0.61845E-12 + 2 2 0.32123E-03 0.10000E+01 0.61026E+04 0.53179E-06 0.10925E-13 0.72082E-12 + 2 2 0.32123E-03 0.10000E+01 0.49215E+04 0.64203E-06 0.40980E-13 0.84721E-12 + 2 2 0.32123E-03 0.10000E+01 0.39689E+04 0.81353E-06 0.15259E-12 0.10205E-11 + 2 2 0.32123E-03 0.10000E+01 0.32008E+04 0.11098E-05 0.56080E-12 0.12835E-11 + 2 2 0.32123E-03 0.10000E+01 0.25813E+04 0.16532E-05 0.20417E-11 0.17106E-11 + 2 2 0.32123E-03 0.10000E+01 0.20817E+04 0.26757E-05 0.73819E-11 0.24249E-11 2 2 0.32123E-03 0.10000E+01 0.16788E+04 0.46140E-05 0.26503E-10 0.36262E-11 2 2 0.32123E-03 0.10000E+01 0.13538E+04 0.82863E-05 0.94503E-10 0.56378E-11 2 2 0.32123E-03 0.10000E+01 0.10918E+04 0.15215E-04 0.33557E-09 0.89847E-11 @@ -9350,24 +9350,24 @@ VERSION 2.8.2 2 3 0.10550E-03 0.10000E+01 0.14365E+01 0.22888E+01 0.10039E+00 0.11629E-02 0.16415E+00 0.16510E-03 0.46642E+10 0.21380E+03 0.50000E+03 0.11818E-14 0.90340E-02 0.57711E-02 0.31707E+02 2 3 0.18409E-03 0.10000E+01 0.14365E+01 0.22888E+01 0.30568E+00 0.20292E-02 0.28643E+00 0.16510E-03 0.81388E+10 0.37306E+03 0.50000E+03 0.20622E-14 0.15764E-01 0.57711E-02 0.31707E+02 2 3 0.32123E-03 0.10000E+01 0.14365E+01 0.22888E+01 0.93075E+00 0.35408E-02 0.49980E+00 0.16510E-03 0.14202E+11 0.65097E+03 0.50000E+03 0.35985E-14 0.27507E-01 0.57711E-02 0.31707E+02 - 2 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 2 3 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 2 3 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 2 3 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 2 3 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 2 3 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 2 3 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 2 3 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 2 3 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 2 3 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 2 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 2 3 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 2 3 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 2 3 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 2 3 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 2 3 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 2 3 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 2 3 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 2 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 2 3 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 2 3 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 2 3 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 2 3 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 2 3 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 2 3 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 2 3 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 2 3 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 2 3 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 2 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 2 3 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 2 3 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 2 3 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 2 3 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 2 3 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 2 3 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 2 3 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 2 3 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 2 3 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 2 3 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -9380,24 +9380,24 @@ VERSION 2.8.2 2 3 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 2 3 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 2 3 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 2 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 2 3 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 2 3 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 2 3 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 2 3 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 2 3 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 2 3 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 2 3 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 2 3 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 2 3 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 2 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 2 3 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 2 3 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 2 3 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 2 3 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 2 3 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 2 3 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 2 3 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 2 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 2 3 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 2 3 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 2 3 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 2 3 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 2 3 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 2 3 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 2 3 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 2 3 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 2 3 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 2 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 2 3 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 2 3 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 2 3 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 2 3 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 2 3 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 2 3 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 2 3 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 2 3 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 2 3 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 2 3 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -9410,24 +9410,24 @@ VERSION 2.8.2 2 3 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 2 3 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 2 3 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 2 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 2 3 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 2 3 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 2 3 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 2 3 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 2 3 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 2 3 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 2 3 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 2 3 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 2 3 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 2 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 2 3 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 2 3 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 2 3 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 2 3 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 2 3 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 2 3 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 2 3 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 2 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 2 3 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 2 3 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 2 3 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 2 3 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 2 3 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 2 3 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 2 3 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 2 3 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 2 3 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 2 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 2 3 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 2 3 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 2 3 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 2 3 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 2 3 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 2 3 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 2 3 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 2 3 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 2 3 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 2 3 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -9440,24 +9440,24 @@ VERSION 2.8.2 2 3 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 2 3 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 2 3 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 2 3 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 2 3 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 2 3 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 2 3 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 2 3 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 2 3 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 2 3 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 2 3 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 2 3 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 2 3 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 2 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 2 3 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 2 3 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 2 3 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 2 3 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 2 3 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 2 3 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 2 3 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 2 3 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 2 3 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 2 3 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 2 3 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 2 3 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 2 3 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 2 3 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 2 3 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 2 3 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 2 3 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 2 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 2 3 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 2 3 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 2 3 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 2 3 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 2 3 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 2 3 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 2 3 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 2 3 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 2 3 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 2 3 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -9470,24 +9470,24 @@ VERSION 2.8.2 2 3 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 2 3 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 2 3 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 2 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 2 3 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 2 3 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 2 3 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 2 3 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 2 3 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 2 3 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 2 3 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 2 3 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 2 3 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 2 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 2 3 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 2 3 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 2 3 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 2 3 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 2 3 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 2 3 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 2 3 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 2 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 2 3 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 2 3 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 2 3 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 2 3 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 2 3 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 2 3 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 2 3 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 2 3 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 2 3 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 2 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 2 3 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 2 3 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 2 3 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 2 3 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 2 3 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 2 3 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 2 3 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 2 3 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 2 3 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 2 3 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -9500,24 +9500,24 @@ VERSION 2.8.2 2 3 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 2 3 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 2 3 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 2 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 2 3 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 2 3 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 2 3 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 2 3 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 2 3 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 2 3 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 2 3 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 2 3 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 2 3 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 2 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 2 3 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 2 3 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 2 3 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 2 3 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 2 3 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 2 3 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 2 3 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 2 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 2 3 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 2 3 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 2 3 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 2 3 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 2 3 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 2 3 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 2 3 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 2 3 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 2 3 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 2 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 2 3 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 2 3 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 2 3 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 2 3 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 2 3 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 2 3 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 2 3 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 2 3 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 2 3 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 2 3 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -9530,24 +9530,24 @@ VERSION 2.8.2 2 3 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 2 3 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 2 3 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 2 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 2 3 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 2 3 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 2 3 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 2 3 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 2 3 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 2 3 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 2 3 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 2 3 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 2 3 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 2 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 2 3 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 2 3 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 2 3 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 2 3 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 2 3 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 2 3 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 2 3 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 2 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 2 3 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 2 3 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 2 3 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 2 3 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 2 3 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 2 3 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 2 3 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 2 3 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 2 3 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 2 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 2 3 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 2 3 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 2 3 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 2 3 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 2 3 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 2 3 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 2 3 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 2 3 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 2 3 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 2 3 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -9560,24 +9560,24 @@ VERSION 2.8.2 2 3 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 2 3 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 2 3 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 2 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 2 3 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 2 3 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 2 3 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 2 3 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 2 3 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 2 3 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 2 3 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 2 3 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 2 3 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 2 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 2 3 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 2 3 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 2 3 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 2 3 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 2 3 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 2 3 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 2 3 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 2 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 2 3 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 2 3 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 2 3 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 2 3 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 2 3 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 2 3 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 2 3 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 2 3 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 2 3 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 2 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 2 3 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 2 3 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 2 3 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 2 3 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 2 3 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 2 3 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 2 3 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 2 3 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 2 3 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 2 3 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -9590,24 +9590,24 @@ VERSION 2.8.2 2 3 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 2 3 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 2 3 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 2 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 2 3 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 2 3 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 2 3 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 2 3 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 2 3 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 2 3 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 2 3 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 2 3 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 2 3 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 2 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 2 3 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 2 3 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 2 3 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 2 3 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 2 3 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 2 3 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 2 3 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 2 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 2 3 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 2 3 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 2 3 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 2 3 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 2 3 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 2 3 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 2 3 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 2 3 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 2 3 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 2 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 2 3 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 2 3 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 2 3 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 2 3 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 2 3 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 2 3 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 2 3 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 2 3 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 2 3 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 2 3 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -9620,24 +9620,24 @@ VERSION 2.8.2 2 3 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 2 3 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 2 3 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 2 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 2 3 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 2 3 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 2 3 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 2 3 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 2 3 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 2 3 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 2 3 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 2 3 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 2 3 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 2 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 2 3 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 2 3 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 2 3 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 2 3 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 2 3 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 2 3 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 2 3 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 2 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 2 3 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 2 3 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 2 3 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 2 3 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 2 3 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 2 3 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 2 3 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 2 3 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 2 3 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 2 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 2 3 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 2 3 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 2 3 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 2 3 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 2 3 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 2 3 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 2 3 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 2 3 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 2 3 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 2 3 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -9650,24 +9650,24 @@ VERSION 2.8.2 2 3 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 2 3 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 2 3 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 2 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 2 3 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 2 3 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 2 3 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 2 3 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 2 3 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 2 3 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 2 3 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 2 3 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 2 3 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 2 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 2 3 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 2 3 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 2 3 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 2 3 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 2 3 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 2 3 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 2 3 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 2 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 2 3 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 2 3 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 2 3 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 2 3 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 2 3 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 2 3 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 2 3 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 2 3 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 2 3 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 2 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 2 3 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 2 3 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 2 3 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 2 3 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 2 3 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 2 3 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 2 3 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 2 3 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 2 3 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 2 3 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -9680,24 +9680,24 @@ VERSION 2.8.2 2 3 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 2 3 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 2 3 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 2 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 2 3 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 2 3 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 2 3 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 2 3 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 2 3 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 2 3 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 2 3 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 2 3 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 2 3 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 2 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 2 3 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 2 3 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 2 3 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 2 3 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 2 3 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 2 3 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 2 3 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 2 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 2 3 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 2 3 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 2 3 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 2 3 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 2 3 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 2 3 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 2 3 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 2 3 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 2 3 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 2 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 2 3 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 2 3 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 2 3 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 2 3 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 2 3 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 2 3 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 2 3 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 2 3 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 2 3 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 2 3 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -9710,24 +9710,24 @@ VERSION 2.8.2 2 3 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 2 3 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 2 3 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 2 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 2 3 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 2 3 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 2 3 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 2 3 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 2 3 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 2 3 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 2 3 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 2 3 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 2 3 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 2 3 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 2 3 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 2 3 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 2 3 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 2 3 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 2 3 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 2 3 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 2 3 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 2 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 2 3 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 2 3 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 2 3 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 2 3 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 2 3 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 2 3 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 2 3 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 2 3 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 2 3 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 2 3 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 2 3 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 2 3 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 2 3 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 2 3 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 2 3 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 2 3 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 2 3 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 2 3 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 2 3 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 2 3 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -9740,24 +9740,24 @@ VERSION 2.8.2 2 3 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 2 3 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 2 3 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 2 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 2 3 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 2 3 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 2 3 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 2 3 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 2 3 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 2 3 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 2 3 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 2 3 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 2 3 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 2 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 2 3 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 2 3 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 2 3 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 2 3 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 2 3 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 2 3 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 2 3 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 2 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 2 3 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 2 3 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 2 3 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 2 3 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 2 3 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 2 3 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 2 3 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 2 3 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 2 3 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 2 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 2 3 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 2 3 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 2 3 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 2 3 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 2 3 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 2 3 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 2 3 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 2 3 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 2 3 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 2 3 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -9770,24 +9770,24 @@ VERSION 2.8.2 2 3 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 2 3 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 2 3 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 2 3 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 2 3 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 2 3 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 2 3 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 2 3 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 2 3 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 2 3 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 2 3 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 2 3 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 2 3 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 2 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 2 3 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 2 3 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 2 3 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 2 3 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 2 3 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 2 3 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 2 3 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 2 3 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 2 3 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 2 3 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 2 3 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 2 3 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 2 3 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 2 3 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 2 3 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 2 3 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 2 3 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 2 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 2 3 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 2 3 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 2 3 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 2 3 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 2 3 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 2 3 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 2 3 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 2 3 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 2 3 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 2 3 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -9800,24 +9800,24 @@ VERSION 2.8.2 2 3 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 2 3 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 2 3 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 2 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 2 3 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 2 3 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 2 3 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 2 3 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 2 3 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 2 3 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 2 3 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 2 3 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 2 3 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 2 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 2 3 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 2 3 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 2 3 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 2 3 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 2 3 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 2 3 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 2 3 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 2 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 2 3 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 2 3 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 2 3 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 2 3 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 2 3 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 2 3 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 2 3 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 2 3 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 2 3 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 2 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 2 3 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 2 3 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 2 3 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 2 3 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 2 3 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 2 3 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 2 3 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 2 3 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 2 3 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 2 3 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -9830,24 +9830,24 @@ VERSION 2.8.2 2 3 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 2 3 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 2 3 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 2 3 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 2 3 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 2 3 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 2 3 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 2 3 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 2 3 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 2 3 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 2 3 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 2 3 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 2 3 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 2 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 2 3 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 2 3 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 2 3 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 2 3 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 2 3 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 2 3 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 2 3 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 2 3 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 2 3 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 2 3 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 2 3 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 2 3 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 2 3 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 2 3 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 2 3 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 2 3 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 2 3 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 2 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 2 3 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 2 3 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 2 3 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 2 3 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 2 3 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 2 3 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 2 3 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 2 3 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 2 3 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 2 3 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -9860,24 +9860,24 @@ VERSION 2.8.2 2 3 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 2 3 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 2 3 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 2 3 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 2 3 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 2 3 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 2 3 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 2 3 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 2 3 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 2 3 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 2 3 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 2 3 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 2 3 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 2 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 2 3 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 2 3 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 2 3 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 2 3 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 2 3 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 2 3 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 2 3 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 2 3 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 2 3 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 2 3 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 2 3 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 2 3 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 2 3 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 2 3 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 2 3 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 2 3 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 2 3 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 2 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 2 3 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 2 3 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 2 3 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 2 3 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 2 3 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 2 3 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 2 3 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 2 3 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 2 3 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 2 3 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -9890,24 +9890,24 @@ VERSION 2.8.2 2 3 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 2 3 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 2 3 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 2 3 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 2 3 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 2 3 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 2 3 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 2 3 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 2 3 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 2 3 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 2 3 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 2 3 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 2 3 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 2 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 2 3 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 2 3 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 2 3 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 2 3 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 2 3 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 2 3 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 2 3 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 2 3 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 2 3 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 2 3 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 2 3 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 2 3 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 2 3 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 2 3 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 2 3 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 2 3 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 2 3 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 2 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 2 3 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 2 3 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 2 3 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 2 3 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 2 3 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 2 3 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 2 3 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 2 3 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 2 3 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 2 3 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -9920,24 +9920,24 @@ VERSION 2.8.2 2 3 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 2 3 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 2 3 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 2 3 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 2 3 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 2 3 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 2 3 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 2 3 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 2 3 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 2 3 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 2 3 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 2 3 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 2 3 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 2 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 2 3 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 2 3 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 2 3 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 2 3 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 2 3 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 2 3 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 2 3 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 2 3 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 2 3 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 2 3 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 2 3 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 2 3 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 2 3 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 2 3 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 2 3 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 2 3 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 2 3 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 2 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 2 3 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 2 3 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 2 3 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 2 3 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 2 3 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 2 3 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 2 3 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 2 3 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 2 3 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 2 3 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -9950,24 +9950,24 @@ VERSION 2.8.2 2 3 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 2 3 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 2 3 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 2 3 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 2 3 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 2 3 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 2 3 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 2 3 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 2 3 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 2 3 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 2 3 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 2 3 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 2 3 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 2 3 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 2 3 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 2 3 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 2 3 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 2 3 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 2 3 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 2 3 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 2 3 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 2 3 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 2 3 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 2 3 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 2 3 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 2 3 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 2 3 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 2 3 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 2 3 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 2 3 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 2 3 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 2 3 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 2 3 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 2 3 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 2 3 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 2 3 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 2 3 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 2 3 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 2 3 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 2 3 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 2 3 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 2 3 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -9980,24 +9980,24 @@ VERSION 2.8.2 2 3 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 2 3 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 2 3 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 2 3 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 2 3 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 2 3 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 2 3 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 2 3 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 2 3 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 2 3 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 2 3 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 2 3 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 2 3 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 2 3 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 2 3 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 2 3 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 2 3 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 2 3 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 2 3 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 2 3 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 2 3 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 2 3 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 2 3 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 2 3 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 2 3 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 2 3 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 2 3 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 2 3 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 2 3 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 2 3 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 2 3 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 2 3 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 2 3 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 2 3 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 2 3 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 2 3 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 2 3 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 2 3 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 2 3 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 2 3 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 2 3 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 2 3 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -10010,24 +10010,24 @@ VERSION 2.8.2 2 3 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 2 3 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 2 3 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 2 3 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 2 3 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 2 3 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 2 3 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 2 3 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 2 3 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 2 3 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 2 3 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 2 3 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 2 3 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 2 3 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 2 3 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 2 3 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 2 3 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 2 3 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 2 3 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 2 3 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 2 3 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 2 3 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 2 3 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 2 3 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 2 3 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 2 3 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 2 3 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 2 3 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 2 3 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 2 3 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 2 3 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 2 3 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 2 3 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 2 3 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 2 3 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 2 3 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 2 3 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 2 3 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 2 3 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 2 3 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 2 3 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 2 3 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -10040,24 +10040,24 @@ VERSION 2.8.2 2 3 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 2 3 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 2 3 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 2 3 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84135E-68 0.33654E-66 - 2 3 0.16616E-09 0.10000E+01 0.65036E+05 0.94383E-56 0.13506E-66 0.29213E-65 - 2 3 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25178E-64 - 2 3 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19205E-63 - 2 3 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13946E-62 - 2 3 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82702E-62 0.99839E-62 - 2 3 0.16616E-09 0.10000E+01 0.22184E+05 0.38950E-51 0.23108E-60 0.77605E-61 - 2 3 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82847E-60 - 2 3 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12130E-58 - 2 3 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19195E-57 - 2 3 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29613E-56 - 2 3 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44364E-55 - 2 3 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65290E-54 - 2 3 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95067E-53 - 2 3 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94686E-49 0.13743E-51 - 2 3 0.16616E-09 0.10000E+01 0.32008E+04 0.38533E-39 0.83094E-46 0.62162E-49 - 2 3 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46405E-40 - 2 3 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 2 3 0.16616E-09 0.10000E+01 0.80645E+05 0.71822E-14 0.59598E-25 0.22339E-23 + 2 3 0.16616E-09 0.10000E+01 0.65036E+05 0.93474E-14 0.19315E-24 0.28863E-23 + 2 3 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36951E-23 + 2 3 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47538E-23 + 2 3 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63211E-23 + 2 3 0.16616E-09 0.10000E+01 0.27509E+05 0.39507E-13 0.81119E-22 0.91075E-23 + 2 3 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14980E-22 + 2 3 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28667E-22 + 2 3 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61871E-22 + 2 3 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 2 3 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34208E-21 + 2 3 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82596E-21 + 2 3 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 2 3 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 2 3 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 2 3 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 2 3 0.16616E-09 0.10000E+01 0.25813E+04 0.37808E-09 0.11541E-14 0.61815E-19 + 2 3 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 2 3 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 2 3 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 2 3 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -10070,24 +10070,24 @@ VERSION 2.8.2 2 3 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 2 3 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 2 3 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 2 3 0.28994E-09 0.10000E+01 0.80645E+05 0.22012E-56 0.16919E-67 0.11289E-65 - 2 3 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27096E-66 0.96802E-65 - 2 3 0.28994E-09 0.10000E+01 0.52449E+05 0.16354E-54 0.36922E-65 0.82855E-64 - 2 3 0.28994E-09 0.10000E+01 0.42297E+05 0.12447E-53 0.50556E-64 0.62670E-63 - 2 3 0.28994E-09 0.10000E+01 0.34111E+05 0.90504E-53 0.69117E-63 0.44993E-62 - 2 3 0.28994E-09 0.10000E+01 0.27509E+05 0.65379E-52 0.10278E-61 0.31349E-61 - 2 3 0.28994E-09 0.10000E+01 0.22184E+05 0.51157E-51 0.21724E-60 0.21693E-60 - 2 3 0.28994E-09 0.10000E+01 0.17891E+05 0.53449E-50 0.62921E-59 0.17673E-59 - 2 3 0.28994E-09 0.10000E+01 0.14428E+05 0.75802E-49 0.19092E-57 0.20830E-58 - 2 3 0.28994E-09 0.10000E+01 0.11635E+05 0.11790E-47 0.55776E-56 0.31163E-57 - 2 3 0.28994E-09 0.10000E+01 0.93834E+04 0.18053E-46 0.15828E-54 0.48376E-56 - 2 3 0.28994E-09 0.10000E+01 0.75673E+04 0.26944E-45 0.44222E-53 0.73513E-55 - 2 3 0.28994E-09 0.10000E+01 0.61026E+04 0.39554E-44 0.12242E-51 0.10938E-53 - 2 3 0.28994E-09 0.10000E+01 0.49215E+04 0.57487E-43 0.33675E-50 0.16051E-52 - 2 3 0.28994E-09 0.10000E+01 0.39689E+04 0.82983E-42 0.92172E-49 0.23337E-51 - 2 3 0.28994E-09 0.10000E+01 0.32008E+04 0.37495E-39 0.81329E-46 0.10605E-48 - 2 3 0.28994E-09 0.10000E+01 0.25813E+04 0.27965E-30 0.13884E-36 0.79494E-40 - 2 3 0.28994E-09 0.10000E+01 0.20817E+04 0.54181E-14 0.11986E-19 0.15483E-23 + 2 3 0.28994E-09 0.10000E+01 0.80645E+05 0.14660E-13 0.10185E-24 0.75571E-23 + 2 3 0.28994E-09 0.10000E+01 0.65036E+05 0.18924E-13 0.26894E-24 0.97190E-23 + 2 3 0.28994E-09 0.10000E+01 0.52449E+05 0.24204E-13 0.86562E-24 0.12333E-22 + 2 3 0.28994E-09 0.10000E+01 0.42297E+05 0.31091E-13 0.34793E-23 0.15556E-22 + 2 3 0.28994E-09 0.10000E+01 0.34111E+05 0.41179E-13 0.15888E-22 0.19785E-22 + 2 3 0.28994E-09 0.10000E+01 0.27509E+05 0.58807E-13 0.75344E-22 0.26126E-22 + 2 3 0.28994E-09 0.10000E+01 0.22184E+05 0.95320E-13 0.35735E-21 0.37589E-22 + 2 3 0.28994E-09 0.10000E+01 0.17891E+05 0.17937E-12 0.16803E-20 0.61978E-22 + 2 3 0.28994E-09 0.10000E+01 0.14428E+05 0.38174E-12 0.78346E-20 0.11891E-21 + 2 3 0.28994E-09 0.10000E+01 0.11635E+05 0.87528E-12 0.36286E-19 0.25681E-21 + 2 3 0.28994E-09 0.10000E+01 0.93834E+04 0.20789E-11 0.16711E-18 0.59384E-21 + 2 3 0.28994E-09 0.10000E+01 0.75673E+04 0.50020E-11 0.76423E-18 0.14163E-20 + 2 3 0.28994E-09 0.10000E+01 0.61026E+04 0.12061E-10 0.34526E-17 0.34121E-20 + 2 3 0.28994E-09 0.10000E+01 0.49215E+04 0.28965E-10 0.15294E-16 0.82115E-20 + 2 3 0.28994E-09 0.10000E+01 0.39689E+04 0.68917E-10 0.66083E-16 0.19595E-19 + 2 3 0.28994E-09 0.10000E+01 0.32008E+04 0.16164E-09 0.27831E-15 0.46085E-19 + 2 3 0.28994E-09 0.10000E+01 0.25813E+04 0.37224E-09 0.11430E-14 0.10637E-18 + 2 3 0.28994E-09 0.10000E+01 0.20817E+04 0.83952E-09 0.45737E-14 0.24034E-18 2 3 0.28994E-09 0.10000E+01 0.16788E+04 0.18517E-08 0.17819E-13 0.53087E-18 2 3 0.28994E-09 0.10000E+01 0.13538E+04 0.39907E-08 0.67752E-13 0.11454E-17 2 3 0.28994E-09 0.10000E+01 0.10918E+04 0.84023E-08 0.25276E-12 0.24134E-17 @@ -10100,24 +10100,24 @@ VERSION 2.8.2 2 3 0.28994E-09 0.10000E+01 0.24221E+03 0.83953E-06 0.77469E-09 0.24151E-15 2 3 0.28994E-09 0.10000E+01 0.19533E+03 0.13232E-05 0.14722E-08 0.38066E-15 2 3 0.28994E-09 0.10000E+01 0.15752E+03 0.13232E-05 0.14722E-08 0.38066E-15 - 2 3 0.50593E-09 0.10000E+01 0.80645E+05 0.45341E-56 0.34340E-67 0.42125E-65 - 2 3 0.50593E-09 0.10000E+01 0.65036E+05 0.38727E-55 0.54705E-66 0.35673E-64 - 2 3 0.50593E-09 0.10000E+01 0.52449E+05 0.33060E-54 0.73685E-65 0.30274E-63 - 2 3 0.50593E-09 0.10000E+01 0.42297E+05 0.24919E-53 0.99096E-64 0.22626E-62 - 2 3 0.50593E-09 0.10000E+01 0.34111E+05 0.17828E-52 0.13036E-62 0.15999E-61 - 2 3 0.50593E-09 0.10000E+01 0.27509E+05 0.12405E-51 0.16741E-61 0.10950E-60 - 2 3 0.50593E-09 0.10000E+01 0.22184E+05 0.85426E-51 0.25647E-60 0.71904E-60 - 2 3 0.50593E-09 0.10000E+01 0.17891E+05 0.67481E-50 0.59736E-59 0.48902E-59 - 2 3 0.50593E-09 0.10000E+01 0.14428E+05 0.75566E-49 0.17522E-57 0.43775E-58 - 2 3 0.50593E-09 0.10000E+01 0.11635E+05 0.10977E-47 0.52058E-56 0.56437E-57 - 2 3 0.50593E-09 0.10000E+01 0.93834E+04 0.16872E-46 0.15022E-54 0.84564E-56 - 2 3 0.50593E-09 0.10000E+01 0.75673E+04 0.25544E-45 0.42440E-53 0.12781E-54 - 2 3 0.50593E-09 0.10000E+01 0.61026E+04 0.37922E-44 0.11838E-51 0.18976E-53 - 2 3 0.50593E-09 0.10000E+01 0.49215E+04 0.55550E-43 0.32746E-50 0.27783E-52 - 2 3 0.50593E-09 0.10000E+01 0.39689E+04 0.80658E-42 0.90039E-49 0.40324E-51 - 2 3 0.50593E-09 0.10000E+01 0.32008E+04 0.36618E-39 0.79766E-46 0.18309E-48 - 2 3 0.50593E-09 0.10000E+01 0.25813E+04 0.27430E-30 0.13674E-36 0.13726E-39 - 2 3 0.50593E-09 0.10000E+01 0.20817E+04 0.53397E-14 0.11858E-19 0.26765E-23 + 2 3 0.50593E-09 0.10000E+01 0.80645E+05 0.30427E-13 0.19328E-24 0.28419E-22 + 2 3 0.50593E-09 0.10000E+01 0.65036E+05 0.39086E-13 0.45545E-24 0.36396E-22 + 2 3 0.50593E-09 0.10000E+01 0.52449E+05 0.49522E-13 0.11947E-23 0.45894E-22 + 2 3 0.50593E-09 0.10000E+01 0.42297E+05 0.62300E-13 0.38983E-23 0.57222E-22 + 2 3 0.50593E-09 0.10000E+01 0.34111E+05 0.78807E-13 0.15848E-22 0.71029E-22 + 2 3 0.50593E-09 0.10000E+01 0.27509E+05 0.10288E-12 0.72380E-22 0.89104E-22 + 2 3 0.50593E-09 0.10000E+01 0.22184E+05 0.14493E-12 0.34184E-21 0.11645E-21 + 2 3 0.50593E-09 0.10000E+01 0.17891E+05 0.23196E-12 0.16155E-20 0.16635E-21 + 2 3 0.50593E-09 0.10000E+01 0.14428E+05 0.43185E-12 0.75795E-20 0.27252E-21 + 2 3 0.50593E-09 0.10000E+01 0.11635E+05 0.91196E-12 0.35298E-19 0.51848E-21 + 2 3 0.50593E-09 0.10000E+01 0.93834E+04 0.20804E-11 0.16330E-18 0.11082E-20 + 2 3 0.50593E-09 0.10000E+01 0.75673E+04 0.49254E-11 0.74959E-18 0.25359E-20 + 2 3 0.50593E-09 0.10000E+01 0.61026E+04 0.11820E-10 0.33966E-17 0.59894E-20 + 2 3 0.50593E-09 0.10000E+01 0.49215E+04 0.28388E-10 0.15080E-16 0.14286E-19 + 2 3 0.50593E-09 0.10000E+01 0.39689E+04 0.67660E-10 0.65275E-16 0.33960E-19 + 2 3 0.50593E-09 0.10000E+01 0.32008E+04 0.15902E-09 0.27526E-15 0.79756E-19 + 2 3 0.50593E-09 0.10000E+01 0.25813E+04 0.36690E-09 0.11316E-14 0.18401E-18 + 2 3 0.50593E-09 0.10000E+01 0.20817E+04 0.82880E-09 0.45311E-14 0.41579E-18 2 3 0.50593E-09 0.10000E+01 0.16788E+04 0.18304E-08 0.17661E-13 0.91859E-18 2 3 0.50593E-09 0.10000E+01 0.13538E+04 0.39486E-08 0.67168E-13 0.19823E-17 2 3 0.50593E-09 0.10000E+01 0.10918E+04 0.83195E-08 0.25062E-12 0.41778E-17 @@ -10130,24 +10130,24 @@ VERSION 2.8.2 2 3 0.50593E-09 0.10000E+01 0.24221E+03 0.83240E-06 0.76813E-09 0.41818E-15 2 3 0.50593E-09 0.10000E+01 0.19533E+03 0.13120E-05 0.14597E-08 0.65911E-15 2 3 0.50593E-09 0.10000E+01 0.15752E+03 0.13120E-05 0.14597E-08 0.65911E-15 - 2 3 0.88282E-09 0.10000E+01 0.80645E+05 0.95152E-56 0.71065E-67 0.18030E-64 - 2 3 0.88282E-09 0.10000E+01 0.65036E+05 0.80369E-55 0.11247E-65 0.15117E-63 - 2 3 0.88282E-09 0.10000E+01 0.52449E+05 0.68071E-54 0.14935E-64 0.12733E-62 - 2 3 0.88282E-09 0.10000E+01 0.42297E+05 0.50715E-53 0.19713E-63 0.94046E-62 - 2 3 0.88282E-09 0.10000E+01 0.34111E+05 0.35699E-52 0.25379E-62 0.65363E-61 - 2 3 0.88282E-09 0.10000E+01 0.27509E+05 0.24310E-51 0.30774E-61 0.43818E-60 - 2 3 0.88282E-09 0.10000E+01 0.22184E+05 0.15880E-50 0.38865E-60 0.27891E-59 - 2 3 0.88282E-09 0.10000E+01 0.17891E+05 0.10692E-49 0.69598E-59 0.17423E-58 - 2 3 0.88282E-09 0.10000E+01 0.14428E+05 0.93502E-49 0.18279E-57 0.12849E-57 - 2 3 0.88282E-09 0.10000E+01 0.11635E+05 0.11750E-47 0.53149E-56 0.13611E-56 - 2 3 0.88282E-09 0.10000E+01 0.93834E+04 0.17323E-46 0.15228E-54 0.18345E-55 - 2 3 0.88282E-09 0.10000E+01 0.75673E+04 0.25913E-45 0.42719E-53 0.26139E-54 - 2 3 0.88282E-09 0.10000E+01 0.61026E+04 0.38186E-44 0.11841E-51 0.37158E-53 - 2 3 0.88282E-09 0.10000E+01 0.49215E+04 0.55593E-43 0.32605E-50 0.52549E-52 - 2 3 0.88282E-09 0.10000E+01 0.39689E+04 0.80351E-42 0.89404E-49 0.74266E-51 - 2 3 0.88282E-09 0.10000E+01 0.32008E+04 0.36373E-39 0.79093E-46 0.33069E-48 - 2 3 0.88282E-09 0.10000E+01 0.25813E+04 0.27208E-30 0.13554E-36 0.24444E-39 - 2 3 0.88282E-09 0.10000E+01 0.20817E+04 0.52953E-14 0.11758E-19 0.47140E-23 + 2 3 0.88282E-09 0.10000E+01 0.80645E+05 0.64286E-13 0.38360E-24 0.12232E-21 + 2 3 0.88282E-09 0.10000E+01 0.65036E+05 0.82257E-13 0.85735E-24 0.15612E-21 + 2 3 0.88282E-09 0.10000E+01 0.52449E+05 0.10360E-12 0.19939E-23 0.19593E-21 + 2 3 0.88282E-09 0.10000E+01 0.42297E+05 0.12896E-12 0.53893E-23 0.24253E-21 + 2 3 0.88282E-09 0.10000E+01 0.34111E+05 0.15967E-12 0.18511E-22 0.29724E-21 + 2 3 0.88282E-09 0.10000E+01 0.27509E+05 0.19935E-12 0.77136E-22 0.36345E-21 + 2 3 0.88282E-09 0.10000E+01 0.22184E+05 0.25810E-12 0.35057E-21 0.45076E-21 + 2 3 0.88282E-09 0.10000E+01 0.17891E+05 0.36264E-12 0.16302E-20 0.58463E-21 + 2 3 0.88282E-09 0.10000E+01 0.14428E+05 0.58051E-12 0.75874E-20 0.82881E-21 + 2 3 0.88282E-09 0.10000E+01 0.11635E+05 0.10783E-11 0.35171E-19 0.13380E-20 + 2 3 0.88282E-09 0.10000E+01 0.93834E+04 0.22618E-11 0.16227E-18 0.24833E-20 + 2 3 0.88282E-09 0.10000E+01 0.75673E+04 0.51114E-11 0.74380E-18 0.51502E-20 + 2 3 0.88282E-09 0.10000E+01 0.61026E+04 0.11980E-10 0.33683E-17 0.11445E-19 + 2 3 0.88282E-09 0.10000E+01 0.49215E+04 0.28442E-10 0.14952E-16 0.26329E-19 + 2 3 0.88282E-09 0.10000E+01 0.39689E+04 0.67415E-10 0.64720E-16 0.61255E-19 + 2 3 0.88282E-09 0.10000E+01 0.32008E+04 0.15803E-09 0.27295E-15 0.14200E-18 + 2 3 0.88282E-09 0.10000E+01 0.25813E+04 0.36418E-09 0.11222E-14 0.32496E-18 + 2 3 0.88282E-09 0.10000E+01 0.20817E+04 0.82222E-09 0.44941E-14 0.73048E-18 2 3 0.88282E-09 0.10000E+01 0.16788E+04 0.18155E-08 0.17518E-13 0.16083E-17 2 3 0.88282E-09 0.10000E+01 0.13538E+04 0.39163E-08 0.66624E-13 0.34629E-17 2 3 0.88282E-09 0.10000E+01 0.10918E+04 0.82516E-08 0.24858E-12 0.72868E-17 @@ -10160,24 +10160,24 @@ VERSION 2.8.2 2 3 0.88282E-09 0.10000E+01 0.24221E+03 0.82549E-06 0.76169E-09 0.72682E-15 2 3 0.88282E-09 0.10000E+01 0.19533E+03 0.13011E-05 0.14474E-08 0.11454E-14 2 3 0.88282E-09 0.10000E+01 0.15752E+03 0.13011E-05 0.14474E-08 0.11454E-14 - 2 3 0.15405E-08 0.10000E+01 0.80645E+05 0.19599E-55 0.14510E-66 0.74807E-64 - 2 3 0.15405E-08 0.10000E+01 0.65036E+05 0.16438E-54 0.22862E-65 0.62586E-63 - 2 3 0.15405E-08 0.10000E+01 0.52449E+05 0.13850E-53 0.30052E-64 0.52642E-62 - 2 3 0.15405E-08 0.10000E+01 0.42297E+05 0.10234E-52 0.39113E-63 0.38811E-61 - 2 3 0.15405E-08 0.10000E+01 0.34111E+05 0.71186E-52 0.49600E-62 0.26934E-60 - 2 3 0.15405E-08 0.10000E+01 0.27509E+05 0.47784E-51 0.58699E-61 0.18078E-59 - 2 3 0.15405E-08 0.10000E+01 0.22184E+05 0.30493E-50 0.68223E-60 0.11532E-58 - 2 3 0.15405E-08 0.10000E+01 0.17891E+05 0.19155E-49 0.10136E-58 0.70179E-58 - 2 3 0.15405E-08 0.10000E+01 0.14428E+05 0.14249E-48 0.22926E-57 0.45306E-57 - 2 3 0.15405E-08 0.10000E+01 0.11635E+05 0.15190E-47 0.62372E-56 0.38348E-56 - 2 3 0.15405E-08 0.10000E+01 0.93834E+04 0.20535E-46 0.17178E-54 0.44193E-55 - 2 3 0.15405E-08 0.10000E+01 0.75673E+04 0.29335E-45 0.46659E-53 0.58230E-54 - 2 3 0.15405E-08 0.10000E+01 0.61026E+04 0.41808E-44 0.12593E-51 0.78615E-53 - 2 3 0.15405E-08 0.10000E+01 0.49215E+04 0.59254E-43 0.33974E-50 0.10634E-51 - 2 3 0.15405E-08 0.10000E+01 0.39689E+04 0.83883E-42 0.91794E-49 0.14452E-50 - 2 3 0.15405E-08 0.10000E+01 0.32008E+04 0.37394E-39 0.80360E-46 0.62297E-48 - 2 3 0.15405E-08 0.10000E+01 0.25813E+04 0.27662E-30 0.13660E-36 0.44854E-39 - 2 3 0.15405E-08 0.10000E+01 0.20817E+04 0.53371E-14 0.11770E-19 0.84539E-23 + 2 3 0.15405E-08 0.10000E+01 0.80645E+05 0.13294E-12 0.76364E-24 0.50826E-21 + 2 3 0.15405E-08 0.10000E+01 0.65036E+05 0.16970E-12 0.16670E-23 0.64835E-21 + 2 3 0.15405E-08 0.10000E+01 0.52449E+05 0.21301E-12 0.36633E-23 0.81309E-21 + 2 3 0.15405E-08 0.10000E+01 0.42297E+05 0.26377E-12 0.88100E-23 0.10052E-20 + 2 3 0.15405E-08 0.10000E+01 0.34111E+05 0.32345E-12 0.25911E-22 0.12279E-20 + 2 3 0.15405E-08 0.10000E+01 0.27509E+05 0.39590E-12 0.95260E-22 0.14878E-20 + 2 3 0.15405E-08 0.10000E+01 0.22184E+05 0.49194E-12 0.40154E-21 0.18039E-20 + 2 3 0.15405E-08 0.10000E+01 0.17891E+05 0.64027E-12 0.17863E-20 0.22271E-20 + 2 3 0.15405E-08 0.10000E+01 0.14428E+05 0.91274E-12 0.80768E-20 0.28845E-20 + 2 3 0.15405E-08 0.10000E+01 0.11635E+05 0.14841E-11 0.36686E-19 0.40783E-20 + 2 3 0.15405E-08 0.10000E+01 0.93834E+04 0.27735E-11 0.16683E-18 0.65142E-20 + 2 3 0.15405E-08 0.10000E+01 0.75673E+04 0.57830E-11 0.75702E-18 0.11836E-19 + 2 3 0.15405E-08 0.10000E+01 0.61026E+04 0.12897E-10 0.34049E-17 0.23879E-19 + 2 3 0.15405E-08 0.10000E+01 0.49215E+04 0.29731E-10 0.15047E-16 0.51541E-19 + 2 3 0.15405E-08 0.10000E+01 0.39689E+04 0.69259E-10 0.64940E-16 0.11517E-18 + 2 3 0.15405E-08 0.10000E+01 0.32008E+04 0.16067E-09 0.27334E-15 0.26025E-18 + 2 3 0.15405E-08 0.10000E+01 0.25813E+04 0.36785E-09 0.11223E-14 0.58588E-18 + 2 3 0.15405E-08 0.10000E+01 0.20817E+04 0.82709E-09 0.44906E-14 0.13027E-17 2 3 0.15405E-08 0.10000E+01 0.16788E+04 0.18213E-08 0.17494E-13 0.28474E-17 2 3 0.15405E-08 0.10000E+01 0.13538E+04 0.39219E-08 0.66502E-13 0.60998E-17 2 3 0.15405E-08 0.10000E+01 0.10918E+04 0.82532E-08 0.24804E-12 0.12791E-16 @@ -10190,24 +10190,24 @@ VERSION 2.8.2 2 3 0.15405E-08 0.10000E+01 0.24221E+03 0.82333E-06 0.75948E-09 0.12657E-14 2 3 0.15405E-08 0.10000E+01 0.19533E+03 0.12976E-05 0.14432E-08 0.19944E-14 2 3 0.15405E-08 0.10000E+01 0.15752E+03 0.12976E-05 0.14432E-08 0.19944E-14 - 2 3 0.26880E-08 0.10000E+01 0.80645E+05 0.40276E-55 0.29860E-66 0.72737E-63 - 2 3 0.26880E-08 0.10000E+01 0.65036E+05 0.33821E-54 0.47121E-65 0.61226E-62 - 2 3 0.26880E-08 0.10000E+01 0.52449E+05 0.28540E-53 0.62229E-64 0.51792E-61 - 2 3 0.26880E-08 0.10000E+01 0.42297E+05 0.21171E-52 0.81894E-63 0.38608E-60 - 2 3 0.26880E-08 0.10000E+01 0.34111E+05 0.14863E-51 0.10649E-61 0.27371E-59 - 2 3 0.26880E-08 0.10000E+01 0.27509E+05 0.10185E-50 0.13209E-60 0.19091E-58 - 2 3 0.26880E-08 0.10000E+01 0.22184E+05 0.67368E-50 0.15802E-59 0.12959E-57 - 2 3 0.26880E-08 0.10000E+01 0.17891E+05 0.43249E-49 0.20343E-58 0.84214E-57 - 2 3 0.26880E-08 0.10000E+01 0.14428E+05 0.29078E-48 0.33959E-57 0.52185E-56 - 2 3 0.26880E-08 0.10000E+01 0.11635E+05 0.23897E-47 0.75410E-56 0.31719E-55 - 2 3 0.26880E-08 0.10000E+01 0.93834E+04 0.25887E-46 0.19254E-54 0.20693E-54 - 2 3 0.26880E-08 0.10000E+01 0.75673E+04 0.33429E-45 0.51007E-53 0.16812E-53 - 2 3 0.26880E-08 0.10000E+01 0.61026E+04 0.45924E-44 0.13576E-51 0.18028E-52 - 2 3 0.26880E-08 0.10000E+01 0.49215E+04 0.63965E-43 0.36145E-50 0.22751E-51 - 2 3 0.26880E-08 0.10000E+01 0.39689E+04 0.89316E-42 0.96412E-49 0.30098E-50 - 2 3 0.26880E-08 0.10000E+01 0.32008E+04 0.39300E-39 0.83409E-46 0.12593E-47 - 2 3 0.26880E-08 0.10000E+01 0.25813E+04 0.28710E-30 0.14016E-36 0.87170E-39 - 2 3 0.26880E-08 0.10000E+01 0.20817E+04 0.54692E-14 0.11932E-19 0.15676E-22 + 2 3 0.26880E-08 0.10000E+01 0.80645E+05 0.27319E-12 0.16074E-23 0.49294E-20 + 2 3 0.26880E-08 0.10000E+01 0.65036E+05 0.34909E-12 0.35569E-23 0.63074E-20 + 2 3 0.26880E-08 0.10000E+01 0.52449E+05 0.43897E-12 0.77839E-23 0.79473E-20 + 2 3 0.26880E-08 0.10000E+01 0.42297E+05 0.54487E-12 0.17516E-22 0.98891E-20 + 2 3 0.26880E-08 0.10000E+01 0.34111E+05 0.66923E-12 0.43885E-22 0.12168E-19 + 2 3 0.26880E-08 0.10000E+01 0.27509E+05 0.81661E-12 0.13282E-21 0.14812E-19 + 2 3 0.26880E-08 0.10000E+01 0.22184E+05 0.99836E-12 0.48680E-21 0.17850E-19 + 2 3 0.26880E-08 0.10000E+01 0.17891E+05 0.12443E-11 0.20122E-20 0.21351E-19 + 2 3 0.26880E-08 0.10000E+01 0.14428E+05 0.16299E-11 0.87761E-20 0.25512E-19 + 2 3 0.26880E-08 0.10000E+01 0.11635E+05 0.23390E-11 0.39058E-19 0.30874E-19 + 2 3 0.26880E-08 0.10000E+01 0.93834E+04 0.38119E-11 0.17512E-18 0.38783E-19 + 2 3 0.26880E-08 0.10000E+01 0.75673E+04 0.70926E-11 0.78600E-18 0.52411E-19 + 2 3 0.26880E-08 0.10000E+01 0.61026E+04 0.14645E-10 0.35054E-17 0.79057E-19 + 2 3 0.26880E-08 0.10000E+01 0.49215E+04 0.32231E-10 0.15392E-16 0.13527E-18 + 2 3 0.26880E-08 0.10000E+01 0.39689E+04 0.73083E-10 0.66114E-16 0.25808E-18 + 2 3 0.26880E-08 0.10000E+01 0.32008E+04 0.16685E-09 0.27733E-15 0.52870E-18 + 2 3 0.26880E-08 0.10000E+01 0.25813E+04 0.37824E-09 0.11359E-14 0.11217E-17 + 2 3 0.26880E-08 0.10000E+01 0.20817E+04 0.84499E-09 0.45367E-14 0.24046E-17 2 3 0.26880E-08 0.10000E+01 0.16788E+04 0.18526E-08 0.17652E-13 0.51335E-17 2 3 0.26880E-08 0.10000E+01 0.13538E+04 0.39771E-08 0.67049E-13 0.10825E-16 2 3 0.26880E-08 0.10000E+01 0.10918E+04 0.83514E-08 0.24994E-12 0.22451E-16 @@ -10220,24 +10220,24 @@ VERSION 2.8.2 2 3 0.26880E-08 0.10000E+01 0.24221E+03 0.82920E-06 0.76462E-09 0.21642E-14 2 3 0.26880E-08 0.10000E+01 0.19533E+03 0.13067E-05 0.14530E-08 0.34077E-14 2 3 0.26880E-08 0.10000E+01 0.15752E+03 0.13067E-05 0.14530E-08 0.34077E-14 - 2 3 0.46905E-08 0.10000E+01 0.80645E+05 0.75448E-55 0.56108E-66 0.34389E-62 - 2 3 0.46905E-08 0.10000E+01 0.65036E+05 0.63515E-54 0.88744E-65 0.29027E-61 - 2 3 0.46905E-08 0.10000E+01 0.52449E+05 0.53730E-53 0.11790E-63 0.24616E-60 - 2 3 0.46905E-08 0.10000E+01 0.42297E+05 0.40052E-52 0.15694E-62 0.18434E-59 - 2 3 0.46905E-08 0.10000E+01 0.34111E+05 0.28392E-51 0.20837E-61 0.13180E-58 - 2 3 0.46905E-08 0.10000E+01 0.27509E+05 0.19804E-50 0.26776E-60 0.93250E-58 - 2 3 0.46905E-08 0.10000E+01 0.22184E+05 0.13483E-49 0.33247E-59 0.64829E-57 - 2 3 0.46905E-08 0.10000E+01 0.17891E+05 0.89241E-49 0.41598E-58 0.43728E-56 - 2 3 0.46905E-08 0.10000E+01 0.14428E+05 0.59048E-48 0.58115E-57 0.28414E-55 - 2 3 0.46905E-08 0.10000E+01 0.11635E+05 0.42298E-47 0.10089E-55 0.17819E-54 - 2 3 0.46905E-08 0.10000E+01 0.93834E+04 0.36470E-46 0.21863E-54 0.10933E-53 - 2 3 0.46905E-08 0.10000E+01 0.75673E+04 0.39306E-45 0.54181E-53 0.68784E-53 - 2 3 0.46905E-08 0.10000E+01 0.61026E+04 0.49539E-44 0.14153E-51 0.50072E-52 - 2 3 0.46905E-08 0.10000E+01 0.49215E+04 0.67007E-43 0.37478E-50 0.48087E-51 - 2 3 0.46905E-08 0.10000E+01 0.39689E+04 0.92699E-42 0.99496E-49 0.58096E-50 - 2 3 0.46905E-08 0.10000E+01 0.32008E+04 0.40559E-39 0.85548E-46 0.24022E-47 - 2 3 0.46905E-08 0.10000E+01 0.25813E+04 0.29432E-30 0.14263E-36 0.16506E-38 - 2 3 0.46905E-08 0.10000E+01 0.20817E+04 0.55598E-14 0.12026E-19 0.29071E-22 + 2 3 0.46905E-08 0.10000E+01 0.80645E+05 0.51126E-12 0.30893E-23 0.23276E-19 + 2 3 0.46905E-08 0.10000E+01 0.65036E+05 0.65421E-12 0.69405E-23 0.29823E-19 + 2 3 0.46905E-08 0.10000E+01 0.52449E+05 0.82442E-12 0.15358E-22 0.37656E-19 + 2 3 0.46905E-08 0.10000E+01 0.42297E+05 0.10264E-11 0.34003E-22 0.47006E-19 + 2 3 0.46905E-08 0.10000E+01 0.34111E+05 0.12651E-11 0.78548E-22 0.58098E-19 + 2 3 0.46905E-08 0.10000E+01 0.27509E+05 0.15469E-11 0.20312E-21 0.71130E-19 + 2 3 0.46905E-08 0.10000E+01 0.22184E+05 0.18845E-11 0.62643E-21 0.86254E-19 + 2 3 0.46905E-08 0.10000E+01 0.17891E+05 0.23078E-11 0.22977E-20 0.10361E-18 + 2 3 0.46905E-08 0.10000E+01 0.14428E+05 0.28921E-11 0.94334E-20 0.12343E-18 + 2 3 0.46905E-08 0.10000E+01 0.11635E+05 0.38233E-11 0.40880E-19 0.14649E-18 + 2 3 0.46905E-08 0.10000E+01 0.93834E+04 0.55498E-11 0.18099E-18 0.17492E-18 + 2 3 0.46905E-08 0.10000E+01 0.75673E+04 0.91390E-11 0.80612E-18 0.21428E-18 + 2 3 0.46905E-08 0.10000E+01 0.61026E+04 0.17105E-10 0.35745E-17 0.27785E-18 + 2 3 0.46905E-08 0.10000E+01 0.49215E+04 0.35308E-10 0.15624E-16 0.39596E-18 + 2 3 0.46905E-08 0.10000E+01 0.39689E+04 0.77153E-10 0.66867E-16 0.63584E-18 + 2 3 0.46905E-08 0.10000E+01 0.32008E+04 0.17258E-09 0.27970E-15 0.11430E-17 + 2 3 0.46905E-08 0.10000E+01 0.25813E+04 0.38676E-09 0.11432E-14 0.22256E-17 + 2 3 0.46905E-08 0.10000E+01 0.20817E+04 0.85816E-09 0.45589E-14 0.45250E-17 2 3 0.46905E-08 0.10000E+01 0.16788E+04 0.18734E-08 0.17719E-13 0.93485E-17 2 3 0.46905E-08 0.10000E+01 0.13538E+04 0.40103E-08 0.67252E-13 0.19302E-16 2 3 0.46905E-08 0.10000E+01 0.10918E+04 0.84045E-08 0.25057E-12 0.39465E-16 @@ -10250,24 +10250,24 @@ VERSION 2.8.2 2 3 0.46905E-08 0.10000E+01 0.24221E+03 0.83082E-06 0.76583E-09 0.36764E-14 2 3 0.46905E-08 0.10000E+01 0.19533E+03 0.13091E-05 0.14553E-08 0.57833E-14 2 3 0.46905E-08 0.10000E+01 0.15752E+03 0.13091E-05 0.14553E-08 0.57833E-14 - 2 3 0.81846E-08 0.10000E+01 0.80645E+05 0.13502E-54 0.10054E-65 0.90958E-62 - 2 3 0.81846E-08 0.10000E+01 0.65036E+05 0.11379E-53 0.15917E-64 0.76843E-61 - 2 3 0.81846E-08 0.10000E+01 0.52449E+05 0.96353E-53 0.21194E-63 0.65215E-60 - 2 3 0.81846E-08 0.10000E+01 0.42297E+05 0.71958E-52 0.28327E-62 0.48907E-59 - 2 3 0.81846E-08 0.10000E+01 0.34111E+05 0.51187E-51 0.37862E-61 0.35056E-58 - 2 3 0.81846E-08 0.10000E+01 0.27509E+05 0.35909E-50 0.49133E-60 0.24908E-57 - 2 3 0.81846E-08 0.10000E+01 0.22184E+05 0.24650E-49 0.61438E-59 0.17438E-56 - 2 3 0.81846E-08 0.10000E+01 0.17891E+05 0.16413E-48 0.75421E-58 0.11896E-55 - 2 3 0.81846E-08 0.10000E+01 0.14428E+05 0.10714E-47 0.96669E-57 0.78569E-55 - 2 3 0.81846E-08 0.10000E+01 0.11635E+05 0.71738E-47 0.14258E-55 0.50229E-54 - 2 3 0.81846E-08 0.10000E+01 0.93834E+04 0.53617E-46 0.26168E-54 0.31193E-53 - 2 3 0.81846E-08 0.10000E+01 0.75673E+04 0.48874E-45 0.58799E-53 0.19137E-52 - 2 3 0.81846E-08 0.10000E+01 0.61026E+04 0.54954E-44 0.14792E-51 0.12467E-51 - 2 3 0.81846E-08 0.10000E+01 0.49215E+04 0.70645E-43 0.38692E-50 0.10078E-50 - 2 3 0.81846E-08 0.10000E+01 0.39689E+04 0.95944E-42 0.10203E-48 0.10924E-49 - 2 3 0.81846E-08 0.10000E+01 0.32008E+04 0.41618E-39 0.87126E-46 0.43990E-47 - 2 3 0.81846E-08 0.10000E+01 0.25813E+04 0.29969E-30 0.14408E-36 0.30180E-38 - 2 3 0.81846E-08 0.10000E+01 0.20817E+04 0.56134E-14 0.12024E-19 0.52957E-22 + 2 3 0.81846E-08 0.10000E+01 0.80645E+05 0.91454E-12 0.55782E-23 0.61540E-19 + 2 3 0.81846E-08 0.10000E+01 0.65036E+05 0.11709E-11 0.12585E-22 0.78884E-19 + 2 3 0.81846E-08 0.10000E+01 0.52449E+05 0.14766E-11 0.27880E-22 0.99668E-19 + 2 3 0.81846E-08 0.10000E+01 0.42297E+05 0.18402E-11 0.61023E-22 0.12454E-18 + 2 3 0.81846E-08 0.10000E+01 0.34111E+05 0.22703E-11 0.13500E-21 0.15416E-18 + 2 3 0.81846E-08 0.10000E+01 0.27509E+05 0.27762E-11 0.31712E-21 0.18912E-18 + 2 3 0.81846E-08 0.10000E+01 0.22184E+05 0.33721E-11 0.85017E-21 0.22993E-18 + 2 3 0.81846E-08 0.10000E+01 0.17891E+05 0.40878E-11 0.27347E-20 0.27695E-18 + 2 3 0.81846E-08 0.10000E+01 0.14428E+05 0.49972E-11 0.10331E-19 0.33060E-18 + 2 3 0.81846E-08 0.10000E+01 0.11635E+05 0.62849E-11 0.42954E-19 0.39201E-18 + 2 3 0.81846E-08 0.10000E+01 0.93834E+04 0.84025E-11 0.18650E-18 0.46458E-18 + 2 3 0.81846E-08 0.10000E+01 0.75673E+04 0.12430E-10 0.82201E-18 0.55776E-18 + 2 3 0.81846E-08 0.10000E+01 0.61026E+04 0.20911E-10 0.36198E-17 0.69496E-18 + 2 3 0.81846E-08 0.10000E+01 0.49215E+04 0.39756E-10 0.15741E-16 0.93046E-18 + 2 3 0.81846E-08 0.10000E+01 0.39689E+04 0.82439E-10 0.67105E-16 0.13847E-17 + 2 3 0.81846E-08 0.10000E+01 0.32008E+04 0.17895E-09 0.27985E-15 0.23166E-17 + 2 3 0.81846E-08 0.10000E+01 0.25813E+04 0.39440E-09 0.11412E-14 0.42706E-17 + 2 3 0.81846E-08 0.10000E+01 0.20817E+04 0.86685E-09 0.45436E-14 0.83707E-17 2 3 0.81846E-08 0.10000E+01 0.16788E+04 0.18817E-08 0.17638E-13 0.16895E-16 2 3 0.81846E-08 0.10000E+01 0.13538E+04 0.40136E-08 0.66884E-13 0.34361E-16 2 3 0.81846E-08 0.10000E+01 0.10918E+04 0.83913E-08 0.24903E-12 0.69549E-16 @@ -10280,24 +10280,24 @@ VERSION 2.8.2 2 3 0.81846E-08 0.10000E+01 0.24221E+03 0.82490E-06 0.75992E-09 0.63257E-14 2 3 0.81846E-08 0.10000E+01 0.19533E+03 0.12996E-05 0.14440E-08 0.99442E-14 2 3 0.81846E-08 0.10000E+01 0.15752E+03 0.12996E-05 0.14440E-08 0.99442E-14 - 2 3 0.14282E-07 0.10000E+01 0.80645E+05 0.24007E-54 0.17900E-65 0.24507E-61 - 2 3 0.14282E-07 0.10000E+01 0.65036E+05 0.20253E-53 0.28362E-64 0.20720E-60 - 2 3 0.14282E-07 0.10000E+01 0.52449E+05 0.17166E-52 0.37850E-63 0.17596E-59 - 2 3 0.14282E-07 0.10000E+01 0.42297E+05 0.12843E-51 0.50787E-62 0.13212E-58 - 2 3 0.14282E-07 0.10000E+01 0.34111E+05 0.91666E-51 0.68318E-61 0.94913E-58 - 2 3 0.14282E-07 0.10000E+01 0.27509E+05 0.64667E-50 0.89556E-60 0.67683E-57 - 2 3 0.14282E-07 0.10000E+01 0.22184E+05 0.44774E-49 0.11334E-58 0.47669E-56 - 2 3 0.14282E-07 0.10000E+01 0.17891E+05 0.30118E-48 0.13944E-57 0.32832E-55 - 2 3 0.14282E-07 0.10000E+01 0.14428E+05 0.19722E-47 0.17234E-56 0.21997E-54 - 2 3 0.14282E-07 0.10000E+01 0.11635E+05 0.12862E-46 0.22762E-55 0.14325E-53 - 2 3 0.14282E-07 0.10000E+01 0.93834E+04 0.87901E-46 0.35106E-54 0.90616E-53 - 2 3 0.14282E-07 0.10000E+01 0.75673E+04 0.68402E-45 0.67726E-53 0.55695E-52 - 2 3 0.14282E-07 0.10000E+01 0.61026E+04 0.65582E-44 0.15790E-51 0.34230E-51 - 2 3 0.14282E-07 0.10000E+01 0.49215E+04 0.76781E-43 0.40319E-50 0.23657E-50 - 2 3 0.14282E-07 0.10000E+01 0.39689E+04 0.10059E-41 0.10551E-48 0.21797E-49 - 2 3 0.14282E-07 0.10000E+01 0.32008E+04 0.43098E-39 0.89493E-46 0.82429E-47 - 2 3 0.14282E-07 0.10000E+01 0.25813E+04 0.30778E-30 0.14656E-36 0.56192E-38 - 2 3 0.14282E-07 0.10000E+01 0.20817E+04 0.57089E-14 0.12058E-19 0.98697E-22 + 2 3 0.14282E-07 0.10000E+01 0.80645E+05 0.16252E-11 0.10007E-22 0.16575E-18 + 2 3 0.14282E-07 0.10000E+01 0.65036E+05 0.20818E-11 0.22694E-22 0.21254E-18 + 2 3 0.14282E-07 0.10000E+01 0.52449E+05 0.26276E-11 0.50528E-22 0.26870E-18 + 2 3 0.14282E-07 0.10000E+01 0.42297E+05 0.32783E-11 0.11057E-21 0.33605E-18 + 2 3 0.14282E-07 0.10000E+01 0.34111E+05 0.40501E-11 0.24038E-21 0.41651E-18 + 2 3 0.14282E-07 0.10000E+01 0.27509E+05 0.49588E-11 0.53401E-21 0.51193E-18 + 2 3 0.14282E-07 0.10000E+01 0.22184E+05 0.60231E-11 0.12815E-20 0.62393E-18 + 2 3 0.14282E-07 0.10000E+01 0.17891E+05 0.72745E-11 0.35716E-20 0.75372E-18 + 2 3 0.14282E-07 0.10000E+01 0.14428E+05 0.87849E-11 0.11973E-19 0.90229E-18 + 2 3 0.14282E-07 0.10000E+01 0.11635E+05 0.10735E-10 0.46462E-19 0.10713E-17 + 2 3 0.14282E-07 0.10000E+01 0.93834E+04 0.13576E-10 0.19522E-18 0.12658E-17 + 2 3 0.14282E-07 0.10000E+01 0.75673E+04 0.18400E-10 0.84685E-18 0.15016E-17 + 2 3 0.14282E-07 0.10000E+01 0.61026E+04 0.27790E-10 0.36942E-17 0.18196E-17 + 2 3 0.14282E-07 0.10000E+01 0.49215E+04 0.47738E-10 0.15955E-16 0.23175E-17 + 2 3 0.14282E-07 0.10000E+01 0.39689E+04 0.91854E-10 0.67649E-16 0.32135E-17 + 2 3 0.14282E-07 0.10000E+01 0.32008E+04 0.19029E-09 0.28091E-15 0.49740E-17 + 2 3 0.14282E-07 0.10000E+01 0.25813E+04 0.40828E-09 0.11417E-14 0.85705E-17 + 2 3 0.14282E-07 0.10000E+01 0.20817E+04 0.88369E-09 0.45343E-14 0.15989E-16 2 3 0.14282E-07 0.10000E+01 0.16788E+04 0.19009E-08 0.17569E-13 0.31218E-16 2 3 0.14282E-07 0.10000E+01 0.13538E+04 0.40317E-08 0.66529E-13 0.62119E-16 2 3 0.14282E-07 0.10000E+01 0.10918E+04 0.83976E-08 0.24744E-12 0.12389E-15 @@ -10310,24 +10310,24 @@ VERSION 2.8.2 2 3 0.14282E-07 0.10000E+01 0.24221E+03 0.81845E-06 0.75328E-09 0.10881E-13 2 3 0.14282E-07 0.10000E+01 0.19533E+03 0.12891E-05 0.14314E-08 0.17089E-13 2 3 0.14282E-07 0.10000E+01 0.15752E+03 0.12891E-05 0.14314E-08 0.17089E-13 - 2 3 0.24920E-07 0.10000E+01 0.80645E+05 0.42524E-54 0.31746E-65 0.68076E-61 - 2 3 0.24920E-07 0.10000E+01 0.65036E+05 0.35911E-53 0.50341E-64 0.57593E-60 - 2 3 0.24920E-07 0.10000E+01 0.52449E+05 0.30465E-52 0.67317E-63 0.48938E-59 - 2 3 0.24920E-07 0.10000E+01 0.42297E+05 0.22831E-51 0.90645E-62 0.36784E-58 - 2 3 0.24920E-07 0.10000E+01 0.34111E+05 0.16344E-50 0.12263E-60 0.26473E-57 - 2 3 0.24920E-07 0.10000E+01 0.27509E+05 0.11588E-49 0.16224E-59 0.18935E-56 - 2 3 0.24920E-07 0.10000E+01 0.22184E+05 0.80870E-49 0.20798E-58 0.13402E-55 - 2 3 0.24920E-07 0.10000E+01 0.17891E+05 0.54994E-48 0.25873E-57 0.93037E-55 - 2 3 0.24920E-07 0.10000E+01 0.14428E+05 0.36377E-47 0.31768E-56 0.63073E-54 - 2 3 0.24920E-07 0.10000E+01 0.11635E+05 0.23655E-46 0.39724E-55 0.41735E-53 - 2 3 0.24920E-07 0.10000E+01 0.93834E+04 0.15513E-45 0.53622E-54 0.26898E-52 - 2 3 0.24920E-07 0.10000E+01 0.75673E+04 0.10800E-44 0.86216E-53 0.16770E-51 - 2 3 0.24920E-07 0.10000E+01 0.61026E+04 0.87310E-44 0.17589E-51 0.10134E-50 - 2 3 0.24920E-07 0.10000E+01 0.49215E+04 0.88327E-43 0.42623E-50 0.63099E-50 - 2 3 0.24920E-07 0.10000E+01 0.39689E+04 0.10779E-41 0.11013E-48 0.48346E-49 - 2 3 0.24920E-07 0.10000E+01 0.32008E+04 0.45161E-39 0.92860E-46 0.16270E-46 - 2 3 0.24920E-07 0.10000E+01 0.25813E+04 0.31955E-30 0.15049E-36 0.10848E-37 - 2 3 0.24920E-07 0.10000E+01 0.20817E+04 0.58681E-14 0.12143E-19 0.19145E-21 + 2 3 0.24920E-07 0.10000E+01 0.80645E+05 0.28776E-11 0.17873E-22 0.46029E-18 + 2 3 0.24920E-07 0.10000E+01 0.65036E+05 0.36878E-11 0.40739E-22 0.59041E-18 + 2 3 0.24920E-07 0.10000E+01 0.52449E+05 0.46581E-11 0.91278E-22 0.74676E-18 + 2 3 0.24920E-07 0.10000E+01 0.42297E+05 0.58180E-11 0.20076E-21 0.93463E-18 + 2 3 0.24920E-07 0.10000E+01 0.34111E+05 0.71982E-11 0.43518E-21 0.11597E-17 + 2 3 0.24920E-07 0.10000E+01 0.27509E+05 0.88283E-11 0.94261E-21 0.14277E-17 + 2 3 0.24920E-07 0.10000E+01 0.22184E+05 0.10738E-10 0.21093E-20 0.17439E-17 + 2 3 0.24920E-07 0.10000E+01 0.17891E+05 0.12966E-10 0.51906E-20 0.21125E-17 + 2 3 0.24920E-07 0.10000E+01 0.14428E+05 0.15583E-10 0.15088E-19 0.25365E-17 + 2 3 0.24920E-07 0.10000E+01 0.11635E+05 0.18763E-10 0.52702E-19 0.30188E-17 + 2 3 0.24920E-07 0.10000E+01 0.93834E+04 0.22950E-10 0.20946E-18 0.35669E-17 + 2 3 0.24920E-07 0.10000E+01 0.75673E+04 0.29241E-10 0.88543E-18 0.42056E-17 + 2 3 0.24920E-07 0.10000E+01 0.61026E+04 0.40265E-10 0.38104E-17 0.50067E-17 + 2 3 0.24920E-07 0.10000E+01 0.49215E+04 0.62133E-10 0.16306E-16 0.61482E-17 + 2 3 0.24920E-07 0.10000E+01 0.39689E+04 0.10867E-09 0.68633E-16 0.80327E-17 + 2 3 0.24920E-07 0.10000E+01 0.32008E+04 0.21038E-09 0.28327E-15 0.11518E-16 + 2 3 0.24920E-07 0.10000E+01 0.25813E+04 0.43282E-09 0.11458E-14 0.18371E-16 + 2 3 0.24920E-07 0.10000E+01 0.20817E+04 0.91404E-09 0.45334E-14 0.32150E-16 2 3 0.24920E-07 0.10000E+01 0.16788E+04 0.19377E-08 0.17516E-13 0.59919E-16 2 3 0.24920E-07 0.10000E+01 0.13538E+04 0.40728E-08 0.66184E-13 0.11545E-15 2 3 0.24920E-07 0.10000E+01 0.10918E+04 0.84335E-08 0.24575E-12 0.22517E-15 @@ -10340,24 +10340,24 @@ VERSION 2.8.2 2 3 0.24920E-07 0.10000E+01 0.24221E+03 0.81105E-06 0.74543E-09 0.18737E-13 2 3 0.24920E-07 0.10000E+01 0.19533E+03 0.12770E-05 0.14164E-08 0.29382E-13 2 3 0.24920E-07 0.10000E+01 0.15752E+03 0.12770E-05 0.14164E-08 0.29382E-13 - 2 3 0.43485E-07 0.10000E+01 0.80645E+05 0.75178E-54 0.56183E-65 0.19551E-60 - 2 3 0.43485E-07 0.10000E+01 0.65036E+05 0.63542E-53 0.89155E-64 0.16549E-59 - 2 3 0.43485E-07 0.10000E+01 0.52449E+05 0.53948E-52 0.11943E-62 0.14069E-58 - 2 3 0.43485E-07 0.10000E+01 0.42297E+05 0.40487E-51 0.16130E-61 0.10583E-57 - 2 3 0.43485E-07 0.10000E+01 0.34111E+05 0.29057E-50 0.21927E-60 0.76282E-57 - 2 3 0.43485E-07 0.10000E+01 0.27509E+05 0.20690E-49 0.29239E-59 0.54694E-56 - 2 3 0.43485E-07 0.10000E+01 0.22184E+05 0.14538E-48 0.37923E-58 0.38864E-55 - 2 3 0.43485E-07 0.10000E+01 0.17891E+05 0.99857E-48 0.47815E-57 0.27149E-54 - 2 3 0.43485E-07 0.10000E+01 0.14428E+05 0.66837E-47 0.59135E-56 0.18577E-53 - 2 3 0.43485E-07 0.10000E+01 0.11635E+05 0.43801E-46 0.72704E-55 0.12450E-52 - 2 3 0.43485E-07 0.10000E+01 0.93834E+04 0.28413E-45 0.91124E-54 0.81538E-52 - 2 3 0.43485E-07 0.10000E+01 0.75673E+04 0.18667E-44 0.12507E-52 0.51727E-51 - 2 3 0.43485E-07 0.10000E+01 0.61026E+04 0.13188E-43 0.21238E-51 0.31447E-50 - 2 3 0.43485E-07 0.10000E+01 0.49215E+04 0.11169E-42 0.46380E-50 0.18665E-49 - 2 3 0.43485E-07 0.10000E+01 0.39689E+04 0.12048E-41 0.11643E-48 0.12269E-48 - 2 3 0.43485E-07 0.10000E+01 0.32008E+04 0.48213E-39 0.97568E-46 0.35080E-46 - 2 3 0.43485E-07 0.10000E+01 0.25813E+04 0.33683E-30 0.15647E-36 0.22221E-37 - 2 3 0.43485E-07 0.10000E+01 0.20817E+04 0.61299E-14 0.12303E-19 0.39466E-21 + 2 3 0.43485E-07 0.10000E+01 0.80645E+05 0.50853E-11 0.31824E-22 0.13216E-17 + 2 3 0.43485E-07 0.10000E+01 0.65036E+05 0.65199E-11 0.72872E-22 0.16956E-17 + 2 3 0.43485E-07 0.10000E+01 0.52449E+05 0.82406E-11 0.16429E-21 0.21455E-17 + 2 3 0.43485E-07 0.10000E+01 0.42297E+05 0.10303E-10 0.36383E-21 0.26869E-17 + 2 3 0.43485E-07 0.10000E+01 0.34111E+05 0.12764E-10 0.79196E-21 0.33370E-17 + 2 3 0.43485E-07 0.10000E+01 0.27509E+05 0.15683E-10 0.17036E-20 0.41136E-17 + 2 3 0.43485E-07 0.10000E+01 0.22184E+05 0.19113E-10 0.36810E-20 0.50338E-17 + 2 3 0.43485E-07 0.10000E+01 0.17891E+05 0.23111E-10 0.83157E-20 0.61124E-17 + 2 3 0.43485E-07 0.10000E+01 0.14428E+05 0.27754E-10 0.21103E-19 0.73603E-17 + 2 3 0.43485E-07 0.10000E+01 0.11635E+05 0.33208E-10 0.64332E-19 0.87844E-17 + 2 3 0.43485E-07 0.10000E+01 0.93834E+04 0.39899E-10 0.23405E-18 0.10395E-16 + 2 3 0.43485E-07 0.10000E+01 0.75673E+04 0.48917E-10 0.94723E-18 0.12231E-16 + 2 3 0.43485E-07 0.10000E+01 0.61026E+04 0.62933E-10 0.39915E-17 0.14417E-16 + 2 3 0.43485E-07 0.10000E+01 0.49215E+04 0.88215E-10 0.16862E-16 0.17283E-16 + 2 3 0.43485E-07 0.10000E+01 0.39689E+04 0.13893E-09 0.70264E-16 0.21597E-16 + 2 3 0.43485E-07 0.10000E+01 0.32008E+04 0.24611E-09 0.28754E-15 0.28988E-16 + 2 3 0.43485E-07 0.10000E+01 0.25813E+04 0.47608E-09 0.11548E-14 0.42767E-16 + 2 3 0.43485E-07 0.10000E+01 0.20817E+04 0.96742E-09 0.45432E-14 0.69480E-16 2 3 0.43485E-07 0.10000E+01 0.16788E+04 0.20036E-08 0.17477E-13 0.12187E-15 2 3 0.43485E-07 0.10000E+01 0.13538E+04 0.41506E-08 0.65816E-13 0.22442E-15 2 3 0.43485E-07 0.10000E+01 0.10918E+04 0.85139E-08 0.24376E-12 0.42348E-15 @@ -10370,24 +10370,24 @@ VERSION 2.8.2 2 3 0.43485E-07 0.10000E+01 0.24221E+03 0.80173E-06 0.73527E-09 0.32375E-13 2 3 0.43485E-07 0.10000E+01 0.19533E+03 0.12616E-05 0.13970E-08 0.50644E-13 2 3 0.43485E-07 0.10000E+01 0.15752E+03 0.12616E-05 0.13970E-08 0.50644E-13 - 2 3 0.75878E-07 0.10000E+01 0.80645E+05 0.13278E-53 0.99318E-65 0.57762E-60 - 2 3 0.75878E-07 0.10000E+01 0.65036E+05 0.11231E-52 0.15769E-63 0.48914E-59 - 2 3 0.75878E-07 0.10000E+01 0.52449E+05 0.95411E-52 0.21155E-62 0.41598E-58 - 2 3 0.75878E-07 0.10000E+01 0.42297E+05 0.71688E-51 0.28642E-61 0.31314E-57 - 2 3 0.75878E-07 0.10000E+01 0.34111E+05 0.51560E-50 0.39088E-60 0.22596E-56 - 2 3 0.75878E-07 0.10000E+01 0.27509E+05 0.36839E-49 0.52458E-59 0.16233E-55 - 2 3 0.75878E-07 0.10000E+01 0.22184E+05 0.26031E-48 0.68707E-58 0.11570E-54 - 2 3 0.75878E-07 0.10000E+01 0.17891E+05 0.18031E-47 0.87729E-57 0.81214E-54 - 2 3 0.75878E-07 0.10000E+01 0.14428E+05 0.12203E-46 0.10978E-55 0.55968E-53 - 2 3 0.75878E-07 0.10000E+01 0.11635E+05 0.80851E-46 0.13525E-54 0.37874E-52 - 2 3 0.75878E-07 0.10000E+01 0.93834E+04 0.52650E-45 0.16480E-53 0.25122E-51 - 2 3 0.75878E-07 0.10000E+01 0.75673E+04 0.33895E-44 0.20497E-52 0.16191E-50 - 2 3 0.75878E-07 0.10000E+01 0.61026E+04 0.22147E-43 0.28960E-51 0.99868E-50 - 2 3 0.75878E-07 0.10000E+01 0.49215E+04 0.15992E-42 0.53580E-50 0.58667E-49 - 2 3 0.75878E-07 0.10000E+01 0.39689E+04 0.14538E-41 0.12609E-48 0.35128E-48 - 2 3 0.75878E-07 0.10000E+01 0.32008E+04 0.53313E-39 0.10447E-45 0.84807E-46 - 2 3 0.75878E-07 0.10000E+01 0.25813E+04 0.36403E-30 0.16589E-36 0.49340E-37 - 2 3 0.75878E-07 0.10000E+01 0.20817E+04 0.65787E-14 0.12603E-19 0.87990E-21 + 2 3 0.75878E-07 0.10000E+01 0.80645E+05 0.89785E-11 0.56540E-22 0.39039E-17 + 2 3 0.75878E-07 0.10000E+01 0.65036E+05 0.11515E-10 0.12997E-21 0.50097E-17 + 2 3 0.75878E-07 0.10000E+01 0.52449E+05 0.14562E-10 0.29460E-21 0.63409E-17 + 2 3 0.75878E-07 0.10000E+01 0.42297E+05 0.18222E-10 0.65689E-21 0.79447E-17 + 2 3 0.75878E-07 0.10000E+01 0.34111E+05 0.22602E-10 0.14395E-20 0.98740E-17 + 2 3 0.75878E-07 0.10000E+01 0.27509E+05 0.27816E-10 0.31036E-20 0.12185E-16 + 2 3 0.75878E-07 0.10000E+01 0.22184E+05 0.33967E-10 0.66234E-20 0.14932E-16 + 2 3 0.75878E-07 0.10000E+01 0.17891E+05 0.41154E-10 0.14279E-19 0.18167E-16 + 2 3 0.75878E-07 0.10000E+01 0.14428E+05 0.49481E-10 0.32732E-19 0.21930E-16 + 2 3 0.75878E-07 0.10000E+01 0.11635E+05 0.59111E-10 0.86632E-19 0.26244E-16 + 2 3 0.75878E-07 0.10000E+01 0.93834E+04 0.70441E-10 0.27907E-18 0.31125E-16 + 2 3 0.75878E-07 0.10000E+01 0.75673E+04 0.84534E-10 0.10530E-17 0.36630E-16 + 2 3 0.75878E-07 0.10000E+01 0.61026E+04 0.10410E-09 0.42891E-17 0.42976E-16 + 2 3 0.75878E-07 0.10000E+01 0.49215E+04 0.13560E-09 0.17779E-16 0.50794E-16 + 2 3 0.75878E-07 0.10000E+01 0.39689E+04 0.19374E-09 0.73047E-16 0.61604E-16 + 2 3 0.75878E-07 0.10000E+01 0.32008E+04 0.31050E-09 0.29531E-15 0.78655E-16 + 2 3 0.75878E-07 0.10000E+01 0.25813E+04 0.55357E-09 0.11736E-14 0.10844E-15 + 2 3 0.75878E-07 0.10000E+01 0.20817E+04 0.10631E-08 0.45778E-14 0.16346E-15 2 3 0.75878E-07 0.10000E+01 0.16788E+04 0.21232E-08 0.17491E-13 0.26749E-15 2 3 0.75878E-07 0.10000E+01 0.13538E+04 0.42981E-08 0.65521E-13 0.46503E-15 2 3 0.75878E-07 0.10000E+01 0.10918E+04 0.86840E-08 0.24169E-12 0.83882E-15 @@ -10400,24 +10400,24 @@ VERSION 2.8.2 2 3 0.75878E-07 0.10000E+01 0.24221E+03 0.79063E-06 0.72260E-09 0.56376E-13 2 3 0.75878E-07 0.10000E+01 0.19533E+03 0.12431E-05 0.13727E-08 0.87831E-13 2 3 0.75878E-07 0.10000E+01 0.15752E+03 0.12431E-05 0.13727E-08 0.87831E-13 - 2 3 0.13240E-06 0.10000E+01 0.80645E+05 0.23435E-53 0.17542E-64 0.17333E-59 - 2 3 0.13240E-06 0.10000E+01 0.65036E+05 0.19834E-52 0.27866E-63 0.14683E-58 - 2 3 0.13240E-06 0.10000E+01 0.52449E+05 0.16858E-51 0.37425E-62 0.12490E-57 - 2 3 0.13240E-06 0.10000E+01 0.42297E+05 0.12679E-50 0.50769E-61 0.94072E-57 - 2 3 0.13240E-06 0.10000E+01 0.34111E+05 0.91341E-50 0.69497E-60 0.67946E-56 - 2 3 0.13240E-06 0.10000E+01 0.27509E+05 0.65440E-49 0.93736E-59 0.48882E-55 - 2 3 0.13240E-06 0.10000E+01 0.22184E+05 0.46443E-48 0.12373E-57 0.34923E-54 - 2 3 0.13240E-06 0.10000E+01 0.17891E+05 0.32387E-47 0.15965E-56 0.24604E-53 - 2 3 0.13240E-06 0.10000E+01 0.14428E+05 0.22120E-46 0.20213E-55 0.17046E-52 - 2 3 0.13240E-06 0.10000E+01 0.11635E+05 0.14813E-45 0.25126E-54 0.11619E-51 - 2 3 0.13240E-06 0.10000E+01 0.93834E+04 0.97332E-45 0.30515E-53 0.77810E-51 - 2 3 0.13240E-06 0.10000E+01 0.75673E+04 0.62614E-44 0.36354E-52 0.50788E-50 - 2 3 0.13240E-06 0.10000E+01 0.61026E+04 0.39609E-43 0.45057E-51 0.31809E-49 - 2 3 0.13240E-06 0.10000E+01 0.49215E+04 0.25765E-42 0.68574E-50 0.18822E-48 - 2 3 0.13240E-06 0.10000E+01 0.39689E+04 0.19637E-41 0.14341E-48 0.10809E-47 - 2 3 0.13240E-06 0.10000E+01 0.32008E+04 0.62894E-39 0.11567E-45 0.22832E-45 - 2 3 0.13240E-06 0.10000E+01 0.25813E+04 0.41136E-30 0.18186E-36 0.11952E-36 - 2 3 0.13240E-06 0.10000E+01 0.20817E+04 0.73980E-14 0.13219E-19 0.21278E-20 + 2 3 0.13240E-06 0.10000E+01 0.80645E+05 0.15843E-10 0.10026E-21 0.11713E-16 + 2 3 0.13240E-06 0.10000E+01 0.65036E+05 0.20325E-10 0.23118E-21 0.15033E-16 + 2 3 0.13240E-06 0.10000E+01 0.52449E+05 0.25714E-10 0.52637E-21 0.19033E-16 + 2 3 0.13240E-06 0.10000E+01 0.42297E+05 0.32197E-10 0.11806E-20 0.23855E-16 + 2 3 0.13240E-06 0.10000E+01 0.34111E+05 0.39977E-10 0.26049E-20 0.29665E-16 + 2 3 0.13240E-06 0.10000E+01 0.27509E+05 0.49264E-10 0.56491E-20 0.36636E-16 + 2 3 0.13240E-06 0.10000E+01 0.22184E+05 0.60265E-10 0.12048E-19 0.44949E-16 + 2 3 0.13240E-06 0.10000E+01 0.17891E+05 0.73168E-10 0.25468E-19 0.54772E-16 + 2 3 0.13240E-06 0.10000E+01 0.14428E+05 0.88139E-10 0.54945E-19 0.66248E-16 + 2 3 0.13240E-06 0.10000E+01 0.11635E+05 0.10537E-09 0.12960E-18 0.79464E-16 + 2 3 0.13240E-06 0.10000E+01 0.93834E+04 0.12522E-09 0.36460E-18 0.94461E-16 + 2 3 0.13240E-06 0.10000E+01 0.75673E+04 0.14871E-09 0.12466E-17 0.11131E-15 + 2 3 0.13240E-06 0.10000E+01 0.61026E+04 0.17858E-09 0.48181E-17 0.13040E-15 + 2 3 0.13240E-06 0.10000E+01 0.49215E+04 0.22162E-09 0.19419E-16 0.15296E-15 + 2 3 0.13240E-06 0.10000E+01 0.39689E+04 0.29342E-09 0.78224E-16 0.18218E-15 + 2 3 0.13240E-06 0.10000E+01 0.32008E+04 0.42775E-09 0.31090E-15 0.22487E-15 + 2 3 0.13240E-06 0.10000E+01 0.25813E+04 0.69520E-09 0.12170E-14 0.29452E-15 + 2 3 0.13240E-06 0.10000E+01 0.20817E+04 0.12399E-08 0.46862E-14 0.41637E-15 2 3 0.13240E-06 0.10000E+01 0.16788E+04 0.23508E-08 0.17718E-13 0.63675E-15 2 3 0.13240E-06 0.10000E+01 0.13538E+04 0.45955E-08 0.65826E-13 0.10397E-14 2 3 0.13240E-06 0.10000E+01 0.10918E+04 0.90689E-08 0.24126E-12 0.17770E-14 @@ -10430,24 +10430,24 @@ VERSION 2.8.2 2 3 0.13240E-06 0.10000E+01 0.24221E+03 0.78256E-06 0.71126E-09 0.99570E-13 2 3 0.13240E-06 0.10000E+01 0.19533E+03 0.12286E-05 0.13509E-08 0.15411E-12 2 3 0.13240E-06 0.10000E+01 0.15752E+03 0.12286E-05 0.13509E-08 0.15411E-12 - 2 3 0.23103E-06 0.10000E+01 0.80645E+05 0.41344E-53 0.30965E-64 0.52620E-59 - 2 3 0.23103E-06 0.10000E+01 0.65036E+05 0.35006E-52 0.49206E-63 0.44585E-58 - 2 3 0.23103E-06 0.10000E+01 0.52449E+05 0.29767E-51 0.66144E-62 0.37936E-57 - 2 3 0.23103E-06 0.10000E+01 0.42297E+05 0.22403E-50 0.89865E-61 0.28583E-56 - 2 3 0.23103E-06 0.10000E+01 0.34111E+05 0.16161E-49 0.12331E-59 0.20660E-55 - 2 3 0.23103E-06 0.10000E+01 0.27509E+05 0.11603E-48 0.16696E-58 0.14880E-54 - 2 3 0.23103E-06 0.10000E+01 0.22184E+05 0.82625E-48 0.22171E-57 0.10650E-53 - 2 3 0.23103E-06 0.10000E+01 0.17891E+05 0.57920E-47 0.28849E-56 0.75242E-53 - 2 3 0.23103E-06 0.10000E+01 0.14428E+05 0.39850E-46 0.36891E-55 0.52343E-52 - 2 3 0.23103E-06 0.10000E+01 0.11635E+05 0.26929E-45 0.46330E-54 0.35873E-51 - 2 3 0.23103E-06 0.10000E+01 0.93834E+04 0.17865E-44 0.56647E-53 0.24197E-50 - 2 3 0.23103E-06 0.10000E+01 0.75673E+04 0.11573E-43 0.66780E-52 0.15949E-49 - 2 3 0.23103E-06 0.10000E+01 0.61026E+04 0.72709E-43 0.77277E-51 0.10122E-48 - 2 3 0.23103E-06 0.10000E+01 0.49215E+04 0.44912E-42 0.99263E-50 0.60665E-48 - 2 3 0.23103E-06 0.10000E+01 0.39689E+04 0.29842E-41 0.17556E-48 0.34434E-47 - 2 3 0.23103E-06 0.10000E+01 0.32008E+04 0.81093E-39 0.13386E-45 0.66647E-45 - 2 3 0.23103E-06 0.10000E+01 0.25813E+04 0.49366E-30 0.20789E-36 0.31396E-36 - 2 3 0.23103E-06 0.10000E+01 0.20817E+04 0.88418E-14 0.14307E-19 0.55415E-20 + 2 3 0.23103E-06 0.10000E+01 0.80645E+05 0.27944E-10 0.17753E-21 0.35553E-16 + 2 3 0.23103E-06 0.10000E+01 0.65036E+05 0.35857E-10 0.41033E-21 0.45637E-16 + 2 3 0.23103E-06 0.10000E+01 0.52449E+05 0.45381E-10 0.93758E-21 0.57789E-16 + 2 3 0.23103E-06 0.10000E+01 0.42297E+05 0.56851E-10 0.21131E-20 0.72454E-16 + 2 3 0.23103E-06 0.10000E+01 0.34111E+05 0.70642E-10 0.46906E-20 0.90137E-16 + 2 3 0.23103E-06 0.10000E+01 0.27509E+05 0.87150E-10 0.10238E-19 0.11139E-15 + 2 3 0.23103E-06 0.10000E+01 0.22184E+05 0.10677E-09 0.21930E-19 0.13679E-15 + 2 3 0.23103E-06 0.10000E+01 0.17891E+05 0.12987E-09 0.46130E-19 0.16688E-15 + 2 3 0.23103E-06 0.10000E+01 0.14428E+05 0.15676E-09 0.96597E-19 0.20217E-15 + 2 3 0.23103E-06 0.10000E+01 0.11635E+05 0.18770E-09 0.21099E-18 0.24297E-15 + 2 3 0.23103E-06 0.10000E+01 0.93834E+04 0.22305E-09 0.52522E-18 0.28943E-15 + 2 3 0.23103E-06 0.10000E+01 0.75673E+04 0.26375E-09 0.15973E-17 0.34164E-15 + 2 3 0.23103E-06 0.10000E+01 0.61026E+04 0.31256E-09 0.57371E-17 0.40025E-15 + 2 3 0.23103E-06 0.10000E+01 0.49215E+04 0.37674E-09 0.22213E-16 0.46782E-15 + 2 3 0.23103E-06 0.10000E+01 0.39689E+04 0.47326E-09 0.87097E-16 0.55130E-15 + 2 3 0.23103E-06 0.10000E+01 0.32008E+04 0.63888E-09 0.33823E-15 0.66601E-15 + 2 3 0.23103E-06 0.10000E+01 0.25813E+04 0.94932E-09 0.12960E-14 0.84179E-15 + 2 3 0.23103E-06 0.10000E+01 0.20817E+04 0.15563E-08 0.48969E-14 0.11330E-14 2 3 0.23103E-06 0.10000E+01 0.16788E+04 0.27585E-08 0.18222E-13 0.16358E-14 2 3 0.23103E-06 0.10000E+01 0.13538E+04 0.51337E-08 0.66830E-13 0.25172E-14 2 3 0.23103E-06 0.10000E+01 0.10918E+04 0.97835E-08 0.24247E-12 0.40676E-14 @@ -10460,24 +10460,24 @@ VERSION 2.8.2 2 3 0.23103E-06 0.10000E+01 0.24221E+03 0.77583E-06 0.69876E-09 0.18001E-12 2 3 0.23103E-06 0.10000E+01 0.19533E+03 0.12152E-05 0.13268E-08 0.27575E-12 2 3 0.23103E-06 0.10000E+01 0.15752E+03 0.12152E-05 0.13268E-08 0.27575E-12 - 2 3 0.40314E-06 0.10000E+01 0.80645E+05 0.72837E-53 0.54577E-64 0.15927E-58 - 2 3 0.40314E-06 0.10000E+01 0.65036E+05 0.61695E-52 0.86752E-63 0.13498E-57 - 2 3 0.40314E-06 0.10000E+01 0.52449E+05 0.52478E-51 0.11670E-61 0.11487E-56 - 2 3 0.40314E-06 0.10000E+01 0.42297E+05 0.39518E-50 0.15873E-60 0.86577E-56 - 2 3 0.40314E-06 0.10000E+01 0.34111E+05 0.28536E-49 0.21820E-59 0.62612E-55 - 2 3 0.40314E-06 0.10000E+01 0.27509E+05 0.20521E-48 0.29631E-58 0.45135E-54 - 2 3 0.40314E-06 0.10000E+01 0.22184E+05 0.14651E-47 0.39530E-57 0.32349E-53 - 2 3 0.40314E-06 0.10000E+01 0.17891E+05 0.10312E-46 0.51772E-56 0.22904E-52 - 2 3 0.40314E-06 0.10000E+01 0.14428E+05 0.71351E-46 0.66738E-55 0.15982E-51 - 2 3 0.40314E-06 0.10000E+01 0.11635E+05 0.48567E-45 0.84589E-54 0.10999E-50 - 2 3 0.40314E-06 0.10000E+01 0.93834E+04 0.32496E-44 0.10440E-52 0.74587E-50 - 2 3 0.40314E-06 0.10000E+01 0.75673E+04 0.21236E-43 0.12359E-51 0.49525E-49 - 2 3 0.40314E-06 0.10000E+01 0.61026E+04 0.13401E-42 0.13950E-50 0.31761E-48 - 2 3 0.40314E-06 0.10000E+01 0.49215E+04 0.81320E-42 0.16039E-49 0.19278E-47 - 2 3 0.40314E-06 0.10000E+01 0.39689E+04 0.49740E-41 0.23670E-48 0.10965E-46 - 2 3 0.40314E-06 0.10000E+01 0.32008E+04 0.11581E-38 0.16439E-45 0.20198E-44 - 2 3 0.40314E-06 0.10000E+01 0.25813E+04 0.63942E-30 0.25069E-36 0.87072E-36 - 2 3 0.40314E-06 0.10000E+01 0.20817E+04 0.11387E-13 0.16202E-19 0.15162E-19 + 2 3 0.40314E-06 0.10000E+01 0.80645E+05 0.49222E-10 0.31366E-21 0.10761E-15 + 2 3 0.40314E-06 0.10000E+01 0.65036E+05 0.63172E-10 0.72631E-21 0.13814E-15 + 2 3 0.40314E-06 0.10000E+01 0.52449E+05 0.79972E-10 0.16642E-20 0.17495E-15 + 2 3 0.40314E-06 0.10000E+01 0.42297E+05 0.10023E-09 0.37651E-20 0.21939E-15 + 2 3 0.40314E-06 0.10000E+01 0.34111E+05 0.12462E-09 0.83990E-20 0.27303E-15 + 2 3 0.40314E-06 0.10000E+01 0.27509E+05 0.15387E-09 0.18440E-19 0.33757E-15 + 2 3 0.40314E-06 0.10000E+01 0.22184E+05 0.18873E-09 0.39726E-19 0.41482E-15 + 2 3 0.40314E-06 0.10000E+01 0.17891E+05 0.22992E-09 0.83734E-19 0.50656E-15 + 2 3 0.40314E-06 0.10000E+01 0.14428E+05 0.27803E-09 0.17336E-18 0.61442E-15 + 2 3 0.40314E-06 0.10000E+01 0.11635E+05 0.33352E-09 0.36256E-18 0.73957E-15 + 2 3 0.40314E-06 0.10000E+01 0.93834E+04 0.39679E-09 0.82386E-18 0.88255E-15 + 2 3 0.40314E-06 0.10000E+01 0.75673E+04 0.46867E-09 0.22341E-17 0.10435E-14 + 2 3 0.40314E-06 0.10000E+01 0.61026E+04 0.55194E-09 0.73462E-17 0.12234E-14 + 2 3 0.40314E-06 0.10000E+01 0.49215E+04 0.65450E-09 0.26997E-16 0.14279E-14 + 2 3 0.40314E-06 0.10000E+01 0.39689E+04 0.79556E-09 0.10228E-15 0.16728E-14 + 2 3 0.40314E-06 0.10000E+01 0.32008E+04 0.10168E-08 0.38566E-15 0.19944E-14 + 2 3 0.40314E-06 0.10000E+01 0.25813E+04 0.14028E-08 0.14367E-14 0.24631E-14 + 2 3 0.40314E-06 0.10000E+01 0.20817E+04 0.21191E-08 0.52876E-14 0.32039E-14 2 3 0.40314E-06 0.10000E+01 0.16788E+04 0.34832E-08 0.19225E-13 0.44294E-14 2 3 0.40314E-06 0.10000E+01 0.13538E+04 0.60953E-08 0.69144E-13 0.64936E-14 2 3 0.40314E-06 0.10000E+01 0.10918E+04 0.11079E-07 0.24693E-12 0.99823E-14 @@ -10490,24 +10490,24 @@ VERSION 2.8.2 2 3 0.40314E-06 0.10000E+01 0.24221E+03 0.77316E-06 0.68595E-09 0.33654E-12 2 3 0.40314E-06 0.10000E+01 0.19533E+03 0.12064E-05 0.13018E-08 0.50771E-12 2 3 0.40314E-06 0.10000E+01 0.15752E+03 0.12064E-05 0.13018E-08 0.50771E-12 - 2 3 0.70346E-06 0.10000E+01 0.80645E+05 0.12737E-52 0.95452E-64 0.33594E-58 - 2 3 0.70346E-06 0.10000E+01 0.65036E+05 0.10790E-51 0.15174E-62 0.28472E-57 - 2 3 0.70346E-06 0.10000E+01 0.52449E+05 0.91786E-51 0.20415E-61 0.24231E-56 - 2 3 0.70346E-06 0.10000E+01 0.42297E+05 0.69131E-50 0.27779E-60 0.18264E-55 - 2 3 0.70346E-06 0.10000E+01 0.34111E+05 0.49934E-49 0.38207E-59 0.13211E-54 - 2 3 0.70346E-06 0.10000E+01 0.27509E+05 0.35927E-48 0.51930E-58 0.95256E-54 - 2 3 0.70346E-06 0.10000E+01 0.22184E+05 0.25670E-47 0.69373E-57 0.68299E-53 - 2 3 0.70346E-06 0.10000E+01 0.17891E+05 0.18089E-46 0.91031E-56 0.48387E-52 - 2 3 0.70346E-06 0.10000E+01 0.14428E+05 0.12537E-45 0.11763E-54 0.33794E-51 - 2 3 0.70346E-06 0.10000E+01 0.11635E+05 0.85527E-45 0.14953E-53 0.23284E-50 - 2 3 0.70346E-06 0.10000E+01 0.93834E+04 0.57378E-44 0.18517E-52 0.15814E-49 - 2 3 0.70346E-06 0.10000E+01 0.75673E+04 0.37610E-43 0.21986E-51 0.10522E-48 - 2 3 0.70346E-06 0.10000E+01 0.61026E+04 0.23799E-42 0.24750E-50 0.67683E-48 - 2 3 0.70346E-06 0.10000E+01 0.49215E+04 0.14418E-41 0.27741E-49 0.41247E-47 - 2 3 0.70346E-06 0.10000E+01 0.39689E+04 0.86590E-41 0.38578E-48 0.23510E-46 - 2 3 0.70346E-06 0.10000E+01 0.32008E+04 0.19241E-38 0.25705E-45 0.42826E-44 - 2 3 0.70346E-06 0.10000E+01 0.25813E+04 0.10223E-29 0.38862E-36 0.17991E-35 - 2 3 0.70346E-06 0.10000E+01 0.20817E+04 0.18155E-13 0.24535E-19 0.31163E-19 + 2 3 0.70346E-06 0.10000E+01 0.80645E+05 0.86070E-10 0.54897E-21 0.22696E-15 + 2 3 0.70346E-06 0.10000E+01 0.65036E+05 0.11047E-09 0.12719E-20 0.29136E-15 + 2 3 0.70346E-06 0.10000E+01 0.52449E+05 0.13986E-09 0.29166E-20 0.36901E-15 + 2 3 0.70346E-06 0.10000E+01 0.42297E+05 0.17530E-09 0.66063E-20 0.46279E-15 + 2 3 0.70346E-06 0.10000E+01 0.34111E+05 0.21800E-09 0.14759E-19 0.57599E-15 + 2 3 0.70346E-06 0.10000E+01 0.27509E+05 0.26925E-09 0.32465E-19 0.71224E-15 + 2 3 0.70346E-06 0.10000E+01 0.22184E+05 0.33037E-09 0.70084E-19 0.87539E-15 + 2 3 0.70346E-06 0.10000E+01 0.17891E+05 0.40265E-09 0.14794E-18 0.10693E-14 + 2 3 0.70346E-06 0.10000E+01 0.14428E+05 0.48719E-09 0.30585E-18 0.12974E-14 + 2 3 0.70346E-06 0.10000E+01 0.11635E+05 0.58481E-09 0.63354E-18 0.15624E-14 + 2 3 0.70346E-06 0.10000E+01 0.93834E+04 0.69611E-09 0.14048E-17 0.18655E-14 + 2 3 0.70346E-06 0.10000E+01 0.75673E+04 0.82225E-09 0.36720E-17 0.22068E-14 + 2 3 0.70346E-06 0.10000E+01 0.61026E+04 0.96717E-09 0.11685E-16 0.25883E-14 + 2 3 0.70346E-06 0.10000E+01 0.49215E+04 0.11426E-08 0.42056E-16 0.30201E-14 + 2 3 0.70346E-06 0.10000E+01 0.39689E+04 0.13775E-08 0.15716E-15 0.35333E-14 + 2 3 0.70346E-06 0.10000E+01 0.32008E+04 0.17350E-08 0.58566E-15 0.41990E-14 + 2 3 0.70346E-06 0.10000E+01 0.25813E+04 0.23424E-08 0.21567E-14 0.51550E-14 + 2 3 0.70346E-06 0.10000E+01 0.20817E+04 0.34464E-08 0.78486E-14 0.66449E-14 2 3 0.70346E-06 0.10000E+01 0.16788E+04 0.55148E-08 0.28243E-13 0.90781E-14 2 3 0.70346E-06 0.10000E+01 0.13538E+04 0.94238E-08 0.10067E-12 0.13124E-13 2 3 0.70346E-06 0.10000E+01 0.10918E+04 0.16798E-07 0.35687E-12 0.19875E-13 @@ -10520,24 +10520,24 @@ VERSION 2.8.2 2 3 0.70346E-06 0.10000E+01 0.24221E+03 0.11057E-05 0.97367E-09 0.60712E-12 2 3 0.70346E-06 0.10000E+01 0.19533E+03 0.17221E-05 0.18474E-08 0.90985E-12 2 3 0.70346E-06 0.10000E+01 0.15752E+03 0.17221E-05 0.18474E-08 0.90985E-12 - 2 3 0.12275E-05 0.10000E+01 0.80645E+05 0.22225E-52 0.16656E-63 0.58619E-58 - 2 3 0.12275E-05 0.10000E+01 0.65036E+05 0.18827E-51 0.26477E-62 0.49681E-57 - 2 3 0.12275E-05 0.10000E+01 0.52449E+05 0.16016E-50 0.35624E-61 0.42281E-56 - 2 3 0.12275E-05 0.10000E+01 0.42297E+05 0.12063E-49 0.48473E-60 0.31870E-55 - 2 3 0.12275E-05 0.10000E+01 0.34111E+05 0.87132E-49 0.66669E-59 0.23052E-54 - 2 3 0.12275E-05 0.10000E+01 0.27509E+05 0.62690E-48 0.90615E-58 0.16622E-53 - 2 3 0.12275E-05 0.10000E+01 0.22184E+05 0.44792E-47 0.12105E-56 0.11918E-52 - 2 3 0.12275E-05 0.10000E+01 0.17891E+05 0.31563E-46 0.15884E-55 0.84432E-52 - 2 3 0.12275E-05 0.10000E+01 0.14428E+05 0.21877E-45 0.20526E-54 0.58969E-51 - 2 3 0.12275E-05 0.10000E+01 0.11635E+05 0.14924E-44 0.26092E-53 0.40629E-50 - 2 3 0.12275E-05 0.10000E+01 0.93834E+04 0.10012E-43 0.32312E-52 0.27594E-49 - 2 3 0.12275E-05 0.10000E+01 0.75673E+04 0.65628E-43 0.38364E-51 0.18361E-48 - 2 3 0.12275E-05 0.10000E+01 0.61026E+04 0.41528E-42 0.43187E-50 0.11810E-47 - 2 3 0.12275E-05 0.10000E+01 0.49215E+04 0.25159E-41 0.48406E-49 0.71973E-47 - 2 3 0.12275E-05 0.10000E+01 0.39689E+04 0.15109E-40 0.67316E-48 0.41023E-46 - 2 3 0.12275E-05 0.10000E+01 0.32008E+04 0.33574E-38 0.44853E-45 0.74728E-44 - 2 3 0.12275E-05 0.10000E+01 0.25813E+04 0.17839E-29 0.67812E-36 0.31394E-35 - 2 3 0.12275E-05 0.10000E+01 0.20817E+04 0.31680E-13 0.42813E-19 0.54378E-19 + 2 3 0.12275E-05 0.10000E+01 0.80645E+05 0.15019E-09 0.95791E-21 0.39602E-15 + 2 3 0.12275E-05 0.10000E+01 0.65036E+05 0.19276E-09 0.22194E-20 0.50841E-15 + 2 3 0.12275E-05 0.10000E+01 0.52449E+05 0.24404E-09 0.50893E-20 0.64390E-15 + 2 3 0.12275E-05 0.10000E+01 0.42297E+05 0.30589E-09 0.11528E-19 0.80753E-15 + 2 3 0.12275E-05 0.10000E+01 0.34111E+05 0.38040E-09 0.25754E-19 0.10051E-14 + 2 3 0.12275E-05 0.10000E+01 0.27509E+05 0.46982E-09 0.56649E-19 0.12428E-14 + 2 3 0.12275E-05 0.10000E+01 0.22184E+05 0.57648E-09 0.12229E-18 0.15275E-14 + 2 3 0.12275E-05 0.10000E+01 0.17891E+05 0.70260E-09 0.25814E-18 0.18658E-14 + 2 3 0.12275E-05 0.10000E+01 0.14428E+05 0.85013E-09 0.53369E-18 0.22639E-14 + 2 3 0.12275E-05 0.10000E+01 0.11635E+05 0.10205E-08 0.11055E-17 0.27263E-14 + 2 3 0.12275E-05 0.10000E+01 0.93834E+04 0.12147E-08 0.24513E-17 0.32552E-14 + 2 3 0.12275E-05 0.10000E+01 0.75673E+04 0.14348E-08 0.64074E-17 0.38508E-14 + 2 3 0.12275E-05 0.10000E+01 0.61026E+04 0.16876E-08 0.20390E-16 0.45164E-14 + 2 3 0.12275E-05 0.10000E+01 0.49215E+04 0.19938E-08 0.73385E-16 0.52698E-14 + 2 3 0.12275E-05 0.10000E+01 0.39689E+04 0.24037E-08 0.27424E-15 0.61654E-14 + 2 3 0.12275E-05 0.10000E+01 0.32008E+04 0.30275E-08 0.10219E-14 0.73270E-14 + 2 3 0.12275E-05 0.10000E+01 0.25813E+04 0.40873E-08 0.37633E-14 0.89951E-14 + 2 3 0.12275E-05 0.10000E+01 0.20817E+04 0.60137E-08 0.13695E-13 0.11595E-13 2 3 0.12275E-05 0.10000E+01 0.16788E+04 0.96230E-08 0.49283E-13 0.15841E-13 2 3 0.12275E-05 0.10000E+01 0.13538E+04 0.16444E-07 0.17567E-12 0.22901E-13 2 3 0.12275E-05 0.10000E+01 0.10918E+04 0.29312E-07 0.62272E-12 0.34681E-13 @@ -10550,24 +10550,24 @@ VERSION 2.8.2 2 3 0.12275E-05 0.10000E+01 0.24221E+03 0.19294E-05 0.16990E-08 0.10594E-11 2 3 0.12275E-05 0.10000E+01 0.19533E+03 0.30050E-05 0.32235E-08 0.15876E-11 2 3 0.12275E-05 0.10000E+01 0.15752E+03 0.30050E-05 0.32235E-08 0.15876E-11 - 2 3 0.21419E-05 0.10000E+01 0.80645E+05 0.38782E-52 0.29063E-63 0.10229E-57 - 2 3 0.21419E-05 0.10000E+01 0.65036E+05 0.32853E-51 0.46201E-62 0.86691E-57 - 2 3 0.21419E-05 0.10000E+01 0.52449E+05 0.27947E-50 0.62161E-61 0.73778E-56 - 2 3 0.21419E-05 0.10000E+01 0.42297E+05 0.21049E-49 0.84582E-60 0.55611E-55 - 2 3 0.21419E-05 0.10000E+01 0.34111E+05 0.15204E-48 0.11633E-58 0.40224E-54 - 2 3 0.21419E-05 0.10000E+01 0.27509E+05 0.10939E-47 0.15812E-57 0.29004E-53 - 2 3 0.21419E-05 0.10000E+01 0.22184E+05 0.78160E-47 0.21123E-56 0.20796E-52 - 2 3 0.21419E-05 0.10000E+01 0.17891E+05 0.55076E-46 0.27717E-55 0.14733E-51 - 2 3 0.21419E-05 0.10000E+01 0.14428E+05 0.38174E-45 0.35817E-54 0.10290E-50 - 2 3 0.21419E-05 0.10000E+01 0.11635E+05 0.26041E-44 0.45529E-53 0.70894E-50 - 2 3 0.21419E-05 0.10000E+01 0.93834E+04 0.17471E-43 0.56382E-52 0.48150E-49 - 2 3 0.21419E-05 0.10000E+01 0.75673E+04 0.11452E-42 0.66942E-51 0.32038E-48 - 2 3 0.21419E-05 0.10000E+01 0.61026E+04 0.72464E-42 0.75360E-50 0.20608E-47 - 2 3 0.21419E-05 0.10000E+01 0.49215E+04 0.43901E-41 0.84465E-49 0.12559E-46 - 2 3 0.21419E-05 0.10000E+01 0.39689E+04 0.26365E-40 0.11746E-47 0.71583E-46 - 2 3 0.21419E-05 0.10000E+01 0.32008E+04 0.58585E-38 0.78266E-45 0.13040E-43 - 2 3 0.21419E-05 0.10000E+01 0.25813E+04 0.31128E-29 0.11833E-35 0.54780E-35 - 2 3 0.21419E-05 0.10000E+01 0.20817E+04 0.55280E-13 0.74706E-19 0.94886E-19 + 2 3 0.21419E-05 0.10000E+01 0.80645E+05 0.26207E-09 0.16715E-20 0.69104E-15 + 2 3 0.21419E-05 0.10000E+01 0.65036E+05 0.33636E-09 0.38727E-20 0.88714E-15 + 2 3 0.21419E-05 0.10000E+01 0.52449E+05 0.42584E-09 0.88806E-20 0.11236E-14 + 2 3 0.21419E-05 0.10000E+01 0.42297E+05 0.53376E-09 0.20115E-19 0.14091E-14 + 2 3 0.21419E-05 0.10000E+01 0.34111E+05 0.66377E-09 0.44940E-19 0.17538E-14 + 2 3 0.21419E-05 0.10000E+01 0.27509E+05 0.81981E-09 0.98850E-19 0.21686E-14 + 2 3 0.21419E-05 0.10000E+01 0.22184E+05 0.10059E-08 0.21339E-18 0.26654E-14 + 2 3 0.21419E-05 0.10000E+01 0.17891E+05 0.12260E-08 0.45045E-18 0.32558E-14 + 2 3 0.21419E-05 0.10000E+01 0.14428E+05 0.14834E-08 0.93125E-18 0.39504E-14 + 2 3 0.21419E-05 0.10000E+01 0.11635E+05 0.17806E-08 0.19290E-17 0.47573E-14 + 2 3 0.21419E-05 0.10000E+01 0.93834E+04 0.21195E-08 0.42774E-17 0.56801E-14 + 2 3 0.21419E-05 0.10000E+01 0.75673E+04 0.25036E-08 0.11181E-16 0.67194E-14 + 2 3 0.21419E-05 0.10000E+01 0.61026E+04 0.29448E-08 0.35579E-16 0.78808E-14 + 2 3 0.21419E-05 0.10000E+01 0.49215E+04 0.34790E-08 0.12805E-15 0.91955E-14 + 2 3 0.21419E-05 0.10000E+01 0.39689E+04 0.41943E-08 0.47853E-15 0.10758E-13 + 2 3 0.21419E-05 0.10000E+01 0.32008E+04 0.52827E-08 0.17832E-14 0.12785E-13 + 2 3 0.21419E-05 0.10000E+01 0.25813E+04 0.71321E-08 0.65667E-14 0.15696E-13 + 2 3 0.21419E-05 0.10000E+01 0.20817E+04 0.10494E-07 0.23897E-13 0.20233E-13 2 3 0.21419E-05 0.10000E+01 0.16788E+04 0.16792E-07 0.85996E-13 0.27641E-13 2 3 0.21419E-05 0.10000E+01 0.13538E+04 0.28694E-07 0.30653E-12 0.39962E-13 2 3 0.21419E-05 0.10000E+01 0.10918E+04 0.51148E-07 0.10866E-11 0.60515E-13 @@ -10580,24 +10580,24 @@ VERSION 2.8.2 2 3 0.21419E-05 0.10000E+01 0.24221E+03 0.33667E-05 0.29647E-08 0.18486E-11 2 3 0.21419E-05 0.10000E+01 0.19533E+03 0.52435E-05 0.56249E-08 0.27703E-11 2 3 0.21419E-05 0.10000E+01 0.15752E+03 0.52435E-05 0.56249E-08 0.27703E-11 - 2 3 0.37375E-05 0.10000E+01 0.80645E+05 0.67672E-52 0.50714E-63 0.17848E-57 - 2 3 0.37375E-05 0.10000E+01 0.65036E+05 0.57326E-51 0.80618E-62 0.15127E-56 - 2 3 0.37375E-05 0.10000E+01 0.52449E+05 0.48766E-50 0.10847E-60 0.12874E-55 - 2 3 0.37375E-05 0.10000E+01 0.42297E+05 0.36730E-49 0.14759E-59 0.97039E-55 - 2 3 0.37375E-05 0.10000E+01 0.34111E+05 0.26530E-48 0.20300E-58 0.70188E-54 - 2 3 0.37375E-05 0.10000E+01 0.27509E+05 0.19088E-47 0.27590E-57 0.50610E-53 - 2 3 0.37375E-05 0.10000E+01 0.22184E+05 0.13638E-46 0.36858E-56 0.36287E-52 - 2 3 0.37375E-05 0.10000E+01 0.17891E+05 0.96105E-46 0.48365E-55 0.25708E-51 - 2 3 0.37375E-05 0.10000E+01 0.14428E+05 0.66612E-45 0.62498E-54 0.17955E-50 - 2 3 0.37375E-05 0.10000E+01 0.11635E+05 0.45441E-44 0.79445E-53 0.12371E-49 - 2 3 0.37375E-05 0.10000E+01 0.93834E+04 0.30485E-43 0.98384E-52 0.84019E-49 - 2 3 0.37375E-05 0.10000E+01 0.75673E+04 0.19982E-42 0.11681E-50 0.55905E-48 - 2 3 0.37375E-05 0.10000E+01 0.61026E+04 0.12645E-41 0.13150E-49 0.35960E-47 - 2 3 0.37375E-05 0.10000E+01 0.49215E+04 0.76604E-41 0.14739E-48 0.21914E-46 - 2 3 0.37375E-05 0.10000E+01 0.39689E+04 0.46005E-40 0.20497E-47 0.12491E-45 - 2 3 0.37375E-05 0.10000E+01 0.32008E+04 0.10223E-37 0.13657E-44 0.22753E-43 - 2 3 0.37375E-05 0.10000E+01 0.25813E+04 0.54317E-29 0.20647E-35 0.95588E-35 - 2 3 0.37375E-05 0.10000E+01 0.20817E+04 0.96460E-13 0.13036E-18 0.16557E-18 + 2 3 0.37375E-05 0.10000E+01 0.80645E+05 0.45729E-09 0.29167E-20 0.12058E-14 + 2 3 0.37375E-05 0.10000E+01 0.65036E+05 0.58692E-09 0.67576E-20 0.15480E-14 + 2 3 0.37375E-05 0.10000E+01 0.52449E+05 0.74307E-09 0.15496E-19 0.19606E-14 + 2 3 0.37375E-05 0.10000E+01 0.42297E+05 0.93138E-09 0.35100E-19 0.24588E-14 + 2 3 0.37375E-05 0.10000E+01 0.34111E+05 0.11582E-08 0.78417E-19 0.30602E-14 + 2 3 0.37375E-05 0.10000E+01 0.27509E+05 0.14305E-08 0.17249E-18 0.37842E-14 + 2 3 0.37375E-05 0.10000E+01 0.22184E+05 0.17553E-08 0.37236E-18 0.46510E-14 + 2 3 0.37375E-05 0.10000E+01 0.17891E+05 0.21393E-08 0.78600E-18 0.56812E-14 + 2 3 0.37375E-05 0.10000E+01 0.14428E+05 0.25885E-08 0.16250E-17 0.68933E-14 + 2 3 0.37375E-05 0.10000E+01 0.11635E+05 0.31071E-08 0.33660E-17 0.83012E-14 + 2 3 0.37375E-05 0.10000E+01 0.93834E+04 0.36985E-08 0.74639E-17 0.99114E-14 + 2 3 0.37375E-05 0.10000E+01 0.75673E+04 0.43686E-08 0.19509E-16 0.11725E-13 + 2 3 0.37375E-05 0.10000E+01 0.61026E+04 0.51386E-08 0.62082E-16 0.13751E-13 + 2 3 0.37375E-05 0.10000E+01 0.49215E+04 0.60707E-08 0.22344E-15 0.16046E-13 + 2 3 0.37375E-05 0.10000E+01 0.39689E+04 0.73188E-08 0.83500E-15 0.18773E-13 + 2 3 0.37375E-05 0.10000E+01 0.32008E+04 0.92181E-08 0.31116E-14 0.22309E-13 + 2 3 0.37375E-05 0.10000E+01 0.25813E+04 0.12445E-07 0.11459E-13 0.27388E-13 + 2 3 0.37375E-05 0.10000E+01 0.20817E+04 0.18311E-07 0.41699E-13 0.35305E-13 2 3 0.37375E-05 0.10000E+01 0.16788E+04 0.29300E-07 0.15006E-12 0.48232E-13 2 3 0.37375E-05 0.10000E+01 0.13538E+04 0.50069E-07 0.53488E-12 0.69730E-13 2 3 0.37375E-05 0.10000E+01 0.10918E+04 0.89249E-07 0.18961E-11 0.10560E-12 @@ -10610,24 +10610,24 @@ VERSION 2.8.2 2 3 0.37375E-05 0.10000E+01 0.24221E+03 0.58747E-05 0.51731E-08 0.32256E-11 2 3 0.37375E-05 0.10000E+01 0.19533E+03 0.91495E-05 0.98151E-08 0.48340E-11 2 3 0.37375E-05 0.10000E+01 0.15752E+03 0.91495E-05 0.98151E-08 0.48340E-11 - 2 3 0.65217E-05 0.10000E+01 0.80645E+05 0.11808E-51 0.88493E-63 0.31145E-57 - 2 3 0.65217E-05 0.10000E+01 0.65036E+05 0.10003E-50 0.14067E-61 0.26396E-56 - 2 3 0.65217E-05 0.10000E+01 0.52449E+05 0.85094E-50 0.18927E-60 0.22464E-55 - 2 3 0.65217E-05 0.10000E+01 0.42297E+05 0.64091E-49 0.25754E-59 0.16933E-54 - 2 3 0.65217E-05 0.10000E+01 0.34111E+05 0.46294E-48 0.35421E-58 0.12247E-53 - 2 3 0.65217E-05 0.10000E+01 0.27509E+05 0.33307E-47 0.48144E-57 0.88311E-53 - 2 3 0.65217E-05 0.10000E+01 0.22184E+05 0.23798E-46 0.64315E-56 0.63319E-52 - 2 3 0.65217E-05 0.10000E+01 0.17891E+05 0.16770E-45 0.84394E-55 0.44859E-51 - 2 3 0.65217E-05 0.10000E+01 0.14428E+05 0.11623E-44 0.10906E-53 0.31330E-50 - 2 3 0.65217E-05 0.10000E+01 0.11635E+05 0.79291E-44 0.13863E-52 0.21586E-49 - 2 3 0.65217E-05 0.10000E+01 0.93834E+04 0.53195E-43 0.17167E-51 0.14661E-48 - 2 3 0.65217E-05 0.10000E+01 0.75673E+04 0.34868E-42 0.20383E-50 0.97551E-48 - 2 3 0.65217E-05 0.10000E+01 0.61026E+04 0.22064E-41 0.22946E-49 0.62748E-47 - 2 3 0.65217E-05 0.10000E+01 0.49215E+04 0.13367E-40 0.25718E-48 0.38239E-46 - 2 3 0.65217E-05 0.10000E+01 0.39689E+04 0.80277E-40 0.35765E-47 0.21796E-45 - 2 3 0.65217E-05 0.10000E+01 0.32008E+04 0.17838E-37 0.23831E-44 0.39703E-43 - 2 3 0.65217E-05 0.10000E+01 0.25813E+04 0.94780E-29 0.36029E-35 0.16679E-34 - 2 3 0.65217E-05 0.10000E+01 0.20817E+04 0.16832E-12 0.22746E-18 0.28891E-18 + 2 3 0.65217E-05 0.10000E+01 0.80645E+05 0.79794E-09 0.50894E-20 0.21041E-14 + 2 3 0.65217E-05 0.10000E+01 0.65036E+05 0.10241E-08 0.11792E-19 0.27012E-14 + 2 3 0.65217E-05 0.10000E+01 0.52449E+05 0.12966E-08 0.27040E-19 0.34211E-14 + 2 3 0.65217E-05 0.10000E+01 0.42297E+05 0.16252E-08 0.61247E-19 0.42904E-14 + 2 3 0.65217E-05 0.10000E+01 0.34111E+05 0.20211E-08 0.13683E-18 0.53399E-14 + 2 3 0.65217E-05 0.10000E+01 0.27509E+05 0.24962E-08 0.30098E-18 0.66031E-14 + 2 3 0.65217E-05 0.10000E+01 0.22184E+05 0.30628E-08 0.64974E-18 0.81157E-14 + 2 3 0.65217E-05 0.10000E+01 0.17891E+05 0.37329E-08 0.13715E-17 0.99133E-14 + 2 3 0.65217E-05 0.10000E+01 0.14428E+05 0.45167E-08 0.28355E-17 0.12028E-13 + 2 3 0.65217E-05 0.10000E+01 0.11635E+05 0.54217E-08 0.58735E-17 0.14485E-13 + 2 3 0.65217E-05 0.10000E+01 0.93834E+04 0.64536E-08 0.13024E-16 0.17295E-13 + 2 3 0.65217E-05 0.10000E+01 0.75673E+04 0.76229E-08 0.34043E-16 0.20459E-13 + 2 3 0.65217E-05 0.10000E+01 0.61026E+04 0.89665E-08 0.10833E-15 0.23995E-13 + 2 3 0.65217E-05 0.10000E+01 0.49215E+04 0.10593E-07 0.38990E-15 0.27999E-13 + 2 3 0.65217E-05 0.10000E+01 0.39689E+04 0.12771E-07 0.14570E-14 0.32757E-13 + 2 3 0.65217E-05 0.10000E+01 0.32008E+04 0.16085E-07 0.54296E-14 0.38928E-13 + 2 3 0.65217E-05 0.10000E+01 0.25813E+04 0.21716E-07 0.19994E-13 0.47791E-13 + 2 3 0.65217E-05 0.10000E+01 0.20817E+04 0.31951E-07 0.72763E-13 0.61605E-13 2 3 0.65217E-05 0.10000E+01 0.16788E+04 0.51127E-07 0.26184E-12 0.84162E-13 2 3 0.65217E-05 0.10000E+01 0.13538E+04 0.87367E-07 0.93334E-12 0.12168E-12 2 3 0.65217E-05 0.10000E+01 0.10918E+04 0.15573E-06 0.33085E-11 0.18426E-12 @@ -10640,24 +10640,24 @@ VERSION 2.8.2 2 3 0.65217E-05 0.10000E+01 0.24221E+03 0.10251E-04 0.90268E-08 0.56285E-11 2 3 0.65217E-05 0.10000E+01 0.19533E+03 0.15965E-04 0.17127E-07 0.84351E-11 2 3 0.65217E-05 0.10000E+01 0.15752E+03 0.15965E-04 0.17127E-07 0.84351E-11 - 2 3 0.11380E-04 0.10000E+01 0.80645E+05 0.20605E-51 0.15441E-62 0.54345E-57 - 2 3 0.11380E-04 0.10000E+01 0.65036E+05 0.17455E-50 0.24547E-61 0.46059E-56 - 2 3 0.11380E-04 0.10000E+01 0.52449E+05 0.14848E-49 0.33026E-60 0.39199E-55 - 2 3 0.11380E-04 0.10000E+01 0.42297E+05 0.11183E-48 0.44939E-59 0.29546E-54 - 2 3 0.11380E-04 0.10000E+01 0.34111E+05 0.80780E-48 0.61808E-58 0.21371E-53 - 2 3 0.11380E-04 0.10000E+01 0.27509E+05 0.58119E-47 0.84008E-57 0.15410E-52 - 2 3 0.11380E-04 0.10000E+01 0.22184E+05 0.41527E-46 0.11223E-55 0.11049E-51 - 2 3 0.11380E-04 0.10000E+01 0.17891E+05 0.29262E-45 0.14726E-54 0.78276E-51 - 2 3 0.11380E-04 0.10000E+01 0.14428E+05 0.20282E-44 0.19030E-53 0.54670E-50 - 2 3 0.11380E-04 0.10000E+01 0.11635E+05 0.13836E-43 0.24190E-52 0.37666E-49 - 2 3 0.11380E-04 0.10000E+01 0.93834E+04 0.92822E-43 0.29956E-51 0.25582E-48 - 2 3 0.11380E-04 0.10000E+01 0.75673E+04 0.60843E-42 0.35566E-50 0.17022E-47 - 2 3 0.11380E-04 0.10000E+01 0.61026E+04 0.38500E-41 0.40039E-49 0.10949E-46 - 2 3 0.11380E-04 0.10000E+01 0.49215E+04 0.23325E-40 0.44877E-48 0.66725E-46 - 2 3 0.11380E-04 0.10000E+01 0.39689E+04 0.14008E-39 0.62408E-47 0.38032E-45 - 2 3 0.11380E-04 0.10000E+01 0.32008E+04 0.31126E-37 0.41583E-44 0.69280E-43 - 2 3 0.11380E-04 0.10000E+01 0.25813E+04 0.16538E-28 0.62868E-35 0.29105E-34 - 2 3 0.11380E-04 0.10000E+01 0.20817E+04 0.29370E-12 0.39691E-18 0.50413E-18 + 2 3 0.11380E-04 0.10000E+01 0.80645E+05 0.13924E-08 0.88807E-20 0.36715E-14 + 2 3 0.11380E-04 0.10000E+01 0.65036E+05 0.17871E-08 0.20576E-19 0.47134E-14 + 2 3 0.11380E-04 0.10000E+01 0.52449E+05 0.22625E-08 0.47183E-19 0.59696E-14 + 2 3 0.11380E-04 0.10000E+01 0.42297E+05 0.28359E-08 0.10687E-18 0.74866E-14 + 2 3 0.11380E-04 0.10000E+01 0.34111E+05 0.35266E-08 0.23877E-18 0.93178E-14 + 2 3 0.11380E-04 0.10000E+01 0.27509E+05 0.43556E-08 0.52519E-18 0.11522E-13 + 2 3 0.11380E-04 0.10000E+01 0.22184E+05 0.53445E-08 0.11338E-17 0.14161E-13 + 2 3 0.11380E-04 0.10000E+01 0.17891E+05 0.65138E-08 0.23932E-17 0.17298E-13 + 2 3 0.11380E-04 0.10000E+01 0.14428E+05 0.78814E-08 0.49478E-17 0.20989E-13 + 2 3 0.11380E-04 0.10000E+01 0.11635E+05 0.94606E-08 0.10249E-16 0.25276E-13 + 2 3 0.11380E-04 0.10000E+01 0.93834E+04 0.11261E-07 0.22726E-16 0.30178E-13 + 2 3 0.11380E-04 0.10000E+01 0.75673E+04 0.13302E-07 0.59403E-16 0.35700E-13 + 2 3 0.11380E-04 0.10000E+01 0.61026E+04 0.15646E-07 0.18903E-15 0.41871E-13 + 2 3 0.11380E-04 0.10000E+01 0.49215E+04 0.18484E-07 0.68034E-15 0.48856E-13 + 2 3 0.11380E-04 0.10000E+01 0.39689E+04 0.22284E-07 0.25424E-14 0.57159E-13 + 2 3 0.11380E-04 0.10000E+01 0.32008E+04 0.28067E-07 0.94744E-14 0.67928E-13 + 2 3 0.11380E-04 0.10000E+01 0.25813E+04 0.37893E-07 0.34889E-13 0.83393E-13 + 2 3 0.11380E-04 0.10000E+01 0.20817E+04 0.55752E-07 0.12697E-12 0.10750E-12 2 3 0.11380E-04 0.10000E+01 0.16788E+04 0.89214E-07 0.45690E-12 0.14686E-12 2 3 0.11380E-04 0.10000E+01 0.13538E+04 0.15245E-06 0.16286E-11 0.21232E-12 2 3 0.11380E-04 0.10000E+01 0.10918E+04 0.27175E-06 0.57731E-11 0.32152E-12 @@ -10670,24 +10670,24 @@ VERSION 2.8.2 2 3 0.11380E-04 0.10000E+01 0.24221E+03 0.17887E-04 0.15751E-07 0.98214E-11 2 3 0.11380E-04 0.10000E+01 0.19533E+03 0.27859E-04 0.29885E-07 0.14719E-10 2 3 0.11380E-04 0.10000E+01 0.15752E+03 0.27859E-04 0.29885E-07 0.14719E-10 - 2 3 0.19857E-04 0.10000E+01 0.80645E+05 0.35954E-51 0.26944E-62 0.94829E-57 - 2 3 0.19857E-04 0.10000E+01 0.65036E+05 0.30457E-50 0.42832E-61 0.80370E-56 - 2 3 0.19857E-04 0.10000E+01 0.52449E+05 0.25910E-49 0.57629E-60 0.68399E-55 - 2 3 0.19857E-04 0.10000E+01 0.42297E+05 0.19514E-48 0.78415E-59 0.51557E-54 - 2 3 0.19857E-04 0.10000E+01 0.34111E+05 0.14096E-47 0.10785E-57 0.37291E-53 - 2 3 0.19857E-04 0.10000E+01 0.27509E+05 0.10141E-46 0.14659E-56 0.26889E-52 - 2 3 0.19857E-04 0.10000E+01 0.22184E+05 0.72461E-46 0.19583E-55 0.19280E-51 - 2 3 0.19857E-04 0.10000E+01 0.17891E+05 0.51061E-45 0.25696E-54 0.13659E-50 - 2 3 0.19857E-04 0.10000E+01 0.14428E+05 0.35391E-44 0.33205E-53 0.95395E-50 - 2 3 0.19857E-04 0.10000E+01 0.11635E+05 0.24143E-43 0.42209E-52 0.65725E-49 - 2 3 0.19857E-04 0.10000E+01 0.93834E+04 0.16197E-42 0.52271E-51 0.44640E-48 - 2 3 0.19857E-04 0.10000E+01 0.75673E+04 0.10617E-41 0.62061E-50 0.29702E-47 - 2 3 0.19857E-04 0.10000E+01 0.61026E+04 0.67181E-41 0.69865E-49 0.19106E-46 - 2 3 0.19857E-04 0.10000E+01 0.49215E+04 0.40700E-40 0.78307E-48 0.11643E-45 - 2 3 0.19857E-04 0.10000E+01 0.39689E+04 0.24443E-39 0.10890E-46 0.66364E-45 - 2 3 0.19857E-04 0.10000E+01 0.32008E+04 0.54314E-37 0.72560E-44 0.12089E-42 - 2 3 0.19857E-04 0.10000E+01 0.25813E+04 0.28859E-28 0.10970E-34 0.50786E-34 - 2 3 0.19857E-04 0.10000E+01 0.20817E+04 0.51249E-12 0.69259E-18 0.87968E-18 + 2 3 0.19857E-04 0.10000E+01 0.80645E+05 0.24296E-08 0.15496E-19 0.64065E-14 + 2 3 0.19857E-04 0.10000E+01 0.65036E+05 0.31183E-08 0.35903E-19 0.82246E-14 + 2 3 0.19857E-04 0.10000E+01 0.52449E+05 0.39479E-08 0.82331E-19 0.10417E-13 + 2 3 0.19857E-04 0.10000E+01 0.42297E+05 0.49484E-08 0.18648E-18 0.13064E-13 + 2 3 0.19857E-04 0.10000E+01 0.34111E+05 0.61537E-08 0.41663E-18 0.16259E-13 + 2 3 0.19857E-04 0.10000E+01 0.27509E+05 0.76003E-08 0.91642E-18 0.20105E-13 + 2 3 0.19857E-04 0.10000E+01 0.22184E+05 0.93258E-08 0.19784E-17 0.24711E-13 + 2 3 0.19857E-04 0.10000E+01 0.17891E+05 0.11366E-07 0.41760E-17 0.30184E-13 + 2 3 0.19857E-04 0.10000E+01 0.14428E+05 0.13753E-07 0.86335E-17 0.36624E-13 + 2 3 0.19857E-04 0.10000E+01 0.11635E+05 0.16508E-07 0.17884E-16 0.44104E-13 + 2 3 0.19857E-04 0.10000E+01 0.93834E+04 0.19650E-07 0.39656E-16 0.52659E-13 + 2 3 0.19857E-04 0.10000E+01 0.75673E+04 0.23210E-07 0.10365E-15 0.62295E-13 + 2 3 0.19857E-04 0.10000E+01 0.61026E+04 0.27301E-07 0.32984E-15 0.73062E-13 + 2 3 0.19857E-04 0.10000E+01 0.49215E+04 0.32253E-07 0.11872E-14 0.85250E-13 + 2 3 0.19857E-04 0.10000E+01 0.39689E+04 0.38885E-07 0.44364E-14 0.99739E-13 + 2 3 0.19857E-04 0.10000E+01 0.32008E+04 0.48976E-07 0.16532E-13 0.11853E-12 + 2 3 0.19857E-04 0.10000E+01 0.25813E+04 0.66121E-07 0.60880E-13 0.14552E-12 + 2 3 0.19857E-04 0.10000E+01 0.20817E+04 0.97284E-07 0.22155E-12 0.18757E-12 2 3 0.19857E-04 0.10000E+01 0.16788E+04 0.15567E-06 0.79726E-12 0.25626E-12 2 3 0.19857E-04 0.10000E+01 0.13538E+04 0.26602E-06 0.28419E-11 0.37048E-12 2 3 0.19857E-04 0.10000E+01 0.10918E+04 0.47418E-06 0.10074E-10 0.56103E-12 @@ -10700,24 +10700,24 @@ VERSION 2.8.2 2 3 0.19857E-04 0.10000E+01 0.24221E+03 0.31212E-04 0.27485E-07 0.17138E-10 2 3 0.19857E-04 0.10000E+01 0.19533E+03 0.48612E-04 0.52148E-07 0.25683E-10 2 3 0.19857E-04 0.10000E+01 0.15752E+03 0.48612E-04 0.52148E-07 0.25683E-10 - 2 3 0.34650E-04 0.10000E+01 0.80645E+05 0.62738E-51 0.47016E-62 0.16547E-56 - 2 3 0.34650E-04 0.10000E+01 0.65036E+05 0.53146E-50 0.74740E-61 0.14024E-55 - 2 3 0.34650E-04 0.10000E+01 0.52449E+05 0.45211E-49 0.10056E-59 0.11935E-54 - 2 3 0.34650E-04 0.10000E+01 0.42297E+05 0.34052E-48 0.13683E-58 0.89963E-54 - 2 3 0.34650E-04 0.10000E+01 0.34111E+05 0.24596E-47 0.18819E-57 0.65071E-53 - 2 3 0.34650E-04 0.10000E+01 0.27509E+05 0.17696E-46 0.25579E-56 0.46920E-52 - 2 3 0.34650E-04 0.10000E+01 0.22184E+05 0.12644E-45 0.34171E-55 0.33642E-51 - 2 3 0.34650E-04 0.10000E+01 0.17891E+05 0.89098E-45 0.44839E-54 0.23833E-50 - 2 3 0.34650E-04 0.10000E+01 0.14428E+05 0.61755E-44 0.57942E-53 0.16646E-49 - 2 3 0.34650E-04 0.10000E+01 0.11635E+05 0.42128E-43 0.73653E-52 0.11469E-48 - 2 3 0.34650E-04 0.10000E+01 0.93834E+04 0.28263E-42 0.91210E-51 0.77893E-48 - 2 3 0.34650E-04 0.10000E+01 0.75673E+04 0.18526E-41 0.10829E-49 0.51829E-47 - 2 3 0.34650E-04 0.10000E+01 0.61026E+04 0.11723E-40 0.12191E-48 0.33338E-46 - 2 3 0.34650E-04 0.10000E+01 0.49215E+04 0.71019E-40 0.13664E-47 0.20317E-45 - 2 3 0.34650E-04 0.10000E+01 0.39689E+04 0.42651E-39 0.19002E-46 0.11580E-44 - 2 3 0.34650E-04 0.10000E+01 0.32008E+04 0.94774E-37 0.12661E-43 0.21094E-42 - 2 3 0.34650E-04 0.10000E+01 0.25813E+04 0.50357E-28 0.19142E-34 0.88618E-34 - 2 3 0.34650E-04 0.10000E+01 0.20817E+04 0.89427E-12 0.12085E-17 0.15350E-17 + 2 3 0.34650E-04 0.10000E+01 0.80645E+05 0.42395E-08 0.27040E-19 0.11179E-13 + 2 3 0.34650E-04 0.10000E+01 0.65036E+05 0.54413E-08 0.62649E-19 0.14351E-13 + 2 3 0.34650E-04 0.10000E+01 0.52449E+05 0.68889E-08 0.14366E-18 0.18176E-13 + 2 3 0.34650E-04 0.10000E+01 0.42297E+05 0.86347E-08 0.32540E-18 0.22795E-13 + 2 3 0.34650E-04 0.10000E+01 0.34111E+05 0.10738E-07 0.72700E-18 0.28371E-13 + 2 3 0.34650E-04 0.10000E+01 0.27509E+05 0.13262E-07 0.15991E-17 0.35082E-13 + 2 3 0.34650E-04 0.10000E+01 0.22184E+05 0.16273E-07 0.34521E-17 0.43119E-13 + 2 3 0.34650E-04 0.10000E+01 0.17891E+05 0.19833E-07 0.72869E-17 0.52669E-13 + 2 3 0.34650E-04 0.10000E+01 0.14428E+05 0.23997E-07 0.15065E-16 0.63907E-13 + 2 3 0.34650E-04 0.10000E+01 0.11635E+05 0.28806E-07 0.31206E-16 0.76959E-13 + 2 3 0.34650E-04 0.10000E+01 0.93834E+04 0.34288E-07 0.69197E-16 0.91887E-13 + 2 3 0.34650E-04 0.10000E+01 0.75673E+04 0.40501E-07 0.18087E-15 0.10870E-12 + 2 3 0.34650E-04 0.10000E+01 0.61026E+04 0.47639E-07 0.57556E-15 0.12749E-12 + 2 3 0.34650E-04 0.10000E+01 0.49215E+04 0.56280E-07 0.20715E-14 0.14876E-12 + 2 3 0.34650E-04 0.10000E+01 0.39689E+04 0.67851E-07 0.77412E-14 0.17404E-12 + 2 3 0.34650E-04 0.10000E+01 0.32008E+04 0.85460E-07 0.28848E-13 0.20683E-12 + 2 3 0.34650E-04 0.10000E+01 0.25813E+04 0.11538E-06 0.10623E-12 0.25392E-12 + 2 3 0.34650E-04 0.10000E+01 0.20817E+04 0.16975E-06 0.38659E-12 0.32731E-12 2 3 0.34650E-04 0.10000E+01 0.16788E+04 0.27164E-06 0.13912E-11 0.44715E-12 2 3 0.34650E-04 0.10000E+01 0.13538E+04 0.46418E-06 0.49589E-11 0.64646E-12 2 3 0.34650E-04 0.10000E+01 0.10918E+04 0.82742E-06 0.17578E-10 0.97897E-12 @@ -10730,24 +10730,24 @@ VERSION 2.8.2 2 3 0.34650E-04 0.10000E+01 0.24221E+03 0.54464E-04 0.47960E-07 0.29904E-10 2 3 0.34650E-04 0.10000E+01 0.19533E+03 0.84824E-04 0.90995E-07 0.44816E-10 2 3 0.34650E-04 0.10000E+01 0.15752E+03 0.84824E-04 0.90995E-07 0.44816E-10 - 2 3 0.60462E-04 0.10000E+01 0.80645E+05 0.10947E-50 0.82041E-62 0.28874E-56 - 2 3 0.60462E-04 0.10000E+01 0.65036E+05 0.92737E-50 0.13042E-60 0.24471E-55 - 2 3 0.60462E-04 0.10000E+01 0.52449E+05 0.78890E-49 0.17547E-59 0.20826E-54 - 2 3 0.60462E-04 0.10000E+01 0.42297E+05 0.59418E-48 0.23876E-58 0.15698E-53 - 2 3 0.60462E-04 0.10000E+01 0.34111E+05 0.42918E-47 0.32839E-57 0.11354E-52 - 2 3 0.60462E-04 0.10000E+01 0.27509E+05 0.30879E-46 0.44633E-56 0.81872E-52 - 2 3 0.60462E-04 0.10000E+01 0.22184E+05 0.22063E-45 0.59626E-55 0.58703E-51 - 2 3 0.60462E-04 0.10000E+01 0.17891E+05 0.15547E-44 0.78241E-54 0.41588E-50 - 2 3 0.60462E-04 0.10000E+01 0.14428E+05 0.10776E-43 0.10110E-52 0.29046E-49 - 2 3 0.60462E-04 0.10000E+01 0.11635E+05 0.73510E-43 0.12852E-51 0.20012E-48 - 2 3 0.60462E-04 0.10000E+01 0.93834E+04 0.49316E-42 0.15916E-50 0.13592E-47 - 2 3 0.60462E-04 0.10000E+01 0.75673E+04 0.32326E-41 0.18896E-49 0.90438E-47 - 2 3 0.60462E-04 0.10000E+01 0.61026E+04 0.20455E-40 0.21273E-48 0.58173E-46 - 2 3 0.60462E-04 0.10000E+01 0.49215E+04 0.12392E-39 0.23843E-47 0.35451E-45 - 2 3 0.60462E-04 0.10000E+01 0.39689E+04 0.74424E-39 0.33158E-46 0.20206E-44 - 2 3 0.60462E-04 0.10000E+01 0.32008E+04 0.16538E-36 0.22093E-43 0.36809E-42 - 2 3 0.60462E-04 0.10000E+01 0.25813E+04 0.87869E-28 0.33402E-34 0.15463E-33 - 2 3 0.60462E-04 0.10000E+01 0.20817E+04 0.15604E-11 0.21088E-17 0.26785E-17 + 2 3 0.60462E-04 0.10000E+01 0.80645E+05 0.73977E-08 0.47183E-19 0.19507E-13 + 2 3 0.60462E-04 0.10000E+01 0.65036E+05 0.94948E-08 0.10932E-18 0.25042E-13 + 2 3 0.60462E-04 0.10000E+01 0.52449E+05 0.12021E-07 0.25068E-18 0.31716E-13 + 2 3 0.60462E-04 0.10000E+01 0.42297E+05 0.15067E-07 0.56781E-18 0.39776E-13 + 2 3 0.60462E-04 0.10000E+01 0.34111E+05 0.18737E-07 0.12686E-17 0.49506E-13 + 2 3 0.60462E-04 0.10000E+01 0.27509E+05 0.23142E-07 0.27903E-17 0.61217E-13 + 2 3 0.60462E-04 0.10000E+01 0.22184E+05 0.28395E-07 0.60237E-17 0.75240E-13 + 2 3 0.60462E-04 0.10000E+01 0.17891E+05 0.34608E-07 0.12715E-16 0.91905E-13 + 2 3 0.60462E-04 0.10000E+01 0.14428E+05 0.41874E-07 0.26288E-16 0.11151E-12 + 2 3 0.60462E-04 0.10000E+01 0.11635E+05 0.50264E-07 0.54453E-16 0.13429E-12 + 2 3 0.60462E-04 0.10000E+01 0.93834E+04 0.59830E-07 0.12074E-15 0.16034E-12 + 2 3 0.60462E-04 0.10000E+01 0.75673E+04 0.70671E-07 0.31561E-15 0.18968E-12 + 2 3 0.60462E-04 0.10000E+01 0.61026E+04 0.83127E-07 0.10043E-14 0.22246E-12 + 2 3 0.60462E-04 0.10000E+01 0.49215E+04 0.98206E-07 0.36147E-14 0.25957E-12 + 2 3 0.60462E-04 0.10000E+01 0.39689E+04 0.11840E-06 0.13508E-13 0.30369E-12 + 2 3 0.60462E-04 0.10000E+01 0.32008E+04 0.14912E-06 0.50337E-13 0.36090E-12 + 2 3 0.60462E-04 0.10000E+01 0.25813E+04 0.20133E-06 0.18537E-12 0.44307E-12 + 2 3 0.60462E-04 0.10000E+01 0.20817E+04 0.29621E-06 0.67458E-12 0.57113E-12 2 3 0.60462E-04 0.10000E+01 0.16788E+04 0.47399E-06 0.24275E-11 0.78025E-12 2 3 0.60462E-04 0.10000E+01 0.13538E+04 0.80997E-06 0.86529E-11 0.11280E-11 2 3 0.60462E-04 0.10000E+01 0.10918E+04 0.14438E-05 0.30673E-10 0.17082E-11 @@ -10760,24 +10760,24 @@ VERSION 2.8.2 2 3 0.60462E-04 0.10000E+01 0.24221E+03 0.95036E-04 0.83687E-07 0.52181E-10 2 3 0.60462E-04 0.10000E+01 0.19533E+03 0.14801E-03 0.15878E-06 0.78201E-10 2 3 0.60462E-04 0.10000E+01 0.15752E+03 0.14801E-03 0.15878E-06 0.78201E-10 - 2 3 0.10550E-03 0.10000E+01 0.80645E+05 0.19103E-50 0.14316E-61 0.50383E-56 - 2 3 0.10550E-03 0.10000E+01 0.65036E+05 0.16182E-49 0.22757E-60 0.42701E-55 - 2 3 0.10550E-03 0.10000E+01 0.52449E+05 0.13766E-48 0.30618E-59 0.36341E-54 - 2 3 0.10550E-03 0.10000E+01 0.42297E+05 0.10368E-47 0.41662E-58 0.27392E-53 - 2 3 0.10550E-03 0.10000E+01 0.34111E+05 0.74890E-47 0.57302E-57 0.19813E-52 - 2 3 0.10550E-03 0.10000E+01 0.27509E+05 0.53881E-46 0.77883E-56 0.14286E-51 - 2 3 0.10550E-03 0.10000E+01 0.22184E+05 0.38499E-45 0.10404E-54 0.10243E-50 - 2 3 0.10550E-03 0.10000E+01 0.17891E+05 0.27129E-44 0.13653E-53 0.72568E-50 - 2 3 0.10550E-03 0.10000E+01 0.14428E+05 0.18803E-43 0.17642E-52 0.50684E-49 - 2 3 0.10550E-03 0.10000E+01 0.11635E+05 0.12827E-42 0.22426E-51 0.34920E-48 - 2 3 0.10550E-03 0.10000E+01 0.93834E+04 0.86054E-42 0.27772E-50 0.23717E-47 - 2 3 0.10550E-03 0.10000E+01 0.75673E+04 0.56407E-41 0.32973E-49 0.15781E-46 - 2 3 0.10550E-03 0.10000E+01 0.61026E+04 0.35693E-40 0.37119E-48 0.10151E-45 - 2 3 0.10550E-03 0.10000E+01 0.49215E+04 0.21624E-39 0.41605E-47 0.61860E-45 - 2 3 0.10550E-03 0.10000E+01 0.39689E+04 0.12986E-38 0.57858E-46 0.35259E-44 - 2 3 0.10550E-03 0.10000E+01 0.32008E+04 0.28857E-36 0.38551E-43 0.64229E-42 - 2 3 0.10550E-03 0.10000E+01 0.25813E+04 0.15333E-27 0.58284E-34 0.26983E-33 - 2 3 0.10550E-03 0.10000E+01 0.20817E+04 0.27229E-11 0.36797E-17 0.46737E-17 + 2 3 0.10550E-03 0.10000E+01 0.80645E+05 0.12908E-07 0.82332E-19 0.34038E-13 + 2 3 0.10550E-03 0.10000E+01 0.65036E+05 0.16568E-07 0.19075E-18 0.43697E-13 + 2 3 0.10550E-03 0.10000E+01 0.52449E+05 0.20975E-07 0.43743E-18 0.55343E-13 + 2 3 0.10550E-03 0.10000E+01 0.42297E+05 0.26291E-07 0.99079E-18 0.69407E-13 + 2 3 0.10550E-03 0.10000E+01 0.34111E+05 0.32695E-07 0.22136E-17 0.86384E-13 + 2 3 0.10550E-03 0.10000E+01 0.27509E+05 0.40381E-07 0.48690E-17 0.10682E-12 + 2 3 0.10550E-03 0.10000E+01 0.22184E+05 0.49548E-07 0.10511E-16 0.13129E-12 + 2 3 0.10550E-03 0.10000E+01 0.17891E+05 0.60388E-07 0.22187E-16 0.16037E-12 + 2 3 0.10550E-03 0.10000E+01 0.14428E+05 0.73068E-07 0.45870E-16 0.19458E-12 + 2 3 0.10550E-03 0.10000E+01 0.11635E+05 0.87708E-07 0.95016E-16 0.23433E-12 + 2 3 0.10550E-03 0.10000E+01 0.93834E+04 0.10440E-06 0.21069E-15 0.27978E-12 + 2 3 0.10550E-03 0.10000E+01 0.75673E+04 0.12332E-06 0.55072E-15 0.33097E-12 + 2 3 0.10550E-03 0.10000E+01 0.61026E+04 0.14505E-06 0.17525E-14 0.38818E-12 + 2 3 0.10550E-03 0.10000E+01 0.49215E+04 0.17136E-06 0.63074E-14 0.45294E-12 + 2 3 0.10550E-03 0.10000E+01 0.39689E+04 0.20659E-06 0.23570E-13 0.52991E-12 + 2 3 0.10550E-03 0.10000E+01 0.32008E+04 0.26021E-06 0.87836E-13 0.62975E-12 + 2 3 0.10550E-03 0.10000E+01 0.25813E+04 0.35130E-06 0.32345E-12 0.77312E-12 + 2 3 0.10550E-03 0.10000E+01 0.20817E+04 0.51687E-06 0.11771E-11 0.99659E-12 2 3 0.10550E-03 0.10000E+01 0.16788E+04 0.82709E-06 0.42358E-11 0.13615E-11 2 3 0.10550E-03 0.10000E+01 0.13538E+04 0.14133E-05 0.15099E-10 0.19684E-11 2 3 0.10550E-03 0.10000E+01 0.10918E+04 0.25193E-05 0.53522E-10 0.29808E-11 @@ -10790,24 +10790,24 @@ VERSION 2.8.2 2 3 0.10550E-03 0.10000E+01 0.24221E+03 0.16583E-03 0.14603E-06 0.91053E-10 2 3 0.10550E-03 0.10000E+01 0.19533E+03 0.25827E-03 0.27706E-06 0.13646E-09 2 3 0.10550E-03 0.10000E+01 0.15752E+03 0.25827E-03 0.27706E-06 0.13646E-09 - 2 3 0.18409E-03 0.10000E+01 0.80645E+05 0.33333E-50 0.24980E-61 0.87915E-56 - 2 3 0.18409E-03 0.10000E+01 0.65036E+05 0.28237E-49 0.39709E-60 0.74511E-55 - 2 3 0.18409E-03 0.10000E+01 0.52449E+05 0.24020E-48 0.53427E-59 0.63412E-54 - 2 3 0.18409E-03 0.10000E+01 0.42297E+05 0.18092E-47 0.72698E-58 0.47798E-53 - 2 3 0.18409E-03 0.10000E+01 0.34111E+05 0.13068E-46 0.99988E-57 0.34572E-52 - 2 3 0.18409E-03 0.10000E+01 0.27509E+05 0.94020E-46 0.13590E-55 0.24929E-51 - 2 3 0.18409E-03 0.10000E+01 0.22184E+05 0.67178E-45 0.18155E-54 0.17874E-50 - 2 3 0.18409E-03 0.10000E+01 0.17891E+05 0.47338E-44 0.23823E-53 0.12663E-49 - 2 3 0.18409E-03 0.10000E+01 0.14428E+05 0.32810E-43 0.30784E-52 0.88440E-49 - 2 3 0.18409E-03 0.10000E+01 0.11635E+05 0.22382E-42 0.39132E-51 0.60933E-48 - 2 3 0.18409E-03 0.10000E+01 0.93834E+04 0.15016E-41 0.48460E-50 0.41385E-47 - 2 3 0.18409E-03 0.10000E+01 0.75673E+04 0.98426E-41 0.57536E-49 0.27537E-46 - 2 3 0.18409E-03 0.10000E+01 0.61026E+04 0.62282E-40 0.64771E-48 0.17713E-45 - 2 3 0.18409E-03 0.10000E+01 0.49215E+04 0.37733E-39 0.72597E-47 0.10794E-44 - 2 3 0.18409E-03 0.10000E+01 0.39689E+04 0.22661E-38 0.10096E-45 0.61525E-44 - 2 3 0.18409E-03 0.10000E+01 0.32008E+04 0.50354E-36 0.67270E-43 0.11208E-41 - 2 3 0.18409E-03 0.10000E+01 0.25813E+04 0.26755E-27 0.10170E-33 0.47083E-33 - 2 3 0.18409E-03 0.10000E+01 0.20817E+04 0.47513E-11 0.64209E-17 0.81554E-17 + 2 3 0.18409E-03 0.10000E+01 0.80645E+05 0.22524E-07 0.14366E-18 0.59394E-13 + 2 3 0.18409E-03 0.10000E+01 0.65036E+05 0.28910E-07 0.33286E-18 0.76249E-13 + 2 3 0.18409E-03 0.10000E+01 0.52449E+05 0.36601E-07 0.76328E-18 0.96570E-13 + 2 3 0.18409E-03 0.10000E+01 0.42297E+05 0.45877E-07 0.17289E-17 0.12111E-12 + 2 3 0.18409E-03 0.10000E+01 0.34111E+05 0.57051E-07 0.38625E-17 0.15074E-12 + 2 3 0.18409E-03 0.10000E+01 0.27509E+05 0.70462E-07 0.84961E-17 0.18639E-12 + 2 3 0.18409E-03 0.10000E+01 0.22184E+05 0.86458E-07 0.18341E-16 0.22909E-12 + 2 3 0.18409E-03 0.10000E+01 0.17891E+05 0.10537E-06 0.38716E-16 0.27983E-12 + 2 3 0.18409E-03 0.10000E+01 0.14428E+05 0.12750E-06 0.80041E-16 0.33954E-12 + 2 3 0.18409E-03 0.10000E+01 0.11635E+05 0.15305E-06 0.16580E-15 0.40889E-12 + 2 3 0.18409E-03 0.10000E+01 0.93834E+04 0.18217E-06 0.36764E-15 0.48820E-12 + 2 3 0.18409E-03 0.10000E+01 0.75673E+04 0.21518E-06 0.96097E-15 0.57753E-12 + 2 3 0.18409E-03 0.10000E+01 0.61026E+04 0.25311E-06 0.30580E-14 0.67735E-12 + 2 3 0.18409E-03 0.10000E+01 0.49215E+04 0.29902E-06 0.11006E-13 0.79035E-12 + 2 3 0.18409E-03 0.10000E+01 0.39689E+04 0.36050E-06 0.41129E-13 0.92467E-12 + 2 3 0.18409E-03 0.10000E+01 0.32008E+04 0.45405E-06 0.15327E-12 0.10989E-11 + 2 3 0.18409E-03 0.10000E+01 0.25813E+04 0.61300E-06 0.56441E-12 0.13491E-11 + 2 3 0.18409E-03 0.10000E+01 0.20817E+04 0.90191E-06 0.20540E-11 0.17390E-11 2 3 0.18409E-03 0.10000E+01 0.16788E+04 0.14432E-05 0.73913E-11 0.23757E-11 2 3 0.18409E-03 0.10000E+01 0.13538E+04 0.24662E-05 0.26346E-10 0.34347E-11 2 3 0.18409E-03 0.10000E+01 0.10918E+04 0.43961E-05 0.93393E-10 0.52013E-11 @@ -10820,24 +10820,24 @@ VERSION 2.8.2 2 3 0.18409E-03 0.10000E+01 0.24221E+03 0.28937E-03 0.25481E-06 0.15888E-09 2 3 0.18409E-03 0.10000E+01 0.19533E+03 0.45067E-03 0.48346E-06 0.23811E-09 2 3 0.18409E-03 0.10000E+01 0.15752E+03 0.45067E-03 0.48346E-06 0.23811E-09 - 2 3 0.32123E-03 0.10000E+01 0.80645E+05 0.58164E-50 0.43588E-61 0.15341E-55 - 2 3 0.32123E-03 0.10000E+01 0.65036E+05 0.49271E-49 0.69290E-60 0.13002E-54 - 2 3 0.32123E-03 0.10000E+01 0.52449E+05 0.41914E-48 0.93227E-59 0.11065E-53 - 2 3 0.32123E-03 0.10000E+01 0.42297E+05 0.31569E-47 0.12685E-57 0.83404E-53 - 2 3 0.32123E-03 0.10000E+01 0.34111E+05 0.22803E-46 0.17447E-56 0.60326E-52 - 2 3 0.32123E-03 0.10000E+01 0.27509E+05 0.16406E-45 0.23714E-55 0.43499E-51 - 2 3 0.32123E-03 0.10000E+01 0.22184E+05 0.11722E-44 0.31679E-54 0.31189E-50 - 2 3 0.32123E-03 0.10000E+01 0.17891E+05 0.82601E-44 0.41569E-53 0.22096E-49 - 2 3 0.32123E-03 0.10000E+01 0.14428E+05 0.57252E-43 0.53717E-52 0.15432E-48 - 2 3 0.32123E-03 0.10000E+01 0.11635E+05 0.39056E-42 0.68283E-51 0.10633E-47 - 2 3 0.32123E-03 0.10000E+01 0.93834E+04 0.26202E-41 0.84560E-50 0.72214E-47 - 2 3 0.32123E-03 0.10000E+01 0.75673E+04 0.17175E-40 0.10040E-48 0.48050E-46 - 2 3 0.32123E-03 0.10000E+01 0.61026E+04 0.10868E-39 0.11302E-47 0.30907E-45 - 2 3 0.32123E-03 0.10000E+01 0.49215E+04 0.65841E-39 0.12668E-46 0.18835E-44 - 2 3 0.32123E-03 0.10000E+01 0.39689E+04 0.39541E-38 0.17617E-45 0.10736E-43 - 2 3 0.32123E-03 0.10000E+01 0.32008E+04 0.87864E-36 0.11738E-42 0.19556E-41 - 2 3 0.32123E-03 0.10000E+01 0.25813E+04 0.46685E-27 0.17746E-33 0.82157E-33 - 2 3 0.32123E-03 0.10000E+01 0.20817E+04 0.82907E-11 0.11204E-16 0.14231E-16 + 2 3 0.32123E-03 0.10000E+01 0.80645E+05 0.39304E-07 0.25069E-18 0.10364E-12 + 2 3 0.32123E-03 0.10000E+01 0.65036E+05 0.50446E-07 0.58081E-18 0.13305E-12 + 2 3 0.32123E-03 0.10000E+01 0.52449E+05 0.63866E-07 0.13319E-17 0.16851E-12 + 2 3 0.32123E-03 0.10000E+01 0.42297E+05 0.80052E-07 0.30168E-17 0.21133E-12 + 2 3 0.32123E-03 0.10000E+01 0.34111E+05 0.99550E-07 0.67399E-17 0.26302E-12 + 2 3 0.32123E-03 0.10000E+01 0.27509E+05 0.12295E-06 0.14825E-16 0.32525E-12 + 2 3 0.32123E-03 0.10000E+01 0.22184E+05 0.15086E-06 0.32004E-16 0.39975E-12 + 2 3 0.32123E-03 0.10000E+01 0.17891E+05 0.18387E-06 0.67556E-16 0.48829E-12 + 2 3 0.32123E-03 0.10000E+01 0.14428E+05 0.22248E-06 0.13967E-15 0.59247E-12 + 2 3 0.32123E-03 0.10000E+01 0.11635E+05 0.26706E-06 0.28931E-15 0.71348E-12 + 2 3 0.32123E-03 0.10000E+01 0.93834E+04 0.31788E-06 0.64151E-15 0.85188E-12 + 2 3 0.32123E-03 0.10000E+01 0.75673E+04 0.37548E-06 0.16768E-14 0.10077E-11 + 2 3 0.32123E-03 0.10000E+01 0.61026E+04 0.44166E-06 0.53359E-14 0.11819E-11 + 2 3 0.32123E-03 0.10000E+01 0.49215E+04 0.52177E-06 0.19205E-13 0.13791E-11 + 2 3 0.32123E-03 0.10000E+01 0.39689E+04 0.62904E-06 0.71768E-13 0.16135E-11 + 2 3 0.32123E-03 0.10000E+01 0.32008E+04 0.79229E-06 0.26744E-12 0.19175E-11 + 2 3 0.32123E-03 0.10000E+01 0.25813E+04 0.10697E-05 0.98486E-12 0.23540E-11 + 2 3 0.32123E-03 0.10000E+01 0.20817E+04 0.15738E-05 0.35840E-11 0.30344E-11 2 3 0.32123E-03 0.10000E+01 0.16788E+04 0.25183E-05 0.12897E-10 0.41455E-11 2 3 0.32123E-03 0.10000E+01 0.13538E+04 0.43034E-05 0.45973E-10 0.59933E-11 2 3 0.32123E-03 0.10000E+01 0.10918E+04 0.76709E-05 0.16297E-09 0.90759E-11 @@ -10900,24 +10900,24 @@ VERSION 2.8.2 2 4 0.10550E-03 0.10000E+01 0.23293E+01 0.62490E+01 0.57222E-02 0.55015E-03 0.21773E-01 0.81203E-03 0.46642E+10 0.16791E+02 0.50000E+03 0.50025E-13 0.18470E-02 0.78471E-02 0.25000E+03 2 4 0.18409E-03 0.10000E+01 0.23293E+01 0.62490E+01 0.17423E-01 0.95997E-03 0.37992E-01 0.81203E-03 0.81388E+10 0.29300E+02 0.50000E+03 0.87290E-13 0.32229E-02 0.78471E-02 0.25000E+03 2 4 0.32123E-03 0.10000E+01 0.23293E+01 0.62490E+01 0.53050E-01 0.16751E-02 0.66294E-01 0.81203E-03 0.14202E+11 0.51126E+02 0.50000E+03 0.15232E-12 0.56238E-02 0.78471E-02 0.25000E+03 - 2 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 2 4 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 2 4 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 2 4 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 2 4 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 2 4 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 2 4 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 2 4 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 2 4 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 2 4 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 2 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 2 4 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 2 4 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 2 4 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 2 4 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 2 4 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 2 4 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 2 4 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 2 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 2 4 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 2 4 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 2 4 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 2 4 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 2 4 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 2 4 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 2 4 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 2 4 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 2 4 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 2 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 2 4 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 2 4 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 2 4 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 2 4 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 2 4 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 2 4 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 2 4 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 2 4 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 2 4 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 2 4 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -10930,24 +10930,24 @@ VERSION 2.8.2 2 4 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 2 4 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 2 4 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 2 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 2 4 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 2 4 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 2 4 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 2 4 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 2 4 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 2 4 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 2 4 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 2 4 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 2 4 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 2 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 2 4 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 2 4 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 2 4 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 2 4 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 2 4 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 2 4 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 2 4 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 2 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 2 4 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 2 4 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 2 4 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 2 4 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 2 4 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 2 4 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 2 4 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 2 4 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 2 4 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 2 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 2 4 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 2 4 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 2 4 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 2 4 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 2 4 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 2 4 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 2 4 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 2 4 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 2 4 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 2 4 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -10960,24 +10960,24 @@ VERSION 2.8.2 2 4 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 2 4 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 2 4 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 2 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 2 4 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 2 4 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 2 4 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 2 4 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 2 4 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 2 4 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 2 4 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 2 4 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 2 4 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 2 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 2 4 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 2 4 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 2 4 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 2 4 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 2 4 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 2 4 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 2 4 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 2 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 2 4 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 2 4 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 2 4 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 2 4 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 2 4 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 2 4 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 2 4 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 2 4 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 2 4 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 2 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 2 4 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 2 4 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 2 4 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 2 4 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 2 4 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 2 4 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 2 4 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 2 4 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 2 4 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 2 4 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -10990,24 +10990,24 @@ VERSION 2.8.2 2 4 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 2 4 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 2 4 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 2 4 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 2 4 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 2 4 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 2 4 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 2 4 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 2 4 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 2 4 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 2 4 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 2 4 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 2 4 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 2 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 2 4 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 2 4 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 2 4 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 2 4 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 2 4 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 2 4 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 2 4 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 2 4 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 2 4 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 2 4 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 2 4 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 2 4 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 2 4 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 2 4 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 2 4 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 2 4 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 2 4 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 2 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 2 4 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 2 4 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 2 4 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 2 4 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 2 4 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 2 4 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 2 4 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 2 4 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 2 4 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 2 4 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -11020,24 +11020,24 @@ VERSION 2.8.2 2 4 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 2 4 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 2 4 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 2 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 2 4 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 2 4 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 2 4 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 2 4 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 2 4 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 2 4 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 2 4 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 2 4 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 2 4 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 2 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 2 4 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 2 4 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 2 4 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 2 4 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 2 4 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 2 4 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 2 4 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 2 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 2 4 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 2 4 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 2 4 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 2 4 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 2 4 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 2 4 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 2 4 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 2 4 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 2 4 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 2 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 2 4 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 2 4 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 2 4 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 2 4 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 2 4 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 2 4 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 2 4 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 2 4 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 2 4 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 2 4 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -11050,24 +11050,24 @@ VERSION 2.8.2 2 4 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 2 4 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 2 4 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 2 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 2 4 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 2 4 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 2 4 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 2 4 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 2 4 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 2 4 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 2 4 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 2 4 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 2 4 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 2 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 2 4 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 2 4 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 2 4 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 2 4 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 2 4 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 2 4 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 2 4 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 2 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 2 4 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 2 4 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 2 4 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 2 4 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 2 4 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 2 4 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 2 4 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 2 4 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 2 4 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 2 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 2 4 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 2 4 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 2 4 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 2 4 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 2 4 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 2 4 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 2 4 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 2 4 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 2 4 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 2 4 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -11080,24 +11080,24 @@ VERSION 2.8.2 2 4 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 2 4 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 2 4 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 2 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 2 4 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 2 4 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 2 4 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 2 4 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 2 4 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 2 4 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 2 4 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 2 4 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 2 4 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 2 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 2 4 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 2 4 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 2 4 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 2 4 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 2 4 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 2 4 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 2 4 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 2 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 2 4 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 2 4 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 2 4 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 2 4 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 2 4 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 2 4 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 2 4 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 2 4 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 2 4 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 2 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 2 4 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 2 4 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 2 4 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 2 4 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 2 4 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 2 4 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 2 4 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 2 4 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 2 4 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 2 4 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -11110,24 +11110,24 @@ VERSION 2.8.2 2 4 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 2 4 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 2 4 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 2 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 2 4 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 2 4 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 2 4 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 2 4 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 2 4 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 2 4 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 2 4 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 2 4 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 2 4 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 2 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 2 4 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 2 4 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 2 4 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 2 4 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 2 4 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 2 4 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 2 4 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 2 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 2 4 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 2 4 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 2 4 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 2 4 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 2 4 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 2 4 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 2 4 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 2 4 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 2 4 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 2 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 2 4 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 2 4 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 2 4 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 2 4 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 2 4 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 2 4 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 2 4 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 2 4 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 2 4 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 2 4 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -11140,24 +11140,24 @@ VERSION 2.8.2 2 4 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 2 4 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 2 4 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 2 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 2 4 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 2 4 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 2 4 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 2 4 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 2 4 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 2 4 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 2 4 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 2 4 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 2 4 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 2 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 2 4 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 2 4 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 2 4 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 2 4 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 2 4 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 2 4 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 2 4 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 2 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 2 4 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 2 4 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 2 4 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 2 4 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 2 4 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 2 4 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 2 4 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 2 4 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 2 4 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 2 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 2 4 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 2 4 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 2 4 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 2 4 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 2 4 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 2 4 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 2 4 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 2 4 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 2 4 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 2 4 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -11170,24 +11170,24 @@ VERSION 2.8.2 2 4 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 2 4 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 2 4 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 2 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 2 4 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 2 4 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 2 4 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 2 4 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 2 4 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 2 4 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 2 4 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 2 4 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 2 4 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 2 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 2 4 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 2 4 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 2 4 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 2 4 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 2 4 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 2 4 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 2 4 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 2 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 2 4 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 2 4 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 2 4 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 2 4 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 2 4 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 2 4 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 2 4 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 2 4 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 2 4 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 2 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 2 4 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 2 4 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 2 4 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 2 4 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 2 4 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 2 4 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 2 4 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 2 4 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 2 4 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 2 4 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -11200,24 +11200,24 @@ VERSION 2.8.2 2 4 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 2 4 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 2 4 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 2 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 2 4 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 2 4 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 2 4 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 2 4 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 2 4 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 2 4 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 2 4 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 2 4 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 2 4 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 2 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 2 4 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 2 4 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 2 4 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 2 4 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 2 4 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 2 4 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 2 4 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 2 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 2 4 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 2 4 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 2 4 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 2 4 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 2 4 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 2 4 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 2 4 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 2 4 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 2 4 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 2 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 2 4 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 2 4 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 2 4 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 2 4 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 2 4 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 2 4 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 2 4 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 2 4 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 2 4 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 2 4 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -11230,24 +11230,24 @@ VERSION 2.8.2 2 4 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 2 4 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 2 4 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 2 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 2 4 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 2 4 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 2 4 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 2 4 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 2 4 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 2 4 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 2 4 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 2 4 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 2 4 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 2 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 2 4 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 2 4 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 2 4 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 2 4 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 2 4 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 2 4 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 2 4 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 2 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 2 4 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 2 4 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 2 4 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 2 4 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 2 4 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 2 4 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 2 4 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 2 4 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 2 4 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 2 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 2 4 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 2 4 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 2 4 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 2 4 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 2 4 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 2 4 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 2 4 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 2 4 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 2 4 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 2 4 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -11260,24 +11260,24 @@ VERSION 2.8.2 2 4 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 2 4 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 2 4 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 2 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 2 4 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 2 4 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 2 4 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 2 4 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 2 4 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 2 4 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 2 4 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 2 4 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 2 4 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 2 4 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 2 4 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 2 4 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 2 4 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 2 4 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 2 4 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 2 4 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 2 4 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 2 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 2 4 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 2 4 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 2 4 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 2 4 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 2 4 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 2 4 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 2 4 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 2 4 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 2 4 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 2 4 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 2 4 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 2 4 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 2 4 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 2 4 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 2 4 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 2 4 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 2 4 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 2 4 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 2 4 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 2 4 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -11290,24 +11290,24 @@ VERSION 2.8.2 2 4 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 2 4 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 2 4 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 2 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 2 4 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 2 4 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 2 4 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 2 4 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 2 4 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 2 4 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 2 4 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 2 4 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 2 4 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 2 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 2 4 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 2 4 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 2 4 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 2 4 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 2 4 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 2 4 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 2 4 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 2 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 2 4 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 2 4 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 2 4 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 2 4 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 2 4 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 2 4 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 2 4 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 2 4 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 2 4 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 2 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 2 4 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 2 4 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 2 4 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 2 4 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 2 4 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 2 4 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 2 4 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 2 4 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 2 4 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 2 4 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -11320,24 +11320,24 @@ VERSION 2.8.2 2 4 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 2 4 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 2 4 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 2 4 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 2 4 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 2 4 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 2 4 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 2 4 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 2 4 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 2 4 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 2 4 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 2 4 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 2 4 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 2 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 2 4 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 2 4 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 2 4 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 2 4 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 2 4 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 2 4 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 2 4 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 2 4 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 2 4 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 2 4 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 2 4 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 2 4 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 2 4 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 2 4 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 2 4 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 2 4 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 2 4 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 2 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 2 4 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 2 4 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 2 4 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 2 4 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 2 4 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 2 4 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 2 4 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 2 4 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 2 4 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 2 4 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -11350,24 +11350,24 @@ VERSION 2.8.2 2 4 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 2 4 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 2 4 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 2 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 2 4 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 2 4 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 2 4 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 2 4 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 2 4 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 2 4 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 2 4 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 2 4 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 2 4 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 2 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 2 4 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 2 4 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 2 4 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 2 4 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 2 4 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 2 4 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 2 4 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 2 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 2 4 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 2 4 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 2 4 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 2 4 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 2 4 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 2 4 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 2 4 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 2 4 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 2 4 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 2 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 2 4 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 2 4 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 2 4 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 2 4 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 2 4 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 2 4 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 2 4 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 2 4 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 2 4 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 2 4 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -11380,24 +11380,24 @@ VERSION 2.8.2 2 4 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 2 4 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 2 4 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 2 4 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 2 4 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 2 4 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 2 4 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 2 4 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 2 4 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 2 4 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 2 4 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 2 4 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 2 4 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 2 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 2 4 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 2 4 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 2 4 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 2 4 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 2 4 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 2 4 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 2 4 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 2 4 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 2 4 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 2 4 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 2 4 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 2 4 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 2 4 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 2 4 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 2 4 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 2 4 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 2 4 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 2 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 2 4 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 2 4 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 2 4 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 2 4 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 2 4 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 2 4 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 2 4 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 2 4 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 2 4 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 2 4 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -11410,24 +11410,24 @@ VERSION 2.8.2 2 4 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 2 4 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 2 4 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 2 4 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 2 4 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 2 4 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 2 4 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 2 4 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 2 4 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 2 4 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 2 4 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 2 4 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 2 4 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 2 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 2 4 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 2 4 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 2 4 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 2 4 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 2 4 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 2 4 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 2 4 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 2 4 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 2 4 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 2 4 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 2 4 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 2 4 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 2 4 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 2 4 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 2 4 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 2 4 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 2 4 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 2 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 2 4 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 2 4 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 2 4 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 2 4 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 2 4 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 2 4 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 2 4 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 2 4 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 2 4 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 2 4 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -11440,24 +11440,24 @@ VERSION 2.8.2 2 4 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 2 4 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 2 4 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 2 4 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 2 4 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 2 4 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 2 4 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 2 4 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 2 4 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 2 4 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 2 4 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 2 4 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 2 4 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 2 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 2 4 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 2 4 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 2 4 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 2 4 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 2 4 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 2 4 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 2 4 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 2 4 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 2 4 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 2 4 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 2 4 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 2 4 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 2 4 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 2 4 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 2 4 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 2 4 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 2 4 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 2 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 2 4 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 2 4 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 2 4 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 2 4 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 2 4 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 2 4 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 2 4 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 2 4 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 2 4 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 2 4 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -11470,24 +11470,24 @@ VERSION 2.8.2 2 4 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 2 4 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 2 4 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 2 4 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 2 4 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 2 4 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 2 4 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 2 4 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 2 4 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 2 4 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 2 4 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 2 4 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 2 4 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 2 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 2 4 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 2 4 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 2 4 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 2 4 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 2 4 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 2 4 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 2 4 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 2 4 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 2 4 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 2 4 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 2 4 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 2 4 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 2 4 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 2 4 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 2 4 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 2 4 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 2 4 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 2 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 2 4 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 2 4 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 2 4 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 2 4 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 2 4 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 2 4 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 2 4 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 2 4 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 2 4 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 2 4 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -11500,24 +11500,24 @@ VERSION 2.8.2 2 4 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 2 4 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 2 4 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 2 4 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 2 4 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 2 4 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 2 4 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 2 4 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 2 4 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 2 4 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 2 4 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 2 4 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 2 4 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 2 4 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 2 4 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 2 4 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 2 4 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 2 4 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 2 4 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 2 4 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 2 4 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 2 4 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 2 4 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 2 4 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 2 4 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 2 4 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 2 4 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 2 4 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 2 4 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 2 4 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 2 4 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 2 4 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 2 4 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 2 4 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 2 4 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 2 4 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 2 4 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 2 4 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 2 4 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 2 4 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 2 4 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 2 4 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -11530,24 +11530,24 @@ VERSION 2.8.2 2 4 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 2 4 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 2 4 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 2 4 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 2 4 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 2 4 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 2 4 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 2 4 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 2 4 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 2 4 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 2 4 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 2 4 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 2 4 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 2 4 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 2 4 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 2 4 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 2 4 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 2 4 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 2 4 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 2 4 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 2 4 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 2 4 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 2 4 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 2 4 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41378E-24 + 2 4 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 2 4 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 2 4 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 2 4 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 2 4 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 2 4 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 2 4 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 2 4 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 2 4 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 2 4 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 2 4 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 2 4 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 2 4 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 2 4 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 2 4 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 2 4 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 2 4 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 2 4 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -11560,24 +11560,24 @@ VERSION 2.8.2 2 4 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 2 4 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 2 4 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 2 4 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10750E-66 - 2 4 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94145E-66 - 2 4 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81418E-65 - 2 4 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62479E-64 - 2 4 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46451E-63 - 2 4 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 2 4 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 2 4 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 2 4 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 2 4 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 2 4 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 2 4 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 2 4 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 2 4 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 2 4 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 2 4 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 2 4 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 2 4 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 2 4 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70922E-24 + 2 4 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92226E-24 + 2 4 0.95225E-10 0.10000E+01 0.52449E+05 0.64540E-14 0.80140E-24 0.11994E-23 + 2 4 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 2 4 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 2 4 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37451E-23 + 2 4 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70938E-23 + 2 4 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 2 4 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 2 4 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 2 4 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 2 4 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 2 4 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 2 4 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 2 4 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 2 4 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 2 4 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 2 4 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 2 4 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 2 4 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 2 4 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -11590,24 +11590,24 @@ VERSION 2.8.2 2 4 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 2 4 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 2 4 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 2 4 0.16616E-09 0.10000E+01 0.80645E+05 0.10833E-56 0.84146E-68 0.33715E-66 - 2 4 0.16616E-09 0.10000E+01 0.65036E+05 0.94395E-56 0.13507E-66 0.29260E-65 - 2 4 0.16616E-09 0.10000E+01 0.52449E+05 0.81485E-55 0.18600E-65 0.25215E-64 - 2 4 0.16616E-09 0.10000E+01 0.42297E+05 0.62650E-54 0.26584E-64 0.19230E-63 - 2 4 0.16616E-09 0.10000E+01 0.34111E+05 0.47294E-53 0.41439E-63 0.13959E-62 - 2 4 0.16616E-09 0.10000E+01 0.27509E+05 0.38374E-52 0.82693E-62 0.99884E-62 - 2 4 0.16616E-09 0.10000E+01 0.22184E+05 0.38947E-51 0.23107E-60 0.77612E-61 - 2 4 0.16616E-09 0.10000E+01 0.17891E+05 0.53700E-50 0.71872E-59 0.82873E-60 - 2 4 0.16616E-09 0.10000E+01 0.14428E+05 0.84666E-49 0.21403E-57 0.12138E-58 - 2 4 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19209E-57 - 2 4 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29630E-56 - 2 4 0.16616E-09 0.10000E+01 0.75673E+04 0.28849E-45 0.46589E-53 0.44383E-55 - 2 4 0.16616E-09 0.10000E+01 0.61026E+04 0.41725E-44 0.12761E-51 0.65309E-54 - 2 4 0.16616E-09 0.10000E+01 0.49215E+04 0.59977E-43 0.34816E-50 0.95086E-53 - 2 4 0.16616E-09 0.10000E+01 0.39689E+04 0.85853E-42 0.94682E-49 0.13745E-51 - 2 4 0.16616E-09 0.10000E+01 0.32008E+04 0.38532E-39 0.83090E-46 0.62169E-49 - 2 4 0.16616E-09 0.10000E+01 0.25813E+04 0.28570E-30 0.14109E-36 0.46408E-40 - 2 4 0.16616E-09 0.10000E+01 0.20817E+04 0.55020E-14 0.12111E-19 0.89985E-24 + 2 4 0.16616E-09 0.10000E+01 0.80645E+05 0.71835E-14 0.59598E-25 0.22382E-23 + 2 4 0.16616E-09 0.10000E+01 0.65036E+05 0.93489E-14 0.19314E-24 0.28916E-23 + 2 4 0.16616E-09 0.10000E+01 0.52449E+05 0.12200E-13 0.77899E-24 0.37015E-23 + 2 4 0.16616E-09 0.10000E+01 0.42297E+05 0.16423E-13 0.35822E-23 0.47615E-23 + 2 4 0.16616E-09 0.10000E+01 0.34111E+05 0.23888E-13 0.17083E-22 0.63302E-23 + 2 4 0.16616E-09 0.10000E+01 0.27509E+05 0.39508E-13 0.81117E-22 0.91186E-23 + 2 4 0.16616E-09 0.10000E+01 0.22184E+05 0.75698E-13 0.38063E-21 0.14995E-22 + 2 4 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17687E-20 0.28688E-22 + 2 4 0.16616E-09 0.10000E+01 0.14428E+05 0.37589E-12 0.81641E-20 0.61905E-22 + 2 4 0.16616E-09 0.10000E+01 0.11635E+05 0.89378E-12 0.37507E-19 0.14326E-21 + 2 4 0.16616E-09 0.10000E+01 0.93834E+04 0.21484E-11 0.17162E-18 0.34218E-21 + 2 4 0.16616E-09 0.10000E+01 0.75673E+04 0.51740E-11 0.78089E-18 0.82614E-21 + 2 4 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35139E-17 0.19962E-20 + 2 4 0.16616E-09 0.10000E+01 0.49215E+04 0.29731E-10 0.15519E-16 0.48005E-20 + 2 4 0.16616E-09 0.10000E+01 0.39689E+04 0.70444E-10 0.66909E-16 0.11433E-19 + 2 4 0.16616E-09 0.10000E+01 0.32008E+04 0.16464E-09 0.28133E-15 0.26832E-19 + 2 4 0.16616E-09 0.10000E+01 0.25813E+04 0.37806E-09 0.11540E-14 0.61818E-19 + 2 4 0.16616E-09 0.10000E+01 0.20817E+04 0.85078E-09 0.46140E-14 0.13947E-18 2 4 0.16616E-09 0.10000E+01 0.16788E+04 0.18734E-08 0.17966E-13 0.30769E-18 2 4 0.16616E-09 0.10000E+01 0.13538E+04 0.40324E-08 0.68288E-13 0.66323E-18 2 4 0.16616E-09 0.10000E+01 0.10918E+04 0.84823E-08 0.25472E-12 0.13966E-17 @@ -11620,24 +11620,24 @@ VERSION 2.8.2 2 4 0.16616E-09 0.10000E+01 0.24221E+03 0.84597E-06 0.78059E-09 0.13957E-15 2 4 0.16616E-09 0.10000E+01 0.19533E+03 0.13333E-05 0.14834E-08 0.21999E-15 2 4 0.16616E-09 0.10000E+01 0.15752E+03 0.13333E-05 0.14834E-08 0.21999E-15 - 2 4 0.28994E-09 0.10000E+01 0.80645E+05 0.22083E-56 0.16962E-67 0.11610E-65 - 2 4 0.28994E-09 0.10000E+01 0.65036E+05 0.19074E-55 0.27155E-66 0.99360E-65 - 2 4 0.28994E-09 0.10000E+01 0.52449E+05 0.16390E-54 0.36968E-65 0.84912E-64 - 2 4 0.28994E-09 0.10000E+01 0.42297E+05 0.12466E-53 0.50548E-64 0.64057E-63 - 2 4 0.28994E-09 0.10000E+01 0.34111E+05 0.90529E-53 0.68980E-63 0.45793E-62 - 2 4 0.28994E-09 0.10000E+01 0.27509E+05 0.65292E-52 0.10247E-61 0.31724E-61 - 2 4 0.28994E-09 0.10000E+01 0.22184E+05 0.51035E-51 0.21699E-60 0.21843E-60 - 2 4 0.28994E-09 0.10000E+01 0.17891E+05 0.53384E-50 0.62972E-59 0.17835E-59 - 2 4 0.28994E-09 0.10000E+01 0.14428E+05 0.75838E-49 0.19110E-57 0.21173E-58 - 2 4 0.28994E-09 0.10000E+01 0.11635E+05 0.11799E-47 0.55796E-56 0.31708E-57 - 2 4 0.28994E-09 0.10000E+01 0.93834E+04 0.18060E-46 0.15823E-54 0.49053E-56 - 2 4 0.28994E-09 0.10000E+01 0.75673E+04 0.26938E-45 0.44189E-53 0.74255E-55 - 2 4 0.28994E-09 0.10000E+01 0.61026E+04 0.39527E-44 0.12229E-51 0.11015E-53 - 2 4 0.28994E-09 0.10000E+01 0.49215E+04 0.57428E-43 0.33632E-50 0.16129E-52 - 2 4 0.28994E-09 0.10000E+01 0.39689E+04 0.82879E-42 0.92040E-49 0.23416E-51 - 2 4 0.28994E-09 0.10000E+01 0.32008E+04 0.37442E-39 0.81204E-46 0.10630E-48 - 2 4 0.28994E-09 0.10000E+01 0.25813E+04 0.27922E-30 0.13861E-36 0.79624E-40 - 2 4 0.28994E-09 0.10000E+01 0.20817E+04 0.54092E-14 0.11965E-19 0.15498E-23 + 2 4 0.28994E-09 0.10000E+01 0.80645E+05 0.14711E-13 0.10186E-24 0.77801E-23 + 2 4 0.28994E-09 0.10000E+01 0.65036E+05 0.18986E-13 0.26880E-24 0.99980E-23 + 2 4 0.28994E-09 0.10000E+01 0.52449E+05 0.24276E-13 0.86531E-24 0.12674E-22 + 2 4 0.28994E-09 0.10000E+01 0.42297E+05 0.31170E-13 0.34798E-23 0.15966E-22 + 2 4 0.28994E-09 0.10000E+01 0.34111E+05 0.41265E-13 0.15892E-22 0.20274E-22 + 2 4 0.28994E-09 0.10000E+01 0.27509E+05 0.58900E-13 0.75344E-22 0.26724E-22 + 2 4 0.28994E-09 0.10000E+01 0.22184E+05 0.95421E-13 0.35721E-21 0.38357E-22 + 2 4 0.28994E-09 0.10000E+01 0.17891E+05 0.17946E-12 0.16790E-20 0.63045E-22 + 2 4 0.28994E-09 0.10000E+01 0.14428E+05 0.38176E-12 0.78264E-20 0.12053E-21 + 2 4 0.28994E-09 0.10000E+01 0.11635E+05 0.87495E-12 0.36240E-19 0.25941E-21 + 2 4 0.28994E-09 0.10000E+01 0.93834E+04 0.20773E-11 0.16687E-18 0.59821E-21 + 2 4 0.28994E-09 0.10000E+01 0.75673E+04 0.49970E-11 0.76307E-18 0.14238E-20 + 2 4 0.28994E-09 0.10000E+01 0.61026E+04 0.12046E-10 0.34471E-17 0.34250E-20 + 2 4 0.28994E-09 0.10000E+01 0.49215E+04 0.28925E-10 0.15268E-16 0.82339E-20 + 2 4 0.28994E-09 0.10000E+01 0.39689E+04 0.68815E-10 0.65972E-16 0.19633E-19 + 2 4 0.28994E-09 0.10000E+01 0.32008E+04 0.16139E-09 0.27783E-15 0.46152E-19 + 2 4 0.28994E-09 0.10000E+01 0.25813E+04 0.37163E-09 0.11410E-14 0.10649E-18 + 2 4 0.28994E-09 0.10000E+01 0.20817E+04 0.83812E-09 0.45658E-14 0.24054E-18 2 4 0.28994E-09 0.10000E+01 0.16788E+04 0.18486E-08 0.17788E-13 0.53123E-18 2 4 0.28994E-09 0.10000E+01 0.13538E+04 0.39839E-08 0.67634E-13 0.11460E-17 2 4 0.28994E-09 0.10000E+01 0.10918E+04 0.83878E-08 0.25232E-12 0.24145E-17 @@ -11650,24 +11650,24 @@ VERSION 2.8.2 2 4 0.28994E-09 0.10000E+01 0.24221E+03 0.83805E-06 0.77333E-09 0.24158E-15 2 4 0.28994E-09 0.10000E+01 0.19533E+03 0.13209E-05 0.14696E-08 0.38076E-15 2 4 0.28994E-09 0.10000E+01 0.15752E+03 0.13209E-05 0.14696E-08 0.38076E-15 - 2 4 0.50593E-09 0.10000E+01 0.80645E+05 0.45863E-56 0.34638E-67 0.46604E-65 - 2 4 0.50593E-09 0.10000E+01 0.65036E+05 0.39084E-55 0.55087E-66 0.39292E-64 - 2 4 0.50593E-09 0.10000E+01 0.52449E+05 0.33301E-54 0.73894E-65 0.33224E-63 - 2 4 0.50593E-09 0.10000E+01 0.42297E+05 0.25016E-53 0.98708E-64 0.24672E-62 - 2 4 0.50593E-09 0.10000E+01 0.34111E+05 0.17796E-52 0.12866E-62 0.17259E-61 - 2 4 0.50593E-09 0.10000E+01 0.27509E+05 0.12287E-51 0.16433E-61 0.11635E-60 - 2 4 0.50593E-09 0.10000E+01 0.22184E+05 0.84215E-51 0.25655E-60 0.75349E-60 - 2 4 0.50593E-09 0.10000E+01 0.17891E+05 0.67381E-50 0.61438E-59 0.51611E-59 - 2 4 0.50593E-09 0.10000E+01 0.14428E+05 0.77265E-49 0.18096E-57 0.47757E-58 - 2 4 0.50593E-09 0.10000E+01 0.11635E+05 0.11307E-47 0.53391E-56 0.62217E-57 - 2 4 0.50593E-09 0.10000E+01 0.93834E+04 0.17300E-46 0.15297E-54 0.91671E-56 - 2 4 0.50593E-09 0.10000E+01 0.75673E+04 0.26022E-45 0.42988E-53 0.13566E-54 - 2 4 0.50593E-09 0.10000E+01 0.61026E+04 0.38429E-44 0.11947E-51 0.19799E-53 - 2 4 0.50593E-09 0.10000E+01 0.49215E+04 0.56084E-43 0.32968E-50 0.28630E-52 - 2 4 0.50593E-09 0.10000E+01 0.39689E+04 0.81225E-42 0.90496E-49 0.41191E-51 - 2 4 0.50593E-09 0.10000E+01 0.32008E+04 0.36809E-39 0.80070E-46 0.18587E-48 - 2 4 0.50593E-09 0.10000E+01 0.25813E+04 0.27536E-30 0.13712E-36 0.13871E-39 - 2 4 0.50593E-09 0.10000E+01 0.20817E+04 0.53540E-14 0.11879E-19 0.26942E-23 + 2 4 0.50593E-09 0.10000E+01 0.80645E+05 0.30812E-13 0.19295E-24 0.31511E-22 + 2 4 0.50593E-09 0.10000E+01 0.65036E+05 0.39544E-13 0.45411E-24 0.40286E-22 + 2 4 0.50593E-09 0.10000E+01 0.52449E+05 0.50041E-13 0.11986E-23 0.50681E-22 + 2 4 0.50593E-09 0.10000E+01 0.42297E+05 0.62874E-13 0.39549E-23 0.63018E-22 + 2 4 0.50593E-09 0.10000E+01 0.34111E+05 0.79464E-13 0.16181E-22 0.77997E-22 + 2 4 0.50593E-09 0.10000E+01 0.27509E+05 0.10376E-12 0.73853E-22 0.97565E-22 + 2 4 0.50593E-09 0.10000E+01 0.22184E+05 0.14641E-12 0.34751E-21 0.12708E-21 + 2 4 0.50593E-09 0.10000E+01 0.17891E+05 0.23486E-12 0.16358E-20 0.18052E-21 + 2 4 0.50593E-09 0.10000E+01 0.14428E+05 0.43781E-12 0.76503E-20 0.29283E-21 + 2 4 0.50593E-09 0.10000E+01 0.11635E+05 0.92399E-12 0.35542E-19 0.54968E-21 + 2 4 0.50593E-09 0.10000E+01 0.93834E+04 0.21040E-11 0.16415E-18 0.11587E-20 + 2 4 0.50593E-09 0.10000E+01 0.75673E+04 0.49705E-11 0.75256E-18 0.26203E-20 + 2 4 0.50593E-09 0.10000E+01 0.61026E+04 0.11905E-10 0.34072E-17 0.61334E-20 + 2 4 0.50593E-09 0.10000E+01 0.49215E+04 0.28545E-10 0.15118E-16 0.14534E-19 + 2 4 0.50593E-09 0.10000E+01 0.39689E+04 0.67953E-10 0.65412E-16 0.34389E-19 + 2 4 0.50593E-09 0.10000E+01 0.32008E+04 0.15957E-09 0.27576E-15 0.80501E-19 + 2 4 0.50593E-09 0.10000E+01 0.25813E+04 0.36792E-09 0.11334E-14 0.18531E-18 + 2 4 0.50593E-09 0.10000E+01 0.20817E+04 0.83073E-09 0.45377E-14 0.41807E-18 2 4 0.50593E-09 0.10000E+01 0.16788E+04 0.18340E-08 0.17685E-13 0.92260E-18 2 4 0.50593E-09 0.10000E+01 0.13538E+04 0.39555E-08 0.67257E-13 0.19894E-17 2 4 0.50593E-09 0.10000E+01 0.10918E+04 0.83328E-08 0.25094E-12 0.41904E-17 @@ -11680,24 +11680,24 @@ VERSION 2.8.2 2 4 0.50593E-09 0.10000E+01 0.24221E+03 0.83344E-06 0.76908E-09 0.41896E-15 2 4 0.50593E-09 0.10000E+01 0.19533E+03 0.13136E-05 0.14615E-08 0.66032E-15 2 4 0.50593E-09 0.10000E+01 0.15752E+03 0.13136E-05 0.14615E-08 0.66032E-15 - 2 4 0.88282E-09 0.10000E+01 0.80645E+05 0.95629E-56 0.71190E-67 0.20056E-64 - 2 4 0.88282E-09 0.10000E+01 0.65036E+05 0.80560E-55 0.11244E-65 0.16787E-63 - 2 4 0.88282E-09 0.10000E+01 0.52449E+05 0.68076E-54 0.14854E-64 0.14120E-62 - 2 4 0.88282E-09 0.10000E+01 0.42297E+05 0.50506E-53 0.19431E-63 0.10403E-61 - 2 4 0.88282E-09 0.10000E+01 0.34111E+05 0.35287E-52 0.24692E-62 0.72002E-61 - 2 4 0.88282E-09 0.10000E+01 0.27509E+05 0.23770E-51 0.29658E-61 0.48003E-60 - 2 4 0.88282E-09 0.10000E+01 0.22184E+05 0.15408E-50 0.38557E-60 0.30445E-59 - 2 4 0.88282E-09 0.10000E+01 0.17891E+05 0.10575E-49 0.73851E-59 0.19149E-58 - 2 4 0.88282E-09 0.10000E+01 0.14428E+05 0.97567E-49 0.19790E-57 0.14368E-57 - 2 4 0.88282E-09 0.10000E+01 0.11635E+05 0.12612E-47 0.56701E-56 0.15220E-56 - 2 4 0.88282E-09 0.10000E+01 0.93834E+04 0.18460E-46 0.15963E-54 0.20113E-55 - 2 4 0.88282E-09 0.10000E+01 0.75673E+04 0.27194E-45 0.44204E-53 0.28059E-54 - 2 4 0.88282E-09 0.10000E+01 0.61026E+04 0.39559E-44 0.12142E-51 0.39209E-53 - 2 4 0.88282E-09 0.10000E+01 0.49215E+04 0.57058E-43 0.33226E-50 0.54713E-52 - 2 4 0.88282E-09 0.10000E+01 0.39689E+04 0.81930E-42 0.90702E-49 0.76529E-51 - 2 4 0.88282E-09 0.10000E+01 0.32008E+04 0.36915E-39 0.79977E-46 0.33806E-48 - 2 4 0.88282E-09 0.10000E+01 0.25813E+04 0.27515E-30 0.13666E-36 0.24832E-39 - 2 4 0.88282E-09 0.10000E+01 0.20817E+04 0.53381E-14 0.11823E-19 0.47615E-23 + 2 4 0.88282E-09 0.10000E+01 0.80645E+05 0.64688E-13 0.37917E-24 0.13619E-21 + 2 4 0.88282E-09 0.10000E+01 0.65036E+05 0.82681E-13 0.84600E-24 0.17371E-21 + 2 4 0.88282E-09 0.10000E+01 0.52449E+05 0.10399E-12 0.19879E-23 0.21782E-21 + 2 4 0.88282E-09 0.10000E+01 0.42297E+05 0.12926E-12 0.55086E-23 0.26939E-21 + 2 4 0.88282E-09 0.10000E+01 0.34111E+05 0.15992E-12 0.19342E-22 0.32986E-21 + 2 4 0.88282E-09 0.10000E+01 0.27509E+05 0.19989E-12 0.80986E-22 0.40300E-21 + 2 4 0.88282E-09 0.10000E+01 0.22184E+05 0.25991E-12 0.36570E-21 0.49919E-21 + 2 4 0.88282E-09 0.10000E+01 0.17891E+05 0.36793E-12 0.16853E-20 0.64546E-21 + 2 4 0.88282E-09 0.10000E+01 0.14428E+05 0.59367E-12 0.77817E-20 0.90853E-21 + 2 4 0.88282E-09 0.10000E+01 0.11635E+05 0.11076E-11 0.35852E-19 0.14485E-20 + 2 4 0.88282E-09 0.10000E+01 0.93834E+04 0.23223E-11 0.16467E-18 0.26458E-20 + 2 4 0.88282E-09 0.10000E+01 0.75673E+04 0.52312E-11 0.75238E-18 0.54028E-20 + 2 4 0.88282E-09 0.10000E+01 0.61026E+04 0.12211E-10 0.33994E-17 0.11855E-19 + 2 4 0.88282E-09 0.10000E+01 0.49215E+04 0.28881E-10 0.15066E-16 0.27014E-19 + 2 4 0.88282E-09 0.10000E+01 0.39689E+04 0.68249E-10 0.65140E-16 0.62424E-19 + 2 4 0.88282E-09 0.10000E+01 0.32008E+04 0.15962E-09 0.27451E-15 0.14401E-18 + 2 4 0.88282E-09 0.10000E+01 0.25813E+04 0.36721E-09 0.11280E-14 0.32847E-18 + 2 4 0.88282E-09 0.10000E+01 0.20817E+04 0.82806E-09 0.45155E-14 0.73662E-18 2 4 0.88282E-09 0.10000E+01 0.16788E+04 0.18268E-08 0.17597E-13 0.16191E-17 2 4 0.88282E-09 0.10000E+01 0.13538E+04 0.39382E-08 0.66914E-13 0.34820E-17 2 4 0.88282E-09 0.10000E+01 0.10918E+04 0.82939E-08 0.24964E-12 0.73208E-17 @@ -11710,24 +11710,24 @@ VERSION 2.8.2 2 4 0.88282E-09 0.10000E+01 0.24221E+03 0.82895E-06 0.76484E-09 0.72890E-15 2 4 0.88282E-09 0.10000E+01 0.19533E+03 0.13065E-05 0.14534E-08 0.11487E-14 2 4 0.88282E-09 0.10000E+01 0.15752E+03 0.13065E-05 0.14534E-08 0.11487E-14 - 2 4 0.15405E-08 0.10000E+01 0.80645E+05 0.19193E-55 0.14192E-66 0.77721E-64 - 2 4 0.15405E-08 0.10000E+01 0.65036E+05 0.16082E-54 0.22342E-65 0.65066E-63 - 2 4 0.15405E-08 0.10000E+01 0.52449E+05 0.13537E-53 0.29304E-64 0.54760E-62 - 2 4 0.15405E-08 0.10000E+01 0.42297E+05 0.99853E-53 0.37992E-63 0.40418E-61 - 2 4 0.15405E-08 0.10000E+01 0.34111E+05 0.69231E-52 0.47910E-62 0.28111E-60 - 2 4 0.15405E-08 0.10000E+01 0.27509E+05 0.46261E-51 0.56579E-61 0.18946E-59 - 2 4 0.15405E-08 0.10000E+01 0.22184E+05 0.29471E-50 0.67236E-60 0.12181E-58 - 2 4 0.15405E-08 0.10000E+01 0.17891E+05 0.18795E-49 0.10529E-58 0.74923E-58 - 2 4 0.15405E-08 0.10000E+01 0.14428E+05 0.14566E-48 0.24334E-57 0.48372E-57 - 2 4 0.15405E-08 0.10000E+01 0.11635E+05 0.15974E-47 0.65506E-56 0.39813E-56 - 2 4 0.15405E-08 0.10000E+01 0.93834E+04 0.21544E-46 0.17805E-54 0.44458E-55 - 2 4 0.15405E-08 0.10000E+01 0.75673E+04 0.30436E-45 0.47916E-53 0.57889E-54 - 2 4 0.15405E-08 0.10000E+01 0.61026E+04 0.42974E-44 0.12850E-51 0.78150E-53 - 2 4 0.15405E-08 0.10000E+01 0.49215E+04 0.60503E-43 0.34508E-50 0.10600E-51 - 2 4 0.15405E-08 0.10000E+01 0.39689E+04 0.85241E-42 0.92917E-49 0.14440E-50 - 2 4 0.15405E-08 0.10000E+01 0.32008E+04 0.37862E-39 0.81119E-46 0.62327E-48 - 2 4 0.15405E-08 0.10000E+01 0.25813E+04 0.27925E-30 0.13754E-36 0.44900E-39 - 2 4 0.15405E-08 0.10000E+01 0.20817E+04 0.53725E-14 0.11820E-19 0.84628E-23 + 2 4 0.15405E-08 0.10000E+01 0.80645E+05 0.13026E-12 0.74302E-24 0.52791E-21 + 2 4 0.15405E-08 0.10000E+01 0.65036E+05 0.16620E-12 0.16230E-23 0.67362E-21 + 2 4 0.15405E-08 0.10000E+01 0.52449E+05 0.20851E-12 0.35961E-23 0.84521E-21 + 2 4 0.15405E-08 0.10000E+01 0.42297E+05 0.25808E-12 0.88165E-23 0.10457E-20 + 2 4 0.15405E-08 0.10000E+01 0.34111E+05 0.31651E-12 0.26504E-22 0.12785E-20 + 2 4 0.15405E-08 0.10000E+01 0.27509E+05 0.38794E-12 0.98439E-22 0.15504E-20 + 2 4 0.15405E-08 0.10000E+01 0.22184E+05 0.48381E-12 0.41438E-21 0.18801E-20 + 2 4 0.15405E-08 0.10000E+01 0.17891E+05 0.63392E-12 0.18333E-20 0.23178E-20 + 2 4 0.15405E-08 0.10000E+01 0.14428E+05 0.91203E-12 0.82430E-20 0.29894E-20 + 2 4 0.15405E-08 0.10000E+01 0.11635E+05 0.14962E-11 0.37270E-19 0.41957E-20 + 2 4 0.15405E-08 0.10000E+01 0.93834E+04 0.28116E-11 0.16889E-18 0.66416E-20 + 2 4 0.15405E-08 0.10000E+01 0.75673E+04 0.58710E-11 0.76435E-18 0.11972E-19 + 2 4 0.15405E-08 0.10000E+01 0.61026E+04 0.13079E-10 0.34311E-17 0.24024E-19 + 2 4 0.15405E-08 0.10000E+01 0.49215E+04 0.30091E-10 0.15141E-16 0.51711E-19 + 2 4 0.15405E-08 0.10000E+01 0.39689E+04 0.69950E-10 0.65277E-16 0.11541E-18 + 2 4 0.15405E-08 0.10000E+01 0.32008E+04 0.16198E-09 0.27456E-15 0.26064E-18 + 2 4 0.15405E-08 0.10000E+01 0.25813E+04 0.37034E-09 0.11267E-14 0.58661E-18 + 2 4 0.15405E-08 0.10000E+01 0.20817E+04 0.83180E-09 0.45065E-14 0.13042E-17 2 4 0.15405E-08 0.10000E+01 0.16788E+04 0.18302E-08 0.17551E-13 0.28503E-17 2 4 0.15405E-08 0.10000E+01 0.13538E+04 0.39387E-08 0.66710E-13 0.61058E-17 2 4 0.15405E-08 0.10000E+01 0.10918E+04 0.82850E-08 0.24880E-12 0.12803E-16 @@ -11740,24 +11740,24 @@ VERSION 2.8.2 2 4 0.15405E-08 0.10000E+01 0.24221E+03 0.82580E-06 0.76173E-09 0.12668E-14 2 4 0.15405E-08 0.10000E+01 0.19533E+03 0.13014E-05 0.14475E-08 0.19960E-14 2 4 0.15405E-08 0.10000E+01 0.15752E+03 0.13014E-05 0.14475E-08 0.19960E-14 - 2 4 0.26880E-08 0.10000E+01 0.80645E+05 0.37535E-55 0.27805E-66 0.51060E-63 - 2 4 0.26880E-08 0.10000E+01 0.65036E+05 0.31498E-54 0.43851E-65 0.42973E-62 - 2 4 0.26880E-08 0.10000E+01 0.52449E+05 0.26562E-53 0.57811E-64 0.36346E-61 - 2 4 0.26880E-08 0.10000E+01 0.42297E+05 0.19676E-52 0.75811E-63 0.27084E-60 - 2 4 0.26880E-08 0.10000E+01 0.34111E+05 0.13773E-51 0.97914E-62 0.19188E-59 - 2 4 0.26880E-08 0.10000E+01 0.27509E+05 0.93841E-51 0.12010E-60 0.13366E-58 - 2 4 0.26880E-08 0.10000E+01 0.22184E+05 0.61518E-50 0.14231E-59 0.90524E-58 - 2 4 0.26880E-08 0.10000E+01 0.17891E+05 0.39174E-49 0.18550E-58 0.58704E-57 - 2 4 0.26880E-08 0.10000E+01 0.14428E+05 0.26518E-48 0.32260E-57 0.36496E-56 - 2 4 0.26880E-08 0.10000E+01 0.11635E+05 0.22507E-47 0.74066E-56 0.22692E-55 - 2 4 0.26880E-08 0.10000E+01 0.93834E+04 0.25232E-46 0.19125E-54 0.15739E-54 - 2 4 0.26880E-08 0.10000E+01 0.75673E+04 0.33098E-45 0.50693E-53 0.13930E-53 - 2 4 0.26880E-08 0.10000E+01 0.61026E+04 0.45607E-44 0.13471E-51 0.15822E-52 - 2 4 0.26880E-08 0.10000E+01 0.49215E+04 0.63474E-43 0.35833E-50 0.20449E-51 - 2 4 0.26880E-08 0.10000E+01 0.39689E+04 0.88562E-42 0.95593E-49 0.27451E-50 - 2 4 0.26880E-08 0.10000E+01 0.32008E+04 0.38971E-39 0.82764E-46 0.11674E-47 - 2 4 0.26880E-08 0.10000E+01 0.25813E+04 0.28493E-30 0.13925E-36 0.82391E-39 - 2 4 0.26880E-08 0.10000E+01 0.20817E+04 0.54357E-14 0.11874E-19 0.15151E-22 + 2 4 0.26880E-08 0.10000E+01 0.80645E+05 0.25466E-12 0.14867E-23 0.34605E-20 + 2 4 0.26880E-08 0.10000E+01 0.65036E+05 0.32528E-12 0.32752E-23 0.44274E-20 + 2 4 0.26880E-08 0.10000E+01 0.52449E+05 0.40878E-12 0.71449E-23 0.55777E-20 + 2 4 0.26880E-08 0.10000E+01 0.42297E+05 0.50695E-12 0.16135E-22 0.69391E-20 + 2 4 0.26880E-08 0.10000E+01 0.34111E+05 0.62203E-12 0.41082E-22 0.85364E-20 + 2 4 0.26880E-08 0.10000E+01 0.27509E+05 0.75842E-12 0.12742E-21 0.10392E-19 + 2 4 0.26880E-08 0.10000E+01 0.22184E+05 0.92748E-12 0.47619E-21 0.12534E-19 + 2 4 0.26880E-08 0.10000E+01 0.17891E+05 0.11591E-11 0.19868E-20 0.15033E-19 + 2 4 0.26880E-08 0.10000E+01 0.14428E+05 0.15286E-11 0.86930E-20 0.18086E-19 + 2 4 0.26880E-08 0.10000E+01 0.11635E+05 0.22190E-11 0.38724E-19 0.22206E-19 + 2 4 0.26880E-08 0.10000E+01 0.93834E+04 0.36674E-11 0.17371E-18 0.28658E-19 + 2 4 0.26880E-08 0.10000E+01 0.75673E+04 0.69099E-11 0.78018E-18 0.40437E-19 + 2 4 0.26880E-08 0.10000E+01 0.61026E+04 0.14393E-10 0.34819E-17 0.64498E-19 + 2 4 0.26880E-08 0.10000E+01 0.49215E+04 0.31841E-10 0.15299E-16 0.11681E-18 + 2 4 0.26880E-08 0.10000E+01 0.39689E+04 0.72409E-10 0.65756E-16 0.23349E-18 + 2 4 0.26880E-08 0.10000E+01 0.32008E+04 0.16559E-09 0.27596E-15 0.49443E-18 + 2 4 0.26880E-08 0.10000E+01 0.25813E+04 0.37580E-09 0.11307E-14 0.10725E-17 + 2 4 0.26880E-08 0.10000E+01 0.20817E+04 0.84016E-09 0.45172E-14 0.23330E-17 2 4 0.26880E-08 0.10000E+01 0.16788E+04 0.18430E-08 0.17579E-13 0.50304E-17 2 4 0.26880E-08 0.10000E+01 0.13538E+04 0.39580E-08 0.66781E-13 0.10681E-16 2 4 0.26880E-08 0.10000E+01 0.10918E+04 0.83138E-08 0.24896E-12 0.22262E-16 @@ -11770,24 +11770,24 @@ VERSION 2.8.2 2 4 0.26880E-08 0.10000E+01 0.24221E+03 0.82597E-06 0.76165E-09 0.21711E-14 2 4 0.26880E-08 0.10000E+01 0.19533E+03 0.13016E-05 0.14474E-08 0.34195E-14 2 4 0.26880E-08 0.10000E+01 0.15752E+03 0.13016E-05 0.14474E-08 0.34195E-14 - 2 4 0.46905E-08 0.10000E+01 0.80645E+05 0.69589E-55 0.51825E-66 0.62812E-62 - 2 4 0.46905E-08 0.10000E+01 0.65036E+05 0.58651E-54 0.82044E-65 0.53132E-61 - 2 4 0.46905E-08 0.10000E+01 0.52449E+05 0.49666E-53 0.10925E-63 0.45141E-60 - 2 4 0.46905E-08 0.10000E+01 0.42297E+05 0.37091E-52 0.14601E-62 0.33920E-59 - 2 4 0.46905E-08 0.10000E+01 0.34111E+05 0.26384E-51 0.19518E-61 0.24400E-58 - 2 4 0.46905E-08 0.10000E+01 0.27509E+05 0.18513E-50 0.25399E-60 0.17438E-57 - 2 4 0.46905E-08 0.10000E+01 0.22184E+05 0.12741E-49 0.32266E-59 0.12324E-56 - 2 4 0.46905E-08 0.10000E+01 0.17891E+05 0.85943E-49 0.41717E-58 0.85368E-56 - 2 4 0.46905E-08 0.10000E+01 0.14428E+05 0.58476E-48 0.59892E-57 0.57727E-55 - 2 4 0.46905E-08 0.10000E+01 0.11635E+05 0.43049E-47 0.10399E-55 0.38163E-54 - 2 4 0.46905E-08 0.10000E+01 0.93834E+04 0.37407E-46 0.22047E-54 0.24751E-53 - 2 4 0.46905E-08 0.10000E+01 0.75673E+04 0.39708E-45 0.53508E-53 0.15863E-52 - 2 4 0.46905E-08 0.10000E+01 0.61026E+04 0.49088E-44 0.13852E-51 0.10351E-51 - 2 4 0.46905E-08 0.10000E+01 0.49215E+04 0.65733E-43 0.36706E-50 0.74872E-51 - 2 4 0.46905E-08 0.10000E+01 0.39689E+04 0.90868E-42 0.97921E-49 0.67542E-50 - 2 4 0.46905E-08 0.10000E+01 0.32008E+04 0.39922E-39 0.84653E-46 0.24306E-47 - 2 4 0.46905E-08 0.10000E+01 0.25813E+04 0.29126E-30 0.14185E-36 0.16411E-38 - 2 4 0.46905E-08 0.10000E+01 0.20817E+04 0.55320E-14 0.12013E-19 0.29770E-22 + 2 4 0.46905E-08 0.10000E+01 0.80645E+05 0.47131E-12 0.28776E-23 0.42473E-19 + 2 4 0.46905E-08 0.10000E+01 0.65036E+05 0.60343E-12 0.65128E-23 0.54475E-19 + 2 4 0.46905E-08 0.10000E+01 0.52449E+05 0.76110E-12 0.14581E-22 0.68892E-19 + 2 4 0.46905E-08 0.10000E+01 0.42297E+05 0.94891E-12 0.32825E-22 0.86206E-19 + 2 4 0.46905E-08 0.10000E+01 0.34111E+05 0.11721E-11 0.77276E-22 0.10694E-18 + 2 4 0.46905E-08 0.10000E+01 0.27509E+05 0.14379E-11 0.20258E-21 0.13160E-18 + 2 4 0.46905E-08 0.10000E+01 0.22184E+05 0.17598E-11 0.62561E-21 0.16069E-18 + 2 4 0.46905E-08 0.10000E+01 0.17891E+05 0.21686E-11 0.22787E-20 0.19466E-18 + 2 4 0.46905E-08 0.10000E+01 0.14428E+05 0.27390E-11 0.92999E-20 0.23398E-18 + 2 4 0.46905E-08 0.10000E+01 0.11635E+05 0.36538E-11 0.40248E-19 0.27938E-18 + 2 4 0.46905E-08 0.10000E+01 0.93834E+04 0.53536E-11 0.17857E-18 0.33267E-18 + 2 4 0.46905E-08 0.10000E+01 0.75673E+04 0.88908E-11 0.79800E-18 0.39861E-18 + 2 4 0.46905E-08 0.10000E+01 0.61026E+04 0.16756E-10 0.35497E-17 0.48933E-18 + 2 4 0.46905E-08 0.10000E+01 0.49215E+04 0.34773E-10 0.15554E-16 0.63389E-18 + 2 4 0.46905E-08 0.10000E+01 0.39689E+04 0.76302E-10 0.66691E-16 0.89845E-18 + 2 4 0.46905E-08 0.10000E+01 0.32008E+04 0.17123E-09 0.27932E-15 0.14278E-17 + 2 4 0.46905E-08 0.10000E+01 0.25813E+04 0.38468E-09 0.11426E-14 0.25290E-17 + 2 4 0.46905E-08 0.10000E+01 0.20817E+04 0.85514E-09 0.45594E-14 0.48401E-17 2 4 0.46905E-08 0.10000E+01 0.16788E+04 0.18694E-08 0.17728E-13 0.96570E-17 2 4 0.46905E-08 0.10000E+01 0.13538E+04 0.40056E-08 0.67307E-13 0.19555E-16 2 4 0.46905E-08 0.10000E+01 0.10918E+04 0.84008E-08 0.25083E-12 0.39540E-16 @@ -11800,24 +11800,24 @@ VERSION 2.8.2 2 4 0.46905E-08 0.10000E+01 0.24221E+03 0.83195E-06 0.76702E-09 0.36086E-14 2 4 0.46905E-08 0.10000E+01 0.19533E+03 0.13109E-05 0.14575E-08 0.56736E-14 2 4 0.46905E-08 0.10000E+01 0.15752E+03 0.13109E-05 0.14575E-08 0.56736E-14 - 2 4 0.81846E-08 0.10000E+01 0.80645E+05 0.12206E-54 0.91022E-66 0.18815E-61 - 2 4 0.81846E-08 0.10000E+01 0.65036E+05 0.10298E-53 0.14423E-64 0.15928E-60 - 2 4 0.81846E-08 0.10000E+01 0.52449E+05 0.87295E-53 0.19250E-63 0.13542E-59 - 2 4 0.81846E-08 0.10000E+01 0.42297E+05 0.65318E-52 0.25833E-62 0.10189E-58 - 2 4 0.81846E-08 0.10000E+01 0.34111E+05 0.46623E-51 0.34756E-61 0.73462E-58 - 2 4 0.81846E-08 0.10000E+01 0.27509E+05 0.32898E-50 0.45635E-60 0.52696E-57 - 2 4 0.81846E-08 0.10000E+01 0.22184E+05 0.22813E-49 0.58273E-59 0.37470E-56 - 2 4 0.81846E-08 0.10000E+01 0.17891E+05 0.15460E-48 0.73883E-58 0.26203E-55 - 2 4 0.81846E-08 0.10000E+01 0.14428E+05 0.10371E-47 0.98221E-57 0.17963E-54 - 2 4 0.81846E-08 0.10000E+01 0.11635E+05 0.71793E-47 0.14794E-55 0.12082E-53 - 2 4 0.81846E-08 0.10000E+01 0.93834E+04 0.55003E-46 0.26864E-54 0.79803E-53 - 2 4 0.81846E-08 0.10000E+01 0.75673E+04 0.50050E-45 0.58606E-53 0.51699E-52 - 2 4 0.81846E-08 0.10000E+01 0.61026E+04 0.54966E-44 0.14413E-51 0.33060E-51 - 2 4 0.81846E-08 0.10000E+01 0.49215E+04 0.69127E-43 0.37451E-50 0.21735E-50 - 2 4 0.81846E-08 0.10000E+01 0.39689E+04 0.93095E-42 0.99170E-49 0.16330E-49 - 2 4 0.81846E-08 0.10000E+01 0.32008E+04 0.40488E-39 0.85365E-46 0.49698E-47 - 2 4 0.81846E-08 0.10000E+01 0.25813E+04 0.29385E-30 0.14241E-36 0.31333E-38 - 2 4 0.81846E-08 0.10000E+01 0.20817E+04 0.55568E-14 0.11988E-19 0.56785E-22 + 2 4 0.81846E-08 0.10000E+01 0.80645E+05 0.82627E-12 0.50922E-23 0.12718E-18 + 2 4 0.81846E-08 0.10000E+01 0.65036E+05 0.10584E-11 0.11570E-22 0.16318E-18 + 2 4 0.81846E-08 0.10000E+01 0.52449E+05 0.13361E-11 0.25921E-22 0.20649E-18 + 2 4 0.81846E-08 0.10000E+01 0.42297E+05 0.16674E-11 0.57680E-22 0.25862E-18 + 2 4 0.81846E-08 0.10000E+01 0.34111E+05 0.20615E-11 0.13035E-21 0.32126E-18 + 2 4 0.81846E-08 0.10000E+01 0.27509E+05 0.25289E-11 0.31268E-21 0.39613E-18 + 2 4 0.81846E-08 0.10000E+01 0.22184E+05 0.30857E-11 0.84747E-21 0.48498E-18 + 2 4 0.81846E-08 0.10000E+01 0.17891E+05 0.37640E-11 0.27151E-20 0.58944E-18 + 2 4 0.81846E-08 0.10000E+01 0.14428E+05 0.46381E-11 0.10154E-19 0.71101E-18 + 2 4 0.81846E-08 0.10000E+01 0.11635E+05 0.58893E-11 0.41974E-19 0.85135E-18 + 2 4 0.81846E-08 0.10000E+01 0.93834E+04 0.79569E-11 0.18233E-18 0.10135E-17 + 2 4 0.81846E-08 0.10000E+01 0.75673E+04 0.11894E-10 0.80690E-18 0.12051E-17 + 2 4 0.81846E-08 0.10000E+01 0.61026E+04 0.20199E-10 0.35707E-17 0.14467E-17 + 2 4 0.81846E-08 0.10000E+01 0.49215E+04 0.38707E-10 0.15594E-16 0.17887E-17 + 2 4 0.81846E-08 0.10000E+01 0.39689E+04 0.80787E-10 0.66701E-16 0.23489E-17 + 2 4 0.81846E-08 0.10000E+01 0.32008E+04 0.17629E-09 0.27884E-15 0.33852E-17 + 2 4 0.81846E-08 0.10000E+01 0.25813E+04 0.39018E-09 0.11391E-14 0.54428E-17 + 2 4 0.81846E-08 0.10000E+01 0.20817E+04 0.86039E-09 0.45404E-14 0.96442E-17 2 4 0.81846E-08 0.10000E+01 0.16788E+04 0.18723E-08 0.17640E-13 0.18252E-16 2 4 0.81846E-08 0.10000E+01 0.13538E+04 0.40011E-08 0.66933E-13 0.35727E-16 2 4 0.81846E-08 0.10000E+01 0.10918E+04 0.83767E-08 0.24932E-12 0.70698E-16 @@ -11830,24 +11830,24 @@ VERSION 2.8.2 2 4 0.81846E-08 0.10000E+01 0.24221E+03 0.82634E-06 0.76152E-09 0.61698E-14 2 4 0.81846E-08 0.10000E+01 0.19533E+03 0.13020E-05 0.14471E-08 0.96892E-14 2 4 0.81846E-08 0.10000E+01 0.15752E+03 0.13020E-05 0.14471E-08 0.96892E-14 - 2 4 0.14282E-07 0.10000E+01 0.80645E+05 0.21152E-54 0.15794E-65 0.55350E-61 - 2 4 0.14282E-07 0.10000E+01 0.65036E+05 0.17865E-53 0.25047E-64 0.46888E-60 - 2 4 0.14282E-07 0.10000E+01 0.52449E+05 0.15158E-52 0.33501E-63 0.39888E-59 - 2 4 0.14282E-07 0.10000E+01 0.42297E+05 0.11361E-51 0.45124E-62 0.30043E-58 - 2 4 0.14282E-07 0.10000E+01 0.34111E+05 0.81353E-51 0.61072E-61 0.21701E-57 - 2 4 0.14282E-07 0.10000E+01 0.27509E+05 0.57704E-50 0.80914E-60 0.15614E-56 - 2 4 0.14282E-07 0.10000E+01 0.22184E+05 0.40324E-49 0.10433E-58 0.11156E-55 - 2 4 0.14282E-07 0.10000E+01 0.17891E+05 0.27556E-48 0.13223E-57 0.78603E-55 - 2 4 0.14282E-07 0.10000E+01 0.14428E+05 0.18504E-47 0.17002E-56 0.54473E-54 - 2 4 0.14282E-07 0.10000E+01 0.11635E+05 0.12494E-46 0.23356E-55 0.37163E-53 - 2 4 0.14282E-07 0.10000E+01 0.93834E+04 0.88696E-46 0.36658E-54 0.24960E-52 - 2 4 0.14282E-07 0.10000E+01 0.75673E+04 0.70633E-45 0.69299E-53 0.16441E-51 - 2 4 0.14282E-07 0.10000E+01 0.61026E+04 0.67042E-44 0.15570E-51 0.10583E-50 - 2 4 0.14282E-07 0.10000E+01 0.49215E+04 0.76096E-43 0.38861E-50 0.67349E-50 - 2 4 0.14282E-07 0.10000E+01 0.39689E+04 0.97430E-42 0.10142E-48 0.44979E-49 - 2 4 0.14282E-07 0.10000E+01 0.32008E+04 0.41546E-39 0.86786E-46 0.11367E-46 - 2 4 0.14282E-07 0.10000E+01 0.25813E+04 0.29917E-30 0.14404E-36 0.63366E-38 - 2 4 0.14282E-07 0.10000E+01 0.20817E+04 0.56307E-14 0.12029E-19 0.11349E-21 + 2 4 0.14282E-07 0.10000E+01 0.80645E+05 0.14312E-11 0.88995E-23 0.37402E-18 + 2 4 0.14282E-07 0.10000E+01 0.65036E+05 0.18343E-11 0.20314E-22 0.48005E-18 + 2 4 0.14282E-07 0.10000E+01 0.52449E+05 0.23172E-11 0.45703E-22 0.60776E-18 + 2 4 0.14282E-07 0.10000E+01 0.42297E+05 0.28949E-11 0.10160E-21 0.76179E-18 + 2 4 0.14282E-07 0.10000E+01 0.34111E+05 0.35837E-11 0.22575E-21 0.94735E-18 + 2 4 0.14282E-07 0.10000E+01 0.27509E+05 0.44011E-11 0.51494E-21 0.11701E-17 + 2 4 0.14282E-07 0.10000E+01 0.22184E+05 0.53693E-11 0.12649E-20 0.14357E-17 + 2 4 0.14282E-07 0.10000E+01 0.17891E+05 0.65247E-11 0.35551E-20 0.17501E-17 + 2 4 0.14282E-07 0.10000E+01 0.14428E+05 0.79436E-11 0.11821E-19 0.21184E-17 + 2 4 0.14282E-07 0.10000E+01 0.11635E+05 0.98069E-11 0.45353E-19 0.25456E-17 + 2 4 0.14282E-07 0.10000E+01 0.93834E+04 0.12553E-10 0.18976E-18 0.30378E-17 + 2 4 0.14282E-07 0.10000E+01 0.75673E+04 0.17238E-10 0.82553E-18 0.36076E-17 + 2 4 0.14282E-07 0.10000E+01 0.61026E+04 0.26376E-10 0.36233E-17 0.42882E-17 + 2 4 0.14282E-07 0.10000E+01 0.49215E+04 0.45849E-10 0.15749E-16 0.51665E-17 + 2 4 0.14282E-07 0.10000E+01 0.39689E+04 0.89114E-10 0.67140E-16 0.64496E-17 + 2 4 0.14282E-07 0.10000E+01 0.32008E+04 0.18616E-09 0.27996E-15 0.85985E-17 + 2 4 0.14282E-07 0.10000E+01 0.25813E+04 0.40214E-09 0.11414E-14 0.12586E-16 + 2 4 0.14282E-07 0.10000E+01 0.20817E+04 0.87511E-09 0.45427E-14 0.20403E-16 2 4 0.14282E-07 0.10000E+01 0.16788E+04 0.18904E-08 0.17629E-13 0.36018E-16 2 4 0.14282E-07 0.10000E+01 0.13538E+04 0.40223E-08 0.66830E-13 0.67194E-16 2 4 0.14282E-07 0.10000E+01 0.10918E+04 0.83984E-08 0.24876E-12 0.12882E-15 @@ -11860,24 +11860,24 @@ VERSION 2.8.2 2 4 0.14282E-07 0.10000E+01 0.24221E+03 0.82370E-06 0.75862E-09 0.10536E-13 2 4 0.14282E-07 0.10000E+01 0.19533E+03 0.12976E-05 0.14415E-08 0.16519E-13 2 4 0.14282E-07 0.10000E+01 0.15752E+03 0.12976E-05 0.14415E-08 0.16519E-13 - 2 4 0.24920E-07 0.10000E+01 0.80645E+05 0.36277E-54 0.27119E-65 0.16205E-60 - 2 4 0.24920E-07 0.10000E+01 0.65036E+05 0.30669E-53 0.43040E-64 0.13736E-59 - 2 4 0.24920E-07 0.10000E+01 0.52449E+05 0.26043E-52 0.57677E-63 0.11691E-58 - 2 4 0.24920E-07 0.10000E+01 0.42297E+05 0.19550E-51 0.77943E-62 0.88131E-58 - 2 4 0.24920E-07 0.10000E+01 0.34111E+05 0.14039E-50 0.10604E-60 0.63759E-57 - 2 4 0.24920E-07 0.10000E+01 0.27509E+05 0.10004E-49 0.14166E-59 0.45989E-56 - 2 4 0.24920E-07 0.10000E+01 0.22184E+05 0.70404E-49 0.18461E-58 0.32990E-55 - 2 4 0.24920E-07 0.10000E+01 0.17891E+05 0.48558E-48 0.23580E-57 0.23388E-54 - 2 4 0.24920E-07 0.10000E+01 0.14428E+05 0.32850E-47 0.30062E-56 0.16352E-53 - 2 4 0.24920E-07 0.10000E+01 0.11635E+05 0.22073E-46 0.39399E-55 0.11285E-52 - 2 4 0.24920E-07 0.10000E+01 0.93834E+04 0.15104E-45 0.55606E-54 0.76882E-52 - 2 4 0.24920E-07 0.10000E+01 0.75673E+04 0.10985E-44 0.90449E-53 0.51486E-51 - 2 4 0.24920E-07 0.10000E+01 0.61026E+04 0.90566E-44 0.17789E-51 0.33662E-50 - 2 4 0.24920E-07 0.10000E+01 0.49215E+04 0.89479E-43 0.41156E-50 0.21441E-49 - 2 4 0.24920E-07 0.10000E+01 0.39689E+04 0.10486E-41 0.10416E-48 0.13607E-48 - 2 4 0.24920E-07 0.10000E+01 0.32008E+04 0.42979E-39 0.88171E-46 0.29754E-46 - 2 4 0.24920E-07 0.10000E+01 0.25813E+04 0.30513E-30 0.14542E-36 0.14083E-37 - 2 4 0.24920E-07 0.10000E+01 0.20817E+04 0.57131E-14 0.12022E-19 0.24249E-21 + 2 4 0.24920E-07 0.10000E+01 0.80645E+05 0.24536E-11 0.15381E-22 0.10948E-17 + 2 4 0.24920E-07 0.10000E+01 0.65036E+05 0.31461E-11 0.35270E-22 0.14055E-17 + 2 4 0.24920E-07 0.10000E+01 0.52449E+05 0.39771E-11 0.79780E-22 0.17802E-17 + 2 4 0.24920E-07 0.10000E+01 0.42297E+05 0.49737E-11 0.17804E-21 0.22328E-17 + 2 4 0.24920E-07 0.10000E+01 0.34111E+05 0.61653E-11 0.39411E-21 0.27792E-17 + 2 4 0.24920E-07 0.10000E+01 0.27509E+05 0.75833E-11 0.87798E-21 0.34373E-17 + 2 4 0.24920E-07 0.10000E+01 0.22184E+05 0.92625E-11 0.20283E-20 0.42259E-17 + 2 4 0.24920E-07 0.10000E+01 0.17891E+05 0.11250E-10 0.51135E-20 0.51643E-17 + 2 4 0.24920E-07 0.10000E+01 0.14428E+05 0.13629E-10 0.14909E-19 0.62712E-17 + 2 4 0.24920E-07 0.10000E+01 0.11635E+05 0.16582E-10 0.51361E-19 0.75637E-17 + 2 4 0.24920E-07 0.10000E+01 0.93834E+04 0.20542E-10 0.20161E-18 0.90581E-17 + 2 4 0.24920E-07 0.10000E+01 0.75673E+04 0.26559E-10 0.85045E-18 0.10777E-16 + 2 4 0.24920E-07 0.10000E+01 0.61026E+04 0.37146E-10 0.36803E-17 0.12775E-16 + 2 4 0.24920E-07 0.10000E+01 0.49215E+04 0.58197E-10 0.15881E-16 0.15196E-16 + 2 4 0.24920E-07 0.10000E+01 0.39689E+04 0.10320E-09 0.67389E-16 0.18399E-16 + 2 4 0.24920E-07 0.10000E+01 0.32008E+04 0.20218E-09 0.28002E-15 0.23206E-16 + 2 4 0.24920E-07 0.10000E+01 0.25813E+04 0.42016E-09 0.11385E-14 0.31363E-16 + 2 4 0.24920E-07 0.10000E+01 0.20817E+04 0.89465E-09 0.45214E-14 0.46420E-16 2 4 0.24920E-07 0.10000E+01 0.16788E+04 0.19093E-08 0.17517E-13 0.75399E-16 2 4 0.24920E-07 0.10000E+01 0.13538E+04 0.40341E-08 0.66320E-13 0.13187E-15 2 4 0.24920E-07 0.10000E+01 0.10918E+04 0.83872E-08 0.24661E-12 0.24161E-15 @@ -11890,24 +11890,24 @@ VERSION 2.8.2 2 4 0.24920E-07 0.10000E+01 0.24221E+03 0.81542E-06 0.75034E-09 0.17972E-13 2 4 0.24920E-07 0.10000E+01 0.19533E+03 0.12843E-05 0.14257E-08 0.28113E-13 2 4 0.24920E-07 0.10000E+01 0.15752E+03 0.12843E-05 0.14257E-08 0.28113E-13 - 2 4 0.43485E-07 0.10000E+01 0.80645E+05 0.61671E-54 0.46149E-65 0.46954E-60 - 2 4 0.43485E-07 0.10000E+01 0.65036E+05 0.52180E-53 0.73290E-64 0.39817E-59 - 2 4 0.43485E-07 0.10000E+01 0.52449E+05 0.44341E-52 0.98374E-63 0.33903E-58 - 2 4 0.43485E-07 0.10000E+01 0.42297E+05 0.33332E-51 0.13331E-61 0.25577E-57 - 2 4 0.43485E-07 0.10000E+01 0.34111E+05 0.23992E-50 0.18218E-60 0.18528E-56 - 2 4 0.43485E-07 0.10000E+01 0.27509E+05 0.17164E-49 0.24509E-59 0.13392E-55 - 2 4 0.43485E-07 0.10000E+01 0.22184E+05 0.12154E-48 0.32261E-58 0.96382E-55 - 2 4 0.43485E-07 0.10000E+01 0.17891E+05 0.84551E-48 0.41637E-57 0.68673E-54 - 2 4 0.43485E-07 0.10000E+01 0.14428E+05 0.57738E-47 0.53270E-56 0.48356E-53 - 2 4 0.43485E-07 0.10000E+01 0.11635E+05 0.38975E-46 0.68635E-55 0.33684E-52 - 2 4 0.43485E-07 0.10000E+01 0.93834E+04 0.26357E-45 0.91298E-54 0.23214E-51 - 2 4 0.43485E-07 0.10000E+01 0.75673E+04 0.18272E-44 0.13197E-52 0.15769E-50 - 2 4 0.43485E-07 0.10000E+01 0.61026E+04 0.13588E-43 0.22328E-51 0.10483E-49 - 2 4 0.43485E-07 0.10000E+01 0.49215E+04 0.11623E-42 0.45886E-50 0.67714E-49 - 2 4 0.43485E-07 0.10000E+01 0.39689E+04 0.11996E-41 0.10936E-48 0.42617E-48 - 2 4 0.43485E-07 0.10000E+01 0.32008E+04 0.45762E-39 0.90522E-46 0.86290E-46 - 2 4 0.43485E-07 0.10000E+01 0.25813E+04 0.31602E-30 0.14795E-36 0.35013E-37 - 2 4 0.43485E-07 0.10000E+01 0.20817E+04 0.58784E-14 0.12079E-19 0.55974E-21 + 2 4 0.43485E-07 0.10000E+01 0.80645E+05 0.41696E-11 0.26322E-22 0.31713E-17 + 2 4 0.43485E-07 0.10000E+01 0.65036E+05 0.53485E-11 0.60611E-22 0.40724E-17 + 2 4 0.43485E-07 0.10000E+01 0.52449E+05 0.67653E-11 0.13784E-21 0.51598E-17 + 2 4 0.43485E-07 0.10000E+01 0.42297E+05 0.84683E-11 0.30934E-21 0.64750E-17 + 2 4 0.43485E-07 0.10000E+01 0.34111E+05 0.10511E-10 0.68662E-21 0.80663E-17 + 2 4 0.43485E-07 0.10000E+01 0.27509E+05 0.12949E-10 0.15183E-20 0.99878E-17 + 2 4 0.43485E-07 0.10000E+01 0.22184E+05 0.15843E-10 0.34006E-20 0.12299E-16 + 2 4 0.43485E-07 0.10000E+01 0.17891E+05 0.19265E-10 0.79786E-20 0.15063E-16 + 2 4 0.43485E-07 0.10000E+01 0.14428E+05 0.23315E-10 0.20716E-19 0.18342E-16 + 2 4 0.43485E-07 0.10000E+01 0.11635E+05 0.28188E-10 0.62841E-19 0.22198E-16 + 2 4 0.43485E-07 0.10000E+01 0.93834E+04 0.34316E-10 0.22428E-18 0.26683E-16 + 2 4 0.43485E-07 0.10000E+01 0.75673E+04 0.42742E-10 0.89751E-18 0.31852E-16 + 2 4 0.43485E-07 0.10000E+01 0.61026E+04 0.55975E-10 0.37889E-17 0.37794E-16 + 2 4 0.43485E-07 0.10000E+01 0.49215E+04 0.79936E-10 0.16158E-16 0.44743E-16 + 2 4 0.43485E-07 0.10000E+01 0.39689E+04 0.12820E-09 0.68104E-16 0.53310E-16 + 2 4 0.43485E-07 0.10000E+01 0.32008E+04 0.23095E-09 0.28164E-15 0.64940E-16 + 2 4 0.43485E-07 0.10000E+01 0.25813E+04 0.45340E-09 0.11408E-14 0.82760E-16 + 2 4 0.43485E-07 0.10000E+01 0.20817E+04 0.93308E-09 0.45175E-14 0.11315E-15 2 4 0.43485E-07 0.10000E+01 0.16788E+04 0.19529E-08 0.17462E-13 0.16861E-15 2 4 0.43485E-07 0.10000E+01 0.13538E+04 0.40803E-08 0.65989E-13 0.27303E-15 2 4 0.43485E-07 0.10000E+01 0.10918E+04 0.84264E-08 0.24503E-12 0.47125E-15 @@ -11920,24 +11920,24 @@ VERSION 2.8.2 2 4 0.43485E-07 0.10000E+01 0.24221E+03 0.80861E-06 0.74314E-09 0.30658E-13 2 4 0.43485E-07 0.10000E+01 0.19533E+03 0.12731E-05 0.14120E-08 0.47799E-13 2 4 0.43485E-07 0.10000E+01 0.15752E+03 0.12731E-05 0.14120E-08 0.47799E-13 - 2 4 0.75878E-07 0.10000E+01 0.80645E+05 0.10402E-53 0.77908E-65 0.13528E-59 - 2 4 0.75878E-07 0.10000E+01 0.65036E+05 0.88075E-53 0.12380E-63 0.11476E-58 - 2 4 0.75878E-07 0.10000E+01 0.52449E+05 0.74892E-52 0.16640E-62 0.97749E-58 - 2 4 0.75878E-07 0.10000E+01 0.42297E+05 0.56361E-51 0.22604E-61 0.73790E-57 - 2 4 0.75878E-07 0.10000E+01 0.34111E+05 0.40652E-50 0.31006E-60 0.53513E-56 - 2 4 0.75878E-07 0.10000E+01 0.27509E+05 0.29178E-49 0.41962E-59 0.38747E-55 - 2 4 0.75878E-07 0.10000E+01 0.22184E+05 0.20770E-48 0.55721E-58 0.27963E-54 - 2 4 0.75878E-07 0.10000E+01 0.17891E+05 0.14560E-47 0.72672E-57 0.20007E-53 - 2 4 0.75878E-07 0.10000E+01 0.14428E+05 0.10036E-46 0.93758E-56 0.14171E-52 - 2 4 0.75878E-07 0.10000E+01 0.11635E+05 0.68306E-46 0.12063E-54 0.99460E-52 - 2 4 0.75878E-07 0.10000E+01 0.93834E+04 0.46228E-45 0.15643E-53 0.69192E-51 - 2 4 0.75878E-07 0.10000E+01 0.75673E+04 0.31439E-44 0.21032E-52 0.47560E-50 - 2 4 0.75878E-07 0.10000E+01 0.61026E+04 0.22020E-43 0.31228E-51 0.32093E-49 - 2 4 0.75878E-07 0.10000E+01 0.49215E+04 0.16768E-42 0.55355E-50 0.21088E-48 - 2 4 0.75878E-07 0.10000E+01 0.39689E+04 0.14965E-41 0.11918E-48 0.13418E-47 - 2 4 0.75878E-07 0.10000E+01 0.32008E+04 0.51059E-39 0.94219E-46 0.26491E-45 - 2 4 0.75878E-07 0.10000E+01 0.25813E+04 0.33464E-30 0.15144E-36 0.96559E-37 - 2 4 0.75878E-07 0.10000E+01 0.20817E+04 0.61568E-14 0.12172E-19 0.13997E-20 + 2 4 0.75878E-07 0.10000E+01 0.80645E+05 0.70307E-11 0.44652E-22 0.91350E-17 + 2 4 0.75878E-07 0.10000E+01 0.65036E+05 0.90217E-11 0.10319E-21 0.11733E-16 + 2 4 0.75878E-07 0.10000E+01 0.52449E+05 0.11417E-10 0.23585E-21 0.14870E-16 + 2 4 0.75878E-07 0.10000E+01 0.42297E+05 0.14303E-10 0.53246E-21 0.18669E-16 + 2 4 0.75878E-07 0.10000E+01 0.34111E+05 0.17773E-10 0.11882E-20 0.23273E-16 + 2 4 0.75878E-07 0.10000E+01 0.27509E+05 0.21929E-10 0.26299E-20 0.28845E-16 + 2 4 0.75878E-07 0.10000E+01 0.22184E+05 0.26880E-10 0.58202E-20 0.35568E-16 + 2 4 0.75878E-07 0.10000E+01 0.17891E+05 0.32745E-10 0.13126E-19 0.43641E-16 + 2 4 0.75878E-07 0.10000E+01 0.14428E+05 0.39668E-10 0.31358E-19 0.53271E-16 + 2 4 0.75878E-07 0.10000E+01 0.11635E+05 0.47873E-10 0.84187E-19 0.64665E-16 + 2 4 0.75878E-07 0.10000E+01 0.93834E+04 0.57810E-10 0.26627E-18 0.78009E-16 + 2 4 0.75878E-07 0.10000E+01 0.75673E+04 0.70512E-10 0.98140E-18 0.93465E-16 + 2 4 0.75878E-07 0.10000E+01 0.61026E+04 0.88474E-10 0.39691E-17 0.11122E-15 + 2 4 0.75878E-07 0.10000E+01 0.49215E+04 0.11762E-09 0.16589E-16 0.13164E-15 + 2 4 0.75878E-07 0.10000E+01 0.39689E+04 0.17162E-09 0.69194E-16 0.15574E-15 + 2 4 0.75878E-07 0.10000E+01 0.32008E+04 0.28084E-09 0.28425E-15 0.18599E-15 + 2 4 0.75878E-07 0.10000E+01 0.25813E+04 0.51080E-09 0.11456E-14 0.22794E-15 + 2 4 0.75878E-07 0.10000E+01 0.20817E+04 0.99917E-09 0.45185E-14 0.29307E-15 2 4 0.75878E-07 0.10000E+01 0.16788E+04 0.20283E-08 0.17410E-13 0.40377E-15 2 4 0.75878E-07 0.10000E+01 0.13538E+04 0.41628E-08 0.65629E-13 0.60245E-15 2 4 0.75878E-07 0.10000E+01 0.10918E+04 0.85060E-08 0.24321E-12 0.96752E-15 @@ -11950,24 +11950,24 @@ VERSION 2.8.2 2 4 0.75878E-07 0.10000E+01 0.24221E+03 0.80039E-06 0.73427E-09 0.52355E-13 2 4 0.75878E-07 0.10000E+01 0.19533E+03 0.12596E-05 0.13951E-08 0.81246E-13 2 4 0.75878E-07 0.10000E+01 0.15752E+03 0.12596E-05 0.13951E-08 0.81246E-13 - 2 4 0.13240E-06 0.10000E+01 0.80645E+05 0.17424E-53 0.13060E-64 0.38786E-59 - 2 4 0.13240E-06 0.10000E+01 0.65036E+05 0.14762E-52 0.20762E-63 0.32915E-58 - 2 4 0.13240E-06 0.10000E+01 0.52449E+05 0.12559E-51 0.27941E-62 0.28044E-57 - 2 4 0.13240E-06 0.10000E+01 0.42297E+05 0.94609E-51 0.38032E-61 0.21182E-56 - 2 4 0.13240E-06 0.10000E+01 0.34111E+05 0.68357E-50 0.52332E-60 0.15376E-55 - 2 4 0.13240E-06 0.10000E+01 0.27509E+05 0.49202E-49 0.71180E-59 0.11150E-54 - 2 4 0.13240E-06 0.10000E+01 0.22184E+05 0.35179E-48 0.95232E-58 0.80653E-54 - 2 4 0.13240E-06 0.10000E+01 0.17891E+05 0.24822E-47 0.12540E-56 0.57908E-53 - 2 4 0.13240E-06 0.10000E+01 0.14428E+05 0.17256E-46 0.16334E-55 0.41216E-52 - 2 4 0.13240E-06 0.10000E+01 0.11635E+05 0.11851E-45 0.21136E-54 0.29109E-51 - 2 4 0.13240E-06 0.10000E+01 0.93834E+04 0.80710E-45 0.27240E-53 0.20407E-50 - 2 4 0.13240E-06 0.10000E+01 0.75673E+04 0.54708E-44 0.35382E-52 0.14163E-49 - 2 4 0.13240E-06 0.10000E+01 0.61026E+04 0.37293E-43 0.48136E-51 0.96787E-49 - 2 4 0.13240E-06 0.10000E+01 0.49215E+04 0.26386E-42 0.74035E-50 0.64634E-48 - 2 4 0.13240E-06 0.10000E+01 0.39689E+04 0.20702E-41 0.13862E-48 0.41837E-47 - 2 4 0.13240E-06 0.10000E+01 0.32008E+04 0.61382E-39 0.10078E-45 0.82832E-45 - 2 4 0.13240E-06 0.10000E+01 0.25813E+04 0.36865E-30 0.15657E-36 0.28544E-36 - 2 4 0.13240E-06 0.10000E+01 0.20817E+04 0.66381E-14 0.12320E-19 0.37489E-20 + 2 4 0.13240E-06 0.10000E+01 0.80645E+05 0.11774E-10 0.75160E-22 0.26187E-16 + 2 4 0.13240E-06 0.10000E+01 0.65036E+05 0.15112E-10 0.17424E-21 0.33640E-16 + 2 4 0.13240E-06 0.10000E+01 0.52449E+05 0.19134E-10 0.39999E-21 0.42646E-16 + 2 4 0.13240E-06 0.10000E+01 0.42297E+05 0.23986E-10 0.90811E-21 0.53562E-16 + 2 4 0.13240E-06 0.10000E+01 0.34111E+05 0.29835E-10 0.20390E-20 0.66808E-16 + 2 4 0.13240E-06 0.10000E+01 0.27509E+05 0.36863E-10 0.45338E-20 0.82873E-16 + 2 4 0.13240E-06 0.10000E+01 0.22184E+05 0.45266E-10 0.10018E-19 0.10231E-15 + 2 4 0.13240E-06 0.10000E+01 0.17891E+05 0.55254E-10 0.22204E-19 0.12573E-15 + 2 4 0.13240E-06 0.10000E+01 0.14428E+05 0.67059E-10 0.50493E-19 0.15379E-15 + 2 4 0.13240E-06 0.10000E+01 0.11635E+05 0.80983E-10 0.12331E-18 0.18718E-15 + 2 4 0.13240E-06 0.10000E+01 0.93834E+04 0.97521E-10 0.34402E-18 0.22654E-15 + 2 4 0.13240E-06 0.10000E+01 0.75673E+04 0.11772E-09 0.11347E-17 0.27242E-15 + 2 4 0.13240E-06 0.10000E+01 0.61026E+04 0.14406E-09 0.42828E-17 0.32533E-15 + 2 4 0.13240E-06 0.10000E+01 0.49215E+04 0.18244E-09 0.17290E-16 0.38591E-15 + 2 4 0.13240E-06 0.10000E+01 0.39689E+04 0.24658E-09 0.70900E-16 0.45575E-15 + 2 4 0.13240E-06 0.10000E+01 0.32008E+04 0.36708E-09 0.28842E-15 0.53895E-15 + 2 4 0.13240E-06 0.10000E+01 0.25813E+04 0.60987E-09 0.11545E-14 0.64514E-15 + 2 4 0.13240E-06 0.10000E+01 0.20817E+04 0.11130E-08 0.45295E-14 0.79473E-15 2 4 0.13240E-06 0.10000E+01 0.16788E+04 0.21587E-08 0.17378E-13 0.10280E-14 2 4 0.13240E-06 0.10000E+01 0.13538E+04 0.43090E-08 0.65283E-13 0.14205E-14 2 4 0.13240E-06 0.10000E+01 0.10918E+04 0.86589E-08 0.24127E-12 0.21105E-14 @@ -11980,24 +11980,24 @@ VERSION 2.8.2 2 4 0.13240E-06 0.10000E+01 0.24221E+03 0.79102E-06 0.72385E-09 0.89650E-13 2 4 0.13240E-06 0.10000E+01 0.19533E+03 0.12441E-05 0.13751E-08 0.13821E-12 2 4 0.13240E-06 0.10000E+01 0.15752E+03 0.12441E-05 0.13751E-08 0.13821E-12 - 2 4 0.23103E-06 0.10000E+01 0.80645E+05 0.29007E-53 0.21755E-64 0.11075E-58 - 2 4 0.23103E-06 0.10000E+01 0.65036E+05 0.24588E-52 0.34601E-63 0.94011E-58 - 2 4 0.23103E-06 0.10000E+01 0.52449E+05 0.20928E-51 0.46611E-62 0.80120E-57 - 2 4 0.23103E-06 0.10000E+01 0.42297E+05 0.15779E-50 0.63554E-61 0.60543E-56 - 2 4 0.23103E-06 0.10000E+01 0.34111E+05 0.11417E-49 0.87683E-60 0.43983E-55 - 2 4 0.23103E-06 0.10000E+01 0.27509E+05 0.82373E-49 0.11977E-58 0.31935E-54 - 2 4 0.23103E-06 0.10000E+01 0.22184E+05 0.59115E-48 0.16126E-57 0.23147E-53 - 2 4 0.23103E-06 0.10000E+01 0.17891E+05 0.41944E-47 0.21413E-56 0.16669E-52 - 2 4 0.23103E-06 0.10000E+01 0.14428E+05 0.29377E-46 0.28151E-55 0.11913E-51 - 2 4 0.23103E-06 0.10000E+01 0.11635E+05 0.20350E-45 0.36724E-54 0.84573E-51 - 2 4 0.23103E-06 0.10000E+01 0.93834E+04 0.13971E-44 0.47485E-53 0.59666E-50 - 2 4 0.23103E-06 0.10000E+01 0.75673E+04 0.95097E-44 0.60999E-52 0.41741E-49 - 2 4 0.23103E-06 0.10000E+01 0.61026E+04 0.64332E-43 0.79282E-51 0.28823E-48 - 2 4 0.23103E-06 0.10000E+01 0.49215E+04 0.43881E-42 0.10982E-49 0.19518E-47 - 2 4 0.23103E-06 0.10000E+01 0.39689E+04 0.31491E-41 0.17706E-48 0.12857E-46 - 2 4 0.23103E-06 0.10000E+01 0.32008E+04 0.81312E-39 0.11328E-45 0.25826E-44 - 2 4 0.23103E-06 0.10000E+01 0.25813E+04 0.43254E-30 0.16470E-36 0.87252E-36 - 2 4 0.23103E-06 0.10000E+01 0.20817E+04 0.74797E-14 0.12547E-19 0.10551E-19 + 2 4 0.23103E-06 0.10000E+01 0.80645E+05 0.19595E-10 0.12564E-21 0.74762E-16 + 2 4 0.23103E-06 0.10000E+01 0.65036E+05 0.25158E-10 0.29205E-21 0.96052E-16 + 2 4 0.23103E-06 0.10000E+01 0.52449E+05 0.31866E-10 0.67300E-21 0.12179E-15 + 2 4 0.23103E-06 0.10000E+01 0.42297E+05 0.39970E-10 0.15356E-20 0.15302E-15 + 2 4 0.23103E-06 0.10000E+01 0.34111E+05 0.49760E-10 0.34687E-20 0.19096E-15 + 2 4 0.23103E-06 0.10000E+01 0.27509E+05 0.61557E-10 0.77589E-20 0.23705E-15 + 2 4 0.23103E-06 0.10000E+01 0.22184E+05 0.75713E-10 0.17205E-19 0.29293E-15 + 2 4 0.23103E-06 0.10000E+01 0.17891E+05 0.92602E-10 0.37960E-19 0.36047E-15 + 2 4 0.23103E-06 0.10000E+01 0.14428E+05 0.11263E-09 0.84279E-19 0.44172E-15 + 2 4 0.23103E-06 0.10000E+01 0.11635E+05 0.13626E-09 0.19374E-18 0.53885E-15 + 2 4 0.23103E-06 0.10000E+01 0.93834E+04 0.16411E-09 0.48635E-18 0.65402E-15 + 2 4 0.23103E-06 0.10000E+01 0.75673E+04 0.19730E-09 0.14160E-17 0.78919E-15 + 2 4 0.23103E-06 0.10000E+01 0.61026E+04 0.23829E-09 0.48435E-17 0.94598E-15 + 2 4 0.23103E-06 0.10000E+01 0.49215E+04 0.29296E-09 0.18474E-16 0.11258E-14 + 2 4 0.23103E-06 0.10000E+01 0.39689E+04 0.37503E-09 0.73625E-16 0.13313E-14 + 2 4 0.23103E-06 0.10000E+01 0.32008E+04 0.51529E-09 0.29500E-15 0.15687E-14 + 2 4 0.23103E-06 0.10000E+01 0.25813E+04 0.78019E-09 0.11696E-14 0.18540E-14 + 2 4 0.23103E-06 0.10000E+01 0.20817E+04 0.13086E-08 0.45563E-14 0.22228E-14 2 4 0.23103E-06 0.10000E+01 0.16788E+04 0.23828E-08 0.17383E-13 0.27467E-14 2 4 0.23103E-06 0.10000E+01 0.13538E+04 0.45631E-08 0.65002E-13 0.35608E-14 2 4 0.23103E-06 0.10000E+01 0.10918E+04 0.89365E-08 0.23934E-12 0.49097E-14 @@ -12010,24 +12010,24 @@ VERSION 2.8.2 2 4 0.23103E-06 0.10000E+01 0.24221E+03 0.78071E-06 0.71188E-09 0.15428E-12 2 4 0.23103E-06 0.10000E+01 0.19533E+03 0.12267E-05 0.13523E-08 0.23566E-12 2 4 0.23103E-06 0.10000E+01 0.15752E+03 0.12267E-05 0.13523E-08 0.23566E-12 - 2 4 0.40314E-06 0.10000E+01 0.80645E+05 0.48026E-53 0.36040E-64 0.31508E-58 - 2 4 0.40314E-06 0.10000E+01 0.65036E+05 0.40728E-52 0.57340E-63 0.26754E-57 - 2 4 0.40314E-06 0.10000E+01 0.52449E+05 0.34680E-51 0.77310E-62 0.22805E-56 - 2 4 0.40314E-06 0.10000E+01 0.42297E+05 0.26165E-50 0.10556E-60 0.17240E-55 - 2 4 0.40314E-06 0.10000E+01 0.34111E+05 0.18956E-49 0.14597E-59 0.12533E-54 - 2 4 0.40314E-06 0.10000E+01 0.27509E+05 0.13704E-48 0.20009E-58 0.91103E-54 - 2 4 0.40314E-06 0.10000E+01 0.22184E+05 0.98656E-48 0.27086E-57 0.66144E-53 - 2 4 0.40314E-06 0.10000E+01 0.17891E+05 0.70330E-47 0.36227E-56 0.47754E-52 - 2 4 0.40314E-06 0.10000E+01 0.14428E+05 0.49575E-46 0.48024E-55 0.34248E-51 - 2 4 0.40314E-06 0.10000E+01 0.11635E+05 0.34605E-45 0.63179E-54 0.24421E-50 - 2 4 0.40314E-06 0.10000E+01 0.93834E+04 0.23952E-44 0.82271E-53 0.17320E-49 - 2 4 0.40314E-06 0.10000E+01 0.75673E+04 0.16420E-43 0.10580E-51 0.12197E-48 - 2 4 0.40314E-06 0.10000E+01 0.61026E+04 0.11132E-42 0.13515E-50 0.84949E-48 - 2 4 0.40314E-06 0.10000E+01 0.49215E+04 0.74963E-42 0.17626E-49 0.58199E-47 - 2 4 0.40314E-06 0.10000E+01 0.39689E+04 0.51234E-41 0.25124E-48 0.38941E-46 - 2 4 0.40314E-06 0.10000E+01 0.32008E+04 0.11893E-38 0.13765E-45 0.79604E-44 - 2 4 0.40314E-06 0.10000E+01 0.25813E+04 0.55293E-30 0.17866E-36 0.26903E-35 - 2 4 0.40314E-06 0.10000E+01 0.20817E+04 0.89588E-14 0.12889E-19 0.30617E-19 + 2 4 0.40314E-06 0.10000E+01 0.80645E+05 0.32436E-10 0.20876E-21 0.21268E-15 + 2 4 0.40314E-06 0.10000E+01 0.65036E+05 0.41653E-10 0.48634E-21 0.27327E-15 + 2 4 0.40314E-06 0.10000E+01 0.52449E+05 0.52777E-10 0.11244E-20 0.34658E-15 + 2 4 0.40314E-06 0.10000E+01 0.42297E+05 0.66234E-10 0.25770E-20 0.43556E-15 + 2 4 0.40314E-06 0.10000E+01 0.34111E+05 0.82518E-10 0.58529E-20 0.54379E-15 + 2 4 0.40314E-06 0.10000E+01 0.27509E+05 0.10219E-09 0.13172E-19 0.67545E-15 + 2 4 0.40314E-06 0.10000E+01 0.22184E+05 0.12587E-09 0.29371E-19 0.83540E-15 + 2 4 0.40314E-06 0.10000E+01 0.17891E+05 0.15423E-09 0.64933E-19 0.10292E-14 + 2 4 0.40314E-06 0.10000E+01 0.14428E+05 0.18800E-09 0.14297E-18 0.12631E-14 + 2 4 0.40314E-06 0.10000E+01 0.11635E+05 0.22794E-09 0.31829E-18 0.15439E-14 + 2 4 0.40314E-06 0.10000E+01 0.93834E+04 0.27497E-09 0.74276E-18 0.18786E-14 + 2 4 0.40314E-06 0.10000E+01 0.75673E+04 0.33039E-09 0.19288E-17 0.22739E-14 + 2 4 0.40314E-06 0.10000E+01 0.61026E+04 0.39676E-09 0.58569E-17 0.27354E-14 + 2 4 0.40314E-06 0.10000E+01 0.49215E+04 0.47988E-09 0.20528E-16 0.32676E-14 + 2 4 0.40314E-06 0.10000E+01 0.39689E+04 0.59342E-09 0.78078E-16 0.38748E-14 + 2 4 0.40314E-06 0.10000E+01 0.32008E+04 0.76829E-09 0.30534E-15 0.45665E-14 + 2 4 0.40314E-06 0.10000E+01 0.25813E+04 0.10714E-08 0.11938E-14 0.53671E-14 + 2 4 0.40314E-06 0.10000E+01 0.20817E+04 0.16427E-08 0.46062E-14 0.63355E-14 2 4 0.40314E-06 0.10000E+01 0.16788E+04 0.27654E-08 0.17444E-13 0.75959E-14 2 4 0.40314E-06 0.10000E+01 0.13538E+04 0.49988E-08 0.64837E-13 0.93877E-14 2 4 0.40314E-06 0.10000E+01 0.10918E+04 0.94226E-08 0.23757E-12 0.12143E-13 @@ -12040,24 +12040,24 @@ VERSION 2.8.2 2 4 0.40314E-06 0.10000E+01 0.24221E+03 0.76973E-06 0.69836E-09 0.26769E-12 2 4 0.40314E-06 0.10000E+01 0.19533E+03 0.12079E-05 0.13264E-08 0.40360E-12 2 4 0.40314E-06 0.10000E+01 0.15752E+03 0.12079E-05 0.13264E-08 0.40360E-12 - 2 4 0.70346E-06 0.10000E+01 0.80645E+05 0.79161E-53 0.59433E-64 0.89052E-58 - 2 4 0.70346E-06 0.10000E+01 0.65036E+05 0.67158E-52 0.94587E-63 0.75632E-57 - 2 4 0.70346E-06 0.10000E+01 0.52449E+05 0.57204E-51 0.12762E-61 0.64483E-56 - 2 4 0.70346E-06 0.10000E+01 0.42297E+05 0.43185E-50 0.17448E-60 0.48764E-55 - 2 4 0.70346E-06 0.10000E+01 0.34111E+05 0.31321E-49 0.24172E-59 0.35473E-54 - 2 4 0.70346E-06 0.10000E+01 0.27509E+05 0.22681E-48 0.33233E-58 0.25809E-53 - 2 4 0.70346E-06 0.10000E+01 0.22184E+05 0.16371E-47 0.45191E-57 0.18766E-52 - 2 4 0.70346E-06 0.10000E+01 0.17891E+05 0.11717E-46 0.60811E-56 0.13578E-51 - 2 4 0.70346E-06 0.10000E+01 0.14428E+05 0.83043E-46 0.81196E-55 0.97669E-51 - 2 4 0.70346E-06 0.10000E+01 0.11635E+05 0.58354E-45 0.10766E-53 0.69902E-50 - 2 4 0.70346E-06 0.10000E+01 0.93834E+04 0.40692E-44 0.14132E-52 0.49797E-49 - 2 4 0.70346E-06 0.10000E+01 0.75673E+04 0.28112E-43 0.18289E-51 0.35259E-48 - 2 4 0.70346E-06 0.10000E+01 0.61026E+04 0.19181E-42 0.23322E-50 0.24732E-47 - 2 4 0.70346E-06 0.10000E+01 0.49215E+04 0.12914E-41 0.29634E-49 0.17107E-46 - 2 4 0.70346E-06 0.10000E+01 0.39689E+04 0.86512E-41 0.39055E-48 0.11598E-45 - 2 4 0.70346E-06 0.10000E+01 0.32008E+04 0.18826E-38 0.18506E-45 0.24109E-43 - 2 4 0.70346E-06 0.10000E+01 0.25813E+04 0.77806E-30 0.20462E-36 0.82259E-35 - 2 4 0.70346E-06 0.10000E+01 0.20817E+04 0.11579E-13 0.13450E-19 0.89905E-19 + 2 4 0.70346E-06 0.10000E+01 0.80645E+05 0.53455E-10 0.34514E-21 0.60104E-15 + 2 4 0.70346E-06 0.10000E+01 0.65036E+05 0.68657E-10 0.80561E-21 0.77237E-15 + 2 4 0.70346E-06 0.10000E+01 0.52449E+05 0.87018E-10 0.18678E-20 0.97972E-15 + 2 4 0.70346E-06 0.10000E+01 0.42297E+05 0.10925E-09 0.42969E-20 0.12316E-14 + 2 4 0.70346E-06 0.10000E+01 0.34111E+05 0.13620E-09 0.98061E-20 0.15382E-14 + 2 4 0.70346E-06 0.10000E+01 0.27509E+05 0.16883E-09 0.22194E-19 0.19116E-14 + 2 4 0.70346E-06 0.10000E+01 0.22184E+05 0.20821E-09 0.49785E-19 0.23660E-14 + 2 4 0.70346E-06 0.10000E+01 0.17891E+05 0.25555E-09 0.11061E-18 0.29179E-14 + 2 4 0.70346E-06 0.10000E+01 0.14428E+05 0.31212E-09 0.24358E-18 0.35858E-14 + 2 4 0.70346E-06 0.10000E+01 0.11635E+05 0.37930E-09 0.53518E-18 0.43904E-14 + 2 4 0.70346E-06 0.10000E+01 0.93834E+04 0.45856E-09 0.11977E-17 0.53537E-14 + 2 4 0.70346E-06 0.10000E+01 0.75673E+04 0.55169E-09 0.28549E-17 0.64977E-14 + 2 4 0.70346E-06 0.10000E+01 0.61026E+04 0.66151E-09 0.77020E-17 0.78420E-14 + 2 4 0.70346E-06 0.10000E+01 0.49215E+04 0.79391E-09 0.24222E-16 0.94020E-14 + 2 4 0.70346E-06 0.10000E+01 0.39689E+04 0.96244E-09 0.85823E-16 0.11189E-13 + 2 4 0.70346E-06 0.10000E+01 0.32008E+04 0.11981E-08 0.32286E-15 0.13216E-13 + 2 4 0.70346E-06 0.10000E+01 0.25813E+04 0.15683E-08 0.12358E-14 0.15516E-13 + 2 4 0.70346E-06 0.10000E+01 0.20817E+04 0.22146E-08 0.47059E-14 0.18179E-13 2 4 0.70346E-06 0.10000E+01 0.16788E+04 0.34229E-08 0.17651E-13 0.21410E-13 2 4 0.70346E-06 0.10000E+01 0.13538E+04 0.57547E-08 0.65103E-13 0.25619E-13 2 4 0.70346E-06 0.10000E+01 0.10918E+04 0.10288E-07 0.23703E-12 0.31562E-13 @@ -12070,24 +12070,24 @@ VERSION 2.8.2 2 4 0.70346E-06 0.10000E+01 0.24221E+03 0.76143E-06 0.68604E-09 0.47036E-12 2 4 0.70346E-06 0.10000E+01 0.19533E+03 0.11927E-05 0.13027E-08 0.69639E-12 2 4 0.70346E-06 0.10000E+01 0.15752E+03 0.11927E-05 0.13027E-08 0.69639E-12 - 2 4 0.12275E-05 0.10000E+01 0.80645E+05 0.12987E-52 0.97542E-64 0.25163E-57 - 2 4 0.12275E-05 0.10000E+01 0.65036E+05 0.11021E-51 0.15528E-62 0.21375E-56 - 2 4 0.12275E-05 0.10000E+01 0.52449E+05 0.93905E-51 0.20965E-61 0.18228E-55 - 2 4 0.12275E-05 0.10000E+01 0.42297E+05 0.70930E-50 0.28693E-60 0.13788E-54 - 2 4 0.12275E-05 0.10000E+01 0.34111E+05 0.51490E-49 0.39816E-59 0.10035E-53 - 2 4 0.12275E-05 0.10000E+01 0.27509E+05 0.37341E-48 0.54881E-58 0.73077E-53 - 2 4 0.12275E-05 0.10000E+01 0.22184E+05 0.27015E-47 0.74916E-57 0.53203E-52 - 2 4 0.12275E-05 0.10000E+01 0.17891E+05 0.19401E-46 0.10134E-55 0.38568E-51 - 2 4 0.12275E-05 0.10000E+01 0.14428E+05 0.13814E-45 0.13615E-54 0.27814E-50 - 2 4 0.12275E-05 0.10000E+01 0.11635E+05 0.97632E-45 0.18180E-53 0.19970E-49 - 2 4 0.12275E-05 0.10000E+01 0.93834E+04 0.68536E-44 0.24052E-52 0.14281E-48 - 2 4 0.12275E-05 0.10000E+01 0.75673E+04 0.47701E-43 0.31381E-51 0.10159E-47 - 2 4 0.12275E-05 0.10000E+01 0.61026E+04 0.32799E-42 0.40241E-50 0.71681E-47 - 2 4 0.12275E-05 0.10000E+01 0.49215E+04 0.22209E-41 0.50824E-49 0.49981E-46 - 2 4 0.12275E-05 0.10000E+01 0.39689E+04 0.14824E-40 0.64407E-48 0.34263E-45 - 2 4 0.12275E-05 0.10000E+01 0.32008E+04 0.31267E-38 0.27415E-45 0.72276E-43 - 2 4 0.12275E-05 0.10000E+01 0.25813E+04 0.11881E-29 0.25217E-36 0.24975E-34 - 2 4 0.12275E-05 0.10000E+01 0.20817E+04 0.16132E-13 0.14237E-19 0.26619E-18 + 2 4 0.12275E-05 0.10000E+01 0.80645E+05 0.87682E-10 0.56770E-21 0.16982E-14 + 2 4 0.12275E-05 0.10000E+01 0.65036E+05 0.11264E-09 0.13273E-20 0.21825E-14 + 2 4 0.12275E-05 0.10000E+01 0.52449E+05 0.14279E-09 0.30847E-20 0.27688E-14 + 2 4 0.12275E-05 0.10000E+01 0.42297E+05 0.17935E-09 0.71200E-20 0.34813E-14 + 2 4 0.12275E-05 0.10000E+01 0.34111E+05 0.22371E-09 0.16317E-19 0.43493E-14 + 2 4 0.12275E-05 0.10000E+01 0.27509E+05 0.27752E-09 0.37119E-19 0.54078E-14 + 2 4 0.12275E-05 0.10000E+01 0.22184E+05 0.34264E-09 0.83753E-19 0.66978E-14 + 2 4 0.12275E-05 0.10000E+01 0.17891E+05 0.42116E-09 0.18719E-18 0.82672E-14 + 2 4 0.12275E-05 0.10000E+01 0.14428E+05 0.51534E-09 0.41395E-18 0.10171E-13 + 2 4 0.12275E-05 0.10000E+01 0.11635E+05 0.62765E-09 0.90729E-18 0.12472E-13 + 2 4 0.12275E-05 0.10000E+01 0.93834E+04 0.76062E-09 0.19906E-17 0.15238E-13 + 2 4 0.12275E-05 0.10000E+01 0.75673E+04 0.91704E-09 0.44943E-17 0.18538E-13 + 2 4 0.12275E-05 0.10000E+01 0.61026E+04 0.11005E-08 0.10992E-16 0.22439E-13 + 2 4 0.12275E-05 0.10000E+01 0.49215E+04 0.13171E-08 0.30704E-16 0.26996E-13 + 2 4 0.12275E-05 0.10000E+01 0.39689E+04 0.15803E-08 0.98711E-16 0.32247E-13 + 2 4 0.12275E-05 0.10000E+01 0.32008E+04 0.19207E-08 0.34959E-15 0.38216E-13 + 2 4 0.12275E-05 0.10000E+01 0.25813E+04 0.24058E-08 0.12942E-14 0.44942E-13 + 2 4 0.12275E-05 0.10000E+01 0.20817E+04 0.31776E-08 0.48340E-14 0.52539E-13 2 4 0.12275E-05 0.10000E+01 0.16788E+04 0.45236E-08 0.17898E-13 0.61313E-13 2 4 0.12275E-05 0.10000E+01 0.13538E+04 0.70065E-08 0.65358E-13 0.71932E-13 2 4 0.12275E-05 0.10000E+01 0.10918E+04 0.11700E-07 0.23603E-12 0.85667E-13 @@ -12100,24 +12100,24 @@ VERSION 2.8.2 2 4 0.12275E-05 0.10000E+01 0.24221E+03 0.75016E-06 0.66927E-09 0.84304E-12 2 4 0.12275E-05 0.10000E+01 0.19533E+03 0.11720E-05 0.12704E-08 0.12163E-11 2 4 0.12275E-05 0.10000E+01 0.15752E+03 0.11720E-05 0.12704E-08 0.12163E-11 - 2 4 0.21419E-05 0.10000E+01 0.80645E+05 0.21221E-52 0.15944E-63 0.70527E-57 - 2 4 0.21419E-05 0.10000E+01 0.65036E+05 0.18014E-51 0.25388E-62 0.59921E-56 - 2 4 0.21419E-05 0.10000E+01 0.52449E+05 0.15353E-50 0.34296E-61 0.51104E-55 - 2 4 0.21419E-05 0.10000E+01 0.42297E+05 0.11602E-49 0.46983E-60 0.38668E-54 - 2 4 0.21419E-05 0.10000E+01 0.34111E+05 0.84287E-49 0.65286E-59 0.28157E-53 - 2 4 0.21419E-05 0.10000E+01 0.27509E+05 0.61203E-48 0.90186E-58 0.20518E-52 - 2 4 0.21419E-05 0.10000E+01 0.22184E+05 0.44364E-47 0.12352E-56 0.14954E-51 - 2 4 0.21419E-05 0.10000E+01 0.17891E+05 0.31954E-46 0.16782E-55 0.10858E-50 - 2 4 0.21419E-05 0.10000E+01 0.14428E+05 0.22843E-45 0.22668E-54 0.78480E-50 - 2 4 0.21419E-05 0.10000E+01 0.11635E+05 0.16224E-44 0.30454E-53 0.56500E-49 - 2 4 0.21419E-05 0.10000E+01 0.93834E+04 0.11455E-43 0.40577E-52 0.40533E-48 - 2 4 0.21419E-05 0.10000E+01 0.75673E+04 0.80263E-43 0.53379E-51 0.28945E-47 - 2 4 0.21419E-05 0.10000E+01 0.61026E+04 0.55614E-42 0.69026E-50 0.20525E-46 - 2 4 0.21419E-05 0.10000E+01 0.49215E+04 0.37955E-41 0.87542E-49 0.14406E-45 - 2 4 0.21419E-05 0.10000E+01 0.39689E+04 0.25451E-40 0.10952E-47 0.99653E-45 - 2 4 0.21419E-05 0.10000E+01 0.32008E+04 0.53160E-38 0.43834E-45 0.21281E-42 - 2 4 0.21419E-05 0.10000E+01 0.25813E+04 0.19236E-29 0.34147E-36 0.74461E-34 - 2 4 0.21419E-05 0.10000E+01 0.20817E+04 0.24057E-13 0.15499E-19 0.78242E-18 + 2 4 0.21419E-05 0.10000E+01 0.80645E+05 0.14325E-09 0.92973E-21 0.47592E-14 + 2 4 0.21419E-05 0.10000E+01 0.65036E+05 0.18405E-09 0.21769E-20 0.61170E-14 + 2 4 0.21419E-05 0.10000E+01 0.52449E+05 0.23338E-09 0.50696E-20 0.77612E-14 + 2 4 0.21419E-05 0.10000E+01 0.42297E+05 0.29322E-09 0.11735E-19 0.97603E-14 + 2 4 0.21419E-05 0.10000E+01 0.34111E+05 0.36593E-09 0.26991E-19 0.12197E-13 + 2 4 0.21419E-05 0.10000E+01 0.27509E+05 0.45426E-09 0.61677E-19 0.15172E-13 + 2 4 0.21419E-05 0.10000E+01 0.22184E+05 0.56140E-09 0.13991E-18 0.18802E-13 + 2 4 0.21419E-05 0.10000E+01 0.17891E+05 0.69092E-09 0.31456E-18 0.23225E-13 + 2 4 0.21419E-05 0.10000E+01 0.14428E+05 0.84683E-09 0.69968E-18 0.28602E-13 + 2 4 0.21419E-05 0.10000E+01 0.11635E+05 0.10335E-08 0.15383E-17 0.35117E-13 + 2 4 0.21419E-05 0.10000E+01 0.93834E+04 0.12554E-08 0.33546E-17 0.42974E-13 + 2 4 0.21419E-05 0.10000E+01 0.75673E+04 0.15172E-08 0.73622E-17 0.52388E-13 + 2 4 0.21419E-05 0.10000E+01 0.61026E+04 0.18242E-08 0.16834E-16 0.63575E-13 + 2 4 0.21419E-05 0.10000E+01 0.49215E+04 0.21835E-08 0.42277E-16 0.76725E-13 + 2 4 0.21419E-05 0.10000E+01 0.39689E+04 0.26088E-08 0.12134E-15 0.91977E-13 + 2 4 0.21419E-05 0.10000E+01 0.32008E+04 0.31299E-08 0.39450E-15 0.10941E-12 + 2 4 0.21419E-05 0.10000E+01 0.25813E+04 0.38134E-08 0.13869E-14 0.12906E-12 + 2 4 0.21419E-05 0.10000E+01 0.20817E+04 0.48009E-08 0.50308E-14 0.15104E-12 2 4 0.21419E-05 0.10000E+01 0.16788E+04 0.63808E-08 0.18292E-13 0.17573E-12 2 4 0.21419E-05 0.10000E+01 0.13538E+04 0.91166E-08 0.65935E-13 0.20408E-12 2 4 0.21419E-05 0.10000E+01 0.10918E+04 0.14078E-07 0.23566E-12 0.23811E-12 @@ -12130,24 +12130,24 @@ VERSION 2.8.2 2 4 0.21419E-05 0.10000E+01 0.24221E+03 0.73966E-06 0.65080E-09 0.15586E-11 2 4 0.21419E-05 0.10000E+01 0.19533E+03 0.11512E-05 0.12349E-08 0.21692E-11 2 4 0.21419E-05 0.10000E+01 0.15752E+03 0.11512E-05 0.12349E-08 0.21692E-11 - 2 4 0.37375E-05 0.10000E+01 0.80645E+05 0.34522E-52 0.25947E-63 0.19320E-56 - 2 4 0.37375E-05 0.10000E+01 0.65036E+05 0.29314E-51 0.41323E-62 0.16417E-55 - 2 4 0.37375E-05 0.10000E+01 0.52449E+05 0.24988E-50 0.55850E-61 0.14003E-54 - 2 4 0.37375E-05 0.10000E+01 0.42297E+05 0.18890E-49 0.76570E-60 0.10598E-53 - 2 4 0.37375E-05 0.10000E+01 0.34111E+05 0.13734E-48 0.10653E-58 0.77200E-53 - 2 4 0.37375E-05 0.10000E+01 0.27509E+05 0.99831E-48 0.14743E-57 0.56290E-52 - 2 4 0.37375E-05 0.10000E+01 0.22184E+05 0.72486E-47 0.20249E-56 0.41063E-51 - 2 4 0.37375E-05 0.10000E+01 0.17891E+05 0.52338E-46 0.27617E-55 0.29856E-50 - 2 4 0.37375E-05 0.10000E+01 0.14428E+05 0.37542E-45 0.37473E-54 0.21618E-49 - 2 4 0.37375E-05 0.10000E+01 0.11635E+05 0.26777E-44 0.50608E-53 0.15598E-48 - 2 4 0.37375E-05 0.10000E+01 0.93834E+04 0.19000E-43 0.67853E-52 0.11219E-47 - 2 4 0.37375E-05 0.10000E+01 0.75673E+04 0.13391E-42 0.89939E-51 0.80365E-47 - 2 4 0.37375E-05 0.10000E+01 0.61026E+04 0.93445E-42 0.11734E-49 0.57214E-46 - 2 4 0.37375E-05 0.10000E+01 0.49215E+04 0.64296E-41 0.15006E-48 0.40367E-45 - 2 4 0.37375E-05 0.10000E+01 0.39689E+04 0.43456E-40 0.18798E-47 0.28123E-44 - 2 4 0.37375E-05 0.10000E+01 0.32008E+04 0.90921E-38 0.73273E-45 0.60638E-42 - 2 4 0.37375E-05 0.10000E+01 0.25813E+04 0.32155E-29 0.50664E-36 0.21446E-33 - 2 4 0.37375E-05 0.10000E+01 0.20817E+04 0.37710E-13 0.17623E-19 0.22371E-17 + 2 4 0.37375E-05 0.10000E+01 0.80645E+05 0.23302E-09 0.15155E-20 0.13037E-13 + 2 4 0.37375E-05 0.10000E+01 0.65036E+05 0.29942E-09 0.35527E-20 0.16757E-13 + 2 4 0.37375E-05 0.10000E+01 0.52449E+05 0.37974E-09 0.82885E-20 0.21264E-13 + 2 4 0.37375E-05 0.10000E+01 0.42297E+05 0.47724E-09 0.19232E-19 0.26745E-13 + 2 4 0.37375E-05 0.10000E+01 0.34111E+05 0.59584E-09 0.44375E-19 0.33431E-13 + 2 4 0.37375E-05 0.10000E+01 0.27509E+05 0.74012E-09 0.10180E-18 0.41597E-13 + 2 4 0.37375E-05 0.10000E+01 0.22184E+05 0.91544E-09 0.23200E-18 0.51573E-13 + 2 4 0.37375E-05 0.10000E+01 0.17891E+05 0.11279E-08 0.52452E-18 0.63745E-13 + 2 4 0.37375E-05 0.10000E+01 0.14428E+05 0.13844E-08 0.11739E-17 0.78568E-13 + 2 4 0.37375E-05 0.10000E+01 0.11635E+05 0.16926E-08 0.25952E-17 0.96566E-13 + 2 4 0.37375E-05 0.10000E+01 0.93834E+04 0.20605E-08 0.56670E-17 0.11833E-12 + 2 4 0.37375E-05 0.10000E+01 0.75673E+04 0.24965E-08 0.12298E-16 0.14449E-12 + 2 4 0.37375E-05 0.10000E+01 0.61026E+04 0.30089E-08 0.27056E-16 0.17572E-12 + 2 4 0.37375E-05 0.10000E+01 0.49215E+04 0.36074E-08 0.62770E-16 0.21262E-12 + 2 4 0.37375E-05 0.10000E+01 0.39689E+04 0.43066E-08 0.16137E-15 0.25569E-12 + 2 4 0.37375E-05 0.10000E+01 0.32008E+04 0.51360E-08 0.47202E-15 0.30522E-12 + 2 4 0.37375E-05 0.10000E+01 0.25813E+04 0.61601E-08 0.15395E-14 0.36131E-12 + 2 4 0.37375E-05 0.10000E+01 0.20817E+04 0.75182E-08 0.53388E-14 0.42399E-12 2 4 0.37375E-05 0.10000E+01 0.16788E+04 0.94971E-08 0.18902E-13 0.49353E-12 2 4 0.37375E-05 0.10000E+01 0.13538E+04 0.12659E-07 0.66936E-13 0.57106E-12 2 4 0.37375E-05 0.10000E+01 0.10918E+04 0.18070E-07 0.23608E-12 0.65934E-12 @@ -12160,24 +12160,24 @@ VERSION 2.8.2 2 4 0.37375E-05 0.10000E+01 0.24221E+03 0.73091E-06 0.63055E-09 0.30083E-11 2 4 0.37375E-05 0.10000E+01 0.19533E+03 0.11314E-05 0.11959E-08 0.39975E-11 2 4 0.37375E-05 0.10000E+01 0.15752E+03 0.11314E-05 0.11959E-08 0.39975E-11 - 2 4 0.65217E-05 0.10000E+01 0.80645E+05 0.56078E-52 0.42159E-63 0.49084E-56 - 2 4 0.65217E-05 0.10000E+01 0.65036E+05 0.47627E-51 0.67152E-62 0.41712E-55 - 2 4 0.65217E-05 0.10000E+01 0.52449E+05 0.40606E-50 0.90795E-61 0.35583E-54 - 2 4 0.65217E-05 0.10000E+01 0.42297E+05 0.30707E-49 0.12456E-59 0.26934E-53 - 2 4 0.65217E-05 0.10000E+01 0.34111E+05 0.22337E-48 0.17346E-58 0.19625E-52 - 2 4 0.65217E-05 0.10000E+01 0.27509E+05 0.16251E-47 0.24043E-57 0.14316E-51 - 2 4 0.65217E-05 0.10000E+01 0.22184E+05 0.11815E-46 0.33096E-56 0.10450E-50 - 2 4 0.65217E-05 0.10000E+01 0.17891E+05 0.85483E-46 0.45273E-55 0.76054E-50 - 2 4 0.65217E-05 0.10000E+01 0.14428E+05 0.61483E-45 0.61652E-54 0.55139E-49 - 2 4 0.65217E-05 0.10000E+01 0.11635E+05 0.43999E-44 0.83609E-53 0.39848E-48 - 2 4 0.65217E-05 0.10000E+01 0.93834E+04 0.31343E-43 0.11266E-51 0.28715E-47 - 2 4 0.65217E-05 0.10000E+01 0.75673E+04 0.22195E-42 0.15026E-50 0.20616E-46 - 2 4 0.65217E-05 0.10000E+01 0.61026E+04 0.15577E-41 0.19755E-49 0.14718E-45 - 2 4 0.65217E-05 0.10000E+01 0.49215E+04 0.10794E-40 0.25486E-48 0.10422E-44 - 2 4 0.65217E-05 0.10000E+01 0.39689E+04 0.73540E-40 0.32148E-47 0.72973E-44 - 2 4 0.65217E-05 0.10000E+01 0.32008E+04 0.15482E-37 0.12461E-44 0.15841E-41 - 2 4 0.65217E-05 0.10000E+01 0.25813E+04 0.54369E-29 0.80715E-36 0.56460E-33 - 2 4 0.65217E-05 0.10000E+01 0.20817E+04 0.61095E-13 0.21799E-19 0.58705E-17 + 2 4 0.65217E-05 0.10000E+01 0.80645E+05 0.37849E-09 0.24656E-20 0.33118E-13 + 2 4 0.65217E-05 0.10000E+01 0.65036E+05 0.48638E-09 0.57858E-20 0.42572E-13 + 2 4 0.65217E-05 0.10000E+01 0.52449E+05 0.61695E-09 0.13518E-19 0.54025E-13 + 2 4 0.65217E-05 0.10000E+01 0.42297E+05 0.77553E-09 0.31426E-19 0.67959E-13 + 2 4 0.65217E-05 0.10000E+01 0.34111E+05 0.96858E-09 0.72693E-19 0.84962E-13 + 2 4 0.65217E-05 0.10000E+01 0.27509E+05 0.12037E-08 0.16728E-18 0.10574E-12 + 2 4 0.65217E-05 0.10000E+01 0.22184E+05 0.14898E-08 0.38269E-18 0.13115E-12 + 2 4 0.65217E-05 0.10000E+01 0.17891E+05 0.18373E-08 0.86918E-18 0.16217E-12 + 2 4 0.65217E-05 0.10000E+01 0.14428E+05 0.22578E-08 0.19557E-17 0.20000E-12 + 2 4 0.65217E-05 0.10000E+01 0.11635E+05 0.27645E-08 0.43485E-17 0.24600E-12 + 2 4 0.65217E-05 0.10000E+01 0.93834E+04 0.33715E-08 0.95377E-17 0.30173E-12 + 2 4 0.65217E-05 0.10000E+01 0.75673E+04 0.40935E-08 0.20667E-16 0.36890E-12 + 2 4 0.65217E-05 0.10000E+01 0.61026E+04 0.49452E-08 0.44690E-16 0.44931E-12 + 2 4 0.65217E-05 0.10000E+01 0.49215E+04 0.59415E-08 0.98936E-16 0.54471E-12 + 2 4 0.65217E-05 0.10000E+01 0.39689E+04 0.71004E-08 0.23406E-15 0.65658E-12 + 2 4 0.65217E-05 0.10000E+01 0.32008E+04 0.84528E-08 0.61820E-15 0.78595E-12 + 2 4 0.65217E-05 0.10000E+01 0.25813E+04 0.10063E-07 0.18441E-14 0.93318E-12 + 2 4 0.65217E-05 0.10000E+01 0.20817E+04 0.12071E-07 0.60194E-14 0.10982E-11 2 4 0.65217E-05 0.10000E+01 0.16788E+04 0.14769E-07 0.20541E-13 0.12807E-11 2 4 0.65217E-05 0.10000E+01 0.13538E+04 0.18736E-07 0.71075E-13 0.14816E-11 2 4 0.65217E-05 0.10000E+01 0.10918E+04 0.25070E-07 0.24664E-12 0.17040E-11 @@ -12190,24 +12190,24 @@ VERSION 2.8.2 2 4 0.65217E-05 0.10000E+01 0.24221E+03 0.75401E-06 0.63377E-09 0.59861E-11 2 4 0.65217E-05 0.10000E+01 0.19533E+03 0.11587E-05 0.12012E-08 0.75884E-11 2 4 0.65217E-05 0.10000E+01 0.15752E+03 0.11587E-05 0.12012E-08 0.75884E-11 - 2 4 0.11380E-04 0.10000E+01 0.80645E+05 0.97853E-52 0.73564E-63 0.85648E-56 - 2 4 0.11380E-04 0.10000E+01 0.65036E+05 0.83106E-51 0.11718E-61 0.72786E-55 - 2 4 0.11380E-04 0.10000E+01 0.52449E+05 0.70855E-50 0.15843E-60 0.62089E-54 - 2 4 0.11380E-04 0.10000E+01 0.42297E+05 0.53582E-49 0.21735E-59 0.46998E-53 - 2 4 0.11380E-04 0.10000E+01 0.34111E+05 0.38976E-48 0.30268E-58 0.34244E-52 - 2 4 0.11380E-04 0.10000E+01 0.27509E+05 0.28357E-47 0.41954E-57 0.24980E-51 - 2 4 0.11380E-04 0.10000E+01 0.22184E+05 0.20617E-46 0.57750E-56 0.18235E-50 - 2 4 0.11380E-04 0.10000E+01 0.17891E+05 0.14916E-45 0.78999E-55 0.13271E-49 - 2 4 0.11380E-04 0.10000E+01 0.14428E+05 0.10728E-44 0.10758E-53 0.96214E-49 - 2 4 0.11380E-04 0.10000E+01 0.11635E+05 0.76775E-44 0.14589E-52 0.69532E-48 - 2 4 0.11380E-04 0.10000E+01 0.93834E+04 0.54692E-43 0.19658E-51 0.50106E-47 - 2 4 0.11380E-04 0.10000E+01 0.75673E+04 0.38729E-42 0.26219E-50 0.35973E-46 - 2 4 0.11380E-04 0.10000E+01 0.61026E+04 0.27181E-41 0.34471E-49 0.25682E-45 - 2 4 0.11380E-04 0.10000E+01 0.49215E+04 0.18835E-40 0.44471E-48 0.18186E-44 - 2 4 0.11380E-04 0.10000E+01 0.39689E+04 0.12832E-39 0.56096E-47 0.12733E-43 - 2 4 0.11380E-04 0.10000E+01 0.32008E+04 0.27015E-37 0.21743E-44 0.27641E-41 - 2 4 0.11380E-04 0.10000E+01 0.25813E+04 0.94870E-29 0.14084E-35 0.98519E-33 - 2 4 0.11380E-04 0.10000E+01 0.20817E+04 0.10661E-12 0.38038E-19 0.10244E-16 + 2 4 0.11380E-04 0.10000E+01 0.80645E+05 0.66044E-09 0.43023E-20 0.57790E-13 + 2 4 0.11380E-04 0.10000E+01 0.65036E+05 0.84870E-09 0.10096E-19 0.74285E-13 + 2 4 0.11380E-04 0.10000E+01 0.52449E+05 0.10765E-08 0.23587E-19 0.94270E-13 + 2 4 0.11380E-04 0.10000E+01 0.42297E+05 0.13533E-08 0.54837E-19 0.11858E-12 + 2 4 0.11380E-04 0.10000E+01 0.34111E+05 0.16901E-08 0.12684E-18 0.14825E-12 + 2 4 0.11380E-04 0.10000E+01 0.27509E+05 0.21004E-08 0.29189E-18 0.18451E-12 + 2 4 0.11380E-04 0.10000E+01 0.22184E+05 0.25997E-08 0.66777E-18 0.22884E-12 + 2 4 0.11380E-04 0.10000E+01 0.17891E+05 0.32059E-08 0.15167E-17 0.28298E-12 + 2 4 0.11380E-04 0.10000E+01 0.14428E+05 0.39397E-08 0.34126E-17 0.34899E-12 + 2 4 0.11380E-04 0.10000E+01 0.11635E+05 0.48238E-08 0.75879E-17 0.42926E-12 + 2 4 0.11380E-04 0.10000E+01 0.93834E+04 0.58831E-08 0.16643E-16 0.52650E-12 + 2 4 0.11380E-04 0.10000E+01 0.75673E+04 0.71430E-08 0.36062E-16 0.64370E-12 + 2 4 0.11380E-04 0.10000E+01 0.61026E+04 0.86291E-08 0.77982E-16 0.78401E-12 + 2 4 0.11380E-04 0.10000E+01 0.49215E+04 0.10367E-07 0.17264E-15 0.95048E-12 + 2 4 0.11380E-04 0.10000E+01 0.39689E+04 0.12390E-07 0.40842E-15 0.11457E-11 + 2 4 0.11380E-04 0.10000E+01 0.32008E+04 0.14750E-07 0.10787E-14 0.13714E-11 + 2 4 0.11380E-04 0.10000E+01 0.25813E+04 0.17559E-07 0.32178E-14 0.16283E-11 + 2 4 0.11380E-04 0.10000E+01 0.20817E+04 0.21063E-07 0.10503E-13 0.19162E-11 2 4 0.11380E-04 0.10000E+01 0.16788E+04 0.25771E-07 0.35842E-13 0.22348E-11 2 4 0.11380E-04 0.10000E+01 0.13538E+04 0.32694E-07 0.12402E-12 0.25853E-11 2 4 0.11380E-04 0.10000E+01 0.10918E+04 0.43746E-07 0.43036E-12 0.29733E-11 @@ -12220,24 +12220,24 @@ VERSION 2.8.2 2 4 0.11380E-04 0.10000E+01 0.24221E+03 0.13157E-05 0.11059E-08 0.10445E-10 2 4 0.11380E-04 0.10000E+01 0.19533E+03 0.20219E-05 0.20961E-08 0.13241E-10 2 4 0.11380E-04 0.10000E+01 0.15752E+03 0.20219E-05 0.20961E-08 0.13241E-10 - 2 4 0.19857E-04 0.10000E+01 0.80645E+05 0.17075E-51 0.12837E-62 0.14945E-55 - 2 4 0.19857E-04 0.10000E+01 0.65036E+05 0.14502E-50 0.20447E-61 0.12701E-54 - 2 4 0.19857E-04 0.10000E+01 0.52449E+05 0.12364E-49 0.27645E-60 0.10834E-53 - 2 4 0.19857E-04 0.10000E+01 0.42297E+05 0.93497E-49 0.37926E-59 0.82009E-53 - 2 4 0.19857E-04 0.10000E+01 0.34111E+05 0.68011E-48 0.52816E-58 0.59755E-52 - 2 4 0.19857E-04 0.10000E+01 0.27509E+05 0.49481E-47 0.73207E-57 0.43588E-51 - 2 4 0.19857E-04 0.10000E+01 0.22184E+05 0.35976E-46 0.10077E-55 0.31819E-50 - 2 4 0.19857E-04 0.10000E+01 0.17891E+05 0.26028E-45 0.13785E-54 0.23157E-49 - 2 4 0.19857E-04 0.10000E+01 0.14428E+05 0.18720E-44 0.18772E-53 0.16789E-48 - 2 4 0.19857E-04 0.10000E+01 0.11635E+05 0.13397E-43 0.25457E-52 0.12133E-47 - 2 4 0.19857E-04 0.10000E+01 0.93834E+04 0.95433E-43 0.34302E-51 0.87431E-47 - 2 4 0.19857E-04 0.10000E+01 0.75673E+04 0.67580E-42 0.45751E-50 0.62771E-46 - 2 4 0.19857E-04 0.10000E+01 0.61026E+04 0.47430E-41 0.60149E-49 0.44814E-45 - 2 4 0.19857E-04 0.10000E+01 0.49215E+04 0.32865E-40 0.77599E-48 0.31734E-44 - 2 4 0.19857E-04 0.10000E+01 0.39689E+04 0.22391E-39 0.97883E-47 0.22219E-43 - 2 4 0.19857E-04 0.10000E+01 0.32008E+04 0.47140E-37 0.37941E-44 0.48233E-41 - 2 4 0.19857E-04 0.10000E+01 0.25813E+04 0.16554E-28 0.24576E-35 0.17191E-32 - 2 4 0.19857E-04 0.10000E+01 0.20817E+04 0.18602E-12 0.66374E-19 0.17875E-16 + 2 4 0.19857E-04 0.10000E+01 0.80645E+05 0.11524E-08 0.75073E-20 0.10084E-12 + 2 4 0.19857E-04 0.10000E+01 0.65036E+05 0.14809E-08 0.17617E-19 0.12962E-12 + 2 4 0.19857E-04 0.10000E+01 0.52449E+05 0.18785E-08 0.41159E-19 0.16449E-12 + 2 4 0.19857E-04 0.10000E+01 0.42297E+05 0.23614E-08 0.95687E-19 0.20692E-12 + 2 4 0.19857E-04 0.10000E+01 0.34111E+05 0.29491E-08 0.22134E-18 0.25869E-12 + 2 4 0.19857E-04 0.10000E+01 0.27509E+05 0.36651E-08 0.50933E-18 0.32197E-12 + 2 4 0.19857E-04 0.10000E+01 0.22184E+05 0.45363E-08 0.11652E-17 0.39931E-12 + 2 4 0.19857E-04 0.10000E+01 0.17891E+05 0.55941E-08 0.26465E-17 0.49378E-12 + 2 4 0.19857E-04 0.10000E+01 0.14428E+05 0.68745E-08 0.59547E-17 0.60897E-12 + 2 4 0.19857E-04 0.10000E+01 0.11635E+05 0.84173E-08 0.13240E-16 0.74903E-12 + 2 4 0.19857E-04 0.10000E+01 0.93834E+04 0.10266E-07 0.29040E-16 0.91870E-12 + 2 4 0.19857E-04 0.10000E+01 0.75673E+04 0.12464E-07 0.62927E-16 0.11232E-11 + 2 4 0.19857E-04 0.10000E+01 0.61026E+04 0.15057E-07 0.13607E-15 0.13681E-11 + 2 4 0.19857E-04 0.10000E+01 0.49215E+04 0.18091E-07 0.30124E-15 0.16585E-11 + 2 4 0.19857E-04 0.10000E+01 0.39689E+04 0.21619E-07 0.71266E-15 0.19992E-11 + 2 4 0.19857E-04 0.10000E+01 0.32008E+04 0.25737E-07 0.18823E-14 0.23931E-11 + 2 4 0.19857E-04 0.10000E+01 0.25813E+04 0.30640E-07 0.56149E-14 0.28414E-11 + 2 4 0.19857E-04 0.10000E+01 0.20817E+04 0.36754E-07 0.18328E-13 0.33437E-11 2 4 0.19857E-04 0.10000E+01 0.16788E+04 0.44969E-07 0.62543E-13 0.38995E-11 2 4 0.19857E-04 0.10000E+01 0.13538E+04 0.57049E-07 0.21641E-12 0.45112E-11 2 4 0.19857E-04 0.10000E+01 0.10918E+04 0.76334E-07 0.75096E-12 0.51882E-11 @@ -12250,24 +12250,24 @@ VERSION 2.8.2 2 4 0.19857E-04 0.10000E+01 0.24221E+03 0.22958E-05 0.19297E-08 0.18226E-10 2 4 0.19857E-04 0.10000E+01 0.19533E+03 0.35281E-05 0.36576E-08 0.23105E-10 2 4 0.19857E-04 0.10000E+01 0.15752E+03 0.35281E-05 0.36576E-08 0.23105E-10 - 2 4 0.34650E-04 0.10000E+01 0.80645E+05 0.29794E-51 0.22399E-62 0.26078E-55 - 2 4 0.34650E-04 0.10000E+01 0.65036E+05 0.25304E-50 0.35678E-61 0.22162E-54 - 2 4 0.34650E-04 0.10000E+01 0.52449E+05 0.21574E-49 0.48240E-60 0.18905E-53 - 2 4 0.34650E-04 0.10000E+01 0.42297E+05 0.16315E-48 0.66179E-59 0.14310E-52 - 2 4 0.34650E-04 0.10000E+01 0.34111E+05 0.11868E-47 0.92160E-58 0.10427E-51 - 2 4 0.34650E-04 0.10000E+01 0.27509E+05 0.86342E-47 0.12774E-56 0.76059E-51 - 2 4 0.34650E-04 0.10000E+01 0.22184E+05 0.62776E-46 0.17584E-55 0.55522E-50 - 2 4 0.34650E-04 0.10000E+01 0.17891E+05 0.45417E-45 0.24054E-54 0.40407E-49 - 2 4 0.34650E-04 0.10000E+01 0.14428E+05 0.32666E-44 0.32756E-53 0.29295E-48 - 2 4 0.34650E-04 0.10000E+01 0.11635E+05 0.23377E-43 0.44421E-52 0.21171E-47 - 2 4 0.34650E-04 0.10000E+01 0.93834E+04 0.16653E-42 0.59855E-51 0.15256E-46 - 2 4 0.34650E-04 0.10000E+01 0.75673E+04 0.11792E-41 0.79833E-50 0.10953E-45 - 2 4 0.34650E-04 0.10000E+01 0.61026E+04 0.82762E-41 0.10496E-48 0.78197E-45 - 2 4 0.34650E-04 0.10000E+01 0.49215E+04 0.57348E-40 0.13541E-47 0.55374E-44 - 2 4 0.34650E-04 0.10000E+01 0.39689E+04 0.39072E-39 0.17080E-46 0.38771E-43 - 2 4 0.34650E-04 0.10000E+01 0.32008E+04 0.82257E-37 0.66205E-44 0.84163E-41 - 2 4 0.34650E-04 0.10000E+01 0.25813E+04 0.28886E-28 0.42884E-35 0.29997E-32 - 2 4 0.34650E-04 0.10000E+01 0.20817E+04 0.32460E-12 0.11582E-18 0.31190E-16 + 2 4 0.34650E-04 0.10000E+01 0.80645E+05 0.20109E-08 0.13100E-19 0.17596E-12 + 2 4 0.34650E-04 0.10000E+01 0.65036E+05 0.25841E-08 0.30740E-19 0.22618E-12 + 2 4 0.34650E-04 0.10000E+01 0.52449E+05 0.32778E-08 0.71819E-19 0.28703E-12 + 2 4 0.34650E-04 0.10000E+01 0.42297E+05 0.41204E-08 0.16697E-18 0.36107E-12 + 2 4 0.34650E-04 0.10000E+01 0.34111E+05 0.51461E-08 0.38622E-18 0.45141E-12 + 2 4 0.34650E-04 0.10000E+01 0.27509E+05 0.63953E-08 0.88875E-18 0.56181E-12 + 2 4 0.34650E-04 0.10000E+01 0.22184E+05 0.79155E-08 0.20332E-17 0.69678E-12 + 2 4 0.34650E-04 0.10000E+01 0.17891E+05 0.97615E-08 0.46180E-17 0.86162E-12 + 2 4 0.34650E-04 0.10000E+01 0.14428E+05 0.11996E-07 0.10391E-16 0.10626E-11 + 2 4 0.34650E-04 0.10000E+01 0.11635E+05 0.14688E-07 0.23104E-16 0.13070E-11 + 2 4 0.34650E-04 0.10000E+01 0.93834E+04 0.17913E-07 0.50674E-16 0.16031E-11 + 2 4 0.34650E-04 0.10000E+01 0.75673E+04 0.21749E-07 0.10980E-15 0.19599E-11 + 2 4 0.34650E-04 0.10000E+01 0.61026E+04 0.26274E-07 0.23744E-15 0.23872E-11 + 2 4 0.34650E-04 0.10000E+01 0.49215E+04 0.31567E-07 0.52565E-15 0.28940E-11 + 2 4 0.34650E-04 0.10000E+01 0.39689E+04 0.37725E-07 0.12436E-14 0.34884E-11 + 2 4 0.34650E-04 0.10000E+01 0.32008E+04 0.44910E-07 0.32845E-14 0.41758E-11 + 2 4 0.34650E-04 0.10000E+01 0.25813E+04 0.53465E-07 0.97977E-14 0.49580E-11 + 2 4 0.34650E-04 0.10000E+01 0.20817E+04 0.64133E-07 0.31981E-13 0.58345E-11 2 4 0.34650E-04 0.10000E+01 0.16788E+04 0.78468E-07 0.10913E-12 0.68044E-11 2 4 0.34650E-04 0.10000E+01 0.13538E+04 0.99547E-07 0.37762E-12 0.78718E-11 2 4 0.34650E-04 0.10000E+01 0.10918E+04 0.13320E-06 0.13104E-11 0.90531E-11 @@ -12280,24 +12280,24 @@ VERSION 2.8.2 2 4 0.34650E-04 0.10000E+01 0.24221E+03 0.40061E-05 0.33672E-08 0.31804E-10 2 4 0.34650E-04 0.10000E+01 0.19533E+03 0.61563E-05 0.63823E-08 0.40317E-10 2 4 0.34650E-04 0.10000E+01 0.15752E+03 0.61563E-05 0.63823E-08 0.40317E-10 - 2 4 0.60462E-04 0.10000E+01 0.80645E+05 0.51989E-51 0.39085E-62 0.45505E-55 - 2 4 0.60462E-04 0.10000E+01 0.65036E+05 0.44154E-50 0.62256E-61 0.38671E-54 - 2 4 0.60462E-04 0.10000E+01 0.52449E+05 0.37645E-49 0.84175E-60 0.32988E-53 - 2 4 0.60462E-04 0.10000E+01 0.42297E+05 0.28468E-48 0.11548E-58 0.24970E-52 - 2 4 0.60462E-04 0.10000E+01 0.34111E+05 0.20708E-47 0.16081E-57 0.18194E-51 - 2 4 0.60462E-04 0.10000E+01 0.27509E+05 0.15066E-46 0.22290E-56 0.13272E-50 - 2 4 0.60462E-04 0.10000E+01 0.22184E+05 0.10954E-45 0.30683E-55 0.96882E-50 - 2 4 0.60462E-04 0.10000E+01 0.17891E+05 0.79250E-45 0.41972E-54 0.70509E-49 - 2 4 0.60462E-04 0.10000E+01 0.14428E+05 0.57000E-44 0.57157E-53 0.51119E-48 - 2 4 0.60462E-04 0.10000E+01 0.11635E+05 0.40791E-43 0.77513E-52 0.36942E-47 - 2 4 0.60462E-04 0.10000E+01 0.93834E+04 0.29058E-42 0.10444E-50 0.26621E-46 - 2 4 0.60462E-04 0.10000E+01 0.75673E+04 0.20577E-41 0.13930E-49 0.19112E-45 - 2 4 0.60462E-04 0.10000E+01 0.61026E+04 0.14441E-40 0.18314E-48 0.13645E-44 - 2 4 0.60462E-04 0.10000E+01 0.49215E+04 0.10007E-39 0.23627E-47 0.96625E-44 - 2 4 0.60462E-04 0.10000E+01 0.39689E+04 0.68178E-39 0.29804E-46 0.67653E-43 - 2 4 0.60462E-04 0.10000E+01 0.32008E+04 0.14353E-36 0.11552E-43 0.14686E-40 - 2 4 0.60462E-04 0.10000E+01 0.25813E+04 0.50405E-28 0.74830E-35 0.52343E-32 - 2 4 0.60462E-04 0.10000E+01 0.20817E+04 0.56640E-12 0.20210E-18 0.54425E-16 + 2 4 0.60462E-04 0.10000E+01 0.80645E+05 0.35089E-08 0.22858E-19 0.30704E-12 + 2 4 0.60462E-04 0.10000E+01 0.65036E+05 0.45092E-08 0.53639E-19 0.39468E-12 + 2 4 0.60462E-04 0.10000E+01 0.52449E+05 0.57196E-08 0.12532E-18 0.50086E-12 + 2 4 0.60462E-04 0.10000E+01 0.42297E+05 0.71899E-08 0.29135E-18 0.63004E-12 + 2 4 0.60462E-04 0.10000E+01 0.34111E+05 0.89796E-08 0.67393E-18 0.78768E-12 + 2 4 0.60462E-04 0.10000E+01 0.27509E+05 0.11159E-07 0.15508E-17 0.98033E-12 + 2 4 0.60462E-04 0.10000E+01 0.22184E+05 0.13812E-07 0.35479E-17 0.12158E-11 + 2 4 0.60462E-04 0.10000E+01 0.17891E+05 0.17033E-07 0.80581E-17 0.15035E-11 + 2 4 0.60462E-04 0.10000E+01 0.14428E+05 0.20932E-07 0.18131E-16 0.18542E-11 + 2 4 0.60462E-04 0.10000E+01 0.11635E+05 0.25629E-07 0.40314E-16 0.22806E-11 + 2 4 0.60462E-04 0.10000E+01 0.93834E+04 0.31257E-07 0.88423E-16 0.27973E-11 + 2 4 0.60462E-04 0.10000E+01 0.75673E+04 0.37951E-07 0.19160E-15 0.34200E-11 + 2 4 0.60462E-04 0.10000E+01 0.61026E+04 0.45847E-07 0.41432E-15 0.41655E-11 + 2 4 0.60462E-04 0.10000E+01 0.49215E+04 0.55083E-07 0.91722E-15 0.50499E-11 + 2 4 0.60462E-04 0.10000E+01 0.39689E+04 0.65827E-07 0.21699E-14 0.60871E-11 + 2 4 0.60462E-04 0.10000E+01 0.32008E+04 0.78365E-07 0.57313E-14 0.72864E-11 + 2 4 0.60462E-04 0.10000E+01 0.25813E+04 0.93293E-07 0.17096E-13 0.86514E-11 + 2 4 0.60462E-04 0.10000E+01 0.20817E+04 0.11191E-06 0.55805E-13 0.10181E-10 2 4 0.60462E-04 0.10000E+01 0.16788E+04 0.13692E-06 0.19043E-12 0.11873E-10 2 4 0.60462E-04 0.10000E+01 0.13538E+04 0.17370E-06 0.65892E-12 0.13736E-10 2 4 0.60462E-04 0.10000E+01 0.10918E+04 0.23242E-06 0.22865E-11 0.15797E-10 @@ -12310,24 +12310,24 @@ VERSION 2.8.2 2 4 0.60462E-04 0.10000E+01 0.24221E+03 0.69903E-05 0.58756E-08 0.55496E-10 2 4 0.60462E-04 0.10000E+01 0.19533E+03 0.10742E-04 0.11137E-07 0.70351E-10 2 4 0.60462E-04 0.10000E+01 0.15752E+03 0.10742E-04 0.11137E-07 0.70351E-10 - 2 4 0.10550E-03 0.10000E+01 0.80645E+05 0.90718E-51 0.68201E-62 0.79403E-55 - 2 4 0.10550E-03 0.10000E+01 0.65036E+05 0.77047E-50 0.10863E-60 0.67479E-54 - 2 4 0.10550E-03 0.10000E+01 0.52449E+05 0.65689E-49 0.14688E-59 0.57562E-53 - 2 4 0.10550E-03 0.10000E+01 0.42297E+05 0.49675E-48 0.20150E-58 0.43572E-52 - 2 4 0.10550E-03 0.10000E+01 0.34111E+05 0.36134E-47 0.28061E-57 0.31748E-51 - 2 4 0.10550E-03 0.10000E+01 0.27509E+05 0.26290E-46 0.38895E-56 0.23159E-50 - 2 4 0.10550E-03 0.10000E+01 0.22184E+05 0.19114E-45 0.53539E-55 0.16905E-49 - 2 4 0.10550E-03 0.10000E+01 0.17891E+05 0.13829E-44 0.73239E-54 0.12303E-48 - 2 4 0.10550E-03 0.10000E+01 0.14428E+05 0.99461E-44 0.99735E-53 0.89199E-48 - 2 4 0.10550E-03 0.10000E+01 0.11635E+05 0.71177E-43 0.13526E-51 0.64462E-47 - 2 4 0.10550E-03 0.10000E+01 0.93834E+04 0.50704E-42 0.18225E-50 0.46452E-46 - 2 4 0.10550E-03 0.10000E+01 0.75673E+04 0.35905E-41 0.24308E-49 0.33350E-45 - 2 4 0.10550E-03 0.10000E+01 0.61026E+04 0.25199E-40 0.31957E-48 0.23809E-44 - 2 4 0.10550E-03 0.10000E+01 0.49215E+04 0.17461E-39 0.41229E-47 0.16860E-43 - 2 4 0.10550E-03 0.10000E+01 0.39689E+04 0.11897E-38 0.52006E-46 0.11805E-42 - 2 4 0.10550E-03 0.10000E+01 0.32008E+04 0.25046E-36 0.20158E-43 0.25626E-40 - 2 4 0.10550E-03 0.10000E+01 0.25813E+04 0.87953E-28 0.13057E-34 0.91336E-32 - 2 4 0.10550E-03 0.10000E+01 0.20817E+04 0.98834E-12 0.35265E-18 0.94968E-16 + 2 4 0.10550E-03 0.10000E+01 0.80645E+05 0.61229E-08 0.39886E-19 0.53576E-12 + 2 4 0.10550E-03 0.10000E+01 0.65036E+05 0.78682E-08 0.93598E-19 0.68869E-12 + 2 4 0.10550E-03 0.10000E+01 0.52449E+05 0.99804E-08 0.21868E-18 0.87396E-12 + 2 4 0.10550E-03 0.10000E+01 0.42297E+05 0.12546E-07 0.50838E-18 0.10994E-11 + 2 4 0.10550E-03 0.10000E+01 0.34111E+05 0.15669E-07 0.11760E-17 0.13744E-11 + 2 4 0.10550E-03 0.10000E+01 0.27509E+05 0.19473E-07 0.27061E-17 0.17106E-11 + 2 4 0.10550E-03 0.10000E+01 0.22184E+05 0.24101E-07 0.61909E-17 0.21216E-11 + 2 4 0.10550E-03 0.10000E+01 0.17891E+05 0.29722E-07 0.14061E-16 0.26235E-11 + 2 4 0.10550E-03 0.10000E+01 0.14428E+05 0.36524E-07 0.31638E-16 0.32354E-11 + 2 4 0.10550E-03 0.10000E+01 0.11635E+05 0.44721E-07 0.70346E-16 0.39796E-11 + 2 4 0.10550E-03 0.10000E+01 0.93834E+04 0.54541E-07 0.15429E-15 0.48811E-11 + 2 4 0.10550E-03 0.10000E+01 0.75673E+04 0.66222E-07 0.33433E-15 0.59677E-11 + 2 4 0.10550E-03 0.10000E+01 0.61026E+04 0.80000E-07 0.72296E-15 0.72685E-11 + 2 4 0.10550E-03 0.10000E+01 0.49215E+04 0.96116E-07 0.16005E-14 0.88118E-11 + 2 4 0.10550E-03 0.10000E+01 0.39689E+04 0.11486E-06 0.37864E-14 0.10622E-10 + 2 4 0.10550E-03 0.10000E+01 0.32008E+04 0.13674E-06 0.10001E-13 0.12714E-10 + 2 4 0.10550E-03 0.10000E+01 0.25813E+04 0.16279E-06 0.29832E-13 0.15096E-10 + 2 4 0.10550E-03 0.10000E+01 0.20817E+04 0.19527E-06 0.97376E-13 0.17765E-10 2 4 0.10550E-03 0.10000E+01 0.16788E+04 0.23892E-06 0.33229E-12 0.20718E-10 2 4 0.10550E-03 0.10000E+01 0.13538E+04 0.30310E-06 0.11498E-11 0.23968E-10 2 4 0.10550E-03 0.10000E+01 0.10918E+04 0.40556E-06 0.39899E-11 0.27565E-10 @@ -12340,24 +12340,24 @@ VERSION 2.8.2 2 4 0.10550E-03 0.10000E+01 0.24221E+03 0.12198E-04 0.10253E-07 0.96837E-10 2 4 0.10550E-03 0.10000E+01 0.19533E+03 0.18745E-04 0.19433E-07 0.12276E-09 2 4 0.10550E-03 0.10000E+01 0.15752E+03 0.18745E-04 0.19433E-07 0.12276E-09 - 2 4 0.18409E-03 0.10000E+01 0.80645E+05 0.15830E-50 0.11901E-61 0.13855E-54 - 2 4 0.18409E-03 0.10000E+01 0.65036E+05 0.13444E-49 0.18956E-60 0.11775E-53 - 2 4 0.18409E-03 0.10000E+01 0.52449E+05 0.11462E-48 0.25630E-59 0.10044E-52 - 2 4 0.18409E-03 0.10000E+01 0.42297E+05 0.86680E-48 0.35161E-58 0.76030E-52 - 2 4 0.18409E-03 0.10000E+01 0.34111E+05 0.63052E-47 0.48965E-57 0.55398E-51 - 2 4 0.18409E-03 0.10000E+01 0.27509E+05 0.45874E-46 0.67869E-56 0.40410E-50 - 2 4 0.18409E-03 0.10000E+01 0.22184E+05 0.33353E-45 0.93423E-55 0.29499E-49 - 2 4 0.18409E-03 0.10000E+01 0.17891E+05 0.24130E-44 0.12780E-53 0.21469E-48 - 2 4 0.18409E-03 0.10000E+01 0.14428E+05 0.17355E-43 0.17403E-52 0.15565E-47 - 2 4 0.18409E-03 0.10000E+01 0.11635E+05 0.12420E-42 0.23601E-51 0.11248E-46 - 2 4 0.18409E-03 0.10000E+01 0.93834E+04 0.88475E-42 0.31801E-50 0.81057E-46 - 2 4 0.18409E-03 0.10000E+01 0.75673E+04 0.62652E-41 0.42415E-49 0.58194E-45 - 2 4 0.18409E-03 0.10000E+01 0.61026E+04 0.43971E-40 0.55764E-48 0.41546E-44 - 2 4 0.18409E-03 0.10000E+01 0.49215E+04 0.30469E-39 0.71941E-47 0.29421E-43 - 2 4 0.18409E-03 0.10000E+01 0.39689E+04 0.20759E-38 0.90747E-46 0.20599E-42 - 2 4 0.18409E-03 0.10000E+01 0.32008E+04 0.43703E-36 0.35175E-43 0.44716E-40 - 2 4 0.18409E-03 0.10000E+01 0.25813E+04 0.15347E-27 0.22784E-34 0.15938E-31 - 2 4 0.18409E-03 0.10000E+01 0.20817E+04 0.17246E-11 0.61535E-18 0.16571E-15 + 2 4 0.18409E-03 0.10000E+01 0.80645E+05 0.10684E-07 0.69599E-19 0.93487E-12 + 2 4 0.18409E-03 0.10000E+01 0.65036E+05 0.13730E-07 0.16332E-18 0.12017E-11 + 2 4 0.18409E-03 0.10000E+01 0.52449E+05 0.17415E-07 0.38158E-18 0.15250E-11 + 2 4 0.18409E-03 0.10000E+01 0.42297E+05 0.21892E-07 0.88710E-18 0.19183E-11 + 2 4 0.18409E-03 0.10000E+01 0.34111E+05 0.27341E-07 0.20520E-17 0.23983E-11 + 2 4 0.18409E-03 0.10000E+01 0.27509E+05 0.33978E-07 0.47220E-17 0.29849E-11 + 2 4 0.18409E-03 0.10000E+01 0.22184E+05 0.42055E-07 0.10803E-16 0.37020E-11 + 2 4 0.18409E-03 0.10000E+01 0.17891E+05 0.51863E-07 0.24535E-16 0.45778E-11 + 2 4 0.18409E-03 0.10000E+01 0.14428E+05 0.63733E-07 0.55206E-16 0.56457E-11 + 2 4 0.18409E-03 0.10000E+01 0.11635E+05 0.78036E-07 0.12275E-15 0.69441E-11 + 2 4 0.18409E-03 0.10000E+01 0.93834E+04 0.95171E-07 0.26923E-15 0.85172E-11 + 2 4 0.18409E-03 0.10000E+01 0.75673E+04 0.11555E-06 0.58339E-15 0.10413E-10 + 2 4 0.18409E-03 0.10000E+01 0.61026E+04 0.13959E-06 0.12615E-14 0.12683E-10 + 2 4 0.18409E-03 0.10000E+01 0.49215E+04 0.16772E-06 0.27928E-14 0.15376E-10 + 2 4 0.18409E-03 0.10000E+01 0.39689E+04 0.20043E-06 0.66070E-14 0.18534E-10 + 2 4 0.18409E-03 0.10000E+01 0.32008E+04 0.23861E-06 0.17451E-13 0.22186E-10 + 2 4 0.18409E-03 0.10000E+01 0.25813E+04 0.28406E-06 0.52055E-13 0.26342E-10 + 2 4 0.18409E-03 0.10000E+01 0.20817E+04 0.34074E-06 0.16992E-12 0.30999E-10 2 4 0.18409E-03 0.10000E+01 0.16788E+04 0.41690E-06 0.57983E-12 0.36152E-10 2 4 0.18409E-03 0.10000E+01 0.13538E+04 0.52889E-06 0.20063E-11 0.41823E-10 2 4 0.18409E-03 0.10000E+01 0.10918E+04 0.70768E-06 0.69621E-11 0.48099E-10 @@ -12370,24 +12370,24 @@ VERSION 2.8.2 2 4 0.18409E-03 0.10000E+01 0.24221E+03 0.21284E-04 0.17890E-07 0.16898E-09 2 4 0.18409E-03 0.10000E+01 0.19533E+03 0.32709E-04 0.33909E-07 0.21421E-09 2 4 0.18409E-03 0.10000E+01 0.15752E+03 0.32709E-04 0.33909E-07 0.21421E-09 - 2 4 0.32123E-03 0.10000E+01 0.80645E+05 0.27622E-50 0.20766E-61 0.24177E-54 - 2 4 0.32123E-03 0.10000E+01 0.65036E+05 0.23459E-49 0.33077E-60 0.20546E-53 - 2 4 0.32123E-03 0.10000E+01 0.52449E+05 0.20001E-48 0.44722E-59 0.17527E-52 - 2 4 0.32123E-03 0.10000E+01 0.42297E+05 0.15125E-47 0.61353E-58 0.13267E-51 - 2 4 0.32123E-03 0.10000E+01 0.34111E+05 0.11002E-46 0.85441E-57 0.96666E-51 - 2 4 0.32123E-03 0.10000E+01 0.27509E+05 0.80047E-46 0.11843E-55 0.70513E-50 - 2 4 0.32123E-03 0.10000E+01 0.22184E+05 0.58199E-45 0.16302E-54 0.51474E-49 - 2 4 0.32123E-03 0.10000E+01 0.17891E+05 0.42106E-44 0.22300E-53 0.37461E-48 - 2 4 0.32123E-03 0.10000E+01 0.14428E+05 0.30284E-43 0.30368E-52 0.27160E-47 - 2 4 0.32123E-03 0.10000E+01 0.11635E+05 0.21672E-42 0.41183E-51 0.19628E-46 - 2 4 0.32123E-03 0.10000E+01 0.93834E+04 0.15438E-41 0.55491E-50 0.14144E-45 - 2 4 0.32123E-03 0.10000E+01 0.75673E+04 0.10932E-40 0.74012E-49 0.10154E-44 - 2 4 0.32123E-03 0.10000E+01 0.61026E+04 0.76727E-40 0.97304E-48 0.72495E-44 - 2 4 0.32123E-03 0.10000E+01 0.49215E+04 0.53167E-39 0.12553E-46 0.51337E-43 - 2 4 0.32123E-03 0.10000E+01 0.39689E+04 0.36223E-38 0.15835E-45 0.35944E-42 - 2 4 0.32123E-03 0.10000E+01 0.32008E+04 0.76259E-36 0.61378E-43 0.78027E-40 - 2 4 0.32123E-03 0.10000E+01 0.25813E+04 0.26780E-27 0.39757E-34 0.27810E-31 - 2 4 0.32123E-03 0.10000E+01 0.20817E+04 0.30093E-11 0.10737E-17 0.28916E-15 + 2 4 0.32123E-03 0.10000E+01 0.80645E+05 0.18643E-07 0.12145E-18 0.16313E-11 + 2 4 0.32123E-03 0.10000E+01 0.65036E+05 0.23957E-07 0.28499E-18 0.20969E-11 + 2 4 0.32123E-03 0.10000E+01 0.52449E+05 0.30389E-07 0.66583E-18 0.26611E-11 + 2 4 0.32123E-03 0.10000E+01 0.42297E+05 0.38200E-07 0.15479E-17 0.33474E-11 + 2 4 0.32123E-03 0.10000E+01 0.34111E+05 0.47709E-07 0.35806E-17 0.41849E-11 + 2 4 0.32123E-03 0.10000E+01 0.27509E+05 0.59290E-07 0.82395E-17 0.52085E-11 + 2 4 0.32123E-03 0.10000E+01 0.22184E+05 0.73384E-07 0.18850E-16 0.64598E-11 + 2 4 0.32123E-03 0.10000E+01 0.17891E+05 0.90497E-07 0.42813E-16 0.79880E-11 + 2 4 0.32123E-03 0.10000E+01 0.14428E+05 0.11121E-06 0.96331E-16 0.98513E-11 + 2 4 0.32123E-03 0.10000E+01 0.11635E+05 0.13617E-06 0.21419E-15 0.12117E-10 + 2 4 0.32123E-03 0.10000E+01 0.93834E+04 0.16607E-06 0.46979E-15 0.14862E-10 + 2 4 0.32123E-03 0.10000E+01 0.75673E+04 0.20163E-06 0.10180E-14 0.18170E-10 + 2 4 0.32123E-03 0.10000E+01 0.61026E+04 0.24358E-06 0.22013E-14 0.22131E-10 + 2 4 0.32123E-03 0.10000E+01 0.49215E+04 0.29265E-06 0.48732E-14 0.26830E-10 + 2 4 0.32123E-03 0.10000E+01 0.39689E+04 0.34974E-06 0.11529E-13 0.32341E-10 + 2 4 0.32123E-03 0.10000E+01 0.32008E+04 0.41635E-06 0.30450E-13 0.38713E-10 + 2 4 0.32123E-03 0.10000E+01 0.25813E+04 0.49567E-06 0.90834E-13 0.45965E-10 + 2 4 0.32123E-03 0.10000E+01 0.20817E+04 0.59457E-06 0.29649E-12 0.54091E-10 2 4 0.32123E-03 0.10000E+01 0.16788E+04 0.72747E-06 0.10118E-11 0.63083E-10 2 4 0.32123E-03 0.10000E+01 0.13538E+04 0.92289E-06 0.35009E-11 0.72979E-10 2 4 0.32123E-03 0.10000E+01 0.10918E+04 0.12349E-05 0.12148E-10 0.83930E-10 @@ -12450,24 +12450,24 @@ VERSION 2.8.2 3 1 0.10550E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.32745E+00 0.17361E-02 0.40027E+00 0.67662E-04 0.46642E+10 0.64076E+03 0.50000E+03 0.39278E-15 0.18468E-01 0.57605E-02 0.10978E+02 3 1 0.18409E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.99703E+00 0.30293E-02 0.69845E+00 0.67662E-04 0.81388E+10 0.11181E+04 0.50000E+03 0.68538E-15 0.32225E-01 0.57605E-02 0.10978E+02 3 1 0.32123E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.30358E+01 0.52860E-02 0.12188E+01 0.67662E-04 0.14202E+11 0.19510E+04 0.50000E+03 0.11959E-14 0.56230E-01 0.57605E-02 0.10978E+02 - 3 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 3 1 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 3 1 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 3 1 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 3 1 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 3 1 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 3 1 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 3 1 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 3 1 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 3 1 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 3 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 3 1 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 3 1 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 3 1 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 3 1 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 3 1 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 3 1 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 3 1 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 3 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 3 1 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 3 1 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 3 1 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 3 1 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 3 1 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 3 1 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 3 1 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 3 1 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 3 1 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 3 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 3 1 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 3 1 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 3 1 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 3 1 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 3 1 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 3 1 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 3 1 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 3 1 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 3 1 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 3 1 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -12480,24 +12480,24 @@ VERSION 2.8.2 3 1 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 3 1 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 3 1 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 3 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 3 1 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 3 1 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 3 1 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 3 1 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 3 1 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 3 1 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 3 1 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 3 1 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 3 1 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 3 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 3 1 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 3 1 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 3 1 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 3 1 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 3 1 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 3 1 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 3 1 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 3 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 3 1 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 3 1 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 3 1 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 3 1 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 3 1 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 3 1 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 3 1 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 3 1 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 3 1 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 3 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 3 1 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 3 1 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 3 1 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 3 1 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 3 1 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 3 1 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 3 1 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 3 1 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 3 1 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 3 1 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -12510,24 +12510,24 @@ VERSION 2.8.2 3 1 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 3 1 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 3 1 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 3 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 3 1 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 3 1 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 3 1 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 3 1 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 3 1 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 3 1 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 3 1 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 3 1 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 3 1 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 3 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 3 1 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 3 1 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 3 1 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 3 1 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 3 1 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 3 1 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 3 1 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 3 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 3 1 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 3 1 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 3 1 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 3 1 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 3 1 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 3 1 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 3 1 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 3 1 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 3 1 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 3 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 3 1 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 3 1 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 3 1 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 3 1 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 3 1 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 3 1 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 3 1 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 3 1 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 3 1 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 3 1 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -12540,24 +12540,24 @@ VERSION 2.8.2 3 1 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 3 1 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 3 1 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 3 1 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 3 1 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 3 1 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 3 1 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 3 1 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 3 1 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 3 1 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 3 1 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 3 1 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 3 1 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 3 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 3 1 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 3 1 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 3 1 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 3 1 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 3 1 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 3 1 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 3 1 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 3 1 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 3 1 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 3 1 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 3 1 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 3 1 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 3 1 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 3 1 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 3 1 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 3 1 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 3 1 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 3 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 3 1 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 3 1 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 3 1 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 3 1 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 3 1 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 3 1 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 3 1 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 3 1 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 3 1 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 3 1 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -12570,24 +12570,24 @@ VERSION 2.8.2 3 1 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 3 1 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 3 1 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 3 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 3 1 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 3 1 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 3 1 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 3 1 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 3 1 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 3 1 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 3 1 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 3 1 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 3 1 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 3 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 3 1 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 3 1 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 3 1 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 3 1 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 3 1 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 3 1 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 3 1 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 3 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 3 1 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 3 1 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 3 1 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 3 1 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 3 1 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 3 1 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 3 1 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 3 1 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 3 1 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 3 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 3 1 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 3 1 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 3 1 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 3 1 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 3 1 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 3 1 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 3 1 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 3 1 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 3 1 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 3 1 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -12600,24 +12600,24 @@ VERSION 2.8.2 3 1 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 3 1 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 3 1 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 3 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 3 1 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 3 1 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 3 1 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 3 1 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 3 1 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 3 1 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 3 1 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 3 1 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 3 1 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 3 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 3 1 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 3 1 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 3 1 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 3 1 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 3 1 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 3 1 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 3 1 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 3 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 3 1 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 3 1 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 3 1 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 3 1 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 3 1 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 3 1 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 3 1 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 3 1 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 3 1 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 3 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 3 1 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 3 1 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 3 1 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 3 1 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 3 1 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 3 1 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 3 1 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 3 1 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 3 1 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 3 1 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -12630,24 +12630,24 @@ VERSION 2.8.2 3 1 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 3 1 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 3 1 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 3 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 3 1 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 3 1 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 3 1 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 3 1 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 3 1 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 3 1 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 3 1 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 3 1 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 3 1 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 3 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 3 1 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 3 1 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 3 1 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 3 1 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 3 1 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 3 1 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 3 1 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 3 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 3 1 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 3 1 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 3 1 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 3 1 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 3 1 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 3 1 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 3 1 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 3 1 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 3 1 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 3 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 3 1 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 3 1 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 3 1 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 3 1 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 3 1 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 3 1 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 3 1 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 3 1 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 3 1 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 3 1 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -12660,24 +12660,24 @@ VERSION 2.8.2 3 1 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 3 1 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 3 1 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 3 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 3 1 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 3 1 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 3 1 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 3 1 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 3 1 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 3 1 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 3 1 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 3 1 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 3 1 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 3 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 3 1 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 3 1 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 3 1 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 3 1 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 3 1 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 3 1 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 3 1 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 3 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 3 1 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 3 1 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 3 1 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 3 1 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 3 1 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 3 1 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 3 1 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 3 1 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 3 1 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 3 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 3 1 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 3 1 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 3 1 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 3 1 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 3 1 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 3 1 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 3 1 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 3 1 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 3 1 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 3 1 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -12690,24 +12690,24 @@ VERSION 2.8.2 3 1 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 3 1 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 3 1 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 3 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 3 1 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 3 1 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 3 1 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 3 1 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 3 1 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 3 1 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 3 1 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 3 1 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 3 1 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 3 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 3 1 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 3 1 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 3 1 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 3 1 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 3 1 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 3 1 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 3 1 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 3 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 3 1 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 3 1 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 3 1 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 3 1 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 3 1 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 3 1 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 3 1 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 3 1 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 3 1 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 3 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 3 1 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 3 1 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 3 1 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 3 1 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 3 1 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 3 1 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 3 1 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 3 1 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 3 1 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 3 1 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -12720,24 +12720,24 @@ VERSION 2.8.2 3 1 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 3 1 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 3 1 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 3 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 3 1 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 3 1 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 3 1 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 3 1 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 3 1 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 3 1 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 3 1 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 3 1 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 3 1 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 3 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 3 1 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 3 1 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 3 1 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 3 1 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 3 1 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 3 1 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 3 1 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 3 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 3 1 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 3 1 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 3 1 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 3 1 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 3 1 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 3 1 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 3 1 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 3 1 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 3 1 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 3 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 3 1 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 3 1 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 3 1 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 3 1 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 3 1 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 3 1 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 3 1 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 3 1 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 3 1 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 3 1 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -12750,24 +12750,24 @@ VERSION 2.8.2 3 1 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 3 1 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 3 1 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 3 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 3 1 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 3 1 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 3 1 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 3 1 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 3 1 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 3 1 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 3 1 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 3 1 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 3 1 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 3 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 3 1 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 3 1 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 3 1 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 3 1 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 3 1 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 3 1 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 3 1 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 3 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 3 1 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 3 1 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 3 1 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 3 1 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 3 1 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 3 1 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 3 1 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 3 1 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 3 1 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 3 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 3 1 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 3 1 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 3 1 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 3 1 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 3 1 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 3 1 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 3 1 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 3 1 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 3 1 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 3 1 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -12780,24 +12780,24 @@ VERSION 2.8.2 3 1 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 3 1 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 3 1 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 3 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 3 1 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 3 1 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 3 1 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 3 1 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 3 1 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 3 1 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 3 1 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 3 1 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 3 1 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 3 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 3 1 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 3 1 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 3 1 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 3 1 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 3 1 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 3 1 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 3 1 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 3 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 3 1 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 3 1 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 3 1 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 3 1 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 3 1 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 3 1 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 3 1 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 3 1 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 3 1 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 3 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 3 1 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 3 1 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 3 1 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 3 1 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 3 1 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 3 1 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 3 1 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 3 1 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 3 1 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 3 1 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -12810,24 +12810,24 @@ VERSION 2.8.2 3 1 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 3 1 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 3 1 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 3 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 3 1 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 3 1 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 3 1 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 3 1 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 3 1 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 3 1 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 3 1 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 3 1 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 3 1 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 3 1 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 3 1 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 3 1 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 3 1 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 3 1 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 3 1 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 3 1 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 3 1 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 3 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 3 1 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 3 1 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 3 1 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 3 1 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 3 1 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 3 1 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 3 1 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 3 1 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 3 1 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 3 1 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 3 1 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 3 1 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 3 1 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 3 1 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 3 1 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 3 1 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 3 1 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 3 1 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 3 1 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 3 1 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -12840,24 +12840,24 @@ VERSION 2.8.2 3 1 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 3 1 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 3 1 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 3 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 3 1 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 3 1 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 3 1 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 3 1 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 3 1 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 3 1 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 3 1 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 3 1 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 3 1 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 3 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 3 1 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 3 1 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 3 1 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 3 1 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 3 1 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 3 1 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 3 1 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 3 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 3 1 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 3 1 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 3 1 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 3 1 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 3 1 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 3 1 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 3 1 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 3 1 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 3 1 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 3 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 3 1 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 3 1 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 3 1 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 3 1 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 3 1 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 3 1 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 3 1 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 3 1 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 3 1 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 3 1 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -12870,24 +12870,24 @@ VERSION 2.8.2 3 1 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 3 1 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 3 1 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 3 1 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 3 1 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 3 1 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 3 1 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 3 1 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 3 1 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 3 1 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 3 1 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 3 1 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 3 1 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 3 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 3 1 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 3 1 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 3 1 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 3 1 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 3 1 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 3 1 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 3 1 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 3 1 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 3 1 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 3 1 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 3 1 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 3 1 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 3 1 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 3 1 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 3 1 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 3 1 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 3 1 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 3 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 3 1 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 3 1 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 3 1 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 3 1 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 3 1 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 3 1 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 3 1 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 3 1 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 3 1 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 3 1 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -12900,24 +12900,24 @@ VERSION 2.8.2 3 1 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 3 1 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 3 1 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 3 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 3 1 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 3 1 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 3 1 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 3 1 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 3 1 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 3 1 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 3 1 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 3 1 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 3 1 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 3 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 3 1 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 3 1 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 3 1 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 3 1 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 3 1 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 3 1 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 3 1 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 3 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 3 1 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 3 1 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 3 1 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 3 1 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 3 1 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 3 1 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 3 1 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 3 1 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 3 1 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 3 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 3 1 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 3 1 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 3 1 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 3 1 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 3 1 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 3 1 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 3 1 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 3 1 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 3 1 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 3 1 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -12930,24 +12930,24 @@ VERSION 2.8.2 3 1 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 3 1 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 3 1 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 3 1 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 3 1 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 3 1 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 3 1 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 3 1 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 3 1 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 3 1 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 3 1 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 3 1 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 3 1 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 3 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 3 1 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 3 1 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 3 1 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 3 1 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 3 1 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 3 1 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 3 1 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 3 1 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 3 1 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 3 1 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 3 1 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 3 1 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 3 1 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 3 1 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 3 1 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 3 1 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 3 1 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 3 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 3 1 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 3 1 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 3 1 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 3 1 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 3 1 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 3 1 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 3 1 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 3 1 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 3 1 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 3 1 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -12960,24 +12960,24 @@ VERSION 2.8.2 3 1 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 3 1 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 3 1 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 3 1 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 3 1 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 3 1 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 3 1 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 3 1 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 3 1 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 3 1 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 3 1 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 3 1 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 3 1 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 3 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 3 1 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 3 1 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 3 1 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 3 1 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 3 1 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 3 1 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 3 1 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 3 1 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 3 1 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 3 1 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 3 1 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 3 1 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 3 1 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 3 1 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 3 1 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 3 1 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 3 1 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 3 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 3 1 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 3 1 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 3 1 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 3 1 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 3 1 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 3 1 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 3 1 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 3 1 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 3 1 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 3 1 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -12990,24 +12990,24 @@ VERSION 2.8.2 3 1 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 3 1 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 3 1 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 3 1 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 3 1 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 3 1 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 3 1 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 3 1 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 3 1 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 3 1 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 3 1 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 3 1 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 3 1 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 3 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 3 1 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 3 1 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 3 1 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 3 1 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 3 1 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 3 1 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 3 1 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 3 1 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 3 1 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 3 1 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 3 1 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 3 1 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 3 1 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 3 1 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 3 1 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 3 1 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 3 1 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 3 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 3 1 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 3 1 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 3 1 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 3 1 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 3 1 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 3 1 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 3 1 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 3 1 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 3 1 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 3 1 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -13020,24 +13020,24 @@ VERSION 2.8.2 3 1 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 3 1 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 3 1 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 3 1 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 3 1 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 3 1 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 3 1 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 3 1 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 3 1 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 3 1 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 3 1 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 3 1 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 3 1 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 3 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 3 1 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 3 1 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 3 1 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 3 1 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 3 1 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 3 1 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 3 1 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 3 1 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 3 1 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 3 1 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 3 1 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 3 1 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 3 1 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 3 1 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 3 1 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 3 1 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 3 1 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 3 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 3 1 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 3 1 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 3 1 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 3 1 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 3 1 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 3 1 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 3 1 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 3 1 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 3 1 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 3 1 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -13050,24 +13050,24 @@ VERSION 2.8.2 3 1 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 3 1 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 3 1 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 3 1 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 3 1 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 3 1 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 3 1 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 3 1 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 3 1 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 3 1 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 3 1 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 3 1 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 3 1 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 3 1 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 3 1 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 3 1 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 3 1 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 3 1 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 3 1 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 3 1 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 3 1 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 3 1 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 3 1 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 3 1 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 3 1 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 3 1 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 3 1 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 3 1 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 3 1 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 3 1 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 3 1 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 3 1 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 3 1 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 3 1 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 3 1 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 3 1 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 3 1 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 3 1 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 3 1 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 3 1 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 3 1 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 3 1 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -13080,24 +13080,24 @@ VERSION 2.8.2 3 1 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 3 1 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 3 1 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 3 1 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 3 1 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 3 1 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 3 1 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 3 1 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 3 1 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 3 1 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 3 1 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 3 1 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 3 1 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 3 1 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 3 1 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 3 1 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 3 1 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 3 1 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 3 1 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 3 1 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 3 1 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 3 1 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 3 1 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 3 1 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 3 1 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 3 1 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 3 1 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 3 1 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 3 1 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 3 1 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 3 1 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 3 1 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 3 1 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 3 1 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 3 1 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 3 1 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 3 1 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 3 1 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 3 1 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 3 1 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 3 1 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 3 1 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -13110,24 +13110,24 @@ VERSION 2.8.2 3 1 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 3 1 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 3 1 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 3 1 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 3 1 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 3 1 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 3 1 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 3 1 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 3 1 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 3 1 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 3 1 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 3 1 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 3 1 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 3 1 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 3 1 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 3 1 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 3 1 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 3 1 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 3 1 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 3 1 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 3 1 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 3 1 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 3 1 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 3 1 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 3 1 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 3 1 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 3 1 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 3 1 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 3 1 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 3 1 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 3 1 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 3 1 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 3 1 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 3 1 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 3 1 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 3 1 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 3 1 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 3 1 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 3 1 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 3 1 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 3 1 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 3 1 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -13140,24 +13140,24 @@ VERSION 2.8.2 3 1 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 3 1 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 3 1 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 3 1 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 3 1 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 3 1 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 3 1 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 3 1 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 3 1 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 3 1 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 3 1 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 3 1 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 3 1 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 3 1 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 3 1 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 3 1 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 3 1 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 3 1 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 3 1 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 3 1 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 3 1 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 3 1 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 3 1 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 3 1 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 3 1 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 3 1 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 3 1 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 3 1 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 3 1 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 3 1 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 3 1 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 3 1 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 3 1 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 3 1 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 3 1 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 3 1 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 3 1 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 3 1 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 3 1 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 3 1 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 3 1 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 3 1 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -13170,24 +13170,24 @@ VERSION 2.8.2 3 1 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 3 1 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 3 1 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 3 1 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 3 1 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 3 1 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 3 1 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 3 1 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 3 1 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 3 1 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 3 1 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 3 1 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 3 1 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 3 1 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 3 1 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 3 1 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 3 1 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 3 1 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 3 1 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 3 1 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 3 1 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 3 1 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 3 1 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 3 1 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 3 1 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 3 1 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 3 1 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 3 1 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 3 1 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 3 1 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 3 1 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 3 1 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 3 1 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 3 1 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 3 1 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 3 1 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 3 1 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 3 1 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 3 1 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 3 1 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 3 1 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 3 1 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -13200,24 +13200,24 @@ VERSION 2.8.2 3 1 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 3 1 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 3 1 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 3 1 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 3 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 3 1 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 3 1 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 3 1 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 3 1 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 3 1 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 3 1 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 3 1 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 3 1 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 3 1 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 3 1 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 3 1 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 3 1 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 3 1 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 3 1 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 3 1 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 3 1 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 3 1 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 3 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 3 1 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 3 1 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 3 1 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 3 1 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 3 1 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 3 1 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 3 1 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 3 1 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 3 1 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 3 1 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 3 1 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 3 1 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 3 1 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 3 1 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 3 1 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 3 1 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 3 1 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 3 1 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 3 1 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -13230,24 +13230,24 @@ VERSION 2.8.2 3 1 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 3 1 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 3 1 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 3 1 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 3 1 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 3 1 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 3 1 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 3 1 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 3 1 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 3 1 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 3 1 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 3 1 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 3 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 3 1 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 3 1 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 3 1 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 3 1 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 3 1 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 3 1 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 3 1 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 3 1 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 3 1 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 3 1 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 3 1 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 3 1 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 3 1 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 3 1 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 3 1 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 3 1 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 3 1 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 3 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 3 1 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 3 1 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 3 1 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 3 1 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 3 1 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 3 1 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 3 1 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 3 1 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 3 1 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 3 1 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 3 1 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -13260,24 +13260,24 @@ VERSION 2.8.2 3 1 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 3 1 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 3 1 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 3 1 0.15405E-08 0.10000E+01 0.80645E+05 0.22169E-55 0.16538E-66 0.19444E-63 - 3 1 0.15405E-08 0.10000E+01 0.65036E+05 0.18709E-54 0.26199E-65 0.16386E-62 - 3 1 0.15405E-08 0.10000E+01 0.52449E+05 0.15857E-53 0.34936E-64 0.13874E-61 - 3 1 0.15405E-08 0.10000E+01 0.42297E+05 0.11856E-52 0.46757E-63 0.10359E-60 - 3 1 0.15405E-08 0.10000E+01 0.34111E+05 0.84435E-52 0.62479E-62 0.73632E-60 - 3 1 0.15405E-08 0.10000E+01 0.27509E+05 0.59246E-51 0.81019E-61 0.51534E-59 - 3 1 0.15405E-08 0.10000E+01 0.22184E+05 0.40692E-50 0.10307E-59 0.35092E-58 - 3 1 0.15405E-08 0.10000E+01 0.17891E+05 0.27534E-49 0.14075E-58 0.22768E-57 - 3 1 0.15405E-08 0.10000E+01 0.14428E+05 0.19631E-48 0.24555E-57 0.13888E-56 - 3 1 0.15405E-08 0.10000E+01 0.11635E+05 0.17070E-47 0.57662E-56 0.81553E-56 - 3 1 0.15405E-08 0.10000E+01 0.93834E+04 0.19685E-46 0.15733E-54 0.52856E-55 - 3 1 0.15405E-08 0.10000E+01 0.75673E+04 0.27170E-45 0.44125E-53 0.48422E-54 - 3 1 0.15405E-08 0.10000E+01 0.61026E+04 0.39529E-44 0.12261E-51 0.62492E-53 - 3 1 0.15405E-08 0.10000E+01 0.49215E+04 0.57536E-43 0.33698E-50 0.90174E-52 - 3 1 0.15405E-08 0.10000E+01 0.39689E+04 0.83012E-42 0.92000E-49 0.13001E-50 - 3 1 0.15405E-08 0.10000E+01 0.32008E+04 0.37425E-39 0.80984E-46 0.58076E-48 - 3 1 0.15405E-08 0.10000E+01 0.25813E+04 0.27849E-30 0.13803E-36 0.42644E-39 - 3 1 0.15405E-08 0.10000E+01 0.20817E+04 0.53875E-14 0.11903E-19 0.81441E-23 + 3 1 0.15405E-08 0.10000E+01 0.80645E+05 0.15001E-12 0.91972E-24 0.13169E-20 + 3 1 0.15405E-08 0.10000E+01 0.65036E+05 0.19213E-12 0.20848E-23 0.16858E-20 + 3 1 0.15405E-08 0.10000E+01 0.52449E+05 0.24243E-12 0.47202E-23 0.21254E-20 + 3 1 0.15405E-08 0.10000E+01 0.42297E+05 0.30246E-12 0.11147E-22 0.26464E-20 + 3 1 0.15405E-08 0.10000E+01 0.34111E+05 0.37429E-12 0.29920E-22 0.32582E-20 + 3 1 0.15405E-08 0.10000E+01 0.27509E+05 0.46190E-12 0.98679E-22 0.39673E-20 + 3 1 0.15405E-08 0.10000E+01 0.22184E+05 0.57520E-12 0.39261E-21 0.47820E-20 + 3 1 0.15405E-08 0.10000E+01 0.17891E+05 0.74041E-12 0.17297E-20 0.57272E-20 + 3 1 0.15405E-08 0.10000E+01 0.14428E+05 0.10253E-11 0.78986E-20 0.68859E-20 + 3 1 0.15405E-08 0.10000E+01 0.11635E+05 0.15998E-11 0.36328E-19 0.84980E-20 + 3 1 0.15405E-08 0.10000E+01 0.93834E+04 0.28796E-11 0.16677E-18 0.11186E-19 + 3 1 0.15405E-08 0.10000E+01 0.75673E+04 0.58696E-11 0.76119E-18 0.16480E-19 + 3 1 0.15405E-08 0.10000E+01 0.61026E+04 0.12974E-10 0.34345E-17 0.28036E-19 + 3 1 0.15405E-08 0.10000E+01 0.49215E+04 0.29868E-10 0.15201E-16 0.54439E-19 + 3 1 0.15405E-08 0.10000E+01 0.39689E+04 0.69673E-10 0.65650E-16 0.11541E-18 + 3 1 0.15405E-08 0.10000E+01 0.32008E+04 0.16191E-09 0.27640E-15 0.25516E-18 + 3 1 0.15405E-08 0.10000E+01 0.25813E+04 0.37121E-09 0.11350E-14 0.57012E-18 + 3 1 0.15405E-08 0.10000E+01 0.20817E+04 0.83541E-09 0.45411E-14 0.12655E-17 3 1 0.15405E-08 0.10000E+01 0.16788E+04 0.18406E-08 0.17690E-13 0.27668E-17 3 1 0.15405E-08 0.10000E+01 0.13538E+04 0.39646E-08 0.67251E-13 0.59320E-17 3 1 0.15405E-08 0.10000E+01 0.10918E+04 0.83445E-08 0.25085E-12 0.12448E-16 @@ -13290,24 +13290,24 @@ VERSION 2.8.2 3 1 0.15405E-08 0.10000E+01 0.24221E+03 0.83283E-06 0.76833E-09 0.12325E-14 3 1 0.15405E-08 0.10000E+01 0.19533E+03 0.13126E-05 0.14601E-08 0.19419E-14 3 1 0.15405E-08 0.10000E+01 0.15752E+03 0.13126E-05 0.14601E-08 0.19419E-14 - 3 1 0.26880E-08 0.10000E+01 0.80645E+05 0.44147E-55 0.32899E-66 0.76539E-63 - 3 1 0.26880E-08 0.10000E+01 0.65036E+05 0.37227E-54 0.52097E-65 0.64519E-62 - 3 1 0.26880E-08 0.10000E+01 0.52449E+05 0.31535E-53 0.69411E-64 0.54648E-61 - 3 1 0.26880E-08 0.10000E+01 0.42297E+05 0.23562E-52 0.92815E-63 0.40832E-60 - 3 1 0.26880E-08 0.10000E+01 0.34111E+05 0.16767E-51 0.12398E-61 0.29071E-59 - 3 1 0.26880E-08 0.10000E+01 0.27509E+05 0.11758E-50 0.16033E-60 0.20417E-58 - 3 1 0.26880E-08 0.10000E+01 0.22184E+05 0.80503E-50 0.19916E-59 0.14006E-57 - 3 1 0.26880E-08 0.10000E+01 0.17891E+05 0.53362E-49 0.24604E-58 0.92169E-57 - 3 1 0.26880E-08 0.10000E+01 0.14428E+05 0.35072E-48 0.34415E-57 0.57325E-56 - 3 1 0.26880E-08 0.10000E+01 0.11635E+05 0.25233E-47 0.64825E-56 0.33641E-55 - 3 1 0.26880E-08 0.10000E+01 0.93834E+04 0.23294E-46 0.16099E-54 0.19548E-54 - 3 1 0.26880E-08 0.10000E+01 0.75673E+04 0.28462E-45 0.44413E-53 0.13553E-53 - 3 1 0.26880E-08 0.10000E+01 0.61026E+04 0.40026E-44 0.12346E-51 0.13880E-52 - 3 1 0.26880E-08 0.10000E+01 0.49215E+04 0.57964E-43 0.33900E-50 0.18524E-51 - 3 1 0.26880E-08 0.10000E+01 0.39689E+04 0.83490E-42 0.92262E-49 0.26049E-50 - 3 1 0.26880E-08 0.10000E+01 0.32008E+04 0.37529E-39 0.80913E-46 0.11368E-47 - 3 1 0.26880E-08 0.10000E+01 0.25813E+04 0.27821E-30 0.13740E-36 0.81010E-39 - 3 1 0.26880E-08 0.10000E+01 0.20817E+04 0.53615E-14 0.11804E-19 0.14934E-22 + 3 1 0.26880E-08 0.10000E+01 0.80645E+05 0.29889E-12 0.18253E-23 0.51836E-20 + 3 1 0.26880E-08 0.10000E+01 0.65036E+05 0.38272E-12 0.41144E-23 0.66371E-20 + 3 1 0.26880E-08 0.10000E+01 0.52449E+05 0.48272E-12 0.91242E-23 0.83711E-20 + 3 1 0.26880E-08 0.10000E+01 0.42297E+05 0.60166E-12 0.20271E-22 0.10431E-19 + 3 1 0.26880E-08 0.10000E+01 0.34111E+05 0.74252E-12 0.47711E-22 0.12857E-19 + 3 1 0.26880E-08 0.10000E+01 0.27509E+05 0.90955E-12 0.13100E-21 0.15675E-19 + 3 1 0.26880E-08 0.10000E+01 0.22184E+05 0.11119E-11 0.44757E-21 0.18903E-19 + 3 1 0.26880E-08 0.10000E+01 0.17891E+05 0.13741E-11 0.18206E-20 0.22571E-19 + 3 1 0.26880E-08 0.10000E+01 0.14428E+05 0.17613E-11 0.80566E-20 0.26806E-19 + 3 1 0.26880E-08 0.10000E+01 0.11635E+05 0.24407E-11 0.36623E-19 0.32029E-19 + 3 1 0.26880E-08 0.10000E+01 0.93834E+04 0.38265E-11 0.16721E-18 0.39399E-19 + 3 1 0.26880E-08 0.10000E+01 0.75673E+04 0.69213E-11 0.76050E-18 0.51802E-19 + 3 1 0.26880E-08 0.10000E+01 0.61026E+04 0.14123E-10 0.34224E-17 0.76072E-19 + 3 1 0.26880E-08 0.10000E+01 0.49215E+04 0.31080E-10 0.15118E-16 0.12798E-18 + 3 1 0.26880E-08 0.10000E+01 0.39689E+04 0.70831E-10 0.65194E-16 0.24321E-18 + 3 1 0.26880E-08 0.10000E+01 0.32008E+04 0.16267E-09 0.27419E-15 0.50060E-18 + 3 1 0.26880E-08 0.10000E+01 0.25813E+04 0.37069E-09 0.11250E-14 0.10705E-17 + 3 1 0.26880E-08 0.10000E+01 0.20817E+04 0.83144E-09 0.44988E-14 0.23125E-17 3 1 0.26880E-08 0.10000E+01 0.16788E+04 0.18283E-08 0.17519E-13 0.49687E-17 3 1 0.26880E-08 0.10000E+01 0.13538E+04 0.39332E-08 0.66577E-13 0.10530E-16 3 1 0.26880E-08 0.10000E+01 0.10918E+04 0.82717E-08 0.24827E-12 0.21919E-16 @@ -13320,24 +13320,24 @@ VERSION 2.8.2 3 1 0.26880E-08 0.10000E+01 0.24221E+03 0.82391E-06 0.75991E-09 0.21294E-14 3 1 0.26880E-08 0.10000E+01 0.19533E+03 0.12984E-05 0.14440E-08 0.33534E-14 3 1 0.26880E-08 0.10000E+01 0.15752E+03 0.12984E-05 0.14440E-08 0.33534E-14 - 3 1 0.46905E-08 0.10000E+01 0.80645E+05 0.84914E-55 0.63264E-66 0.25137E-62 - 3 1 0.46905E-08 0.10000E+01 0.65036E+05 0.71591E-54 0.10018E-64 0.21198E-61 - 3 1 0.46905E-08 0.10000E+01 0.52449E+05 0.60640E-53 0.13347E-63 0.17961E-60 - 3 1 0.46905E-08 0.10000E+01 0.42297E+05 0.45308E-52 0.17852E-62 0.13429E-59 - 3 1 0.46905E-08 0.10000E+01 0.34111E+05 0.32249E-51 0.23870E-61 0.95741E-59 - 3 1 0.46905E-08 0.10000E+01 0.27509E+05 0.22631E-50 0.30904E-60 0.67413E-58 - 3 1 0.46905E-08 0.10000E+01 0.22184E+05 0.15505E-49 0.38168E-59 0.46473E-57 - 3 1 0.46905E-08 0.10000E+01 0.17891E+05 0.10224E-48 0.45256E-58 0.30863E-56 - 3 1 0.46905E-08 0.10000E+01 0.14428E+05 0.65022E-48 0.55190E-57 0.19482E-55 - 3 1 0.46905E-08 0.10000E+01 0.11635E+05 0.41896E-47 0.82401E-56 0.11604E-54 - 3 1 0.46905E-08 0.10000E+01 0.93834E+04 0.31427E-46 0.17362E-54 0.66133E-54 - 3 1 0.46905E-08 0.10000E+01 0.75673E+04 0.31973E-45 0.45741E-53 0.40197E-53 - 3 1 0.46905E-08 0.10000E+01 0.61026E+04 0.41790E-44 0.12665E-51 0.33476E-52 - 3 1 0.46905E-08 0.10000E+01 0.49215E+04 0.59589E-43 0.34720E-50 0.40051E-51 - 3 1 0.46905E-08 0.10000E+01 0.39689E+04 0.85492E-42 0.94020E-49 0.54427E-50 - 3 1 0.46905E-08 0.10000E+01 0.32008E+04 0.38237E-39 0.81918E-46 0.23194E-47 - 3 1 0.46905E-08 0.10000E+01 0.25813E+04 0.28156E-30 0.13815E-36 0.15995E-38 - 3 1 0.46905E-08 0.10000E+01 0.20817E+04 0.53870E-14 0.11779E-19 0.28225E-22 + 3 1 0.46905E-08 0.10000E+01 0.80645E+05 0.57500E-12 0.35114E-23 0.17022E-19 + 3 1 0.46905E-08 0.10000E+01 0.65036E+05 0.73624E-12 0.79068E-23 0.21799E-19 + 3 1 0.46905E-08 0.10000E+01 0.52449E+05 0.92859E-12 0.17410E-22 0.27505E-19 + 3 1 0.46905E-08 0.10000E+01 0.42297E+05 0.11572E-11 0.37661E-22 0.34293E-19 + 3 1 0.46905E-08 0.10000E+01 0.34111E+05 0.14269E-11 0.82369E-22 0.42305E-19 + 3 1 0.46905E-08 0.10000E+01 0.27509E+05 0.17430E-11 0.19616E-21 0.51643E-19 + 3 1 0.46905E-08 0.10000E+01 0.22184E+05 0.21140E-11 0.56452E-21 0.62357E-19 + 3 1 0.46905E-08 0.10000E+01 0.17891E+05 0.25619E-11 0.20325E-20 0.74483E-19 + 3 1 0.46905E-08 0.10000E+01 0.14428E+05 0.31486E-11 0.84913E-20 0.88202E-19 + 3 1 0.46905E-08 0.10000E+01 0.11635E+05 0.40389E-11 0.37719E-19 0.10425E-18 + 3 1 0.46905E-08 0.10000E+01 0.93834E+04 0.56486E-11 0.17039E-18 0.12484E-18 + 3 1 0.46905E-08 0.10000E+01 0.75673E+04 0.89903E-11 0.76986E-18 0.15558E-18 + 3 1 0.46905E-08 0.10000E+01 0.61026E+04 0.16481E-10 0.34474E-17 0.20966E-18 + 3 1 0.46905E-08 0.10000E+01 0.49215E+04 0.33800E-10 0.15170E-16 0.31695E-18 + 3 1 0.46905E-08 0.10000E+01 0.39689E+04 0.74009E-10 0.65230E-16 0.54361E-18 + 3 1 0.46905E-08 0.10000E+01 0.32008E+04 0.16638E-09 0.27375E-15 0.10331E-17 + 3 1 0.46905E-08 0.10000E+01 0.25813E+04 0.37483E-09 0.11215E-14 0.20907E-17 + 3 1 0.46905E-08 0.10000E+01 0.20817E+04 0.83538E-09 0.44796E-14 0.43540E-17 3 1 0.46905E-08 0.10000E+01 0.16788E+04 0.18300E-08 0.17429E-13 0.91273E-17 3 1 0.46905E-08 0.10000E+01 0.13538E+04 0.39273E-08 0.66194E-13 0.19016E-16 3 1 0.46905E-08 0.10000E+01 0.10918E+04 0.82460E-08 0.24672E-12 0.39111E-16 @@ -13350,24 +13350,24 @@ VERSION 2.8.2 3 1 0.46905E-08 0.10000E+01 0.24221E+03 0.81813E-06 0.75423E-09 0.36911E-14 3 1 0.46905E-08 0.10000E+01 0.19533E+03 0.12892E-05 0.14332E-08 0.58084E-14 3 1 0.46905E-08 0.10000E+01 0.15752E+03 0.12892E-05 0.14332E-08 0.58084E-14 - 3 1 0.81846E-08 0.10000E+01 0.80645E+05 0.16157E-54 0.12039E-65 0.81777E-62 - 3 1 0.81846E-08 0.10000E+01 0.65036E+05 0.13624E-53 0.19067E-64 0.68988E-61 - 3 1 0.81846E-08 0.10000E+01 0.52449E+05 0.11542E-52 0.25416E-63 0.58475E-60 - 3 1 0.81846E-08 0.10000E+01 0.42297E+05 0.86267E-52 0.34029E-62 0.43752E-59 - 3 1 0.81846E-08 0.10000E+01 0.34111E+05 0.61456E-51 0.45595E-61 0.31234E-58 - 3 1 0.81846E-08 0.10000E+01 0.27509E+05 0.43204E-50 0.59265E-60 0.22044E-57 - 3 1 0.81846E-08 0.10000E+01 0.22184E+05 0.29695E-49 0.73515E-59 0.15261E-56 - 3 1 0.81846E-08 0.10000E+01 0.17891E+05 0.19647E-48 0.86568E-58 0.10213E-55 - 3 1 0.81846E-08 0.10000E+01 0.14428E+05 0.12425E-47 0.99469E-57 0.65308E-55 - 3 1 0.81846E-08 0.10000E+01 0.11635E+05 0.76467E-47 0.12439E-55 0.39573E-54 - 3 1 0.81846E-08 0.10000E+01 0.93834E+04 0.49731E-46 0.20939E-54 0.22686E-53 - 3 1 0.81846E-08 0.10000E+01 0.75673E+04 0.40864E-45 0.49634E-53 0.12961E-52 - 3 1 0.81846E-08 0.10000E+01 0.61026E+04 0.46629E-44 0.13469E-51 0.90893E-52 - 3 1 0.81846E-08 0.10000E+01 0.49215E+04 0.63787E-43 0.36725E-50 0.94409E-51 - 3 1 0.81846E-08 0.10000E+01 0.39689E+04 0.90467E-42 0.98534E-49 0.12204E-49 - 3 1 0.81846E-08 0.10000E+01 0.32008E+04 0.40062E-39 0.84797E-46 0.50685E-47 - 3 1 0.81846E-08 0.10000E+01 0.25813E+04 0.29122E-30 0.14099E-36 0.33706E-38 - 3 1 0.81846E-08 0.10000E+01 0.20817E+04 0.54889E-14 0.11826E-19 0.56261E-22 + 3 1 0.81846E-08 0.10000E+01 0.80645E+05 0.10941E-11 0.66970E-23 0.55365E-19 + 3 1 0.81846E-08 0.10000E+01 0.65036E+05 0.14011E-11 0.15103E-22 0.70920E-19 + 3 1 0.81846E-08 0.10000E+01 0.52449E+05 0.17674E-11 0.33261E-22 0.89511E-19 + 3 1 0.81846E-08 0.10000E+01 0.42297E+05 0.22031E-11 0.71397E-22 0.11166E-18 + 3 1 0.81846E-08 0.10000E+01 0.34111E+05 0.27171E-11 0.15113E-21 0.13787E-18 + 3 1 0.81846E-08 0.10000E+01 0.27509E+05 0.33175E-11 0.32969E-21 0.16851E-18 + 3 1 0.81846E-08 0.10000E+01 0.22184E+05 0.40129E-11 0.81462E-21 0.20377E-18 + 3 1 0.81846E-08 0.10000E+01 0.17891E+05 0.48227E-11 0.25093E-20 0.24371E-18 + 3 1 0.81846E-08 0.10000E+01 0.14428E+05 0.58046E-11 0.95196E-20 0.28853E-18 + 3 1 0.81846E-08 0.10000E+01 0.11635E+05 0.71217E-11 0.40435E-19 0.33953E-18 + 3 1 0.81846E-08 0.10000E+01 0.93834E+04 0.91982E-11 0.17875E-18 0.40104E-18 + 3 1 0.81846E-08 0.10000E+01 0.75673E+04 0.13076E-10 0.79676E-18 0.48454E-18 + 3 1 0.81846E-08 0.10000E+01 0.61026E+04 0.21236E-10 0.35315E-17 0.61692E-18 + 3 1 0.81846E-08 0.10000E+01 0.49215E+04 0.39469E-10 0.15416E-16 0.85780E-18 + 3 1 0.81846E-08 0.10000E+01 0.39689E+04 0.81002E-10 0.65872E-16 0.13354E-17 + 3 1 0.81846E-08 0.10000E+01 0.32008E+04 0.17532E-09 0.27513E-15 0.23201E-17 + 3 1 0.81846E-08 0.10000E+01 0.25813E+04 0.38650E-09 0.11232E-14 0.43741E-17 + 3 1 0.81846E-08 0.10000E+01 0.20817E+04 0.85051E-09 0.44750E-14 0.86491E-17 3 1 0.81846E-08 0.10000E+01 0.16788E+04 0.18486E-08 0.17379E-13 0.17469E-16 3 1 0.81846E-08 0.10000E+01 0.13538E+04 0.39471E-08 0.65916E-13 0.35430E-16 3 1 0.81846E-08 0.10000E+01 0.10918E+04 0.82589E-08 0.24542E-12 0.71449E-16 @@ -13380,24 +13380,24 @@ VERSION 2.8.2 3 1 0.81846E-08 0.10000E+01 0.24221E+03 0.81272E-06 0.74859E-09 0.64172E-14 3 1 0.81846E-08 0.10000E+01 0.19533E+03 0.12804E-05 0.14225E-08 0.10085E-13 3 1 0.81846E-08 0.10000E+01 0.15752E+03 0.12804E-05 0.14225E-08 0.10085E-13 - 3 1 0.14282E-07 0.10000E+01 0.80645E+05 0.30442E-54 0.22691E-65 0.26444E-61 - 3 1 0.14282E-07 0.10000E+01 0.65036E+05 0.25675E-53 0.35946E-64 0.22317E-60 - 3 1 0.14282E-07 0.10000E+01 0.52449E+05 0.21757E-52 0.47947E-63 0.18923E-59 - 3 1 0.14282E-07 0.10000E+01 0.42297E+05 0.16272E-51 0.64280E-62 0.14168E-58 - 3 1 0.14282E-07 0.10000E+01 0.34111E+05 0.11605E-50 0.86337E-61 0.10127E-57 - 3 1 0.14282E-07 0.10000E+01 0.27509E+05 0.81753E-50 0.11274E-59 0.71622E-57 - 3 1 0.14282E-07 0.10000E+01 0.22184E+05 0.56408E-49 0.14089E-58 0.49766E-56 - 3 1 0.14282E-07 0.10000E+01 0.17891E+05 0.37546E-48 0.16701E-57 0.33521E-55 - 3 1 0.14282E-07 0.10000E+01 0.14428E+05 0.23872E-47 0.18921E-56 0.21667E-54 - 3 1 0.14282E-07 0.10000E+01 0.11635E+05 0.14540E-46 0.21527E-55 0.13338E-53 - 3 1 0.14282E-07 0.10000E+01 0.93834E+04 0.88067E-46 0.29254E-54 0.77578E-53 - 3 1 0.14282E-07 0.10000E+01 0.75673E+04 0.60553E-45 0.58326E-53 0.43430E-52 - 3 1 0.14282E-07 0.10000E+01 0.61026E+04 0.57349E-44 0.15051E-51 0.27098E-51 - 3 1 0.14282E-07 0.10000E+01 0.49215E+04 0.72317E-43 0.40568E-50 0.24252E-50 - 3 1 0.14282E-07 0.10000E+01 0.39689E+04 0.10013E-41 0.10738E-48 0.29366E-49 - 3 1 0.14282E-07 0.10000E+01 0.32008E+04 0.43649E-39 0.90644E-46 0.11889E-46 - 3 1 0.14282E-07 0.10000E+01 0.25813E+04 0.31082E-30 0.14709E-36 0.76420E-38 - 3 1 0.14282E-07 0.10000E+01 0.20817E+04 0.57088E-14 0.11967E-19 0.12009E-21 + 3 1 0.14282E-07 0.10000E+01 0.80645E+05 0.20612E-11 0.12658E-22 0.17900E-18 + 3 1 0.14282E-07 0.10000E+01 0.65036E+05 0.26399E-11 0.28613E-22 0.22934E-18 + 3 1 0.14282E-07 0.10000E+01 0.52449E+05 0.33311E-11 0.63196E-22 0.28955E-18 + 3 1 0.14282E-07 0.10000E+01 0.42297E+05 0.41540E-11 0.13575E-21 0.36139E-18 + 3 1 0.14282E-07 0.10000E+01 0.34111E+05 0.51262E-11 0.28433E-21 0.44655E-18 + 3 1 0.14282E-07 0.10000E+01 0.27509E+05 0.62620E-11 0.59381E-21 0.54640E-18 + 3 1 0.14282E-07 0.10000E+01 0.22184E+05 0.75726E-11 0.13206E-20 0.66172E-18 + 3 1 0.14282E-07 0.10000E+01 0.17891E+05 0.90746E-11 0.34882E-20 0.79266E-18 + 3 1 0.14282E-07 0.10000E+01 0.14428E+05 0.10820E-10 0.11624E-19 0.93933E-18 + 3 1 0.14282E-07 0.10000E+01 0.11635E+05 0.12970E-10 0.45915E-19 0.11039E-17 + 3 1 0.14282E-07 0.10000E+01 0.93834E+04 0.15966E-10 0.19556E-18 0.12952E-17 + 3 1 0.14282E-07 0.10000E+01 0.75673E+04 0.20907E-10 0.85157E-18 0.15380E-17 + 3 1 0.14282E-07 0.10000E+01 0.61026E+04 0.30404E-10 0.37080E-17 0.18909E-17 + 3 1 0.14282E-07 0.10000E+01 0.49215E+04 0.50484E-10 0.15955E-16 0.24806E-17 + 3 1 0.14282E-07 0.10000E+01 0.39689E+04 0.94752E-10 0.67398E-16 0.35711E-17 + 3 1 0.14282E-07 0.10000E+01 0.32008E+04 0.19322E-09 0.27900E-15 0.56992E-17 + 3 1 0.14282E-07 0.10000E+01 0.25813E+04 0.41059E-09 0.11313E-14 0.99423E-17 + 3 1 0.14282E-07 0.10000E+01 0.20817E+04 0.88330E-09 0.44851E-14 0.18446E-16 3 1 0.14282E-07 0.10000E+01 0.16788E+04 0.18924E-08 0.17356E-13 0.35443E-16 3 1 0.14282E-07 0.10000E+01 0.13538E+04 0.40020E-08 0.65652E-13 0.69167E-16 3 1 0.14282E-07 0.10000E+01 0.10918E+04 0.83184E-08 0.24397E-12 0.13540E-15 @@ -13410,24 +13410,24 @@ VERSION 2.8.2 3 1 0.14282E-07 0.10000E+01 0.24221E+03 0.80590E-06 0.74114E-09 0.11214E-13 3 1 0.14282E-07 0.10000E+01 0.19533E+03 0.12691E-05 0.14082E-08 0.17584E-13 3 1 0.14282E-07 0.10000E+01 0.15752E+03 0.12691E-05 0.14082E-08 0.17584E-13 - 3 1 0.24920E-07 0.10000E+01 0.80645E+05 0.56799E-54 0.42354E-65 0.84609E-61 - 3 1 0.24920E-07 0.10000E+01 0.65036E+05 0.47921E-53 0.67115E-64 0.71433E-60 - 3 1 0.24920E-07 0.10000E+01 0.52449E+05 0.40621E-52 0.89589E-63 0.60589E-59 - 3 1 0.24920E-07 0.10000E+01 0.42297E+05 0.30398E-51 0.12027E-61 0.45392E-58 - 3 1 0.24920E-07 0.10000E+01 0.34111E+05 0.21705E-50 0.16193E-60 0.32479E-57 - 3 1 0.24920E-07 0.10000E+01 0.27509E+05 0.15323E-49 0.21238E-59 0.23013E-56 - 3 1 0.24920E-07 0.10000E+01 0.22184E+05 0.10612E-48 0.26744E-58 0.16041E-55 - 3 1 0.24920E-07 0.10000E+01 0.17891E+05 0.71084E-48 0.32040E-57 0.10863E-54 - 3 1 0.24920E-07 0.10000E+01 0.14428E+05 0.45587E-47 0.36499E-56 0.70834E-54 - 3 1 0.24920E-07 0.10000E+01 0.11635E+05 0.27903E-46 0.40136E-55 0.44191E-53 - 3 1 0.24920E-07 0.10000E+01 0.93834E+04 0.16495E-45 0.47141E-54 0.26116E-52 - 3 1 0.24920E-07 0.10000E+01 0.75673E+04 0.10159E-44 0.76552E-53 0.14621E-51 - 3 1 0.24920E-07 0.10000E+01 0.61026E+04 0.79681E-44 0.18024E-51 0.85225E-51 - 3 1 0.24920E-07 0.10000E+01 0.49215E+04 0.88844E-43 0.47589E-50 0.66813E-50 - 3 1 0.24920E-07 0.10000E+01 0.39689E+04 0.11805E-41 0.12392E-48 0.74971E-49 - 3 1 0.24920E-07 0.10000E+01 0.32008E+04 0.50367E-39 0.10197E-45 0.29630E-46 - 3 1 0.24920E-07 0.10000E+01 0.25813E+04 0.34881E-30 0.15962E-36 0.18551E-37 - 3 1 0.24920E-07 0.10000E+01 0.20817E+04 0.61657E-14 0.12352E-19 0.27613E-21 + 3 1 0.24920E-07 0.10000E+01 0.80645E+05 0.38452E-11 0.23695E-22 0.57263E-18 + 3 1 0.24920E-07 0.10000E+01 0.65036E+05 0.49257E-11 0.53696E-22 0.73379E-18 + 3 1 0.24920E-07 0.10000E+01 0.52449E+05 0.62173E-11 0.11903E-21 0.92671E-18 + 3 1 0.24920E-07 0.10000E+01 0.42297E+05 0.77567E-11 0.25668E-21 0.11572E-17 + 3 1 0.24920E-07 0.10000E+01 0.34111E+05 0.95787E-11 0.53751E-21 0.14308E-17 + 3 1 0.24920E-07 0.10000E+01 0.27509E+05 0.11711E-10 0.11035E-20 0.17525E-17 + 3 1 0.24920E-07 0.10000E+01 0.22184E+05 0.14172E-10 0.23126E-20 0.21252E-17 + 3 1 0.24920E-07 0.10000E+01 0.17891E+05 0.16978E-10 0.54240E-20 0.25497E-17 + 3 1 0.24920E-07 0.10000E+01 0.14428E+05 0.20171E-10 0.15753E-19 0.30257E-17 + 3 1 0.24920E-07 0.10000E+01 0.11635E+05 0.23912E-10 0.56487E-19 0.35565E-17 + 3 1 0.24920E-07 0.10000E+01 0.93834E+04 0.28672E-10 0.22781E-18 0.41605E-17 + 3 1 0.24920E-07 0.10000E+01 0.75673E+04 0.35659E-10 0.95840E-18 0.48942E-17 + 3 1 0.24920E-07 0.10000E+01 0.61026E+04 0.47734E-10 0.40629E-17 0.58929E-17 + 3 1 0.24920E-07 0.10000E+01 0.49215E+04 0.71409E-10 0.17094E-16 0.74460E-17 + 3 1 0.24920E-07 0.10000E+01 0.39689E+04 0.12111E-09 0.70870E-16 0.10136E-16 + 3 1 0.24920E-07 0.10000E+01 0.32008E+04 0.22814E-09 0.28897E-15 0.15098E-16 + 3 1 0.24920E-07 0.10000E+01 0.25813E+04 0.45899E-09 0.11580E-14 0.24517E-16 + 3 1 0.24920E-07 0.10000E+01 0.20817E+04 0.95244E-09 0.45507E-14 0.42571E-16 3 1 0.24920E-07 0.10000E+01 0.16788E+04 0.19921E-08 0.17496E-13 0.77232E-16 3 1 0.24920E-07 0.10000E+01 0.13538E+04 0.41442E-08 0.65869E-13 0.14362E-15 3 1 0.24920E-07 0.10000E+01 0.10918E+04 0.85146E-08 0.24393E-12 0.27015E-15 @@ -13440,24 +13440,24 @@ VERSION 2.8.2 3 1 0.24920E-07 0.10000E+01 0.24221E+03 0.80227E-06 0.73576E-09 0.19769E-13 3 1 0.24920E-07 0.10000E+01 0.19533E+03 0.12625E-05 0.13979E-08 0.30878E-13 3 1 0.24920E-07 0.10000E+01 0.15752E+03 0.12625E-05 0.13979E-08 0.30878E-13 - 3 1 0.43485E-07 0.10000E+01 0.80645E+05 0.10510E-53 0.78406E-65 0.26954E-60 - 3 1 0.43485E-07 0.10000E+01 0.65036E+05 0.88705E-53 0.12428E-63 0.22764E-59 - 3 1 0.43485E-07 0.10000E+01 0.52449E+05 0.75217E-52 0.16602E-62 0.19314E-58 - 3 1 0.43485E-07 0.10000E+01 0.42297E+05 0.56321E-51 0.22317E-61 0.14477E-57 - 3 1 0.43485E-07 0.10000E+01 0.34111E+05 0.40259E-50 0.30113E-60 0.10369E-56 - 3 1 0.43485E-07 0.10000E+01 0.27509E+05 0.28477E-49 0.39653E-59 0.73588E-56 - 3 1 0.43485E-07 0.10000E+01 0.22184E+05 0.19790E-48 0.50282E-58 0.51431E-55 - 3 1 0.43485E-07 0.10000E+01 0.17891E+05 0.13334E-47 0.60891E-57 0.34986E-54 - 3 1 0.43485E-07 0.10000E+01 0.14428E+05 0.86274E-47 0.70205E-56 0.22981E-53 - 3 1 0.43485E-07 0.10000E+01 0.11635E+05 0.53336E-46 0.76941E-55 0.14498E-52 - 3 1 0.43485E-07 0.10000E+01 0.93834E+04 0.31489E-45 0.83738E-54 0.86955E-52 - 3 1 0.43485E-07 0.10000E+01 0.75673E+04 0.18378E-44 0.11296E-52 0.49107E-51 - 3 1 0.43485E-07 0.10000E+01 0.61026E+04 0.12414E-43 0.23332E-51 0.27625E-50 - 3 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11934E-42 0.59575E-50 0.19471E-49 - 3 1 0.43485E-07 0.10000E+01 0.39689E+04 0.14919E-41 0.15251E-48 0.20142E-48 - 3 1 0.43485E-07 0.10000E+01 0.32008E+04 0.62017E-39 0.12195E-45 0.77746E-46 - 3 1 0.43485E-07 0.10000E+01 0.25813E+04 0.41582E-30 0.18220E-36 0.47847E-37 - 3 1 0.43485E-07 0.10000E+01 0.20817E+04 0.69929E-14 0.13076E-19 0.68378E-21 + 3 1 0.43485E-07 0.10000E+01 0.80645E+05 0.71141E-11 0.43986E-22 0.18240E-17 + 3 1 0.43485E-07 0.10000E+01 0.65036E+05 0.91148E-11 0.99912E-22 0.23377E-17 + 3 1 0.43485E-07 0.10000E+01 0.52449E+05 0.11508E-10 0.22227E-21 0.29530E-17 + 3 1 0.43485E-07 0.10000E+01 0.42297E+05 0.14364E-10 0.48161E-21 0.36888E-17 + 3 1 0.43485E-07 0.10000E+01 0.34111E+05 0.17750E-10 0.10125E-20 0.45638E-17 + 3 1 0.43485E-07 0.10000E+01 0.27509E+05 0.21722E-10 0.20708E-20 0.55947E-17 + 3 1 0.43485E-07 0.10000E+01 0.22184E+05 0.26316E-10 0.42158E-20 0.67926E-17 + 3 1 0.43485E-07 0.10000E+01 0.17891E+05 0.31549E-10 0.91452E-20 0.81616E-17 + 3 1 0.43485E-07 0.10000E+01 0.14428E+05 0.37454E-10 0.23555E-19 0.96998E-17 + 3 1 0.43485E-07 0.10000E+01 0.11635E+05 0.44187E-10 0.75836E-19 0.11411E-16 + 3 1 0.43485E-07 0.10000E+01 0.93834E+04 0.52264E-10 0.28550E-18 0.13335E-16 + 3 1 0.43485E-07 0.10000E+01 0.75673E+04 0.63072E-10 0.11484E-17 0.15607E-16 + 3 1 0.43485E-07 0.10000E+01 0.61026E+04 0.79908E-10 0.46980E-17 0.18558E-16 + 3 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11014E-09 0.19154E-16 0.22894E-16 + 3 1 0.43485E-07 0.10000E+01 0.39689E+04 0.16970E-09 0.77244E-16 0.30000E-16 + 3 1 0.43485E-07 0.10000E+01 0.32008E+04 0.29224E-09 0.30762E-15 0.42466E-16 + 3 1 0.43485E-07 0.10000E+01 0.25813E+04 0.54774E-09 0.12094E-14 0.65040E-16 + 3 1 0.43485E-07 0.10000E+01 0.20817E+04 0.10796E-08 0.46827E-14 0.10637E-15 3 1 0.43485E-07 0.10000E+01 0.16788E+04 0.21769E-08 0.17804E-13 0.18225E-15 3 1 0.43485E-07 0.10000E+01 0.13538E+04 0.44115E-08 0.66480E-13 0.32148E-15 3 1 0.43485E-07 0.10000E+01 0.10918E+04 0.88927E-08 0.24471E-12 0.57669E-15 @@ -13470,24 +13470,24 @@ VERSION 2.8.2 3 1 0.43485E-07 0.10000E+01 0.24221E+03 0.79881E-06 0.72902E-09 0.35353E-13 3 1 0.43485E-07 0.10000E+01 0.19533E+03 0.12554E-05 0.13849E-08 0.54870E-13 3 1 0.43485E-07 0.10000E+01 0.15752E+03 0.12554E-05 0.13849E-08 0.54870E-13 - 3 1 0.75878E-07 0.10000E+01 0.80645E+05 0.19293E-53 0.14399E-64 0.85056E-60 - 3 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16289E-52 0.22830E-63 0.71854E-59 - 3 1 0.75878E-07 0.10000E+01 0.52449E+05 0.13816E-51 0.30518E-62 0.60980E-58 - 3 1 0.75878E-07 0.10000E+01 0.42297E+05 0.10351E-50 0.41074E-61 0.45730E-57 - 3 1 0.75878E-07 0.10000E+01 0.34111E+05 0.74069E-50 0.55532E-60 0.32780E-56 - 3 1 0.75878E-07 0.10000E+01 0.27509E+05 0.52484E-49 0.73379E-59 0.23296E-55 - 3 1 0.75878E-07 0.10000E+01 0.22184E+05 0.36584E-48 0.93610E-58 0.16319E-54 - 3 1 0.75878E-07 0.10000E+01 0.17891E+05 0.24774E-47 0.11445E-56 0.11143E-53 - 3 1 0.75878E-07 0.10000E+01 0.14428E+05 0.16158E-46 0.13367E-55 0.73631E-53 - 3 1 0.75878E-07 0.10000E+01 0.11635E+05 0.10097E-45 0.14784E-54 0.46877E-52 - 3 1 0.75878E-07 0.10000E+01 0.93834E+04 0.60091E-45 0.15625E-53 0.28479E-51 - 3 1 0.75878E-07 0.10000E+01 0.75673E+04 0.34403E-44 0.18447E-52 0.16269E-50 - 3 1 0.75878E-07 0.10000E+01 0.61026E+04 0.21087E-43 0.32835E-51 0.90097E-50 - 3 1 0.75878E-07 0.10000E+01 0.49215E+04 0.17543E-42 0.79923E-50 0.58681E-49 - 3 1 0.75878E-07 0.10000E+01 0.39689E+04 0.20309E-41 0.20144E-48 0.56056E-48 - 3 1 0.75878E-07 0.10000E+01 0.32008E+04 0.82056E-39 0.15688E-45 0.21124E-45 - 3 1 0.75878E-07 0.10000E+01 0.25813E+04 0.53309E-30 0.22263E-36 0.12883E-36 - 3 1 0.75878E-07 0.10000E+01 0.20817E+04 0.84860E-14 0.14460E-19 0.17965E-20 + 3 1 0.75878E-07 0.10000E+01 0.80645E+05 0.13057E-10 0.80981E-22 0.57549E-17 + 3 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16732E-10 0.18433E-21 0.73767E-17 + 3 1 0.75878E-07 0.10000E+01 0.52449E+05 0.21132E-10 0.41141E-21 0.93204E-17 + 3 1 0.75878E-07 0.10000E+01 0.42297E+05 0.26387E-10 0.89556E-21 0.11647E-16 + 3 1 0.75878E-07 0.10000E+01 0.34111E+05 0.32628E-10 0.18928E-20 0.14417E-16 + 3 1 0.75878E-07 0.10000E+01 0.27509E+05 0.39965E-10 0.38794E-20 0.17686E-16 + 3 1 0.75878E-07 0.10000E+01 0.22184E+05 0.48472E-10 0.78065E-20 0.21495E-16 + 3 1 0.75878E-07 0.10000E+01 0.17891E+05 0.58177E-10 0.16183E-19 0.25862E-16 + 3 1 0.75878E-07 0.10000E+01 0.14428E+05 0.69101E-10 0.38115E-19 0.30780E-16 + 3 1 0.75878E-07 0.10000E+01 0.11635E+05 0.81389E-10 0.11095E-18 0.36251E-16 + 3 1 0.75878E-07 0.10000E+01 0.93834E+04 0.95626E-10 0.38789E-18 0.42362E-16 + 3 1 0.75878E-07 0.10000E+01 0.75673E+04 0.11349E-09 0.14840E-17 0.49443E-16 + 3 1 0.75878E-07 0.10000E+01 0.61026E+04 0.13903E-09 0.58282E-17 0.58347E-16 + 3 1 0.75878E-07 0.10000E+01 0.49215E+04 0.18113E-09 0.22875E-16 0.70893E-16 + 3 1 0.75878E-07 0.10000E+01 0.39689E+04 0.25844E-09 0.88979E-16 0.90584E-16 + 3 1 0.75878E-07 0.10000E+01 0.32008E+04 0.40904E-09 0.34290E-15 0.12377E-15 + 3 1 0.75878E-07 0.10000E+01 0.25813E+04 0.70961E-09 0.13105E-14 0.18156E-15 + 3 1 0.75878E-07 0.10000E+01 0.20817E+04 0.13130E-08 0.49585E-14 0.28319E-15 3 1 0.75878E-07 0.10000E+01 0.16788E+04 0.25209E-08 0.18518E-13 0.46195E-15 3 1 0.75878E-07 0.10000E+01 0.13538E+04 0.49208E-08 0.68214E-13 0.77574E-15 3 1 0.75878E-07 0.10000E+01 0.10918E+04 0.96387E-08 0.24856E-12 0.13259E-14 @@ -13500,24 +13500,24 @@ VERSION 2.8.2 3 1 0.75878E-07 0.10000E+01 0.24221E+03 0.80111E-06 0.72499E-09 0.64669E-13 3 1 0.75878E-07 0.10000E+01 0.19533E+03 0.12563E-05 0.13768E-08 0.99357E-13 3 1 0.75878E-07 0.10000E+01 0.15752E+03 0.12563E-05 0.13768E-08 0.99357E-13 - 3 1 0.13240E-06 0.10000E+01 0.80645E+05 0.35149E-53 0.26243E-64 0.26493E-59 - 3 1 0.13240E-06 0.10000E+01 0.65036E+05 0.29686E-52 0.41619E-63 0.22387E-58 - 3 1 0.13240E-06 0.10000E+01 0.52449E+05 0.25186E-51 0.55670E-62 0.19003E-57 - 3 1 0.13240E-06 0.10000E+01 0.42297E+05 0.18879E-50 0.75005E-61 0.14256E-56 - 3 1 0.13240E-06 0.10000E+01 0.34111E+05 0.13522E-49 0.10159E-59 0.10226E-55 - 3 1 0.13240E-06 0.10000E+01 0.27509E+05 0.95960E-49 0.13464E-58 0.72760E-55 - 3 1 0.13240E-06 0.10000E+01 0.22184E+05 0.67063E-48 0.17264E-57 0.51065E-54 - 3 1 0.13240E-06 0.10000E+01 0.17891E+05 0.45613E-47 0.21282E-56 0.34977E-53 - 3 1 0.13240E-06 0.10000E+01 0.14428E+05 0.29957E-46 0.25150E-55 0.23226E-52 - 3 1 0.13240E-06 0.10000E+01 0.11635E+05 0.18905E-45 0.28182E-54 0.14896E-51 - 3 1 0.13240E-06 0.10000E+01 0.93834E+04 0.11374E-44 0.29637E-53 0.91462E-51 - 3 1 0.13240E-06 0.10000E+01 0.75673E+04 0.64991E-44 0.32234E-52 0.52854E-50 - 3 1 0.13240E-06 0.10000E+01 0.61026E+04 0.37686E-43 0.49738E-51 0.29128E-49 - 3 1 0.13240E-06 0.10000E+01 0.49215E+04 0.27755E-42 0.11389E-49 0.17945E-48 - 3 1 0.13240E-06 0.10000E+01 0.39689E+04 0.29504E-41 0.28323E-48 0.15939E-47 - 3 1 0.13240E-06 0.10000E+01 0.32008E+04 0.11576E-38 0.21621E-45 0.58612E-45 - 3 1 0.13240E-06 0.10000E+01 0.25813E+04 0.73259E-30 0.29238E-36 0.35614E-36 - 3 1 0.13240E-06 0.10000E+01 0.20817E+04 0.11079E-13 0.16893E-19 0.49130E-20 + 3 1 0.13240E-06 0.10000E+01 0.80645E+05 0.23785E-10 0.14792E-21 0.17923E-16 + 3 1 0.13240E-06 0.10000E+01 0.65036E+05 0.30484E-10 0.33732E-21 0.22977E-16 + 3 1 0.13240E-06 0.10000E+01 0.52449E+05 0.38508E-10 0.75503E-21 0.29037E-16 + 3 1 0.13240E-06 0.10000E+01 0.42297E+05 0.48103E-10 0.16504E-20 0.36294E-16 + 3 1 0.13240E-06 0.10000E+01 0.34111E+05 0.59513E-10 0.35068E-20 0.44946E-16 + 3 1 0.13240E-06 0.10000E+01 0.27509E+05 0.72956E-10 0.72204E-20 0.55174E-16 + 3 1 0.13240E-06 0.10000E+01 0.22184E+05 0.88581E-10 0.14488E-19 0.67115E-16 + 3 1 0.13240E-06 0.10000E+01 0.17891E+05 0.10645E-09 0.29303E-19 0.80840E-16 + 3 1 0.13240E-06 0.10000E+01 0.14428E+05 0.12657E-09 0.64911E-19 0.96338E-16 + 3 1 0.13240E-06 0.10000E+01 0.11635E+05 0.14906E-09 0.17374E-18 0.11359E-15 + 3 1 0.13240E-06 0.10000E+01 0.93834E+04 0.17460E-09 0.56605E-18 0.13279E-15 + 3 1 0.13240E-06 0.10000E+01 0.75673E+04 0.20535E-09 0.20612E-17 0.15478E-15 + 3 1 0.13240E-06 0.10000E+01 0.61026E+04 0.24656E-09 0.77727E-17 0.18180E-15 + 3 1 0.13240E-06 0.10000E+01 0.49215E+04 0.30972E-09 0.29308E-16 0.21872E-15 + 3 1 0.13240E-06 0.10000E+01 0.39689E+04 0.41816E-09 0.10941E-15 0.27483E-15 + 3 1 0.13240E-06 0.10000E+01 0.32008E+04 0.61770E-09 0.40475E-15 0.36657E-15 + 3 1 0.13240E-06 0.10000E+01 0.25813E+04 0.99685E-09 0.14891E-14 0.52176E-15 + 3 1 0.13240E-06 0.10000E+01 0.20817E+04 0.17254E-08 0.54513E-14 0.78628E-15 3 1 0.13240E-06 0.10000E+01 0.16788E+04 0.31279E-08 0.19813E-13 0.12354E-14 3 1 0.13240E-06 0.10000E+01 0.13538E+04 0.58205E-08 0.71440E-13 0.19932E-14 3 1 0.13240E-06 0.10000E+01 0.10918E+04 0.10963E-07 0.25607E-12 0.32657E-14 @@ -13530,24 +13530,24 @@ VERSION 2.8.2 3 1 0.13240E-06 0.10000E+01 0.24221E+03 0.80796E-06 0.72072E-09 0.12224E-12 3 1 0.13240E-06 0.10000E+01 0.19533E+03 0.12624E-05 0.13681E-08 0.18497E-12 3 1 0.13240E-06 0.10000E+01 0.15752E+03 0.12624E-05 0.13681E-08 0.18497E-12 - 3 1 0.23103E-06 0.10000E+01 0.80645E+05 0.62184E-53 0.46434E-64 0.57270E-59 - 3 1 0.23103E-06 0.10000E+01 0.65036E+05 0.52524E-52 0.73646E-63 0.48397E-58 - 3 1 0.23103E-06 0.10000E+01 0.52449E+05 0.44567E-51 0.98531E-62 0.41084E-57 - 3 1 0.23103E-06 0.10000E+01 0.42297E+05 0.33413E-50 0.13280E-60 0.30827E-56 - 3 1 0.23103E-06 0.10000E+01 0.34111E+05 0.23939E-49 0.17998E-59 0.22118E-55 - 3 1 0.23103E-06 0.10000E+01 0.27509E+05 0.16998E-48 0.23878E-58 0.15742E-54 - 3 1 0.23103E-06 0.10000E+01 0.22184E+05 0.11890E-47 0.30673E-57 0.11055E-53 - 3 1 0.23103E-06 0.10000E+01 0.17891E+05 0.80993E-47 0.37918E-56 0.75799E-53 - 3 1 0.23103E-06 0.10000E+01 0.14428E+05 0.53319E-46 0.44995E-55 0.50413E-52 - 3 1 0.23103E-06 0.10000E+01 0.11635E+05 0.33767E-45 0.50678E-54 0.32409E-51 - 3 1 0.23103E-06 0.10000E+01 0.93834E+04 0.20402E-44 0.53377E-53 0.19968E-50 - 3 1 0.23103E-06 0.10000E+01 0.75673E+04 0.11677E-43 0.56856E-52 0.11585E-49 - 3 1 0.23103E-06 0.10000E+01 0.61026E+04 0.66804E-43 0.83475E-51 0.63832E-49 - 3 1 0.23103E-06 0.10000E+01 0.49215E+04 0.47306E-42 0.18618E-49 0.38697E-48 - 3 1 0.23103E-06 0.10000E+01 0.39689E+04 0.48639E-41 0.46084E-48 0.33532E-47 - 3 1 0.23103E-06 0.10000E+01 0.32008E+04 0.18868E-38 0.34985E-45 0.12217E-44 - 3 1 0.23103E-06 0.10000E+01 0.25813E+04 0.11844E-29 0.46547E-36 0.74197E-36 - 3 1 0.23103E-06 0.10000E+01 0.20817E+04 0.17609E-13 0.25667E-19 0.10221E-19 + 3 1 0.23103E-06 0.10000E+01 0.80645E+05 0.42077E-10 0.26193E-21 0.38743E-16 + 3 1 0.23103E-06 0.10000E+01 0.65036E+05 0.53931E-10 0.59769E-21 0.49670E-16 + 3 1 0.23103E-06 0.10000E+01 0.52449E+05 0.68132E-10 0.13392E-20 0.62773E-16 + 3 1 0.23103E-06 0.10000E+01 0.42297E+05 0.85118E-10 0.29316E-20 0.78469E-16 + 3 1 0.23103E-06 0.10000E+01 0.34111E+05 0.10533E-09 0.62413E-20 0.97187E-16 + 3 1 0.23103E-06 0.10000E+01 0.27509E+05 0.12916E-09 0.12876E-19 0.11933E-15 + 3 1 0.23103E-06 0.10000E+01 0.22184E+05 0.15688E-09 0.25841E-19 0.14520E-15 + 3 1 0.23103E-06 0.10000E+01 0.17891E+05 0.18862E-09 0.51958E-19 0.17495E-15 + 3 1 0.23103E-06 0.10000E+01 0.14428E+05 0.22437E-09 0.11308E-18 0.20859E-15 + 3 1 0.23103E-06 0.10000E+01 0.11635E+05 0.26429E-09 0.29454E-18 0.24605E-15 + 3 1 0.23103E-06 0.10000E+01 0.93834E+04 0.30939E-09 0.93601E-18 0.28770E-15 + 3 1 0.23103E-06 0.10000E+01 0.75673E+04 0.36304E-09 0.33483E-17 0.33522E-15 + 3 1 0.23103E-06 0.10000E+01 0.61026E+04 0.43359E-09 0.12444E-16 0.39324E-15 + 3 1 0.23103E-06 0.10000E+01 0.49215E+04 0.53915E-09 0.46232E-16 0.47178E-15 + 3 1 0.23103E-06 0.10000E+01 0.39689E+04 0.71618E-09 0.16983E-15 0.58999E-15 + 3 1 0.23103E-06 0.10000E+01 0.32008E+04 0.10352E-08 0.61769E-15 0.78153E-15 + 3 1 0.23103E-06 0.10000E+01 0.25813E+04 0.16300E-08 0.22346E-14 0.11027E-14 + 3 1 0.23103E-06 0.10000E+01 0.20817E+04 0.27527E-08 0.80544E-14 0.16451E-14 3 1 0.23103E-06 0.10000E+01 0.16788E+04 0.48777E-08 0.28888E-13 0.25561E-14 3 1 0.23103E-06 0.10000E+01 0.13538E+04 0.88944E-08 0.10303E-12 0.40733E-14 3 1 0.23103E-06 0.10000E+01 0.10918E+04 0.16460E-07 0.36612E-12 0.65838E-14 @@ -13560,24 +13560,24 @@ VERSION 2.8.2 3 1 0.23103E-06 0.10000E+01 0.24221E+03 0.11421E-05 0.10106E-08 0.22208E-12 3 1 0.23103E-06 0.10000E+01 0.19533E+03 0.17808E-05 0.19179E-08 0.33363E-12 3 1 0.23103E-06 0.10000E+01 0.15752E+03 0.17808E-05 0.19179E-08 0.33363E-12 - 3 1 0.40314E-06 0.10000E+01 0.80645E+05 0.10851E-52 0.81024E-64 0.99933E-59 - 3 1 0.40314E-06 0.10000E+01 0.65036E+05 0.91650E-52 0.12851E-62 0.84451E-58 - 3 1 0.40314E-06 0.10000E+01 0.52449E+05 0.77767E-51 0.17193E-61 0.71690E-57 - 3 1 0.40314E-06 0.10000E+01 0.42297E+05 0.58304E-50 0.23173E-60 0.53791E-56 - 3 1 0.40314E-06 0.10000E+01 0.34111E+05 0.41772E-49 0.31405E-59 0.38594E-55 - 3 1 0.40314E-06 0.10000E+01 0.27509E+05 0.29661E-48 0.41666E-58 0.27470E-54 - 3 1 0.40314E-06 0.10000E+01 0.22184E+05 0.20747E-47 0.53522E-57 0.19291E-53 - 3 1 0.40314E-06 0.10000E+01 0.17891E+05 0.14133E-46 0.66165E-56 0.13226E-52 - 3 1 0.40314E-06 0.10000E+01 0.14428E+05 0.93039E-46 0.78513E-55 0.87968E-52 - 3 1 0.40314E-06 0.10000E+01 0.11635E+05 0.58921E-45 0.88430E-54 0.56552E-51 - 3 1 0.40314E-06 0.10000E+01 0.93834E+04 0.35600E-44 0.93140E-53 0.34843E-50 - 3 1 0.40314E-06 0.10000E+01 0.75673E+04 0.20375E-43 0.99210E-52 0.20216E-49 - 3 1 0.40314E-06 0.10000E+01 0.61026E+04 0.11657E-42 0.14566E-50 0.11138E-48 - 3 1 0.40314E-06 0.10000E+01 0.49215E+04 0.82547E-42 0.32487E-49 0.67524E-48 - 3 1 0.40314E-06 0.10000E+01 0.39689E+04 0.84872E-41 0.80414E-48 0.58511E-47 - 3 1 0.40314E-06 0.10000E+01 0.32008E+04 0.32923E-38 0.61047E-45 0.21319E-44 - 3 1 0.40314E-06 0.10000E+01 0.25813E+04 0.20668E-29 0.81221E-36 0.12947E-35 - 3 1 0.40314E-06 0.10000E+01 0.20817E+04 0.30727E-13 0.44788E-19 0.17834E-19 + 3 1 0.40314E-06 0.10000E+01 0.80645E+05 0.73422E-10 0.45705E-21 0.67605E-16 + 3 1 0.40314E-06 0.10000E+01 0.65036E+05 0.94106E-10 0.10429E-20 0.86670E-16 + 3 1 0.40314E-06 0.10000E+01 0.52449E+05 0.11889E-09 0.23368E-20 0.10953E-15 + 3 1 0.40314E-06 0.10000E+01 0.42297E+05 0.14853E-09 0.51155E-20 0.13692E-15 + 3 1 0.40314E-06 0.10000E+01 0.34111E+05 0.18380E-09 0.10891E-19 0.16959E-15 + 3 1 0.40314E-06 0.10000E+01 0.27509E+05 0.22538E-09 0.22468E-19 0.20822E-15 + 3 1 0.40314E-06 0.10000E+01 0.22184E+05 0.27375E-09 0.45092E-19 0.25336E-15 + 3 1 0.40314E-06 0.10000E+01 0.17891E+05 0.32913E-09 0.90663E-19 0.30528E-15 + 3 1 0.40314E-06 0.10000E+01 0.14428E+05 0.39152E-09 0.19732E-18 0.36397E-15 + 3 1 0.40314E-06 0.10000E+01 0.11635E+05 0.46117E-09 0.51396E-18 0.42934E-15 + 3 1 0.40314E-06 0.10000E+01 0.93834E+04 0.53987E-09 0.16333E-17 0.50201E-15 + 3 1 0.40314E-06 0.10000E+01 0.75673E+04 0.63348E-09 0.58426E-17 0.58494E-15 + 3 1 0.40314E-06 0.10000E+01 0.61026E+04 0.75658E-09 0.21713E-16 0.68618E-15 + 3 1 0.40314E-06 0.10000E+01 0.49215E+04 0.94078E-09 0.80672E-16 0.82324E-15 + 3 1 0.40314E-06 0.10000E+01 0.39689E+04 0.12497E-08 0.29634E-15 0.10295E-14 + 3 1 0.40314E-06 0.10000E+01 0.32008E+04 0.18064E-08 0.10778E-14 0.13637E-14 + 3 1 0.40314E-06 0.10000E+01 0.25813E+04 0.28442E-08 0.38992E-14 0.19242E-14 + 3 1 0.40314E-06 0.10000E+01 0.20817E+04 0.48032E-08 0.14054E-13 0.28706E-14 3 1 0.40314E-06 0.10000E+01 0.16788E+04 0.85112E-08 0.50407E-13 0.44602E-14 3 1 0.40314E-06 0.10000E+01 0.13538E+04 0.15520E-07 0.17978E-12 0.71077E-14 3 1 0.40314E-06 0.10000E+01 0.10918E+04 0.28723E-07 0.63886E-12 0.11488E-13 @@ -13590,24 +13590,24 @@ VERSION 2.8.2 3 1 0.40314E-06 0.10000E+01 0.24221E+03 0.19928E-05 0.17635E-08 0.38751E-12 3 1 0.40314E-06 0.10000E+01 0.19533E+03 0.31074E-05 0.33466E-08 0.58216E-12 3 1 0.40314E-06 0.10000E+01 0.15752E+03 0.31074E-05 0.33466E-08 0.58216E-12 - 3 1 0.70346E-06 0.10000E+01 0.80645E+05 0.18934E-52 0.14138E-63 0.17438E-58 - 3 1 0.70346E-06 0.10000E+01 0.65036E+05 0.15992E-51 0.22424E-62 0.14736E-57 - 3 1 0.70346E-06 0.10000E+01 0.52449E+05 0.13570E-50 0.30001E-61 0.12509E-56 - 3 1 0.70346E-06 0.10000E+01 0.42297E+05 0.10174E-49 0.40436E-60 0.93861E-56 - 3 1 0.70346E-06 0.10000E+01 0.34111E+05 0.72889E-49 0.54800E-59 0.67344E-55 - 3 1 0.70346E-06 0.10000E+01 0.27509E+05 0.51756E-48 0.72704E-58 0.47933E-54 - 3 1 0.70346E-06 0.10000E+01 0.22184E+05 0.36203E-47 0.93392E-57 0.33662E-53 - 3 1 0.70346E-06 0.10000E+01 0.17891E+05 0.24661E-46 0.11545E-55 0.23079E-52 - 3 1 0.70346E-06 0.10000E+01 0.14428E+05 0.16235E-45 0.13700E-54 0.15350E-51 - 3 1 0.70346E-06 0.10000E+01 0.11635E+05 0.10281E-44 0.15430E-53 0.98681E-51 - 3 1 0.70346E-06 0.10000E+01 0.93834E+04 0.62119E-44 0.16252E-52 0.60798E-50 - 3 1 0.70346E-06 0.10000E+01 0.75673E+04 0.35554E-43 0.17312E-51 0.35275E-49 - 3 1 0.70346E-06 0.10000E+01 0.61026E+04 0.20340E-42 0.25417E-50 0.19436E-48 - 3 1 0.70346E-06 0.10000E+01 0.49215E+04 0.14404E-41 0.56687E-49 0.11783E-47 - 3 1 0.70346E-06 0.10000E+01 0.39689E+04 0.14810E-40 0.14032E-47 0.10210E-46 - 3 1 0.70346E-06 0.10000E+01 0.32008E+04 0.57449E-38 0.10652E-44 0.37200E-44 - 3 1 0.70346E-06 0.10000E+01 0.25813E+04 0.36064E-29 0.14173E-35 0.22592E-35 - 3 1 0.70346E-06 0.10000E+01 0.20817E+04 0.53617E-13 0.78152E-19 0.31120E-19 + 3 1 0.70346E-06 0.10000E+01 0.80645E+05 0.12812E-09 0.79753E-21 0.11797E-15 + 3 1 0.70346E-06 0.10000E+01 0.65036E+05 0.16421E-09 0.18199E-20 0.15123E-15 + 3 1 0.70346E-06 0.10000E+01 0.52449E+05 0.20745E-09 0.40775E-20 0.19113E-15 + 3 1 0.70346E-06 0.10000E+01 0.42297E+05 0.25917E-09 0.89262E-20 0.23892E-15 + 3 1 0.70346E-06 0.10000E+01 0.34111E+05 0.32071E-09 0.19004E-19 0.29592E-15 + 3 1 0.70346E-06 0.10000E+01 0.27509E+05 0.39327E-09 0.39205E-19 0.36333E-15 + 3 1 0.70346E-06 0.10000E+01 0.22184E+05 0.47768E-09 0.78682E-19 0.44209E-15 + 3 1 0.70346E-06 0.10000E+01 0.17891E+05 0.57432E-09 0.15820E-18 0.53270E-15 + 3 1 0.70346E-06 0.10000E+01 0.14428E+05 0.68317E-09 0.34432E-18 0.63510E-15 + 3 1 0.70346E-06 0.10000E+01 0.11635E+05 0.80471E-09 0.89683E-18 0.74917E-15 + 3 1 0.70346E-06 0.10000E+01 0.93834E+04 0.94204E-09 0.28500E-17 0.87598E-15 + 3 1 0.70346E-06 0.10000E+01 0.75673E+04 0.11054E-08 0.10195E-16 0.10207E-14 + 3 1 0.70346E-06 0.10000E+01 0.61026E+04 0.13202E-08 0.37889E-16 0.11973E-14 + 3 1 0.70346E-06 0.10000E+01 0.49215E+04 0.16416E-08 0.14077E-15 0.14365E-14 + 3 1 0.70346E-06 0.10000E+01 0.39689E+04 0.21806E-08 0.51710E-15 0.17964E-14 + 3 1 0.70346E-06 0.10000E+01 0.32008E+04 0.31520E-08 0.18808E-14 0.23796E-14 + 3 1 0.70346E-06 0.10000E+01 0.25813E+04 0.49630E-08 0.68039E-14 0.33576E-14 + 3 1 0.70346E-06 0.10000E+01 0.20817E+04 0.83813E-08 0.24524E-13 0.50090E-14 3 1 0.70346E-06 0.10000E+01 0.16788E+04 0.14852E-07 0.87958E-13 0.77828E-14 3 1 0.70346E-06 0.10000E+01 0.13538E+04 0.27082E-07 0.31370E-12 0.12403E-13 3 1 0.70346E-06 0.10000E+01 0.10918E+04 0.50119E-07 0.11148E-11 0.20046E-13 @@ -13620,24 +13620,24 @@ VERSION 2.8.2 3 1 0.70346E-06 0.10000E+01 0.24221E+03 0.34773E-05 0.30771E-08 0.67618E-12 3 1 0.70346E-06 0.10000E+01 0.19533E+03 0.54222E-05 0.58395E-08 0.10158E-11 3 1 0.70346E-06 0.10000E+01 0.15752E+03 0.54222E-05 0.58395E-08 0.10158E-11 - 3 1 0.12275E-05 0.10000E+01 0.80645E+05 0.33038E-52 0.24670E-63 0.30428E-58 - 3 1 0.12275E-05 0.10000E+01 0.65036E+05 0.27906E-51 0.39128E-62 0.25714E-57 - 3 1 0.12275E-05 0.10000E+01 0.52449E+05 0.23679E-50 0.52350E-61 0.21828E-56 - 3 1 0.12275E-05 0.10000E+01 0.42297E+05 0.17752E-49 0.70559E-60 0.16378E-55 - 3 1 0.12275E-05 0.10000E+01 0.34111E+05 0.12719E-48 0.95622E-59 0.11751E-54 - 3 1 0.12275E-05 0.10000E+01 0.27509E+05 0.90311E-48 0.12686E-57 0.83640E-54 - 3 1 0.12275E-05 0.10000E+01 0.22184E+05 0.63172E-47 0.16296E-56 0.58737E-53 - 3 1 0.12275E-05 0.10000E+01 0.17891E+05 0.43032E-46 0.20146E-55 0.40272E-52 - 3 1 0.12275E-05 0.10000E+01 0.14428E+05 0.28329E-45 0.23906E-54 0.26785E-51 - 3 1 0.12275E-05 0.10000E+01 0.11635E+05 0.17940E-44 0.26925E-53 0.17219E-50 - 3 1 0.12275E-05 0.10000E+01 0.93834E+04 0.10839E-43 0.28359E-52 0.10609E-49 - 3 1 0.12275E-05 0.10000E+01 0.75673E+04 0.62039E-43 0.30208E-51 0.61553E-49 - 3 1 0.12275E-05 0.10000E+01 0.61026E+04 0.35493E-42 0.44350E-50 0.33914E-48 - 3 1 0.12275E-05 0.10000E+01 0.49215E+04 0.25134E-41 0.98915E-49 0.20560E-47 - 3 1 0.12275E-05 0.10000E+01 0.39689E+04 0.25842E-40 0.24485E-47 0.17815E-46 - 3 1 0.12275E-05 0.10000E+01 0.32008E+04 0.10025E-37 0.18588E-44 0.64912E-44 - 3 1 0.12275E-05 0.10000E+01 0.25813E+04 0.62929E-29 0.24730E-35 0.39421E-35 - 3 1 0.12275E-05 0.10000E+01 0.20817E+04 0.93558E-13 0.13637E-18 0.54302E-19 + 3 1 0.12275E-05 0.10000E+01 0.80645E+05 0.22356E-09 0.13916E-20 0.20584E-15 + 3 1 0.12275E-05 0.10000E+01 0.65036E+05 0.28653E-09 0.31755E-20 0.26390E-15 + 3 1 0.12275E-05 0.10000E+01 0.52449E+05 0.36199E-09 0.71150E-20 0.33351E-15 + 3 1 0.12275E-05 0.10000E+01 0.42297E+05 0.45224E-09 0.15576E-19 0.41690E-15 + 3 1 0.12275E-05 0.10000E+01 0.34111E+05 0.55962E-09 0.33160E-19 0.51636E-15 + 3 1 0.12275E-05 0.10000E+01 0.27509E+05 0.68623E-09 0.68410E-19 0.63399E-15 + 3 1 0.12275E-05 0.10000E+01 0.22184E+05 0.83353E-09 0.13730E-18 0.77143E-15 + 3 1 0.12275E-05 0.10000E+01 0.17891E+05 0.10022E-08 0.27605E-18 0.92953E-15 + 3 1 0.12275E-05 0.10000E+01 0.14428E+05 0.11921E-08 0.60081E-18 0.11082E-14 + 3 1 0.12275E-05 0.10000E+01 0.11635E+05 0.14042E-08 0.15649E-17 0.13073E-14 + 3 1 0.12275E-05 0.10000E+01 0.93834E+04 0.16438E-08 0.49730E-17 0.15285E-14 + 3 1 0.12275E-05 0.10000E+01 0.75673E+04 0.19288E-08 0.17790E-16 0.17810E-14 + 3 1 0.12275E-05 0.10000E+01 0.61026E+04 0.23036E-08 0.66113E-16 0.20893E-14 + 3 1 0.12275E-05 0.10000E+01 0.49215E+04 0.28645E-08 0.24563E-15 0.25066E-14 + 3 1 0.12275E-05 0.10000E+01 0.39689E+04 0.38051E-08 0.90231E-15 0.31346E-14 + 3 1 0.12275E-05 0.10000E+01 0.32008E+04 0.55001E-08 0.32818E-14 0.41523E-14 + 3 1 0.12275E-05 0.10000E+01 0.25813E+04 0.86602E-08 0.11872E-13 0.58588E-14 + 3 1 0.12275E-05 0.10000E+01 0.20817E+04 0.14625E-07 0.42793E-13 0.87404E-14 3 1 0.12275E-05 0.10000E+01 0.16788E+04 0.25915E-07 0.15348E-12 0.13581E-13 3 1 0.12275E-05 0.10000E+01 0.13538E+04 0.47256E-07 0.54739E-12 0.21642E-13 3 1 0.12275E-05 0.10000E+01 0.10918E+04 0.87455E-07 0.19452E-11 0.34980E-13 @@ -13650,24 +13650,24 @@ VERSION 2.8.2 3 1 0.12275E-05 0.10000E+01 0.24221E+03 0.60678E-05 0.53694E-08 0.11799E-11 3 1 0.12275E-05 0.10000E+01 0.19533E+03 0.94614E-05 0.10190E-07 0.17726E-11 3 1 0.12275E-05 0.10000E+01 0.15752E+03 0.94614E-05 0.10190E-07 0.17726E-11 - 3 1 0.21419E-05 0.10000E+01 0.80645E+05 0.57650E-52 0.43048E-63 0.53095E-58 - 3 1 0.21419E-05 0.10000E+01 0.65036E+05 0.48694E-51 0.68276E-62 0.44869E-57 - 3 1 0.21419E-05 0.10000E+01 0.52449E+05 0.41318E-50 0.91347E-61 0.38089E-56 - 3 1 0.21419E-05 0.10000E+01 0.42297E+05 0.30977E-49 0.12312E-59 0.28579E-55 - 3 1 0.21419E-05 0.10000E+01 0.34111E+05 0.22193E-48 0.16686E-58 0.20505E-54 - 3 1 0.21419E-05 0.10000E+01 0.27509E+05 0.15759E-47 0.22137E-57 0.14595E-53 - 3 1 0.21419E-05 0.10000E+01 0.22184E+05 0.11023E-46 0.28436E-56 0.10249E-52 - 3 1 0.21419E-05 0.10000E+01 0.17891E+05 0.75088E-46 0.35154E-55 0.70273E-52 - 3 1 0.21419E-05 0.10000E+01 0.14428E+05 0.49432E-45 0.41714E-54 0.46738E-51 - 3 1 0.21419E-05 0.10000E+01 0.11635E+05 0.31305E-44 0.46983E-53 0.30046E-50 - 3 1 0.21419E-05 0.10000E+01 0.93834E+04 0.18914E-43 0.49485E-52 0.18512E-49 - 3 1 0.21419E-05 0.10000E+01 0.75673E+04 0.10825E-42 0.52710E-51 0.10741E-48 - 3 1 0.21419E-05 0.10000E+01 0.61026E+04 0.61933E-42 0.77389E-50 0.59178E-48 - 3 1 0.21419E-05 0.10000E+01 0.49215E+04 0.43857E-41 0.17260E-48 0.35876E-47 - 3 1 0.21419E-05 0.10000E+01 0.39689E+04 0.45093E-40 0.42724E-47 0.31087E-46 - 3 1 0.21419E-05 0.10000E+01 0.32008E+04 0.17492E-37 0.32434E-44 0.11327E-43 - 3 1 0.21419E-05 0.10000E+01 0.25813E+04 0.10981E-28 0.43153E-35 0.68787E-35 - 3 1 0.21419E-05 0.10000E+01 0.20817E+04 0.16325E-12 0.23796E-18 0.94754E-19 + 3 1 0.21419E-05 0.10000E+01 0.80645E+05 0.39009E-09 0.24283E-20 0.35918E-15 + 3 1 0.21419E-05 0.10000E+01 0.65036E+05 0.49998E-09 0.55411E-20 0.46048E-15 + 3 1 0.21419E-05 0.10000E+01 0.52449E+05 0.63164E-09 0.12415E-19 0.58196E-15 + 3 1 0.21419E-05 0.10000E+01 0.42297E+05 0.78912E-09 0.27179E-19 0.72747E-15 + 3 1 0.21419E-05 0.10000E+01 0.34111E+05 0.97651E-09 0.57863E-19 0.90101E-15 + 3 1 0.21419E-05 0.10000E+01 0.27509E+05 0.11974E-08 0.11937E-18 0.11063E-14 + 3 1 0.21419E-05 0.10000E+01 0.22184E+05 0.14545E-08 0.23957E-18 0.13461E-14 + 3 1 0.21419E-05 0.10000E+01 0.17891E+05 0.17487E-08 0.48169E-18 0.16220E-14 + 3 1 0.21419E-05 0.10000E+01 0.14428E+05 0.20801E-08 0.10484E-17 0.19338E-14 + 3 1 0.21419E-05 0.10000E+01 0.11635E+05 0.24502E-08 0.27307E-17 0.22811E-14 + 3 1 0.21419E-05 0.10000E+01 0.93834E+04 0.28683E-08 0.86777E-17 0.26672E-14 + 3 1 0.21419E-05 0.10000E+01 0.75673E+04 0.33657E-08 0.31042E-16 0.31078E-14 + 3 1 0.21419E-05 0.10000E+01 0.61026E+04 0.40197E-08 0.11536E-15 0.36457E-14 + 3 1 0.21419E-05 0.10000E+01 0.49215E+04 0.49984E-08 0.42861E-15 0.43739E-14 + 3 1 0.21419E-05 0.10000E+01 0.39689E+04 0.66397E-08 0.15745E-14 0.54697E-14 + 3 1 0.21419E-05 0.10000E+01 0.32008E+04 0.95974E-08 0.57266E-14 0.72455E-14 + 3 1 0.21419E-05 0.10000E+01 0.25813E+04 0.15111E-07 0.20717E-13 0.10223E-13 + 3 1 0.21419E-05 0.10000E+01 0.20817E+04 0.25520E-07 0.74671E-13 0.15252E-13 3 1 0.21419E-05 0.10000E+01 0.16788E+04 0.45220E-07 0.26781E-12 0.23697E-13 3 1 0.21419E-05 0.10000E+01 0.13538E+04 0.82459E-07 0.95516E-12 0.37764E-13 3 1 0.21419E-05 0.10000E+01 0.10918E+04 0.15260E-06 0.33943E-11 0.61038E-13 @@ -13680,24 +13680,24 @@ VERSION 2.8.2 3 1 0.21419E-05 0.10000E+01 0.24221E+03 0.10588E-04 0.93693E-08 0.20589E-11 3 1 0.21419E-05 0.10000E+01 0.19533E+03 0.16510E-04 0.17780E-07 0.30930E-11 3 1 0.21419E-05 0.10000E+01 0.15752E+03 0.16510E-04 0.17780E-07 0.30930E-11 - 3 1 0.37375E-05 0.10000E+01 0.80645E+05 0.10060E-51 0.75117E-63 0.92647E-58 - 3 1 0.37375E-05 0.10000E+01 0.65036E+05 0.84968E-51 0.11914E-61 0.78293E-57 - 3 1 0.37375E-05 0.10000E+01 0.52449E+05 0.72097E-50 0.15940E-60 0.66463E-56 - 3 1 0.37375E-05 0.10000E+01 0.42297E+05 0.54053E-49 0.21484E-59 0.49869E-55 - 3 1 0.37375E-05 0.10000E+01 0.34111E+05 0.38726E-48 0.29115E-58 0.35780E-54 - 3 1 0.37375E-05 0.10000E+01 0.27509E+05 0.27498E-47 0.38628E-57 0.25467E-53 - 3 1 0.37375E-05 0.10000E+01 0.22184E+05 0.19235E-46 0.49619E-56 0.17884E-52 - 3 1 0.37375E-05 0.10000E+01 0.17891E+05 0.13102E-45 0.61341E-55 0.12262E-51 - 3 1 0.37375E-05 0.10000E+01 0.14428E+05 0.86256E-45 0.72789E-54 0.81554E-51 - 3 1 0.37375E-05 0.10000E+01 0.11635E+05 0.54625E-44 0.81982E-53 0.52429E-50 - 3 1 0.37375E-05 0.10000E+01 0.93834E+04 0.33004E-43 0.86349E-52 0.32302E-49 - 3 1 0.37375E-05 0.10000E+01 0.75673E+04 0.18890E-42 0.91977E-51 0.18742E-48 - 3 1 0.37375E-05 0.10000E+01 0.61026E+04 0.10807E-41 0.13504E-49 0.10326E-47 - 3 1 0.37375E-05 0.10000E+01 0.49215E+04 0.76528E-41 0.30118E-48 0.62601E-47 - 3 1 0.37375E-05 0.10000E+01 0.39689E+04 0.78684E-40 0.74551E-47 0.54244E-46 - 3 1 0.37375E-05 0.10000E+01 0.32008E+04 0.30523E-37 0.56596E-44 0.19764E-43 - 3 1 0.37375E-05 0.10000E+01 0.25813E+04 0.19161E-28 0.75300E-35 0.12003E-34 - 3 1 0.37375E-05 0.10000E+01 0.20817E+04 0.28487E-12 0.41522E-18 0.16534E-18 + 3 1 0.37375E-05 0.10000E+01 0.80645E+05 0.68069E-09 0.42373E-20 0.62676E-15 + 3 1 0.37375E-05 0.10000E+01 0.65036E+05 0.87244E-09 0.96689E-20 0.80351E-15 + 3 1 0.37375E-05 0.10000E+01 0.52449E+05 0.11022E-08 0.21664E-19 0.10155E-14 + 3 1 0.37375E-05 0.10000E+01 0.42297E+05 0.13770E-08 0.47425E-19 0.12694E-14 + 3 1 0.37375E-05 0.10000E+01 0.34111E+05 0.17040E-08 0.10097E-18 0.15722E-14 + 3 1 0.37375E-05 0.10000E+01 0.27509E+05 0.20894E-08 0.20830E-18 0.19304E-14 + 3 1 0.37375E-05 0.10000E+01 0.22184E+05 0.25379E-08 0.41804E-18 0.23489E-14 + 3 1 0.37375E-05 0.10000E+01 0.17891E+05 0.30514E-08 0.84052E-18 0.28302E-14 + 3 1 0.37375E-05 0.10000E+01 0.14428E+05 0.36297E-08 0.18294E-17 0.33743E-14 + 3 1 0.37375E-05 0.10000E+01 0.11635E+05 0.42754E-08 0.47649E-17 0.39804E-14 + 3 1 0.37375E-05 0.10000E+01 0.93834E+04 0.50051E-08 0.15142E-16 0.46541E-14 + 3 1 0.37375E-05 0.10000E+01 0.75673E+04 0.58729E-08 0.54166E-16 0.54229E-14 + 3 1 0.37375E-05 0.10000E+01 0.61026E+04 0.70142E-08 0.20130E-15 0.63615E-14 + 3 1 0.37375E-05 0.10000E+01 0.49215E+04 0.87218E-08 0.74790E-15 0.76321E-14 + 3 1 0.37375E-05 0.10000E+01 0.39689E+04 0.11586E-07 0.27474E-14 0.95444E-14 + 3 1 0.37375E-05 0.10000E+01 0.32008E+04 0.16747E-07 0.99925E-14 0.12643E-13 + 3 1 0.37375E-05 0.10000E+01 0.25813E+04 0.26369E-07 0.36149E-13 0.17839E-13 + 3 1 0.37375E-05 0.10000E+01 0.20817E+04 0.44530E-07 0.13030E-12 0.26613E-13 3 1 0.37375E-05 0.10000E+01 0.16788E+04 0.78907E-07 0.46732E-12 0.41350E-13 3 1 0.37375E-05 0.10000E+01 0.13538E+04 0.14389E-06 0.16667E-11 0.65895E-13 3 1 0.37375E-05 0.10000E+01 0.10918E+04 0.26628E-06 0.59228E-11 0.10651E-12 @@ -13710,24 +13710,24 @@ VERSION 2.8.2 3 1 0.37375E-05 0.10000E+01 0.24221E+03 0.18475E-04 0.16349E-07 0.35926E-11 3 1 0.37375E-05 0.10000E+01 0.19533E+03 0.28808E-04 0.31026E-07 0.53971E-11 3 1 0.37375E-05 0.10000E+01 0.15752E+03 0.28808E-04 0.31026E-07 0.53971E-11 - 3 1 0.65217E-05 0.10000E+01 0.80645E+05 0.17553E-51 0.13107E-62 0.16166E-57 - 3 1 0.65217E-05 0.10000E+01 0.65036E+05 0.14826E-50 0.20789E-61 0.13662E-56 - 3 1 0.65217E-05 0.10000E+01 0.52449E+05 0.12581E-49 0.27814E-60 0.11597E-55 - 3 1 0.65217E-05 0.10000E+01 0.42297E+05 0.94319E-49 0.37488E-59 0.87018E-55 - 3 1 0.65217E-05 0.10000E+01 0.34111E+05 0.67575E-48 0.50804E-58 0.62434E-54 - 3 1 0.65217E-05 0.10000E+01 0.27509E+05 0.47982E-47 0.67403E-57 0.44438E-53 - 3 1 0.65217E-05 0.10000E+01 0.22184E+05 0.33563E-46 0.86583E-56 0.31207E-52 - 3 1 0.65217E-05 0.10000E+01 0.17891E+05 0.22863E-45 0.10704E-54 0.21397E-51 - 3 1 0.65217E-05 0.10000E+01 0.14428E+05 0.15051E-44 0.12701E-53 0.14231E-50 - 3 1 0.65217E-05 0.10000E+01 0.11635E+05 0.95317E-44 0.14305E-52 0.91486E-50 - 3 1 0.65217E-05 0.10000E+01 0.93834E+04 0.57590E-43 0.15067E-51 0.56365E-49 - 3 1 0.65217E-05 0.10000E+01 0.75673E+04 0.32961E-42 0.16049E-50 0.32703E-48 - 3 1 0.65217E-05 0.10000E+01 0.61026E+04 0.18857E-41 0.23563E-49 0.18018E-47 - 3 1 0.65217E-05 0.10000E+01 0.49215E+04 0.13354E-40 0.52554E-48 0.10924E-46 - 3 1 0.65217E-05 0.10000E+01 0.39689E+04 0.13730E-39 0.13009E-46 0.94653E-46 - 3 1 0.65217E-05 0.10000E+01 0.32008E+04 0.53260E-37 0.98757E-44 0.34488E-43 - 3 1 0.65217E-05 0.10000E+01 0.25813E+04 0.33434E-28 0.13139E-34 0.20944E-34 - 3 1 0.65217E-05 0.10000E+01 0.20817E+04 0.49708E-12 0.72454E-18 0.28851E-18 + 3 1 0.65217E-05 0.10000E+01 0.80645E+05 0.11878E-08 0.73938E-20 0.10937E-14 + 3 1 0.65217E-05 0.10000E+01 0.65036E+05 0.15224E-08 0.16872E-19 0.14021E-14 + 3 1 0.65217E-05 0.10000E+01 0.52449E+05 0.19232E-08 0.37802E-19 0.17720E-14 + 3 1 0.65217E-05 0.10000E+01 0.42297E+05 0.24027E-08 0.82754E-19 0.22150E-14 + 3 1 0.65217E-05 0.10000E+01 0.34111E+05 0.29733E-08 0.17618E-18 0.27434E-14 + 3 1 0.65217E-05 0.10000E+01 0.27509E+05 0.36459E-08 0.36346E-18 0.33684E-14 + 3 1 0.65217E-05 0.10000E+01 0.22184E+05 0.44285E-08 0.72945E-18 0.40986E-14 + 3 1 0.65217E-05 0.10000E+01 0.17891E+05 0.53245E-08 0.14667E-17 0.49386E-14 + 3 1 0.65217E-05 0.10000E+01 0.14428E+05 0.63336E-08 0.31921E-17 0.58880E-14 + 3 1 0.65217E-05 0.10000E+01 0.11635E+05 0.74604E-08 0.83144E-17 0.69455E-14 + 3 1 0.65217E-05 0.10000E+01 0.93834E+04 0.87335E-08 0.26422E-16 0.81211E-14 + 3 1 0.65217E-05 0.10000E+01 0.75673E+04 0.10248E-07 0.94516E-16 0.94626E-14 + 3 1 0.65217E-05 0.10000E+01 0.61026E+04 0.12239E-07 0.35126E-15 0.11100E-13 + 3 1 0.65217E-05 0.10000E+01 0.49215E+04 0.15219E-07 0.13050E-14 0.13318E-13 + 3 1 0.65217E-05 0.10000E+01 0.39689E+04 0.20217E-07 0.47940E-14 0.16654E-13 + 3 1 0.65217E-05 0.10000E+01 0.32008E+04 0.29222E-07 0.17436E-13 0.22061E-13 + 3 1 0.65217E-05 0.10000E+01 0.25813E+04 0.46012E-07 0.63078E-13 0.31128E-13 + 3 1 0.65217E-05 0.10000E+01 0.20817E+04 0.77702E-07 0.22736E-12 0.46438E-13 3 1 0.65217E-05 0.10000E+01 0.16788E+04 0.13769E-06 0.81545E-12 0.72153E-13 3 1 0.65217E-05 0.10000E+01 0.13538E+04 0.25107E-06 0.29083E-11 0.11498E-12 3 1 0.65217E-05 0.10000E+01 0.10918E+04 0.46465E-06 0.10335E-10 0.18585E-12 @@ -13740,24 +13740,24 @@ VERSION 2.8.2 3 1 0.65217E-05 0.10000E+01 0.24221E+03 0.32238E-04 0.28528E-07 0.62688E-11 3 1 0.65217E-05 0.10000E+01 0.19533E+03 0.50269E-04 0.54138E-07 0.94177E-11 3 1 0.65217E-05 0.10000E+01 0.15752E+03 0.50269E-04 0.54138E-07 0.94177E-11 - 3 1 0.11380E-04 0.10000E+01 0.80645E+05 0.30630E-51 0.22872E-62 0.28209E-57 - 3 1 0.11380E-04 0.10000E+01 0.65036E+05 0.25871E-50 0.36275E-61 0.23839E-56 - 3 1 0.11380E-04 0.10000E+01 0.52449E+05 0.21952E-49 0.48533E-60 0.20237E-55 - 3 1 0.11380E-04 0.10000E+01 0.42297E+05 0.16458E-48 0.65414E-59 0.15184E-54 - 3 1 0.11380E-04 0.10000E+01 0.34111E+05 0.11791E-47 0.88650E-58 0.10894E-53 - 3 1 0.11380E-04 0.10000E+01 0.27509E+05 0.83726E-47 0.11761E-56 0.77542E-53 - 3 1 0.11380E-04 0.10000E+01 0.22184E+05 0.58566E-46 0.15108E-55 0.54455E-52 - 3 1 0.11380E-04 0.10000E+01 0.17891E+05 0.39894E-45 0.18677E-54 0.37336E-51 - 3 1 0.11380E-04 0.10000E+01 0.14428E+05 0.26263E-44 0.22163E-53 0.24832E-50 - 3 1 0.11380E-04 0.10000E+01 0.11635E+05 0.16632E-43 0.24962E-52 0.15964E-49 - 3 1 0.11380E-04 0.10000E+01 0.93834E+04 0.10049E-42 0.26292E-51 0.98354E-49 - 3 1 0.11380E-04 0.10000E+01 0.75673E+04 0.57516E-42 0.28005E-50 0.57065E-48 - 3 1 0.11380E-04 0.10000E+01 0.61026E+04 0.32905E-41 0.41117E-49 0.31441E-47 - 3 1 0.11380E-04 0.10000E+01 0.49215E+04 0.23301E-40 0.91703E-48 0.19061E-46 - 3 1 0.11380E-04 0.10000E+01 0.39689E+04 0.23958E-39 0.22699E-46 0.16516E-45 - 3 1 0.11380E-04 0.10000E+01 0.32008E+04 0.92936E-37 0.17232E-43 0.60179E-43 - 3 1 0.11380E-04 0.10000E+01 0.25813E+04 0.58341E-28 0.22927E-34 0.36547E-34 - 3 1 0.11380E-04 0.10000E+01 0.20817E+04 0.86737E-12 0.12643E-17 0.50343E-18 + 3 1 0.11380E-04 0.10000E+01 0.80645E+05 0.20726E-08 0.12902E-19 0.19084E-14 + 3 1 0.11380E-04 0.10000E+01 0.65036E+05 0.26564E-08 0.29440E-19 0.24465E-14 + 3 1 0.11380E-04 0.10000E+01 0.52449E+05 0.33559E-08 0.65962E-19 0.30920E-14 + 3 1 0.11380E-04 0.10000E+01 0.42297E+05 0.41926E-08 0.14440E-18 0.38651E-14 + 3 1 0.11380E-04 0.10000E+01 0.34111E+05 0.51882E-08 0.30742E-18 0.47871E-14 + 3 1 0.11380E-04 0.10000E+01 0.27509E+05 0.63620E-08 0.63422E-18 0.58776E-14 + 3 1 0.11380E-04 0.10000E+01 0.22184E+05 0.77275E-08 0.12729E-17 0.71518E-14 + 3 1 0.11380E-04 0.10000E+01 0.17891E+05 0.92909E-08 0.25592E-17 0.86175E-14 + 3 1 0.11380E-04 0.10000E+01 0.14428E+05 0.11052E-07 0.55700E-17 0.10274E-13 + 3 1 0.11380E-04 0.10000E+01 0.11635E+05 0.13018E-07 0.14508E-16 0.12119E-13 + 3 1 0.11380E-04 0.10000E+01 0.93834E+04 0.15240E-07 0.46105E-16 0.14171E-13 + 3 1 0.11380E-04 0.10000E+01 0.75673E+04 0.17882E-07 0.16492E-15 0.16512E-13 + 3 1 0.11380E-04 0.10000E+01 0.61026E+04 0.21357E-07 0.61293E-15 0.19370E-13 + 3 1 0.11380E-04 0.10000E+01 0.49215E+04 0.26556E-07 0.22772E-14 0.23238E-13 + 3 1 0.11380E-04 0.10000E+01 0.39689E+04 0.35277E-07 0.83652E-14 0.29061E-13 + 3 1 0.11380E-04 0.10000E+01 0.32008E+04 0.50991E-07 0.30425E-13 0.38495E-13 + 3 1 0.11380E-04 0.10000E+01 0.25813E+04 0.80288E-07 0.11007E-12 0.54316E-13 + 3 1 0.11380E-04 0.10000E+01 0.20817E+04 0.13559E-06 0.39673E-12 0.81032E-13 3 1 0.11380E-04 0.10000E+01 0.16788E+04 0.24026E-06 0.14229E-11 0.12590E-12 3 1 0.11380E-04 0.10000E+01 0.13538E+04 0.43811E-06 0.50748E-11 0.20064E-12 3 1 0.11380E-04 0.10000E+01 0.10918E+04 0.81078E-06 0.18034E-10 0.32429E-12 @@ -13770,24 +13770,24 @@ VERSION 2.8.2 3 1 0.11380E-04 0.10000E+01 0.24221E+03 0.56254E-04 0.49779E-07 0.10939E-10 3 1 0.11380E-04 0.10000E+01 0.19533E+03 0.87716E-04 0.94467E-07 0.16433E-10 3 1 0.11380E-04 0.10000E+01 0.15752E+03 0.87716E-04 0.94467E-07 0.16433E-10 - 3 1 0.19857E-04 0.10000E+01 0.80645E+05 0.53447E-51 0.39910E-62 0.49223E-57 - 3 1 0.19857E-04 0.10000E+01 0.65036E+05 0.45144E-50 0.63298E-61 0.41597E-56 - 3 1 0.19857E-04 0.10000E+01 0.52449E+05 0.38305E-49 0.84687E-60 0.35312E-55 - 3 1 0.19857E-04 0.10000E+01 0.42297E+05 0.28718E-48 0.11414E-58 0.26495E-54 - 3 1 0.19857E-04 0.10000E+01 0.34111E+05 0.20575E-47 0.15469E-57 0.19010E-53 - 3 1 0.19857E-04 0.10000E+01 0.27509E+05 0.14610E-46 0.20523E-56 0.13531E-52 - 3 1 0.19857E-04 0.10000E+01 0.22184E+05 0.10219E-45 0.26363E-55 0.95020E-52 - 3 1 0.19857E-04 0.10000E+01 0.17891E+05 0.69613E-45 0.32590E-54 0.65149E-51 - 3 1 0.19857E-04 0.10000E+01 0.14428E+05 0.45828E-44 0.38673E-53 0.43330E-50 - 3 1 0.19857E-04 0.10000E+01 0.11635E+05 0.29022E-43 0.43557E-52 0.27856E-49 - 3 1 0.19857E-04 0.10000E+01 0.93834E+04 0.17535E-42 0.45877E-51 0.17162E-48 - 3 1 0.19857E-04 0.10000E+01 0.75673E+04 0.10036E-41 0.48867E-50 0.99575E-48 - 3 1 0.19857E-04 0.10000E+01 0.61026E+04 0.57417E-41 0.71746E-49 0.54863E-47 - 3 1 0.19857E-04 0.10000E+01 0.49215E+04 0.40660E-40 0.16002E-47 0.33260E-46 - 3 1 0.19857E-04 0.10000E+01 0.39689E+04 0.41805E-39 0.39609E-46 0.28820E-45 - 3 1 0.19857E-04 0.10000E+01 0.32008E+04 0.16217E-36 0.30070E-43 0.10501E-42 - 3 1 0.19857E-04 0.10000E+01 0.25813E+04 0.10180E-27 0.40007E-34 0.63772E-34 - 3 1 0.19857E-04 0.10000E+01 0.20817E+04 0.15135E-11 0.22061E-17 0.87845E-18 + 3 1 0.19857E-04 0.10000E+01 0.80645E+05 0.36165E-08 0.22513E-19 0.33300E-14 + 3 1 0.19857E-04 0.10000E+01 0.65036E+05 0.46353E-08 0.51371E-19 0.42691E-14 + 3 1 0.19857E-04 0.10000E+01 0.52449E+05 0.58559E-08 0.11510E-18 0.53953E-14 + 3 1 0.19857E-04 0.10000E+01 0.42297E+05 0.73159E-08 0.25197E-18 0.67443E-14 + 3 1 0.19857E-04 0.10000E+01 0.34111E+05 0.90531E-08 0.53644E-18 0.83532E-14 + 3 1 0.19857E-04 0.10000E+01 0.27509E+05 0.11101E-07 0.11067E-17 0.10256E-13 + 3 1 0.19857E-04 0.10000E+01 0.22184E+05 0.13484E-07 0.22211E-17 0.12480E-13 + 3 1 0.19857E-04 0.10000E+01 0.17891E+05 0.16212E-07 0.44657E-17 0.15037E-13 + 3 1 0.19857E-04 0.10000E+01 0.14428E+05 0.19285E-07 0.97194E-17 0.17928E-13 + 3 1 0.19857E-04 0.10000E+01 0.11635E+05 0.22715E-07 0.25316E-16 0.21148E-13 + 3 1 0.19857E-04 0.10000E+01 0.93834E+04 0.26592E-07 0.80450E-16 0.24727E-13 + 3 1 0.19857E-04 0.10000E+01 0.75673E+04 0.31203E-07 0.28778E-15 0.28812E-13 + 3 1 0.19857E-04 0.10000E+01 0.61026E+04 0.37266E-07 0.10695E-14 0.33799E-13 + 3 1 0.19857E-04 0.10000E+01 0.49215E+04 0.46339E-07 0.39736E-14 0.40550E-13 + 3 1 0.19857E-04 0.10000E+01 0.39689E+04 0.61556E-07 0.14597E-13 0.50709E-13 + 3 1 0.19857E-04 0.10000E+01 0.32008E+04 0.88976E-07 0.53090E-13 0.67172E-13 + 3 1 0.19857E-04 0.10000E+01 0.25813E+04 0.14010E-06 0.19206E-12 0.94778E-13 + 3 1 0.19857E-04 0.10000E+01 0.20817E+04 0.23659E-06 0.69227E-12 0.14140E-12 3 1 0.19857E-04 0.10000E+01 0.16788E+04 0.41923E-06 0.24829E-11 0.21969E-12 3 1 0.19857E-04 0.10000E+01 0.13538E+04 0.76447E-06 0.88552E-11 0.35010E-12 3 1 0.19857E-04 0.10000E+01 0.10918E+04 0.14148E-05 0.31468E-10 0.56587E-12 @@ -13800,24 +13800,24 @@ VERSION 2.8.2 3 1 0.19857E-04 0.10000E+01 0.24221E+03 0.98159E-04 0.86862E-07 0.19087E-10 3 1 0.19857E-04 0.10000E+01 0.19533E+03 0.15306E-03 0.16484E-06 0.28675E-10 3 1 0.19857E-04 0.10000E+01 0.15752E+03 0.15306E-03 0.16484E-06 0.28675E-10 - 3 1 0.34650E-04 0.10000E+01 0.80645E+05 0.93261E-51 0.69640E-62 0.85892E-57 - 3 1 0.34650E-04 0.10000E+01 0.65036E+05 0.78773E-50 0.11045E-60 0.72585E-56 - 3 1 0.34650E-04 0.10000E+01 0.52449E+05 0.66841E-49 0.14777E-59 0.61617E-55 - 3 1 0.34650E-04 0.10000E+01 0.42297E+05 0.50112E-48 0.19917E-58 0.46233E-54 - 3 1 0.34650E-04 0.10000E+01 0.34111E+05 0.35903E-47 0.26992E-57 0.33171E-53 - 3 1 0.34650E-04 0.10000E+01 0.27509E+05 0.25493E-46 0.35811E-56 0.23610E-52 - 3 1 0.34650E-04 0.10000E+01 0.22184E+05 0.17832E-45 0.46002E-55 0.16580E-51 - 3 1 0.34650E-04 0.10000E+01 0.17891E+05 0.12147E-44 0.56868E-54 0.11368E-50 - 3 1 0.34650E-04 0.10000E+01 0.14428E+05 0.79967E-44 0.67482E-53 0.75608E-50 - 3 1 0.34650E-04 0.10000E+01 0.11635E+05 0.50642E-43 0.76005E-52 0.48607E-49 - 3 1 0.34650E-04 0.10000E+01 0.93834E+04 0.30598E-42 0.80053E-51 0.29947E-48 - 3 1 0.34650E-04 0.10000E+01 0.75673E+04 0.17512E-41 0.85271E-50 0.17375E-47 - 3 1 0.34650E-04 0.10000E+01 0.61026E+04 0.10019E-40 0.12519E-48 0.95732E-47 - 3 1 0.34650E-04 0.10000E+01 0.49215E+04 0.70948E-40 0.27922E-47 0.58037E-46 - 3 1 0.34650E-04 0.10000E+01 0.39689E+04 0.72947E-39 0.69116E-46 0.50289E-45 - 3 1 0.34650E-04 0.10000E+01 0.32008E+04 0.28297E-36 0.52470E-43 0.18323E-42 - 3 1 0.34650E-04 0.10000E+01 0.25813E+04 0.17764E-27 0.69809E-34 0.11128E-33 - 3 1 0.34650E-04 0.10000E+01 0.20817E+04 0.26410E-11 0.38495E-17 0.15328E-17 + 3 1 0.34650E-04 0.10000E+01 0.80645E+05 0.63106E-08 0.39283E-19 0.58106E-14 + 3 1 0.34650E-04 0.10000E+01 0.65036E+05 0.80883E-08 0.89639E-19 0.74493E-14 + 3 1 0.34650E-04 0.10000E+01 0.52449E+05 0.10218E-07 0.20084E-18 0.94144E-14 + 3 1 0.34650E-04 0.10000E+01 0.42297E+05 0.12766E-07 0.43967E-18 0.11768E-13 + 3 1 0.34650E-04 0.10000E+01 0.34111E+05 0.15797E-07 0.93605E-18 0.14576E-13 + 3 1 0.34650E-04 0.10000E+01 0.27509E+05 0.19371E-07 0.19311E-17 0.17896E-13 + 3 1 0.34650E-04 0.10000E+01 0.22184E+05 0.23529E-07 0.38756E-17 0.21776E-13 + 3 1 0.34650E-04 0.10000E+01 0.17891E+05 0.28289E-07 0.77924E-17 0.26239E-13 + 3 1 0.34650E-04 0.10000E+01 0.14428E+05 0.33651E-07 0.16960E-16 0.31283E-13 + 3 1 0.34650E-04 0.10000E+01 0.11635E+05 0.39637E-07 0.44175E-16 0.36901E-13 + 3 1 0.34650E-04 0.10000E+01 0.93834E+04 0.46401E-07 0.14038E-15 0.43148E-13 + 3 1 0.34650E-04 0.10000E+01 0.75673E+04 0.54447E-07 0.50216E-15 0.50275E-13 + 3 1 0.34650E-04 0.10000E+01 0.61026E+04 0.65028E-07 0.18663E-14 0.58977E-13 + 3 1 0.34650E-04 0.10000E+01 0.49215E+04 0.80859E-07 0.69337E-14 0.70757E-13 + 3 1 0.34650E-04 0.10000E+01 0.39689E+04 0.10741E-06 0.25470E-13 0.88485E-13 + 3 1 0.34650E-04 0.10000E+01 0.32008E+04 0.15526E-06 0.92639E-13 0.11721E-12 + 3 1 0.34650E-04 0.10000E+01 0.25813E+04 0.24446E-06 0.33513E-12 0.16538E-12 + 3 1 0.34650E-04 0.10000E+01 0.20817E+04 0.41283E-06 0.12080E-11 0.24673E-12 3 1 0.34650E-04 0.10000E+01 0.16788E+04 0.73153E-06 0.43325E-11 0.38335E-12 3 1 0.34650E-04 0.10000E+01 0.13538E+04 0.13339E-05 0.15452E-10 0.61091E-12 3 1 0.34650E-04 0.10000E+01 0.10918E+04 0.24687E-05 0.54910E-10 0.98742E-12 @@ -13830,24 +13830,24 @@ VERSION 2.8.2 3 1 0.34650E-04 0.10000E+01 0.24221E+03 0.17128E-03 0.15157E-06 0.33306E-10 3 1 0.34650E-04 0.10000E+01 0.19533E+03 0.26708E-03 0.28763E-06 0.50036E-10 3 1 0.34650E-04 0.10000E+01 0.15752E+03 0.26708E-03 0.28763E-06 0.50036E-10 - 3 1 0.60462E-04 0.10000E+01 0.80645E+05 0.16274E-50 0.12152E-61 0.14988E-56 - 3 1 0.60462E-04 0.10000E+01 0.65036E+05 0.13745E-49 0.19273E-60 0.12666E-55 - 3 1 0.60462E-04 0.10000E+01 0.52449E+05 0.11663E-48 0.25786E-59 0.10752E-54 - 3 1 0.60462E-04 0.10000E+01 0.42297E+05 0.87442E-48 0.34755E-58 0.80673E-54 - 3 1 0.60462E-04 0.10000E+01 0.34111E+05 0.62648E-47 0.47100E-57 0.57882E-53 - 3 1 0.60462E-04 0.10000E+01 0.27509E+05 0.44484E-46 0.62489E-56 0.41198E-52 - 3 1 0.60462E-04 0.10000E+01 0.22184E+05 0.31116E-45 0.80270E-55 0.28932E-51 - 3 1 0.60462E-04 0.10000E+01 0.17891E+05 0.21196E-44 0.99232E-54 0.19837E-50 - 3 1 0.60462E-04 0.10000E+01 0.14428E+05 0.13954E-43 0.11775E-52 0.13193E-49 - 3 1 0.60462E-04 0.10000E+01 0.11635E+05 0.88367E-43 0.13262E-51 0.84815E-49 - 3 1 0.60462E-04 0.10000E+01 0.93834E+04 0.53391E-42 0.13969E-50 0.52256E-48 - 3 1 0.60462E-04 0.10000E+01 0.75673E+04 0.30558E-41 0.14879E-49 0.30319E-47 - 3 1 0.60462E-04 0.10000E+01 0.61026E+04 0.17483E-40 0.21845E-48 0.16705E-46 - 3 1 0.60462E-04 0.10000E+01 0.49215E+04 0.12380E-39 0.48722E-47 0.10127E-45 - 3 1 0.60462E-04 0.10000E+01 0.39689E+04 0.12729E-38 0.12060E-45 0.87752E-45 - 3 1 0.60462E-04 0.10000E+01 0.32008E+04 0.49377E-36 0.91556E-43 0.31973E-42 - 3 1 0.60462E-04 0.10000E+01 0.25813E+04 0.30997E-27 0.12181E-33 0.19417E-33 - 3 1 0.60462E-04 0.10000E+01 0.20817E+04 0.46083E-11 0.67171E-17 0.26747E-17 + 3 1 0.60462E-04 0.10000E+01 0.80645E+05 0.11012E-07 0.68547E-19 0.10139E-13 + 3 1 0.60462E-04 0.10000E+01 0.65036E+05 0.14114E-07 0.15642E-18 0.12999E-13 + 3 1 0.60462E-04 0.10000E+01 0.52449E+05 0.17830E-07 0.35046E-18 0.16428E-13 + 3 1 0.60462E-04 0.10000E+01 0.42297E+05 0.22275E-07 0.76720E-18 0.20535E-13 + 3 1 0.60462E-04 0.10000E+01 0.34111E+05 0.27565E-07 0.16334E-17 0.25434E-13 + 3 1 0.60462E-04 0.10000E+01 0.27509E+05 0.33801E-07 0.33696E-17 0.31228E-13 + 3 1 0.60462E-04 0.10000E+01 0.22184E+05 0.41057E-07 0.67627E-17 0.37998E-13 + 3 1 0.60462E-04 0.10000E+01 0.17891E+05 0.49362E-07 0.13597E-16 0.45785E-13 + 3 1 0.60462E-04 0.10000E+01 0.14428E+05 0.58718E-07 0.29594E-16 0.54587E-13 + 3 1 0.60462E-04 0.10000E+01 0.11635E+05 0.69164E-07 0.77082E-16 0.64391E-13 + 3 1 0.60462E-04 0.10000E+01 0.93834E+04 0.80968E-07 0.24495E-15 0.75290E-13 + 3 1 0.60462E-04 0.10000E+01 0.75673E+04 0.95007E-07 0.87625E-15 0.87727E-13 + 3 1 0.60462E-04 0.10000E+01 0.61026E+04 0.11347E-06 0.32565E-14 0.10291E-12 + 3 1 0.60462E-04 0.10000E+01 0.49215E+04 0.14109E-06 0.12099E-13 0.12347E-12 + 3 1 0.60462E-04 0.10000E+01 0.39689E+04 0.18743E-06 0.44444E-13 0.15440E-12 + 3 1 0.60462E-04 0.10000E+01 0.32008E+04 0.27092E-06 0.16165E-12 0.20453E-12 + 3 1 0.60462E-04 0.10000E+01 0.25813E+04 0.42657E-06 0.58479E-12 0.28858E-12 + 3 1 0.60462E-04 0.10000E+01 0.20817E+04 0.72037E-06 0.21078E-11 0.43052E-12 3 1 0.60462E-04 0.10000E+01 0.16788E+04 0.12765E-05 0.75599E-11 0.66893E-12 3 1 0.60462E-04 0.10000E+01 0.13538E+04 0.23277E-05 0.26962E-10 0.10660E-11 3 1 0.60462E-04 0.10000E+01 0.10918E+04 0.43077E-05 0.95814E-10 0.17230E-11 @@ -13860,24 +13860,24 @@ VERSION 2.8.2 3 1 0.60462E-04 0.10000E+01 0.24221E+03 0.29888E-03 0.26448E-06 0.58118E-10 3 1 0.60462E-04 0.10000E+01 0.19533E+03 0.46603E-03 0.50190E-06 0.87310E-10 3 1 0.60462E-04 0.10000E+01 0.15752E+03 0.46603E-03 0.50190E-06 0.87310E-10 - 3 1 0.10550E-03 0.10000E+01 0.80645E+05 0.28396E-50 0.21204E-61 0.26152E-56 - 3 1 0.10550E-03 0.10000E+01 0.65036E+05 0.23985E-49 0.33630E-60 0.22101E-55 - 3 1 0.10550E-03 0.10000E+01 0.52449E+05 0.20352E-48 0.44994E-59 0.18761E-54 - 3 1 0.10550E-03 0.10000E+01 0.42297E+05 0.15258E-47 0.60645E-58 0.14077E-53 - 3 1 0.10550E-03 0.10000E+01 0.34111E+05 0.10932E-46 0.82187E-57 0.10100E-52 - 3 1 0.10550E-03 0.10000E+01 0.27509E+05 0.77622E-46 0.10904E-55 0.71888E-52 - 3 1 0.10550E-03 0.10000E+01 0.22184E+05 0.54296E-45 0.14007E-54 0.50484E-51 - 3 1 0.10550E-03 0.10000E+01 0.17891E+05 0.36985E-44 0.17315E-53 0.34614E-50 - 3 1 0.10550E-03 0.10000E+01 0.14428E+05 0.24348E-43 0.20547E-52 0.23021E-49 - 3 1 0.10550E-03 0.10000E+01 0.11635E+05 0.15420E-42 0.23142E-51 0.14800E-48 - 3 1 0.10550E-03 0.10000E+01 0.93834E+04 0.93164E-42 0.24375E-50 0.91183E-48 - 3 1 0.10550E-03 0.10000E+01 0.75673E+04 0.53322E-41 0.25963E-49 0.52904E-47 - 3 1 0.10550E-03 0.10000E+01 0.61026E+04 0.30506E-40 0.38119E-48 0.29149E-46 - 3 1 0.10550E-03 0.10000E+01 0.49215E+04 0.21602E-39 0.85017E-47 0.17671E-45 - 3 1 0.10550E-03 0.10000E+01 0.39689E+04 0.22211E-38 0.21044E-45 0.15312E-44 - 3 1 0.10550E-03 0.10000E+01 0.32008E+04 0.86160E-36 0.15976E-42 0.55791E-42 - 3 1 0.10550E-03 0.10000E+01 0.25813E+04 0.54087E-27 0.21256E-33 0.33882E-33 - 3 1 0.10550E-03 0.10000E+01 0.20817E+04 0.80413E-11 0.11721E-16 0.46672E-17 + 3 1 0.10550E-03 0.10000E+01 0.80645E+05 0.19215E-07 0.11961E-18 0.17692E-13 + 3 1 0.10550E-03 0.10000E+01 0.65036E+05 0.24627E-07 0.27293E-18 0.22682E-13 + 3 1 0.10550E-03 0.10000E+01 0.52449E+05 0.31113E-07 0.61153E-18 0.28665E-13 + 3 1 0.10550E-03 0.10000E+01 0.42297E+05 0.38869E-07 0.13387E-17 0.35833E-13 + 3 1 0.10550E-03 0.10000E+01 0.34111E+05 0.48099E-07 0.28501E-17 0.44381E-13 + 3 1 0.10550E-03 0.10000E+01 0.27509E+05 0.58981E-07 0.58798E-17 0.54491E-13 + 3 1 0.10550E-03 0.10000E+01 0.22184E+05 0.71641E-07 0.11800E-16 0.66304E-13 + 3 1 0.10550E-03 0.10000E+01 0.17891E+05 0.86134E-07 0.23726E-16 0.79892E-13 + 3 1 0.10550E-03 0.10000E+01 0.14428E+05 0.10246E-06 0.51639E-16 0.95251E-13 + 3 1 0.10550E-03 0.10000E+01 0.11635E+05 0.12069E-06 0.13450E-15 0.11236E-12 + 3 1 0.10550E-03 0.10000E+01 0.93834E+04 0.14128E-06 0.42743E-15 0.13138E-12 + 3 1 0.10550E-03 0.10000E+01 0.75673E+04 0.16578E-06 0.15290E-14 0.15308E-12 + 3 1 0.10550E-03 0.10000E+01 0.61026E+04 0.19800E-06 0.56824E-14 0.17957E-12 + 3 1 0.10550E-03 0.10000E+01 0.49215E+04 0.24620E-06 0.21112E-13 0.21544E-12 + 3 1 0.10550E-03 0.10000E+01 0.39689E+04 0.32705E-06 0.77553E-13 0.26942E-12 + 3 1 0.10550E-03 0.10000E+01 0.32008E+04 0.47273E-06 0.28207E-12 0.35689E-12 + 3 1 0.10550E-03 0.10000E+01 0.25813E+04 0.74434E-06 0.10204E-11 0.50356E-12 + 3 1 0.10550E-03 0.10000E+01 0.20817E+04 0.12570E-05 0.36780E-11 0.75124E-12 3 1 0.10550E-03 0.10000E+01 0.16788E+04 0.22274E-05 0.13192E-10 0.11672E-11 3 1 0.10550E-03 0.10000E+01 0.13538E+04 0.40616E-05 0.47048E-10 0.18601E-11 3 1 0.10550E-03 0.10000E+01 0.10918E+04 0.75167E-05 0.16719E-09 0.30065E-11 @@ -13890,24 +13890,24 @@ VERSION 2.8.2 3 1 0.10550E-03 0.10000E+01 0.24221E+03 0.52152E-03 0.46150E-06 0.10141E-09 3 1 0.10550E-03 0.10000E+01 0.19533E+03 0.81320E-03 0.87579E-06 0.15235E-09 3 1 0.10550E-03 0.10000E+01 0.15752E+03 0.81320E-03 0.87579E-06 0.15235E-09 - 3 1 0.18409E-03 0.10000E+01 0.80645E+05 0.49550E-50 0.37000E-61 0.45635E-56 - 3 1 0.18409E-03 0.10000E+01 0.65036E+05 0.41852E-49 0.58683E-60 0.38564E-55 - 3 1 0.18409E-03 0.10000E+01 0.52449E+05 0.35513E-48 0.78513E-59 0.32737E-54 - 3 1 0.18409E-03 0.10000E+01 0.42297E+05 0.26624E-47 0.10582E-57 0.24564E-53 - 3 1 0.18409E-03 0.10000E+01 0.34111E+05 0.19075E-46 0.14341E-56 0.17624E-52 - 3 1 0.18409E-03 0.10000E+01 0.27509E+05 0.13545E-45 0.19027E-55 0.12544E-51 - 3 1 0.18409E-03 0.10000E+01 0.22184E+05 0.94743E-45 0.24441E-54 0.88092E-51 - 3 1 0.18409E-03 0.10000E+01 0.17891E+05 0.64537E-44 0.30214E-53 0.60399E-50 - 3 1 0.18409E-03 0.10000E+01 0.14428E+05 0.42486E-43 0.35853E-52 0.40171E-49 - 3 1 0.18409E-03 0.10000E+01 0.11635E+05 0.26906E-42 0.40381E-51 0.25825E-48 - 3 1 0.18409E-03 0.10000E+01 0.93834E+04 0.16257E-41 0.42532E-50 0.15911E-47 - 3 1 0.18409E-03 0.10000E+01 0.75673E+04 0.93044E-41 0.45304E-49 0.92315E-47 - 3 1 0.18409E-03 0.10000E+01 0.61026E+04 0.53231E-40 0.66515E-48 0.50863E-46 - 3 1 0.18409E-03 0.10000E+01 0.49215E+04 0.37695E-39 0.14835E-46 0.30835E-45 - 3 1 0.18409E-03 0.10000E+01 0.39689E+04 0.38757E-38 0.36721E-45 0.26719E-44 - 3 1 0.18409E-03 0.10000E+01 0.32008E+04 0.15034E-35 0.27877E-42 0.97352E-42 - 3 1 0.18409E-03 0.10000E+01 0.25813E+04 0.94379E-27 0.37090E-33 0.59122E-33 - 3 1 0.18409E-03 0.10000E+01 0.20817E+04 0.14032E-10 0.20452E-16 0.81440E-17 + 3 1 0.18409E-03 0.10000E+01 0.80645E+05 0.33528E-07 0.20871E-18 0.30872E-13 + 3 1 0.18409E-03 0.10000E+01 0.65036E+05 0.42973E-07 0.47625E-18 0.39578E-13 + 3 1 0.18409E-03 0.10000E+01 0.52449E+05 0.54289E-07 0.10671E-17 0.50019E-13 + 3 1 0.18409E-03 0.10000E+01 0.42297E+05 0.67825E-07 0.23360E-17 0.62526E-13 + 3 1 0.18409E-03 0.10000E+01 0.34111E+05 0.83930E-07 0.49733E-17 0.77442E-13 + 3 1 0.18409E-03 0.10000E+01 0.27509E+05 0.10292E-06 0.10260E-16 0.95083E-13 + 3 1 0.18409E-03 0.10000E+01 0.22184E+05 0.12501E-06 0.20591E-16 0.11570E-12 + 3 1 0.18409E-03 0.10000E+01 0.17891E+05 0.15030E-06 0.41401E-16 0.13941E-12 + 3 1 0.18409E-03 0.10000E+01 0.14428E+05 0.17879E-06 0.90107E-16 0.16621E-12 + 3 1 0.18409E-03 0.10000E+01 0.11635E+05 0.21059E-06 0.23470E-15 0.19606E-12 + 3 1 0.18409E-03 0.10000E+01 0.93834E+04 0.24653E-06 0.74584E-15 0.22924E-12 + 3 1 0.18409E-03 0.10000E+01 0.75673E+04 0.28928E-06 0.26680E-14 0.26711E-12 + 3 1 0.18409E-03 0.10000E+01 0.61026E+04 0.34549E-06 0.99154E-14 0.31334E-12 + 3 1 0.18409E-03 0.10000E+01 0.49215E+04 0.42961E-06 0.36839E-13 0.37593E-12 + 3 1 0.18409E-03 0.10000E+01 0.39689E+04 0.57068E-06 0.13533E-12 0.47012E-12 + 3 1 0.18409E-03 0.10000E+01 0.32008E+04 0.82489E-06 0.49219E-12 0.62275E-12 + 3 1 0.18409E-03 0.10000E+01 0.25813E+04 0.12988E-05 0.17806E-11 0.87868E-12 + 3 1 0.18409E-03 0.10000E+01 0.20817E+04 0.21934E-05 0.64179E-11 0.13109E-11 3 1 0.18409E-03 0.10000E+01 0.16788E+04 0.38867E-05 0.23019E-10 0.20368E-11 3 1 0.18409E-03 0.10000E+01 0.13538E+04 0.70873E-05 0.82096E-10 0.32458E-11 3 1 0.18409E-03 0.10000E+01 0.10918E+04 0.13116E-04 0.29174E-09 0.52462E-11 @@ -13920,24 +13920,24 @@ VERSION 2.8.2 3 1 0.18409E-03 0.10000E+01 0.24221E+03 0.91002E-03 0.80529E-06 0.17696E-09 3 1 0.18409E-03 0.10000E+01 0.19533E+03 0.14190E-02 0.15282E-05 0.26584E-09 3 1 0.18409E-03 0.10000E+01 0.15752E+03 0.14190E-02 0.15282E-05 0.26584E-09 - 3 1 0.32123E-03 0.10000E+01 0.80645E+05 0.86462E-50 0.64562E-61 0.79629E-56 - 3 1 0.32123E-03 0.10000E+01 0.65036E+05 0.73030E-49 0.10240E-59 0.67293E-55 - 3 1 0.32123E-03 0.10000E+01 0.52449E+05 0.61967E-48 0.13700E-58 0.57125E-54 - 3 1 0.32123E-03 0.10000E+01 0.42297E+05 0.46458E-47 0.18465E-57 0.42862E-53 - 3 1 0.32123E-03 0.10000E+01 0.34111E+05 0.33285E-46 0.25024E-56 0.30753E-52 - 3 1 0.32123E-03 0.10000E+01 0.27509E+05 0.23634E-45 0.33200E-55 0.21889E-51 - 3 1 0.32123E-03 0.10000E+01 0.22184E+05 0.16532E-44 0.42648E-54 0.15372E-50 - 3 1 0.32123E-03 0.10000E+01 0.17891E+05 0.11261E-43 0.52722E-53 0.10539E-49 - 3 1 0.32123E-03 0.10000E+01 0.14428E+05 0.74136E-43 0.62562E-52 0.70095E-49 - 3 1 0.32123E-03 0.10000E+01 0.11635E+05 0.46950E-42 0.70463E-51 0.45063E-48 - 3 1 0.32123E-03 0.10000E+01 0.93834E+04 0.28367E-41 0.74216E-50 0.27764E-47 - 3 1 0.32123E-03 0.10000E+01 0.75673E+04 0.16236E-40 0.79053E-49 0.16108E-46 - 3 1 0.32123E-03 0.10000E+01 0.61026E+04 0.92885E-40 0.11607E-47 0.88752E-46 - 3 1 0.32123E-03 0.10000E+01 0.49215E+04 0.65775E-39 0.25886E-46 0.53805E-45 - 3 1 0.32123E-03 0.10000E+01 0.39689E+04 0.67628E-38 0.64076E-45 0.46623E-44 - 3 1 0.32123E-03 0.10000E+01 0.32008E+04 0.26234E-35 0.48644E-42 0.16987E-41 - 3 1 0.32123E-03 0.10000E+01 0.25813E+04 0.16469E-26 0.64720E-33 0.10316E-32 - 3 1 0.32123E-03 0.10000E+01 0.20817E+04 0.24484E-10 0.35688E-16 0.14211E-16 + 3 1 0.32123E-03 0.10000E+01 0.80645E+05 0.58505E-07 0.36419E-18 0.53869E-13 + 3 1 0.32123E-03 0.10000E+01 0.65036E+05 0.74986E-07 0.83104E-18 0.69061E-13 + 3 1 0.32123E-03 0.10000E+01 0.52449E+05 0.94732E-07 0.18620E-17 0.87280E-13 + 3 1 0.32123E-03 0.10000E+01 0.42297E+05 0.11835E-06 0.40762E-17 0.10910E-12 + 3 1 0.32123E-03 0.10000E+01 0.34111E+05 0.14645E-06 0.86780E-17 0.13513E-12 + 3 1 0.32123E-03 0.10000E+01 0.27509E+05 0.17959E-06 0.17903E-16 0.16591E-12 + 3 1 0.32123E-03 0.10000E+01 0.22184E+05 0.21813E-06 0.35930E-16 0.20188E-12 + 3 1 0.32123E-03 0.10000E+01 0.17891E+05 0.26226E-06 0.72243E-16 0.24326E-12 + 3 1 0.32123E-03 0.10000E+01 0.14428E+05 0.31197E-06 0.15723E-15 0.29002E-12 + 3 1 0.32123E-03 0.10000E+01 0.11635E+05 0.36747E-06 0.40954E-15 0.34211E-12 + 3 1 0.32123E-03 0.10000E+01 0.93834E+04 0.43018E-06 0.13014E-14 0.40002E-12 + 3 1 0.32123E-03 0.10000E+01 0.75673E+04 0.50478E-06 0.46555E-14 0.46609E-12 + 3 1 0.32123E-03 0.10000E+01 0.61026E+04 0.60286E-06 0.17302E-13 0.54677E-12 + 3 1 0.32123E-03 0.10000E+01 0.49215E+04 0.74964E-06 0.64282E-13 0.65598E-12 + 3 1 0.32123E-03 0.10000E+01 0.39689E+04 0.99579E-06 0.23613E-12 0.82033E-12 + 3 1 0.32123E-03 0.10000E+01 0.32008E+04 0.14394E-05 0.85885E-12 0.10867E-11 + 3 1 0.32123E-03 0.10000E+01 0.25813E+04 0.22664E-05 0.31070E-11 0.15332E-11 + 3 1 0.32123E-03 0.10000E+01 0.20817E+04 0.38273E-05 0.11199E-10 0.22874E-11 3 1 0.32123E-03 0.10000E+01 0.16788E+04 0.67820E-05 0.40166E-10 0.35540E-11 3 1 0.32123E-03 0.10000E+01 0.13538E+04 0.12367E-04 0.14325E-09 0.56636E-11 3 1 0.32123E-03 0.10000E+01 0.10918E+04 0.22887E-04 0.50906E-09 0.91542E-11 @@ -14000,24 +14000,24 @@ VERSION 2.8.2 3 2 0.10550E-03 0.10000E+01 0.11872E+01 0.16875E+01 0.20361E+00 0.14757E-02 0.27847E+00 0.97989E-04 0.46642E+10 0.42742E+03 0.50000E+03 0.58892E-15 0.13998E-01 0.57609E-02 0.16381E+02 3 2 0.18409E-03 0.10000E+01 0.11872E+01 0.16875E+01 0.61994E+00 0.25750E-02 0.48591E+00 0.97989E-04 0.81388E+10 0.74583E+03 0.50000E+03 0.10276E-14 0.24426E-01 0.57609E-02 0.16381E+02 3 2 0.32123E-03 0.10000E+01 0.11872E+01 0.16875E+01 0.18876E+01 0.44933E-02 0.84788E+00 0.97989E-04 0.14202E+11 0.13014E+04 0.50000E+03 0.17932E-14 0.42622E-01 0.57609E-02 0.16381E+02 - 3 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 3 2 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 3 2 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 3 2 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 3 2 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 3 2 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 3 2 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 3 2 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 3 2 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 3 2 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 3 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 3 2 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 3 2 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 3 2 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 3 2 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 3 2 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 3 2 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 3 2 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 3 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 3 2 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 3 2 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 3 2 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 3 2 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 3 2 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 3 2 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 3 2 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 3 2 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 3 2 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 3 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 3 2 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 3 2 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 3 2 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 3 2 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 3 2 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 3 2 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 3 2 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 3 2 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 3 2 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 3 2 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -14030,24 +14030,24 @@ VERSION 2.8.2 3 2 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 3 2 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 3 2 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 3 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 3 2 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 3 2 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 3 2 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 3 2 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 3 2 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 3 2 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 3 2 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 3 2 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 3 2 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 3 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 3 2 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 3 2 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 3 2 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 3 2 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 3 2 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 3 2 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 3 2 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 3 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 3 2 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 3 2 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 3 2 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 3 2 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 3 2 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 3 2 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 3 2 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 3 2 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 3 2 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 3 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 3 2 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 3 2 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 3 2 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 3 2 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 3 2 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 3 2 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 3 2 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 3 2 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 3 2 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 3 2 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -14060,24 +14060,24 @@ VERSION 2.8.2 3 2 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 3 2 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 3 2 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 3 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 3 2 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 3 2 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 3 2 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 3 2 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 3 2 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 3 2 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 3 2 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 3 2 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 3 2 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 3 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 3 2 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 3 2 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 3 2 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 3 2 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 3 2 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 3 2 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 3 2 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 3 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 3 2 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 3 2 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 3 2 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 3 2 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 3 2 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 3 2 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 3 2 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 3 2 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 3 2 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 3 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 3 2 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 3 2 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 3 2 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 3 2 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 3 2 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 3 2 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 3 2 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 3 2 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 3 2 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 3 2 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -14090,24 +14090,24 @@ VERSION 2.8.2 3 2 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 3 2 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 3 2 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 3 2 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 3 2 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 3 2 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 3 2 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 3 2 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 3 2 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 3 2 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 3 2 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 3 2 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 3 2 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 3 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 3 2 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 3 2 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 3 2 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 3 2 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 3 2 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 3 2 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 3 2 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 3 2 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 3 2 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 3 2 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 3 2 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 3 2 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 3 2 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 3 2 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 3 2 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 3 2 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 3 2 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 3 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 3 2 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 3 2 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 3 2 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 3 2 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 3 2 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 3 2 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 3 2 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 3 2 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 3 2 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 3 2 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -14120,24 +14120,24 @@ VERSION 2.8.2 3 2 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 3 2 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 3 2 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 3 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 3 2 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 3 2 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 3 2 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 3 2 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 3 2 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 3 2 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 3 2 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 3 2 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 3 2 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 3 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 3 2 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 3 2 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 3 2 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 3 2 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 3 2 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 3 2 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 3 2 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 3 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 3 2 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 3 2 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 3 2 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 3 2 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 3 2 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 3 2 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 3 2 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 3 2 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 3 2 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 3 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 3 2 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 3 2 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 3 2 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 3 2 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 3 2 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 3 2 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 3 2 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 3 2 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 3 2 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 3 2 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -14150,24 +14150,24 @@ VERSION 2.8.2 3 2 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 3 2 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 3 2 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 3 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 3 2 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 3 2 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 3 2 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 3 2 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 3 2 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 3 2 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 3 2 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 3 2 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 3 2 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 3 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 3 2 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 3 2 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 3 2 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 3 2 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 3 2 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 3 2 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 3 2 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 3 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 3 2 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 3 2 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 3 2 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 3 2 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 3 2 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 3 2 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 3 2 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 3 2 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 3 2 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 3 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 3 2 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 3 2 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 3 2 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 3 2 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 3 2 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 3 2 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 3 2 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 3 2 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 3 2 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 3 2 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -14180,24 +14180,24 @@ VERSION 2.8.2 3 2 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 3 2 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 3 2 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 3 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 3 2 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 3 2 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 3 2 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 3 2 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 3 2 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 3 2 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 3 2 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 3 2 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 3 2 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 3 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 3 2 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 3 2 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 3 2 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 3 2 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 3 2 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 3 2 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 3 2 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 3 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 3 2 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 3 2 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 3 2 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 3 2 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 3 2 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 3 2 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 3 2 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 3 2 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 3 2 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 3 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 3 2 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 3 2 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 3 2 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 3 2 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 3 2 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 3 2 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 3 2 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 3 2 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 3 2 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 3 2 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -14210,24 +14210,24 @@ VERSION 2.8.2 3 2 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 3 2 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 3 2 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 3 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 3 2 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 3 2 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 3 2 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 3 2 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 3 2 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 3 2 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 3 2 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 3 2 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 3 2 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 3 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 3 2 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 3 2 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 3 2 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 3 2 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 3 2 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 3 2 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 3 2 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 3 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 3 2 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 3 2 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 3 2 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 3 2 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 3 2 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 3 2 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 3 2 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 3 2 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 3 2 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 3 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 3 2 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 3 2 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 3 2 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 3 2 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 3 2 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 3 2 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 3 2 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 3 2 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 3 2 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 3 2 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -14240,24 +14240,24 @@ VERSION 2.8.2 3 2 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 3 2 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 3 2 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 3 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 3 2 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 3 2 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 3 2 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 3 2 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 3 2 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 3 2 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 3 2 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 3 2 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 3 2 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 3 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 3 2 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 3 2 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 3 2 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 3 2 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 3 2 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 3 2 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 3 2 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 3 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 3 2 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 3 2 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 3 2 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 3 2 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 3 2 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 3 2 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 3 2 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 3 2 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 3 2 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 3 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 3 2 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 3 2 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 3 2 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 3 2 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 3 2 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 3 2 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 3 2 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 3 2 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 3 2 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 3 2 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -14270,24 +14270,24 @@ VERSION 2.8.2 3 2 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 3 2 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 3 2 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 3 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 3 2 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 3 2 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 3 2 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 3 2 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 3 2 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 3 2 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 3 2 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 3 2 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 3 2 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 3 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 3 2 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 3 2 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 3 2 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 3 2 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 3 2 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 3 2 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 3 2 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 3 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 3 2 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 3 2 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 3 2 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 3 2 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 3 2 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 3 2 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 3 2 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 3 2 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 3 2 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 3 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 3 2 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 3 2 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 3 2 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 3 2 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 3 2 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 3 2 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 3 2 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 3 2 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 3 2 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 3 2 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -14300,24 +14300,24 @@ VERSION 2.8.2 3 2 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 3 2 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 3 2 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 3 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 3 2 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 3 2 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 3 2 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 3 2 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 3 2 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 3 2 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 3 2 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 3 2 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 3 2 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 3 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 3 2 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 3 2 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 3 2 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 3 2 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 3 2 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 3 2 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 3 2 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 3 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 3 2 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 3 2 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 3 2 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 3 2 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 3 2 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 3 2 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 3 2 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 3 2 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 3 2 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 3 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 3 2 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 3 2 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 3 2 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 3 2 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 3 2 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 3 2 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 3 2 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 3 2 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 3 2 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 3 2 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -14330,24 +14330,24 @@ VERSION 2.8.2 3 2 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 3 2 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 3 2 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 3 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 3 2 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 3 2 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 3 2 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 3 2 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 3 2 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 3 2 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 3 2 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 3 2 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 3 2 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 3 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 3 2 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 3 2 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 3 2 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 3 2 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 3 2 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 3 2 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 3 2 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 3 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 3 2 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 3 2 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 3 2 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 3 2 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 3 2 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 3 2 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 3 2 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 3 2 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 3 2 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 3 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 3 2 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 3 2 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 3 2 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 3 2 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 3 2 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 3 2 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 3 2 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 3 2 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 3 2 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 3 2 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -14360,24 +14360,24 @@ VERSION 2.8.2 3 2 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 3 2 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 3 2 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 3 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 3 2 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 3 2 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 3 2 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 3 2 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 3 2 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 3 2 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 3 2 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 3 2 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 3 2 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 3 2 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 3 2 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 3 2 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 3 2 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 3 2 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 3 2 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 3 2 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 3 2 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 3 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 3 2 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 3 2 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 3 2 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 3 2 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 3 2 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 3 2 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 3 2 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 3 2 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 3 2 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 3 2 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 3 2 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 3 2 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 3 2 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 3 2 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 3 2 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 3 2 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 3 2 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 3 2 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 3 2 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 3 2 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -14390,24 +14390,24 @@ VERSION 2.8.2 3 2 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 3 2 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 3 2 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 3 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 3 2 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 3 2 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 3 2 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 3 2 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 3 2 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 3 2 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 3 2 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 3 2 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 3 2 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 3 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 3 2 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 3 2 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 3 2 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 3 2 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 3 2 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 3 2 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 3 2 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 3 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 3 2 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 3 2 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 3 2 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 3 2 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 3 2 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 3 2 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 3 2 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 3 2 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 3 2 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 3 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 3 2 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 3 2 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 3 2 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 3 2 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 3 2 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 3 2 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 3 2 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 3 2 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 3 2 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 3 2 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -14420,24 +14420,24 @@ VERSION 2.8.2 3 2 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 3 2 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 3 2 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 3 2 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 3 2 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 3 2 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 3 2 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 3 2 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 3 2 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 3 2 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 3 2 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 3 2 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 3 2 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 3 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 3 2 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 3 2 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 3 2 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 3 2 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 3 2 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 3 2 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 3 2 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 3 2 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 3 2 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 3 2 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 3 2 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 3 2 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 3 2 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 3 2 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 3 2 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 3 2 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 3 2 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 3 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 3 2 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 3 2 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 3 2 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 3 2 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 3 2 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 3 2 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 3 2 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 3 2 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 3 2 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 3 2 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -14450,24 +14450,24 @@ VERSION 2.8.2 3 2 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 3 2 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 3 2 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 3 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 3 2 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 3 2 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 3 2 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 3 2 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 3 2 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 3 2 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 3 2 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 3 2 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 3 2 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 3 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 3 2 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 3 2 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 3 2 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 3 2 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 3 2 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 3 2 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 3 2 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 3 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 3 2 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 3 2 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 3 2 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 3 2 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 3 2 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 3 2 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 3 2 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 3 2 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 3 2 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 3 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 3 2 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 3 2 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 3 2 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 3 2 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 3 2 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 3 2 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 3 2 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 3 2 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 3 2 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 3 2 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -14480,24 +14480,24 @@ VERSION 2.8.2 3 2 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 3 2 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 3 2 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 3 2 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 3 2 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 3 2 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 3 2 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 3 2 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 3 2 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 3 2 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 3 2 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 3 2 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 3 2 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 3 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 3 2 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 3 2 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 3 2 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 3 2 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 3 2 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 3 2 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 3 2 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 3 2 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 3 2 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 3 2 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 3 2 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 3 2 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 3 2 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 3 2 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 3 2 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 3 2 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 3 2 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 3 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 3 2 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 3 2 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 3 2 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 3 2 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 3 2 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 3 2 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 3 2 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 3 2 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 3 2 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 3 2 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -14510,24 +14510,24 @@ VERSION 2.8.2 3 2 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 3 2 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 3 2 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 3 2 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 3 2 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 3 2 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 3 2 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 3 2 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 3 2 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 3 2 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 3 2 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 3 2 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 3 2 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 3 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 3 2 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 3 2 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 3 2 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 3 2 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 3 2 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 3 2 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 3 2 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 3 2 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 3 2 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 3 2 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 3 2 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 3 2 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 3 2 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 3 2 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 3 2 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 3 2 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 3 2 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 3 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 3 2 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 3 2 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 3 2 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 3 2 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 3 2 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 3 2 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 3 2 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 3 2 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 3 2 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 3 2 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -14540,24 +14540,24 @@ VERSION 2.8.2 3 2 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 3 2 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 3 2 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 3 2 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 3 2 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 3 2 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 3 2 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 3 2 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 3 2 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 3 2 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 3 2 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 3 2 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 3 2 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 3 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 3 2 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 3 2 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 3 2 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 3 2 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 3 2 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 3 2 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 3 2 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 3 2 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 3 2 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 3 2 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 3 2 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 3 2 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 3 2 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 3 2 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 3 2 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 3 2 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 3 2 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 3 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 3 2 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 3 2 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 3 2 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 3 2 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 3 2 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 3 2 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 3 2 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 3 2 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 3 2 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 3 2 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -14570,24 +14570,24 @@ VERSION 2.8.2 3 2 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 3 2 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 3 2 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 3 2 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 3 2 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 3 2 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 3 2 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 3 2 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 3 2 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 3 2 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 3 2 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 3 2 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 3 2 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 3 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 3 2 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 3 2 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 3 2 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 3 2 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 3 2 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 3 2 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 3 2 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 3 2 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 3 2 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 3 2 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 3 2 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 3 2 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 3 2 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 3 2 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 3 2 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 3 2 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 3 2 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 3 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 3 2 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 3 2 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 3 2 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 3 2 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 3 2 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 3 2 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 3 2 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 3 2 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 3 2 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 3 2 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -14600,24 +14600,24 @@ VERSION 2.8.2 3 2 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 3 2 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 3 2 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 3 2 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 3 2 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 3 2 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 3 2 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 3 2 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 3 2 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75390E-63 - 3 2 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 3 2 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 3 2 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 3 2 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 3 2 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 3 2 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 3 2 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 3 2 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 3 2 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 3 2 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 3 2 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 3 2 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 3 2 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77624E-25 + 3 2 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 3 2 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 3 2 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 3 2 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 3 2 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 3 2 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 3 2 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 3 2 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 3 2 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 3 2 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 3 2 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 3 2 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 3 2 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 3 2 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 3 2 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 3 2 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 3 2 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 3 2 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 3 2 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 3 2 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -14630,24 +14630,24 @@ VERSION 2.8.2 3 2 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 3 2 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 3 2 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 3 2 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35529E-67 - 3 2 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31053E-66 - 3 2 0.54572E-10 0.10000E+01 0.52449E+05 0.19287E-55 0.49297E-66 0.26761E-65 - 3 2 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20666E-64 - 3 2 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 3 2 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15326E-62 - 3 2 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19331E-61 - 3 2 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30487E-60 - 3 2 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49481E-59 - 3 2 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76351E-58 - 3 2 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 3 2 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16342E-55 - 3 2 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 3 2 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33514E-53 - 3 2 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47755E-52 - 3 2 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86006E-46 0.21355E-49 - 3 2 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 3 2 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 3 2 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23531E-24 + 3 2 0.54572E-10 0.10000E+01 0.65036E+05 0.24821E-14 0.16767E-24 0.30911E-24 + 3 2 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84275E-24 0.41381E-24 + 3 2 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59023E-24 + 3 2 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94904E-24 + 3 2 0.54572E-10 0.10000E+01 0.27509E+05 0.28767E-13 0.91842E-22 0.17758E-23 + 3 2 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37805E-23 + 3 2 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86916E-23 + 3 2 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 3 2 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49743E-22 + 3 2 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 3 2 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 3 2 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69085E-21 + 3 2 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 3 2 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 3 2 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90817E-20 + 3 2 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 3 2 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 3 2 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 3 2 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 3 2 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -14660,24 +14660,24 @@ VERSION 2.8.2 3 2 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 3 2 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73115E-16 3 2 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73115E-16 - 3 2 0.95225E-10 0.10000E+01 0.80645E+05 0.53353E-57 0.41258E-68 0.10776E-66 - 3 2 0.95225E-10 0.10000E+01 0.65036E+05 0.46330E-56 0.66249E-67 0.94330E-66 - 3 2 0.95225E-10 0.10000E+01 0.52449E+05 0.40029E-55 0.93498E-66 0.81548E-65 - 3 2 0.95225E-10 0.10000E+01 0.42297E+05 0.31520E-54 0.15117E-64 0.62539E-64 - 3 2 0.95225E-10 0.10000E+01 0.34111E+05 0.26473E-53 0.31091E-63 0.46450E-63 - 3 2 0.95225E-10 0.10000E+01 0.27509E+05 0.27522E-52 0.84249E-62 0.36147E-62 - 3 2 0.95225E-10 0.10000E+01 0.22184E+05 0.37540E-51 0.26561E-60 0.34974E-61 - 3 2 0.95225E-10 0.10000E+01 0.17891E+05 0.59958E-50 0.82083E-59 0.47879E-60 - 3 2 0.95225E-10 0.10000E+01 0.14428E+05 0.96033E-49 0.23748E-57 0.76775E-59 - 3 2 0.95225E-10 0.10000E+01 0.11635E+05 0.14621E-47 0.65940E-56 0.12118E-57 - 3 2 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18317E-56 - 3 2 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49010E-53 0.26962E-55 - 3 2 0.95225E-10 0.10000E+01 0.61026E+04 0.43942E-44 0.13294E-51 0.39171E-54 - 3 2 0.95225E-10 0.10000E+01 0.49215E+04 0.62536E-43 0.35995E-50 0.56497E-53 - 3 2 0.95225E-10 0.10000E+01 0.39689E+04 0.88818E-42 0.97295E-49 0.81085E-52 - 3 2 0.95225E-10 0.10000E+01 0.32008E+04 0.39611E-39 0.84947E-46 0.36468E-49 - 3 2 0.95225E-10 0.10000E+01 0.25813E+04 0.29209E-30 0.14352E-36 0.27089E-40 - 3 2 0.95225E-10 0.10000E+01 0.20817E+04 0.55934E-14 0.12255E-19 0.52261E-24 + 3 2 0.95225E-10 0.10000E+01 0.80645E+05 0.35741E-14 0.41505E-25 0.71113E-24 + 3 2 0.95225E-10 0.10000E+01 0.65036E+05 0.47304E-14 0.17062E-24 0.92456E-24 + 3 2 0.95225E-10 0.10000E+01 0.52449E+05 0.64554E-14 0.80138E-24 0.12021E-23 + 3 2 0.95225E-10 0.10000E+01 0.42297E+05 0.95539E-14 0.38882E-23 0.16049E-23 + 3 2 0.95225E-10 0.10000E+01 0.34111E+05 0.16171E-13 0.18623E-22 0.23031E-23 + 3 2 0.95225E-10 0.10000E+01 0.27509E+05 0.31764E-13 0.87461E-22 0.37501E-23 + 3 2 0.95225E-10 0.10000E+01 0.22184E+05 0.69760E-13 0.40498E-21 0.71019E-23 + 3 2 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18599E-20 0.15224E-22 + 3 2 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85036E-20 0.35111E-22 + 3 2 0.95225E-10 0.10000E+01 0.11635E+05 0.93308E-12 0.38771E-19 0.83700E-22 + 3 2 0.95225E-10 0.10000E+01 0.93834E+04 0.22419E-11 0.17634E-18 0.20182E-21 + 3 2 0.95225E-10 0.10000E+01 0.75673E+04 0.53750E-11 0.79850E-18 0.48744E-21 + 3 2 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35798E-17 0.11743E-20 + 3 2 0.95225E-10 0.10000E+01 0.49215E+04 0.30558E-10 0.15765E-16 0.28134E-20 + 3 2 0.95225E-10 0.10000E+01 0.39689E+04 0.72086E-10 0.67831E-16 0.66765E-20 + 3 2 0.95225E-10 0.10000E+01 0.32008E+04 0.16788E-09 0.28478E-15 0.15623E-19 + 3 2 0.95225E-10 0.10000E+01 0.25813E+04 0.38444E-09 0.11669E-14 0.35908E-19 + 3 2 0.95225E-10 0.10000E+01 0.20817E+04 0.86330E-09 0.46616E-14 0.80861E-19 3 2 0.95225E-10 0.10000E+01 0.16788E+04 0.18979E-08 0.18142E-13 0.17814E-18 3 2 0.95225E-10 0.10000E+01 0.13538E+04 0.40803E-08 0.68935E-13 0.38359E-18 3 2 0.95225E-10 0.10000E+01 0.10918E+04 0.85756E-08 0.25709E-12 0.80712E-18 @@ -14690,24 +14690,24 @@ VERSION 2.8.2 3 2 0.95225E-10 0.10000E+01 0.24221E+03 0.85378E-06 0.78775E-09 0.80541E-16 3 2 0.95225E-10 0.10000E+01 0.19533E+03 0.13456E-05 0.14970E-08 0.12694E-15 3 2 0.95225E-10 0.10000E+01 0.15752E+03 0.13456E-05 0.14970E-08 0.12694E-15 - 3 2 0.16616E-09 0.10000E+01 0.80645E+05 0.10866E-56 0.84282E-68 0.34549E-66 - 3 2 0.16616E-09 0.10000E+01 0.65036E+05 0.94572E-56 0.13518E-66 0.29872E-65 - 3 2 0.16616E-09 0.10000E+01 0.52449E+05 0.81563E-55 0.18581E-65 0.25665E-64 - 3 2 0.16616E-09 0.10000E+01 0.42297E+05 0.62614E-54 0.26486E-64 0.19474E-63 - 3 2 0.16616E-09 0.10000E+01 0.34111E+05 0.47161E-53 0.41219E-63 0.14020E-62 - 3 2 0.16616E-09 0.10000E+01 0.27509E+05 0.38208E-52 0.82516E-62 0.99364E-62 - 3 2 0.16616E-09 0.10000E+01 0.22184E+05 0.38870E-51 0.23184E-60 0.77112E-61 - 3 2 0.16616E-09 0.10000E+01 0.17891E+05 0.53844E-50 0.72254E-59 0.83650E-60 - 3 2 0.16616E-09 0.10000E+01 0.14428E+05 0.85077E-49 0.21509E-57 0.12394E-58 - 3 2 0.16616E-09 0.10000E+01 0.11635E+05 0.13233E-47 0.61094E-56 0.19605E-57 - 3 2 0.16616E-09 0.10000E+01 0.93834E+04 0.19801E-46 0.16973E-54 0.30103E-56 - 3 2 0.16616E-09 0.10000E+01 0.75673E+04 0.28945E-45 0.46714E-53 0.44893E-55 - 3 2 0.16616E-09 0.10000E+01 0.61026E+04 0.41839E-44 0.12790E-51 0.65839E-54 - 3 2 0.16616E-09 0.10000E+01 0.49215E+04 0.60116E-43 0.34885E-50 0.95633E-53 - 3 2 0.16616E-09 0.10000E+01 0.39689E+04 0.86026E-42 0.94850E-49 0.13801E-51 - 3 2 0.16616E-09 0.10000E+01 0.32008E+04 0.38601E-39 0.83225E-46 0.62354E-49 - 3 2 0.16616E-09 0.10000E+01 0.25813E+04 0.28617E-30 0.14130E-36 0.46507E-40 - 3 2 0.16616E-09 0.10000E+01 0.20817E+04 0.55101E-14 0.12128E-19 0.90110E-24 + 3 2 0.16616E-09 0.10000E+01 0.80645E+05 0.72096E-14 0.59514E-25 0.22981E-23 + 3 2 0.16616E-09 0.10000E+01 0.65036E+05 0.93787E-14 0.19314E-24 0.29646E-23 + 3 2 0.16616E-09 0.10000E+01 0.52449E+05 0.12232E-13 0.78085E-24 0.37876E-23 + 3 2 0.16616E-09 0.10000E+01 0.42297E+05 0.16460E-13 0.35959E-23 0.48619E-23 + 3 2 0.16616E-09 0.10000E+01 0.34111E+05 0.23939E-13 0.17152E-22 0.64509E-23 + 3 2 0.16616E-09 0.10000E+01 0.27509E+05 0.39605E-13 0.81416E-22 0.92784E-23 + 3 2 0.16616E-09 0.10000E+01 0.22184E+05 0.75920E-13 0.38183E-21 0.15239E-22 + 3 2 0.16616E-09 0.10000E+01 0.17891E+05 0.16356E-12 0.17734E-20 0.29108E-22 + 3 2 0.16616E-09 0.10000E+01 0.14428E+05 0.37708E-12 0.81828E-20 0.62674E-22 + 3 2 0.16616E-09 0.10000E+01 0.11635E+05 0.89637E-12 0.37582E-19 0.14469E-21 + 3 2 0.16616E-09 0.10000E+01 0.93834E+04 0.21540E-11 0.17193E-18 0.34483E-21 + 3 2 0.16616E-09 0.10000E+01 0.75673E+04 0.51858E-11 0.78217E-18 0.83098E-21 + 3 2 0.16616E-09 0.10000E+01 0.61026E+04 0.12460E-10 0.35193E-17 0.20050E-20 + 3 2 0.16616E-09 0.10000E+01 0.49215E+04 0.29786E-10 0.15542E-16 0.48162E-20 + 3 2 0.16616E-09 0.10000E+01 0.39689E+04 0.70563E-10 0.67002E-16 0.11461E-19 + 3 2 0.16616E-09 0.10000E+01 0.32008E+04 0.16490E-09 0.28171E-15 0.26883E-19 + 3 2 0.16616E-09 0.10000E+01 0.25813E+04 0.37863E-09 0.11556E-14 0.61908E-19 + 3 2 0.16616E-09 0.10000E+01 0.20817E+04 0.85200E-09 0.46201E-14 0.13963E-18 3 2 0.16616E-09 0.10000E+01 0.16788E+04 0.18760E-08 0.17990E-13 0.30798E-18 3 2 0.16616E-09 0.10000E+01 0.13538E+04 0.40379E-08 0.68377E-13 0.66377E-18 3 2 0.16616E-09 0.10000E+01 0.10918E+04 0.84936E-08 0.25505E-12 0.13976E-17 @@ -14720,24 +14720,24 @@ VERSION 2.8.2 3 2 0.16616E-09 0.10000E+01 0.24221E+03 0.84706E-06 0.78159E-09 0.13964E-15 3 2 0.16616E-09 0.10000E+01 0.19533E+03 0.13350E-05 0.14853E-08 0.22009E-15 3 2 0.16616E-09 0.10000E+01 0.15752E+03 0.13350E-05 0.14853E-08 0.22009E-15 - 3 2 0.28994E-09 0.10000E+01 0.80645E+05 0.22418E-56 0.17110E-67 0.12880E-65 - 3 2 0.28994E-09 0.10000E+01 0.65036E+05 0.19263E-55 0.27287E-66 0.10912E-64 - 3 2 0.28994E-09 0.10000E+01 0.52449E+05 0.16481E-54 0.36810E-65 0.92487E-64 - 3 2 0.28994E-09 0.10000E+01 0.42297E+05 0.12442E-53 0.49615E-64 0.68771E-63 - 3 2 0.28994E-09 0.10000E+01 0.34111E+05 0.89267E-53 0.66647E-63 0.47992E-62 - 3 2 0.28994E-09 0.10000E+01 0.27509E+05 0.63532E-52 0.99632E-62 0.32244E-61 - 3 2 0.28994E-09 0.10000E+01 0.22184E+05 0.49830E-51 0.22041E-60 0.21932E-60 - 3 2 0.28994E-09 0.10000E+01 0.17891E+05 0.53898E-50 0.65499E-59 0.18857E-59 - 3 2 0.28994E-09 0.10000E+01 0.14428E+05 0.78448E-49 0.19822E-57 0.23786E-58 - 3 2 0.28994E-09 0.10000E+01 0.11635E+05 0.12218E-47 0.57347E-56 0.35664E-57 - 3 2 0.28994E-09 0.10000E+01 0.93834E+04 0.18565E-46 0.16136E-54 0.53789E-56 - 3 2 0.28994E-09 0.10000E+01 0.75673E+04 0.27486E-45 0.44807E-53 0.79370E-55 - 3 2 0.28994E-09 0.10000E+01 0.61026E+04 0.40100E-44 0.12352E-51 0.11548E-53 - 3 2 0.28994E-09 0.10000E+01 0.49215E+04 0.58025E-43 0.33876E-50 0.16679E-52 - 3 2 0.28994E-09 0.10000E+01 0.39689E+04 0.83504E-42 0.92533E-49 0.23984E-51 - 3 2 0.28994E-09 0.10000E+01 0.32008E+04 0.37648E-39 0.81522E-46 0.10815E-48 - 3 2 0.28994E-09 0.10000E+01 0.25813E+04 0.28033E-30 0.13899E-36 0.80606E-40 - 3 2 0.28994E-09 0.10000E+01 0.20817E+04 0.54233E-14 0.11983E-19 0.15621E-23 + 3 2 0.28994E-09 0.10000E+01 0.80645E+05 0.14975E-13 0.10082E-24 0.86757E-23 + 3 2 0.28994E-09 0.10000E+01 0.65036E+05 0.19286E-13 0.26699E-24 0.11105E-22 + 3 2 0.28994E-09 0.10000E+01 0.52449E+05 0.24597E-13 0.87296E-24 0.14008E-22 + 3 2 0.28994E-09 0.10000E+01 0.42297E+05 0.31510E-13 0.35600E-23 0.17550E-22 + 3 2 0.28994E-09 0.10000E+01 0.34111E+05 0.41673E-13 0.16317E-22 0.22181E-22 + 3 2 0.28994E-09 0.10000E+01 0.27509E+05 0.59568E-13 0.77121E-22 0.29148E-22 + 3 2 0.28994E-09 0.10000E+01 0.22184E+05 0.96821E-13 0.36383E-21 0.41746E-22 + 3 2 0.28994E-09 0.10000E+01 0.17891E+05 0.18258E-12 0.17023E-20 0.68319E-22 + 3 2 0.28994E-09 0.10000E+01 0.14428E+05 0.38848E-12 0.79059E-20 0.12942E-21 + 3 2 0.28994E-09 0.10000E+01 0.11635E+05 0.88870E-12 0.36510E-19 0.27506E-21 + 3 2 0.28994E-09 0.10000E+01 0.93834E+04 0.21042E-11 0.16779E-18 0.62616E-21 + 3 2 0.28994E-09 0.10000E+01 0.75673E+04 0.50478E-11 0.76618E-18 0.14738E-20 + 3 2 0.28994E-09 0.10000E+01 0.61026E+04 0.12140E-10 0.34578E-17 0.35141E-20 + 3 2 0.28994E-09 0.10000E+01 0.49215E+04 0.29096E-10 0.15305E-16 0.83925E-20 + 3 2 0.28994E-09 0.10000E+01 0.39689E+04 0.69125E-10 0.66098E-16 0.19915E-19 + 3 2 0.28994E-09 0.10000E+01 0.32008E+04 0.16195E-09 0.27827E-15 0.46653E-19 + 3 2 0.28994E-09 0.10000E+01 0.25813E+04 0.37265E-09 0.11426E-14 0.10738E-18 + 3 2 0.28994E-09 0.10000E+01 0.20817E+04 0.83996E-09 0.45711E-14 0.24214E-18 3 2 0.28994E-09 0.10000E+01 0.16788E+04 0.18519E-08 0.17807E-13 0.53409E-18 3 2 0.28994E-09 0.10000E+01 0.13538E+04 0.39900E-08 0.67701E-13 0.11512E-17 3 2 0.28994E-09 0.10000E+01 0.10918E+04 0.83990E-08 0.25256E-12 0.24239E-17 @@ -14750,24 +14750,24 @@ VERSION 2.8.2 3 2 0.28994E-09 0.10000E+01 0.24221E+03 0.83882E-06 0.77403E-09 0.24221E-15 3 2 0.28994E-09 0.10000E+01 0.19533E+03 0.13221E-05 0.14709E-08 0.38174E-15 3 2 0.28994E-09 0.10000E+01 0.15752E+03 0.13221E-05 0.14709E-08 0.38174E-15 - 3 2 0.50593E-09 0.10000E+01 0.80645E+05 0.46557E-56 0.34819E-67 0.50776E-65 - 3 2 0.50593E-09 0.10000E+01 0.65036E+05 0.39361E-55 0.55035E-66 0.42513E-64 - 3 2 0.50593E-09 0.10000E+01 0.52449E+05 0.33308E-54 0.72712E-65 0.35732E-63 - 3 2 0.50593E-09 0.10000E+01 0.42297E+05 0.24713E-53 0.94680E-64 0.26248E-62 - 3 2 0.50593E-09 0.10000E+01 0.34111E+05 0.17210E-52 0.11947E-62 0.18016E-61 - 3 2 0.50593E-09 0.10000E+01 0.27509E+05 0.11570E-51 0.15255E-61 0.11844E-60 - 3 2 0.50593E-09 0.10000E+01 0.22184E+05 0.79114E-51 0.26457E-60 0.75982E-60 - 3 2 0.50593E-09 0.10000E+01 0.17891E+05 0.68251E-50 0.69442E-59 0.55163E-59 - 3 2 0.50593E-09 0.10000E+01 0.14428E+05 0.85381E-49 0.20409E-57 0.56310E-58 - 3 2 0.50593E-09 0.10000E+01 0.11635E+05 0.12663E-47 0.58446E-56 0.74972E-57 - 3 2 0.50593E-09 0.10000E+01 0.93834E+04 0.18945E-46 0.16308E-54 0.10687E-55 - 3 2 0.50593E-09 0.10000E+01 0.75673E+04 0.27796E-45 0.44972E-53 0.15211E-54 - 3 2 0.50593E-09 0.10000E+01 0.61026E+04 0.40272E-44 0.12336E-51 0.21520E-53 - 3 2 0.50593E-09 0.10000E+01 0.49215E+04 0.57984E-43 0.33733E-50 0.30417E-52 - 3 2 0.50593E-09 0.10000E+01 0.39689E+04 0.83184E-42 0.92003E-49 0.43050E-51 - 3 2 0.50593E-09 0.10000E+01 0.32008E+04 0.37442E-39 0.81014E-46 0.19196E-48 - 3 2 0.50593E-09 0.10000E+01 0.25813E+04 0.27866E-30 0.13816E-36 0.14195E-39 - 3 2 0.50593E-09 0.10000E+01 0.20817E+04 0.53933E-14 0.11921E-19 0.27349E-23 + 3 2 0.50593E-09 0.10000E+01 0.80645E+05 0.31401E-13 0.18754E-24 0.34449E-22 + 3 2 0.50593E-09 0.10000E+01 0.65036E+05 0.40171E-13 0.44325E-24 0.43923E-22 + 3 2 0.50593E-09 0.10000E+01 0.52449E+05 0.50641E-13 0.12122E-23 0.55071E-22 + 3 2 0.50593E-09 0.10000E+01 0.42297E+05 0.63409E-13 0.41933E-23 0.68248E-22 + 3 2 0.50593E-09 0.10000E+01 0.34111E+05 0.80072E-13 0.17523E-22 0.84306E-22 + 3 2 0.50593E-09 0.10000E+01 0.27509E+05 0.10503E-12 0.79562E-22 0.10559E-21 + 3 2 0.50593E-09 0.10000E+01 0.22184E+05 0.14986E-12 0.36882E-21 0.13827E-21 + 3 2 0.50593E-09 0.10000E+01 0.17891E+05 0.24369E-12 0.17104E-20 0.19783E-21 + 3 2 0.50593E-09 0.10000E+01 0.14428E+05 0.45805E-12 0.79029E-20 0.32188E-21 + 3 2 0.50593E-09 0.10000E+01 0.11635E+05 0.96659E-12 0.36386E-19 0.60062E-21 + 3 2 0.50593E-09 0.10000E+01 0.93834E+04 0.21882E-11 0.16695E-18 0.12496E-20 + 3 2 0.50593E-09 0.10000E+01 0.75673E+04 0.51297E-11 0.76185E-18 0.27831E-20 + 3 2 0.50593E-09 0.10000E+01 0.61026E+04 0.12197E-10 0.34378E-17 0.64244E-20 + 3 2 0.50593E-09 0.10000E+01 0.49215E+04 0.29071E-10 0.15219E-16 0.15053E-19 + 3 2 0.50593E-09 0.10000E+01 0.39689E+04 0.68885E-10 0.65740E-16 0.35314E-19 + 3 2 0.50593E-09 0.10000E+01 0.32008E+04 0.16120E-09 0.27683E-15 0.82151E-19 + 3 2 0.50593E-09 0.10000E+01 0.25813E+04 0.37077E-09 0.11369E-14 0.18826E-18 + 3 2 0.50593E-09 0.10000E+01 0.20817E+04 0.83564E-09 0.45491E-14 0.42335E-18 3 2 0.50593E-09 0.10000E+01 0.16788E+04 0.18425E-08 0.17723E-13 0.93210E-18 3 2 0.50593E-09 0.10000E+01 0.13538E+04 0.39701E-08 0.67384E-13 0.20066E-17 3 2 0.50593E-09 0.10000E+01 0.10918E+04 0.83579E-08 0.25138E-12 0.42217E-17 @@ -14780,24 +14780,24 @@ VERSION 2.8.2 3 2 0.50593E-09 0.10000E+01 0.24221E+03 0.83482E-06 0.77029E-09 0.42106E-15 3 2 0.50593E-09 0.10000E+01 0.19533E+03 0.13157E-05 0.14638E-08 0.66360E-15 3 2 0.50593E-09 0.10000E+01 0.15752E+03 0.13157E-05 0.14638E-08 0.66360E-15 - 3 2 0.88282E-09 0.10000E+01 0.80645E+05 0.93908E-56 0.69472E-67 0.17643E-64 - 3 2 0.88282E-09 0.10000E+01 0.65036E+05 0.78710E-55 0.10928E-65 0.14753E-63 - 3 2 0.88282E-09 0.10000E+01 0.52449E+05 0.66213E-54 0.14287E-64 0.12396E-62 - 3 2 0.88282E-09 0.10000E+01 0.42297E+05 0.48711E-53 0.18352E-63 0.91139E-62 - 3 2 0.88282E-09 0.10000E+01 0.34111E+05 0.33526E-52 0.22766E-62 0.62827E-61 - 3 2 0.88282E-09 0.10000E+01 0.27509E+05 0.22149E-51 0.27340E-61 0.41685E-60 - 3 2 0.88282E-09 0.10000E+01 0.22184E+05 0.14337E-50 0.39233E-60 0.26554E-59 - 3 2 0.88282E-09 0.10000E+01 0.17891E+05 0.10539E-49 0.84949E-59 0.17364E-58 - 3 2 0.88282E-09 0.10000E+01 0.14428E+05 0.10846E-48 0.23007E-57 0.14079E-57 - 3 2 0.88282E-09 0.10000E+01 0.11635E+05 0.14486E-47 0.63660E-56 0.15665E-56 - 3 2 0.88282E-09 0.10000E+01 0.93834E+04 0.20727E-46 0.17353E-54 0.20760E-55 - 3 2 0.88282E-09 0.10000E+01 0.75673E+04 0.29636E-45 0.46947E-53 0.28704E-54 - 3 2 0.88282E-09 0.10000E+01 0.61026E+04 0.42107E-44 0.12687E-51 0.39841E-53 - 3 2 0.88282E-09 0.10000E+01 0.49215E+04 0.59713E-43 0.34315E-50 0.55381E-52 - 3 2 0.88282E-09 0.10000E+01 0.39689E+04 0.84713E-42 0.92894E-49 0.77290E-51 - 3 2 0.88282E-09 0.10000E+01 0.32008E+04 0.37833E-39 0.81387E-46 0.34089E-48 - 3 2 0.88282E-09 0.10000E+01 0.25813E+04 0.28006E-30 0.13829E-36 0.25005E-39 - 3 2 0.88282E-09 0.10000E+01 0.20817E+04 0.53996E-14 0.11899E-19 0.47870E-23 + 3 2 0.88282E-09 0.10000E+01 0.80645E+05 0.63678E-13 0.36166E-24 0.11986E-21 + 3 2 0.88282E-09 0.10000E+01 0.65036E+05 0.81224E-13 0.81056E-24 0.15281E-21 + 3 2 0.88282E-09 0.10000E+01 0.52449E+05 0.10191E-12 0.19690E-23 0.19153E-21 + 3 2 0.88282E-09 0.10000E+01 0.42297E+05 0.12643E-12 0.57761E-23 0.23688E-21 + 3 2 0.88282E-09 0.10000E+01 0.34111E+05 0.15646E-12 0.21104E-22 0.29044E-21 + 3 2 0.88282E-09 0.10000E+01 0.27509E+05 0.19657E-12 0.88734E-22 0.35634E-21 + 3 2 0.88282E-09 0.10000E+01 0.22184E+05 0.25883E-12 0.39497E-21 0.44559E-21 + 3 2 0.88282E-09 0.10000E+01 0.17891E+05 0.37348E-12 0.17885E-20 0.58614E-21 + 3 2 0.88282E-09 0.10000E+01 0.14428E+05 0.61429E-12 0.81353E-20 0.84599E-21 + 3 2 0.88282E-09 0.10000E+01 0.11635E+05 0.11586E-11 0.37052E-19 0.13873E-20 + 3 2 0.88282E-09 0.10000E+01 0.93834E+04 0.24309E-11 0.16874E-18 0.25939E-20 + 3 2 0.88282E-09 0.10000E+01 0.75673E+04 0.54454E-11 0.76618E-18 0.53751E-20 + 3 2 0.88282E-09 0.10000E+01 0.61026E+04 0.12616E-10 0.34462E-17 0.11880E-19 + 3 2 0.88282E-09 0.10000E+01 0.49215E+04 0.29628E-10 0.15225E-16 0.27148E-19 + 3 2 0.88282E-09 0.10000E+01 0.39689E+04 0.69608E-10 0.65683E-16 0.62778E-19 + 3 2 0.88282E-09 0.10000E+01 0.32008E+04 0.16207E-09 0.27636E-15 0.14481E-18 + 3 2 0.88282E-09 0.10000E+01 0.25813E+04 0.37162E-09 0.11343E-14 0.33015E-18 + 3 2 0.88282E-09 0.10000E+01 0.20817E+04 0.83596E-09 0.45374E-14 0.74004E-18 3 2 0.88282E-09 0.10000E+01 0.16788E+04 0.18409E-08 0.17673E-13 0.16260E-17 3 2 0.88282E-09 0.10000E+01 0.13538E+04 0.39636E-08 0.67181E-13 0.34956E-17 3 2 0.88282E-09 0.10000E+01 0.10918E+04 0.83399E-08 0.25059E-12 0.73476E-17 @@ -14810,24 +14810,24 @@ VERSION 2.8.2 3 2 0.88282E-09 0.10000E+01 0.24221E+03 0.83199E-06 0.76758E-09 0.73125E-15 3 2 0.88282E-09 0.10000E+01 0.19533E+03 0.13113E-05 0.14586E-08 0.11524E-14 3 2 0.88282E-09 0.10000E+01 0.15752E+03 0.13113E-05 0.14586E-08 0.11524E-14 - 3 2 0.15405E-08 0.10000E+01 0.80645E+05 0.18269E-55 0.13490E-66 0.54677E-64 - 3 2 0.15405E-08 0.10000E+01 0.65036E+05 0.15290E-54 0.21218E-65 0.45826E-63 - 3 2 0.15405E-08 0.10000E+01 0.52449E+05 0.12858E-53 0.27762E-64 0.38601E-62 - 3 2 0.15405E-08 0.10000E+01 0.42297E+05 0.94658E-53 0.35838E-63 0.28530E-61 - 3 2 0.15405E-08 0.10000E+01 0.34111E+05 0.65402E-52 0.45000E-62 0.19884E-60 - 3 2 0.15405E-08 0.10000E+01 0.27509E+05 0.43562E-51 0.53687E-61 0.13444E-59 - 3 2 0.15405E-08 0.10000E+01 0.22184E+05 0.27961E-50 0.67363E-60 0.87080E-59 - 3 2 0.15405E-08 0.10000E+01 0.17891E+05 0.18533E-49 0.11289E-58 0.54622E-58 - 3 2 0.15405E-08 0.10000E+01 0.14428E+05 0.15238E-48 0.26201E-57 0.36757E-57 - 3 2 0.15405E-08 0.10000E+01 0.11635E+05 0.17062E-47 0.68977E-56 0.32004E-56 - 3 2 0.15405E-08 0.10000E+01 0.93834E+04 0.22709E-46 0.18452E-54 0.37435E-55 - 3 2 0.15405E-08 0.10000E+01 0.75673E+04 0.31601E-45 0.49207E-53 0.50389E-54 - 3 2 0.15405E-08 0.10000E+01 0.61026E+04 0.44183E-44 0.13120E-51 0.69935E-53 - 3 2 0.15405E-08 0.10000E+01 0.49215E+04 0.61817E-43 0.35090E-50 0.97243E-52 - 3 2 0.15405E-08 0.10000E+01 0.39689E+04 0.86713E-42 0.94186E-49 0.13538E-50 - 3 2 0.15405E-08 0.10000E+01 0.32008E+04 0.38388E-39 0.82015E-46 0.59497E-48 - 3 2 0.15405E-08 0.10000E+01 0.25813E+04 0.28234E-30 0.13871E-36 0.43503E-39 - 3 2 0.15405E-08 0.10000E+01 0.20817E+04 0.54168E-14 0.11889E-19 0.83090E-23 + 3 2 0.15405E-08 0.10000E+01 0.80645E+05 0.12404E-12 0.70399E-24 0.37115E-21 + 3 2 0.15405E-08 0.10000E+01 0.65036E+05 0.15821E-12 0.15470E-23 0.47379E-21 + 3 2 0.15405E-08 0.10000E+01 0.52449E+05 0.19841E-12 0.34914E-23 0.59485E-21 + 3 2 0.15405E-08 0.10000E+01 0.42297E+05 0.24561E-12 0.88271E-23 0.73671E-21 + 3 2 0.15405E-08 0.10000E+01 0.34111E+05 0.30159E-12 0.27264E-22 0.90236E-21 + 3 2 0.15405E-08 0.10000E+01 0.27509E+05 0.37094E-12 0.10218E-21 0.10982E-20 + 3 2 0.15405E-08 0.10000E+01 0.22184E+05 0.46585E-12 0.42862E-21 0.13413E-20 + 3 2 0.15405E-08 0.10000E+01 0.17891E+05 0.61735E-12 0.18839E-20 0.16779E-20 + 3 2 0.15405E-08 0.10000E+01 0.14428E+05 0.90119E-12 0.84218E-20 0.22237E-20 + 3 2 0.15405E-08 0.10000E+01 0.11635E+05 0.14989E-11 0.37910E-19 0.32598E-20 + 3 2 0.15405E-08 0.10000E+01 0.93834E+04 0.28422E-11 0.17122E-18 0.54549E-20 + 3 2 0.15405E-08 0.10000E+01 0.75673E+04 0.59564E-11 0.77292E-18 0.10392E-19 + 3 2 0.15405E-08 0.10000E+01 0.61026E+04 0.13270E-10 0.34629E-17 0.21807E-19 + 3 2 0.15405E-08 0.10000E+01 0.49215E+04 0.30487E-10 0.15260E-16 0.48446E-19 + 3 2 0.15405E-08 0.10000E+01 0.39689E+04 0.70743E-10 0.65722E-16 0.11042E-18 + 3 2 0.15405E-08 0.10000E+01 0.32008E+04 0.16355E-09 0.27622E-15 0.25286E-18 + 3 2 0.15405E-08 0.10000E+01 0.25813E+04 0.37342E-09 0.11329E-14 0.57433E-18 + 3 2 0.15405E-08 0.10000E+01 0.20817E+04 0.83785E-09 0.45296E-14 0.12848E-17 3 2 0.15405E-08 0.10000E+01 0.16788E+04 0.18421E-08 0.17637E-13 0.28198E-17 3 2 0.15405E-08 0.10000E+01 0.13538E+04 0.39619E-08 0.67025E-13 0.60582E-17 3 2 0.15405E-08 0.10000E+01 0.10918E+04 0.83302E-08 0.24995E-12 0.12729E-16 @@ -14840,24 +14840,24 @@ VERSION 2.8.2 3 2 0.15405E-08 0.10000E+01 0.24221E+03 0.82960E-06 0.76522E-09 0.12653E-14 3 2 0.15405E-08 0.10000E+01 0.19533E+03 0.13074E-05 0.14541E-08 0.19939E-14 3 2 0.15405E-08 0.10000E+01 0.15752E+03 0.13074E-05 0.14541E-08 0.19939E-14 - 3 2 0.26880E-08 0.10000E+01 0.80645E+05 0.40016E-55 0.29775E-66 0.71377E-63 - 3 2 0.26880E-08 0.10000E+01 0.65036E+05 0.33702E-54 0.47104E-65 0.60220E-62 - 3 2 0.26880E-08 0.10000E+01 0.52449E+05 0.28518E-53 0.62608E-64 0.51044E-61 - 3 2 0.26880E-08 0.10000E+01 0.42297E+05 0.21266E-52 0.83389E-63 0.38190E-60 - 3 2 0.26880E-08 0.10000E+01 0.34111E+05 0.15083E-51 0.11085E-61 0.27256E-59 - 3 2 0.26880E-08 0.10000E+01 0.27509E+05 0.10534E-50 0.14340E-60 0.19220E-58 - 3 2 0.26880E-08 0.10000E+01 0.22184E+05 0.72140E-50 0.18275E-59 0.13280E-57 - 3 2 0.26880E-08 0.10000E+01 0.17891E+05 0.48753E-49 0.24425E-58 0.88610E-57 - 3 2 0.26880E-08 0.10000E+01 0.14428E+05 0.34040E-48 0.38257E-57 0.56597E-56 - 3 2 0.26880E-08 0.10000E+01 0.11635E+05 0.26995E-47 0.75904E-56 0.34744E-55 - 3 2 0.26880E-08 0.10000E+01 0.93834E+04 0.26607E-46 0.18283E-54 0.21233E-54 - 3 2 0.26880E-08 0.10000E+01 0.75673E+04 0.32214E-45 0.48263E-53 0.14582E-53 - 3 2 0.26880E-08 0.10000E+01 0.61026E+04 0.43665E-44 0.13044E-51 0.13601E-52 - 3 2 0.26880E-08 0.10000E+01 0.49215E+04 0.61450E-43 0.35257E-50 0.17068E-51 - 3 2 0.26880E-08 0.10000E+01 0.39689E+04 0.87003E-42 0.95041E-49 0.23909E-50 - 3 2 0.26880E-08 0.10000E+01 0.32008E+04 0.38698E-39 0.82781E-46 0.10617E-47 - 3 2 0.26880E-08 0.10000E+01 0.25813E+04 0.28473E-30 0.13972E-36 0.77188E-39 - 3 2 0.26880E-08 0.10000E+01 0.20817E+04 0.54503E-14 0.11932E-19 0.14522E-22 + 3 2 0.26880E-08 0.10000E+01 0.80645E+05 0.27109E-12 0.16436E-23 0.48321E-20 + 3 2 0.26880E-08 0.10000E+01 0.65036E+05 0.34695E-12 0.37132E-23 0.61895E-20 + 3 2 0.26880E-08 0.10000E+01 0.52449E+05 0.43736E-12 0.83419E-23 0.78116E-20 + 3 2 0.26880E-08 0.10000E+01 0.42297E+05 0.54495E-12 0.19151E-22 0.97437E-20 + 3 2 0.26880E-08 0.10000E+01 0.34111E+05 0.67296E-12 0.47616E-22 0.12029E-19 + 3 2 0.26880E-08 0.10000E+01 0.27509E+05 0.82666E-12 0.13826E-21 0.14702E-19 + 3 2 0.26880E-08 0.10000E+01 0.22184E+05 0.10175E-11 0.48439E-21 0.17792E-19 + 3 2 0.26880E-08 0.10000E+01 0.17891E+05 0.12739E-11 0.19583E-20 0.21340E-19 + 3 2 0.26880E-08 0.10000E+01 0.14428E+05 0.16673E-11 0.85245E-20 0.25471E-19 + 3 2 0.26880E-08 0.10000E+01 0.11635E+05 0.23747E-11 0.38186E-19 0.30571E-19 + 3 2 0.26880E-08 0.10000E+01 0.93834E+04 0.38256E-11 0.17251E-18 0.37705E-19 + 3 2 0.26880E-08 0.10000E+01 0.75673E+04 0.70500E-11 0.77892E-18 0.49575E-19 + 3 2 0.26880E-08 0.10000E+01 0.61026E+04 0.14495E-10 0.34876E-17 0.72705E-19 + 3 2 0.26880E-08 0.10000E+01 0.49215E+04 0.31904E-10 0.15352E-16 0.12237E-18 + 3 2 0.26880E-08 0.10000E+01 0.39689E+04 0.72492E-10 0.66041E-16 0.23345E-18 + 3 2 0.26880E-08 0.10000E+01 0.32008E+04 0.16590E-09 0.27727E-15 0.48356E-18 + 3 2 0.26880E-08 0.10000E+01 0.25813E+04 0.37687E-09 0.11363E-14 0.10411E-17 + 3 2 0.26880E-08 0.10000E+01 0.20817E+04 0.84323E-09 0.45398E-14 0.22629E-17 3 2 0.26880E-08 0.10000E+01 0.16788E+04 0.18508E-08 0.17668E-13 0.48863E-17 3 2 0.26880E-08 0.10000E+01 0.13538E+04 0.39761E-08 0.67123E-13 0.10395E-16 3 2 0.26880E-08 0.10000E+01 0.10918E+04 0.83536E-08 0.25026E-12 0.21701E-16 @@ -14870,24 +14870,24 @@ VERSION 2.8.2 3 2 0.26880E-08 0.10000E+01 0.24221E+03 0.83045E-06 0.76589E-09 0.21229E-14 3 2 0.26880E-08 0.10000E+01 0.19533E+03 0.13087E-05 0.14554E-08 0.33436E-14 3 2 0.26880E-08 0.10000E+01 0.15752E+03 0.13087E-05 0.14554E-08 0.33436E-14 - 3 2 0.46905E-08 0.10000E+01 0.80645E+05 0.75128E-55 0.55962E-66 0.22366E-62 - 3 2 0.46905E-08 0.10000E+01 0.65036E+05 0.63330E-54 0.88604E-65 0.18882E-61 - 3 2 0.46905E-08 0.10000E+01 0.52449E+05 0.53636E-53 0.11802E-63 0.16015E-60 - 3 2 0.46905E-08 0.10000E+01 0.42297E+05 0.40065E-52 0.15778E-62 0.11996E-59 - 3 2 0.46905E-08 0.10000E+01 0.34111E+05 0.28507E-51 0.21094E-61 0.85796E-59 - 3 2 0.46905E-08 0.10000E+01 0.27509E+05 0.20006E-50 0.27425E-60 0.60731E-58 - 3 2 0.46905E-08 0.10000E+01 0.22184E+05 0.13756E-49 0.34567E-59 0.42239E-57 - 3 2 0.46905E-08 0.10000E+01 0.17891E+05 0.92174E-49 0.43346E-58 0.28485E-56 - 3 2 0.46905E-08 0.10000E+01 0.14428E+05 0.61213E-48 0.58213E-57 0.18463E-55 - 3 2 0.46905E-08 0.10000E+01 0.11635E+05 0.42663E-47 0.93912E-56 0.11471E-54 - 3 2 0.46905E-08 0.10000E+01 0.93834E+04 0.34602E-46 0.19496E-54 0.68833E-54 - 3 2 0.46905E-08 0.10000E+01 0.75673E+04 0.35571E-45 0.48707E-53 0.42158E-53 - 3 2 0.46905E-08 0.10000E+01 0.61026E+04 0.44715E-44 0.13056E-51 0.31484E-52 - 3 2 0.46905E-08 0.10000E+01 0.49215E+04 0.61733E-43 0.35344E-50 0.33668E-51 - 3 2 0.46905E-08 0.10000E+01 0.39689E+04 0.87232E-42 0.95280E-49 0.45077E-50 - 3 2 0.46905E-08 0.10000E+01 0.32008E+04 0.38783E-39 0.82838E-46 0.19847E-47 - 3 2 0.46905E-08 0.10000E+01 0.25813E+04 0.28483E-30 0.13945E-36 0.14265E-38 - 3 2 0.46905E-08 0.10000E+01 0.20817E+04 0.54385E-14 0.11867E-19 0.26321E-22 + 3 2 0.46905E-08 0.10000E+01 0.80645E+05 0.50877E-12 0.31077E-23 0.15137E-19 + 3 2 0.46905E-08 0.10000E+01 0.65036E+05 0.65142E-12 0.70232E-23 0.19396E-19 + 3 2 0.46905E-08 0.10000E+01 0.52449E+05 0.82166E-12 0.15632E-22 0.24493E-19 + 3 2 0.46905E-08 0.10000E+01 0.42297E+05 0.10243E-11 0.34636E-22 0.30577E-19 + 3 2 0.46905E-08 0.10000E+01 0.34111E+05 0.12645E-11 0.78957E-22 0.37794E-19 + 3 2 0.46905E-08 0.10000E+01 0.27509E+05 0.15486E-11 0.19790E-21 0.46269E-19 + 3 2 0.46905E-08 0.10000E+01 0.22184E+05 0.18880E-11 0.58980E-21 0.56088E-19 + 3 2 0.46905E-08 0.10000E+01 0.17891E+05 0.23090E-11 0.21310E-20 0.67324E-19 + 3 2 0.46905E-08 0.10000E+01 0.14428E+05 0.28791E-11 0.87938E-20 0.80146E-19 + 3 2 0.46905E-08 0.10000E+01 0.11635E+05 0.37700E-11 0.38610E-19 0.95147E-19 + 3 2 0.46905E-08 0.10000E+01 0.93834E+04 0.54057E-11 0.17318E-18 0.11414E-18 + 3 2 0.46905E-08 0.10000E+01 0.75673E+04 0.88114E-11 0.77945E-18 0.14195E-18 + 3 2 0.46905E-08 0.10000E+01 0.61026E+04 0.16429E-10 0.34829E-17 0.19038E-18 + 3 2 0.46905E-08 0.10000E+01 0.49215E+04 0.33987E-10 0.15307E-16 0.28702E-18 + 3 2 0.46905E-08 0.10000E+01 0.39689E+04 0.74653E-10 0.65764E-16 0.49436E-18 + 3 2 0.46905E-08 0.10000E+01 0.32008E+04 0.16793E-09 0.27583E-15 0.95012E-18 + 3 2 0.46905E-08 0.10000E+01 0.25813E+04 0.37820E-09 0.11295E-14 0.19506E-17 + 3 2 0.46905E-08 0.10000E+01 0.20817E+04 0.84241E-09 0.45105E-14 0.41193E-17 3 2 0.46905E-08 0.10000E+01 0.16788E+04 0.18444E-08 0.17547E-13 0.87387E-17 3 2 0.46905E-08 0.10000E+01 0.13538E+04 0.39567E-08 0.66637E-13 0.18380E-16 3 2 0.46905E-08 0.10000E+01 0.10918E+04 0.83052E-08 0.24836E-12 0.38077E-16 @@ -14900,24 +14900,24 @@ VERSION 2.8.2 3 2 0.46905E-08 0.10000E+01 0.24221E+03 0.82371E-06 0.75942E-09 0.36583E-14 3 2 0.46905E-08 0.10000E+01 0.19533E+03 0.12980E-05 0.14431E-08 0.57592E-14 3 2 0.46905E-08 0.10000E+01 0.15752E+03 0.12980E-05 0.14431E-08 0.57592E-14 - 3 2 0.81846E-08 0.10000E+01 0.80645E+05 0.14034E-54 0.10464E-65 0.70657E-62 - 3 2 0.81846E-08 0.10000E+01 0.65036E+05 0.11840E-53 0.16579E-64 0.59682E-61 - 3 2 0.81846E-08 0.10000E+01 0.52449E+05 0.10035E-52 0.22122E-63 0.50642E-60 - 3 2 0.81846E-08 0.10000E+01 0.42297E+05 0.75068E-52 0.29670E-62 0.37967E-59 - 3 2 0.81846E-08 0.10000E+01 0.34111E+05 0.53558E-51 0.39876E-61 0.27200E-58 - 3 2 0.81846E-08 0.10000E+01 0.27509E+05 0.37755E-50 0.52205E-60 0.19308E-57 - 3 2 0.81846E-08 0.10000E+01 0.22184E+05 0.26112E-49 0.65981E-59 0.13495E-56 - 3 2 0.81846E-08 0.10000E+01 0.17891E+05 0.17543E-48 0.81085E-58 0.91763E-56 - 3 2 0.81846E-08 0.10000E+01 0.14428E+05 0.11476E-47 0.10048E-56 0.60231E-55 - 3 2 0.81846E-08 0.10000E+01 0.11635E+05 0.75041E-47 0.13636E-55 0.38011E-54 - 3 2 0.81846E-08 0.10000E+01 0.93834E+04 0.52499E-46 0.23032E-54 0.22989E-53 - 3 2 0.81846E-08 0.10000E+01 0.75673E+04 0.44205E-45 0.51040E-53 0.13512E-52 - 3 2 0.81846E-08 0.10000E+01 0.61026E+04 0.48277E-44 0.13264E-51 0.86084E-52 - 3 2 0.81846E-08 0.10000E+01 0.49215E+04 0.63332E-43 0.35860E-50 0.74954E-51 - 3 2 0.81846E-08 0.10000E+01 0.39689E+04 0.88632E-42 0.96668E-49 0.91285E-50 - 3 2 0.81846E-08 0.10000E+01 0.32008E+04 0.39335E-39 0.83768E-46 0.39273E-47 - 3 2 0.81846E-08 0.10000E+01 0.25813E+04 0.28781E-30 0.14021E-36 0.27727E-38 - 3 2 0.81846E-08 0.10000E+01 0.20817E+04 0.54650E-14 0.11837E-19 0.49673E-22 + 3 2 0.81846E-08 0.10000E+01 0.80645E+05 0.95011E-12 0.58452E-23 0.47809E-19 + 3 2 0.81846E-08 0.10000E+01 0.65036E+05 0.12170E-11 0.13247E-22 0.61277E-19 + 3 2 0.81846E-08 0.10000E+01 0.52449E+05 0.15359E-11 0.29473E-22 0.77411E-19 + 3 2 0.81846E-08 0.10000E+01 0.42297E+05 0.19161E-11 0.64504E-22 0.96705E-19 + 3 2 0.81846E-08 0.10000E+01 0.34111E+05 0.23668E-11 0.14091E-21 0.11965E-18 + 3 2 0.81846E-08 0.10000E+01 0.27509E+05 0.28976E-11 0.32006E-21 0.14669E-18 + 3 2 0.81846E-08 0.10000E+01 0.22184E+05 0.35208E-11 0.81684E-21 0.17814E-18 + 3 2 0.81846E-08 0.10000E+01 0.17891E+05 0.42608E-11 0.25313E-20 0.21418E-18 + 3 2 0.81846E-08 0.10000E+01 0.14428E+05 0.51800E-11 0.94959E-20 0.25503E-18 + 3 2 0.81846E-08 0.10000E+01 0.11635E+05 0.64426E-11 0.39977E-19 0.30157E-18 + 3 2 0.81846E-08 0.10000E+01 0.93834E+04 0.84666E-11 0.17643E-18 0.35688E-18 + 3 2 0.81846E-08 0.10000E+01 0.75673E+04 0.12277E-10 0.78837E-18 0.42978E-18 + 3 2 0.81846E-08 0.10000E+01 0.61026E+04 0.20327E-10 0.35067E-17 0.54240E-18 + 3 2 0.81846E-08 0.10000E+01 0.49215E+04 0.38369E-10 0.15356E-16 0.74637E-18 + 3 2 0.81846E-08 0.10000E+01 0.39689E+04 0.79591E-10 0.65784E-16 0.11571E-17 + 3 2 0.81846E-08 0.10000E+01 0.32008E+04 0.17347E-09 0.27527E-15 0.20251E-17 + 3 2 0.81846E-08 0.10000E+01 0.25813E+04 0.38418E-09 0.11252E-14 0.38813E-17 + 3 2 0.81846E-08 0.10000E+01 0.20817E+04 0.84804E-09 0.44874E-14 0.78299E-17 3 2 0.81846E-08 0.10000E+01 0.16788E+04 0.18472E-08 0.17439E-13 0.16122E-16 3 2 0.81846E-08 0.10000E+01 0.13538E+04 0.39504E-08 0.66175E-13 0.33239E-16 3 2 0.81846E-08 0.10000E+01 0.10918E+04 0.82749E-08 0.24648E-12 0.67921E-16 @@ -14930,24 +14930,24 @@ VERSION 2.8.2 3 2 0.81846E-08 0.10000E+01 0.24221E+03 0.81669E-06 0.75251E-09 0.63152E-14 3 2 0.81846E-08 0.10000E+01 0.19533E+03 0.12867E-05 0.14299E-08 0.99332E-14 3 2 0.81846E-08 0.10000E+01 0.15752E+03 0.12867E-05 0.14299E-08 0.99332E-14 - 3 2 0.14282E-07 0.10000E+01 0.80645E+05 0.26081E-54 0.19462E-65 0.22451E-61 - 3 2 0.14282E-07 0.10000E+01 0.65036E+05 0.22017E-53 0.30853E-64 0.18972E-60 - 3 2 0.14282E-07 0.10000E+01 0.52449E+05 0.18672E-52 0.41226E-63 0.16105E-59 - 3 2 0.14282E-07 0.10000E+01 0.42297E+05 0.13985E-51 0.55436E-62 0.12083E-58 - 3 2 0.14282E-07 0.10000E+01 0.34111E+05 0.99993E-51 0.74822E-61 0.86673E-58 - 3 2 0.14282E-07 0.10000E+01 0.27509E+05 0.70750E-50 0.98594E-60 0.61663E-57 - 3 2 0.14282E-07 0.10000E+01 0.22184E+05 0.49204E-49 0.12551E-58 0.43263E-56 - 3 2 0.14282E-07 0.10000E+01 0.17891E+05 0.33260E-48 0.15423E-57 0.29607E-55 - 3 2 0.14282E-07 0.10000E+01 0.14428E+05 0.21775E-47 0.18574E-56 0.19631E-54 - 3 2 0.14282E-07 0.10000E+01 0.11635E+05 0.13936E-46 0.22811E-55 0.12566E-53 - 3 2 0.14282E-07 0.10000E+01 0.93834E+04 0.90020E-46 0.31640E-54 0.77156E-53 - 3 2 0.14282E-07 0.10000E+01 0.75673E+04 0.63923E-45 0.57863E-53 0.45198E-52 - 3 2 0.14282E-07 0.10000E+01 0.61026E+04 0.57455E-44 0.13890E-51 0.26546E-51 - 3 2 0.14282E-07 0.10000E+01 0.49215E+04 0.67788E-43 0.37101E-50 0.19165E-50 - 3 2 0.14282E-07 0.10000E+01 0.39689E+04 0.92153E-42 0.99885E-49 0.20280E-49 - 3 2 0.14282E-07 0.10000E+01 0.32008E+04 0.40647E-39 0.86071E-46 0.83505E-47 - 3 2 0.14282E-07 0.10000E+01 0.25813E+04 0.29538E-30 0.14252E-36 0.57581E-38 - 3 2 0.14282E-07 0.10000E+01 0.20817E+04 0.55493E-14 0.11840E-19 0.99370E-22 + 3 2 0.14282E-07 0.10000E+01 0.80645E+05 0.17652E-11 0.10926E-22 0.15188E-18 + 3 2 0.14282E-07 0.10000E+01 0.65036E+05 0.22618E-11 0.24843E-22 0.19471E-18 + 3 2 0.14282E-07 0.10000E+01 0.52449E+05 0.28560E-11 0.55436E-22 0.24606E-18 + 3 2 0.14282E-07 0.10000E+01 0.42297E+05 0.35654E-11 0.12116E-21 0.30756E-18 + 3 2 0.14282E-07 0.10000E+01 0.34111E+05 0.44079E-11 0.26054E-21 0.38085E-18 + 3 2 0.14282E-07 0.10000E+01 0.27509E+05 0.54000E-11 0.56219E-21 0.46748E-18 + 3 2 0.14282E-07 0.10000E+01 0.22184E+05 0.65583E-11 0.12828E-20 0.56860E-18 + 3 2 0.14282E-07 0.10000E+01 0.17891E+05 0.79065E-11 0.33886E-20 0.68490E-18 + 3 2 0.14282E-07 0.10000E+01 0.14428E+05 0.95006E-11 0.11069E-19 0.81671E-18 + 3 2 0.14282E-07 0.10000E+01 0.11635E+05 0.11495E-10 0.43163E-19 0.96518E-18 + 3 2 0.14282E-07 0.10000E+01 0.93834E+04 0.14298E-10 0.18428E-18 0.11355E-17 + 3 2 0.14282E-07 0.10000E+01 0.75673E+04 0.18942E-10 0.81106E-18 0.13445E-17 + 3 2 0.14282E-07 0.10000E+01 0.61026E+04 0.27914E-10 0.35744E-17 0.16354E-17 + 3 2 0.14282E-07 0.10000E+01 0.49215E+04 0.47041E-10 0.15541E-16 0.21098E-17 + 3 2 0.14282E-07 0.10000E+01 0.39689E+04 0.89627E-10 0.66184E-16 0.29908E-17 + 3 2 0.14282E-07 0.10000E+01 0.32008E+04 0.18525E-09 0.27563E-15 0.47517E-17 + 3 2 0.14282E-07 0.10000E+01 0.25813E+04 0.39803E-09 0.11225E-14 0.83730E-17 + 3 2 0.14282E-07 0.10000E+01 0.20817E+04 0.86370E-09 0.44640E-14 0.15854E-16 3 2 0.14282E-07 0.10000E+01 0.16788E+04 0.18625E-08 0.17312E-13 0.31207E-16 3 2 0.14282E-07 0.10000E+01 0.13538E+04 0.39581E-08 0.65587E-13 0.62336E-16 3 2 0.14282E-07 0.10000E+01 0.10918E+04 0.82569E-08 0.24400E-12 0.12452E-15 @@ -14960,24 +14960,24 @@ VERSION 2.8.2 3 2 0.14282E-07 0.10000E+01 0.24221E+03 0.80708E-06 0.74287E-09 0.10941E-13 3 2 0.14282E-07 0.10000E+01 0.19533E+03 0.12712E-05 0.14116E-08 0.17183E-13 3 2 0.14282E-07 0.10000E+01 0.15752E+03 0.12712E-05 0.14116E-08 0.17183E-13 - 3 2 0.24920E-07 0.10000E+01 0.80645E+05 0.48168E-54 0.35967E-65 0.71069E-61 - 3 2 0.24920E-07 0.10000E+01 0.65036E+05 0.40685E-53 0.57044E-64 0.60078E-60 - 3 2 0.24920E-07 0.10000E+01 0.52449E+05 0.34521E-52 0.76309E-63 0.51014E-59 - 3 2 0.24920E-07 0.10000E+01 0.42297E+05 0.25878E-51 0.10282E-61 0.38296E-58 - 3 2 0.24920E-07 0.10000E+01 0.34111E+05 0.18535E-50 0.13924E-60 0.27501E-57 - 3 2 0.24920E-07 0.10000E+01 0.27509E+05 0.13153E-49 0.18447E-59 0.19600E-56 - 3 2 0.24920E-07 0.10000E+01 0.22184E+05 0.91899E-49 0.23660E-58 0.13793E-55 - 3 2 0.24920E-07 0.10000E+01 0.17891E+05 0.62523E-48 0.29281E-57 0.94872E-55 - 3 2 0.24920E-07 0.10000E+01 0.14428E+05 0.41192E-47 0.35165E-56 0.63402E-54 - 3 2 0.24920E-07 0.10000E+01 0.11635E+05 0.26332E-46 0.41519E-55 0.41054E-53 - 3 2 0.24920E-07 0.10000E+01 0.93834E+04 0.16508E-45 0.50655E-54 0.25587E-52 - 3 2 0.24920E-07 0.10000E+01 0.75673E+04 0.10582E-44 0.74804E-53 0.15150E-51 - 3 2 0.24920E-07 0.10000E+01 0.61026E+04 0.78665E-44 0.15523E-51 0.86408E-51 - 3 2 0.24920E-07 0.10000E+01 0.49215E+04 0.78744E-43 0.39945E-50 0.54803E-50 - 3 2 0.24920E-07 0.10000E+01 0.39689E+04 0.10040E-41 0.10697E-48 0.49613E-49 - 3 2 0.24920E-07 0.10000E+01 0.32008E+04 0.43599E-39 0.91397E-46 0.19150E-46 - 3 2 0.24920E-07 0.10000E+01 0.25813E+04 0.31320E-30 0.14869E-36 0.12860E-37 - 3 2 0.24920E-07 0.10000E+01 0.20817E+04 0.57813E-14 0.11999E-19 0.21353E-21 + 3 2 0.24920E-07 0.10000E+01 0.80645E+05 0.32593E-11 0.20274E-22 0.48070E-18 + 3 2 0.24920E-07 0.10000E+01 0.65036E+05 0.41773E-11 0.46236E-22 0.61636E-18 + 3 2 0.24920E-07 0.10000E+01 0.52449E+05 0.52770E-11 0.10356E-21 0.77914E-18 + 3 2 0.24920E-07 0.10000E+01 0.42297E+05 0.65920E-11 0.22703E-21 0.97428E-18 + 3 2 0.24920E-07 0.10000E+01 0.34111E+05 0.81566E-11 0.48695E-21 0.12073E-17 + 3 2 0.24920E-07 0.10000E+01 0.27509E+05 0.10002E-10 0.10294E-20 0.14833E-17 + 3 2 0.24920E-07 0.10000E+01 0.22184E+05 0.12156E-10 0.22067E-20 0.18067E-17 + 3 2 0.24920E-07 0.10000E+01 0.17891E+05 0.14646E-10 0.51462E-20 0.21799E-17 + 3 2 0.24920E-07 0.10000E+01 0.14428E+05 0.17521E-10 0.14414E-19 0.26040E-17 + 3 2 0.24920E-07 0.10000E+01 0.11635E+05 0.20923E-10 0.50156E-19 0.30801E-17 + 3 2 0.24920E-07 0.10000E+01 0.93834E+04 0.25253E-10 0.20202E-18 0.36170E-17 + 3 2 0.24920E-07 0.10000E+01 0.75673E+04 0.31565E-10 0.86472E-18 0.42472E-17 + 3 2 0.24920E-07 0.10000E+01 0.61026E+04 0.42436E-10 0.37479E-17 0.50606E-17 + 3 2 0.24920E-07 0.10000E+01 0.49215E+04 0.63905E-10 0.16090E-16 0.62687E-17 + 3 2 0.24920E-07 0.10000E+01 0.39689E+04 0.10966E-09 0.67797E-16 0.83288E-17 + 3 2 0.24920E-07 0.10000E+01 0.32008E+04 0.20985E-09 0.27988E-15 0.12183E-16 + 3 2 0.24920E-07 0.10000E+01 0.25813E+04 0.42933E-09 0.11320E-14 0.19724E-16 + 3 2 0.24920E-07 0.10000E+01 0.20817E+04 0.90447E-09 0.44779E-14 0.34695E-16 3 2 0.24920E-07 0.10000E+01 0.16788E+04 0.19155E-08 0.17297E-13 0.64434E-16 3 2 0.24920E-07 0.10000E+01 0.13538E+04 0.40243E-08 0.65337E-13 0.12313E-15 3 2 0.24920E-07 0.10000E+01 0.10918E+04 0.83304E-08 0.24253E-12 0.23782E-15 @@ -14990,24 +14990,24 @@ VERSION 2.8.2 3 2 0.24920E-07 0.10000E+01 0.24221E+03 0.79986E-06 0.73487E-09 0.19075E-13 3 2 0.24920E-07 0.10000E+01 0.19533E+03 0.12593E-05 0.13963E-08 0.29880E-13 3 2 0.24920E-07 0.10000E+01 0.15752E+03 0.12593E-05 0.13963E-08 0.29880E-13 - 3 2 0.43485E-07 0.10000E+01 0.80645E+05 0.88433E-54 0.66069E-65 0.22456E-60 - 3 2 0.43485E-07 0.10000E+01 0.65036E+05 0.74727E-53 0.10482E-63 0.18989E-59 - 3 2 0.43485E-07 0.10000E+01 0.52449E+05 0.63431E-52 0.14035E-62 0.16128E-58 - 3 2 0.43485E-07 0.10000E+01 0.42297E+05 0.47586E-51 0.18942E-61 0.12114E-57 - 3 2 0.43485E-07 0.10000E+01 0.34111E+05 0.34130E-50 0.25718E-60 0.87068E-57 - 3 2 0.43485E-07 0.10000E+01 0.27509E+05 0.24275E-49 0.34223E-59 0.62148E-56 - 3 2 0.43485E-07 0.10000E+01 0.22184E+05 0.17026E-48 0.44192E-58 0.43843E-55 - 3 2 0.43485E-07 0.10000E+01 0.17891E+05 0.11650E-47 0.55163E-57 0.30278E-54 - 3 2 0.43485E-07 0.10000E+01 0.14428E+05 0.77328E-47 0.66699E-56 0.20362E-53 - 3 2 0.43485E-07 0.10000E+01 0.11635E+05 0.49745E-46 0.78169E-55 0.13307E-52 - 3 2 0.43485E-07 0.10000E+01 0.93834E+04 0.31041E-45 0.89829E-54 0.84004E-52 - 3 2 0.43485E-07 0.10000E+01 0.75673E+04 0.19017E-44 0.11204E-52 0.50443E-51 - 3 2 0.43485E-07 0.10000E+01 0.61026E+04 0.12351E-43 0.19108E-51 0.28660E-50 - 3 2 0.43485E-07 0.10000E+01 0.49215E+04 0.10231E-42 0.45463E-50 0.16860E-49 - 3 2 0.43485E-07 0.10000E+01 0.39689E+04 0.11691E-41 0.12006E-48 0.13250E-48 - 3 2 0.43485E-07 0.10000E+01 0.32008E+04 0.49165E-39 0.10140E-45 0.47236E-46 - 3 2 0.43485E-07 0.10000E+01 0.25813E+04 0.34707E-30 0.16075E-36 0.30878E-37 - 3 2 0.43485E-07 0.10000E+01 0.20817E+04 0.62441E-14 0.12373E-19 0.49653E-21 + 3 2 0.43485E-07 0.10000E+01 0.80645E+05 0.59826E-11 0.37364E-22 0.15187E-17 + 3 2 0.43485E-07 0.10000E+01 0.65036E+05 0.76694E-11 0.85430E-22 0.19475E-17 + 3 2 0.43485E-07 0.10000E+01 0.52449E+05 0.96917E-11 0.19204E-21 0.24624E-17 + 3 2 0.43485E-07 0.10000E+01 0.42297E+05 0.12113E-10 0.42279E-21 0.30803E-17 + 3 2 0.43485E-07 0.10000E+01 0.34111E+05 0.15000E-10 0.90943E-21 0.38191E-17 + 3 2 0.43485E-07 0.10000E+01 0.27509E+05 0.18413E-10 0.19132E-20 0.46963E-17 + 3 2 0.43485E-07 0.10000E+01 0.22184E+05 0.22403E-10 0.39864E-20 0.57266E-17 + 3 2 0.43485E-07 0.10000E+01 0.17891E+05 0.27009E-10 0.86021E-20 0.69201E-17 + 3 2 0.43485E-07 0.10000E+01 0.14428E+05 0.32280E-10 0.21087E-19 0.82805E-17 + 3 2 0.43485E-07 0.10000E+01 0.11635E+05 0.38338E-10 0.64076E-19 0.98085E-17 + 3 2 0.43485E-07 0.10000E+01 0.93834E+04 0.45578E-10 0.23672E-18 0.11518E-16 + 3 2 0.43485E-07 0.10000E+01 0.75673E+04 0.55092E-10 0.96857E-18 0.13475E-16 + 3 2 0.43485E-07 0.10000E+01 0.61026E+04 0.69629E-10 0.40865E-17 0.15875E-16 + 3 2 0.43485E-07 0.10000E+01 0.49215E+04 0.95633E-10 0.17188E-16 0.19190E-16 + 3 2 0.43485E-07 0.10000E+01 0.39689E+04 0.14756E-09 0.71180E-16 0.24422E-16 + 3 2 0.43485E-07 0.10000E+01 0.32008E+04 0.25682E-09 0.28955E-15 0.33577E-16 + 3 2 0.43485E-07 0.10000E+01 0.25813E+04 0.49002E-09 0.11570E-14 0.50526E-16 + 3 2 0.43485E-07 0.10000E+01 0.20817E+04 0.98571E-09 0.45344E-14 0.82640E-16 3 2 0.43485E-07 0.10000E+01 0.16788E+04 0.20261E-08 0.17392E-13 0.14386E-15 3 2 0.43485E-07 0.10000E+01 0.13538E+04 0.41734E-08 0.65347E-13 0.26038E-15 3 2 0.43485E-07 0.10000E+01 0.10918E+04 0.85233E-08 0.24161E-12 0.48107E-15 @@ -15020,24 +15020,24 @@ VERSION 2.8.2 3 2 0.43485E-07 0.10000E+01 0.24221E+03 0.79279E-06 0.72601E-09 0.33605E-13 3 2 0.43485E-07 0.10000E+01 0.19533E+03 0.12471E-05 0.13793E-08 0.52408E-13 3 2 0.43485E-07 0.10000E+01 0.15752E+03 0.12471E-05 0.13793E-08 0.52408E-13 - 3 2 0.75878E-07 0.10000E+01 0.80645E+05 0.16140E-53 0.12064E-64 0.70625E-60 - 3 2 0.75878E-07 0.10000E+01 0.65036E+05 0.13643E-52 0.19145E-63 0.59738E-59 - 3 2 0.75878E-07 0.10000E+01 0.52449E+05 0.11585E-51 0.25654E-62 0.50751E-58 - 3 2 0.75878E-07 0.10000E+01 0.42297E+05 0.86962E-51 0.34667E-61 0.38134E-57 - 3 2 0.75878E-07 0.10000E+01 0.34111E+05 0.62442E-50 0.47169E-60 0.27430E-56 - 3 2 0.75878E-07 0.10000E+01 0.27509E+05 0.44496E-49 0.62991E-59 0.19604E-55 - 3 2 0.75878E-07 0.10000E+01 0.22184E+05 0.31304E-48 0.81803E-58 0.13858E-54 - 3 2 0.75878E-07 0.10000E+01 0.17891E+05 0.21525E-47 0.10293E-56 0.96021E-54 - 3 2 0.75878E-07 0.10000E+01 0.14428E+05 0.14386E-46 0.12561E-55 0.64903E-53 - 3 2 0.75878E-07 0.10000E+01 0.11635E+05 0.93300E-46 0.14805E-54 0.42728E-52 - 3 2 0.75878E-07 0.10000E+01 0.93834E+04 0.58540E-45 0.16714E-53 0.27257E-51 - 3 2 0.75878E-07 0.10000E+01 0.75673E+04 0.35416E-44 0.18898E-52 0.16589E-50 - 3 2 0.75878E-07 0.10000E+01 0.61026E+04 0.21379E-43 0.26550E-51 0.94893E-50 - 3 2 0.75878E-07 0.10000E+01 0.49215E+04 0.15041E-42 0.55820E-50 0.53739E-49 - 3 2 0.75878E-07 0.10000E+01 0.39689E+04 0.14871E-41 0.14332E-48 0.37789E-48 - 3 2 0.75878E-07 0.10000E+01 0.32008E+04 0.59270E-39 0.11937E-45 0.12378E-45 - 3 2 0.75878E-07 0.10000E+01 0.25813E+04 0.40870E-30 0.18314E-36 0.78862E-37 - 3 2 0.75878E-07 0.10000E+01 0.20817E+04 0.71198E-14 0.13148E-19 0.12425E-20 + 3 2 0.75878E-07 0.10000E+01 0.80645E+05 0.10917E-10 0.68407E-22 0.47758E-17 + 3 2 0.75878E-07 0.10000E+01 0.65036E+05 0.13997E-10 0.15674E-21 0.61253E-17 + 3 2 0.75878E-07 0.10000E+01 0.52449E+05 0.17693E-10 0.35345E-21 0.77463E-17 + 3 2 0.75878E-07 0.10000E+01 0.42297E+05 0.22124E-10 0.78143E-21 0.96930E-17 + 3 2 0.75878E-07 0.10000E+01 0.34111E+05 0.27414E-10 0.16886E-20 0.12023E-16 + 3 2 0.75878E-07 0.10000E+01 0.27509E+05 0.33683E-10 0.35593E-20 0.14795E-16 + 3 2 0.75878E-07 0.10000E+01 0.22184E+05 0.41028E-10 0.73463E-20 0.18059E-16 + 3 2 0.75878E-07 0.10000E+01 0.17891E+05 0.49523E-10 0.15224E-19 0.21851E-16 + 3 2 0.75878E-07 0.10000E+01 0.14428E+05 0.59218E-10 0.33994E-19 0.26187E-16 + 3 2 0.75878E-07 0.10000E+01 0.11635E+05 0.70220E-10 0.90843E-19 0.31067E-16 + 3 2 0.75878E-07 0.10000E+01 0.93834E+04 0.82906E-10 0.30208E-18 0.36510E-16 + 3 2 0.75878E-07 0.10000E+01 0.75673E+04 0.98443E-10 0.11613E-17 0.42654E-16 + 3 2 0.75878E-07 0.10000E+01 0.61026E+04 0.11988E-09 0.47161E-17 0.49951E-16 + 3 2 0.75878E-07 0.10000E+01 0.49215E+04 0.15440E-09 0.19266E-16 0.59513E-16 + 3 2 0.75878E-07 0.10000E+01 0.39689E+04 0.21792E-09 0.77771E-16 0.73701E-16 + 3 2 0.75878E-07 0.10000E+01 0.32008E+04 0.34432E-09 0.30927E-15 0.97099E-16 + 3 2 0.75878E-07 0.10000E+01 0.25813E+04 0.60399E-09 0.12123E-14 0.13821E-15 + 3 2 0.75878E-07 0.10000E+01 0.20817E+04 0.11406E-08 0.46780E-14 0.21250E-15 3 2 0.75878E-07 0.10000E+01 0.16788E+04 0.22426E-08 0.17729E-13 0.34790E-15 3 2 0.75878E-07 0.10000E+01 0.13538E+04 0.44786E-08 0.66012E-13 0.59486E-15 3 2 0.75878E-07 0.10000E+01 0.10918E+04 0.89480E-08 0.24241E-12 0.10445E-14 @@ -15050,24 +15050,24 @@ VERSION 2.8.2 3 2 0.75878E-07 0.10000E+01 0.24221E+03 0.78857E-06 0.71810E-09 0.60198E-13 3 2 0.75878E-07 0.10000E+01 0.19533E+03 0.12387E-05 0.13640E-08 0.93204E-13 3 2 0.75878E-07 0.10000E+01 0.15752E+03 0.12387E-05 0.13640E-08 0.93204E-13 - 3 2 0.13240E-06 0.10000E+01 0.80645E+05 0.29295E-53 0.21906E-64 0.22138E-59 - 3 2 0.13240E-06 0.10000E+01 0.65036E+05 0.24772E-52 0.34774E-63 0.18729E-58 - 3 2 0.13240E-06 0.10000E+01 0.52449E+05 0.21040E-51 0.46625E-62 0.15915E-57 - 3 2 0.13240E-06 0.10000E+01 0.42297E+05 0.15802E-50 0.63074E-61 0.11963E-56 - 3 2 0.13240E-06 0.10000E+01 0.34111E+05 0.11357E-49 0.85969E-60 0.86105E-56 - 3 2 0.13240E-06 0.10000E+01 0.27509E+05 0.81055E-49 0.11514E-58 0.61602E-55 - 3 2 0.13240E-06 0.10000E+01 0.22184E+05 0.57169E-48 0.15023E-57 0.43621E-54 - 3 2 0.13240E-06 0.10000E+01 0.17891E+05 0.39469E-47 0.19035E-56 0.30308E-53 - 3 2 0.13240E-06 0.10000E+01 0.14428E+05 0.26536E-46 0.23438E-55 0.20571E-52 - 3 2 0.13240E-06 0.10000E+01 0.11635E+05 0.17346E-45 0.27892E-54 0.13623E-51 - 3 2 0.13240E-06 0.10000E+01 0.93834E+04 0.10977E-44 0.31545E-53 0.87647E-51 - 3 2 0.13240E-06 0.10000E+01 0.75673E+04 0.66564E-44 0.34149E-52 0.53971E-50 - 3 2 0.13240E-06 0.10000E+01 0.61026E+04 0.38961E-43 0.41357E-51 0.31192E-49 - 3 2 0.13240E-06 0.10000E+01 0.49215E+04 0.24490E-42 0.74700E-50 0.17374E-48 - 3 2 0.13240E-06 0.10000E+01 0.39689E+04 0.20806E-41 0.18311E-48 0.11270E-47 - 3 2 0.13240E-06 0.10000E+01 0.32008E+04 0.76969E-39 0.15023E-45 0.34017E-45 - 3 2 0.13240E-06 0.10000E+01 0.25813E+04 0.51603E-30 0.22247E-36 0.21156E-36 - 3 2 0.13240E-06 0.10000E+01 0.20817E+04 0.86882E-14 0.14574E-19 0.33052E-20 + 3 2 0.13240E-06 0.10000E+01 0.80645E+05 0.19813E-10 0.12449E-21 0.14968E-16 + 3 2 0.13240E-06 0.10000E+01 0.65036E+05 0.25407E-10 0.28576E-21 0.19200E-16 + 3 2 0.13240E-06 0.10000E+01 0.52449E+05 0.32124E-10 0.64612E-21 0.24285E-16 + 3 2 0.13240E-06 0.10000E+01 0.42297E+05 0.40184E-10 0.14339E-20 0.30396E-16 + 3 2 0.13240E-06 0.10000E+01 0.34111E+05 0.49820E-10 0.31132E-20 0.37719E-16 + 3 2 0.13240E-06 0.10000E+01 0.27509E+05 0.61260E-10 0.65916E-20 0.46441E-16 + 3 2 0.13240E-06 0.10000E+01 0.22184E+05 0.74700E-10 0.13597E-19 0.56732E-16 + 3 2 0.13240E-06 0.10000E+01 0.17891E+05 0.90279E-10 0.27676E-19 0.68721E-16 + 3 2 0.13240E-06 0.10000E+01 0.14428E+05 0.10808E-09 0.58398E-19 0.82472E-16 + 3 2 0.13240E-06 0.10000E+01 0.11635E+05 0.12817E-09 0.14097E-18 0.97984E-16 + 3 2 0.13240E-06 0.10000E+01 0.93834E+04 0.15093E-09 0.42136E-18 0.11528E-15 + 3 2 0.13240E-06 0.10000E+01 0.75673E+04 0.17761E-09 0.15046E-17 0.13465E-15 + 3 2 0.13240E-06 0.10000E+01 0.61026E+04 0.21178E-09 0.58290E-17 0.15718E-15 + 3 2 0.13240E-06 0.10000E+01 0.49215E+04 0.26187E-09 0.22955E-16 0.18567E-15 + 3 2 0.13240E-06 0.10000E+01 0.39689E+04 0.34638E-09 0.89613E-16 0.22600E-15 + 3 2 0.13240E-06 0.10000E+01 0.32008E+04 0.50364E-09 0.34533E-15 0.28943E-15 + 3 2 0.13240E-06 0.10000E+01 0.25813E+04 0.81098E-09 0.13159E-14 0.39609E-15 + 3 2 0.13240E-06 0.10000E+01 0.20817E+04 0.14220E-08 0.49577E-14 0.58089E-15 3 2 0.13240E-06 0.10000E+01 0.16788E+04 0.26379E-08 0.18431E-13 0.90376E-15 3 2 0.13240E-06 0.10000E+01 0.13538E+04 0.50422E-08 0.67611E-13 0.14677E-14 3 2 0.13240E-06 0.10000E+01 0.10918E+04 0.97482E-08 0.24548E-12 0.24504E-14 @@ -15080,24 +15080,24 @@ VERSION 2.8.2 3 2 0.13240E-06 0.10000E+01 0.24221E+03 0.78691E-06 0.70966E-09 0.11068E-12 3 2 0.13240E-06 0.10000E+01 0.19533E+03 0.12330E-05 0.13476E-08 0.16942E-12 3 2 0.13240E-06 0.10000E+01 0.15752E+03 0.12330E-05 0.13476E-08 0.16942E-12 - 3 2 0.23103E-06 0.10000E+01 0.80645E+05 0.52803E-53 0.39496E-64 0.67761E-59 - 3 2 0.23103E-06 0.10000E+01 0.65036E+05 0.44662E-52 0.62711E-63 0.57339E-58 - 3 2 0.23103E-06 0.10000E+01 0.52449E+05 0.37943E-51 0.84128E-62 0.48731E-57 - 3 2 0.23103E-06 0.10000E+01 0.42297E+05 0.28509E-50 0.11391E-60 0.36641E-56 - 3 2 0.23103E-06 0.10000E+01 0.34111E+05 0.20505E-49 0.15548E-59 0.26387E-55 - 3 2 0.23103E-06 0.10000E+01 0.27509E+05 0.14653E-48 0.20872E-58 0.18894E-54 - 3 2 0.23103E-06 0.10000E+01 0.22184E+05 0.10356E-47 0.27339E-57 0.13397E-53 - 3 2 0.23103E-06 0.10000E+01 0.17891E+05 0.71736E-47 0.34839E-56 0.93285E-53 - 3 2 0.23103E-06 0.10000E+01 0.14428E+05 0.48469E-46 0.43233E-55 0.63523E-52 - 3 2 0.23103E-06 0.10000E+01 0.11635E+05 0.31900E-45 0.51953E-54 0.42266E-51 - 3 2 0.23103E-06 0.10000E+01 0.93834E+04 0.20361E-44 0.59284E-53 0.27372E-50 - 3 2 0.23103E-06 0.10000E+01 0.75673E+04 0.12442E-43 0.63388E-52 0.17014E-49 - 3 2 0.23103E-06 0.10000E+01 0.61026E+04 0.72247E-43 0.69984E-51 0.99339E-49 - 3 2 0.23103E-06 0.10000E+01 0.49215E+04 0.42552E-42 0.10891E-49 0.55049E-48 - 3 2 0.23103E-06 0.10000E+01 0.39689E+04 0.31742E-41 0.25078E-48 0.33826E-47 - 3 2 0.23103E-06 0.10000E+01 0.32008E+04 0.10776E-38 0.20272E-45 0.95118E-45 - 3 2 0.23103E-06 0.10000E+01 0.25813E+04 0.70122E-30 0.29079E-36 0.57874E-36 - 3 2 0.23103E-06 0.10000E+01 0.20817E+04 0.11466E-13 0.17168E-19 0.90458E-20 + 3 2 0.23103E-06 0.10000E+01 0.80645E+05 0.35706E-10 0.22488E-21 0.45812E-16 + 3 2 0.23103E-06 0.10000E+01 0.65036E+05 0.45795E-10 0.51694E-21 0.58769E-16 + 3 2 0.23103E-06 0.10000E+01 0.52449E+05 0.57914E-10 0.11714E-20 0.74345E-16 + 3 2 0.23103E-06 0.10000E+01 0.42297E+05 0.72466E-10 0.26080E-20 0.93073E-16 + 3 2 0.23103E-06 0.10000E+01 0.34111E+05 0.89885E-10 0.56869E-20 0.11553E-15 + 3 2 0.23103E-06 0.10000E+01 0.27509E+05 0.11060E-09 0.12100E-19 0.14231E-15 + 3 2 0.23103E-06 0.10000E+01 0.22184E+05 0.13499E-09 0.25041E-19 0.17396E-15 + 3 2 0.23103E-06 0.10000E+01 0.17891E+05 0.16334E-09 0.50660E-19 0.21091E-15 + 3 2 0.23103E-06 0.10000E+01 0.14428E+05 0.19578E-09 0.10365E-18 0.25340E-15 + 3 2 0.23103E-06 0.10000E+01 0.11635E+05 0.23239E-09 0.23323E-18 0.30145E-15 + 3 2 0.23103E-06 0.10000E+01 0.93834E+04 0.27349E-09 0.63620E-18 0.35505E-15 + 3 2 0.23103E-06 0.10000E+01 0.75673E+04 0.32051E-09 0.21098E-17 0.41484E-15 + 3 2 0.23103E-06 0.10000E+01 0.61026E+04 0.37782E-09 0.77760E-17 0.48350E-15 + 3 2 0.23103E-06 0.10000E+01 0.49215E+04 0.45601E-09 0.29439E-16 0.56821E-15 + 3 2 0.23103E-06 0.10000E+01 0.39689E+04 0.57804E-09 0.11067E-15 0.68428E-15 + 3 2 0.23103E-06 0.10000E+01 0.32008E+04 0.79021E-09 0.41054E-15 0.86057E-15 + 3 2 0.23103E-06 0.10000E+01 0.25813E+04 0.11826E-08 0.15078E-14 0.11474E-14 + 3 2 0.23103E-06 0.10000E+01 0.20817E+04 0.19274E-08 0.54949E-14 0.16285E-14 3 2 0.23103E-06 0.10000E+01 0.16788E+04 0.33517E-08 0.19859E-13 0.24412E-14 3 2 0.23103E-06 0.10000E+01 0.13538E+04 0.60716E-08 0.71198E-13 0.38086E-14 3 2 0.23103E-06 0.10000E+01 0.10918E+04 0.11239E-07 0.25388E-12 0.60969E-14 @@ -15110,24 +15110,24 @@ VERSION 2.8.2 3 2 0.23103E-06 0.10000E+01 0.24221E+03 0.79461E-06 0.70495E-09 0.21053E-12 3 2 0.23103E-06 0.10000E+01 0.19533E+03 0.12399E-05 0.13379E-08 0.31701E-12 3 2 0.23103E-06 0.10000E+01 0.15752E+03 0.12399E-05 0.13379E-08 0.31701E-12 - 3 2 0.40314E-06 0.10000E+01 0.80645E+05 0.92428E-53 0.69138E-64 0.12609E-58 - 3 2 0.40314E-06 0.10000E+01 0.65036E+05 0.78179E-52 0.10978E-62 0.10670E-57 - 3 2 0.40314E-06 0.10000E+01 0.52449E+05 0.66419E-51 0.14728E-61 0.90683E-57 - 3 2 0.40314E-06 0.10000E+01 0.42297E+05 0.49908E-50 0.19943E-60 0.68186E-56 - 3 2 0.40314E-06 0.10000E+01 0.34111E+05 0.35900E-49 0.27225E-59 0.49107E-55 - 3 2 0.40314E-06 0.10000E+01 0.27509E+05 0.25657E-48 0.36558E-58 0.35165E-54 - 3 2 0.40314E-06 0.10000E+01 0.22184E+05 0.18138E-47 0.47904E-57 0.24939E-53 - 3 2 0.40314E-06 0.10000E+01 0.17891E+05 0.12568E-46 0.61083E-56 0.17369E-52 - 3 2 0.40314E-06 0.10000E+01 0.14428E+05 0.84962E-46 0.75865E-55 0.11831E-51 - 3 2 0.40314E-06 0.10000E+01 0.11635E+05 0.55960E-45 0.91267E-54 0.78759E-51 - 3 2 0.40314E-06 0.10000E+01 0.93834E+04 0.35752E-44 0.10428E-52 0.51040E-50 - 3 2 0.40314E-06 0.10000E+01 0.75673E+04 0.21870E-43 0.11146E-51 0.31756E-49 - 3 2 0.40314E-06 0.10000E+01 0.61026E+04 0.12698E-42 0.12209E-50 0.18562E-48 - 3 2 0.40314E-06 0.10000E+01 0.49215E+04 0.74387E-42 0.18688E-49 0.10284E-47 - 3 2 0.40314E-06 0.10000E+01 0.39689E+04 0.54744E-41 0.42672E-48 0.62876E-47 - 3 2 0.40314E-06 0.10000E+01 0.32008E+04 0.18390E-38 0.34435E-45 0.17549E-44 - 3 2 0.40314E-06 0.10000E+01 0.25813E+04 0.11924E-29 0.49229E-36 0.10652E-35 - 3 2 0.40314E-06 0.10000E+01 0.20817E+04 0.19441E-13 0.28697E-19 0.16656E-19 + 3 2 0.40314E-06 0.10000E+01 0.80645E+05 0.62500E-10 0.39372E-21 0.85248E-16 + 3 2 0.40314E-06 0.10000E+01 0.65036E+05 0.80161E-10 0.90521E-21 0.10936E-15 + 3 2 0.40314E-06 0.10000E+01 0.52449E+05 0.10138E-09 0.20518E-20 0.13834E-15 + 3 2 0.40314E-06 0.10000E+01 0.42297E+05 0.12685E-09 0.45696E-20 0.17320E-15 + 3 2 0.40314E-06 0.10000E+01 0.34111E+05 0.15735E-09 0.99690E-20 0.21500E-15 + 3 2 0.40314E-06 0.10000E+01 0.27509E+05 0.19363E-09 0.21224E-19 0.26485E-15 + 3 2 0.40314E-06 0.10000E+01 0.22184E+05 0.23636E-09 0.43943E-19 0.32377E-15 + 3 2 0.40314E-06 0.10000E+01 0.17891E+05 0.28603E-09 0.88878E-19 0.39258E-15 + 3 2 0.40314E-06 0.10000E+01 0.14428E+05 0.34289E-09 0.18138E-18 0.47173E-15 + 3 2 0.40314E-06 0.10000E+01 0.11635E+05 0.40706E-09 0.40545E-18 0.56125E-15 + 3 2 0.40314E-06 0.10000E+01 0.93834E+04 0.47905E-09 0.10954E-17 0.66112E-15 + 3 2 0.40314E-06 0.10000E+01 0.75673E+04 0.56126E-09 0.36021E-17 0.77248E-15 + 3 2 0.40314E-06 0.10000E+01 0.61026E+04 0.66097E-09 0.13198E-16 0.90024E-15 + 3 2 0.40314E-06 0.10000E+01 0.49215E+04 0.79607E-09 0.49733E-16 0.10575E-14 + 3 2 0.40314E-06 0.10000E+01 0.39689E+04 0.10051E-08 0.18610E-15 0.12723E-14 + 3 2 0.40314E-06 0.10000E+01 0.32008E+04 0.13658E-08 0.68706E-15 0.15974E-14 + 3 2 0.40314E-06 0.10000E+01 0.25813E+04 0.20285E-08 0.25111E-14 0.21246E-14 + 3 2 0.40314E-06 0.10000E+01 0.20817E+04 0.32791E-08 0.91089E-14 0.30063E-14 3 2 0.40314E-06 0.10000E+01 0.16788E+04 0.56581E-08 0.32788E-13 0.44905E-14 3 2 0.40314E-06 0.10000E+01 0.13538E+04 0.10180E-07 0.11715E-12 0.69783E-14 3 2 0.40314E-06 0.10000E+01 0.10918E+04 0.18734E-07 0.41660E-12 0.11123E-13 @@ -15140,24 +15140,24 @@ VERSION 2.8.2 3 2 0.40314E-06 0.10000E+01 0.24221E+03 0.12991E-05 0.11495E-08 0.37199E-12 3 2 0.40314E-06 0.10000E+01 0.19533E+03 0.20256E-05 0.21813E-08 0.55886E-12 3 2 0.40314E-06 0.10000E+01 0.15752E+03 0.20256E-05 0.21813E-08 0.55886E-12 - 3 2 0.70346E-06 0.10000E+01 0.80645E+05 0.16128E-52 0.12064E-63 0.22002E-58 - 3 2 0.70346E-06 0.10000E+01 0.65036E+05 0.13642E-51 0.19156E-62 0.18618E-57 - 3 2 0.70346E-06 0.10000E+01 0.52449E+05 0.11590E-50 0.25699E-61 0.15824E-56 - 3 2 0.70346E-06 0.10000E+01 0.42297E+05 0.87086E-50 0.34800E-60 0.11898E-55 - 3 2 0.70346E-06 0.10000E+01 0.34111E+05 0.62643E-49 0.47506E-59 0.85689E-55 - 3 2 0.70346E-06 0.10000E+01 0.27509E+05 0.44770E-48 0.63792E-58 0.61361E-54 - 3 2 0.70346E-06 0.10000E+01 0.22184E+05 0.31649E-47 0.83589E-57 0.43516E-53 - 3 2 0.70346E-06 0.10000E+01 0.17891E+05 0.21930E-46 0.10659E-55 0.30307E-52 - 3 2 0.70346E-06 0.10000E+01 0.14428E+05 0.14825E-45 0.13238E-54 0.20645E-51 - 3 2 0.70346E-06 0.10000E+01 0.11635E+05 0.97646E-45 0.15926E-53 0.13743E-50 - 3 2 0.70346E-06 0.10000E+01 0.93834E+04 0.62385E-44 0.18195E-52 0.89061E-50 - 3 2 0.70346E-06 0.10000E+01 0.75673E+04 0.38162E-43 0.19449E-51 0.55412E-49 - 3 2 0.70346E-06 0.10000E+01 0.61026E+04 0.22157E-42 0.21303E-50 0.32389E-48 - 3 2 0.70346E-06 0.10000E+01 0.49215E+04 0.12980E-41 0.32609E-49 0.17945E-47 - 3 2 0.70346E-06 0.10000E+01 0.39689E+04 0.95526E-41 0.74461E-48 0.10972E-46 - 3 2 0.70346E-06 0.10000E+01 0.32008E+04 0.32090E-38 0.60087E-45 0.30622E-44 - 3 2 0.70346E-06 0.10000E+01 0.25813E+04 0.20807E-29 0.85901E-36 0.18587E-35 - 3 2 0.70346E-06 0.10000E+01 0.20817E+04 0.33924E-13 0.50075E-19 0.29064E-19 + 3 2 0.70346E-06 0.10000E+01 0.80645E+05 0.10906E-09 0.68702E-21 0.14875E-15 + 3 2 0.70346E-06 0.10000E+01 0.65036E+05 0.13988E-09 0.15795E-20 0.19082E-15 + 3 2 0.70346E-06 0.10000E+01 0.52449E+05 0.17689E-09 0.35803E-20 0.24140E-15 + 3 2 0.70346E-06 0.10000E+01 0.42297E+05 0.22135E-09 0.79737E-20 0.30222E-15 + 3 2 0.70346E-06 0.10000E+01 0.34111E+05 0.27457E-09 0.17395E-19 0.37516E-15 + 3 2 0.70346E-06 0.10000E+01 0.27509E+05 0.33788E-09 0.37034E-19 0.46215E-15 + 3 2 0.70346E-06 0.10000E+01 0.22184E+05 0.41243E-09 0.76677E-19 0.56497E-15 + 3 2 0.70346E-06 0.10000E+01 0.17891E+05 0.49910E-09 0.15509E-18 0.68503E-15 + 3 2 0.70346E-06 0.10000E+01 0.14428E+05 0.59832E-09 0.31650E-18 0.82314E-15 + 3 2 0.70346E-06 0.10000E+01 0.11635E+05 0.71030E-09 0.70748E-18 0.97934E-15 + 3 2 0.70346E-06 0.10000E+01 0.93834E+04 0.83592E-09 0.19114E-17 0.11536E-14 + 3 2 0.70346E-06 0.10000E+01 0.75673E+04 0.97936E-09 0.62854E-17 0.13479E-14 + 3 2 0.70346E-06 0.10000E+01 0.61026E+04 0.11534E-08 0.23030E-16 0.15709E-14 + 3 2 0.70346E-06 0.10000E+01 0.49215E+04 0.13891E-08 0.86781E-16 0.18453E-14 + 3 2 0.70346E-06 0.10000E+01 0.39689E+04 0.17539E-08 0.32473E-15 0.22200E-14 + 3 2 0.70346E-06 0.10000E+01 0.32008E+04 0.23833E-08 0.11989E-14 0.27873E-14 + 3 2 0.70346E-06 0.10000E+01 0.25813E+04 0.35395E-08 0.43817E-14 0.37073E-14 + 3 2 0.70346E-06 0.10000E+01 0.20817E+04 0.57218E-08 0.15895E-13 0.52459E-14 3 2 0.70346E-06 0.10000E+01 0.16788E+04 0.98731E-08 0.57213E-13 0.78356E-14 3 2 0.70346E-06 0.10000E+01 0.13538E+04 0.17763E-07 0.20442E-12 0.12177E-13 3 2 0.70346E-06 0.10000E+01 0.10918E+04 0.32690E-07 0.72695E-12 0.19410E-13 @@ -15170,24 +15170,24 @@ VERSION 2.8.2 3 2 0.70346E-06 0.10000E+01 0.24221E+03 0.22668E-05 0.20058E-08 0.64910E-12 3 2 0.70346E-06 0.10000E+01 0.19533E+03 0.35346E-05 0.38063E-08 0.97518E-12 3 2 0.70346E-06 0.10000E+01 0.15752E+03 0.35346E-05 0.38063E-08 0.97518E-12 - 3 2 0.12275E-05 0.10000E+01 0.80645E+05 0.28142E-52 0.21051E-63 0.38393E-58 - 3 2 0.12275E-05 0.10000E+01 0.65036E+05 0.23804E-51 0.33425E-62 0.32488E-57 - 3 2 0.12275E-05 0.10000E+01 0.52449E+05 0.20223E-50 0.44843E-61 0.27611E-56 - 3 2 0.12275E-05 0.10000E+01 0.42297E+05 0.15196E-49 0.60723E-60 0.20761E-55 - 3 2 0.12275E-05 0.10000E+01 0.34111E+05 0.10931E-48 0.82896E-59 0.14952E-54 - 3 2 0.12275E-05 0.10000E+01 0.27509E+05 0.78121E-48 0.11131E-57 0.10707E-53 - 3 2 0.12275E-05 0.10000E+01 0.22184E+05 0.55226E-47 0.14586E-56 0.75933E-53 - 3 2 0.12275E-05 0.10000E+01 0.17891E+05 0.38267E-46 0.18599E-55 0.52885E-52 - 3 2 0.12275E-05 0.10000E+01 0.14428E+05 0.25869E-45 0.23099E-54 0.36024E-51 - 3 2 0.12275E-05 0.10000E+01 0.11635E+05 0.17039E-44 0.27789E-53 0.23981E-50 - 3 2 0.12275E-05 0.10000E+01 0.93834E+04 0.10886E-43 0.31750E-52 0.15541E-49 - 3 2 0.12275E-05 0.10000E+01 0.75673E+04 0.66591E-43 0.33938E-51 0.96691E-49 - 3 2 0.12275E-05 0.10000E+01 0.61026E+04 0.38663E-42 0.37173E-50 0.56516E-48 - 3 2 0.12275E-05 0.10000E+01 0.49215E+04 0.22649E-41 0.56900E-49 0.31313E-47 - 3 2 0.12275E-05 0.10000E+01 0.39689E+04 0.16669E-40 0.12993E-47 0.19145E-46 - 3 2 0.12275E-05 0.10000E+01 0.32008E+04 0.55995E-38 0.10485E-44 0.53434E-44 - 3 2 0.12275E-05 0.10000E+01 0.25813E+04 0.36306E-29 0.14989E-35 0.32433E-35 - 3 2 0.12275E-05 0.10000E+01 0.20817E+04 0.59195E-13 0.87377E-19 0.50715E-19 + 3 2 0.12275E-05 0.10000E+01 0.80645E+05 0.19030E-09 0.11988E-20 0.25956E-15 + 3 2 0.12275E-05 0.10000E+01 0.65036E+05 0.24408E-09 0.27562E-20 0.33298E-15 + 3 2 0.12275E-05 0.10000E+01 0.52449E+05 0.30867E-09 0.62474E-20 0.42123E-15 + 3 2 0.12275E-05 0.10000E+01 0.42297E+05 0.38625E-09 0.13914E-19 0.52736E-15 + 3 2 0.12275E-05 0.10000E+01 0.34111E+05 0.47911E-09 0.30354E-19 0.65464E-15 + 3 2 0.12275E-05 0.10000E+01 0.27509E+05 0.58957E-09 0.64623E-19 0.80642E-15 + 3 2 0.12275E-05 0.10000E+01 0.22184E+05 0.71966E-09 0.13380E-18 0.98583E-15 + 3 2 0.12275E-05 0.10000E+01 0.17891E+05 0.87089E-09 0.27062E-18 0.11953E-14 + 3 2 0.12275E-05 0.10000E+01 0.14428E+05 0.10440E-08 0.55227E-18 0.14363E-14 + 3 2 0.12275E-05 0.10000E+01 0.11635E+05 0.12394E-08 0.12345E-17 0.17089E-14 + 3 2 0.12275E-05 0.10000E+01 0.93834E+04 0.14586E-08 0.33352E-17 0.20130E-14 + 3 2 0.12275E-05 0.10000E+01 0.75673E+04 0.17089E-08 0.10968E-16 0.23521E-14 + 3 2 0.12275E-05 0.10000E+01 0.61026E+04 0.20125E-08 0.40185E-16 0.27411E-14 + 3 2 0.12275E-05 0.10000E+01 0.49215E+04 0.24239E-08 0.15143E-15 0.32199E-14 + 3 2 0.12275E-05 0.10000E+01 0.39689E+04 0.30605E-08 0.56664E-15 0.38738E-14 + 3 2 0.12275E-05 0.10000E+01 0.32008E+04 0.41587E-08 0.20920E-14 0.48637E-14 + 3 2 0.12275E-05 0.10000E+01 0.25813E+04 0.61763E-08 0.76459E-14 0.64690E-14 + 3 2 0.12275E-05 0.10000E+01 0.20817E+04 0.99842E-08 0.27735E-13 0.91537E-14 3 2 0.12275E-05 0.10000E+01 0.16788E+04 0.17228E-07 0.99834E-13 0.13673E-13 3 2 0.12275E-05 0.10000E+01 0.13538E+04 0.30996E-07 0.35670E-12 0.21248E-13 3 2 0.12275E-05 0.10000E+01 0.10918E+04 0.57043E-07 0.12685E-11 0.33869E-13 @@ -15200,24 +15200,24 @@ VERSION 2.8.2 3 2 0.12275E-05 0.10000E+01 0.24221E+03 0.39554E-05 0.34999E-08 0.11326E-11 3 2 0.12275E-05 0.10000E+01 0.19533E+03 0.61677E-05 0.66417E-08 0.17016E-11 3 2 0.12275E-05 0.10000E+01 0.15752E+03 0.61677E-05 0.66417E-08 0.17016E-11 - 3 2 0.21419E-05 0.10000E+01 0.80645E+05 0.49107E-52 0.36733E-63 0.66993E-58 - 3 2 0.21419E-05 0.10000E+01 0.65036E+05 0.41537E-51 0.58325E-62 0.56690E-57 - 3 2 0.21419E-05 0.10000E+01 0.52449E+05 0.35289E-50 0.78248E-61 0.48180E-56 - 3 2 0.21419E-05 0.10000E+01 0.42297E+05 0.26516E-49 0.10596E-59 0.36227E-55 - 3 2 0.21419E-05 0.10000E+01 0.34111E+05 0.19074E-48 0.14465E-58 0.26091E-54 - 3 2 0.21419E-05 0.10000E+01 0.27509E+05 0.13632E-47 0.19424E-57 0.18683E-53 - 3 2 0.21419E-05 0.10000E+01 0.22184E+05 0.96365E-47 0.25451E-56 0.13250E-52 - 3 2 0.21419E-05 0.10000E+01 0.17891E+05 0.66774E-46 0.32453E-55 0.92280E-52 - 3 2 0.21419E-05 0.10000E+01 0.14428E+05 0.45141E-45 0.40307E-54 0.62860E-51 - 3 2 0.21419E-05 0.10000E+01 0.11635E+05 0.29731E-44 0.48490E-53 0.41845E-50 - 3 2 0.21419E-05 0.10000E+01 0.93834E+04 0.18995E-43 0.55402E-52 0.27117E-49 - 3 2 0.21419E-05 0.10000E+01 0.75673E+04 0.11620E-42 0.59219E-51 0.16872E-48 - 3 2 0.21419E-05 0.10000E+01 0.61026E+04 0.67465E-42 0.64864E-50 0.98618E-48 - 3 2 0.21419E-05 0.10000E+01 0.49215E+04 0.39522E-41 0.99287E-49 0.54639E-47 - 3 2 0.21419E-05 0.10000E+01 0.39689E+04 0.29086E-40 0.22672E-47 0.33406E-46 - 3 2 0.21419E-05 0.10000E+01 0.32008E+04 0.97707E-38 0.18295E-44 0.93239E-44 - 3 2 0.21419E-05 0.10000E+01 0.25813E+04 0.63353E-29 0.26155E-35 0.56594E-35 - 3 2 0.21419E-05 0.10000E+01 0.20817E+04 0.10329E-12 0.15247E-18 0.88495E-19 + 3 2 0.21419E-05 0.10000E+01 0.80645E+05 0.33207E-09 0.20919E-20 0.45292E-15 + 3 2 0.21419E-05 0.10000E+01 0.65036E+05 0.42590E-09 0.48094E-20 0.58103E-15 + 3 2 0.21419E-05 0.10000E+01 0.52449E+05 0.53861E-09 0.10901E-19 0.73503E-15 + 3 2 0.21419E-05 0.10000E+01 0.42297E+05 0.67397E-09 0.24279E-19 0.92020E-15 + 3 2 0.21419E-05 0.10000E+01 0.34111E+05 0.83603E-09 0.52965E-19 0.11423E-14 + 3 2 0.21419E-05 0.10000E+01 0.27509E+05 0.10288E-08 0.11276E-18 0.14072E-14 + 3 2 0.21419E-05 0.10000E+01 0.22184E+05 0.12558E-08 0.23347E-18 0.17202E-14 + 3 2 0.21419E-05 0.10000E+01 0.17891E+05 0.15197E-08 0.47221E-18 0.20858E-14 + 3 2 0.21419E-05 0.10000E+01 0.14428E+05 0.18218E-08 0.96367E-18 0.25063E-14 + 3 2 0.21419E-05 0.10000E+01 0.11635E+05 0.21627E-08 0.21541E-17 0.29819E-14 + 3 2 0.21419E-05 0.10000E+01 0.93834E+04 0.25452E-08 0.58198E-17 0.35125E-14 + 3 2 0.21419E-05 0.10000E+01 0.75673E+04 0.29820E-08 0.19138E-16 0.41042E-14 + 3 2 0.21419E-05 0.10000E+01 0.61026E+04 0.35118E-08 0.70121E-16 0.47830E-14 + 3 2 0.21419E-05 0.10000E+01 0.49215E+04 0.42295E-08 0.26423E-15 0.56185E-14 + 3 2 0.21419E-05 0.10000E+01 0.39689E+04 0.53404E-08 0.98875E-15 0.67596E-14 + 3 2 0.21419E-05 0.10000E+01 0.32008E+04 0.72567E-08 0.36503E-14 0.84869E-14 + 3 2 0.21419E-05 0.10000E+01 0.25813E+04 0.10777E-07 0.13342E-13 0.11288E-13 + 3 2 0.21419E-05 0.10000E+01 0.20817E+04 0.17422E-07 0.48396E-13 0.15973E-13 3 2 0.21419E-05 0.10000E+01 0.16788E+04 0.30062E-07 0.17420E-12 0.23858E-13 3 2 0.21419E-05 0.10000E+01 0.13538E+04 0.54086E-07 0.62242E-12 0.37076E-13 3 2 0.21419E-05 0.10000E+01 0.10918E+04 0.99536E-07 0.22134E-11 0.59099E-13 @@ -15230,24 +15230,24 @@ VERSION 2.8.2 3 2 0.21419E-05 0.10000E+01 0.24221E+03 0.69019E-05 0.61072E-08 0.19764E-11 3 2 0.21419E-05 0.10000E+01 0.19533E+03 0.10762E-04 0.11589E-07 0.29693E-11 3 2 0.21419E-05 0.10000E+01 0.15752E+03 0.10762E-04 0.11589E-07 0.29693E-11 - 3 2 0.37375E-05 0.10000E+01 0.80645E+05 0.85689E-52 0.64097E-63 0.11690E-57 - 3 2 0.37375E-05 0.10000E+01 0.65036E+05 0.72479E-51 0.10177E-61 0.98920E-57 - 3 2 0.37375E-05 0.10000E+01 0.52449E+05 0.61577E-50 0.13654E-60 0.84071E-56 - 3 2 0.37375E-05 0.10000E+01 0.42297E+05 0.46269E-49 0.18489E-59 0.63215E-55 - 3 2 0.37375E-05 0.10000E+01 0.34111E+05 0.33282E-48 0.25240E-58 0.45526E-54 - 3 2 0.37375E-05 0.10000E+01 0.27509E+05 0.23786E-47 0.33893E-57 0.32601E-53 - 3 2 0.37375E-05 0.10000E+01 0.22184E+05 0.16815E-46 0.44411E-56 0.23120E-52 - 3 2 0.37375E-05 0.10000E+01 0.17891E+05 0.11652E-45 0.56629E-55 0.16102E-51 - 3 2 0.37375E-05 0.10000E+01 0.14428E+05 0.78768E-45 0.70333E-54 0.10969E-50 - 3 2 0.37375E-05 0.10000E+01 0.11635E+05 0.51879E-44 0.84613E-53 0.73016E-50 - 3 2 0.37375E-05 0.10000E+01 0.93834E+04 0.33145E-43 0.96672E-52 0.47318E-49 - 3 2 0.37375E-05 0.10000E+01 0.75673E+04 0.20276E-42 0.10333E-50 0.29441E-48 - 3 2 0.37375E-05 0.10000E+01 0.61026E+04 0.11772E-41 0.11318E-49 0.17208E-47 - 3 2 0.37375E-05 0.10000E+01 0.49215E+04 0.68963E-41 0.17325E-48 0.95341E-47 - 3 2 0.37375E-05 0.10000E+01 0.39689E+04 0.50753E-40 0.39561E-47 0.58292E-46 - 3 2 0.37375E-05 0.10000E+01 0.32008E+04 0.17049E-37 0.31924E-44 0.16270E-43 - 3 2 0.37375E-05 0.10000E+01 0.25813E+04 0.11055E-28 0.45639E-35 0.98753E-35 - 3 2 0.37375E-05 0.10000E+01 0.20817E+04 0.18024E-12 0.26605E-18 0.15442E-18 + 3 2 0.37375E-05 0.10000E+01 0.80645E+05 0.57943E-09 0.36502E-20 0.79033E-15 + 3 2 0.37375E-05 0.10000E+01 0.65036E+05 0.74317E-09 0.83921E-20 0.10139E-14 + 3 2 0.37375E-05 0.10000E+01 0.52449E+05 0.93984E-09 0.19022E-19 0.12826E-14 + 3 2 0.37375E-05 0.10000E+01 0.42297E+05 0.11760E-08 0.42365E-19 0.16057E-14 + 3 2 0.37375E-05 0.10000E+01 0.34111E+05 0.14588E-08 0.92421E-19 0.19932E-14 + 3 2 0.37375E-05 0.10000E+01 0.27509E+05 0.17951E-08 0.19676E-18 0.24554E-14 + 3 2 0.37375E-05 0.10000E+01 0.22184E+05 0.21912E-08 0.40739E-18 0.30017E-14 + 3 2 0.37375E-05 0.10000E+01 0.17891E+05 0.26517E-08 0.82398E-18 0.36396E-14 + 3 2 0.37375E-05 0.10000E+01 0.14428E+05 0.31789E-08 0.16816E-17 0.43733E-14 + 3 2 0.37375E-05 0.10000E+01 0.11635E+05 0.37738E-08 0.37588E-17 0.52033E-14 + 3 2 0.37375E-05 0.10000E+01 0.93834E+04 0.44412E-08 0.10155E-16 0.61291E-14 + 3 2 0.37375E-05 0.10000E+01 0.75673E+04 0.52033E-08 0.33395E-16 0.71616E-14 + 3 2 0.37375E-05 0.10000E+01 0.61026E+04 0.61278E-08 0.12236E-15 0.83461E-14 + 3 2 0.37375E-05 0.10000E+01 0.49215E+04 0.73803E-08 0.46107E-15 0.98039E-14 + 3 2 0.37375E-05 0.10000E+01 0.39689E+04 0.93186E-08 0.17253E-14 0.11795E-13 + 3 2 0.37375E-05 0.10000E+01 0.32008E+04 0.12663E-07 0.63696E-14 0.14809E-13 + 3 2 0.37375E-05 0.10000E+01 0.25813E+04 0.18806E-07 0.23280E-13 0.19697E-13 + 3 2 0.37375E-05 0.10000E+01 0.20817E+04 0.30400E-07 0.84448E-13 0.27871E-13 3 2 0.37375E-05 0.10000E+01 0.16788E+04 0.52456E-07 0.30397E-12 0.41631E-13 3 2 0.37375E-05 0.10000E+01 0.13538E+04 0.94376E-07 0.10861E-11 0.64695E-13 3 2 0.37375E-05 0.10000E+01 0.10918E+04 0.17368E-06 0.38623E-11 0.10312E-12 @@ -15260,24 +15260,24 @@ VERSION 2.8.2 3 2 0.37375E-05 0.10000E+01 0.24221E+03 0.12043E-04 0.10657E-07 0.34487E-11 3 2 0.37375E-05 0.10000E+01 0.19533E+03 0.18780E-04 0.20223E-07 0.51812E-11 3 2 0.37375E-05 0.10000E+01 0.15752E+03 0.18780E-04 0.20223E-07 0.51812E-11 - 3 2 0.65217E-05 0.10000E+01 0.80645E+05 0.14952E-51 0.11185E-62 0.20398E-57 - 3 2 0.65217E-05 0.10000E+01 0.65036E+05 0.12647E-50 0.17759E-61 0.17261E-56 - 3 2 0.65217E-05 0.10000E+01 0.52449E+05 0.10745E-49 0.23825E-60 0.14670E-55 - 3 2 0.65217E-05 0.10000E+01 0.42297E+05 0.80737E-49 0.32262E-59 0.11031E-54 - 3 2 0.65217E-05 0.10000E+01 0.34111E+05 0.58076E-48 0.44043E-58 0.79441E-54 - 3 2 0.65217E-05 0.10000E+01 0.27509E+05 0.41506E-47 0.59141E-57 0.56887E-53 - 3 2 0.65217E-05 0.10000E+01 0.22184E+05 0.29341E-46 0.77495E-56 0.40343E-52 - 3 2 0.65217E-05 0.10000E+01 0.17891E+05 0.20332E-45 0.98815E-55 0.28098E-51 - 3 2 0.65217E-05 0.10000E+01 0.14428E+05 0.13744E-44 0.12273E-53 0.19140E-50 - 3 2 0.65217E-05 0.10000E+01 0.11635E+05 0.90526E-44 0.14764E-52 0.12741E-49 - 3 2 0.65217E-05 0.10000E+01 0.93834E+04 0.57836E-43 0.16869E-51 0.82567E-49 - 3 2 0.65217E-05 0.10000E+01 0.75673E+04 0.35380E-42 0.18031E-50 0.51372E-48 - 3 2 0.65217E-05 0.10000E+01 0.61026E+04 0.20542E-41 0.19750E-49 0.30027E-47 - 3 2 0.65217E-05 0.10000E+01 0.49215E+04 0.12034E-40 0.30231E-48 0.16636E-46 - 3 2 0.65217E-05 0.10000E+01 0.39689E+04 0.88561E-40 0.69032E-47 0.10172E-45 - 3 2 0.65217E-05 0.10000E+01 0.32008E+04 0.29750E-37 0.55706E-44 0.28389E-43 - 3 2 0.65217E-05 0.10000E+01 0.25813E+04 0.19290E-28 0.79638E-35 0.17232E-34 - 3 2 0.65217E-05 0.10000E+01 0.20817E+04 0.31450E-12 0.46424E-18 0.26945E-18 + 3 2 0.65217E-05 0.10000E+01 0.80645E+05 0.10111E-08 0.63693E-20 0.13791E-14 + 3 2 0.65217E-05 0.10000E+01 0.65036E+05 0.12968E-08 0.14644E-19 0.17691E-14 + 3 2 0.65217E-05 0.10000E+01 0.52449E+05 0.16400E-08 0.33192E-19 0.22380E-14 + 3 2 0.65217E-05 0.10000E+01 0.42297E+05 0.20521E-08 0.73924E-19 0.28018E-14 + 3 2 0.65217E-05 0.10000E+01 0.34111E+05 0.25455E-08 0.16127E-18 0.34781E-14 + 3 2 0.65217E-05 0.10000E+01 0.27509E+05 0.31324E-08 0.34334E-18 0.42845E-14 + 3 2 0.65217E-05 0.10000E+01 0.22184E+05 0.38236E-08 0.71087E-18 0.52377E-14 + 3 2 0.65217E-05 0.10000E+01 0.17891E+05 0.46271E-08 0.14378E-17 0.63509E-14 + 3 2 0.65217E-05 0.10000E+01 0.14428E+05 0.55470E-08 0.29342E-17 0.76312E-14 + 3 2 0.65217E-05 0.10000E+01 0.11635E+05 0.65851E-08 0.65590E-17 0.90794E-14 + 3 2 0.65217E-05 0.10000E+01 0.93834E+04 0.77497E-08 0.17720E-16 0.10695E-13 + 3 2 0.65217E-05 0.10000E+01 0.75673E+04 0.90795E-08 0.58271E-16 0.12497E-13 + 3 2 0.65217E-05 0.10000E+01 0.61026E+04 0.10693E-07 0.21350E-15 0.14563E-13 + 3 2 0.65217E-05 0.10000E+01 0.49215E+04 0.12878E-07 0.80454E-15 0.17107E-13 + 3 2 0.65217E-05 0.10000E+01 0.39689E+04 0.16260E-07 0.30106E-14 0.20582E-13 + 3 2 0.65217E-05 0.10000E+01 0.32008E+04 0.22095E-07 0.11115E-13 0.25841E-13 + 3 2 0.65217E-05 0.10000E+01 0.25813E+04 0.32815E-07 0.40623E-13 0.34370E-13 + 3 2 0.65217E-05 0.10000E+01 0.20817E+04 0.53046E-07 0.14736E-12 0.48634E-13 3 2 0.65217E-05 0.10000E+01 0.16788E+04 0.91532E-07 0.53042E-12 0.72643E-13 3 2 0.65217E-05 0.10000E+01 0.13538E+04 0.16468E-06 0.18951E-11 0.11289E-12 3 2 0.65217E-05 0.10000E+01 0.10918E+04 0.30307E-06 0.67394E-11 0.17994E-12 @@ -15290,24 +15290,24 @@ VERSION 2.8.2 3 2 0.65217E-05 0.10000E+01 0.24221E+03 0.21015E-04 0.18595E-07 0.60178E-11 3 2 0.65217E-05 0.10000E+01 0.19533E+03 0.32769E-04 0.35288E-07 0.90408E-11 3 2 0.65217E-05 0.10000E+01 0.15752E+03 0.32769E-04 0.35288E-07 0.90408E-11 - 3 2 0.11380E-04 0.10000E+01 0.80645E+05 0.26091E-51 0.19516E-62 0.35593E-57 - 3 2 0.11380E-04 0.10000E+01 0.65036E+05 0.22069E-50 0.30988E-61 0.30119E-56 - 3 2 0.11380E-04 0.10000E+01 0.52449E+05 0.18749E-49 0.41574E-60 0.25598E-55 - 3 2 0.11380E-04 0.10000E+01 0.42297E+05 0.14088E-48 0.56296E-59 0.19248E-54 - 3 2 0.11380E-04 0.10000E+01 0.34111E+05 0.10134E-47 0.76852E-58 0.13862E-53 - 3 2 0.11380E-04 0.10000E+01 0.27509E+05 0.72425E-47 0.10320E-56 0.99265E-53 - 3 2 0.11380E-04 0.10000E+01 0.22184E+05 0.51199E-46 0.13522E-55 0.70397E-52 - 3 2 0.11380E-04 0.10000E+01 0.17891E+05 0.35477E-45 0.17243E-54 0.49029E-51 - 3 2 0.11380E-04 0.10000E+01 0.14428E+05 0.23983E-44 0.21415E-53 0.33397E-50 - 3 2 0.11380E-04 0.10000E+01 0.11635E+05 0.15796E-43 0.25763E-52 0.22232E-49 - 3 2 0.11380E-04 0.10000E+01 0.93834E+04 0.10092E-42 0.29435E-51 0.14408E-48 - 3 2 0.11380E-04 0.10000E+01 0.75673E+04 0.61735E-42 0.31463E-50 0.89641E-48 - 3 2 0.11380E-04 0.10000E+01 0.61026E+04 0.35844E-41 0.34462E-49 0.52396E-47 - 3 2 0.11380E-04 0.10000E+01 0.49215E+04 0.20998E-40 0.52752E-48 0.29030E-46 - 3 2 0.11380E-04 0.10000E+01 0.39689E+04 0.15453E-39 0.12046E-46 0.17749E-45 - 3 2 0.11380E-04 0.10000E+01 0.32008E+04 0.51912E-37 0.97203E-44 0.49538E-43 - 3 2 0.11380E-04 0.10000E+01 0.25813E+04 0.33659E-28 0.13896E-34 0.30069E-34 - 3 2 0.11380E-04 0.10000E+01 0.20817E+04 0.54879E-12 0.81006E-18 0.47017E-18 + 3 2 0.11380E-04 0.10000E+01 0.80645E+05 0.17643E-08 0.11114E-19 0.24064E-14 + 3 2 0.11380E-04 0.10000E+01 0.65036E+05 0.22628E-08 0.25553E-19 0.30870E-14 + 3 2 0.11380E-04 0.10000E+01 0.52449E+05 0.28617E-08 0.57919E-19 0.39052E-14 + 3 2 0.11380E-04 0.10000E+01 0.42297E+05 0.35808E-08 0.12899E-18 0.48891E-14 + 3 2 0.11380E-04 0.10000E+01 0.34111E+05 0.44418E-08 0.28141E-18 0.60691E-14 + 3 2 0.11380E-04 0.10000E+01 0.27509E+05 0.54659E-08 0.59911E-18 0.74762E-14 + 3 2 0.11380E-04 0.10000E+01 0.22184E+05 0.66719E-08 0.12404E-17 0.91395E-14 + 3 2 0.11380E-04 0.10000E+01 0.17891E+05 0.80740E-08 0.25089E-17 0.11082E-13 + 3 2 0.11380E-04 0.10000E+01 0.14428E+05 0.96792E-08 0.51200E-17 0.13316E-13 + 3 2 0.11380E-04 0.10000E+01 0.11635E+05 0.11491E-07 0.11445E-16 0.15843E-13 + 3 2 0.11380E-04 0.10000E+01 0.93834E+04 0.13523E-07 0.30921E-16 0.18662E-13 + 3 2 0.11380E-04 0.10000E+01 0.75673E+04 0.15843E-07 0.10168E-15 0.21806E-13 + 3 2 0.11380E-04 0.10000E+01 0.61026E+04 0.18658E-07 0.37255E-15 0.25412E-13 + 3 2 0.11380E-04 0.10000E+01 0.49215E+04 0.22472E-07 0.14039E-14 0.29851E-13 + 3 2 0.11380E-04 0.10000E+01 0.39689E+04 0.28373E-07 0.52533E-14 0.35914E-13 + 3 2 0.11380E-04 0.10000E+01 0.32008E+04 0.38555E-07 0.19394E-13 0.45091E-13 + 3 2 0.11380E-04 0.10000E+01 0.25813E+04 0.57260E-07 0.70884E-13 0.59974E-13 + 3 2 0.11380E-04 0.10000E+01 0.20817E+04 0.92562E-07 0.25713E-12 0.84863E-13 3 2 0.11380E-04 0.10000E+01 0.16788E+04 0.15972E-06 0.92555E-12 0.12676E-12 3 2 0.11380E-04 0.10000E+01 0.13538E+04 0.28736E-06 0.33069E-11 0.19698E-12 3 2 0.11380E-04 0.10000E+01 0.10918E+04 0.52884E-06 0.11760E-10 0.31399E-12 @@ -15320,24 +15320,24 @@ VERSION 2.8.2 3 2 0.11380E-04 0.10000E+01 0.24221E+03 0.36670E-04 0.32448E-07 0.10501E-10 3 2 0.11380E-04 0.10000E+01 0.19533E+03 0.57180E-04 0.61575E-07 0.15776E-10 3 2 0.11380E-04 0.10000E+01 0.15752E+03 0.57180E-04 0.61575E-07 0.15776E-10 - 3 2 0.19857E-04 0.10000E+01 0.80645E+05 0.45526E-51 0.34055E-62 0.62108E-57 - 3 2 0.19857E-04 0.10000E+01 0.65036E+05 0.38508E-50 0.54073E-61 0.52556E-56 - 3 2 0.19857E-04 0.10000E+01 0.52449E+05 0.32716E-49 0.72543E-60 0.44667E-55 - 3 2 0.19857E-04 0.10000E+01 0.42297E+05 0.24583E-48 0.98233E-59 0.33586E-54 - 3 2 0.19857E-04 0.10000E+01 0.34111E+05 0.17683E-47 0.13410E-57 0.24188E-53 - 3 2 0.19857E-04 0.10000E+01 0.27509E+05 0.12638E-46 0.18007E-56 0.17321E-52 - 3 2 0.19857E-04 0.10000E+01 0.22184E+05 0.89339E-46 0.23596E-55 0.12284E-51 - 3 2 0.19857E-04 0.10000E+01 0.17891E+05 0.61906E-45 0.30087E-54 0.85552E-51 - 3 2 0.19857E-04 0.10000E+01 0.14428E+05 0.41849E-44 0.37368E-53 0.58277E-50 - 3 2 0.19857E-04 0.10000E+01 0.11635E+05 0.27564E-43 0.44955E-52 0.38794E-49 - 3 2 0.19857E-04 0.10000E+01 0.93834E+04 0.17610E-42 0.51362E-51 0.25140E-48 - 3 2 0.19857E-04 0.10000E+01 0.75673E+04 0.10772E-41 0.54901E-50 0.15642E-47 - 3 2 0.19857E-04 0.10000E+01 0.61026E+04 0.62546E-41 0.60135E-49 0.91427E-47 - 3 2 0.19857E-04 0.10000E+01 0.49215E+04 0.36640E-40 0.92048E-48 0.50655E-46 - 3 2 0.19857E-04 0.10000E+01 0.39689E+04 0.26965E-39 0.21019E-46 0.30971E-45 - 3 2 0.19857E-04 0.10000E+01 0.32008E+04 0.90583E-37 0.16961E-43 0.86440E-43 - 3 2 0.19857E-04 0.10000E+01 0.25813E+04 0.58733E-28 0.24248E-34 0.52468E-34 - 3 2 0.19857E-04 0.10000E+01 0.20817E+04 0.95760E-12 0.14135E-17 0.82043E-18 + 3 2 0.19857E-04 0.10000E+01 0.80645E+05 0.30785E-08 0.19393E-19 0.41990E-14 + 3 2 0.19857E-04 0.10000E+01 0.65036E+05 0.39485E-08 0.44588E-19 0.53866E-14 + 3 2 0.19857E-04 0.10000E+01 0.52449E+05 0.49934E-08 0.10106E-18 0.68144E-14 + 3 2 0.19857E-04 0.10000E+01 0.42297E+05 0.62483E-08 0.22508E-18 0.85311E-14 + 3 2 0.19857E-04 0.10000E+01 0.34111E+05 0.77507E-08 0.49104E-18 0.10590E-13 + 3 2 0.19857E-04 0.10000E+01 0.27509E+05 0.95376E-08 0.10454E-17 0.13046E-13 + 3 2 0.19857E-04 0.10000E+01 0.22184E+05 0.11642E-07 0.21645E-17 0.15948E-13 + 3 2 0.19857E-04 0.10000E+01 0.17891E+05 0.14089E-07 0.43778E-17 0.19337E-13 + 3 2 0.19857E-04 0.10000E+01 0.14428E+05 0.16890E-07 0.89341E-17 0.23236E-13 + 3 2 0.19857E-04 0.10000E+01 0.11635E+05 0.20050E-07 0.19971E-16 0.27645E-13 + 3 2 0.19857E-04 0.10000E+01 0.93834E+04 0.23596E-07 0.53955E-16 0.32564E-13 + 3 2 0.19857E-04 0.10000E+01 0.75673E+04 0.27645E-07 0.17743E-15 0.38050E-13 + 3 2 0.19857E-04 0.10000E+01 0.61026E+04 0.32557E-07 0.65008E-15 0.44343E-13 + 3 2 0.19857E-04 0.10000E+01 0.49215E+04 0.39212E-07 0.24497E-14 0.52088E-13 + 3 2 0.19857E-04 0.10000E+01 0.39689E+04 0.49510E-07 0.91666E-14 0.62667E-13 + 3 2 0.19857E-04 0.10000E+01 0.32008E+04 0.67276E-07 0.33842E-13 0.78681E-13 + 3 2 0.19857E-04 0.10000E+01 0.25813E+04 0.99914E-07 0.12369E-12 0.10465E-12 + 3 2 0.19857E-04 0.10000E+01 0.20817E+04 0.16152E-06 0.44867E-12 0.14808E-12 3 2 0.19857E-04 0.10000E+01 0.16788E+04 0.27870E-06 0.16150E-11 0.22118E-12 3 2 0.19857E-04 0.10000E+01 0.13538E+04 0.50142E-06 0.57703E-11 0.34373E-12 3 2 0.19857E-04 0.10000E+01 0.10918E+04 0.92279E-06 0.20520E-10 0.54790E-12 @@ -15350,24 +15350,24 @@ VERSION 2.8.2 3 2 0.19857E-04 0.10000E+01 0.24221E+03 0.63987E-04 0.56619E-07 0.18323E-10 3 2 0.19857E-04 0.10000E+01 0.19533E+03 0.99776E-04 0.10744E-06 0.27528E-10 3 2 0.19857E-04 0.10000E+01 0.15752E+03 0.99776E-04 0.10744E-06 0.27528E-10 - 3 2 0.34650E-04 0.10000E+01 0.80645E+05 0.79441E-51 0.59424E-62 0.10838E-56 - 3 2 0.34650E-04 0.10000E+01 0.65036E+05 0.67195E-50 0.94353E-61 0.91708E-56 - 3 2 0.34650E-04 0.10000E+01 0.52449E+05 0.57087E-49 0.12658E-59 0.77942E-55 - 3 2 0.34650E-04 0.10000E+01 0.42297E+05 0.42896E-48 0.17141E-58 0.58606E-54 - 3 2 0.34650E-04 0.10000E+01 0.34111E+05 0.30856E-47 0.23400E-57 0.42207E-53 - 3 2 0.34650E-04 0.10000E+01 0.27509E+05 0.22052E-46 0.31422E-56 0.30224E-52 - 3 2 0.34650E-04 0.10000E+01 0.22184E+05 0.15589E-45 0.41173E-55 0.21435E-51 - 3 2 0.34650E-04 0.10000E+01 0.17891E+05 0.10802E-44 0.52500E-54 0.14928E-50 - 3 2 0.34650E-04 0.10000E+01 0.14428E+05 0.73025E-44 0.65205E-53 0.10169E-49 - 3 2 0.34650E-04 0.10000E+01 0.11635E+05 0.48097E-43 0.78443E-52 0.67693E-49 - 3 2 0.34650E-04 0.10000E+01 0.93834E+04 0.30728E-42 0.89624E-51 0.43868E-48 - 3 2 0.34650E-04 0.10000E+01 0.75673E+04 0.18797E-41 0.95799E-50 0.27294E-47 - 3 2 0.34650E-04 0.10000E+01 0.61026E+04 0.10914E-40 0.10493E-48 0.15954E-46 - 3 2 0.34650E-04 0.10000E+01 0.49215E+04 0.63935E-40 0.16062E-47 0.88390E-46 - 3 2 0.34650E-04 0.10000E+01 0.39689E+04 0.47053E-39 0.36677E-46 0.54042E-45 - 3 2 0.34650E-04 0.10000E+01 0.32008E+04 0.15806E-36 0.29597E-43 0.15083E-42 - 3 2 0.34650E-04 0.10000E+01 0.25813E+04 0.10249E-27 0.42312E-34 0.91553E-34 - 3 2 0.34650E-04 0.10000E+01 0.20817E+04 0.16710E-11 0.24665E-17 0.14316E-17 + 3 2 0.34650E-04 0.10000E+01 0.80645E+05 0.53719E-08 0.33840E-19 0.73270E-14 + 3 2 0.34650E-04 0.10000E+01 0.65036E+05 0.68898E-08 0.77803E-19 0.93993E-14 + 3 2 0.34650E-04 0.10000E+01 0.52449E+05 0.87132E-08 0.17635E-18 0.11891E-13 + 3 2 0.34650E-04 0.10000E+01 0.42297E+05 0.10903E-07 0.39276E-18 0.14886E-13 + 3 2 0.34650E-04 0.10000E+01 0.34111E+05 0.13525E-07 0.85683E-18 0.18479E-13 + 3 2 0.34650E-04 0.10000E+01 0.27509E+05 0.16643E-07 0.18242E-17 0.22764E-13 + 3 2 0.34650E-04 0.10000E+01 0.22184E+05 0.20315E-07 0.37768E-17 0.27828E-13 + 3 2 0.34650E-04 0.10000E+01 0.17891E+05 0.24584E-07 0.76390E-17 0.33742E-13 + 3 2 0.34650E-04 0.10000E+01 0.14428E+05 0.29471E-07 0.15590E-16 0.40545E-13 + 3 2 0.34650E-04 0.10000E+01 0.11635E+05 0.34987E-07 0.34848E-16 0.48239E-13 + 3 2 0.34650E-04 0.10000E+01 0.93834E+04 0.41174E-07 0.94148E-16 0.56823E-13 + 3 2 0.34650E-04 0.10000E+01 0.75673E+04 0.48240E-07 0.30960E-15 0.66394E-13 + 3 2 0.34650E-04 0.10000E+01 0.61026E+04 0.56810E-07 0.11344E-14 0.77375E-13 + 3 2 0.34650E-04 0.10000E+01 0.49215E+04 0.68422E-07 0.42745E-14 0.90891E-13 + 3 2 0.34650E-04 0.10000E+01 0.39689E+04 0.86392E-07 0.15995E-13 0.10935E-12 + 3 2 0.34650E-04 0.10000E+01 0.32008E+04 0.11739E-06 0.59052E-13 0.13729E-12 + 3 2 0.34650E-04 0.10000E+01 0.25813E+04 0.17434E-06 0.21583E-12 0.18261E-12 + 3 2 0.34650E-04 0.10000E+01 0.20817E+04 0.28183E-06 0.78291E-12 0.25839E-12 3 2 0.34650E-04 0.10000E+01 0.16788E+04 0.48631E-06 0.28181E-11 0.38595E-12 3 2 0.34650E-04 0.10000E+01 0.13538E+04 0.87495E-06 0.10069E-10 0.59978E-12 3 2 0.34650E-04 0.10000E+01 0.10918E+04 0.16102E-05 0.35807E-10 0.95605E-12 @@ -15380,24 +15380,24 @@ VERSION 2.8.2 3 2 0.34650E-04 0.10000E+01 0.24221E+03 0.11165E-03 0.98797E-07 0.31973E-10 3 2 0.34650E-04 0.10000E+01 0.19533E+03 0.17410E-03 0.18748E-06 0.48034E-10 3 2 0.34650E-04 0.10000E+01 0.15752E+03 0.17410E-03 0.18748E-06 0.48034E-10 - 3 2 0.60462E-04 0.10000E+01 0.80645E+05 0.13862E-50 0.10369E-61 0.18911E-56 - 3 2 0.60462E-04 0.10000E+01 0.65036E+05 0.11725E-49 0.16464E-60 0.16002E-55 - 3 2 0.60462E-04 0.10000E+01 0.52449E+05 0.99613E-49 0.22088E-59 0.13600E-54 - 3 2 0.60462E-04 0.10000E+01 0.42297E+05 0.74850E-48 0.29910E-58 0.10226E-53 - 3 2 0.60462E-04 0.10000E+01 0.34111E+05 0.53841E-47 0.40832E-57 0.73649E-53 - 3 2 0.60462E-04 0.10000E+01 0.27509E+05 0.38480E-46 0.54829E-56 0.52739E-52 - 3 2 0.60462E-04 0.10000E+01 0.22184E+05 0.27202E-45 0.71844E-55 0.37402E-51 - 3 2 0.60462E-04 0.10000E+01 0.17891E+05 0.18849E-44 0.91610E-54 0.26049E-50 - 3 2 0.60462E-04 0.10000E+01 0.14428E+05 0.12742E-43 0.11378E-52 0.17744E-49 - 3 2 0.60462E-04 0.10000E+01 0.11635E+05 0.83926E-43 0.13688E-51 0.11812E-48 - 3 2 0.60462E-04 0.10000E+01 0.93834E+04 0.53619E-42 0.15639E-50 0.76547E-48 - 3 2 0.60462E-04 0.10000E+01 0.75673E+04 0.32800E-41 0.16716E-49 0.47627E-47 - 3 2 0.60462E-04 0.10000E+01 0.61026E+04 0.19044E-40 0.18310E-48 0.27838E-46 - 3 2 0.60462E-04 0.10000E+01 0.49215E+04 0.11156E-39 0.28027E-47 0.15424E-45 - 3 2 0.60462E-04 0.10000E+01 0.39689E+04 0.82104E-39 0.63999E-46 0.94300E-45 - 3 2 0.60462E-04 0.10000E+01 0.32008E+04 0.27581E-36 0.51644E-43 0.26320E-42 - 3 2 0.60462E-04 0.10000E+01 0.25813E+04 0.17883E-27 0.73832E-34 0.15975E-33 - 3 2 0.60462E-04 0.10000E+01 0.20817E+04 0.29157E-11 0.43039E-17 0.24980E-17 + 3 2 0.60462E-04 0.10000E+01 0.80645E+05 0.93736E-08 0.59049E-19 0.12785E-13 + 3 2 0.60462E-04 0.10000E+01 0.65036E+05 0.12022E-07 0.13576E-18 0.16401E-13 + 3 2 0.60462E-04 0.10000E+01 0.52449E+05 0.15204E-07 0.30772E-18 0.20748E-13 + 3 2 0.60462E-04 0.10000E+01 0.42297E+05 0.19025E-07 0.68534E-18 0.25976E-13 + 3 2 0.60462E-04 0.10000E+01 0.34111E+05 0.23599E-07 0.14951E-17 0.32245E-13 + 3 2 0.60462E-04 0.10000E+01 0.27509E+05 0.29040E-07 0.31831E-17 0.39721E-13 + 3 2 0.60462E-04 0.10000E+01 0.22184E+05 0.35448E-07 0.65904E-17 0.48558E-13 + 3 2 0.60462E-04 0.10000E+01 0.17891E+05 0.42897E-07 0.13330E-16 0.58878E-13 + 3 2 0.60462E-04 0.10000E+01 0.14428E+05 0.51426E-07 0.27203E-16 0.70748E-13 + 3 2 0.60462E-04 0.10000E+01 0.11635E+05 0.61050E-07 0.60807E-16 0.84174E-13 + 3 2 0.60462E-04 0.10000E+01 0.93834E+04 0.71847E-07 0.16428E-15 0.99152E-13 + 3 2 0.60462E-04 0.10000E+01 0.75673E+04 0.84175E-07 0.54023E-15 0.11585E-12 + 3 2 0.60462E-04 0.10000E+01 0.61026E+04 0.99131E-07 0.19794E-14 0.13502E-12 + 3 2 0.60462E-04 0.10000E+01 0.49215E+04 0.11939E-06 0.74588E-14 0.15860E-12 + 3 2 0.60462E-04 0.10000E+01 0.39689E+04 0.15075E-06 0.27911E-13 0.19081E-12 + 3 2 0.60462E-04 0.10000E+01 0.32008E+04 0.20484E-06 0.10304E-12 0.23957E-12 + 3 2 0.60462E-04 0.10000E+01 0.25813E+04 0.30422E-06 0.37661E-12 0.31864E-12 + 3 2 0.60462E-04 0.10000E+01 0.20817E+04 0.49178E-06 0.13661E-11 0.45088E-12 3 2 0.60462E-04 0.10000E+01 0.16788E+04 0.84859E-06 0.49174E-11 0.67346E-12 3 2 0.60462E-04 0.10000E+01 0.13538E+04 0.15267E-05 0.17570E-10 0.10466E-11 3 2 0.60462E-04 0.10000E+01 0.10918E+04 0.28097E-05 0.62481E-10 0.16682E-11 @@ -15410,24 +15410,24 @@ VERSION 2.8.2 3 2 0.60462E-04 0.10000E+01 0.24221E+03 0.19483E-03 0.17239E-06 0.55790E-10 3 2 0.60462E-04 0.10000E+01 0.19533E+03 0.30380E-03 0.32715E-06 0.83817E-10 3 2 0.60462E-04 0.10000E+01 0.15752E+03 0.30380E-03 0.32715E-06 0.83817E-10 - 3 2 0.10550E-03 0.10000E+01 0.80645E+05 0.24188E-50 0.18093E-61 0.32998E-56 - 3 2 0.10550E-03 0.10000E+01 0.65036E+05 0.20460E-49 0.28729E-60 0.27923E-55 - 3 2 0.10550E-03 0.10000E+01 0.52449E+05 0.17382E-48 0.38542E-59 0.23732E-54 - 3 2 0.10550E-03 0.10000E+01 0.42297E+05 0.13061E-47 0.52191E-58 0.17844E-53 - 3 2 0.10550E-03 0.10000E+01 0.34111E+05 0.93950E-47 0.71249E-57 0.12851E-52 - 3 2 0.10550E-03 0.10000E+01 0.27509E+05 0.67145E-46 0.95673E-56 0.92027E-52 - 3 2 0.10550E-03 0.10000E+01 0.22184E+05 0.47466E-45 0.12536E-54 0.65264E-51 - 3 2 0.10550E-03 0.10000E+01 0.17891E+05 0.32891E-44 0.15985E-53 0.45454E-50 - 3 2 0.10550E-03 0.10000E+01 0.14428E+05 0.22235E-43 0.19854E-52 0.30962E-49 - 3 2 0.10550E-03 0.10000E+01 0.11635E+05 0.14645E-42 0.23885E-51 0.20611E-48 - 3 2 0.10550E-03 0.10000E+01 0.93834E+04 0.93562E-42 0.27289E-50 0.13357E-47 - 3 2 0.10550E-03 0.10000E+01 0.75673E+04 0.57234E-41 0.29169E-49 0.83105E-47 - 3 2 0.10550E-03 0.10000E+01 0.61026E+04 0.33231E-40 0.31950E-48 0.48576E-46 - 3 2 0.10550E-03 0.10000E+01 0.49215E+04 0.19467E-39 0.48905E-47 0.26913E-45 - 3 2 0.10550E-03 0.10000E+01 0.39689E+04 0.14327E-38 0.11167E-45 0.16455E-44 - 3 2 0.10550E-03 0.10000E+01 0.32008E+04 0.48127E-36 0.90116E-43 0.45926E-42 - 3 2 0.10550E-03 0.10000E+01 0.25813E+04 0.31205E-27 0.12883E-33 0.27876E-33 - 3 2 0.10550E-03 0.10000E+01 0.20817E+04 0.50878E-11 0.75100E-17 0.43589E-17 + 3 2 0.10550E-03 0.10000E+01 0.80645E+05 0.16356E-07 0.10304E-18 0.22309E-13 + 3 2 0.10550E-03 0.10000E+01 0.65036E+05 0.20978E-07 0.23689E-18 0.28619E-13 + 3 2 0.10550E-03 0.10000E+01 0.52449E+05 0.26530E-07 0.53696E-18 0.36205E-13 + 3 2 0.10550E-03 0.10000E+01 0.42297E+05 0.33198E-07 0.11959E-17 0.45326E-13 + 3 2 0.10550E-03 0.10000E+01 0.34111E+05 0.41180E-07 0.26089E-17 0.56266E-13 + 3 2 0.10550E-03 0.10000E+01 0.27509E+05 0.50673E-07 0.55543E-17 0.69311E-13 + 3 2 0.10550E-03 0.10000E+01 0.22184E+05 0.61855E-07 0.11500E-16 0.84732E-13 + 3 2 0.10550E-03 0.10000E+01 0.17891E+05 0.74853E-07 0.23259E-16 0.10274E-12 + 3 2 0.10550E-03 0.10000E+01 0.14428E+05 0.89734E-07 0.47467E-16 0.12345E-12 + 3 2 0.10550E-03 0.10000E+01 0.11635E+05 0.10653E-06 0.10611E-15 0.14688E-12 + 3 2 0.10550E-03 0.10000E+01 0.93834E+04 0.12537E-06 0.28666E-15 0.17301E-12 + 3 2 0.10550E-03 0.10000E+01 0.75673E+04 0.14688E-06 0.94266E-15 0.20216E-12 + 3 2 0.10550E-03 0.10000E+01 0.61026E+04 0.17298E-06 0.34539E-14 0.23559E-12 + 3 2 0.10550E-03 0.10000E+01 0.49215E+04 0.20833E-06 0.13015E-13 0.27675E-12 + 3 2 0.10550E-03 0.10000E+01 0.39689E+04 0.26305E-06 0.48702E-13 0.33295E-12 + 3 2 0.10550E-03 0.10000E+01 0.32008E+04 0.35744E-06 0.17980E-12 0.41804E-12 + 3 2 0.10550E-03 0.10000E+01 0.25813E+04 0.53085E-06 0.65716E-12 0.55601E-12 + 3 2 0.10550E-03 0.10000E+01 0.20817E+04 0.85813E-06 0.23838E-11 0.78676E-12 3 2 0.10550E-03 0.10000E+01 0.16788E+04 0.14807E-05 0.85806E-11 0.11752E-11 3 2 0.10550E-03 0.10000E+01 0.13538E+04 0.26641E-05 0.30658E-10 0.18262E-11 3 2 0.10550E-03 0.10000E+01 0.10918E+04 0.49028E-05 0.10902E-09 0.29110E-11 @@ -15440,24 +15440,24 @@ VERSION 2.8.2 3 2 0.10550E-03 0.10000E+01 0.24221E+03 0.33996E-03 0.30082E-06 0.97350E-10 3 2 0.10550E-03 0.10000E+01 0.19533E+03 0.53011E-03 0.57085E-06 0.14625E-09 3 2 0.10550E-03 0.10000E+01 0.15752E+03 0.53011E-03 0.57085E-06 0.14625E-09 - 3 2 0.18409E-03 0.10000E+01 0.80645E+05 0.42207E-50 0.31572E-61 0.57580E-56 - 3 2 0.18409E-03 0.10000E+01 0.65036E+05 0.35701E-49 0.50130E-60 0.48725E-55 - 3 2 0.18409E-03 0.10000E+01 0.52449E+05 0.30330E-48 0.67254E-59 0.41411E-54 - 3 2 0.18409E-03 0.10000E+01 0.42297E+05 0.22791E-47 0.91071E-58 0.31137E-53 - 3 2 0.18409E-03 0.10000E+01 0.34111E+05 0.16394E-46 0.12432E-56 0.22425E-52 - 3 2 0.18409E-03 0.10000E+01 0.27509E+05 0.11716E-45 0.16694E-55 0.16058E-51 - 3 2 0.18409E-03 0.10000E+01 0.22184E+05 0.82825E-45 0.21875E-54 0.11388E-50 - 3 2 0.18409E-03 0.10000E+01 0.17891E+05 0.57392E-44 0.27894E-53 0.79314E-50 - 3 2 0.18409E-03 0.10000E+01 0.14428E+05 0.38798E-43 0.34644E-52 0.54028E-49 - 3 2 0.18409E-03 0.10000E+01 0.11635E+05 0.25554E-42 0.41677E-51 0.35965E-48 - 3 2 0.18409E-03 0.10000E+01 0.93834E+04 0.16326E-41 0.47617E-50 0.23307E-47 - 3 2 0.18409E-03 0.10000E+01 0.75673E+04 0.99870E-41 0.50898E-49 0.14501E-46 - 3 2 0.18409E-03 0.10000E+01 0.61026E+04 0.57986E-40 0.55750E-48 0.84761E-46 - 3 2 0.18409E-03 0.10000E+01 0.49215E+04 0.33969E-39 0.85337E-47 0.46962E-45 - 3 2 0.18409E-03 0.10000E+01 0.39689E+04 0.24999E-38 0.19486E-45 0.28712E-44 - 3 2 0.18409E-03 0.10000E+01 0.32008E+04 0.83979E-36 0.15725E-42 0.80138E-42 - 3 2 0.18409E-03 0.10000E+01 0.25813E+04 0.54451E-27 0.22480E-33 0.48642E-33 - 3 2 0.18409E-03 0.10000E+01 0.20817E+04 0.88778E-11 0.13105E-16 0.76061E-17 + 3 2 0.18409E-03 0.10000E+01 0.80645E+05 0.28541E-07 0.17979E-18 0.38929E-13 + 3 2 0.18409E-03 0.10000E+01 0.65036E+05 0.36606E-07 0.41337E-18 0.49939E-13 + 3 2 0.18409E-03 0.10000E+01 0.52449E+05 0.46293E-07 0.93696E-18 0.63175E-13 + 3 2 0.18409E-03 0.10000E+01 0.42297E+05 0.57928E-07 0.20867E-17 0.79091E-13 + 3 2 0.18409E-03 0.10000E+01 0.34111E+05 0.71856E-07 0.45523E-17 0.98180E-13 + 3 2 0.18409E-03 0.10000E+01 0.27509E+05 0.88422E-07 0.96919E-17 0.12094E-12 + 3 2 0.18409E-03 0.10000E+01 0.22184E+05 0.10793E-06 0.20066E-16 0.14785E-12 + 3 2 0.18409E-03 0.10000E+01 0.17891E+05 0.13061E-06 0.40586E-16 0.17927E-12 + 3 2 0.18409E-03 0.10000E+01 0.14428E+05 0.15658E-06 0.82827E-16 0.21541E-12 + 3 2 0.18409E-03 0.10000E+01 0.11635E+05 0.18588E-06 0.18515E-15 0.25629E-12 + 3 2 0.18409E-03 0.10000E+01 0.93834E+04 0.21876E-06 0.50021E-15 0.30190E-12 + 3 2 0.18409E-03 0.10000E+01 0.75673E+04 0.25630E-06 0.16449E-14 0.35275E-12 + 3 2 0.18409E-03 0.10000E+01 0.61026E+04 0.30183E-06 0.60268E-14 0.41110E-12 + 3 2 0.18409E-03 0.10000E+01 0.49215E+04 0.36353E-06 0.22711E-13 0.48290E-12 + 3 2 0.18409E-03 0.10000E+01 0.39689E+04 0.45900E-06 0.84983E-13 0.58098E-12 + 3 2 0.18409E-03 0.10000E+01 0.32008E+04 0.62371E-06 0.31374E-12 0.72945E-12 + 3 2 0.18409E-03 0.10000E+01 0.25813E+04 0.92630E-06 0.11467E-11 0.97020E-12 + 3 2 0.18409E-03 0.10000E+01 0.20817E+04 0.14974E-05 0.41596E-11 0.13728E-11 3 2 0.18409E-03 0.10000E+01 0.16788E+04 0.25838E-05 0.14973E-10 0.20506E-11 3 2 0.18409E-03 0.10000E+01 0.13538E+04 0.46486E-05 0.53496E-10 0.31867E-11 3 2 0.18409E-03 0.10000E+01 0.10918E+04 0.85551E-05 0.19024E-09 0.50795E-11 @@ -15470,24 +15470,24 @@ VERSION 2.8.2 3 2 0.18409E-03 0.10000E+01 0.24221E+03 0.59322E-03 0.52491E-06 0.16987E-09 3 2 0.18409E-03 0.10000E+01 0.19533E+03 0.92501E-03 0.99611E-06 0.25521E-09 3 2 0.18409E-03 0.10000E+01 0.15752E+03 0.92501E-03 0.99611E-06 0.25521E-09 - 3 2 0.32123E-03 0.10000E+01 0.80645E+05 0.73649E-50 0.55091E-61 0.10047E-55 - 3 2 0.32123E-03 0.10000E+01 0.65036E+05 0.62296E-49 0.87474E-60 0.85021E-55 - 3 2 0.32123E-03 0.10000E+01 0.52449E+05 0.52925E-48 0.11735E-58 0.72259E-54 - 3 2 0.32123E-03 0.10000E+01 0.42297E+05 0.39768E-47 0.15891E-57 0.54333E-53 - 3 2 0.32123E-03 0.10000E+01 0.34111E+05 0.28606E-46 0.21694E-56 0.39130E-52 - 3 2 0.32123E-03 0.10000E+01 0.27509E+05 0.20444E-45 0.29131E-55 0.28021E-51 - 3 2 0.32123E-03 0.10000E+01 0.22184E+05 0.14453E-44 0.38171E-54 0.19872E-50 - 3 2 0.32123E-03 0.10000E+01 0.17891E+05 0.10015E-43 0.48673E-53 0.13840E-49 - 3 2 0.32123E-03 0.10000E+01 0.14428E+05 0.67700E-43 0.60451E-52 0.94275E-49 - 3 2 0.32123E-03 0.10000E+01 0.11635E+05 0.44590E-42 0.72724E-51 0.62757E-48 - 3 2 0.32123E-03 0.10000E+01 0.93834E+04 0.28488E-41 0.83089E-50 0.40670E-47 - 3 2 0.32123E-03 0.10000E+01 0.75673E+04 0.17427E-40 0.88814E-49 0.25304E-46 - 3 2 0.32123E-03 0.10000E+01 0.61026E+04 0.10118E-39 0.97281E-48 0.14790E-45 - 3 2 0.32123E-03 0.10000E+01 0.49215E+04 0.59274E-39 0.14891E-46 0.81945E-45 - 3 2 0.32123E-03 0.10000E+01 0.39689E+04 0.43622E-38 0.34003E-45 0.50101E-44 - 3 2 0.32123E-03 0.10000E+01 0.32008E+04 0.14654E-35 0.27439E-42 0.13984E-41 - 3 2 0.32123E-03 0.10000E+01 0.25813E+04 0.95014E-27 0.39227E-33 0.84878E-33 - 3 2 0.32123E-03 0.10000E+01 0.20817E+04 0.15491E-10 0.22867E-16 0.13272E-16 + 3 2 0.32123E-03 0.10000E+01 0.80645E+05 0.49802E-07 0.31373E-18 0.67928E-13 + 3 2 0.32123E-03 0.10000E+01 0.65036E+05 0.63875E-07 0.72130E-18 0.87140E-13 + 3 2 0.32123E-03 0.10000E+01 0.52449E+05 0.80779E-07 0.16349E-17 0.11024E-12 + 3 2 0.32123E-03 0.10000E+01 0.42297E+05 0.10108E-06 0.36412E-17 0.13801E-12 + 3 2 0.32123E-03 0.10000E+01 0.34111E+05 0.12538E-06 0.79436E-17 0.17132E-12 + 3 2 0.32123E-03 0.10000E+01 0.27509E+05 0.15429E-06 0.16912E-16 0.21104E-12 + 3 2 0.32123E-03 0.10000E+01 0.22184E+05 0.18834E-06 0.35015E-16 0.25799E-12 + 3 2 0.32123E-03 0.10000E+01 0.17891E+05 0.22791E-06 0.70820E-16 0.31282E-12 + 3 2 0.32123E-03 0.10000E+01 0.14428E+05 0.27322E-06 0.14453E-15 0.37589E-12 + 3 2 0.32123E-03 0.10000E+01 0.11635E+05 0.32436E-06 0.32307E-15 0.44722E-12 + 3 2 0.32123E-03 0.10000E+01 0.93834E+04 0.38172E-06 0.87283E-15 0.52680E-12 + 3 2 0.32123E-03 0.10000E+01 0.75673E+04 0.44722E-06 0.28702E-14 0.61554E-12 + 3 2 0.32123E-03 0.10000E+01 0.61026E+04 0.52668E-06 0.10516E-13 0.71734E-12 + 3 2 0.32123E-03 0.10000E+01 0.49215E+04 0.63433E-06 0.39629E-13 0.84264E-12 + 3 2 0.32123E-03 0.10000E+01 0.39689E+04 0.80093E-06 0.14829E-12 0.10138E-11 + 3 2 0.32123E-03 0.10000E+01 0.32008E+04 0.10883E-05 0.54747E-12 0.12728E-11 + 3 2 0.32123E-03 0.10000E+01 0.25813E+04 0.16163E-05 0.20009E-11 0.16929E-11 + 3 2 0.32123E-03 0.10000E+01 0.20817E+04 0.26129E-05 0.72583E-11 0.23955E-11 3 2 0.32123E-03 0.10000E+01 0.16788E+04 0.45086E-05 0.26126E-10 0.35781E-11 3 2 0.32123E-03 0.10000E+01 0.13538E+04 0.81116E-05 0.93348E-10 0.55605E-11 3 2 0.32123E-03 0.10000E+01 0.10918E+04 0.14928E-04 0.33196E-09 0.88634E-11 @@ -15550,24 +15550,24 @@ VERSION 2.8.2 3 3 0.10550E-03 0.10000E+01 0.15991E+01 0.23877E+01 0.85617E-01 0.11223E-02 0.15118E+00 0.18076E-03 0.46642E+10 0.21347E+03 0.50000E+03 0.11801E-14 0.87512E-02 0.57630E-02 0.32451E+02 3 3 0.18409E-03 0.10000E+01 0.15991E+01 0.23877E+01 0.26069E+00 0.19584E-02 0.26381E+00 0.18076E-03 0.81388E+10 0.37249E+03 0.50000E+03 0.20591E-14 0.15270E-01 0.57630E-02 0.32451E+02 3 3 0.32123E-03 0.10000E+01 0.15991E+01 0.23877E+01 0.79375E+00 0.34173E-02 0.46033E+00 0.18076E-03 0.14202E+11 0.64998E+03 0.50000E+03 0.35931E-14 0.26646E-01 0.57630E-02 0.32451E+02 - 3 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 3 3 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 3 3 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 3 3 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 3 3 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 3 3 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 3 3 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 3 3 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 3 3 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 3 3 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 3 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 3 3 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 3 3 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 3 3 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 3 3 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 3 3 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 3 3 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 3 3 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 3 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 3 3 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 3 3 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 3 3 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 3 3 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 3 3 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 3 3 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 3 3 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 3 3 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 3 3 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 3 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 3 3 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 3 3 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 3 3 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 3 3 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 3 3 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 3 3 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 3 3 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 3 3 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 3 3 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 3 3 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -15580,24 +15580,24 @@ VERSION 2.8.2 3 3 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 3 3 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 3 3 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 3 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 3 3 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 3 3 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 3 3 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 3 3 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 3 3 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 3 3 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 3 3 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 3 3 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 3 3 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 3 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 3 3 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 3 3 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 3 3 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 3 3 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 3 3 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 3 3 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 3 3 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 3 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 3 3 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 3 3 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 3 3 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 3 3 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 3 3 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 3 3 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 3 3 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 3 3 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 3 3 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 3 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 3 3 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 3 3 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 3 3 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 3 3 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 3 3 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 3 3 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 3 3 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 3 3 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 3 3 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 3 3 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -15610,24 +15610,24 @@ VERSION 2.8.2 3 3 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 3 3 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 3 3 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 3 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 3 3 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 3 3 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 3 3 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 3 3 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 3 3 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 3 3 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 3 3 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 3 3 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 3 3 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 3 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 3 3 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 3 3 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 3 3 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 3 3 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 3 3 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 3 3 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 3 3 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 3 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 3 3 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 3 3 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 3 3 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 3 3 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 3 3 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 3 3 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 3 3 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 3 3 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 3 3 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 3 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 3 3 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 3 3 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 3 3 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 3 3 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 3 3 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 3 3 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 3 3 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 3 3 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 3 3 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 3 3 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -15640,24 +15640,24 @@ VERSION 2.8.2 3 3 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 3 3 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 3 3 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 3 3 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 3 3 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 3 3 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 3 3 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 3 3 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 3 3 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 3 3 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 3 3 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 3 3 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 3 3 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 3 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 3 3 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 3 3 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 3 3 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 3 3 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 3 3 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 3 3 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 3 3 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 3 3 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 3 3 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 3 3 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 3 3 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 3 3 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 3 3 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 3 3 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 3 3 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 3 3 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 3 3 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 3 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 3 3 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 3 3 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 3 3 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 3 3 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 3 3 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 3 3 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 3 3 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 3 3 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 3 3 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 3 3 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -15670,24 +15670,24 @@ VERSION 2.8.2 3 3 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 3 3 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 3 3 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 3 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 3 3 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 3 3 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 3 3 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 3 3 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 3 3 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 3 3 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 3 3 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 3 3 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 3 3 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 3 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 3 3 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 3 3 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 3 3 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 3 3 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 3 3 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 3 3 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 3 3 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 3 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 3 3 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 3 3 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 3 3 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 3 3 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 3 3 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 3 3 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 3 3 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 3 3 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 3 3 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 3 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 3 3 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 3 3 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 3 3 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 3 3 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 3 3 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 3 3 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 3 3 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 3 3 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 3 3 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 3 3 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -15700,24 +15700,24 @@ VERSION 2.8.2 3 3 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 3 3 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 3 3 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 3 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 3 3 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 3 3 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 3 3 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 3 3 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 3 3 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 3 3 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 3 3 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 3 3 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 3 3 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 3 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 3 3 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 3 3 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 3 3 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 3 3 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 3 3 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 3 3 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 3 3 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 3 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 3 3 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 3 3 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 3 3 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 3 3 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 3 3 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 3 3 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 3 3 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 3 3 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 3 3 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 3 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 3 3 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 3 3 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 3 3 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 3 3 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 3 3 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 3 3 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 3 3 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 3 3 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 3 3 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 3 3 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -15730,24 +15730,24 @@ VERSION 2.8.2 3 3 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 3 3 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 3 3 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 3 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 3 3 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 3 3 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 3 3 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 3 3 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 3 3 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 3 3 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 3 3 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 3 3 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 3 3 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 3 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 3 3 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 3 3 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 3 3 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 3 3 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 3 3 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 3 3 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 3 3 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 3 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 3 3 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 3 3 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 3 3 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 3 3 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 3 3 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 3 3 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 3 3 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 3 3 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 3 3 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 3 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 3 3 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 3 3 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 3 3 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 3 3 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 3 3 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 3 3 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 3 3 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 3 3 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 3 3 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 3 3 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -15760,24 +15760,24 @@ VERSION 2.8.2 3 3 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 3 3 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 3 3 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 3 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 3 3 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 3 3 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 3 3 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 3 3 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 3 3 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 3 3 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 3 3 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 3 3 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 3 3 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 3 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 3 3 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 3 3 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 3 3 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 3 3 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 3 3 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 3 3 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 3 3 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 3 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 3 3 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 3 3 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 3 3 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 3 3 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 3 3 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 3 3 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 3 3 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 3 3 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 3 3 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 3 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 3 3 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 3 3 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 3 3 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 3 3 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 3 3 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 3 3 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 3 3 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 3 3 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 3 3 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 3 3 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -15790,24 +15790,24 @@ VERSION 2.8.2 3 3 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 3 3 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 3 3 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 3 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 3 3 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 3 3 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 3 3 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 3 3 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 3 3 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 3 3 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 3 3 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 3 3 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 3 3 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 3 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 3 3 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 3 3 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 3 3 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 3 3 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 3 3 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 3 3 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 3 3 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 3 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 3 3 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 3 3 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 3 3 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 3 3 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 3 3 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 3 3 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 3 3 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 3 3 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 3 3 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 3 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 3 3 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 3 3 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 3 3 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 3 3 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 3 3 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 3 3 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 3 3 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 3 3 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 3 3 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 3 3 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -15820,24 +15820,24 @@ VERSION 2.8.2 3 3 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 3 3 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 3 3 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 3 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 3 3 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 3 3 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 3 3 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 3 3 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 3 3 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 3 3 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 3 3 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 3 3 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 3 3 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 3 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 3 3 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 3 3 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 3 3 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 3 3 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 3 3 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 3 3 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 3 3 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 3 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 3 3 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 3 3 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 3 3 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 3 3 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 3 3 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 3 3 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 3 3 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 3 3 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 3 3 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 3 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 3 3 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 3 3 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 3 3 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 3 3 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 3 3 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 3 3 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 3 3 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 3 3 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 3 3 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 3 3 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -15850,24 +15850,24 @@ VERSION 2.8.2 3 3 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 3 3 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 3 3 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 3 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 3 3 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 3 3 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 3 3 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 3 3 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 3 3 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 3 3 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 3 3 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 3 3 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 3 3 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 3 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 3 3 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 3 3 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 3 3 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 3 3 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 3 3 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 3 3 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 3 3 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 3 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 3 3 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 3 3 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 3 3 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 3 3 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 3 3 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 3 3 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 3 3 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 3 3 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 3 3 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 3 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 3 3 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 3 3 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 3 3 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 3 3 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 3 3 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 3 3 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 3 3 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 3 3 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 3 3 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 3 3 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -15880,24 +15880,24 @@ VERSION 2.8.2 3 3 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 3 3 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 3 3 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 3 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 3 3 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 3 3 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 3 3 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 3 3 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 3 3 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 3 3 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 3 3 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 3 3 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 3 3 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 3 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 3 3 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 3 3 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 3 3 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 3 3 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 3 3 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 3 3 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 3 3 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 3 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 3 3 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 3 3 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 3 3 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 3 3 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 3 3 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 3 3 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 3 3 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 3 3 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 3 3 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 3 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 3 3 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 3 3 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 3 3 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 3 3 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 3 3 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 3 3 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 3 3 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 3 3 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 3 3 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 3 3 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -15910,24 +15910,24 @@ VERSION 2.8.2 3 3 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 3 3 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 3 3 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 3 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 3 3 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 3 3 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 3 3 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 3 3 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 3 3 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 3 3 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 3 3 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 3 3 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 3 3 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 3 3 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 3 3 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 3 3 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 3 3 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 3 3 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 3 3 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 3 3 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 3 3 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 3 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 3 3 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 3 3 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 3 3 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 3 3 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 3 3 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 3 3 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 3 3 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 3 3 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 3 3 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 3 3 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 3 3 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 3 3 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 3 3 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 3 3 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 3 3 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 3 3 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 3 3 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 3 3 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 3 3 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 3 3 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -15940,24 +15940,24 @@ VERSION 2.8.2 3 3 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 3 3 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 3 3 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 3 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 3 3 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 3 3 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 3 3 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 3 3 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 3 3 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 3 3 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 3 3 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 3 3 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 3 3 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 3 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 3 3 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 3 3 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 3 3 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 3 3 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 3 3 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 3 3 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 3 3 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 3 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 3 3 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 3 3 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 3 3 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 3 3 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 3 3 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 3 3 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 3 3 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 3 3 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 3 3 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 3 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 3 3 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 3 3 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 3 3 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 3 3 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 3 3 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 3 3 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 3 3 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 3 3 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 3 3 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 3 3 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -15970,24 +15970,24 @@ VERSION 2.8.2 3 3 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 3 3 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 3 3 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 3 3 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 3 3 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 3 3 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 3 3 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 3 3 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 3 3 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 3 3 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 3 3 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 3 3 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 3 3 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 3 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 3 3 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 3 3 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 3 3 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 3 3 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 3 3 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 3 3 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 3 3 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 3 3 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 3 3 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 3 3 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 3 3 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 3 3 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 3 3 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 3 3 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 3 3 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 3 3 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 3 3 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 3 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 3 3 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 3 3 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 3 3 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 3 3 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 3 3 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 3 3 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 3 3 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 3 3 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 3 3 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 3 3 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -16000,24 +16000,24 @@ VERSION 2.8.2 3 3 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 3 3 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 3 3 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 3 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 3 3 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 3 3 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 3 3 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 3 3 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 3 3 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 3 3 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 3 3 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 3 3 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 3 3 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 3 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 3 3 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 3 3 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 3 3 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 3 3 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 3 3 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 3 3 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 3 3 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 3 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 3 3 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 3 3 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 3 3 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 3 3 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 3 3 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 3 3 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 3 3 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 3 3 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 3 3 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 3 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 3 3 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 3 3 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 3 3 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 3 3 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 3 3 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 3 3 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 3 3 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 3 3 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 3 3 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 3 3 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -16030,24 +16030,24 @@ VERSION 2.8.2 3 3 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 3 3 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 3 3 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 3 3 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 3 3 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 3 3 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 3 3 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 3 3 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 3 3 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 3 3 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 3 3 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 3 3 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 3 3 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 3 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 3 3 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 3 3 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 3 3 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 3 3 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 3 3 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 3 3 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 3 3 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 3 3 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 3 3 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 3 3 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 3 3 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 3 3 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 3 3 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 3 3 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 3 3 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 3 3 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 3 3 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 3 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 3 3 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 3 3 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 3 3 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 3 3 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 3 3 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 3 3 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 3 3 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 3 3 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 3 3 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 3 3 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -16060,24 +16060,24 @@ VERSION 2.8.2 3 3 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 3 3 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 3 3 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 3 3 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 3 3 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 3 3 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 3 3 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 3 3 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 3 3 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 3 3 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 3 3 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 3 3 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 3 3 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 3 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 3 3 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 3 3 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 3 3 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 3 3 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 3 3 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 3 3 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 3 3 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 3 3 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 3 3 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 3 3 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 3 3 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 3 3 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 3 3 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 3 3 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 3 3 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 3 3 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 3 3 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 3 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 3 3 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 3 3 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 3 3 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 3 3 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 3 3 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 3 3 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 3 3 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 3 3 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 3 3 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 3 3 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -16090,24 +16090,24 @@ VERSION 2.8.2 3 3 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 3 3 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 3 3 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 3 3 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 3 3 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 3 3 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 3 3 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 3 3 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 3 3 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 3 3 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 3 3 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 3 3 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 3 3 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 3 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 3 3 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 3 3 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 3 3 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 3 3 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 3 3 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 3 3 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 3 3 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 3 3 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 3 3 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 3 3 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 3 3 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 3 3 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 3 3 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 3 3 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 3 3 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 3 3 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 3 3 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 3 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 3 3 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 3 3 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 3 3 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 3 3 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 3 3 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 3 3 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 3 3 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 3 3 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 3 3 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 3 3 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -16120,24 +16120,24 @@ VERSION 2.8.2 3 3 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 3 3 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 3 3 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 3 3 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 3 3 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 3 3 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 3 3 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 3 3 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 3 3 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 3 3 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 3 3 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 3 3 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 3 3 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 3 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 3 3 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 3 3 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 3 3 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 3 3 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 3 3 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 3 3 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 3 3 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 3 3 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 3 3 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 3 3 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 3 3 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 3 3 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 3 3 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 3 3 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 3 3 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 3 3 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 3 3 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 3 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 3 3 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 3 3 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 3 3 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 3 3 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 3 3 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 3 3 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 3 3 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 3 3 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 3 3 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 3 3 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -16150,24 +16150,24 @@ VERSION 2.8.2 3 3 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 3 3 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 3 3 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 3 3 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 3 3 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98307E-67 - 3 3 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 3 3 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85108E-65 0.66902E-65 - 3 3 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 3 3 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 3 3 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 3 3 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 3 3 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 3 3 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 3 3 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 3 3 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 3 3 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 3 3 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 3 3 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 3 3 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 3 3 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 3 3 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 3 3 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77624E-25 + 3 3 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 3 3 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 3 3 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 3 3 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 3 3 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 3 3 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 3 3 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 3 3 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 3 3 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 3 3 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 3 3 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 3 3 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 3 3 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 3 3 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 3 3 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 3 3 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 3 3 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 3 3 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 3 3 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 3 3 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -16180,24 +16180,24 @@ VERSION 2.8.2 3 3 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 3 3 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 3 3 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 3 3 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35535E-67 - 3 3 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31828E-67 0.31058E-66 - 3 3 0.54572E-10 0.10000E+01 0.52449E+05 0.19287E-55 0.49297E-66 0.26765E-65 - 3 3 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20669E-64 - 3 3 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16351E-63 - 3 3 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91025E-62 0.15327E-62 - 3 3 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 3 3 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30487E-60 - 3 3 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49480E-59 - 3 3 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69358E-56 0.76350E-58 - 3 3 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 3 3 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16342E-55 - 3 3 0.54572E-10 0.10000E+01 0.61026E+04 0.45398E-44 0.13637E-51 0.23452E-54 - 3 3 0.54572E-10 0.10000E+01 0.49215E+04 0.64182E-43 0.36731E-50 0.33513E-53 - 3 3 0.54572E-10 0.10000E+01 0.39689E+04 0.90672E-42 0.98863E-49 0.47755E-52 - 3 3 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86006E-46 0.21355E-49 - 3 3 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 3 3 0.54572E-10 0.10000E+01 0.20817E+04 0.56405E-14 0.12317E-19 0.30298E-24 + 3 3 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23535E-24 + 3 3 0.54572E-10 0.10000E+01 0.65036E+05 0.24821E-14 0.16766E-24 0.30916E-24 + 3 3 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84275E-24 0.41388E-24 + 3 3 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59031E-24 + 3 3 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94913E-24 + 3 3 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91841E-22 0.17759E-23 + 3 3 0.54572E-10 0.10000E+01 0.22184E+05 0.68449E-13 0.42131E-21 0.37807E-23 + 3 3 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86918E-23 + 3 3 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87212E-20 0.20677E-22 + 3 3 0.54572E-10 0.10000E+01 0.11635E+05 0.96302E-12 0.39557E-19 0.49743E-22 + 3 3 0.54572E-10 0.10000E+01 0.93834E+04 0.23071E-11 0.17916E-18 0.11985E-21 + 3 3 0.54572E-10 0.10000E+01 0.75673E+04 0.55078E-11 0.80855E-18 0.28822E-21 + 3 3 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36153E-17 0.69084E-21 + 3 3 0.54572E-10 0.10000E+01 0.49215E+04 0.31060E-10 0.15890E-16 0.16473E-20 + 3 3 0.54572E-10 0.10000E+01 0.39689E+04 0.73037E-10 0.68266E-16 0.38935E-20 + 3 3 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 3 3 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11721E-14 0.20821E-19 + 3 3 0.54572E-10 0.10000E+01 0.20817E+04 0.86941E-09 0.46800E-14 0.46799E-19 3 3 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 3 3 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 3 3 0.54572E-10 0.10000E+01 0.10918E+04 0.86135E-08 0.25791E-12 0.46561E-18 @@ -16210,24 +16210,24 @@ VERSION 2.8.2 3 3 0.54572E-10 0.10000E+01 0.24221E+03 0.85647E-06 0.79019E-09 0.46390E-16 3 3 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 3 3 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 3 3 0.95225E-10 0.10000E+01 0.80645E+05 0.53357E-57 0.41261E-68 0.10807E-66 - 3 3 0.95225E-10 0.10000E+01 0.65036E+05 0.46332E-56 0.66253E-67 0.94594E-66 - 3 3 0.95225E-10 0.10000E+01 0.52449E+05 0.40031E-55 0.93503E-66 0.81771E-65 - 3 3 0.95225E-10 0.10000E+01 0.42297E+05 0.31522E-54 0.15118E-64 0.62704E-64 - 3 3 0.95225E-10 0.10000E+01 0.34111E+05 0.26474E-53 0.31089E-63 0.46565E-63 - 3 3 0.95225E-10 0.10000E+01 0.27509E+05 0.27520E-52 0.84235E-62 0.36223E-62 - 3 3 0.95225E-10 0.10000E+01 0.22184E+05 0.37534E-51 0.26554E-60 0.35016E-61 - 3 3 0.95225E-10 0.10000E+01 0.17891E+05 0.59944E-50 0.82063E-59 0.47894E-60 - 3 3 0.95225E-10 0.10000E+01 0.14428E+05 0.96010E-49 0.23742E-57 0.76773E-59 - 3 3 0.95225E-10 0.10000E+01 0.11635E+05 0.14618E-47 0.65924E-56 0.12117E-57 - 3 3 0.95225E-10 0.10000E+01 0.93834E+04 0.21405E-46 0.18019E-54 0.18315E-56 - 3 3 0.95225E-10 0.10000E+01 0.75673E+04 0.30774E-45 0.48998E-53 0.26960E-55 - 3 3 0.95225E-10 0.10000E+01 0.61026E+04 0.43932E-44 0.13291E-51 0.39168E-54 - 3 3 0.95225E-10 0.10000E+01 0.49215E+04 0.62522E-43 0.35987E-50 0.56494E-53 - 3 3 0.95225E-10 0.10000E+01 0.39689E+04 0.88798E-42 0.97272E-49 0.81081E-52 - 3 3 0.95225E-10 0.10000E+01 0.32008E+04 0.39602E-39 0.84927E-46 0.36466E-49 - 3 3 0.95225E-10 0.10000E+01 0.25813E+04 0.29202E-30 0.14349E-36 0.27087E-40 - 3 3 0.95225E-10 0.10000E+01 0.20817E+04 0.55921E-14 0.12253E-19 0.52259E-24 + 3 3 0.95225E-10 0.10000E+01 0.80645E+05 0.35744E-14 0.41502E-25 0.71326E-24 + 3 3 0.95225E-10 0.10000E+01 0.65036E+05 0.47307E-14 0.17060E-24 0.92728E-24 + 3 3 0.95225E-10 0.10000E+01 0.52449E+05 0.64557E-14 0.80122E-24 0.12055E-23 + 3 3 0.95225E-10 0.10000E+01 0.42297E+05 0.95539E-14 0.38873E-23 0.16091E-23 + 3 3 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18619E-22 0.23081E-23 + 3 3 0.95225E-10 0.10000E+01 0.27509E+05 0.31759E-13 0.87441E-22 0.37559E-23 + 3 3 0.95225E-10 0.10000E+01 0.22184E+05 0.69747E-13 0.40488E-21 0.71084E-23 + 3 3 0.95225E-10 0.10000E+01 0.17891E+05 0.16260E-12 0.18595E-20 0.15231E-22 + 3 3 0.95225E-10 0.10000E+01 0.14428E+05 0.38820E-12 0.85016E-20 0.35117E-22 + 3 3 0.95225E-10 0.10000E+01 0.11635E+05 0.93286E-12 0.38762E-19 0.83705E-22 + 3 3 0.95225E-10 0.10000E+01 0.93834E+04 0.22414E-11 0.17630E-18 0.20181E-21 + 3 3 0.95225E-10 0.10000E+01 0.75673E+04 0.53737E-11 0.79831E-18 0.48742E-21 + 3 3 0.95225E-10 0.10000E+01 0.61026E+04 0.12844E-10 0.35790E-17 0.11743E-20 + 3 3 0.95225E-10 0.10000E+01 0.49215E+04 0.30551E-10 0.15762E-16 0.28132E-20 + 3 3 0.95225E-10 0.10000E+01 0.39689E+04 0.72070E-10 0.67815E-16 0.66761E-20 + 3 3 0.95225E-10 0.10000E+01 0.32008E+04 0.16784E-09 0.28471E-15 0.15622E-19 + 3 3 0.95225E-10 0.10000E+01 0.25813E+04 0.38435E-09 0.11666E-14 0.35906E-19 + 3 3 0.95225E-10 0.10000E+01 0.20817E+04 0.86310E-09 0.46605E-14 0.80856E-19 3 3 0.95225E-10 0.10000E+01 0.16788E+04 0.18975E-08 0.18138E-13 0.17813E-18 3 3 0.95225E-10 0.10000E+01 0.13538E+04 0.40794E-08 0.68919E-13 0.38357E-18 3 3 0.95225E-10 0.10000E+01 0.10918E+04 0.85736E-08 0.25703E-12 0.80707E-18 @@ -16240,24 +16240,24 @@ VERSION 2.8.2 3 3 0.95225E-10 0.10000E+01 0.24221E+03 0.85358E-06 0.78757E-09 0.80537E-16 3 3 0.95225E-10 0.10000E+01 0.19533E+03 0.13453E-05 0.14966E-08 0.12693E-15 3 3 0.95225E-10 0.10000E+01 0.15752E+03 0.13453E-05 0.14966E-08 0.12693E-15 - 3 3 0.16616E-09 0.10000E+01 0.80645E+05 0.10865E-56 0.84277E-68 0.35308E-66 - 3 3 0.16616E-09 0.10000E+01 0.65036E+05 0.94568E-56 0.13517E-66 0.30509E-65 - 3 3 0.16616E-09 0.10000E+01 0.52449E+05 0.81560E-55 0.18582E-65 0.26203E-64 - 3 3 0.16616E-09 0.10000E+01 0.42297E+05 0.62618E-54 0.26498E-64 0.19873E-63 - 3 3 0.16616E-09 0.10000E+01 0.34111E+05 0.47178E-53 0.41262E-63 0.14301E-62 - 3 3 0.16616E-09 0.10000E+01 0.27509E+05 0.38240E-52 0.82608E-62 0.10125E-61 - 3 3 0.16616E-09 0.10000E+01 0.22184E+05 0.38907E-51 0.23195E-60 0.78214E-61 - 3 3 0.16616E-09 0.10000E+01 0.17891E+05 0.53871E-50 0.72261E-59 0.84114E-60 - 3 3 0.16616E-09 0.10000E+01 0.14428E+05 0.85089E-49 0.21509E-57 0.12400E-58 - 3 3 0.16616E-09 0.10000E+01 0.11635E+05 0.13233E-47 0.61092E-56 0.19595E-57 - 3 3 0.16616E-09 0.10000E+01 0.93834E+04 0.19801E-46 0.16972E-54 0.30089E-56 - 3 3 0.16616E-09 0.10000E+01 0.75673E+04 0.28944E-45 0.46711E-53 0.44876E-55 - 3 3 0.16616E-09 0.10000E+01 0.61026E+04 0.41837E-44 0.12789E-51 0.65817E-54 - 3 3 0.16616E-09 0.10000E+01 0.49215E+04 0.60112E-43 0.34882E-50 0.95601E-53 - 3 3 0.16616E-09 0.10000E+01 0.39689E+04 0.86019E-42 0.94840E-49 0.13796E-51 - 3 3 0.16616E-09 0.10000E+01 0.32008E+04 0.38597E-39 0.83215E-46 0.62332E-49 - 3 3 0.16616E-09 0.10000E+01 0.25813E+04 0.28613E-30 0.14128E-36 0.46490E-40 - 3 3 0.16616E-09 0.10000E+01 0.20817E+04 0.55094E-14 0.12126E-19 0.90078E-24 + 3 3 0.16616E-09 0.10000E+01 0.80645E+05 0.72096E-14 0.59543E-25 0.23497E-23 + 3 3 0.16616E-09 0.10000E+01 0.65036E+05 0.93789E-14 0.19324E-24 0.30304E-23 + 3 3 0.16616E-09 0.10000E+01 0.52449E+05 0.12233E-13 0.78114E-24 0.38701E-23 + 3 3 0.16616E-09 0.10000E+01 0.42297E+05 0.16462E-13 0.35965E-23 0.49635E-23 + 3 3 0.16616E-09 0.10000E+01 0.34111E+05 0.23943E-13 0.17153E-22 0.65736E-23 + 3 3 0.16616E-09 0.10000E+01 0.27509E+05 0.39613E-13 0.81416E-22 0.94230E-23 + 3 3 0.16616E-09 0.10000E+01 0.22184E+05 0.75931E-13 0.38182E-21 0.15404E-22 + 3 3 0.16616E-09 0.10000E+01 0.17891E+05 0.16357E-12 0.17733E-20 0.29291E-22 + 3 3 0.16616E-09 0.10000E+01 0.14428E+05 0.37708E-12 0.81822E-20 0.62866E-22 + 3 3 0.16616E-09 0.10000E+01 0.11635E+05 0.89636E-12 0.37579E-19 0.14488E-21 + 3 3 0.16616E-09 0.10000E+01 0.93834E+04 0.21538E-11 0.17191E-18 0.34496E-21 + 3 3 0.16616E-09 0.10000E+01 0.75673E+04 0.51855E-11 0.78208E-18 0.83095E-21 + 3 3 0.16616E-09 0.10000E+01 0.61026E+04 0.12459E-10 0.35189E-17 0.20045E-20 + 3 3 0.16616E-09 0.10000E+01 0.49215E+04 0.29783E-10 0.15539E-16 0.48148E-20 + 3 3 0.16616E-09 0.10000E+01 0.39689E+04 0.70555E-10 0.66993E-16 0.11457E-19 + 3 3 0.16616E-09 0.10000E+01 0.32008E+04 0.16488E-09 0.28167E-15 0.26873E-19 + 3 3 0.16616E-09 0.10000E+01 0.25813E+04 0.37858E-09 0.11554E-14 0.61886E-19 + 3 3 0.16616E-09 0.10000E+01 0.20817E+04 0.85188E-09 0.46193E-14 0.13958E-18 3 3 0.16616E-09 0.10000E+01 0.16788E+04 0.18757E-08 0.17987E-13 0.30787E-18 3 3 0.16616E-09 0.10000E+01 0.13538E+04 0.40373E-08 0.68366E-13 0.66353E-18 3 3 0.16616E-09 0.10000E+01 0.10918E+04 0.84923E-08 0.25501E-12 0.13971E-17 @@ -16270,24 +16270,24 @@ VERSION 2.8.2 3 3 0.16616E-09 0.10000E+01 0.24221E+03 0.84692E-06 0.78147E-09 0.13959E-15 3 3 0.16616E-09 0.10000E+01 0.19533E+03 0.13348E-05 0.14850E-08 0.22001E-15 3 3 0.16616E-09 0.10000E+01 0.15752E+03 0.13348E-05 0.14850E-08 0.22001E-15 - 3 3 0.28994E-09 0.10000E+01 0.80645E+05 0.22351E-56 0.17069E-67 0.13771E-65 - 3 3 0.28994E-09 0.10000E+01 0.65036E+05 0.19215E-55 0.27233E-66 0.11666E-64 - 3 3 0.28994E-09 0.10000E+01 0.52449E+05 0.16448E-54 0.36780E-65 0.98885E-64 - 3 3 0.28994E-09 0.10000E+01 0.42297E+05 0.12428E-53 0.49689E-64 0.73576E-63 - 3 3 0.28994E-09 0.10000E+01 0.34111E+05 0.89342E-53 0.66977E-63 0.51435E-62 - 3 3 0.28994E-09 0.10000E+01 0.27509E+05 0.63763E-52 0.10022E-61 0.34624E-61 - 3 3 0.28994E-09 0.10000E+01 0.22184E+05 0.50068E-51 0.22068E-60 0.23372E-60 - 3 3 0.28994E-09 0.10000E+01 0.17891E+05 0.53988E-50 0.65398E-59 0.19468E-59 - 3 3 0.28994E-09 0.10000E+01 0.14428E+05 0.78374E-49 0.19796E-57 0.23813E-58 - 3 3 0.28994E-09 0.10000E+01 0.11635E+05 0.12205E-47 0.57325E-56 0.35405E-57 - 3 3 0.28994E-09 0.10000E+01 0.93834E+04 0.18558E-46 0.16141E-54 0.53448E-56 - 3 3 0.28994E-09 0.10000E+01 0.75673E+04 0.27493E-45 0.44841E-53 0.79024E-55 - 3 3 0.28994E-09 0.10000E+01 0.61026E+04 0.40129E-44 0.12364E-51 0.11513E-53 - 3 3 0.28994E-09 0.10000E+01 0.49215E+04 0.58082E-43 0.33915E-50 0.16641E-52 - 3 3 0.28994E-09 0.10000E+01 0.39689E+04 0.83598E-42 0.92645E-49 0.23939E-51 - 3 3 0.28994E-09 0.10000E+01 0.32008E+04 0.37693E-39 0.81623E-46 0.10797E-48 - 3 3 0.28994E-09 0.10000E+01 0.25813E+04 0.28068E-30 0.13916E-36 0.80487E-40 - 3 3 0.28994E-09 0.10000E+01 0.20817E+04 0.54300E-14 0.11998E-19 0.15601E-23 + 3 3 0.28994E-09 0.10000E+01 0.80645E+05 0.14926E-13 0.10092E-24 0.92784E-23 + 3 3 0.28994E-09 0.10000E+01 0.65036E+05 0.19229E-13 0.26744E-24 0.11877E-22 + 3 3 0.28994E-09 0.10000E+01 0.52449E+05 0.24533E-13 0.87377E-24 0.14979E-22 + 3 3 0.28994E-09 0.10000E+01 0.42297E+05 0.31443E-13 0.35598E-23 0.18752E-22 + 3 3 0.28994E-09 0.10000E+01 0.34111E+05 0.41605E-13 0.16312E-22 0.23637E-22 + 3 3 0.28994E-09 0.10000E+01 0.27509E+05 0.59499E-13 0.77118E-22 0.30864E-22 + 3 3 0.28994E-09 0.10000E+01 0.22184E+05 0.96750E-13 0.36396E-21 0.43701E-22 + 3 3 0.28994E-09 0.10000E+01 0.17891E+05 0.18252E-12 0.17035E-20 0.70446E-22 + 3 3 0.28994E-09 0.10000E+01 0.14428E+05 0.38850E-12 0.79135E-20 0.13159E-21 + 3 3 0.28994E-09 0.10000E+01 0.11635E+05 0.88904E-12 0.36550E-19 0.27703E-21 + 3 3 0.28994E-09 0.10000E+01 0.93834E+04 0.21056E-11 0.16799E-18 0.62746E-21 + 3 3 0.28994E-09 0.10000E+01 0.75673E+04 0.50523E-11 0.76712E-18 0.14735E-20 + 3 3 0.28994E-09 0.10000E+01 0.61026E+04 0.12153E-10 0.34620E-17 0.35104E-20 + 3 3 0.28994E-09 0.10000E+01 0.49215E+04 0.29129E-10 0.15324E-16 0.83813E-20 + 3 3 0.28994E-09 0.10000E+01 0.39689E+04 0.69207E-10 0.66180E-16 0.19888E-19 + 3 3 0.28994E-09 0.10000E+01 0.32008E+04 0.16215E-09 0.27862E-15 0.46590E-19 + 3 3 0.28994E-09 0.10000E+01 0.25813E+04 0.37310E-09 0.11440E-14 0.10724E-18 + 3 3 0.28994E-09 0.10000E+01 0.20817E+04 0.84099E-09 0.45767E-14 0.24184E-18 3 3 0.28994E-09 0.10000E+01 0.16788E+04 0.18542E-08 0.17829E-13 0.53345E-18 3 3 0.28994E-09 0.10000E+01 0.13538E+04 0.39949E-08 0.67783E-13 0.11498E-17 3 3 0.28994E-09 0.10000E+01 0.10918E+04 0.84092E-08 0.25287E-12 0.24211E-17 @@ -16300,24 +16300,24 @@ VERSION 2.8.2 3 3 0.28994E-09 0.10000E+01 0.24221E+03 0.83984E-06 0.77497E-09 0.24194E-15 3 3 0.28994E-09 0.10000E+01 0.19533E+03 0.13237E-05 0.14727E-08 0.38132E-15 3 3 0.28994E-09 0.10000E+01 0.15752E+03 0.13237E-05 0.14727E-08 0.38132E-15 - 3 3 0.50593E-09 0.10000E+01 0.80645E+05 0.46012E-56 0.34486E-67 0.57574E-65 - 3 3 0.50593E-09 0.10000E+01 0.65036E+05 0.38969E-55 0.54583E-66 0.48270E-64 - 3 3 0.50593E-09 0.10000E+01 0.52449E+05 0.33026E-54 0.72364E-65 0.40629E-63 - 3 3 0.50593E-09 0.10000E+01 0.42297E+05 0.24573E-53 0.94808E-64 0.29935E-62 - 3 3 0.50593E-09 0.10000E+01 0.34111E+05 0.17200E-52 0.12062E-62 0.20672E-61 - 3 3 0.50593E-09 0.10000E+01 0.27509E+05 0.11640E-51 0.15413E-61 0.13711E-60 - 3 3 0.50593E-09 0.10000E+01 0.22184E+05 0.79704E-51 0.26187E-60 0.87935E-60 - 3 3 0.50593E-09 0.10000E+01 0.17891E+05 0.67800E-50 0.67769E-59 0.61124E-59 - 3 3 0.50593E-09 0.10000E+01 0.14428E+05 0.83647E-49 0.19970E-57 0.57673E-58 - 3 3 0.50593E-09 0.10000E+01 0.11635E+05 0.12403E-47 0.57556E-56 0.73698E-57 - 3 3 0.50593E-09 0.10000E+01 0.93834E+04 0.18652E-46 0.16145E-54 0.10460E-55 - 3 3 0.50593E-09 0.10000E+01 0.75673E+04 0.27507E-45 0.44686E-53 0.14969E-54 - 3 3 0.50593E-09 0.10000E+01 0.61026E+04 0.40002E-44 0.12288E-51 0.21290E-53 - 3 3 0.50593E-09 0.10000E+01 0.49215E+04 0.57740E-43 0.33653E-50 0.30191E-52 - 3 3 0.50593E-09 0.10000E+01 0.39689E+04 0.82972E-42 0.91878E-49 0.42815E-51 - 3 3 0.50593E-09 0.10000E+01 0.32008E+04 0.37388E-39 0.80961E-46 0.19114E-48 - 3 3 0.50593E-09 0.10000E+01 0.25813E+04 0.27846E-30 0.13814E-36 0.14146E-39 - 3 3 0.50593E-09 0.10000E+01 0.20817E+04 0.53925E-14 0.11925E-19 0.27273E-23 + 3 3 0.50593E-09 0.10000E+01 0.80645E+05 0.31007E-13 0.18727E-24 0.39043E-22 + 3 3 0.50593E-09 0.10000E+01 0.65036E+05 0.39696E-13 0.44267E-24 0.49812E-22 + 3 3 0.50593E-09 0.10000E+01 0.52449E+05 0.50086E-13 0.12042E-23 0.62501E-22 + 3 3 0.50593E-09 0.10000E+01 0.42297E+05 0.62772E-13 0.41384E-23 0.77474E-22 + 3 3 0.50593E-09 0.10000E+01 0.34111E+05 0.79318E-13 0.17262E-22 0.95552E-22 + 3 3 0.50593E-09 0.10000E+01 0.27509E+05 0.10404E-12 0.78547E-22 0.11897E-21 + 3 3 0.50593E-09 0.10000E+01 0.22184E+05 0.14837E-12 0.36534E-21 0.15369E-21 + 3 3 0.50593E-09 0.10000E+01 0.17891E+05 0.24115E-12 0.16993E-20 0.21490E-21 + 3 3 0.50593E-09 0.10000E+01 0.14428E+05 0.45354E-12 0.78698E-20 0.33975E-21 + 3 3 0.50593E-09 0.10000E+01 0.11635E+05 0.95858E-12 0.36292E-19 0.61779E-21 + 3 3 0.50593E-09 0.10000E+01 0.93834E+04 0.21744E-11 0.16670E-18 0.12635E-20 + 3 3 0.50593E-09 0.10000E+01 0.75673E+04 0.51067E-11 0.76124E-18 0.27891E-20 + 3 3 0.50593E-09 0.10000E+01 0.61026E+04 0.12160E-10 0.34366E-17 0.64140E-20 + 3 3 0.50593E-09 0.10000E+01 0.49215E+04 0.29015E-10 0.15218E-16 0.15010E-19 + 3 3 0.50593E-09 0.10000E+01 0.39689E+04 0.68807E-10 0.65751E-16 0.35205E-19 + 3 3 0.50593E-09 0.10000E+01 0.32008E+04 0.16111E-09 0.27691E-15 0.81911E-19 + 3 3 0.50593E-09 0.10000E+01 0.25813E+04 0.37068E-09 0.11373E-14 0.18775E-18 + 3 3 0.50593E-09 0.10000E+01 0.20817E+04 0.83566E-09 0.45511E-14 0.42230E-18 3 3 0.50593E-09 0.10000E+01 0.16788E+04 0.18428E-08 0.17732E-13 0.92995E-18 3 3 0.50593E-09 0.10000E+01 0.13538E+04 0.39713E-08 0.67418E-13 0.20022E-17 3 3 0.50593E-09 0.10000E+01 0.10918E+04 0.83611E-08 0.25151E-12 0.42129E-17 @@ -16330,24 +16330,24 @@ VERSION 2.8.2 3 3 0.50593E-09 0.10000E+01 0.24221E+03 0.83528E-06 0.77073E-09 0.42026E-15 3 3 0.50593E-09 0.10000E+01 0.19533E+03 0.13165E-05 0.14646E-08 0.66235E-15 3 3 0.50593E-09 0.10000E+01 0.15752E+03 0.13165E-05 0.14646E-08 0.66235E-15 - 3 3 0.88282E-09 0.10000E+01 0.80645E+05 0.91865E-56 0.68141E-67 0.21790E-64 - 3 3 0.88282E-09 0.10000E+01 0.65036E+05 0.77163E-55 0.10737E-65 0.18252E-63 - 3 3 0.88282E-09 0.10000E+01 0.52449E+05 0.65033E-54 0.14097E-64 0.15362E-62 - 3 3 0.88282E-09 0.10000E+01 0.42297E+05 0.48008E-53 0.18244E-63 0.11333E-61 - 3 3 0.88282E-09 0.10000E+01 0.34111E+05 0.33246E-52 0.22862E-62 0.78662E-61 - 3 3 0.88282E-09 0.10000E+01 0.27509E+05 0.22147E-51 0.27544E-61 0.52771E-60 - 3 3 0.88282E-09 0.10000E+01 0.22184E+05 0.14384E-50 0.38522E-60 0.33902E-59 - 3 3 0.88282E-09 0.10000E+01 0.17891E+05 0.10398E-49 0.80943E-59 0.21634E-58 - 3 3 0.88282E-09 0.10000E+01 0.14428E+05 0.10420E-48 0.21912E-57 0.15995E-57 - 3 3 0.88282E-09 0.10000E+01 0.11635E+05 0.13837E-47 0.61336E-56 0.16104E-56 - 3 3 0.88282E-09 0.10000E+01 0.93834E+04 0.19969E-46 0.16909E-54 0.20517E-55 - 3 3 0.88282E-09 0.10000E+01 0.75673E+04 0.28853E-45 0.46135E-53 0.28287E-54 - 3 3 0.88282E-09 0.10000E+01 0.61026E+04 0.41345E-44 0.12542E-51 0.39470E-53 - 3 3 0.88282E-09 0.10000E+01 0.49215E+04 0.58993E-43 0.34060E-50 0.55092E-52 - 3 3 0.88282E-09 0.10000E+01 0.39689E+04 0.84046E-42 0.92456E-49 0.77043E-51 - 3 3 0.88282E-09 0.10000E+01 0.32008E+04 0.37644E-39 0.81158E-46 0.34005E-48 - 3 3 0.88282E-09 0.10000E+01 0.25813E+04 0.27924E-30 0.13811E-36 0.24948E-39 - 3 3 0.88282E-09 0.10000E+01 0.20817E+04 0.53925E-14 0.11899E-19 0.47765E-23 + 3 3 0.88282E-09 0.10000E+01 0.80645E+05 0.62228E-13 0.35833E-24 0.14793E-21 + 3 3 0.88282E-09 0.10000E+01 0.65036E+05 0.79443E-13 0.80379E-24 0.18876E-21 + 3 3 0.88282E-09 0.10000E+01 0.52449E+05 0.99782E-13 0.19400E-23 0.23685E-21 + 3 3 0.88282E-09 0.10000E+01 0.42297E+05 0.12393E-12 0.56246E-23 0.29320E-21 + 3 3 0.88282E-09 0.10000E+01 0.34111E+05 0.15348E-12 0.20418E-22 0.35940E-21 + 3 3 0.88282E-09 0.10000E+01 0.27509E+05 0.19281E-12 0.86057E-22 0.43931E-21 + 3 3 0.88282E-09 0.10000E+01 0.22184E+05 0.25357E-12 0.38556E-21 0.54332E-21 + 3 3 0.88282E-09 0.10000E+01 0.17891E+05 0.36533E-12 0.17577E-20 0.69847E-21 + 3 3 0.88282E-09 0.10000E+01 0.14428E+05 0.60069E-12 0.80388E-20 0.97163E-21 + 3 3 0.88282E-09 0.10000E+01 0.11635E+05 0.11352E-11 0.36760E-19 0.15236E-20 + 3 3 0.88282E-09 0.10000E+01 0.93834E+04 0.23908E-11 0.16788E-18 0.27369E-20 + 3 3 0.88282E-09 0.10000E+01 0.75673E+04 0.53777E-11 0.76375E-18 0.55183E-20 + 3 3 0.88282E-09 0.10000E+01 0.61026E+04 0.12505E-10 0.34398E-17 0.12013E-19 + 3 3 0.88282E-09 0.10000E+01 0.49215E+04 0.29450E-10 0.15210E-16 0.27248E-19 + 3 3 0.88282E-09 0.10000E+01 0.39689E+04 0.69331E-10 0.65654E-16 0.62801E-19 + 3 3 0.88282E-09 0.10000E+01 0.32008E+04 0.16166E-09 0.27634E-15 0.14465E-18 + 3 3 0.88282E-09 0.10000E+01 0.25813E+04 0.37105E-09 0.11346E-14 0.32960E-18 + 3 3 0.88282E-09 0.10000E+01 0.20817E+04 0.83526E-09 0.45391E-14 0.73862E-18 3 3 0.88282E-09 0.10000E+01 0.16788E+04 0.18403E-08 0.17682E-13 0.16227E-17 3 3 0.88282E-09 0.10000E+01 0.13538E+04 0.39635E-08 0.67221E-13 0.34884E-17 3 3 0.88282E-09 0.10000E+01 0.10918E+04 0.83416E-08 0.25074E-12 0.73323E-17 @@ -16360,24 +16360,24 @@ VERSION 2.8.2 3 3 0.88282E-09 0.10000E+01 0.24221E+03 0.83257E-06 0.76813E-09 0.72963E-15 3 3 0.88282E-09 0.10000E+01 0.19533E+03 0.13122E-05 0.14597E-08 0.11498E-14 3 3 0.88282E-09 0.10000E+01 0.15752E+03 0.13122E-05 0.14597E-08 0.11498E-14 - 3 3 0.15405E-08 0.10000E+01 0.80645E+05 0.17676E-55 0.13074E-66 0.73136E-64 - 3 3 0.15405E-08 0.10000E+01 0.65036E+05 0.14814E-54 0.20586E-65 0.61367E-63 - 3 3 0.15405E-08 0.10000E+01 0.52449E+05 0.12472E-53 0.27008E-64 0.51750E-62 - 3 3 0.15405E-08 0.10000E+01 0.42297E+05 0.92021E-53 0.35026E-63 0.38336E-61 - 3 3 0.15405E-08 0.10000E+01 0.34111E+05 0.63823E-52 0.44256E-62 0.26842E-60 - 3 3 0.15405E-08 0.10000E+01 0.27509E+05 0.42732E-51 0.52988E-61 0.18298E-59 - 3 3 0.15405E-08 0.10000E+01 0.22184E+05 0.27522E-50 0.65827E-60 0.11974E-58 - 3 3 0.15405E-08 0.10000E+01 0.17891E+05 0.18138E-49 0.10819E-58 0.75032E-58 - 3 3 0.15405E-08 0.10000E+01 0.14428E+05 0.14689E-48 0.24993E-57 0.48106E-57 - 3 3 0.15405E-08 0.10000E+01 0.11635E+05 0.16325E-47 0.66302E-56 0.37409E-56 - 3 3 0.15405E-08 0.10000E+01 0.93834E+04 0.21836E-46 0.17916E-54 0.39647E-55 - 3 3 0.15405E-08 0.10000E+01 0.75673E+04 0.30666E-45 0.48206E-53 0.51408E-54 - 3 3 0.15405E-08 0.10000E+01 0.61026E+04 0.43251E-44 0.12941E-51 0.70877E-53 - 3 3 0.15405E-08 0.10000E+01 0.49215E+04 0.60932E-43 0.34779E-50 0.98505E-52 - 3 3 0.15405E-08 0.10000E+01 0.39689E+04 0.85900E-42 0.93662E-49 0.13694E-50 - 3 3 0.15405E-08 0.10000E+01 0.32008E+04 0.38162E-39 0.81744E-46 0.60027E-48 - 3 3 0.15405E-08 0.10000E+01 0.25813E+04 0.28136E-30 0.13850E-36 0.43756E-39 - 3 3 0.15405E-08 0.10000E+01 0.20817E+04 0.54081E-14 0.11889E-19 0.83309E-23 + 3 3 0.15405E-08 0.10000E+01 0.80645E+05 0.11994E-12 0.68683E-24 0.49624E-21 + 3 3 0.15405E-08 0.10000E+01 0.65036E+05 0.15306E-12 0.15118E-23 0.63386E-21 + 3 3 0.15405E-08 0.10000E+01 0.52449E+05 0.19209E-12 0.34067E-23 0.79650E-21 + 3 3 0.15405E-08 0.10000E+01 0.42297E+05 0.23797E-12 0.85675E-23 0.98743E-21 + 3 3 0.15405E-08 0.10000E+01 0.34111E+05 0.29242E-12 0.26346E-22 0.12101E-20 + 3 3 0.15405E-08 0.10000E+01 0.27509E+05 0.35983E-12 0.98875E-22 0.14708E-20 + 3 3 0.15405E-08 0.10000E+01 0.22184E+05 0.45196E-12 0.41721E-21 0.17858E-20 + 3 3 0.15405E-08 0.10000E+01 0.17891E+05 0.59902E-12 0.18465E-20 0.21996E-20 + 3 3 0.15405E-08 0.10000E+01 0.14428E+05 0.87544E-12 0.83044E-20 0.28270E-20 + 3 3 0.15405E-08 0.10000E+01 0.11635E+05 0.14606E-11 0.37556E-19 0.39497E-20 + 3 3 0.15405E-08 0.10000E+01 0.93834E+04 0.27830E-11 0.17018E-18 0.62407E-20 + 3 3 0.15405E-08 0.10000E+01 0.75673E+04 0.58633E-11 0.77002E-18 0.11293E-19 + 3 3 0.15405E-08 0.10000E+01 0.61026E+04 0.13124E-10 0.34552E-17 0.22860E-19 + 3 3 0.15405E-08 0.10000E+01 0.49215E+04 0.30258E-10 0.15241E-16 0.49714E-19 + 3 3 0.15405E-08 0.10000E+01 0.39689E+04 0.70396E-10 0.65682E-16 0.11200E-18 + 3 3 0.15405E-08 0.10000E+01 0.32008E+04 0.16304E-09 0.27617E-15 0.25485E-18 + 3 3 0.15405E-08 0.10000E+01 0.25813E+04 0.37271E-09 0.11331E-14 0.57683E-18 + 3 3 0.15405E-08 0.10000E+01 0.20817E+04 0.83693E-09 0.45310E-14 0.12877E-17 3 3 0.15405E-08 0.10000E+01 0.16788E+04 0.18411E-08 0.17644E-13 0.28225E-17 3 3 0.15405E-08 0.10000E+01 0.13538E+04 0.39612E-08 0.67060E-13 0.60587E-17 3 3 0.15405E-08 0.10000E+01 0.10918E+04 0.83310E-08 0.25010E-12 0.12723E-16 @@ -16390,24 +16390,24 @@ VERSION 2.8.2 3 3 0.15405E-08 0.10000E+01 0.24221E+03 0.83016E-06 0.76577E-09 0.12629E-14 3 3 0.15405E-08 0.10000E+01 0.19533E+03 0.13083E-05 0.14552E-08 0.19900E-14 3 3 0.15405E-08 0.10000E+01 0.15752E+03 0.13083E-05 0.14552E-08 0.19900E-14 - 3 3 0.26880E-08 0.10000E+01 0.80645E+05 0.33184E-55 0.24578E-66 0.23904E-63 - 3 3 0.26880E-08 0.10000E+01 0.65036E+05 0.27844E-54 0.38755E-65 0.20103E-62 - 3 3 0.26880E-08 0.10000E+01 0.52449E+05 0.23476E-53 0.51061E-64 0.16990E-61 - 3 3 0.26880E-08 0.10000E+01 0.42297E+05 0.17381E-52 0.66856E-63 0.12640E-60 - 3 3 0.26880E-08 0.10000E+01 0.34111E+05 0.12151E-51 0.86079E-62 0.89261E-60 - 3 3 0.26880E-08 0.10000E+01 0.27509E+05 0.82585E-51 0.10522E-60 0.61777E-59 - 3 3 0.26880E-08 0.10000E+01 0.22184E+05 0.53992E-50 0.12507E-59 0.41346E-58 - 3 3 0.26880E-08 0.10000E+01 0.17891E+05 0.34445E-49 0.16644E-58 0.26323E-57 - 3 3 0.26880E-08 0.10000E+01 0.14428E+05 0.23680E-48 0.29954E-57 0.16125E-56 - 3 3 0.26880E-08 0.10000E+01 0.11635E+05 0.20733E-47 0.70675E-56 0.10363E-55 - 3 3 0.26880E-08 0.10000E+01 0.93834E+04 0.23950E-46 0.18533E-54 0.83623E-55 - 3 3 0.26880E-08 0.10000E+01 0.75673E+04 0.31991E-45 0.49527E-53 0.92556E-54 - 3 3 0.26880E-08 0.10000E+01 0.61026E+04 0.44505E-44 0.13226E-51 0.12299E-52 - 3 3 0.26880E-08 0.10000E+01 0.49215E+04 0.62286E-43 0.35315E-50 0.17134E-51 - 3 3 0.26880E-08 0.10000E+01 0.39689E+04 0.87253E-42 0.94513E-49 0.23924E-50 - 3 3 0.26880E-08 0.10000E+01 0.32008E+04 0.38523E-39 0.82060E-46 0.10485E-47 - 3 3 0.26880E-08 0.10000E+01 0.25813E+04 0.28251E-30 0.13844E-36 0.76195E-39 - 3 3 0.26880E-08 0.10000E+01 0.20817E+04 0.54056E-14 0.11838E-19 0.14454E-22 + 3 3 0.26880E-08 0.10000E+01 0.80645E+05 0.22514E-12 0.13108E-23 0.16205E-20 + 3 3 0.26880E-08 0.10000E+01 0.65036E+05 0.28754E-12 0.28856E-23 0.20723E-20 + 3 3 0.26880E-08 0.10000E+01 0.52449E+05 0.36128E-12 0.63074E-23 0.26087E-20 + 3 3 0.26880E-08 0.10000E+01 0.42297E+05 0.44795E-12 0.14378E-22 0.32415E-20 + 3 3 0.26880E-08 0.10000E+01 0.34111E+05 0.54961E-12 0.37389E-22 0.39812E-20 + 3 3 0.26880E-08 0.10000E+01 0.27509E+05 0.67053E-12 0.11928E-21 0.48390E-20 + 3 3 0.26880E-08 0.10000E+01 0.22184E+05 0.82186E-12 0.45635E-21 0.58375E-20 + 3 3 0.26880E-08 0.10000E+01 0.17891E+05 0.10330E-11 0.19316E-20 0.70420E-20 + 3 3 0.26880E-08 0.10000E+01 0.14428E+05 0.13783E-11 0.85207E-20 0.86350E-20 + 3 3 0.26880E-08 0.10000E+01 0.11635E+05 0.20381E-11 0.38149E-19 0.11089E-19 + 3 3 0.26880E-08 0.10000E+01 0.93834E+04 0.34444E-11 0.17174E-18 0.15560E-19 + 3 3 0.26880E-08 0.10000E+01 0.75673E+04 0.66235E-11 0.77343E-18 0.24814E-19 + 3 3 0.26880E-08 0.10000E+01 0.61026E+04 0.14003E-10 0.34589E-17 0.45374E-19 + 3 3 0.26880E-08 0.10000E+01 0.49215E+04 0.31275E-10 0.15222E-16 0.92464E-19 + 3 3 0.26880E-08 0.10000E+01 0.39689E+04 0.71538E-10 0.65495E-16 0.20098E-18 + 3 3 0.26880E-08 0.10000E+01 0.32008E+04 0.16418E-09 0.27508E-15 0.44902E-18 + 3 3 0.26880E-08 0.10000E+01 0.25813E+04 0.37344E-09 0.11278E-14 0.10069E-17 + 3 3 0.26880E-08 0.10000E+01 0.20817E+04 0.83614E-09 0.45074E-14 0.22367E-17 3 3 0.26880E-08 0.10000E+01 0.16788E+04 0.18361E-08 0.17546E-13 0.48894E-17 3 3 0.26880E-08 0.10000E+01 0.13538E+04 0.39459E-08 0.66668E-13 0.10479E-16 3 3 0.26880E-08 0.10000E+01 0.10918E+04 0.82926E-08 0.24857E-12 0.21981E-16 @@ -16420,24 +16420,24 @@ VERSION 2.8.2 3 3 0.26880E-08 0.10000E+01 0.24221E+03 0.82477E-06 0.76061E-09 0.21757E-14 3 3 0.26880E-08 0.10000E+01 0.19533E+03 0.12997E-05 0.14454E-08 0.34280E-14 3 3 0.26880E-08 0.10000E+01 0.15752E+03 0.12997E-05 0.14454E-08 0.34280E-14 - 3 3 0.46905E-08 0.10000E+01 0.80645E+05 0.65298E-55 0.48674E-66 0.23367E-62 - 3 3 0.46905E-08 0.10000E+01 0.65036E+05 0.55075E-54 0.77101E-65 0.19749E-61 - 3 3 0.46905E-08 0.10000E+01 0.52449E+05 0.46668E-53 0.10281E-63 0.16766E-60 - 3 3 0.46905E-08 0.10000E+01 0.42297E+05 0.34893E-52 0.13774E-62 0.12580E-59 - 3 3 0.46905E-08 0.10000E+01 0.34111E+05 0.24872E-51 0.18483E-61 0.90258E-59 - 3 3 0.46905E-08 0.10000E+01 0.27509E+05 0.17511E-50 0.24204E-60 0.64215E-58 - 3 3 0.46905E-08 0.10000E+01 0.22184E+05 0.12117E-49 0.31006E-59 0.45038E-57 - 3 3 0.46905E-08 0.10000E+01 0.17891E+05 0.82305E-49 0.40250E-58 0.30797E-56 - 3 3 0.46905E-08 0.10000E+01 0.14428E+05 0.56244E-48 0.57172E-57 0.20415E-55 - 3 3 0.46905E-08 0.10000E+01 0.11635E+05 0.41138E-47 0.97120E-56 0.13131E-54 - 3 3 0.46905E-08 0.10000E+01 0.93834E+04 0.35126E-46 0.20361E-54 0.82551E-54 - 3 3 0.46905E-08 0.10000E+01 0.75673E+04 0.36843E-45 0.49838E-53 0.52162E-53 - 3 3 0.46905E-08 0.10000E+01 0.61026E+04 0.45781E-44 0.13129E-51 0.36510E-52 - 3 3 0.46905E-08 0.10000E+01 0.49215E+04 0.62238E-43 0.35338E-50 0.33371E-51 - 3 3 0.46905E-08 0.10000E+01 0.39689E+04 0.87348E-42 0.95317E-49 0.40684E-50 - 3 3 0.46905E-08 0.10000E+01 0.32008E+04 0.38817E-39 0.83040E-46 0.17798E-47 - 3 3 0.46905E-08 0.10000E+01 0.25813E+04 0.28558E-30 0.14005E-36 0.13136E-38 - 3 3 0.46905E-08 0.10000E+01 0.20817E+04 0.54634E-14 0.11937E-19 0.25086E-22 + 3 3 0.46905E-08 0.10000E+01 0.80645E+05 0.44209E-12 0.27155E-23 0.15807E-19 + 3 3 0.46905E-08 0.10000E+01 0.65036E+05 0.56621E-12 0.61668E-23 0.20264E-19 + 3 3 0.46905E-08 0.10000E+01 0.52449E+05 0.71453E-12 0.13860E-22 0.25610E-19 + 3 3 0.46905E-08 0.10000E+01 0.42297E+05 0.89151E-12 0.31278E-22 0.32011E-19 + 3 3 0.46905E-08 0.10000E+01 0.34111E+05 0.11023E-11 0.73499E-22 0.39642E-19 + 3 3 0.46905E-08 0.10000E+01 0.27509E+05 0.13538E-11 0.19139E-21 0.48664E-19 + 3 3 0.46905E-08 0.10000E+01 0.22184E+05 0.16586E-11 0.58782E-21 0.59219E-19 + 3 3 0.46905E-08 0.10000E+01 0.17891E+05 0.20454E-11 0.21471E-20 0.71434E-19 + 3 3 0.46905E-08 0.10000E+01 0.14428E+05 0.25843E-11 0.88505E-20 0.85506E-19 + 3 3 0.46905E-08 0.10000E+01 0.11635E+05 0.34497E-11 0.38752E-19 0.10196E-18 + 3 3 0.46905E-08 0.10000E+01 0.93834E+04 0.50673E-11 0.17365E-18 0.12237E-18 + 3 3 0.46905E-08 0.10000E+01 0.75673E+04 0.84646E-11 0.78186E-18 0.15098E-18 + 3 3 0.46905E-08 0.10000E+01 0.61026E+04 0.16090E-10 0.34966E-17 0.19859E-18 + 3 3 0.46905E-08 0.10000E+01 0.49215E+04 0.33694E-10 0.15379E-16 0.29109E-18 + 3 3 0.46905E-08 0.10000E+01 0.39689E+04 0.74510E-10 0.66113E-16 0.48823E-18 + 3 3 0.46905E-08 0.10000E+01 0.32008E+04 0.16820E-09 0.27741E-15 0.92321E-18 + 3 3 0.46905E-08 0.10000E+01 0.25813E+04 0.37953E-09 0.11363E-14 0.18848E-17 + 3 3 0.46905E-08 0.10000E+01 0.20817E+04 0.84630E-09 0.45384E-14 0.39836E-17 3 3 0.46905E-08 0.10000E+01 0.16788E+04 0.18542E-08 0.17657E-13 0.84794E-17 3 3 0.46905E-08 0.10000E+01 0.13538E+04 0.39793E-08 0.67066E-13 0.17903E-16 3 3 0.46905E-08 0.10000E+01 0.10918E+04 0.83548E-08 0.25000E-12 0.37214E-16 @@ -16450,24 +16450,24 @@ VERSION 2.8.2 3 3 0.46905E-08 0.10000E+01 0.24221E+03 0.82935E-06 0.76474E-09 0.36070E-14 3 3 0.46905E-08 0.10000E+01 0.19533E+03 0.13069E-05 0.14532E-08 0.56793E-14 3 3 0.46905E-08 0.10000E+01 0.15752E+03 0.13069E-05 0.14532E-08 0.56793E-14 - 3 3 0.81846E-08 0.10000E+01 0.80645E+05 0.11807E-54 0.88110E-66 0.65814E-62 - 3 3 0.81846E-08 0.10000E+01 0.65036E+05 0.99676E-54 0.13968E-64 0.55661E-61 - 3 3 0.81846E-08 0.10000E+01 0.52449E+05 0.84534E-53 0.18663E-63 0.47282E-60 - 3 3 0.81846E-08 0.10000E+01 0.42297E+05 0.63309E-52 0.25093E-62 0.35518E-59 - 3 3 0.81846E-08 0.10000E+01 0.34111E+05 0.45262E-51 0.33857E-61 0.25534E-58 - 3 3 0.81846E-08 0.10000E+01 0.27509E+05 0.32019E-50 0.44647E-60 0.18229E-57 - 3 3 0.81846E-08 0.10000E+01 0.22184E+05 0.22286E-49 0.57277E-59 0.12859E-56 - 3 3 0.81846E-08 0.10000E+01 0.17891E+05 0.15163E-48 0.72568E-58 0.88756E-56 - 3 3 0.81846E-08 0.10000E+01 0.14428E+05 0.10173E-47 0.94921E-57 0.59651E-55 - 3 3 0.81846E-08 0.10000E+01 0.11635E+05 0.69597E-47 0.13797E-55 0.39027E-54 - 3 3 0.81846E-08 0.10000E+01 0.93834E+04 0.51792E-46 0.24193E-54 0.24868E-53 - 3 3 0.81846E-08 0.10000E+01 0.75673E+04 0.45579E-45 0.52481E-53 0.15498E-52 - 3 3 0.81846E-08 0.10000E+01 0.61026E+04 0.49508E-44 0.13178E-51 0.98560E-52 - 3 3 0.81846E-08 0.10000E+01 0.49215E+04 0.63211E-43 0.35129E-50 0.73861E-51 - 3 3 0.81846E-08 0.10000E+01 0.39689E+04 0.87129E-42 0.94806E-49 0.76422E-50 - 3 3 0.81846E-08 0.10000E+01 0.32008E+04 0.38630E-39 0.82650E-46 0.31782E-47 - 3 3 0.81846E-08 0.10000E+01 0.25813E+04 0.28422E-30 0.13926E-36 0.23405E-38 - 3 3 0.81846E-08 0.10000E+01 0.20817E+04 0.54354E-14 0.11836E-19 0.44835E-22 + 3 3 0.81846E-08 0.10000E+01 0.80645E+05 0.79902E-12 0.49470E-23 0.44506E-19 + 3 3 0.81846E-08 0.10000E+01 0.65036E+05 0.10238E-11 0.11265E-22 0.57078E-19 + 3 3 0.81846E-08 0.10000E+01 0.52449E+05 0.12929E-11 0.25289E-22 0.72172E-19 + 3 3 0.81846E-08 0.10000E+01 0.42297E+05 0.16143E-11 0.56253E-22 0.90286E-19 + 3 3 0.81846E-08 0.10000E+01 0.34111E+05 0.19972E-11 0.12631E-21 0.11195E-18 + 3 3 0.81846E-08 0.10000E+01 0.27509E+05 0.24515E-11 0.29831E-21 0.13767E-18 + 3 3 0.81846E-08 0.10000E+01 0.22184E+05 0.29917E-11 0.79195E-21 0.16791E-18 + 3 3 0.81846E-08 0.10000E+01 0.17891E+05 0.36462E-11 0.25067E-20 0.20306E-18 + 3 3 0.81846E-08 0.10000E+01 0.14428E+05 0.44813E-11 0.94152E-20 0.24349E-18 + 3 3 0.81846E-08 0.10000E+01 0.11635E+05 0.56637E-11 0.39477E-19 0.29000E-18 + 3 3 0.81846E-08 0.10000E+01 0.93834E+04 0.76072E-11 0.17406E-18 0.34496E-18 + 3 3 0.81846E-08 0.10000E+01 0.75673E+04 0.11323E-10 0.77948E-18 0.41533E-18 + 3 3 0.81846E-08 0.10000E+01 0.61026E+04 0.19234E-10 0.34787E-17 0.51956E-18 + 3 3 0.81846E-08 0.10000E+01 0.49215E+04 0.37051E-10 0.15282E-16 0.70286E-18 + 3 3 0.81846E-08 0.10000E+01 0.39689E+04 0.77911E-10 0.65628E-16 0.10701E-17 + 3 3 0.81846E-08 0.10000E+01 0.32008E+04 0.17125E-09 0.27513E-15 0.18548E-17 + 3 3 0.81846E-08 0.10000E+01 0.25813E+04 0.38127E-09 0.11262E-14 0.35608E-17 + 3 3 0.81846E-08 0.10000E+01 0.20817E+04 0.84450E-09 0.44954E-14 0.72487E-17 3 3 0.81846E-08 0.10000E+01 0.16788E+04 0.18438E-08 0.17482E-13 0.15098E-16 3 3 0.81846E-08 0.10000E+01 0.13538E+04 0.39495E-08 0.66373E-13 0.31472E-16 3 3 0.81846E-08 0.10000E+01 0.10918E+04 0.82827E-08 0.24732E-12 0.64907E-16 @@ -16480,24 +16480,24 @@ VERSION 2.8.2 3 3 0.81846E-08 0.10000E+01 0.24221E+03 0.81992E-06 0.75575E-09 0.61849E-14 3 3 0.81846E-08 0.10000E+01 0.19533E+03 0.12919E-05 0.14361E-08 0.97339E-14 3 3 0.81846E-08 0.10000E+01 0.15752E+03 0.12919E-05 0.14361E-08 0.97339E-14 - 3 3 0.14282E-07 0.10000E+01 0.80645E+05 0.21296E-54 0.15909E-65 0.19097E-61 - 3 3 0.14282E-07 0.10000E+01 0.65036E+05 0.17994E-53 0.25238E-64 0.16160E-60 - 3 3 0.14282E-07 0.10000E+01 0.52449E+05 0.15272E-52 0.33783E-63 0.13734E-59 - 3 3 0.14282E-07 0.10000E+01 0.42297E+05 0.11455E-51 0.45563E-62 0.10326E-58 - 3 3 0.14282E-07 0.10000E+01 0.34111E+05 0.82112E-51 0.61788E-61 0.74357E-58 - 3 3 0.14282E-07 0.10000E+01 0.27509E+05 0.58344E-50 0.82090E-60 0.53227E-57 - 3 3 0.14282E-07 0.10000E+01 0.22184E+05 0.40869E-49 0.10610E-58 0.37716E-56 - 3 3 0.14282E-07 0.10000E+01 0.17891E+05 0.27987E-48 0.13412E-57 0.26224E-55 - 3 3 0.14282E-07 0.10000E+01 0.14428E+05 0.18762E-47 0.16963E-56 0.17819E-54 - 3 3 0.14282E-07 0.10000E+01 0.11635E+05 0.12511E-46 0.22388E-55 0.11829E-53 - 3 3 0.14282E-07 0.10000E+01 0.93834E+04 0.85969E-46 0.33127E-54 0.76586E-53 - 3 3 0.14282E-07 0.10000E+01 0.75673E+04 0.64989E-45 0.60134E-53 0.48079E-52 - 3 3 0.14282E-07 0.10000E+01 0.61026E+04 0.59079E-44 0.13620E-51 0.29477E-51 - 3 3 0.14282E-07 0.10000E+01 0.49215E+04 0.66914E-43 0.35193E-50 0.19129E-50 - 3 3 0.14282E-07 0.10000E+01 0.39689E+04 0.88069E-42 0.94742E-49 0.16043E-49 - 3 3 0.14282E-07 0.10000E+01 0.32008E+04 0.38689E-39 0.82725E-46 0.59723E-47 - 3 3 0.14282E-07 0.10000E+01 0.25813E+04 0.28459E-30 0.13926E-36 0.43148E-38 - 3 3 0.14282E-07 0.10000E+01 0.20817E+04 0.54427E-14 0.11776E-19 0.82805E-22 + 3 3 0.14282E-07 0.10000E+01 0.80645E+05 0.14407E-11 0.89866E-23 0.12911E-18 + 3 3 0.14282E-07 0.10000E+01 0.65036E+05 0.18468E-11 0.20542E-22 0.16563E-18 + 3 3 0.14282E-07 0.10000E+01 0.52449E+05 0.23335E-11 0.46255E-22 0.20952E-18 + 3 3 0.14282E-07 0.10000E+01 0.42297E+05 0.29163E-11 0.10267E-21 0.26228E-18 + 3 3 0.14282E-07 0.10000E+01 0.34111E+05 0.36116E-11 0.22638E-21 0.32553E-18 + 3 3 0.14282E-07 0.10000E+01 0.27509E+05 0.44365E-11 0.50671E-21 0.40091E-18 + 3 3 0.14282E-07 0.10000E+01 0.22184E+05 0.54111E-11 0.12059E-20 0.48995E-18 + 3 3 0.14282E-07 0.10000E+01 0.17891E+05 0.65657E-11 0.32784E-20 0.59394E-18 + 3 3 0.14282E-07 0.10000E+01 0.14428E+05 0.79639E-11 0.10745E-19 0.71392E-18 + 3 3 0.14282E-07 0.10000E+01 0.11635E+05 0.97626E-11 0.41584E-19 0.85114E-18 + 3 3 0.14282E-07 0.10000E+01 0.93834E+04 0.12359E-10 0.17718E-18 0.10091E-17 + 3 3 0.14282E-07 0.10000E+01 0.75673E+04 0.16743E-10 0.78385E-18 0.11990E-17 + 3 3 0.14282E-07 0.10000E+01 0.61026E+04 0.25317E-10 0.34826E-17 0.14522E-17 + 3 3 0.14282E-07 0.10000E+01 0.49215E+04 0.43766E-10 0.15263E-16 0.18487E-17 + 3 3 0.14282E-07 0.10000E+01 0.39689E+04 0.85188E-10 0.65424E-16 0.25755E-17 + 3 3 0.14282E-07 0.10000E+01 0.32008E+04 0.17890E-09 0.27383E-15 0.40480E-17 + 3 3 0.14282E-07 0.10000E+01 0.25813E+04 0.38875E-09 0.11193E-14 0.71563E-17 + 3 3 0.14282E-07 0.10000E+01 0.20817E+04 0.85036E-09 0.44629E-14 0.13759E-16 3 3 0.14282E-07 0.10000E+01 0.16788E+04 0.18444E-08 0.17340E-13 0.27649E-16 3 3 0.14282E-07 0.10000E+01 0.13538E+04 0.39362E-08 0.65783E-13 0.56382E-16 3 3 0.14282E-07 0.10000E+01 0.10918E+04 0.82364E-08 0.24497E-12 0.11467E-15 @@ -16510,24 +16510,24 @@ VERSION 2.8.2 3 3 0.14282E-07 0.10000E+01 0.24221E+03 0.81128E-06 0.74732E-09 0.10605E-13 3 3 0.14282E-07 0.10000E+01 0.19533E+03 0.12781E-05 0.14200E-08 0.16677E-13 3 3 0.14282E-07 0.10000E+01 0.15752E+03 0.12781E-05 0.14200E-08 0.16677E-13 - 3 3 0.24920E-07 0.10000E+01 0.80645E+05 0.38346E-54 0.28673E-65 0.57083E-61 - 3 3 0.24920E-07 0.10000E+01 0.65036E+05 0.32424E-53 0.45513E-64 0.48325E-60 - 3 3 0.24920E-07 0.10000E+01 0.52449E+05 0.27538E-52 0.61015E-63 0.41086E-59 - 3 3 0.24920E-07 0.10000E+01 0.42297E+05 0.20680E-51 0.82508E-62 0.30914E-58 - 3 3 0.24920E-07 0.10000E+01 0.34111E+05 0.14858E-50 0.11236E-60 0.22289E-57 - 3 3 0.24920E-07 0.10000E+01 0.27509E+05 0.10596E-49 0.15028E-59 0.15989E-56 - 3 3 0.24920E-07 0.10000E+01 0.22184E+05 0.74654E-49 0.19593E-58 0.11369E-55 - 3 3 0.24920E-07 0.10000E+01 0.17891E+05 0.51509E-48 0.24930E-57 0.79495E-55 - 3 3 0.24920E-07 0.10000E+01 0.14428E+05 0.34745E-47 0.31319E-56 0.54471E-54 - 3 3 0.24920E-07 0.10000E+01 0.11635E+05 0.23077E-46 0.39586E-55 0.36577E-53 - 3 3 0.24920E-07 0.10000E+01 0.93834E+04 0.15332E-45 0.52263E-54 0.24020E-52 - 3 3 0.24920E-07 0.10000E+01 0.75673E+04 0.10538E-44 0.78606E-53 0.15291E-51 - 3 3 0.24920E-07 0.10000E+01 0.61026E+04 0.80819E-44 0.14992E-51 0.93492E-51 - 3 3 0.24920E-07 0.10000E+01 0.49215E+04 0.76691E-43 0.35840E-50 0.56458E-50 - 3 3 0.24920E-07 0.10000E+01 0.39689E+04 0.91483E-42 0.95065E-49 0.39197E-49 - 3 3 0.24920E-07 0.10000E+01 0.32008E+04 0.39073E-39 0.83111E-46 0.12279E-46 - 3 3 0.24920E-07 0.10000E+01 0.25813E+04 0.28653E-30 0.13974E-36 0.84297E-38 - 3 3 0.24920E-07 0.10000E+01 0.20817E+04 0.54818E-14 0.11711E-19 0.16143E-21 + 3 3 0.24920E-07 0.10000E+01 0.80645E+05 0.25933E-11 0.16282E-22 0.38585E-18 + 3 3 0.24920E-07 0.10000E+01 0.65036E+05 0.33255E-11 0.37355E-22 0.49507E-18 + 3 3 0.24920E-07 0.10000E+01 0.52449E+05 0.42044E-11 0.84486E-22 0.62648E-18 + 3 3 0.24920E-07 0.10000E+01 0.42297E+05 0.52587E-11 0.18810E-21 0.78466E-18 + 3 3 0.24920E-07 0.10000E+01 0.34111E+05 0.65196E-11 0.41322E-21 0.97466E-18 + 3 3 0.24920E-07 0.10000E+01 0.27509E+05 0.80185E-11 0.90399E-21 0.12018E-17 + 3 3 0.24920E-07 0.10000E+01 0.22184E+05 0.97884E-11 0.20183E-20 0.14711E-17 + 3 3 0.24920E-07 0.10000E+01 0.17891E+05 0.11868E-10 0.48528E-20 0.17871E-17 + 3 3 0.24920E-07 0.10000E+01 0.14428E+05 0.14321E-10 0.13597E-19 0.21532E-17 + 3 3 0.24920E-07 0.10000E+01 0.11635E+05 0.17294E-10 0.46400E-19 0.25722E-17 + 3 3 0.24920E-07 0.10000E+01 0.93834E+04 0.21160E-10 0.18500E-18 0.30490E-17 + 3 3 0.24920E-07 0.10000E+01 0.75673E+04 0.26875E-10 0.79696E-18 0.36010E-17 + 3 3 0.24920E-07 0.10000E+01 0.61026E+04 0.36804E-10 0.35057E-17 0.42822E-17 + 3 3 0.24920E-07 0.10000E+01 0.49215E+04 0.56607E-10 0.15289E-16 0.52363E-17 + 3 3 0.24920E-07 0.10000E+01 0.39689E+04 0.99345E-10 0.65301E-16 0.68055E-17 + 3 3 0.24920E-07 0.10000E+01 0.32008E+04 0.19422E-09 0.27247E-15 0.97482E-17 + 3 3 0.24920E-07 0.10000E+01 0.25813E+04 0.40469E-09 0.11108E-14 0.15672E-16 + 3 3 0.24920E-07 0.10000E+01 0.20817E+04 0.86517E-09 0.44197E-14 0.27889E-16 3 3 0.24920E-07 0.10000E+01 0.16788E+04 0.18533E-08 0.17143E-13 0.53082E-16 3 3 0.24920E-07 0.10000E+01 0.13538E+04 0.39274E-08 0.64944E-13 0.10444E-15 3 3 0.24920E-07 0.10000E+01 0.10918E+04 0.81830E-08 0.24157E-12 0.20745E-15 @@ -16540,24 +16540,24 @@ VERSION 2.8.2 3 3 0.24920E-07 0.10000E+01 0.24221E+03 0.79867E-06 0.73494E-09 0.18213E-13 3 3 0.24920E-07 0.10000E+01 0.19533E+03 0.12579E-05 0.13965E-08 0.28602E-13 3 3 0.24920E-07 0.10000E+01 0.15752E+03 0.12579E-05 0.13965E-08 0.28602E-13 - 3 3 0.43485E-07 0.10000E+01 0.80645E+05 0.68905E-54 0.51560E-65 0.17351E-60 - 3 3 0.43485E-07 0.10000E+01 0.65036E+05 0.58299E-53 0.81884E-64 0.14694E-59 - 3 3 0.43485E-07 0.10000E+01 0.52449E+05 0.49541E-52 0.10991E-62 0.12497E-58 - 3 3 0.43485E-07 0.10000E+01 0.42297E+05 0.37240E-51 0.14893E-61 0.94080E-58 - 3 3 0.43485E-07 0.10000E+01 0.34111E+05 0.26803E-50 0.20351E-60 0.67900E-57 - 3 3 0.43485E-07 0.10000E+01 0.27509E+05 0.19173E-49 0.27366E-59 0.48788E-56 - 3 3 0.43485E-07 0.10000E+01 0.22184E+05 0.13571E-48 0.35959E-58 0.34784E-55 - 3 3 0.43485E-07 0.10000E+01 0.17891E+05 0.94274E-48 0.46159E-57 0.24426E-54 - 3 3 0.43485E-07 0.10000E+01 0.14428E+05 0.64091E-47 0.58251E-56 0.16843E-53 - 3 3 0.43485E-07 0.10000E+01 0.11635E+05 0.42777E-46 0.72774E-55 0.11407E-52 - 3 3 0.43485E-07 0.10000E+01 0.93834E+04 0.28198E-45 0.91020E-54 0.75757E-52 - 3 3 0.43485E-07 0.10000E+01 0.75673E+04 0.18567E-44 0.11944E-52 0.48895E-51 - 3 3 0.43485E-07 0.10000E+01 0.61026E+04 0.12703E-43 0.18593E-51 0.30213E-50 - 3 3 0.43485E-07 0.10000E+01 0.49215E+04 0.10004E-42 0.38398E-50 0.17854E-49 - 3 3 0.43485E-07 0.10000E+01 0.39689E+04 0.10164E-41 0.97343E-49 0.10990E-48 - 3 3 0.43485E-07 0.10000E+01 0.32008E+04 0.40621E-39 0.84811E-46 0.28455E-46 - 3 3 0.43485E-07 0.10000E+01 0.25813E+04 0.29428E-30 0.14230E-36 0.17857E-37 - 3 3 0.43485E-07 0.10000E+01 0.20817E+04 0.56303E-14 0.11738E-19 0.33896E-21 + 3 3 0.43485E-07 0.10000E+01 0.80645E+05 0.46587E-11 0.29403E-22 0.11726E-17 + 3 3 0.43485E-07 0.10000E+01 0.65036E+05 0.59759E-11 0.67676E-22 0.15048E-17 + 3 3 0.43485E-07 0.10000E+01 0.52449E+05 0.75587E-11 0.15372E-21 0.19048E-17 + 3 3 0.43485E-07 0.10000E+01 0.42297E+05 0.94607E-11 0.34383E-21 0.23867E-17 + 3 3 0.43485E-07 0.10000E+01 0.34111E+05 0.11740E-10 0.75727E-21 0.29665E-17 + 3 3 0.43485E-07 0.10000E+01 0.27509E+05 0.14458E-10 0.16469E-20 0.36611E-17 + 3 3 0.43485E-07 0.10000E+01 0.22184E+05 0.17673E-10 0.35727E-20 0.44873E-17 + 3 3 0.43485E-07 0.10000E+01 0.17891E+05 0.21446E-10 0.79659E-20 0.54606E-17 + 3 3 0.43485E-07 0.10000E+01 0.14428E+05 0.25851E-10 0.19500E-19 0.65932E-17 + 3 3 0.43485E-07 0.10000E+01 0.11635E+05 0.31028E-10 0.57050E-19 0.78932E-17 + 3 3 0.43485E-07 0.10000E+01 0.93834E+04 0.37320E-10 0.20414E-18 0.93683E-17 + 3 3 0.43485E-07 0.10000E+01 0.75673E+04 0.45640E-10 0.83505E-18 0.11045E-16 + 3 3 0.43485E-07 0.10000E+01 0.61026E+04 0.58319E-10 0.35970E-17 0.13015E-16 + 3 3 0.43485E-07 0.10000E+01 0.49215E+04 0.81023E-10 0.15533E-16 0.15545E-16 + 3 3 0.43485E-07 0.10000E+01 0.39689E+04 0.12690E-09 0.65901E-16 0.19285E-16 + 3 3 0.43485E-07 0.10000E+01 0.32008E+04 0.22529E-09 0.27342E-15 0.25673E-16 + 3 3 0.43485E-07 0.10000E+01 0.25813E+04 0.43972E-09 0.11094E-14 0.37713E-16 + 3 3 0.43485E-07 0.10000E+01 0.20817E+04 0.90411E-09 0.43968E-14 0.61478E-16 3 3 0.43485E-07 0.10000E+01 0.16788E+04 0.18941E-08 0.17001E-13 0.10899E-15 3 3 0.43485E-07 0.10000E+01 0.13538E+04 0.39623E-08 0.64246E-13 0.20363E-15 3 3 0.43485E-07 0.10000E+01 0.10918E+04 0.81909E-08 0.23850E-12 0.39002E-15 @@ -16570,24 +16570,24 @@ VERSION 2.8.2 3 3 0.43485E-07 0.10000E+01 0.24221E+03 0.78635E-06 0.72234E-09 0.31425E-13 3 3 0.43485E-07 0.10000E+01 0.19533E+03 0.12380E-05 0.13724E-08 0.49235E-13 3 3 0.43485E-07 0.10000E+01 0.15752E+03 0.12380E-05 0.13724E-08 0.49235E-13 - 3 3 0.75878E-07 0.10000E+01 0.80645E+05 0.12353E-53 0.92490E-65 0.53186E-60 - 3 3 0.75878E-07 0.10000E+01 0.65036E+05 0.10457E-52 0.14694E-63 0.45054E-59 - 3 3 0.75878E-07 0.10000E+01 0.52449E+05 0.88895E-52 0.19741E-62 0.38327E-58 - 3 3 0.75878E-07 0.10000E+01 0.42297E+05 0.66874E-51 0.26795E-61 0.28867E-57 - 3 3 0.75878E-07 0.10000E+01 0.34111E+05 0.48201E-50 0.36709E-60 0.20850E-56 - 3 3 0.75878E-07 0.10000E+01 0.27509E+05 0.34558E-49 0.49573E-59 0.15001E-55 - 3 3 0.75878E-07 0.10000E+01 0.22184E+05 0.24552E-48 0.65560E-58 0.10717E-54 - 3 3 0.75878E-07 0.10000E+01 0.17891E+05 0.17151E-47 0.84850E-57 0.75505E-54 - 3 3 0.75878E-07 0.10000E+01 0.14428E+05 0.11744E-46 0.10791E-55 0.52314E-53 - 3 3 0.75878E-07 0.10000E+01 0.11635E+05 0.78959E-46 0.13510E-54 0.35662E-52 - 3 3 0.75878E-07 0.10000E+01 0.93834E+04 0.52205E-45 0.16611E-53 0.23886E-51 - 3 3 0.75878E-07 0.10000E+01 0.75673E+04 0.33946E-44 0.20316E-52 0.15593E-50 - 3 3 0.75878E-07 0.10000E+01 0.61026E+04 0.21959E-43 0.26761E-51 0.97643E-50 - 3 3 0.75878E-07 0.10000E+01 0.49215E+04 0.15039E-42 0.45210E-50 0.57824E-49 - 3 3 0.75878E-07 0.10000E+01 0.39689E+04 0.12603E-41 0.10387E-48 0.33602E-48 - 3 3 0.75878E-07 0.10000E+01 0.32008E+04 0.44639E-39 0.88940E-46 0.74334E-46 - 3 3 0.75878E-07 0.10000E+01 0.25813E+04 0.31323E-30 0.14852E-36 0.41530E-37 - 3 3 0.75878E-07 0.10000E+01 0.20817E+04 0.59832E-14 0.11940E-19 0.77571E-21 + 3 3 0.75878E-07 0.10000E+01 0.80645E+05 0.83503E-11 0.52921E-22 0.35940E-17 + 3 3 0.75878E-07 0.10000E+01 0.65036E+05 0.10714E-10 0.12212E-21 0.46128E-17 + 3 3 0.75878E-07 0.10000E+01 0.52449E+05 0.13556E-10 0.27839E-21 0.58400E-17 + 3 3 0.75878E-07 0.10000E+01 0.42297E+05 0.16977E-10 0.62555E-21 0.73199E-17 + 3 3 0.75878E-07 0.10000E+01 0.34111E+05 0.21085E-10 0.13840E-20 0.91026E-17 + 3 3 0.75878E-07 0.10000E+01 0.27509E+05 0.25994E-10 0.30147E-20 0.11242E-16 + 3 3 0.75878E-07 0.10000E+01 0.22184E+05 0.31817E-10 0.64809E-20 0.13793E-16 + 3 3 0.75878E-07 0.10000E+01 0.17891E+05 0.38662E-10 0.13928E-19 0.16808E-16 + 3 3 0.75878E-07 0.10000E+01 0.14428E+05 0.46637E-10 0.31175E-19 0.20330E-16 + 3 3 0.75878E-07 0.10000E+01 0.11635E+05 0.55885E-10 0.78985E-19 0.24387E-16 + 3 3 0.75878E-07 0.10000E+01 0.93834E+04 0.66721E-10 0.24547E-18 0.28995E-16 + 3 3 0.75878E-07 0.10000E+01 0.75673E+04 0.80005E-10 0.92156E-18 0.34192E-16 + 3 3 0.75878E-07 0.10000E+01 0.61026E+04 0.98035E-10 0.38168E-17 0.40138E-16 + 3 3 0.75878E-07 0.10000E+01 0.49215E+04 0.12655E-09 0.16178E-16 0.47342E-16 + 3 3 0.75878E-07 0.10000E+01 0.39689E+04 0.17899E-09 0.67823E-16 0.57097E-16 + 3 3 0.75878E-07 0.10000E+01 0.32008E+04 0.28530E-09 0.27867E-15 0.72274E-16 + 3 3 0.75878E-07 0.10000E+01 0.25813E+04 0.50989E-09 0.11213E-14 0.98765E-16 + 3 3 0.75878E-07 0.10000E+01 0.20817E+04 0.98758E-09 0.44135E-14 0.14818E-15 3 3 0.75878E-07 0.10000E+01 0.16788E+04 0.19940E-08 0.16972E-13 0.24289E-15 3 3 0.75878E-07 0.10000E+01 0.13538E+04 0.40792E-08 0.63860E-13 0.42536E-15 3 3 0.75878E-07 0.10000E+01 0.10918E+04 0.83154E-08 0.23627E-12 0.77518E-15 @@ -16600,24 +16600,24 @@ VERSION 2.8.2 3 3 0.75878E-07 0.10000E+01 0.24221E+03 0.77542E-06 0.71022E-09 0.54705E-13 3 3 0.75878E-07 0.10000E+01 0.19533E+03 0.12198E-05 0.13493E-08 0.85374E-13 3 3 0.75878E-07 0.10000E+01 0.15752E+03 0.12198E-05 0.13493E-08 0.85374E-13 - 3 3 0.13240E-06 0.10000E+01 0.80645E+05 0.22097E-53 0.16552E-64 0.16443E-59 - 3 3 0.13240E-06 0.10000E+01 0.65036E+05 0.18712E-52 0.26305E-63 0.13932E-58 - 3 3 0.13240E-06 0.10000E+01 0.52449E+05 0.15913E-51 0.35367E-62 0.11854E-57 - 3 3 0.13240E-06 0.10000E+01 0.42297E+05 0.11978E-50 0.48066E-61 0.89314E-57 - 3 3 0.13240E-06 0.10000E+01 0.34111E+05 0.86430E-50 0.65982E-60 0.64552E-56 - 3 3 0.13240E-06 0.10000E+01 0.27509E+05 0.62078E-49 0.89399E-59 0.46490E-55 - 3 3 0.13240E-06 0.10000E+01 0.22184E+05 0.44233E-48 0.11884E-57 0.33269E-54 - 3 3 0.13240E-06 0.10000E+01 0.17891E+05 0.31036E-47 0.15487E-56 0.23500E-53 - 3 3 0.13240E-06 0.10000E+01 0.14428E+05 0.21382E-46 0.19850E-55 0.16343E-52 - 3 3 0.13240E-06 0.10000E+01 0.11635E+05 0.14478E-45 0.25015E-54 0.11197E-51 - 3 3 0.13240E-06 0.10000E+01 0.93834E+04 0.96344E-45 0.30756E-53 0.75493E-51 - 3 3 0.13240E-06 0.10000E+01 0.75673E+04 0.62714E-44 0.36668E-52 0.49729E-50 - 3 3 0.13240E-06 0.10000E+01 0.61026E+04 0.39786E-43 0.43733E-51 0.31523E-49 - 3 3 0.13240E-06 0.10000E+01 0.49215E+04 0.25198E-42 0.60554E-50 0.18865E-48 - 3 3 0.13240E-06 0.10000E+01 0.39689E+04 0.17826E-41 0.11847E-48 0.10746E-47 - 3 3 0.13240E-06 0.10000E+01 0.32008E+04 0.53354E-39 0.96912E-46 0.21377E-45 - 3 3 0.13240E-06 0.10000E+01 0.25813E+04 0.35130E-30 0.16018E-36 0.10600E-36 - 3 3 0.13240E-06 0.10000E+01 0.20817E+04 0.66727E-14 0.12375E-19 0.19370E-20 + 3 3 0.13240E-06 0.10000E+01 0.80645E+05 0.14934E-10 0.94958E-22 0.11110E-16 + 3 3 0.13240E-06 0.10000E+01 0.65036E+05 0.19165E-10 0.21957E-21 0.14261E-16 + 3 3 0.13240E-06 0.10000E+01 0.52449E+05 0.24256E-10 0.50204E-21 0.18058E-16 + 3 3 0.13240E-06 0.10000E+01 0.42297E+05 0.30391E-10 0.11326E-20 0.22640E-16 + 3 3 0.13240E-06 0.10000E+01 0.34111E+05 0.37769E-10 0.25176E-20 0.28165E-16 + 3 3 0.13240E-06 0.10000E+01 0.27509E+05 0.46605E-10 0.55069E-20 0.34804E-16 + 3 3 0.13240E-06 0.10000E+01 0.22184E+05 0.57115E-10 0.11839E-19 0.42737E-16 + 3 3 0.13240E-06 0.10000E+01 0.17891E+05 0.69502E-10 0.25092E-19 0.52135E-16 + 3 3 0.13240E-06 0.10000E+01 0.14428E+05 0.83950E-10 0.53508E-19 0.63151E-16 + 3 3 0.13240E-06 0.10000E+01 0.11635E+05 0.10064E-09 0.12196E-18 0.75887E-16 + 3 3 0.13240E-06 0.10000E+01 0.93834E+04 0.11986E-09 0.32789E-18 0.90390E-16 + 3 3 0.13240E-06 0.10000E+01 0.75673E+04 0.14240E-09 0.10939E-17 0.10671E-15 + 3 3 0.13240E-06 0.10000E+01 0.61026E+04 0.17052E-09 0.42481E-17 0.12512E-15 + 3 3 0.13240E-06 0.10000E+01 0.49215E+04 0.21010E-09 0.17440E-16 0.14665E-15 + 3 3 0.13240E-06 0.10000E+01 0.39689E+04 0.27514E-09 0.71671E-16 0.17401E-15 + 3 3 0.13240E-06 0.10000E+01 0.32008E+04 0.39680E-09 0.28982E-15 0.21330E-15 + 3 3 0.13240E-06 0.10000E+01 0.25813E+04 0.64145E-09 0.11502E-14 0.27684E-15 + 3 3 0.13240E-06 0.10000E+01 0.20817E+04 0.11464E-08 0.44750E-14 0.38811E-15 3 3 0.13240E-06 0.10000E+01 0.16788E+04 0.21895E-08 0.17048E-13 0.59084E-15 3 3 0.13240E-06 0.10000E+01 0.13538E+04 0.43197E-08 0.63671E-13 0.96528E-15 3 3 0.13240E-06 0.10000E+01 0.10918E+04 0.86011E-08 0.23422E-12 0.16575E-14 @@ -16630,24 +16630,24 @@ VERSION 2.8.2 3 3 0.13240E-06 0.10000E+01 0.24221E+03 0.76276E-06 0.69513E-09 0.96680E-13 3 3 0.13240E-06 0.10000E+01 0.19533E+03 0.11984E-05 0.13204E-08 0.14991E-12 3 3 0.13240E-06 0.10000E+01 0.15752E+03 0.11984E-05 0.13204E-08 0.14991E-12 - 3 3 0.23103E-06 0.10000E+01 0.80645E+05 0.39423E-53 0.29541E-64 0.50644E-59 - 3 3 0.23103E-06 0.10000E+01 0.65036E+05 0.33393E-52 0.46958E-63 0.42918E-58 - 3 3 0.23103E-06 0.10000E+01 0.52449E+05 0.28406E-51 0.63172E-62 0.36523E-57 - 3 3 0.23103E-06 0.10000E+01 0.42297E+05 0.21392E-50 0.85940E-61 0.27526E-56 - 3 3 0.23103E-06 0.10000E+01 0.34111E+05 0.15449E-49 0.11816E-59 0.19905E-55 - 3 3 0.23103E-06 0.10000E+01 0.27509E+05 0.11112E-48 0.16050E-58 0.14347E-54 - 3 3 0.23103E-06 0.10000E+01 0.22184E+05 0.79352E-48 0.21420E-57 0.10281E-53 - 3 3 0.23103E-06 0.10000E+01 0.17891E+05 0.55869E-47 0.28070E-56 0.72766E-53 - 3 3 0.23103E-06 0.10000E+01 0.14428E+05 0.38679E-46 0.36218E-55 0.50754E-52 - 3 3 0.23103E-06 0.10000E+01 0.11635E+05 0.26349E-45 0.45969E-54 0.34908E-51 - 3 3 0.23103E-06 0.10000E+01 0.93834E+04 0.17651E-44 0.56857E-53 0.23656E-50 - 3 3 0.23103E-06 0.10000E+01 0.75673E+04 0.11556E-43 0.67581E-52 0.15693E-49 - 3 3 0.23103E-06 0.10000E+01 0.61026E+04 0.73191E-43 0.77240E-51 0.10048E-48 - 3 3 0.23103E-06 0.10000E+01 0.49215E+04 0.44880E-42 0.92764E-50 0.60851E-48 - 3 3 0.23103E-06 0.10000E+01 0.39689E+04 0.28415E-41 0.14973E-48 0.34605E-47 - 3 3 0.23103E-06 0.10000E+01 0.32008E+04 0.71441E-39 0.11251E-45 0.64725E-45 - 3 3 0.23103E-06 0.10000E+01 0.25813E+04 0.42694E-30 0.18242E-36 0.28979E-36 - 3 3 0.23103E-06 0.10000E+01 0.20817E+04 0.80153E-14 0.13339E-19 0.51701E-20 + 3 3 0.23103E-06 0.10000E+01 0.80645E+05 0.26640E-10 0.16982E-21 0.34215E-16 + 3 3 0.23103E-06 0.10000E+01 0.65036E+05 0.34191E-10 0.39331E-21 0.43923E-16 + 3 3 0.23103E-06 0.10000E+01 0.52449E+05 0.43285E-10 0.90141E-21 0.55626E-16 + 3 3 0.23103E-06 0.10000E+01 0.42297E+05 0.54251E-10 0.20402E-20 0.69755E-16 + 3 3 0.23103E-06 0.10000E+01 0.34111E+05 0.67456E-10 0.45537E-20 0.86805E-16 + 3 3 0.23103E-06 0.10000E+01 0.27509E+05 0.83300E-10 0.10006E-19 0.10732E-15 + 3 3 0.23103E-06 0.10000E+01 0.22184E+05 0.10219E-09 0.21587E-19 0.13186E-15 + 3 3 0.23103E-06 0.10000E+01 0.17891E+05 0.12451E-09 0.45640E-19 0.16100E-15 + 3 3 0.23103E-06 0.10000E+01 0.14428E+05 0.15060E-09 0.95279E-19 0.19525E-15 + 3 3 0.23103E-06 0.10000E+01 0.11635E+05 0.18075E-09 0.20388E-18 0.23497E-15 + 3 3 0.23103E-06 0.10000E+01 0.93834E+04 0.21524E-09 0.48772E-18 0.28033E-15 + 3 3 0.23103E-06 0.10000E+01 0.75673E+04 0.25480E-09 0.14307E-17 0.33140E-15 + 3 3 0.23103E-06 0.10000E+01 0.61026E+04 0.30166E-09 0.50908E-17 0.38865E-15 + 3 3 0.23103E-06 0.10000E+01 0.49215E+04 0.36199E-09 0.19928E-16 0.45420E-15 + 3 3 0.23103E-06 0.10000E+01 0.39689E+04 0.45092E-09 0.79509E-16 0.53412E-15 + 3 3 0.23103E-06 0.10000E+01 0.32008E+04 0.60213E-09 0.31400E-15 0.64219E-15 + 3 3 0.23103E-06 0.10000E+01 0.25813E+04 0.88648E-09 0.12204E-14 0.80590E-15 + 3 3 0.23103E-06 0.10000E+01 0.20817E+04 0.14480E-08 0.46633E-14 0.10761E-14 3 3 0.23103E-06 0.10000E+01 0.16788E+04 0.25733E-08 0.17500E-13 0.15437E-14 3 3 0.23103E-06 0.10000E+01 0.13538E+04 0.48207E-08 0.64574E-13 0.23684E-14 3 3 0.23103E-06 0.10000E+01 0.10918E+04 0.92602E-08 0.23530E-12 0.38299E-14 @@ -16660,24 +16660,24 @@ VERSION 2.8.2 3 3 0.23103E-06 0.10000E+01 0.24221E+03 0.75661E-06 0.68373E-09 0.17495E-12 3 3 0.23103E-06 0.10000E+01 0.19533E+03 0.11862E-05 0.12984E-08 0.26851E-12 3 3 0.23103E-06 0.10000E+01 0.15752E+03 0.11862E-05 0.12984E-08 0.26851E-12 - 3 3 0.40314E-06 0.10000E+01 0.80645E+05 0.70114E-53 0.52555E-64 0.15497E-58 - 3 3 0.40314E-06 0.10000E+01 0.65036E+05 0.59405E-52 0.83556E-63 0.13135E-57 - 3 3 0.40314E-06 0.10000E+01 0.52449E+05 0.50543E-51 0.11246E-61 0.11179E-56 - 3 3 0.40314E-06 0.10000E+01 0.42297E+05 0.38078E-50 0.15311E-60 0.84272E-56 - 3 3 0.40314E-06 0.10000E+01 0.34111E+05 0.27518E-49 0.21078E-59 0.60965E-55 - 3 3 0.40314E-06 0.10000E+01 0.27509E+05 0.19814E-48 0.28688E-58 0.43972E-54 - 3 3 0.40314E-06 0.10000E+01 0.22184E+05 0.14175E-47 0.38407E-57 0.31542E-53 - 3 3 0.40314E-06 0.10000E+01 0.17891E+05 0.10007E-46 0.50553E-56 0.22362E-52 - 3 3 0.40314E-06 0.10000E+01 0.14428E+05 0.69552E-46 0.65586E-55 0.15633E-51 - 3 3 0.40314E-06 0.10000E+01 0.11635E+05 0.47617E-45 0.83783E-54 0.10786E-50 - 3 3 0.40314E-06 0.10000E+01 0.93834E+04 0.32089E-44 0.10439E-52 0.73382E-50 - 3 3 0.40314E-06 0.10000E+01 0.75673E+04 0.21150E-43 0.12478E-51 0.48945E-49 - 3 3 0.40314E-06 0.10000E+01 0.61026E+04 0.13464E-42 0.14101E-50 0.31591E-48 - 3 3 0.40314E-06 0.10000E+01 0.49215E+04 0.81894E-42 0.15640E-49 0.19338E-47 - 3 3 0.40314E-06 0.10000E+01 0.39689E+04 0.48900E-41 0.21141E-48 0.11058E-46 - 3 3 0.40314E-06 0.10000E+01 0.32008E+04 0.10659E-38 0.14047E-45 0.20011E-44 - 3 3 0.40314E-06 0.10000E+01 0.25813E+04 0.56655E-30 0.22069E-36 0.82800E-36 - 3 3 0.40314E-06 0.10000E+01 0.20817E+04 0.10442E-13 0.15063E-19 0.14434E-19 + 3 3 0.40314E-06 0.10000E+01 0.80645E+05 0.47375E-10 0.30261E-21 0.10469E-15 + 3 3 0.40314E-06 0.10000E+01 0.65036E+05 0.60810E-10 0.70175E-21 0.13441E-15 + 3 3 0.40314E-06 0.10000E+01 0.52449E+05 0.76998E-10 0.16113E-20 0.17023E-15 + 3 3 0.40314E-06 0.10000E+01 0.42297E+05 0.96530E-10 0.36566E-20 0.21351E-15 + 3 3 0.40314E-06 0.10000E+01 0.34111E+05 0.12008E-09 0.81896E-20 0.26576E-15 + 3 3 0.40314E-06 0.10000E+01 0.27509E+05 0.14837E-09 0.18071E-19 0.32869E-15 + 3 3 0.40314E-06 0.10000E+01 0.22184E+05 0.18216E-09 0.39159E-19 0.40407E-15 + 3 3 0.40314E-06 0.10000E+01 0.17891E+05 0.22219E-09 0.82984E-19 0.49372E-15 + 3 3 0.40314E-06 0.10000E+01 0.14428E+05 0.26911E-09 0.17203E-18 0.59930E-15 + 3 3 0.40314E-06 0.10000E+01 0.11635E+05 0.32342E-09 0.35617E-18 0.72208E-15 + 3 3 0.40314E-06 0.10000E+01 0.93834E+04 0.38548E-09 0.78660E-18 0.86269E-15 + 3 3 0.40314E-06 0.10000E+01 0.75673E+04 0.45593E-09 0.20547E-17 0.10212E-14 + 3 3 0.40314E-06 0.10000E+01 0.61026E+04 0.53694E-09 0.66159E-17 0.11985E-14 + 3 3 0.40314E-06 0.10000E+01 0.49215E+04 0.63521E-09 0.24347E-16 0.13990E-14 + 3 3 0.40314E-06 0.10000E+01 0.39689E+04 0.76771E-09 0.93382E-16 0.16371E-14 + 3 3 0.40314E-06 0.10000E+01 0.32008E+04 0.97248E-09 0.35723E-15 0.19457E-14 + 3 3 0.40314E-06 0.10000E+01 0.25813E+04 0.13283E-08 0.13486E-14 0.23903E-14 + 3 3 0.40314E-06 0.10000E+01 0.20817E+04 0.19918E-08 0.50188E-14 0.30887E-14 3 3 0.40314E-06 0.10000E+01 0.16788E+04 0.32665E-08 0.18407E-13 0.42431E-14 3 3 0.40314E-06 0.10000E+01 0.13538E+04 0.57313E-08 0.66643E-13 0.61928E-14 3 3 0.40314E-06 0.10000E+01 0.10918E+04 0.10475E-07 0.23916E-12 0.95032E-14 @@ -16690,24 +16690,24 @@ VERSION 2.8.2 3 3 0.40314E-06 0.10000E+01 0.24221E+03 0.75315E-06 0.67089E-09 0.32752E-12 3 3 0.40314E-06 0.10000E+01 0.19533E+03 0.11764E-05 0.12734E-08 0.49506E-12 3 3 0.40314E-06 0.10000E+01 0.15752E+03 0.11764E-05 0.12734E-08 0.49506E-12 - 3 3 0.70346E-06 0.10000E+01 0.80645E+05 0.12298E-52 0.92188E-64 0.32838E-58 - 3 3 0.70346E-06 0.10000E+01 0.65036E+05 0.10420E-51 0.14658E-62 0.27834E-57 - 3 3 0.70346E-06 0.10000E+01 0.52449E+05 0.88662E-51 0.19731E-61 0.23691E-56 - 3 3 0.70346E-06 0.10000E+01 0.42297E+05 0.66805E-50 0.26870E-60 0.17860E-55 - 3 3 0.70346E-06 0.10000E+01 0.34111E+05 0.48289E-49 0.37003E-59 0.12922E-54 - 3 3 0.70346E-06 0.10000E+01 0.27509E+05 0.34782E-48 0.50395E-58 0.93223E-54 - 3 3 0.70346E-06 0.10000E+01 0.22184E+05 0.24896E-47 0.67533E-57 0.66892E-53 - 3 3 0.70346E-06 0.10000E+01 0.17891E+05 0.17591E-46 0.89010E-56 0.47445E-52 - 3 3 0.70346E-06 0.10000E+01 0.14428E+05 0.12240E-45 0.11568E-54 0.33193E-51 - 3 3 0.70346E-06 0.10000E+01 0.11635E+05 0.83930E-45 0.14808E-53 0.22920E-50 - 3 3 0.70346E-06 0.10000E+01 0.93834E+04 0.56669E-44 0.18496E-52 0.15613E-49 - 3 3 0.70346E-06 0.10000E+01 0.75673E+04 0.37437E-43 0.22171E-51 0.10430E-48 - 3 3 0.70346E-06 0.10000E+01 0.61026E+04 0.23892E-42 0.25054E-50 0.67478E-48 - 3 3 0.70346E-06 0.10000E+01 0.49215E+04 0.14534E-41 0.27333E-49 0.41443E-47 - 3 3 0.70346E-06 0.10000E+01 0.39689E+04 0.85764E-41 0.35035E-48 0.23757E-46 - 3 3 0.70346E-06 0.10000E+01 0.32008E+04 0.17962E-38 0.22143E-45 0.42684E-44 - 3 3 0.70346E-06 0.10000E+01 0.25813E+04 0.91479E-30 0.34288E-36 0.17271E-35 - 3 3 0.70346E-06 0.10000E+01 0.20817E+04 0.16725E-13 0.22781E-19 0.29881E-19 + 3 3 0.70346E-06 0.10000E+01 0.80645E+05 0.83090E-10 0.53109E-21 0.22184E-15 + 3 3 0.70346E-06 0.10000E+01 0.65036E+05 0.10666E-09 0.12321E-20 0.28481E-15 + 3 3 0.70346E-06 0.10000E+01 0.52449E+05 0.13506E-09 0.28307E-20 0.36074E-15 + 3 3 0.70346E-06 0.10000E+01 0.42297E+05 0.16933E-09 0.64288E-20 0.45247E-15 + 3 3 0.70346E-06 0.10000E+01 0.34111E+05 0.21067E-09 0.14414E-19 0.56325E-15 + 3 3 0.70346E-06 0.10000E+01 0.27509E+05 0.26035E-09 0.31850E-19 0.69668E-15 + 3 3 0.70346E-06 0.10000E+01 0.22184E+05 0.31973E-09 0.69125E-19 0.85659E-15 + 3 3 0.70346E-06 0.10000E+01 0.17891E+05 0.39013E-09 0.14668E-18 0.10469E-14 + 3 3 0.70346E-06 0.10000E+01 0.14428E+05 0.47272E-09 0.30390E-18 0.12711E-14 + 3 3 0.70346E-06 0.10000E+01 0.11635E+05 0.56839E-09 0.62482E-18 0.15321E-14 + 3 3 0.70346E-06 0.10000E+01 0.93834E+04 0.67774E-09 0.13519E-17 0.18312E-14 + 3 3 0.70346E-06 0.10000E+01 0.75673E+04 0.80162E-09 0.34083E-17 0.21687E-14 + 3 3 0.70346E-06 0.10000E+01 0.61026E+04 0.94313E-09 0.10589E-16 0.25458E-14 + 3 3 0.70346E-06 0.10000E+01 0.49215E+04 0.11121E-08 0.38031E-16 0.29713E-14 + 3 3 0.70346E-06 0.10000E+01 0.39689E+04 0.13342E-08 0.14354E-15 0.34730E-14 + 3 3 0.70346E-06 0.10000E+01 0.32008E+04 0.16668E-08 0.54197E-15 0.41160E-14 + 3 3 0.70346E-06 0.10000E+01 0.25813E+04 0.22283E-08 0.20209E-14 0.50291E-14 + 3 3 0.70346E-06 0.10000E+01 0.20817E+04 0.32515E-08 0.74334E-14 0.64429E-14 3 3 0.70346E-06 0.10000E+01 0.16788E+04 0.51829E-08 0.26979E-13 0.87476E-14 3 3 0.70346E-06 0.10000E+01 0.13538E+04 0.88650E-08 0.96804E-13 0.12587E-13 3 3 0.70346E-06 0.10000E+01 0.10918E+04 0.15869E-07 0.34484E-12 0.19016E-13 @@ -16720,24 +16720,24 @@ VERSION 2.8.2 3 3 0.70346E-06 0.10000E+01 0.24221E+03 0.10748E-05 0.95043E-09 0.59135E-12 3 3 0.70346E-06 0.10000E+01 0.19533E+03 0.16757E-05 0.18035E-08 0.88787E-12 3 3 0.70346E-06 0.10000E+01 0.15752E+03 0.16757E-05 0.18035E-08 0.88787E-12 - 3 3 0.12275E-05 0.10000E+01 0.80645E+05 0.21459E-52 0.16086E-63 0.57300E-58 - 3 3 0.12275E-05 0.10000E+01 0.65036E+05 0.18183E-51 0.25577E-62 0.48569E-57 - 3 3 0.12275E-05 0.10000E+01 0.52449E+05 0.15471E-50 0.34429E-61 0.41339E-56 - 3 3 0.12275E-05 0.10000E+01 0.42297E+05 0.11657E-49 0.46887E-60 0.31165E-55 - 3 3 0.12275E-05 0.10000E+01 0.34111E+05 0.84261E-49 0.64569E-59 0.22549E-54 - 3 3 0.12275E-05 0.10000E+01 0.27509E+05 0.60692E-48 0.87937E-58 0.16267E-53 - 3 3 0.12275E-05 0.10000E+01 0.22184E+05 0.43442E-47 0.11784E-56 0.11672E-52 - 3 3 0.12275E-05 0.10000E+01 0.17891E+05 0.30696E-46 0.15532E-55 0.82789E-52 - 3 3 0.12275E-05 0.10000E+01 0.14428E+05 0.21359E-45 0.20185E-54 0.57919E-51 - 3 3 0.12275E-05 0.10000E+01 0.11635E+05 0.14645E-44 0.25838E-53 0.39995E-50 - 3 3 0.12275E-05 0.10000E+01 0.93834E+04 0.98884E-44 0.32275E-52 0.27244E-49 - 3 3 0.12275E-05 0.10000E+01 0.75673E+04 0.65325E-43 0.38687E-51 0.18200E-48 - 3 3 0.12275E-05 0.10000E+01 0.61026E+04 0.41690E-42 0.43718E-50 0.11775E-47 - 3 3 0.12275E-05 0.10000E+01 0.49215E+04 0.25361E-41 0.47695E-49 0.72315E-47 - 3 3 0.12275E-05 0.10000E+01 0.39689E+04 0.14965E-40 0.61134E-48 0.41455E-46 - 3 3 0.12275E-05 0.10000E+01 0.32008E+04 0.31343E-38 0.38638E-45 0.74481E-44 - 3 3 0.12275E-05 0.10000E+01 0.25813E+04 0.15963E-29 0.59830E-36 0.30137E-35 - 3 3 0.12275E-05 0.10000E+01 0.20817E+04 0.29185E-13 0.39751E-19 0.52140E-19 + 3 3 0.12275E-05 0.10000E+01 0.80645E+05 0.14499E-09 0.92671E-21 0.38709E-15 + 3 3 0.12275E-05 0.10000E+01 0.65036E+05 0.18611E-09 0.21499E-20 0.49697E-15 + 3 3 0.12275E-05 0.10000E+01 0.52449E+05 0.23567E-09 0.49393E-20 0.62947E-15 + 3 3 0.12275E-05 0.10000E+01 0.42297E+05 0.29548E-09 0.11218E-19 0.78953E-15 + 3 3 0.12275E-05 0.10000E+01 0.34111E+05 0.36761E-09 0.25152E-19 0.98284E-15 + 3 3 0.12275E-05 0.10000E+01 0.27509E+05 0.45430E-09 0.55576E-19 0.12157E-14 + 3 3 0.12275E-05 0.10000E+01 0.22184E+05 0.55791E-09 0.12062E-18 0.14947E-14 + 3 3 0.12275E-05 0.10000E+01 0.17891E+05 0.68075E-09 0.25595E-18 0.18267E-14 + 3 3 0.12275E-05 0.10000E+01 0.14428E+05 0.82486E-09 0.53028E-18 0.22180E-14 + 3 3 0.12275E-05 0.10000E+01 0.11635E+05 0.99181E-09 0.10903E-17 0.26734E-14 + 3 3 0.12275E-05 0.10000E+01 0.93834E+04 0.11826E-08 0.23589E-17 0.31953E-14 + 3 3 0.12275E-05 0.10000E+01 0.75673E+04 0.13988E-08 0.59473E-17 0.37842E-14 + 3 3 0.12275E-05 0.10000E+01 0.61026E+04 0.16457E-08 0.18477E-16 0.44423E-14 + 3 3 0.12275E-05 0.10000E+01 0.49215E+04 0.19406E-08 0.66362E-16 0.51848E-14 + 3 3 0.12275E-05 0.10000E+01 0.39689E+04 0.23281E-08 0.25047E-15 0.60601E-14 + 3 3 0.12275E-05 0.10000E+01 0.32008E+04 0.29085E-08 0.94570E-15 0.71821E-14 + 3 3 0.12275E-05 0.10000E+01 0.25813E+04 0.38883E-08 0.35264E-14 0.87755E-14 + 3 3 0.12275E-05 0.10000E+01 0.20817E+04 0.56737E-08 0.12971E-13 0.11242E-13 3 3 0.12275E-05 0.10000E+01 0.16788E+04 0.90438E-08 0.47077E-13 0.15264E-13 3 3 0.12275E-05 0.10000E+01 0.13538E+04 0.15469E-07 0.16892E-12 0.21964E-13 3 3 0.12275E-05 0.10000E+01 0.10918E+04 0.27691E-07 0.60172E-12 0.33181E-13 @@ -16750,24 +16750,24 @@ VERSION 2.8.2 3 3 0.12275E-05 0.10000E+01 0.24221E+03 0.18755E-05 0.16585E-08 0.10319E-11 3 3 0.12275E-05 0.10000E+01 0.19533E+03 0.29241E-05 0.31470E-08 0.15493E-11 3 3 0.12275E-05 0.10000E+01 0.15752E+03 0.29241E-05 0.31470E-08 0.15493E-11 - 3 3 0.21419E-05 0.10000E+01 0.80645E+05 0.37444E-52 0.28070E-63 0.99986E-58 - 3 3 0.21419E-05 0.10000E+01 0.65036E+05 0.31727E-51 0.44630E-62 0.84750E-57 - 3 3 0.21419E-05 0.10000E+01 0.52449E+05 0.26996E-50 0.60077E-61 0.72133E-56 - 3 3 0.21419E-05 0.10000E+01 0.42297E+05 0.20341E-49 0.81814E-60 0.54381E-55 - 3 3 0.21419E-05 0.10000E+01 0.34111E+05 0.14703E-48 0.11267E-58 0.39346E-54 - 3 3 0.21419E-05 0.10000E+01 0.27509E+05 0.10590E-47 0.15344E-57 0.28385E-53 - 3 3 0.21419E-05 0.10000E+01 0.22184E+05 0.75804E-47 0.20563E-56 0.20367E-52 - 3 3 0.21419E-05 0.10000E+01 0.17891E+05 0.53562E-46 0.27102E-55 0.14446E-51 - 3 3 0.21419E-05 0.10000E+01 0.14428E+05 0.37270E-45 0.35221E-54 0.10107E-50 - 3 3 0.21419E-05 0.10000E+01 0.11635E+05 0.25555E-44 0.45087E-53 0.69788E-50 - 3 3 0.21419E-05 0.10000E+01 0.93834E+04 0.17255E-43 0.56317E-52 0.47538E-49 - 3 3 0.21419E-05 0.10000E+01 0.75673E+04 0.11399E-42 0.67506E-51 0.31758E-48 - 3 3 0.21419E-05 0.10000E+01 0.61026E+04 0.72746E-42 0.76286E-50 0.20546E-47 - 3 3 0.21419E-05 0.10000E+01 0.49215E+04 0.44254E-41 0.83224E-49 0.12619E-46 - 3 3 0.21419E-05 0.10000E+01 0.39689E+04 0.26113E-40 0.10667E-47 0.72336E-46 - 3 3 0.21419E-05 0.10000E+01 0.32008E+04 0.54692E-38 0.67422E-45 0.12996E-43 - 3 3 0.21419E-05 0.10000E+01 0.25813E+04 0.27854E-29 0.10440E-35 0.52588E-35 - 3 3 0.21419E-05 0.10000E+01 0.20817E+04 0.50926E-13 0.69363E-19 0.90982E-19 + 3 3 0.21419E-05 0.10000E+01 0.80645E+05 0.25299E-09 0.16171E-20 0.67545E-15 + 3 3 0.21419E-05 0.10000E+01 0.65036E+05 0.32475E-09 0.37514E-20 0.86718E-15 + 3 3 0.21419E-05 0.10000E+01 0.52449E+05 0.41123E-09 0.86188E-20 0.10984E-14 + 3 3 0.21419E-05 0.10000E+01 0.42297E+05 0.51559E-09 0.19574E-19 0.13777E-14 + 3 3 0.21419E-05 0.10000E+01 0.34111E+05 0.64145E-09 0.43888E-19 0.17150E-14 + 3 3 0.21419E-05 0.10000E+01 0.27509E+05 0.79273E-09 0.96976E-19 0.21213E-14 + 3 3 0.21419E-05 0.10000E+01 0.22184E+05 0.97352E-09 0.21047E-18 0.26082E-14 + 3 3 0.21419E-05 0.10000E+01 0.17891E+05 0.11879E-08 0.44662E-18 0.31875E-14 + 3 3 0.21419E-05 0.10000E+01 0.14428E+05 0.14393E-08 0.92531E-18 0.38703E-14 + 3 3 0.21419E-05 0.10000E+01 0.11635E+05 0.17306E-08 0.19025E-17 0.46649E-14 + 3 3 0.21419E-05 0.10000E+01 0.93834E+04 0.20636E-08 0.41162E-17 0.55756E-14 + 3 3 0.21419E-05 0.10000E+01 0.75673E+04 0.24408E-08 0.10378E-16 0.66032E-14 + 3 3 0.21419E-05 0.10000E+01 0.61026E+04 0.28717E-08 0.32242E-16 0.77515E-14 + 3 3 0.21419E-05 0.10000E+01 0.49215E+04 0.33863E-08 0.11580E-15 0.90471E-14 + 3 3 0.21419E-05 0.10000E+01 0.39689E+04 0.40625E-08 0.43706E-15 0.10575E-13 + 3 3 0.21419E-05 0.10000E+01 0.32008E+04 0.50751E-08 0.16502E-14 0.12532E-13 + 3 3 0.21419E-05 0.10000E+01 0.25813E+04 0.67848E-08 0.61533E-14 0.15313E-13 + 3 3 0.21419E-05 0.10000E+01 0.20817E+04 0.99002E-08 0.22633E-13 0.19617E-13 3 3 0.21419E-05 0.10000E+01 0.16788E+04 0.15781E-07 0.82147E-13 0.26635E-13 3 3 0.21419E-05 0.10000E+01 0.13538E+04 0.26992E-07 0.29475E-12 0.38325E-13 3 3 0.21419E-05 0.10000E+01 0.10918E+04 0.48319E-07 0.10500E-11 0.57899E-13 @@ -16780,24 +16780,24 @@ VERSION 2.8.2 3 3 0.21419E-05 0.10000E+01 0.24221E+03 0.32726E-05 0.28939E-08 0.18005E-11 3 3 0.21419E-05 0.10000E+01 0.19533E+03 0.51023E-05 0.54914E-08 0.27034E-11 3 3 0.21419E-05 0.10000E+01 0.15752E+03 0.51023E-05 0.54914E-08 0.27034E-11 - 3 3 0.37375E-05 0.10000E+01 0.80645E+05 0.65338E-52 0.48980E-63 0.17447E-57 - 3 3 0.37375E-05 0.10000E+01 0.65036E+05 0.55362E-51 0.77877E-62 0.14788E-56 - 3 3 0.37375E-05 0.10000E+01 0.52449E+05 0.47106E-50 0.10483E-60 0.12587E-55 - 3 3 0.37375E-05 0.10000E+01 0.42297E+05 0.35494E-49 0.14276E-59 0.94892E-55 - 3 3 0.37375E-05 0.10000E+01 0.34111E+05 0.25656E-48 0.19660E-58 0.68656E-54 - 3 3 0.37375E-05 0.10000E+01 0.27509E+05 0.18480E-47 0.26775E-57 0.49529E-53 - 3 3 0.37375E-05 0.10000E+01 0.22184E+05 0.13227E-46 0.35881E-56 0.35540E-52 - 3 3 0.37375E-05 0.10000E+01 0.17891E+05 0.93463E-46 0.47291E-55 0.25208E-51 - 3 3 0.37375E-05 0.10000E+01 0.14428E+05 0.65033E-45 0.61459E-54 0.17635E-50 - 3 3 0.37375E-05 0.10000E+01 0.11635E+05 0.44592E-44 0.78673E-53 0.12178E-49 - 3 3 0.37375E-05 0.10000E+01 0.93834E+04 0.30108E-43 0.98270E-52 0.82952E-49 - 3 3 0.37375E-05 0.10000E+01 0.75673E+04 0.19890E-42 0.11779E-50 0.55416E-48 - 3 3 0.37375E-05 0.10000E+01 0.61026E+04 0.12694E-41 0.13311E-49 0.35851E-47 - 3 3 0.37375E-05 0.10000E+01 0.49215E+04 0.77220E-41 0.14522E-48 0.22019E-46 - 3 3 0.37375E-05 0.10000E+01 0.39689E+04 0.45566E-40 0.18614E-47 0.12622E-45 - 3 3 0.37375E-05 0.10000E+01 0.32008E+04 0.95434E-38 0.11765E-44 0.22678E-43 - 3 3 0.37375E-05 0.10000E+01 0.25813E+04 0.48603E-29 0.18217E-35 0.91763E-35 - 3 3 0.37375E-05 0.10000E+01 0.20817E+04 0.88863E-13 0.12103E-18 0.15876E-18 + 3 3 0.37375E-05 0.10000E+01 0.80645E+05 0.44146E-09 0.28217E-20 0.11786E-14 + 3 3 0.37375E-05 0.10000E+01 0.65036E+05 0.56668E-09 0.65460E-20 0.15132E-14 + 3 3 0.37375E-05 0.10000E+01 0.52449E+05 0.71757E-09 0.15039E-19 0.19166E-14 + 3 3 0.37375E-05 0.10000E+01 0.42297E+05 0.89968E-09 0.34156E-19 0.24040E-14 + 3 3 0.37375E-05 0.10000E+01 0.34111E+05 0.11193E-08 0.76582E-19 0.29926E-14 + 3 3 0.37375E-05 0.10000E+01 0.27509E+05 0.13833E-08 0.16922E-18 0.37015E-14 + 3 3 0.37375E-05 0.10000E+01 0.22184E+05 0.16987E-08 0.36726E-18 0.45511E-14 + 3 3 0.37375E-05 0.10000E+01 0.17891E+05 0.20727E-08 0.77932E-18 0.55620E-14 + 3 3 0.37375E-05 0.10000E+01 0.14428E+05 0.25116E-08 0.16146E-17 0.67534E-14 + 3 3 0.37375E-05 0.10000E+01 0.11635E+05 0.30199E-08 0.33197E-17 0.81399E-14 + 3 3 0.37375E-05 0.10000E+01 0.93834E+04 0.36008E-08 0.71825E-17 0.97291E-14 + 3 3 0.37375E-05 0.10000E+01 0.75673E+04 0.42590E-08 0.18108E-16 0.11522E-13 + 3 3 0.37375E-05 0.10000E+01 0.61026E+04 0.50109E-08 0.56260E-16 0.13526E-13 + 3 3 0.37375E-05 0.10000E+01 0.49215E+04 0.59088E-08 0.20206E-15 0.15787E-13 + 3 3 0.37375E-05 0.10000E+01 0.39689E+04 0.70887E-08 0.76265E-15 0.18452E-13 + 3 3 0.37375E-05 0.10000E+01 0.32008E+04 0.88558E-08 0.28795E-14 0.21868E-13 + 3 3 0.37375E-05 0.10000E+01 0.25813E+04 0.11839E-07 0.10737E-13 0.26720E-13 + 3 3 0.37375E-05 0.10000E+01 0.20817E+04 0.17275E-07 0.39494E-13 0.34231E-13 3 3 0.37375E-05 0.10000E+01 0.16788E+04 0.27537E-07 0.14334E-12 0.46476E-13 3 3 0.37375E-05 0.10000E+01 0.13538E+04 0.47100E-07 0.51432E-12 0.66875E-13 3 3 0.37375E-05 0.10000E+01 0.10918E+04 0.84314E-07 0.18321E-11 0.10103E-12 @@ -16810,24 +16810,24 @@ VERSION 2.8.2 3 3 0.37375E-05 0.10000E+01 0.24221E+03 0.57104E-05 0.50497E-08 0.31418E-11 3 3 0.37375E-05 0.10000E+01 0.19533E+03 0.89032E-05 0.95821E-08 0.47173E-11 3 3 0.37375E-05 0.10000E+01 0.15752E+03 0.89032E-05 0.95821E-08 0.47173E-11 - 3 3 0.65217E-05 0.10000E+01 0.80645E+05 0.11401E-51 0.85467E-63 0.30444E-57 - 3 3 0.65217E-05 0.10000E+01 0.65036E+05 0.96604E-51 0.13589E-61 0.25805E-56 - 3 3 0.65217E-05 0.10000E+01 0.52449E+05 0.82198E-50 0.18292E-60 0.21963E-55 - 3 3 0.65217E-05 0.10000E+01 0.42297E+05 0.61935E-49 0.24911E-59 0.16558E-54 - 3 3 0.65217E-05 0.10000E+01 0.34111E+05 0.44768E-48 0.34306E-58 0.11980E-53 - 3 3 0.65217E-05 0.10000E+01 0.27509E+05 0.32246E-47 0.46721E-57 0.86426E-53 - 3 3 0.65217E-05 0.10000E+01 0.22184E+05 0.23081E-46 0.62609E-56 0.62015E-52 - 3 3 0.65217E-05 0.10000E+01 0.17891E+05 0.16309E-45 0.82520E-55 0.43986E-51 - 3 3 0.65217E-05 0.10000E+01 0.14428E+05 0.11348E-44 0.10724E-53 0.30772E-50 - 3 3 0.65217E-05 0.10000E+01 0.11635E+05 0.77811E-44 0.13728E-52 0.21249E-49 - 3 3 0.65217E-05 0.10000E+01 0.93834E+04 0.52537E-43 0.17148E-51 0.14475E-48 - 3 3 0.65217E-05 0.10000E+01 0.75673E+04 0.34707E-42 0.20554E-50 0.96698E-48 - 3 3 0.65217E-05 0.10000E+01 0.61026E+04 0.22150E-41 0.23228E-49 0.62558E-47 - 3 3 0.65217E-05 0.10000E+01 0.49215E+04 0.13474E-40 0.25340E-48 0.38421E-46 - 3 3 0.65217E-05 0.10000E+01 0.39689E+04 0.79510E-40 0.32480E-47 0.22025E-45 - 3 3 0.65217E-05 0.10000E+01 0.32008E+04 0.16653E-37 0.20529E-44 0.39572E-43 - 3 3 0.65217E-05 0.10000E+01 0.25813E+04 0.84810E-29 0.31788E-35 0.16012E-34 - 3 3 0.65217E-05 0.10000E+01 0.20817E+04 0.15506E-12 0.21120E-18 0.27702E-18 + 3 3 0.65217E-05 0.10000E+01 0.80645E+05 0.77032E-09 0.49236E-20 0.20566E-14 + 3 3 0.65217E-05 0.10000E+01 0.65036E+05 0.98882E-09 0.11422E-19 0.26404E-14 + 3 3 0.65217E-05 0.10000E+01 0.52449E+05 0.12521E-08 0.26243E-19 0.33444E-14 + 3 3 0.65217E-05 0.10000E+01 0.42297E+05 0.15699E-08 0.59600E-19 0.41948E-14 + 3 3 0.65217E-05 0.10000E+01 0.34111E+05 0.19531E-08 0.13363E-18 0.52218E-14 + 3 3 0.65217E-05 0.10000E+01 0.27509E+05 0.24137E-08 0.29527E-18 0.64588E-14 + 3 3 0.65217E-05 0.10000E+01 0.22184E+05 0.29642E-08 0.64085E-18 0.79414E-14 + 3 3 0.65217E-05 0.10000E+01 0.17891E+05 0.36168E-08 0.13599E-17 0.97054E-14 + 3 3 0.65217E-05 0.10000E+01 0.14428E+05 0.43825E-08 0.28174E-17 0.11784E-13 + 3 3 0.65217E-05 0.10000E+01 0.11635E+05 0.52695E-08 0.57927E-17 0.14204E-13 + 3 3 0.65217E-05 0.10000E+01 0.93834E+04 0.62832E-08 0.12533E-16 0.16977E-13 + 3 3 0.65217E-05 0.10000E+01 0.75673E+04 0.74317E-08 0.31598E-16 0.20105E-13 + 3 3 0.65217E-05 0.10000E+01 0.61026E+04 0.87436E-08 0.98170E-16 0.23602E-13 + 3 3 0.65217E-05 0.10000E+01 0.49215E+04 0.10311E-07 0.35258E-15 0.27547E-13 + 3 3 0.65217E-05 0.10000E+01 0.39689E+04 0.12369E-07 0.13308E-14 0.32197E-13 + 3 3 0.65217E-05 0.10000E+01 0.32008E+04 0.15453E-07 0.50245E-14 0.38159E-13 + 3 3 0.65217E-05 0.10000E+01 0.25813E+04 0.20658E-07 0.18736E-13 0.46625E-13 + 3 3 0.65217E-05 0.10000E+01 0.20817E+04 0.30144E-07 0.68914E-13 0.59732E-13 3 3 0.65217E-05 0.10000E+01 0.16788E+04 0.48050E-07 0.25012E-12 0.81098E-13 3 3 0.65217E-05 0.10000E+01 0.13538E+04 0.82186E-07 0.89746E-12 0.11669E-12 3 3 0.65217E-05 0.10000E+01 0.10918E+04 0.14712E-06 0.31969E-11 0.17629E-12 @@ -16840,24 +16840,24 @@ VERSION 2.8.2 3 3 0.65217E-05 0.10000E+01 0.24221E+03 0.99644E-05 0.88114E-08 0.54823E-11 3 3 0.65217E-05 0.10000E+01 0.19533E+03 0.15536E-04 0.16720E-07 0.82313E-11 3 3 0.65217E-05 0.10000E+01 0.15752E+03 0.15536E-04 0.16720E-07 0.82313E-11 - 3 3 0.11380E-04 0.10000E+01 0.80645E+05 0.19894E-51 0.14913E-62 0.53123E-57 - 3 3 0.11380E-04 0.10000E+01 0.65036E+05 0.16857E-50 0.23712E-61 0.45028E-56 - 3 3 0.11380E-04 0.10000E+01 0.52449E+05 0.14343E-49 0.31919E-60 0.38325E-55 - 3 3 0.11380E-04 0.10000E+01 0.42297E+05 0.10807E-48 0.43468E-59 0.28893E-54 - 3 3 0.11380E-04 0.10000E+01 0.34111E+05 0.78117E-48 0.59861E-58 0.20905E-53 - 3 3 0.11380E-04 0.10000E+01 0.27509E+05 0.56267E-47 0.81525E-57 0.15081E-52 - 3 3 0.11380E-04 0.10000E+01 0.22184E+05 0.40275E-46 0.10925E-55 0.10821E-51 - 3 3 0.11380E-04 0.10000E+01 0.17891E+05 0.28458E-45 0.14399E-54 0.76753E-51 - 3 3 0.11380E-04 0.10000E+01 0.14428E+05 0.19801E-44 0.18713E-53 0.53696E-50 - 3 3 0.11380E-04 0.10000E+01 0.11635E+05 0.13578E-43 0.23955E-52 0.37079E-49 - 3 3 0.11380E-04 0.10000E+01 0.93834E+04 0.91675E-43 0.29921E-51 0.25257E-48 - 3 3 0.11380E-04 0.10000E+01 0.75673E+04 0.60562E-42 0.35866E-50 0.16873E-47 - 3 3 0.11380E-04 0.10000E+01 0.61026E+04 0.38650E-41 0.40531E-49 0.10916E-46 - 3 3 0.11380E-04 0.10000E+01 0.49215E+04 0.23512E-40 0.44217E-48 0.67043E-46 - 3 3 0.11380E-04 0.10000E+01 0.39689E+04 0.13874E-39 0.56676E-47 0.38432E-45 - 3 3 0.11380E-04 0.10000E+01 0.32008E+04 0.29058E-37 0.35821E-44 0.69050E-43 - 3 3 0.11380E-04 0.10000E+01 0.25813E+04 0.14799E-28 0.55468E-35 0.27940E-34 - 3 3 0.11380E-04 0.10000E+01 0.20817E+04 0.27057E-12 0.36852E-18 0.48339E-18 + 3 3 0.11380E-04 0.10000E+01 0.80645E+05 0.13442E-08 0.85915E-20 0.35887E-14 + 3 3 0.11380E-04 0.10000E+01 0.65036E+05 0.17254E-08 0.19931E-19 0.46074E-14 + 3 3 0.11380E-04 0.10000E+01 0.52449E+05 0.21849E-08 0.45792E-19 0.58357E-14 + 3 3 0.11380E-04 0.10000E+01 0.42297E+05 0.27394E-08 0.10400E-18 0.73196E-14 + 3 3 0.11380E-04 0.10000E+01 0.34111E+05 0.34080E-08 0.23318E-18 0.91118E-14 + 3 3 0.11380E-04 0.10000E+01 0.27509E+05 0.42118E-08 0.51523E-18 0.11270E-13 + 3 3 0.11380E-04 0.10000E+01 0.22184E+05 0.51723E-08 0.11182E-17 0.13857E-13 + 3 3 0.11380E-04 0.10000E+01 0.17891E+05 0.63111E-08 0.23729E-17 0.16935E-13 + 3 3 0.11380E-04 0.10000E+01 0.14428E+05 0.76472E-08 0.49162E-17 0.20563E-13 + 3 3 0.11380E-04 0.10000E+01 0.11635E+05 0.91949E-08 0.10108E-16 0.24785E-13 + 3 3 0.11380E-04 0.10000E+01 0.93834E+04 0.10964E-07 0.21869E-16 0.29623E-13 + 3 3 0.11380E-04 0.10000E+01 0.75673E+04 0.12968E-07 0.55137E-16 0.35083E-13 + 3 3 0.11380E-04 0.10000E+01 0.61026E+04 0.15257E-07 0.17130E-15 0.41184E-13 + 3 3 0.11380E-04 0.10000E+01 0.49215E+04 0.17991E-07 0.61523E-15 0.48067E-13 + 3 3 0.11380E-04 0.10000E+01 0.39689E+04 0.21584E-07 0.23221E-14 0.56183E-13 + 3 3 0.11380E-04 0.10000E+01 0.32008E+04 0.26964E-07 0.87675E-14 0.66585E-13 + 3 3 0.11380E-04 0.10000E+01 0.25813E+04 0.36048E-07 0.32692E-13 0.81357E-13 + 3 3 0.11380E-04 0.10000E+01 0.20817E+04 0.52600E-07 0.12025E-12 0.10423E-12 3 3 0.11380E-04 0.10000E+01 0.16788E+04 0.83844E-07 0.43645E-12 0.14151E-12 3 3 0.11380E-04 0.10000E+01 0.13538E+04 0.14341E-06 0.15660E-11 0.20362E-12 3 3 0.11380E-04 0.10000E+01 0.10918E+04 0.25672E-06 0.55785E-11 0.30762E-12 @@ -16870,24 +16870,24 @@ VERSION 2.8.2 3 3 0.11380E-04 0.10000E+01 0.24221E+03 0.17387E-04 0.15375E-07 0.95663E-11 3 3 0.11380E-04 0.10000E+01 0.19533E+03 0.27109E-04 0.29176E-07 0.14363E-10 3 3 0.11380E-04 0.10000E+01 0.15752E+03 0.27109E-04 0.29176E-07 0.14363E-10 - 3 3 0.19857E-04 0.10000E+01 0.80645E+05 0.34714E-51 0.26023E-62 0.92696E-57 - 3 3 0.19857E-04 0.10000E+01 0.65036E+05 0.29414E-50 0.41376E-61 0.78571E-56 - 3 3 0.19857E-04 0.10000E+01 0.52449E+05 0.25028E-49 0.55697E-60 0.66874E-55 - 3 3 0.19857E-04 0.10000E+01 0.42297E+05 0.18858E-48 0.75849E-59 0.50416E-54 - 3 3 0.19857E-04 0.10000E+01 0.34111E+05 0.13631E-47 0.10445E-57 0.36477E-53 - 3 3 0.19857E-04 0.10000E+01 0.27509E+05 0.98182E-47 0.14226E-56 0.26315E-52 - 3 3 0.19857E-04 0.10000E+01 0.22184E+05 0.70277E-46 0.19063E-55 0.18882E-51 - 3 3 0.19857E-04 0.10000E+01 0.17891E+05 0.49657E-45 0.25126E-54 0.13393E-50 - 3 3 0.19857E-04 0.10000E+01 0.14428E+05 0.34552E-44 0.32653E-53 0.93696E-50 - 3 3 0.19857E-04 0.10000E+01 0.11635E+05 0.23692E-43 0.41799E-52 0.64700E-49 - 3 3 0.19857E-04 0.10000E+01 0.93834E+04 0.15997E-42 0.52211E-51 0.44072E-48 - 3 3 0.19857E-04 0.10000E+01 0.75673E+04 0.10568E-41 0.62584E-50 0.29443E-47 - 3 3 0.19857E-04 0.10000E+01 0.61026E+04 0.67442E-41 0.70724E-49 0.19048E-46 - 3 3 0.19857E-04 0.10000E+01 0.49215E+04 0.41027E-40 0.77156E-48 0.11699E-45 - 3 3 0.19857E-04 0.10000E+01 0.39689E+04 0.24209E-39 0.98897E-47 0.67062E-45 - 3 3 0.19857E-04 0.10000E+01 0.32008E+04 0.50704E-37 0.62506E-44 0.12049E-42 - 3 3 0.19857E-04 0.10000E+01 0.25813E+04 0.25823E-28 0.96788E-35 0.48754E-34 - 3 3 0.19857E-04 0.10000E+01 0.20817E+04 0.47213E-12 0.64305E-18 0.84348E-18 + 3 3 0.19857E-04 0.10000E+01 0.80645E+05 0.23455E-08 0.14992E-19 0.62621E-14 + 3 3 0.19857E-04 0.10000E+01 0.65036E+05 0.30108E-08 0.34779E-19 0.80396E-14 + 3 3 0.19857E-04 0.10000E+01 0.52449E+05 0.38125E-08 0.79904E-19 0.10183E-13 + 3 3 0.19857E-04 0.10000E+01 0.42297E+05 0.47800E-08 0.18147E-18 0.12772E-13 + 3 3 0.19857E-04 0.10000E+01 0.34111E+05 0.59468E-08 0.40688E-18 0.15899E-13 + 3 3 0.19857E-04 0.10000E+01 0.27509E+05 0.73493E-08 0.89905E-18 0.19666E-13 + 3 3 0.19857E-04 0.10000E+01 0.22184E+05 0.90254E-08 0.19513E-17 0.24180E-13 + 3 3 0.19857E-04 0.10000E+01 0.17891E+05 0.11013E-07 0.41405E-17 0.29551E-13 + 3 3 0.19857E-04 0.10000E+01 0.14428E+05 0.13344E-07 0.85784E-17 0.35881E-13 + 3 3 0.19857E-04 0.10000E+01 0.11635E+05 0.16045E-07 0.17638E-16 0.43248E-13 + 3 3 0.19857E-04 0.10000E+01 0.93834E+04 0.19131E-07 0.38161E-16 0.51691E-13 + 3 3 0.19857E-04 0.10000E+01 0.75673E+04 0.22628E-07 0.96211E-16 0.61217E-13 + 3 3 0.19857E-04 0.10000E+01 0.61026E+04 0.26623E-07 0.29891E-15 0.71864E-13 + 3 3 0.19857E-04 0.10000E+01 0.49215E+04 0.31394E-07 0.10735E-14 0.83875E-13 + 3 3 0.19857E-04 0.10000E+01 0.39689E+04 0.37663E-07 0.40519E-14 0.98035E-13 + 3 3 0.19857E-04 0.10000E+01 0.32008E+04 0.47051E-07 0.15299E-13 0.11619E-12 + 3 3 0.19857E-04 0.10000E+01 0.25813E+04 0.62901E-07 0.57046E-13 0.14196E-12 + 3 3 0.19857E-04 0.10000E+01 0.20817E+04 0.91784E-07 0.20983E-12 0.18187E-12 3 3 0.19857E-04 0.10000E+01 0.16788E+04 0.14630E-06 0.76158E-12 0.24693E-12 3 3 0.19857E-04 0.10000E+01 0.13538E+04 0.25024E-06 0.27326E-11 0.35531E-12 3 3 0.19857E-04 0.10000E+01 0.10918E+04 0.44796E-06 0.97341E-11 0.53677E-12 @@ -16900,24 +16900,24 @@ VERSION 2.8.2 3 3 0.19857E-04 0.10000E+01 0.24221E+03 0.30340E-04 0.26829E-07 0.16693E-10 3 3 0.19857E-04 0.10000E+01 0.19533E+03 0.47303E-04 0.50910E-07 0.25063E-10 3 3 0.19857E-04 0.10000E+01 0.15752E+03 0.47303E-04 0.50910E-07 0.25063E-10 - 3 3 0.34650E-04 0.10000E+01 0.80645E+05 0.60574E-51 0.45409E-62 0.16175E-56 - 3 3 0.34650E-04 0.10000E+01 0.65036E+05 0.51326E-50 0.72198E-61 0.13710E-55 - 3 3 0.34650E-04 0.10000E+01 0.52449E+05 0.43672E-49 0.97188E-60 0.11669E-54 - 3 3 0.34650E-04 0.10000E+01 0.42297E+05 0.32906E-48 0.13235E-58 0.87973E-54 - 3 3 0.34650E-04 0.10000E+01 0.34111E+05 0.23785E-47 0.18227E-57 0.63650E-53 - 3 3 0.34650E-04 0.10000E+01 0.27509E+05 0.17132E-46 0.24823E-56 0.45918E-52 - 3 3 0.34650E-04 0.10000E+01 0.22184E+05 0.12263E-45 0.33264E-55 0.32949E-51 - 3 3 0.34650E-04 0.10000E+01 0.17891E+05 0.86648E-45 0.43843E-54 0.23370E-50 - 3 3 0.34650E-04 0.10000E+01 0.14428E+05 0.60292E-44 0.56978E-53 0.16349E-49 - 3 3 0.34650E-04 0.10000E+01 0.11635E+05 0.41341E-43 0.72937E-52 0.11290E-48 - 3 3 0.34650E-04 0.10000E+01 0.93834E+04 0.27913E-42 0.91105E-51 0.76904E-48 - 3 3 0.34650E-04 0.10000E+01 0.75673E+04 0.18440E-41 0.10921E-49 0.51376E-47 - 3 3 0.34650E-04 0.10000E+01 0.61026E+04 0.11768E-40 0.12341E-48 0.33237E-46 - 3 3 0.34650E-04 0.10000E+01 0.49215E+04 0.71590E-40 0.13463E-47 0.20413E-45 - 3 3 0.34650E-04 0.10000E+01 0.39689E+04 0.42244E-39 0.17257E-46 0.11702E-44 - 3 3 0.34650E-04 0.10000E+01 0.32008E+04 0.88476E-37 0.10907E-43 0.21025E-42 - 3 3 0.34650E-04 0.10000E+01 0.25813E+04 0.45059E-28 0.16889E-34 0.85072E-34 - 3 3 0.34650E-04 0.10000E+01 0.20817E+04 0.82384E-12 0.11221E-17 0.14718E-17 + 3 3 0.34650E-04 0.10000E+01 0.80645E+05 0.40927E-08 0.26159E-19 0.10927E-13 + 3 3 0.34650E-04 0.10000E+01 0.65036E+05 0.52536E-08 0.60687E-19 0.14029E-13 + 3 3 0.34650E-04 0.10000E+01 0.52449E+05 0.66525E-08 0.13943E-18 0.17769E-13 + 3 3 0.34650E-04 0.10000E+01 0.42297E+05 0.83408E-08 0.31666E-18 0.22287E-13 + 3 3 0.34650E-04 0.10000E+01 0.34111E+05 0.10377E-07 0.70999E-18 0.27744E-13 + 3 3 0.34650E-04 0.10000E+01 0.27509E+05 0.12824E-07 0.15688E-17 0.34316E-13 + 3 3 0.34650E-04 0.10000E+01 0.22184E+05 0.15749E-07 0.34049E-17 0.42193E-13 + 3 3 0.34650E-04 0.10000E+01 0.17891E+05 0.19216E-07 0.72250E-17 0.51565E-13 + 3 3 0.34650E-04 0.10000E+01 0.14428E+05 0.23284E-07 0.14969E-16 0.62610E-13 + 3 3 0.34650E-04 0.10000E+01 0.11635E+05 0.27997E-07 0.30777E-16 0.75464E-13 + 3 3 0.34650E-04 0.10000E+01 0.93834E+04 0.33383E-07 0.66589E-16 0.90198E-13 + 3 3 0.34650E-04 0.10000E+01 0.75673E+04 0.39485E-07 0.16788E-15 0.10682E-12 + 3 3 0.34650E-04 0.10000E+01 0.61026E+04 0.46455E-07 0.52158E-15 0.12540E-12 + 3 3 0.34650E-04 0.10000E+01 0.49215E+04 0.54780E-07 0.18733E-14 0.14636E-12 + 3 3 0.34650E-04 0.10000E+01 0.39689E+04 0.65719E-07 0.70704E-14 0.17107E-12 + 3 3 0.34650E-04 0.10000E+01 0.32008E+04 0.82101E-07 0.26695E-13 0.20274E-12 + 3 3 0.34650E-04 0.10000E+01 0.25813E+04 0.10976E-06 0.99542E-13 0.24772E-12 + 3 3 0.34650E-04 0.10000E+01 0.20817E+04 0.16016E-06 0.36614E-12 0.31735E-12 3 3 0.34650E-04 0.10000E+01 0.16788E+04 0.25529E-06 0.13289E-11 0.43087E-12 3 3 0.34650E-04 0.10000E+01 0.13538E+04 0.43666E-06 0.47682E-11 0.61999E-12 3 3 0.34650E-04 0.10000E+01 0.10918E+04 0.78167E-06 0.16985E-10 0.93664E-12 @@ -16930,24 +16930,24 @@ VERSION 2.8.2 3 3 0.34650E-04 0.10000E+01 0.24221E+03 0.52941E-04 0.46815E-07 0.29128E-10 3 3 0.34650E-04 0.10000E+01 0.19533E+03 0.82541E-04 0.88835E-07 0.43733E-10 3 3 0.34650E-04 0.10000E+01 0.15752E+03 0.82541E-04 0.88835E-07 0.43733E-10 - 3 3 0.60462E-04 0.10000E+01 0.80645E+05 0.10570E-50 0.79235E-62 0.28224E-56 - 3 3 0.60462E-04 0.10000E+01 0.65036E+05 0.89561E-50 0.12598E-60 0.23923E-55 - 3 3 0.60462E-04 0.10000E+01 0.52449E+05 0.76205E-49 0.16959E-59 0.20362E-54 - 3 3 0.60462E-04 0.10000E+01 0.42297E+05 0.57419E-48 0.23095E-58 0.15351E-53 - 3 3 0.60462E-04 0.10000E+01 0.34111E+05 0.41504E-47 0.31804E-57 0.11107E-52 - 3 3 0.60462E-04 0.10000E+01 0.27509E+05 0.29895E-46 0.43314E-56 0.80124E-52 - 3 3 0.60462E-04 0.10000E+01 0.22184E+05 0.21398E-45 0.58044E-55 0.57493E-51 - 3 3 0.60462E-04 0.10000E+01 0.17891E+05 0.15120E-44 0.76504E-54 0.40779E-50 - 3 3 0.60462E-04 0.10000E+01 0.14428E+05 0.10521E-43 0.99424E-53 0.28529E-49 - 3 3 0.60462E-04 0.10000E+01 0.11635E+05 0.72138E-43 0.12727E-51 0.19700E-48 - 3 3 0.60462E-04 0.10000E+01 0.93834E+04 0.48707E-42 0.15897E-50 0.13419E-47 - 3 3 0.60462E-04 0.10000E+01 0.75673E+04 0.32177E-41 0.19056E-49 0.89647E-47 - 3 3 0.60462E-04 0.10000E+01 0.61026E+04 0.20535E-40 0.21534E-48 0.57997E-46 - 3 3 0.60462E-04 0.10000E+01 0.49215E+04 0.12492E-39 0.23493E-47 0.35620E-45 - 3 3 0.60462E-04 0.10000E+01 0.39689E+04 0.73713E-39 0.30112E-46 0.20419E-44 - 3 3 0.60462E-04 0.10000E+01 0.32008E+04 0.15438E-36 0.19032E-43 0.36686E-42 - 3 3 0.60462E-04 0.10000E+01 0.25813E+04 0.78626E-28 0.29470E-34 0.14845E-33 - 3 3 0.60462E-04 0.10000E+01 0.20817E+04 0.14375E-11 0.19580E-17 0.25682E-17 + 3 3 0.60462E-04 0.10000E+01 0.80645E+05 0.71416E-08 0.45647E-19 0.19067E-13 + 3 3 0.60462E-04 0.10000E+01 0.65036E+05 0.91672E-08 0.10589E-18 0.24479E-13 + 3 3 0.60462E-04 0.10000E+01 0.52449E+05 0.11608E-07 0.24329E-18 0.31005E-13 + 3 3 0.60462E-04 0.10000E+01 0.42297E+05 0.14554E-07 0.55255E-18 0.38889E-13 + 3 3 0.60462E-04 0.10000E+01 0.34111E+05 0.18107E-07 0.12389E-17 0.48411E-13 + 3 3 0.60462E-04 0.10000E+01 0.27509E+05 0.22377E-07 0.27374E-17 0.59879E-13 + 3 3 0.60462E-04 0.10000E+01 0.22184E+05 0.27481E-07 0.59413E-17 0.73624E-13 + 3 3 0.60462E-04 0.10000E+01 0.17891E+05 0.33531E-07 0.12607E-16 0.89978E-13 + 3 3 0.60462E-04 0.10000E+01 0.14428E+05 0.40630E-07 0.26120E-16 0.10925E-12 + 3 3 0.60462E-04 0.10000E+01 0.11635E+05 0.48853E-07 0.53703E-16 0.13168E-12 + 3 3 0.60462E-04 0.10000E+01 0.93834E+04 0.58251E-07 0.11619E-15 0.15739E-12 + 3 3 0.60462E-04 0.10000E+01 0.75673E+04 0.68899E-07 0.29294E-15 0.18640E-12 + 3 3 0.60462E-04 0.10000E+01 0.61026E+04 0.81061E-07 0.91012E-15 0.21881E-12 + 3 3 0.60462E-04 0.10000E+01 0.49215E+04 0.95588E-07 0.32687E-14 0.25538E-12 + 3 3 0.60462E-04 0.10000E+01 0.39689E+04 0.11468E-06 0.12337E-13 0.29850E-12 + 3 3 0.60462E-04 0.10000E+01 0.32008E+04 0.14326E-06 0.46582E-13 0.35376E-12 + 3 3 0.60462E-04 0.10000E+01 0.25813E+04 0.19152E-06 0.17370E-12 0.43225E-12 + 3 3 0.60462E-04 0.10000E+01 0.20817E+04 0.27946E-06 0.63889E-12 0.55376E-12 3 3 0.60462E-04 0.10000E+01 0.16788E+04 0.44546E-06 0.23189E-11 0.75185E-12 3 3 0.60462E-04 0.10000E+01 0.13538E+04 0.76194E-06 0.83202E-11 0.10818E-11 3 3 0.60462E-04 0.10000E+01 0.10918E+04 0.13640E-05 0.29639E-10 0.16344E-11 @@ -16960,24 +16960,24 @@ VERSION 2.8.2 3 3 0.60462E-04 0.10000E+01 0.24221E+03 0.92379E-04 0.81689E-07 0.50826E-10 3 3 0.60462E-04 0.10000E+01 0.19533E+03 0.14403E-03 0.15501E-06 0.76312E-10 3 3 0.60462E-04 0.10000E+01 0.15752E+03 0.14403E-03 0.15501E-06 0.76312E-10 - 3 3 0.10550E-03 0.10000E+01 0.80645E+05 0.18444E-50 0.13826E-61 0.49249E-56 - 3 3 0.10550E-03 0.10000E+01 0.65036E+05 0.15628E-49 0.21983E-60 0.41745E-55 - 3 3 0.10550E-03 0.10000E+01 0.52449E+05 0.13297E-48 0.29592E-59 0.35530E-54 - 3 3 0.10550E-03 0.10000E+01 0.42297E+05 0.10019E-47 0.40299E-58 0.26786E-53 - 3 3 0.10550E-03 0.10000E+01 0.34111E+05 0.72421E-47 0.55497E-57 0.19380E-52 - 3 3 0.10550E-03 0.10000E+01 0.27509E+05 0.52164E-46 0.75581E-56 0.13981E-51 - 3 3 0.10550E-03 0.10000E+01 0.22184E+05 0.37338E-45 0.10128E-54 0.10032E-50 - 3 3 0.10550E-03 0.10000E+01 0.17891E+05 0.26383E-44 0.13349E-53 0.71157E-50 - 3 3 0.10550E-03 0.10000E+01 0.14428E+05 0.18358E-43 0.17349E-52 0.49781E-49 - 3 3 0.10550E-03 0.10000E+01 0.11635E+05 0.12588E-42 0.22208E-51 0.34375E-48 - 3 3 0.10550E-03 0.10000E+01 0.93834E+04 0.84991E-42 0.27740E-50 0.23416E-47 - 3 3 0.10550E-03 0.10000E+01 0.75673E+04 0.56146E-41 0.33251E-49 0.15643E-46 - 3 3 0.10550E-03 0.10000E+01 0.61026E+04 0.35832E-40 0.37576E-48 0.10120E-45 - 3 3 0.10550E-03 0.10000E+01 0.49215E+04 0.21798E-39 0.40993E-47 0.62155E-45 - 3 3 0.10550E-03 0.10000E+01 0.39689E+04 0.12863E-38 0.52544E-46 0.35630E-44 - 3 3 0.10550E-03 0.10000E+01 0.32008E+04 0.26939E-36 0.33209E-43 0.64016E-42 - 3 3 0.10550E-03 0.10000E+01 0.25813E+04 0.13720E-27 0.51423E-34 0.25903E-33 - 3 3 0.10550E-03 0.10000E+01 0.20817E+04 0.25084E-11 0.34166E-17 0.44814E-17 + 3 3 0.10550E-03 0.10000E+01 0.80645E+05 0.12462E-07 0.79650E-19 0.33270E-13 + 3 3 0.10550E-03 0.10000E+01 0.65036E+05 0.15996E-07 0.18478E-18 0.42714E-13 + 3 3 0.10550E-03 0.10000E+01 0.52449E+05 0.20256E-07 0.42453E-18 0.54102E-13 + 3 3 0.10550E-03 0.10000E+01 0.42297E+05 0.25396E-07 0.96416E-18 0.67860E-13 + 3 3 0.10550E-03 0.10000E+01 0.34111E+05 0.31595E-07 0.21618E-17 0.84474E-13 + 3 3 0.10550E-03 0.10000E+01 0.27509E+05 0.39047E-07 0.47767E-17 0.10449E-12 + 3 3 0.10550E-03 0.10000E+01 0.22184E+05 0.47952E-07 0.10367E-16 0.12847E-12 + 3 3 0.10550E-03 0.10000E+01 0.17891E+05 0.58510E-07 0.21999E-16 0.15701E-12 + 3 3 0.10550E-03 0.10000E+01 0.14428E+05 0.70897E-07 0.45577E-16 0.19064E-12 + 3 3 0.10550E-03 0.10000E+01 0.11635E+05 0.85245E-07 0.93709E-16 0.22978E-12 + 3 3 0.10550E-03 0.10000E+01 0.93834E+04 0.10164E-06 0.20275E-15 0.27464E-12 + 3 3 0.10550E-03 0.10000E+01 0.75673E+04 0.12022E-06 0.51117E-15 0.32525E-12 + 3 3 0.10550E-03 0.10000E+01 0.61026E+04 0.14145E-06 0.15881E-14 0.38181E-12 + 3 3 0.10550E-03 0.10000E+01 0.49215E+04 0.16679E-06 0.57038E-14 0.44563E-12 + 3 3 0.10550E-03 0.10000E+01 0.39689E+04 0.20010E-06 0.21528E-13 0.52086E-12 + 3 3 0.10550E-03 0.10000E+01 0.32008E+04 0.24998E-06 0.81282E-13 0.61730E-12 + 3 3 0.10550E-03 0.10000E+01 0.25813E+04 0.33419E-06 0.30309E-12 0.75425E-12 + 3 3 0.10550E-03 0.10000E+01 0.20817E+04 0.48765E-06 0.11148E-11 0.96629E-12 3 3 0.10550E-03 0.10000E+01 0.16788E+04 0.77731E-06 0.40463E-11 0.13119E-11 3 3 0.10550E-03 0.10000E+01 0.13538E+04 0.13295E-05 0.14518E-10 0.18878E-11 3 3 0.10550E-03 0.10000E+01 0.10918E+04 0.23800E-05 0.51718E-10 0.28519E-11 @@ -16990,24 +16990,24 @@ VERSION 2.8.2 3 3 0.10550E-03 0.10000E+01 0.24221E+03 0.16120E-03 0.14254E-06 0.88688E-10 3 3 0.10550E-03 0.10000E+01 0.19533E+03 0.25132E-03 0.27048E-06 0.13316E-09 3 3 0.10550E-03 0.10000E+01 0.15752E+03 0.25132E-03 0.27048E-06 0.13316E-09 - 3 3 0.18409E-03 0.10000E+01 0.80645E+05 0.32183E-50 0.24126E-61 0.85937E-56 - 3 3 0.18409E-03 0.10000E+01 0.65036E+05 0.27270E-49 0.38359E-60 0.72842E-55 - 3 3 0.18409E-03 0.10000E+01 0.52449E+05 0.23203E-48 0.51636E-59 0.61998E-54 - 3 3 0.18409E-03 0.10000E+01 0.42297E+05 0.17483E-47 0.70319E-58 0.46740E-53 - 3 3 0.18409E-03 0.10000E+01 0.34111E+05 0.12637E-46 0.96838E-57 0.33818E-52 - 3 3 0.18409E-03 0.10000E+01 0.27509E+05 0.91024E-46 0.13188E-55 0.24396E-51 - 3 3 0.18409E-03 0.10000E+01 0.22184E+05 0.65153E-45 0.17673E-54 0.17506E-50 - 3 3 0.18409E-03 0.10000E+01 0.17891E+05 0.46036E-44 0.23294E-53 0.12416E-49 - 3 3 0.18409E-03 0.10000E+01 0.14428E+05 0.32033E-43 0.30273E-52 0.86865E-49 - 3 3 0.18409E-03 0.10000E+01 0.11635E+05 0.21965E-42 0.38752E-51 0.59983E-48 - 3 3 0.18409E-03 0.10000E+01 0.93834E+04 0.14830E-41 0.48404E-50 0.40859E-47 - 3 3 0.18409E-03 0.10000E+01 0.75673E+04 0.97972E-41 0.58021E-49 0.27296E-46 - 3 3 0.18409E-03 0.10000E+01 0.61026E+04 0.62525E-40 0.65567E-48 0.17659E-45 - 3 3 0.18409E-03 0.10000E+01 0.49215E+04 0.38036E-39 0.71531E-47 0.10846E-44 - 3 3 0.18409E-03 0.10000E+01 0.39689E+04 0.22444E-38 0.91686E-46 0.62173E-44 - 3 3 0.18409E-03 0.10000E+01 0.32008E+04 0.47007E-36 0.57948E-43 0.11170E-41 - 3 3 0.18409E-03 0.10000E+01 0.25813E+04 0.23940E-27 0.89731E-34 0.45199E-33 - 3 3 0.18409E-03 0.10000E+01 0.20817E+04 0.43771E-11 0.59617E-17 0.78198E-17 + 3 3 0.18409E-03 0.10000E+01 0.80645E+05 0.21745E-07 0.13899E-18 0.58055E-13 + 3 3 0.18409E-03 0.10000E+01 0.65036E+05 0.27912E-07 0.32243E-18 0.74534E-13 + 3 3 0.18409E-03 0.10000E+01 0.52449E+05 0.35345E-07 0.74078E-18 0.94405E-13 + 3 3 0.18409E-03 0.10000E+01 0.42297E+05 0.44315E-07 0.16824E-17 0.11841E-12 + 3 3 0.18409E-03 0.10000E+01 0.34111E+05 0.55132E-07 0.37722E-17 0.14740E-12 + 3 3 0.18409E-03 0.10000E+01 0.27509E+05 0.68134E-07 0.83350E-17 0.18232E-12 + 3 3 0.18409E-03 0.10000E+01 0.22184E+05 0.83674E-07 0.18090E-16 0.22417E-12 + 3 3 0.18409E-03 0.10000E+01 0.17891E+05 0.10210E-06 0.38386E-16 0.27397E-12 + 3 3 0.18409E-03 0.10000E+01 0.14428E+05 0.12371E-06 0.79530E-16 0.33265E-12 + 3 3 0.18409E-03 0.10000E+01 0.11635E+05 0.14875E-06 0.16352E-15 0.40094E-12 + 3 3 0.18409E-03 0.10000E+01 0.93834E+04 0.17736E-06 0.35379E-15 0.47922E-12 + 3 3 0.18409E-03 0.10000E+01 0.75673E+04 0.20978E-06 0.89196E-15 0.56754E-12 + 3 3 0.18409E-03 0.10000E+01 0.61026E+04 0.24682E-06 0.27711E-14 0.66624E-12 + 3 3 0.18409E-03 0.10000E+01 0.49215E+04 0.29105E-06 0.99527E-14 0.77759E-12 + 3 3 0.18409E-03 0.10000E+01 0.39689E+04 0.34917E-06 0.37565E-13 0.90887E-12 + 3 3 0.18409E-03 0.10000E+01 0.32008E+04 0.43621E-06 0.14183E-12 0.10771E-11 + 3 3 0.18409E-03 0.10000E+01 0.25813E+04 0.58315E-06 0.52887E-12 0.13161E-11 + 3 3 0.18409E-03 0.10000E+01 0.20817E+04 0.85092E-06 0.19453E-11 0.16861E-11 3 3 0.18409E-03 0.10000E+01 0.16788E+04 0.13564E-05 0.70605E-11 0.22892E-11 3 3 0.18409E-03 0.10000E+01 0.13538E+04 0.23200E-05 0.25333E-10 0.32940E-11 3 3 0.18409E-03 0.10000E+01 0.10918E+04 0.41530E-05 0.90244E-10 0.49764E-11 @@ -17020,24 +17020,24 @@ VERSION 2.8.2 3 3 0.18409E-03 0.10000E+01 0.24221E+03 0.28128E-03 0.24873E-06 0.15476E-09 3 3 0.18409E-03 0.10000E+01 0.19533E+03 0.43854E-03 0.47198E-06 0.23235E-09 3 3 0.18409E-03 0.10000E+01 0.15752E+03 0.43854E-03 0.47198E-06 0.23235E-09 - 3 3 0.32123E-03 0.10000E+01 0.80645E+05 0.56157E-50 0.42098E-61 0.14996E-55 - 3 3 0.32123E-03 0.10000E+01 0.65036E+05 0.47584E-49 0.66934E-60 0.12711E-54 - 3 3 0.32123E-03 0.10000E+01 0.52449E+05 0.40488E-48 0.90102E-59 0.10818E-53 - 3 3 0.32123E-03 0.10000E+01 0.42297E+05 0.30507E-47 0.12270E-57 0.81559E-53 - 3 3 0.32123E-03 0.10000E+01 0.34111E+05 0.22051E-46 0.16898E-56 0.59010E-52 - 3 3 0.32123E-03 0.10000E+01 0.27509E+05 0.15883E-45 0.23013E-55 0.42570E-51 - 3 3 0.32123E-03 0.10000E+01 0.22184E+05 0.11369E-44 0.30839E-54 0.30546E-50 - 3 3 0.32123E-03 0.10000E+01 0.17891E+05 0.80331E-44 0.40647E-53 0.21666E-49 - 3 3 0.32123E-03 0.10000E+01 0.14428E+05 0.55896E-43 0.52824E-52 0.15157E-48 - 3 3 0.32123E-03 0.10000E+01 0.11635E+05 0.38327E-42 0.67619E-51 0.10467E-47 - 3 3 0.32123E-03 0.10000E+01 0.93834E+04 0.25878E-41 0.84463E-50 0.71296E-47 - 3 3 0.32123E-03 0.10000E+01 0.75673E+04 0.17096E-40 0.10124E-48 0.47630E-46 - 3 3 0.32123E-03 0.10000E+01 0.61026E+04 0.10910E-39 0.11441E-47 0.30814E-45 - 3 3 0.32123E-03 0.10000E+01 0.49215E+04 0.66370E-39 0.12482E-46 0.18925E-44 - 3 3 0.32123E-03 0.10000E+01 0.39689E+04 0.39164E-38 0.15999E-45 0.10849E-43 - 3 3 0.32123E-03 0.10000E+01 0.32008E+04 0.82025E-36 0.10112E-42 0.19492E-41 - 3 3 0.32123E-03 0.10000E+01 0.25813E+04 0.41774E-27 0.15657E-33 0.78870E-33 - 3 3 0.32123E-03 0.10000E+01 0.20817E+04 0.76377E-11 0.10403E-16 0.13645E-16 + 3 3 0.32123E-03 0.10000E+01 0.80645E+05 0.37943E-07 0.24252E-18 0.10130E-12 + 3 3 0.32123E-03 0.10000E+01 0.65036E+05 0.48705E-07 0.56262E-18 0.13006E-12 + 3 3 0.32123E-03 0.10000E+01 0.52449E+05 0.61675E-07 0.12926E-17 0.16473E-12 + 3 3 0.32123E-03 0.10000E+01 0.42297E+05 0.77327E-07 0.29357E-17 0.20662E-12 + 3 3 0.32123E-03 0.10000E+01 0.34111E+05 0.96202E-07 0.65822E-17 0.25721E-12 + 3 3 0.32123E-03 0.10000E+01 0.27509E+05 0.11889E-06 0.14544E-16 0.31814E-12 + 3 3 0.32123E-03 0.10000E+01 0.22184E+05 0.14601E-06 0.31566E-16 0.39116E-12 + 3 3 0.32123E-03 0.10000E+01 0.17891E+05 0.17815E-06 0.66982E-16 0.47805E-12 + 3 3 0.32123E-03 0.10000E+01 0.14428E+05 0.21587E-06 0.13877E-15 0.58045E-12 + 3 3 0.32123E-03 0.10000E+01 0.11635E+05 0.25956E-06 0.28533E-15 0.69962E-12 + 3 3 0.32123E-03 0.10000E+01 0.93834E+04 0.30949E-06 0.61734E-15 0.83621E-12 + 3 3 0.32123E-03 0.10000E+01 0.75673E+04 0.36606E-06 0.15564E-14 0.99032E-12 + 3 3 0.32123E-03 0.10000E+01 0.61026E+04 0.43068E-06 0.48355E-14 0.11625E-11 + 3 3 0.32123E-03 0.10000E+01 0.49215E+04 0.50786E-06 0.17367E-13 0.13569E-11 + 3 3 0.32123E-03 0.10000E+01 0.39689E+04 0.60927E-06 0.65549E-13 0.15859E-11 + 3 3 0.32123E-03 0.10000E+01 0.32008E+04 0.76115E-06 0.24749E-12 0.18796E-11 + 3 3 0.32123E-03 0.10000E+01 0.25813E+04 0.10176E-05 0.92285E-12 0.22966E-11 + 3 3 0.32123E-03 0.10000E+01 0.20817E+04 0.14848E-05 0.33945E-11 0.29422E-11 3 3 0.32123E-03 0.10000E+01 0.16788E+04 0.23668E-05 0.12320E-10 0.39946E-11 3 3 0.32123E-03 0.10000E+01 0.13538E+04 0.40482E-05 0.44205E-10 0.57479E-11 3 3 0.32123E-03 0.10000E+01 0.10918E+04 0.72468E-05 0.15747E-09 0.86835E-11 @@ -17100,24 +17100,24 @@ VERSION 2.8.2 3 4 0.10550E-03 0.10000E+01 0.32346E+01 0.85152E+01 0.23844E-02 0.41804E-03 0.12118E-01 0.14615E-02 0.46642E+10 0.93285E+01 0.50000E+03 0.90044E-13 0.12033E-02 0.78471E-02 0.45000E+03 3 4 0.18409E-03 0.10000E+01 0.32346E+01 0.85152E+01 0.72599E-02 0.72945E-03 0.21146E-01 0.14615E-02 0.81388E+10 0.16278E+02 0.50000E+03 0.15712E-12 0.20997E-02 0.78471E-02 0.45000E+03 3 4 0.32123E-03 0.10000E+01 0.32346E+01 0.85152E+01 0.22105E-01 0.12729E-02 0.36898E-01 0.14615E-02 0.14202E+11 0.28403E+02 0.50000E+03 0.27417E-12 0.36638E-02 0.78471E-02 0.45000E+03 - 3 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 3 4 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 3 4 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 3 4 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 3 4 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 3 4 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 3 4 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 3 4 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 3 4 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 3 4 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 3 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 3 4 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 3 4 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 3 4 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 3 4 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 3 4 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 3 4 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 3 4 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 3 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 3 4 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 3 4 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 3 4 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 3 4 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 3 4 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 3 4 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 3 4 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 3 4 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 3 4 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 3 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 3 4 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 3 4 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 3 4 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 3 4 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 3 4 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 3 4 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 3 4 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 3 4 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 3 4 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 3 4 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -17130,24 +17130,24 @@ VERSION 2.8.2 3 4 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 3 4 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 3 4 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 3 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 3 4 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 3 4 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 3 4 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 3 4 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 3 4 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 3 4 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 3 4 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 3 4 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 3 4 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 3 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 3 4 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 3 4 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 3 4 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 3 4 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 3 4 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 3 4 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 3 4 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 3 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 3 4 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 3 4 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 3 4 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 3 4 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 3 4 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 3 4 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 3 4 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 3 4 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 3 4 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 3 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 3 4 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 3 4 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 3 4 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 3 4 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 3 4 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 3 4 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 3 4 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 3 4 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 3 4 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 3 4 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -17160,24 +17160,24 @@ VERSION 2.8.2 3 4 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 3 4 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 3 4 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 3 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 3 4 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 3 4 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 3 4 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 3 4 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 3 4 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 3 4 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 3 4 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 3 4 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 3 4 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 3 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 3 4 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 3 4 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 3 4 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 3 4 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 3 4 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 3 4 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 3 4 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 3 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 3 4 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 3 4 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 3 4 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 3 4 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 3 4 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 3 4 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 3 4 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 3 4 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 3 4 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 3 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 3 4 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 3 4 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 3 4 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 3 4 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 3 4 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 3 4 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 3 4 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 3 4 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 3 4 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 3 4 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -17190,24 +17190,24 @@ VERSION 2.8.2 3 4 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 3 4 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 3 4 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 3 4 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 3 4 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 3 4 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 3 4 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 3 4 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 3 4 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 3 4 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 3 4 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 3 4 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 3 4 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 3 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 3 4 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 3 4 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 3 4 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 3 4 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 3 4 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 3 4 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 3 4 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 3 4 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 3 4 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 3 4 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 3 4 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 3 4 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 3 4 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 3 4 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 3 4 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 3 4 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 3 4 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 3 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 3 4 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 3 4 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 3 4 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 3 4 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 3 4 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 3 4 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 3 4 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 3 4 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 3 4 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 3 4 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -17220,24 +17220,24 @@ VERSION 2.8.2 3 4 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 3 4 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 3 4 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 3 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 3 4 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 3 4 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 3 4 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 3 4 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 3 4 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 3 4 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 3 4 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 3 4 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 3 4 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 3 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 3 4 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 3 4 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 3 4 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 3 4 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 3 4 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 3 4 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 3 4 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 3 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 3 4 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 3 4 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 3 4 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 3 4 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 3 4 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 3 4 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 3 4 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 3 4 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 3 4 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 3 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 3 4 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 3 4 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 3 4 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 3 4 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 3 4 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 3 4 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 3 4 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 3 4 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 3 4 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 3 4 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -17250,24 +17250,24 @@ VERSION 2.8.2 3 4 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 3 4 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 3 4 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 3 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 3 4 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 3 4 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 3 4 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 3 4 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 3 4 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 3 4 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 3 4 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 3 4 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 3 4 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 3 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 3 4 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 3 4 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 3 4 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 3 4 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 3 4 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 3 4 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 3 4 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 3 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 3 4 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 3 4 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 3 4 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 3 4 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 3 4 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 3 4 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 3 4 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 3 4 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 3 4 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 3 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 3 4 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 3 4 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 3 4 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 3 4 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 3 4 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 3 4 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 3 4 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 3 4 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 3 4 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 3 4 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -17280,24 +17280,24 @@ VERSION 2.8.2 3 4 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 3 4 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 3 4 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 3 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 3 4 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 3 4 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 3 4 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 3 4 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 3 4 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 3 4 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 3 4 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 3 4 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 3 4 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 3 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 3 4 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 3 4 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 3 4 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 3 4 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 3 4 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 3 4 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 3 4 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 3 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 3 4 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 3 4 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 3 4 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 3 4 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 3 4 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 3 4 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 3 4 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 3 4 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 3 4 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 3 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 3 4 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 3 4 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 3 4 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 3 4 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 3 4 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 3 4 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 3 4 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 3 4 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 3 4 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 3 4 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -17310,24 +17310,24 @@ VERSION 2.8.2 3 4 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 3 4 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 3 4 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 3 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 3 4 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 3 4 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 3 4 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 3 4 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 3 4 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 3 4 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 3 4 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 3 4 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 3 4 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 3 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 3 4 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 3 4 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 3 4 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 3 4 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 3 4 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 3 4 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 3 4 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 3 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 3 4 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 3 4 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 3 4 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 3 4 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 3 4 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 3 4 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 3 4 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 3 4 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 3 4 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 3 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 3 4 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 3 4 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 3 4 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 3 4 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 3 4 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 3 4 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 3 4 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 3 4 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 3 4 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 3 4 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -17340,24 +17340,24 @@ VERSION 2.8.2 3 4 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 3 4 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 3 4 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 3 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 3 4 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 3 4 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 3 4 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 3 4 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 3 4 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 3 4 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 3 4 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 3 4 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 3 4 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 3 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 3 4 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 3 4 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 3 4 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 3 4 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 3 4 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 3 4 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 3 4 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 3 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 3 4 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 3 4 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 3 4 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 3 4 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 3 4 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 3 4 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 3 4 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 3 4 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 3 4 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 3 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 3 4 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 3 4 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 3 4 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 3 4 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 3 4 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 3 4 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 3 4 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 3 4 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 3 4 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 3 4 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -17370,24 +17370,24 @@ VERSION 2.8.2 3 4 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 3 4 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 3 4 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 3 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 3 4 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 3 4 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 3 4 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 3 4 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 3 4 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 3 4 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 3 4 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 3 4 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 3 4 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 3 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 3 4 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 3 4 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 3 4 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 3 4 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 3 4 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 3 4 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 3 4 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 3 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 3 4 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 3 4 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 3 4 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 3 4 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 3 4 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 3 4 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 3 4 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 3 4 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 3 4 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 3 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 3 4 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 3 4 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 3 4 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 3 4 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 3 4 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 3 4 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 3 4 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 3 4 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 3 4 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 3 4 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -17400,24 +17400,24 @@ VERSION 2.8.2 3 4 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 3 4 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 3 4 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 3 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 3 4 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 3 4 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 3 4 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 3 4 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 3 4 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 3 4 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 3 4 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 3 4 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 3 4 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 3 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 3 4 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 3 4 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 3 4 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 3 4 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 3 4 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 3 4 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 3 4 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 3 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 3 4 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 3 4 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 3 4 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 3 4 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 3 4 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 3 4 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 3 4 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 3 4 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 3 4 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 3 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 3 4 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 3 4 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 3 4 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 3 4 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 3 4 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 3 4 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 3 4 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 3 4 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 3 4 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 3 4 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -17430,24 +17430,24 @@ VERSION 2.8.2 3 4 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 3 4 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 3 4 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 3 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 3 4 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 3 4 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 3 4 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 3 4 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 3 4 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 3 4 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 3 4 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 3 4 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 3 4 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 3 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 3 4 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 3 4 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 3 4 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 3 4 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 3 4 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 3 4 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 3 4 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 3 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 3 4 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 3 4 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 3 4 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 3 4 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 3 4 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 3 4 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 3 4 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 3 4 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 3 4 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 3 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 3 4 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 3 4 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 3 4 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 3 4 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 3 4 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 3 4 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 3 4 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 3 4 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 3 4 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 3 4 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -17460,24 +17460,24 @@ VERSION 2.8.2 3 4 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 3 4 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 3 4 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 3 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 3 4 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 3 4 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 3 4 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 3 4 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 3 4 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 3 4 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 3 4 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 3 4 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 3 4 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 3 4 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 3 4 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 3 4 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 3 4 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 3 4 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 3 4 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 3 4 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 3 4 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 3 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 3 4 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 3 4 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 3 4 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 3 4 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 3 4 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 3 4 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 3 4 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 3 4 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 3 4 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 3 4 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 3 4 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 3 4 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 3 4 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 3 4 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 3 4 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 3 4 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 3 4 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 3 4 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 3 4 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 3 4 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -17490,24 +17490,24 @@ VERSION 2.8.2 3 4 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 3 4 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 3 4 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 3 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 3 4 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 3 4 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 3 4 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 3 4 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 3 4 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 3 4 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 3 4 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 3 4 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 3 4 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 3 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 3 4 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 3 4 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 3 4 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 3 4 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 3 4 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 3 4 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 3 4 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 3 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 3 4 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 3 4 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 3 4 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 3 4 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 3 4 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 3 4 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 3 4 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 3 4 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 3 4 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 3 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 3 4 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 3 4 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 3 4 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 3 4 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 3 4 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 3 4 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 3 4 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 3 4 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 3 4 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 3 4 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -17520,24 +17520,24 @@ VERSION 2.8.2 3 4 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 3 4 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 3 4 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 3 4 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 3 4 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 3 4 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 3 4 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 3 4 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 3 4 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 3 4 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 3 4 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 3 4 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 3 4 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 3 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 3 4 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 3 4 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 3 4 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 3 4 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 3 4 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 3 4 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 3 4 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 3 4 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 3 4 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 3 4 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 3 4 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 3 4 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 3 4 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 3 4 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 3 4 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 3 4 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 3 4 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 3 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 3 4 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 3 4 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 3 4 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 3 4 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 3 4 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 3 4 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 3 4 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 3 4 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 3 4 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 3 4 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -17550,24 +17550,24 @@ VERSION 2.8.2 3 4 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 3 4 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 3 4 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 3 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 3 4 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 3 4 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 3 4 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 3 4 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 3 4 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 3 4 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 3 4 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 3 4 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 3 4 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 3 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 3 4 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 3 4 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 3 4 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 3 4 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 3 4 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 3 4 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 3 4 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 3 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 3 4 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 3 4 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 3 4 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 3 4 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 3 4 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 3 4 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 3 4 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 3 4 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 3 4 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 3 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 3 4 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 3 4 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 3 4 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 3 4 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 3 4 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 3 4 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 3 4 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 3 4 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 3 4 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 3 4 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -17580,24 +17580,24 @@ VERSION 2.8.2 3 4 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 3 4 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 3 4 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 3 4 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 3 4 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 3 4 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 3 4 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 3 4 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 3 4 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 3 4 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 3 4 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 3 4 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 3 4 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 3 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 3 4 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 3 4 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 3 4 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 3 4 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 3 4 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 3 4 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 3 4 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 3 4 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 3 4 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 3 4 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 3 4 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 3 4 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 3 4 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 3 4 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 3 4 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 3 4 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 3 4 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 3 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 3 4 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 3 4 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 3 4 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 3 4 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 3 4 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 3 4 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 3 4 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 3 4 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 3 4 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 3 4 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -17610,24 +17610,24 @@ VERSION 2.8.2 3 4 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 3 4 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 3 4 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 3 4 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 3 4 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 3 4 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 3 4 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 3 4 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 3 4 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 3 4 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 3 4 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 3 4 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 3 4 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 3 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 3 4 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 3 4 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 3 4 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 3 4 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 3 4 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 3 4 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 3 4 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 3 4 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 3 4 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 3 4 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 3 4 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 3 4 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 3 4 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 3 4 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 3 4 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 3 4 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 3 4 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 3 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 3 4 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 3 4 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 3 4 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 3 4 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 3 4 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 3 4 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 3 4 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 3 4 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 3 4 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 3 4 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -17640,24 +17640,24 @@ VERSION 2.8.2 3 4 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 3 4 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 3 4 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 3 4 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 3 4 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 3 4 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 3 4 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 3 4 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 3 4 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 3 4 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 3 4 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 3 4 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 3 4 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 3 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 3 4 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 3 4 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 3 4 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 3 4 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 3 4 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 3 4 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 3 4 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 3 4 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 3 4 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 3 4 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 3 4 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 3 4 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 3 4 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 3 4 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 3 4 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 3 4 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 3 4 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 3 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 3 4 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 3 4 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 3 4 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 3 4 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 3 4 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 3 4 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 3 4 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 3 4 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 3 4 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 3 4 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -17670,24 +17670,24 @@ VERSION 2.8.2 3 4 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 3 4 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 3 4 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 3 4 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 3 4 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28312E-67 - 3 4 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 3 4 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 3 4 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 3 4 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41870E-63 - 3 4 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 3 4 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 3 4 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 3 4 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28903E-58 - 3 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 3 4 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 3 4 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 3 4 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11731E-53 - 3 4 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 3 4 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73373E-50 - 3 4 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 3 4 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 3 4 0.17923E-10 0.10000E+01 0.80645E+05 0.50976E-15 0.30186E-25 0.24557E-25 + 3 4 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 3 4 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 3 4 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10005E-24 + 3 4 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 3 4 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 3 4 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 3 4 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 3 4 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 3 4 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 3 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 3 4 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 3 4 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 3 4 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 3 4 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 3 4 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 3 4 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 3 4 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 3 4 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 3 4 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 3 4 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -17700,24 +17700,24 @@ VERSION 2.8.2 3 4 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 3 4 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 3 4 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 3 4 0.31275E-10 0.10000E+01 0.80645E+05 0.12245E-57 0.88089E-69 0.11452E-67 - 3 4 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98336E-67 - 3 4 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30733E-66 0.84216E-66 - 3 4 0.31275E-10 0.10000E+01 0.42297E+05 0.99583E-55 0.85105E-65 0.66901E-65 - 3 4 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61256E-64 - 3 4 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94802E-62 0.75374E-63 - 3 4 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30613E-60 0.11739E-61 - 3 4 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19607E-60 - 3 4 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31441E-59 - 3 4 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47461E-58 - 3 4 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68930E-57 - 3 4 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98474E-56 - 3 4 0.31275E-10 0.10000E+01 0.61026E+04 0.45469E-44 0.13609E-51 0.13991E-54 - 3 4 0.31275E-10 0.10000E+01 0.49215E+04 0.64066E-43 0.36553E-50 0.19838E-53 - 3 4 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98158E-49 0.28095E-52 - 3 4 0.31275E-10 0.10000E+01 0.32008E+04 0.39979E-39 0.85220E-46 0.12501E-49 - 3 4 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91999E-41 - 3 4 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 3 4 0.31275E-10 0.10000E+01 0.80645E+05 0.93632E-15 0.31782E-25 0.77662E-25 + 3 4 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10409E-24 + 3 4 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14722E-24 + 3 4 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23367E-24 + 3 4 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43379E-24 + 3 4 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92458E-24 + 3 4 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21377E-23 + 3 4 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51099E-23 + 3 4 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12317E-22 + 3 4 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39360E-19 0.29661E-22 + 3 4 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71197E-22 + 3 4 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80120E-18 0.17035E-21 + 3 4 0.31275E-10 0.10000E+01 0.61026E+04 0.13043E-10 0.35772E-17 0.40626E-21 + 3 4 0.31275E-10 0.10000E+01 0.49215E+04 0.30842E-10 0.15704E-16 0.96446E-21 + 3 4 0.31275E-10 0.10000E+01 0.39689E+04 0.72396E-10 0.67411E-16 0.22714E-20 + 3 4 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52829E-20 + 3 4 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 3 4 0.31275E-10 0.10000E+01 0.20817E+04 0.85884E-09 0.46148E-14 0.27118E-19 3 4 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59583E-19 3 4 0.31275E-10 0.10000E+01 0.13538E+04 0.40464E-08 0.68177E-13 0.12804E-18 3 4 0.31275E-10 0.10000E+01 0.10918E+04 0.84959E-08 0.25421E-12 0.26902E-18 @@ -17730,24 +17730,24 @@ VERSION 2.8.2 3 4 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77881E-09 0.26766E-16 3 4 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 3 4 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 3 4 0.54572E-10 0.10000E+01 0.80645E+05 0.25902E-57 0.19496E-68 0.35699E-67 - 3 4 0.54572E-10 0.10000E+01 0.65036E+05 0.22055E-56 0.31826E-67 0.31164E-66 - 3 4 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49272E-66 0.26831E-65 - 3 4 0.54572E-10 0.10000E+01 0.42297E+05 0.16488E-54 0.10212E-64 0.20686E-64 - 3 4 0.54572E-10 0.10000E+01 0.34111E+05 0.17291E-53 0.28417E-63 0.16327E-63 - 3 4 0.54572E-10 0.10000E+01 0.27509E+05 0.24066E-52 0.91002E-62 0.15290E-62 - 3 4 0.54572E-10 0.10000E+01 0.22184E+05 0.39352E-51 0.29454E-60 0.19323E-61 - 3 4 0.54572E-10 0.10000E+01 0.17891E+05 0.65778E-50 0.89334E-59 0.30540E-60 - 3 4 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49597E-59 - 3 4 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69355E-56 0.76509E-58 - 3 4 0.54572E-10 0.10000E+01 0.93834E+04 0.22547E-46 0.18758E-54 0.11306E-56 - 3 4 0.54572E-10 0.10000E+01 0.75673E+04 0.32066E-45 0.50594E-53 0.16361E-55 - 3 4 0.54572E-10 0.10000E+01 0.61026E+04 0.45394E-44 0.13635E-51 0.23472E-54 - 3 4 0.54572E-10 0.10000E+01 0.49215E+04 0.64174E-43 0.36725E-50 0.33535E-53 - 3 4 0.54572E-10 0.10000E+01 0.39689E+04 0.90659E-42 0.98848E-49 0.47778E-52 - 3 4 0.54572E-10 0.10000E+01 0.32008E+04 0.40255E-39 0.85992E-46 0.21362E-49 - 3 4 0.54572E-10 0.10000E+01 0.25813E+04 0.29568E-30 0.14477E-36 0.15788E-40 - 3 4 0.54572E-10 0.10000E+01 0.20817E+04 0.56396E-14 0.12315E-19 0.30303E-24 + 3 4 0.54572E-10 0.10000E+01 0.80645E+05 0.18080E-14 0.34495E-25 0.23659E-24 + 3 4 0.54572E-10 0.10000E+01 0.65036E+05 0.24832E-14 0.16763E-24 0.31062E-24 + 3 4 0.54572E-10 0.10000E+01 0.52449E+05 0.36980E-14 0.84269E-24 0.41556E-24 + 3 4 0.54572E-10 0.10000E+01 0.42297E+05 0.63465E-14 0.41448E-23 0.59226E-24 + 3 4 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.95165E-24 + 3 4 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91836E-22 0.17798E-23 + 3 4 0.54572E-10 0.10000E+01 0.22184E+05 0.68447E-13 0.42128E-21 0.37877E-23 + 3 4 0.54572E-10 0.10000E+01 0.17891E+05 0.16550E-12 0.19196E-20 0.87057E-23 + 3 4 0.54572E-10 0.10000E+01 0.14428E+05 0.40012E-12 0.87201E-20 0.20705E-22 + 3 4 0.54572E-10 0.10000E+01 0.11635E+05 0.96293E-12 0.39552E-19 0.49797E-22 + 3 4 0.54572E-10 0.10000E+01 0.93834E+04 0.23069E-11 0.17913E-18 0.11995E-21 + 3 4 0.54572E-10 0.10000E+01 0.75673E+04 0.55071E-11 0.80842E-18 0.28841E-21 + 3 4 0.54572E-10 0.10000E+01 0.61026E+04 0.13106E-10 0.36147E-17 0.69120E-21 + 3 4 0.54572E-10 0.10000E+01 0.49215E+04 0.31056E-10 0.15887E-16 0.16479E-20 + 3 4 0.54572E-10 0.10000E+01 0.39689E+04 0.73026E-10 0.68254E-16 0.38947E-20 + 3 4 0.54572E-10 0.10000E+01 0.32008E+04 0.16963E-09 0.28624E-15 0.90838E-20 + 3 4 0.54572E-10 0.10000E+01 0.25813E+04 0.38768E-09 0.11719E-14 0.20825E-19 + 3 4 0.54572E-10 0.10000E+01 0.20817E+04 0.86926E-09 0.46792E-14 0.46807E-19 3 4 0.54572E-10 0.10000E+01 0.16788E+04 0.19088E-08 0.18204E-13 0.10297E-18 3 4 0.54572E-10 0.10000E+01 0.13538E+04 0.41002E-08 0.69152E-13 0.22149E-18 3 4 0.54572E-10 0.10000E+01 0.10918E+04 0.86120E-08 0.25786E-12 0.46566E-18 @@ -17760,24 +17760,24 @@ VERSION 2.8.2 3 4 0.54572E-10 0.10000E+01 0.24221E+03 0.85631E-06 0.79005E-09 0.46394E-16 3 4 0.54572E-10 0.10000E+01 0.19533E+03 0.13496E-05 0.15014E-08 0.73121E-16 3 4 0.54572E-10 0.10000E+01 0.15752E+03 0.13496E-05 0.15014E-08 0.73121E-16 - 3 4 0.95225E-10 0.10000E+01 0.80645E+05 0.53554E-57 0.41311E-68 0.11149E-66 - 3 4 0.95225E-10 0.10000E+01 0.65036E+05 0.46410E-56 0.66237E-67 0.97002E-66 - 3 4 0.95225E-10 0.10000E+01 0.52449E+05 0.40032E-55 0.93164E-66 0.83456E-65 - 3 4 0.95225E-10 0.10000E+01 0.42297E+05 0.31435E-54 0.15004E-64 0.63488E-64 - 3 4 0.95225E-10 0.10000E+01 0.34111E+05 0.26310E-53 0.30850E-63 0.46587E-63 - 3 4 0.95225E-10 0.10000E+01 0.27509E+05 0.27333E-52 0.83965E-62 0.35909E-62 - 3 4 0.95225E-10 0.10000E+01 0.22184E+05 0.37409E-51 0.26564E-60 0.35001E-61 - 3 4 0.95225E-10 0.10000E+01 0.17891E+05 0.59938E-50 0.82154E-59 0.48696E-60 - 3 4 0.95225E-10 0.10000E+01 0.14428E+05 0.96092E-49 0.23756E-57 0.78460E-59 - 3 4 0.95225E-10 0.10000E+01 0.11635E+05 0.14626E-47 0.65916E-56 0.12347E-57 - 3 4 0.95225E-10 0.10000E+01 0.93834E+04 0.21403E-46 0.18007E-54 0.18579E-56 - 3 4 0.95225E-10 0.10000E+01 0.75673E+04 0.30754E-45 0.48943E-53 0.27243E-55 - 3 4 0.95225E-10 0.10000E+01 0.61026E+04 0.43884E-44 0.13272E-51 0.39464E-54 - 3 4 0.95225E-10 0.10000E+01 0.49215E+04 0.62433E-43 0.35927E-50 0.56805E-53 - 3 4 0.95225E-10 0.10000E+01 0.39689E+04 0.88652E-42 0.97095E-49 0.81410E-52 - 3 4 0.95225E-10 0.10000E+01 0.32008E+04 0.39530E-39 0.84762E-46 0.36576E-49 - 3 4 0.95225E-10 0.10000E+01 0.25813E+04 0.29145E-30 0.14320E-36 0.27148E-40 - 3 4 0.95225E-10 0.10000E+01 0.20817E+04 0.55806E-14 0.12226E-19 0.52339E-24 + 3 4 0.95225E-10 0.10000E+01 0.80645E+05 0.35912E-14 0.41358E-25 0.73832E-24 + 3 4 0.95225E-10 0.10000E+01 0.65036E+05 0.47486E-14 0.17025E-24 0.95754E-24 + 3 4 0.95225E-10 0.10000E+01 0.52449E+05 0.64729E-14 0.80084E-24 0.12411E-23 + 3 4 0.95225E-10 0.10000E+01 0.42297E+05 0.95684E-14 0.38878E-23 0.16511E-23 + 3 4 0.95225E-10 0.10000E+01 0.34111E+05 0.16181E-13 0.18620E-22 0.23610E-23 + 3 4 0.95225E-10 0.10000E+01 0.27509E+05 0.31767E-13 0.87412E-22 0.38315E-23 + 3 4 0.95225E-10 0.10000E+01 0.22184E+05 0.69748E-13 0.40457E-21 0.72330E-23 + 3 4 0.95225E-10 0.10000E+01 0.17891E+05 0.16256E-12 0.18574E-20 0.15457E-22 + 3 4 0.95225E-10 0.10000E+01 0.14428E+05 0.38800E-12 0.84895E-20 0.35543E-22 + 3 4 0.95225E-10 0.10000E+01 0.11635E+05 0.93207E-12 0.38698E-19 0.84509E-22 + 3 4 0.95225E-10 0.10000E+01 0.93834E+04 0.22388E-11 0.17598E-18 0.20331E-21 + 3 4 0.95225E-10 0.10000E+01 0.75673E+04 0.53662E-11 0.79677E-18 0.49019E-21 + 3 4 0.95225E-10 0.10000E+01 0.61026E+04 0.12823E-10 0.35718E-17 0.11793E-20 + 3 4 0.95225E-10 0.10000E+01 0.49215E+04 0.30497E-10 0.15729E-16 0.28225E-20 + 3 4 0.95225E-10 0.10000E+01 0.39689E+04 0.71933E-10 0.67671E-16 0.66931E-20 + 3 4 0.95225E-10 0.10000E+01 0.32008E+04 0.16751E-09 0.28410E-15 0.15653E-19 + 3 4 0.95225E-10 0.10000E+01 0.25813E+04 0.38356E-09 0.11641E-14 0.35963E-19 + 3 4 0.95225E-10 0.10000E+01 0.20817E+04 0.86129E-09 0.46503E-14 0.80963E-19 3 4 0.95225E-10 0.10000E+01 0.16788E+04 0.18934E-08 0.18098E-13 0.17833E-18 3 4 0.95225E-10 0.10000E+01 0.13538E+04 0.40706E-08 0.68767E-13 0.38395E-18 3 4 0.95225E-10 0.10000E+01 0.10918E+04 0.85549E-08 0.25646E-12 0.80778E-18 @@ -17790,24 +17790,24 @@ VERSION 2.8.2 3 4 0.95225E-10 0.10000E+01 0.24221E+03 0.85169E-06 0.78582E-09 0.80590E-16 3 4 0.95225E-10 0.10000E+01 0.19533E+03 0.13423E-05 0.14933E-08 0.12702E-15 3 4 0.95225E-10 0.10000E+01 0.15752E+03 0.13423E-05 0.14933E-08 0.12702E-15 - 3 4 0.16616E-09 0.10000E+01 0.80645E+05 0.10977E-56 0.84399E-68 0.38931E-66 - 3 4 0.16616E-09 0.10000E+01 0.65036E+05 0.94859E-56 0.13467E-66 0.33201E-65 - 3 4 0.16616E-09 0.10000E+01 0.52449E+05 0.81337E-55 0.18293E-65 0.28216E-64 - 3 4 0.16616E-09 0.10000E+01 0.42297E+05 0.61843E-54 0.25682E-64 0.21018E-63 - 3 4 0.16616E-09 0.10000E+01 0.34111E+05 0.45987E-53 0.39813E-63 0.14712E-62 - 3 4 0.16616E-09 0.10000E+01 0.27509E+05 0.37095E-52 0.81962E-62 0.10153E-61 - 3 4 0.16616E-09 0.10000E+01 0.22184E+05 0.38546E-51 0.23727E-60 0.79594E-61 - 3 4 0.16616E-09 0.10000E+01 0.17891E+05 0.54843E-50 0.74347E-59 0.90731E-60 - 3 4 0.16616E-09 0.10000E+01 0.14428E+05 0.87339E-49 0.22016E-57 0.13675E-58 - 3 4 0.16616E-09 0.10000E+01 0.11635E+05 0.13539E-47 0.62136E-56 0.21319E-57 - 3 4 0.16616E-09 0.10000E+01 0.93834E+04 0.20146E-46 0.17176E-54 0.32067E-56 - 3 4 0.16616E-09 0.10000E+01 0.75673E+04 0.29303E-45 0.47099E-53 0.47000E-55 - 3 4 0.16616E-09 0.10000E+01 0.61026E+04 0.42199E-44 0.12862E-51 0.68052E-54 - 3 4 0.16616E-09 0.10000E+01 0.49215E+04 0.60470E-43 0.35016E-50 0.97951E-53 - 3 4 0.16616E-09 0.10000E+01 0.39689E+04 0.86365E-42 0.95077E-49 0.14045E-51 - 3 4 0.16616E-09 0.10000E+01 0.32008E+04 0.38697E-39 0.83337E-46 0.63164E-49 - 3 4 0.16616E-09 0.10000E+01 0.25813E+04 0.28656E-30 0.14136E-36 0.46945E-40 - 3 4 0.16616E-09 0.10000E+01 0.20817E+04 0.55121E-14 0.12122E-19 0.90676E-24 + 3 4 0.16616E-09 0.10000E+01 0.80645E+05 0.73120E-14 0.58770E-25 0.26093E-23 + 3 4 0.16616E-09 0.10000E+01 0.65036E+05 0.94870E-14 0.19289E-24 0.33488E-23 + 3 4 0.16616E-09 0.10000E+01 0.52449E+05 0.12339E-13 0.79089E-24 0.42519E-23 + 3 4 0.16616E-09 0.10000E+01 0.42297E+05 0.16572E-13 0.36651E-23 0.54203E-23 + 3 4 0.16616E-09 0.10000E+01 0.34111E+05 0.24110E-13 0.17472E-22 0.71408E-23 + 3 4 0.16616E-09 0.10000E+01 0.27509E+05 0.39990E-13 0.82660E-22 0.10191E-22 + 3 4 0.16616E-09 0.10000E+01 0.22184E+05 0.76864E-13 0.38622E-21 0.16572E-22 + 3 4 0.16616E-09 0.10000E+01 0.17891E+05 0.16574E-12 0.17881E-20 0.31252E-22 + 3 4 0.16616E-09 0.10000E+01 0.14428E+05 0.38170E-12 0.82297E-20 0.66360E-22 + 3 4 0.16616E-09 0.10000E+01 0.11635E+05 0.90553E-12 0.37727E-19 0.15124E-21 + 3 4 0.16616E-09 0.10000E+01 0.93834E+04 0.21711E-11 0.17236E-18 0.35660E-21 + 3 4 0.16616E-09 0.10000E+01 0.75673E+04 0.52163E-11 0.78331E-18 0.85219E-21 + 3 4 0.16616E-09 0.10000E+01 0.61026E+04 0.12512E-10 0.35219E-17 0.20432E-20 + 3 4 0.16616E-09 0.10000E+01 0.49215E+04 0.29869E-10 0.15545E-16 0.48850E-20 + 3 4 0.16616E-09 0.10000E+01 0.39689E+04 0.70688E-10 0.66991E-16 0.11585E-19 + 3 4 0.16616E-09 0.10000E+01 0.32008E+04 0.16506E-09 0.28159E-15 0.27107E-19 + 3 4 0.16616E-09 0.10000E+01 0.25813E+04 0.37879E-09 0.11549E-14 0.62316E-19 + 3 4 0.16616E-09 0.10000E+01 0.20817E+04 0.85203E-09 0.46166E-14 0.14037E-18 3 4 0.16616E-09 0.10000E+01 0.16788E+04 0.18755E-08 0.17975E-13 0.30935E-18 3 4 0.16616E-09 0.10000E+01 0.13538E+04 0.40360E-08 0.68316E-13 0.66628E-18 3 4 0.16616E-09 0.10000E+01 0.10918E+04 0.84882E-08 0.25481E-12 0.14022E-17 @@ -17820,24 +17820,24 @@ VERSION 2.8.2 3 4 0.16616E-09 0.10000E+01 0.24221E+03 0.84626E-06 0.78084E-09 0.13998E-15 3 4 0.16616E-09 0.10000E+01 0.19533E+03 0.13338E-05 0.14839E-08 0.22061E-15 3 4 0.16616E-09 0.10000E+01 0.15752E+03 0.13338E-05 0.14839E-08 0.22061E-15 - 3 4 0.28994E-09 0.10000E+01 0.80645E+05 0.22525E-56 0.16982E-67 0.15580E-65 - 3 4 0.28994E-09 0.10000E+01 0.65036E+05 0.19163E-55 0.26880E-66 0.13079E-64 - 3 4 0.28994E-09 0.10000E+01 0.52449E+05 0.16258E-54 0.35615E-65 0.11002E-63 - 3 4 0.28994E-09 0.10000E+01 0.42297E+05 0.12097E-53 0.46774E-64 0.80781E-63 - 3 4 0.28994E-09 0.10000E+01 0.34111E+05 0.84961E-53 0.61904E-63 0.55304E-62 - 3 4 0.28994E-09 0.10000E+01 0.27509E+05 0.59687E-52 0.97508E-62 0.36507E-61 - 3 4 0.28994E-09 0.10000E+01 0.22184E+05 0.48605E-51 0.23700E-60 0.24962E-60 - 3 4 0.28994E-09 0.10000E+01 0.17891E+05 0.56913E-50 0.72079E-59 0.22159E-59 - 3 4 0.28994E-09 0.10000E+01 0.14428E+05 0.85552E-49 0.21453E-57 0.28024E-58 - 3 4 0.28994E-09 0.10000E+01 0.11635E+05 0.13206E-47 0.60815E-56 0.40800E-57 - 3 4 0.28994E-09 0.10000E+01 0.93834E+04 0.19709E-46 0.16842E-54 0.59575E-56 - 3 4 0.28994E-09 0.10000E+01 0.75673E+04 0.28727E-45 0.46239E-53 0.85626E-55 - 3 4 0.28994E-09 0.10000E+01 0.61026E+04 0.41426E-44 0.12644E-51 0.12213E-53 - 3 4 0.28994E-09 0.10000E+01 0.49215E+04 0.59443E-43 0.34476E-50 0.17382E-52 - 3 4 0.28994E-09 0.10000E+01 0.39689E+04 0.85030E-42 0.93774E-49 0.24727E-51 - 3 4 0.28994E-09 0.10000E+01 0.32008E+04 0.38166E-39 0.82345E-46 0.11062E-48 - 3 4 0.28994E-09 0.10000E+01 0.25813E+04 0.28319E-30 0.13998E-36 0.81940E-40 - 3 4 0.28994E-09 0.10000E+01 0.20817E+04 0.54608E-14 0.12034E-19 0.15793E-23 + 3 4 0.28994E-09 0.10000E+01 0.80645E+05 0.15125E-13 0.97788E-25 0.10548E-22 + 3 4 0.28994E-09 0.10000E+01 0.65036E+05 0.19412E-13 0.26485E-24 0.13459E-22 + 3 4 0.28994E-09 0.10000E+01 0.52449E+05 0.24672E-13 0.90226E-24 0.16911E-22 + 3 4 0.28994E-09 0.10000E+01 0.42297E+05 0.31551E-13 0.37774E-23 0.21097E-22 + 3 4 0.28994E-09 0.10000E+01 0.34111E+05 0.41846E-13 0.17356E-22 0.26529E-22 + 3 4 0.28994E-09 0.10000E+01 0.27509E+05 0.60373E-13 0.81287E-22 0.34603E-22 + 3 4 0.28994E-09 0.10000E+01 0.22184E+05 0.99404E-13 0.37917E-21 0.48916E-22 + 3 4 0.28994E-09 0.10000E+01 0.17891E+05 0.18926E-12 0.17565E-20 0.78367E-22 + 3 4 0.28994E-09 0.10000E+01 0.14428E+05 0.40364E-12 0.80949E-20 0.14451E-21 + 3 4 0.28994E-09 0.10000E+01 0.11635E+05 0.92039E-12 0.37166E-19 0.29915E-21 + 3 4 0.28994E-09 0.10000E+01 0.93834E+04 0.21671E-11 0.17007E-18 0.66636E-21 + 3 4 0.28994E-09 0.10000E+01 0.75673E+04 0.51684E-11 0.77416E-18 0.15428E-20 + 3 4 0.28994E-09 0.10000E+01 0.61026E+04 0.12367E-10 0.34858E-17 0.36350E-20 + 3 4 0.28994E-09 0.10000E+01 0.49215E+04 0.29519E-10 0.15404E-16 0.86064E-20 + 3 4 0.28994E-09 0.10000E+01 0.39689E+04 0.69907E-10 0.66447E-16 0.20297E-19 + 3 4 0.28994E-09 0.10000E+01 0.32008E+04 0.16340E-09 0.27951E-15 0.47339E-19 + 3 4 0.28994E-09 0.10000E+01 0.25813E+04 0.37532E-09 0.11470E-14 0.10862E-18 + 3 4 0.28994E-09 0.10000E+01 0.20817E+04 0.84491E-09 0.45868E-14 0.24439E-18 3 4 0.28994E-09 0.10000E+01 0.16788E+04 0.18611E-08 0.17863E-13 0.53820E-18 3 4 0.28994E-09 0.10000E+01 0.13538E+04 0.40071E-08 0.67903E-13 0.11587E-17 3 4 0.28994E-09 0.10000E+01 0.10918E+04 0.84309E-08 0.25329E-12 0.24378E-17 @@ -17850,24 +17850,24 @@ VERSION 2.8.2 3 4 0.28994E-09 0.10000E+01 0.24221E+03 0.84119E-06 0.77617E-09 0.24319E-15 3 4 0.28994E-09 0.10000E+01 0.19533E+03 0.13258E-05 0.14750E-08 0.38328E-15 3 4 0.28994E-09 0.10000E+01 0.15752E+03 0.13258E-05 0.14750E-08 0.38328E-15 - 3 4 0.50593E-09 0.10000E+01 0.80645E+05 0.45324E-56 0.33672E-67 0.60821E-65 - 3 4 0.50593E-09 0.10000E+01 0.65036E+05 0.38112E-55 0.52991E-66 0.50902E-64 - 3 4 0.50593E-09 0.10000E+01 0.52449E+05 0.32096E-54 0.69262E-65 0.42780E-63 - 3 4 0.50593E-09 0.10000E+01 0.42297E+05 0.23610E-53 0.88743E-64 0.31439E-62 - 3 4 0.50593E-09 0.10000E+01 0.34111E+05 0.16230E-52 0.11100E-62 0.21634E-61 - 3 4 0.50593E-09 0.10000E+01 0.27509E+05 0.10832E-51 0.14819E-61 0.14348E-60 - 3 4 0.50593E-09 0.10000E+01 0.22184E+05 0.76455E-51 0.28522E-60 0.93352E-60 - 3 4 0.50593E-09 0.10000E+01 0.17891E+05 0.71743E-50 0.77696E-59 0.67015E-59 - 3 4 0.50593E-09 0.10000E+01 0.14428E+05 0.94219E-49 0.22429E-57 0.64121E-58 - 3 4 0.50593E-09 0.10000E+01 0.11635E+05 0.13887E-47 0.62754E-56 0.80314E-57 - 3 4 0.50593E-09 0.10000E+01 0.93834E+04 0.20368E-46 0.17202E-54 0.11131E-55 - 3 4 0.50593E-09 0.10000E+01 0.75673E+04 0.29366E-45 0.46837E-53 0.15671E-54 - 3 4 0.50593E-09 0.10000E+01 0.61026E+04 0.41993E-44 0.12729E-51 0.22045E-53 - 3 4 0.50593E-09 0.10000E+01 0.49215E+04 0.59882E-43 0.34569E-50 0.31015E-52 - 3 4 0.50593E-09 0.10000E+01 0.39689E+04 0.85299E-42 0.93797E-49 0.43720E-51 - 3 4 0.50593E-09 0.10000E+01 0.32008E+04 0.38187E-39 0.82256E-46 0.19427E-48 - 3 4 0.50593E-09 0.10000E+01 0.25813E+04 0.28295E-30 0.13975E-36 0.14323E-39 - 3 4 0.50593E-09 0.10000E+01 0.20817E+04 0.54533E-14 0.12013E-19 0.27515E-23 + 3 4 0.50593E-09 0.10000E+01 0.80645E+05 0.30654E-13 0.17929E-24 0.41285E-22 + 3 4 0.50593E-09 0.10000E+01 0.65036E+05 0.39145E-13 0.43228E-24 0.52646E-22 + 3 4 0.50593E-09 0.10000E+01 0.52449E+05 0.49268E-13 0.12348E-23 0.66030E-22 + 3 4 0.50593E-09 0.10000E+01 0.42297E+05 0.61685E-13 0.44429E-23 0.81848E-22 + 3 4 0.50593E-09 0.10000E+01 0.34111E+05 0.78184E-13 0.18789E-22 0.10102E-21 + 3 4 0.50593E-09 0.10000E+01 0.27509E+05 0.10360E-12 0.84752E-22 0.12597E-21 + 3 4 0.50593E-09 0.10000E+01 0.22184E+05 0.15032E-12 0.38831E-21 0.16301E-21 + 3 4 0.50593E-09 0.10000E+01 0.17891E+05 0.24898E-12 0.17810E-20 0.22793E-21 + 3 4 0.50593E-09 0.10000E+01 0.14428E+05 0.47386E-12 0.81559E-20 0.35903E-21 + 3 4 0.50593E-09 0.10000E+01 0.11635E+05 0.10036E-11 0.37294E-19 0.64795E-21 + 3 4 0.50593E-09 0.10000E+01 0.93834E+04 0.22663E-11 0.17023E-18 0.13130E-20 + 3 4 0.50593E-09 0.10000E+01 0.75673E+04 0.52865E-11 0.77376E-18 0.28739E-20 + 3 4 0.50593E-09 0.10000E+01 0.61026E+04 0.12504E-10 0.34814E-17 0.65635E-20 + 3 4 0.50593E-09 0.10000E+01 0.49215E+04 0.29663E-10 0.15379E-16 0.15279E-19 + 3 4 0.50593E-09 0.10000E+01 0.39689E+04 0.70025E-10 0.66333E-16 0.35701E-19 + 3 4 0.50593E-09 0.10000E+01 0.32008E+04 0.16340E-09 0.27902E-15 0.82831E-19 + 3 4 0.50593E-09 0.10000E+01 0.25813E+04 0.37500E-09 0.11450E-14 0.18948E-18 + 3 4 0.50593E-09 0.10000E+01 0.20817E+04 0.84381E-09 0.45790E-14 0.42557E-18 3 4 0.50593E-09 0.10000E+01 0.16788E+04 0.18583E-08 0.17833E-13 0.93615E-18 3 4 0.50593E-09 0.10000E+01 0.13538E+04 0.40006E-08 0.67786E-13 0.20140E-17 3 4 0.50593E-09 0.10000E+01 0.10918E+04 0.84169E-08 0.25285E-12 0.42355E-17 @@ -17880,24 +17880,24 @@ VERSION 2.8.2 3 4 0.50593E-09 0.10000E+01 0.24221E+03 0.83964E-06 0.77469E-09 0.42204E-15 3 4 0.50593E-09 0.10000E+01 0.19533E+03 0.13233E-05 0.14722E-08 0.66513E-15 3 4 0.50593E-09 0.10000E+01 0.15752E+03 0.13233E-05 0.14722E-08 0.66513E-15 - 3 4 0.88282E-09 0.10000E+01 0.80645E+05 0.88415E-56 0.65362E-67 0.21761E-64 - 3 4 0.88282E-09 0.10000E+01 0.65036E+05 0.74062E-55 0.10276E-65 0.18245E-63 - 3 4 0.88282E-09 0.10000E+01 0.52449E+05 0.62265E-54 0.13415E-64 0.15370E-62 - 3 4 0.88282E-09 0.10000E+01 0.42297E+05 0.45756E-53 0.17208E-63 0.11359E-61 - 3 4 0.88282E-09 0.10000E+01 0.34111E+05 0.31464E-52 0.21469E-62 0.79108E-61 - 3 4 0.88282E-09 0.10000E+01 0.27509E+05 0.20885E-51 0.26631E-61 0.53455E-60 - 3 4 0.88282E-09 0.10000E+01 0.22184E+05 0.13849E-50 0.40568E-60 0.34830E-59 - 3 4 0.88282E-09 0.10000E+01 0.17891E+05 0.10685E-49 0.89724E-59 0.22611E-58 - 3 4 0.88282E-09 0.10000E+01 0.14428E+05 0.11334E-48 0.23955E-57 0.16676E-57 - 3 4 0.88282E-09 0.10000E+01 0.11635E+05 0.15076E-47 0.65448E-56 0.16281E-56 - 3 4 0.88282E-09 0.10000E+01 0.93834E+04 0.21340E-46 0.17727E-54 0.20242E-55 - 3 4 0.88282E-09 0.10000E+01 0.75673E+04 0.30302E-45 0.47798E-53 0.27752E-54 - 3 4 0.88282E-09 0.10000E+01 0.61026E+04 0.42888E-44 0.12885E-51 0.38849E-53 - 3 4 0.88282E-09 0.10000E+01 0.49215E+04 0.60657E-43 0.34775E-50 0.54490E-52 - 3 4 0.88282E-09 0.10000E+01 0.39689E+04 0.85861E-42 0.93953E-49 0.76508E-51 - 3 4 0.88282E-09 0.10000E+01 0.32008E+04 0.38267E-39 0.82160E-46 0.33866E-48 - 3 4 0.88282E-09 0.10000E+01 0.25813E+04 0.28271E-30 0.13932E-36 0.24894E-39 - 3 4 0.88282E-09 0.10000E+01 0.20817E+04 0.54381E-14 0.11961E-19 0.47731E-23 + 3 4 0.88282E-09 0.10000E+01 0.80645E+05 0.59971E-13 0.34188E-24 0.14767E-21 + 3 4 0.88282E-09 0.10000E+01 0.65036E+05 0.76494E-13 0.77699E-24 0.18852E-21 + 3 4 0.88282E-09 0.10000E+01 0.52449E+05 0.96008E-13 0.19364E-23 0.23674E-21 + 3 4 0.88282E-09 0.10000E+01 0.42297E+05 0.11926E-12 0.58360E-23 0.29343E-21 + 3 4 0.88282E-09 0.10000E+01 0.34111E+05 0.14807E-12 0.21611E-22 0.36027E-21 + 3 4 0.88282E-09 0.10000E+01 0.27509E+05 0.18726E-12 0.90962E-22 0.44113E-21 + 3 4 0.88282E-09 0.10000E+01 0.22184E+05 0.24928E-12 0.40361E-21 0.54623E-21 + 3 4 0.88282E-09 0.10000E+01 0.17891E+05 0.36510E-12 0.18214E-20 0.70207E-21 + 3 4 0.88282E-09 0.10000E+01 0.14428E+05 0.60979E-12 0.82618E-20 0.97450E-21 + 3 4 0.88282E-09 0.10000E+01 0.11635E+05 0.11632E-11 0.37540E-19 0.15227E-20 + 3 4 0.88282E-09 0.10000E+01 0.93834E+04 0.24551E-11 0.17062E-18 0.27269E-20 + 3 4 0.88282E-09 0.10000E+01 0.75673E+04 0.55103E-11 0.77341E-18 0.54909E-20 + 3 4 0.88282E-09 0.10000E+01 0.61026E+04 0.12764E-10 0.34738E-17 0.11956E-19 + 3 4 0.88282E-09 0.10000E+01 0.49215E+04 0.29944E-10 0.15330E-16 0.27147E-19 + 3 4 0.88282E-09 0.10000E+01 0.39689E+04 0.70259E-10 0.66078E-16 0.62640E-19 + 3 4 0.88282E-09 0.10000E+01 0.32008E+04 0.16339E-09 0.27784E-15 0.14443E-18 + 3 4 0.88282E-09 0.10000E+01 0.25813E+04 0.37427E-09 0.11399E-14 0.32933E-18 + 3 4 0.88282E-09 0.10000E+01 0.20817E+04 0.84124E-09 0.45580E-14 0.73841E-18 3 4 0.88282E-09 0.10000E+01 0.16788E+04 0.18514E-08 0.17749E-13 0.16229E-17 3 4 0.88282E-09 0.10000E+01 0.13538E+04 0.39842E-08 0.67462E-13 0.34897E-17 3 4 0.88282E-09 0.10000E+01 0.10918E+04 0.83801E-08 0.25162E-12 0.73363E-17 @@ -17910,24 +17910,24 @@ VERSION 2.8.2 3 4 0.88282E-09 0.10000E+01 0.24221E+03 0.83541E-06 0.77072E-09 0.73033E-15 3 4 0.88282E-09 0.10000E+01 0.19533E+03 0.13166E-05 0.14646E-08 0.11510E-14 3 4 0.88282E-09 0.10000E+01 0.15752E+03 0.13166E-05 0.14646E-08 0.11510E-14 - 3 4 0.15405E-08 0.10000E+01 0.80645E+05 0.16765E-55 0.12400E-66 0.72558E-64 - 3 4 0.15405E-08 0.10000E+01 0.65036E+05 0.14050E-54 0.19522E-65 0.60981E-63 - 3 4 0.15405E-08 0.10000E+01 0.52449E+05 0.11828E-53 0.25606E-64 0.51499E-62 - 3 4 0.15405E-08 0.10000E+01 0.42297E+05 0.87251E-53 0.33211E-63 0.38252E-61 - 3 4 0.15405E-08 0.10000E+01 0.34111E+05 0.60529E-52 0.42144E-62 0.26916E-60 - 3 4 0.15405E-08 0.10000E+01 0.27509E+05 0.40678E-51 0.51518E-61 0.18506E-59 - 3 4 0.15405E-08 0.10000E+01 0.22184E+05 0.26613E-50 0.66955E-60 0.12279E-58 - 3 4 0.15405E-08 0.10000E+01 0.17891E+05 0.18155E-49 0.11343E-58 0.78266E-58 - 3 4 0.15405E-08 0.10000E+01 0.14428E+05 0.15183E-48 0.25890E-57 0.50359E-57 - 3 4 0.15405E-08 0.10000E+01 0.11635E+05 0.16878E-47 0.67477E-56 0.37798E-56 - 3 4 0.15405E-08 0.10000E+01 0.93834E+04 0.22269E-46 0.18082E-54 0.38005E-55 - 3 4 0.15405E-08 0.10000E+01 0.75673E+04 0.30995E-45 0.48517E-53 0.48182E-54 - 3 4 0.15405E-08 0.10000E+01 0.61026E+04 0.43555E-44 0.13013E-51 0.66726E-53 - 3 4 0.15405E-08 0.10000E+01 0.49215E+04 0.61280E-43 0.34953E-50 0.93959E-52 - 3 4 0.15405E-08 0.10000E+01 0.39689E+04 0.86333E-42 0.94072E-49 0.13229E-50 - 3 4 0.15405E-08 0.10000E+01 0.32008E+04 0.38329E-39 0.82043E-46 0.58575E-48 - 3 4 0.15405E-08 0.10000E+01 0.25813E+04 0.28237E-30 0.13887E-36 0.43026E-39 - 3 4 0.15405E-08 0.10000E+01 0.20817E+04 0.54217E-14 0.11907E-19 0.82462E-23 + 3 4 0.15405E-08 0.10000E+01 0.80645E+05 0.11376E-12 0.65422E-24 0.49195E-21 + 3 4 0.15405E-08 0.10000E+01 0.65036E+05 0.14519E-12 0.14532E-23 0.62886E-21 + 3 4 0.15405E-08 0.10000E+01 0.52449E+05 0.18228E-12 0.33305E-23 0.79112E-21 + 3 4 0.15405E-08 0.10000E+01 0.42297E+05 0.22604E-12 0.85523E-23 0.98232E-21 + 3 4 0.15405E-08 0.10000E+01 0.34111E+05 0.27833E-12 0.26659E-22 0.12063E-20 + 3 4 0.15405E-08 0.10000E+01 0.27509E+05 0.34381E-12 0.10026E-21 0.14692E-20 + 3 4 0.15405E-08 0.10000E+01 0.22184E+05 0.43455E-12 0.42178E-21 0.17862E-20 + 3 4 0.15405E-08 0.10000E+01 0.17891E+05 0.58117E-12 0.18612E-20 0.21986E-20 + 3 4 0.15405E-08 0.10000E+01 0.14428E+05 0.85863E-12 0.83557E-20 0.28146E-20 + 3 4 0.15405E-08 0.10000E+01 0.11635E+05 0.14473E-11 0.37746E-19 0.39035E-20 + 3 4 0.15405E-08 0.10000E+01 0.93834E+04 0.27775E-11 0.17091E-18 0.61179E-20 + 3 4 0.15405E-08 0.10000E+01 0.75673E+04 0.58738E-11 0.77276E-18 0.11017E-19 + 3 4 0.15405E-08 0.10000E+01 0.61026E+04 0.13167E-10 0.34653E-17 0.22300E-19 + 3 4 0.15405E-08 0.10000E+01 0.49215E+04 0.30365E-10 0.15277E-16 0.48647E-19 + 3 4 0.15405E-08 0.10000E+01 0.39689E+04 0.70627E-10 0.65813E-16 0.11005E-18 + 3 4 0.15405E-08 0.10000E+01 0.32008E+04 0.16351E-09 0.27663E-15 0.25139E-18 + 3 4 0.15405E-08 0.10000E+01 0.25813E+04 0.37362E-09 0.11347E-14 0.57078E-18 + 3 4 0.15405E-08 0.10000E+01 0.20817E+04 0.83868E-09 0.45365E-14 0.12772E-17 3 4 0.15405E-08 0.10000E+01 0.16788E+04 0.18444E-08 0.17664E-13 0.28045E-17 3 4 0.15405E-08 0.10000E+01 0.13538E+04 0.39673E-08 0.67130E-13 0.60277E-17 3 4 0.15405E-08 0.10000E+01 0.10918E+04 0.83424E-08 0.25035E-12 0.12669E-16 @@ -17940,24 +17940,24 @@ VERSION 2.8.2 3 4 0.15405E-08 0.10000E+01 0.24221E+03 0.83101E-06 0.76656E-09 0.12600E-14 3 4 0.15405E-08 0.10000E+01 0.19533E+03 0.13097E-05 0.14567E-08 0.19856E-14 3 4 0.15405E-08 0.10000E+01 0.15752E+03 0.13097E-05 0.14567E-08 0.19856E-14 - 3 4 0.26880E-08 0.10000E+01 0.80645E+05 0.31105E-55 0.23059E-66 0.23187E-63 - 3 4 0.26880E-08 0.10000E+01 0.65036E+05 0.26118E-54 0.36378E-65 0.19527E-62 - 3 4 0.26880E-08 0.10000E+01 0.52449E+05 0.22034E-53 0.47992E-64 0.16523E-61 - 3 4 0.26880E-08 0.10000E+01 0.42297E+05 0.16331E-52 0.62987E-63 0.12321E-60 - 3 4 0.26880E-08 0.10000E+01 0.34111E+05 0.11440E-51 0.81519E-62 0.87355E-60 - 3 4 0.26880E-08 0.10000E+01 0.27509E+05 0.78105E-51 0.10091E-60 0.60867E-59 - 3 4 0.26880E-08 0.10000E+01 0.22184E+05 0.51579E-50 0.12271E-59 0.41190E-58 - 3 4 0.26880E-08 0.10000E+01 0.17891E+05 0.33498E-49 0.16649E-58 0.26662E-57 - 3 4 0.26880E-08 0.10000E+01 0.14428E+05 0.23459E-48 0.29832E-57 0.16635E-56 - 3 4 0.26880E-08 0.10000E+01 0.11635E+05 0.20603E-47 0.69467E-56 0.10714E-55 - 3 4 0.26880E-08 0.10000E+01 0.93834E+04 0.23588E-46 0.18137E-54 0.83140E-55 - 3 4 0.26880E-08 0.10000E+01 0.75673E+04 0.31355E-45 0.48601E-53 0.87290E-54 - 3 4 0.26880E-08 0.10000E+01 0.61026E+04 0.43691E-44 0.13045E-51 0.11373E-52 - 3 4 0.26880E-08 0.10000E+01 0.49215E+04 0.61418E-43 0.34997E-50 0.15962E-51 - 3 4 0.26880E-08 0.10000E+01 0.39689E+04 0.86433E-42 0.94008E-49 0.22639E-50 - 3 4 0.26880E-08 0.10000E+01 0.32008E+04 0.38305E-39 0.81844E-46 0.10072E-47 - 3 4 0.26880E-08 0.10000E+01 0.25813E+04 0.28171E-30 0.13837E-36 0.74105E-39 - 3 4 0.26880E-08 0.10000E+01 0.20817E+04 0.54032E-14 0.11855E-19 0.14213E-22 + 3 4 0.26880E-08 0.10000E+01 0.80645E+05 0.21096E-12 0.12370E-23 0.15708E-20 + 3 4 0.26880E-08 0.10000E+01 0.65036E+05 0.26953E-12 0.27392E-23 0.20101E-20 + 3 4 0.26880E-08 0.10000E+01 0.52449E+05 0.33884E-12 0.60428E-23 0.25329E-20 + 3 4 0.26880E-08 0.10000E+01 0.42297E+05 0.42054E-12 0.13929E-22 0.31518E-20 + 3 4 0.26880E-08 0.10000E+01 0.34111E+05 0.51677E-12 0.36543E-22 0.38786E-20 + 3 4 0.26880E-08 0.10000E+01 0.27509E+05 0.63191E-12 0.11702E-21 0.47257E-20 + 3 4 0.26880E-08 0.10000E+01 0.22184E+05 0.77711E-12 0.44824E-21 0.57151E-20 + 3 4 0.26880E-08 0.10000E+01 0.17891E+05 0.98141E-12 0.19015E-20 0.69068E-20 + 3 4 0.26880E-08 0.10000E+01 0.14428E+05 0.13179E-11 0.84163E-20 0.84686E-20 + 3 4 0.26880E-08 0.10000E+01 0.11635E+05 0.19652E-11 0.37819E-19 0.10841E-19 + 3 4 0.26880E-08 0.10000E+01 0.93834E+04 0.33518E-11 0.17080E-18 0.15125E-19 + 3 4 0.26880E-08 0.10000E+01 0.75673E+04 0.64996E-11 0.77109E-18 0.23988E-19 + 3 4 0.26880E-08 0.10000E+01 0.61026E+04 0.13832E-10 0.34545E-17 0.43791E-19 + 3 4 0.26880E-08 0.10000E+01 0.49215E+04 0.31036E-10 0.15220E-16 0.89491E-19 + 3 4 0.26880E-08 0.10000E+01 0.39689E+04 0.71218E-10 0.65542E-16 0.19554E-18 + 3 4 0.26880E-08 0.10000E+01 0.32008E+04 0.16380E-09 0.27543E-15 0.43928E-18 + 3 4 0.26880E-08 0.10000E+01 0.25813E+04 0.37313E-09 0.11296E-14 0.98975E-18 + 3 4 0.26880E-08 0.10000E+01 0.20817E+04 0.83626E-09 0.45159E-14 0.22070E-17 3 4 0.26880E-08 0.10000E+01 0.16788E+04 0.18376E-08 0.17582E-13 0.48380E-17 3 4 0.26880E-08 0.10000E+01 0.13538E+04 0.39510E-08 0.66812E-13 0.10390E-16 3 4 0.26880E-08 0.10000E+01 0.10918E+04 0.83060E-08 0.24913E-12 0.21827E-16 @@ -17970,24 +17970,24 @@ VERSION 2.8.2 3 4 0.26880E-08 0.10000E+01 0.24221E+03 0.82672E-06 0.76247E-09 0.21676E-14 3 4 0.26880E-08 0.10000E+01 0.19533E+03 0.13028E-05 0.14489E-08 0.34156E-14 3 4 0.26880E-08 0.10000E+01 0.15752E+03 0.13028E-05 0.14489E-08 0.34156E-14 - 3 4 0.46905E-08 0.10000E+01 0.80645E+05 0.57369E-55 0.42704E-66 0.13729E-62 - 3 4 0.46905E-08 0.10000E+01 0.65036E+05 0.48332E-54 0.67570E-65 0.11601E-61 - 3 4 0.46905E-08 0.10000E+01 0.52449E+05 0.40906E-53 0.89842E-64 0.98466E-61 - 3 4 0.46905E-08 0.10000E+01 0.42297E+05 0.30512E-52 0.11968E-62 0.73856E-60 - 3 4 0.46905E-08 0.10000E+01 0.34111E+05 0.21644E-51 0.15894E-61 0.52946E-59 - 3 4 0.46905E-08 0.10000E+01 0.27509E+05 0.15104E-50 0.20450E-60 0.37613E-58 - 3 4 0.46905E-08 0.10000E+01 0.22184E+05 0.10297E-49 0.25552E-59 0.26307E-57 - 3 4 0.46905E-08 0.10000E+01 0.17891E+05 0.68479E-49 0.32445E-58 0.17907E-56 - 3 4 0.46905E-08 0.10000E+01 0.14428E+05 0.45852E-48 0.46476E-57 0.11806E-55 - 3 4 0.46905E-08 0.10000E+01 0.11635E+05 0.33591E-47 0.83523E-56 0.75861E-55 - 3 4 0.46905E-08 0.10000E+01 0.93834E+04 0.29966E-46 0.18759E-54 0.48648E-54 - 3 4 0.46905E-08 0.10000E+01 0.75673E+04 0.33529E-45 0.47847E-53 0.33142E-53 - 3 4 0.46905E-08 0.10000E+01 0.61026E+04 0.43590E-44 0.12780E-51 0.27096E-52 - 3 4 0.46905E-08 0.10000E+01 0.49215E+04 0.60378E-43 0.34483E-50 0.29067E-51 - 3 4 0.46905E-08 0.10000E+01 0.39689E+04 0.85167E-42 0.93080E-49 0.38064E-50 - 3 4 0.46905E-08 0.10000E+01 0.32008E+04 0.37908E-39 0.81241E-46 0.16903E-47 - 3 4 0.46905E-08 0.10000E+01 0.25813E+04 0.27952E-30 0.13749E-36 0.12576E-38 - 3 4 0.46905E-08 0.10000E+01 0.20817E+04 0.53686E-14 0.11778E-19 0.24345E-22 + 3 4 0.46905E-08 0.10000E+01 0.80645E+05 0.38856E-12 0.23549E-23 0.92875E-20 + 3 4 0.46905E-08 0.10000E+01 0.65036E+05 0.49731E-12 0.52984E-23 0.11905E-19 + 3 4 0.46905E-08 0.10000E+01 0.52449E+05 0.62688E-12 0.11764E-22 0.15043E-19 + 3 4 0.46905E-08 0.10000E+01 0.42297E+05 0.78077E-12 0.26254E-22 0.18797E-19 + 3 4 0.46905E-08 0.10000E+01 0.34111E+05 0.96293E-12 0.61669E-22 0.23266E-19 + 3 4 0.46905E-08 0.10000E+01 0.27509E+05 0.11789E-11 0.16430E-21 0.28544E-19 + 3 4 0.46905E-08 0.10000E+01 0.22184E+05 0.14397E-11 0.52710E-21 0.34720E-19 + 3 4 0.46905E-08 0.10000E+01 0.17891E+05 0.17722E-11 0.20074E-20 0.41903E-19 + 3 4 0.46905E-08 0.10000E+01 0.14428E+05 0.22451E-11 0.84873E-20 0.50316E-19 + 3 4 0.46905E-08 0.10000E+01 0.11635E+05 0.30290E-11 0.37605E-19 0.60563E-19 + 3 4 0.46905E-08 0.10000E+01 0.93834E+04 0.45420E-11 0.16941E-18 0.74286E-19 + 3 4 0.46905E-08 0.10000E+01 0.75673E+04 0.77911E-11 0.76519E-18 0.95749E-19 + 3 4 0.46905E-08 0.10000E+01 0.61026E+04 0.15178E-10 0.34305E-17 0.13553E-18 + 3 4 0.46905E-08 0.10000E+01 0.49215E+04 0.32350E-10 0.15121E-16 0.21893E-18 + 3 4 0.46905E-08 0.10000E+01 0.39689E+04 0.72331E-10 0.65120E-16 0.40462E-18 + 3 4 0.46905E-08 0.10000E+01 0.32008E+04 0.16436E-09 0.27364E-15 0.82435E-18 + 3 4 0.46905E-08 0.10000E+01 0.25813E+04 0.37237E-09 0.11222E-14 0.17656E-17 + 3 4 0.46905E-08 0.10000E+01 0.20817E+04 0.83251E-09 0.44858E-14 0.38400E-17 3 4 0.46905E-08 0.10000E+01 0.16788E+04 0.18273E-08 0.17463E-13 0.83139E-17 3 4 0.46905E-08 0.10000E+01 0.13538E+04 0.39267E-08 0.66350E-13 0.17740E-16 3 4 0.46905E-08 0.10000E+01 0.10918E+04 0.82522E-08 0.24737E-12 0.37131E-16 @@ -18000,24 +18000,24 @@ VERSION 2.8.2 3 4 0.46905E-08 0.10000E+01 0.24221E+03 0.82066E-06 0.75676E-09 0.36562E-14 3 4 0.46905E-08 0.10000E+01 0.19533E+03 0.12932E-05 0.14380E-08 0.57593E-14 3 4 0.46905E-08 0.10000E+01 0.15752E+03 0.12932E-05 0.14380E-08 0.57593E-14 - 3 4 0.81846E-08 0.10000E+01 0.80645E+05 0.10110E-54 0.75562E-66 0.15631E-61 - 3 4 0.81846E-08 0.10000E+01 0.65036E+05 0.85456E-54 0.11990E-64 0.13247E-60 - 3 4 0.81846E-08 0.10000E+01 0.52449E+05 0.72554E-53 0.16061E-63 0.11273E-59 - 3 4 0.81846E-08 0.10000E+01 0.42297E+05 0.54447E-52 0.21687E-62 0.84964E-59 - 3 4 0.81846E-08 0.10000E+01 0.34111E+05 0.39070E-51 0.29476E-61 0.61441E-58 - 3 4 0.81846E-08 0.10000E+01 0.27509E+05 0.27819E-50 0.39405E-60 0.44284E-57 - 3 4 0.81846E-08 0.10000E+01 0.22184E+05 0.19593E-49 0.51840E-59 0.31725E-56 - 3 4 0.81846E-08 0.10000E+01 0.17891E+05 0.13617E-48 0.68397E-58 0.22443E-55 - 3 4 0.81846E-08 0.10000E+01 0.14428E+05 0.94576E-48 0.94409E-57 0.15644E-54 - 3 4 0.81846E-08 0.10000E+01 0.11635E+05 0.67911E-47 0.14470E-55 0.10760E-53 - 3 4 0.81846E-08 0.10000E+01 0.93834E+04 0.53254E-46 0.26026E-54 0.73084E-53 - 3 4 0.81846E-08 0.10000E+01 0.75673E+04 0.48417E-45 0.55635E-53 0.48901E-52 - 3 4 0.81846E-08 0.10000E+01 0.61026E+04 0.52346E-44 0.13533E-51 0.32198E-51 - 3 4 0.81846E-08 0.10000E+01 0.49215E+04 0.65109E-43 0.35265E-50 0.21199E-50 - 3 4 0.81846E-08 0.10000E+01 0.39689E+04 0.87785E-42 0.94411E-49 0.14894E-49 - 3 4 0.81846E-08 0.10000E+01 0.32008E+04 0.38558E-39 0.82374E-46 0.40236E-47 - 3 4 0.81846E-08 0.10000E+01 0.25813E+04 0.28375E-30 0.13939E-36 0.24147E-38 - 3 4 0.81846E-08 0.10000E+01 0.20817E+04 0.54507E-14 0.11906E-19 0.46849E-22 + 3 4 0.81846E-08 0.10000E+01 0.80645E+05 0.68379E-12 0.42823E-23 0.10560E-18 + 3 4 0.81846E-08 0.10000E+01 0.65036E+05 0.87670E-12 0.98346E-23 0.13557E-18 + 3 4 0.81846E-08 0.10000E+01 0.52449E+05 0.11082E-11 0.22393E-22 0.17168E-18 + 3 4 0.81846E-08 0.10000E+01 0.42297E+05 0.13860E-11 0.50945E-22 0.21529E-18 + 3 4 0.81846E-08 0.10000E+01 0.34111E+05 0.17193E-11 0.11818E-21 0.26791E-18 + 3 4 0.81846E-08 0.10000E+01 0.27509E+05 0.21192E-11 0.29059E-21 0.33120E-18 + 3 4 0.81846E-08 0.10000E+01 0.22184E+05 0.26031E-11 0.79966E-21 0.40695E-18 + 3 4 0.81846E-08 0.10000E+01 0.17891E+05 0.32035E-11 0.25710E-20 0.49697E-18 + 3 4 0.81846E-08 0.10000E+01 0.14428E+05 0.39929E-11 0.96106E-20 0.60308E-18 + 3 4 0.81846E-08 0.10000E+01 0.11635E+05 0.51438E-11 0.39860E-19 0.72722E-18 + 3 4 0.81846E-08 0.10000E+01 0.93834E+04 0.70737E-11 0.17451E-18 0.87210E-18 + 3 4 0.81846E-08 0.10000E+01 0.75673E+04 0.10792E-10 0.77978E-18 0.10434E-17 + 3 4 0.81846E-08 0.10000E+01 0.61026E+04 0.18719E-10 0.34824E-17 0.12559E-17 + 3 4 0.81846E-08 0.10000E+01 0.49215E+04 0.36564E-10 0.15322E-16 0.15483E-17 + 3 4 0.81846E-08 0.10000E+01 0.39689E+04 0.77500E-10 0.65910E-16 0.20156E-17 + 3 4 0.81846E-08 0.10000E+01 0.32008E+04 0.17110E-09 0.27668E-15 0.28767E-17 + 3 4 0.81846E-08 0.10000E+01 0.25813E+04 0.38197E-09 0.11336E-14 0.46130E-17 + 3 4 0.81846E-08 0.10000E+01 0.20817E+04 0.84760E-09 0.45280E-14 0.82444E-17 3 4 0.81846E-08 0.10000E+01 0.16788E+04 0.18530E-08 0.17618E-13 0.15869E-16 3 4 0.81846E-08 0.10000E+01 0.13538E+04 0.39731E-08 0.66914E-13 0.31682E-16 3 4 0.81846E-08 0.10000E+01 0.10918E+04 0.83386E-08 0.24942E-12 0.63868E-16 @@ -18030,24 +18030,24 @@ VERSION 2.8.2 3 4 0.81846E-08 0.10000E+01 0.24221E+03 0.82734E-06 0.76284E-09 0.58988E-14 3 4 0.81846E-08 0.10000E+01 0.19533E+03 0.13037E-05 0.14496E-08 0.92776E-14 3 4 0.81846E-08 0.10000E+01 0.15752E+03 0.13037E-05 0.14496E-08 0.92776E-14 - 3 4 0.14282E-07 0.10000E+01 0.80645E+05 0.17474E-54 0.13074E-65 0.45841E-61 - 3 4 0.14282E-07 0.10000E+01 0.65036E+05 0.14783E-53 0.20760E-64 0.38869E-60 - 3 4 0.14282E-07 0.10000E+01 0.52449E+05 0.12560E-52 0.27855E-63 0.33092E-59 - 3 4 0.14282E-07 0.10000E+01 0.42297E+05 0.94387E-52 0.37721E-62 0.24961E-58 - 3 4 0.14282E-07 0.10000E+01 0.34111E+05 0.67898E-51 0.51493E-61 0.18075E-57 - 3 4 0.14282E-07 0.10000E+01 0.27509E+05 0.48530E-50 0.69226E-60 0.13057E-56 - 3 4 0.14282E-07 0.10000E+01 0.22184E+05 0.34347E-49 0.91393E-59 0.93877E-56 - 3 4 0.14282E-07 0.10000E+01 0.17891E+05 0.23950E-48 0.11963E-57 0.66782E-55 - 3 4 0.14282E-07 0.10000E+01 0.14428E+05 0.16542E-47 0.15921E-56 0.46923E-54 - 3 4 0.14282E-07 0.10000E+01 0.11635E+05 0.11536E-46 0.22426E-55 0.32605E-53 - 3 4 0.14282E-07 0.10000E+01 0.93834E+04 0.84147E-46 0.35309E-54 0.22417E-52 - 3 4 0.14282E-07 0.10000E+01 0.75673E+04 0.67673E-45 0.65511E-53 0.15201E-51 - 3 4 0.14282E-07 0.10000E+01 0.61026E+04 0.63487E-44 0.14414E-51 0.10114E-50 - 3 4 0.14282E-07 0.10000E+01 0.49215E+04 0.70749E-43 0.35758E-50 0.66063E-50 - 3 4 0.14282E-07 0.10000E+01 0.39689E+04 0.89920E-42 0.94114E-49 0.43459E-49 - 3 4 0.14282E-07 0.10000E+01 0.32008E+04 0.38608E-39 0.81831E-46 0.99722E-47 - 3 4 0.14282E-07 0.10000E+01 0.25813E+04 0.28262E-30 0.13854E-36 0.50035E-38 - 3 4 0.14282E-07 0.10000E+01 0.20817E+04 0.54379E-14 0.11830E-19 0.92207E-22 + 3 4 0.14282E-07 0.10000E+01 0.80645E+05 0.11815E-11 0.74489E-23 0.30963E-18 + 3 4 0.14282E-07 0.10000E+01 0.65036E+05 0.15154E-11 0.17155E-22 0.39758E-18 + 3 4 0.14282E-07 0.10000E+01 0.52449E+05 0.19166E-11 0.39109E-22 0.50370E-18 + 3 4 0.14282E-07 0.10000E+01 0.42297E+05 0.23989E-11 0.88534E-22 0.63200E-18 + 3 4 0.14282E-07 0.10000E+01 0.34111E+05 0.29780E-11 0.20115E-21 0.78713E-18 + 3 4 0.14282E-07 0.10000E+01 0.27509E+05 0.36719E-11 0.46954E-21 0.97432E-18 + 3 4 0.14282E-07 0.10000E+01 0.22184E+05 0.45044E-11 0.11738E-20 0.11992E-17 + 3 4 0.14282E-07 0.10000E+01 0.17891E+05 0.55132E-11 0.33195E-20 0.14679E-17 + 3 4 0.14282E-07 0.10000E+01 0.14428E+05 0.67732E-11 0.11012E-19 0.17864E-17 + 3 4 0.14282E-07 0.10000E+01 0.11635E+05 0.84545E-11 0.42217E-19 0.21608E-17 + 3 4 0.14282E-07 0.10000E+01 0.93834E+04 0.10965E-10 0.17769E-18 0.25978E-17 + 3 4 0.14282E-07 0.10000E+01 0.75673E+04 0.15295E-10 0.78138E-18 0.31077E-17 + 3 4 0.14282E-07 0.10000E+01 0.61026E+04 0.23830E-10 0.34701E-17 0.37140E-17 + 3 4 0.14282E-07 0.10000E+01 0.49215E+04 0.42222E-10 0.15241E-16 0.44790E-17 + 3 4 0.14282E-07 0.10000E+01 0.39689E+04 0.83544E-10 0.65517E-16 0.55603E-17 + 3 4 0.14282E-07 0.10000E+01 0.32008E+04 0.17717E-09 0.27491E-15 0.73299E-17 + 3 4 0.14282E-07 0.10000E+01 0.25813E+04 0.38727E-09 0.11260E-14 0.10613E-16 + 3 4 0.14282E-07 0.10000E+01 0.20817E+04 0.85039E-09 0.44961E-14 0.17160E-16 3 4 0.14282E-07 0.10000E+01 0.16788E+04 0.18495E-08 0.17488E-13 0.30568E-16 3 4 0.14282E-07 0.10000E+01 0.13538E+04 0.39552E-08 0.66400E-13 0.57999E-16 3 4 0.14282E-07 0.10000E+01 0.10918E+04 0.82893E-08 0.24743E-12 0.11337E-15 @@ -18060,24 +18060,24 @@ VERSION 2.8.2 3 4 0.14282E-07 0.10000E+01 0.24221E+03 0.82026E-06 0.75605E-09 0.99607E-14 3 4 0.14282E-07 0.10000E+01 0.19533E+03 0.12925E-05 0.14367E-08 0.15650E-13 3 4 0.14282E-07 0.10000E+01 0.15752E+03 0.12925E-05 0.14367E-08 0.15650E-13 - 3 4 0.24920E-07 0.10000E+01 0.80645E+05 0.29926E-54 0.22410E-65 0.13350E-60 - 3 4 0.24920E-07 0.10000E+01 0.65036E+05 0.25335E-53 0.35606E-64 0.11325E-59 - 3 4 0.24920E-07 0.10000E+01 0.52449E+05 0.21540E-52 0.47844E-63 0.96450E-59 - 3 4 0.24920E-07 0.10000E+01 0.42297E+05 0.16206E-51 0.64952E-62 0.72798E-58 - 3 4 0.24920E-07 0.10000E+01 0.34111E+05 0.11683E-50 0.89009E-61 0.52779E-57 - 3 4 0.24920E-07 0.10000E+01 0.27509E+05 0.83788E-50 0.12033E-59 0.38198E-56 - 3 4 0.24920E-07 0.10000E+01 0.22184E+05 0.59588E-49 0.15981E-58 0.27545E-55 - 3 4 0.24920E-07 0.10000E+01 0.17891E+05 0.41775E-48 0.20955E-57 0.19685E-54 - 3 4 0.24920E-07 0.10000E+01 0.14428E+05 0.28917E-47 0.27536E-56 0.13920E-53 - 3 4 0.24920E-07 0.10000E+01 0.11635E+05 0.19978E-46 0.37110E-55 0.97528E-53 - 3 4 0.24920E-07 0.10000E+01 0.93834E+04 0.14055E-45 0.53207E-54 0.67730E-52 - 3 4 0.24920E-07 0.10000E+01 0.75673E+04 0.10419E-44 0.85951E-53 0.46484E-51 - 3 4 0.24920E-07 0.10000E+01 0.61026E+04 0.85883E-44 0.16494E-51 0.31344E-50 - 3 4 0.24920E-07 0.10000E+01 0.49215E+04 0.83282E-43 0.37443E-50 0.20654E-49 - 3 4 0.24920E-07 0.10000E+01 0.39689E+04 0.95855E-42 0.94743E-49 0.13361E-48 - 3 4 0.24920E-07 0.10000E+01 0.32008E+04 0.39221E-39 0.81403E-46 0.28008E-46 - 3 4 0.24920E-07 0.10000E+01 0.25813E+04 0.28280E-30 0.13763E-36 0.11802E-37 - 3 4 0.24920E-07 0.10000E+01 0.20817E+04 0.54451E-14 0.11741E-19 0.19723E-21 + 3 4 0.24920E-07 0.10000E+01 0.80645E+05 0.20227E-11 0.12830E-22 0.90156E-18 + 3 4 0.24920E-07 0.10000E+01 0.65036E+05 0.25953E-11 0.29640E-22 0.11579E-17 + 3 4 0.24920E-07 0.10000E+01 0.52449E+05 0.32842E-11 0.67782E-22 0.14674E-17 + 3 4 0.24920E-07 0.10000E+01 0.42297E+05 0.41137E-11 0.15356E-21 0.18420E-17 + 3 4 0.24920E-07 0.10000E+01 0.34111E+05 0.51114E-11 0.34647E-21 0.22959E-17 + 3 4 0.24920E-07 0.10000E+01 0.27509E+05 0.63083E-11 0.78847E-21 0.28448E-17 + 3 4 0.24920E-07 0.10000E+01 0.22184E+05 0.77411E-11 0.18571E-20 0.35067E-17 + 3 4 0.24920E-07 0.10000E+01 0.17891E+05 0.94594E-11 0.47341E-20 0.43007E-17 + 3 4 0.24920E-07 0.10000E+01 0.14428E+05 0.11547E-10 0.13796E-19 0.52470E-17 + 3 4 0.24920E-07 0.10000E+01 0.11635E+05 0.14177E-10 0.47295E-19 0.63660E-17 + 3 4 0.24920E-07 0.10000E+01 0.93834E+04 0.17750E-10 0.18585E-18 0.76776E-17 + 3 4 0.24920E-07 0.10000E+01 0.75673E+04 0.23231E-10 0.79117E-18 0.92046E-17 + 3 4 0.24920E-07 0.10000E+01 0.61026E+04 0.32960E-10 0.34693E-17 0.10987E-16 + 3 4 0.24920E-07 0.10000E+01 0.49215E+04 0.52513E-10 0.15170E-16 0.13123E-16 + 3 4 0.24920E-07 0.10000E+01 0.39689E+04 0.94832E-10 0.65099E-16 0.15870E-16 + 3 4 0.24920E-07 0.10000E+01 0.32008E+04 0.18905E-09 0.27292E-15 0.19849E-16 + 3 4 0.24920E-07 0.10000E+01 0.25813E+04 0.39881E-09 0.11170E-14 0.26465E-16 + 3 4 0.24920E-07 0.10000E+01 0.20817E+04 0.85953E-09 0.44579E-14 0.38720E-16 3 4 0.24920E-07 0.10000E+01 0.16788E+04 0.18517E-08 0.17330E-13 0.62773E-16 3 4 0.24920E-07 0.10000E+01 0.13538E+04 0.39406E-08 0.65767E-13 0.11085E-15 3 4 0.24920E-07 0.10000E+01 0.10918E+04 0.82371E-08 0.24496E-12 0.20658E-15 @@ -18090,24 +18090,24 @@ VERSION 2.8.2 3 4 0.24920E-07 0.10000E+01 0.24221E+03 0.81141E-06 0.74752E-09 0.16757E-13 3 4 0.24920E-07 0.10000E+01 0.19533E+03 0.12784E-05 0.14204E-08 0.26289E-13 3 4 0.24920E-07 0.10000E+01 0.15752E+03 0.12784E-05 0.14204E-08 0.26289E-13 - 3 4 0.43485E-07 0.10000E+01 0.80645E+05 0.50827E-54 0.38091E-65 0.38645E-60 - 3 4 0.43485E-07 0.10000E+01 0.65036E+05 0.43057E-53 0.60550E-64 0.32793E-59 - 3 4 0.43485E-07 0.10000E+01 0.52449E+05 0.36627E-52 0.81463E-63 0.27938E-58 - 3 4 0.43485E-07 0.10000E+01 0.42297E+05 0.27586E-51 0.11083E-61 0.21099E-57 - 3 4 0.43485E-07 0.10000E+01 0.34111E+05 0.19923E-50 0.15238E-60 0.15312E-56 - 3 4 0.43485E-07 0.10000E+01 0.27509E+05 0.14330E-49 0.20703E-59 0.11100E-55 - 3 4 0.43485E-07 0.10000E+01 0.22184E+05 0.10236E-48 0.27675E-58 0.80242E-55 - 3 4 0.43485E-07 0.10000E+01 0.17891E+05 0.72170E-48 0.36495E-57 0.57562E-54 - 3 4 0.43485E-07 0.10000E+01 0.14428E+05 0.50223E-47 0.47916E-56 0.40921E-53 - 3 4 0.43485E-07 0.10000E+01 0.11635E+05 0.34712E-46 0.63430E-55 0.28863E-52 - 3 4 0.43485E-07 0.10000E+01 0.93834E+04 0.24090E-45 0.86309E-54 0.20209E-51 - 3 4 0.43485E-07 0.10000E+01 0.75673E+04 0.17095E-44 0.12567E-52 0.14010E-50 - 3 4 0.43485E-07 0.10000E+01 0.61026E+04 0.12859E-43 0.20894E-51 0.95657E-50 - 3 4 0.43485E-07 0.10000E+01 0.49215E+04 0.10886E-42 0.41676E-50 0.63891E-49 - 3 4 0.43485E-07 0.10000E+01 0.39689E+04 0.10958E-41 0.97778E-49 0.41574E-48 - 3 4 0.43485E-07 0.10000E+01 0.32008E+04 0.41147E-39 0.81520E-46 0.84381E-46 - 3 4 0.43485E-07 0.10000E+01 0.25813E+04 0.28653E-30 0.13686E-36 0.31502E-37 - 3 4 0.43485E-07 0.10000E+01 0.20817E+04 0.54993E-14 0.11648E-19 0.46447E-21 + 3 4 0.43485E-07 0.10000E+01 0.80645E+05 0.34345E-11 0.21901E-22 0.26093E-17 + 3 4 0.43485E-07 0.10000E+01 0.65036E+05 0.44080E-11 0.50743E-22 0.33517E-17 + 3 4 0.43485E-07 0.10000E+01 0.52449E+05 0.55807E-11 0.11646E-21 0.42488E-17 + 3 4 0.43485E-07 0.10000E+01 0.42297E+05 0.69950E-11 0.26469E-21 0.53358E-17 + 3 4 0.43485E-07 0.10000E+01 0.34111E+05 0.86995E-11 0.59718E-21 0.66545E-17 + 3 4 0.43485E-07 0.10000E+01 0.27509E+05 0.10749E-10 0.13461E-20 0.82530E-17 + 3 4 0.43485E-07 0.10000E+01 0.22184E+05 0.13204E-10 0.30745E-20 0.10186E-16 + 3 4 0.43485E-07 0.10000E+01 0.17891E+05 0.16139E-10 0.73219E-20 0.12513E-16 + 3 4 0.43485E-07 0.10000E+01 0.14428E+05 0.19661E-10 0.19087E-19 0.15300E-16 + 3 4 0.43485E-07 0.10000E+01 0.11635E+05 0.23956E-10 0.57512E-19 0.18613E-16 + 3 4 0.43485E-07 0.10000E+01 0.93834E+04 0.29426E-10 0.20396E-18 0.22519E-16 + 3 4 0.43485E-07 0.10000E+01 0.75673E+04 0.37014E-10 0.81891E-18 0.27080E-16 + 3 4 0.43485E-07 0.10000E+01 0.61026E+04 0.49002E-10 0.34982E-17 0.32378E-16 + 3 4 0.43485E-07 0.10000E+01 0.49215E+04 0.70867E-10 0.15142E-16 0.38571E-16 + 3 4 0.43485E-07 0.10000E+01 0.39689E+04 0.11538E-09 0.64729E-16 0.46064E-16 + 3 4 0.43485E-07 0.10000E+01 0.32008E+04 0.21139E-09 0.27088E-15 0.55876E-16 + 3 4 0.43485E-07 0.10000E+01 0.25813E+04 0.42194E-09 0.11074E-14 0.70365E-16 + 3 4 0.43485E-07 0.10000E+01 0.20817E+04 0.88117E-09 0.44153E-14 0.94644E-16 3 4 0.43485E-07 0.10000E+01 0.16788E+04 0.18668E-08 0.17150E-13 0.13924E-15 3 4 0.43485E-07 0.10000E+01 0.13538E+04 0.39379E-08 0.65035E-13 0.22500E-15 3 4 0.43485E-07 0.10000E+01 0.10918E+04 0.81925E-08 0.24206E-12 0.39198E-15 @@ -18120,24 +18120,24 @@ VERSION 2.8.2 3 4 0.43485E-07 0.10000E+01 0.24221E+03 0.80090E-06 0.73730E-09 0.28086E-13 3 4 0.43485E-07 0.10000E+01 0.19533E+03 0.12616E-05 0.14010E-08 0.43963E-13 3 4 0.43485E-07 0.10000E+01 0.15752E+03 0.12616E-05 0.14010E-08 0.43963E-13 - 3 4 0.75878E-07 0.10000E+01 0.80645E+05 0.85680E-54 0.64253E-65 0.11128E-59 - 3 4 0.75878E-07 0.10000E+01 0.65036E+05 0.72621E-53 0.10218E-63 0.94456E-59 - 3 4 0.75878E-07 0.10000E+01 0.52449E+05 0.61806E-52 0.13762E-62 0.80495E-58 - 3 4 0.75878E-07 0.10000E+01 0.42297E+05 0.46590E-51 0.18757E-61 0.60820E-57 - 3 4 0.75878E-07 0.10000E+01 0.34111E+05 0.33700E-50 0.25862E-60 0.44177E-56 - 3 4 0.75878E-07 0.10000E+01 0.27509E+05 0.24300E-49 0.35289E-59 0.32067E-55 - 3 4 0.75878E-07 0.10000E+01 0.22184E+05 0.17424E-48 0.47461E-58 0.23231E-54 - 3 4 0.75878E-07 0.10000E+01 0.17891E+05 0.12351E-47 0.63012E-57 0.16718E-53 - 3 4 0.75878E-07 0.10000E+01 0.14428E+05 0.86479E-47 0.83092E-56 0.11937E-52 - 3 4 0.75878E-07 0.10000E+01 0.11635E+05 0.60043E-46 0.10957E-54 0.84667E-52 - 3 4 0.75878E-07 0.10000E+01 0.93834E+04 0.41585E-45 0.14565E-53 0.59678E-51 - 3 4 0.75878E-07 0.10000E+01 0.75673E+04 0.28970E-44 0.19943E-52 0.41717E-50 - 3 4 0.75878E-07 0.10000E+01 0.61026E+04 0.20688E-43 0.29547E-51 0.28787E-49 - 3 4 0.75878E-07 0.10000E+01 0.49215E+04 0.15805E-42 0.50898E-50 0.19486E-48 - 3 4 0.75878E-07 0.10000E+01 0.39689E+04 0.13815E-41 0.10607E-48 0.12852E-47 - 3 4 0.75878E-07 0.10000E+01 0.32008E+04 0.45789E-39 0.83095E-46 0.26054E-45 - 3 4 0.75878E-07 0.10000E+01 0.25813E+04 0.29818E-30 0.13659E-36 0.91447E-37 - 3 4 0.75878E-07 0.10000E+01 0.20817E+04 0.56483E-14 0.11557E-19 0.11963E-20 + 3 4 0.75878E-07 0.10000E+01 0.80645E+05 0.57882E-11 0.37078E-22 0.75123E-17 + 3 4 0.75878E-07 0.10000E+01 0.65036E+05 0.74309E-11 0.86138E-22 0.96513E-17 + 3 4 0.75878E-07 0.10000E+01 0.52449E+05 0.94115E-11 0.19840E-21 0.12237E-16 + 3 4 0.75878E-07 0.10000E+01 0.42297E+05 0.11804E-10 0.45272E-21 0.15374E-16 + 3 4 0.75878E-07 0.10000E+01 0.34111E+05 0.14693E-10 0.10245E-20 0.19183E-16 + 3 4 0.75878E-07 0.10000E+01 0.27509E+05 0.18174E-10 0.23062E-20 0.23809E-16 + 3 4 0.75878E-07 0.10000E+01 0.22184E+05 0.22353E-10 0.52007E-20 0.29416E-16 + 3 4 0.75878E-07 0.10000E+01 0.17891E+05 0.27354E-10 0.11934E-19 0.36189E-16 + 3 4 0.75878E-07 0.10000E+01 0.14428E+05 0.33328E-10 0.28793E-19 0.44331E-16 + 3 4 0.75878E-07 0.10000E+01 0.11635E+05 0.40502E-10 0.77053E-19 0.54060E-16 + 3 4 0.75878E-07 0.10000E+01 0.93834E+04 0.49298E-10 0.24089E-18 0.65593E-16 + 3 4 0.75878E-07 0.10000E+01 0.75673E+04 0.60649E-10 0.88250E-18 0.79134E-16 + 3 4 0.75878E-07 0.10000E+01 0.61026E+04 0.76777E-10 0.35911E-17 0.94888E-16 + 3 4 0.75878E-07 0.10000E+01 0.49215E+04 0.10303E-09 0.15222E-16 0.11314E-15 + 3 4 0.75878E-07 0.10000E+01 0.39689E+04 0.15198E-09 0.64526E-16 0.13452E-15 + 3 4 0.75878E-07 0.10000E+01 0.32008E+04 0.25209E-09 0.26904E-15 0.16064E-15 + 3 4 0.75878E-07 0.10000E+01 0.25813E+04 0.46576E-09 0.10976E-14 0.19536E-15 + 3 4 0.75878E-07 0.10000E+01 0.20817E+04 0.92570E-09 0.43700E-14 0.24727E-15 3 4 0.75878E-07 0.10000E+01 0.16788E+04 0.19065E-08 0.16953E-13 0.33425E-15 3 4 0.75878E-07 0.10000E+01 0.13538E+04 0.39604E-08 0.64214E-13 0.49173E-15 3 4 0.75878E-07 0.10000E+01 0.10918E+04 0.81709E-08 0.23877E-12 0.78751E-15 @@ -18150,24 +18150,24 @@ VERSION 2.8.2 3 4 0.75878E-07 0.10000E+01 0.24221E+03 0.78876E-06 0.72536E-09 0.46902E-13 3 4 0.75878E-07 0.10000E+01 0.19533E+03 0.12421E-05 0.13782E-08 0.73176E-13 3 4 0.75878E-07 0.10000E+01 0.15752E+03 0.12421E-05 0.13782E-08 0.73176E-13 - 3 4 0.13240E-06 0.10000E+01 0.80645E+05 0.14346E-53 0.10765E-64 0.31895E-59 - 3 4 0.13240E-06 0.10000E+01 0.65036E+05 0.12165E-52 0.17126E-63 0.27081E-58 - 3 4 0.13240E-06 0.10000E+01 0.52449E+05 0.10358E-51 0.23086E-62 0.23084E-57 - 3 4 0.13240E-06 0.10000E+01 0.42297E+05 0.78137E-51 0.31514E-61 0.17449E-56 - 3 4 0.13240E-06 0.10000E+01 0.34111E+05 0.56594E-50 0.43552E-60 0.12683E-55 - 3 4 0.13240E-06 0.10000E+01 0.27509E+05 0.40894E-49 0.59650E-59 0.92173E-55 - 3 4 0.13240E-06 0.10000E+01 0.22184E+05 0.29419E-48 0.80660E-58 0.66897E-54 - 3 4 0.13240E-06 0.10000E+01 0.17891E+05 0.20952E-47 0.10780E-56 0.48273E-53 - 3 4 0.13240E-06 0.10000E+01 0.14428E+05 0.14758E-46 0.14302E-55 0.34597E-52 - 3 4 0.13240E-06 0.10000E+01 0.11635E+05 0.10307E-45 0.18908E-54 0.24652E-51 - 3 4 0.13240E-06 0.10000E+01 0.93834E+04 0.71617E-45 0.24962E-53 0.17472E-50 - 3 4 0.13240E-06 0.10000E+01 0.75673E+04 0.49658E-44 0.33193E-52 0.12297E-49 - 3 4 0.13240E-06 0.10000E+01 0.61026E+04 0.34631E-43 0.45732E-51 0.85608E-49 - 3 4 0.13240E-06 0.10000E+01 0.49215E+04 0.24869E-42 0.69348E-50 0.58629E-48 - 3 4 0.13240E-06 0.10000E+01 0.39689E+04 0.19377E-41 0.12484E-48 0.39232E-47 - 3 4 0.13240E-06 0.10000E+01 0.32008E+04 0.55664E-39 0.87940E-46 0.80440E-45 - 3 4 0.13240E-06 0.10000E+01 0.25813E+04 0.32595E-30 0.13768E-36 0.27638E-36 - 3 4 0.13240E-06 0.10000E+01 0.20817E+04 0.59774E-14 0.11478E-19 0.32959E-20 + 3 4 0.13240E-06 0.10000E+01 0.80645E+05 0.96897E-11 0.62314E-22 0.21530E-16 + 3 4 0.13240E-06 0.10000E+01 0.65036E+05 0.12443E-10 0.14510E-21 0.27663E-16 + 3 4 0.13240E-06 0.10000E+01 0.52449E+05 0.15764E-10 0.33529E-21 0.35082E-16 + 3 4 0.13240E-06 0.10000E+01 0.42297E+05 0.19782E-10 0.76815E-21 0.44087E-16 + 3 4 0.13240E-06 0.10000E+01 0.34111E+05 0.24642E-10 0.17454E-20 0.55037E-16 + 3 4 0.13240E-06 0.10000E+01 0.27509E+05 0.30512E-10 0.39390E-20 0.68354E-16 + 3 4 0.13240E-06 0.10000E+01 0.22184E+05 0.37578E-10 0.88561E-20 0.84528E-16 + 3 4 0.13240E-06 0.10000E+01 0.17891E+05 0.46050E-10 0.19986E-19 0.10412E-15 + 3 4 0.13240E-06 0.10000E+01 0.14428E+05 0.56173E-10 0.46112E-19 0.12775E-15 + 3 4 0.13240E-06 0.10000E+01 0.11635E+05 0.68257E-10 0.11303E-18 0.15611E-15 + 3 4 0.13240E-06 0.10000E+01 0.93834E+04 0.82793E-10 0.31205E-18 0.18989E-15 + 3 4 0.13240E-06 0.10000E+01 0.75673E+04 0.10074E-09 0.10140E-17 0.22979E-15 + 3 4 0.13240E-06 0.10000E+01 0.61026E+04 0.12426E-09 0.38113E-17 0.27643E-15 + 3 4 0.13240E-06 0.10000E+01 0.49215E+04 0.15858E-09 0.15527E-16 0.33045E-15 + 3 4 0.13240E-06 0.10000E+01 0.39689E+04 0.21598E-09 0.64701E-16 0.39287E-15 + 3 4 0.13240E-06 0.10000E+01 0.32008E+04 0.32450E-09 0.26779E-15 0.46613E-15 + 3 4 0.13240E-06 0.10000E+01 0.25813E+04 0.54571E-09 0.10886E-14 0.55631E-15 + 3 4 0.13240E-06 0.10000E+01 0.20817E+04 0.10108E-08 0.43238E-14 0.67744E-15 3 4 0.13240E-06 0.10000E+01 0.16788E+04 0.19909E-08 0.16743E-13 0.85944E-15 3 4 0.13240E-06 0.10000E+01 0.13538E+04 0.40308E-08 0.63318E-13 0.11621E-14 3 4 0.13240E-06 0.10000E+01 0.10918E+04 0.81979E-08 0.23511E-12 0.16995E-14 @@ -18180,24 +18180,24 @@ VERSION 2.8.2 3 4 0.13240E-06 0.10000E+01 0.24221E+03 0.77500E-06 0.71164E-09 0.78072E-13 3 4 0.13240E-06 0.10000E+01 0.19533E+03 0.12200E-05 0.13521E-08 0.12120E-12 3 4 0.13240E-06 0.10000E+01 0.15752E+03 0.12200E-05 0.13521E-08 0.12120E-12 - 3 4 0.23103E-06 0.10000E+01 0.80645E+05 0.23877E-53 0.17925E-64 0.91052E-59 - 3 4 0.23103E-06 0.10000E+01 0.65036E+05 0.20255E-52 0.28526E-63 0.77328E-58 - 3 4 0.23103E-06 0.10000E+01 0.52449E+05 0.17252E-51 0.38484E-62 0.65927E-57 - 3 4 0.23103E-06 0.10000E+01 0.42297E+05 0.13023E-50 0.52601E-61 0.49853E-56 - 3 4 0.23103E-06 0.10000E+01 0.34111E+05 0.94428E-50 0.72842E-60 0.36261E-55 - 3 4 0.23103E-06 0.10000E+01 0.27509E+05 0.68355E-49 0.10008E-58 0.26378E-54 - 3 4 0.23103E-06 0.10000E+01 0.22184E+05 0.49311E-48 0.13597E-57 0.19174E-53 - 3 4 0.23103E-06 0.10000E+01 0.17891E+05 0.35265E-47 0.18281E-56 0.13868E-52 - 3 4 0.23103E-06 0.10000E+01 0.14428E+05 0.24974E-46 0.24408E-55 0.99708E-52 - 3 4 0.23103E-06 0.10000E+01 0.11635E+05 0.17546E-45 0.32433E-54 0.71324E-51 - 3 4 0.23103E-06 0.10000E+01 0.93834E+04 0.12255E-44 0.42860E-53 0.50788E-50 - 3 4 0.23103E-06 0.10000E+01 0.75673E+04 0.85131E-44 0.56422E-52 0.35948E-49 - 3 4 0.23103E-06 0.10000E+01 0.61026E+04 0.58924E-43 0.74937E-51 0.25208E-48 - 3 4 0.23103E-06 0.10000E+01 0.49215E+04 0.41059E-42 0.10424E-49 0.17434E-47 - 3 4 0.23103E-06 0.10000E+01 0.39689E+04 0.29709E-41 0.16325E-48 0.11820E-46 - 3 4 0.23103E-06 0.10000E+01 0.32008E+04 0.75148E-39 0.99449E-46 0.24592E-44 - 3 4 0.23103E-06 0.10000E+01 0.25813E+04 0.38464E-30 0.14183E-36 0.84471E-36 - 3 4 0.23103E-06 0.10000E+01 0.20817E+04 0.66370E-14 0.11428E-19 0.94662E-20 + 3 4 0.23103E-06 0.10000E+01 0.80645E+05 0.16124E-10 0.10404E-21 0.61455E-16 + 3 4 0.23103E-06 0.10000E+01 0.65036E+05 0.20709E-10 0.24275E-21 0.78972E-16 + 3 4 0.23103E-06 0.10000E+01 0.52449E+05 0.26245E-10 0.56253E-21 0.10017E-15 + 3 4 0.23103E-06 0.10000E+01 0.42297E+05 0.32948E-10 0.12935E-20 0.12591E-15 + 3 4 0.23103E-06 0.10000E+01 0.34111E+05 0.41071E-10 0.29518E-20 0.15725E-15 + 3 4 0.23103E-06 0.10000E+01 0.27509E+05 0.50901E-10 0.66880E-20 0.19541E-15 + 3 4 0.23103E-06 0.10000E+01 0.22184E+05 0.62766E-10 0.15062E-19 0.24183E-15 + 3 4 0.23103E-06 0.10000E+01 0.17891E+05 0.77031E-10 0.33818E-19 0.29819E-15 + 3 4 0.23103E-06 0.10000E+01 0.14428E+05 0.94109E-10 0.76368E-19 0.36638E-15 + 3 4 0.23103E-06 0.10000E+01 0.11635E+05 0.11448E-09 0.17741E-18 0.44851E-15 + 3 4 0.23103E-06 0.10000E+01 0.93834E+04 0.13879E-09 0.44378E-18 0.54681E-15 + 3 4 0.23103E-06 0.10000E+01 0.75673E+04 0.16810E-09 0.12695E-17 0.66353E-15 + 3 4 0.23103E-06 0.10000E+01 0.61026E+04 0.20459E-09 0.42725E-17 0.80074E-15 + 3 4 0.23103E-06 0.10000E+01 0.49215E+04 0.25332E-09 0.16274E-16 0.96027E-15 + 3 4 0.23103E-06 0.10000E+01 0.39689E+04 0.32628E-09 0.65650E-16 0.11441E-14 + 3 4 0.23103E-06 0.10000E+01 0.32008E+04 0.45089E-09 0.26783E-15 0.13558E-14 + 3 4 0.23103E-06 0.10000E+01 0.25813E+04 0.68777E-09 0.10815E-14 0.16044E-14 + 3 4 0.23103E-06 0.10000E+01 0.20817E+04 0.11663E-08 0.42793E-14 0.19118E-14 3 4 0.23103E-06 0.10000E+01 0.16788E+04 0.21538E-08 0.16526E-13 0.23264E-14 3 4 0.23103E-06 0.10000E+01 0.13538E+04 0.41872E-08 0.62359E-13 0.29476E-14 3 4 0.23103E-06 0.10000E+01 0.10918E+04 0.83159E-08 0.23110E-12 0.39654E-14 @@ -18210,24 +18210,24 @@ VERSION 2.8.2 3 4 0.23103E-06 0.10000E+01 0.24221E+03 0.75965E-06 0.69604E-09 0.12967E-12 3 4 0.23103E-06 0.10000E+01 0.19533E+03 0.11951E-05 0.13224E-08 0.19978E-12 3 4 0.23103E-06 0.10000E+01 0.15752E+03 0.11951E-05 0.13224E-08 0.19978E-12 - 3 4 0.40314E-06 0.10000E+01 0.80645E+05 0.39524E-53 0.29684E-64 0.25902E-58 - 3 4 0.40314E-06 0.10000E+01 0.65036E+05 0.33541E-52 0.47253E-63 0.22002E-57 - 3 4 0.40314E-06 0.10000E+01 0.52449E+05 0.28576E-51 0.63791E-62 0.18762E-56 - 3 4 0.40314E-06 0.10000E+01 0.42297E+05 0.21583E-50 0.87289E-61 0.14192E-55 - 3 4 0.40314E-06 0.10000E+01 0.34111E+05 0.15665E-49 0.12109E-59 0.10328E-54 - 3 4 0.40314E-06 0.10000E+01 0.27509E+05 0.11357E-48 0.16681E-58 0.75199E-54 - 3 4 0.40314E-06 0.10000E+01 0.22184E+05 0.82126E-48 0.22754E-57 0.54737E-53 - 3 4 0.40314E-06 0.10000E+01 0.17891E+05 0.58941E-47 0.30755E-56 0.39669E-52 - 3 4 0.40314E-06 0.10000E+01 0.14428E+05 0.41938E-46 0.41307E-55 0.28598E-51 - 3 4 0.40314E-06 0.10000E+01 0.11635E+05 0.29627E-45 0.55202E-54 0.20525E-50 - 3 4 0.40314E-06 0.10000E+01 0.93834E+04 0.20809E-44 0.73267E-53 0.14673E-49 - 3 4 0.40314E-06 0.10000E+01 0.75673E+04 0.14521E-43 0.96418E-52 0.10435E-48 - 3 4 0.40314E-06 0.10000E+01 0.61026E+04 0.10057E-42 0.12628E-50 0.73622E-48 - 3 4 0.40314E-06 0.10000E+01 0.49215E+04 0.69321E-42 0.16767E-49 0.51332E-47 - 3 4 0.40314E-06 0.10000E+01 0.39689E+04 0.48265E-41 0.23698E-48 0.35192E-46 - 3 4 0.40314E-06 0.10000E+01 0.32008E+04 0.11169E-38 0.12370E-45 0.74265E-44 - 3 4 0.40314E-06 0.10000E+01 0.25813E+04 0.50014E-30 0.15238E-36 0.25731E-35 - 3 4 0.40314E-06 0.10000E+01 0.20817E+04 0.78887E-14 0.11436E-19 0.27768E-19 + 3 4 0.40314E-06 0.10000E+01 0.80645E+05 0.26686E-10 0.17269E-21 0.17480E-15 + 3 4 0.40314E-06 0.10000E+01 0.65036E+05 0.34280E-10 0.40363E-21 0.22465E-15 + 3 4 0.40314E-06 0.10000E+01 0.52449E+05 0.43456E-10 0.93766E-21 0.28500E-15 + 3 4 0.40314E-06 0.10000E+01 0.42297E+05 0.54577E-10 0.21633E-20 0.35833E-15 + 3 4 0.40314E-06 0.10000E+01 0.34111E+05 0.68071E-10 0.49563E-20 0.44765E-15 + 3 4 0.40314E-06 0.10000E+01 0.27509E+05 0.84433E-10 0.11278E-19 0.55656E-15 + 3 4 0.40314E-06 0.10000E+01 0.22184E+05 0.10423E-09 0.25494E-19 0.68926E-15 + 3 4 0.40314E-06 0.10000E+01 0.17891E+05 0.12810E-09 0.57281E-19 0.85067E-15 + 3 4 0.40314E-06 0.10000E+01 0.14428E+05 0.15675E-09 0.12835E-18 0.10465E-14 + 3 4 0.40314E-06 0.10000E+01 0.11635E+05 0.19099E-09 0.29008E-18 0.12830E-14 + 3 4 0.40314E-06 0.10000E+01 0.93834E+04 0.23177E-09 0.68037E-18 0.15672E-14 + 3 4 0.40314E-06 0.10000E+01 0.75673E+04 0.28042E-09 0.17452E-17 0.19064E-14 + 3 4 0.40314E-06 0.10000E+01 0.61026E+04 0.33925E-09 0.51759E-17 0.23074E-14 + 3 4 0.40314E-06 0.10000E+01 0.49215E+04 0.41325E-09 0.17863E-16 0.27762E-14 + 3 4 0.40314E-06 0.10000E+01 0.39689E+04 0.51404E-09 0.68109E-16 0.33179E-14 + 3 4 0.40314E-06 0.10000E+01 0.32008E+04 0.66831E-09 0.27045E-15 0.39383E-14 + 3 4 0.40314E-06 0.10000E+01 0.25813E+04 0.93543E-09 0.10785E-14 0.46497E-14 + 3 4 0.40314E-06 0.10000E+01 0.20817E+04 0.14425E-08 0.42403E-14 0.54838E-14 3 4 0.40314E-06 0.10000E+01 0.16788E+04 0.24528E-08 0.16310E-13 0.65153E-14 3 4 0.40314E-06 0.10000E+01 0.13538E+04 0.44942E-08 0.61352E-13 0.79030E-14 3 4 0.40314E-06 0.10000E+01 0.10918E+04 0.85969E-08 0.22678E-12 0.99573E-14 @@ -18240,24 +18240,24 @@ VERSION 2.8.2 3 4 0.40314E-06 0.10000E+01 0.24221E+03 0.74274E-06 0.67845E-09 0.21544E-12 3 4 0.40314E-06 0.10000E+01 0.19533E+03 0.11676E-05 0.12888E-08 0.32798E-12 3 4 0.40314E-06 0.10000E+01 0.15752E+03 0.11676E-05 0.12888E-08 0.32798E-12 - 3 4 0.70346E-06 0.10000E+01 0.80645E+05 0.65112E-53 0.48920E-64 0.73455E-58 - 3 4 0.70346E-06 0.10000E+01 0.65036E+05 0.55271E-52 0.77891E-63 0.62407E-57 - 3 4 0.70346E-06 0.10000E+01 0.52449E+05 0.47103E-51 0.10521E-61 0.53224E-56 - 3 4 0.70346E-06 0.10000E+01 0.42297E+05 0.35592E-50 0.14411E-60 0.40272E-55 - 3 4 0.70346E-06 0.10000E+01 0.34111E+05 0.25854E-49 0.20020E-59 0.29322E-54 - 3 4 0.70346E-06 0.10000E+01 0.27509E+05 0.18769E-48 0.27644E-58 0.21366E-53 - 3 4 0.70346E-06 0.10000E+01 0.22184E+05 0.13600E-47 0.37838E-57 0.15570E-52 - 3 4 0.70346E-06 0.10000E+01 0.17891E+05 0.97906E-47 0.51376E-56 0.11304E-51 - 3 4 0.70346E-06 0.10000E+01 0.14428E+05 0.69948E-46 0.69367E-55 0.81682E-51 - 3 4 0.70346E-06 0.10000E+01 0.11635E+05 0.49658E-45 0.93215E-54 0.58794E-50 - 3 4 0.70346E-06 0.10000E+01 0.93834E+04 0.35064E-44 0.12439E-52 0.42172E-49 - 3 4 0.70346E-06 0.10000E+01 0.75673E+04 0.24599E-43 0.16435E-51 0.30113E-48 - 3 4 0.70346E-06 0.10000E+01 0.61026E+04 0.17106E-42 0.21485E-50 0.21355E-47 - 3 4 0.70346E-06 0.10000E+01 0.49215E+04 0.11782E-41 0.27978E-49 0.14991E-46 - 3 4 0.70346E-06 0.10000E+01 0.39689E+04 0.80784E-41 0.37248E-48 0.10373E-45 - 3 4 0.70346E-06 0.10000E+01 0.32008E+04 0.17780E-38 0.17123E-45 0.22165E-43 - 3 4 0.70346E-06 0.10000E+01 0.25813E+04 0.71687E-30 0.17554E-36 0.77671E-35 - 3 4 0.70346E-06 0.10000E+01 0.20817E+04 0.10182E-13 0.11565E-19 0.82082E-19 + 3 4 0.70346E-06 0.10000E+01 0.80645E+05 0.43956E-10 0.28516E-21 0.49569E-15 + 3 4 0.70346E-06 0.10000E+01 0.65036E+05 0.56472E-10 0.66750E-21 0.63710E-15 + 3 4 0.70346E-06 0.10000E+01 0.52449E+05 0.71606E-10 0.15540E-20 0.80834E-15 + 3 4 0.70346E-06 0.10000E+01 0.42297E+05 0.89960E-10 0.35956E-20 0.10165E-14 + 3 4 0.70346E-06 0.10000E+01 0.34111E+05 0.11226E-09 0.82675E-20 0.12703E-14 + 3 4 0.70346E-06 0.10000E+01 0.27509E+05 0.13934E-09 0.18892E-19 0.15800E-14 + 3 4 0.70346E-06 0.10000E+01 0.22184E+05 0.17218E-09 0.42888E-19 0.19579E-14 + 3 4 0.70346E-06 0.10000E+01 0.17891E+05 0.21188E-09 0.96680E-19 0.24184E-14 + 3 4 0.70346E-06 0.10000E+01 0.14428E+05 0.25968E-09 0.21652E-18 0.29781E-14 + 3 4 0.70346E-06 0.10000E+01 0.11635E+05 0.31695E-09 0.48392E-18 0.36562E-14 + 3 4 0.70346E-06 0.10000E+01 0.93834E+04 0.38526E-09 0.10957E-17 0.44739E-14 + 3 4 0.70346E-06 0.10000E+01 0.75673E+04 0.46646E-09 0.26040E-17 0.54537E-14 + 3 4 0.70346E-06 0.10000E+01 0.61026E+04 0.56330E-09 0.68694E-17 0.66182E-14 + 3 4 0.70346E-06 0.10000E+01 0.49215E+04 0.68088E-09 0.21003E-16 0.79879E-14 + 3 4 0.70346E-06 0.10000E+01 0.39689E+04 0.83051E-09 0.73444E-16 0.95789E-14 + 3 4 0.70346E-06 0.10000E+01 0.32008E+04 0.10380E-08 0.27809E-15 0.11404E-13 + 3 4 0.70346E-06 0.10000E+01 0.25813E+04 0.13610E-08 0.10837E-14 0.13481E-13 + 3 4 0.70346E-06 0.10000E+01 0.20817E+04 0.19238E-08 0.42135E-14 0.15849E-13 3 4 0.70346E-06 0.10000E+01 0.16788E+04 0.29847E-08 0.16105E-13 0.18615E-13 3 4 0.70346E-06 0.10000E+01 0.13538E+04 0.50615E-08 0.60313E-13 0.22018E-13 3 4 0.70346E-06 0.10000E+01 0.10918E+04 0.91632E-08 0.22216E-12 0.26544E-13 @@ -18270,24 +18270,24 @@ VERSION 2.8.2 3 4 0.70346E-06 0.10000E+01 0.24221E+03 0.72438E-06 0.65876E-09 0.36070E-12 3 4 0.70346E-06 0.10000E+01 0.19533E+03 0.11373E-05 0.12512E-08 0.53850E-12 3 4 0.70346E-06 0.10000E+01 0.15752E+03 0.11373E-05 0.12512E-08 0.53850E-12 - 3 4 0.12275E-05 0.10000E+01 0.80645E+05 0.10685E-52 0.80306E-64 0.20704E-57 - 3 4 0.12275E-05 0.10000E+01 0.65036E+05 0.90728E-52 0.12789E-62 0.17593E-56 - 3 4 0.12275E-05 0.10000E+01 0.52449E+05 0.77337E-51 0.17284E-61 0.15006E-55 - 3 4 0.12275E-05 0.10000E+01 0.42297E+05 0.58461E-50 0.23693E-60 0.11357E-54 - 3 4 0.12275E-05 0.10000E+01 0.34111E+05 0.42497E-49 0.32957E-59 0.82728E-54 - 3 4 0.12275E-05 0.10000E+01 0.27509E+05 0.30887E-48 0.45597E-58 0.60320E-53 - 3 4 0.12275E-05 0.10000E+01 0.22184E+05 0.22420E-47 0.62595E-57 0.44004E-52 - 3 4 0.12275E-05 0.10000E+01 0.17891E+05 0.16182E-46 0.85324E-56 0.31994E-51 - 3 4 0.12275E-05 0.10000E+01 0.14428E+05 0.11601E-45 0.11573E-54 0.23166E-50 - 3 4 0.12275E-05 0.10000E+01 0.11635E+05 0.82712E-45 0.15630E-53 0.16716E-49 - 3 4 0.12275E-05 0.10000E+01 0.93834E+04 0.58683E-44 0.20970E-52 0.12025E-48 - 3 4 0.12275E-05 0.10000E+01 0.75673E+04 0.41383E-43 0.27859E-51 0.86159E-48 - 3 4 0.12275E-05 0.10000E+01 0.61026E+04 0.28930E-42 0.36550E-50 0.61364E-47 - 3 4 0.12275E-05 0.10000E+01 0.49215E+04 0.20001E-41 0.47395E-49 0.43323E-46 - 3 4 0.12275E-05 0.10000E+01 0.39689E+04 0.13677E-40 0.61408E-48 0.30212E-45 - 3 4 0.12275E-05 0.10000E+01 0.32008E+04 0.29438E-38 0.26017E-45 0.65234E-43 - 3 4 0.12275E-05 0.10000E+01 0.25813E+04 0.11105E-29 0.22283E-36 0.23116E-34 - 3 4 0.12275E-05 0.10000E+01 0.20817E+04 0.14300E-13 0.11981E-19 0.24172E-18 + 3 4 0.12275E-05 0.10000E+01 0.80645E+05 0.72126E-10 0.46892E-21 0.13970E-14 + 3 4 0.12275E-05 0.10000E+01 0.65036E+05 0.92676E-10 0.10991E-20 0.17957E-14 + 3 4 0.12275E-05 0.10000E+01 0.52449E+05 0.11753E-09 0.25634E-20 0.22786E-14 + 3 4 0.12275E-05 0.10000E+01 0.42297E+05 0.14770E-09 0.59460E-20 0.28660E-14 + 3 4 0.12275E-05 0.10000E+01 0.34111E+05 0.18440E-09 0.13715E-19 0.35825E-14 + 3 4 0.12275E-05 0.10000E+01 0.27509E+05 0.22903E-09 0.31459E-19 0.44576E-14 + 3 4 0.12275E-05 0.10000E+01 0.22184E+05 0.28325E-09 0.71718E-19 0.55266E-14 + 3 4 0.12275E-05 0.10000E+01 0.17891E+05 0.34894E-09 0.16235E-18 0.68311E-14 + 3 4 0.12275E-05 0.10000E+01 0.14428E+05 0.42827E-09 0.36463E-18 0.84198E-14 + 3 4 0.12275E-05 0.10000E+01 0.11635E+05 0.52361E-09 0.81318E-18 0.10349E-13 + 3 4 0.12275E-05 0.10000E+01 0.93834E+04 0.63760E-09 0.18127E-17 0.12682E-13 + 3 4 0.12275E-05 0.10000E+01 0.75673E+04 0.77321E-09 0.41206E-17 0.15488E-13 + 3 4 0.12275E-05 0.10000E+01 0.61026E+04 0.93408E-09 0.99559E-17 0.18839E-13 + 3 4 0.12275E-05 0.10000E+01 0.49215E+04 0.11259E-08 0.26986E-16 0.22803E-13 + 3 4 0.12275E-05 0.10000E+01 0.39689E+04 0.13600E-08 0.84362E-16 0.27436E-13 + 3 4 0.12275E-05 0.10000E+01 0.32008E+04 0.16613E-08 0.29640E-15 0.32779E-13 + 3 4 0.12275E-05 0.10000E+01 0.25813E+04 0.20856E-08 0.11095E-14 0.38863E-13 + 3 4 0.12275E-05 0.10000E+01 0.20817E+04 0.27539E-08 0.42286E-14 0.45737E-13 3 4 0.12275E-05 0.10000E+01 0.16788E+04 0.39191E-08 0.15994E-13 0.53532E-13 3 4 0.12275E-05 0.10000E+01 0.13538E+04 0.60892E-08 0.59508E-13 0.62577E-13 3 4 0.12275E-05 0.10000E+01 0.10918E+04 0.10253E-07 0.21816E-12 0.73584E-13 @@ -18300,24 +18300,24 @@ VERSION 2.8.2 3 4 0.12275E-05 0.10000E+01 0.24221E+03 0.70768E-06 0.63946E-09 0.62004E-12 3 4 0.12275E-05 0.10000E+01 0.19533E+03 0.11091E-05 0.12144E-08 0.89681E-12 3 4 0.12275E-05 0.10000E+01 0.15752E+03 0.11091E-05 0.12144E-08 0.89681E-12 - 3 4 0.21419E-05 0.10000E+01 0.80645E+05 0.17461E-52 0.13127E-63 0.58367E-57 - 3 4 0.21419E-05 0.10000E+01 0.65036E+05 0.14830E-51 0.20909E-62 0.49604E-56 - 3 4 0.21419E-05 0.10000E+01 0.52449E+05 0.12643E-50 0.28270E-61 0.42315E-55 - 3 4 0.21419E-05 0.10000E+01 0.42297E+05 0.95609E-50 0.38781E-60 0.32032E-54 - 3 4 0.21419E-05 0.10000E+01 0.34111E+05 0.69545E-49 0.54003E-59 0.23342E-53 - 3 4 0.21419E-05 0.10000E+01 0.27509E+05 0.50595E-48 0.74844E-58 0.17030E-52 - 3 4 0.21419E-05 0.10000E+01 0.22184E+05 0.36782E-47 0.10301E-56 0.12435E-51 - 3 4 0.21419E-05 0.10000E+01 0.17891E+05 0.26607E-46 0.14089E-55 0.90528E-51 - 3 4 0.21419E-05 0.10000E+01 0.14428E+05 0.19135E-45 0.19186E-54 0.65666E-50 - 3 4 0.21419E-05 0.10000E+01 0.11635E+05 0.13693E-44 0.26027E-53 0.47485E-49 - 3 4 0.21419E-05 0.10000E+01 0.93834E+04 0.97563E-44 0.35098E-52 0.34245E-48 - 3 4 0.21419E-05 0.10000E+01 0.75673E+04 0.69134E-43 0.46895E-51 0.24611E-47 - 3 4 0.21419E-05 0.10000E+01 0.61026E+04 0.48593E-42 0.61882E-50 0.17594E-46 - 3 4 0.21419E-05 0.10000E+01 0.49215E+04 0.33779E-41 0.80489E-49 0.12482E-45 - 3 4 0.21419E-05 0.10000E+01 0.39689E+04 0.23175E-40 0.10345E-47 0.87615E-45 - 3 4 0.21419E-05 0.10000E+01 0.32008E+04 0.49570E-38 0.42019E-45 0.19086E-42 - 3 4 0.21419E-05 0.10000E+01 0.25813E+04 0.18048E-29 0.31269E-36 0.68318E-34 - 3 4 0.21419E-05 0.10000E+01 0.20817E+04 0.21492E-13 0.12845E-19 0.71095E-18 + 3 4 0.21419E-05 0.10000E+01 0.80645E+05 0.11785E-09 0.76764E-21 0.39381E-14 + 3 4 0.21419E-05 0.10000E+01 0.65036E+05 0.15144E-09 0.18012E-20 0.50623E-14 + 3 4 0.21419E-05 0.10000E+01 0.52449E+05 0.19210E-09 0.42080E-20 0.64244E-14 + 3 4 0.21419E-05 0.10000E+01 0.42297E+05 0.24147E-09 0.97820E-20 0.80818E-14 + 3 4 0.21419E-05 0.10000E+01 0.34111E+05 0.30158E-09 0.22627E-19 0.10105E-13 + 3 4 0.21419E-05 0.10000E+01 0.27509E+05 0.37478E-09 0.52074E-19 0.12577E-13 + 3 4 0.21419E-05 0.10000E+01 0.22184E+05 0.46385E-09 0.11919E-18 0.15601E-13 + 3 4 0.21419E-05 0.10000E+01 0.17891E+05 0.57201E-09 0.27099E-18 0.19295E-13 + 3 4 0.21419E-05 0.10000E+01 0.14428E+05 0.70294E-09 0.61118E-18 0.23801E-13 + 3 4 0.21419E-05 0.10000E+01 0.11635E+05 0.86078E-09 0.13661E-17 0.29285E-13 + 3 4 0.21419E-05 0.10000E+01 0.93834E+04 0.10501E-08 0.30316E-17 0.35934E-13 + 3 4 0.21419E-05 0.10000E+01 0.75673E+04 0.12758E-08 0.67428E-17 0.43957E-13 + 3 4 0.21419E-05 0.10000E+01 0.61026E+04 0.15435E-08 0.15411E-16 0.53577E-13 + 3 4 0.21419E-05 0.10000E+01 0.49215E+04 0.18604E-08 0.37850E-16 0.65015E-13 + 3 4 0.21419E-05 0.10000E+01 0.39689E+04 0.22383E-08 0.10481E-15 0.78468E-13 + 3 4 0.21419E-05 0.10000E+01 0.32008E+04 0.27015E-08 0.33206E-15 0.94087E-13 + 3 4 0.21419E-05 0.10000E+01 0.25813E+04 0.33030E-08 0.11636E-14 0.11197E-12 + 3 4 0.21419E-05 0.10000E+01 0.20817E+04 0.41593E-08 0.42804E-14 0.13220E-12 3 4 0.21419E-05 0.10000E+01 0.16788E+04 0.55146E-08 0.15894E-13 0.15491E-12 3 4 0.21419E-05 0.10000E+01 0.13538E+04 0.78623E-08 0.58520E-13 0.18049E-12 3 4 0.21419E-05 0.10000E+01 0.10918E+04 0.12164E-07 0.21305E-12 0.20991E-12 @@ -18330,24 +18330,24 @@ VERSION 2.8.2 3 4 0.21419E-05 0.10000E+01 0.24221E+03 0.68727E-06 0.61508E-09 0.11374E-11 3 4 0.21419E-05 0.10000E+01 0.19533E+03 0.10742E-05 0.11678E-08 0.15668E-11 3 4 0.21419E-05 0.10000E+01 0.15752E+03 0.10742E-05 0.11678E-08 0.15668E-11 - 3 4 0.37375E-05 0.10000E+01 0.80645E+05 0.28434E-52 0.21381E-63 0.16335E-56 - 3 4 0.37375E-05 0.10000E+01 0.65036E+05 0.24154E-51 0.34062E-62 0.13884E-55 - 3 4 0.37375E-05 0.10000E+01 0.52449E+05 0.20596E-50 0.46072E-61 0.11845E-54 - 3 4 0.37375E-05 0.10000E+01 0.42297E+05 0.15580E-49 0.63242E-60 0.89685E-54 - 3 4 0.37375E-05 0.10000E+01 0.34111E+05 0.11339E-48 0.88150E-59 0.65376E-53 - 3 4 0.37375E-05 0.10000E+01 0.27509E+05 0.82563E-48 0.12235E-57 0.47721E-52 - 3 4 0.37375E-05 0.10000E+01 0.22184E+05 0.60102E-47 0.16876E-56 0.34871E-51 - 3 4 0.37375E-05 0.10000E+01 0.17891E+05 0.43562E-46 0.23151E-55 0.25417E-50 - 3 4 0.37375E-05 0.10000E+01 0.14428E+05 0.31411E-45 0.31635E-54 0.18465E-49 - 3 4 0.37375E-05 0.10000E+01 0.11635E+05 0.22550E-44 0.43082E-53 0.13377E-48 - 3 4 0.37375E-05 0.10000E+01 0.93834E+04 0.16127E-43 0.58361E-52 0.96683E-48 - 3 4 0.37375E-05 0.10000E+01 0.75673E+04 0.11477E-42 0.78401E-51 0.69661E-47 - 3 4 0.37375E-05 0.10000E+01 0.61026E+04 0.81081E-42 0.10411E-49 0.49958E-46 - 3 4 0.37375E-05 0.10000E+01 0.49215E+04 0.56693E-41 0.13624E-48 0.35588E-45 - 3 4 0.37375E-05 0.10000E+01 0.39689E+04 0.39120E-40 0.17543E-47 0.25117E-44 - 3 4 0.37375E-05 0.10000E+01 0.32008E+04 0.83837E-38 0.70146E-45 0.55116E-42 - 3 4 0.37375E-05 0.10000E+01 0.25813E+04 0.30075E-29 0.47843E-36 0.19898E-33 - 3 4 0.37375E-05 0.10000E+01 0.20817E+04 0.33915E-13 0.14665E-19 0.20670E-17 + 3 4 0.37375E-05 0.10000E+01 0.80645E+05 0.19189E-09 0.12520E-20 0.11021E-13 + 3 4 0.37375E-05 0.10000E+01 0.65036E+05 0.24662E-09 0.29406E-20 0.14168E-13 + 3 4 0.37375E-05 0.10000E+01 0.52449E+05 0.31286E-09 0.68794E-20 0.17981E-13 + 3 4 0.37375E-05 0.10000E+01 0.42297E+05 0.39337E-09 0.16023E-19 0.22623E-13 + 3 4 0.37375E-05 0.10000E+01 0.34111E+05 0.49144E-09 0.37152E-19 0.28291E-13 + 3 4 0.37375E-05 0.10000E+01 0.27509E+05 0.61102E-09 0.85759E-19 0.35224E-13 + 3 4 0.37375E-05 0.10000E+01 0.22184E+05 0.75675E-09 0.19698E-18 0.43709E-13 + 3 4 0.37375E-05 0.10000E+01 0.17891E+05 0.93404E-09 0.44971E-18 0.54089E-13 + 3 4 0.37375E-05 0.10000E+01 0.14428E+05 0.11491E-08 0.10189E-17 0.66768E-13 + 3 4 0.37375E-05 0.10000E+01 0.11635E+05 0.14092E-08 0.22869E-17 0.82224E-13 + 3 4 0.37375E-05 0.10000E+01 0.93834E+04 0.17220E-08 0.50818E-17 0.10101E-12 + 3 4 0.37375E-05 0.10000E+01 0.75673E+04 0.20963E-08 0.11217E-16 0.12373E-12 + 3 4 0.37375E-05 0.10000E+01 0.61026E+04 0.25410E-08 0.24905E-16 0.15108E-12 + 3 4 0.37375E-05 0.10000E+01 0.49215E+04 0.30666E-08 0.57264E-16 0.18375E-12 + 3 4 0.37375E-05 0.10000E+01 0.39689E+04 0.36870E-08 0.14271E-15 0.22238E-12 + 3 4 0.37375E-05 0.10000E+01 0.32008E+04 0.44267E-08 0.40176E-15 0.26754E-12 + 3 4 0.37375E-05 0.10000E+01 0.25813E+04 0.53363E-08 0.12809E-14 0.31962E-12 + 3 4 0.37375E-05 0.10000E+01 0.20817E+04 0.65260E-08 0.44424E-14 0.37888E-12 3 4 0.37375E-05 0.10000E+01 0.16788E+04 0.82294E-08 0.15970E-13 0.44551E-12 3 4 0.37375E-05 0.10000E+01 0.13538E+04 0.10921E-07 0.57752E-13 0.51995E-12 3 4 0.37375E-05 0.10000E+01 0.10918E+04 0.15528E-07 0.20798E-12 0.60335E-12 @@ -18360,24 +18360,24 @@ VERSION 2.8.2 3 4 0.37375E-05 0.10000E+01 0.24221E+03 0.66714E-06 0.58827E-09 0.23400E-11 3 4 0.37375E-05 0.10000E+01 0.19533E+03 0.10381E-05 0.11166E-08 0.30340E-11 3 4 0.37375E-05 0.10000E+01 0.15752E+03 0.10381E-05 0.11166E-08 0.30340E-11 - 3 4 0.65217E-05 0.10000E+01 0.80645E+05 0.46123E-52 0.34690E-63 0.44753E-56 - 3 4 0.65217E-05 0.10000E+01 0.65036E+05 0.39186E-51 0.55272E-62 0.38042E-55 - 3 4 0.65217E-05 0.10000E+01 0.52449E+05 0.33420E-50 0.74784E-61 0.32459E-54 - 3 4 0.65217E-05 0.10000E+01 0.42297E+05 0.25288E-49 0.10271E-59 0.24580E-53 - 3 4 0.65217E-05 0.10000E+01 0.34111E+05 0.18413E-48 0.14329E-58 0.17922E-52 - 3 4 0.65217E-05 0.10000E+01 0.27509E+05 0.13417E-47 0.19914E-57 0.13088E-51 - 3 4 0.65217E-05 0.10000E+01 0.22184E+05 0.97783E-47 0.27520E-56 0.95699E-51 - 3 4 0.65217E-05 0.10000E+01 0.17891E+05 0.70995E-46 0.37848E-55 0.69819E-50 - 3 4 0.65217E-05 0.10000E+01 0.14428E+05 0.51308E-45 0.51873E-54 0.50786E-49 - 3 4 0.65217E-05 0.10000E+01 0.11635E+05 0.36937E-44 0.70882E-53 0.36851E-48 - 3 4 0.65217E-05 0.10000E+01 0.93834E+04 0.26502E-43 0.96403E-52 0.26681E-47 - 3 4 0.65217E-05 0.10000E+01 0.75673E+04 0.18932E-42 0.13014E-50 0.19265E-46 - 3 4 0.65217E-05 0.10000E+01 0.61026E+04 0.13436E-41 0.17385E-49 0.13852E-45 - 3 4 0.65217E-05 0.10000E+01 0.49215E+04 0.94467E-41 0.22907E-48 0.99002E-45 - 3 4 0.65217E-05 0.10000E+01 0.39689E+04 0.65600E-40 0.29679E-47 0.70182E-44 - 3 4 0.65217E-05 0.10000E+01 0.32008E+04 0.14136E-37 0.11852E-44 0.15491E-41 - 3 4 0.65217E-05 0.10000E+01 0.25813E+04 0.50545E-29 0.77442E-36 0.56309E-33 - 3 4 0.65217E-05 0.10000E+01 0.20817E+04 0.55053E-13 0.18272E-19 0.58473E-17 + 3 4 0.65217E-05 0.10000E+01 0.80645E+05 0.31124E-09 0.20336E-20 0.30192E-13 + 3 4 0.65217E-05 0.10000E+01 0.65036E+05 0.40003E-09 0.47805E-20 0.38815E-13 + 3 4 0.65217E-05 0.10000E+01 0.52449E+05 0.50756E-09 0.11198E-19 0.49267E-13 + 3 4 0.65217E-05 0.10000E+01 0.42297E+05 0.63829E-09 0.26123E-19 0.61993E-13 + 3 4 0.65217E-05 0.10000E+01 0.34111E+05 0.79766E-09 0.60701E-19 0.77537E-13 + 3 4 0.65217E-05 0.10000E+01 0.27509E+05 0.99217E-09 0.14048E-18 0.96562E-13 + 3 4 0.65217E-05 0.10000E+01 0.22184E+05 0.12295E-08 0.32368E-18 0.11986E-12 + 3 4 0.65217E-05 0.10000E+01 0.17891E+05 0.15187E-08 0.74173E-18 0.14839E-12 + 3 4 0.65217E-05 0.10000E+01 0.14428E+05 0.18704E-08 0.16878E-17 0.18328E-12 + 3 4 0.65217E-05 0.10000E+01 0.11635E+05 0.22966E-08 0.38064E-17 0.22588E-12 + 3 4 0.65217E-05 0.10000E+01 0.93834E+04 0.28108E-08 0.84924E-17 0.27774E-12 + 3 4 0.65217E-05 0.10000E+01 0.75673E+04 0.34279E-08 0.18744E-16 0.34063E-12 + 3 4 0.65217E-05 0.10000E+01 0.61026E+04 0.41636E-08 0.41135E-16 0.41653E-12 + 3 4 0.65217E-05 0.10000E+01 0.49215E+04 0.50344E-08 0.91200E-16 0.50752E-12 + 3 4 0.65217E-05 0.10000E+01 0.39689E+04 0.60593E-08 0.21099E-15 0.61566E-12 + 3 4 0.65217E-05 0.10000E+01 0.32008E+04 0.72653E-08 0.53277E-15 0.74282E-12 + 3 4 0.65217E-05 0.10000E+01 0.25813E+04 0.87018E-08 0.15169E-14 0.89050E-12 + 3 4 0.65217E-05 0.10000E+01 0.20817E+04 0.10473E-07 0.48239E-14 0.10598E-11 3 4 0.65217E-05 0.10000E+01 0.16788E+04 0.12798E-07 0.16426E-13 0.12513E-11 3 4 0.65217E-05 0.10000E+01 0.13538E+04 0.16129E-07 0.57584E-13 0.14658E-11 3 4 0.65217E-05 0.10000E+01 0.10918E+04 0.21352E-07 0.20366E-12 0.17048E-11 @@ -18390,24 +18390,24 @@ VERSION 2.8.2 3 4 0.65217E-05 0.10000E+01 0.24221E+03 0.64953E-06 0.55921E-09 0.54590E-11 3 4 0.65217E-05 0.10000E+01 0.19533E+03 0.10035E-05 0.10611E-08 0.67098E-11 3 4 0.65217E-05 0.10000E+01 0.15752E+03 0.10035E-05 0.10611E-08 0.67098E-11 - 3 4 0.11380E-04 0.10000E+01 0.80645E+05 0.74413E-52 0.55979E-63 0.11632E-55 - 3 4 0.11380E-04 0.10000E+01 0.65036E+05 0.63232E-51 0.89201E-62 0.98885E-55 - 3 4 0.11380E-04 0.10000E+01 0.52449E+05 0.53935E-50 0.12073E-60 0.84379E-54 - 3 4 0.11380E-04 0.10000E+01 0.42297E+05 0.40820E-49 0.16589E-59 0.63904E-53 - 3 4 0.11380E-04 0.10000E+01 0.34111E+05 0.29735E-48 0.23159E-58 0.46605E-52 - 3 4 0.11380E-04 0.10000E+01 0.27509E+05 0.21681E-47 0.32221E-57 0.34045E-51 - 3 4 0.11380E-04 0.10000E+01 0.22184E+05 0.15817E-46 0.44602E-56 0.24907E-50 - 3 4 0.11380E-04 0.10000E+01 0.17891E+05 0.11500E-45 0.61471E-55 0.18184E-49 - 3 4 0.11380E-04 0.10000E+01 0.14428E+05 0.83273E-45 0.84464E-54 0.13240E-48 - 3 4 0.11380E-04 0.10000E+01 0.11635E+05 0.60091E-44 0.11575E-52 0.96185E-48 - 3 4 0.11380E-04 0.10000E+01 0.93834E+04 0.43233E-43 0.15796E-51 0.69737E-47 - 3 4 0.11380E-04 0.10000E+01 0.75673E+04 0.30983E-42 0.21413E-50 0.50433E-46 - 3 4 0.11380E-04 0.10000E+01 0.61026E+04 0.22075E-41 0.28757E-49 0.36334E-45 - 3 4 0.11380E-04 0.10000E+01 0.49215E+04 0.15597E-40 0.38139E-48 0.26035E-44 - 3 4 0.11380E-04 0.10000E+01 0.39689E+04 0.10896E-39 0.49776E-47 0.18517E-43 - 3 4 0.11380E-04 0.10000E+01 0.32008E+04 0.23631E-37 0.19983E-44 0.41049E-41 - 3 4 0.11380E-04 0.10000E+01 0.25813E+04 0.84693E-29 0.12865E-35 0.14998E-32 - 3 4 0.11380E-04 0.10000E+01 0.20817E+04 0.90365E-13 0.25108E-19 0.15576E-16 + 3 4 0.11380E-04 0.10000E+01 0.80645E+05 0.50211E-09 0.32848E-20 0.78472E-13 + 3 4 0.11380E-04 0.10000E+01 0.65036E+05 0.64541E-09 0.77275E-20 0.10089E-12 + 3 4 0.11380E-04 0.10000E+01 0.52449E+05 0.81898E-09 0.18119E-19 0.12806E-12 + 3 4 0.11380E-04 0.10000E+01 0.42297E+05 0.10301E-08 0.42330E-19 0.16115E-12 + 3 4 0.11380E-04 0.10000E+01 0.34111E+05 0.12876E-08 0.98537E-19 0.20159E-12 + 3 4 0.11380E-04 0.10000E+01 0.27509E+05 0.16022E-08 0.22855E-18 0.25110E-12 + 3 4 0.11380E-04 0.10000E+01 0.22184E+05 0.19864E-08 0.52801E-18 0.31177E-12 + 3 4 0.11380E-04 0.10000E+01 0.17891E+05 0.24554E-08 0.12139E-17 0.38611E-12 + 3 4 0.11380E-04 0.10000E+01 0.14428E+05 0.30265E-08 0.27730E-17 0.47711E-12 + 3 4 0.11380E-04 0.10000E+01 0.11635E+05 0.37201E-08 0.62824E-17 0.58833E-12 + 3 4 0.11380E-04 0.10000E+01 0.93834E+04 0.45593E-08 0.14084E-16 0.72391E-12 + 3 4 0.11380E-04 0.10000E+01 0.75673E+04 0.55695E-08 0.31195E-16 0.88866E-12 + 3 4 0.11380E-04 0.10000E+01 0.61026E+04 0.67777E-08 0.68326E-16 0.10879E-11 + 3 4 0.11380E-04 0.10000E+01 0.49215E+04 0.82120E-08 0.14909E-15 0.13274E-11 + 3 4 0.11380E-04 0.10000E+01 0.39689E+04 0.99018E-08 0.33050E-15 0.16132E-11 + 3 4 0.11380E-04 0.10000E+01 0.32008E+04 0.11881E-07 0.77079E-15 0.19507E-11 + 3 4 0.11380E-04 0.10000E+01 0.25813E+04 0.14203E-07 0.19713E-14 0.23450E-11 + 3 4 0.11380E-04 0.10000E+01 0.20817E+04 0.16966E-07 0.56424E-14 0.27998E-11 3 4 0.11380E-04 0.10000E+01 0.16788E+04 0.20379E-07 0.17753E-13 0.33181E-11 3 4 0.11380E-04 0.10000E+01 0.13538E+04 0.24868E-07 0.59174E-13 0.39020E-11 3 4 0.11380E-04 0.10000E+01 0.10918E+04 0.31276E-07 0.20305E-12 0.45548E-11 @@ -18420,24 +18420,24 @@ VERSION 2.8.2 3 4 0.11380E-04 0.10000E+01 0.24221E+03 0.64335E-06 0.53272E-09 0.13510E-10 3 4 0.11380E-04 0.10000E+01 0.19533E+03 0.98245E-06 0.10103E-08 0.16084E-10 3 4 0.11380E-04 0.10000E+01 0.15752E+03 0.98245E-06 0.10103E-08 0.16084E-10 - 3 4 0.19857E-04 0.10000E+01 0.80645E+05 0.12985E-51 0.97680E-63 0.20297E-55 - 3 4 0.19857E-04 0.10000E+01 0.65036E+05 0.11034E-50 0.15565E-61 0.17255E-54 - 3 4 0.19857E-04 0.10000E+01 0.52449E+05 0.94113E-50 0.21066E-60 0.14724E-53 - 3 4 0.19857E-04 0.10000E+01 0.42297E+05 0.71228E-49 0.28947E-59 0.11151E-52 - 3 4 0.19857E-04 0.10000E+01 0.34111E+05 0.51885E-48 0.40410E-58 0.81323E-52 - 3 4 0.19857E-04 0.10000E+01 0.27509E+05 0.37832E-47 0.56224E-57 0.59407E-51 - 3 4 0.19857E-04 0.10000E+01 0.22184E+05 0.27599E-46 0.77827E-56 0.43461E-50 - 3 4 0.19857E-04 0.10000E+01 0.17891E+05 0.20067E-45 0.10726E-54 0.31731E-49 - 3 4 0.19857E-04 0.10000E+01 0.14428E+05 0.14531E-44 0.14738E-53 0.23103E-48 - 3 4 0.19857E-04 0.10000E+01 0.11635E+05 0.10486E-43 0.20197E-52 0.16784E-47 - 3 4 0.19857E-04 0.10000E+01 0.93834E+04 0.75438E-43 0.27562E-51 0.12169E-46 - 3 4 0.19857E-04 0.10000E+01 0.75673E+04 0.54064E-42 0.37364E-50 0.88002E-46 - 3 4 0.19857E-04 0.10000E+01 0.61026E+04 0.38520E-41 0.50179E-49 0.63401E-45 - 3 4 0.19857E-04 0.10000E+01 0.49215E+04 0.27216E-40 0.66551E-48 0.45429E-44 - 3 4 0.19857E-04 0.10000E+01 0.39689E+04 0.19013E-39 0.86856E-47 0.32311E-43 - 3 4 0.19857E-04 0.10000E+01 0.32008E+04 0.41235E-37 0.34869E-44 0.71629E-41 - 3 4 0.19857E-04 0.10000E+01 0.25813E+04 0.14778E-28 0.22449E-35 0.26171E-32 - 3 4 0.19857E-04 0.10000E+01 0.20817E+04 0.15768E-12 0.43812E-19 0.27180E-16 + 3 4 0.19857E-04 0.10000E+01 0.80645E+05 0.87616E-09 0.57318E-20 0.13693E-12 + 3 4 0.19857E-04 0.10000E+01 0.65036E+05 0.11262E-08 0.13484E-19 0.17604E-12 + 3 4 0.19857E-04 0.10000E+01 0.52449E+05 0.14291E-08 0.31617E-19 0.22346E-12 + 3 4 0.19857E-04 0.10000E+01 0.42297E+05 0.17975E-08 0.73864E-19 0.28120E-12 + 3 4 0.19857E-04 0.10000E+01 0.34111E+05 0.22468E-08 0.17194E-18 0.35176E-12 + 3 4 0.19857E-04 0.10000E+01 0.27509E+05 0.27957E-08 0.39881E-18 0.43815E-12 + 3 4 0.19857E-04 0.10000E+01 0.22184E+05 0.34662E-08 0.92134E-18 0.54402E-12 + 3 4 0.19857E-04 0.10000E+01 0.17891E+05 0.42845E-08 0.21182E-17 0.67373E-12 + 3 4 0.19857E-04 0.10000E+01 0.14428E+05 0.52811E-08 0.48388E-17 0.83253E-12 + 3 4 0.19857E-04 0.10000E+01 0.11635E+05 0.64914E-08 0.10962E-16 0.10266E-11 + 3 4 0.19857E-04 0.10000E+01 0.93834E+04 0.79557E-08 0.24576E-16 0.12632E-11 + 3 4 0.19857E-04 0.10000E+01 0.75673E+04 0.97184E-08 0.54433E-16 0.15506E-11 + 3 4 0.19857E-04 0.10000E+01 0.61026E+04 0.11827E-07 0.11922E-15 0.18983E-11 + 3 4 0.19857E-04 0.10000E+01 0.49215E+04 0.14330E-07 0.26016E-15 0.23163E-11 + 3 4 0.19857E-04 0.10000E+01 0.39689E+04 0.17278E-07 0.57670E-15 0.28149E-11 + 3 4 0.19857E-04 0.10000E+01 0.32008E+04 0.20732E-07 0.13450E-14 0.34039E-11 + 3 4 0.19857E-04 0.10000E+01 0.25813E+04 0.24784E-07 0.34398E-14 0.40918E-11 + 3 4 0.19857E-04 0.10000E+01 0.20817E+04 0.29605E-07 0.98457E-14 0.48855E-11 3 4 0.19857E-04 0.10000E+01 0.16788E+04 0.35560E-07 0.30977E-13 0.57899E-11 3 4 0.19857E-04 0.10000E+01 0.13538E+04 0.43393E-07 0.10326E-12 0.68088E-11 3 4 0.19857E-04 0.10000E+01 0.10918E+04 0.54575E-07 0.35431E-12 0.79478E-11 @@ -18450,24 +18450,24 @@ VERSION 2.8.2 3 4 0.19857E-04 0.10000E+01 0.24221E+03 0.11226E-05 0.92957E-09 0.23574E-10 3 4 0.19857E-04 0.10000E+01 0.19533E+03 0.17143E-05 0.17630E-08 0.28065E-10 3 4 0.19857E-04 0.10000E+01 0.15752E+03 0.17143E-05 0.17630E-08 0.28065E-10 - 3 4 0.34650E-04 0.10000E+01 0.80645E+05 0.22657E-51 0.17045E-62 0.35417E-55 - 3 4 0.34650E-04 0.10000E+01 0.65036E+05 0.19253E-50 0.27160E-61 0.30109E-54 - 3 4 0.34650E-04 0.10000E+01 0.52449E+05 0.16422E-49 0.36759E-60 0.25692E-53 - 3 4 0.34650E-04 0.10000E+01 0.42297E+05 0.12429E-48 0.50511E-59 0.19458E-52 - 3 4 0.34650E-04 0.10000E+01 0.34111E+05 0.90536E-48 0.70514E-58 0.14190E-51 - 3 4 0.34650E-04 0.10000E+01 0.27509E+05 0.66015E-47 0.98107E-57 0.10366E-50 - 3 4 0.34650E-04 0.10000E+01 0.22184E+05 0.48159E-46 0.13580E-55 0.75836E-50 - 3 4 0.34650E-04 0.10000E+01 0.17891E+05 0.35016E-45 0.18717E-54 0.55368E-49 - 3 4 0.34650E-04 0.10000E+01 0.14428E+05 0.25355E-44 0.25718E-53 0.40314E-48 - 3 4 0.34650E-04 0.10000E+01 0.11635E+05 0.18297E-43 0.35243E-52 0.29287E-47 - 3 4 0.34650E-04 0.10000E+01 0.93834E+04 0.13164E-42 0.48095E-51 0.21234E-46 - 3 4 0.34650E-04 0.10000E+01 0.75673E+04 0.94338E-42 0.65199E-50 0.15356E-45 - 3 4 0.34650E-04 0.10000E+01 0.61026E+04 0.67214E-41 0.87560E-49 0.11063E-44 - 3 4 0.34650E-04 0.10000E+01 0.49215E+04 0.47490E-40 0.11613E-47 0.79271E-44 - 3 4 0.34650E-04 0.10000E+01 0.39689E+04 0.33177E-39 0.15156E-46 0.56382E-43 - 3 4 0.34650E-04 0.10000E+01 0.32008E+04 0.71953E-37 0.60845E-44 0.12499E-40 - 3 4 0.34650E-04 0.10000E+01 0.25813E+04 0.25788E-28 0.39172E-35 0.45667E-32 - 3 4 0.34650E-04 0.10000E+01 0.20817E+04 0.27514E-12 0.76449E-19 0.47427E-16 + 3 4 0.34650E-04 0.10000E+01 0.80645E+05 0.15288E-08 0.10002E-19 0.23893E-12 + 3 4 0.34650E-04 0.10000E+01 0.65036E+05 0.19651E-08 0.23529E-19 0.30719E-12 + 3 4 0.34650E-04 0.10000E+01 0.52449E+05 0.24936E-08 0.55169E-19 0.38992E-12 + 3 4 0.34650E-04 0.10000E+01 0.42297E+05 0.31365E-08 0.12889E-18 0.49068E-12 + 3 4 0.34650E-04 0.10000E+01 0.34111E+05 0.39206E-08 0.30003E-18 0.61380E-12 + 3 4 0.34650E-04 0.10000E+01 0.27509E+05 0.48784E-08 0.69590E-18 0.76455E-12 + 3 4 0.34650E-04 0.10000E+01 0.22184E+05 0.60483E-08 0.16077E-17 0.94928E-12 + 3 4 0.34650E-04 0.10000E+01 0.17891E+05 0.74761E-08 0.36961E-17 0.11756E-11 + 3 4 0.34650E-04 0.10000E+01 0.14428E+05 0.92151E-08 0.84434E-17 0.14527E-11 + 3 4 0.34650E-04 0.10000E+01 0.11635E+05 0.11327E-07 0.19129E-16 0.17913E-11 + 3 4 0.34650E-04 0.10000E+01 0.93834E+04 0.13882E-07 0.42884E-16 0.22042E-11 + 3 4 0.34650E-04 0.10000E+01 0.75673E+04 0.16958E-07 0.94982E-16 0.27058E-11 + 3 4 0.34650E-04 0.10000E+01 0.61026E+04 0.20637E-07 0.20804E-15 0.33125E-11 + 3 4 0.34650E-04 0.10000E+01 0.49215E+04 0.25004E-07 0.45396E-15 0.40418E-11 + 3 4 0.34650E-04 0.10000E+01 0.39689E+04 0.30149E-07 0.10063E-14 0.49118E-11 + 3 4 0.34650E-04 0.10000E+01 0.32008E+04 0.36177E-07 0.23469E-14 0.59395E-11 + 3 4 0.34650E-04 0.10000E+01 0.25813E+04 0.43246E-07 0.60022E-14 0.71400E-11 + 3 4 0.34650E-04 0.10000E+01 0.20817E+04 0.51660E-07 0.17180E-13 0.85250E-11 3 4 0.34650E-04 0.10000E+01 0.16788E+04 0.62051E-07 0.54054E-13 0.10103E-10 3 4 0.34650E-04 0.10000E+01 0.13538E+04 0.75718E-07 0.18017E-12 0.11881E-10 3 4 0.34650E-04 0.10000E+01 0.10918E+04 0.95230E-07 0.61826E-12 0.13868E-10 @@ -18480,24 +18480,24 @@ VERSION 2.8.2 3 4 0.34650E-04 0.10000E+01 0.24221E+03 0.19589E-05 0.16220E-08 0.41135E-10 3 4 0.34650E-04 0.10000E+01 0.19533E+03 0.29914E-05 0.30763E-08 0.48972E-10 3 4 0.34650E-04 0.10000E+01 0.15752E+03 0.29914E-05 0.30763E-08 0.48972E-10 - 3 4 0.60462E-04 0.10000E+01 0.80645E+05 0.39536E-51 0.29742E-62 0.61801E-55 - 3 4 0.60462E-04 0.10000E+01 0.65036E+05 0.33595E-50 0.47393E-61 0.52538E-54 - 3 4 0.60462E-04 0.10000E+01 0.52449E+05 0.28656E-49 0.64142E-60 0.44830E-53 - 3 4 0.60462E-04 0.10000E+01 0.42297E+05 0.21688E-48 0.88138E-59 0.33952E-52 - 3 4 0.60462E-04 0.10000E+01 0.34111E+05 0.15798E-47 0.12304E-57 0.24761E-51 - 3 4 0.60462E-04 0.10000E+01 0.27509E+05 0.11519E-46 0.17119E-56 0.18088E-50 - 3 4 0.60462E-04 0.10000E+01 0.22184E+05 0.84034E-46 0.23697E-55 0.13233E-49 - 3 4 0.60462E-04 0.10000E+01 0.17891E+05 0.61100E-45 0.32659E-54 0.96614E-49 - 3 4 0.60462E-04 0.10000E+01 0.14428E+05 0.44243E-44 0.44876E-53 0.70346E-48 - 3 4 0.60462E-04 0.10000E+01 0.11635E+05 0.31927E-43 0.61497E-52 0.51103E-47 - 3 4 0.60462E-04 0.10000E+01 0.93834E+04 0.22970E-42 0.83922E-51 0.37051E-46 - 3 4 0.60462E-04 0.10000E+01 0.75673E+04 0.16461E-41 0.11377E-49 0.26795E-45 - 3 4 0.60462E-04 0.10000E+01 0.61026E+04 0.11728E-40 0.15279E-48 0.19304E-44 - 3 4 0.60462E-04 0.10000E+01 0.49215E+04 0.82867E-40 0.20264E-47 0.13832E-43 - 3 4 0.60462E-04 0.10000E+01 0.39689E+04 0.57891E-39 0.26446E-46 0.98382E-43 - 3 4 0.60462E-04 0.10000E+01 0.32008E+04 0.12555E-36 0.10617E-43 0.21810E-40 - 3 4 0.60462E-04 0.10000E+01 0.25813E+04 0.44998E-28 0.68352E-35 0.79685E-32 - 3 4 0.60462E-04 0.10000E+01 0.20817E+04 0.48011E-12 0.13340E-18 0.82758E-16 + 3 4 0.60462E-04 0.10000E+01 0.80645E+05 0.26677E-08 0.17452E-19 0.41692E-12 + 3 4 0.60462E-04 0.10000E+01 0.65036E+05 0.34291E-08 0.41056E-19 0.53602E-12 + 3 4 0.60462E-04 0.10000E+01 0.52449E+05 0.43513E-08 0.96267E-19 0.68040E-12 + 3 4 0.60462E-04 0.10000E+01 0.42297E+05 0.54729E-08 0.22490E-18 0.85621E-12 + 3 4 0.60462E-04 0.10000E+01 0.34111E+05 0.68412E-08 0.52353E-18 0.10710E-11 + 3 4 0.60462E-04 0.10000E+01 0.27509E+05 0.85124E-08 0.12143E-17 0.13341E-11 + 3 4 0.60462E-04 0.10000E+01 0.22184E+05 0.10554E-07 0.28053E-17 0.16564E-11 + 3 4 0.60462E-04 0.10000E+01 0.17891E+05 0.13045E-07 0.64494E-17 0.20514E-11 + 3 4 0.60462E-04 0.10000E+01 0.14428E+05 0.16080E-07 0.14733E-16 0.25349E-11 + 3 4 0.60462E-04 0.10000E+01 0.11635E+05 0.19765E-07 0.33378E-16 0.31258E-11 + 3 4 0.60462E-04 0.10000E+01 0.93834E+04 0.24224E-07 0.74830E-16 0.38462E-11 + 3 4 0.60462E-04 0.10000E+01 0.75673E+04 0.29591E-07 0.16574E-15 0.47214E-11 + 3 4 0.60462E-04 0.10000E+01 0.61026E+04 0.36010E-07 0.36301E-15 0.57801E-11 + 3 4 0.60462E-04 0.10000E+01 0.49215E+04 0.43631E-07 0.79213E-15 0.70527E-11 + 3 4 0.60462E-04 0.10000E+01 0.39689E+04 0.52609E-07 0.17559E-14 0.85708E-11 + 3 4 0.60462E-04 0.10000E+01 0.32008E+04 0.63126E-07 0.40952E-14 0.10364E-10 + 3 4 0.60462E-04 0.10000E+01 0.25813E+04 0.75461E-07 0.10473E-13 0.12459E-10 + 3 4 0.60462E-04 0.10000E+01 0.20817E+04 0.90143E-07 0.29978E-13 0.14876E-10 3 4 0.60462E-04 0.10000E+01 0.16788E+04 0.10827E-06 0.94321E-13 0.17629E-10 3 4 0.60462E-04 0.10000E+01 0.13538E+04 0.13212E-06 0.31439E-12 0.20732E-10 3 4 0.60462E-04 0.10000E+01 0.10918E+04 0.16617E-06 0.10788E-11 0.24200E-10 @@ -18510,24 +18510,24 @@ VERSION 2.8.2 3 4 0.60462E-04 0.10000E+01 0.24221E+03 0.34181E-05 0.28304E-08 0.71778E-10 3 4 0.60462E-04 0.10000E+01 0.19533E+03 0.52198E-05 0.53679E-08 0.85453E-10 3 4 0.60462E-04 0.10000E+01 0.15752E+03 0.52198E-05 0.53679E-08 0.85453E-10 - 3 4 0.10550E-03 0.10000E+01 0.80645E+05 0.68988E-51 0.51897E-62 0.10784E-54 - 3 4 0.10550E-03 0.10000E+01 0.65036E+05 0.58622E-50 0.82698E-61 0.91675E-54 - 3 4 0.10550E-03 0.10000E+01 0.52449E+05 0.50003E-49 0.11192E-59 0.78226E-53 - 3 4 0.10550E-03 0.10000E+01 0.42297E+05 0.37843E-48 0.15380E-58 0.59245E-52 - 3 4 0.10550E-03 0.10000E+01 0.34111E+05 0.27567E-47 0.21470E-57 0.43207E-51 - 3 4 0.10550E-03 0.10000E+01 0.27509E+05 0.20100E-46 0.29872E-56 0.31563E-50 - 3 4 0.10550E-03 0.10000E+01 0.22184E+05 0.14663E-45 0.41350E-55 0.23091E-49 - 3 4 0.10550E-03 0.10000E+01 0.17891E+05 0.10662E-44 0.56989E-54 0.16859E-48 - 3 4 0.10550E-03 0.10000E+01 0.14428E+05 0.77201E-44 0.78305E-53 0.12275E-47 - 3 4 0.10550E-03 0.10000E+01 0.11635E+05 0.55710E-43 0.10731E-51 0.89172E-47 - 3 4 0.10550E-03 0.10000E+01 0.93834E+04 0.40081E-42 0.14644E-50 0.64652E-46 - 3 4 0.10550E-03 0.10000E+01 0.75673E+04 0.28724E-41 0.19852E-49 0.46756E-45 - 3 4 0.10550E-03 0.10000E+01 0.61026E+04 0.20466E-40 0.26660E-48 0.33685E-44 - 3 4 0.10550E-03 0.10000E+01 0.49215E+04 0.14460E-39 0.35359E-47 0.24137E-43 - 3 4 0.10550E-03 0.10000E+01 0.39689E+04 0.10102E-38 0.46147E-46 0.17167E-42 - 3 4 0.10550E-03 0.10000E+01 0.32008E+04 0.21908E-36 0.18526E-43 0.38056E-40 - 3 4 0.10550E-03 0.10000E+01 0.25813E+04 0.78518E-28 0.11927E-34 0.13905E-31 - 3 4 0.10550E-03 0.10000E+01 0.20817E+04 0.83776E-12 0.23277E-18 0.14441E-15 + 3 4 0.10550E-03 0.10000E+01 0.80645E+05 0.46550E-08 0.30453E-19 0.72751E-12 + 3 4 0.10550E-03 0.10000E+01 0.65036E+05 0.59835E-08 0.71640E-19 0.93532E-12 + 3 4 0.10550E-03 0.10000E+01 0.52449E+05 0.75927E-08 0.16798E-18 0.11872E-11 + 3 4 0.10550E-03 0.10000E+01 0.42297E+05 0.95499E-08 0.39244E-18 0.14940E-11 + 3 4 0.10550E-03 0.10000E+01 0.34111E+05 0.11937E-07 0.91353E-18 0.18689E-11 + 3 4 0.10550E-03 0.10000E+01 0.27509E+05 0.14854E-07 0.21189E-17 0.23279E-11 + 3 4 0.10550E-03 0.10000E+01 0.22184E+05 0.18416E-07 0.48951E-17 0.28904E-11 + 3 4 0.10550E-03 0.10000E+01 0.17891E+05 0.22763E-07 0.11254E-16 0.35796E-11 + 3 4 0.10550E-03 0.10000E+01 0.14428E+05 0.28058E-07 0.25709E-16 0.44232E-11 + 3 4 0.10550E-03 0.10000E+01 0.11635E+05 0.34489E-07 0.58243E-16 0.54543E-11 + 3 4 0.10550E-03 0.10000E+01 0.93834E+04 0.42269E-07 0.13057E-15 0.67113E-11 + 3 4 0.10550E-03 0.10000E+01 0.75673E+04 0.51634E-07 0.28920E-15 0.82386E-11 + 3 4 0.10550E-03 0.10000E+01 0.61026E+04 0.62835E-07 0.63344E-15 0.10086E-10 + 3 4 0.10550E-03 0.10000E+01 0.49215E+04 0.76133E-07 0.13822E-14 0.12307E-10 + 3 4 0.10550E-03 0.10000E+01 0.39689E+04 0.91799E-07 0.30640E-14 0.14955E-10 + 3 4 0.10550E-03 0.10000E+01 0.32008E+04 0.11015E-06 0.71459E-14 0.18085E-10 + 3 4 0.10550E-03 0.10000E+01 0.25813E+04 0.13168E-06 0.18276E-13 0.21740E-10 + 3 4 0.10550E-03 0.10000E+01 0.20817E+04 0.15729E-06 0.52310E-13 0.25957E-10 3 4 0.10550E-03 0.10000E+01 0.16788E+04 0.18893E-06 0.16458E-12 0.30762E-10 3 4 0.10550E-03 0.10000E+01 0.13538E+04 0.23055E-06 0.54860E-12 0.36175E-10 3 4 0.10550E-03 0.10000E+01 0.10918E+04 0.28996E-06 0.18825E-11 0.42227E-10 @@ -18540,24 +18540,24 @@ VERSION 2.8.2 3 4 0.10550E-03 0.10000E+01 0.24221E+03 0.59644E-05 0.49388E-08 0.12525E-09 3 4 0.10550E-03 0.10000E+01 0.19533E+03 0.91082E-05 0.93667E-08 0.14911E-09 3 4 0.10550E-03 0.10000E+01 0.15752E+03 0.91082E-05 0.93667E-08 0.14911E-09 - 3 4 0.18409E-03 0.10000E+01 0.80645E+05 0.12038E-50 0.90558E-62 0.18817E-54 - 3 4 0.18409E-03 0.10000E+01 0.65036E+05 0.10229E-49 0.14430E-60 0.15997E-53 - 3 4 0.18409E-03 0.10000E+01 0.52449E+05 0.87251E-49 0.19530E-59 0.13650E-52 - 3 4 0.18409E-03 0.10000E+01 0.42297E+05 0.66034E-48 0.26836E-58 0.10338E-51 - 3 4 0.18409E-03 0.10000E+01 0.34111E+05 0.48102E-47 0.37464E-57 0.75394E-51 - 3 4 0.18409E-03 0.10000E+01 0.27509E+05 0.35074E-46 0.52124E-56 0.55075E-50 - 3 4 0.18409E-03 0.10000E+01 0.22184E+05 0.25587E-45 0.72153E-55 0.40292E-49 - 3 4 0.18409E-03 0.10000E+01 0.17891E+05 0.18604E-44 0.99442E-54 0.29417E-48 - 3 4 0.18409E-03 0.10000E+01 0.14428E+05 0.13471E-43 0.13664E-52 0.21419E-47 - 3 4 0.18409E-03 0.10000E+01 0.11635E+05 0.97211E-43 0.18725E-51 0.15560E-46 - 3 4 0.18409E-03 0.10000E+01 0.93834E+04 0.69938E-42 0.25553E-50 0.11281E-45 - 3 4 0.18409E-03 0.10000E+01 0.75673E+04 0.50122E-41 0.34640E-49 0.81586E-45 - 3 4 0.18409E-03 0.10000E+01 0.61026E+04 0.35711E-40 0.46521E-48 0.58778E-44 - 3 4 0.18409E-03 0.10000E+01 0.49215E+04 0.25231E-39 0.61699E-47 0.42117E-43 - 3 4 0.18409E-03 0.10000E+01 0.39689E+04 0.17627E-38 0.80523E-46 0.29956E-42 - 3 4 0.18409E-03 0.10000E+01 0.32008E+04 0.38229E-36 0.32327E-43 0.66406E-40 - 3 4 0.18409E-03 0.10000E+01 0.25813E+04 0.13701E-27 0.20812E-34 0.24263E-31 - 3 4 0.18409E-03 0.10000E+01 0.20817E+04 0.14618E-11 0.40617E-18 0.25198E-15 + 3 4 0.18409E-03 0.10000E+01 0.80645E+05 0.81228E-08 0.53139E-19 0.12695E-11 + 3 4 0.18409E-03 0.10000E+01 0.65036E+05 0.10441E-07 0.12501E-18 0.16321E-11 + 3 4 0.18409E-03 0.10000E+01 0.52449E+05 0.13249E-07 0.29311E-18 0.20717E-11 + 3 4 0.18409E-03 0.10000E+01 0.42297E+05 0.16664E-07 0.68478E-18 0.26070E-11 + 3 4 0.18409E-03 0.10000E+01 0.34111E+05 0.20830E-07 0.15941E-17 0.32611E-11 + 3 4 0.18409E-03 0.10000E+01 0.27509E+05 0.25919E-07 0.36973E-17 0.40620E-11 + 3 4 0.18409E-03 0.10000E+01 0.22184E+05 0.32135E-07 0.85417E-17 0.50435E-11 + 3 4 0.18409E-03 0.10000E+01 0.17891E+05 0.39721E-07 0.19637E-16 0.62461E-11 + 3 4 0.18409E-03 0.10000E+01 0.14428E+05 0.48960E-07 0.44860E-16 0.77183E-11 + 3 4 0.18409E-03 0.10000E+01 0.11635E+05 0.60181E-07 0.10163E-15 0.95174E-11 + 3 4 0.18409E-03 0.10000E+01 0.93834E+04 0.73757E-07 0.22784E-15 0.11711E-10 + 3 4 0.18409E-03 0.10000E+01 0.75673E+04 0.90098E-07 0.50464E-15 0.14376E-10 + 3 4 0.18409E-03 0.10000E+01 0.61026E+04 0.10964E-06 0.11053E-14 0.17599E-10 + 3 4 0.18409E-03 0.10000E+01 0.49215E+04 0.13285E-06 0.24119E-14 0.21474E-10 + 3 4 0.18409E-03 0.10000E+01 0.39689E+04 0.16018E-06 0.53465E-14 0.26096E-10 + 3 4 0.18409E-03 0.10000E+01 0.32008E+04 0.19221E-06 0.12469E-13 0.31557E-10 + 3 4 0.18409E-03 0.10000E+01 0.25813E+04 0.22977E-06 0.31890E-13 0.37935E-10 + 3 4 0.18409E-03 0.10000E+01 0.20817E+04 0.27447E-06 0.91278E-13 0.45293E-10 3 4 0.18409E-03 0.10000E+01 0.16788E+04 0.32968E-06 0.28719E-12 0.53677E-10 3 4 0.18409E-03 0.10000E+01 0.13538E+04 0.40229E-06 0.95727E-12 0.63124E-10 3 4 0.18409E-03 0.10000E+01 0.10918E+04 0.50596E-06 0.32848E-11 0.73683E-10 @@ -18570,24 +18570,24 @@ VERSION 2.8.2 3 4 0.18409E-03 0.10000E+01 0.24221E+03 0.10408E-04 0.86180E-08 0.21855E-09 3 4 0.18409E-03 0.10000E+01 0.19533E+03 0.15893E-04 0.16344E-07 0.26019E-09 3 4 0.18409E-03 0.10000E+01 0.15752E+03 0.15893E-04 0.16344E-07 0.26019E-09 - 3 4 0.32123E-03 0.10000E+01 0.80645E+05 0.21005E-50 0.15802E-61 0.32835E-54 - 3 4 0.32123E-03 0.10000E+01 0.65036E+05 0.17849E-49 0.25180E-60 0.27913E-53 - 3 4 0.32123E-03 0.10000E+01 0.52449E+05 0.15225E-48 0.34079E-59 0.23818E-52 - 3 4 0.32123E-03 0.10000E+01 0.42297E+05 0.11523E-47 0.46828E-58 0.18039E-51 - 3 4 0.32123E-03 0.10000E+01 0.34111E+05 0.83935E-47 0.65372E-57 0.13156E-50 - 3 4 0.32123E-03 0.10000E+01 0.27509E+05 0.61201E-46 0.90954E-56 0.96103E-50 - 3 4 0.32123E-03 0.10000E+01 0.22184E+05 0.44647E-45 0.12590E-54 0.70307E-49 - 3 4 0.32123E-03 0.10000E+01 0.17891E+05 0.32463E-44 0.17352E-53 0.51331E-48 - 3 4 0.32123E-03 0.10000E+01 0.14428E+05 0.23506E-43 0.23843E-52 0.37375E-47 - 3 4 0.32123E-03 0.10000E+01 0.11635E+05 0.16963E-42 0.32673E-51 0.27151E-46 - 3 4 0.32123E-03 0.10000E+01 0.93834E+04 0.12204E-41 0.44588E-50 0.19685E-45 - 3 4 0.32123E-03 0.10000E+01 0.75673E+04 0.87460E-41 0.60445E-49 0.14236E-44 - 3 4 0.32123E-03 0.10000E+01 0.61026E+04 0.62314E-40 0.81176E-48 0.10256E-43 - 3 4 0.32123E-03 0.10000E+01 0.49215E+04 0.44027E-39 0.10766E-46 0.73492E-43 - 3 4 0.32123E-03 0.10000E+01 0.39689E+04 0.30758E-38 0.14051E-45 0.52271E-42 - 3 4 0.32123E-03 0.10000E+01 0.32008E+04 0.66707E-36 0.56409E-43 0.11587E-39 - 3 4 0.32123E-03 0.10000E+01 0.25813E+04 0.23907E-27 0.36316E-34 0.42337E-31 - 3 4 0.32123E-03 0.10000E+01 0.20817E+04 0.25508E-11 0.70875E-18 0.43969E-15 + 3 4 0.32123E-03 0.10000E+01 0.80645E+05 0.14174E-07 0.92724E-19 0.22151E-11 + 3 4 0.32123E-03 0.10000E+01 0.65036E+05 0.18219E-07 0.21813E-18 0.28479E-11 + 3 4 0.32123E-03 0.10000E+01 0.52449E+05 0.23118E-07 0.51147E-18 0.36150E-11 + 3 4 0.32123E-03 0.10000E+01 0.42297E+05 0.29078E-07 0.11949E-17 0.45491E-11 + 3 4 0.32123E-03 0.10000E+01 0.34111E+05 0.36347E-07 0.27815E-17 0.56905E-11 + 3 4 0.32123E-03 0.10000E+01 0.27509E+05 0.45227E-07 0.64516E-17 0.70880E-11 + 3 4 0.32123E-03 0.10000E+01 0.22184E+05 0.56074E-07 0.14905E-16 0.88006E-11 + 3 4 0.32123E-03 0.10000E+01 0.17891E+05 0.69310E-07 0.34266E-16 0.10899E-10 + 3 4 0.32123E-03 0.10000E+01 0.14428E+05 0.85432E-07 0.78278E-16 0.13468E-10 + 3 4 0.32123E-03 0.10000E+01 0.11635E+05 0.10501E-06 0.17734E-15 0.16607E-10 + 3 4 0.32123E-03 0.10000E+01 0.93834E+04 0.12870E-06 0.39757E-15 0.20435E-10 + 3 4 0.32123E-03 0.10000E+01 0.75673E+04 0.15722E-06 0.88057E-15 0.25085E-10 + 3 4 0.32123E-03 0.10000E+01 0.61026E+04 0.19132E-06 0.19287E-14 0.30710E-10 + 3 4 0.32123E-03 0.10000E+01 0.49215E+04 0.23181E-06 0.42086E-14 0.37471E-10 + 3 4 0.32123E-03 0.10000E+01 0.39689E+04 0.27951E-06 0.93294E-14 0.45537E-10 + 3 4 0.32123E-03 0.10000E+01 0.32008E+04 0.33539E-06 0.21758E-13 0.55065E-10 + 3 4 0.32123E-03 0.10000E+01 0.25813E+04 0.40093E-06 0.55646E-13 0.66194E-10 + 3 4 0.32123E-03 0.10000E+01 0.20817E+04 0.47893E-06 0.15927E-12 0.79034E-10 3 4 0.32123E-03 0.10000E+01 0.16788E+04 0.57526E-06 0.50113E-12 0.93664E-10 3 4 0.32123E-03 0.10000E+01 0.13538E+04 0.70198E-06 0.16704E-11 0.11015E-09 3 4 0.32123E-03 0.10000E+01 0.10918E+04 0.88287E-06 0.57318E-11 0.12857E-09 @@ -18650,24 +18650,24 @@ VERSION 2.8.2 4 1 0.10550E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.32745E+00 0.17361E-02 0.40027E+00 0.67662E-04 0.46642E+10 0.64076E+03 0.50000E+03 0.39278E-15 0.18468E-01 0.57605E-02 0.10978E+02 4 1 0.18409E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.99703E+00 0.30293E-02 0.69845E+00 0.67662E-04 0.81388E+10 0.11181E+04 0.50000E+03 0.68538E-15 0.32225E-01 0.57605E-02 0.10978E+02 4 1 0.32123E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.30358E+01 0.52860E-02 0.12188E+01 0.67662E-04 0.14202E+11 0.19510E+04 0.50000E+03 0.11959E-14 0.56230E-01 0.57605E-02 0.10978E+02 - 4 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 4 1 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 4 1 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 4 1 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 4 1 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 4 1 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 4 1 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 4 1 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 4 1 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 4 1 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 4 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 4 1 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 4 1 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 4 1 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 4 1 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 4 1 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 4 1 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 4 1 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 4 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 4 1 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 4 1 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 4 1 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 4 1 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 4 1 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 4 1 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 4 1 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 4 1 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 4 1 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 4 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 4 1 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 4 1 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 4 1 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 4 1 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 4 1 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 4 1 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 4 1 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 4 1 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 4 1 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 4 1 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -18680,24 +18680,24 @@ VERSION 2.8.2 4 1 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 4 1 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 4 1 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 4 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 4 1 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 4 1 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 4 1 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 4 1 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 4 1 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 4 1 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 4 1 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 4 1 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 4 1 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 4 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 4 1 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 4 1 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 4 1 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 4 1 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 4 1 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 4 1 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 4 1 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 4 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 4 1 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 4 1 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 4 1 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 4 1 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 4 1 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 4 1 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 4 1 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 4 1 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 4 1 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 4 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 4 1 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 4 1 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 4 1 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 4 1 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 4 1 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 4 1 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 4 1 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 4 1 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 4 1 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 4 1 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -18710,24 +18710,24 @@ VERSION 2.8.2 4 1 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 4 1 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 4 1 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 4 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 4 1 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 4 1 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 4 1 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 4 1 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 4 1 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 4 1 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 4 1 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 4 1 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 4 1 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 4 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 4 1 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 4 1 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 4 1 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 4 1 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 4 1 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 4 1 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 4 1 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 4 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 4 1 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 4 1 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 4 1 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 4 1 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 4 1 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 4 1 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 4 1 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 4 1 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 4 1 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 4 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 4 1 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 4 1 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 4 1 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 4 1 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 4 1 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 4 1 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 4 1 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 4 1 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 4 1 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 4 1 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -18740,24 +18740,24 @@ VERSION 2.8.2 4 1 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 4 1 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 4 1 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 4 1 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 4 1 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 4 1 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 4 1 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 4 1 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 4 1 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 4 1 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 4 1 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 4 1 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 4 1 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 4 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 4 1 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 4 1 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 4 1 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 4 1 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 4 1 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 4 1 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 4 1 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 4 1 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 4 1 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 4 1 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 4 1 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 4 1 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 4 1 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 4 1 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 4 1 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 4 1 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 4 1 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 4 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 4 1 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 4 1 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 4 1 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 4 1 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 4 1 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 4 1 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 4 1 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 4 1 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 4 1 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 4 1 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -18770,24 +18770,24 @@ VERSION 2.8.2 4 1 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 4 1 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 4 1 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 4 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 4 1 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 4 1 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 4 1 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 4 1 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 4 1 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 4 1 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 4 1 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 4 1 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 4 1 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 4 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 4 1 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 4 1 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 4 1 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 4 1 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 4 1 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 4 1 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 4 1 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 4 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 4 1 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 4 1 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 4 1 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 4 1 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 4 1 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 4 1 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 4 1 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 4 1 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 4 1 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 4 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 4 1 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 4 1 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 4 1 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 4 1 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 4 1 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 4 1 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 4 1 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 4 1 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 4 1 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 4 1 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -18800,24 +18800,24 @@ VERSION 2.8.2 4 1 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 4 1 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 4 1 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 4 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 4 1 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 4 1 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 4 1 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 4 1 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 4 1 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 4 1 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 4 1 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 4 1 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 4 1 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 4 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 4 1 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 4 1 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 4 1 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 4 1 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 4 1 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 4 1 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 4 1 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 4 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 4 1 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 4 1 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 4 1 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 4 1 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 4 1 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 4 1 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 4 1 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 4 1 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 4 1 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 4 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 4 1 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 4 1 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 4 1 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 4 1 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 4 1 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 4 1 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 4 1 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 4 1 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 4 1 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 4 1 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -18830,24 +18830,24 @@ VERSION 2.8.2 4 1 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 4 1 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 4 1 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 4 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 4 1 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 4 1 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 4 1 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 4 1 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 4 1 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 4 1 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 4 1 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 4 1 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 4 1 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 4 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 4 1 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 4 1 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 4 1 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 4 1 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 4 1 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 4 1 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 4 1 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 4 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 4 1 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 4 1 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 4 1 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 4 1 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 4 1 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 4 1 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 4 1 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 4 1 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 4 1 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 4 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 4 1 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 4 1 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 4 1 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 4 1 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 4 1 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 4 1 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 4 1 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 4 1 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 4 1 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 4 1 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -18860,24 +18860,24 @@ VERSION 2.8.2 4 1 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 4 1 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 4 1 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 4 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 4 1 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 4 1 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 4 1 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 4 1 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 4 1 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 4 1 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 4 1 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 4 1 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 4 1 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 4 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 4 1 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 4 1 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 4 1 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 4 1 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 4 1 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 4 1 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 4 1 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 4 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 4 1 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 4 1 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 4 1 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 4 1 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 4 1 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 4 1 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 4 1 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 4 1 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 4 1 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 4 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 4 1 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 4 1 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 4 1 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 4 1 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 4 1 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 4 1 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 4 1 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 4 1 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 4 1 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 4 1 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -18890,24 +18890,24 @@ VERSION 2.8.2 4 1 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 4 1 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 4 1 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 4 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 4 1 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 4 1 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 4 1 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 4 1 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 4 1 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 4 1 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 4 1 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 4 1 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 4 1 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 4 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 4 1 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 4 1 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 4 1 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 4 1 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 4 1 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 4 1 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 4 1 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 4 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 4 1 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 4 1 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 4 1 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 4 1 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 4 1 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 4 1 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 4 1 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 4 1 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 4 1 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 4 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 4 1 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 4 1 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 4 1 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 4 1 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 4 1 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 4 1 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 4 1 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 4 1 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 4 1 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 4 1 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -18920,24 +18920,24 @@ VERSION 2.8.2 4 1 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 4 1 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 4 1 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 4 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 4 1 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 4 1 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 4 1 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 4 1 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 4 1 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 4 1 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 4 1 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 4 1 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 4 1 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 4 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 4 1 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 4 1 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 4 1 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 4 1 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 4 1 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 4 1 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 4 1 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 4 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 4 1 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 4 1 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 4 1 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 4 1 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 4 1 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 4 1 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 4 1 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 4 1 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 4 1 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 4 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 4 1 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 4 1 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 4 1 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 4 1 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 4 1 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 4 1 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 4 1 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 4 1 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 4 1 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 4 1 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -18950,24 +18950,24 @@ VERSION 2.8.2 4 1 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 4 1 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 4 1 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 4 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 4 1 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 4 1 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 4 1 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 4 1 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 4 1 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 4 1 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 4 1 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 4 1 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 4 1 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 4 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 4 1 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 4 1 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 4 1 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 4 1 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 4 1 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 4 1 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 4 1 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 4 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 4 1 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 4 1 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 4 1 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 4 1 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 4 1 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 4 1 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 4 1 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 4 1 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 4 1 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 4 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 4 1 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 4 1 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 4 1 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 4 1 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 4 1 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 4 1 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 4 1 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 4 1 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 4 1 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 4 1 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -18980,24 +18980,24 @@ VERSION 2.8.2 4 1 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 4 1 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 4 1 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 4 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 4 1 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 4 1 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 4 1 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 4 1 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 4 1 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 4 1 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 4 1 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 4 1 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 4 1 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 4 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 4 1 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 4 1 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 4 1 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 4 1 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 4 1 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 4 1 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 4 1 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 4 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 4 1 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 4 1 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 4 1 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 4 1 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 4 1 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 4 1 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 4 1 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 4 1 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 4 1 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 4 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 4 1 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 4 1 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 4 1 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 4 1 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 4 1 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 4 1 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 4 1 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 4 1 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 4 1 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 4 1 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -19010,24 +19010,24 @@ VERSION 2.8.2 4 1 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 4 1 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 4 1 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 4 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 4 1 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 4 1 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 4 1 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 4 1 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 4 1 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 4 1 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 4 1 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 4 1 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 4 1 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 4 1 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 4 1 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 4 1 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 4 1 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 4 1 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 4 1 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 4 1 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 4 1 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 4 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 4 1 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 4 1 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 4 1 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 4 1 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 4 1 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 4 1 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 4 1 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 4 1 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 4 1 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 4 1 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 4 1 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 4 1 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 4 1 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 4 1 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 4 1 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 4 1 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 4 1 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 4 1 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 4 1 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 4 1 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -19040,24 +19040,24 @@ VERSION 2.8.2 4 1 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 4 1 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 4 1 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 4 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 4 1 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 4 1 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 4 1 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 4 1 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 4 1 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 4 1 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 4 1 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 4 1 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 4 1 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 4 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 4 1 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 4 1 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 4 1 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 4 1 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 4 1 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 4 1 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 4 1 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 4 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 4 1 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 4 1 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 4 1 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 4 1 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 4 1 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 4 1 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 4 1 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 4 1 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 4 1 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 4 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 4 1 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 4 1 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 4 1 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 4 1 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 4 1 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 4 1 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 4 1 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 4 1 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 4 1 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 4 1 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -19070,24 +19070,24 @@ VERSION 2.8.2 4 1 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 4 1 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 4 1 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 4 1 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 4 1 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 4 1 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 4 1 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 4 1 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 4 1 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 4 1 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 4 1 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 4 1 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 4 1 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 4 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 4 1 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 4 1 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 4 1 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 4 1 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 4 1 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 4 1 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 4 1 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 4 1 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 4 1 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 4 1 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 4 1 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 4 1 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 4 1 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 4 1 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 4 1 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 4 1 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 4 1 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 4 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 4 1 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 4 1 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 4 1 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 4 1 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 4 1 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 4 1 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 4 1 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 4 1 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 4 1 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 4 1 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -19100,24 +19100,24 @@ VERSION 2.8.2 4 1 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 4 1 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 4 1 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 4 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 4 1 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 4 1 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 4 1 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 4 1 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 4 1 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 4 1 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 4 1 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 4 1 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 4 1 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 4 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 4 1 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 4 1 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 4 1 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 4 1 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 4 1 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 4 1 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 4 1 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 4 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 4 1 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 4 1 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 4 1 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 4 1 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 4 1 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 4 1 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 4 1 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 4 1 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 4 1 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 4 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 4 1 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 4 1 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 4 1 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 4 1 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 4 1 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 4 1 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 4 1 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 4 1 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 4 1 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 4 1 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -19130,24 +19130,24 @@ VERSION 2.8.2 4 1 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 4 1 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 4 1 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 4 1 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 4 1 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 4 1 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 4 1 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 4 1 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 4 1 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 4 1 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 4 1 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 4 1 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 4 1 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 4 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 4 1 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 4 1 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 4 1 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 4 1 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 4 1 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 4 1 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 4 1 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 4 1 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 4 1 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 4 1 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 4 1 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 4 1 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 4 1 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 4 1 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 4 1 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 4 1 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 4 1 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 4 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 4 1 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 4 1 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 4 1 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 4 1 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 4 1 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 4 1 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 4 1 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 4 1 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 4 1 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 4 1 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -19160,24 +19160,24 @@ VERSION 2.8.2 4 1 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 4 1 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 4 1 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 4 1 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 4 1 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 4 1 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 4 1 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 4 1 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 4 1 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 4 1 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 4 1 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 4 1 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 4 1 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 4 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 4 1 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 4 1 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 4 1 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 4 1 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 4 1 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 4 1 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 4 1 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 4 1 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 4 1 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 4 1 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 4 1 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 4 1 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 4 1 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 4 1 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 4 1 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 4 1 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 4 1 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 4 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 4 1 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 4 1 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 4 1 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 4 1 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 4 1 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 4 1 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 4 1 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 4 1 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 4 1 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 4 1 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -19190,24 +19190,24 @@ VERSION 2.8.2 4 1 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 4 1 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 4 1 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 4 1 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 4 1 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 4 1 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 4 1 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 4 1 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 4 1 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 4 1 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 4 1 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 4 1 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 4 1 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 4 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 4 1 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 4 1 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 4 1 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 4 1 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 4 1 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 4 1 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 4 1 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 4 1 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 4 1 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 4 1 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 4 1 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 4 1 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 4 1 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 4 1 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 4 1 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 4 1 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 4 1 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 4 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 4 1 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 4 1 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 4 1 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 4 1 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 4 1 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 4 1 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 4 1 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 4 1 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 4 1 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 4 1 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -19220,24 +19220,24 @@ VERSION 2.8.2 4 1 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 4 1 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 4 1 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 4 1 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 4 1 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 4 1 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 4 1 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 4 1 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 4 1 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 4 1 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 4 1 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 4 1 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 4 1 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 4 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 4 1 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 4 1 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 4 1 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 4 1 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 4 1 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 4 1 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 4 1 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 4 1 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 4 1 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 4 1 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 4 1 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 4 1 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 4 1 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 4 1 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 4 1 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 4 1 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 4 1 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 4 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 4 1 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 4 1 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 4 1 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 4 1 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 4 1 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 4 1 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 4 1 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 4 1 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 4 1 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 4 1 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -19250,24 +19250,24 @@ VERSION 2.8.2 4 1 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 4 1 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 4 1 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 4 1 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 4 1 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 4 1 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 4 1 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 4 1 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 4 1 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 4 1 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 4 1 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 4 1 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 4 1 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 4 1 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 4 1 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 4 1 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 4 1 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 4 1 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 4 1 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 4 1 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 4 1 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 4 1 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 4 1 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 4 1 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 4 1 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 4 1 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 4 1 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 4 1 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 4 1 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 4 1 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 4 1 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 4 1 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 4 1 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 4 1 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 4 1 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 4 1 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 4 1 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 4 1 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 4 1 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 4 1 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 4 1 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 4 1 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -19280,24 +19280,24 @@ VERSION 2.8.2 4 1 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 4 1 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 4 1 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 4 1 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 4 1 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 4 1 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 4 1 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 4 1 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 4 1 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 4 1 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 4 1 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 4 1 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 4 1 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 4 1 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 4 1 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 4 1 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 4 1 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 4 1 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 4 1 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 4 1 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 4 1 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 4 1 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 4 1 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 4 1 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 4 1 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 4 1 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 4 1 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 4 1 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 4 1 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 4 1 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 4 1 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 4 1 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 4 1 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 4 1 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 4 1 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 4 1 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 4 1 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 4 1 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 4 1 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 4 1 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 4 1 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 4 1 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -19310,24 +19310,24 @@ VERSION 2.8.2 4 1 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 4 1 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 4 1 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 4 1 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 4 1 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 4 1 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 4 1 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 4 1 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 4 1 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 4 1 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 4 1 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 4 1 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 4 1 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 4 1 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 4 1 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 4 1 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 4 1 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 4 1 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 4 1 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 4 1 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 4 1 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 4 1 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 4 1 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 4 1 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 4 1 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 4 1 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 4 1 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 4 1 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 4 1 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 4 1 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 4 1 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 4 1 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 4 1 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 4 1 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 4 1 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 4 1 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 4 1 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 4 1 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 4 1 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 4 1 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 4 1 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 4 1 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -19340,24 +19340,24 @@ VERSION 2.8.2 4 1 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 4 1 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 4 1 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 4 1 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 4 1 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 4 1 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 4 1 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 4 1 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 4 1 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 4 1 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 4 1 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 4 1 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 4 1 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 4 1 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 4 1 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 4 1 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 4 1 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 4 1 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 4 1 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 4 1 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 4 1 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 4 1 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 4 1 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 4 1 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 4 1 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 4 1 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 4 1 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 4 1 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 4 1 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 4 1 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 4 1 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 4 1 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 4 1 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 4 1 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 4 1 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 4 1 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 4 1 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 4 1 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 4 1 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 4 1 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 4 1 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 4 1 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -19370,24 +19370,24 @@ VERSION 2.8.2 4 1 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 4 1 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 4 1 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 4 1 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 4 1 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 4 1 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 4 1 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 4 1 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 4 1 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 4 1 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 4 1 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 4 1 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 4 1 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 4 1 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 4 1 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 4 1 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 4 1 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 4 1 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 4 1 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 4 1 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 4 1 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 4 1 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 4 1 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 4 1 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 4 1 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 4 1 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 4 1 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 4 1 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 4 1 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 4 1 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 4 1 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 4 1 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 4 1 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 4 1 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 4 1 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 4 1 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 4 1 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 4 1 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 4 1 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 4 1 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 4 1 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 4 1 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -19400,24 +19400,24 @@ VERSION 2.8.2 4 1 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 4 1 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 4 1 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 4 1 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 4 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 4 1 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 4 1 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 4 1 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 4 1 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 4 1 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 4 1 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 4 1 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 4 1 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 4 1 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 4 1 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 4 1 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 4 1 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 4 1 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 4 1 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 4 1 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 4 1 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 4 1 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 4 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 4 1 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 4 1 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 4 1 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 4 1 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 4 1 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 4 1 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 4 1 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 4 1 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 4 1 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 4 1 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 4 1 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 4 1 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 4 1 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 4 1 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 4 1 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 4 1 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 4 1 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 4 1 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 4 1 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -19430,24 +19430,24 @@ VERSION 2.8.2 4 1 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 4 1 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 4 1 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 4 1 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 4 1 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 4 1 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 4 1 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 4 1 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 4 1 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 4 1 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 4 1 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 4 1 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 4 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 4 1 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 4 1 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 4 1 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 4 1 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 4 1 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 4 1 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 4 1 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 4 1 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 4 1 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 4 1 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 4 1 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 4 1 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 4 1 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 4 1 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 4 1 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 4 1 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 4 1 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 4 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 4 1 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 4 1 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 4 1 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 4 1 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 4 1 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 4 1 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 4 1 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 4 1 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 4 1 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 4 1 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 4 1 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -19460,24 +19460,24 @@ VERSION 2.8.2 4 1 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 4 1 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 4 1 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 4 1 0.15405E-08 0.10000E+01 0.80645E+05 0.22169E-55 0.16538E-66 0.19444E-63 - 4 1 0.15405E-08 0.10000E+01 0.65036E+05 0.18709E-54 0.26199E-65 0.16386E-62 - 4 1 0.15405E-08 0.10000E+01 0.52449E+05 0.15857E-53 0.34936E-64 0.13874E-61 - 4 1 0.15405E-08 0.10000E+01 0.42297E+05 0.11856E-52 0.46757E-63 0.10359E-60 - 4 1 0.15405E-08 0.10000E+01 0.34111E+05 0.84435E-52 0.62479E-62 0.73632E-60 - 4 1 0.15405E-08 0.10000E+01 0.27509E+05 0.59246E-51 0.81019E-61 0.51534E-59 - 4 1 0.15405E-08 0.10000E+01 0.22184E+05 0.40692E-50 0.10307E-59 0.35092E-58 - 4 1 0.15405E-08 0.10000E+01 0.17891E+05 0.27534E-49 0.14075E-58 0.22768E-57 - 4 1 0.15405E-08 0.10000E+01 0.14428E+05 0.19631E-48 0.24555E-57 0.13888E-56 - 4 1 0.15405E-08 0.10000E+01 0.11635E+05 0.17070E-47 0.57662E-56 0.81553E-56 - 4 1 0.15405E-08 0.10000E+01 0.93834E+04 0.19685E-46 0.15733E-54 0.52856E-55 - 4 1 0.15405E-08 0.10000E+01 0.75673E+04 0.27170E-45 0.44125E-53 0.48422E-54 - 4 1 0.15405E-08 0.10000E+01 0.61026E+04 0.39529E-44 0.12261E-51 0.62492E-53 - 4 1 0.15405E-08 0.10000E+01 0.49215E+04 0.57536E-43 0.33698E-50 0.90174E-52 - 4 1 0.15405E-08 0.10000E+01 0.39689E+04 0.83012E-42 0.92000E-49 0.13001E-50 - 4 1 0.15405E-08 0.10000E+01 0.32008E+04 0.37425E-39 0.80984E-46 0.58076E-48 - 4 1 0.15405E-08 0.10000E+01 0.25813E+04 0.27849E-30 0.13803E-36 0.42644E-39 - 4 1 0.15405E-08 0.10000E+01 0.20817E+04 0.53875E-14 0.11903E-19 0.81441E-23 + 4 1 0.15405E-08 0.10000E+01 0.80645E+05 0.15001E-12 0.91972E-24 0.13169E-20 + 4 1 0.15405E-08 0.10000E+01 0.65036E+05 0.19213E-12 0.20848E-23 0.16858E-20 + 4 1 0.15405E-08 0.10000E+01 0.52449E+05 0.24243E-12 0.47202E-23 0.21254E-20 + 4 1 0.15405E-08 0.10000E+01 0.42297E+05 0.30246E-12 0.11147E-22 0.26464E-20 + 4 1 0.15405E-08 0.10000E+01 0.34111E+05 0.37429E-12 0.29920E-22 0.32582E-20 + 4 1 0.15405E-08 0.10000E+01 0.27509E+05 0.46190E-12 0.98679E-22 0.39673E-20 + 4 1 0.15405E-08 0.10000E+01 0.22184E+05 0.57520E-12 0.39261E-21 0.47820E-20 + 4 1 0.15405E-08 0.10000E+01 0.17891E+05 0.74041E-12 0.17297E-20 0.57272E-20 + 4 1 0.15405E-08 0.10000E+01 0.14428E+05 0.10253E-11 0.78986E-20 0.68859E-20 + 4 1 0.15405E-08 0.10000E+01 0.11635E+05 0.15998E-11 0.36328E-19 0.84980E-20 + 4 1 0.15405E-08 0.10000E+01 0.93834E+04 0.28796E-11 0.16677E-18 0.11186E-19 + 4 1 0.15405E-08 0.10000E+01 0.75673E+04 0.58696E-11 0.76119E-18 0.16480E-19 + 4 1 0.15405E-08 0.10000E+01 0.61026E+04 0.12974E-10 0.34345E-17 0.28036E-19 + 4 1 0.15405E-08 0.10000E+01 0.49215E+04 0.29868E-10 0.15201E-16 0.54439E-19 + 4 1 0.15405E-08 0.10000E+01 0.39689E+04 0.69673E-10 0.65650E-16 0.11541E-18 + 4 1 0.15405E-08 0.10000E+01 0.32008E+04 0.16191E-09 0.27640E-15 0.25516E-18 + 4 1 0.15405E-08 0.10000E+01 0.25813E+04 0.37121E-09 0.11350E-14 0.57012E-18 + 4 1 0.15405E-08 0.10000E+01 0.20817E+04 0.83541E-09 0.45411E-14 0.12655E-17 4 1 0.15405E-08 0.10000E+01 0.16788E+04 0.18406E-08 0.17690E-13 0.27668E-17 4 1 0.15405E-08 0.10000E+01 0.13538E+04 0.39646E-08 0.67251E-13 0.59320E-17 4 1 0.15405E-08 0.10000E+01 0.10918E+04 0.83445E-08 0.25085E-12 0.12448E-16 @@ -19490,24 +19490,24 @@ VERSION 2.8.2 4 1 0.15405E-08 0.10000E+01 0.24221E+03 0.83283E-06 0.76833E-09 0.12325E-14 4 1 0.15405E-08 0.10000E+01 0.19533E+03 0.13126E-05 0.14601E-08 0.19419E-14 4 1 0.15405E-08 0.10000E+01 0.15752E+03 0.13126E-05 0.14601E-08 0.19419E-14 - 4 1 0.26880E-08 0.10000E+01 0.80645E+05 0.44147E-55 0.32899E-66 0.76539E-63 - 4 1 0.26880E-08 0.10000E+01 0.65036E+05 0.37227E-54 0.52097E-65 0.64519E-62 - 4 1 0.26880E-08 0.10000E+01 0.52449E+05 0.31535E-53 0.69411E-64 0.54648E-61 - 4 1 0.26880E-08 0.10000E+01 0.42297E+05 0.23562E-52 0.92815E-63 0.40832E-60 - 4 1 0.26880E-08 0.10000E+01 0.34111E+05 0.16767E-51 0.12398E-61 0.29071E-59 - 4 1 0.26880E-08 0.10000E+01 0.27509E+05 0.11758E-50 0.16033E-60 0.20417E-58 - 4 1 0.26880E-08 0.10000E+01 0.22184E+05 0.80503E-50 0.19916E-59 0.14006E-57 - 4 1 0.26880E-08 0.10000E+01 0.17891E+05 0.53362E-49 0.24604E-58 0.92169E-57 - 4 1 0.26880E-08 0.10000E+01 0.14428E+05 0.35072E-48 0.34415E-57 0.57325E-56 - 4 1 0.26880E-08 0.10000E+01 0.11635E+05 0.25233E-47 0.64825E-56 0.33641E-55 - 4 1 0.26880E-08 0.10000E+01 0.93834E+04 0.23294E-46 0.16099E-54 0.19548E-54 - 4 1 0.26880E-08 0.10000E+01 0.75673E+04 0.28462E-45 0.44413E-53 0.13553E-53 - 4 1 0.26880E-08 0.10000E+01 0.61026E+04 0.40026E-44 0.12346E-51 0.13880E-52 - 4 1 0.26880E-08 0.10000E+01 0.49215E+04 0.57964E-43 0.33900E-50 0.18524E-51 - 4 1 0.26880E-08 0.10000E+01 0.39689E+04 0.83490E-42 0.92262E-49 0.26049E-50 - 4 1 0.26880E-08 0.10000E+01 0.32008E+04 0.37529E-39 0.80913E-46 0.11368E-47 - 4 1 0.26880E-08 0.10000E+01 0.25813E+04 0.27821E-30 0.13740E-36 0.81010E-39 - 4 1 0.26880E-08 0.10000E+01 0.20817E+04 0.53615E-14 0.11804E-19 0.14934E-22 + 4 1 0.26880E-08 0.10000E+01 0.80645E+05 0.29889E-12 0.18253E-23 0.51836E-20 + 4 1 0.26880E-08 0.10000E+01 0.65036E+05 0.38272E-12 0.41144E-23 0.66371E-20 + 4 1 0.26880E-08 0.10000E+01 0.52449E+05 0.48272E-12 0.91242E-23 0.83711E-20 + 4 1 0.26880E-08 0.10000E+01 0.42297E+05 0.60166E-12 0.20271E-22 0.10431E-19 + 4 1 0.26880E-08 0.10000E+01 0.34111E+05 0.74252E-12 0.47711E-22 0.12857E-19 + 4 1 0.26880E-08 0.10000E+01 0.27509E+05 0.90955E-12 0.13100E-21 0.15675E-19 + 4 1 0.26880E-08 0.10000E+01 0.22184E+05 0.11119E-11 0.44757E-21 0.18903E-19 + 4 1 0.26880E-08 0.10000E+01 0.17891E+05 0.13741E-11 0.18206E-20 0.22571E-19 + 4 1 0.26880E-08 0.10000E+01 0.14428E+05 0.17613E-11 0.80566E-20 0.26806E-19 + 4 1 0.26880E-08 0.10000E+01 0.11635E+05 0.24407E-11 0.36623E-19 0.32029E-19 + 4 1 0.26880E-08 0.10000E+01 0.93834E+04 0.38265E-11 0.16721E-18 0.39399E-19 + 4 1 0.26880E-08 0.10000E+01 0.75673E+04 0.69213E-11 0.76050E-18 0.51802E-19 + 4 1 0.26880E-08 0.10000E+01 0.61026E+04 0.14123E-10 0.34224E-17 0.76072E-19 + 4 1 0.26880E-08 0.10000E+01 0.49215E+04 0.31080E-10 0.15118E-16 0.12798E-18 + 4 1 0.26880E-08 0.10000E+01 0.39689E+04 0.70831E-10 0.65194E-16 0.24321E-18 + 4 1 0.26880E-08 0.10000E+01 0.32008E+04 0.16267E-09 0.27419E-15 0.50060E-18 + 4 1 0.26880E-08 0.10000E+01 0.25813E+04 0.37069E-09 0.11250E-14 0.10705E-17 + 4 1 0.26880E-08 0.10000E+01 0.20817E+04 0.83144E-09 0.44988E-14 0.23125E-17 4 1 0.26880E-08 0.10000E+01 0.16788E+04 0.18283E-08 0.17519E-13 0.49687E-17 4 1 0.26880E-08 0.10000E+01 0.13538E+04 0.39332E-08 0.66577E-13 0.10530E-16 4 1 0.26880E-08 0.10000E+01 0.10918E+04 0.82717E-08 0.24827E-12 0.21919E-16 @@ -19520,24 +19520,24 @@ VERSION 2.8.2 4 1 0.26880E-08 0.10000E+01 0.24221E+03 0.82391E-06 0.75991E-09 0.21294E-14 4 1 0.26880E-08 0.10000E+01 0.19533E+03 0.12984E-05 0.14440E-08 0.33534E-14 4 1 0.26880E-08 0.10000E+01 0.15752E+03 0.12984E-05 0.14440E-08 0.33534E-14 - 4 1 0.46905E-08 0.10000E+01 0.80645E+05 0.84914E-55 0.63264E-66 0.25137E-62 - 4 1 0.46905E-08 0.10000E+01 0.65036E+05 0.71591E-54 0.10018E-64 0.21198E-61 - 4 1 0.46905E-08 0.10000E+01 0.52449E+05 0.60640E-53 0.13347E-63 0.17961E-60 - 4 1 0.46905E-08 0.10000E+01 0.42297E+05 0.45308E-52 0.17852E-62 0.13429E-59 - 4 1 0.46905E-08 0.10000E+01 0.34111E+05 0.32249E-51 0.23870E-61 0.95741E-59 - 4 1 0.46905E-08 0.10000E+01 0.27509E+05 0.22631E-50 0.30904E-60 0.67413E-58 - 4 1 0.46905E-08 0.10000E+01 0.22184E+05 0.15505E-49 0.38168E-59 0.46473E-57 - 4 1 0.46905E-08 0.10000E+01 0.17891E+05 0.10224E-48 0.45256E-58 0.30863E-56 - 4 1 0.46905E-08 0.10000E+01 0.14428E+05 0.65022E-48 0.55190E-57 0.19482E-55 - 4 1 0.46905E-08 0.10000E+01 0.11635E+05 0.41896E-47 0.82401E-56 0.11604E-54 - 4 1 0.46905E-08 0.10000E+01 0.93834E+04 0.31427E-46 0.17362E-54 0.66133E-54 - 4 1 0.46905E-08 0.10000E+01 0.75673E+04 0.31973E-45 0.45741E-53 0.40197E-53 - 4 1 0.46905E-08 0.10000E+01 0.61026E+04 0.41790E-44 0.12665E-51 0.33476E-52 - 4 1 0.46905E-08 0.10000E+01 0.49215E+04 0.59589E-43 0.34720E-50 0.40051E-51 - 4 1 0.46905E-08 0.10000E+01 0.39689E+04 0.85492E-42 0.94020E-49 0.54427E-50 - 4 1 0.46905E-08 0.10000E+01 0.32008E+04 0.38237E-39 0.81918E-46 0.23194E-47 - 4 1 0.46905E-08 0.10000E+01 0.25813E+04 0.28156E-30 0.13815E-36 0.15995E-38 - 4 1 0.46905E-08 0.10000E+01 0.20817E+04 0.53870E-14 0.11779E-19 0.28225E-22 + 4 1 0.46905E-08 0.10000E+01 0.80645E+05 0.57500E-12 0.35114E-23 0.17022E-19 + 4 1 0.46905E-08 0.10000E+01 0.65036E+05 0.73624E-12 0.79068E-23 0.21799E-19 + 4 1 0.46905E-08 0.10000E+01 0.52449E+05 0.92859E-12 0.17410E-22 0.27505E-19 + 4 1 0.46905E-08 0.10000E+01 0.42297E+05 0.11572E-11 0.37661E-22 0.34293E-19 + 4 1 0.46905E-08 0.10000E+01 0.34111E+05 0.14269E-11 0.82369E-22 0.42305E-19 + 4 1 0.46905E-08 0.10000E+01 0.27509E+05 0.17430E-11 0.19616E-21 0.51643E-19 + 4 1 0.46905E-08 0.10000E+01 0.22184E+05 0.21140E-11 0.56452E-21 0.62357E-19 + 4 1 0.46905E-08 0.10000E+01 0.17891E+05 0.25619E-11 0.20325E-20 0.74483E-19 + 4 1 0.46905E-08 0.10000E+01 0.14428E+05 0.31486E-11 0.84913E-20 0.88202E-19 + 4 1 0.46905E-08 0.10000E+01 0.11635E+05 0.40389E-11 0.37719E-19 0.10425E-18 + 4 1 0.46905E-08 0.10000E+01 0.93834E+04 0.56486E-11 0.17039E-18 0.12484E-18 + 4 1 0.46905E-08 0.10000E+01 0.75673E+04 0.89903E-11 0.76986E-18 0.15558E-18 + 4 1 0.46905E-08 0.10000E+01 0.61026E+04 0.16481E-10 0.34474E-17 0.20966E-18 + 4 1 0.46905E-08 0.10000E+01 0.49215E+04 0.33800E-10 0.15170E-16 0.31695E-18 + 4 1 0.46905E-08 0.10000E+01 0.39689E+04 0.74009E-10 0.65230E-16 0.54361E-18 + 4 1 0.46905E-08 0.10000E+01 0.32008E+04 0.16638E-09 0.27375E-15 0.10331E-17 + 4 1 0.46905E-08 0.10000E+01 0.25813E+04 0.37483E-09 0.11215E-14 0.20907E-17 + 4 1 0.46905E-08 0.10000E+01 0.20817E+04 0.83538E-09 0.44796E-14 0.43540E-17 4 1 0.46905E-08 0.10000E+01 0.16788E+04 0.18300E-08 0.17429E-13 0.91273E-17 4 1 0.46905E-08 0.10000E+01 0.13538E+04 0.39273E-08 0.66194E-13 0.19016E-16 4 1 0.46905E-08 0.10000E+01 0.10918E+04 0.82460E-08 0.24672E-12 0.39111E-16 @@ -19550,24 +19550,24 @@ VERSION 2.8.2 4 1 0.46905E-08 0.10000E+01 0.24221E+03 0.81813E-06 0.75423E-09 0.36911E-14 4 1 0.46905E-08 0.10000E+01 0.19533E+03 0.12892E-05 0.14332E-08 0.58084E-14 4 1 0.46905E-08 0.10000E+01 0.15752E+03 0.12892E-05 0.14332E-08 0.58084E-14 - 4 1 0.81846E-08 0.10000E+01 0.80645E+05 0.16157E-54 0.12039E-65 0.81777E-62 - 4 1 0.81846E-08 0.10000E+01 0.65036E+05 0.13624E-53 0.19067E-64 0.68988E-61 - 4 1 0.81846E-08 0.10000E+01 0.52449E+05 0.11542E-52 0.25416E-63 0.58475E-60 - 4 1 0.81846E-08 0.10000E+01 0.42297E+05 0.86267E-52 0.34029E-62 0.43752E-59 - 4 1 0.81846E-08 0.10000E+01 0.34111E+05 0.61456E-51 0.45595E-61 0.31234E-58 - 4 1 0.81846E-08 0.10000E+01 0.27509E+05 0.43204E-50 0.59265E-60 0.22044E-57 - 4 1 0.81846E-08 0.10000E+01 0.22184E+05 0.29695E-49 0.73515E-59 0.15261E-56 - 4 1 0.81846E-08 0.10000E+01 0.17891E+05 0.19647E-48 0.86568E-58 0.10213E-55 - 4 1 0.81846E-08 0.10000E+01 0.14428E+05 0.12425E-47 0.99469E-57 0.65308E-55 - 4 1 0.81846E-08 0.10000E+01 0.11635E+05 0.76467E-47 0.12439E-55 0.39573E-54 - 4 1 0.81846E-08 0.10000E+01 0.93834E+04 0.49731E-46 0.20939E-54 0.22686E-53 - 4 1 0.81846E-08 0.10000E+01 0.75673E+04 0.40864E-45 0.49634E-53 0.12961E-52 - 4 1 0.81846E-08 0.10000E+01 0.61026E+04 0.46629E-44 0.13469E-51 0.90893E-52 - 4 1 0.81846E-08 0.10000E+01 0.49215E+04 0.63787E-43 0.36725E-50 0.94409E-51 - 4 1 0.81846E-08 0.10000E+01 0.39689E+04 0.90467E-42 0.98534E-49 0.12204E-49 - 4 1 0.81846E-08 0.10000E+01 0.32008E+04 0.40062E-39 0.84797E-46 0.50685E-47 - 4 1 0.81846E-08 0.10000E+01 0.25813E+04 0.29122E-30 0.14099E-36 0.33706E-38 - 4 1 0.81846E-08 0.10000E+01 0.20817E+04 0.54889E-14 0.11826E-19 0.56261E-22 + 4 1 0.81846E-08 0.10000E+01 0.80645E+05 0.10941E-11 0.66970E-23 0.55365E-19 + 4 1 0.81846E-08 0.10000E+01 0.65036E+05 0.14011E-11 0.15103E-22 0.70920E-19 + 4 1 0.81846E-08 0.10000E+01 0.52449E+05 0.17674E-11 0.33261E-22 0.89511E-19 + 4 1 0.81846E-08 0.10000E+01 0.42297E+05 0.22031E-11 0.71397E-22 0.11166E-18 + 4 1 0.81846E-08 0.10000E+01 0.34111E+05 0.27171E-11 0.15113E-21 0.13787E-18 + 4 1 0.81846E-08 0.10000E+01 0.27509E+05 0.33175E-11 0.32969E-21 0.16851E-18 + 4 1 0.81846E-08 0.10000E+01 0.22184E+05 0.40129E-11 0.81462E-21 0.20377E-18 + 4 1 0.81846E-08 0.10000E+01 0.17891E+05 0.48227E-11 0.25093E-20 0.24371E-18 + 4 1 0.81846E-08 0.10000E+01 0.14428E+05 0.58046E-11 0.95196E-20 0.28853E-18 + 4 1 0.81846E-08 0.10000E+01 0.11635E+05 0.71217E-11 0.40435E-19 0.33953E-18 + 4 1 0.81846E-08 0.10000E+01 0.93834E+04 0.91982E-11 0.17875E-18 0.40104E-18 + 4 1 0.81846E-08 0.10000E+01 0.75673E+04 0.13076E-10 0.79676E-18 0.48454E-18 + 4 1 0.81846E-08 0.10000E+01 0.61026E+04 0.21236E-10 0.35315E-17 0.61692E-18 + 4 1 0.81846E-08 0.10000E+01 0.49215E+04 0.39469E-10 0.15416E-16 0.85780E-18 + 4 1 0.81846E-08 0.10000E+01 0.39689E+04 0.81002E-10 0.65872E-16 0.13354E-17 + 4 1 0.81846E-08 0.10000E+01 0.32008E+04 0.17532E-09 0.27513E-15 0.23201E-17 + 4 1 0.81846E-08 0.10000E+01 0.25813E+04 0.38650E-09 0.11232E-14 0.43741E-17 + 4 1 0.81846E-08 0.10000E+01 0.20817E+04 0.85051E-09 0.44750E-14 0.86491E-17 4 1 0.81846E-08 0.10000E+01 0.16788E+04 0.18486E-08 0.17379E-13 0.17469E-16 4 1 0.81846E-08 0.10000E+01 0.13538E+04 0.39471E-08 0.65916E-13 0.35430E-16 4 1 0.81846E-08 0.10000E+01 0.10918E+04 0.82589E-08 0.24542E-12 0.71449E-16 @@ -19580,24 +19580,24 @@ VERSION 2.8.2 4 1 0.81846E-08 0.10000E+01 0.24221E+03 0.81272E-06 0.74859E-09 0.64172E-14 4 1 0.81846E-08 0.10000E+01 0.19533E+03 0.12804E-05 0.14225E-08 0.10085E-13 4 1 0.81846E-08 0.10000E+01 0.15752E+03 0.12804E-05 0.14225E-08 0.10085E-13 - 4 1 0.14282E-07 0.10000E+01 0.80645E+05 0.30442E-54 0.22691E-65 0.26444E-61 - 4 1 0.14282E-07 0.10000E+01 0.65036E+05 0.25675E-53 0.35946E-64 0.22317E-60 - 4 1 0.14282E-07 0.10000E+01 0.52449E+05 0.21757E-52 0.47947E-63 0.18923E-59 - 4 1 0.14282E-07 0.10000E+01 0.42297E+05 0.16272E-51 0.64280E-62 0.14168E-58 - 4 1 0.14282E-07 0.10000E+01 0.34111E+05 0.11605E-50 0.86337E-61 0.10127E-57 - 4 1 0.14282E-07 0.10000E+01 0.27509E+05 0.81753E-50 0.11274E-59 0.71622E-57 - 4 1 0.14282E-07 0.10000E+01 0.22184E+05 0.56408E-49 0.14089E-58 0.49766E-56 - 4 1 0.14282E-07 0.10000E+01 0.17891E+05 0.37546E-48 0.16701E-57 0.33521E-55 - 4 1 0.14282E-07 0.10000E+01 0.14428E+05 0.23872E-47 0.18921E-56 0.21667E-54 - 4 1 0.14282E-07 0.10000E+01 0.11635E+05 0.14540E-46 0.21527E-55 0.13338E-53 - 4 1 0.14282E-07 0.10000E+01 0.93834E+04 0.88067E-46 0.29254E-54 0.77578E-53 - 4 1 0.14282E-07 0.10000E+01 0.75673E+04 0.60553E-45 0.58326E-53 0.43430E-52 - 4 1 0.14282E-07 0.10000E+01 0.61026E+04 0.57349E-44 0.15051E-51 0.27098E-51 - 4 1 0.14282E-07 0.10000E+01 0.49215E+04 0.72317E-43 0.40568E-50 0.24252E-50 - 4 1 0.14282E-07 0.10000E+01 0.39689E+04 0.10013E-41 0.10738E-48 0.29366E-49 - 4 1 0.14282E-07 0.10000E+01 0.32008E+04 0.43649E-39 0.90644E-46 0.11889E-46 - 4 1 0.14282E-07 0.10000E+01 0.25813E+04 0.31082E-30 0.14709E-36 0.76420E-38 - 4 1 0.14282E-07 0.10000E+01 0.20817E+04 0.57088E-14 0.11967E-19 0.12009E-21 + 4 1 0.14282E-07 0.10000E+01 0.80645E+05 0.20612E-11 0.12658E-22 0.17900E-18 + 4 1 0.14282E-07 0.10000E+01 0.65036E+05 0.26399E-11 0.28613E-22 0.22934E-18 + 4 1 0.14282E-07 0.10000E+01 0.52449E+05 0.33311E-11 0.63196E-22 0.28955E-18 + 4 1 0.14282E-07 0.10000E+01 0.42297E+05 0.41540E-11 0.13575E-21 0.36139E-18 + 4 1 0.14282E-07 0.10000E+01 0.34111E+05 0.51262E-11 0.28433E-21 0.44655E-18 + 4 1 0.14282E-07 0.10000E+01 0.27509E+05 0.62620E-11 0.59381E-21 0.54640E-18 + 4 1 0.14282E-07 0.10000E+01 0.22184E+05 0.75726E-11 0.13206E-20 0.66172E-18 + 4 1 0.14282E-07 0.10000E+01 0.17891E+05 0.90746E-11 0.34882E-20 0.79266E-18 + 4 1 0.14282E-07 0.10000E+01 0.14428E+05 0.10820E-10 0.11624E-19 0.93933E-18 + 4 1 0.14282E-07 0.10000E+01 0.11635E+05 0.12970E-10 0.45915E-19 0.11039E-17 + 4 1 0.14282E-07 0.10000E+01 0.93834E+04 0.15966E-10 0.19556E-18 0.12952E-17 + 4 1 0.14282E-07 0.10000E+01 0.75673E+04 0.20907E-10 0.85157E-18 0.15380E-17 + 4 1 0.14282E-07 0.10000E+01 0.61026E+04 0.30404E-10 0.37080E-17 0.18909E-17 + 4 1 0.14282E-07 0.10000E+01 0.49215E+04 0.50484E-10 0.15955E-16 0.24806E-17 + 4 1 0.14282E-07 0.10000E+01 0.39689E+04 0.94752E-10 0.67398E-16 0.35711E-17 + 4 1 0.14282E-07 0.10000E+01 0.32008E+04 0.19322E-09 0.27900E-15 0.56992E-17 + 4 1 0.14282E-07 0.10000E+01 0.25813E+04 0.41059E-09 0.11313E-14 0.99423E-17 + 4 1 0.14282E-07 0.10000E+01 0.20817E+04 0.88330E-09 0.44851E-14 0.18446E-16 4 1 0.14282E-07 0.10000E+01 0.16788E+04 0.18924E-08 0.17356E-13 0.35443E-16 4 1 0.14282E-07 0.10000E+01 0.13538E+04 0.40020E-08 0.65652E-13 0.69167E-16 4 1 0.14282E-07 0.10000E+01 0.10918E+04 0.83184E-08 0.24397E-12 0.13540E-15 @@ -19610,24 +19610,24 @@ VERSION 2.8.2 4 1 0.14282E-07 0.10000E+01 0.24221E+03 0.80590E-06 0.74114E-09 0.11214E-13 4 1 0.14282E-07 0.10000E+01 0.19533E+03 0.12691E-05 0.14082E-08 0.17584E-13 4 1 0.14282E-07 0.10000E+01 0.15752E+03 0.12691E-05 0.14082E-08 0.17584E-13 - 4 1 0.24920E-07 0.10000E+01 0.80645E+05 0.56799E-54 0.42354E-65 0.84609E-61 - 4 1 0.24920E-07 0.10000E+01 0.65036E+05 0.47921E-53 0.67115E-64 0.71433E-60 - 4 1 0.24920E-07 0.10000E+01 0.52449E+05 0.40621E-52 0.89589E-63 0.60589E-59 - 4 1 0.24920E-07 0.10000E+01 0.42297E+05 0.30398E-51 0.12027E-61 0.45392E-58 - 4 1 0.24920E-07 0.10000E+01 0.34111E+05 0.21705E-50 0.16193E-60 0.32479E-57 - 4 1 0.24920E-07 0.10000E+01 0.27509E+05 0.15323E-49 0.21238E-59 0.23013E-56 - 4 1 0.24920E-07 0.10000E+01 0.22184E+05 0.10612E-48 0.26744E-58 0.16041E-55 - 4 1 0.24920E-07 0.10000E+01 0.17891E+05 0.71084E-48 0.32040E-57 0.10863E-54 - 4 1 0.24920E-07 0.10000E+01 0.14428E+05 0.45587E-47 0.36499E-56 0.70834E-54 - 4 1 0.24920E-07 0.10000E+01 0.11635E+05 0.27903E-46 0.40136E-55 0.44191E-53 - 4 1 0.24920E-07 0.10000E+01 0.93834E+04 0.16495E-45 0.47141E-54 0.26116E-52 - 4 1 0.24920E-07 0.10000E+01 0.75673E+04 0.10159E-44 0.76552E-53 0.14621E-51 - 4 1 0.24920E-07 0.10000E+01 0.61026E+04 0.79681E-44 0.18024E-51 0.85225E-51 - 4 1 0.24920E-07 0.10000E+01 0.49215E+04 0.88844E-43 0.47589E-50 0.66813E-50 - 4 1 0.24920E-07 0.10000E+01 0.39689E+04 0.11805E-41 0.12392E-48 0.74971E-49 - 4 1 0.24920E-07 0.10000E+01 0.32008E+04 0.50367E-39 0.10197E-45 0.29630E-46 - 4 1 0.24920E-07 0.10000E+01 0.25813E+04 0.34881E-30 0.15962E-36 0.18551E-37 - 4 1 0.24920E-07 0.10000E+01 0.20817E+04 0.61657E-14 0.12352E-19 0.27613E-21 + 4 1 0.24920E-07 0.10000E+01 0.80645E+05 0.38452E-11 0.23695E-22 0.57263E-18 + 4 1 0.24920E-07 0.10000E+01 0.65036E+05 0.49257E-11 0.53696E-22 0.73379E-18 + 4 1 0.24920E-07 0.10000E+01 0.52449E+05 0.62173E-11 0.11903E-21 0.92671E-18 + 4 1 0.24920E-07 0.10000E+01 0.42297E+05 0.77567E-11 0.25668E-21 0.11572E-17 + 4 1 0.24920E-07 0.10000E+01 0.34111E+05 0.95787E-11 0.53751E-21 0.14308E-17 + 4 1 0.24920E-07 0.10000E+01 0.27509E+05 0.11711E-10 0.11035E-20 0.17525E-17 + 4 1 0.24920E-07 0.10000E+01 0.22184E+05 0.14172E-10 0.23126E-20 0.21252E-17 + 4 1 0.24920E-07 0.10000E+01 0.17891E+05 0.16978E-10 0.54240E-20 0.25497E-17 + 4 1 0.24920E-07 0.10000E+01 0.14428E+05 0.20171E-10 0.15753E-19 0.30257E-17 + 4 1 0.24920E-07 0.10000E+01 0.11635E+05 0.23912E-10 0.56487E-19 0.35565E-17 + 4 1 0.24920E-07 0.10000E+01 0.93834E+04 0.28672E-10 0.22781E-18 0.41605E-17 + 4 1 0.24920E-07 0.10000E+01 0.75673E+04 0.35659E-10 0.95840E-18 0.48942E-17 + 4 1 0.24920E-07 0.10000E+01 0.61026E+04 0.47734E-10 0.40629E-17 0.58929E-17 + 4 1 0.24920E-07 0.10000E+01 0.49215E+04 0.71409E-10 0.17094E-16 0.74460E-17 + 4 1 0.24920E-07 0.10000E+01 0.39689E+04 0.12111E-09 0.70870E-16 0.10136E-16 + 4 1 0.24920E-07 0.10000E+01 0.32008E+04 0.22814E-09 0.28897E-15 0.15098E-16 + 4 1 0.24920E-07 0.10000E+01 0.25813E+04 0.45899E-09 0.11580E-14 0.24517E-16 + 4 1 0.24920E-07 0.10000E+01 0.20817E+04 0.95244E-09 0.45507E-14 0.42571E-16 4 1 0.24920E-07 0.10000E+01 0.16788E+04 0.19921E-08 0.17496E-13 0.77232E-16 4 1 0.24920E-07 0.10000E+01 0.13538E+04 0.41442E-08 0.65869E-13 0.14362E-15 4 1 0.24920E-07 0.10000E+01 0.10918E+04 0.85146E-08 0.24393E-12 0.27015E-15 @@ -19640,24 +19640,24 @@ VERSION 2.8.2 4 1 0.24920E-07 0.10000E+01 0.24221E+03 0.80227E-06 0.73576E-09 0.19769E-13 4 1 0.24920E-07 0.10000E+01 0.19533E+03 0.12625E-05 0.13979E-08 0.30878E-13 4 1 0.24920E-07 0.10000E+01 0.15752E+03 0.12625E-05 0.13979E-08 0.30878E-13 - 4 1 0.43485E-07 0.10000E+01 0.80645E+05 0.10510E-53 0.78406E-65 0.26954E-60 - 4 1 0.43485E-07 0.10000E+01 0.65036E+05 0.88705E-53 0.12428E-63 0.22764E-59 - 4 1 0.43485E-07 0.10000E+01 0.52449E+05 0.75217E-52 0.16602E-62 0.19314E-58 - 4 1 0.43485E-07 0.10000E+01 0.42297E+05 0.56321E-51 0.22317E-61 0.14477E-57 - 4 1 0.43485E-07 0.10000E+01 0.34111E+05 0.40259E-50 0.30113E-60 0.10369E-56 - 4 1 0.43485E-07 0.10000E+01 0.27509E+05 0.28477E-49 0.39653E-59 0.73588E-56 - 4 1 0.43485E-07 0.10000E+01 0.22184E+05 0.19790E-48 0.50282E-58 0.51431E-55 - 4 1 0.43485E-07 0.10000E+01 0.17891E+05 0.13334E-47 0.60891E-57 0.34986E-54 - 4 1 0.43485E-07 0.10000E+01 0.14428E+05 0.86274E-47 0.70205E-56 0.22981E-53 - 4 1 0.43485E-07 0.10000E+01 0.11635E+05 0.53336E-46 0.76941E-55 0.14498E-52 - 4 1 0.43485E-07 0.10000E+01 0.93834E+04 0.31489E-45 0.83738E-54 0.86955E-52 - 4 1 0.43485E-07 0.10000E+01 0.75673E+04 0.18378E-44 0.11296E-52 0.49107E-51 - 4 1 0.43485E-07 0.10000E+01 0.61026E+04 0.12414E-43 0.23332E-51 0.27625E-50 - 4 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11934E-42 0.59575E-50 0.19471E-49 - 4 1 0.43485E-07 0.10000E+01 0.39689E+04 0.14919E-41 0.15251E-48 0.20142E-48 - 4 1 0.43485E-07 0.10000E+01 0.32008E+04 0.62017E-39 0.12195E-45 0.77746E-46 - 4 1 0.43485E-07 0.10000E+01 0.25813E+04 0.41582E-30 0.18220E-36 0.47847E-37 - 4 1 0.43485E-07 0.10000E+01 0.20817E+04 0.69929E-14 0.13076E-19 0.68378E-21 + 4 1 0.43485E-07 0.10000E+01 0.80645E+05 0.71141E-11 0.43986E-22 0.18240E-17 + 4 1 0.43485E-07 0.10000E+01 0.65036E+05 0.91148E-11 0.99912E-22 0.23377E-17 + 4 1 0.43485E-07 0.10000E+01 0.52449E+05 0.11508E-10 0.22227E-21 0.29530E-17 + 4 1 0.43485E-07 0.10000E+01 0.42297E+05 0.14364E-10 0.48161E-21 0.36888E-17 + 4 1 0.43485E-07 0.10000E+01 0.34111E+05 0.17750E-10 0.10125E-20 0.45638E-17 + 4 1 0.43485E-07 0.10000E+01 0.27509E+05 0.21722E-10 0.20708E-20 0.55947E-17 + 4 1 0.43485E-07 0.10000E+01 0.22184E+05 0.26316E-10 0.42158E-20 0.67926E-17 + 4 1 0.43485E-07 0.10000E+01 0.17891E+05 0.31549E-10 0.91452E-20 0.81616E-17 + 4 1 0.43485E-07 0.10000E+01 0.14428E+05 0.37454E-10 0.23555E-19 0.96998E-17 + 4 1 0.43485E-07 0.10000E+01 0.11635E+05 0.44187E-10 0.75836E-19 0.11411E-16 + 4 1 0.43485E-07 0.10000E+01 0.93834E+04 0.52264E-10 0.28550E-18 0.13335E-16 + 4 1 0.43485E-07 0.10000E+01 0.75673E+04 0.63072E-10 0.11484E-17 0.15607E-16 + 4 1 0.43485E-07 0.10000E+01 0.61026E+04 0.79908E-10 0.46980E-17 0.18558E-16 + 4 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11014E-09 0.19154E-16 0.22894E-16 + 4 1 0.43485E-07 0.10000E+01 0.39689E+04 0.16970E-09 0.77244E-16 0.30000E-16 + 4 1 0.43485E-07 0.10000E+01 0.32008E+04 0.29224E-09 0.30762E-15 0.42466E-16 + 4 1 0.43485E-07 0.10000E+01 0.25813E+04 0.54774E-09 0.12094E-14 0.65040E-16 + 4 1 0.43485E-07 0.10000E+01 0.20817E+04 0.10796E-08 0.46827E-14 0.10637E-15 4 1 0.43485E-07 0.10000E+01 0.16788E+04 0.21769E-08 0.17804E-13 0.18225E-15 4 1 0.43485E-07 0.10000E+01 0.13538E+04 0.44115E-08 0.66480E-13 0.32148E-15 4 1 0.43485E-07 0.10000E+01 0.10918E+04 0.88927E-08 0.24471E-12 0.57669E-15 @@ -19670,24 +19670,24 @@ VERSION 2.8.2 4 1 0.43485E-07 0.10000E+01 0.24221E+03 0.79881E-06 0.72902E-09 0.35353E-13 4 1 0.43485E-07 0.10000E+01 0.19533E+03 0.12554E-05 0.13849E-08 0.54870E-13 4 1 0.43485E-07 0.10000E+01 0.15752E+03 0.12554E-05 0.13849E-08 0.54870E-13 - 4 1 0.75878E-07 0.10000E+01 0.80645E+05 0.19293E-53 0.14399E-64 0.85056E-60 - 4 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16289E-52 0.22830E-63 0.71854E-59 - 4 1 0.75878E-07 0.10000E+01 0.52449E+05 0.13816E-51 0.30518E-62 0.60980E-58 - 4 1 0.75878E-07 0.10000E+01 0.42297E+05 0.10351E-50 0.41074E-61 0.45730E-57 - 4 1 0.75878E-07 0.10000E+01 0.34111E+05 0.74069E-50 0.55532E-60 0.32780E-56 - 4 1 0.75878E-07 0.10000E+01 0.27509E+05 0.52484E-49 0.73379E-59 0.23296E-55 - 4 1 0.75878E-07 0.10000E+01 0.22184E+05 0.36584E-48 0.93610E-58 0.16319E-54 - 4 1 0.75878E-07 0.10000E+01 0.17891E+05 0.24774E-47 0.11445E-56 0.11143E-53 - 4 1 0.75878E-07 0.10000E+01 0.14428E+05 0.16158E-46 0.13367E-55 0.73631E-53 - 4 1 0.75878E-07 0.10000E+01 0.11635E+05 0.10097E-45 0.14784E-54 0.46877E-52 - 4 1 0.75878E-07 0.10000E+01 0.93834E+04 0.60091E-45 0.15625E-53 0.28479E-51 - 4 1 0.75878E-07 0.10000E+01 0.75673E+04 0.34403E-44 0.18447E-52 0.16269E-50 - 4 1 0.75878E-07 0.10000E+01 0.61026E+04 0.21087E-43 0.32835E-51 0.90097E-50 - 4 1 0.75878E-07 0.10000E+01 0.49215E+04 0.17543E-42 0.79923E-50 0.58681E-49 - 4 1 0.75878E-07 0.10000E+01 0.39689E+04 0.20309E-41 0.20144E-48 0.56056E-48 - 4 1 0.75878E-07 0.10000E+01 0.32008E+04 0.82056E-39 0.15688E-45 0.21124E-45 - 4 1 0.75878E-07 0.10000E+01 0.25813E+04 0.53309E-30 0.22263E-36 0.12883E-36 - 4 1 0.75878E-07 0.10000E+01 0.20817E+04 0.84860E-14 0.14460E-19 0.17965E-20 + 4 1 0.75878E-07 0.10000E+01 0.80645E+05 0.13057E-10 0.80981E-22 0.57549E-17 + 4 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16732E-10 0.18433E-21 0.73767E-17 + 4 1 0.75878E-07 0.10000E+01 0.52449E+05 0.21132E-10 0.41141E-21 0.93204E-17 + 4 1 0.75878E-07 0.10000E+01 0.42297E+05 0.26387E-10 0.89556E-21 0.11647E-16 + 4 1 0.75878E-07 0.10000E+01 0.34111E+05 0.32628E-10 0.18928E-20 0.14417E-16 + 4 1 0.75878E-07 0.10000E+01 0.27509E+05 0.39965E-10 0.38794E-20 0.17686E-16 + 4 1 0.75878E-07 0.10000E+01 0.22184E+05 0.48472E-10 0.78065E-20 0.21495E-16 + 4 1 0.75878E-07 0.10000E+01 0.17891E+05 0.58177E-10 0.16183E-19 0.25862E-16 + 4 1 0.75878E-07 0.10000E+01 0.14428E+05 0.69101E-10 0.38115E-19 0.30780E-16 + 4 1 0.75878E-07 0.10000E+01 0.11635E+05 0.81389E-10 0.11095E-18 0.36251E-16 + 4 1 0.75878E-07 0.10000E+01 0.93834E+04 0.95626E-10 0.38789E-18 0.42362E-16 + 4 1 0.75878E-07 0.10000E+01 0.75673E+04 0.11349E-09 0.14840E-17 0.49443E-16 + 4 1 0.75878E-07 0.10000E+01 0.61026E+04 0.13903E-09 0.58282E-17 0.58347E-16 + 4 1 0.75878E-07 0.10000E+01 0.49215E+04 0.18113E-09 0.22875E-16 0.70893E-16 + 4 1 0.75878E-07 0.10000E+01 0.39689E+04 0.25844E-09 0.88979E-16 0.90584E-16 + 4 1 0.75878E-07 0.10000E+01 0.32008E+04 0.40904E-09 0.34290E-15 0.12377E-15 + 4 1 0.75878E-07 0.10000E+01 0.25813E+04 0.70961E-09 0.13105E-14 0.18156E-15 + 4 1 0.75878E-07 0.10000E+01 0.20817E+04 0.13130E-08 0.49585E-14 0.28319E-15 4 1 0.75878E-07 0.10000E+01 0.16788E+04 0.25209E-08 0.18518E-13 0.46195E-15 4 1 0.75878E-07 0.10000E+01 0.13538E+04 0.49208E-08 0.68214E-13 0.77574E-15 4 1 0.75878E-07 0.10000E+01 0.10918E+04 0.96387E-08 0.24856E-12 0.13259E-14 @@ -19700,24 +19700,24 @@ VERSION 2.8.2 4 1 0.75878E-07 0.10000E+01 0.24221E+03 0.80111E-06 0.72499E-09 0.64669E-13 4 1 0.75878E-07 0.10000E+01 0.19533E+03 0.12563E-05 0.13768E-08 0.99357E-13 4 1 0.75878E-07 0.10000E+01 0.15752E+03 0.12563E-05 0.13768E-08 0.99357E-13 - 4 1 0.13240E-06 0.10000E+01 0.80645E+05 0.35149E-53 0.26243E-64 0.26493E-59 - 4 1 0.13240E-06 0.10000E+01 0.65036E+05 0.29686E-52 0.41619E-63 0.22387E-58 - 4 1 0.13240E-06 0.10000E+01 0.52449E+05 0.25186E-51 0.55670E-62 0.19003E-57 - 4 1 0.13240E-06 0.10000E+01 0.42297E+05 0.18879E-50 0.75005E-61 0.14256E-56 - 4 1 0.13240E-06 0.10000E+01 0.34111E+05 0.13522E-49 0.10159E-59 0.10226E-55 - 4 1 0.13240E-06 0.10000E+01 0.27509E+05 0.95960E-49 0.13464E-58 0.72760E-55 - 4 1 0.13240E-06 0.10000E+01 0.22184E+05 0.67063E-48 0.17264E-57 0.51065E-54 - 4 1 0.13240E-06 0.10000E+01 0.17891E+05 0.45613E-47 0.21282E-56 0.34977E-53 - 4 1 0.13240E-06 0.10000E+01 0.14428E+05 0.29957E-46 0.25150E-55 0.23226E-52 - 4 1 0.13240E-06 0.10000E+01 0.11635E+05 0.18905E-45 0.28182E-54 0.14896E-51 - 4 1 0.13240E-06 0.10000E+01 0.93834E+04 0.11374E-44 0.29637E-53 0.91462E-51 - 4 1 0.13240E-06 0.10000E+01 0.75673E+04 0.64991E-44 0.32234E-52 0.52854E-50 - 4 1 0.13240E-06 0.10000E+01 0.61026E+04 0.37686E-43 0.49738E-51 0.29128E-49 - 4 1 0.13240E-06 0.10000E+01 0.49215E+04 0.27755E-42 0.11389E-49 0.17945E-48 - 4 1 0.13240E-06 0.10000E+01 0.39689E+04 0.29504E-41 0.28323E-48 0.15939E-47 - 4 1 0.13240E-06 0.10000E+01 0.32008E+04 0.11576E-38 0.21621E-45 0.58612E-45 - 4 1 0.13240E-06 0.10000E+01 0.25813E+04 0.73259E-30 0.29238E-36 0.35614E-36 - 4 1 0.13240E-06 0.10000E+01 0.20817E+04 0.11079E-13 0.16893E-19 0.49130E-20 + 4 1 0.13240E-06 0.10000E+01 0.80645E+05 0.23785E-10 0.14792E-21 0.17923E-16 + 4 1 0.13240E-06 0.10000E+01 0.65036E+05 0.30484E-10 0.33732E-21 0.22977E-16 + 4 1 0.13240E-06 0.10000E+01 0.52449E+05 0.38508E-10 0.75503E-21 0.29037E-16 + 4 1 0.13240E-06 0.10000E+01 0.42297E+05 0.48103E-10 0.16504E-20 0.36294E-16 + 4 1 0.13240E-06 0.10000E+01 0.34111E+05 0.59513E-10 0.35068E-20 0.44946E-16 + 4 1 0.13240E-06 0.10000E+01 0.27509E+05 0.72956E-10 0.72204E-20 0.55174E-16 + 4 1 0.13240E-06 0.10000E+01 0.22184E+05 0.88581E-10 0.14488E-19 0.67115E-16 + 4 1 0.13240E-06 0.10000E+01 0.17891E+05 0.10645E-09 0.29303E-19 0.80840E-16 + 4 1 0.13240E-06 0.10000E+01 0.14428E+05 0.12657E-09 0.64911E-19 0.96338E-16 + 4 1 0.13240E-06 0.10000E+01 0.11635E+05 0.14906E-09 0.17374E-18 0.11359E-15 + 4 1 0.13240E-06 0.10000E+01 0.93834E+04 0.17460E-09 0.56605E-18 0.13279E-15 + 4 1 0.13240E-06 0.10000E+01 0.75673E+04 0.20535E-09 0.20612E-17 0.15478E-15 + 4 1 0.13240E-06 0.10000E+01 0.61026E+04 0.24656E-09 0.77727E-17 0.18180E-15 + 4 1 0.13240E-06 0.10000E+01 0.49215E+04 0.30972E-09 0.29308E-16 0.21872E-15 + 4 1 0.13240E-06 0.10000E+01 0.39689E+04 0.41816E-09 0.10941E-15 0.27483E-15 + 4 1 0.13240E-06 0.10000E+01 0.32008E+04 0.61770E-09 0.40475E-15 0.36657E-15 + 4 1 0.13240E-06 0.10000E+01 0.25813E+04 0.99685E-09 0.14891E-14 0.52176E-15 + 4 1 0.13240E-06 0.10000E+01 0.20817E+04 0.17254E-08 0.54513E-14 0.78628E-15 4 1 0.13240E-06 0.10000E+01 0.16788E+04 0.31279E-08 0.19813E-13 0.12354E-14 4 1 0.13240E-06 0.10000E+01 0.13538E+04 0.58205E-08 0.71440E-13 0.19932E-14 4 1 0.13240E-06 0.10000E+01 0.10918E+04 0.10963E-07 0.25607E-12 0.32657E-14 @@ -19730,24 +19730,24 @@ VERSION 2.8.2 4 1 0.13240E-06 0.10000E+01 0.24221E+03 0.80796E-06 0.72072E-09 0.12224E-12 4 1 0.13240E-06 0.10000E+01 0.19533E+03 0.12624E-05 0.13681E-08 0.18497E-12 4 1 0.13240E-06 0.10000E+01 0.15752E+03 0.12624E-05 0.13681E-08 0.18497E-12 - 4 1 0.23103E-06 0.10000E+01 0.80645E+05 0.62184E-53 0.46434E-64 0.57270E-59 - 4 1 0.23103E-06 0.10000E+01 0.65036E+05 0.52524E-52 0.73646E-63 0.48397E-58 - 4 1 0.23103E-06 0.10000E+01 0.52449E+05 0.44567E-51 0.98531E-62 0.41084E-57 - 4 1 0.23103E-06 0.10000E+01 0.42297E+05 0.33413E-50 0.13280E-60 0.30827E-56 - 4 1 0.23103E-06 0.10000E+01 0.34111E+05 0.23939E-49 0.17998E-59 0.22118E-55 - 4 1 0.23103E-06 0.10000E+01 0.27509E+05 0.16998E-48 0.23878E-58 0.15742E-54 - 4 1 0.23103E-06 0.10000E+01 0.22184E+05 0.11890E-47 0.30673E-57 0.11055E-53 - 4 1 0.23103E-06 0.10000E+01 0.17891E+05 0.80993E-47 0.37918E-56 0.75799E-53 - 4 1 0.23103E-06 0.10000E+01 0.14428E+05 0.53319E-46 0.44995E-55 0.50413E-52 - 4 1 0.23103E-06 0.10000E+01 0.11635E+05 0.33767E-45 0.50678E-54 0.32409E-51 - 4 1 0.23103E-06 0.10000E+01 0.93834E+04 0.20402E-44 0.53377E-53 0.19968E-50 - 4 1 0.23103E-06 0.10000E+01 0.75673E+04 0.11677E-43 0.56856E-52 0.11585E-49 - 4 1 0.23103E-06 0.10000E+01 0.61026E+04 0.66804E-43 0.83475E-51 0.63832E-49 - 4 1 0.23103E-06 0.10000E+01 0.49215E+04 0.47306E-42 0.18618E-49 0.38697E-48 - 4 1 0.23103E-06 0.10000E+01 0.39689E+04 0.48639E-41 0.46084E-48 0.33532E-47 - 4 1 0.23103E-06 0.10000E+01 0.32008E+04 0.18868E-38 0.34985E-45 0.12217E-44 - 4 1 0.23103E-06 0.10000E+01 0.25813E+04 0.11844E-29 0.46547E-36 0.74197E-36 - 4 1 0.23103E-06 0.10000E+01 0.20817E+04 0.17609E-13 0.25667E-19 0.10221E-19 + 4 1 0.23103E-06 0.10000E+01 0.80645E+05 0.42077E-10 0.26193E-21 0.38743E-16 + 4 1 0.23103E-06 0.10000E+01 0.65036E+05 0.53931E-10 0.59769E-21 0.49670E-16 + 4 1 0.23103E-06 0.10000E+01 0.52449E+05 0.68132E-10 0.13392E-20 0.62773E-16 + 4 1 0.23103E-06 0.10000E+01 0.42297E+05 0.85118E-10 0.29316E-20 0.78469E-16 + 4 1 0.23103E-06 0.10000E+01 0.34111E+05 0.10533E-09 0.62413E-20 0.97187E-16 + 4 1 0.23103E-06 0.10000E+01 0.27509E+05 0.12916E-09 0.12876E-19 0.11933E-15 + 4 1 0.23103E-06 0.10000E+01 0.22184E+05 0.15688E-09 0.25841E-19 0.14520E-15 + 4 1 0.23103E-06 0.10000E+01 0.17891E+05 0.18862E-09 0.51958E-19 0.17495E-15 + 4 1 0.23103E-06 0.10000E+01 0.14428E+05 0.22437E-09 0.11308E-18 0.20859E-15 + 4 1 0.23103E-06 0.10000E+01 0.11635E+05 0.26429E-09 0.29454E-18 0.24605E-15 + 4 1 0.23103E-06 0.10000E+01 0.93834E+04 0.30939E-09 0.93601E-18 0.28770E-15 + 4 1 0.23103E-06 0.10000E+01 0.75673E+04 0.36304E-09 0.33483E-17 0.33522E-15 + 4 1 0.23103E-06 0.10000E+01 0.61026E+04 0.43359E-09 0.12444E-16 0.39324E-15 + 4 1 0.23103E-06 0.10000E+01 0.49215E+04 0.53915E-09 0.46232E-16 0.47178E-15 + 4 1 0.23103E-06 0.10000E+01 0.39689E+04 0.71618E-09 0.16983E-15 0.58999E-15 + 4 1 0.23103E-06 0.10000E+01 0.32008E+04 0.10352E-08 0.61769E-15 0.78153E-15 + 4 1 0.23103E-06 0.10000E+01 0.25813E+04 0.16300E-08 0.22346E-14 0.11027E-14 + 4 1 0.23103E-06 0.10000E+01 0.20817E+04 0.27527E-08 0.80544E-14 0.16451E-14 4 1 0.23103E-06 0.10000E+01 0.16788E+04 0.48777E-08 0.28888E-13 0.25561E-14 4 1 0.23103E-06 0.10000E+01 0.13538E+04 0.88944E-08 0.10303E-12 0.40733E-14 4 1 0.23103E-06 0.10000E+01 0.10918E+04 0.16460E-07 0.36612E-12 0.65838E-14 @@ -19760,24 +19760,24 @@ VERSION 2.8.2 4 1 0.23103E-06 0.10000E+01 0.24221E+03 0.11421E-05 0.10106E-08 0.22208E-12 4 1 0.23103E-06 0.10000E+01 0.19533E+03 0.17808E-05 0.19179E-08 0.33363E-12 4 1 0.23103E-06 0.10000E+01 0.15752E+03 0.17808E-05 0.19179E-08 0.33363E-12 - 4 1 0.40314E-06 0.10000E+01 0.80645E+05 0.10851E-52 0.81024E-64 0.99933E-59 - 4 1 0.40314E-06 0.10000E+01 0.65036E+05 0.91650E-52 0.12851E-62 0.84451E-58 - 4 1 0.40314E-06 0.10000E+01 0.52449E+05 0.77767E-51 0.17193E-61 0.71690E-57 - 4 1 0.40314E-06 0.10000E+01 0.42297E+05 0.58304E-50 0.23173E-60 0.53791E-56 - 4 1 0.40314E-06 0.10000E+01 0.34111E+05 0.41772E-49 0.31405E-59 0.38594E-55 - 4 1 0.40314E-06 0.10000E+01 0.27509E+05 0.29661E-48 0.41666E-58 0.27470E-54 - 4 1 0.40314E-06 0.10000E+01 0.22184E+05 0.20747E-47 0.53522E-57 0.19291E-53 - 4 1 0.40314E-06 0.10000E+01 0.17891E+05 0.14133E-46 0.66165E-56 0.13226E-52 - 4 1 0.40314E-06 0.10000E+01 0.14428E+05 0.93039E-46 0.78513E-55 0.87968E-52 - 4 1 0.40314E-06 0.10000E+01 0.11635E+05 0.58921E-45 0.88430E-54 0.56552E-51 - 4 1 0.40314E-06 0.10000E+01 0.93834E+04 0.35600E-44 0.93140E-53 0.34843E-50 - 4 1 0.40314E-06 0.10000E+01 0.75673E+04 0.20375E-43 0.99210E-52 0.20216E-49 - 4 1 0.40314E-06 0.10000E+01 0.61026E+04 0.11657E-42 0.14566E-50 0.11138E-48 - 4 1 0.40314E-06 0.10000E+01 0.49215E+04 0.82547E-42 0.32487E-49 0.67524E-48 - 4 1 0.40314E-06 0.10000E+01 0.39689E+04 0.84872E-41 0.80414E-48 0.58511E-47 - 4 1 0.40314E-06 0.10000E+01 0.32008E+04 0.32923E-38 0.61047E-45 0.21319E-44 - 4 1 0.40314E-06 0.10000E+01 0.25813E+04 0.20668E-29 0.81221E-36 0.12947E-35 - 4 1 0.40314E-06 0.10000E+01 0.20817E+04 0.30727E-13 0.44788E-19 0.17834E-19 + 4 1 0.40314E-06 0.10000E+01 0.80645E+05 0.73422E-10 0.45705E-21 0.67605E-16 + 4 1 0.40314E-06 0.10000E+01 0.65036E+05 0.94106E-10 0.10429E-20 0.86670E-16 + 4 1 0.40314E-06 0.10000E+01 0.52449E+05 0.11889E-09 0.23368E-20 0.10953E-15 + 4 1 0.40314E-06 0.10000E+01 0.42297E+05 0.14853E-09 0.51155E-20 0.13692E-15 + 4 1 0.40314E-06 0.10000E+01 0.34111E+05 0.18380E-09 0.10891E-19 0.16959E-15 + 4 1 0.40314E-06 0.10000E+01 0.27509E+05 0.22538E-09 0.22468E-19 0.20822E-15 + 4 1 0.40314E-06 0.10000E+01 0.22184E+05 0.27375E-09 0.45092E-19 0.25336E-15 + 4 1 0.40314E-06 0.10000E+01 0.17891E+05 0.32913E-09 0.90663E-19 0.30528E-15 + 4 1 0.40314E-06 0.10000E+01 0.14428E+05 0.39152E-09 0.19732E-18 0.36397E-15 + 4 1 0.40314E-06 0.10000E+01 0.11635E+05 0.46117E-09 0.51396E-18 0.42934E-15 + 4 1 0.40314E-06 0.10000E+01 0.93834E+04 0.53987E-09 0.16333E-17 0.50201E-15 + 4 1 0.40314E-06 0.10000E+01 0.75673E+04 0.63348E-09 0.58426E-17 0.58494E-15 + 4 1 0.40314E-06 0.10000E+01 0.61026E+04 0.75658E-09 0.21713E-16 0.68618E-15 + 4 1 0.40314E-06 0.10000E+01 0.49215E+04 0.94078E-09 0.80672E-16 0.82324E-15 + 4 1 0.40314E-06 0.10000E+01 0.39689E+04 0.12497E-08 0.29634E-15 0.10295E-14 + 4 1 0.40314E-06 0.10000E+01 0.32008E+04 0.18064E-08 0.10778E-14 0.13637E-14 + 4 1 0.40314E-06 0.10000E+01 0.25813E+04 0.28442E-08 0.38992E-14 0.19242E-14 + 4 1 0.40314E-06 0.10000E+01 0.20817E+04 0.48032E-08 0.14054E-13 0.28706E-14 4 1 0.40314E-06 0.10000E+01 0.16788E+04 0.85112E-08 0.50407E-13 0.44602E-14 4 1 0.40314E-06 0.10000E+01 0.13538E+04 0.15520E-07 0.17978E-12 0.71077E-14 4 1 0.40314E-06 0.10000E+01 0.10918E+04 0.28723E-07 0.63886E-12 0.11488E-13 @@ -19790,24 +19790,24 @@ VERSION 2.8.2 4 1 0.40314E-06 0.10000E+01 0.24221E+03 0.19928E-05 0.17635E-08 0.38751E-12 4 1 0.40314E-06 0.10000E+01 0.19533E+03 0.31074E-05 0.33466E-08 0.58216E-12 4 1 0.40314E-06 0.10000E+01 0.15752E+03 0.31074E-05 0.33466E-08 0.58216E-12 - 4 1 0.70346E-06 0.10000E+01 0.80645E+05 0.18934E-52 0.14138E-63 0.17438E-58 - 4 1 0.70346E-06 0.10000E+01 0.65036E+05 0.15992E-51 0.22424E-62 0.14736E-57 - 4 1 0.70346E-06 0.10000E+01 0.52449E+05 0.13570E-50 0.30001E-61 0.12509E-56 - 4 1 0.70346E-06 0.10000E+01 0.42297E+05 0.10174E-49 0.40436E-60 0.93861E-56 - 4 1 0.70346E-06 0.10000E+01 0.34111E+05 0.72889E-49 0.54800E-59 0.67344E-55 - 4 1 0.70346E-06 0.10000E+01 0.27509E+05 0.51756E-48 0.72704E-58 0.47933E-54 - 4 1 0.70346E-06 0.10000E+01 0.22184E+05 0.36203E-47 0.93392E-57 0.33662E-53 - 4 1 0.70346E-06 0.10000E+01 0.17891E+05 0.24661E-46 0.11545E-55 0.23079E-52 - 4 1 0.70346E-06 0.10000E+01 0.14428E+05 0.16235E-45 0.13700E-54 0.15350E-51 - 4 1 0.70346E-06 0.10000E+01 0.11635E+05 0.10281E-44 0.15430E-53 0.98681E-51 - 4 1 0.70346E-06 0.10000E+01 0.93834E+04 0.62119E-44 0.16252E-52 0.60798E-50 - 4 1 0.70346E-06 0.10000E+01 0.75673E+04 0.35554E-43 0.17312E-51 0.35275E-49 - 4 1 0.70346E-06 0.10000E+01 0.61026E+04 0.20340E-42 0.25417E-50 0.19436E-48 - 4 1 0.70346E-06 0.10000E+01 0.49215E+04 0.14404E-41 0.56687E-49 0.11783E-47 - 4 1 0.70346E-06 0.10000E+01 0.39689E+04 0.14810E-40 0.14032E-47 0.10210E-46 - 4 1 0.70346E-06 0.10000E+01 0.32008E+04 0.57449E-38 0.10652E-44 0.37200E-44 - 4 1 0.70346E-06 0.10000E+01 0.25813E+04 0.36064E-29 0.14173E-35 0.22592E-35 - 4 1 0.70346E-06 0.10000E+01 0.20817E+04 0.53617E-13 0.78152E-19 0.31120E-19 + 4 1 0.70346E-06 0.10000E+01 0.80645E+05 0.12812E-09 0.79753E-21 0.11797E-15 + 4 1 0.70346E-06 0.10000E+01 0.65036E+05 0.16421E-09 0.18199E-20 0.15123E-15 + 4 1 0.70346E-06 0.10000E+01 0.52449E+05 0.20745E-09 0.40775E-20 0.19113E-15 + 4 1 0.70346E-06 0.10000E+01 0.42297E+05 0.25917E-09 0.89262E-20 0.23892E-15 + 4 1 0.70346E-06 0.10000E+01 0.34111E+05 0.32071E-09 0.19004E-19 0.29592E-15 + 4 1 0.70346E-06 0.10000E+01 0.27509E+05 0.39327E-09 0.39205E-19 0.36333E-15 + 4 1 0.70346E-06 0.10000E+01 0.22184E+05 0.47768E-09 0.78682E-19 0.44209E-15 + 4 1 0.70346E-06 0.10000E+01 0.17891E+05 0.57432E-09 0.15820E-18 0.53270E-15 + 4 1 0.70346E-06 0.10000E+01 0.14428E+05 0.68317E-09 0.34432E-18 0.63510E-15 + 4 1 0.70346E-06 0.10000E+01 0.11635E+05 0.80471E-09 0.89683E-18 0.74917E-15 + 4 1 0.70346E-06 0.10000E+01 0.93834E+04 0.94204E-09 0.28500E-17 0.87598E-15 + 4 1 0.70346E-06 0.10000E+01 0.75673E+04 0.11054E-08 0.10195E-16 0.10207E-14 + 4 1 0.70346E-06 0.10000E+01 0.61026E+04 0.13202E-08 0.37889E-16 0.11973E-14 + 4 1 0.70346E-06 0.10000E+01 0.49215E+04 0.16416E-08 0.14077E-15 0.14365E-14 + 4 1 0.70346E-06 0.10000E+01 0.39689E+04 0.21806E-08 0.51710E-15 0.17964E-14 + 4 1 0.70346E-06 0.10000E+01 0.32008E+04 0.31520E-08 0.18808E-14 0.23796E-14 + 4 1 0.70346E-06 0.10000E+01 0.25813E+04 0.49630E-08 0.68039E-14 0.33576E-14 + 4 1 0.70346E-06 0.10000E+01 0.20817E+04 0.83813E-08 0.24524E-13 0.50090E-14 4 1 0.70346E-06 0.10000E+01 0.16788E+04 0.14852E-07 0.87958E-13 0.77828E-14 4 1 0.70346E-06 0.10000E+01 0.13538E+04 0.27082E-07 0.31370E-12 0.12403E-13 4 1 0.70346E-06 0.10000E+01 0.10918E+04 0.50119E-07 0.11148E-11 0.20046E-13 @@ -19820,24 +19820,24 @@ VERSION 2.8.2 4 1 0.70346E-06 0.10000E+01 0.24221E+03 0.34773E-05 0.30771E-08 0.67618E-12 4 1 0.70346E-06 0.10000E+01 0.19533E+03 0.54222E-05 0.58395E-08 0.10158E-11 4 1 0.70346E-06 0.10000E+01 0.15752E+03 0.54222E-05 0.58395E-08 0.10158E-11 - 4 1 0.12275E-05 0.10000E+01 0.80645E+05 0.33038E-52 0.24670E-63 0.30428E-58 - 4 1 0.12275E-05 0.10000E+01 0.65036E+05 0.27906E-51 0.39128E-62 0.25714E-57 - 4 1 0.12275E-05 0.10000E+01 0.52449E+05 0.23679E-50 0.52350E-61 0.21828E-56 - 4 1 0.12275E-05 0.10000E+01 0.42297E+05 0.17752E-49 0.70559E-60 0.16378E-55 - 4 1 0.12275E-05 0.10000E+01 0.34111E+05 0.12719E-48 0.95622E-59 0.11751E-54 - 4 1 0.12275E-05 0.10000E+01 0.27509E+05 0.90311E-48 0.12686E-57 0.83640E-54 - 4 1 0.12275E-05 0.10000E+01 0.22184E+05 0.63172E-47 0.16296E-56 0.58737E-53 - 4 1 0.12275E-05 0.10000E+01 0.17891E+05 0.43032E-46 0.20146E-55 0.40272E-52 - 4 1 0.12275E-05 0.10000E+01 0.14428E+05 0.28329E-45 0.23906E-54 0.26785E-51 - 4 1 0.12275E-05 0.10000E+01 0.11635E+05 0.17940E-44 0.26925E-53 0.17219E-50 - 4 1 0.12275E-05 0.10000E+01 0.93834E+04 0.10839E-43 0.28359E-52 0.10609E-49 - 4 1 0.12275E-05 0.10000E+01 0.75673E+04 0.62039E-43 0.30208E-51 0.61553E-49 - 4 1 0.12275E-05 0.10000E+01 0.61026E+04 0.35493E-42 0.44350E-50 0.33914E-48 - 4 1 0.12275E-05 0.10000E+01 0.49215E+04 0.25134E-41 0.98915E-49 0.20560E-47 - 4 1 0.12275E-05 0.10000E+01 0.39689E+04 0.25842E-40 0.24485E-47 0.17815E-46 - 4 1 0.12275E-05 0.10000E+01 0.32008E+04 0.10025E-37 0.18588E-44 0.64912E-44 - 4 1 0.12275E-05 0.10000E+01 0.25813E+04 0.62929E-29 0.24730E-35 0.39421E-35 - 4 1 0.12275E-05 0.10000E+01 0.20817E+04 0.93558E-13 0.13637E-18 0.54302E-19 + 4 1 0.12275E-05 0.10000E+01 0.80645E+05 0.22356E-09 0.13916E-20 0.20584E-15 + 4 1 0.12275E-05 0.10000E+01 0.65036E+05 0.28653E-09 0.31755E-20 0.26390E-15 + 4 1 0.12275E-05 0.10000E+01 0.52449E+05 0.36199E-09 0.71150E-20 0.33351E-15 + 4 1 0.12275E-05 0.10000E+01 0.42297E+05 0.45224E-09 0.15576E-19 0.41690E-15 + 4 1 0.12275E-05 0.10000E+01 0.34111E+05 0.55962E-09 0.33160E-19 0.51636E-15 + 4 1 0.12275E-05 0.10000E+01 0.27509E+05 0.68623E-09 0.68410E-19 0.63399E-15 + 4 1 0.12275E-05 0.10000E+01 0.22184E+05 0.83353E-09 0.13730E-18 0.77143E-15 + 4 1 0.12275E-05 0.10000E+01 0.17891E+05 0.10022E-08 0.27605E-18 0.92953E-15 + 4 1 0.12275E-05 0.10000E+01 0.14428E+05 0.11921E-08 0.60081E-18 0.11082E-14 + 4 1 0.12275E-05 0.10000E+01 0.11635E+05 0.14042E-08 0.15649E-17 0.13073E-14 + 4 1 0.12275E-05 0.10000E+01 0.93834E+04 0.16438E-08 0.49730E-17 0.15285E-14 + 4 1 0.12275E-05 0.10000E+01 0.75673E+04 0.19288E-08 0.17790E-16 0.17810E-14 + 4 1 0.12275E-05 0.10000E+01 0.61026E+04 0.23036E-08 0.66113E-16 0.20893E-14 + 4 1 0.12275E-05 0.10000E+01 0.49215E+04 0.28645E-08 0.24563E-15 0.25066E-14 + 4 1 0.12275E-05 0.10000E+01 0.39689E+04 0.38051E-08 0.90231E-15 0.31346E-14 + 4 1 0.12275E-05 0.10000E+01 0.32008E+04 0.55001E-08 0.32818E-14 0.41523E-14 + 4 1 0.12275E-05 0.10000E+01 0.25813E+04 0.86602E-08 0.11872E-13 0.58588E-14 + 4 1 0.12275E-05 0.10000E+01 0.20817E+04 0.14625E-07 0.42793E-13 0.87404E-14 4 1 0.12275E-05 0.10000E+01 0.16788E+04 0.25915E-07 0.15348E-12 0.13581E-13 4 1 0.12275E-05 0.10000E+01 0.13538E+04 0.47256E-07 0.54739E-12 0.21642E-13 4 1 0.12275E-05 0.10000E+01 0.10918E+04 0.87455E-07 0.19452E-11 0.34980E-13 @@ -19850,24 +19850,24 @@ VERSION 2.8.2 4 1 0.12275E-05 0.10000E+01 0.24221E+03 0.60678E-05 0.53694E-08 0.11799E-11 4 1 0.12275E-05 0.10000E+01 0.19533E+03 0.94614E-05 0.10190E-07 0.17726E-11 4 1 0.12275E-05 0.10000E+01 0.15752E+03 0.94614E-05 0.10190E-07 0.17726E-11 - 4 1 0.21419E-05 0.10000E+01 0.80645E+05 0.57650E-52 0.43048E-63 0.53095E-58 - 4 1 0.21419E-05 0.10000E+01 0.65036E+05 0.48694E-51 0.68276E-62 0.44869E-57 - 4 1 0.21419E-05 0.10000E+01 0.52449E+05 0.41318E-50 0.91347E-61 0.38089E-56 - 4 1 0.21419E-05 0.10000E+01 0.42297E+05 0.30977E-49 0.12312E-59 0.28579E-55 - 4 1 0.21419E-05 0.10000E+01 0.34111E+05 0.22193E-48 0.16686E-58 0.20505E-54 - 4 1 0.21419E-05 0.10000E+01 0.27509E+05 0.15759E-47 0.22137E-57 0.14595E-53 - 4 1 0.21419E-05 0.10000E+01 0.22184E+05 0.11023E-46 0.28436E-56 0.10249E-52 - 4 1 0.21419E-05 0.10000E+01 0.17891E+05 0.75088E-46 0.35154E-55 0.70273E-52 - 4 1 0.21419E-05 0.10000E+01 0.14428E+05 0.49432E-45 0.41714E-54 0.46738E-51 - 4 1 0.21419E-05 0.10000E+01 0.11635E+05 0.31305E-44 0.46983E-53 0.30046E-50 - 4 1 0.21419E-05 0.10000E+01 0.93834E+04 0.18914E-43 0.49485E-52 0.18512E-49 - 4 1 0.21419E-05 0.10000E+01 0.75673E+04 0.10825E-42 0.52710E-51 0.10741E-48 - 4 1 0.21419E-05 0.10000E+01 0.61026E+04 0.61933E-42 0.77389E-50 0.59178E-48 - 4 1 0.21419E-05 0.10000E+01 0.49215E+04 0.43857E-41 0.17260E-48 0.35876E-47 - 4 1 0.21419E-05 0.10000E+01 0.39689E+04 0.45093E-40 0.42724E-47 0.31087E-46 - 4 1 0.21419E-05 0.10000E+01 0.32008E+04 0.17492E-37 0.32434E-44 0.11327E-43 - 4 1 0.21419E-05 0.10000E+01 0.25813E+04 0.10981E-28 0.43153E-35 0.68787E-35 - 4 1 0.21419E-05 0.10000E+01 0.20817E+04 0.16325E-12 0.23796E-18 0.94754E-19 + 4 1 0.21419E-05 0.10000E+01 0.80645E+05 0.39009E-09 0.24283E-20 0.35918E-15 + 4 1 0.21419E-05 0.10000E+01 0.65036E+05 0.49998E-09 0.55411E-20 0.46048E-15 + 4 1 0.21419E-05 0.10000E+01 0.52449E+05 0.63164E-09 0.12415E-19 0.58196E-15 + 4 1 0.21419E-05 0.10000E+01 0.42297E+05 0.78912E-09 0.27179E-19 0.72747E-15 + 4 1 0.21419E-05 0.10000E+01 0.34111E+05 0.97651E-09 0.57863E-19 0.90101E-15 + 4 1 0.21419E-05 0.10000E+01 0.27509E+05 0.11974E-08 0.11937E-18 0.11063E-14 + 4 1 0.21419E-05 0.10000E+01 0.22184E+05 0.14545E-08 0.23957E-18 0.13461E-14 + 4 1 0.21419E-05 0.10000E+01 0.17891E+05 0.17487E-08 0.48169E-18 0.16220E-14 + 4 1 0.21419E-05 0.10000E+01 0.14428E+05 0.20801E-08 0.10484E-17 0.19338E-14 + 4 1 0.21419E-05 0.10000E+01 0.11635E+05 0.24502E-08 0.27307E-17 0.22811E-14 + 4 1 0.21419E-05 0.10000E+01 0.93834E+04 0.28683E-08 0.86777E-17 0.26672E-14 + 4 1 0.21419E-05 0.10000E+01 0.75673E+04 0.33657E-08 0.31042E-16 0.31078E-14 + 4 1 0.21419E-05 0.10000E+01 0.61026E+04 0.40197E-08 0.11536E-15 0.36457E-14 + 4 1 0.21419E-05 0.10000E+01 0.49215E+04 0.49984E-08 0.42861E-15 0.43739E-14 + 4 1 0.21419E-05 0.10000E+01 0.39689E+04 0.66397E-08 0.15745E-14 0.54697E-14 + 4 1 0.21419E-05 0.10000E+01 0.32008E+04 0.95974E-08 0.57266E-14 0.72455E-14 + 4 1 0.21419E-05 0.10000E+01 0.25813E+04 0.15111E-07 0.20717E-13 0.10223E-13 + 4 1 0.21419E-05 0.10000E+01 0.20817E+04 0.25520E-07 0.74671E-13 0.15252E-13 4 1 0.21419E-05 0.10000E+01 0.16788E+04 0.45220E-07 0.26781E-12 0.23697E-13 4 1 0.21419E-05 0.10000E+01 0.13538E+04 0.82459E-07 0.95516E-12 0.37764E-13 4 1 0.21419E-05 0.10000E+01 0.10918E+04 0.15260E-06 0.33943E-11 0.61038E-13 @@ -19880,24 +19880,24 @@ VERSION 2.8.2 4 1 0.21419E-05 0.10000E+01 0.24221E+03 0.10588E-04 0.93693E-08 0.20589E-11 4 1 0.21419E-05 0.10000E+01 0.19533E+03 0.16510E-04 0.17780E-07 0.30930E-11 4 1 0.21419E-05 0.10000E+01 0.15752E+03 0.16510E-04 0.17780E-07 0.30930E-11 - 4 1 0.37375E-05 0.10000E+01 0.80645E+05 0.10060E-51 0.75117E-63 0.92647E-58 - 4 1 0.37375E-05 0.10000E+01 0.65036E+05 0.84968E-51 0.11914E-61 0.78293E-57 - 4 1 0.37375E-05 0.10000E+01 0.52449E+05 0.72097E-50 0.15940E-60 0.66463E-56 - 4 1 0.37375E-05 0.10000E+01 0.42297E+05 0.54053E-49 0.21484E-59 0.49869E-55 - 4 1 0.37375E-05 0.10000E+01 0.34111E+05 0.38726E-48 0.29115E-58 0.35780E-54 - 4 1 0.37375E-05 0.10000E+01 0.27509E+05 0.27498E-47 0.38628E-57 0.25467E-53 - 4 1 0.37375E-05 0.10000E+01 0.22184E+05 0.19235E-46 0.49619E-56 0.17884E-52 - 4 1 0.37375E-05 0.10000E+01 0.17891E+05 0.13102E-45 0.61341E-55 0.12262E-51 - 4 1 0.37375E-05 0.10000E+01 0.14428E+05 0.86256E-45 0.72789E-54 0.81554E-51 - 4 1 0.37375E-05 0.10000E+01 0.11635E+05 0.54625E-44 0.81982E-53 0.52429E-50 - 4 1 0.37375E-05 0.10000E+01 0.93834E+04 0.33004E-43 0.86349E-52 0.32302E-49 - 4 1 0.37375E-05 0.10000E+01 0.75673E+04 0.18890E-42 0.91977E-51 0.18742E-48 - 4 1 0.37375E-05 0.10000E+01 0.61026E+04 0.10807E-41 0.13504E-49 0.10326E-47 - 4 1 0.37375E-05 0.10000E+01 0.49215E+04 0.76528E-41 0.30118E-48 0.62601E-47 - 4 1 0.37375E-05 0.10000E+01 0.39689E+04 0.78684E-40 0.74551E-47 0.54244E-46 - 4 1 0.37375E-05 0.10000E+01 0.32008E+04 0.30523E-37 0.56596E-44 0.19764E-43 - 4 1 0.37375E-05 0.10000E+01 0.25813E+04 0.19161E-28 0.75300E-35 0.12003E-34 - 4 1 0.37375E-05 0.10000E+01 0.20817E+04 0.28487E-12 0.41522E-18 0.16534E-18 + 4 1 0.37375E-05 0.10000E+01 0.80645E+05 0.68069E-09 0.42373E-20 0.62676E-15 + 4 1 0.37375E-05 0.10000E+01 0.65036E+05 0.87244E-09 0.96689E-20 0.80351E-15 + 4 1 0.37375E-05 0.10000E+01 0.52449E+05 0.11022E-08 0.21664E-19 0.10155E-14 + 4 1 0.37375E-05 0.10000E+01 0.42297E+05 0.13770E-08 0.47425E-19 0.12694E-14 + 4 1 0.37375E-05 0.10000E+01 0.34111E+05 0.17040E-08 0.10097E-18 0.15722E-14 + 4 1 0.37375E-05 0.10000E+01 0.27509E+05 0.20894E-08 0.20830E-18 0.19304E-14 + 4 1 0.37375E-05 0.10000E+01 0.22184E+05 0.25379E-08 0.41804E-18 0.23489E-14 + 4 1 0.37375E-05 0.10000E+01 0.17891E+05 0.30514E-08 0.84052E-18 0.28302E-14 + 4 1 0.37375E-05 0.10000E+01 0.14428E+05 0.36297E-08 0.18294E-17 0.33743E-14 + 4 1 0.37375E-05 0.10000E+01 0.11635E+05 0.42754E-08 0.47649E-17 0.39804E-14 + 4 1 0.37375E-05 0.10000E+01 0.93834E+04 0.50051E-08 0.15142E-16 0.46541E-14 + 4 1 0.37375E-05 0.10000E+01 0.75673E+04 0.58729E-08 0.54166E-16 0.54229E-14 + 4 1 0.37375E-05 0.10000E+01 0.61026E+04 0.70142E-08 0.20130E-15 0.63615E-14 + 4 1 0.37375E-05 0.10000E+01 0.49215E+04 0.87218E-08 0.74790E-15 0.76321E-14 + 4 1 0.37375E-05 0.10000E+01 0.39689E+04 0.11586E-07 0.27474E-14 0.95444E-14 + 4 1 0.37375E-05 0.10000E+01 0.32008E+04 0.16747E-07 0.99925E-14 0.12643E-13 + 4 1 0.37375E-05 0.10000E+01 0.25813E+04 0.26369E-07 0.36149E-13 0.17839E-13 + 4 1 0.37375E-05 0.10000E+01 0.20817E+04 0.44530E-07 0.13030E-12 0.26613E-13 4 1 0.37375E-05 0.10000E+01 0.16788E+04 0.78907E-07 0.46732E-12 0.41350E-13 4 1 0.37375E-05 0.10000E+01 0.13538E+04 0.14389E-06 0.16667E-11 0.65895E-13 4 1 0.37375E-05 0.10000E+01 0.10918E+04 0.26628E-06 0.59228E-11 0.10651E-12 @@ -19910,24 +19910,24 @@ VERSION 2.8.2 4 1 0.37375E-05 0.10000E+01 0.24221E+03 0.18475E-04 0.16349E-07 0.35926E-11 4 1 0.37375E-05 0.10000E+01 0.19533E+03 0.28808E-04 0.31026E-07 0.53971E-11 4 1 0.37375E-05 0.10000E+01 0.15752E+03 0.28808E-04 0.31026E-07 0.53971E-11 - 4 1 0.65217E-05 0.10000E+01 0.80645E+05 0.17553E-51 0.13107E-62 0.16166E-57 - 4 1 0.65217E-05 0.10000E+01 0.65036E+05 0.14826E-50 0.20789E-61 0.13662E-56 - 4 1 0.65217E-05 0.10000E+01 0.52449E+05 0.12581E-49 0.27814E-60 0.11597E-55 - 4 1 0.65217E-05 0.10000E+01 0.42297E+05 0.94319E-49 0.37488E-59 0.87018E-55 - 4 1 0.65217E-05 0.10000E+01 0.34111E+05 0.67575E-48 0.50804E-58 0.62434E-54 - 4 1 0.65217E-05 0.10000E+01 0.27509E+05 0.47982E-47 0.67403E-57 0.44438E-53 - 4 1 0.65217E-05 0.10000E+01 0.22184E+05 0.33563E-46 0.86583E-56 0.31207E-52 - 4 1 0.65217E-05 0.10000E+01 0.17891E+05 0.22863E-45 0.10704E-54 0.21397E-51 - 4 1 0.65217E-05 0.10000E+01 0.14428E+05 0.15051E-44 0.12701E-53 0.14231E-50 - 4 1 0.65217E-05 0.10000E+01 0.11635E+05 0.95317E-44 0.14305E-52 0.91486E-50 - 4 1 0.65217E-05 0.10000E+01 0.93834E+04 0.57590E-43 0.15067E-51 0.56365E-49 - 4 1 0.65217E-05 0.10000E+01 0.75673E+04 0.32961E-42 0.16049E-50 0.32703E-48 - 4 1 0.65217E-05 0.10000E+01 0.61026E+04 0.18857E-41 0.23563E-49 0.18018E-47 - 4 1 0.65217E-05 0.10000E+01 0.49215E+04 0.13354E-40 0.52554E-48 0.10924E-46 - 4 1 0.65217E-05 0.10000E+01 0.39689E+04 0.13730E-39 0.13009E-46 0.94653E-46 - 4 1 0.65217E-05 0.10000E+01 0.32008E+04 0.53260E-37 0.98757E-44 0.34488E-43 - 4 1 0.65217E-05 0.10000E+01 0.25813E+04 0.33434E-28 0.13139E-34 0.20944E-34 - 4 1 0.65217E-05 0.10000E+01 0.20817E+04 0.49708E-12 0.72454E-18 0.28851E-18 + 4 1 0.65217E-05 0.10000E+01 0.80645E+05 0.11878E-08 0.73938E-20 0.10937E-14 + 4 1 0.65217E-05 0.10000E+01 0.65036E+05 0.15224E-08 0.16872E-19 0.14021E-14 + 4 1 0.65217E-05 0.10000E+01 0.52449E+05 0.19232E-08 0.37802E-19 0.17720E-14 + 4 1 0.65217E-05 0.10000E+01 0.42297E+05 0.24027E-08 0.82754E-19 0.22150E-14 + 4 1 0.65217E-05 0.10000E+01 0.34111E+05 0.29733E-08 0.17618E-18 0.27434E-14 + 4 1 0.65217E-05 0.10000E+01 0.27509E+05 0.36459E-08 0.36346E-18 0.33684E-14 + 4 1 0.65217E-05 0.10000E+01 0.22184E+05 0.44285E-08 0.72945E-18 0.40986E-14 + 4 1 0.65217E-05 0.10000E+01 0.17891E+05 0.53245E-08 0.14667E-17 0.49386E-14 + 4 1 0.65217E-05 0.10000E+01 0.14428E+05 0.63336E-08 0.31921E-17 0.58880E-14 + 4 1 0.65217E-05 0.10000E+01 0.11635E+05 0.74604E-08 0.83144E-17 0.69455E-14 + 4 1 0.65217E-05 0.10000E+01 0.93834E+04 0.87335E-08 0.26422E-16 0.81211E-14 + 4 1 0.65217E-05 0.10000E+01 0.75673E+04 0.10248E-07 0.94516E-16 0.94626E-14 + 4 1 0.65217E-05 0.10000E+01 0.61026E+04 0.12239E-07 0.35126E-15 0.11100E-13 + 4 1 0.65217E-05 0.10000E+01 0.49215E+04 0.15219E-07 0.13050E-14 0.13318E-13 + 4 1 0.65217E-05 0.10000E+01 0.39689E+04 0.20217E-07 0.47940E-14 0.16654E-13 + 4 1 0.65217E-05 0.10000E+01 0.32008E+04 0.29222E-07 0.17436E-13 0.22061E-13 + 4 1 0.65217E-05 0.10000E+01 0.25813E+04 0.46012E-07 0.63078E-13 0.31128E-13 + 4 1 0.65217E-05 0.10000E+01 0.20817E+04 0.77702E-07 0.22736E-12 0.46438E-13 4 1 0.65217E-05 0.10000E+01 0.16788E+04 0.13769E-06 0.81545E-12 0.72153E-13 4 1 0.65217E-05 0.10000E+01 0.13538E+04 0.25107E-06 0.29083E-11 0.11498E-12 4 1 0.65217E-05 0.10000E+01 0.10918E+04 0.46465E-06 0.10335E-10 0.18585E-12 @@ -19940,24 +19940,24 @@ VERSION 2.8.2 4 1 0.65217E-05 0.10000E+01 0.24221E+03 0.32238E-04 0.28528E-07 0.62688E-11 4 1 0.65217E-05 0.10000E+01 0.19533E+03 0.50269E-04 0.54138E-07 0.94177E-11 4 1 0.65217E-05 0.10000E+01 0.15752E+03 0.50269E-04 0.54138E-07 0.94177E-11 - 4 1 0.11380E-04 0.10000E+01 0.80645E+05 0.30630E-51 0.22872E-62 0.28209E-57 - 4 1 0.11380E-04 0.10000E+01 0.65036E+05 0.25871E-50 0.36275E-61 0.23839E-56 - 4 1 0.11380E-04 0.10000E+01 0.52449E+05 0.21952E-49 0.48533E-60 0.20237E-55 - 4 1 0.11380E-04 0.10000E+01 0.42297E+05 0.16458E-48 0.65414E-59 0.15184E-54 - 4 1 0.11380E-04 0.10000E+01 0.34111E+05 0.11791E-47 0.88650E-58 0.10894E-53 - 4 1 0.11380E-04 0.10000E+01 0.27509E+05 0.83726E-47 0.11761E-56 0.77542E-53 - 4 1 0.11380E-04 0.10000E+01 0.22184E+05 0.58566E-46 0.15108E-55 0.54455E-52 - 4 1 0.11380E-04 0.10000E+01 0.17891E+05 0.39894E-45 0.18677E-54 0.37336E-51 - 4 1 0.11380E-04 0.10000E+01 0.14428E+05 0.26263E-44 0.22163E-53 0.24832E-50 - 4 1 0.11380E-04 0.10000E+01 0.11635E+05 0.16632E-43 0.24962E-52 0.15964E-49 - 4 1 0.11380E-04 0.10000E+01 0.93834E+04 0.10049E-42 0.26292E-51 0.98354E-49 - 4 1 0.11380E-04 0.10000E+01 0.75673E+04 0.57516E-42 0.28005E-50 0.57065E-48 - 4 1 0.11380E-04 0.10000E+01 0.61026E+04 0.32905E-41 0.41117E-49 0.31441E-47 - 4 1 0.11380E-04 0.10000E+01 0.49215E+04 0.23301E-40 0.91703E-48 0.19061E-46 - 4 1 0.11380E-04 0.10000E+01 0.39689E+04 0.23958E-39 0.22699E-46 0.16516E-45 - 4 1 0.11380E-04 0.10000E+01 0.32008E+04 0.92936E-37 0.17232E-43 0.60179E-43 - 4 1 0.11380E-04 0.10000E+01 0.25813E+04 0.58341E-28 0.22927E-34 0.36547E-34 - 4 1 0.11380E-04 0.10000E+01 0.20817E+04 0.86737E-12 0.12643E-17 0.50343E-18 + 4 1 0.11380E-04 0.10000E+01 0.80645E+05 0.20726E-08 0.12902E-19 0.19084E-14 + 4 1 0.11380E-04 0.10000E+01 0.65036E+05 0.26564E-08 0.29440E-19 0.24465E-14 + 4 1 0.11380E-04 0.10000E+01 0.52449E+05 0.33559E-08 0.65962E-19 0.30920E-14 + 4 1 0.11380E-04 0.10000E+01 0.42297E+05 0.41926E-08 0.14440E-18 0.38651E-14 + 4 1 0.11380E-04 0.10000E+01 0.34111E+05 0.51882E-08 0.30742E-18 0.47871E-14 + 4 1 0.11380E-04 0.10000E+01 0.27509E+05 0.63620E-08 0.63422E-18 0.58776E-14 + 4 1 0.11380E-04 0.10000E+01 0.22184E+05 0.77275E-08 0.12729E-17 0.71518E-14 + 4 1 0.11380E-04 0.10000E+01 0.17891E+05 0.92909E-08 0.25592E-17 0.86175E-14 + 4 1 0.11380E-04 0.10000E+01 0.14428E+05 0.11052E-07 0.55700E-17 0.10274E-13 + 4 1 0.11380E-04 0.10000E+01 0.11635E+05 0.13018E-07 0.14508E-16 0.12119E-13 + 4 1 0.11380E-04 0.10000E+01 0.93834E+04 0.15240E-07 0.46105E-16 0.14171E-13 + 4 1 0.11380E-04 0.10000E+01 0.75673E+04 0.17882E-07 0.16492E-15 0.16512E-13 + 4 1 0.11380E-04 0.10000E+01 0.61026E+04 0.21357E-07 0.61293E-15 0.19370E-13 + 4 1 0.11380E-04 0.10000E+01 0.49215E+04 0.26556E-07 0.22772E-14 0.23238E-13 + 4 1 0.11380E-04 0.10000E+01 0.39689E+04 0.35277E-07 0.83652E-14 0.29061E-13 + 4 1 0.11380E-04 0.10000E+01 0.32008E+04 0.50991E-07 0.30425E-13 0.38495E-13 + 4 1 0.11380E-04 0.10000E+01 0.25813E+04 0.80288E-07 0.11007E-12 0.54316E-13 + 4 1 0.11380E-04 0.10000E+01 0.20817E+04 0.13559E-06 0.39673E-12 0.81032E-13 4 1 0.11380E-04 0.10000E+01 0.16788E+04 0.24026E-06 0.14229E-11 0.12590E-12 4 1 0.11380E-04 0.10000E+01 0.13538E+04 0.43811E-06 0.50748E-11 0.20064E-12 4 1 0.11380E-04 0.10000E+01 0.10918E+04 0.81078E-06 0.18034E-10 0.32429E-12 @@ -19970,24 +19970,24 @@ VERSION 2.8.2 4 1 0.11380E-04 0.10000E+01 0.24221E+03 0.56254E-04 0.49779E-07 0.10939E-10 4 1 0.11380E-04 0.10000E+01 0.19533E+03 0.87716E-04 0.94467E-07 0.16433E-10 4 1 0.11380E-04 0.10000E+01 0.15752E+03 0.87716E-04 0.94467E-07 0.16433E-10 - 4 1 0.19857E-04 0.10000E+01 0.80645E+05 0.53447E-51 0.39910E-62 0.49223E-57 - 4 1 0.19857E-04 0.10000E+01 0.65036E+05 0.45144E-50 0.63298E-61 0.41597E-56 - 4 1 0.19857E-04 0.10000E+01 0.52449E+05 0.38305E-49 0.84687E-60 0.35312E-55 - 4 1 0.19857E-04 0.10000E+01 0.42297E+05 0.28718E-48 0.11414E-58 0.26495E-54 - 4 1 0.19857E-04 0.10000E+01 0.34111E+05 0.20575E-47 0.15469E-57 0.19010E-53 - 4 1 0.19857E-04 0.10000E+01 0.27509E+05 0.14610E-46 0.20523E-56 0.13531E-52 - 4 1 0.19857E-04 0.10000E+01 0.22184E+05 0.10219E-45 0.26363E-55 0.95020E-52 - 4 1 0.19857E-04 0.10000E+01 0.17891E+05 0.69613E-45 0.32590E-54 0.65149E-51 - 4 1 0.19857E-04 0.10000E+01 0.14428E+05 0.45828E-44 0.38673E-53 0.43330E-50 - 4 1 0.19857E-04 0.10000E+01 0.11635E+05 0.29022E-43 0.43557E-52 0.27856E-49 - 4 1 0.19857E-04 0.10000E+01 0.93834E+04 0.17535E-42 0.45877E-51 0.17162E-48 - 4 1 0.19857E-04 0.10000E+01 0.75673E+04 0.10036E-41 0.48867E-50 0.99575E-48 - 4 1 0.19857E-04 0.10000E+01 0.61026E+04 0.57417E-41 0.71746E-49 0.54863E-47 - 4 1 0.19857E-04 0.10000E+01 0.49215E+04 0.40660E-40 0.16002E-47 0.33260E-46 - 4 1 0.19857E-04 0.10000E+01 0.39689E+04 0.41805E-39 0.39609E-46 0.28820E-45 - 4 1 0.19857E-04 0.10000E+01 0.32008E+04 0.16217E-36 0.30070E-43 0.10501E-42 - 4 1 0.19857E-04 0.10000E+01 0.25813E+04 0.10180E-27 0.40007E-34 0.63772E-34 - 4 1 0.19857E-04 0.10000E+01 0.20817E+04 0.15135E-11 0.22061E-17 0.87845E-18 + 4 1 0.19857E-04 0.10000E+01 0.80645E+05 0.36165E-08 0.22513E-19 0.33300E-14 + 4 1 0.19857E-04 0.10000E+01 0.65036E+05 0.46353E-08 0.51371E-19 0.42691E-14 + 4 1 0.19857E-04 0.10000E+01 0.52449E+05 0.58559E-08 0.11510E-18 0.53953E-14 + 4 1 0.19857E-04 0.10000E+01 0.42297E+05 0.73159E-08 0.25197E-18 0.67443E-14 + 4 1 0.19857E-04 0.10000E+01 0.34111E+05 0.90531E-08 0.53644E-18 0.83532E-14 + 4 1 0.19857E-04 0.10000E+01 0.27509E+05 0.11101E-07 0.11067E-17 0.10256E-13 + 4 1 0.19857E-04 0.10000E+01 0.22184E+05 0.13484E-07 0.22211E-17 0.12480E-13 + 4 1 0.19857E-04 0.10000E+01 0.17891E+05 0.16212E-07 0.44657E-17 0.15037E-13 + 4 1 0.19857E-04 0.10000E+01 0.14428E+05 0.19285E-07 0.97194E-17 0.17928E-13 + 4 1 0.19857E-04 0.10000E+01 0.11635E+05 0.22715E-07 0.25316E-16 0.21148E-13 + 4 1 0.19857E-04 0.10000E+01 0.93834E+04 0.26592E-07 0.80450E-16 0.24727E-13 + 4 1 0.19857E-04 0.10000E+01 0.75673E+04 0.31203E-07 0.28778E-15 0.28812E-13 + 4 1 0.19857E-04 0.10000E+01 0.61026E+04 0.37266E-07 0.10695E-14 0.33799E-13 + 4 1 0.19857E-04 0.10000E+01 0.49215E+04 0.46339E-07 0.39736E-14 0.40550E-13 + 4 1 0.19857E-04 0.10000E+01 0.39689E+04 0.61556E-07 0.14597E-13 0.50709E-13 + 4 1 0.19857E-04 0.10000E+01 0.32008E+04 0.88976E-07 0.53090E-13 0.67172E-13 + 4 1 0.19857E-04 0.10000E+01 0.25813E+04 0.14010E-06 0.19206E-12 0.94778E-13 + 4 1 0.19857E-04 0.10000E+01 0.20817E+04 0.23659E-06 0.69227E-12 0.14140E-12 4 1 0.19857E-04 0.10000E+01 0.16788E+04 0.41923E-06 0.24829E-11 0.21969E-12 4 1 0.19857E-04 0.10000E+01 0.13538E+04 0.76447E-06 0.88552E-11 0.35010E-12 4 1 0.19857E-04 0.10000E+01 0.10918E+04 0.14148E-05 0.31468E-10 0.56587E-12 @@ -20000,24 +20000,24 @@ VERSION 2.8.2 4 1 0.19857E-04 0.10000E+01 0.24221E+03 0.98159E-04 0.86862E-07 0.19087E-10 4 1 0.19857E-04 0.10000E+01 0.19533E+03 0.15306E-03 0.16484E-06 0.28675E-10 4 1 0.19857E-04 0.10000E+01 0.15752E+03 0.15306E-03 0.16484E-06 0.28675E-10 - 4 1 0.34650E-04 0.10000E+01 0.80645E+05 0.93261E-51 0.69640E-62 0.85892E-57 - 4 1 0.34650E-04 0.10000E+01 0.65036E+05 0.78773E-50 0.11045E-60 0.72585E-56 - 4 1 0.34650E-04 0.10000E+01 0.52449E+05 0.66841E-49 0.14777E-59 0.61617E-55 - 4 1 0.34650E-04 0.10000E+01 0.42297E+05 0.50112E-48 0.19917E-58 0.46233E-54 - 4 1 0.34650E-04 0.10000E+01 0.34111E+05 0.35903E-47 0.26992E-57 0.33171E-53 - 4 1 0.34650E-04 0.10000E+01 0.27509E+05 0.25493E-46 0.35811E-56 0.23610E-52 - 4 1 0.34650E-04 0.10000E+01 0.22184E+05 0.17832E-45 0.46002E-55 0.16580E-51 - 4 1 0.34650E-04 0.10000E+01 0.17891E+05 0.12147E-44 0.56868E-54 0.11368E-50 - 4 1 0.34650E-04 0.10000E+01 0.14428E+05 0.79967E-44 0.67482E-53 0.75608E-50 - 4 1 0.34650E-04 0.10000E+01 0.11635E+05 0.50642E-43 0.76005E-52 0.48607E-49 - 4 1 0.34650E-04 0.10000E+01 0.93834E+04 0.30598E-42 0.80053E-51 0.29947E-48 - 4 1 0.34650E-04 0.10000E+01 0.75673E+04 0.17512E-41 0.85271E-50 0.17375E-47 - 4 1 0.34650E-04 0.10000E+01 0.61026E+04 0.10019E-40 0.12519E-48 0.95732E-47 - 4 1 0.34650E-04 0.10000E+01 0.49215E+04 0.70948E-40 0.27922E-47 0.58037E-46 - 4 1 0.34650E-04 0.10000E+01 0.39689E+04 0.72947E-39 0.69116E-46 0.50289E-45 - 4 1 0.34650E-04 0.10000E+01 0.32008E+04 0.28297E-36 0.52470E-43 0.18323E-42 - 4 1 0.34650E-04 0.10000E+01 0.25813E+04 0.17764E-27 0.69809E-34 0.11128E-33 - 4 1 0.34650E-04 0.10000E+01 0.20817E+04 0.26410E-11 0.38495E-17 0.15328E-17 + 4 1 0.34650E-04 0.10000E+01 0.80645E+05 0.63106E-08 0.39283E-19 0.58106E-14 + 4 1 0.34650E-04 0.10000E+01 0.65036E+05 0.80883E-08 0.89639E-19 0.74493E-14 + 4 1 0.34650E-04 0.10000E+01 0.52449E+05 0.10218E-07 0.20084E-18 0.94144E-14 + 4 1 0.34650E-04 0.10000E+01 0.42297E+05 0.12766E-07 0.43967E-18 0.11768E-13 + 4 1 0.34650E-04 0.10000E+01 0.34111E+05 0.15797E-07 0.93605E-18 0.14576E-13 + 4 1 0.34650E-04 0.10000E+01 0.27509E+05 0.19371E-07 0.19311E-17 0.17896E-13 + 4 1 0.34650E-04 0.10000E+01 0.22184E+05 0.23529E-07 0.38756E-17 0.21776E-13 + 4 1 0.34650E-04 0.10000E+01 0.17891E+05 0.28289E-07 0.77924E-17 0.26239E-13 + 4 1 0.34650E-04 0.10000E+01 0.14428E+05 0.33651E-07 0.16960E-16 0.31283E-13 + 4 1 0.34650E-04 0.10000E+01 0.11635E+05 0.39637E-07 0.44175E-16 0.36901E-13 + 4 1 0.34650E-04 0.10000E+01 0.93834E+04 0.46401E-07 0.14038E-15 0.43148E-13 + 4 1 0.34650E-04 0.10000E+01 0.75673E+04 0.54447E-07 0.50216E-15 0.50275E-13 + 4 1 0.34650E-04 0.10000E+01 0.61026E+04 0.65028E-07 0.18663E-14 0.58977E-13 + 4 1 0.34650E-04 0.10000E+01 0.49215E+04 0.80859E-07 0.69337E-14 0.70757E-13 + 4 1 0.34650E-04 0.10000E+01 0.39689E+04 0.10741E-06 0.25470E-13 0.88485E-13 + 4 1 0.34650E-04 0.10000E+01 0.32008E+04 0.15526E-06 0.92639E-13 0.11721E-12 + 4 1 0.34650E-04 0.10000E+01 0.25813E+04 0.24446E-06 0.33513E-12 0.16538E-12 + 4 1 0.34650E-04 0.10000E+01 0.20817E+04 0.41283E-06 0.12080E-11 0.24673E-12 4 1 0.34650E-04 0.10000E+01 0.16788E+04 0.73153E-06 0.43325E-11 0.38335E-12 4 1 0.34650E-04 0.10000E+01 0.13538E+04 0.13339E-05 0.15452E-10 0.61091E-12 4 1 0.34650E-04 0.10000E+01 0.10918E+04 0.24687E-05 0.54910E-10 0.98742E-12 @@ -20030,24 +20030,24 @@ VERSION 2.8.2 4 1 0.34650E-04 0.10000E+01 0.24221E+03 0.17128E-03 0.15157E-06 0.33306E-10 4 1 0.34650E-04 0.10000E+01 0.19533E+03 0.26708E-03 0.28763E-06 0.50036E-10 4 1 0.34650E-04 0.10000E+01 0.15752E+03 0.26708E-03 0.28763E-06 0.50036E-10 - 4 1 0.60462E-04 0.10000E+01 0.80645E+05 0.16274E-50 0.12152E-61 0.14988E-56 - 4 1 0.60462E-04 0.10000E+01 0.65036E+05 0.13745E-49 0.19273E-60 0.12666E-55 - 4 1 0.60462E-04 0.10000E+01 0.52449E+05 0.11663E-48 0.25786E-59 0.10752E-54 - 4 1 0.60462E-04 0.10000E+01 0.42297E+05 0.87442E-48 0.34755E-58 0.80673E-54 - 4 1 0.60462E-04 0.10000E+01 0.34111E+05 0.62648E-47 0.47100E-57 0.57882E-53 - 4 1 0.60462E-04 0.10000E+01 0.27509E+05 0.44484E-46 0.62489E-56 0.41198E-52 - 4 1 0.60462E-04 0.10000E+01 0.22184E+05 0.31116E-45 0.80270E-55 0.28932E-51 - 4 1 0.60462E-04 0.10000E+01 0.17891E+05 0.21196E-44 0.99232E-54 0.19837E-50 - 4 1 0.60462E-04 0.10000E+01 0.14428E+05 0.13954E-43 0.11775E-52 0.13193E-49 - 4 1 0.60462E-04 0.10000E+01 0.11635E+05 0.88367E-43 0.13262E-51 0.84815E-49 - 4 1 0.60462E-04 0.10000E+01 0.93834E+04 0.53391E-42 0.13969E-50 0.52256E-48 - 4 1 0.60462E-04 0.10000E+01 0.75673E+04 0.30558E-41 0.14879E-49 0.30319E-47 - 4 1 0.60462E-04 0.10000E+01 0.61026E+04 0.17483E-40 0.21845E-48 0.16705E-46 - 4 1 0.60462E-04 0.10000E+01 0.49215E+04 0.12380E-39 0.48722E-47 0.10127E-45 - 4 1 0.60462E-04 0.10000E+01 0.39689E+04 0.12729E-38 0.12060E-45 0.87752E-45 - 4 1 0.60462E-04 0.10000E+01 0.32008E+04 0.49377E-36 0.91556E-43 0.31973E-42 - 4 1 0.60462E-04 0.10000E+01 0.25813E+04 0.30997E-27 0.12181E-33 0.19417E-33 - 4 1 0.60462E-04 0.10000E+01 0.20817E+04 0.46083E-11 0.67171E-17 0.26747E-17 + 4 1 0.60462E-04 0.10000E+01 0.80645E+05 0.11012E-07 0.68547E-19 0.10139E-13 + 4 1 0.60462E-04 0.10000E+01 0.65036E+05 0.14114E-07 0.15642E-18 0.12999E-13 + 4 1 0.60462E-04 0.10000E+01 0.52449E+05 0.17830E-07 0.35046E-18 0.16428E-13 + 4 1 0.60462E-04 0.10000E+01 0.42297E+05 0.22275E-07 0.76720E-18 0.20535E-13 + 4 1 0.60462E-04 0.10000E+01 0.34111E+05 0.27565E-07 0.16334E-17 0.25434E-13 + 4 1 0.60462E-04 0.10000E+01 0.27509E+05 0.33801E-07 0.33696E-17 0.31228E-13 + 4 1 0.60462E-04 0.10000E+01 0.22184E+05 0.41057E-07 0.67627E-17 0.37998E-13 + 4 1 0.60462E-04 0.10000E+01 0.17891E+05 0.49362E-07 0.13597E-16 0.45785E-13 + 4 1 0.60462E-04 0.10000E+01 0.14428E+05 0.58718E-07 0.29594E-16 0.54587E-13 + 4 1 0.60462E-04 0.10000E+01 0.11635E+05 0.69164E-07 0.77082E-16 0.64391E-13 + 4 1 0.60462E-04 0.10000E+01 0.93834E+04 0.80968E-07 0.24495E-15 0.75290E-13 + 4 1 0.60462E-04 0.10000E+01 0.75673E+04 0.95007E-07 0.87625E-15 0.87727E-13 + 4 1 0.60462E-04 0.10000E+01 0.61026E+04 0.11347E-06 0.32565E-14 0.10291E-12 + 4 1 0.60462E-04 0.10000E+01 0.49215E+04 0.14109E-06 0.12099E-13 0.12347E-12 + 4 1 0.60462E-04 0.10000E+01 0.39689E+04 0.18743E-06 0.44444E-13 0.15440E-12 + 4 1 0.60462E-04 0.10000E+01 0.32008E+04 0.27092E-06 0.16165E-12 0.20453E-12 + 4 1 0.60462E-04 0.10000E+01 0.25813E+04 0.42657E-06 0.58479E-12 0.28858E-12 + 4 1 0.60462E-04 0.10000E+01 0.20817E+04 0.72037E-06 0.21078E-11 0.43052E-12 4 1 0.60462E-04 0.10000E+01 0.16788E+04 0.12765E-05 0.75599E-11 0.66893E-12 4 1 0.60462E-04 0.10000E+01 0.13538E+04 0.23277E-05 0.26962E-10 0.10660E-11 4 1 0.60462E-04 0.10000E+01 0.10918E+04 0.43077E-05 0.95814E-10 0.17230E-11 @@ -20060,24 +20060,24 @@ VERSION 2.8.2 4 1 0.60462E-04 0.10000E+01 0.24221E+03 0.29888E-03 0.26448E-06 0.58118E-10 4 1 0.60462E-04 0.10000E+01 0.19533E+03 0.46603E-03 0.50190E-06 0.87310E-10 4 1 0.60462E-04 0.10000E+01 0.15752E+03 0.46603E-03 0.50190E-06 0.87310E-10 - 4 1 0.10550E-03 0.10000E+01 0.80645E+05 0.28396E-50 0.21204E-61 0.26152E-56 - 4 1 0.10550E-03 0.10000E+01 0.65036E+05 0.23985E-49 0.33630E-60 0.22101E-55 - 4 1 0.10550E-03 0.10000E+01 0.52449E+05 0.20352E-48 0.44994E-59 0.18761E-54 - 4 1 0.10550E-03 0.10000E+01 0.42297E+05 0.15258E-47 0.60645E-58 0.14077E-53 - 4 1 0.10550E-03 0.10000E+01 0.34111E+05 0.10932E-46 0.82187E-57 0.10100E-52 - 4 1 0.10550E-03 0.10000E+01 0.27509E+05 0.77622E-46 0.10904E-55 0.71888E-52 - 4 1 0.10550E-03 0.10000E+01 0.22184E+05 0.54296E-45 0.14007E-54 0.50484E-51 - 4 1 0.10550E-03 0.10000E+01 0.17891E+05 0.36985E-44 0.17315E-53 0.34614E-50 - 4 1 0.10550E-03 0.10000E+01 0.14428E+05 0.24348E-43 0.20547E-52 0.23021E-49 - 4 1 0.10550E-03 0.10000E+01 0.11635E+05 0.15420E-42 0.23142E-51 0.14800E-48 - 4 1 0.10550E-03 0.10000E+01 0.93834E+04 0.93164E-42 0.24375E-50 0.91183E-48 - 4 1 0.10550E-03 0.10000E+01 0.75673E+04 0.53322E-41 0.25963E-49 0.52904E-47 - 4 1 0.10550E-03 0.10000E+01 0.61026E+04 0.30506E-40 0.38119E-48 0.29149E-46 - 4 1 0.10550E-03 0.10000E+01 0.49215E+04 0.21602E-39 0.85017E-47 0.17671E-45 - 4 1 0.10550E-03 0.10000E+01 0.39689E+04 0.22211E-38 0.21044E-45 0.15312E-44 - 4 1 0.10550E-03 0.10000E+01 0.32008E+04 0.86160E-36 0.15976E-42 0.55791E-42 - 4 1 0.10550E-03 0.10000E+01 0.25813E+04 0.54087E-27 0.21256E-33 0.33882E-33 - 4 1 0.10550E-03 0.10000E+01 0.20817E+04 0.80413E-11 0.11721E-16 0.46672E-17 + 4 1 0.10550E-03 0.10000E+01 0.80645E+05 0.19215E-07 0.11961E-18 0.17692E-13 + 4 1 0.10550E-03 0.10000E+01 0.65036E+05 0.24627E-07 0.27293E-18 0.22682E-13 + 4 1 0.10550E-03 0.10000E+01 0.52449E+05 0.31113E-07 0.61153E-18 0.28665E-13 + 4 1 0.10550E-03 0.10000E+01 0.42297E+05 0.38869E-07 0.13387E-17 0.35833E-13 + 4 1 0.10550E-03 0.10000E+01 0.34111E+05 0.48099E-07 0.28501E-17 0.44381E-13 + 4 1 0.10550E-03 0.10000E+01 0.27509E+05 0.58981E-07 0.58798E-17 0.54491E-13 + 4 1 0.10550E-03 0.10000E+01 0.22184E+05 0.71641E-07 0.11800E-16 0.66304E-13 + 4 1 0.10550E-03 0.10000E+01 0.17891E+05 0.86134E-07 0.23726E-16 0.79892E-13 + 4 1 0.10550E-03 0.10000E+01 0.14428E+05 0.10246E-06 0.51639E-16 0.95251E-13 + 4 1 0.10550E-03 0.10000E+01 0.11635E+05 0.12069E-06 0.13450E-15 0.11236E-12 + 4 1 0.10550E-03 0.10000E+01 0.93834E+04 0.14128E-06 0.42743E-15 0.13138E-12 + 4 1 0.10550E-03 0.10000E+01 0.75673E+04 0.16578E-06 0.15290E-14 0.15308E-12 + 4 1 0.10550E-03 0.10000E+01 0.61026E+04 0.19800E-06 0.56824E-14 0.17957E-12 + 4 1 0.10550E-03 0.10000E+01 0.49215E+04 0.24620E-06 0.21112E-13 0.21544E-12 + 4 1 0.10550E-03 0.10000E+01 0.39689E+04 0.32705E-06 0.77553E-13 0.26942E-12 + 4 1 0.10550E-03 0.10000E+01 0.32008E+04 0.47273E-06 0.28207E-12 0.35689E-12 + 4 1 0.10550E-03 0.10000E+01 0.25813E+04 0.74434E-06 0.10204E-11 0.50356E-12 + 4 1 0.10550E-03 0.10000E+01 0.20817E+04 0.12570E-05 0.36780E-11 0.75124E-12 4 1 0.10550E-03 0.10000E+01 0.16788E+04 0.22274E-05 0.13192E-10 0.11672E-11 4 1 0.10550E-03 0.10000E+01 0.13538E+04 0.40616E-05 0.47048E-10 0.18601E-11 4 1 0.10550E-03 0.10000E+01 0.10918E+04 0.75167E-05 0.16719E-09 0.30065E-11 @@ -20090,24 +20090,24 @@ VERSION 2.8.2 4 1 0.10550E-03 0.10000E+01 0.24221E+03 0.52152E-03 0.46150E-06 0.10141E-09 4 1 0.10550E-03 0.10000E+01 0.19533E+03 0.81320E-03 0.87579E-06 0.15235E-09 4 1 0.10550E-03 0.10000E+01 0.15752E+03 0.81320E-03 0.87579E-06 0.15235E-09 - 4 1 0.18409E-03 0.10000E+01 0.80645E+05 0.49550E-50 0.37000E-61 0.45635E-56 - 4 1 0.18409E-03 0.10000E+01 0.65036E+05 0.41852E-49 0.58683E-60 0.38564E-55 - 4 1 0.18409E-03 0.10000E+01 0.52449E+05 0.35513E-48 0.78513E-59 0.32737E-54 - 4 1 0.18409E-03 0.10000E+01 0.42297E+05 0.26624E-47 0.10582E-57 0.24564E-53 - 4 1 0.18409E-03 0.10000E+01 0.34111E+05 0.19075E-46 0.14341E-56 0.17624E-52 - 4 1 0.18409E-03 0.10000E+01 0.27509E+05 0.13545E-45 0.19027E-55 0.12544E-51 - 4 1 0.18409E-03 0.10000E+01 0.22184E+05 0.94743E-45 0.24441E-54 0.88092E-51 - 4 1 0.18409E-03 0.10000E+01 0.17891E+05 0.64537E-44 0.30214E-53 0.60399E-50 - 4 1 0.18409E-03 0.10000E+01 0.14428E+05 0.42486E-43 0.35853E-52 0.40171E-49 - 4 1 0.18409E-03 0.10000E+01 0.11635E+05 0.26906E-42 0.40381E-51 0.25825E-48 - 4 1 0.18409E-03 0.10000E+01 0.93834E+04 0.16257E-41 0.42532E-50 0.15911E-47 - 4 1 0.18409E-03 0.10000E+01 0.75673E+04 0.93044E-41 0.45304E-49 0.92315E-47 - 4 1 0.18409E-03 0.10000E+01 0.61026E+04 0.53231E-40 0.66515E-48 0.50863E-46 - 4 1 0.18409E-03 0.10000E+01 0.49215E+04 0.37695E-39 0.14835E-46 0.30835E-45 - 4 1 0.18409E-03 0.10000E+01 0.39689E+04 0.38757E-38 0.36721E-45 0.26719E-44 - 4 1 0.18409E-03 0.10000E+01 0.32008E+04 0.15034E-35 0.27877E-42 0.97352E-42 - 4 1 0.18409E-03 0.10000E+01 0.25813E+04 0.94379E-27 0.37090E-33 0.59122E-33 - 4 1 0.18409E-03 0.10000E+01 0.20817E+04 0.14032E-10 0.20452E-16 0.81440E-17 + 4 1 0.18409E-03 0.10000E+01 0.80645E+05 0.33528E-07 0.20871E-18 0.30872E-13 + 4 1 0.18409E-03 0.10000E+01 0.65036E+05 0.42973E-07 0.47625E-18 0.39578E-13 + 4 1 0.18409E-03 0.10000E+01 0.52449E+05 0.54289E-07 0.10671E-17 0.50019E-13 + 4 1 0.18409E-03 0.10000E+01 0.42297E+05 0.67825E-07 0.23360E-17 0.62526E-13 + 4 1 0.18409E-03 0.10000E+01 0.34111E+05 0.83930E-07 0.49733E-17 0.77442E-13 + 4 1 0.18409E-03 0.10000E+01 0.27509E+05 0.10292E-06 0.10260E-16 0.95083E-13 + 4 1 0.18409E-03 0.10000E+01 0.22184E+05 0.12501E-06 0.20591E-16 0.11570E-12 + 4 1 0.18409E-03 0.10000E+01 0.17891E+05 0.15030E-06 0.41401E-16 0.13941E-12 + 4 1 0.18409E-03 0.10000E+01 0.14428E+05 0.17879E-06 0.90107E-16 0.16621E-12 + 4 1 0.18409E-03 0.10000E+01 0.11635E+05 0.21059E-06 0.23470E-15 0.19606E-12 + 4 1 0.18409E-03 0.10000E+01 0.93834E+04 0.24653E-06 0.74584E-15 0.22924E-12 + 4 1 0.18409E-03 0.10000E+01 0.75673E+04 0.28928E-06 0.26680E-14 0.26711E-12 + 4 1 0.18409E-03 0.10000E+01 0.61026E+04 0.34549E-06 0.99154E-14 0.31334E-12 + 4 1 0.18409E-03 0.10000E+01 0.49215E+04 0.42961E-06 0.36839E-13 0.37593E-12 + 4 1 0.18409E-03 0.10000E+01 0.39689E+04 0.57068E-06 0.13533E-12 0.47012E-12 + 4 1 0.18409E-03 0.10000E+01 0.32008E+04 0.82489E-06 0.49219E-12 0.62275E-12 + 4 1 0.18409E-03 0.10000E+01 0.25813E+04 0.12988E-05 0.17806E-11 0.87868E-12 + 4 1 0.18409E-03 0.10000E+01 0.20817E+04 0.21934E-05 0.64179E-11 0.13109E-11 4 1 0.18409E-03 0.10000E+01 0.16788E+04 0.38867E-05 0.23019E-10 0.20368E-11 4 1 0.18409E-03 0.10000E+01 0.13538E+04 0.70873E-05 0.82096E-10 0.32458E-11 4 1 0.18409E-03 0.10000E+01 0.10918E+04 0.13116E-04 0.29174E-09 0.52462E-11 @@ -20120,24 +20120,24 @@ VERSION 2.8.2 4 1 0.18409E-03 0.10000E+01 0.24221E+03 0.91002E-03 0.80529E-06 0.17696E-09 4 1 0.18409E-03 0.10000E+01 0.19533E+03 0.14190E-02 0.15282E-05 0.26584E-09 4 1 0.18409E-03 0.10000E+01 0.15752E+03 0.14190E-02 0.15282E-05 0.26584E-09 - 4 1 0.32123E-03 0.10000E+01 0.80645E+05 0.86462E-50 0.64562E-61 0.79629E-56 - 4 1 0.32123E-03 0.10000E+01 0.65036E+05 0.73030E-49 0.10240E-59 0.67293E-55 - 4 1 0.32123E-03 0.10000E+01 0.52449E+05 0.61967E-48 0.13700E-58 0.57125E-54 - 4 1 0.32123E-03 0.10000E+01 0.42297E+05 0.46458E-47 0.18465E-57 0.42862E-53 - 4 1 0.32123E-03 0.10000E+01 0.34111E+05 0.33285E-46 0.25024E-56 0.30753E-52 - 4 1 0.32123E-03 0.10000E+01 0.27509E+05 0.23634E-45 0.33200E-55 0.21889E-51 - 4 1 0.32123E-03 0.10000E+01 0.22184E+05 0.16532E-44 0.42648E-54 0.15372E-50 - 4 1 0.32123E-03 0.10000E+01 0.17891E+05 0.11261E-43 0.52722E-53 0.10539E-49 - 4 1 0.32123E-03 0.10000E+01 0.14428E+05 0.74136E-43 0.62562E-52 0.70095E-49 - 4 1 0.32123E-03 0.10000E+01 0.11635E+05 0.46950E-42 0.70463E-51 0.45063E-48 - 4 1 0.32123E-03 0.10000E+01 0.93834E+04 0.28367E-41 0.74216E-50 0.27764E-47 - 4 1 0.32123E-03 0.10000E+01 0.75673E+04 0.16236E-40 0.79053E-49 0.16108E-46 - 4 1 0.32123E-03 0.10000E+01 0.61026E+04 0.92885E-40 0.11607E-47 0.88752E-46 - 4 1 0.32123E-03 0.10000E+01 0.49215E+04 0.65775E-39 0.25886E-46 0.53805E-45 - 4 1 0.32123E-03 0.10000E+01 0.39689E+04 0.67628E-38 0.64076E-45 0.46623E-44 - 4 1 0.32123E-03 0.10000E+01 0.32008E+04 0.26234E-35 0.48644E-42 0.16987E-41 - 4 1 0.32123E-03 0.10000E+01 0.25813E+04 0.16469E-26 0.64720E-33 0.10316E-32 - 4 1 0.32123E-03 0.10000E+01 0.20817E+04 0.24484E-10 0.35688E-16 0.14211E-16 + 4 1 0.32123E-03 0.10000E+01 0.80645E+05 0.58505E-07 0.36419E-18 0.53869E-13 + 4 1 0.32123E-03 0.10000E+01 0.65036E+05 0.74986E-07 0.83104E-18 0.69061E-13 + 4 1 0.32123E-03 0.10000E+01 0.52449E+05 0.94732E-07 0.18620E-17 0.87280E-13 + 4 1 0.32123E-03 0.10000E+01 0.42297E+05 0.11835E-06 0.40762E-17 0.10910E-12 + 4 1 0.32123E-03 0.10000E+01 0.34111E+05 0.14645E-06 0.86780E-17 0.13513E-12 + 4 1 0.32123E-03 0.10000E+01 0.27509E+05 0.17959E-06 0.17903E-16 0.16591E-12 + 4 1 0.32123E-03 0.10000E+01 0.22184E+05 0.21813E-06 0.35930E-16 0.20188E-12 + 4 1 0.32123E-03 0.10000E+01 0.17891E+05 0.26226E-06 0.72243E-16 0.24326E-12 + 4 1 0.32123E-03 0.10000E+01 0.14428E+05 0.31197E-06 0.15723E-15 0.29002E-12 + 4 1 0.32123E-03 0.10000E+01 0.11635E+05 0.36747E-06 0.40954E-15 0.34211E-12 + 4 1 0.32123E-03 0.10000E+01 0.93834E+04 0.43018E-06 0.13014E-14 0.40002E-12 + 4 1 0.32123E-03 0.10000E+01 0.75673E+04 0.50478E-06 0.46555E-14 0.46609E-12 + 4 1 0.32123E-03 0.10000E+01 0.61026E+04 0.60286E-06 0.17302E-13 0.54677E-12 + 4 1 0.32123E-03 0.10000E+01 0.49215E+04 0.74964E-06 0.64282E-13 0.65598E-12 + 4 1 0.32123E-03 0.10000E+01 0.39689E+04 0.99579E-06 0.23613E-12 0.82033E-12 + 4 1 0.32123E-03 0.10000E+01 0.32008E+04 0.14394E-05 0.85885E-12 0.10867E-11 + 4 1 0.32123E-03 0.10000E+01 0.25813E+04 0.22664E-05 0.31070E-11 0.15332E-11 + 4 1 0.32123E-03 0.10000E+01 0.20817E+04 0.38273E-05 0.11199E-10 0.22874E-11 4 1 0.32123E-03 0.10000E+01 0.16788E+04 0.67820E-05 0.40166E-10 0.35540E-11 4 1 0.32123E-03 0.10000E+01 0.13538E+04 0.12367E-04 0.14325E-09 0.56636E-11 4 1 0.32123E-03 0.10000E+01 0.10918E+04 0.22887E-04 0.50906E-09 0.91542E-11 @@ -20200,24 +20200,24 @@ VERSION 2.8.2 4 2 0.10550E-03 0.10000E+01 0.12134E+01 0.16969E+01 0.19467E+00 0.14696E-02 0.27480E+00 0.99080E-04 0.46642E+10 0.42740E+03 0.50000E+03 0.58889E-15 0.13945E-01 0.57606E-02 0.16418E+02 4 2 0.18409E-03 0.10000E+01 0.12134E+01 0.16969E+01 0.59274E+00 0.25644E-02 0.47951E+00 0.99080E-04 0.81388E+10 0.74579E+03 0.50000E+03 0.10276E-14 0.24333E-01 0.57606E-02 0.16418E+02 4 2 0.32123E-03 0.10000E+01 0.12134E+01 0.16969E+01 0.18048E+01 0.44747E-02 0.83672E+00 0.99080E-04 0.14202E+11 0.13014E+04 0.50000E+03 0.17931E-14 0.42460E-01 0.57606E-02 0.16418E+02 - 4 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 4 2 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 4 2 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 4 2 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 4 2 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 4 2 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 4 2 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 4 2 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 4 2 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 4 2 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 4 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 4 2 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 4 2 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 4 2 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 4 2 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 4 2 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 4 2 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 4 2 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 4 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 4 2 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 4 2 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 4 2 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 4 2 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 4 2 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 4 2 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 4 2 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 4 2 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 4 2 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 4 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 4 2 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 4 2 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 4 2 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 4 2 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 4 2 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 4 2 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 4 2 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 4 2 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 4 2 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 4 2 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -20230,24 +20230,24 @@ VERSION 2.8.2 4 2 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 4 2 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 4 2 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 4 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 4 2 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 4 2 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 4 2 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 4 2 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 4 2 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 4 2 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 4 2 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 4 2 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 4 2 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 4 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 4 2 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 4 2 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 4 2 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 4 2 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 4 2 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 4 2 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 4 2 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 4 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 4 2 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 4 2 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 4 2 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 4 2 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 4 2 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 4 2 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 4 2 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 4 2 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 4 2 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 4 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 4 2 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 4 2 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 4 2 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 4 2 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 4 2 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 4 2 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 4 2 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 4 2 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 4 2 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 4 2 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -20260,24 +20260,24 @@ VERSION 2.8.2 4 2 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 4 2 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 4 2 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 4 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 4 2 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 4 2 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 4 2 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 4 2 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 4 2 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 4 2 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 4 2 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 4 2 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 4 2 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 4 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 4 2 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 4 2 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 4 2 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 4 2 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 4 2 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 4 2 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 4 2 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 4 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 4 2 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 4 2 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 4 2 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 4 2 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 4 2 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 4 2 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 4 2 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 4 2 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 4 2 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 4 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 4 2 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 4 2 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 4 2 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 4 2 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 4 2 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 4 2 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 4 2 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 4 2 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 4 2 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 4 2 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -20290,24 +20290,24 @@ VERSION 2.8.2 4 2 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 4 2 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 4 2 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 4 2 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 4 2 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 4 2 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 4 2 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 4 2 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 4 2 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 4 2 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 4 2 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 4 2 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 4 2 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 4 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 4 2 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 4 2 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 4 2 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 4 2 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 4 2 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 4 2 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 4 2 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 4 2 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 4 2 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 4 2 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 4 2 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 4 2 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 4 2 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 4 2 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 4 2 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 4 2 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 4 2 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 4 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 4 2 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 4 2 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 4 2 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 4 2 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 4 2 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 4 2 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 4 2 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 4 2 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 4 2 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 4 2 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -20320,24 +20320,24 @@ VERSION 2.8.2 4 2 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 4 2 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 4 2 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 4 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 4 2 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 4 2 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 4 2 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 4 2 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 4 2 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 4 2 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 4 2 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 4 2 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 4 2 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 4 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 4 2 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 4 2 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 4 2 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 4 2 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 4 2 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 4 2 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 4 2 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 4 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 4 2 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 4 2 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 4 2 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 4 2 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 4 2 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 4 2 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 4 2 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 4 2 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 4 2 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 4 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 4 2 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 4 2 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 4 2 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 4 2 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 4 2 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 4 2 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 4 2 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 4 2 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 4 2 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 4 2 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -20350,24 +20350,24 @@ VERSION 2.8.2 4 2 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 4 2 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 4 2 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 4 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 4 2 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 4 2 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 4 2 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 4 2 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 4 2 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 4 2 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 4 2 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 4 2 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 4 2 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 4 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 4 2 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 4 2 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 4 2 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 4 2 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 4 2 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 4 2 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 4 2 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 4 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 4 2 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 4 2 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 4 2 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 4 2 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 4 2 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 4 2 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 4 2 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 4 2 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 4 2 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 4 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 4 2 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 4 2 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 4 2 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 4 2 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 4 2 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 4 2 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 4 2 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 4 2 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 4 2 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 4 2 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -20380,24 +20380,24 @@ VERSION 2.8.2 4 2 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 4 2 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 4 2 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 4 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 4 2 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 4 2 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 4 2 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 4 2 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 4 2 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 4 2 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 4 2 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 4 2 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 4 2 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 4 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 4 2 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 4 2 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 4 2 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 4 2 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 4 2 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 4 2 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 4 2 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 4 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 4 2 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 4 2 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 4 2 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 4 2 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 4 2 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 4 2 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 4 2 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 4 2 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 4 2 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 4 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 4 2 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 4 2 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 4 2 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 4 2 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 4 2 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 4 2 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 4 2 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 4 2 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 4 2 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 4 2 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -20410,24 +20410,24 @@ VERSION 2.8.2 4 2 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 4 2 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 4 2 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 4 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 4 2 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 4 2 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 4 2 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 4 2 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 4 2 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 4 2 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 4 2 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 4 2 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 4 2 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 4 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 4 2 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 4 2 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 4 2 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 4 2 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 4 2 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 4 2 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 4 2 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 4 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 4 2 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 4 2 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 4 2 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 4 2 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 4 2 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 4 2 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 4 2 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 4 2 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 4 2 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 4 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 4 2 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 4 2 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 4 2 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 4 2 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 4 2 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 4 2 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 4 2 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 4 2 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 4 2 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 4 2 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -20440,24 +20440,24 @@ VERSION 2.8.2 4 2 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 4 2 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 4 2 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 4 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 4 2 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 4 2 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 4 2 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 4 2 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 4 2 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 4 2 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 4 2 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 4 2 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 4 2 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 4 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 4 2 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 4 2 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 4 2 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 4 2 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 4 2 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 4 2 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 4 2 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 4 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 4 2 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 4 2 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 4 2 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 4 2 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 4 2 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 4 2 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 4 2 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 4 2 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 4 2 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 4 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 4 2 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 4 2 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 4 2 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 4 2 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 4 2 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 4 2 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 4 2 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 4 2 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 4 2 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 4 2 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -20470,24 +20470,24 @@ VERSION 2.8.2 4 2 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 4 2 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 4 2 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 4 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 4 2 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 4 2 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 4 2 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 4 2 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 4 2 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 4 2 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 4 2 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 4 2 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 4 2 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 4 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 4 2 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 4 2 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 4 2 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 4 2 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 4 2 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 4 2 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 4 2 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 4 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 4 2 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 4 2 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 4 2 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 4 2 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 4 2 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 4 2 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 4 2 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 4 2 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 4 2 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 4 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 4 2 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 4 2 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 4 2 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 4 2 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 4 2 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 4 2 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 4 2 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 4 2 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 4 2 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 4 2 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -20500,24 +20500,24 @@ VERSION 2.8.2 4 2 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 4 2 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 4 2 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 4 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 4 2 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 4 2 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 4 2 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 4 2 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 4 2 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 4 2 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 4 2 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 4 2 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 4 2 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 4 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 4 2 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 4 2 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 4 2 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 4 2 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 4 2 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 4 2 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 4 2 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 4 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 4 2 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 4 2 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 4 2 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 4 2 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 4 2 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 4 2 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 4 2 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 4 2 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 4 2 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 4 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 4 2 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 4 2 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 4 2 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 4 2 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 4 2 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 4 2 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 4 2 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 4 2 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 4 2 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 4 2 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -20530,24 +20530,24 @@ VERSION 2.8.2 4 2 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 4 2 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 4 2 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 4 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 4 2 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 4 2 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 4 2 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 4 2 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 4 2 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 4 2 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 4 2 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 4 2 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 4 2 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 4 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 4 2 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 4 2 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 4 2 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 4 2 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 4 2 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 4 2 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 4 2 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 4 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 4 2 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 4 2 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 4 2 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 4 2 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 4 2 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 4 2 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 4 2 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 4 2 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 4 2 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 4 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 4 2 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 4 2 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 4 2 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 4 2 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 4 2 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 4 2 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 4 2 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 4 2 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 4 2 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 4 2 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -20560,24 +20560,24 @@ VERSION 2.8.2 4 2 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 4 2 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 4 2 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 4 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 4 2 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 4 2 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 4 2 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 4 2 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 4 2 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 4 2 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 4 2 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 4 2 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 4 2 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 4 2 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 4 2 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 4 2 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 4 2 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 4 2 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 4 2 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 4 2 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 4 2 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 4 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 4 2 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 4 2 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 4 2 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 4 2 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 4 2 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 4 2 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 4 2 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 4 2 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 4 2 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 4 2 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 4 2 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 4 2 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 4 2 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 4 2 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 4 2 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 4 2 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 4 2 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 4 2 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 4 2 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 4 2 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -20590,24 +20590,24 @@ VERSION 2.8.2 4 2 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 4 2 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 4 2 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 4 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 4 2 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 4 2 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 4 2 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 4 2 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 4 2 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 4 2 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 4 2 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 4 2 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 4 2 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 4 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 4 2 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 4 2 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 4 2 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 4 2 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 4 2 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 4 2 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 4 2 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 4 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 4 2 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 4 2 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 4 2 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 4 2 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 4 2 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 4 2 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 4 2 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 4 2 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 4 2 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 4 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 4 2 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 4 2 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 4 2 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 4 2 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 4 2 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 4 2 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 4 2 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 4 2 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 4 2 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 4 2 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -20620,24 +20620,24 @@ VERSION 2.8.2 4 2 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 4 2 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 4 2 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 4 2 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 4 2 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 4 2 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 4 2 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 4 2 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 4 2 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 4 2 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 4 2 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 4 2 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 4 2 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 4 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 4 2 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 4 2 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 4 2 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 4 2 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 4 2 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 4 2 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 4 2 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 4 2 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 4 2 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 4 2 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 4 2 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 4 2 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 4 2 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 4 2 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 4 2 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 4 2 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 4 2 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 4 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 4 2 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 4 2 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 4 2 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 4 2 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 4 2 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 4 2 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 4 2 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 4 2 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 4 2 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 4 2 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -20650,24 +20650,24 @@ VERSION 2.8.2 4 2 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 4 2 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 4 2 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 4 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 4 2 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 4 2 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 4 2 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 4 2 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 4 2 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 4 2 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 4 2 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 4 2 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 4 2 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 4 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 4 2 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 4 2 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 4 2 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 4 2 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 4 2 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 4 2 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 4 2 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 4 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 4 2 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 4 2 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 4 2 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 4 2 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 4 2 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 4 2 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 4 2 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 4 2 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 4 2 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 4 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 4 2 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 4 2 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 4 2 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 4 2 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 4 2 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 4 2 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 4 2 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 4 2 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 4 2 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 4 2 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -20680,24 +20680,24 @@ VERSION 2.8.2 4 2 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 4 2 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 4 2 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 4 2 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 4 2 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 4 2 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 4 2 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 4 2 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 4 2 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 4 2 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 4 2 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 4 2 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 4 2 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 4 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 4 2 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 4 2 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 4 2 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 4 2 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 4 2 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 4 2 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 4 2 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 4 2 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 4 2 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 4 2 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 4 2 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 4 2 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 4 2 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 4 2 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 4 2 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 4 2 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 4 2 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 4 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 4 2 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 4 2 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 4 2 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 4 2 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 4 2 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 4 2 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 4 2 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 4 2 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 4 2 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 4 2 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -20710,24 +20710,24 @@ VERSION 2.8.2 4 2 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 4 2 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 4 2 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 4 2 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 4 2 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 4 2 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 4 2 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 4 2 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 4 2 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 4 2 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 4 2 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 4 2 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 4 2 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 4 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 4 2 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 4 2 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 4 2 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 4 2 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 4 2 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 4 2 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 4 2 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 4 2 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 4 2 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 4 2 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 4 2 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 4 2 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 4 2 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 4 2 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 4 2 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 4 2 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 4 2 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 4 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 4 2 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 4 2 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 4 2 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 4 2 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 4 2 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 4 2 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 4 2 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 4 2 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 4 2 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 4 2 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -20740,24 +20740,24 @@ VERSION 2.8.2 4 2 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 4 2 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 4 2 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 4 2 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 4 2 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 4 2 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 4 2 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 4 2 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 4 2 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 4 2 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 4 2 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 4 2 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 4 2 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 4 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 4 2 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 4 2 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 4 2 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 4 2 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 4 2 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 4 2 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 4 2 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 4 2 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76425E-26 + 4 2 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 4 2 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 4 2 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 4 2 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 4 2 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 4 2 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 4 2 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 4 2 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 4 2 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 4 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 4 2 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 4 2 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 4 2 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 4 2 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 4 2 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 4 2 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 4 2 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 4 2 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 4 2 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 4 2 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -20770,24 +20770,24 @@ VERSION 2.8.2 4 2 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 4 2 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 4 2 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 4 2 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34054E-68 - 4 2 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28312E-67 - 4 2 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24727E-66 - 4 2 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 4 2 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 4 2 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41870E-63 - 4 2 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 4 2 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 4 2 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 4 2 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28903E-58 - 4 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 4 2 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 4 2 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 4 2 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11731E-53 - 4 2 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 4 2 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73373E-50 - 4 2 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 4 2 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 4 2 0.17923E-10 0.10000E+01 0.80645E+05 0.50976E-15 0.30186E-25 0.24557E-25 + 4 2 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34495E-25 + 4 2 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54082E-25 + 4 2 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10005E-24 + 4 2 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 4 2 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 4 2 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 4 2 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 4 2 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 4 2 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 4 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 4 2 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 4 2 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 4 2 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 4 2 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 4 2 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 4 2 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 4 2 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 4 2 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 4 2 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 4 2 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -20800,24 +20800,24 @@ VERSION 2.8.2 4 2 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 4 2 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 4 2 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 4 2 0.31275E-10 0.10000E+01 0.80645E+05 0.12245E-57 0.88091E-69 0.11456E-67 - 4 2 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15654E-67 0.98371E-67 - 4 2 0.31275E-10 0.10000E+01 0.52449E+05 0.94833E-56 0.30733E-66 0.84245E-66 - 4 2 0.31275E-10 0.10000E+01 0.42297E+05 0.99584E-55 0.85105E-65 0.66923E-65 - 4 2 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28098E-63 0.61270E-64 - 4 2 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94801E-62 0.75382E-63 - 4 2 0.31275E-10 0.10000E+01 0.22184E+05 0.40542E-51 0.30613E-60 0.11739E-61 - 4 2 0.31275E-10 0.10000E+01 0.17891E+05 0.68166E-50 0.91702E-59 0.19607E-60 - 4 2 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25764E-57 0.31441E-59 - 4 2 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70062E-56 0.47461E-58 - 4 2 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18857E-54 0.68930E-57 - 4 2 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50661E-53 0.98474E-56 - 4 2 0.31275E-10 0.10000E+01 0.61026E+04 0.45469E-44 0.13609E-51 0.13991E-54 - 4 2 0.31275E-10 0.10000E+01 0.49215E+04 0.64066E-43 0.36552E-50 0.19838E-53 - 4 2 0.31275E-10 0.10000E+01 0.39689E+04 0.90253E-42 0.98157E-49 0.28095E-52 - 4 2 0.31275E-10 0.10000E+01 0.32008E+04 0.39979E-39 0.85219E-46 0.12501E-49 - 4 2 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14318E-36 0.91999E-41 - 4 2 0.31275E-10 0.10000E+01 0.20817E+04 0.55762E-14 0.12154E-19 0.17582E-24 + 4 2 0.31275E-10 0.10000E+01 0.80645E+05 0.93633E-15 0.31782E-25 0.77689E-25 + 4 2 0.31275E-10 0.10000E+01 0.65036E+05 0.13855E-14 0.16699E-24 0.10412E-24 + 4 2 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85821E-24 0.14727E-24 + 4 2 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42261E-23 0.23372E-24 + 4 2 0.31275E-10 0.10000E+01 0.34111E+05 0.11110E-13 0.20043E-22 0.43385E-24 + 4 2 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92732E-22 0.92465E-24 + 4 2 0.31275E-10 0.10000E+01 0.22184E+05 0.67240E-13 0.42342E-21 0.21378E-23 + 4 2 0.31275E-10 0.10000E+01 0.17891E+05 0.16510E-12 0.19218E-20 0.51100E-23 + 4 2 0.31275E-10 0.10000E+01 0.14428E+05 0.40094E-12 0.87015E-20 0.12317E-22 + 4 2 0.31275E-10 0.10000E+01 0.11635E+05 0.96473E-12 0.39360E-19 0.29661E-22 + 4 2 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71197E-22 + 4 2 0.31275E-10 0.10000E+01 0.75673E+04 0.54936E-11 0.80119E-18 0.17035E-21 + 4 2 0.31275E-10 0.10000E+01 0.61026E+04 0.13043E-10 0.35771E-17 0.40626E-21 + 4 2 0.31275E-10 0.10000E+01 0.49215E+04 0.30842E-10 0.15704E-16 0.96446E-21 + 4 2 0.31275E-10 0.10000E+01 0.39689E+04 0.72395E-10 0.67410E-16 0.22714E-20 + 4 2 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28252E-15 0.52829E-20 + 4 2 0.31275E-10 0.10000E+01 0.25813E+04 0.38336E-09 0.11562E-14 0.12085E-19 + 4 2 0.31275E-10 0.10000E+01 0.20817E+04 0.85883E-09 0.46147E-14 0.27118E-19 4 2 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59583E-19 4 2 0.31275E-10 0.10000E+01 0.13538E+04 0.40464E-08 0.68176E-13 0.12804E-18 4 2 0.31275E-10 0.10000E+01 0.10918E+04 0.84958E-08 0.25421E-12 0.26902E-18 @@ -20830,24 +20830,24 @@ VERSION 2.8.2 4 2 0.31275E-10 0.10000E+01 0.24221E+03 0.84414E-06 0.77880E-09 0.26766E-16 4 2 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 4 2 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 4 2 0.54572E-10 0.10000E+01 0.80645E+05 0.25907E-57 0.19499E-68 0.35812E-67 - 4 2 0.54572E-10 0.10000E+01 0.65036E+05 0.22059E-56 0.31832E-67 0.31260E-66 - 4 2 0.54572E-10 0.10000E+01 0.52449E+05 0.19290E-55 0.49279E-66 0.26911E-65 - 4 2 0.54572E-10 0.10000E+01 0.42297E+05 0.16491E-54 0.10213E-64 0.20746E-64 - 4 2 0.54572E-10 0.10000E+01 0.34111E+05 0.17291E-53 0.28413E-63 0.16368E-63 - 4 2 0.54572E-10 0.10000E+01 0.27509E+05 0.24064E-52 0.90984E-62 0.15314E-62 - 4 2 0.54572E-10 0.10000E+01 0.22184E+05 0.39345E-51 0.29448E-60 0.19333E-61 - 4 2 0.54572E-10 0.10000E+01 0.17891E+05 0.65763E-50 0.89314E-59 0.30540E-60 - 4 2 0.54572E-10 0.10000E+01 0.14428E+05 0.10437E-48 0.25334E-57 0.49593E-59 - 4 2 0.54572E-10 0.10000E+01 0.11635E+05 0.15617E-47 0.69341E-56 0.76506E-58 - 4 2 0.54572E-10 0.10000E+01 0.93834E+04 0.22543E-46 0.18754E-54 0.11306E-56 - 4 2 0.54572E-10 0.10000E+01 0.75673E+04 0.32059E-45 0.50583E-53 0.16361E-55 - 4 2 0.54572E-10 0.10000E+01 0.61026E+04 0.45384E-44 0.13632E-51 0.23472E-54 - 4 2 0.54572E-10 0.10000E+01 0.49215E+04 0.64161E-43 0.36718E-50 0.33535E-53 - 4 2 0.54572E-10 0.10000E+01 0.39689E+04 0.90641E-42 0.98828E-49 0.47778E-52 - 4 2 0.54572E-10 0.10000E+01 0.32008E+04 0.40246E-39 0.85974E-46 0.21363E-49 - 4 2 0.54572E-10 0.10000E+01 0.25813E+04 0.29562E-30 0.14474E-36 0.15788E-40 - 4 2 0.54572E-10 0.10000E+01 0.20817E+04 0.56384E-14 0.12313E-19 0.30304E-24 + 4 2 0.54572E-10 0.10000E+01 0.80645E+05 0.18083E-14 0.34491E-25 0.23736E-24 + 4 2 0.54572E-10 0.10000E+01 0.65036E+05 0.24836E-14 0.16761E-24 0.31160E-24 + 4 2 0.54572E-10 0.10000E+01 0.52449E+05 0.36983E-14 0.84252E-24 0.41677E-24 + 4 2 0.54572E-10 0.10000E+01 0.42297E+05 0.63465E-14 0.41439E-23 0.59374E-24 + 4 2 0.54572E-10 0.10000E+01 0.34111E+05 0.12762E-13 0.19741E-22 0.95339E-24 + 4 2 0.54572E-10 0.10000E+01 0.27509E+05 0.28762E-13 0.91817E-22 0.17818E-23 + 4 2 0.54572E-10 0.10000E+01 0.22184E+05 0.68434E-13 0.42119E-21 0.37900E-23 + 4 2 0.54572E-10 0.10000E+01 0.17891E+05 0.16547E-12 0.19192E-20 0.87080E-23 + 4 2 0.54572E-10 0.10000E+01 0.14428E+05 0.40004E-12 0.87183E-20 0.20707E-22 + 4 2 0.54572E-10 0.10000E+01 0.11635E+05 0.96273E-12 0.39543E-19 0.49799E-22 + 4 2 0.54572E-10 0.10000E+01 0.93834E+04 0.23064E-11 0.17909E-18 0.11995E-21 + 4 2 0.54572E-10 0.10000E+01 0.75673E+04 0.55060E-11 0.80825E-18 0.28841E-21 + 4 2 0.54572E-10 0.10000E+01 0.61026E+04 0.13104E-10 0.36140E-17 0.69120E-21 + 4 2 0.54572E-10 0.10000E+01 0.49215E+04 0.31049E-10 0.15884E-16 0.16479E-20 + 4 2 0.54572E-10 0.10000E+01 0.39689E+04 0.73011E-10 0.68240E-16 0.38947E-20 + 4 2 0.54572E-10 0.10000E+01 0.32008E+04 0.16960E-09 0.28618E-15 0.90840E-20 + 4 2 0.54572E-10 0.10000E+01 0.25813E+04 0.38760E-09 0.11717E-14 0.20826E-19 + 4 2 0.54572E-10 0.10000E+01 0.20817E+04 0.86908E-09 0.46782E-14 0.46808E-19 4 2 0.54572E-10 0.10000E+01 0.16788E+04 0.19084E-08 0.18200E-13 0.10297E-18 4 2 0.54572E-10 0.10000E+01 0.13538E+04 0.40994E-08 0.69138E-13 0.22149E-18 4 2 0.54572E-10 0.10000E+01 0.10918E+04 0.86102E-08 0.25781E-12 0.46567E-18 @@ -20860,24 +20860,24 @@ VERSION 2.8.2 4 2 0.54572E-10 0.10000E+01 0.24221E+03 0.85614E-06 0.78989E-09 0.46395E-16 4 2 0.54572E-10 0.10000E+01 0.19533E+03 0.13493E-05 0.15010E-08 0.73122E-16 4 2 0.54572E-10 0.10000E+01 0.15752E+03 0.13493E-05 0.15010E-08 0.73122E-16 - 4 2 0.95225E-10 0.10000E+01 0.80645E+05 0.53559E-57 0.41313E-68 0.11278E-66 - 4 2 0.95225E-10 0.10000E+01 0.65036E+05 0.46413E-56 0.66243E-67 0.98085E-66 - 4 2 0.95225E-10 0.10000E+01 0.52449E+05 0.40036E-55 0.93198E-66 0.84373E-65 - 4 2 0.95225E-10 0.10000E+01 0.42297E+05 0.31445E-54 0.15019E-64 0.64171E-64 - 4 2 0.95225E-10 0.10000E+01 0.34111E+05 0.26334E-53 0.30904E-63 0.47062E-63 - 4 2 0.95225E-10 0.10000E+01 0.27509E+05 0.27376E-52 0.84128E-62 0.36203E-62 - 4 2 0.95225E-10 0.10000E+01 0.22184E+05 0.37479E-51 0.26613E-60 0.35140E-61 - 4 2 0.95225E-10 0.10000E+01 0.17891E+05 0.60047E-50 0.82295E-59 0.48732E-60 - 4 2 0.95225E-10 0.10000E+01 0.14428E+05 0.96257E-49 0.23795E-57 0.78455E-59 - 4 2 0.95225E-10 0.10000E+01 0.11635E+05 0.14650E-47 0.66022E-56 0.12347E-57 - 4 2 0.95225E-10 0.10000E+01 0.93834E+04 0.21438E-46 0.18035E-54 0.18581E-56 - 4 2 0.95225E-10 0.10000E+01 0.75673E+04 0.30802E-45 0.49018E-53 0.27246E-55 - 4 2 0.95225E-10 0.10000E+01 0.61026E+04 0.43951E-44 0.13292E-51 0.39471E-54 - 4 2 0.95225E-10 0.10000E+01 0.49215E+04 0.62528E-43 0.35981E-50 0.56815E-53 - 4 2 0.95225E-10 0.10000E+01 0.39689E+04 0.88784E-42 0.97238E-49 0.81424E-52 - 4 2 0.95225E-10 0.10000E+01 0.32008E+04 0.39588E-39 0.84885E-46 0.36583E-49 - 4 2 0.95225E-10 0.10000E+01 0.25813E+04 0.29188E-30 0.14340E-36 0.27153E-40 - 4 2 0.95225E-10 0.10000E+01 0.20817E+04 0.55886E-14 0.12243E-19 0.52348E-24 + 4 2 0.95225E-10 0.10000E+01 0.80645E+05 0.35918E-14 0.41410E-25 0.74703E-24 + 4 2 0.95225E-10 0.10000E+01 0.65036E+05 0.47498E-14 0.17053E-24 0.96866E-24 + 4 2 0.95225E-10 0.10000E+01 0.52449E+05 0.64755E-14 0.80220E-24 0.12550E-23 + 4 2 0.95225E-10 0.10000E+01 0.42297E+05 0.95748E-14 0.38944E-23 0.16681E-23 + 4 2 0.95225E-10 0.10000E+01 0.34111E+05 0.16197E-13 0.18651E-22 0.23813E-23 + 4 2 0.95225E-10 0.10000E+01 0.27509E+05 0.31808E-13 0.87552E-22 0.38553E-23 + 4 2 0.95225E-10 0.10000E+01 0.22184E+05 0.69850E-13 0.40521E-21 0.72604E-23 + 4 2 0.95225E-10 0.10000E+01 0.17891E+05 0.16281E-12 0.18602E-20 0.15488E-22 + 4 2 0.95225E-10 0.10000E+01 0.14428E+05 0.38860E-12 0.85023E-20 0.35580E-22 + 4 2 0.95225E-10 0.10000E+01 0.11635E+05 0.93352E-12 0.38756E-19 0.84555E-22 + 4 2 0.95225E-10 0.10000E+01 0.93834E+04 0.22423E-11 0.17623E-18 0.20338E-21 + 4 2 0.95225E-10 0.10000E+01 0.75673E+04 0.53743E-11 0.79793E-18 0.49031E-21 + 4 2 0.95225E-10 0.10000E+01 0.61026E+04 0.12842E-10 0.35769E-17 0.11796E-20 + 4 2 0.95225E-10 0.10000E+01 0.49215E+04 0.30542E-10 0.15752E-16 0.28231E-20 + 4 2 0.95225E-10 0.10000E+01 0.39689E+04 0.72038E-10 0.67768E-16 0.66943E-20 + 4 2 0.95225E-10 0.10000E+01 0.32008E+04 0.16775E-09 0.28450E-15 0.15656E-19 + 4 2 0.95225E-10 0.10000E+01 0.25813E+04 0.38411E-09 0.11657E-14 0.35970E-19 + 4 2 0.95225E-10 0.10000E+01 0.20817E+04 0.86252E-09 0.46569E-14 0.80978E-19 4 2 0.95225E-10 0.10000E+01 0.16788E+04 0.18961E-08 0.18124E-13 0.17837E-18 4 2 0.95225E-10 0.10000E+01 0.13538E+04 0.40764E-08 0.68864E-13 0.38402E-18 4 2 0.95225E-10 0.10000E+01 0.10918E+04 0.85670E-08 0.25682E-12 0.80793E-18 @@ -20890,24 +20890,24 @@ VERSION 2.8.2 4 2 0.95225E-10 0.10000E+01 0.24221E+03 0.85289E-06 0.78693E-09 0.80606E-16 4 2 0.95225E-10 0.10000E+01 0.19533E+03 0.13442E-05 0.14954E-08 0.12704E-15 4 2 0.95225E-10 0.10000E+01 0.15752E+03 0.13442E-05 0.14954E-08 0.12704E-15 - 4 2 0.16616E-09 0.10000E+01 0.80645E+05 0.10971E-56 0.84385E-68 0.39282E-66 - 4 2 0.16616E-09 0.10000E+01 0.65036E+05 0.94838E-56 0.13469E-66 0.33517E-65 - 4 2 0.16616E-09 0.10000E+01 0.52449E+05 0.81345E-55 0.18311E-65 0.28497E-64 - 4 2 0.16616E-09 0.10000E+01 0.42297E+05 0.61893E-54 0.25747E-64 0.21247E-63 - 4 2 0.16616E-09 0.10000E+01 0.34111E+05 0.46080E-53 0.39954E-63 0.14889E-62 - 4 2 0.16616E-09 0.10000E+01 0.27509E+05 0.37207E-52 0.82161E-62 0.10269E-61 - 4 2 0.16616E-09 0.10000E+01 0.22184E+05 0.38638E-51 0.23751E-60 0.80001E-61 - 4 2 0.16616E-09 0.10000E+01 0.17891E+05 0.54910E-50 0.74403E-59 0.90435E-60 - 4 2 0.16616E-09 0.10000E+01 0.14428E+05 0.87413E-49 0.22037E-57 0.13601E-58 - 4 2 0.16616E-09 0.10000E+01 0.11635E+05 0.13553E-47 0.62211E-56 0.21226E-57 - 4 2 0.16616E-09 0.10000E+01 0.93834E+04 0.20170E-46 0.17199E-54 0.31974E-56 - 4 2 0.16616E-09 0.10000E+01 0.75673E+04 0.29343E-45 0.47169E-53 0.46915E-55 - 4 2 0.16616E-09 0.10000E+01 0.61026E+04 0.42261E-44 0.12882E-51 0.67982E-54 - 4 2 0.16616E-09 0.10000E+01 0.49215E+04 0.60562E-43 0.35071E-50 0.97901E-53 - 4 2 0.16616E-09 0.10000E+01 0.39689E+04 0.86499E-42 0.95227E-49 0.14043E-51 - 4 2 0.16616E-09 0.10000E+01 0.32008E+04 0.38758E-39 0.83468E-46 0.63171E-49 - 4 2 0.16616E-09 0.10000E+01 0.25813E+04 0.28701E-30 0.14158E-36 0.46959E-40 - 4 2 0.16616E-09 0.10000E+01 0.20817E+04 0.55207E-14 0.12141E-19 0.90720E-24 + 4 2 0.16616E-09 0.10000E+01 0.80645E+05 0.73073E-14 0.58869E-25 0.26322E-23 + 4 2 0.16616E-09 0.10000E+01 0.65036E+05 0.94826E-14 0.19321E-24 0.33787E-23 + 4 2 0.16616E-09 0.10000E+01 0.52449E+05 0.12337E-13 0.79192E-24 0.42900E-23 + 4 2 0.16616E-09 0.10000E+01 0.42297E+05 0.16574E-13 0.36691E-23 0.54672E-23 + 4 2 0.16616E-09 0.10000E+01 0.34111E+05 0.24120E-13 0.17492E-22 0.71954E-23 + 4 2 0.16616E-09 0.10000E+01 0.27509E+05 0.40018E-13 0.82763E-22 0.10249E-22 + 4 2 0.16616E-09 0.10000E+01 0.22184E+05 0.76935E-13 0.38675E-21 0.16623E-22 + 4 2 0.16616E-09 0.10000E+01 0.17891E+05 0.16592E-12 0.17907E-20 0.31279E-22 + 4 2 0.16616E-09 0.10000E+01 0.14428E+05 0.38218E-12 0.82422E-20 0.66335E-22 + 4 2 0.16616E-09 0.10000E+01 0.11635E+05 0.90676E-12 0.37785E-19 0.15113E-21 + 4 2 0.16616E-09 0.10000E+01 0.93834E+04 0.21742E-11 0.17263E-18 0.35637E-21 + 4 2 0.16616E-09 0.10000E+01 0.75673E+04 0.52241E-11 0.78454E-18 0.85183E-21 + 4 2 0.16616E-09 0.10000E+01 0.61026E+04 0.12531E-10 0.35274E-17 0.20428E-20 + 4 2 0.16616E-09 0.10000E+01 0.49215E+04 0.29915E-10 0.15569E-16 0.48853E-20 + 4 2 0.16616E-09 0.10000E+01 0.39689E+04 0.70798E-10 0.67096E-16 0.11588E-19 + 4 2 0.16616E-09 0.10000E+01 0.32008E+04 0.16532E-09 0.28203E-15 0.27117E-19 + 4 2 0.16616E-09 0.10000E+01 0.25813E+04 0.37938E-09 0.11567E-14 0.62345E-19 + 4 2 0.16616E-09 0.10000E+01 0.20817E+04 0.85336E-09 0.46237E-14 0.14045E-18 4 2 0.16616E-09 0.10000E+01 0.16788E+04 0.18784E-08 0.18002E-13 0.30953E-18 4 2 0.16616E-09 0.10000E+01 0.13538E+04 0.40422E-08 0.68421E-13 0.66670E-18 4 2 0.16616E-09 0.10000E+01 0.10918E+04 0.85014E-08 0.25521E-12 0.14031E-17 @@ -20920,24 +20920,24 @@ VERSION 2.8.2 4 2 0.16616E-09 0.10000E+01 0.24221E+03 0.84757E-06 0.78205E-09 0.14007E-15 4 2 0.16616E-09 0.10000E+01 0.19533E+03 0.13358E-05 0.14862E-08 0.22077E-15 4 2 0.16616E-09 0.10000E+01 0.15752E+03 0.13358E-05 0.14862E-08 0.22077E-15 - 4 2 0.28994E-09 0.10000E+01 0.80645E+05 0.22403E-56 0.16915E-67 0.14455E-65 - 4 2 0.28994E-09 0.10000E+01 0.65036E+05 0.19082E-55 0.26798E-66 0.12155E-64 - 4 2 0.28994E-09 0.10000E+01 0.52449E+05 0.16207E-54 0.35589E-65 0.10238E-63 - 4 2 0.28994E-09 0.10000E+01 0.42297E+05 0.12080E-53 0.46898E-64 0.75318E-63 - 4 2 0.28994E-09 0.10000E+01 0.34111E+05 0.85077E-53 0.62165E-63 0.51693E-62 - 4 2 0.28994E-09 0.10000E+01 0.27509E+05 0.59859E-52 0.97335E-62 0.34189E-61 - 4 2 0.28994E-09 0.10000E+01 0.22184E+05 0.48548E-51 0.23468E-60 0.23443E-60 - 4 2 0.28994E-09 0.10000E+01 0.17891E+05 0.56452E-50 0.71312E-59 0.21039E-59 - 4 2 0.28994E-09 0.10000E+01 0.14428E+05 0.84702E-49 0.21271E-57 0.27030E-58 - 4 2 0.28994E-09 0.10000E+01 0.11635E+05 0.13095E-47 0.60439E-56 0.39795E-57 - 4 2 0.28994E-09 0.10000E+01 0.93834E+04 0.19584E-46 0.16767E-54 0.58522E-56 - 4 2 0.28994E-09 0.10000E+01 0.75673E+04 0.28594E-45 0.46088E-53 0.84538E-55 - 4 2 0.28994E-09 0.10000E+01 0.61026E+04 0.41286E-44 0.12613E-51 0.12104E-53 - 4 2 0.28994E-09 0.10000E+01 0.49215E+04 0.59293E-43 0.34412E-50 0.17276E-52 - 4 2 0.28994E-09 0.10000E+01 0.39689E+04 0.84866E-42 0.93636E-49 0.24631E-51 - 4 2 0.28994E-09 0.10000E+01 0.32008E+04 0.38109E-39 0.82249E-46 0.11036E-48 - 4 2 0.28994E-09 0.10000E+01 0.25813E+04 0.28285E-30 0.13985E-36 0.81848E-40 - 4 2 0.28994E-09 0.10000E+01 0.20817E+04 0.54558E-14 0.12026E-19 0.15791E-23 + 4 2 0.28994E-09 0.10000E+01 0.80645E+05 0.15034E-13 0.97706E-25 0.97759E-23 + 4 2 0.28994E-09 0.10000E+01 0.65036E+05 0.19304E-13 0.26415E-24 0.12480E-22 + 4 2 0.28994E-09 0.10000E+01 0.52449E+05 0.24545E-13 0.89700E-24 0.15694E-22 + 4 2 0.28994E-09 0.10000E+01 0.42297E+05 0.31399E-13 0.37495E-23 0.19601E-22 + 4 2 0.28994E-09 0.10000E+01 0.34111E+05 0.41648E-13 0.17235E-22 0.24706E-22 + 4 2 0.28994E-09 0.10000E+01 0.27509E+05 0.60068E-13 0.80824E-22 0.32380E-22 + 4 2 0.28994E-09 0.10000E+01 0.22184E+05 0.98866E-13 0.37750E-21 0.46174E-22 + 4 2 0.28994E-09 0.10000E+01 0.17891E+05 0.18824E-12 0.17507E-20 0.74899E-22 + 4 2 0.28994E-09 0.10000E+01 0.14428E+05 0.40166E-12 0.80747E-20 0.13996E-21 + 4 2 0.28994E-09 0.10000E+01 0.11635E+05 0.91659E-12 0.37095E-19 0.29292E-21 + 4 2 0.28994E-09 0.10000E+01 0.93834E+04 0.21599E-11 0.16982E-18 0.65748E-21 + 4 2 0.28994E-09 0.10000E+01 0.75673E+04 0.51549E-11 0.77322E-18 0.15298E-20 + 4 2 0.28994E-09 0.10000E+01 0.61026E+04 0.12342E-10 0.34822E-17 0.36159E-20 + 4 2 0.28994E-09 0.10000E+01 0.49215E+04 0.29470E-10 0.15390E-16 0.85790E-20 + 4 2 0.28994E-09 0.10000E+01 0.39689E+04 0.69815E-10 0.66396E-16 0.20260E-19 + 4 2 0.28994E-09 0.10000E+01 0.32008E+04 0.16322E-09 0.27931E-15 0.47297E-19 + 4 2 0.28994E-09 0.10000E+01 0.25813E+04 0.37496E-09 0.11462E-14 0.10859E-18 + 4 2 0.28994E-09 0.10000E+01 0.20817E+04 0.84420E-09 0.45839E-14 0.24444E-18 4 2 0.28994E-09 0.10000E+01 0.16788E+04 0.18597E-08 0.17852E-13 0.53848E-18 4 2 0.28994E-09 0.10000E+01 0.13538E+04 0.40043E-08 0.67862E-13 0.11595E-17 4 2 0.28994E-09 0.10000E+01 0.10918E+04 0.84254E-08 0.25314E-12 0.24400E-17 @@ -20950,24 +20950,24 @@ VERSION 2.8.2 4 2 0.28994E-09 0.10000E+01 0.24221E+03 0.84070E-06 0.77573E-09 0.24348E-15 4 2 0.28994E-09 0.10000E+01 0.19533E+03 0.13250E-05 0.14741E-08 0.38374E-15 4 2 0.28994E-09 0.10000E+01 0.15752E+03 0.13250E-05 0.14741E-08 0.38374E-15 - 4 2 0.50593E-09 0.10000E+01 0.80645E+05 0.44812E-56 0.33357E-67 0.48481E-65 - 4 2 0.50593E-09 0.10000E+01 0.65036E+05 0.37742E-55 0.52561E-66 0.40633E-64 - 4 2 0.50593E-09 0.10000E+01 0.52449E+05 0.31829E-54 0.68909E-65 0.34180E-63 - 4 2 0.50593E-09 0.10000E+01 0.42297E+05 0.23470E-53 0.88689E-64 0.25145E-62 - 4 2 0.50593E-09 0.10000E+01 0.34111E+05 0.16193E-52 0.11128E-62 0.17314E-61 - 4 2 0.50593E-09 0.10000E+01 0.27509E+05 0.10837E-51 0.14757E-61 0.11479E-60 - 4 2 0.50593E-09 0.10000E+01 0.22184E+05 0.76158E-51 0.27918E-60 0.75027E-60 - 4 2 0.50593E-09 0.10000E+01 0.17891E+05 0.70497E-50 0.75599E-59 0.55612E-59 - 4 2 0.50593E-09 0.10000E+01 0.14428E+05 0.91889E-49 0.21911E-57 0.56675E-58 - 4 2 0.50593E-09 0.10000E+01 0.11635E+05 0.13572E-47 0.61646E-56 0.74594E-57 - 4 2 0.50593E-09 0.10000E+01 0.93834E+04 0.20003E-46 0.16976E-54 0.10598E-55 - 4 2 0.50593E-09 0.10000E+01 0.75673E+04 0.28967E-45 0.46375E-53 0.15118E-54 - 4 2 0.50593E-09 0.10000E+01 0.61026E+04 0.41565E-44 0.12634E-51 0.21462E-53 - 4 2 0.50593E-09 0.10000E+01 0.49215E+04 0.59421E-43 0.34371E-50 0.30416E-52 - 4 2 0.50593E-09 0.10000E+01 0.39689E+04 0.84795E-42 0.93378E-49 0.43125E-51 - 4 2 0.50593E-09 0.10000E+01 0.32008E+04 0.38013E-39 0.81969E-46 0.19249E-48 - 4 2 0.50593E-09 0.10000E+01 0.25813E+04 0.28195E-30 0.13938E-36 0.14242E-39 - 4 2 0.50593E-09 0.10000E+01 0.20817E+04 0.54393E-14 0.11991E-19 0.27442E-23 + 4 2 0.50593E-09 0.10000E+01 0.80645E+05 0.30281E-13 0.17842E-24 0.32877E-22 + 4 2 0.50593E-09 0.10000E+01 0.65036E+05 0.38691E-13 0.42919E-24 0.41940E-22 + 4 2 0.50593E-09 0.10000E+01 0.52449E+05 0.48726E-13 0.12185E-23 0.52632E-22 + 4 2 0.50593E-09 0.10000E+01 0.42297E+05 0.61033E-13 0.43620E-23 0.65323E-22 + 4 2 0.50593E-09 0.10000E+01 0.34111E+05 0.77357E-13 0.18440E-22 0.80885E-22 + 4 2 0.50593E-09 0.10000E+01 0.27509E+05 0.10243E-12 0.83396E-22 0.10167E-21 + 4 2 0.50593E-09 0.10000E+01 0.22184E+05 0.14843E-12 0.38335E-21 0.13382E-21 + 4 2 0.50593E-09 0.10000E+01 0.17891E+05 0.24565E-12 0.17634E-20 0.19277E-21 + 4 2 0.50593E-09 0.10000E+01 0.14428E+05 0.46767E-12 0.80942E-20 0.31607E-21 + 4 2 0.50593E-09 0.10000E+01 0.11635E+05 0.99191E-12 0.37077E-19 0.59400E-21 + 4 2 0.50593E-09 0.10000E+01 0.93834E+04 0.22444E-11 0.16946E-18 0.12426E-20 + 4 2 0.50593E-09 0.10000E+01 0.75673E+04 0.52454E-11 0.77098E-18 0.27776E-20 + 4 2 0.50593E-09 0.10000E+01 0.61026E+04 0.12427E-10 0.34713E-17 0.64266E-20 + 4 2 0.50593E-09 0.10000E+01 0.49215E+04 0.29519E-10 0.15342E-16 0.15079E-19 + 4 2 0.50593E-09 0.10000E+01 0.39689E+04 0.69753E-10 0.66195E-16 0.35405E-19 + 4 2 0.50593E-09 0.10000E+01 0.32008E+04 0.16288E-09 0.27851E-15 0.82399E-19 + 4 2 0.50593E-09 0.10000E+01 0.25813E+04 0.37400E-09 0.11431E-14 0.18887E-18 + 4 2 0.50593E-09 0.10000E+01 0.20817E+04 0.84190E-09 0.45719E-14 0.42478E-18 4 2 0.50593E-09 0.10000E+01 0.16788E+04 0.18546E-08 0.17807E-13 0.93529E-18 4 2 0.50593E-09 0.10000E+01 0.13538E+04 0.39935E-08 0.67691E-13 0.20135E-17 4 2 0.50593E-09 0.10000E+01 0.10918E+04 0.84030E-08 0.25250E-12 0.42362E-17 @@ -20980,24 +20980,24 @@ VERSION 2.8.2 4 2 0.50593E-09 0.10000E+01 0.24221E+03 0.83850E-06 0.77366E-09 0.42252E-15 4 2 0.50593E-09 0.10000E+01 0.19533E+03 0.13215E-05 0.14702E-08 0.66591E-15 4 2 0.50593E-09 0.10000E+01 0.15752E+03 0.13215E-05 0.14702E-08 0.66591E-15 - 4 2 0.88282E-09 0.10000E+01 0.80645E+05 0.87719E-56 0.64998E-67 0.15069E-64 - 4 2 0.88282E-09 0.10000E+01 0.65036E+05 0.73618E-55 0.10233E-65 0.12650E-63 - 4 2 0.88282E-09 0.10000E+01 0.52449E+05 0.61993E-54 0.13409E-64 0.10664E-62 - 4 2 0.88282E-09 0.10000E+01 0.42297E+05 0.45691E-53 0.17303E-63 0.78876E-62 - 4 2 0.88282E-09 0.10000E+01 0.34111E+05 0.31573E-52 0.21726E-62 0.54959E-61 - 4 2 0.88282E-09 0.10000E+01 0.27509E+05 0.21070E-51 0.26874E-61 0.37098E-60 - 4 2 0.88282E-09 0.10000E+01 0.22184E+05 0.13950E-50 0.39763E-60 0.24160E-59 - 4 2 0.88282E-09 0.10000E+01 0.17891E+05 0.10536E-49 0.85384E-59 0.15941E-58 - 4 2 0.88282E-09 0.10000E+01 0.14428E+05 0.10873E-48 0.22760E-57 0.12557E-57 - 4 2 0.88282E-09 0.10000E+01 0.11635E+05 0.14366E-47 0.62825E-56 0.13551E-56 - 4 2 0.88282E-09 0.10000E+01 0.93834E+04 0.20483E-46 0.17190E-54 0.18095E-55 - 4 2 0.88282E-09 0.10000E+01 0.75673E+04 0.29361E-45 0.46706E-53 0.25715E-54 - 4 2 0.88282E-09 0.10000E+01 0.61026E+04 0.41877E-44 0.12661E-51 0.36715E-53 - 4 2 0.88282E-09 0.10000E+01 0.49215E+04 0.59570E-43 0.34311E-50 0.52226E-52 - 4 2 0.88282E-09 0.10000E+01 0.39689E+04 0.84682E-42 0.92986E-49 0.74163E-51 - 4 2 0.88282E-09 0.10000E+01 0.32008E+04 0.37864E-39 0.81513E-46 0.33129E-48 - 4 2 0.88282E-09 0.10000E+01 0.25813E+04 0.28046E-30 0.13853E-36 0.24534E-39 - 4 2 0.88282E-09 0.10000E+01 0.20817E+04 0.54081E-14 0.11919E-19 0.47353E-23 + 4 2 0.88282E-09 0.10000E+01 0.80645E+05 0.59444E-13 0.34237E-24 0.10217E-21 + 4 2 0.88282E-09 0.10000E+01 0.65036E+05 0.75874E-13 0.77656E-24 0.13048E-21 + 4 2 0.88282E-09 0.10000E+01 0.52449E+05 0.95305E-13 0.19154E-23 0.16391E-21 + 4 2 0.88282E-09 0.10000E+01 0.42297E+05 0.11847E-12 0.56846E-23 0.20331E-21 + 4 2 0.88282E-09 0.10000E+01 0.34111E+05 0.14707E-12 0.20865E-22 0.25012E-21 + 4 2 0.88282E-09 0.10000E+01 0.27509E+05 0.18571E-12 0.87889E-22 0.30797E-21 + 4 2 0.88282E-09 0.10000E+01 0.22184E+05 0.24636E-12 0.39209E-21 0.38663E-21 + 4 2 0.88282E-09 0.10000E+01 0.17891E+05 0.35910E-12 0.17803E-20 0.51153E-21 + 4 2 0.88282E-09 0.10000E+01 0.14428E+05 0.59741E-12 0.81171E-20 0.74608E-21 + 4 2 0.88282E-09 0.10000E+01 0.11635E+05 0.11384E-11 0.37034E-19 0.12446E-20 + 4 2 0.88282E-09 0.10000E+01 0.93834E+04 0.24065E-11 0.16885E-18 0.23780E-20 + 4 2 0.88282E-09 0.10000E+01 0.75673E+04 0.54173E-11 0.76714E-18 0.50346E-20 + 4 2 0.88282E-09 0.10000E+01 0.61026E+04 0.12589E-10 0.34516E-17 0.11329E-19 + 4 2 0.88282E-09 0.10000E+01 0.49215E+04 0.29616E-10 0.15251E-16 0.26247E-19 + 4 2 0.88282E-09 0.10000E+01 0.39689E+04 0.69648E-10 0.65795E-16 0.61300E-19 + 4 2 0.88282E-09 0.10000E+01 0.32008E+04 0.16225E-09 0.27683E-15 0.14239E-18 + 4 2 0.88282E-09 0.10000E+01 0.25813E+04 0.37214E-09 0.11362E-14 0.32623E-18 + 4 2 0.88282E-09 0.10000E+01 0.20817E+04 0.83725E-09 0.45448E-14 0.73374E-18 4 2 0.88282E-09 0.10000E+01 0.16788E+04 0.18439E-08 0.17702E-13 0.16160E-17 4 2 0.88282E-09 0.10000E+01 0.13538E+04 0.39701E-08 0.67290E-13 0.34799E-17 4 2 0.88282E-09 0.10000E+01 0.10918E+04 0.83535E-08 0.25099E-12 0.73231E-17 @@ -21010,24 +21010,24 @@ VERSION 2.8.2 4 2 0.88282E-09 0.10000E+01 0.24221E+03 0.83338E-06 0.76887E-09 0.73065E-15 4 2 0.88282E-09 0.10000E+01 0.19533E+03 0.13134E-05 0.14611E-08 0.11515E-14 4 2 0.88282E-09 0.10000E+01 0.15752E+03 0.13134E-05 0.14611E-08 0.11515E-14 - 4 2 0.15405E-08 0.10000E+01 0.80645E+05 0.16981E-55 0.12597E-66 0.46489E-64 - 4 2 0.15405E-08 0.10000E+01 0.65036E+05 0.14265E-54 0.19870E-65 0.39116E-63 - 4 2 0.15405E-08 0.10000E+01 0.52449E+05 0.12035E-53 0.26190E-64 0.33060E-62 - 4 2 0.15405E-08 0.10000E+01 0.42297E+05 0.89127E-53 0.34252E-63 0.24584E-61 - 4 2 0.15405E-08 0.10000E+01 0.34111E+05 0.62258E-52 0.43946E-62 0.17320E-60 - 4 2 0.15405E-08 0.10000E+01 0.27509E+05 0.42225E-51 0.53947E-61 0.11910E-59 - 4 2 0.15405E-08 0.10000E+01 0.22184E+05 0.27731E-50 0.67705E-60 0.78812E-59 - 4 2 0.15405E-08 0.10000E+01 0.17891E+05 0.18461E-49 0.10590E-58 0.49995E-58 - 4 2 0.15405E-08 0.10000E+01 0.14428E+05 0.14484E-48 0.23196E-57 0.32564E-57 - 4 2 0.15405E-08 0.10000E+01 0.11635E+05 0.15350E-47 0.61211E-56 0.26360E-56 - 4 2 0.15405E-08 0.10000E+01 0.93834E+04 0.20263E-46 0.16806E-54 0.29996E-55 - 4 2 0.15405E-08 0.10000E+01 0.75673E+04 0.28768E-45 0.45976E-53 0.41633E-54 - 4 2 0.15405E-08 0.10000E+01 0.61026E+04 0.41198E-44 0.12501E-51 0.60425E-53 - 4 2 0.15405E-08 0.10000E+01 0.49215E+04 0.58788E-43 0.33909E-50 0.87345E-52 - 4 2 0.15405E-08 0.10000E+01 0.39689E+04 0.83673E-42 0.91928E-49 0.12527E-50 - 4 2 0.15405E-08 0.10000E+01 0.32008E+04 0.37433E-39 0.80633E-46 0.56293E-48 - 4 2 0.15405E-08 0.10000E+01 0.25813E+04 0.27748E-30 0.13720E-36 0.41868E-39 - 4 2 0.15405E-08 0.10000E+01 0.20817E+04 0.53588E-14 0.11825E-19 0.81165E-23 + 4 2 0.15405E-08 0.10000E+01 0.80645E+05 0.11509E-12 0.67222E-24 0.31498E-21 + 4 2 0.15405E-08 0.10000E+01 0.65036E+05 0.14703E-12 0.14927E-23 0.40275E-21 + 4 2 0.15405E-08 0.10000E+01 0.52449E+05 0.18481E-12 0.33748E-23 0.50684E-21 + 4 2 0.15405E-08 0.10000E+01 0.42297E+05 0.22943E-12 0.83939E-23 0.62956E-21 + 4 2 0.15405E-08 0.10000E+01 0.34111E+05 0.28256E-12 0.25267E-22 0.77360E-21 + 4 2 0.15405E-08 0.10000E+01 0.27509E+05 0.34829E-12 0.93611E-22 0.94402E-21 + 4 2 0.15405E-08 0.10000E+01 0.22184E+05 0.43756E-12 0.39563E-21 0.11546E-20 + 4 2 0.15405E-08 0.10000E+01 0.17891E+05 0.57882E-12 0.17667E-20 0.14441E-20 + 4 2 0.15405E-08 0.10000E+01 0.14428E+05 0.84330E-12 0.80251E-20 0.19143E-20 + 4 2 0.15405E-08 0.10000E+01 0.11635E+05 0.14048E-11 0.36603E-19 0.28214E-20 + 4 2 0.15405E-08 0.10000E+01 0.93834E+04 0.26821E-11 0.16696E-18 0.47915E-20 + 4 2 0.15405E-08 0.10000E+01 0.75673E+04 0.56792E-11 0.75907E-18 0.93357E-20 + 4 2 0.15405E-08 0.10000E+01 0.61026E+04 0.12789E-10 0.34179E-17 0.20068E-19 + 4 2 0.15405E-08 0.10000E+01 0.49215E+04 0.29652E-10 0.15112E-16 0.45530E-19 + 4 2 0.15405E-08 0.10000E+01 0.39689E+04 0.69303E-10 0.65239E-16 0.10548E-18 + 4 2 0.15405E-08 0.10000E+01 0.32008E+04 0.16107E-09 0.27463E-15 0.24446E-18 + 4 2 0.15405E-08 0.10000E+01 0.25813E+04 0.36915E-09 0.11277E-14 0.56004E-18 + 4 2 0.15405E-08 0.10000E+01 0.20817E+04 0.83049E-09 0.45119E-14 0.12605E-17 4 2 0.15405E-08 0.10000E+01 0.16788E+04 0.18294E-08 0.17577E-13 0.27783E-17 4 2 0.15405E-08 0.10000E+01 0.13538E+04 0.39398E-08 0.66820E-13 0.59871E-17 4 2 0.15405E-08 0.10000E+01 0.10918E+04 0.82916E-08 0.24924E-12 0.12607E-16 @@ -21040,24 +21040,24 @@ VERSION 2.8.2 4 2 0.15405E-08 0.10000E+01 0.24221E+03 0.82741E-06 0.76330E-09 0.12589E-14 4 2 0.15405E-08 0.10000E+01 0.19533E+03 0.13040E-05 0.14505E-08 0.19840E-14 4 2 0.15405E-08 0.10000E+01 0.15752E+03 0.13040E-05 0.14505E-08 0.19840E-14 - 4 2 0.26880E-08 0.10000E+01 0.80645E+05 0.38571E-55 0.28748E-66 0.67365E-63 - 4 2 0.26880E-08 0.10000E+01 0.65036E+05 0.32529E-54 0.45528E-65 0.56867E-62 - 4 2 0.26880E-08 0.10000E+01 0.52449E+05 0.27558E-53 0.60676E-64 0.48226E-61 - 4 2 0.26880E-08 0.10000E+01 0.42297E+05 0.20595E-52 0.81194E-63 0.36115E-60 - 4 2 0.26880E-08 0.10000E+01 0.34111E+05 0.14666E-51 0.10875E-61 0.25815E-59 - 4 2 0.26880E-08 0.10000E+01 0.27509E+05 0.10310E-50 0.14226E-60 0.18251E-58 - 4 2 0.26880E-08 0.10000E+01 0.22184E+05 0.71280E-50 0.18328E-59 0.12660E-57 - 4 2 0.26880E-08 0.10000E+01 0.17891E+05 0.48638E-49 0.24447E-58 0.84938E-57 - 4 2 0.26880E-08 0.10000E+01 0.14428E+05 0.33991E-48 0.37416E-57 0.54601E-56 - 4 2 0.26880E-08 0.10000E+01 0.11635E+05 0.26516E-47 0.72263E-56 0.33655E-55 - 4 2 0.26880E-08 0.10000E+01 0.93834E+04 0.25505E-46 0.17267E-54 0.20427E-54 - 4 2 0.26880E-08 0.10000E+01 0.75673E+04 0.30540E-45 0.45936E-53 0.13637E-53 - 4 2 0.26880E-08 0.10000E+01 0.61026E+04 0.41589E-44 0.12562E-51 0.12337E-52 - 4 2 0.26880E-08 0.10000E+01 0.49215E+04 0.59145E-43 0.34306E-50 0.15497E-51 - 4 2 0.26880E-08 0.10000E+01 0.39689E+04 0.84583E-42 0.93192E-49 0.22125E-50 - 4 2 0.26880E-08 0.10000E+01 0.32008E+04 0.37920E-39 0.81639E-46 0.10020E-47 - 4 2 0.26880E-08 0.10000E+01 0.25813E+04 0.28073E-30 0.13847E-36 0.74073E-39 - 4 2 0.26880E-08 0.10000E+01 0.20817E+04 0.54029E-14 0.11879E-19 0.14155E-22 + 4 2 0.26880E-08 0.10000E+01 0.80645E+05 0.26113E-12 0.16011E-23 0.45592E-20 + 4 2 0.26880E-08 0.10000E+01 0.65036E+05 0.33441E-12 0.36376E-23 0.58416E-20 + 4 2 0.26880E-08 0.10000E+01 0.52449E+05 0.42196E-12 0.82163E-23 0.73754E-20 + 4 2 0.26880E-08 0.10000E+01 0.42297E+05 0.52645E-12 0.18894E-22 0.92049E-20 + 4 2 0.26880E-08 0.10000E+01 0.34111E+05 0.65118E-12 0.46695E-22 0.11372E-19 + 4 2 0.26880E-08 0.10000E+01 0.27509E+05 0.80133E-12 0.13394E-21 0.13913E-19 + 4 2 0.26880E-08 0.10000E+01 0.22184E+05 0.98780E-12 0.46510E-21 0.16855E-19 + 4 2 0.26880E-08 0.10000E+01 0.17891E+05 0.12375E-11 0.18807E-20 0.20236E-19 + 4 2 0.26880E-08 0.10000E+01 0.14428E+05 0.16187E-11 0.82379E-20 0.24164E-19 + 4 2 0.26880E-08 0.10000E+01 0.11635E+05 0.23024E-11 0.37185E-19 0.28989E-19 + 4 2 0.26880E-08 0.10000E+01 0.93834E+04 0.37076E-11 0.16913E-18 0.35701E-19 + 4 2 0.26880E-08 0.10000E+01 0.75673E+04 0.68465E-11 0.76768E-18 0.46869E-19 + 4 2 0.26880E-08 0.10000E+01 0.61026E+04 0.14136E-10 0.34506E-17 0.68776E-19 + 4 2 0.26880E-08 0.10000E+01 0.49215E+04 0.31267E-10 0.15230E-16 0.11629E-18 + 4 2 0.26880E-08 0.10000E+01 0.39689E+04 0.71369E-10 0.65642E-16 0.22360E-18 + 4 2 0.26880E-08 0.10000E+01 0.32008E+04 0.16393E-09 0.27596E-15 0.46716E-18 + 4 2 0.26880E-08 0.10000E+01 0.25813E+04 0.37344E-09 0.11319E-14 0.10134E-17 + 4 2 0.26880E-08 0.10000E+01 0.20817E+04 0.83727E-09 0.45255E-14 0.22160E-17 4 2 0.26880E-08 0.10000E+01 0.16788E+04 0.18404E-08 0.17620E-13 0.48065E-17 4 2 0.26880E-08 0.10000E+01 0.13538E+04 0.39581E-08 0.66958E-13 0.10259E-16 4 2 0.26880E-08 0.10000E+01 0.10918E+04 0.83222E-08 0.24969E-12 0.21468E-16 @@ -21070,24 +21070,24 @@ VERSION 2.8.2 4 2 0.26880E-08 0.10000E+01 0.24221E+03 0.82870E-06 0.76436E-09 0.21115E-14 4 2 0.26880E-08 0.10000E+01 0.19533E+03 0.13060E-05 0.14525E-08 0.33261E-14 4 2 0.26880E-08 0.10000E+01 0.15752E+03 0.13060E-05 0.14525E-08 0.33261E-14 - 4 2 0.46905E-08 0.10000E+01 0.80645E+05 0.73029E-55 0.54464E-66 0.21533E-62 - 4 2 0.46905E-08 0.10000E+01 0.65036E+05 0.61621E-54 0.86299E-65 0.18185E-61 - 4 2 0.46905E-08 0.10000E+01 0.52449E+05 0.52233E-53 0.11516E-63 0.15428E-60 - 4 2 0.46905E-08 0.10000E+01 0.42297E+05 0.39077E-52 0.15447E-62 0.11562E-59 - 4 2 0.46905E-08 0.10000E+01 0.34111E+05 0.27882E-51 0.20760E-61 0.82775E-59 - 4 2 0.46905E-08 0.10000E+01 0.27509E+05 0.19656E-50 0.27200E-60 0.58681E-58 - 4 2 0.46905E-08 0.10000E+01 0.22184E+05 0.13606E-49 0.34575E-59 0.40911E-57 - 4 2 0.46905E-08 0.10000E+01 0.17891E+05 0.91848E-49 0.43457E-58 0.27689E-56 - 4 2 0.46905E-08 0.10000E+01 0.14428E+05 0.61201E-48 0.57575E-57 0.18033E-55 - 4 2 0.46905E-08 0.10000E+01 0.11635E+05 0.42282E-47 0.90211E-56 0.11260E-54 - 4 2 0.46905E-08 0.10000E+01 0.93834E+04 0.33488E-46 0.18328E-54 0.67652E-54 - 4 2 0.46905E-08 0.10000E+01 0.75673E+04 0.33668E-45 0.45834E-53 0.40928E-53 - 4 2 0.46905E-08 0.10000E+01 0.61026E+04 0.42185E-44 0.12441E-51 0.29651E-52 - 4 2 0.46905E-08 0.10000E+01 0.49215E+04 0.58812E-43 0.34115E-50 0.31131E-51 - 4 2 0.46905E-08 0.10000E+01 0.39689E+04 0.84116E-42 0.92897E-49 0.42014E-50 - 4 2 0.46905E-08 0.10000E+01 0.32008E+04 0.37783E-39 0.81387E-46 0.18794E-47 - 4 2 0.46905E-08 0.10000E+01 0.25813E+04 0.27975E-30 0.13790E-36 0.13712E-38 - 4 2 0.46905E-08 0.10000E+01 0.20817E+04 0.53805E-14 0.11809E-19 0.25674E-22 + 4 2 0.46905E-08 0.10000E+01 0.80645E+05 0.49433E-12 0.30436E-23 0.14571E-19 + 4 2 0.46905E-08 0.10000E+01 0.65036E+05 0.63322E-12 0.69062E-23 0.18674E-19 + 4 2 0.46905E-08 0.10000E+01 0.52449E+05 0.79924E-12 0.15438E-22 0.23586E-19 + 4 2 0.46905E-08 0.10000E+01 0.42297E+05 0.99727E-12 0.34284E-22 0.29455E-19 + 4 2 0.46905E-08 0.10000E+01 0.34111E+05 0.12326E-11 0.77905E-22 0.36426E-19 + 4 2 0.46905E-08 0.10000E+01 0.27509E+05 0.15116E-11 0.19310E-21 0.44624E-19 + 4 2 0.46905E-08 0.10000E+01 0.22184E+05 0.18450E-11 0.56748E-21 0.54137E-19 + 4 2 0.46905E-08 0.10000E+01 0.17891E+05 0.22574E-11 0.20374E-20 0.65035E-19 + 4 2 0.46905E-08 0.10000E+01 0.14428E+05 0.28126E-11 0.84370E-20 0.77467E-19 + 4 2 0.46905E-08 0.10000E+01 0.11635E+05 0.36745E-11 0.37342E-19 0.91968E-19 + 4 2 0.46905E-08 0.10000E+01 0.93834E+04 0.52537E-11 0.16887E-18 0.11023E-18 + 4 2 0.46905E-08 0.10000E+01 0.75673E+04 0.85525E-11 0.76524E-18 0.13683E-18 + 4 2 0.46905E-08 0.10000E+01 0.61026E+04 0.15974E-10 0.34368E-17 0.18314E-18 + 4 2 0.46905E-08 0.10000E+01 0.49215E+04 0.33183E-10 0.15159E-16 0.27603E-18 + 4 2 0.46905E-08 0.10000E+01 0.39689E+04 0.73243E-10 0.65294E-16 0.47676E-18 + 4 2 0.46905E-08 0.10000E+01 0.32008E+04 0.16548E-09 0.27435E-15 0.92096E-18 + 4 2 0.46905E-08 0.10000E+01 0.25813E+04 0.37399E-09 0.11249E-14 0.19015E-17 + 4 2 0.46905E-08 0.10000E+01 0.20817E+04 0.83527E-09 0.44958E-14 0.40363E-17 4 2 0.46905E-08 0.10000E+01 0.16788E+04 0.18324E-08 0.17499E-13 0.85979E-17 4 2 0.46905E-08 0.10000E+01 0.13538E+04 0.39366E-08 0.66482E-13 0.18141E-16 4 2 0.46905E-08 0.10000E+01 0.10918E+04 0.82714E-08 0.24785E-12 0.37672E-16 @@ -21100,24 +21100,24 @@ VERSION 2.8.2 4 2 0.46905E-08 0.10000E+01 0.24221E+03 0.82218E-06 0.75813E-09 0.36393E-14 4 2 0.46905E-08 0.10000E+01 0.19533E+03 0.12956E-05 0.14406E-08 0.57299E-14 4 2 0.46905E-08 0.10000E+01 0.15752E+03 0.12956E-05 0.14406E-08 0.57299E-14 - 4 2 0.81846E-08 0.10000E+01 0.80645E+05 0.13742E-54 0.10255E-65 0.69136E-62 - 4 2 0.81846E-08 0.10000E+01 0.65036E+05 0.11601E-53 0.16256E-64 0.58409E-61 - 4 2 0.81846E-08 0.10000E+01 0.52449E+05 0.98380E-53 0.21717E-63 0.49571E-60 - 4 2 0.81846E-08 0.10000E+01 0.42297E+05 0.73671E-52 0.29191E-62 0.37176E-59 - 4 2 0.81846E-08 0.10000E+01 0.34111E+05 0.52659E-51 0.39366E-61 0.26648E-58 - 4 2 0.81846E-08 0.10000E+01 0.27509E+05 0.37233E-50 0.51805E-60 0.18934E-57 - 4 2 0.81846E-08 0.10000E+01 0.22184E+05 0.25866E-49 0.65886E-59 0.13253E-56 - 4 2 0.81846E-08 0.10000E+01 0.17891E+05 0.17472E-48 0.81293E-58 0.90326E-56 - 4 2 0.81846E-08 0.10000E+01 0.14428E+05 0.11477E-47 0.10027E-56 0.59485E-55 - 4 2 0.81846E-08 0.10000E+01 0.11635E+05 0.74870E-47 0.13325E-55 0.37699E-54 - 4 2 0.81846E-08 0.10000E+01 0.93834E+04 0.51568E-46 0.21829E-54 0.22882E-53 - 4 2 0.81846E-08 0.10000E+01 0.75673E+04 0.42270E-45 0.47730E-53 0.13418E-52 - 4 2 0.81846E-08 0.10000E+01 0.61026E+04 0.45404E-44 0.12504E-51 0.83931E-52 - 4 2 0.81846E-08 0.10000E+01 0.49215E+04 0.59778E-43 0.34280E-50 0.71170E-51 - 4 2 0.81846E-08 0.10000E+01 0.39689E+04 0.84666E-42 0.93513E-49 0.86202E-50 - 4 2 0.81846E-08 0.10000E+01 0.32008E+04 0.38018E-39 0.81779E-46 0.37451E-47 - 4 2 0.81846E-08 0.10000E+01 0.25813E+04 0.28089E-30 0.13796E-36 0.26762E-38 - 4 2 0.81846E-08 0.10000E+01 0.20817E+04 0.53804E-14 0.11735E-19 0.48558E-22 + 4 2 0.81846E-08 0.10000E+01 0.80645E+05 0.93004E-12 0.57522E-23 0.46775E-19 + 4 2 0.81846E-08 0.10000E+01 0.65036E+05 0.11916E-11 0.13073E-22 0.59958E-19 + 4 2 0.81846E-08 0.10000E+01 0.52449E+05 0.15046E-11 0.29181E-22 0.75756E-19 + 4 2 0.81846E-08 0.10000E+01 0.42297E+05 0.18782E-11 0.64023E-22 0.94658E-19 + 4 2 0.81846E-08 0.10000E+01 0.34111E+05 0.23220E-11 0.13977E-21 0.11716E-18 + 4 2 0.81846E-08 0.10000E+01 0.27509E+05 0.28455E-11 0.31524E-21 0.14370E-18 + 4 2 0.81846E-08 0.10000E+01 0.22184E+05 0.34607E-11 0.79313E-21 0.17460E-18 + 4 2 0.81846E-08 0.10000E+01 0.17891E+05 0.41902E-11 0.24249E-20 0.21006E-18 + 4 2 0.81846E-08 0.10000E+01 0.14428E+05 0.50920E-11 0.90675E-20 0.25028E-18 + 4 2 0.81846E-08 0.10000E+01 0.11635E+05 0.63211E-11 0.38387E-19 0.29603E-18 + 4 2 0.81846E-08 0.10000E+01 0.93834E+04 0.82778E-11 0.17082E-18 0.35021E-18 + 4 2 0.81846E-08 0.10000E+01 0.75673E+04 0.11957E-10 0.76913E-18 0.42120E-18 + 4 2 0.81846E-08 0.10000E+01 0.61026E+04 0.19757E-10 0.34415E-17 0.53038E-18 + 4 2 0.81846E-08 0.10000E+01 0.49215E+04 0.37337E-10 0.15136E-16 0.72809E-18 + 4 2 0.81846E-08 0.10000E+01 0.39689E+04 0.77723E-10 0.65040E-16 0.11276E-17 + 4 2 0.81846E-08 0.10000E+01 0.32008E+04 0.17010E-09 0.27275E-15 0.19758E-17 + 4 2 0.81846E-08 0.10000E+01 0.25813E+04 0.37814E-09 0.11166E-14 0.37978E-17 + 4 2 0.81846E-08 0.10000E+01 0.20817E+04 0.83723E-09 0.44577E-14 0.76881E-17 4 2 0.81846E-08 0.10000E+01 0.16788E+04 0.18279E-08 0.17336E-13 0.15881E-16 4 2 0.81846E-08 0.10000E+01 0.13538E+04 0.39156E-08 0.65815E-13 0.32833E-16 4 2 0.81846E-08 0.10000E+01 0.10918E+04 0.82123E-08 0.24522E-12 0.67235E-16 @@ -21130,24 +21130,24 @@ VERSION 2.8.2 4 2 0.81846E-08 0.10000E+01 0.24221E+03 0.81271E-06 0.74898E-09 0.62847E-14 4 2 0.81846E-08 0.10000E+01 0.19533E+03 0.12805E-05 0.14232E-08 0.98864E-14 4 2 0.81846E-08 0.10000E+01 0.15752E+03 0.12805E-05 0.14232E-08 0.98864E-14 - 4 2 0.14282E-07 0.10000E+01 0.80645E+05 0.25665E-54 0.19161E-65 0.22083E-61 - 4 2 0.14282E-07 0.10000E+01 0.65036E+05 0.21675E-53 0.30386E-64 0.18663E-60 - 4 2 0.14282E-07 0.10000E+01 0.52449E+05 0.18389E-52 0.40635E-63 0.15844E-59 - 4 2 0.14282E-07 0.10000E+01 0.42297E+05 0.13781E-51 0.54717E-62 0.11889E-58 - 4 2 0.14282E-07 0.10000E+01 0.34111E+05 0.98655E-51 0.74010E-61 0.85317E-58 - 4 2 0.14282E-07 0.10000E+01 0.27509E+05 0.69936E-50 0.97849E-60 0.60732E-57 - 4 2 0.14282E-07 0.10000E+01 0.22184E+05 0.48778E-49 0.12510E-58 0.42648E-56 - 4 2 0.14282E-07 0.10000E+01 0.17891E+05 0.33096E-48 0.15434E-57 0.29229E-55 - 4 2 0.14282E-07 0.10000E+01 0.14428E+05 0.21749E-47 0.18598E-56 0.19422E-54 - 4 2 0.14282E-07 0.10000E+01 0.11635E+05 0.13936E-46 0.22632E-55 0.12469E-53 - 4 2 0.14282E-07 0.10000E+01 0.93834E+04 0.89465E-46 0.30633E-54 0.76816E-53 - 4 2 0.14282E-07 0.10000E+01 0.75673E+04 0.62324E-45 0.54642E-53 0.45068E-52 - 4 2 0.14282E-07 0.10000E+01 0.61026E+04 0.54706E-44 0.13095E-51 0.26282E-51 - 4 2 0.14282E-07 0.10000E+01 0.49215E+04 0.64118E-43 0.35403E-50 0.18591E-50 - 4 2 0.14282E-07 0.10000E+01 0.39689E+04 0.87928E-42 0.96516E-49 0.19409E-49 - 4 2 0.14282E-07 0.10000E+01 0.32008E+04 0.39247E-39 0.84012E-46 0.80196E-47 - 4 2 0.14282E-07 0.10000E+01 0.25813E+04 0.28823E-30 0.14034E-36 0.55795E-38 - 4 2 0.14282E-07 0.10000E+01 0.20817E+04 0.54685E-14 0.11759E-19 0.97319E-22 + 4 2 0.14282E-07 0.10000E+01 0.80645E+05 0.17367E-11 0.10786E-22 0.14938E-18 + 4 2 0.14282E-07 0.10000E+01 0.65036E+05 0.22256E-11 0.24571E-22 0.19152E-18 + 4 2 0.14282E-07 0.10000E+01 0.52449E+05 0.28112E-11 0.54956E-22 0.24205E-18 + 4 2 0.14282E-07 0.10000E+01 0.42297E+05 0.35110E-11 0.12039E-21 0.30258E-18 + 4 2 0.14282E-07 0.10000E+01 0.34111E+05 0.43431E-11 0.25913E-21 0.37477E-18 + 4 2 0.14282E-07 0.10000E+01 0.27509E+05 0.53243E-11 0.55764E-21 0.46014E-18 + 4 2 0.14282E-07 0.10000E+01 0.22184E+05 0.64711E-11 0.12611E-20 0.55989E-18 + 4 2 0.14282E-07 0.10000E+01 0.17891E+05 0.78059E-11 0.32856E-20 0.67471E-18 + 4 2 0.14282E-07 0.10000E+01 0.14428E+05 0.93804E-11 0.10635E-19 0.80495E-18 + 4 2 0.14282E-07 0.10000E+01 0.11635E+05 0.11339E-10 0.41511E-19 0.95164E-18 + 4 2 0.14282E-07 0.10000E+01 0.93834E+04 0.14073E-10 0.17843E-18 0.11197E-17 + 4 2 0.14282E-07 0.10000E+01 0.75673E+04 0.18581E-10 0.79133E-18 0.13249E-17 + 4 2 0.14282E-07 0.10000E+01 0.61026E+04 0.27295E-10 0.35098E-17 0.16095E-17 + 4 2 0.14282E-07 0.10000E+01 0.49215E+04 0.45950E-10 0.15334E-16 0.20723E-17 + 4 2 0.14282E-07 0.10000E+01 0.39689E+04 0.87702E-10 0.65528E-16 0.29327E-17 + 4 2 0.14282E-07 0.10000E+01 0.32008E+04 0.18189E-09 0.27357E-15 0.46572E-17 + 4 2 0.14282E-07 0.10000E+01 0.25813E+04 0.39224E-09 0.11161E-14 0.82157E-17 + 4 2 0.14282E-07 0.10000E+01 0.20817E+04 0.85384E-09 0.44440E-14 0.15591E-16 4 2 0.14282E-07 0.10000E+01 0.16788E+04 0.18459E-08 0.17249E-13 0.30767E-16 4 2 0.14282E-07 0.10000E+01 0.13538E+04 0.39304E-08 0.65385E-13 0.61604E-16 4 2 0.14282E-07 0.10000E+01 0.10918E+04 0.82108E-08 0.24333E-12 0.12330E-15 @@ -21160,24 +21160,24 @@ VERSION 2.8.2 4 2 0.14282E-07 0.10000E+01 0.24221E+03 0.80514E-06 0.74125E-09 0.10894E-13 4 2 0.14282E-07 0.10000E+01 0.19533E+03 0.12683E-05 0.14085E-08 0.17112E-13 4 2 0.14282E-07 0.10000E+01 0.15752E+03 0.12683E-05 0.14085E-08 0.17112E-13 - 4 2 0.24920E-07 0.10000E+01 0.80645E+05 0.47601E-54 0.35556E-65 0.70510E-61 - 4 2 0.24920E-07 0.10000E+01 0.65036E+05 0.40216E-53 0.56402E-64 0.59610E-60 - 4 2 0.24920E-07 0.10000E+01 0.52449E+05 0.34131E-52 0.75490E-63 0.50621E-59 - 4 2 0.24920E-07 0.10000E+01 0.42297E+05 0.25597E-51 0.10180E-61 0.38006E-58 - 4 2 0.24920E-07 0.10000E+01 0.34111E+05 0.18348E-50 0.13805E-60 0.27299E-57 - 4 2 0.24920E-07 0.10000E+01 0.27509E+05 0.13035E-49 0.18329E-59 0.19464E-56 - 4 2 0.24920E-07 0.10000E+01 0.22184E+05 0.91248E-49 0.23579E-58 0.13705E-55 - 4 2 0.24920E-07 0.10000E+01 0.17891E+05 0.62240E-48 0.29278E-57 0.94356E-55 - 4 2 0.24920E-07 0.10000E+01 0.14428E+05 0.41128E-47 0.35240E-56 0.63148E-54 - 4 2 0.24920E-07 0.10000E+01 0.11635E+05 0.26351E-46 0.41513E-55 0.40974E-53 - 4 2 0.24920E-07 0.10000E+01 0.93834E+04 0.16502E-45 0.49944E-54 0.25605E-52 - 4 2 0.24920E-07 0.10000E+01 0.75673E+04 0.10471E-44 0.71765E-53 0.15197E-51 - 4 2 0.24920E-07 0.10000E+01 0.61026E+04 0.76124E-44 0.14664E-51 0.86530E-51 - 4 2 0.24920E-07 0.10000E+01 0.49215E+04 0.74858E-43 0.37974E-50 0.54177E-50 - 4 2 0.24920E-07 0.10000E+01 0.39689E+04 0.95571E-42 0.10289E-48 0.48250E-49 - 4 2 0.24920E-07 0.10000E+01 0.32008E+04 0.41919E-39 0.88807E-46 0.18579E-46 - 4 2 0.24920E-07 0.10000E+01 0.25813E+04 0.30426E-30 0.14577E-36 0.12546E-37 - 4 2 0.24920E-07 0.10000E+01 0.20817E+04 0.56734E-14 0.11869E-19 0.21002E-21 + 4 2 0.24920E-07 0.10000E+01 0.80645E+05 0.32205E-11 0.20077E-22 0.47691E-18 + 4 2 0.24920E-07 0.10000E+01 0.65036E+05 0.41281E-11 0.45843E-22 0.61152E-18 + 4 2 0.24920E-07 0.10000E+01 0.52449E+05 0.52158E-11 0.10285E-21 0.77306E-18 + 4 2 0.24920E-07 0.10000E+01 0.42297E+05 0.65174E-11 0.22588E-21 0.96677E-18 + 4 2 0.24920E-07 0.10000E+01 0.34111E+05 0.80674E-11 0.48519E-21 0.11981E-17 + 4 2 0.24920E-07 0.10000E+01 0.27509E+05 0.98978E-11 0.10253E-20 0.14724E-17 + 4 2 0.24920E-07 0.10000E+01 0.22184E+05 0.12036E-10 0.21877E-20 0.17938E-17 + 4 2 0.24920E-07 0.10000E+01 0.17891E+05 0.14509E-10 0.50471E-20 0.21652E-17 + 4 2 0.24920E-07 0.10000E+01 0.14428E+05 0.17361E-10 0.13957E-19 0.25873E-17 + 4 2 0.24920E-07 0.10000E+01 0.11635E+05 0.20726E-10 0.48301E-19 0.30615E-17 + 4 2 0.24920E-07 0.10000E+01 0.93834E+04 0.24982E-10 0.19511E-18 0.35957E-17 + 4 2 0.24920E-07 0.10000E+01 0.75673E+04 0.31143E-10 0.84033E-18 0.42213E-17 + 4 2 0.24920E-07 0.10000E+01 0.61026E+04 0.41716E-10 0.36643E-17 0.50255E-17 + 4 2 0.24920E-07 0.10000E+01 0.49215E+04 0.62617E-10 0.15806E-16 0.62154E-17 + 4 2 0.24920E-07 0.10000E+01 0.39689E+04 0.10732E-09 0.66842E-16 0.82413E-17 + 4 2 0.24920E-07 0.10000E+01 0.32008E+04 0.20561E-09 0.27666E-15 0.12034E-16 + 4 2 0.24920E-07 0.10000E+01 0.25813E+04 0.42167E-09 0.11210E-14 0.19467E-16 + 4 2 0.24920E-07 0.10000E+01 0.20817E+04 0.89073E-09 0.44405E-14 0.34258E-16 4 2 0.24920E-07 0.10000E+01 0.16788E+04 0.18909E-08 0.17168E-13 0.63698E-16 4 2 0.24920E-07 0.10000E+01 0.13538E+04 0.39802E-08 0.64889E-13 0.12190E-15 4 2 0.24920E-07 0.10000E+01 0.10918E+04 0.82513E-08 0.24096E-12 0.23580E-15 @@ -21190,24 +21190,24 @@ VERSION 2.8.2 4 2 0.24920E-07 0.10000E+01 0.24221E+03 0.79497E-06 0.73056E-09 0.19004E-13 4 2 0.24920E-07 0.10000E+01 0.19533E+03 0.12517E-05 0.13881E-08 0.29771E-13 4 2 0.24920E-07 0.10000E+01 0.15752E+03 0.12517E-05 0.13881E-08 0.29771E-13 - 4 2 0.43485E-07 0.10000E+01 0.80645E+05 0.87633E-54 0.65486E-65 0.22327E-60 - 4 2 0.43485E-07 0.10000E+01 0.65036E+05 0.74064E-53 0.10391E-63 0.18881E-59 - 4 2 0.43485E-07 0.10000E+01 0.52449E+05 0.62877E-52 0.13918E-62 0.16038E-58 - 4 2 0.43485E-07 0.10000E+01 0.42297E+05 0.47183E-51 0.18793E-61 0.12047E-57 - 4 2 0.43485E-07 0.10000E+01 0.34111E+05 0.33857E-50 0.25539E-60 0.86600E-57 - 4 2 0.43485E-07 0.10000E+01 0.27509E+05 0.24100E-49 0.34031E-59 0.61828E-56 - 4 2 0.43485E-07 0.10000E+01 0.22184E+05 0.16923E-48 0.44031E-58 0.43635E-55 - 4 2 0.43485E-07 0.10000E+01 0.17891E+05 0.11600E-47 0.55098E-57 0.30154E-54 - 4 2 0.43485E-07 0.10000E+01 0.14428E+05 0.77161E-47 0.66781E-56 0.20298E-53 - 4 2 0.43485E-07 0.10000E+01 0.11635E+05 0.49749E-46 0.78327E-55 0.13283E-52 - 4 2 0.43485E-07 0.10000E+01 0.93834E+04 0.31076E-45 0.89540E-54 0.84010E-52 - 4 2 0.43485E-07 0.10000E+01 0.75673E+04 0.18972E-44 0.10962E-52 0.50555E-51 - 4 2 0.43485E-07 0.10000E+01 0.61026E+04 0.12152E-43 0.18279E-51 0.28738E-50 - 4 2 0.43485E-07 0.10000E+01 0.49215E+04 0.98640E-43 0.43398E-50 0.16798E-49 - 4 2 0.43485E-07 0.10000E+01 0.39689E+04 0.11193E-41 0.11567E-48 0.13023E-48 - 4 2 0.43485E-07 0.10000E+01 0.32008E+04 0.47375E-39 0.98610E-46 0.46169E-46 - 4 2 0.43485E-07 0.10000E+01 0.25813E+04 0.33753E-30 0.15766E-36 0.30272E-37 - 4 2 0.43485E-07 0.10000E+01 0.20817E+04 0.61318E-14 0.12243E-19 0.48977E-21 + 4 2 0.43485E-07 0.10000E+01 0.80645E+05 0.59280E-11 0.37075E-22 0.15099E-17 + 4 2 0.43485E-07 0.10000E+01 0.65036E+05 0.76000E-11 0.84838E-22 0.19364E-17 + 4 2 0.43485E-07 0.10000E+01 0.52449E+05 0.96053E-11 0.19092E-21 0.24485E-17 + 4 2 0.43485E-07 0.10000E+01 0.42297E+05 0.12007E-10 0.42090E-21 0.30630E-17 + 4 2 0.43485E-07 0.10000E+01 0.34111E+05 0.14873E-10 0.90662E-21 0.37980E-17 + 4 2 0.43485E-07 0.10000E+01 0.27509E+05 0.18263E-10 0.19086E-20 0.46709E-17 + 4 2 0.43485E-07 0.10000E+01 0.22184E+05 0.22229E-10 0.39706E-20 0.56968E-17 + 4 2 0.43485E-07 0.10000E+01 0.17891E+05 0.26812E-10 0.85159E-20 0.68857E-17 + 4 2 0.43485E-07 0.10000E+01 0.14428E+05 0.32054E-10 0.20654E-19 0.82417E-17 + 4 2 0.43485E-07 0.10000E+01 0.11635E+05 0.38072E-10 0.62210E-19 0.97652E-17 + 4 2 0.43485E-07 0.10000E+01 0.93834E+04 0.45235E-10 0.22953E-18 0.11469E-16 + 4 2 0.43485E-07 0.10000E+01 0.75673E+04 0.54596E-10 0.94286E-18 0.13417E-16 + 4 2 0.43485E-07 0.10000E+01 0.61026E+04 0.68826E-10 0.39984E-17 0.15801E-16 + 4 2 0.43485E-07 0.10000E+01 0.49215E+04 0.94240E-10 0.16893E-16 0.19082E-16 + 4 2 0.43485E-07 0.10000E+01 0.39689E+04 0.14507E-09 0.70203E-16 0.24249E-16 + 4 2 0.43485E-07 0.10000E+01 0.32008E+04 0.25235E-09 0.28632E-15 0.33285E-16 + 4 2 0.43485E-07 0.10000E+01 0.25813E+04 0.48205E-09 0.11464E-14 0.50029E-16 + 4 2 0.43485E-07 0.10000E+01 0.20817E+04 0.97159E-09 0.44989E-14 0.81796E-16 4 2 0.43485E-07 0.10000E+01 0.16788E+04 0.20013E-08 0.17272E-13 0.14245E-15 4 2 0.43485E-07 0.10000E+01 0.13538E+04 0.41298E-08 0.64942E-13 0.25806E-15 4 2 0.43485E-07 0.10000E+01 0.10918E+04 0.84467E-08 0.24021E-12 0.47730E-15 @@ -21220,24 +21220,24 @@ VERSION 2.8.2 4 2 0.43485E-07 0.10000E+01 0.24221E+03 0.78854E-06 0.72233E-09 0.33495E-13 4 2 0.43485E-07 0.10000E+01 0.19533E+03 0.12405E-05 0.13723E-08 0.52243E-13 4 2 0.43485E-07 0.10000E+01 0.15752E+03 0.12405E-05 0.13723E-08 0.52243E-13 - 4 2 0.75878E-07 0.10000E+01 0.80645E+05 0.16027E-53 0.11981E-64 0.70325E-60 - 4 2 0.75878E-07 0.10000E+01 0.65036E+05 0.13549E-52 0.19016E-63 0.59486E-59 - 4 2 0.75878E-07 0.10000E+01 0.52449E+05 0.11506E-51 0.25486E-62 0.50539E-58 - 4 2 0.75878E-07 0.10000E+01 0.42297E+05 0.86387E-51 0.34452E-61 0.37977E-57 - 4 2 0.75878E-07 0.10000E+01 0.34111E+05 0.62048E-50 0.46903E-60 0.27320E-56 - 4 2 0.75878E-07 0.10000E+01 0.27509E+05 0.44237E-49 0.62690E-59 0.19528E-55 - 4 2 0.75878E-07 0.10000E+01 0.22184E+05 0.31146E-48 0.81519E-58 0.13808E-54 - 4 2 0.75878E-07 0.10000E+01 0.17891E+05 0.21440E-47 0.10276E-56 0.95717E-54 - 4 2 0.75878E-07 0.10000E+01 0.14428E+05 0.14351E-46 0.12565E-55 0.64739E-53 - 4 2 0.75878E-07 0.10000E+01 0.11635E+05 0.93247E-46 0.14834E-54 0.42660E-52 - 4 2 0.75878E-07 0.10000E+01 0.93834E+04 0.58599E-45 0.16732E-53 0.27249E-51 - 4 2 0.75878E-07 0.10000E+01 0.75673E+04 0.35441E-44 0.18739E-52 0.16611E-50 - 4 2 0.75878E-07 0.10000E+01 0.61026E+04 0.21253E-43 0.25787E-51 0.95128E-50 - 4 2 0.75878E-07 0.10000E+01 0.49215E+04 0.14712E-42 0.53682E-50 0.53722E-49 - 4 2 0.75878E-07 0.10000E+01 0.39689E+04 0.14366E-41 0.13856E-48 0.37413E-48 - 4 2 0.75878E-07 0.10000E+01 0.32008E+04 0.57357E-39 0.11632E-45 0.12174E-45 - 4 2 0.75878E-07 0.10000E+01 0.25813E+04 0.39839E-30 0.17981E-36 0.77652E-37 - 4 2 0.75878E-07 0.10000E+01 0.20817E+04 0.70006E-14 0.13015E-19 0.12290E-20 + 4 2 0.75878E-07 0.10000E+01 0.80645E+05 0.10840E-10 0.67987E-22 0.47554E-17 + 4 2 0.75878E-07 0.10000E+01 0.65036E+05 0.13900E-10 0.15586E-21 0.60992E-17 + 4 2 0.75878E-07 0.10000E+01 0.52449E+05 0.17571E-10 0.35173E-21 0.77135E-17 + 4 2 0.75878E-07 0.10000E+01 0.42297E+05 0.21974E-10 0.77840E-21 0.96524E-17 + 4 2 0.75878E-07 0.10000E+01 0.34111E+05 0.27233E-10 0.16839E-20 0.11974E-16 + 4 2 0.75878E-07 0.10000E+01 0.27509E+05 0.33467E-10 0.35529E-20 0.14735E-16 + 4 2 0.75878E-07 0.10000E+01 0.22184E+05 0.40778E-10 0.73322E-20 0.17988E-16 + 4 2 0.75878E-07 0.10000E+01 0.17891E+05 0.49238E-10 0.15152E-19 0.21769E-16 + 4 2 0.75878E-07 0.10000E+01 0.14428E+05 0.58896E-10 0.33595E-19 0.26094E-16 + 4 2 0.75878E-07 0.10000E+01 0.11635E+05 0.69850E-10 0.88985E-19 0.30964E-16 + 4 2 0.75878E-07 0.10000E+01 0.93834E+04 0.82456E-10 0.29460E-18 0.36395E-16 + 4 2 0.75878E-07 0.10000E+01 0.75673E+04 0.97835E-10 0.11339E-17 0.42522E-16 + 4 2 0.75878E-07 0.10000E+01 0.61026E+04 0.11895E-09 0.46216E-17 0.49786E-16 + 4 2 0.75878E-07 0.10000E+01 0.49215E+04 0.15286E-09 0.18951E-16 0.59282E-16 + 4 2 0.75878E-07 0.10000E+01 0.39689E+04 0.21521E-09 0.76742E-16 0.73341E-16 + 4 2 0.75878E-07 0.10000E+01 0.32008E+04 0.33952E-09 0.30594E-15 0.96503E-16 + 4 2 0.75878E-07 0.10000E+01 0.25813E+04 0.59549E-09 0.12016E-14 0.13720E-15 + 4 2 0.75878E-07 0.10000E+01 0.20817E+04 0.11257E-08 0.46430E-14 0.21080E-15 4 2 0.75878E-07 0.10000E+01 0.16788E+04 0.22168E-08 0.17614E-13 0.34508E-15 4 2 0.75878E-07 0.10000E+01 0.13538E+04 0.44340E-08 0.65631E-13 0.59027E-15 4 2 0.75878E-07 0.10000E+01 0.10918E+04 0.88711E-08 0.24113E-12 0.10371E-14 @@ -21250,24 +21250,24 @@ VERSION 2.8.2 4 2 0.75878E-07 0.10000E+01 0.24221E+03 0.78476E-06 0.71487E-09 0.60021E-13 4 2 0.75878E-07 0.10000E+01 0.19533E+03 0.12328E-05 0.13579E-08 0.92945E-13 4 2 0.75878E-07 0.10000E+01 0.15752E+03 0.12328E-05 0.13579E-08 0.92945E-13 - 4 2 0.13240E-06 0.10000E+01 0.80645E+05 0.29137E-53 0.21789E-64 0.22067E-59 - 4 2 0.13240E-06 0.10000E+01 0.65036E+05 0.24640E-52 0.34591E-63 0.18670E-58 - 4 2 0.13240E-06 0.10000E+01 0.52449E+05 0.20929E-51 0.46386E-62 0.15865E-57 - 4 2 0.13240E-06 0.10000E+01 0.42297E+05 0.15721E-50 0.62765E-61 0.11925E-56 - 4 2 0.13240E-06 0.10000E+01 0.34111E+05 0.11301E-49 0.85579E-60 0.85842E-56 - 4 2 0.13240E-06 0.10000E+01 0.27509E+05 0.80678E-49 0.11468E-58 0.61421E-55 - 4 2 0.13240E-06 0.10000E+01 0.22184E+05 0.56932E-48 0.14977E-57 0.43501E-54 - 4 2 0.13240E-06 0.10000E+01 0.17891E+05 0.39335E-47 0.18999E-56 0.30233E-53 - 4 2 0.13240E-06 0.10000E+01 0.14428E+05 0.26474E-46 0.23430E-55 0.20529E-52 - 4 2 0.13240E-06 0.10000E+01 0.11635E+05 0.17329E-45 0.27928E-54 0.13605E-51 - 4 2 0.13240E-06 0.10000E+01 0.93834E+04 0.10983E-44 0.31611E-53 0.87603E-51 - 4 2 0.13240E-06 0.10000E+01 0.75673E+04 0.66654E-44 0.34093E-52 0.54009E-50 - 4 2 0.13240E-06 0.10000E+01 0.61026E+04 0.38921E-43 0.40702E-51 0.31250E-49 - 4 2 0.13240E-06 0.10000E+01 0.49215E+04 0.24217E-42 0.72513E-50 0.17389E-48 - 4 2 0.13240E-06 0.10000E+01 0.39689E+04 0.20301E-41 0.17791E-48 0.11209E-47 - 4 2 0.13240E-06 0.10000E+01 0.32008E+04 0.74916E-39 0.14684E-45 0.33618E-45 - 4 2 0.13240E-06 0.10000E+01 0.25813E+04 0.50473E-30 0.21879E-36 0.20907E-36 - 4 2 0.13240E-06 0.10000E+01 0.20817E+04 0.85591E-14 0.14433E-19 0.32772E-20 + 4 2 0.13240E-06 0.10000E+01 0.80645E+05 0.19705E-10 0.12389E-21 0.14920E-16 + 4 2 0.13240E-06 0.10000E+01 0.65036E+05 0.25270E-10 0.28447E-21 0.19138E-16 + 4 2 0.13240E-06 0.10000E+01 0.52449E+05 0.31952E-10 0.64354E-21 0.24208E-16 + 4 2 0.13240E-06 0.10000E+01 0.42297E+05 0.39972E-10 0.14291E-20 0.30300E-16 + 4 2 0.13240E-06 0.10000E+01 0.34111E+05 0.49563E-10 0.31056E-20 0.37602E-16 + 4 2 0.13240E-06 0.10000E+01 0.27509E+05 0.60953E-10 0.65814E-20 0.46299E-16 + 4 2 0.13240E-06 0.10000E+01 0.22184E+05 0.74341E-10 0.13583E-19 0.56563E-16 + 4 2 0.13240E-06 0.10000E+01 0.17891E+05 0.89868E-10 0.27617E-19 0.68525E-16 + 4 2 0.13240E-06 0.10000E+01 0.14428E+05 0.10761E-09 0.58039E-19 0.82249E-16 + 4 2 0.13240E-06 0.10000E+01 0.11635E+05 0.12765E-09 0.13913E-18 0.97735E-16 + 4 2 0.13240E-06 0.10000E+01 0.93834E+04 0.15031E-09 0.41353E-18 0.11500E-15 + 4 2 0.13240E-06 0.10000E+01 0.75673E+04 0.17684E-09 0.14751E-17 0.13434E-15 + 4 2 0.13240E-06 0.10000E+01 0.61026E+04 0.21067E-09 0.57259E-17 0.15680E-15 + 4 2 0.13240E-06 0.10000E+01 0.49215E+04 0.26010E-09 0.22612E-16 0.18515E-15 + 4 2 0.13240E-06 0.10000E+01 0.39689E+04 0.34336E-09 0.88500E-16 0.22522E-15 + 4 2 0.13240E-06 0.10000E+01 0.32008E+04 0.49835E-09 0.34178E-15 0.28817E-15 + 4 2 0.13240E-06 0.10000E+01 0.25813E+04 0.80172E-09 0.13047E-14 0.39397E-15 + 4 2 0.13240E-06 0.10000E+01 0.20817E+04 0.14059E-08 0.49221E-14 0.57733E-15 4 2 0.13240E-06 0.10000E+01 0.16788E+04 0.26103E-08 0.18318E-13 0.89789E-15 4 2 0.13240E-06 0.10000E+01 0.13538E+04 0.49952E-08 0.67242E-13 0.14582E-14 4 2 0.13240E-06 0.10000E+01 0.10918E+04 0.96686E-08 0.24426E-12 0.24354E-14 @@ -21280,24 +21280,24 @@ VERSION 2.8.2 4 2 0.13240E-06 0.10000E+01 0.24221E+03 0.78344E-06 0.70680E-09 0.11039E-12 4 2 0.13240E-06 0.10000E+01 0.19533E+03 0.12277E-05 0.13421E-08 0.16900E-12 4 2 0.13240E-06 0.10000E+01 0.15752E+03 0.12277E-05 0.13421E-08 0.16900E-12 - 4 2 0.23103E-06 0.10000E+01 0.80645E+05 0.52581E-53 0.39333E-64 0.67593E-59 - 4 2 0.23103E-06 0.10000E+01 0.65036E+05 0.44476E-52 0.62453E-63 0.57198E-58 - 4 2 0.23103E-06 0.10000E+01 0.52449E+05 0.37786E-51 0.83790E-62 0.48612E-57 - 4 2 0.23103E-06 0.10000E+01 0.42297E+05 0.28394E-50 0.11347E-60 0.36552E-56 - 4 2 0.23103E-06 0.10000E+01 0.34111E+05 0.20425E-49 0.15491E-59 0.26324E-55 - 4 2 0.23103E-06 0.10000E+01 0.27509E+05 0.14599E-48 0.20805E-58 0.18851E-54 - 4 2 0.23103E-06 0.10000E+01 0.22184E+05 0.10321E-47 0.27266E-57 0.13368E-53 - 4 2 0.23103E-06 0.10000E+01 0.17891E+05 0.71531E-47 0.34776E-56 0.93104E-53 - 4 2 0.23103E-06 0.10000E+01 0.14428E+05 0.48367E-46 0.43203E-55 0.63420E-52 - 4 2 0.23103E-06 0.10000E+01 0.11635E+05 0.31864E-45 0.51986E-54 0.42216E-51 - 4 2 0.23103E-06 0.10000E+01 0.93834E+04 0.20362E-44 0.59394E-53 0.27357E-50 - 4 2 0.23103E-06 0.10000E+01 0.75673E+04 0.12456E-43 0.63452E-52 0.17020E-49 - 4 2 0.23103E-06 0.10000E+01 0.61026E+04 0.72302E-43 0.69477E-51 0.99468E-49 - 4 2 0.23103E-06 0.10000E+01 0.49215E+04 0.42350E-42 0.10669E-49 0.55111E-48 - 4 2 0.23103E-06 0.10000E+01 0.39689E+04 0.31243E-41 0.24504E-48 0.33728E-47 - 4 2 0.23103E-06 0.10000E+01 0.32008E+04 0.10553E-38 0.19888E-45 0.94331E-45 - 4 2 0.23103E-06 0.10000E+01 0.25813E+04 0.68859E-30 0.28662E-36 0.57357E-36 - 4 2 0.23103E-06 0.10000E+01 0.20817E+04 0.11323E-13 0.17014E-19 0.89867E-20 + 4 2 0.23103E-06 0.10000E+01 0.80645E+05 0.35555E-10 0.22401E-21 0.45698E-16 + 4 2 0.23103E-06 0.10000E+01 0.65036E+05 0.45603E-10 0.51508E-21 0.58623E-16 + 4 2 0.23103E-06 0.10000E+01 0.52449E+05 0.57672E-10 0.11676E-20 0.74161E-16 + 4 2 0.23103E-06 0.10000E+01 0.42297E+05 0.72168E-10 0.26008E-20 0.92845E-16 + 4 2 0.23103E-06 0.10000E+01 0.34111E+05 0.89522E-10 0.56748E-20 0.11525E-15 + 4 2 0.23103E-06 0.10000E+01 0.27509E+05 0.11016E-09 0.12083E-19 0.14198E-15 + 4 2 0.23103E-06 0.10000E+01 0.22184E+05 0.13448E-09 0.25020E-19 0.17356E-15 + 4 2 0.23103E-06 0.10000E+01 0.17891E+05 0.16275E-09 0.50610E-19 0.21045E-15 + 4 2 0.23103E-06 0.10000E+01 0.14428E+05 0.19511E-09 0.10333E-18 0.25287E-15 + 4 2 0.23103E-06 0.10000E+01 0.11635E+05 0.23164E-09 0.23140E-18 0.30085E-15 + 4 2 0.23103E-06 0.10000E+01 0.93834E+04 0.27264E-09 0.62789E-18 0.35439E-15 + 4 2 0.23103E-06 0.10000E+01 0.75673E+04 0.31948E-09 0.20774E-17 0.41409E-15 + 4 2 0.23103E-06 0.10000E+01 0.61026E+04 0.37643E-09 0.76609E-17 0.48262E-15 + 4 2 0.23103E-06 0.10000E+01 0.49215E+04 0.45390E-09 0.29054E-16 0.56705E-15 + 4 2 0.23103E-06 0.10000E+01 0.39689E+04 0.57456E-09 0.10943E-15 0.68256E-15 + 4 2 0.23103E-06 0.10000E+01 0.32008E+04 0.78421E-09 0.40665E-15 0.85782E-15 + 4 2 0.23103E-06 0.10000E+01 0.25813E+04 0.11722E-08 0.14957E-14 0.11428E-14 + 4 2 0.23103E-06 0.10000E+01 0.20817E+04 0.19095E-08 0.54575E-14 0.16209E-14 4 2 0.23103E-06 0.10000E+01 0.16788E+04 0.33213E-08 0.19743E-13 0.24287E-14 4 2 0.23103E-06 0.10000E+01 0.13538E+04 0.60205E-08 0.70832E-13 0.37885E-14 4 2 0.23103E-06 0.10000E+01 0.10918E+04 0.11154E-07 0.25271E-12 0.60652E-14 @@ -21310,24 +21310,24 @@ VERSION 2.8.2 4 2 0.23103E-06 0.10000E+01 0.24221E+03 0.79141E-06 0.70241E-09 0.20999E-12 4 2 0.23103E-06 0.10000E+01 0.19533E+03 0.12350E-05 0.13331E-08 0.31627E-12 4 2 0.23103E-06 0.10000E+01 0.15752E+03 0.12350E-05 0.13331E-08 0.31627E-12 - 4 2 0.40314E-06 0.10000E+01 0.80645E+05 0.92050E-53 0.68860E-64 0.12579E-58 - 4 2 0.40314E-06 0.10000E+01 0.65036E+05 0.77864E-52 0.10934E-62 0.10644E-57 - 4 2 0.40314E-06 0.10000E+01 0.52449E+05 0.66154E-51 0.14670E-61 0.90468E-57 - 4 2 0.40314E-06 0.10000E+01 0.42297E+05 0.49712E-50 0.19868E-60 0.68026E-56 - 4 2 0.40314E-06 0.10000E+01 0.34111E+05 0.35763E-49 0.27129E-59 0.48994E-55 - 4 2 0.40314E-06 0.10000E+01 0.27509E+05 0.25565E-48 0.36443E-58 0.35087E-54 - 4 2 0.40314E-06 0.10000E+01 0.22184E+05 0.18078E-47 0.47779E-57 0.24886E-53 - 4 2 0.40314E-06 0.10000E+01 0.17891E+05 0.12533E-46 0.60974E-56 0.17336E-52 - 4 2 0.40314E-06 0.10000E+01 0.14428E+05 0.84786E-46 0.75811E-55 0.11812E-51 - 4 2 0.40314E-06 0.10000E+01 0.11635E+05 0.55896E-45 0.91320E-54 0.78667E-51 - 4 2 0.40314E-06 0.10000E+01 0.93834E+04 0.35753E-44 0.10446E-52 0.51011E-50 - 4 2 0.40314E-06 0.10000E+01 0.75673E+04 0.21895E-43 0.11159E-51 0.31765E-49 - 4 2 0.40314E-06 0.10000E+01 0.61026E+04 0.12709E-42 0.12129E-50 0.18585E-48 - 4 2 0.40314E-06 0.10000E+01 0.49215E+04 0.74073E-42 0.18325E-49 0.10296E-47 - 4 2 0.40314E-06 0.10000E+01 0.39689E+04 0.53933E-41 0.41724E-48 0.62707E-47 - 4 2 0.40314E-06 0.10000E+01 0.32008E+04 0.18023E-38 0.33797E-45 0.17410E-44 - 4 2 0.40314E-06 0.10000E+01 0.25813E+04 0.11715E-29 0.48536E-36 0.10560E-35 - 4 2 0.40314E-06 0.10000E+01 0.20817E+04 0.19204E-13 0.28442E-19 0.16551E-19 + 4 2 0.40314E-06 0.10000E+01 0.80645E+05 0.62244E-10 0.39225E-21 0.85042E-16 + 4 2 0.40314E-06 0.10000E+01 0.65036E+05 0.79834E-10 0.90204E-21 0.10910E-15 + 4 2 0.40314E-06 0.10000E+01 0.52449E+05 0.10097E-09 0.20453E-20 0.13801E-15 + 4 2 0.40314E-06 0.10000E+01 0.42297E+05 0.12635E-09 0.45573E-20 0.17279E-15 + 4 2 0.40314E-06 0.10000E+01 0.34111E+05 0.15674E-09 0.99482E-20 0.21450E-15 + 4 2 0.40314E-06 0.10000E+01 0.27509E+05 0.19289E-09 0.21195E-19 0.26424E-15 + 4 2 0.40314E-06 0.10000E+01 0.22184E+05 0.23549E-09 0.43908E-19 0.32305E-15 + 4 2 0.40314E-06 0.10000E+01 0.17891E+05 0.28502E-09 0.88797E-19 0.39174E-15 + 4 2 0.40314E-06 0.10000E+01 0.14428E+05 0.34176E-09 0.18086E-18 0.47076E-15 + 4 2 0.40314E-06 0.10000E+01 0.11635E+05 0.40579E-09 0.40247E-18 0.56016E-15 + 4 2 0.40314E-06 0.10000E+01 0.93834E+04 0.47761E-09 0.10817E-17 0.65992E-15 + 4 2 0.40314E-06 0.10000E+01 0.75673E+04 0.55951E-09 0.35485E-17 0.77114E-15 + 4 2 0.40314E-06 0.10000E+01 0.61026E+04 0.65864E-09 0.13007E-16 0.89865E-15 + 4 2 0.40314E-06 0.10000E+01 0.49215E+04 0.79254E-09 0.49096E-16 0.10554E-14 + 4 2 0.40314E-06 0.10000E+01 0.39689E+04 0.99934E-09 0.18405E-15 0.12692E-14 + 4 2 0.40314E-06 0.10000E+01 0.32008E+04 0.13559E-08 0.68062E-15 0.15925E-14 + 4 2 0.40314E-06 0.10000E+01 0.25813E+04 0.20112E-08 0.24912E-14 0.21164E-14 + 4 2 0.40314E-06 0.10000E+01 0.20817E+04 0.32494E-08 0.90474E-14 0.29927E-14 4 2 0.40314E-06 0.10000E+01 0.16788E+04 0.56078E-08 0.32597E-13 0.44681E-14 4 2 0.40314E-06 0.10000E+01 0.13538E+04 0.10096E-07 0.11655E-12 0.69424E-14 4 2 0.40314E-06 0.10000E+01 0.10918E+04 0.18594E-07 0.41469E-12 0.11067E-13 @@ -21340,24 +21340,24 @@ VERSION 2.8.2 4 2 0.40314E-06 0.10000E+01 0.24221E+03 0.12939E-05 0.11454E-08 0.37106E-12 4 2 0.40314E-06 0.10000E+01 0.19533E+03 0.20178E-05 0.21736E-08 0.55757E-12 4 2 0.40314E-06 0.10000E+01 0.15752E+03 0.20178E-05 0.21736E-08 0.55757E-12 - 4 2 0.70346E-06 0.10000E+01 0.80645E+05 0.16062E-52 0.12016E-63 0.21949E-58 - 4 2 0.70346E-06 0.10000E+01 0.65036E+05 0.13587E-51 0.19079E-62 0.18574E-57 - 4 2 0.70346E-06 0.10000E+01 0.52449E+05 0.11543E-50 0.25599E-61 0.15786E-56 - 4 2 0.70346E-06 0.10000E+01 0.42297E+05 0.86745E-50 0.34669E-60 0.11870E-55 - 4 2 0.70346E-06 0.10000E+01 0.34111E+05 0.62405E-49 0.47339E-59 0.85491E-55 - 4 2 0.70346E-06 0.10000E+01 0.27509E+05 0.44609E-48 0.63590E-58 0.61225E-54 - 4 2 0.70346E-06 0.10000E+01 0.22184E+05 0.31545E-47 0.83372E-57 0.43425E-53 - 4 2 0.70346E-06 0.10000E+01 0.17891E+05 0.21869E-46 0.10640E-55 0.30250E-52 - 4 2 0.70346E-06 0.10000E+01 0.14428E+05 0.14795E-45 0.13228E-54 0.20612E-51 - 4 2 0.70346E-06 0.10000E+01 0.11635E+05 0.97536E-45 0.15935E-53 0.13727E-50 - 4 2 0.70346E-06 0.10000E+01 0.93834E+04 0.62386E-44 0.18228E-52 0.89011E-50 - 4 2 0.70346E-06 0.10000E+01 0.75673E+04 0.38205E-43 0.19472E-51 0.55428E-49 - 4 2 0.70346E-06 0.10000E+01 0.61026E+04 0.22176E-42 0.21165E-50 0.32429E-48 - 4 2 0.70346E-06 0.10000E+01 0.49215E+04 0.12925E-41 0.31975E-49 0.17965E-47 - 4 2 0.70346E-06 0.10000E+01 0.39689E+04 0.94109E-41 0.72805E-48 0.10942E-46 - 4 2 0.70346E-06 0.10000E+01 0.32008E+04 0.31449E-38 0.58973E-45 0.30379E-44 - 4 2 0.70346E-06 0.10000E+01 0.25813E+04 0.20442E-29 0.84692E-36 0.18426E-35 - 4 2 0.70346E-06 0.10000E+01 0.20817E+04 0.33510E-13 0.49630E-19 0.28880E-19 + 4 2 0.70346E-06 0.10000E+01 0.80645E+05 0.10861E-09 0.68446E-21 0.14839E-15 + 4 2 0.70346E-06 0.10000E+01 0.65036E+05 0.13931E-09 0.15740E-20 0.19036E-15 + 4 2 0.70346E-06 0.10000E+01 0.52449E+05 0.17618E-09 0.35689E-20 0.24082E-15 + 4 2 0.70346E-06 0.10000E+01 0.42297E+05 0.22047E-09 0.79522E-20 0.30150E-15 + 4 2 0.70346E-06 0.10000E+01 0.34111E+05 0.27350E-09 0.17359E-19 0.37428E-15 + 4 2 0.70346E-06 0.10000E+01 0.27509E+05 0.33658E-09 0.36983E-19 0.46108E-15 + 4 2 0.70346E-06 0.10000E+01 0.22184E+05 0.41091E-09 0.76617E-19 0.56370E-15 + 4 2 0.70346E-06 0.10000E+01 0.17891E+05 0.49735E-09 0.15494E-18 0.68355E-15 + 4 2 0.70346E-06 0.10000E+01 0.14428E+05 0.59635E-09 0.31560E-18 0.82145E-15 + 4 2 0.70346E-06 0.10000E+01 0.11635E+05 0.70808E-09 0.70229E-18 0.97745E-15 + 4 2 0.70346E-06 0.10000E+01 0.93834E+04 0.83340E-09 0.18876E-17 0.11515E-14 + 4 2 0.70346E-06 0.10000E+01 0.75673E+04 0.97632E-09 0.61919E-17 0.13456E-14 + 4 2 0.70346E-06 0.10000E+01 0.61026E+04 0.11493E-08 0.22697E-16 0.15681E-14 + 4 2 0.70346E-06 0.10000E+01 0.49215E+04 0.13829E-08 0.85669E-16 0.18416E-14 + 4 2 0.70346E-06 0.10000E+01 0.39689E+04 0.17438E-08 0.32116E-15 0.22147E-14 + 4 2 0.70346E-06 0.10000E+01 0.32008E+04 0.23659E-08 0.11876E-14 0.27787E-14 + 4 2 0.70346E-06 0.10000E+01 0.25813E+04 0.35094E-08 0.43469E-14 0.36931E-14 + 4 2 0.70346E-06 0.10000E+01 0.20817E+04 0.56700E-08 0.15787E-13 0.52221E-14 4 2 0.70346E-06 0.10000E+01 0.16788E+04 0.97853E-08 0.56880E-13 0.77966E-14 4 2 0.70346E-06 0.10000E+01 0.13538E+04 0.17616E-07 0.20337E-12 0.12114E-13 4 2 0.70346E-06 0.10000E+01 0.10918E+04 0.32446E-07 0.72361E-12 0.19311E-13 @@ -21370,24 +21370,24 @@ VERSION 2.8.2 4 2 0.70346E-06 0.10000E+01 0.24221E+03 0.22577E-05 0.19986E-08 0.64747E-12 4 2 0.70346E-06 0.10000E+01 0.19533E+03 0.35209E-05 0.37928E-08 0.97293E-12 4 2 0.70346E-06 0.10000E+01 0.15752E+03 0.35209E-05 0.37928E-08 0.97293E-12 - 4 2 0.12275E-05 0.10000E+01 0.80645E+05 0.28028E-52 0.20966E-63 0.38300E-58 - 4 2 0.12275E-05 0.10000E+01 0.65036E+05 0.23708E-51 0.33292E-62 0.32410E-57 - 4 2 0.12275E-05 0.10000E+01 0.52449E+05 0.20143E-50 0.44668E-61 0.27546E-56 - 4 2 0.12275E-05 0.10000E+01 0.42297E+05 0.15136E-49 0.60495E-60 0.20713E-55 - 4 2 0.12275E-05 0.10000E+01 0.34111E+05 0.10889E-48 0.82603E-59 0.14918E-54 - 4 2 0.12275E-05 0.10000E+01 0.27509E+05 0.77840E-48 0.11096E-57 0.10683E-53 - 4 2 0.12275E-05 0.10000E+01 0.22184E+05 0.55044E-47 0.14548E-56 0.75774E-53 - 4 2 0.12275E-05 0.10000E+01 0.17891E+05 0.38161E-46 0.18565E-55 0.52785E-52 - 4 2 0.12275E-05 0.10000E+01 0.14428E+05 0.25816E-45 0.23083E-54 0.35967E-51 - 4 2 0.12275E-05 0.10000E+01 0.11635E+05 0.17019E-44 0.27805E-53 0.23953E-50 - 4 2 0.12275E-05 0.10000E+01 0.93834E+04 0.10886E-43 0.31807E-52 0.15532E-49 - 4 2 0.12275E-05 0.10000E+01 0.75673E+04 0.66665E-43 0.33977E-51 0.96719E-49 - 4 2 0.12275E-05 0.10000E+01 0.61026E+04 0.38696E-42 0.36931E-50 0.56587E-48 - 4 2 0.12275E-05 0.10000E+01 0.49215E+04 0.22554E-41 0.55795E-49 0.31348E-47 - 4 2 0.12275E-05 0.10000E+01 0.39689E+04 0.16421E-40 0.12704E-47 0.19093E-46 - 4 2 0.12275E-05 0.10000E+01 0.32008E+04 0.54876E-38 0.10291E-44 0.53009E-44 - 4 2 0.12275E-05 0.10000E+01 0.25813E+04 0.35670E-29 0.14778E-35 0.32153E-35 - 4 2 0.12275E-05 0.10000E+01 0.20817E+04 0.58472E-13 0.86601E-19 0.50393E-19 + 4 2 0.12275E-05 0.10000E+01 0.80645E+05 0.18952E-09 0.11943E-20 0.25894E-15 + 4 2 0.12275E-05 0.10000E+01 0.65036E+05 0.24308E-09 0.27466E-20 0.33217E-15 + 4 2 0.12275E-05 0.10000E+01 0.52449E+05 0.30742E-09 0.62276E-20 0.42022E-15 + 4 2 0.12275E-05 0.10000E+01 0.42297E+05 0.38470E-09 0.13876E-19 0.52610E-15 + 4 2 0.12275E-05 0.10000E+01 0.34111E+05 0.47723E-09 0.30290E-19 0.65310E-15 + 4 2 0.12275E-05 0.10000E+01 0.27509E+05 0.58732E-09 0.64534E-19 0.80456E-15 + 4 2 0.12275E-05 0.10000E+01 0.22184E+05 0.71701E-09 0.13369E-18 0.98362E-15 + 4 2 0.12275E-05 0.10000E+01 0.17891E+05 0.86784E-09 0.27037E-18 0.11928E-14 + 4 2 0.12275E-05 0.10000E+01 0.14428E+05 0.10406E-08 0.55070E-18 0.14334E-14 + 4 2 0.12275E-05 0.10000E+01 0.11635E+05 0.12356E-08 0.12254E-17 0.17056E-14 + 4 2 0.12275E-05 0.10000E+01 0.93834E+04 0.14542E-08 0.32937E-17 0.20093E-14 + 4 2 0.12275E-05 0.10000E+01 0.75673E+04 0.17036E-08 0.10805E-16 0.23480E-14 + 4 2 0.12275E-05 0.10000E+01 0.61026E+04 0.20054E-08 0.39605E-16 0.27362E-14 + 4 2 0.12275E-05 0.10000E+01 0.49215E+04 0.24131E-08 0.14949E-15 0.32135E-14 + 4 2 0.12275E-05 0.10000E+01 0.39689E+04 0.30428E-08 0.56040E-15 0.38644E-14 + 4 2 0.12275E-05 0.10000E+01 0.32008E+04 0.41284E-08 0.20724E-14 0.48487E-14 + 4 2 0.12275E-05 0.10000E+01 0.25813E+04 0.61237E-08 0.75852E-14 0.64442E-14 + 4 2 0.12275E-05 0.10000E+01 0.20817E+04 0.98939E-08 0.27548E-13 0.91123E-14 4 2 0.12275E-05 0.10000E+01 0.16788E+04 0.17075E-07 0.99253E-13 0.13605E-13 4 2 0.12275E-05 0.10000E+01 0.13538E+04 0.30739E-07 0.35488E-12 0.21138E-13 4 2 0.12275E-05 0.10000E+01 0.10918E+04 0.56616E-07 0.12627E-11 0.33696E-13 @@ -21400,24 +21400,24 @@ VERSION 2.8.2 4 2 0.12275E-05 0.10000E+01 0.24221E+03 0.39396E-05 0.34875E-08 0.11298E-11 4 2 0.12275E-05 0.10000E+01 0.19533E+03 0.61438E-05 0.66182E-08 0.16977E-11 4 2 0.12275E-05 0.10000E+01 0.15752E+03 0.61438E-05 0.66182E-08 0.16977E-11 - 4 2 0.21419E-05 0.10000E+01 0.80645E+05 0.48907E-52 0.36585E-63 0.66831E-58 - 4 2 0.21419E-05 0.10000E+01 0.65036E+05 0.41369E-51 0.58092E-62 0.56554E-57 - 4 2 0.21419E-05 0.10000E+01 0.52449E+05 0.35148E-50 0.77943E-61 0.48066E-56 - 4 2 0.21419E-05 0.10000E+01 0.42297E+05 0.26412E-49 0.10556E-59 0.36142E-55 - 4 2 0.21419E-05 0.10000E+01 0.34111E+05 0.19001E-48 0.14414E-58 0.26031E-54 - 4 2 0.21419E-05 0.10000E+01 0.27509E+05 0.13583E-47 0.19362E-57 0.18642E-53 - 4 2 0.21419E-05 0.10000E+01 0.22184E+05 0.96049E-47 0.25385E-56 0.13222E-52 - 4 2 0.21419E-05 0.10000E+01 0.17891E+05 0.66588E-46 0.32396E-55 0.92106E-52 - 4 2 0.21419E-05 0.10000E+01 0.14428E+05 0.45047E-45 0.40278E-54 0.62760E-51 - 4 2 0.21419E-05 0.10000E+01 0.11635E+05 0.29698E-44 0.48518E-53 0.41796E-50 - 4 2 0.21419E-05 0.10000E+01 0.93834E+04 0.18995E-43 0.55502E-52 0.27102E-49 - 4 2 0.21419E-05 0.10000E+01 0.75673E+04 0.11633E-42 0.59288E-51 0.16877E-48 - 4 2 0.21419E-05 0.10000E+01 0.61026E+04 0.67523E-42 0.64443E-50 0.98741E-48 - 4 2 0.21419E-05 0.10000E+01 0.49215E+04 0.39355E-41 0.97359E-49 0.54701E-47 - 4 2 0.21419E-05 0.10000E+01 0.39689E+04 0.28654E-40 0.22168E-47 0.33317E-46 - 4 2 0.21419E-05 0.10000E+01 0.32008E+04 0.95755E-38 0.17956E-44 0.92498E-44 - 4 2 0.21419E-05 0.10000E+01 0.25813E+04 0.62242E-29 0.25787E-35 0.56105E-35 - 4 2 0.21419E-05 0.10000E+01 0.20817E+04 0.10203E-12 0.15111E-18 0.87933E-19 + 4 2 0.21419E-05 0.10000E+01 0.80645E+05 0.33070E-09 0.20840E-20 0.45183E-15 + 4 2 0.21419E-05 0.10000E+01 0.65036E+05 0.42416E-09 0.47926E-20 0.57963E-15 + 4 2 0.21419E-05 0.10000E+01 0.52449E+05 0.53643E-09 0.10867E-19 0.73327E-15 + 4 2 0.21419E-05 0.10000E+01 0.42297E+05 0.67128E-09 0.24213E-19 0.91802E-15 + 4 2 0.21419E-05 0.10000E+01 0.34111E+05 0.83274E-09 0.52855E-19 0.11396E-14 + 4 2 0.21419E-05 0.10000E+01 0.27509E+05 0.10248E-08 0.11261E-18 0.14039E-14 + 4 2 0.21419E-05 0.10000E+01 0.22184E+05 0.12511E-08 0.23328E-18 0.17164E-14 + 4 2 0.21419E-05 0.10000E+01 0.17891E+05 0.15143E-08 0.47178E-18 0.20813E-14 + 4 2 0.21419E-05 0.10000E+01 0.14428E+05 0.18158E-08 0.96094E-18 0.25012E-14 + 4 2 0.21419E-05 0.10000E+01 0.11635E+05 0.21560E-08 0.21383E-17 0.29762E-14 + 4 2 0.21419E-05 0.10000E+01 0.93834E+04 0.25375E-08 0.57473E-17 0.35062E-14 + 4 2 0.21419E-05 0.10000E+01 0.75673E+04 0.29727E-08 0.18853E-16 0.40971E-14 + 4 2 0.21419E-05 0.10000E+01 0.61026E+04 0.34993E-08 0.69108E-16 0.47745E-14 + 4 2 0.21419E-05 0.10000E+01 0.49215E+04 0.42108E-08 0.26085E-15 0.56073E-14 + 4 2 0.21419E-05 0.10000E+01 0.39689E+04 0.53095E-08 0.97786E-15 0.67432E-14 + 4 2 0.21419E-05 0.10000E+01 0.32008E+04 0.72038E-08 0.36162E-14 0.84608E-14 + 4 2 0.21419E-05 0.10000E+01 0.25813E+04 0.10686E-07 0.13236E-13 0.11245E-13 + 4 2 0.21419E-05 0.10000E+01 0.20817E+04 0.17264E-07 0.48069E-13 0.15900E-13 4 2 0.21419E-05 0.10000E+01 0.16788E+04 0.29794E-07 0.17319E-12 0.23739E-13 4 2 0.21419E-05 0.10000E+01 0.13538E+04 0.53638E-07 0.61924E-12 0.36885E-13 4 2 0.21419E-05 0.10000E+01 0.10918E+04 0.98791E-07 0.22033E-11 0.58798E-13 @@ -21430,24 +21430,24 @@ VERSION 2.8.2 4 2 0.21419E-05 0.10000E+01 0.24221E+03 0.68744E-05 0.60855E-08 0.19714E-11 4 2 0.21419E-05 0.10000E+01 0.19533E+03 0.10721E-04 0.11548E-07 0.29624E-11 4 2 0.21419E-05 0.10000E+01 0.15752E+03 0.10721E-04 0.11548E-07 0.29624E-11 - 4 2 0.37375E-05 0.10000E+01 0.80645E+05 0.85339E-52 0.63839E-63 0.11662E-57 - 4 2 0.37375E-05 0.10000E+01 0.65036E+05 0.72187E-51 0.10137E-61 0.98683E-57 - 4 2 0.37375E-05 0.10000E+01 0.52449E+05 0.61331E-50 0.13601E-60 0.83872E-56 - 4 2 0.37375E-05 0.10000E+01 0.42297E+05 0.46087E-49 0.18420E-59 0.63066E-55 - 4 2 0.37375E-05 0.10000E+01 0.34111E+05 0.33156E-48 0.25151E-58 0.45422E-54 - 4 2 0.37375E-05 0.10000E+01 0.27509E+05 0.23701E-47 0.33785E-57 0.32529E-53 - 4 2 0.37375E-05 0.10000E+01 0.22184E+05 0.16760E-46 0.44296E-56 0.23072E-52 - 4 2 0.37375E-05 0.10000E+01 0.17891E+05 0.11619E-45 0.56528E-55 0.16072E-51 - 4 2 0.37375E-05 0.10000E+01 0.14428E+05 0.78604E-45 0.70283E-54 0.10951E-50 - 4 2 0.37375E-05 0.10000E+01 0.11635E+05 0.51821E-44 0.84662E-53 0.72932E-50 - 4 2 0.37375E-05 0.10000E+01 0.93834E+04 0.33146E-43 0.96847E-52 0.47292E-49 - 4 2 0.37375E-05 0.10000E+01 0.75673E+04 0.20298E-42 0.10345E-50 0.29449E-48 - 4 2 0.37375E-05 0.10000E+01 0.61026E+04 0.11782E-41 0.11245E-49 0.17230E-47 - 4 2 0.37375E-05 0.10000E+01 0.49215E+04 0.68673E-41 0.16989E-48 0.95449E-47 - 4 2 0.37375E-05 0.10000E+01 0.39689E+04 0.50000E-40 0.38682E-47 0.58135E-46 - 4 2 0.37375E-05 0.10000E+01 0.32008E+04 0.16709E-37 0.31333E-44 0.16140E-43 - 4 2 0.37375E-05 0.10000E+01 0.25813E+04 0.10861E-28 0.44997E-35 0.97899E-35 - 4 2 0.37375E-05 0.10000E+01 0.20817E+04 0.17804E-12 0.26368E-18 0.15344E-18 + 4 2 0.37375E-05 0.10000E+01 0.80645E+05 0.57706E-09 0.36365E-20 0.78841E-15 + 4 2 0.37375E-05 0.10000E+01 0.65036E+05 0.74013E-09 0.83627E-20 0.10114E-14 + 4 2 0.37375E-05 0.10000E+01 0.52449E+05 0.93604E-09 0.18962E-19 0.12795E-14 + 4 2 0.37375E-05 0.10000E+01 0.42297E+05 0.11713E-08 0.42250E-19 0.16019E-14 + 4 2 0.37375E-05 0.10000E+01 0.34111E+05 0.14531E-08 0.92228E-19 0.19886E-14 + 4 2 0.37375E-05 0.10000E+01 0.27509E+05 0.17883E-08 0.19649E-18 0.24497E-14 + 4 2 0.37375E-05 0.10000E+01 0.22184E+05 0.21832E-08 0.40707E-18 0.29949E-14 + 4 2 0.37375E-05 0.10000E+01 0.17891E+05 0.26424E-08 0.82322E-18 0.36317E-14 + 4 2 0.37375E-05 0.10000E+01 0.14428E+05 0.31684E-08 0.16768E-17 0.43644E-14 + 4 2 0.37375E-05 0.10000E+01 0.11635E+05 0.37621E-08 0.37313E-17 0.51932E-14 + 4 2 0.37375E-05 0.10000E+01 0.93834E+04 0.44279E-08 0.10029E-16 0.61180E-14 + 4 2 0.37375E-05 0.10000E+01 0.75673E+04 0.51872E-08 0.32898E-16 0.71491E-14 + 4 2 0.37375E-05 0.10000E+01 0.61026E+04 0.61061E-08 0.12059E-15 0.83313E-14 + 4 2 0.37375E-05 0.10000E+01 0.49215E+04 0.73476E-08 0.45516E-15 0.97844E-14 + 4 2 0.37375E-05 0.10000E+01 0.39689E+04 0.92648E-08 0.17063E-14 0.11766E-13 + 4 2 0.37375E-05 0.10000E+01 0.32008E+04 0.12570E-07 0.63100E-14 0.14764E-13 + 4 2 0.37375E-05 0.10000E+01 0.25813E+04 0.18646E-07 0.23095E-13 0.19621E-13 + 4 2 0.37375E-05 0.10000E+01 0.20817E+04 0.30125E-07 0.83878E-13 0.27745E-13 4 2 0.37375E-05 0.10000E+01 0.16788E+04 0.51989E-07 0.30221E-12 0.41423E-13 4 2 0.37375E-05 0.10000E+01 0.13538E+04 0.93594E-07 0.10805E-11 0.64362E-13 4 2 0.37375E-05 0.10000E+01 0.10918E+04 0.17238E-06 0.38446E-11 0.10260E-12 @@ -21460,24 +21460,24 @@ VERSION 2.8.2 4 2 0.37375E-05 0.10000E+01 0.24221E+03 0.11995E-04 0.10619E-07 0.34400E-11 4 2 0.37375E-05 0.10000E+01 0.19533E+03 0.18707E-04 0.20151E-07 0.51692E-11 4 2 0.37375E-05 0.10000E+01 0.15752E+03 0.18707E-04 0.20151E-07 0.51692E-11 - 4 2 0.65217E-05 0.10000E+01 0.80645E+05 0.14891E-51 0.11140E-62 0.20349E-57 - 4 2 0.65217E-05 0.10000E+01 0.65036E+05 0.12596E-50 0.17688E-61 0.17220E-56 - 4 2 0.65217E-05 0.10000E+01 0.52449E+05 0.10702E-49 0.23732E-60 0.14635E-55 - 4 2 0.65217E-05 0.10000E+01 0.42297E+05 0.80420E-49 0.32141E-59 0.11005E-54 - 4 2 0.65217E-05 0.10000E+01 0.34111E+05 0.57855E-48 0.43887E-58 0.79258E-54 - 4 2 0.65217E-05 0.10000E+01 0.27509E+05 0.41356E-47 0.58954E-57 0.56761E-53 - 4 2 0.65217E-05 0.10000E+01 0.22184E+05 0.29245E-46 0.77293E-56 0.40259E-52 - 4 2 0.65217E-05 0.10000E+01 0.17891E+05 0.20275E-45 0.98639E-55 0.28045E-51 - 4 2 0.65217E-05 0.10000E+01 0.14428E+05 0.13716E-44 0.12264E-53 0.19109E-50 - 4 2 0.65217E-05 0.10000E+01 0.11635E+05 0.90424E-44 0.14773E-52 0.12726E-49 - 4 2 0.65217E-05 0.10000E+01 0.93834E+04 0.57837E-43 0.16899E-51 0.82521E-49 - 4 2 0.65217E-05 0.10000E+01 0.75673E+04 0.35419E-42 0.18052E-50 0.51387E-48 - 4 2 0.65217E-05 0.10000E+01 0.61026E+04 0.20559E-41 0.19622E-49 0.30065E-47 - 4 2 0.65217E-05 0.10000E+01 0.49215E+04 0.11983E-40 0.29644E-48 0.16655E-46 - 4 2 0.65217E-05 0.10000E+01 0.39689E+04 0.87248E-40 0.67497E-47 0.10144E-45 - 4 2 0.65217E-05 0.10000E+01 0.32008E+04 0.29156E-37 0.54674E-44 0.28164E-43 - 4 2 0.65217E-05 0.10000E+01 0.25813E+04 0.18952E-28 0.78517E-35 0.17083E-34 - 4 2 0.65217E-05 0.10000E+01 0.20817E+04 0.31066E-12 0.46011E-18 0.26774E-18 + 4 2 0.65217E-05 0.10000E+01 0.80645E+05 0.10069E-08 0.63455E-20 0.13757E-14 + 4 2 0.65217E-05 0.10000E+01 0.65036E+05 0.12915E-08 0.14592E-19 0.17649E-14 + 4 2 0.65217E-05 0.10000E+01 0.52449E+05 0.16333E-08 0.33087E-19 0.22327E-14 + 4 2 0.65217E-05 0.10000E+01 0.42297E+05 0.20439E-08 0.73724E-19 0.27952E-14 + 4 2 0.65217E-05 0.10000E+01 0.34111E+05 0.25356E-08 0.16093E-18 0.34699E-14 + 4 2 0.65217E-05 0.10000E+01 0.27509E+05 0.31204E-08 0.34287E-18 0.42747E-14 + 4 2 0.65217E-05 0.10000E+01 0.22184E+05 0.38095E-08 0.71031E-18 0.52260E-14 + 4 2 0.65217E-05 0.10000E+01 0.17891E+05 0.46109E-08 0.14365E-17 0.63372E-14 + 4 2 0.65217E-05 0.10000E+01 0.14428E+05 0.55287E-08 0.29259E-17 0.76155E-14 + 4 2 0.65217E-05 0.10000E+01 0.11635E+05 0.65646E-08 0.65108E-17 0.90618E-14 + 4 2 0.65217E-05 0.10000E+01 0.93834E+04 0.77264E-08 0.17499E-16 0.10676E-13 + 4 2 0.65217E-05 0.10000E+01 0.75673E+04 0.90513E-08 0.57404E-16 0.12475E-13 + 4 2 0.65217E-05 0.10000E+01 0.61026E+04 0.10655E-07 0.21042E-15 0.14538E-13 + 4 2 0.65217E-05 0.10000E+01 0.49215E+04 0.12821E-07 0.79423E-15 0.17073E-13 + 4 2 0.65217E-05 0.10000E+01 0.39689E+04 0.16167E-07 0.29774E-14 0.20532E-13 + 4 2 0.65217E-05 0.10000E+01 0.32008E+04 0.21934E-07 0.11011E-13 0.25761E-13 + 4 2 0.65217E-05 0.10000E+01 0.25813E+04 0.32536E-07 0.40300E-13 0.34238E-13 + 4 2 0.65217E-05 0.10000E+01 0.20817E+04 0.52566E-07 0.14636E-12 0.48414E-13 4 2 0.65217E-05 0.10000E+01 0.16788E+04 0.90718E-07 0.52733E-12 0.72281E-13 4 2 0.65217E-05 0.10000E+01 0.13538E+04 0.16332E-06 0.18855E-11 0.11231E-12 4 2 0.65217E-05 0.10000E+01 0.10918E+04 0.30080E-06 0.67085E-11 0.17903E-12 @@ -21490,24 +21490,24 @@ VERSION 2.8.2 4 2 0.65217E-05 0.10000E+01 0.24221E+03 0.20931E-04 0.18529E-07 0.60027E-11 4 2 0.65217E-05 0.10000E+01 0.19533E+03 0.32642E-04 0.35163E-07 0.90200E-11 4 2 0.65217E-05 0.10000E+01 0.15752E+03 0.32642E-04 0.35163E-07 0.90200E-11 - 4 2 0.11380E-04 0.10000E+01 0.80645E+05 0.25984E-51 0.19438E-62 0.35508E-57 - 4 2 0.11380E-04 0.10000E+01 0.65036E+05 0.21980E-50 0.30865E-61 0.30047E-56 - 4 2 0.11380E-04 0.10000E+01 0.52449E+05 0.18674E-49 0.41411E-60 0.25537E-55 - 4 2 0.11380E-04 0.10000E+01 0.42297E+05 0.14033E-48 0.56084E-59 0.19202E-54 - 4 2 0.11380E-04 0.10000E+01 0.34111E+05 0.10095E-47 0.76580E-58 0.13830E-53 - 4 2 0.11380E-04 0.10000E+01 0.27509E+05 0.72165E-47 0.10287E-56 0.99044E-53 - 4 2 0.11380E-04 0.10000E+01 0.22184E+05 0.51031E-46 0.13487E-55 0.70249E-52 - 4 2 0.11380E-04 0.10000E+01 0.17891E+05 0.35378E-45 0.17212E-54 0.48936E-51 - 4 2 0.11380E-04 0.10000E+01 0.14428E+05 0.23933E-44 0.21400E-53 0.33344E-50 - 4 2 0.11380E-04 0.10000E+01 0.11635E+05 0.15778E-43 0.25778E-52 0.22206E-49 - 4 2 0.11380E-04 0.10000E+01 0.93834E+04 0.10092E-42 0.29488E-51 0.14399E-48 - 4 2 0.11380E-04 0.10000E+01 0.75673E+04 0.61804E-42 0.31500E-50 0.89667E-48 - 4 2 0.11380E-04 0.10000E+01 0.61026E+04 0.35875E-41 0.34238E-49 0.52461E-47 - 4 2 0.11380E-04 0.10000E+01 0.49215E+04 0.20910E-40 0.51727E-48 0.29062E-46 - 4 2 0.11380E-04 0.10000E+01 0.39689E+04 0.15224E-39 0.11778E-46 0.17701E-45 - 4 2 0.11380E-04 0.10000E+01 0.32008E+04 0.50875E-37 0.95402E-44 0.49145E-43 - 4 2 0.11380E-04 0.10000E+01 0.25813E+04 0.33069E-28 0.13701E-34 0.29808E-34 - 4 2 0.11380E-04 0.10000E+01 0.20817E+04 0.54209E-12 0.80286E-18 0.46719E-18 + 4 2 0.11380E-04 0.10000E+01 0.80645E+05 0.17570E-08 0.11073E-19 0.24006E-14 + 4 2 0.11380E-04 0.10000E+01 0.65036E+05 0.22536E-08 0.25463E-19 0.30796E-14 + 4 2 0.11380E-04 0.10000E+01 0.52449E+05 0.28501E-08 0.57735E-19 0.38958E-14 + 4 2 0.11380E-04 0.10000E+01 0.42297E+05 0.35665E-08 0.12864E-18 0.48774E-14 + 4 2 0.11380E-04 0.10000E+01 0.34111E+05 0.44244E-08 0.28082E-18 0.60548E-14 + 4 2 0.11380E-04 0.10000E+01 0.27509E+05 0.54450E-08 0.59828E-18 0.74590E-14 + 4 2 0.11380E-04 0.10000E+01 0.22184E+05 0.66473E-08 0.12394E-17 0.91190E-14 + 4 2 0.11380E-04 0.10000E+01 0.17891E+05 0.80457E-08 0.25066E-17 0.11058E-13 + 4 2 0.11380E-04 0.10000E+01 0.14428E+05 0.96472E-08 0.51055E-17 0.13289E-13 + 4 2 0.11380E-04 0.10000E+01 0.11635E+05 0.11455E-07 0.11361E-16 0.15812E-13 + 4 2 0.11380E-04 0.10000E+01 0.93834E+04 0.13482E-07 0.30535E-16 0.18628E-13 + 4 2 0.11380E-04 0.10000E+01 0.75673E+04 0.15794E-07 0.10017E-15 0.21768E-13 + 4 2 0.11380E-04 0.10000E+01 0.61026E+04 0.18592E-07 0.36717E-15 0.25367E-13 + 4 2 0.11380E-04 0.10000E+01 0.49215E+04 0.22372E-07 0.13859E-14 0.29792E-13 + 4 2 0.11380E-04 0.10000E+01 0.39689E+04 0.28210E-07 0.51954E-14 0.35827E-13 + 4 2 0.11380E-04 0.10000E+01 0.32008E+04 0.38274E-07 0.19213E-13 0.44952E-13 + 4 2 0.11380E-04 0.10000E+01 0.25813E+04 0.56773E-07 0.70321E-13 0.59743E-13 + 4 2 0.11380E-04 0.10000E+01 0.20817E+04 0.91725E-07 0.25539E-12 0.84479E-13 4 2 0.11380E-04 0.10000E+01 0.16788E+04 0.15830E-06 0.92016E-12 0.12613E-12 4 2 0.11380E-04 0.10000E+01 0.13538E+04 0.28498E-06 0.32900E-11 0.19597E-12 4 2 0.11380E-04 0.10000E+01 0.10918E+04 0.52488E-06 0.11706E-10 0.31240E-12 @@ -21520,24 +21520,24 @@ VERSION 2.8.2 4 2 0.11380E-04 0.10000E+01 0.24221E+03 0.36524E-04 0.32332E-07 0.10474E-10 4 2 0.11380E-04 0.10000E+01 0.19533E+03 0.56959E-04 0.61357E-07 0.15739E-10 4 2 0.11380E-04 0.10000E+01 0.15752E+03 0.56959E-04 0.61357E-07 0.15739E-10 - 4 2 0.19857E-04 0.10000E+01 0.80645E+05 0.45341E-51 0.33918E-62 0.61959E-57 - 4 2 0.19857E-04 0.10000E+01 0.65036E+05 0.38353E-50 0.53857E-61 0.52431E-56 - 4 2 0.19857E-04 0.10000E+01 0.52449E+05 0.32585E-49 0.72260E-60 0.44561E-55 - 4 2 0.19857E-04 0.10000E+01 0.42297E+05 0.24486E-48 0.97864E-59 0.33507E-54 - 4 2 0.19857E-04 0.10000E+01 0.34111E+05 0.17616E-47 0.13363E-57 0.24133E-53 - 4 2 0.19857E-04 0.10000E+01 0.27509E+05 0.12592E-46 0.17950E-56 0.17283E-52 - 4 2 0.19857E-04 0.10000E+01 0.22184E+05 0.89046E-46 0.23534E-55 0.12258E-51 - 4 2 0.19857E-04 0.10000E+01 0.17891E+05 0.61733E-45 0.30034E-54 0.85390E-51 - 4 2 0.19857E-04 0.10000E+01 0.14428E+05 0.41762E-44 0.37342E-53 0.58184E-50 - 4 2 0.19857E-04 0.10000E+01 0.11635E+05 0.27532E-43 0.44981E-52 0.38749E-49 - 4 2 0.19857E-04 0.10000E+01 0.93834E+04 0.17610E-42 0.51455E-51 0.25126E-48 - 4 2 0.19857E-04 0.10000E+01 0.75673E+04 0.10784E-41 0.54965E-50 0.15646E-47 - 4 2 0.19857E-04 0.10000E+01 0.61026E+04 0.62600E-41 0.59744E-49 0.91541E-47 - 4 2 0.19857E-04 0.10000E+01 0.49215E+04 0.36486E-40 0.90261E-48 0.50712E-46 - 4 2 0.19857E-04 0.10000E+01 0.39689E+04 0.26565E-39 0.20552E-46 0.30887E-45 - 4 2 0.19857E-04 0.10000E+01 0.32008E+04 0.88774E-37 0.16647E-43 0.85754E-43 - 4 2 0.19857E-04 0.10000E+01 0.25813E+04 0.57704E-28 0.23907E-34 0.52014E-34 - 4 2 0.19857E-04 0.10000E+01 0.20817E+04 0.94591E-12 0.14009E-17 0.81522E-18 + 4 2 0.19857E-04 0.10000E+01 0.80645E+05 0.30659E-08 0.19321E-19 0.41888E-14 + 4 2 0.19857E-04 0.10000E+01 0.65036E+05 0.39323E-08 0.44431E-19 0.53736E-14 + 4 2 0.19857E-04 0.10000E+01 0.52449E+05 0.49732E-08 0.10074E-18 0.67980E-14 + 4 2 0.19857E-04 0.10000E+01 0.42297E+05 0.62234E-08 0.22448E-18 0.85108E-14 + 4 2 0.19857E-04 0.10000E+01 0.34111E+05 0.77203E-08 0.49001E-18 0.10565E-13 + 4 2 0.19857E-04 0.10000E+01 0.27509E+05 0.95012E-08 0.10440E-17 0.13016E-13 + 4 2 0.19857E-04 0.10000E+01 0.22184E+05 0.11599E-07 0.21627E-17 0.15912E-13 + 4 2 0.19857E-04 0.10000E+01 0.17891E+05 0.14039E-07 0.43738E-17 0.19295E-13 + 4 2 0.19857E-04 0.10000E+01 0.14428E+05 0.16834E-07 0.89087E-17 0.23188E-13 + 4 2 0.19857E-04 0.10000E+01 0.11635E+05 0.19988E-07 0.19824E-16 0.27592E-13 + 4 2 0.19857E-04 0.10000E+01 0.93834E+04 0.23525E-07 0.53282E-16 0.32505E-13 + 4 2 0.19857E-04 0.10000E+01 0.75673E+04 0.27560E-07 0.17479E-15 0.37983E-13 + 4 2 0.19857E-04 0.10000E+01 0.61026E+04 0.32442E-07 0.64069E-15 0.44264E-13 + 4 2 0.19857E-04 0.10000E+01 0.49215E+04 0.39038E-07 0.24183E-14 0.51985E-13 + 4 2 0.19857E-04 0.10000E+01 0.39689E+04 0.49224E-07 0.90656E-14 0.62515E-13 + 4 2 0.19857E-04 0.10000E+01 0.32008E+04 0.66786E-07 0.33525E-13 0.78439E-13 + 4 2 0.19857E-04 0.10000E+01 0.25813E+04 0.99065E-07 0.12271E-12 0.10425E-12 + 4 2 0.19857E-04 0.10000E+01 0.20817E+04 0.16005E-06 0.44564E-12 0.14741E-12 4 2 0.19857E-04 0.10000E+01 0.16788E+04 0.27622E-06 0.16056E-11 0.22008E-12 4 2 0.19857E-04 0.10000E+01 0.13538E+04 0.49727E-06 0.57409E-11 0.34196E-12 4 2 0.19857E-04 0.10000E+01 0.10918E+04 0.91588E-06 0.20426E-10 0.54511E-12 @@ -21550,24 +21550,24 @@ VERSION 2.8.2 4 2 0.19857E-04 0.10000E+01 0.24221E+03 0.63732E-04 0.56418E-07 0.18277E-10 4 2 0.19857E-04 0.10000E+01 0.19533E+03 0.99389E-04 0.10706E-06 0.27464E-10 4 2 0.19857E-04 0.10000E+01 0.15752E+03 0.99389E-04 0.10706E-06 0.27464E-10 - 4 2 0.34650E-04 0.10000E+01 0.80645E+05 0.79117E-51 0.59184E-62 0.10811E-56 - 4 2 0.34650E-04 0.10000E+01 0.65036E+05 0.66924E-50 0.93977E-61 0.91488E-56 - 4 2 0.34650E-04 0.10000E+01 0.52449E+05 0.56859E-49 0.12609E-59 0.77756E-55 - 4 2 0.34650E-04 0.10000E+01 0.42297E+05 0.42727E-48 0.17077E-58 0.58468E-54 - 4 2 0.34650E-04 0.10000E+01 0.34111E+05 0.30738E-47 0.23317E-57 0.42110E-53 - 4 2 0.34650E-04 0.10000E+01 0.27509E+05 0.21973E-46 0.31322E-56 0.30157E-52 - 4 2 0.34650E-04 0.10000E+01 0.22184E+05 0.15538E-45 0.41066E-55 0.21390E-51 - 4 2 0.34650E-04 0.10000E+01 0.17891E+05 0.10772E-44 0.52407E-54 0.14900E-50 - 4 2 0.34650E-04 0.10000E+01 0.14428E+05 0.72873E-44 0.65159E-53 0.10153E-49 - 4 2 0.34650E-04 0.10000E+01 0.11635E+05 0.48043E-43 0.78489E-52 0.67614E-49 - 4 2 0.34650E-04 0.10000E+01 0.93834E+04 0.30729E-42 0.89786E-51 0.43844E-48 - 4 2 0.34650E-04 0.10000E+01 0.75673E+04 0.18818E-41 0.95911E-50 0.27302E-47 - 4 2 0.34650E-04 0.10000E+01 0.61026E+04 0.10923E-40 0.10425E-48 0.15973E-46 - 4 2 0.34650E-04 0.10000E+01 0.49215E+04 0.63666E-40 0.15750E-47 0.88490E-46 - 4 2 0.34650E-04 0.10000E+01 0.39689E+04 0.46355E-39 0.35861E-46 0.53897E-45 - 4 2 0.34650E-04 0.10000E+01 0.32008E+04 0.15491E-36 0.29048E-43 0.14964E-42 - 4 2 0.34650E-04 0.10000E+01 0.25813E+04 0.10069E-27 0.41716E-34 0.90761E-34 - 4 2 0.34650E-04 0.10000E+01 0.20817E+04 0.16506E-11 0.24446E-17 0.14225E-17 + 4 2 0.34650E-04 0.10000E+01 0.80645E+05 0.53498E-08 0.33714E-19 0.73093E-14 + 4 2 0.34650E-04 0.10000E+01 0.65036E+05 0.68617E-08 0.77530E-19 0.93767E-14 + 4 2 0.34650E-04 0.10000E+01 0.52449E+05 0.86779E-08 0.17579E-18 0.11862E-13 + 4 2 0.34650E-04 0.10000E+01 0.42297E+05 0.10859E-07 0.39170E-18 0.14851E-13 + 4 2 0.34650E-04 0.10000E+01 0.34111E+05 0.13471E-07 0.85504E-18 0.18436E-13 + 4 2 0.34650E-04 0.10000E+01 0.27509E+05 0.16579E-07 0.18217E-17 0.22711E-13 + 4 2 0.34650E-04 0.10000E+01 0.22184E+05 0.20240E-07 0.37739E-17 0.27766E-13 + 4 2 0.34650E-04 0.10000E+01 0.17891E+05 0.24498E-07 0.76320E-17 0.33669E-13 + 4 2 0.34650E-04 0.10000E+01 0.14428E+05 0.29374E-07 0.15545E-16 0.40462E-13 + 4 2 0.34650E-04 0.10000E+01 0.11635E+05 0.34878E-07 0.34592E-16 0.48146E-13 + 4 2 0.34650E-04 0.10000E+01 0.93834E+04 0.41050E-07 0.92974E-16 0.56720E-13 + 4 2 0.34650E-04 0.10000E+01 0.75673E+04 0.48090E-07 0.30499E-15 0.66279E-13 + 4 2 0.34650E-04 0.10000E+01 0.61026E+04 0.56609E-07 0.11180E-14 0.77238E-13 + 4 2 0.34650E-04 0.10000E+01 0.49215E+04 0.68119E-07 0.42197E-14 0.90710E-13 + 4 2 0.34650E-04 0.10000E+01 0.39689E+04 0.85893E-07 0.15819E-13 0.10909E-12 + 4 2 0.34650E-04 0.10000E+01 0.32008E+04 0.11654E-06 0.58499E-13 0.13687E-12 + 4 2 0.34650E-04 0.10000E+01 0.25813E+04 0.17286E-06 0.21411E-12 0.18191E-12 + 4 2 0.34650E-04 0.10000E+01 0.20817E+04 0.27929E-06 0.77762E-12 0.25722E-12 4 2 0.34650E-04 0.10000E+01 0.16788E+04 0.48199E-06 0.28017E-11 0.38403E-12 4 2 0.34650E-04 0.10000E+01 0.13538E+04 0.86770E-06 0.10017E-10 0.59669E-12 4 2 0.34650E-04 0.10000E+01 0.10918E+04 0.15982E-05 0.35643E-10 0.95119E-12 @@ -21580,24 +21580,24 @@ VERSION 2.8.2 4 2 0.34650E-04 0.10000E+01 0.24221E+03 0.11121E-03 0.98446E-07 0.31892E-10 4 2 0.34650E-04 0.10000E+01 0.19533E+03 0.17343E-03 0.18682E-06 0.47923E-10 4 2 0.34650E-04 0.10000E+01 0.15752E+03 0.17343E-03 0.18682E-06 0.47923E-10 - 4 2 0.60462E-04 0.10000E+01 0.80645E+05 0.13805E-50 0.10327E-61 0.18865E-56 - 4 2 0.60462E-04 0.10000E+01 0.65036E+05 0.11678E-49 0.16398E-60 0.15964E-55 - 4 2 0.60462E-04 0.10000E+01 0.52449E+05 0.99215E-49 0.22002E-59 0.13568E-54 - 4 2 0.60462E-04 0.10000E+01 0.42297E+05 0.74556E-48 0.29798E-58 0.10202E-53 - 4 2 0.60462E-04 0.10000E+01 0.34111E+05 0.53637E-47 0.40687E-57 0.73479E-53 - 4 2 0.60462E-04 0.10000E+01 0.27509E+05 0.38341E-46 0.54655E-56 0.52622E-52 - 4 2 0.60462E-04 0.10000E+01 0.22184E+05 0.27113E-45 0.71658E-55 0.37324E-51 - 4 2 0.60462E-04 0.10000E+01 0.17891E+05 0.18797E-44 0.91447E-54 0.26000E-50 - 4 2 0.60462E-04 0.10000E+01 0.14428E+05 0.12716E-43 0.11370E-52 0.17716E-49 - 4 2 0.60462E-04 0.10000E+01 0.11635E+05 0.83831E-43 0.13696E-51 0.11798E-48 - 4 2 0.60462E-04 0.10000E+01 0.93834E+04 0.53620E-42 0.15667E-50 0.76505E-48 - 4 2 0.60462E-04 0.10000E+01 0.75673E+04 0.32837E-41 0.16736E-49 0.47640E-47 - 4 2 0.60462E-04 0.10000E+01 0.61026E+04 0.19060E-40 0.18191E-48 0.27873E-46 - 4 2 0.60462E-04 0.10000E+01 0.49215E+04 0.11109E-39 0.27483E-47 0.15441E-45 - 4 2 0.60462E-04 0.10000E+01 0.39689E+04 0.80886E-39 0.62576E-46 0.94046E-45 - 4 2 0.60462E-04 0.10000E+01 0.32008E+04 0.27030E-36 0.50687E-43 0.26111E-42 - 4 2 0.60462E-04 0.10000E+01 0.25813E+04 0.17570E-27 0.72792E-34 0.15837E-33 - 4 2 0.60462E-04 0.10000E+01 0.20817E+04 0.28801E-11 0.42656E-17 0.24822E-17 + 4 2 0.60462E-04 0.10000E+01 0.80645E+05 0.93351E-08 0.58829E-19 0.12754E-13 + 4 2 0.60462E-04 0.10000E+01 0.65036E+05 0.11973E-07 0.13529E-18 0.16362E-13 + 4 2 0.60462E-04 0.10000E+01 0.52449E+05 0.15142E-07 0.30675E-18 0.20699E-13 + 4 2 0.60462E-04 0.10000E+01 0.42297E+05 0.18949E-07 0.68349E-18 0.25914E-13 + 4 2 0.60462E-04 0.10000E+01 0.34111E+05 0.23507E-07 0.14920E-17 0.32169E-13 + 4 2 0.60462E-04 0.10000E+01 0.27509E+05 0.28929E-07 0.31787E-17 0.39630E-13 + 4 2 0.60462E-04 0.10000E+01 0.22184E+05 0.35317E-07 0.65852E-17 0.48450E-13 + 4 2 0.60462E-04 0.10000E+01 0.17891E+05 0.42747E-07 0.13317E-16 0.58751E-13 + 4 2 0.60462E-04 0.10000E+01 0.14428E+05 0.51256E-07 0.27125E-16 0.70603E-13 + 4 2 0.60462E-04 0.10000E+01 0.11635E+05 0.60859E-07 0.60361E-16 0.84011E-13 + 4 2 0.60462E-04 0.10000E+01 0.93834E+04 0.71630E-07 0.16223E-15 0.98972E-13 + 4 2 0.60462E-04 0.10000E+01 0.75673E+04 0.83914E-07 0.53219E-15 0.11565E-12 + 4 2 0.60462E-04 0.10000E+01 0.61026E+04 0.98780E-07 0.19508E-14 0.13478E-12 + 4 2 0.60462E-04 0.10000E+01 0.49215E+04 0.11886E-06 0.73632E-14 0.15828E-12 + 4 2 0.60462E-04 0.10000E+01 0.39689E+04 0.14988E-06 0.27603E-13 0.19035E-12 + 4 2 0.60462E-04 0.10000E+01 0.32008E+04 0.20335E-06 0.10208E-12 0.23883E-12 + 4 2 0.60462E-04 0.10000E+01 0.25813E+04 0.30163E-06 0.37362E-12 0.31742E-12 + 4 2 0.60462E-04 0.10000E+01 0.20817E+04 0.48734E-06 0.13569E-11 0.44884E-12 4 2 0.60462E-04 0.10000E+01 0.16788E+04 0.84104E-06 0.48888E-11 0.67011E-12 4 2 0.60462E-04 0.10000E+01 0.13538E+04 0.15141E-05 0.17480E-10 0.10412E-11 4 2 0.60462E-04 0.10000E+01 0.10918E+04 0.27887E-05 0.62194E-10 0.16598E-11 @@ -21610,24 +21610,24 @@ VERSION 2.8.2 4 2 0.60462E-04 0.10000E+01 0.24221E+03 0.19405E-03 0.17178E-06 0.55650E-10 4 2 0.60462E-04 0.10000E+01 0.19533E+03 0.30262E-03 0.32599E-06 0.83623E-10 4 2 0.60462E-04 0.10000E+01 0.15752E+03 0.30262E-03 0.32599E-06 0.83623E-10 - 4 2 0.10550E-03 0.10000E+01 0.80645E+05 0.24090E-50 0.18021E-61 0.32919E-56 - 4 2 0.10550E-03 0.10000E+01 0.65036E+05 0.20377E-49 0.28614E-60 0.27856E-55 - 4 2 0.10550E-03 0.10000E+01 0.52449E+05 0.17312E-48 0.38392E-59 0.23675E-54 - 4 2 0.10550E-03 0.10000E+01 0.42297E+05 0.13010E-47 0.51995E-58 0.17802E-53 - 4 2 0.10550E-03 0.10000E+01 0.34111E+05 0.93593E-47 0.70997E-57 0.12822E-52 - 4 2 0.10550E-03 0.10000E+01 0.27509E+05 0.66903E-46 0.95370E-56 0.91823E-52 - 4 2 0.10550E-03 0.10000E+01 0.22184E+05 0.47310E-45 0.12504E-54 0.65128E-51 - 4 2 0.10550E-03 0.10000E+01 0.17891E+05 0.32799E-44 0.15957E-53 0.45368E-50 - 4 2 0.10550E-03 0.10000E+01 0.14428E+05 0.22188E-43 0.19840E-52 0.30913E-49 - 4 2 0.10550E-03 0.10000E+01 0.11635E+05 0.14628E-42 0.23898E-51 0.20587E-48 - 4 2 0.10550E-03 0.10000E+01 0.93834E+04 0.93564E-42 0.27338E-50 0.13350E-47 - 4 2 0.10550E-03 0.10000E+01 0.75673E+04 0.57298E-41 0.29203E-49 0.83129E-47 - 4 2 0.10550E-03 0.10000E+01 0.61026E+04 0.33259E-40 0.31742E-48 0.48636E-46 - 4 2 0.10550E-03 0.10000E+01 0.49215E+04 0.19385E-39 0.47956E-47 0.26944E-45 - 4 2 0.10550E-03 0.10000E+01 0.39689E+04 0.14114E-38 0.10919E-45 0.16411E-44 - 4 2 0.10550E-03 0.10000E+01 0.32008E+04 0.47166E-36 0.88446E-43 0.45561E-42 - 4 2 0.10550E-03 0.10000E+01 0.25813E+04 0.30658E-27 0.12702E-33 0.27635E-33 - 4 2 0.10550E-03 0.10000E+01 0.20817E+04 0.50257E-11 0.74433E-17 0.43313E-17 + 4 2 0.10550E-03 0.10000E+01 0.80645E+05 0.16289E-07 0.10265E-18 0.22255E-13 + 4 2 0.10550E-03 0.10000E+01 0.65036E+05 0.20893E-07 0.23606E-18 0.28550E-13 + 4 2 0.10550E-03 0.10000E+01 0.52449E+05 0.26423E-07 0.53526E-18 0.36118E-13 + 4 2 0.10550E-03 0.10000E+01 0.42297E+05 0.33065E-07 0.11926E-17 0.45218E-13 + 4 2 0.10550E-03 0.10000E+01 0.34111E+05 0.41018E-07 0.26034E-17 0.56133E-13 + 4 2 0.10550E-03 0.10000E+01 0.27509E+05 0.50480E-07 0.55466E-17 0.69152E-13 + 4 2 0.10550E-03 0.10000E+01 0.22184E+05 0.61627E-07 0.11491E-16 0.84542E-13 + 4 2 0.10550E-03 0.10000E+01 0.17891E+05 0.74590E-07 0.23238E-16 0.10252E-12 + 4 2 0.10550E-03 0.10000E+01 0.14428E+05 0.89438E-07 0.47332E-16 0.12320E-12 + 4 2 0.10550E-03 0.10000E+01 0.11635E+05 0.10620E-06 0.10533E-15 0.14659E-12 + 4 2 0.10550E-03 0.10000E+01 0.93834E+04 0.12499E-06 0.28309E-15 0.17270E-12 + 4 2 0.10550E-03 0.10000E+01 0.75673E+04 0.14642E-06 0.92864E-15 0.20181E-12 + 4 2 0.10550E-03 0.10000E+01 0.61026E+04 0.17236E-06 0.34040E-14 0.23518E-12 + 4 2 0.10550E-03 0.10000E+01 0.49215E+04 0.20741E-06 0.12848E-13 0.27620E-12 + 4 2 0.10550E-03 0.10000E+01 0.39689E+04 0.26153E-06 0.48166E-13 0.33215E-12 + 4 2 0.10550E-03 0.10000E+01 0.32008E+04 0.35483E-06 0.17812E-12 0.41675E-12 + 4 2 0.10550E-03 0.10000E+01 0.25813E+04 0.52633E-06 0.65194E-12 0.55387E-12 + 4 2 0.10550E-03 0.10000E+01 0.20817E+04 0.85037E-06 0.23677E-11 0.78320E-12 4 2 0.10550E-03 0.10000E+01 0.16788E+04 0.14676E-05 0.85307E-11 0.11693E-11 4 2 0.10550E-03 0.10000E+01 0.13538E+04 0.26420E-05 0.30501E-10 0.18168E-11 4 2 0.10550E-03 0.10000E+01 0.10918E+04 0.48661E-05 0.10852E-09 0.28962E-11 @@ -21640,24 +21640,24 @@ VERSION 2.8.2 4 2 0.10550E-03 0.10000E+01 0.24221E+03 0.33861E-03 0.29975E-06 0.97106E-10 4 2 0.10550E-03 0.10000E+01 0.19533E+03 0.52806E-03 0.56883E-06 0.14592E-09 4 2 0.10550E-03 0.10000E+01 0.15752E+03 0.52806E-03 0.56883E-06 0.14592E-09 - 4 2 0.18409E-03 0.10000E+01 0.80645E+05 0.42035E-50 0.31445E-61 0.57441E-56 - 4 2 0.18409E-03 0.10000E+01 0.65036E+05 0.35557E-49 0.49930E-60 0.48608E-55 - 4 2 0.18409E-03 0.10000E+01 0.52449E+05 0.30209E-48 0.66992E-59 0.41312E-54 - 4 2 0.18409E-03 0.10000E+01 0.42297E+05 0.22701E-47 0.90729E-58 0.31064E-53 - 4 2 0.18409E-03 0.10000E+01 0.34111E+05 0.16331E-46 0.12389E-56 0.22373E-52 - 4 2 0.18409E-03 0.10000E+01 0.27509E+05 0.11674E-45 0.16642E-55 0.16023E-51 - 4 2 0.18409E-03 0.10000E+01 0.22184E+05 0.82554E-45 0.21818E-54 0.11364E-50 - 4 2 0.18409E-03 0.10000E+01 0.17891E+05 0.57232E-44 0.27844E-53 0.79164E-50 - 4 2 0.18409E-03 0.10000E+01 0.14428E+05 0.38718E-43 0.34619E-52 0.53942E-49 - 4 2 0.18409E-03 0.10000E+01 0.11635E+05 0.25525E-42 0.41701E-51 0.35923E-48 - 4 2 0.18409E-03 0.10000E+01 0.93834E+04 0.16326E-41 0.47703E-50 0.23294E-47 - 4 2 0.18409E-03 0.10000E+01 0.75673E+04 0.99982E-41 0.50958E-49 0.14506E-46 - 4 2 0.18409E-03 0.10000E+01 0.61026E+04 0.58036E-40 0.55388E-48 0.84867E-46 - 4 2 0.18409E-03 0.10000E+01 0.49215E+04 0.33826E-39 0.83680E-47 0.47015E-45 - 4 2 0.18409E-03 0.10000E+01 0.39689E+04 0.24628E-38 0.19053E-45 0.28635E-44 - 4 2 0.18409E-03 0.10000E+01 0.32008E+04 0.82301E-36 0.15433E-42 0.79502E-42 - 4 2 0.18409E-03 0.10000E+01 0.25813E+04 0.53497E-27 0.22164E-33 0.48222E-33 - 4 2 0.18409E-03 0.10000E+01 0.20817E+04 0.87695E-11 0.12988E-16 0.75578E-17 + 4 2 0.18409E-03 0.10000E+01 0.80645E+05 0.28424E-07 0.17912E-18 0.38834E-13 + 4 2 0.18409E-03 0.10000E+01 0.65036E+05 0.36456E-07 0.41192E-18 0.49818E-13 + 4 2 0.18409E-03 0.10000E+01 0.52449E+05 0.46106E-07 0.93399E-18 0.63024E-13 + 4 2 0.18409E-03 0.10000E+01 0.42297E+05 0.57696E-07 0.20811E-17 0.78903E-13 + 4 2 0.18409E-03 0.10000E+01 0.34111E+05 0.71574E-07 0.45428E-17 0.97949E-13 + 4 2 0.18409E-03 0.10000E+01 0.27509E+05 0.88084E-07 0.96785E-17 0.12067E-12 + 4 2 0.18409E-03 0.10000E+01 0.22184E+05 0.10754E-06 0.20051E-16 0.14752E-12 + 4 2 0.18409E-03 0.10000E+01 0.17891E+05 0.13016E-06 0.40549E-16 0.17889E-12 + 4 2 0.18409E-03 0.10000E+01 0.14428E+05 0.15606E-06 0.82592E-16 0.21497E-12 + 4 2 0.18409E-03 0.10000E+01 0.11635E+05 0.18531E-06 0.18379E-15 0.25580E-12 + 4 2 0.18409E-03 0.10000E+01 0.93834E+04 0.21810E-06 0.49397E-15 0.30135E-12 + 4 2 0.18409E-03 0.10000E+01 0.75673E+04 0.25550E-06 0.16204E-14 0.35214E-12 + 4 2 0.18409E-03 0.10000E+01 0.61026E+04 0.30077E-06 0.59398E-14 0.41037E-12 + 4 2 0.18409E-03 0.10000E+01 0.49215E+04 0.36192E-06 0.22420E-13 0.48195E-12 + 4 2 0.18409E-03 0.10000E+01 0.39689E+04 0.45635E-06 0.84047E-13 0.57957E-12 + 4 2 0.18409E-03 0.10000E+01 0.32008E+04 0.61916E-06 0.31081E-12 0.72720E-12 + 4 2 0.18409E-03 0.10000E+01 0.25813E+04 0.91842E-06 0.11376E-11 0.96647E-12 + 4 2 0.18409E-03 0.10000E+01 0.20817E+04 0.14838E-05 0.41315E-11 0.13666E-11 4 2 0.18409E-03 0.10000E+01 0.16788E+04 0.25608E-05 0.14886E-10 0.20404E-11 4 2 0.18409E-03 0.10000E+01 0.13538E+04 0.46101E-05 0.53223E-10 0.31702E-11 4 2 0.18409E-03 0.10000E+01 0.10918E+04 0.84911E-05 0.18937E-09 0.50537E-11 @@ -21670,24 +21670,24 @@ VERSION 2.8.2 4 2 0.18409E-03 0.10000E+01 0.24221E+03 0.59085E-03 0.52305E-06 0.16944E-09 4 2 0.18409E-03 0.10000E+01 0.19533E+03 0.92143E-03 0.99258E-06 0.25462E-09 4 2 0.18409E-03 0.10000E+01 0.15752E+03 0.92143E-03 0.99258E-06 0.25462E-09 - 4 2 0.32123E-03 0.10000E+01 0.80645E+05 0.73348E-50 0.54869E-61 0.10023E-55 - 4 2 0.32123E-03 0.10000E+01 0.65036E+05 0.62044E-49 0.87125E-60 0.84818E-55 - 4 2 0.32123E-03 0.10000E+01 0.52449E+05 0.52713E-48 0.11690E-58 0.72087E-54 - 4 2 0.32123E-03 0.10000E+01 0.42297E+05 0.39612E-47 0.15832E-57 0.54205E-53 - 4 2 0.32123E-03 0.10000E+01 0.34111E+05 0.28497E-46 0.21617E-56 0.39040E-52 - 4 2 0.32123E-03 0.10000E+01 0.27509E+05 0.20371E-45 0.29038E-55 0.27958E-51 - 4 2 0.32123E-03 0.10000E+01 0.22184E+05 0.14405E-44 0.38072E-54 0.19830E-50 - 4 2 0.32123E-03 0.10000E+01 0.17891E+05 0.99867E-44 0.48586E-53 0.13814E-49 - 4 2 0.32123E-03 0.10000E+01 0.14428E+05 0.67560E-43 0.60408E-52 0.94125E-49 - 4 2 0.32123E-03 0.10000E+01 0.11635E+05 0.44540E-42 0.72766E-51 0.62684E-48 - 4 2 0.32123E-03 0.10000E+01 0.93834E+04 0.28489E-41 0.83239E-50 0.40647E-47 - 4 2 0.32123E-03 0.10000E+01 0.75673E+04 0.17446E-40 0.88918E-49 0.25311E-46 - 4 2 0.32123E-03 0.10000E+01 0.61026E+04 0.10127E-39 0.96649E-48 0.14809E-45 - 4 2 0.32123E-03 0.10000E+01 0.49215E+04 0.59024E-39 0.14602E-46 0.82038E-45 - 4 2 0.32123E-03 0.10000E+01 0.39689E+04 0.42975E-38 0.33247E-45 0.49967E-44 - 4 2 0.32123E-03 0.10000E+01 0.32008E+04 0.14361E-35 0.26930E-42 0.13873E-41 - 4 2 0.32123E-03 0.10000E+01 0.25813E+04 0.93348E-27 0.38675E-33 0.84144E-33 - 4 2 0.32123E-03 0.10000E+01 0.20817E+04 0.15302E-10 0.22663E-16 0.13188E-16 + 4 2 0.32123E-03 0.10000E+01 0.80645E+05 0.49598E-07 0.31256E-18 0.67764E-13 + 4 2 0.32123E-03 0.10000E+01 0.65036E+05 0.63614E-07 0.71877E-18 0.86930E-13 + 4 2 0.32123E-03 0.10000E+01 0.52449E+05 0.80452E-07 0.16298E-17 0.10997E-12 + 4 2 0.32123E-03 0.10000E+01 0.42297E+05 0.10068E-06 0.36314E-17 0.13768E-12 + 4 2 0.32123E-03 0.10000E+01 0.34111E+05 0.12489E-06 0.79270E-17 0.17092E-12 + 4 2 0.32123E-03 0.10000E+01 0.27509E+05 0.15370E-06 0.16888E-16 0.21055E-12 + 4 2 0.32123E-03 0.10000E+01 0.22184E+05 0.18764E-06 0.34987E-16 0.25741E-12 + 4 2 0.32123E-03 0.10000E+01 0.17891E+05 0.22711E-06 0.70756E-16 0.31215E-12 + 4 2 0.32123E-03 0.10000E+01 0.14428E+05 0.27232E-06 0.14412E-15 0.37511E-12 + 4 2 0.32123E-03 0.10000E+01 0.11635E+05 0.32335E-06 0.32070E-15 0.44635E-12 + 4 2 0.32123E-03 0.10000E+01 0.93834E+04 0.38057E-06 0.86196E-15 0.52584E-12 + 4 2 0.32123E-03 0.10000E+01 0.75673E+04 0.44584E-06 0.28275E-14 0.61446E-12 + 4 2 0.32123E-03 0.10000E+01 0.61026E+04 0.52482E-06 0.10365E-13 0.71607E-12 + 4 2 0.32123E-03 0.10000E+01 0.49215E+04 0.63152E-06 0.39121E-13 0.84097E-12 + 4 2 0.32123E-03 0.10000E+01 0.39689E+04 0.79630E-06 0.14666E-12 0.10113E-11 + 4 2 0.32123E-03 0.10000E+01 0.32008E+04 0.10804E-05 0.54234E-12 0.12689E-11 + 4 2 0.32123E-03 0.10000E+01 0.25813E+04 0.16026E-05 0.19850E-11 0.16864E-11 + 4 2 0.32123E-03 0.10000E+01 0.20817E+04 0.25892E-05 0.72092E-11 0.23847E-11 4 2 0.32123E-03 0.10000E+01 0.16788E+04 0.44685E-05 0.25974E-10 0.35603E-11 4 2 0.32123E-03 0.10000E+01 0.13538E+04 0.80444E-05 0.92871E-10 0.55319E-11 4 2 0.32123E-03 0.10000E+01 0.10918E+04 0.14816E-04 0.33044E-09 0.88184E-11 @@ -21750,24 +21750,24 @@ VERSION 2.8.2 4 3 0.10550E-03 0.10000E+01 0.16820E+01 0.24292E+01 0.78744E-01 0.11067E-02 0.14584E+00 0.18734E-03 0.46642E+10 0.21341E+03 0.50000E+03 0.11797E-14 0.86423E-02 0.57614E-02 0.32683E+02 4 3 0.18409E-03 0.10000E+01 0.16820E+01 0.24292E+01 0.23976E+00 0.19311E-02 0.25449E+00 0.18734E-03 0.81388E+10 0.37239E+03 0.50000E+03 0.20586E-14 0.15080E-01 0.57614E-02 0.32683E+02 4 3 0.32123E-03 0.10000E+01 0.16820E+01 0.24292E+01 0.73003E+00 0.33697E-02 0.44406E+00 0.18734E-03 0.14202E+11 0.64980E+03 0.50000E+03 0.35921E-14 0.26314E-01 0.57614E-02 0.32683E+02 - 4 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 4 3 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 4 3 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 4 3 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 4 3 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 4 3 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 4 3 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 4 3 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 4 3 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 4 3 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 4 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 4 3 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 4 3 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 4 3 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 4 3 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 4 3 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 4 3 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 4 3 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 4 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 4 3 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 4 3 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 4 3 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 4 3 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 4 3 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 4 3 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 4 3 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 4 3 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 4 3 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 4 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 4 3 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 4 3 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 4 3 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 4 3 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 4 3 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 4 3 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 4 3 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 4 3 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 4 3 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 4 3 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -21780,24 +21780,24 @@ VERSION 2.8.2 4 3 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 4 3 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 4 3 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 4 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 4 3 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 4 3 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 4 3 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 4 3 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 4 3 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 4 3 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 4 3 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 4 3 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 4 3 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 4 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 4 3 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 4 3 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 4 3 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 4 3 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 4 3 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 4 3 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 4 3 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 4 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 4 3 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 4 3 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 4 3 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 4 3 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 4 3 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 4 3 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 4 3 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 4 3 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 4 3 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 4 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 4 3 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 4 3 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 4 3 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 4 3 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 4 3 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 4 3 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 4 3 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 4 3 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 4 3 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 4 3 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -21810,24 +21810,24 @@ VERSION 2.8.2 4 3 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 4 3 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 4 3 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 4 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 4 3 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 4 3 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 4 3 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 4 3 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 4 3 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 4 3 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 4 3 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 4 3 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 4 3 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 4 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 4 3 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 4 3 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 4 3 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 4 3 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 4 3 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 4 3 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 4 3 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 4 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 4 3 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 4 3 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 4 3 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 4 3 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 4 3 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 4 3 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 4 3 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 4 3 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 4 3 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 4 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 4 3 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 4 3 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 4 3 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 4 3 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 4 3 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 4 3 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 4 3 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 4 3 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 4 3 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 4 3 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -21840,24 +21840,24 @@ VERSION 2.8.2 4 3 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 4 3 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 4 3 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 4 3 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 4 3 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 4 3 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 4 3 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 4 3 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 4 3 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 4 3 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 4 3 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 4 3 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 4 3 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 4 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 4 3 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 4 3 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 4 3 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 4 3 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 4 3 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 4 3 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 4 3 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 4 3 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 4 3 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 4 3 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 4 3 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 4 3 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 4 3 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 4 3 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 4 3 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 4 3 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 4 3 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 4 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 4 3 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 4 3 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 4 3 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 4 3 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 4 3 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 4 3 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 4 3 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 4 3 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 4 3 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 4 3 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -21870,24 +21870,24 @@ VERSION 2.8.2 4 3 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 4 3 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 4 3 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 4 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 4 3 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 4 3 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 4 3 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 4 3 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 4 3 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 4 3 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 4 3 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 4 3 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 4 3 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 4 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 4 3 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 4 3 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 4 3 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 4 3 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 4 3 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 4 3 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 4 3 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 4 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 4 3 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 4 3 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 4 3 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 4 3 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 4 3 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 4 3 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 4 3 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 4 3 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 4 3 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 4 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 4 3 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 4 3 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 4 3 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 4 3 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 4 3 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 4 3 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 4 3 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 4 3 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 4 3 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 4 3 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -21900,24 +21900,24 @@ VERSION 2.8.2 4 3 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 4 3 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 4 3 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 4 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 4 3 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 4 3 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 4 3 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 4 3 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 4 3 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 4 3 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 4 3 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 4 3 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 4 3 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 4 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 4 3 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 4 3 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 4 3 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 4 3 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 4 3 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 4 3 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 4 3 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 4 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 4 3 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 4 3 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 4 3 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 4 3 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 4 3 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 4 3 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 4 3 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 4 3 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 4 3 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 4 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 4 3 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 4 3 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 4 3 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 4 3 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 4 3 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 4 3 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 4 3 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 4 3 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 4 3 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 4 3 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -21930,24 +21930,24 @@ VERSION 2.8.2 4 3 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 4 3 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 4 3 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 4 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 4 3 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 4 3 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 4 3 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 4 3 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 4 3 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 4 3 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 4 3 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 4 3 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 4 3 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 4 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 4 3 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 4 3 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 4 3 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 4 3 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 4 3 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 4 3 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 4 3 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 4 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 4 3 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 4 3 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 4 3 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 4 3 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 4 3 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 4 3 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 4 3 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 4 3 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 4 3 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 4 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 4 3 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 4 3 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 4 3 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 4 3 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 4 3 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 4 3 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 4 3 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 4 3 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 4 3 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 4 3 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -21960,24 +21960,24 @@ VERSION 2.8.2 4 3 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 4 3 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 4 3 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 4 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 4 3 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 4 3 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 4 3 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 4 3 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 4 3 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 4 3 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 4 3 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 4 3 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 4 3 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 4 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 4 3 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 4 3 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 4 3 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 4 3 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 4 3 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 4 3 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 4 3 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 4 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 4 3 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 4 3 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 4 3 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 4 3 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 4 3 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 4 3 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 4 3 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 4 3 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 4 3 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 4 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 4 3 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 4 3 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 4 3 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 4 3 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 4 3 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 4 3 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 4 3 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 4 3 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 4 3 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 4 3 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -21990,24 +21990,24 @@ VERSION 2.8.2 4 3 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 4 3 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 4 3 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 4 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 4 3 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 4 3 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 4 3 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 4 3 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 4 3 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 4 3 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 4 3 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 4 3 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 4 3 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 4 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 4 3 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 4 3 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 4 3 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 4 3 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 4 3 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 4 3 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 4 3 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 4 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 4 3 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 4 3 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 4 3 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 4 3 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 4 3 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 4 3 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 4 3 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 4 3 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 4 3 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 4 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 4 3 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 4 3 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 4 3 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 4 3 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 4 3 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 4 3 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 4 3 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 4 3 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 4 3 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 4 3 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -22020,24 +22020,24 @@ VERSION 2.8.2 4 3 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 4 3 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 4 3 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 4 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 4 3 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 4 3 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 4 3 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 4 3 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 4 3 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 4 3 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 4 3 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 4 3 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 4 3 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 4 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 4 3 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 4 3 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 4 3 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 4 3 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 4 3 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 4 3 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 4 3 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 4 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 4 3 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 4 3 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 4 3 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 4 3 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 4 3 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 4 3 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 4 3 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 4 3 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 4 3 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 4 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 4 3 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 4 3 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 4 3 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 4 3 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 4 3 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 4 3 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 4 3 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 4 3 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 4 3 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 4 3 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -22050,24 +22050,24 @@ VERSION 2.8.2 4 3 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 4 3 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 4 3 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 4 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 4 3 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 4 3 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 4 3 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 4 3 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 4 3 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 4 3 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 4 3 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 4 3 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 4 3 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 4 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 4 3 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 4 3 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 4 3 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 4 3 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 4 3 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 4 3 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 4 3 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 4 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 4 3 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 4 3 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 4 3 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 4 3 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 4 3 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 4 3 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 4 3 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 4 3 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 4 3 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 4 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 4 3 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 4 3 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 4 3 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 4 3 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 4 3 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 4 3 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 4 3 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 4 3 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 4 3 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 4 3 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -22080,24 +22080,24 @@ VERSION 2.8.2 4 3 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 4 3 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 4 3 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 4 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 4 3 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 4 3 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 4 3 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 4 3 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 4 3 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 4 3 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 4 3 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 4 3 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 4 3 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 4 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 4 3 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 4 3 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 4 3 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 4 3 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 4 3 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 4 3 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 4 3 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 4 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 4 3 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 4 3 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 4 3 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 4 3 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 4 3 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 4 3 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 4 3 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 4 3 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 4 3 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 4 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 4 3 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 4 3 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 4 3 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 4 3 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 4 3 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 4 3 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 4 3 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 4 3 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 4 3 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 4 3 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -22110,24 +22110,24 @@ VERSION 2.8.2 4 3 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 4 3 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 4 3 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 4 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 4 3 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 4 3 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 4 3 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 4 3 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 4 3 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 4 3 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 4 3 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 4 3 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 4 3 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 4 3 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 4 3 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 4 3 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 4 3 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 4 3 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 4 3 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 4 3 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 4 3 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 4 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 4 3 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 4 3 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 4 3 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 4 3 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 4 3 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 4 3 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 4 3 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 4 3 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 4 3 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 4 3 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 4 3 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 4 3 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 4 3 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 4 3 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 4 3 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 4 3 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 4 3 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 4 3 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 4 3 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 4 3 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -22140,24 +22140,24 @@ VERSION 2.8.2 4 3 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 4 3 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 4 3 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 4 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 4 3 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 4 3 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 4 3 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 4 3 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 4 3 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 4 3 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 4 3 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 4 3 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 4 3 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 4 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 4 3 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 4 3 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 4 3 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 4 3 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 4 3 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 4 3 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 4 3 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 4 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 4 3 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 4 3 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 4 3 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 4 3 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 4 3 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 4 3 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 4 3 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 4 3 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 4 3 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 4 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 4 3 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 4 3 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 4 3 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 4 3 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 4 3 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 4 3 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 4 3 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 4 3 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 4 3 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 4 3 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -22170,24 +22170,24 @@ VERSION 2.8.2 4 3 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 4 3 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 4 3 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 4 3 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 4 3 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 4 3 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 4 3 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 4 3 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 4 3 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 4 3 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 4 3 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 4 3 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 4 3 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 4 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 4 3 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 4 3 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 4 3 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 4 3 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 4 3 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 4 3 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 4 3 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 4 3 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 4 3 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 4 3 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 4 3 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 4 3 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 4 3 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 4 3 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 4 3 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 4 3 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 4 3 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 4 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 4 3 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 4 3 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 4 3 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 4 3 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 4 3 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 4 3 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 4 3 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 4 3 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 4 3 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 4 3 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -22200,24 +22200,24 @@ VERSION 2.8.2 4 3 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 4 3 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 4 3 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 4 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 4 3 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 4 3 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 4 3 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 4 3 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 4 3 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 4 3 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 4 3 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 4 3 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 4 3 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 4 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 4 3 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 4 3 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 4 3 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 4 3 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 4 3 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 4 3 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 4 3 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 4 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 4 3 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 4 3 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 4 3 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 4 3 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 4 3 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 4 3 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 4 3 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 4 3 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 4 3 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 4 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 4 3 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 4 3 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 4 3 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 4 3 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 4 3 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 4 3 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 4 3 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 4 3 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 4 3 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 4 3 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -22230,24 +22230,24 @@ VERSION 2.8.2 4 3 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 4 3 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 4 3 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 4 3 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 4 3 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 4 3 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 4 3 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 4 3 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 4 3 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 4 3 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 4 3 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 4 3 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 4 3 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 4 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 4 3 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 4 3 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 4 3 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 4 3 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 4 3 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 4 3 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 4 3 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 4 3 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 4 3 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 4 3 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 4 3 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 4 3 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 4 3 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 4 3 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 4 3 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 4 3 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 4 3 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 4 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 4 3 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 4 3 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 4 3 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 4 3 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 4 3 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 4 3 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 4 3 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 4 3 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 4 3 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 4 3 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -22260,24 +22260,24 @@ VERSION 2.8.2 4 3 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 4 3 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 4 3 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 4 3 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 4 3 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 4 3 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 4 3 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 4 3 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 4 3 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 4 3 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 4 3 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 4 3 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 4 3 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 4 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 4 3 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 4 3 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 4 3 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 4 3 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 4 3 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 4 3 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 4 3 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 4 3 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 4 3 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 4 3 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 4 3 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 4 3 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 4 3 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 4 3 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 4 3 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 4 3 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 4 3 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 4 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 4 3 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 4 3 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 4 3 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 4 3 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 4 3 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 4 3 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 4 3 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 4 3 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 4 3 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 4 3 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -22290,24 +22290,24 @@ VERSION 2.8.2 4 3 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 4 3 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 4 3 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 4 3 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92888E-69 - 4 3 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 4 3 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73136E-67 - 4 3 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87546E-66 - 4 3 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 4 3 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 4 3 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 4 3 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 4 3 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 4 3 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 4 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 4 3 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 4 3 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 4 3 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 4 3 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96300E-53 - 4 3 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 4 3 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 4 3 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 4 3 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76426E-26 + 4 3 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 4 3 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 4 3 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 4 3 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 4 3 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28616E-24 + 4 3 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71527E-24 + 4 3 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 4 3 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 4 3 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 4 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 4 3 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 4 3 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 4 3 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 4 3 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 4 3 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 4 3 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 4 3 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 4 3 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 4 3 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 4 3 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -22320,24 +22320,24 @@ VERSION 2.8.2 4 3 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 4 3 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 4 3 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 4 3 0.17923E-10 0.10000E+01 0.80645E+05 0.56933E-58 0.39458E-69 0.34061E-68 - 4 3 0.17923E-10 0.10000E+01 0.65036E+05 0.46736E-57 0.87603E-68 0.28314E-67 - 4 3 0.17923E-10 0.10000E+01 0.52449E+05 0.52530E-56 0.24092E-66 0.24725E-66 - 4 3 0.17923E-10 0.10000E+01 0.42297E+05 0.74526E-55 0.80035E-65 0.22163E-65 - 4 3 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27753E-63 0.26468E-64 - 4 3 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94017E-62 0.41863E-63 - 4 3 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72570E-62 - 4 3 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12276E-60 - 4 3 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19420E-59 - 4 3 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28905E-58 - 4 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41540E-57 - 4 3 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58881E-56 - 4 3 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83143E-55 - 4 3 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11731E-53 - 4 3 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 4 3 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73374E-50 - 4 3 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53835E-41 - 4 3 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 4 3 0.17923E-10 0.10000E+01 0.80645E+05 0.50977E-15 0.30186E-25 0.24564E-25 + 4 3 0.17923E-10 0.10000E+01 0.65036E+05 0.85185E-15 0.16277E-24 0.34502E-25 + 4 3 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54089E-25 + 4 3 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10005E-24 + 4 3 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21582E-24 + 4 3 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50894E-24 + 4 3 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12388E-23 + 4 3 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30233E-23 + 4 3 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73298E-23 + 4 3 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 4 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42213E-22 + 4 3 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77339E-18 0.10064E-21 + 4 3 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 4 3 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56610E-21 + 4 3 0.17923E-10 0.10000E+01 0.39689E+04 0.69891E-10 0.64956E-16 0.13299E-20 + 4 3 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30870E-20 + 4 3 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70509E-20 + 4 3 0.17923E-10 0.10000E+01 0.20817E+04 0.82770E-09 0.44434E-14 0.15802E-19 4 3 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17280E-13 0.34689E-19 4 3 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74496E-19 4 3 0.17923E-10 0.10000E+01 0.10918E+04 0.81814E-08 0.24471E-12 0.15644E-18 @@ -22350,24 +22350,24 @@ VERSION 2.8.2 4 3 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 4 3 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 4 3 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 4 3 0.31275E-10 0.10000E+01 0.80645E+05 0.12247E-57 0.88074E-69 0.11479E-67 - 4 3 0.31275E-10 0.10000E+01 0.65036E+05 0.10137E-56 0.15648E-67 0.98452E-67 - 4 3 0.31275E-10 0.10000E+01 0.52449E+05 0.94800E-56 0.30713E-66 0.84229E-66 - 4 3 0.31275E-10 0.10000E+01 0.42297E+05 0.99527E-55 0.85054E-65 0.66800E-65 - 4 3 0.31275E-10 0.10000E+01 0.34111E+05 0.13829E-53 0.28089E-63 0.61071E-64 - 4 3 0.31275E-10 0.10000E+01 0.27509E+05 0.23213E-52 0.94793E-62 0.75210E-63 - 4 3 0.31275E-10 0.10000E+01 0.22184E+05 0.40538E-51 0.30614E-60 0.11739E-61 - 4 3 0.31275E-10 0.10000E+01 0.17891E+05 0.68166E-50 0.91705E-59 0.19631E-60 - 4 3 0.31275E-10 0.10000E+01 0.14428E+05 0.10720E-48 0.25765E-57 0.31487E-59 - 4 3 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70061E-56 0.47520E-58 - 4 3 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18857E-54 0.68996E-57 - 4 3 0.31275E-10 0.10000E+01 0.75673E+04 0.32248E-45 0.50659E-53 0.98545E-56 - 4 3 0.31275E-10 0.10000E+01 0.61026E+04 0.45467E-44 0.13608E-51 0.13998E-54 - 4 3 0.31275E-10 0.10000E+01 0.49215E+04 0.64062E-43 0.36550E-50 0.19846E-53 - 4 3 0.31275E-10 0.10000E+01 0.39689E+04 0.90247E-42 0.98149E-49 0.28104E-52 - 4 3 0.31275E-10 0.10000E+01 0.32008E+04 0.39976E-39 0.85213E-46 0.12504E-49 - 4 3 0.31275E-10 0.10000E+01 0.25813E+04 0.29300E-30 0.14317E-36 0.92014E-41 - 4 3 0.31275E-10 0.10000E+01 0.20817E+04 0.55757E-14 0.12152E-19 0.17584E-24 + 4 3 0.31275E-10 0.10000E+01 0.80645E+05 0.93661E-15 0.31775E-25 0.77892E-25 + 4 3 0.31275E-10 0.10000E+01 0.65036E+05 0.13857E-14 0.16698E-24 0.10434E-24 + 4 3 0.31275E-10 0.10000E+01 0.52449E+05 0.23666E-14 0.85819E-24 0.14750E-24 + 4 3 0.31275E-10 0.10000E+01 0.42297E+05 0.48092E-14 0.42261E-23 0.23399E-24 + 4 3 0.31275E-10 0.10000E+01 0.34111E+05 0.11110E-13 0.20042E-22 0.43426E-24 + 4 3 0.31275E-10 0.10000E+01 0.27509E+05 0.27181E-13 0.92731E-22 0.92553E-24 + 4 3 0.31275E-10 0.10000E+01 0.22184E+05 0.67239E-13 0.42340E-21 0.21398E-23 + 4 3 0.31275E-10 0.10000E+01 0.17891E+05 0.16510E-12 0.19217E-20 0.51145E-23 + 4 3 0.31275E-10 0.10000E+01 0.14428E+05 0.40093E-12 0.87010E-20 0.12327E-22 + 4 3 0.31275E-10 0.10000E+01 0.11635E+05 0.96470E-12 0.39357E-19 0.29680E-22 + 4 3 0.31275E-10 0.10000E+01 0.93834E+04 0.23067E-11 0.17785E-18 0.71233E-22 + 4 3 0.31275E-10 0.10000E+01 0.75673E+04 0.54933E-11 0.80113E-18 0.17041E-21 + 4 3 0.31275E-10 0.10000E+01 0.61026E+04 0.13042E-10 0.35768E-17 0.40639E-21 + 4 3 0.31275E-10 0.10000E+01 0.49215E+04 0.30840E-10 0.15703E-16 0.96468E-21 + 4 3 0.31275E-10 0.10000E+01 0.39689E+04 0.72390E-10 0.67405E-16 0.22718E-20 + 4 3 0.31275E-10 0.10000E+01 0.32008E+04 0.16792E-09 0.28250E-15 0.52836E-20 + 4 3 0.31275E-10 0.10000E+01 0.25813E+04 0.38333E-09 0.11561E-14 0.12087E-19 + 4 3 0.31275E-10 0.10000E+01 0.20817E+04 0.85876E-09 0.46143E-14 0.27120E-19 4 3 0.31275E-10 0.10000E+01 0.16788E+04 0.18845E-08 0.17947E-13 0.59587E-19 4 3 0.31275E-10 0.10000E+01 0.13538E+04 0.40460E-08 0.68170E-13 0.12805E-18 4 3 0.31275E-10 0.10000E+01 0.10918E+04 0.84950E-08 0.25418E-12 0.26903E-18 @@ -22380,24 +22380,24 @@ VERSION 2.8.2 4 3 0.31275E-10 0.10000E+01 0.24221E+03 0.84407E-06 0.77873E-09 0.26767E-16 4 3 0.31275E-10 0.10000E+01 0.19533E+03 0.13303E-05 0.14798E-08 0.42186E-16 4 3 0.31275E-10 0.10000E+01 0.15752E+03 0.13303E-05 0.14798E-08 0.42186E-16 - 4 3 0.54572E-10 0.10000E+01 0.80645E+05 0.25935E-57 0.19479E-68 0.36230E-67 - 4 3 0.54572E-10 0.10000E+01 0.65036E+05 0.22045E-56 0.31757E-67 0.31472E-66 - 4 3 0.54572E-10 0.10000E+01 0.52449E+05 0.19249E-55 0.49040E-66 0.26988E-65 - 4 3 0.54572E-10 0.10000E+01 0.42297E+05 0.16422E-54 0.10153E-64 0.20667E-64 - 4 3 0.54572E-10 0.10000E+01 0.34111E+05 0.17201E-53 0.28309E-63 0.16173E-63 - 4 3 0.54572E-10 0.10000E+01 0.27509E+05 0.23979E-52 0.90904E-62 0.15132E-62 - 4 3 0.54572E-10 0.10000E+01 0.22184E+05 0.39303E-51 0.29460E-60 0.19339E-61 - 4 3 0.54572E-10 0.10000E+01 0.17891E+05 0.65778E-50 0.89364E-59 0.30836E-60 - 4 3 0.54572E-10 0.10000E+01 0.14428E+05 0.10442E-48 0.25341E-57 0.50146E-59 - 4 3 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69339E-56 0.77219E-58 - 4 3 0.54572E-10 0.10000E+01 0.93834E+04 0.22542E-46 0.18749E-54 0.11386E-56 - 4 3 0.54572E-10 0.10000E+01 0.75673E+04 0.32051E-45 0.50560E-53 0.16445E-55 - 4 3 0.54572E-10 0.10000E+01 0.61026E+04 0.45364E-44 0.13624E-51 0.23560E-54 - 4 3 0.54572E-10 0.10000E+01 0.49215E+04 0.64124E-43 0.36692E-50 0.33627E-53 - 4 3 0.54572E-10 0.10000E+01 0.39689E+04 0.90579E-42 0.98752E-49 0.47874E-52 - 4 3 0.54572E-10 0.10000E+01 0.32008E+04 0.40216E-39 0.85904E-46 0.21394E-49 - 4 3 0.54572E-10 0.10000E+01 0.25813E+04 0.29538E-30 0.14462E-36 0.15805E-40 - 4 3 0.54572E-10 0.10000E+01 0.20817E+04 0.56335E-14 0.12301E-19 0.30325E-24 + 4 3 0.54572E-10 0.10000E+01 0.80645E+05 0.18116E-14 0.34418E-25 0.24075E-24 + 4 3 0.54572E-10 0.10000E+01 0.65036E+05 0.24864E-14 0.16747E-24 0.31546E-24 + 4 3 0.54572E-10 0.10000E+01 0.52449E+05 0.36998E-14 0.84246E-24 0.42105E-24 + 4 3 0.54572E-10 0.10000E+01 0.42297E+05 0.63460E-14 0.41445E-23 0.59876E-24 + 4 3 0.54572E-10 0.10000E+01 0.34111E+05 0.12760E-13 0.19743E-22 0.96057E-24 + 4 3 0.54572E-10 0.10000E+01 0.27509E+05 0.28758E-13 0.91807E-22 0.17950E-23 + 4 3 0.54572E-10 0.10000E+01 0.22184E+05 0.68430E-13 0.42107E-21 0.38173E-23 + 4 3 0.54572E-10 0.10000E+01 0.17891E+05 0.16545E-12 0.19183E-20 0.87656E-23 + 4 3 0.54572E-10 0.10000E+01 0.14428E+05 0.39995E-12 0.87132E-20 0.20824E-22 + 4 3 0.54572E-10 0.10000E+01 0.11635E+05 0.96241E-12 0.39516E-19 0.50029E-22 + 4 3 0.54572E-10 0.10000E+01 0.93834E+04 0.23053E-11 0.17896E-18 0.12039E-21 + 4 3 0.54572E-10 0.10000E+01 0.75673E+04 0.55028E-11 0.80760E-18 0.28922E-21 + 4 3 0.54572E-10 0.10000E+01 0.61026E+04 0.13095E-10 0.36109E-17 0.69268E-21 + 4 3 0.54572E-10 0.10000E+01 0.49215E+04 0.31026E-10 0.15870E-16 0.16506E-20 + 4 3 0.54572E-10 0.10000E+01 0.39689E+04 0.72953E-10 0.68179E-16 0.38995E-20 + 4 3 0.54572E-10 0.10000E+01 0.32008E+04 0.16946E-09 0.28592E-15 0.90924E-20 + 4 3 0.54572E-10 0.10000E+01 0.25813E+04 0.38727E-09 0.11706E-14 0.20841E-19 + 4 3 0.54572E-10 0.10000E+01 0.20817E+04 0.86831E-09 0.46738E-14 0.46834E-19 4 3 0.54572E-10 0.10000E+01 0.16788E+04 0.19067E-08 0.18183E-13 0.10302E-18 4 3 0.54572E-10 0.10000E+01 0.13538E+04 0.40956E-08 0.69073E-13 0.22157E-18 4 3 0.54572E-10 0.10000E+01 0.10918E+04 0.86022E-08 0.25757E-12 0.46582E-18 @@ -22410,24 +22410,24 @@ VERSION 2.8.2 4 3 0.54572E-10 0.10000E+01 0.24221E+03 0.85533E-06 0.78914E-09 0.46405E-16 4 3 0.54572E-10 0.10000E+01 0.19533E+03 0.13480E-05 0.14996E-08 0.73137E-16 4 3 0.54572E-10 0.10000E+01 0.15752E+03 0.13480E-05 0.14996E-08 0.73137E-16 - 4 3 0.95225E-10 0.10000E+01 0.80645E+05 0.53648E-57 0.41091E-68 0.11715E-66 - 4 3 0.95225E-10 0.10000E+01 0.65036E+05 0.46225E-56 0.65617E-67 0.10081E-65 - 4 3 0.95225E-10 0.10000E+01 0.52449E+05 0.39689E-55 0.91487E-66 0.85980E-65 - 4 3 0.95225E-10 0.10000E+01 0.42297E+05 0.30948E-54 0.14639E-64 0.64450E-64 - 4 3 0.95225E-10 0.10000E+01 0.34111E+05 0.25757E-53 0.30377E-63 0.46327E-63 - 4 3 0.95225E-10 0.10000E+01 0.27509E+05 0.26941E-52 0.84282E-62 0.35368E-62 - 4 3 0.95225E-10 0.10000E+01 0.22184E+05 0.37483E-51 0.26924E-60 0.35404E-61 - 4 3 0.95225E-10 0.10000E+01 0.17891E+05 0.60644E-50 0.83292E-59 0.50819E-60 - 4 3 0.95225E-10 0.10000E+01 0.14428E+05 0.97360E-49 0.24026E-57 0.82207E-59 - 4 3 0.95225E-10 0.10000E+01 0.11635E+05 0.14792E-47 0.66500E-56 0.12827E-57 - 4 3 0.95225E-10 0.10000E+01 0.93834E+04 0.21596E-46 0.18131E-54 0.19117E-56 - 4 3 0.95225E-10 0.10000E+01 0.75673E+04 0.30971E-45 0.49211E-53 0.27813E-55 - 4 3 0.95225E-10 0.10000E+01 0.61026E+04 0.44130E-44 0.13331E-51 0.40060E-54 - 4 3 0.95225E-10 0.10000E+01 0.49215E+04 0.62717E-43 0.36060E-50 0.57426E-53 - 4 3 0.95225E-10 0.10000E+01 0.39689E+04 0.88985E-42 0.97398E-49 0.82059E-52 - 4 3 0.95225E-10 0.10000E+01 0.32008E+04 0.39656E-39 0.84989E-46 0.36789E-49 - 4 3 0.95225E-10 0.10000E+01 0.25813E+04 0.29224E-30 0.14352E-36 0.27260E-40 - 4 3 0.95225E-10 0.10000E+01 0.20817E+04 0.55932E-14 0.12249E-19 0.52474E-24 + 4 3 0.95225E-10 0.10000E+01 0.80645E+05 0.36092E-14 0.41089E-25 0.78049E-24 + 4 3 0.95225E-10 0.10000E+01 0.65036E+05 0.47637E-14 0.17070E-24 0.10082E-23 + 4 3 0.95225E-10 0.10000E+01 0.52449E+05 0.64838E-14 0.80788E-24 0.13007E-23 + 4 3 0.95225E-10 0.10000E+01 0.42297E+05 0.95833E-14 0.39288E-23 0.17228E-23 + 4 3 0.95225E-10 0.10000E+01 0.34111E+05 0.16234E-13 0.18803E-22 0.24549E-23 + 4 3 0.95225E-10 0.10000E+01 0.27509E+05 0.31950E-13 0.88141E-22 0.39735E-23 + 4 3 0.95225E-10 0.10000E+01 0.22184E+05 0.70261E-13 0.40733E-21 0.74788E-23 + 4 3 0.95225E-10 0.10000E+01 0.17891E+05 0.16381E-12 0.18676E-20 0.15915E-22 + 4 3 0.95225E-10 0.10000E+01 0.14428E+05 0.39080E-12 0.85276E-20 0.36412E-22 + 4 3 0.95225E-10 0.10000E+01 0.11635E+05 0.93799E-12 0.38842E-19 0.86146E-22 + 4 3 0.95225E-10 0.10000E+01 0.93834E+04 0.22510E-11 0.17653E-18 0.20635E-21 + 4 3 0.95225E-10 0.10000E+01 0.75673E+04 0.53907E-11 0.79894E-18 0.49574E-21 + 4 3 0.95225E-10 0.10000E+01 0.61026E+04 0.12873E-10 0.35804E-17 0.11893E-20 + 4 3 0.95225E-10 0.10000E+01 0.49215E+04 0.30597E-10 0.15763E-16 0.28404E-20 + 4 3 0.95225E-10 0.10000E+01 0.39689E+04 0.72138E-10 0.67808E-16 0.67248E-20 + 4 3 0.95225E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28464E-15 0.15709E-19 + 4 3 0.95225E-10 0.10000E+01 0.25813E+04 0.38444E-09 0.11662E-14 0.36061E-19 + 4 3 0.95225E-10 0.10000E+01 0.20817E+04 0.86311E-09 0.46585E-14 0.81134E-19 4 3 0.95225E-10 0.10000E+01 0.16788E+04 0.18972E-08 0.18129E-13 0.17863E-18 4 3 0.95225E-10 0.10000E+01 0.13538E+04 0.40783E-08 0.68884E-13 0.38447E-18 4 3 0.95225E-10 0.10000E+01 0.10918E+04 0.85705E-08 0.25689E-12 0.80869E-18 @@ -22440,24 +22440,24 @@ VERSION 2.8.2 4 3 0.95225E-10 0.10000E+01 0.24221E+03 0.85312E-06 0.78713E-09 0.80643E-16 4 3 0.95225E-10 0.10000E+01 0.19533E+03 0.13446E-05 0.14958E-08 0.12710E-15 4 3 0.95225E-10 0.10000E+01 0.15752E+03 0.13446E-05 0.14958E-08 0.12710E-15 - 4 3 0.16616E-09 0.10000E+01 0.80645E+05 0.10967E-56 0.83368E-68 0.42739E-66 - 4 3 0.16616E-09 0.10000E+01 0.65036E+05 0.93901E-56 0.13212E-66 0.36102E-65 - 4 3 0.16616E-09 0.10000E+01 0.52449E+05 0.79899E-55 0.17665E-65 0.30444E-64 - 4 3 0.16616E-09 0.10000E+01 0.42297E+05 0.59988E-54 0.24361E-64 0.22383E-63 - 4 3 0.16616E-09 0.10000E+01 0.34111E+05 0.43958E-53 0.38045E-63 0.15370E-62 - 4 3 0.16616E-09 0.10000E+01 0.27509E+05 0.35617E-52 0.82563E-62 0.10472E-61 - 4 3 0.16616E-09 0.10000E+01 0.22184E+05 0.38588E-51 0.24797E-60 0.83754E-61 - 4 3 0.16616E-09 0.10000E+01 0.17891E+05 0.56905E-50 0.77773E-59 0.98792E-60 - 4 3 0.16616E-09 0.10000E+01 0.14428E+05 0.91133E-49 0.22814E-57 0.14901E-58 - 4 3 0.16616E-09 0.10000E+01 0.11635E+05 0.14030E-47 0.63811E-56 0.22839E-57 - 4 3 0.16616E-09 0.10000E+01 0.93834E+04 0.20702E-46 0.17518E-54 0.33763E-56 - 4 3 0.16616E-09 0.10000E+01 0.75673E+04 0.29906E-45 0.47802E-53 0.48805E-55 - 4 3 0.16616E-09 0.10000E+01 0.61026E+04 0.42849E-44 0.13007E-51 0.69942E-54 - 4 3 0.16616E-09 0.10000E+01 0.49215E+04 0.61174E-43 0.35319E-50 0.99920E-53 - 4 3 0.16616E-09 0.10000E+01 0.39689E+04 0.87133E-42 0.95713E-49 0.14250E-51 - 4 3 0.16616E-09 0.10000E+01 0.32008E+04 0.38963E-39 0.83767E-46 0.63827E-49 - 4 3 0.16616E-09 0.10000E+01 0.25813E+04 0.28805E-30 0.14189E-36 0.47289E-40 - 4 3 0.16616E-09 0.10000E+01 0.20817E+04 0.55323E-14 0.12151E-19 0.91080E-24 + 4 3 0.16616E-09 0.10000E+01 0.80645E+05 0.73434E-14 0.57616E-25 0.28797E-23 + 4 3 0.16616E-09 0.10000E+01 0.65036E+05 0.95002E-14 0.19346E-24 0.36840E-23 + 4 3 0.16616E-09 0.10000E+01 0.52449E+05 0.12327E-13 0.81043E-24 0.46598E-23 + 4 3 0.16616E-09 0.10000E+01 0.42297E+05 0.16555E-13 0.37839E-23 0.59170E-23 + 4 3 0.16616E-09 0.10000E+01 0.34111E+05 0.24186E-13 0.18003E-22 0.77643E-23 + 4 3 0.16616E-09 0.10000E+01 0.27509E+05 0.40423E-13 0.84728E-22 0.11027E-22 + 4 3 0.16616E-09 0.10000E+01 0.22184E+05 0.78233E-13 0.39377E-21 0.17798E-22 + 4 3 0.16616E-09 0.10000E+01 0.17891E+05 0.16919E-12 0.18148E-20 0.33209E-22 + 4 3 0.16616E-09 0.10000E+01 0.14428E+05 0.38940E-12 0.83237E-20 0.69676E-22 + 4 3 0.16616E-09 0.10000E+01 0.11635E+05 0.92145E-12 0.38058E-19 0.15704E-21 + 4 3 0.16616E-09 0.10000E+01 0.93834E+04 0.22025E-11 0.17352E-18 0.36687E-21 + 4 3 0.16616E-09 0.10000E+01 0.75673E+04 0.52768E-11 0.78747E-18 0.87040E-21 + 4 3 0.16616E-09 0.10000E+01 0.61026E+04 0.12626E-10 0.35368E-17 0.20753E-20 + 4 3 0.16616E-09 0.10000E+01 0.49215E+04 0.30084E-10 0.15598E-16 0.49415E-20 + 4 3 0.16616E-09 0.10000E+01 0.39689E+04 0.71092E-10 0.67185E-16 0.11684E-19 + 4 3 0.16616E-09 0.10000E+01 0.32008E+04 0.16583E-09 0.28230E-15 0.27278E-19 + 4 3 0.16616E-09 0.10000E+01 0.25813E+04 0.38023E-09 0.11574E-14 0.62610E-19 + 4 3 0.16616E-09 0.10000E+01 0.20817E+04 0.85474E-09 0.46259E-14 0.14087E-18 4 3 0.16616E-09 0.10000E+01 0.16788E+04 0.18806E-08 0.18008E-13 0.31020E-18 4 3 0.16616E-09 0.10000E+01 0.13538E+04 0.40457E-08 0.68438E-13 0.66772E-18 4 3 0.16616E-09 0.10000E+01 0.10918E+04 0.85068E-08 0.25526E-12 0.14046E-17 @@ -22470,24 +22470,24 @@ VERSION 2.8.2 4 3 0.16616E-09 0.10000E+01 0.24221E+03 0.84771E-06 0.78217E-09 0.14010E-15 4 3 0.16616E-09 0.10000E+01 0.19533E+03 0.13360E-05 0.14864E-08 0.22080E-15 4 3 0.16616E-09 0.10000E+01 0.15752E+03 0.13360E-05 0.14864E-08 0.22080E-15 - 4 3 0.28994E-09 0.10000E+01 0.80645E+05 0.22190E-56 0.16592E-67 0.16672E-65 - 4 3 0.28994E-09 0.10000E+01 0.65036E+05 0.18752E-55 0.26125E-66 0.13967E-64 - 4 3 0.28994E-09 0.10000E+01 0.52449E+05 0.15818E-54 0.34184E-65 0.11731E-63 - 4 3 0.28994E-09 0.10000E+01 0.42297E+05 0.11653E-53 0.44171E-64 0.85925E-63 - 4 3 0.28994E-09 0.10000E+01 0.34111E+05 0.80788E-53 0.58564E-63 0.58669E-62 - 4 3 0.28994E-09 0.10000E+01 0.27509E+05 0.56787E-52 0.97940E-62 0.38784E-61 - 4 3 0.28994E-09 0.10000E+01 0.22184E+05 0.48363E-51 0.25307E-60 0.26781E-60 - 4 3 0.28994E-09 0.10000E+01 0.17891E+05 0.59939E-50 0.77229E-59 0.23874E-59 - 4 3 0.28994E-09 0.10000E+01 0.14428E+05 0.91236E-49 0.22642E-57 0.29721E-58 - 4 3 0.28994E-09 0.10000E+01 0.11635E+05 0.13937E-47 0.63301E-56 0.42501E-57 - 4 3 0.28994E-09 0.10000E+01 0.93834E+04 0.20534E-46 0.17351E-54 0.61335E-56 - 4 3 0.28994E-09 0.10000E+01 0.75673E+04 0.29622E-45 0.47282E-53 0.87495E-55 - 4 3 0.28994E-09 0.10000E+01 0.61026E+04 0.42390E-44 0.12859E-51 0.12412E-53 - 4 3 0.28994E-09 0.10000E+01 0.49215E+04 0.60484E-43 0.34921E-50 0.17593E-52 - 4 3 0.28994E-09 0.10000E+01 0.39689E+04 0.86158E-42 0.94695E-49 0.24948E-51 - 4 3 0.28994E-09 0.10000E+01 0.32008E+04 0.38550E-39 0.82955E-46 0.11133E-48 - 4 3 0.28994E-09 0.10000E+01 0.25813E+04 0.28530E-30 0.14071E-36 0.82299E-40 - 4 3 0.28994E-09 0.10000E+01 0.20817E+04 0.54881E-14 0.12070E-19 0.15832E-23 + 4 3 0.28994E-09 0.10000E+01 0.80645E+05 0.14954E-13 0.94932E-25 0.11300E-22 + 4 3 0.28994E-09 0.10000E+01 0.65036E+05 0.19154E-13 0.26359E-24 0.14411E-22 + 4 3 0.28994E-09 0.10000E+01 0.52449E+05 0.24307E-13 0.92798E-24 0.18099E-22 + 4 3 0.28994E-09 0.10000E+01 0.42297E+05 0.31102E-13 0.39496E-23 0.22566E-22 + 4 3 0.28994E-09 0.10000E+01 0.34111E+05 0.41456E-13 0.18139E-22 0.28352E-22 + 4 3 0.28994E-09 0.10000E+01 0.27509E+05 0.60433E-13 0.84355E-22 0.36899E-22 + 4 3 0.28994E-09 0.10000E+01 0.22184E+05 0.10078E-12 0.39037E-21 0.51891E-22 + 4 3 0.28994E-09 0.10000E+01 0.17891E+05 0.19366E-12 0.17962E-20 0.82386E-22 + 4 3 0.28994E-09 0.10000E+01 0.14428E+05 0.41427E-12 0.82336E-20 0.15024E-21 + 4 3 0.28994E-09 0.10000E+01 0.11635E+05 0.94314E-12 0.37650E-19 0.30776E-21 + 4 3 0.28994E-09 0.10000E+01 0.93834E+04 0.22127E-11 0.17176E-18 0.67994E-21 + 4 3 0.28994E-09 0.10000E+01 0.75673E+04 0.52565E-11 0.78005E-18 0.15651E-20 + 4 3 0.28994E-09 0.10000E+01 0.61026E+04 0.12534E-10 0.35063E-17 0.36722E-20 + 4 3 0.28994E-09 0.10000E+01 0.49215E+04 0.29829E-10 0.15475E-16 0.86691E-20 + 4 3 0.28994E-09 0.10000E+01 0.39689E+04 0.70481E-10 0.66697E-16 0.20402E-19 + 4 3 0.28994E-09 0.10000E+01 0.32008E+04 0.16445E-09 0.28038E-15 0.47514E-19 + 4 3 0.28994E-09 0.10000E+01 0.25813E+04 0.37726E-09 0.11500E-14 0.10891E-18 + 4 3 0.28994E-09 0.10000E+01 0.20817E+04 0.84847E-09 0.45975E-14 0.24485E-18 4 3 0.28994E-09 0.10000E+01 0.16788E+04 0.18676E-08 0.17901E-13 0.53892E-18 4 3 0.28994E-09 0.10000E+01 0.13538E+04 0.40191E-08 0.68038E-13 0.11598E-17 4 3 0.28994E-09 0.10000E+01 0.10918E+04 0.84531E-08 0.25377E-12 0.24394E-17 @@ -22500,24 +22500,24 @@ VERSION 2.8.2 4 3 0.28994E-09 0.10000E+01 0.24221E+03 0.84277E-06 0.77760E-09 0.24320E-15 4 3 0.28994E-09 0.10000E+01 0.19533E+03 0.13283E-05 0.14777E-08 0.38329E-15 4 3 0.28994E-09 0.10000E+01 0.15752E+03 0.13283E-05 0.14777E-08 0.38329E-15 - 4 3 0.50593E-09 0.10000E+01 0.80645E+05 0.43880E-56 0.32513E-67 0.61002E-65 - 4 3 0.50593E-09 0.10000E+01 0.65036E+05 0.36818E-55 0.51075E-66 0.51113E-64 - 4 3 0.50593E-09 0.10000E+01 0.52449E+05 0.30946E-54 0.66468E-65 0.43002E-63 - 4 3 0.50593E-09 0.10000E+01 0.42297E+05 0.22687E-53 0.84709E-64 0.31666E-62 - 4 3 0.50593E-09 0.10000E+01 0.34111E+05 0.15532E-52 0.10642E-62 0.21878E-61 - 4 3 0.50593E-09 0.10000E+01 0.27509E+05 0.10400E-51 0.14759E-61 0.14617E-60 - 4 3 0.50593E-09 0.10000E+01 0.22184E+05 0.75506E-51 0.29839E-60 0.95991E-60 - 4 3 0.50593E-09 0.10000E+01 0.17891E+05 0.74022E-50 0.81706E-59 0.68798E-59 - 4 3 0.50593E-09 0.10000E+01 0.14428E+05 0.98606E-49 0.23300E-57 0.64331E-58 - 4 3 0.50593E-09 0.10000E+01 0.11635E+05 0.14428E-47 0.64537E-56 0.78971E-57 - 4 3 0.50593E-09 0.10000E+01 0.93834E+04 0.20965E-46 0.17572E-54 0.10899E-55 - 4 3 0.50593E-09 0.10000E+01 0.75673E+04 0.30017E-45 0.47617E-53 0.15398E-54 - 4 3 0.50593E-09 0.10000E+01 0.61026E+04 0.42711E-44 0.12895E-51 0.21762E-53 - 4 3 0.50593E-09 0.10000E+01 0.49215E+04 0.60681E-43 0.34922E-50 0.30734E-52 - 4 3 0.50593E-09 0.10000E+01 0.39689E+04 0.86191E-42 0.94547E-49 0.43437E-51 - 4 3 0.50593E-09 0.10000E+01 0.32008E+04 0.38499E-39 0.82764E-46 0.19336E-48 - 4 3 0.50593E-09 0.10000E+01 0.25813E+04 0.28470E-30 0.14037E-36 0.14273E-39 - 4 3 0.50593E-09 0.10000E+01 0.20817E+04 0.54764E-14 0.12044E-19 0.27447E-23 + 4 3 0.50593E-09 0.10000E+01 0.80645E+05 0.29710E-13 0.17336E-24 0.41386E-22 + 4 3 0.50593E-09 0.10000E+01 0.65036E+05 0.37920E-13 0.42468E-24 0.52804E-22 + 4 3 0.50593E-09 0.10000E+01 0.52449E+05 0.47720E-13 0.12440E-23 0.66280E-22 + 4 3 0.50593E-09 0.10000E+01 0.42297E+05 0.59809E-13 0.45573E-23 0.82239E-22 + 4 3 0.50593E-09 0.10000E+01 0.34111E+05 0.76078E-13 0.19349E-22 0.10159E-21 + 4 3 0.50593E-09 0.10000E+01 0.27509E+05 0.10155E-12 0.86981E-22 0.12671E-21 + 4 3 0.50593E-09 0.10000E+01 0.22184E+05 0.14898E-12 0.39655E-21 0.16378E-21 + 4 3 0.50593E-09 0.10000E+01 0.17891E+05 0.24963E-12 0.18106E-20 0.22832E-21 + 4 3 0.50593E-09 0.10000E+01 0.14428E+05 0.47890E-12 0.82623E-20 0.35817E-21 + 4 3 0.50593E-09 0.10000E+01 0.11635E+05 0.10175E-11 0.37675E-19 0.64422E-21 + 4 3 0.50593E-09 0.10000E+01 0.93834E+04 0.22975E-11 0.17159E-18 0.13036E-20 + 4 3 0.50593E-09 0.10000E+01 0.75673E+04 0.53506E-11 0.77861E-18 0.28538E-20 + 4 3 0.50593E-09 0.10000E+01 0.61026E+04 0.12630E-10 0.34986E-17 0.65241E-20 + 4 3 0.50593E-09 0.10000E+01 0.49215E+04 0.29906E-10 0.15440E-16 0.15205E-19 + 4 3 0.50593E-09 0.10000E+01 0.39689E+04 0.70486E-10 0.66549E-16 0.35562E-19 + 4 3 0.50593E-09 0.10000E+01 0.32008E+04 0.16427E-09 0.27978E-15 0.82573E-19 + 4 3 0.50593E-09 0.10000E+01 0.25813E+04 0.37662E-09 0.11477E-14 0.18900E-18 + 4 3 0.50593E-09 0.10000E+01 0.20817E+04 0.84683E-09 0.45885E-14 0.42464E-18 4 3 0.50593E-09 0.10000E+01 0.16788E+04 0.18639E-08 0.17867E-13 0.93438E-18 4 3 0.50593E-09 0.10000E+01 0.13538E+04 0.40111E-08 0.67909E-13 0.20106E-17 4 3 0.50593E-09 0.10000E+01 0.10918E+04 0.84364E-08 0.25329E-12 0.42288E-17 @@ -22530,24 +22530,24 @@ VERSION 2.8.2 4 3 0.50593E-09 0.10000E+01 0.24221E+03 0.84108E-06 0.77601E-09 0.42150E-15 4 3 0.50593E-09 0.10000E+01 0.19533E+03 0.13256E-05 0.14747E-08 0.66428E-15 4 3 0.50593E-09 0.10000E+01 0.15752E+03 0.13256E-05 0.14747E-08 0.66428E-15 - 4 3 0.88282E-09 0.10000E+01 0.80645E+05 0.84571E-56 0.62555E-67 0.20275E-64 - 4 3 0.88282E-09 0.10000E+01 0.65036E+05 0.70874E-55 0.98367E-66 0.17023E-63 - 4 3 0.88282E-09 0.10000E+01 0.52449E+05 0.59603E-54 0.12850E-64 0.14358E-62 - 4 3 0.88282E-09 0.10000E+01 0.42297E+05 0.43826E-53 0.16516E-63 0.10633E-61 - 4 3 0.88282E-09 0.10000E+01 0.34111E+05 0.30190E-52 0.20762E-62 0.74338E-61 - 4 3 0.88282E-09 0.10000E+01 0.27509E+05 0.20163E-51 0.26301E-61 0.50527E-60 - 4 3 0.88282E-09 0.10000E+01 0.22184E+05 0.13588E-50 0.41067E-60 0.33159E-59 - 4 3 0.88282E-09 0.10000E+01 0.17891E+05 0.10714E-49 0.90896E-59 0.21590E-58 - 4 3 0.88282E-09 0.10000E+01 0.14428E+05 0.11448E-48 0.24063E-57 0.15769E-57 - 4 3 0.88282E-09 0.10000E+01 0.11635E+05 0.15156E-47 0.65529E-56 0.15191E-56 - 4 3 0.88282E-09 0.10000E+01 0.93834E+04 0.21383E-46 0.17756E-54 0.18922E-55 - 4 3 0.88282E-09 0.10000E+01 0.75673E+04 0.30358E-45 0.47932E-53 0.26268E-54 - 4 3 0.88282E-09 0.10000E+01 0.61026E+04 0.43005E-44 0.12933E-51 0.37268E-53 - 4 3 0.88282E-09 0.10000E+01 0.49215E+04 0.60876E-43 0.34921E-50 0.52850E-52 - 4 3 0.88282E-09 0.10000E+01 0.39689E+04 0.86214E-42 0.94363E-49 0.74821E-51 - 4 3 0.88282E-09 0.10000E+01 0.32008E+04 0.38433E-39 0.82516E-46 0.33323E-48 - 4 3 0.88282E-09 0.10000E+01 0.25813E+04 0.28391E-30 0.13990E-36 0.24611E-39 - 4 3 0.88282E-09 0.10000E+01 0.20817E+04 0.54597E-14 0.12006E-19 0.47384E-23 + 4 3 0.88282E-09 0.10000E+01 0.80645E+05 0.57352E-13 0.32943E-24 0.13749E-21 + 4 3 0.88282E-09 0.10000E+01 0.65036E+05 0.73176E-13 0.75540E-24 0.17563E-21 + 4 3 0.88282E-09 0.10000E+01 0.52449E+05 0.91900E-13 0.19068E-23 0.22073E-21 + 4 3 0.88282E-09 0.10000E+01 0.42297E+05 0.11430E-12 0.58109E-23 0.27387E-21 + 4 3 0.88282E-09 0.10000E+01 0.34111E+05 0.14224E-12 0.21627E-22 0.33664E-21 + 4 3 0.88282E-09 0.10000E+01 0.27509E+05 0.18060E-12 0.91146E-22 0.41268E-21 + 4 3 0.88282E-09 0.10000E+01 0.22184E+05 0.24191E-12 0.40462E-21 0.51162E-21 + 4 3 0.88282E-09 0.10000E+01 0.17891E+05 0.35724E-12 0.18271E-20 0.65873E-21 + 4 3 0.88282E-09 0.10000E+01 0.14428E+05 0.60189E-12 0.82919E-20 0.91756E-21 + 4 3 0.88282E-09 0.10000E+01 0.11635E+05 0.11565E-11 0.37691E-19 0.14432E-20 + 4 3 0.88282E-09 0.10000E+01 0.93834E+04 0.24524E-11 0.17134E-18 0.26087E-20 + 4 3 0.88282E-09 0.10000E+01 0.75673E+04 0.55189E-11 0.77665E-18 0.53057E-20 + 4 3 0.88282E-09 0.10000E+01 0.61026E+04 0.12802E-10 0.34880E-17 0.11654E-19 + 4 3 0.88282E-09 0.10000E+01 0.49215E+04 0.30052E-10 0.15391E-16 0.26642E-19 + 4 3 0.88282E-09 0.10000E+01 0.39689E+04 0.70531E-10 0.66333E-16 0.61780E-19 + 4 3 0.88282E-09 0.10000E+01 0.32008E+04 0.16404E-09 0.27889E-15 0.14294E-18 + 4 3 0.88282E-09 0.10000E+01 0.25813E+04 0.37573E-09 0.11441E-14 0.32675E-18 + 4 3 0.88282E-09 0.10000E+01 0.20817E+04 0.84446E-09 0.45744E-14 0.73390E-18 4 3 0.88282E-09 0.10000E+01 0.16788E+04 0.18584E-08 0.17813E-13 0.16149E-17 4 3 0.88282E-09 0.10000E+01 0.13538E+04 0.39989E-08 0.67701E-13 0.34755E-17 4 3 0.88282E-09 0.10000E+01 0.10918E+04 0.84106E-08 0.25251E-12 0.73110E-17 @@ -22560,24 +22560,24 @@ VERSION 2.8.2 4 3 0.88282E-09 0.10000E+01 0.24221E+03 0.83838E-06 0.77346E-09 0.72875E-15 4 3 0.88282E-09 0.10000E+01 0.19533E+03 0.13213E-05 0.14698E-08 0.11485E-14 4 3 0.88282E-09 0.10000E+01 0.15752E+03 0.13213E-05 0.14698E-08 0.11485E-14 - 4 3 0.15405E-08 0.10000E+01 0.80645E+05 0.15964E-55 0.11826E-66 0.61969E-64 - 4 3 0.15405E-08 0.10000E+01 0.65036E+05 0.13396E-54 0.18637E-65 0.52131E-63 - 4 3 0.15405E-08 0.10000E+01 0.52449E+05 0.11290E-53 0.24505E-64 0.44059E-62 - 4 3 0.15405E-08 0.10000E+01 0.42297E+05 0.83446E-53 0.31923E-63 0.32769E-61 - 4 3 0.15405E-08 0.10000E+01 0.34111E+05 0.58106E-52 0.40834E-62 0.23108E-60 - 4 3 0.15405E-08 0.10000E+01 0.27509E+05 0.39312E-51 0.50554E-61 0.15934E-59 - 4 3 0.15405E-08 0.10000E+01 0.22184E+05 0.25983E-50 0.66242E-60 0.10605E-58 - 4 3 0.15405E-08 0.10000E+01 0.17891E+05 0.17867E-49 0.11093E-58 0.67665E-58 - 4 3 0.15405E-08 0.10000E+01 0.14428E+05 0.14859E-48 0.24954E-57 0.43421E-57 - 4 3 0.15405E-08 0.10000E+01 0.11635E+05 0.16324E-47 0.65014E-56 0.32648E-56 - 4 3 0.15405E-08 0.10000E+01 0.93834E+04 0.21491E-46 0.17550E-54 0.33543E-55 - 4 3 0.15405E-08 0.10000E+01 0.75673E+04 0.30083E-45 0.47468E-53 0.43884E-54 - 4 3 0.15405E-08 0.10000E+01 0.61026E+04 0.42589E-44 0.12813E-51 0.62346E-53 - 4 3 0.15405E-08 0.10000E+01 0.49215E+04 0.60301E-43 0.34573E-50 0.89381E-52 - 4 3 0.15405E-08 0.10000E+01 0.39689E+04 0.85355E-42 0.93351E-49 0.12749E-50 - 4 3 0.15405E-08 0.10000E+01 0.32008E+04 0.38024E-39 0.81603E-46 0.57010E-48 - 4 3 0.15405E-08 0.10000E+01 0.25813E+04 0.28082E-30 0.13839E-36 0.42212E-39 - 4 3 0.15405E-08 0.10000E+01 0.20817E+04 0.54028E-14 0.11886E-19 0.81490E-23 + 4 3 0.15405E-08 0.10000E+01 0.80645E+05 0.10826E-12 0.62916E-24 0.41994E-21 + 4 3 0.15405E-08 0.10000E+01 0.65036E+05 0.13824E-12 0.14050E-23 0.53700E-21 + 4 3 0.15405E-08 0.10000E+01 0.52449E+05 0.17371E-12 0.32347E-23 0.67589E-21 + 4 3 0.15405E-08 0.10000E+01 0.42297E+05 0.21566E-12 0.83139E-23 0.83976E-21 + 4 3 0.15405E-08 0.10000E+01 0.34111E+05 0.26596E-12 0.25867E-22 0.10320E-20 + 4 3 0.15405E-08 0.10000E+01 0.27509E+05 0.32911E-12 0.97298E-22 0.12580E-20 + 4 3 0.15405E-08 0.10000E+01 0.22184E+05 0.41684E-12 0.41089E-21 0.15317E-20 + 4 3 0.15405E-08 0.10000E+01 0.17891E+05 0.55899E-12 0.18231E-20 0.18918E-20 + 4 3 0.15405E-08 0.10000E+01 0.14428E+05 0.82910E-12 0.82274E-20 0.24410E-20 + 4 3 0.15405E-08 0.10000E+01 0.11635E+05 0.14050E-11 0.37326E-19 0.34383E-20 + 4 3 0.15405E-08 0.10000E+01 0.93834E+04 0.27131E-11 0.16954E-18 0.55168E-20 + 4 3 0.15405E-08 0.10000E+01 0.75673E+04 0.57709E-11 0.76832E-18 0.10201E-19 + 4 3 0.15405E-08 0.10000E+01 0.61026E+04 0.12997E-10 0.34508E-17 0.21130E-19 + 4 3 0.15405E-08 0.10000E+01 0.49215E+04 0.30082E-10 0.15229E-16 0.46880E-19 + 4 3 0.15405E-08 0.10000E+01 0.39689E+04 0.70147E-10 0.65652E-16 0.10726E-18 + 4 3 0.15405E-08 0.10000E+01 0.32008E+04 0.16269E-09 0.27609E-15 0.24685E-18 + 4 3 0.15405E-08 0.10000E+01 0.25813E+04 0.37221E-09 0.11328E-14 0.56325E-18 + 4 3 0.15405E-08 0.10000E+01 0.20817E+04 0.83623E-09 0.45301E-14 0.12646E-17 4 3 0.15405E-08 0.10000E+01 0.16788E+04 0.18401E-08 0.17642E-13 0.27831E-17 4 3 0.15405E-08 0.10000E+01 0.13538E+04 0.39597E-08 0.67053E-13 0.59912E-17 4 3 0.15405E-08 0.10000E+01 0.10918E+04 0.83288E-08 0.25008E-12 0.12606E-16 @@ -22590,24 +22590,24 @@ VERSION 2.8.2 4 3 0.15405E-08 0.10000E+01 0.24221E+03 0.83018E-06 0.76583E-09 0.12568E-14 4 3 0.15405E-08 0.10000E+01 0.19533E+03 0.13084E-05 0.14553E-08 0.19807E-14 4 3 0.15405E-08 0.10000E+01 0.15752E+03 0.13084E-05 0.14553E-08 0.19807E-14 - 4 3 0.26880E-08 0.10000E+01 0.80645E+05 0.29672E-55 0.22033E-66 0.17715E-63 - 4 3 0.26880E-08 0.10000E+01 0.65036E+05 0.24948E-54 0.34796E-65 0.14926E-62 - 4 3 0.26880E-08 0.10000E+01 0.52449E+05 0.21072E-53 0.46024E-64 0.12634E-61 - 4 3 0.26880E-08 0.10000E+01 0.42297E+05 0.15650E-52 0.60678E-63 0.94258E-61 - 4 3 0.26880E-08 0.10000E+01 0.34111E+05 0.11006E-51 0.79083E-62 0.66879E-60 - 4 3 0.26880E-08 0.10000E+01 0.27509E+05 0.75589E-51 0.98787E-61 0.46624E-59 - 4 3 0.26880E-08 0.10000E+01 0.22184E+05 0.50297E-50 0.12051E-59 0.31530E-58 - 4 3 0.26880E-08 0.10000E+01 0.17891E+05 0.32783E-49 0.16047E-58 0.20331E-57 - 4 3 0.26880E-08 0.10000E+01 0.14428E+05 0.22683E-48 0.27853E-57 0.12590E-56 - 4 3 0.26880E-08 0.10000E+01 0.11635E+05 0.19407E-47 0.64278E-56 0.81088E-56 - 4 3 0.26880E-08 0.10000E+01 0.93834E+04 0.21938E-46 0.16990E-54 0.65477E-55 - 4 3 0.26880E-08 0.10000E+01 0.75673E+04 0.29390E-45 0.46270E-53 0.74126E-54 - 4 3 0.26880E-08 0.10000E+01 0.61026E+04 0.41550E-44 0.12582E-51 0.10249E-52 - 4 3 0.26880E-08 0.10000E+01 0.49215E+04 0.59171E-43 0.34081E-50 0.14865E-51 - 4 3 0.26880E-08 0.10000E+01 0.39689E+04 0.84091E-42 0.92181E-49 0.21485E-50 - 4 3 0.26880E-08 0.10000E+01 0.32008E+04 0.37538E-39 0.80672E-46 0.96872E-48 - 4 3 0.26880E-08 0.10000E+01 0.25813E+04 0.27762E-30 0.13700E-36 0.72080E-39 - 4 3 0.26880E-08 0.10000E+01 0.20817E+04 0.53509E-14 0.11788E-19 0.13974E-22 + 4 3 0.26880E-08 0.10000E+01 0.80645E+05 0.20110E-12 0.11912E-23 0.11998E-20 + 4 3 0.26880E-08 0.10000E+01 0.65036E+05 0.25709E-12 0.26482E-23 0.15355E-20 + 4 3 0.26880E-08 0.10000E+01 0.52449E+05 0.32347E-12 0.58515E-23 0.19352E-20 + 4 3 0.26880E-08 0.10000E+01 0.42297E+05 0.40188E-12 0.13428E-22 0.24083E-20 + 4 3 0.26880E-08 0.10000E+01 0.34111E+05 0.49440E-12 0.34850E-22 0.29639E-20 + 4 3 0.26880E-08 0.10000E+01 0.27509E+05 0.60510E-12 0.11065E-21 0.36114E-20 + 4 3 0.26880E-08 0.10000E+01 0.22184E+05 0.74433E-12 0.42450E-21 0.43701E-20 + 4 3 0.26880E-08 0.10000E+01 0.17891E+05 0.93943E-12 0.18165E-20 0.52953E-20 + 4 3 0.26880E-08 0.10000E+01 0.14428E+05 0.12603E-11 0.81218E-20 0.65455E-20 + 4 3 0.26880E-08 0.10000E+01 0.11635E+05 0.18797E-11 0.36816E-19 0.85415E-20 + 4 3 0.26880E-08 0.10000E+01 0.93834E+04 0.32163E-11 0.16741E-18 0.12343E-19 + 4 3 0.26880E-08 0.10000E+01 0.75673E+04 0.62742E-11 0.75955E-18 0.20536E-19 + 4 3 0.26880E-08 0.10000E+01 0.61026E+04 0.13445E-10 0.34150E-17 0.39338E-19 + 4 3 0.26880E-08 0.10000E+01 0.49215E+04 0.30362E-10 0.15085E-16 0.83448E-19 + 4 3 0.26880E-08 0.10000E+01 0.39689E+04 0.70029E-10 0.65072E-16 0.18689E-18 + 4 3 0.26880E-08 0.10000E+01 0.32008E+04 0.16169E-09 0.27379E-15 0.42628E-18 + 4 3 0.26880E-08 0.10000E+01 0.25813E+04 0.36933E-09 0.11238E-14 0.96951E-18 + 4 3 0.26880E-08 0.10000E+01 0.20817E+04 0.82939E-09 0.44956E-14 0.21748E-17 4 3 0.26880E-08 0.10000E+01 0.16788E+04 0.18251E-08 0.17510E-13 0.47862E-17 4 3 0.26880E-08 0.10000E+01 0.13538E+04 0.39282E-08 0.66556E-13 0.10306E-16 4 3 0.26880E-08 0.10000E+01 0.10918E+04 0.82640E-08 0.24821E-12 0.21692E-16 @@ -22620,24 +22620,24 @@ VERSION 2.8.2 4 3 0.26880E-08 0.10000E+01 0.24221E+03 0.82380E-06 0.75984E-09 0.21630E-14 4 3 0.26880E-08 0.10000E+01 0.19533E+03 0.12983E-05 0.14439E-08 0.34086E-14 4 3 0.26880E-08 0.10000E+01 0.15752E+03 0.12983E-05 0.14439E-08 0.34086E-14 - 4 3 0.46905E-08 0.10000E+01 0.80645E+05 0.60451E-55 0.45131E-66 0.19611E-62 - 4 3 0.46905E-08 0.10000E+01 0.65036E+05 0.51051E-54 0.71559E-65 0.16588E-61 - 4 3 0.46905E-08 0.10000E+01 0.52449E+05 0.43306E-53 0.95655E-64 0.14091E-60 - 4 3 0.46905E-08 0.10000E+01 0.42297E+05 0.32444E-52 0.12870E-62 0.10586E-59 - 4 3 0.46905E-08 0.10000E+01 0.34111E+05 0.23211E-51 0.17396E-61 0.76113E-59 - 4 3 0.46905E-08 0.10000E+01 0.27509E+05 0.16446E-50 0.23075E-60 0.54334E-58 - 4 3 0.46905E-08 0.10000E+01 0.22184E+05 0.11505E-49 0.30134E-59 0.38309E-57 - 4 3 0.46905E-08 0.10000E+01 0.17891E+05 0.79436E-49 0.39892E-58 0.26410E-56 - 4 3 0.46905E-08 0.10000E+01 0.14428E+05 0.55269E-48 0.57041E-57 0.17713E-55 - 4 3 0.46905E-08 0.10000E+01 0.11635E+05 0.40819E-47 0.95497E-56 0.11566E-54 - 4 3 0.46905E-08 0.10000E+01 0.93834E+04 0.34568E-46 0.19563E-54 0.73844E-54 - 4 3 0.46905E-08 0.10000E+01 0.75673E+04 0.35554E-45 0.47317E-53 0.46939E-53 - 4 3 0.46905E-08 0.10000E+01 0.61026E+04 0.43615E-44 0.12493E-51 0.32200E-52 - 4 3 0.46905E-08 0.10000E+01 0.49215E+04 0.59300E-43 0.33927E-50 0.28377E-51 - 4 3 0.46905E-08 0.10000E+01 0.39689E+04 0.83851E-42 0.92385E-49 0.34421E-50 - 4 3 0.46905E-08 0.10000E+01 0.32008E+04 0.37605E-39 0.81140E-46 0.15480E-47 - 4 3 0.46905E-08 0.10000E+01 0.25813E+04 0.27901E-30 0.13783E-36 0.11854E-38 - 4 3 0.46905E-08 0.10000E+01 0.20817E+04 0.53805E-14 0.11828E-19 0.23538E-22 + 4 3 0.46905E-08 0.10000E+01 0.80645E+05 0.40904E-12 0.25405E-23 0.13261E-19 + 4 3 0.46905E-08 0.10000E+01 0.65036E+05 0.52420E-12 0.58107E-23 0.17007E-19 + 4 3 0.46905E-08 0.10000E+01 0.52449E+05 0.66214E-12 0.13189E-22 0.21505E-19 + 4 3 0.46905E-08 0.10000E+01 0.42297E+05 0.82735E-12 0.30105E-22 0.26903E-19 + 4 3 0.46905E-08 0.10000E+01 0.34111E+05 0.10251E-11 0.71383E-22 0.33356E-19 + 4 3 0.46905E-08 0.10000E+01 0.27509E+05 0.12627E-11 0.18616E-21 0.41016E-19 + 4 3 0.46905E-08 0.10000E+01 0.22184E+05 0.15526E-11 0.56811E-21 0.50021E-19 + 4 3 0.46905E-08 0.10000E+01 0.17891E+05 0.19227E-11 0.20615E-20 0.60501E-19 + 4 3 0.46905E-08 0.10000E+01 0.14428E+05 0.24400E-11 0.84931E-20 0.72638E-19 + 4 3 0.46905E-08 0.10000E+01 0.11635E+05 0.32711E-11 0.37364E-19 0.86882E-19 + 4 3 0.46905E-08 0.10000E+01 0.93834E+04 0.48267E-11 0.16856E-18 0.10458E-18 + 4 3 0.46905E-08 0.10000E+01 0.75673E+04 0.81054E-11 0.76382E-18 0.12949E-18 + 4 3 0.46905E-08 0.10000E+01 0.61026E+04 0.15504E-10 0.34337E-17 0.17143E-18 + 4 3 0.46905E-08 0.10000E+01 0.49215E+04 0.32680E-10 0.15161E-16 0.25458E-18 + 4 3 0.46905E-08 0.10000E+01 0.39689E+04 0.72702E-10 0.65355E-16 0.43565E-18 + 4 3 0.46905E-08 0.10000E+01 0.32008E+04 0.16493E-09 0.27477E-15 0.84281E-18 + 4 3 0.46905E-08 0.10000E+01 0.25813E+04 0.37359E-09 0.11271E-14 0.17565E-17 + 4 3 0.46905E-08 0.10000E+01 0.20817E+04 0.83545E-09 0.45058E-14 0.37738E-17 4 3 0.46905E-08 0.10000E+01 0.16788E+04 0.18343E-08 0.17542E-13 0.81321E-17 4 3 0.46905E-08 0.10000E+01 0.13538E+04 0.39428E-08 0.66657E-13 0.17325E-16 4 3 0.46905E-08 0.10000E+01 0.10918E+04 0.82876E-08 0.24854E-12 0.36250E-16 @@ -22650,24 +22650,24 @@ VERSION 2.8.2 4 3 0.46905E-08 0.10000E+01 0.24221E+03 0.82474E-06 0.76063E-09 0.35669E-14 4 3 0.46905E-08 0.10000E+01 0.19533E+03 0.12997E-05 0.14454E-08 0.56181E-14 4 3 0.46905E-08 0.10000E+01 0.15752E+03 0.12997E-05 0.14454E-08 0.56181E-14 - 4 3 0.81846E-08 0.10000E+01 0.80645E+05 0.11048E-54 0.82560E-66 0.57821E-62 - 4 3 0.81846E-08 0.10000E+01 0.65036E+05 0.93374E-54 0.13099E-64 0.48929E-61 - 4 3 0.81846E-08 0.10000E+01 0.52449E+05 0.79264E-53 0.17539E-63 0.41584E-60 - 4 3 0.81846E-08 0.10000E+01 0.42297E+05 0.59464E-52 0.23666E-62 0.31265E-59 - 4 3 0.81846E-08 0.10000E+01 0.34111E+05 0.42644E-51 0.32119E-61 0.22512E-58 - 4 3 0.81846E-08 0.10000E+01 0.27509E+05 0.30323E-50 0.42774E-60 0.16112E-57 - 4 3 0.81846E-08 0.10000E+01 0.22184E+05 0.21285E-49 0.55685E-59 0.11410E-56 - 4 3 0.81846E-08 0.10000E+01 0.17891E+05 0.14664E-48 0.71740E-58 0.79239E-56 - 4 3 0.81846E-08 0.10000E+01 0.14428E+05 0.99865E-48 0.94827E-57 0.53734E-55 - 4 3 0.81846E-08 0.10000E+01 0.11635E+05 0.69105E-47 0.13687E-55 0.35581E-54 - 4 3 0.81846E-08 0.10000E+01 0.93834E+04 0.51315E-46 0.23373E-54 0.22990E-53 - 4 3 0.81846E-08 0.10000E+01 0.75673E+04 0.44242E-45 0.49412E-53 0.14482E-52 - 4 3 0.81846E-08 0.10000E+01 0.61026E+04 0.46899E-44 0.12330E-51 0.91444E-52 - 4 3 0.81846E-08 0.10000E+01 0.49215E+04 0.59343E-43 0.33162E-50 0.65827E-51 - 4 3 0.81846E-08 0.10000E+01 0.39689E+04 0.82305E-42 0.90681E-49 0.65581E-50 - 4 3 0.81846E-08 0.10000E+01 0.32008E+04 0.36937E-39 0.80026E-46 0.27506E-47 - 4 3 0.81846E-08 0.10000E+01 0.25813E+04 0.27521E-30 0.13636E-36 0.20963E-38 - 4 3 0.81846E-08 0.10000E+01 0.20817E+04 0.53290E-14 0.11716E-19 0.41852E-22 + 4 3 0.81846E-08 0.10000E+01 0.80645E+05 0.74733E-12 0.46696E-23 0.39090E-19 + 4 3 0.81846E-08 0.10000E+01 0.65036E+05 0.95807E-12 0.10694E-22 0.50145E-19 + 4 3 0.81846E-08 0.10000E+01 0.52449E+05 0.12108E-11 0.24195E-22 0.63432E-19 + 4 3 0.81846E-08 0.10000E+01 0.42297E+05 0.15137E-11 0.54325E-22 0.79402E-19 + 4 3 0.81846E-08 0.10000E+01 0.34111E+05 0.18759E-11 0.12299E-21 0.98541E-19 + 4 3 0.81846E-08 0.10000E+01 0.27509E+05 0.23079E-11 0.29122E-21 0.12134E-18 + 4 3 0.81846E-08 0.10000E+01 0.22184E+05 0.28247E-11 0.76756E-21 0.14825E-18 + 4 3 0.81846E-08 0.10000E+01 0.17891E+05 0.34535E-11 0.23988E-20 0.17968E-18 + 4 3 0.81846E-08 0.10000E+01 0.14428E+05 0.42572E-11 0.89458E-20 0.21600E-18 + 4 3 0.81846E-08 0.10000E+01 0.11635E+05 0.53925E-11 0.37599E-19 0.25791E-18 + 4 3 0.81846E-08 0.10000E+01 0.93834E+04 0.72522E-11 0.16709E-18 0.30742E-18 + 4 3 0.81846E-08 0.10000E+01 0.75673E+04 0.10807E-10 0.75496E-18 0.37059E-18 + 4 3 0.81846E-08 0.10000E+01 0.61026E+04 0.18411E-10 0.33953E-17 0.46405E-18 + 4 3 0.81846E-08 0.10000E+01 0.49215E+04 0.35651E-10 0.15003E-16 0.62958E-18 + 4 3 0.81846E-08 0.10000E+01 0.39689E+04 0.75457E-10 0.64710E-16 0.96616E-18 + 4 3 0.81846E-08 0.10000E+01 0.32008E+04 0.16691E-09 0.27212E-15 0.16973E-17 + 4 3 0.81846E-08 0.10000E+01 0.25813E+04 0.37362E-09 0.11163E-14 0.33105E-17 + 4 3 0.81846E-08 0.10000E+01 0.20817E+04 0.83110E-09 0.44628E-14 0.68397E-17 4 3 0.81846E-08 0.10000E+01 0.16788E+04 0.18204E-08 0.17373E-13 0.14420E-16 4 3 0.81846E-08 0.10000E+01 0.13538E+04 0.39087E-08 0.66005E-13 0.30344E-16 4 3 0.81846E-08 0.10000E+01 0.10918E+04 0.82117E-08 0.24606E-12 0.63024E-16 @@ -22680,24 +22680,24 @@ VERSION 2.8.2 4 3 0.81846E-08 0.10000E+01 0.24221E+03 0.81608E-06 0.75242E-09 0.61075E-14 4 3 0.81846E-08 0.10000E+01 0.19533E+03 0.12860E-05 0.14298E-08 0.96158E-14 4 3 0.81846E-08 0.10000E+01 0.15752E+03 0.12860E-05 0.14298E-08 0.96158E-14 - 4 3 0.14282E-07 0.10000E+01 0.80645E+05 0.20149E-54 0.15069E-65 0.17496E-61 - 4 3 0.14282E-07 0.10000E+01 0.65036E+05 0.17040E-53 0.23921E-64 0.14811E-60 - 4 3 0.14282E-07 0.10000E+01 0.52449E+05 0.14474E-52 0.32074E-63 0.12592E-59 - 4 3 0.14282E-07 0.10000E+01 0.42297E+05 0.10870E-51 0.43381E-62 0.94733E-59 - 4 3 0.14282E-07 0.10000E+01 0.34111E+05 0.78115E-51 0.59095E-61 0.68291E-58 - 4 3 0.14282E-07 0.10000E+01 0.27509E+05 0.55726E-50 0.79095E-60 0.48971E-57 - 4 3 0.14282E-07 0.10000E+01 0.22184E+05 0.39286E-49 0.10337E-58 0.34798E-56 - 4 3 0.14282E-07 0.10000E+01 0.17891E+05 0.27162E-48 0.13246E-57 0.24302E-55 - 4 3 0.14282E-07 0.10000E+01 0.14428E+05 0.18430E-47 0.16953E-56 0.16620E-54 - 4 3 0.14282E-07 0.10000E+01 0.11635E+05 0.12431E-46 0.22404E-55 0.11131E-53 - 4 3 0.14282E-07 0.10000E+01 0.93834E+04 0.85750E-46 0.32507E-54 0.72869E-53 - 4 3 0.14282E-07 0.10000E+01 0.75673E+04 0.63947E-45 0.56894E-53 0.46271E-52 - 4 3 0.14282E-07 0.10000E+01 0.61026E+04 0.56354E-44 0.12578E-51 0.28470E-51 - 4 3 0.14282E-07 0.10000E+01 0.49215E+04 0.62237E-43 0.32564E-50 0.18036E-50 - 4 3 0.14282E-07 0.10000E+01 0.39689E+04 0.81710E-42 0.88963E-49 0.14342E-49 - 4 3 0.14282E-07 0.10000E+01 0.32008E+04 0.36343E-39 0.78954E-46 0.52245E-47 - 4 3 0.14282E-07 0.10000E+01 0.25813E+04 0.27176E-30 0.13499E-36 0.38659E-38 - 4 3 0.14282E-07 0.10000E+01 0.20817E+04 0.52880E-14 0.11590E-19 0.77245E-22 + 4 3 0.14282E-07 0.10000E+01 0.80645E+05 0.13626E-11 0.85612E-23 0.11826E-18 + 4 3 0.14282E-07 0.10000E+01 0.65036E+05 0.17474E-11 0.19656E-22 0.15173E-18 + 4 3 0.14282E-07 0.10000E+01 0.52449E+05 0.22093E-11 0.44533E-22 0.19200E-18 + 4 3 0.14282E-07 0.10000E+01 0.42297E+05 0.27638E-11 0.99601E-22 0.24046E-18 + 4 3 0.14282E-07 0.10000E+01 0.34111E+05 0.34273E-11 0.22131E-21 0.29864E-18 + 4 3 0.14282E-07 0.10000E+01 0.27509E+05 0.42180E-11 0.49744E-21 0.36815E-18 + 4 3 0.14282E-07 0.10000E+01 0.22184E+05 0.51565E-11 0.11784E-20 0.45050E-18 + 4 3 0.14282E-07 0.10000E+01 0.17891E+05 0.62729E-11 0.31549E-20 0.54705E-18 + 4 3 0.14282E-07 0.10000E+01 0.14428E+05 0.76272E-11 0.10169E-19 0.65888E-18 + 4 3 0.14282E-07 0.10000E+01 0.11635E+05 0.93641E-11 0.39137E-19 0.78720E-18 + 4 3 0.14282E-07 0.10000E+01 0.93834E+04 0.11853E-10 0.16768E-18 0.93497E-18 + 4 3 0.14282E-07 0.10000E+01 0.75673E+04 0.16028E-10 0.74933E-18 0.11118E-17 + 4 3 0.14282E-07 0.10000E+01 0.61026E+04 0.24189E-10 0.33623E-17 0.13457E-17 + 4 3 0.14282E-07 0.10000E+01 0.49215E+04 0.41842E-10 0.14853E-16 0.17102E-17 + 4 3 0.14282E-07 0.10000E+01 0.39689E+04 0.81773E-10 0.64047E-16 0.23808E-17 + 4 3 0.14282E-07 0.10000E+01 0.32008E+04 0.17276E-09 0.26922E-15 0.37539E-17 + 4 3 0.14282E-07 0.10000E+01 0.25813E+04 0.37772E-09 0.11039E-14 0.66881E-17 + 4 3 0.14282E-07 0.10000E+01 0.20817E+04 0.83065E-09 0.44109E-14 0.12991E-16 4 3 0.14282E-07 0.10000E+01 0.16788E+04 0.18093E-08 0.17163E-13 0.26374E-16 4 3 0.14282E-07 0.10000E+01 0.13538E+04 0.38738E-08 0.65175E-13 0.54254E-16 4 3 0.14282E-07 0.10000E+01 0.10918E+04 0.81256E-08 0.24285E-12 0.11111E-15 @@ -22710,24 +22710,24 @@ VERSION 2.8.2 4 3 0.14282E-07 0.10000E+01 0.24221E+03 0.80474E-06 0.74159E-09 0.10461E-13 4 3 0.14282E-07 0.10000E+01 0.19533E+03 0.12680E-05 0.14092E-08 0.16458E-13 4 3 0.14282E-07 0.10000E+01 0.15752E+03 0.12680E-05 0.14092E-08 0.16458E-13 - 4 3 0.24920E-07 0.10000E+01 0.80645E+05 0.36648E-54 0.27425E-65 0.53880E-61 - 4 3 0.24920E-07 0.10000E+01 0.65036E+05 0.31009E-53 0.43555E-64 0.45626E-60 - 4 3 0.24920E-07 0.10000E+01 0.52449E+05 0.26351E-52 0.58463E-63 0.38801E-59 - 4 3 0.24920E-07 0.10000E+01 0.42297E+05 0.19809E-51 0.79225E-62 0.29207E-58 - 4 3 0.24920E-07 0.10000E+01 0.34111E+05 0.14258E-50 0.10825E-60 0.21074E-57 - 4 3 0.24920E-07 0.10000E+01 0.27509E+05 0.10199E-49 0.14556E-59 0.15136E-56 - 4 3 0.24920E-07 0.10000E+01 0.22184E+05 0.72190E-49 0.19133E-58 0.10784E-55 - 4 3 0.24920E-07 0.10000E+01 0.17891E+05 0.50161E-48 0.24605E-57 0.75631E-55 - 4 3 0.24920E-07 0.10000E+01 0.14428E+05 0.34154E-47 0.31252E-56 0.52055E-54 - 4 3 0.24920E-07 0.10000E+01 0.11635E+05 0.22917E-46 0.39765E-55 0.35169E-53 - 4 3 0.24920E-07 0.10000E+01 0.93834E+04 0.15337E-45 0.52134E-54 0.23281E-52 - 4 3 0.24920E-07 0.10000E+01 0.75673E+04 0.10505E-44 0.76007E-53 0.14965E-51 - 4 3 0.24920E-07 0.10000E+01 0.61026E+04 0.78658E-44 0.13911E-51 0.92227E-51 - 4 3 0.24920E-07 0.10000E+01 0.49215E+04 0.71924E-43 0.32759E-50 0.55322E-50 - 4 3 0.24920E-07 0.10000E+01 0.39689E+04 0.84159E-42 0.87871E-49 0.36854E-49 - 4 3 0.24920E-07 0.10000E+01 0.32008E+04 0.36192E-39 0.78301E-46 0.11041E-46 - 4 3 0.24920E-07 0.10000E+01 0.25813E+04 0.27038E-30 0.13428E-36 0.76254E-38 - 4 3 0.24920E-07 0.10000E+01 0.20817E+04 0.52869E-14 0.11475E-19 0.15125E-21 + 4 3 0.24920E-07 0.10000E+01 0.80645E+05 0.24777E-11 0.15640E-22 0.36415E-18 + 4 3 0.24920E-07 0.10000E+01 0.65036E+05 0.31782E-11 0.36002E-22 0.46729E-18 + 4 3 0.24920E-07 0.10000E+01 0.52449E+05 0.40201E-11 0.81804E-22 0.59144E-18 + 4 3 0.24920E-07 0.10000E+01 0.42297E+05 0.50319E-11 0.18323E-21 0.74100E-18 + 4 3 0.24920E-07 0.10000E+01 0.34111E+05 0.62448E-11 0.40523E-21 0.92087E-18 + 4 3 0.24920E-07 0.10000E+01 0.27509E+05 0.76915E-11 0.89126E-21 0.11362E-17 + 4 3 0.24920E-07 0.10000E+01 0.22184E+05 0.94064E-11 0.19896E-20 0.13921E-17 + 4 3 0.24920E-07 0.10000E+01 0.17891E+05 0.11429E-10 0.47314E-20 0.16932E-17 + 4 3 0.24920E-07 0.10000E+01 0.14428E+05 0.13821E-10 0.12986E-19 0.20433E-17 + 4 3 0.24920E-07 0.10000E+01 0.11635E+05 0.16716E-10 0.43603E-19 0.24451E-17 + 4 3 0.24920E-07 0.10000E+01 0.93834E+04 0.20455E-10 0.17357E-18 0.29030E-17 + 4 3 0.24920E-07 0.10000E+01 0.75673E+04 0.25925E-10 0.75412E-18 0.34317E-17 + 4 3 0.24920E-07 0.10000E+01 0.61026E+04 0.35363E-10 0.33539E-17 0.40793E-17 + 4 3 0.24920E-07 0.10000E+01 0.49215E+04 0.54194E-10 0.14769E-16 0.49772E-17 + 4 3 0.24920E-07 0.10000E+01 0.39689E+04 0.95081E-10 0.63552E-16 0.64459E-17 + 4 3 0.24920E-07 0.10000E+01 0.32008E+04 0.18654E-09 0.26664E-15 0.92075E-17 + 4 3 0.24920E-07 0.10000E+01 0.25813E+04 0.39084E-09 0.10914E-14 0.14810E-16 + 4 3 0.24920E-07 0.10000E+01 0.20817E+04 0.84035E-09 0.43546E-14 0.26472E-16 4 3 0.24920E-07 0.10000E+01 0.16788E+04 0.18091E-08 0.16923E-13 0.50722E-16 4 3 0.24920E-07 0.10000E+01 0.13538E+04 0.38490E-08 0.64193E-13 0.10050E-15 4 3 0.24920E-07 0.10000E+01 0.10918E+04 0.80442E-08 0.23897E-12 0.20088E-15 @@ -22740,24 +22740,24 @@ VERSION 2.8.2 4 3 0.24920E-07 0.10000E+01 0.24221E+03 0.79070E-06 0.72799E-09 0.17959E-13 4 3 0.24920E-07 0.10000E+01 0.19533E+03 0.12456E-05 0.13833E-08 0.28216E-13 4 3 0.24920E-07 0.10000E+01 0.15752E+03 0.12456E-05 0.13833E-08 0.28216E-13 - 4 3 0.43485E-07 0.10000E+01 0.80645E+05 0.66421E-54 0.49731E-65 0.16705E-60 - 4 3 0.43485E-07 0.10000E+01 0.65036E+05 0.56224E-53 0.79007E-64 0.14150E-59 - 4 3 0.43485E-07 0.10000E+01 0.52449E+05 0.47797E-52 0.10614E-62 0.12036E-58 - 4 3 0.43485E-07 0.10000E+01 0.42297E+05 0.35955E-51 0.14405E-61 0.90638E-58 - 4 3 0.43485E-07 0.10000E+01 0.34111E+05 0.25913E-50 0.19730E-60 0.65450E-57 - 4 3 0.43485E-07 0.10000E+01 0.27509E+05 0.18575E-49 0.26633E-59 0.47067E-56 - 4 3 0.43485E-07 0.10000E+01 0.22184E+05 0.13192E-48 0.35201E-58 0.33602E-55 - 4 3 0.43485E-07 0.10000E+01 0.17891E+05 0.92106E-48 0.45542E-57 0.23645E-54 - 4 3 0.43485E-07 0.10000E+01 0.14428E+05 0.63052E-47 0.57992E-56 0.16354E-53 - 4 3 0.43485E-07 0.10000E+01 0.11635E+05 0.42431E-46 0.73035E-55 0.11122E-52 - 4 3 0.43485E-07 0.10000E+01 0.93834E+04 0.28188E-45 0.91514E-54 0.74274E-52 - 4 3 0.43485E-07 0.10000E+01 0.75673E+04 0.18618E-44 0.11818E-52 0.48284E-51 - 4 3 0.43485E-07 0.10000E+01 0.61026E+04 0.12598E-43 0.17643E-51 0.30076E-50 - 4 3 0.43485E-07 0.10000E+01 0.49215E+04 0.95933E-43 0.35125E-50 0.17817E-49 - 4 3 0.43485E-07 0.10000E+01 0.39689E+04 0.94011E-42 0.88996E-49 0.10735E-48 - 4 3 0.43485E-07 0.10000E+01 0.32008E+04 0.37335E-39 0.79012E-46 0.26528E-46 - 4 3 0.43485E-07 0.10000E+01 0.25813E+04 0.27512E-30 0.13565E-36 0.16441E-37 - 4 3 0.43485E-07 0.10000E+01 0.20817E+04 0.53982E-14 0.11456E-19 0.32044E-21 + 4 3 0.43485E-07 0.10000E+01 0.80645E+05 0.44898E-11 0.28448E-22 0.11289E-17 + 4 3 0.43485E-07 0.10000E+01 0.65036E+05 0.57604E-11 0.65632E-22 0.14488E-17 + 4 3 0.43485E-07 0.10000E+01 0.52449E+05 0.72887E-11 0.14958E-21 0.18341E-17 + 4 3 0.43485E-07 0.10000E+01 0.42297E+05 0.91276E-11 0.33610E-21 0.22987E-17 + 4 3 0.43485E-07 0.10000E+01 0.34111E+05 0.11336E-10 0.74430E-21 0.28580E-17 + 4 3 0.43485E-07 0.10000E+01 0.27509E+05 0.13974E-10 0.16274E-20 0.35288E-17 + 4 3 0.43485E-07 0.10000E+01 0.22184E+05 0.17105E-10 0.35399E-20 0.43280E-17 + 4 3 0.43485E-07 0.10000E+01 0.17891E+05 0.20792E-10 0.78558E-20 0.52714E-17 + 4 3 0.43485E-07 0.10000E+01 0.14428E+05 0.25109E-10 0.18916E-19 0.63719E-17 + 4 3 0.43485E-07 0.10000E+01 0.11635E+05 0.30185E-10 0.54117E-19 0.76383E-17 + 4 3 0.43485E-07 0.10000E+01 0.93834E+04 0.36329E-10 0.19134E-18 0.90780E-17 + 4 3 0.43485E-07 0.10000E+01 0.75673E+04 0.44376E-10 0.78511E-18 0.10713E-16 + 4 3 0.43485E-07 0.10000E+01 0.61026E+04 0.56502E-10 0.34161E-17 0.12625E-16 + 4 3 0.43485E-07 0.10000E+01 0.49215E+04 0.78091E-10 0.14907E-16 0.15058E-16 + 4 3 0.43485E-07 0.10000E+01 0.39689E+04 0.12180E-09 0.63793E-16 0.18620E-16 + 4 3 0.43485E-07 0.10000E+01 0.32008E+04 0.21614E-09 0.26642E-15 0.24680E-16 + 4 3 0.43485E-07 0.10000E+01 0.25813E+04 0.42319E-09 0.10862E-14 0.36130E-16 + 4 3 0.43485E-07 0.10000E+01 0.20817E+04 0.87446E-09 0.43198E-14 0.58868E-16 4 3 0.43485E-07 0.10000E+01 0.16788E+04 0.18413E-08 0.16743E-13 0.10464E-15 4 3 0.43485E-07 0.10000E+01 0.13538E+04 0.38690E-08 0.63371E-13 0.19637E-15 4 3 0.43485E-07 0.10000E+01 0.10918E+04 0.80263E-08 0.23550E-12 0.37798E-15 @@ -22770,24 +22770,24 @@ VERSION 2.8.2 4 3 0.43485E-07 0.10000E+01 0.24221E+03 0.77722E-06 0.71444E-09 0.30994E-13 4 3 0.43485E-07 0.10000E+01 0.19533E+03 0.12238E-05 0.13575E-08 0.48585E-13 4 3 0.43485E-07 0.10000E+01 0.15752E+03 0.12238E-05 0.13575E-08 0.48585E-13 - 4 3 0.75878E-07 0.10000E+01 0.80645E+05 0.11993E-53 0.89834E-65 0.51898E-60 - 4 3 0.75878E-07 0.10000E+01 0.65036E+05 0.10156E-52 0.14276E-63 0.43969E-59 - 4 3 0.75878E-07 0.10000E+01 0.52449E+05 0.86360E-52 0.19192E-62 0.37408E-58 - 4 3 0.75878E-07 0.10000E+01 0.42297E+05 0.65001E-51 0.26077E-61 0.28180E-57 - 4 3 0.75878E-07 0.10000E+01 0.34111E+05 0.46894E-50 0.35785E-60 0.20362E-56 - 4 3 0.75878E-07 0.10000E+01 0.27509E+05 0.33671E-49 0.48453E-59 0.14658E-55 - 4 3 0.75878E-07 0.10000E+01 0.22184E+05 0.23978E-48 0.64342E-58 0.10482E-54 - 4 3 0.75878E-07 0.10000E+01 0.17891E+05 0.16809E-47 0.83745E-57 0.73953E-54 - 4 3 0.75878E-07 0.10000E+01 0.14428E+05 0.11568E-46 0.10724E-55 0.51345E-53 - 4 3 0.75878E-07 0.10000E+01 0.11635E+05 0.78257E-46 0.13523E-54 0.35101E-52 - 4 3 0.75878E-07 0.10000E+01 0.93834E+04 0.52091E-45 0.16717E-53 0.23599E-51 - 4 3 0.75878E-07 0.10000E+01 0.75673E+04 0.34056E-44 0.20371E-52 0.15484E-50 - 4 3 0.75878E-07 0.10000E+01 0.61026E+04 0.21995E-43 0.26102E-51 0.97599E-50 - 4 3 0.75878E-07 0.10000E+01 0.49215E+04 0.14761E-42 0.42044E-50 0.58107E-49 - 4 3 0.75878E-07 0.10000E+01 0.39689E+04 0.11882E-41 0.94677E-49 0.33516E-48 - 4 3 0.75878E-07 0.10000E+01 0.32008E+04 0.41089E-39 0.82168E-46 0.71605E-46 - 4 3 0.75878E-07 0.10000E+01 0.25813E+04 0.29130E-30 0.14059E-36 0.39078E-37 - 4 3 0.75878E-07 0.10000E+01 0.20817E+04 0.57128E-14 0.11603E-19 0.74205E-21 + 4 3 0.75878E-07 0.10000E+01 0.80645E+05 0.81058E-11 0.51513E-22 0.35068E-17 + 4 3 0.75878E-07 0.10000E+01 0.65036E+05 0.10402E-10 0.11907E-21 0.45011E-17 + 4 3 0.75878E-07 0.10000E+01 0.52449E+05 0.13165E-10 0.27210E-21 0.56991E-17 + 4 3 0.75878E-07 0.10000E+01 0.42297E+05 0.16493E-10 0.61344E-21 0.71444E-17 + 4 3 0.75878E-07 0.10000E+01 0.34111E+05 0.20494E-10 0.13629E-20 0.88863E-17 + 4 3 0.75878E-07 0.10000E+01 0.27509E+05 0.25285E-10 0.29824E-20 0.10978E-16 + 4 3 0.75878E-07 0.10000E+01 0.22184E+05 0.30982E-10 0.64355E-20 0.13476E-16 + 4 3 0.75878E-07 0.10000E+01 0.17891E+05 0.37696E-10 0.13827E-19 0.16431E-16 + 4 3 0.75878E-07 0.10000E+01 0.14428E+05 0.45539E-10 0.30659E-19 0.19890E-16 + 4 3 0.75878E-07 0.10000E+01 0.11635E+05 0.54649E-10 0.76107E-19 0.23883E-16 + 4 3 0.75878E-07 0.10000E+01 0.93834E+04 0.65307E-10 0.23183E-18 0.28427E-16 + 4 3 0.75878E-07 0.10000E+01 0.75673E+04 0.78289E-10 0.86539E-18 0.33553E-16 + 4 3 0.75878E-07 0.10000E+01 0.61026E+04 0.95713E-10 0.36068E-17 0.39402E-16 + 4 3 0.75878E-07 0.10000E+01 0.49215E+04 0.12298E-09 0.15440E-16 0.46442E-16 + 4 3 0.75878E-07 0.10000E+01 0.39689E+04 0.17295E-09 0.65321E-16 0.55887E-16 + 4 3 0.75878E-07 0.10000E+01 0.32008E+04 0.27456E-09 0.27035E-15 0.70473E-16 + 4 3 0.75878E-07 0.10000E+01 0.25813E+04 0.49050E-09 0.10938E-14 0.95878E-16 + 4 3 0.75878E-07 0.10000E+01 0.20817E+04 0.95271E-09 0.43224E-14 0.14338E-15 4 3 0.75878E-07 0.10000E+01 0.16788E+04 0.19318E-08 0.16668E-13 0.23485E-15 4 3 0.75878E-07 0.10000E+01 0.13538E+04 0.39690E-08 0.62834E-13 0.41196E-15 4 3 0.75878E-07 0.10000E+01 0.10918E+04 0.81211E-08 0.23276E-12 0.75305E-15 @@ -22800,24 +22800,24 @@ VERSION 2.8.2 4 3 0.75878E-07 0.10000E+01 0.24221E+03 0.76485E-06 0.70113E-09 0.53989E-13 4 3 0.75878E-07 0.10000E+01 0.19533E+03 0.12035E-05 0.13320E-08 0.84303E-13 4 3 0.75878E-07 0.10000E+01 0.15752E+03 0.12035E-05 0.13320E-08 0.84303E-13 - 4 3 0.13240E-06 0.10000E+01 0.80645E+05 0.21578E-53 0.16168E-64 0.16137E-59 - 4 3 0.13240E-06 0.10000E+01 0.65036E+05 0.18276E-52 0.25698E-63 0.13674E-58 - 4 3 0.13240E-06 0.10000E+01 0.52449E+05 0.15545E-51 0.34567E-62 0.11635E-57 - 4 3 0.13240E-06 0.10000E+01 0.42297E+05 0.11706E-50 0.47013E-61 0.87677E-57 - 4 3 0.13240E-06 0.10000E+01 0.34111E+05 0.84519E-50 0.64611E-60 0.63386E-56 - 4 3 0.13240E-06 0.10000E+01 0.27509E+05 0.60768E-49 0.87701E-59 0.45668E-55 - 4 3 0.13240E-06 0.10000E+01 0.22184E+05 0.43369E-48 0.11691E-57 0.32702E-54 - 4 3 0.13240E-06 0.10000E+01 0.17891E+05 0.30504E-47 0.15296E-56 0.23122E-53 - 4 3 0.13240E-06 0.10000E+01 0.14428E+05 0.21089E-46 0.19702E-55 0.16103E-52 - 4 3 0.13240E-06 0.10000E+01 0.11635E+05 0.14344E-45 0.24971E-54 0.11054E-51 - 4 3 0.13240E-06 0.10000E+01 0.93834E+04 0.95950E-45 0.30879E-53 0.74717E-51 - 4 3 0.13240E-06 0.10000E+01 0.75673E+04 0.62795E-44 0.36911E-52 0.49391E-50 - 4 3 0.13240E-06 0.10000E+01 0.61026E+04 0.39954E-43 0.43518E-51 0.31460E-49 - 4 3 0.13240E-06 0.10000E+01 0.49215E+04 0.25111E-42 0.57911E-50 0.18926E-48 - 4 3 0.13240E-06 0.10000E+01 0.39689E+04 0.17240E-41 0.10913E-48 0.10775E-47 - 4 3 0.13240E-06 0.10000E+01 0.32008E+04 0.49830E-39 0.89493E-46 0.20995E-45 - 4 3 0.13240E-06 0.10000E+01 0.25813E+04 0.32785E-30 0.15136E-36 0.10157E-36 - 4 3 0.13240E-06 0.10000E+01 0.20817E+04 0.63815E-14 0.12020E-19 0.18712E-20 + 4 3 0.13240E-06 0.10000E+01 0.80645E+05 0.14582E-10 0.92892E-22 0.10903E-16 + 4 3 0.13240E-06 0.10000E+01 0.65036E+05 0.18714E-10 0.21504E-21 0.13995E-16 + 4 3 0.13240E-06 0.10000E+01 0.52449E+05 0.23690E-10 0.49252E-21 0.17723E-16 + 4 3 0.13240E-06 0.10000E+01 0.42297E+05 0.29689E-10 0.11137E-20 0.22222E-16 + 4 3 0.13240E-06 0.10000E+01 0.34111E+05 0.36911E-10 0.24833E-20 0.27649E-16 + 4 3 0.13240E-06 0.10000E+01 0.27509E+05 0.45571E-10 0.54514E-20 0.34175E-16 + 4 3 0.13240E-06 0.10000E+01 0.22184E+05 0.55888E-10 0.11762E-19 0.41977E-16 + 4 3 0.13240E-06 0.10000E+01 0.17891E+05 0.68074E-10 0.24977E-19 0.51230E-16 + 4 3 0.13240E-06 0.10000E+01 0.14428E+05 0.82320E-10 0.53077E-19 0.62090E-16 + 4 3 0.13240E-06 0.10000E+01 0.11635E+05 0.98803E-10 0.11936E-18 0.74665E-16 + 4 3 0.13240E-06 0.10000E+01 0.93834E+04 0.11779E-09 0.31438E-18 0.89007E-16 + 4 3 0.13240E-06 0.10000E+01 0.75673E+04 0.13999E-09 0.10350E-17 0.10516E-15 + 4 3 0.13240E-06 0.10000E+01 0.61026E+04 0.16747E-09 0.40213E-17 0.12336E-15 + 4 3 0.13240E-06 0.10000E+01 0.49215E+04 0.20574E-09 0.16636E-16 0.14456E-15 + 4 3 0.13240E-06 0.10000E+01 0.39689E+04 0.26814E-09 0.68965E-16 0.17131E-15 + 4 3 0.13240E-06 0.10000E+01 0.32008E+04 0.38474E-09 0.28098E-15 0.20944E-15 + 4 3 0.13240E-06 0.10000E+01 0.25813E+04 0.62011E-09 0.11218E-14 0.27083E-15 + 4 3 0.13240E-06 0.10000E+01 0.20817E+04 0.11086E-08 0.43838E-14 0.37833E-15 4 3 0.13240E-06 0.10000E+01 0.16788E+04 0.21232E-08 0.16753E-13 0.57469E-15 4 3 0.13240E-06 0.10000E+01 0.13538E+04 0.42047E-08 0.62709E-13 0.93866E-15 4 3 0.13240E-06 0.10000E+01 0.10918E+04 0.84028E-08 0.23102E-12 0.16141E-14 @@ -22830,24 +22830,24 @@ VERSION 2.8.2 4 3 0.13240E-06 0.10000E+01 0.24221E+03 0.75351E-06 0.68742E-09 0.95488E-13 4 3 0.13240E-06 0.10000E+01 0.19533E+03 0.11842E-05 0.13058E-08 0.14815E-12 4 3 0.13240E-06 0.10000E+01 0.15752E+03 0.11842E-05 0.13058E-08 0.14815E-12 - 4 3 0.23103E-06 0.10000E+01 0.80645E+05 0.38682E-53 0.28992E-64 0.50026E-59 - 4 3 0.23103E-06 0.10000E+01 0.65036E+05 0.32771E-52 0.46091E-63 0.42398E-58 - 4 3 0.23103E-06 0.10000E+01 0.52449E+05 0.27880E-51 0.62025E-62 0.36082E-57 - 4 3 0.23103E-06 0.10000E+01 0.42297E+05 0.21002E-50 0.84423E-61 0.27196E-56 - 4 3 0.23103E-06 0.10000E+01 0.34111E+05 0.15174E-49 0.11617E-59 0.19670E-55 - 4 3 0.23103E-06 0.10000E+01 0.27509E+05 0.10922E-48 0.15799E-58 0.14182E-54 - 4 3 0.23103E-06 0.10000E+01 0.22184E+05 0.78082E-48 0.21127E-57 0.10167E-53 - 4 3 0.23103E-06 0.10000E+01 0.17891E+05 0.55069E-47 0.27762E-56 0.72011E-53 - 4 3 0.23103E-06 0.10000E+01 0.14428E+05 0.38218E-46 0.35947E-55 0.50278E-52 - 4 3 0.23103E-06 0.10000E+01 0.11635E+05 0.26118E-45 0.45819E-54 0.34627E-51 - 4 3 0.23103E-06 0.10000E+01 0.93834E+04 0.17565E-44 0.56952E-53 0.23508E-50 - 4 3 0.23103E-06 0.10000E+01 0.75673E+04 0.11551E-43 0.67996E-52 0.15632E-49 - 4 3 0.23103E-06 0.10000E+01 0.61026E+04 0.73461E-43 0.77553E-51 0.10044E-48 - 4 3 0.23103E-06 0.10000E+01 0.49215E+04 0.45010E-42 0.90888E-50 0.61094E-48 - 4 3 0.23103E-06 0.10000E+01 0.39689E+04 0.28016E-41 0.14044E-48 0.34814E-47 - 4 3 0.23103E-06 0.10000E+01 0.32008E+04 0.68018E-39 0.10423E-45 0.64389E-45 - 4 3 0.23103E-06 0.10000E+01 0.25813E+04 0.40140E-30 0.17212E-36 0.28225E-36 - 4 3 0.23103E-06 0.10000E+01 0.20817E+04 0.76844E-14 0.12920E-19 0.50472E-20 + 4 3 0.23103E-06 0.10000E+01 0.80645E+05 0.26138E-10 0.16684E-21 0.33797E-16 + 4 3 0.23103E-06 0.10000E+01 0.65036E+05 0.33549E-10 0.38672E-21 0.43388E-16 + 4 3 0.23103E-06 0.10000E+01 0.52449E+05 0.42477E-10 0.88735E-21 0.54950E-16 + 4 3 0.23103E-06 0.10000E+01 0.42297E+05 0.53248E-10 0.20117E-20 0.68913E-16 + 4 3 0.23103E-06 0.10000E+01 0.34111E+05 0.66227E-10 0.45000E-20 0.85767E-16 + 4 3 0.23103E-06 0.10000E+01 0.27509E+05 0.81813E-10 0.99151E-20 0.10605E-15 + 4 3 0.23103E-06 0.10000E+01 0.22184E+05 0.10042E-09 0.21456E-19 0.13033E-15 + 4 3 0.23103E-06 0.10000E+01 0.17891E+05 0.12243E-09 0.45476E-19 0.15919E-15 + 4 3 0.23103E-06 0.10000E+01 0.14428E+05 0.14822E-09 0.94905E-19 0.19313E-15 + 4 3 0.23103E-06 0.10000E+01 0.11635E+05 0.17807E-09 0.20159E-18 0.23254E-15 + 4 3 0.23103E-06 0.10000E+01 0.93834E+04 0.21225E-09 0.47433E-18 0.27760E-15 + 4 3 0.23103E-06 0.10000E+01 0.75673E+04 0.25140E-09 0.13675E-17 0.32837E-15 + 4 3 0.23103E-06 0.10000E+01 0.61026E+04 0.29754E-09 0.48362E-17 0.38528E-15 + 4 3 0.23103E-06 0.10000E+01 0.49215E+04 0.35643E-09 0.19002E-16 0.45027E-15 + 4 3 0.23103E-06 0.10000E+01 0.39689E+04 0.44243E-09 0.76351E-16 0.52911E-15 + 4 3 0.23103E-06 0.10000E+01 0.32008E+04 0.58790E-09 0.30364E-15 0.63503E-15 + 4 3 0.23103E-06 0.10000E+01 0.25813E+04 0.86157E-09 0.11871E-14 0.79466E-15 + 4 3 0.23103E-06 0.10000E+01 0.20817E+04 0.14040E-08 0.45567E-14 0.10576E-14 4 3 0.23103E-06 0.10000E+01 0.16788E+04 0.24961E-08 0.17158E-13 0.15128E-14 4 3 0.23103E-06 0.10000E+01 0.13538E+04 0.46867E-08 0.63464E-13 0.23173E-14 4 3 0.23103E-06 0.10000E+01 0.10918E+04 0.90293E-08 0.23164E-12 0.37469E-14 @@ -22860,24 +22860,24 @@ VERSION 2.8.2 4 3 0.23103E-06 0.10000E+01 0.24221E+03 0.74617E-06 0.67512E-09 0.17296E-12 4 3 0.23103E-06 0.10000E+01 0.19533E+03 0.11702E-05 0.12821E-08 0.26562E-12 4 3 0.23103E-06 0.10000E+01 0.15752E+03 0.11702E-05 0.12821E-08 0.26562E-12 - 4 3 0.40314E-06 0.10000E+01 0.80645E+05 0.69063E-53 0.51775E-64 0.15352E-58 - 4 3 0.40314E-06 0.10000E+01 0.65036E+05 0.58522E-52 0.82323E-63 0.13013E-57 - 4 3 0.40314E-06 0.10000E+01 0.52449E+05 0.49796E-51 0.11082E-61 0.11075E-56 - 4 3 0.40314E-06 0.10000E+01 0.42297E+05 0.37522E-50 0.15094E-60 0.83497E-56 - 4 3 0.40314E-06 0.10000E+01 0.34111E+05 0.27125E-49 0.20790E-59 0.60412E-55 - 4 3 0.40314E-06 0.10000E+01 0.27509E+05 0.19541E-48 0.28321E-58 0.43582E-54 - 4 3 0.40314E-06 0.10000E+01 0.22184E+05 0.13990E-47 0.37968E-57 0.31273E-53 - 4 3 0.40314E-06 0.10000E+01 0.17891E+05 0.98887E-47 0.50070E-56 0.22182E-52 - 4 3 0.40314E-06 0.10000E+01 0.14428E+05 0.68842E-46 0.65120E-55 0.15519E-51 - 4 3 0.40314E-06 0.10000E+01 0.11635E+05 0.47236E-45 0.83443E-54 0.10716E-50 - 4 3 0.40314E-06 0.10000E+01 0.93834E+04 0.31922E-44 0.10436E-52 0.73004E-50 - 4 3 0.40314E-06 0.10000E+01 0.75673E+04 0.21112E-43 0.12529E-51 0.48775E-49 - 4 3 0.40314E-06 0.10000E+01 0.61026E+04 0.13493E-42 0.14189E-50 0.31559E-48 - 4 3 0.40314E-06 0.10000E+01 0.49215E+04 0.82243E-42 0.15563E-49 0.19384E-47 - 4 3 0.40314E-06 0.10000E+01 0.39689E+04 0.48754E-41 0.20283E-48 0.11113E-46 - 4 3 0.40314E-06 0.10000E+01 0.32008E+04 0.10352E-38 0.13154E-45 0.20002E-44 - 4 3 0.40314E-06 0.10000E+01 0.25813E+04 0.53970E-30 0.20900E-36 0.81439E-36 - 4 3 0.40314E-06 0.10000E+01 0.20817E+04 0.10077E-13 0.14596E-19 0.14184E-19 + 4 3 0.40314E-06 0.10000E+01 0.80645E+05 0.46662E-10 0.29834E-21 0.10371E-15 + 4 3 0.40314E-06 0.10000E+01 0.65036E+05 0.59899E-10 0.69223E-21 0.13315E-15 + 4 3 0.40314E-06 0.10000E+01 0.52449E+05 0.75851E-10 0.15908E-20 0.16865E-15 + 4 3 0.40314E-06 0.10000E+01 0.42297E+05 0.95104E-10 0.36141E-20 0.21153E-15 + 4 3 0.40314E-06 0.10000E+01 0.34111E+05 0.11833E-09 0.81073E-20 0.26332E-15 + 4 3 0.40314E-06 0.10000E+01 0.27509E+05 0.14624E-09 0.17925E-19 0.32570E-15 + 4 3 0.40314E-06 0.10000E+01 0.22184E+05 0.17962E-09 0.38935E-19 0.40046E-15 + 4 3 0.40314E-06 0.10000E+01 0.17891E+05 0.21920E-09 0.82705E-19 0.48942E-15 + 4 3 0.40314E-06 0.10000E+01 0.14428E+05 0.26566E-09 0.17164E-18 0.59426E-15 + 4 3 0.40314E-06 0.10000E+01 0.11635E+05 0.31951E-09 0.35423E-18 0.71628E-15 + 4 3 0.40314E-06 0.10000E+01 0.93834E+04 0.38111E-09 0.77385E-18 0.85615E-15 + 4 3 0.40314E-06 0.10000E+01 0.75673E+04 0.45103E-09 0.19891E-17 0.10140E-14 + 4 3 0.40314E-06 0.10000E+01 0.61026E+04 0.53123E-09 0.63384E-17 0.11904E-14 + 4 3 0.40314E-06 0.10000E+01 0.49215E+04 0.62793E-09 0.23314E-16 0.13898E-14 + 4 3 0.40314E-06 0.10000E+01 0.39689E+04 0.75722E-09 0.89836E-16 0.16257E-14 + 4 3 0.40314E-06 0.10000E+01 0.32008E+04 0.95566E-09 0.34567E-15 0.19299E-14 + 4 3 0.40314E-06 0.10000E+01 0.25813E+04 0.12997E-08 0.13120E-14 0.23661E-14 + 4 3 0.40314E-06 0.10000E+01 0.20817E+04 0.19420E-08 0.49039E-14 0.30495E-14 4 3 0.40314E-06 0.10000E+01 0.16788E+04 0.31801E-08 0.18048E-13 0.41784E-14 4 3 0.40314E-06 0.10000E+01 0.13538E+04 0.55831E-08 0.65507E-13 0.60866E-14 4 3 0.40314E-06 0.10000E+01 0.10918E+04 0.10224E-07 0.23551E-12 0.93320E-14 @@ -22890,24 +22890,24 @@ VERSION 2.8.2 4 3 0.40314E-06 0.10000E+01 0.24221E+03 0.74320E-06 0.66299E-09 0.32403E-12 4 3 0.40314E-06 0.10000E+01 0.19533E+03 0.11613E-05 0.12584E-08 0.49012E-12 4 3 0.40314E-06 0.10000E+01 0.15752E+03 0.11613E-05 0.12584E-08 0.49012E-12 - 4 3 0.70346E-06 0.10000E+01 0.80645E+05 0.12128E-52 0.90928E-64 0.32557E-58 - 4 3 0.70346E-06 0.10000E+01 0.65036E+05 0.10277E-51 0.14458E-62 0.27597E-57 - 4 3 0.70346E-06 0.10000E+01 0.52449E+05 0.87456E-51 0.19466E-61 0.23490E-56 - 4 3 0.70346E-06 0.10000E+01 0.42297E+05 0.65906E-50 0.26518E-60 0.17710E-55 - 4 3 0.70346E-06 0.10000E+01 0.34111E+05 0.47652E-49 0.36537E-59 0.12815E-54 - 4 3 0.70346E-06 0.10000E+01 0.27509E+05 0.34338E-48 0.49797E-58 0.92466E-54 - 4 3 0.70346E-06 0.10000E+01 0.22184E+05 0.24595E-47 0.66812E-57 0.66368E-53 - 4 3 0.70346E-06 0.10000E+01 0.17891E+05 0.17397E-46 0.88207E-56 0.47094E-52 - 4 3 0.70346E-06 0.10000E+01 0.14428E+05 0.12123E-45 0.11488E-54 0.32968E-51 - 4 3 0.70346E-06 0.10000E+01 0.11635E+05 0.83288E-45 0.14746E-53 0.22785E-50 - 4 3 0.70346E-06 0.10000E+01 0.93834E+04 0.56376E-44 0.18482E-52 0.15538E-49 - 4 3 0.70346E-06 0.10000E+01 0.75673E+04 0.37359E-43 0.22246E-51 0.10396E-48 - 4 3 0.70346E-06 0.10000E+01 0.61026E+04 0.23929E-42 0.25211E-50 0.67402E-48 - 4 3 0.70346E-06 0.10000E+01 0.49215E+04 0.14595E-41 0.27290E-49 0.41523E-47 - 4 3 0.70346E-06 0.10000E+01 0.39689E+04 0.85703E-41 0.33867E-48 0.23867E-46 - 4 3 0.70346E-06 0.10000E+01 0.32008E+04 0.17548E-38 0.20837E-45 0.42701E-44 - 4 3 0.70346E-06 0.10000E+01 0.25813E+04 0.87586E-30 0.32538E-36 0.17030E-35 - 4 3 0.70346E-06 0.10000E+01 0.20817E+04 0.16184E-13 0.22084E-19 0.29420E-19 + 4 3 0.70346E-06 0.10000E+01 0.80645E+05 0.81941E-10 0.52416E-21 0.21993E-15 + 4 3 0.70346E-06 0.10000E+01 0.65036E+05 0.10519E-09 0.12166E-20 0.28237E-15 + 4 3 0.70346E-06 0.10000E+01 0.52449E+05 0.13321E-09 0.27972E-20 0.35766E-15 + 4 3 0.70346E-06 0.10000E+01 0.42297E+05 0.16703E-09 0.63592E-20 0.44863E-15 + 4 3 0.70346E-06 0.10000E+01 0.34111E+05 0.20784E-09 0.14278E-19 0.55851E-15 + 4 3 0.70346E-06 0.10000E+01 0.27509E+05 0.25691E-09 0.31604E-19 0.69089E-15 + 4 3 0.70346E-06 0.10000E+01 0.22184E+05 0.31561E-09 0.68741E-19 0.84959E-15 + 4 3 0.70346E-06 0.10000E+01 0.17891E+05 0.38527E-09 0.14619E-18 0.10385E-14 + 4 3 0.70346E-06 0.10000E+01 0.14428E+05 0.46709E-09 0.30328E-18 0.12613E-14 + 4 3 0.70346E-06 0.10000E+01 0.11635E+05 0.56201E-09 0.62221E-18 0.15208E-14 + 4 3 0.70346E-06 0.10000E+01 0.93834E+04 0.67060E-09 0.13341E-17 0.18184E-14 + 4 3 0.70346E-06 0.10000E+01 0.75673E+04 0.79365E-09 0.33136E-17 0.21545E-14 + 4 3 0.70346E-06 0.10000E+01 0.61026E+04 0.93393E-09 0.10180E-16 0.25301E-14 + 4 3 0.70346E-06 0.10000E+01 0.49215E+04 0.11006E-08 0.36494E-16 0.29534E-14 + 4 3 0.70346E-06 0.10000E+01 0.39689E+04 0.13180E-08 0.13825E-15 0.34510E-14 + 4 3 0.70346E-06 0.10000E+01 0.32008E+04 0.16412E-08 0.52472E-15 0.40859E-14 + 4 3 0.70346E-06 0.10000E+01 0.25813E+04 0.21850E-08 0.19665E-14 0.49835E-14 + 4 3 0.70346E-06 0.10000E+01 0.20817E+04 0.31767E-08 0.72640E-14 0.63693E-14 4 3 0.70346E-06 0.10000E+01 0.16788E+04 0.50538E-08 0.26454E-13 0.86264E-14 4 3 0.70346E-06 0.10000E+01 0.13538E+04 0.86446E-08 0.95159E-13 0.12389E-13 4 3 0.70346E-06 0.10000E+01 0.10918E+04 0.15497E-07 0.33961E-12 0.18697E-13 @@ -22920,24 +22920,24 @@ VERSION 2.8.2 4 3 0.70346E-06 0.10000E+01 0.24221E+03 0.10608E-05 0.93951E-09 0.58519E-12 4 3 0.70346E-06 0.10000E+01 0.19533E+03 0.16546E-05 0.17829E-08 0.87923E-12 4 3 0.70346E-06 0.10000E+01 0.15752E+03 0.16546E-05 0.17829E-08 0.87923E-12 - 4 3 0.12275E-05 0.10000E+01 0.80645E+05 0.21163E-52 0.15866E-63 0.56810E-58 - 4 3 0.12275E-05 0.10000E+01 0.65036E+05 0.17934E-51 0.25229E-62 0.48155E-57 - 4 3 0.12275E-05 0.10000E+01 0.52449E+05 0.15260E-50 0.33968E-61 0.40988E-56 - 4 3 0.12275E-05 0.10000E+01 0.42297E+05 0.11500E-49 0.46273E-60 0.30903E-55 - 4 3 0.12275E-05 0.10000E+01 0.34111E+05 0.83149E-49 0.63754E-59 0.22361E-54 - 4 3 0.12275E-05 0.10000E+01 0.27509E+05 0.59918E-48 0.86894E-58 0.16135E-53 - 4 3 0.12275E-05 0.10000E+01 0.22184E+05 0.42917E-47 0.11658E-56 0.11581E-52 - 4 3 0.12275E-05 0.10000E+01 0.17891E+05 0.30356E-46 0.15392E-55 0.82177E-52 - 4 3 0.12275E-05 0.10000E+01 0.14428E+05 0.21154E-45 0.20046E-54 0.57527E-51 - 4 3 0.12275E-05 0.10000E+01 0.11635E+05 0.14533E-44 0.25731E-53 0.39758E-50 - 4 3 0.12275E-05 0.10000E+01 0.93834E+04 0.98372E-44 0.32251E-52 0.27112E-49 - 4 3 0.12275E-05 0.10000E+01 0.75673E+04 0.65189E-43 0.38818E-51 0.18140E-48 - 4 3 0.12275E-05 0.10000E+01 0.61026E+04 0.41755E-42 0.43991E-50 0.11761E-47 - 4 3 0.12275E-05 0.10000E+01 0.49215E+04 0.25467E-41 0.47619E-49 0.72455E-47 - 4 3 0.12275E-05 0.10000E+01 0.39689E+04 0.14955E-40 0.59095E-48 0.41646E-46 - 4 3 0.12275E-05 0.10000E+01 0.32008E+04 0.30620E-38 0.36359E-45 0.74511E-44 - 4 3 0.12275E-05 0.10000E+01 0.25813E+04 0.15283E-29 0.56776E-36 0.29717E-35 - 4 3 0.12275E-05 0.10000E+01 0.20817E+04 0.28241E-13 0.38535E-19 0.51336E-19 + 4 3 0.12275E-05 0.10000E+01 0.80645E+05 0.14298E-09 0.91463E-21 0.38377E-15 + 4 3 0.12275E-05 0.10000E+01 0.65036E+05 0.18355E-09 0.21229E-20 0.49271E-15 + 4 3 0.12275E-05 0.10000E+01 0.52449E+05 0.23244E-09 0.48809E-20 0.62410E-15 + 4 3 0.12275E-05 0.10000E+01 0.42297E+05 0.29146E-09 0.11096E-19 0.78283E-15 + 4 3 0.12275E-05 0.10000E+01 0.34111E+05 0.36266E-09 0.24914E-19 0.97456E-15 + 4 3 0.12275E-05 0.10000E+01 0.27509E+05 0.44830E-09 0.55148E-19 0.12056E-14 + 4 3 0.12275E-05 0.10000E+01 0.22184E+05 0.55072E-09 0.11995E-18 0.14825E-14 + 4 3 0.12275E-05 0.10000E+01 0.17891E+05 0.67227E-09 0.25510E-18 0.18122E-14 + 4 3 0.12275E-05 0.10000E+01 0.14428E+05 0.81505E-09 0.52920E-18 0.22009E-14 + 4 3 0.12275E-05 0.10000E+01 0.11635E+05 0.98067E-09 0.10857E-17 0.26537E-14 + 4 3 0.12275E-05 0.10000E+01 0.93834E+04 0.11702E-08 0.23279E-17 0.31730E-14 + 4 3 0.12275E-05 0.10000E+01 0.75673E+04 0.13849E-08 0.57819E-17 0.37595E-14 + 4 3 0.12275E-05 0.10000E+01 0.61026E+04 0.16297E-08 0.17764E-16 0.44149E-14 + 4 3 0.12275E-05 0.10000E+01 0.49215E+04 0.19205E-08 0.63679E-16 0.51536E-14 + 4 3 0.12275E-05 0.10000E+01 0.39689E+04 0.22998E-08 0.24124E-15 0.60218E-14 + 4 3 0.12275E-05 0.10000E+01 0.32008E+04 0.28637E-08 0.91560E-15 0.71296E-14 + 4 3 0.12275E-05 0.10000E+01 0.25813E+04 0.38127E-08 0.34313E-14 0.86958E-14 + 4 3 0.12275E-05 0.10000E+01 0.20817E+04 0.55432E-08 0.12675E-13 0.11114E-13 4 3 0.12275E-05 0.10000E+01 0.16788E+04 0.88186E-08 0.46160E-13 0.15053E-13 4 3 0.12275E-05 0.10000E+01 0.13538E+04 0.15084E-07 0.16605E-12 0.21618E-13 4 3 0.12275E-05 0.10000E+01 0.10918E+04 0.27042E-07 0.59260E-12 0.32625E-13 @@ -22950,24 +22950,24 @@ VERSION 2.8.2 4 3 0.12275E-05 0.10000E+01 0.24221E+03 0.18511E-05 0.16394E-08 0.10211E-11 4 3 0.12275E-05 0.10000E+01 0.19533E+03 0.28872E-05 0.31110E-08 0.15342E-11 4 3 0.12275E-05 0.10000E+01 0.15752E+03 0.28872E-05 0.31110E-08 0.15342E-11 - 4 3 0.21419E-05 0.10000E+01 0.80645E+05 0.36928E-52 0.27686E-63 0.99129E-58 - 4 3 0.21419E-05 0.10000E+01 0.65036E+05 0.31293E-51 0.44023E-62 0.84028E-57 - 4 3 0.21419E-05 0.10000E+01 0.52449E+05 0.26629E-50 0.59272E-61 0.71521E-56 - 4 3 0.21419E-05 0.10000E+01 0.42297E+05 0.20067E-49 0.80743E-60 0.53923E-55 - 4 3 0.21419E-05 0.10000E+01 0.34111E+05 0.14509E-48 0.11125E-58 0.39019E-54 - 4 3 0.21419E-05 0.10000E+01 0.27509E+05 0.10455E-47 0.15162E-57 0.28154E-53 - 4 3 0.21419E-05 0.10000E+01 0.22184E+05 0.74888E-47 0.20343E-56 0.20208E-52 - 4 3 0.21419E-05 0.10000E+01 0.17891E+05 0.52970E-46 0.26858E-55 0.14339E-51 - 4 3 0.21419E-05 0.10000E+01 0.14428E+05 0.36912E-45 0.34980E-54 0.10038E-50 - 4 3 0.21419E-05 0.10000E+01 0.11635E+05 0.25360E-44 0.44898E-53 0.69375E-50 - 4 3 0.21419E-05 0.10000E+01 0.93834E+04 0.17165E-43 0.56276E-52 0.47309E-49 - 4 3 0.21419E-05 0.10000E+01 0.75673E+04 0.11375E-42 0.67736E-51 0.31653E-48 - 4 3 0.21419E-05 0.10000E+01 0.61026E+04 0.72859E-42 0.76762E-50 0.20523E-47 - 4 3 0.21419E-05 0.10000E+01 0.49215E+04 0.44438E-41 0.83093E-49 0.12643E-46 - 4 3 0.21419E-05 0.10000E+01 0.39689E+04 0.26095E-40 0.10312E-47 0.72670E-46 - 4 3 0.21419E-05 0.10000E+01 0.32008E+04 0.53430E-38 0.63445E-45 0.13002E-43 - 4 3 0.21419E-05 0.10000E+01 0.25813E+04 0.26668E-29 0.99071E-36 0.51855E-35 - 4 3 0.21419E-05 0.10000E+01 0.20817E+04 0.49279E-13 0.67241E-19 0.89578E-19 + 4 3 0.21419E-05 0.10000E+01 0.80645E+05 0.24949E-09 0.15960E-20 0.66966E-15 + 4 3 0.21419E-05 0.10000E+01 0.65036E+05 0.32028E-09 0.37043E-20 0.85976E-15 + 4 3 0.21419E-05 0.10000E+01 0.52449E+05 0.40559E-09 0.85169E-20 0.10890E-14 + 4 3 0.21419E-05 0.10000E+01 0.42297E+05 0.50858E-09 0.19363E-19 0.13660E-14 + 4 3 0.21419E-05 0.10000E+01 0.34111E+05 0.63282E-09 0.43473E-19 0.17006E-14 + 4 3 0.21419E-05 0.10000E+01 0.27509E+05 0.78225E-09 0.96229E-19 0.21036E-14 + 4 3 0.21419E-05 0.10000E+01 0.22184E+05 0.96097E-09 0.20930E-18 0.25868E-14 + 4 3 0.21419E-05 0.10000E+01 0.17891E+05 0.11731E-08 0.44513E-18 0.31621E-14 + 4 3 0.21419E-05 0.10000E+01 0.14428E+05 0.14222E-08 0.92343E-18 0.38404E-14 + 4 3 0.21419E-05 0.10000E+01 0.11635E+05 0.17112E-08 0.18945E-17 0.46305E-14 + 4 3 0.21419E-05 0.10000E+01 0.93834E+04 0.20419E-08 0.40620E-17 0.55368E-14 + 4 3 0.21419E-05 0.10000E+01 0.75673E+04 0.24165E-08 0.10089E-16 0.65601E-14 + 4 3 0.21419E-05 0.10000E+01 0.61026E+04 0.28437E-08 0.30997E-16 0.77038E-14 + 4 3 0.21419E-05 0.10000E+01 0.49215E+04 0.33512E-08 0.11112E-15 0.89927E-14 + 4 3 0.21419E-05 0.10000E+01 0.39689E+04 0.40129E-08 0.42094E-15 0.10508E-13 + 4 3 0.21419E-05 0.10000E+01 0.32008E+04 0.49970E-08 0.15977E-14 0.12441E-13 + 4 3 0.21419E-05 0.10000E+01 0.25813E+04 0.66530E-08 0.59875E-14 0.15174E-13 + 4 3 0.21419E-05 0.10000E+01 0.20817E+04 0.96725E-08 0.22118E-13 0.19393E-13 4 3 0.21419E-05 0.10000E+01 0.16788E+04 0.15388E-07 0.80547E-13 0.26266E-13 4 3 0.21419E-05 0.10000E+01 0.13538E+04 0.26321E-07 0.28974E-12 0.37721E-13 4 3 0.21419E-05 0.10000E+01 0.10918E+04 0.47187E-07 0.10341E-11 0.56928E-13 @@ -22980,24 +22980,24 @@ VERSION 2.8.2 4 3 0.21419E-05 0.10000E+01 0.24221E+03 0.32300E-05 0.28606E-08 0.17818E-11 4 3 0.21419E-05 0.10000E+01 0.19533E+03 0.50379E-05 0.54285E-08 0.26771E-11 4 3 0.21419E-05 0.10000E+01 0.15752E+03 0.50379E-05 0.54285E-08 0.26771E-11 - 4 3 0.37375E-05 0.10000E+01 0.80645E+05 0.64437E-52 0.48310E-63 0.17297E-57 - 4 3 0.37375E-05 0.10000E+01 0.65036E+05 0.54604E-51 0.76818E-62 0.14662E-56 - 4 3 0.37375E-05 0.10000E+01 0.52449E+05 0.46465E-50 0.10343E-60 0.12480E-55 - 4 3 0.37375E-05 0.10000E+01 0.42297E+05 0.35016E-49 0.14089E-59 0.94093E-55 - 4 3 0.37375E-05 0.10000E+01 0.34111E+05 0.25317E-48 0.19412E-58 0.68086E-54 - 4 3 0.37375E-05 0.10000E+01 0.27509E+05 0.18244E-47 0.26457E-57 0.49127E-53 - 4 3 0.37375E-05 0.10000E+01 0.22184E+05 0.13067E-46 0.35497E-56 0.35261E-52 - 4 3 0.37375E-05 0.10000E+01 0.17891E+05 0.92429E-46 0.46865E-55 0.25021E-51 - 4 3 0.37375E-05 0.10000E+01 0.14428E+05 0.64410E-45 0.61037E-54 0.17516E-50 - 4 3 0.37375E-05 0.10000E+01 0.11635E+05 0.44251E-44 0.78345E-53 0.12106E-49 - 4 3 0.37375E-05 0.10000E+01 0.93834E+04 0.29952E-43 0.98198E-52 0.82552E-49 - 4 3 0.37375E-05 0.10000E+01 0.75673E+04 0.19849E-42 0.11820E-50 0.55232E-48 - 4 3 0.37375E-05 0.10000E+01 0.61026E+04 0.12713E-41 0.13395E-49 0.35811E-47 - 4 3 0.37375E-05 0.10000E+01 0.49215E+04 0.77541E-41 0.14499E-48 0.22061E-46 - 4 3 0.37375E-05 0.10000E+01 0.39689E+04 0.45534E-40 0.17993E-47 0.12680E-45 - 4 3 0.37375E-05 0.10000E+01 0.32008E+04 0.93233E-38 0.11071E-44 0.22687E-43 - 4 3 0.37375E-05 0.10000E+01 0.25813E+04 0.46535E-29 0.17287E-35 0.90483E-35 - 4 3 0.37375E-05 0.10000E+01 0.20817E+04 0.85988E-13 0.11733E-18 0.15631E-18 + 4 3 0.37375E-05 0.10000E+01 0.80645E+05 0.43535E-09 0.27849E-20 0.11685E-14 + 4 3 0.37375E-05 0.10000E+01 0.65036E+05 0.55886E-09 0.64638E-20 0.15002E-14 + 4 3 0.37375E-05 0.10000E+01 0.52449E+05 0.70773E-09 0.14861E-19 0.19003E-14 + 4 3 0.37375E-05 0.10000E+01 0.42297E+05 0.88744E-09 0.33787E-19 0.23836E-14 + 4 3 0.37375E-05 0.10000E+01 0.34111E+05 0.11042E-08 0.75859E-19 0.29674E-14 + 4 3 0.37375E-05 0.10000E+01 0.27509E+05 0.13650E-08 0.16791E-18 0.36707E-14 + 4 3 0.37375E-05 0.10000E+01 0.22184E+05 0.16768E-08 0.36522E-18 0.45139E-14 + 4 3 0.37375E-05 0.10000E+01 0.17891E+05 0.20469E-08 0.77673E-18 0.55177E-14 + 4 3 0.37375E-05 0.10000E+01 0.14428E+05 0.24817E-08 0.16113E-17 0.67013E-14 + 4 3 0.37375E-05 0.10000E+01 0.11635E+05 0.29860E-08 0.33058E-17 0.80799E-14 + 4 3 0.37375E-05 0.10000E+01 0.93834E+04 0.35629E-08 0.70879E-17 0.96613E-14 + 4 3 0.37375E-05 0.10000E+01 0.75673E+04 0.42167E-08 0.17605E-16 0.11447E-13 + 4 3 0.37375E-05 0.10000E+01 0.61026E+04 0.49620E-08 0.54087E-16 0.13443E-13 + 4 3 0.37375E-05 0.10000E+01 0.49215E+04 0.58476E-08 0.19389E-15 0.15692E-13 + 4 3 0.37375E-05 0.10000E+01 0.39689E+04 0.70023E-08 0.73452E-15 0.18335E-13 + 4 3 0.37375E-05 0.10000E+01 0.32008E+04 0.87195E-08 0.27878E-14 0.21708E-13 + 4 3 0.37375E-05 0.10000E+01 0.25813E+04 0.11609E-07 0.10448E-13 0.26477E-13 + 4 3 0.37375E-05 0.10000E+01 0.20817E+04 0.16878E-07 0.38594E-13 0.33840E-13 4 3 0.37375E-05 0.10000E+01 0.16788E+04 0.26851E-07 0.14055E-12 0.45832E-13 4 3 0.37375E-05 0.10000E+01 0.13538E+04 0.45929E-07 0.50558E-12 0.65822E-13 4 3 0.37375E-05 0.10000E+01 0.10918E+04 0.82338E-07 0.18044E-11 0.99336E-13 @@ -23010,24 +23010,24 @@ VERSION 2.8.2 4 3 0.37375E-05 0.10000E+01 0.24221E+03 0.56362E-05 0.49916E-08 0.31091E-11 4 3 0.37375E-05 0.10000E+01 0.19533E+03 0.87909E-05 0.94723E-08 0.46713E-11 4 3 0.37375E-05 0.10000E+01 0.15752E+03 0.87909E-05 0.94723E-08 0.46713E-11 - 4 3 0.65217E-05 0.10000E+01 0.80645E+05 0.11244E-51 0.84298E-63 0.30183E-57 - 4 3 0.65217E-05 0.10000E+01 0.65036E+05 0.95281E-51 0.13404E-61 0.25585E-56 - 4 3 0.65217E-05 0.10000E+01 0.52449E+05 0.81079E-50 0.18047E-60 0.21777E-55 - 4 3 0.65217E-05 0.10000E+01 0.42297E+05 0.61101E-49 0.24585E-59 0.16419E-54 - 4 3 0.65217E-05 0.10000E+01 0.34111E+05 0.44177E-48 0.33873E-58 0.11881E-53 - 4 3 0.65217E-05 0.10000E+01 0.27509E+05 0.31834E-47 0.46167E-57 0.85724E-53 - 4 3 0.65217E-05 0.10000E+01 0.22184E+05 0.22802E-46 0.61940E-56 0.61529E-52 - 4 3 0.65217E-05 0.10000E+01 0.17891E+05 0.16128E-45 0.81776E-55 0.43661E-51 - 4 3 0.65217E-05 0.10000E+01 0.14428E+05 0.11239E-44 0.10651E-53 0.30564E-50 - 4 3 0.65217E-05 0.10000E+01 0.11635E+05 0.77216E-44 0.13671E-52 0.21124E-49 - 4 3 0.65217E-05 0.10000E+01 0.93834E+04 0.52265E-43 0.17135E-51 0.14405E-48 - 4 3 0.65217E-05 0.10000E+01 0.75673E+04 0.34635E-42 0.20624E-50 0.96377E-48 - 4 3 0.65217E-05 0.10000E+01 0.61026E+04 0.22184E-41 0.23373E-49 0.62488E-47 - 4 3 0.65217E-05 0.10000E+01 0.49215E+04 0.13530E-40 0.25300E-48 0.38495E-46 - 4 3 0.65217E-05 0.10000E+01 0.39689E+04 0.79454E-40 0.31397E-47 0.22127E-45 - 4 3 0.65217E-05 0.10000E+01 0.32008E+04 0.16269E-37 0.19318E-44 0.39588E-43 - 4 3 0.65217E-05 0.10000E+01 0.25813E+04 0.81200E-29 0.30165E-35 0.15789E-34 - 4 3 0.65217E-05 0.10000E+01 0.20817E+04 0.15004E-12 0.20474E-18 0.27275E-18 + 4 3 0.65217E-05 0.10000E+01 0.80645E+05 0.75966E-09 0.48595E-20 0.20390E-14 + 4 3 0.65217E-05 0.10000E+01 0.65036E+05 0.97518E-09 0.11279E-19 0.26178E-14 + 4 3 0.65217E-05 0.10000E+01 0.52449E+05 0.12349E-08 0.25932E-19 0.33158E-14 + 4 3 0.65217E-05 0.10000E+01 0.42297E+05 0.15485E-08 0.58956E-19 0.41592E-14 + 4 3 0.65217E-05 0.10000E+01 0.34111E+05 0.19268E-08 0.13237E-18 0.51779E-14 + 4 3 0.65217E-05 0.10000E+01 0.27509E+05 0.23818E-08 0.29300E-18 0.64051E-14 + 4 3 0.65217E-05 0.10000E+01 0.22184E+05 0.29260E-08 0.63729E-18 0.78765E-14 + 4 3 0.65217E-05 0.10000E+01 0.17891E+05 0.35718E-08 0.13553E-17 0.96280E-14 + 4 3 0.65217E-05 0.10000E+01 0.14428E+05 0.43304E-08 0.28117E-17 0.11693E-13 + 4 3 0.65217E-05 0.10000E+01 0.11635E+05 0.52103E-08 0.57684E-17 0.14099E-13 + 4 3 0.65217E-05 0.10000E+01 0.93834E+04 0.62171E-08 0.12368E-16 0.16858E-13 + 4 3 0.65217E-05 0.10000E+01 0.75673E+04 0.73579E-08 0.30720E-16 0.19974E-13 + 4 3 0.65217E-05 0.10000E+01 0.61026E+04 0.86584E-08 0.94379E-16 0.23457E-13 + 4 3 0.65217E-05 0.10000E+01 0.49215E+04 0.10204E-07 0.33833E-15 0.27381E-13 + 4 3 0.65217E-05 0.10000E+01 0.39689E+04 0.12219E-07 0.12817E-14 0.31994E-13 + 4 3 0.65217E-05 0.10000E+01 0.32008E+04 0.15215E-07 0.48646E-14 0.37880E-13 + 4 3 0.65217E-05 0.10000E+01 0.25813E+04 0.20257E-07 0.18231E-13 0.46201E-13 + 4 3 0.65217E-05 0.10000E+01 0.20817E+04 0.29451E-07 0.67344E-13 0.59049E-13 4 3 0.65217E-05 0.10000E+01 0.16788E+04 0.46853E-07 0.24525E-12 0.79974E-13 4 3 0.65217E-05 0.10000E+01 0.13538E+04 0.80143E-07 0.88221E-12 0.11485E-12 4 3 0.65217E-05 0.10000E+01 0.10918E+04 0.14368E-06 0.31485E-11 0.17334E-12 @@ -23040,24 +23040,24 @@ VERSION 2.8.2 4 3 0.65217E-05 0.10000E+01 0.24221E+03 0.98348E-05 0.87101E-08 0.54253E-11 4 3 0.65217E-05 0.10000E+01 0.19533E+03 0.15340E-04 0.16529E-07 0.81512E-11 4 3 0.65217E-05 0.10000E+01 0.15752E+03 0.15340E-04 0.16529E-07 0.81512E-11 - 4 3 0.11380E-04 0.10000E+01 0.80645E+05 0.19620E-51 0.14710E-62 0.52668E-57 - 4 3 0.11380E-04 0.10000E+01 0.65036E+05 0.16626E-50 0.23390E-61 0.44644E-56 - 4 3 0.11380E-04 0.10000E+01 0.52449E+05 0.14148E-49 0.31491E-60 0.37999E-55 - 4 3 0.11380E-04 0.10000E+01 0.42297E+05 0.10662E-48 0.42899E-59 0.28649E-54 - 4 3 0.11380E-04 0.10000E+01 0.34111E+05 0.77087E-48 0.59106E-58 0.20731E-53 - 4 3 0.11380E-04 0.10000E+01 0.27509E+05 0.55549E-47 0.80558E-57 0.14958E-52 - 4 3 0.11380E-04 0.10000E+01 0.22184E+05 0.39788E-46 0.10808E-55 0.10736E-51 - 4 3 0.11380E-04 0.10000E+01 0.17891E+05 0.28143E-45 0.14269E-54 0.76185E-51 - 4 3 0.11380E-04 0.10000E+01 0.14428E+05 0.19612E-44 0.18585E-53 0.53333E-50 - 4 3 0.11380E-04 0.10000E+01 0.11635E+05 0.13474E-43 0.23855E-52 0.36859E-49 - 4 3 0.11380E-04 0.10000E+01 0.93834E+04 0.91200E-43 0.29899E-51 0.25136E-48 - 4 3 0.11380E-04 0.10000E+01 0.75673E+04 0.60436E-42 0.35988E-50 0.16817E-47 - 4 3 0.11380E-04 0.10000E+01 0.61026E+04 0.38710E-41 0.40784E-49 0.10904E-46 - 4 3 0.11380E-04 0.10000E+01 0.49215E+04 0.23610E-40 0.44147E-48 0.67172E-46 - 4 3 0.11380E-04 0.10000E+01 0.39689E+04 0.13864E-39 0.54787E-47 0.38609E-45 - 4 3 0.11380E-04 0.10000E+01 0.32008E+04 0.28388E-37 0.33708E-44 0.69079E-43 - 4 3 0.11380E-04 0.10000E+01 0.25813E+04 0.14169E-28 0.52637E-35 0.27550E-34 - 4 3 0.11380E-04 0.10000E+01 0.20817E+04 0.26182E-12 0.35725E-18 0.47593E-18 + 4 3 0.11380E-04 0.10000E+01 0.80645E+05 0.13256E-08 0.84795E-20 0.35579E-14 + 4 3 0.11380E-04 0.10000E+01 0.65036E+05 0.17016E-08 0.19681E-19 0.45679E-14 + 4 3 0.11380E-04 0.10000E+01 0.52449E+05 0.21549E-08 0.45250E-19 0.57859E-14 + 4 3 0.11380E-04 0.10000E+01 0.42297E+05 0.27021E-08 0.10287E-18 0.72575E-14 + 4 3 0.11380E-04 0.10000E+01 0.34111E+05 0.33622E-08 0.23098E-18 0.90351E-14 + 4 3 0.11380E-04 0.10000E+01 0.27509E+05 0.41561E-08 0.51127E-18 0.11177E-13 + 4 3 0.11380E-04 0.10000E+01 0.22184E+05 0.51057E-08 0.11120E-17 0.13744E-13 + 4 3 0.11380E-04 0.10000E+01 0.17891E+05 0.62325E-08 0.23650E-17 0.16800E-13 + 4 3 0.11380E-04 0.10000E+01 0.14428E+05 0.75563E-08 0.49062E-17 0.20404E-13 + 4 3 0.11380E-04 0.10000E+01 0.11635E+05 0.90917E-08 0.10066E-16 0.24602E-13 + 4 3 0.11380E-04 0.10000E+01 0.93834E+04 0.10848E-07 0.21581E-16 0.29417E-13 + 4 3 0.11380E-04 0.10000E+01 0.75673E+04 0.12839E-07 0.53604E-16 0.34854E-13 + 4 3 0.11380E-04 0.10000E+01 0.61026E+04 0.15108E-07 0.16469E-15 0.40930E-13 + 4 3 0.11380E-04 0.10000E+01 0.49215E+04 0.17805E-07 0.59036E-15 0.47778E-13 + 4 3 0.11380E-04 0.10000E+01 0.39689E+04 0.21321E-07 0.22365E-14 0.55827E-13 + 4 3 0.11380E-04 0.10000E+01 0.32008E+04 0.26549E-07 0.84884E-14 0.66098E-13 + 4 3 0.11380E-04 0.10000E+01 0.25813E+04 0.35348E-07 0.31812E-13 0.80618E-13 + 4 3 0.11380E-04 0.10000E+01 0.20817E+04 0.51390E-07 0.11751E-12 0.10304E-12 4 3 0.11380E-04 0.10000E+01 0.16788E+04 0.81756E-07 0.42795E-12 0.13955E-12 4 3 0.11380E-04 0.10000E+01 0.13538E+04 0.13984E-06 0.15394E-11 0.20041E-12 4 3 0.11380E-04 0.10000E+01 0.10918E+04 0.25070E-06 0.54940E-11 0.30246E-12 @@ -23070,24 +23070,24 @@ VERSION 2.8.2 4 3 0.11380E-04 0.10000E+01 0.24221E+03 0.17161E-04 0.15199E-07 0.94667E-11 4 3 0.11380E-04 0.10000E+01 0.19533E+03 0.26767E-04 0.28842E-07 0.14223E-10 4 3 0.11380E-04 0.10000E+01 0.15752E+03 0.26767E-04 0.28842E-07 0.14223E-10 - 4 3 0.19857E-04 0.10000E+01 0.80645E+05 0.34235E-51 0.25667E-62 0.91902E-57 - 4 3 0.19857E-04 0.10000E+01 0.65036E+05 0.29011E-50 0.40813E-61 0.77901E-56 - 4 3 0.19857E-04 0.10000E+01 0.52449E+05 0.24687E-49 0.54950E-60 0.66306E-55 - 4 3 0.19857E-04 0.10000E+01 0.42297E+05 0.18604E-48 0.74856E-59 0.49991E-54 - 4 3 0.19857E-04 0.10000E+01 0.34111E+05 0.13451E-47 0.10314E-57 0.36174E-53 - 4 3 0.19857E-04 0.10000E+01 0.27509E+05 0.96929E-47 0.14057E-56 0.26101E-52 - 4 3 0.19857E-04 0.10000E+01 0.22184E+05 0.69427E-46 0.18860E-55 0.18734E-51 - 4 3 0.19857E-04 0.10000E+01 0.17891E+05 0.49108E-45 0.24899E-54 0.13294E-50 - 4 3 0.19857E-04 0.10000E+01 0.14428E+05 0.34221E-44 0.32429E-53 0.93063E-50 - 4 3 0.19857E-04 0.10000E+01 0.11635E+05 0.23511E-43 0.41625E-52 0.64317E-49 - 4 3 0.19857E-04 0.10000E+01 0.93834E+04 0.15914E-42 0.52173E-51 0.43860E-48 - 4 3 0.19857E-04 0.10000E+01 0.75673E+04 0.10546E-41 0.62797E-50 0.29345E-47 - 4 3 0.19857E-04 0.10000E+01 0.61026E+04 0.67547E-41 0.71166E-49 0.19026E-46 - 4 3 0.19857E-04 0.10000E+01 0.49215E+04 0.41198E-40 0.77034E-48 0.11721E-45 - 4 3 0.19857E-04 0.10000E+01 0.39689E+04 0.24192E-39 0.95599E-47 0.67371E-45 - 4 3 0.19857E-04 0.10000E+01 0.32008E+04 0.49535E-37 0.58819E-44 0.12054E-42 - 4 3 0.19857E-04 0.10000E+01 0.25813E+04 0.24724E-28 0.91848E-35 0.48074E-34 - 4 3 0.19857E-04 0.10000E+01 0.20817E+04 0.45686E-12 0.62338E-18 0.83047E-18 + 4 3 0.19857E-04 0.10000E+01 0.80645E+05 0.23130E-08 0.14796E-19 0.62083E-14 + 4 3 0.19857E-04 0.10000E+01 0.65036E+05 0.29692E-08 0.34342E-19 0.79707E-14 + 4 3 0.19857E-04 0.10000E+01 0.52449E+05 0.37602E-08 0.78959E-19 0.10096E-13 + 4 3 0.19857E-04 0.10000E+01 0.42297E+05 0.47150E-08 0.17951E-18 0.12664E-13 + 4 3 0.19857E-04 0.10000E+01 0.34111E+05 0.58668E-08 0.40304E-18 0.15766E-13 + 4 3 0.19857E-04 0.10000E+01 0.27509E+05 0.72522E-08 0.89213E-18 0.19502E-13 + 4 3 0.19857E-04 0.10000E+01 0.22184E+05 0.89091E-08 0.19404E-17 0.23982E-13 + 4 3 0.19857E-04 0.10000E+01 0.17891E+05 0.10875E-07 0.41268E-17 0.29315E-13 + 4 3 0.19857E-04 0.10000E+01 0.14428E+05 0.13185E-07 0.85610E-17 0.35604E-13 + 4 3 0.19857E-04 0.10000E+01 0.11635E+05 0.15864E-07 0.17564E-16 0.42929E-13 + 4 3 0.19857E-04 0.10000E+01 0.93834E+04 0.18930E-07 0.37658E-16 0.51331E-13 + 4 3 0.19857E-04 0.10000E+01 0.75673E+04 0.22403E-07 0.93535E-16 0.60818E-13 + 4 3 0.19857E-04 0.10000E+01 0.61026E+04 0.26363E-07 0.28737E-15 0.71421E-13 + 4 3 0.19857E-04 0.10000E+01 0.49215E+04 0.31068E-07 0.10301E-14 0.83370E-13 + 4 3 0.19857E-04 0.10000E+01 0.39689E+04 0.37203E-07 0.39025E-14 0.97415E-13 + 4 3 0.19857E-04 0.10000E+01 0.32008E+04 0.46327E-07 0.14812E-13 0.11534E-12 + 4 3 0.19857E-04 0.10000E+01 0.25813E+04 0.61679E-07 0.55509E-13 0.14067E-12 + 4 3 0.19857E-04 0.10000E+01 0.20817E+04 0.89673E-07 0.20505E-12 0.17979E-12 4 3 0.19857E-04 0.10000E+01 0.16788E+04 0.14266E-06 0.74674E-12 0.24351E-12 4 3 0.19857E-04 0.10000E+01 0.13538E+04 0.24402E-06 0.26862E-11 0.34971E-12 4 3 0.19857E-04 0.10000E+01 0.10918E+04 0.43746E-06 0.95866E-11 0.52777E-12 @@ -23100,24 +23100,24 @@ VERSION 2.8.2 4 3 0.19857E-04 0.10000E+01 0.24221E+03 0.29945E-04 0.26521E-07 0.16519E-10 4 3 0.19857E-04 0.10000E+01 0.19533E+03 0.46706E-04 0.50327E-07 0.24819E-10 4 3 0.19857E-04 0.10000E+01 0.15752E+03 0.46706E-04 0.50327E-07 0.24819E-10 - 4 3 0.34650E-04 0.10000E+01 0.80645E+05 0.59739E-51 0.44788E-62 0.16036E-56 - 4 3 0.34650E-04 0.10000E+01 0.65036E+05 0.50623E-50 0.71217E-61 0.13593E-55 - 4 3 0.34650E-04 0.10000E+01 0.52449E+05 0.43078E-49 0.95885E-60 0.11570E-54 - 4 3 0.34650E-04 0.10000E+01 0.42297E+05 0.32463E-48 0.13062E-58 0.87232E-54 - 4 3 0.34650E-04 0.10000E+01 0.34111E+05 0.23472E-47 0.17997E-57 0.63122E-53 - 4 3 0.34650E-04 0.10000E+01 0.27509E+05 0.16914E-46 0.24528E-56 0.45545E-52 - 4 3 0.34650E-04 0.10000E+01 0.22184E+05 0.12115E-45 0.32909E-55 0.32690E-51 - 4 3 0.34650E-04 0.10000E+01 0.17891E+05 0.85690E-45 0.43448E-54 0.23197E-50 - 4 3 0.34650E-04 0.10000E+01 0.14428E+05 0.59714E-44 0.56587E-53 0.16239E-49 - 4 3 0.34650E-04 0.10000E+01 0.11635E+05 0.41025E-43 0.72633E-52 0.11223E-48 - 4 3 0.34650E-04 0.10000E+01 0.93834E+04 0.27769E-42 0.91038E-51 0.76533E-48 - 4 3 0.34650E-04 0.10000E+01 0.75673E+04 0.18402E-41 0.10958E-49 0.51205E-47 - 4 3 0.34650E-04 0.10000E+01 0.61026E+04 0.11787E-40 0.12418E-48 0.33200E-46 - 4 3 0.34650E-04 0.10000E+01 0.49215E+04 0.71888E-40 0.13442E-47 0.20453E-45 - 4 3 0.34650E-04 0.10000E+01 0.39689E+04 0.42214E-39 0.16681E-46 0.11756E-44 - 4 3 0.34650E-04 0.10000E+01 0.32008E+04 0.86435E-37 0.10264E-43 0.21033E-42 - 4 3 0.34650E-04 0.10000E+01 0.25813E+04 0.43142E-28 0.16027E-34 0.83886E-34 - 4 3 0.34650E-04 0.10000E+01 0.20817E+04 0.79719E-12 0.10878E-17 0.14491E-17 + 4 3 0.34650E-04 0.10000E+01 0.80645E+05 0.40361E-08 0.25818E-19 0.10833E-13 + 4 3 0.34650E-04 0.10000E+01 0.65036E+05 0.51811E-08 0.59925E-19 0.13908E-13 + 4 3 0.34650E-04 0.10000E+01 0.52449E+05 0.65613E-08 0.13778E-18 0.17617E-13 + 4 3 0.34650E-04 0.10000E+01 0.42297E+05 0.82273E-08 0.31323E-18 0.22098E-13 + 4 3 0.34650E-04 0.10000E+01 0.34111E+05 0.10237E-07 0.70328E-18 0.27510E-13 + 4 3 0.34650E-04 0.10000E+01 0.27509E+05 0.12655E-07 0.15567E-17 0.34031E-13 + 4 3 0.34650E-04 0.10000E+01 0.22184E+05 0.15546E-07 0.33859E-17 0.41848E-13 + 4 3 0.34650E-04 0.10000E+01 0.17891E+05 0.18977E-07 0.72010E-17 0.51154E-13 + 4 3 0.34650E-04 0.10000E+01 0.14428E+05 0.23007E-07 0.14938E-16 0.62127E-13 + 4 3 0.34650E-04 0.10000E+01 0.11635E+05 0.27682E-07 0.30648E-16 0.74908E-13 + 4 3 0.34650E-04 0.10000E+01 0.93834E+04 0.33032E-07 0.65711E-16 0.89569E-13 + 4 3 0.34650E-04 0.10000E+01 0.75673E+04 0.39093E-07 0.16321E-15 0.10612E-12 + 4 3 0.34650E-04 0.10000E+01 0.61026E+04 0.46002E-07 0.50144E-15 0.12463E-12 + 4 3 0.34650E-04 0.10000E+01 0.49215E+04 0.54212E-07 0.17975E-14 0.14548E-12 + 4 3 0.34650E-04 0.10000E+01 0.39689E+04 0.64918E-07 0.68096E-14 0.16998E-12 + 4 3 0.34650E-04 0.10000E+01 0.32008E+04 0.80838E-07 0.25846E-13 0.20125E-12 + 4 3 0.34650E-04 0.10000E+01 0.25813E+04 0.10763E-06 0.96860E-13 0.24547E-12 + 4 3 0.34650E-04 0.10000E+01 0.20817E+04 0.15647E-06 0.35780E-12 0.31373E-12 4 3 0.34650E-04 0.10000E+01 0.16788E+04 0.24893E-06 0.13030E-11 0.42490E-12 4 3 0.34650E-04 0.10000E+01 0.13538E+04 0.42580E-06 0.46872E-11 0.61023E-12 4 3 0.34650E-04 0.10000E+01 0.10918E+04 0.76335E-06 0.16728E-10 0.92093E-12 @@ -23130,24 +23130,24 @@ VERSION 2.8.2 4 3 0.34650E-04 0.10000E+01 0.24221E+03 0.52252E-04 0.46277E-07 0.28824E-10 4 3 0.34650E-04 0.10000E+01 0.19533E+03 0.81499E-04 0.87817E-07 0.43307E-10 4 3 0.34650E-04 0.10000E+01 0.15752E+03 0.81499E-04 0.87817E-07 0.43307E-10 - 4 3 0.60462E-04 0.10000E+01 0.80645E+05 0.10424E-50 0.78152E-62 0.27982E-56 - 4 3 0.60462E-04 0.10000E+01 0.65036E+05 0.88334E-50 0.12427E-60 0.23719E-55 - 4 3 0.60462E-04 0.10000E+01 0.52449E+05 0.75168E-49 0.16731E-59 0.20189E-54 - 4 3 0.60462E-04 0.10000E+01 0.42297E+05 0.56646E-48 0.22792E-58 0.15221E-53 - 4 3 0.60462E-04 0.10000E+01 0.34111E+05 0.40956E-47 0.31403E-57 0.11014E-52 - 4 3 0.60462E-04 0.10000E+01 0.27509E+05 0.29513E-46 0.42801E-56 0.79474E-52 - 4 3 0.60462E-04 0.10000E+01 0.22184E+05 0.21139E-45 0.57424E-55 0.57043E-51 - 4 3 0.60462E-04 0.10000E+01 0.17891E+05 0.14952E-44 0.75814E-54 0.40477E-50 - 4 3 0.60462E-04 0.10000E+01 0.14428E+05 0.10420E-43 0.98741E-53 0.28336E-49 - 4 3 0.60462E-04 0.10000E+01 0.11635E+05 0.71586E-43 0.12674E-51 0.19583E-48 - 4 3 0.60462E-04 0.10000E+01 0.93834E+04 0.48455E-42 0.15886E-50 0.13355E-47 - 4 3 0.60462E-04 0.10000E+01 0.75673E+04 0.32110E-41 0.19121E-49 0.89350E-47 - 4 3 0.60462E-04 0.10000E+01 0.61026E+04 0.20567E-40 0.21669E-48 0.57932E-46 - 4 3 0.60462E-04 0.10000E+01 0.49215E+04 0.12544E-39 0.23455E-47 0.35689E-45 - 4 3 0.60462E-04 0.10000E+01 0.39689E+04 0.73661E-39 0.29108E-46 0.20513E-44 - 4 3 0.60462E-04 0.10000E+01 0.32008E+04 0.15082E-36 0.17909E-43 0.36702E-42 - 4 3 0.60462E-04 0.10000E+01 0.25813E+04 0.75280E-28 0.27966E-34 0.14638E-33 - 4 3 0.60462E-04 0.10000E+01 0.20817E+04 0.13910E-11 0.18981E-17 0.25286E-17 + 4 3 0.60462E-04 0.10000E+01 0.80645E+05 0.70428E-08 0.45052E-19 0.18903E-13 + 4 3 0.60462E-04 0.10000E+01 0.65036E+05 0.90408E-08 0.10457E-18 0.24269E-13 + 4 3 0.60462E-04 0.10000E+01 0.52449E+05 0.11449E-07 0.24042E-18 0.30741E-13 + 4 3 0.60462E-04 0.10000E+01 0.42297E+05 0.14356E-07 0.54657E-18 0.38559E-13 + 4 3 0.60462E-04 0.10000E+01 0.34111E+05 0.17863E-07 0.12272E-17 0.48003E-13 + 4 3 0.60462E-04 0.10000E+01 0.27509E+05 0.22081E-07 0.27164E-17 0.59381E-13 + 4 3 0.60462E-04 0.10000E+01 0.22184E+05 0.27126E-07 0.59082E-17 0.73022E-13 + 4 3 0.60462E-04 0.10000E+01 0.17891E+05 0.33114E-07 0.12565E-16 0.89260E-13 + 4 3 0.60462E-04 0.10000E+01 0.14428E+05 0.40146E-07 0.26067E-16 0.10841E-12 + 4 3 0.60462E-04 0.10000E+01 0.11635E+05 0.48304E-07 0.53478E-16 0.13071E-12 + 4 3 0.60462E-04 0.10000E+01 0.93834E+04 0.57638E-07 0.11466E-15 0.15629E-12 + 4 3 0.60462E-04 0.10000E+01 0.75673E+04 0.68214E-07 0.28480E-15 0.18518E-12 + 4 3 0.60462E-04 0.10000E+01 0.61026E+04 0.80271E-07 0.87498E-15 0.21746E-12 + 4 3 0.60462E-04 0.10000E+01 0.49215E+04 0.94597E-07 0.31366E-14 0.25385E-12 + 4 3 0.60462E-04 0.10000E+01 0.39689E+04 0.11328E-06 0.11882E-13 0.29661E-12 + 4 3 0.60462E-04 0.10000E+01 0.32008E+04 0.14106E-06 0.45099E-13 0.35118E-12 + 4 3 0.60462E-04 0.10000E+01 0.25813E+04 0.18780E-06 0.16902E-12 0.42833E-12 + 4 3 0.60462E-04 0.10000E+01 0.20817E+04 0.27304E-06 0.62434E-12 0.54743E-12 4 3 0.60462E-04 0.10000E+01 0.16788E+04 0.43437E-06 0.22737E-11 0.74143E-12 4 3 0.60462E-04 0.10000E+01 0.13538E+04 0.74300E-06 0.81789E-11 0.10648E-11 4 3 0.60462E-04 0.10000E+01 0.10918E+04 0.13320E-05 0.29189E-10 0.16070E-11 @@ -23160,24 +23160,24 @@ VERSION 2.8.2 4 3 0.60462E-04 0.10000E+01 0.24221E+03 0.91177E-04 0.80750E-07 0.50297E-10 4 3 0.60462E-04 0.10000E+01 0.19533E+03 0.14221E-03 0.15324E-06 0.75569E-10 4 3 0.60462E-04 0.10000E+01 0.15752E+03 0.14221E-03 0.15324E-06 0.75569E-10 - 4 3 0.10550E-03 0.10000E+01 0.80645E+05 0.18189E-50 0.13637E-61 0.48828E-56 - 4 3 0.10550E-03 0.10000E+01 0.65036E+05 0.15414E-49 0.21684E-60 0.41389E-55 - 4 3 0.10550E-03 0.10000E+01 0.52449E+05 0.13116E-48 0.29195E-59 0.35229E-54 - 4 3 0.10550E-03 0.10000E+01 0.42297E+05 0.98844E-48 0.39771E-58 0.26561E-53 - 4 3 0.10550E-03 0.10000E+01 0.34111E+05 0.71466E-47 0.54796E-57 0.19219E-52 - 4 3 0.10550E-03 0.10000E+01 0.27509E+05 0.51499E-46 0.74685E-56 0.13868E-51 - 4 3 0.10550E-03 0.10000E+01 0.22184E+05 0.36887E-45 0.10020E-54 0.99536E-51 - 4 3 0.10550E-03 0.10000E+01 0.17891E+05 0.26091E-44 0.13229E-53 0.70631E-50 - 4 3 0.10550E-03 0.10000E+01 0.14428E+05 0.18182E-43 0.17230E-52 0.49444E-49 - 4 3 0.10550E-03 0.10000E+01 0.11635E+05 0.12491E-42 0.22115E-51 0.34172E-48 - 4 3 0.10550E-03 0.10000E+01 0.93834E+04 0.84550E-42 0.27719E-50 0.23303E-47 - 4 3 0.10550E-03 0.10000E+01 0.75673E+04 0.56030E-41 0.33364E-49 0.15591E-46 - 4 3 0.10550E-03 0.10000E+01 0.61026E+04 0.35888E-40 0.37810E-48 0.10109E-45 - 4 3 0.10550E-03 0.10000E+01 0.49215E+04 0.21888E-39 0.40928E-47 0.62275E-45 - 4 3 0.10550E-03 0.10000E+01 0.39689E+04 0.12853E-38 0.50792E-46 0.35794E-44 - 4 3 0.10550E-03 0.10000E+01 0.32008E+04 0.26318E-36 0.31251E-43 0.64042E-42 - 4 3 0.10550E-03 0.10000E+01 0.25813E+04 0.13136E-27 0.48799E-34 0.25542E-33 - 4 3 0.10550E-03 0.10000E+01 0.20817E+04 0.24273E-11 0.33121E-17 0.44123E-17 + 4 3 0.10550E-03 0.10000E+01 0.80645E+05 0.12289E-07 0.78612E-19 0.32985E-13 + 4 3 0.10550E-03 0.10000E+01 0.65036E+05 0.15776E-07 0.18246E-18 0.42349E-13 + 4 3 0.10550E-03 0.10000E+01 0.52449E+05 0.19978E-07 0.41951E-18 0.53641E-13 + 4 3 0.10550E-03 0.10000E+01 0.42297E+05 0.25051E-07 0.95374E-18 0.67284E-13 + 4 3 0.10550E-03 0.10000E+01 0.34111E+05 0.31171E-07 0.21413E-17 0.83763E-13 + 4 3 0.10550E-03 0.10000E+01 0.27509E+05 0.38531E-07 0.47399E-17 0.10362E-12 + 4 3 0.10550E-03 0.10000E+01 0.22184E+05 0.47334E-07 0.10310E-16 0.12742E-12 + 4 3 0.10550E-03 0.10000E+01 0.17891E+05 0.57781E-07 0.21926E-16 0.15575E-12 + 4 3 0.10550E-03 0.10000E+01 0.14428E+05 0.70053E-07 0.45485E-16 0.18917E-12 + 4 3 0.10550E-03 0.10000E+01 0.11635E+05 0.84288E-07 0.93316E-16 0.22808E-12 + 4 3 0.10550E-03 0.10000E+01 0.93834E+04 0.10057E-06 0.20008E-15 0.27272E-12 + 4 3 0.10550E-03 0.10000E+01 0.75673E+04 0.11903E-06 0.49696E-15 0.32312E-12 + 4 3 0.10550E-03 0.10000E+01 0.61026E+04 0.14007E-06 0.15268E-14 0.37946E-12 + 4 3 0.10550E-03 0.10000E+01 0.49215E+04 0.16507E-06 0.54732E-14 0.44295E-12 + 4 3 0.10550E-03 0.10000E+01 0.39689E+04 0.19766E-06 0.20734E-13 0.51757E-12 + 4 3 0.10550E-03 0.10000E+01 0.32008E+04 0.24614E-06 0.78695E-13 0.61278E-12 + 4 3 0.10550E-03 0.10000E+01 0.25813E+04 0.32770E-06 0.29492E-12 0.74740E-12 + 4 3 0.10550E-03 0.10000E+01 0.20817E+04 0.47643E-06 0.10894E-11 0.95524E-12 4 3 0.10550E-03 0.10000E+01 0.16788E+04 0.75795E-06 0.39674E-11 0.12938E-11 4 3 0.10550E-03 0.10000E+01 0.13538E+04 0.12965E-05 0.14272E-10 0.18580E-11 4 3 0.10550E-03 0.10000E+01 0.10918E+04 0.23243E-05 0.50934E-10 0.28041E-11 @@ -23190,24 +23190,24 @@ VERSION 2.8.2 4 3 0.10550E-03 0.10000E+01 0.24221E+03 0.15910E-03 0.14090E-06 0.87765E-10 4 3 0.10550E-03 0.10000E+01 0.19533E+03 0.24815E-03 0.26739E-06 0.13186E-09 4 3 0.10550E-03 0.10000E+01 0.15752E+03 0.24815E-03 0.26739E-06 0.13186E-09 - 4 3 0.18409E-03 0.10000E+01 0.80645E+05 0.31739E-50 0.23796E-61 0.85201E-56 - 4 3 0.18409E-03 0.10000E+01 0.65036E+05 0.26896E-49 0.37838E-60 0.72221E-55 - 4 3 0.18409E-03 0.10000E+01 0.52449E+05 0.22887E-48 0.50944E-59 0.61472E-54 - 4 3 0.18409E-03 0.10000E+01 0.42297E+05 0.17248E-47 0.69398E-58 0.46347E-53 - 4 3 0.18409E-03 0.10000E+01 0.34111E+05 0.12470E-46 0.95616E-57 0.33537E-52 - 4 3 0.18409E-03 0.10000E+01 0.27509E+05 0.89862E-46 0.13032E-55 0.24198E-51 - 4 3 0.18409E-03 0.10000E+01 0.22184E+05 0.64365E-45 0.17485E-54 0.17369E-50 - 4 3 0.18409E-03 0.10000E+01 0.17891E+05 0.45527E-44 0.23084E-53 0.12325E-49 - 4 3 0.18409E-03 0.10000E+01 0.14428E+05 0.31726E-43 0.30065E-52 0.86278E-49 - 4 3 0.18409E-03 0.10000E+01 0.11635E+05 0.21797E-42 0.38590E-51 0.59628E-48 - 4 3 0.18409E-03 0.10000E+01 0.93834E+04 0.14753E-41 0.48369E-50 0.40662E-47 - 4 3 0.18409E-03 0.10000E+01 0.75673E+04 0.97768E-41 0.58219E-49 0.27205E-46 - 4 3 0.18409E-03 0.10000E+01 0.61026E+04 0.62622E-40 0.65977E-48 0.17639E-45 - 4 3 0.18409E-03 0.10000E+01 0.49215E+04 0.38194E-39 0.71418E-47 0.10867E-44 - 4 3 0.18409E-03 0.10000E+01 0.39689E+04 0.22428E-38 0.88629E-46 0.62459E-44 - 4 3 0.18409E-03 0.10000E+01 0.32008E+04 0.45923E-36 0.54531E-43 0.11175E-41 - 4 3 0.18409E-03 0.10000E+01 0.25813E+04 0.22921E-27 0.85151E-34 0.44569E-33 - 4 3 0.18409E-03 0.10000E+01 0.20817E+04 0.42355E-11 0.57793E-17 0.76992E-17 + 4 3 0.18409E-03 0.10000E+01 0.80645E+05 0.21444E-07 0.13717E-18 0.57557E-13 + 4 3 0.18409E-03 0.10000E+01 0.65036E+05 0.27528E-07 0.31838E-18 0.73896E-13 + 4 3 0.18409E-03 0.10000E+01 0.52449E+05 0.34860E-07 0.73202E-18 0.93600E-13 + 4 3 0.18409E-03 0.10000E+01 0.42297E+05 0.43712E-07 0.16642E-17 0.11741E-12 + 4 3 0.18409E-03 0.10000E+01 0.34111E+05 0.54391E-07 0.37365E-17 0.14616E-12 + 4 3 0.18409E-03 0.10000E+01 0.27509E+05 0.67234E-07 0.82709E-17 0.18080E-12 + 4 3 0.18409E-03 0.10000E+01 0.22184E+05 0.82595E-07 0.17989E-16 0.22234E-12 + 4 3 0.18409E-03 0.10000E+01 0.17891E+05 0.10082E-06 0.38259E-16 0.27178E-12 + 4 3 0.18409E-03 0.10000E+01 0.14428E+05 0.12224E-06 0.79368E-16 0.33008E-12 + 4 3 0.18409E-03 0.10000E+01 0.11635E+05 0.14708E-06 0.16283E-15 0.39799E-12 + 4 3 0.18409E-03 0.10000E+01 0.93834E+04 0.17550E-06 0.34913E-15 0.47588E-12 + 4 3 0.18409E-03 0.10000E+01 0.75673E+04 0.20770E-06 0.86716E-15 0.56383E-12 + 4 3 0.18409E-03 0.10000E+01 0.61026E+04 0.24441E-06 0.26642E-14 0.66214E-12 + 4 3 0.18409E-03 0.10000E+01 0.49215E+04 0.28803E-06 0.95504E-14 0.77292E-12 + 4 3 0.18409E-03 0.10000E+01 0.39689E+04 0.34491E-06 0.36180E-13 0.90313E-12 + 4 3 0.18409E-03 0.10000E+01 0.32008E+04 0.42949E-06 0.13732E-12 0.10693E-11 + 4 3 0.18409E-03 0.10000E+01 0.25813E+04 0.57182E-06 0.51462E-12 0.13042E-11 + 4 3 0.18409E-03 0.10000E+01 0.20817E+04 0.83135E-06 0.19010E-11 0.16668E-11 4 3 0.18409E-03 0.10000E+01 0.16788E+04 0.13226E-05 0.69229E-11 0.22575E-11 4 3 0.18409E-03 0.10000E+01 0.13538E+04 0.22623E-05 0.24903E-10 0.32421E-11 4 3 0.18409E-03 0.10000E+01 0.10918E+04 0.40557E-05 0.88876E-10 0.48929E-11 @@ -23220,24 +23220,24 @@ VERSION 2.8.2 4 3 0.18409E-03 0.10000E+01 0.24221E+03 0.27762E-03 0.24587E-06 0.15314E-09 4 3 0.18409E-03 0.10000E+01 0.19533E+03 0.43301E-03 0.46657E-06 0.23009E-09 4 3 0.18409E-03 0.10000E+01 0.15752E+03 0.43301E-03 0.46657E-06 0.23009E-09 - 4 3 0.32123E-03 0.10000E+01 0.80645E+05 0.55383E-50 0.41522E-61 0.14867E-55 - 4 3 0.32123E-03 0.10000E+01 0.65036E+05 0.46932E-49 0.66025E-60 0.12602E-54 - 4 3 0.32123E-03 0.10000E+01 0.52449E+05 0.39937E-48 0.88894E-59 0.10726E-53 - 4 3 0.32123E-03 0.10000E+01 0.42297E+05 0.30096E-47 0.12110E-57 0.80872E-53 - 4 3 0.32123E-03 0.10000E+01 0.34111E+05 0.21760E-46 0.16684E-56 0.58520E-52 - 4 3 0.32123E-03 0.10000E+01 0.27509E+05 0.15680E-45 0.22740E-55 0.42224E-51 - 4 3 0.32123E-03 0.10000E+01 0.22184E+05 0.11231E-44 0.30510E-54 0.30307E-50 - 4 3 0.32123E-03 0.10000E+01 0.17891E+05 0.79442E-44 0.40280E-53 0.21506E-49 - 4 3 0.32123E-03 0.10000E+01 0.14428E+05 0.55360E-43 0.52461E-52 0.15055E-48 - 4 3 0.32123E-03 0.10000E+01 0.11635E+05 0.38034E-42 0.67337E-51 0.10405E-47 - 4 3 0.32123E-03 0.10000E+01 0.93834E+04 0.25744E-41 0.84400E-50 0.70953E-47 - 4 3 0.32123E-03 0.10000E+01 0.75673E+04 0.17060E-40 0.10159E-48 0.47472E-46 - 4 3 0.32123E-03 0.10000E+01 0.61026E+04 0.10927E-39 0.11513E-47 0.30779E-45 - 4 3 0.32123E-03 0.10000E+01 0.49215E+04 0.66646E-39 0.12462E-46 0.18961E-44 - 4 3 0.32123E-03 0.10000E+01 0.39689E+04 0.39136E-38 0.15465E-45 0.10899E-43 - 4 3 0.32123E-03 0.10000E+01 0.32008E+04 0.80133E-36 0.95153E-43 0.19500E-41 - 4 3 0.32123E-03 0.10000E+01 0.25813E+04 0.39996E-27 0.14858E-33 0.77770E-33 - 4 3 0.32123E-03 0.10000E+01 0.20817E+04 0.73907E-11 0.10085E-16 0.13435E-16 + 4 3 0.32123E-03 0.10000E+01 0.80645E+05 0.37418E-07 0.23936E-18 0.10043E-12 + 4 3 0.32123E-03 0.10000E+01 0.65036E+05 0.48034E-07 0.55556E-18 0.12894E-12 + 4 3 0.32123E-03 0.10000E+01 0.52449E+05 0.60829E-07 0.12773E-17 0.16333E-12 + 4 3 0.32123E-03 0.10000E+01 0.42297E+05 0.76275E-07 0.29039E-17 0.20487E-12 + 4 3 0.32123E-03 0.10000E+01 0.34111E+05 0.94909E-07 0.65200E-17 0.25504E-12 + 4 3 0.32123E-03 0.10000E+01 0.27509E+05 0.11732E-06 0.14432E-16 0.31549E-12 + 4 3 0.32123E-03 0.10000E+01 0.22184E+05 0.14412E-06 0.31391E-16 0.38797E-12 + 4 3 0.32123E-03 0.10000E+01 0.17891E+05 0.17593E-06 0.66759E-16 0.47424E-12 + 4 3 0.32123E-03 0.10000E+01 0.14428E+05 0.21330E-06 0.13849E-15 0.57597E-12 + 4 3 0.32123E-03 0.10000E+01 0.11635E+05 0.25664E-06 0.28413E-15 0.69446E-12 + 4 3 0.32123E-03 0.10000E+01 0.93834E+04 0.30623E-06 0.60920E-15 0.83039E-12 + 4 3 0.32123E-03 0.10000E+01 0.75673E+04 0.36242E-06 0.15131E-14 0.98385E-12 + 4 3 0.32123E-03 0.10000E+01 0.61026E+04 0.42648E-06 0.46488E-14 0.11554E-11 + 4 3 0.32123E-03 0.10000E+01 0.49215E+04 0.50260E-06 0.16665E-13 0.13487E-11 + 4 3 0.32123E-03 0.10000E+01 0.39689E+04 0.60184E-06 0.63131E-13 0.15759E-11 + 4 3 0.32123E-03 0.10000E+01 0.32008E+04 0.74944E-06 0.23961E-12 0.18658E-11 + 4 3 0.32123E-03 0.10000E+01 0.25813E+04 0.99780E-06 0.89798E-12 0.22757E-11 + 4 3 0.32123E-03 0.10000E+01 0.20817E+04 0.14507E-05 0.33171E-11 0.29085E-11 4 3 0.32123E-03 0.10000E+01 0.16788E+04 0.23078E-05 0.12080E-10 0.39392E-11 4 3 0.32123E-03 0.10000E+01 0.13538E+04 0.39476E-05 0.43455E-10 0.56573E-11 4 3 0.32123E-03 0.10000E+01 0.10918E+04 0.70769E-05 0.15508E-09 0.85379E-11 @@ -23300,24 +23300,24 @@ VERSION 2.8.2 4 4 0.10550E-03 0.10000E+01 0.39724E+01 0.10323E+02 0.13750E-02 0.35159E-03 0.83941E-02 0.21111E-02 0.46642E+10 0.64582E+01 0.50000E+03 0.13006E-12 0.91955E-03 0.78471E-02 0.65000E+03 4 4 0.18409E-03 0.10000E+01 0.39724E+01 0.10323E+02 0.41865E-02 0.61350E-03 0.14647E-01 0.21111E-02 0.81388E+10 0.11269E+02 0.50000E+03 0.22695E-12 0.16046E-02 0.78471E-02 0.65000E+03 4 4 0.32123E-03 0.10000E+01 0.39724E+01 0.10323E+02 0.12747E-01 0.10705E-02 0.25558E-01 0.21111E-02 0.14202E+11 0.19664E+02 0.50000E+03 0.39602E-12 0.27998E-02 0.78471E-02 0.65000E+03 - 4 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 4 4 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 4 4 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 4 4 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 4 4 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 4 4 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 4 4 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 4 4 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 4 4 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 4 4 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 4 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 4 4 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 4 4 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 4 4 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 4 4 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 4 4 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 4 4 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 4 4 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 4 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 4 4 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 4 4 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 4 4 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 4 4 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 4 4 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 4 4 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 4 4 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 4 4 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 4 4 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 4 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 4 4 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 4 4 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 4 4 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 4 4 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 4 4 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 4 4 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 4 4 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 4 4 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 4 4 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 4 4 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -23330,24 +23330,24 @@ VERSION 2.8.2 4 4 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 4 4 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 4 4 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 4 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 4 4 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 4 4 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 4 4 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 4 4 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 4 4 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 4 4 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 4 4 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 4 4 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 4 4 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 4 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 4 4 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 4 4 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 4 4 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 4 4 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 4 4 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 4 4 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 4 4 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 4 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 4 4 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 4 4 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 4 4 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 4 4 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 4 4 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 4 4 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 4 4 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 4 4 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 4 4 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 4 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 4 4 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 4 4 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 4 4 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 4 4 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 4 4 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 4 4 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 4 4 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 4 4 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 4 4 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 4 4 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -23360,24 +23360,24 @@ VERSION 2.8.2 4 4 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 4 4 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 4 4 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 4 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 4 4 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 4 4 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 4 4 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 4 4 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 4 4 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 4 4 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 4 4 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 4 4 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 4 4 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 4 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 4 4 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 4 4 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 4 4 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 4 4 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 4 4 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 4 4 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 4 4 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 4 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 4 4 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 4 4 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 4 4 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 4 4 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 4 4 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 4 4 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 4 4 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 4 4 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 4 4 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 4 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 4 4 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 4 4 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 4 4 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 4 4 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 4 4 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 4 4 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 4 4 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 4 4 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 4 4 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 4 4 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -23390,24 +23390,24 @@ VERSION 2.8.2 4 4 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 4 4 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 4 4 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 4 4 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 4 4 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 4 4 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 4 4 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 4 4 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 4 4 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 4 4 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 4 4 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 4 4 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 4 4 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 4 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 4 4 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 4 4 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 4 4 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 4 4 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 4 4 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 4 4 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 4 4 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 4 4 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 4 4 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 4 4 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 4 4 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 4 4 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 4 4 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 4 4 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 4 4 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 4 4 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 4 4 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 4 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 4 4 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 4 4 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 4 4 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 4 4 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 4 4 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 4 4 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 4 4 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 4 4 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 4 4 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 4 4 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -23420,24 +23420,24 @@ VERSION 2.8.2 4 4 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 4 4 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 4 4 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 4 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 4 4 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 4 4 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 4 4 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 4 4 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 4 4 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 4 4 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 4 4 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 4 4 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 4 4 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 4 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 4 4 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 4 4 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 4 4 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 4 4 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 4 4 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 4 4 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 4 4 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 4 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 4 4 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 4 4 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 4 4 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 4 4 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 4 4 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 4 4 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 4 4 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 4 4 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 4 4 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 4 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 4 4 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 4 4 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 4 4 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 4 4 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 4 4 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 4 4 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 4 4 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 4 4 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 4 4 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 4 4 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -23450,24 +23450,24 @@ VERSION 2.8.2 4 4 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 4 4 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 4 4 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 4 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 4 4 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 4 4 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 4 4 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 4 4 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 4 4 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 4 4 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 4 4 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 4 4 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 4 4 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 4 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 4 4 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 4 4 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 4 4 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 4 4 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 4 4 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 4 4 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 4 4 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 4 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 4 4 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 4 4 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 4 4 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 4 4 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 4 4 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 4 4 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 4 4 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 4 4 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 4 4 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 4 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 4 4 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 4 4 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 4 4 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 4 4 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 4 4 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 4 4 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 4 4 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 4 4 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 4 4 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 4 4 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -23480,24 +23480,24 @@ VERSION 2.8.2 4 4 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 4 4 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 4 4 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 4 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 4 4 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 4 4 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 4 4 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 4 4 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 4 4 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 4 4 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 4 4 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 4 4 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 4 4 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 4 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 4 4 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 4 4 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 4 4 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 4 4 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 4 4 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 4 4 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 4 4 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 4 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 4 4 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 4 4 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 4 4 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 4 4 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 4 4 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 4 4 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 4 4 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 4 4 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 4 4 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 4 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 4 4 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 4 4 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 4 4 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 4 4 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 4 4 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 4 4 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 4 4 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 4 4 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 4 4 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 4 4 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -23510,24 +23510,24 @@ VERSION 2.8.2 4 4 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 4 4 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 4 4 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 4 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 4 4 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 4 4 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 4 4 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 4 4 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 4 4 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 4 4 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 4 4 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 4 4 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 4 4 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 4 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 4 4 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 4 4 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 4 4 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 4 4 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 4 4 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 4 4 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 4 4 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 4 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 4 4 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 4 4 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 4 4 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 4 4 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 4 4 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 4 4 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 4 4 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 4 4 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 4 4 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 4 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 4 4 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 4 4 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 4 4 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 4 4 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 4 4 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 4 4 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 4 4 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 4 4 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 4 4 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 4 4 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -23540,24 +23540,24 @@ VERSION 2.8.2 4 4 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 4 4 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 4 4 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 4 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 4 4 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 4 4 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 4 4 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 4 4 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 4 4 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 4 4 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 4 4 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 4 4 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 4 4 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 4 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 4 4 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 4 4 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 4 4 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 4 4 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 4 4 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 4 4 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 4 4 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 4 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 4 4 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 4 4 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 4 4 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 4 4 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 4 4 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 4 4 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 4 4 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 4 4 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 4 4 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 4 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 4 4 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 4 4 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 4 4 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 4 4 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 4 4 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 4 4 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 4 4 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 4 4 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 4 4 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 4 4 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -23570,24 +23570,24 @@ VERSION 2.8.2 4 4 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 4 4 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 4 4 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 4 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 4 4 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 4 4 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 4 4 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 4 4 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 4 4 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 4 4 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 4 4 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 4 4 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 4 4 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 4 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 4 4 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 4 4 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 4 4 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 4 4 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 4 4 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 4 4 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 4 4 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 4 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 4 4 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 4 4 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 4 4 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 4 4 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 4 4 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 4 4 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 4 4 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 4 4 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 4 4 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 4 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 4 4 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 4 4 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 4 4 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 4 4 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 4 4 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 4 4 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 4 4 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 4 4 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 4 4 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 4 4 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -23600,24 +23600,24 @@ VERSION 2.8.2 4 4 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 4 4 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 4 4 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 4 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 4 4 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 4 4 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 4 4 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 4 4 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 4 4 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 4 4 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 4 4 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 4 4 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 4 4 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 4 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 4 4 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 4 4 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 4 4 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 4 4 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 4 4 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 4 4 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 4 4 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 4 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 4 4 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 4 4 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 4 4 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 4 4 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 4 4 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 4 4 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 4 4 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 4 4 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 4 4 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 4 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 4 4 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 4 4 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 4 4 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 4 4 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 4 4 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 4 4 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 4 4 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 4 4 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 4 4 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 4 4 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -23630,24 +23630,24 @@ VERSION 2.8.2 4 4 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 4 4 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 4 4 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 4 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 4 4 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 4 4 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 4 4 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 4 4 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 4 4 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 4 4 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 4 4 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 4 4 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 4 4 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 4 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 4 4 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 4 4 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 4 4 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 4 4 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 4 4 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 4 4 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 4 4 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 4 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 4 4 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 4 4 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 4 4 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 4 4 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 4 4 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 4 4 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 4 4 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 4 4 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 4 4 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 4 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 4 4 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 4 4 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 4 4 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 4 4 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 4 4 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 4 4 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 4 4 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 4 4 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 4 4 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 4 4 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -23660,24 +23660,24 @@ VERSION 2.8.2 4 4 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 4 4 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 4 4 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 4 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 4 4 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 4 4 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 4 4 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 4 4 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 4 4 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 4 4 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 4 4 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 4 4 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 4 4 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 4 4 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 4 4 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 4 4 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 4 4 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 4 4 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 4 4 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 4 4 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 4 4 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 4 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 4 4 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 4 4 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 4 4 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 4 4 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 4 4 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 4 4 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 4 4 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 4 4 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 4 4 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 4 4 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 4 4 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 4 4 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 4 4 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 4 4 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 4 4 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 4 4 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 4 4 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 4 4 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 4 4 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 4 4 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -23690,24 +23690,24 @@ VERSION 2.8.2 4 4 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 4 4 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 4 4 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 4 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 4 4 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 4 4 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 4 4 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 4 4 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 4 4 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 4 4 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 4 4 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 4 4 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 4 4 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 4 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 4 4 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 4 4 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 4 4 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 4 4 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 4 4 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 4 4 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 4 4 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 4 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 4 4 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 4 4 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 4 4 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 4 4 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 4 4 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 4 4 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 4 4 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 4 4 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 4 4 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 4 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 4 4 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 4 4 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 4 4 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 4 4 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 4 4 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 4 4 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 4 4 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 4 4 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 4 4 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 4 4 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -23720,24 +23720,24 @@ VERSION 2.8.2 4 4 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 4 4 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 4 4 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 4 4 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 4 4 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 4 4 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 4 4 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 4 4 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 4 4 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 4 4 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 4 4 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 4 4 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 4 4 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 4 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 4 4 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 4 4 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 4 4 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 4 4 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 4 4 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 4 4 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 4 4 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 4 4 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 4 4 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 4 4 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 4 4 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 4 4 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 4 4 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 4 4 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 4 4 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 4 4 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 4 4 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 4 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 4 4 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 4 4 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 4 4 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 4 4 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 4 4 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 4 4 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 4 4 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 4 4 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 4 4 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 4 4 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -23750,24 +23750,24 @@ VERSION 2.8.2 4 4 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 4 4 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 4 4 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 4 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 4 4 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 4 4 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 4 4 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 4 4 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 4 4 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 4 4 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 4 4 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 4 4 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 4 4 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 4 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 4 4 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 4 4 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 4 4 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 4 4 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 4 4 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 4 4 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 4 4 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 4 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 4 4 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 4 4 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 4 4 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 4 4 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 4 4 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 4 4 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 4 4 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 4 4 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 4 4 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 4 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 4 4 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 4 4 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 4 4 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 4 4 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 4 4 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 4 4 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 4 4 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 4 4 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 4 4 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 4 4 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -23780,24 +23780,24 @@ VERSION 2.8.2 4 4 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 4 4 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 4 4 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 4 4 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 4 4 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 4 4 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 4 4 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 4 4 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 4 4 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 4 4 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 4 4 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 4 4 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 4 4 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 4 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 4 4 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 4 4 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 4 4 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 4 4 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 4 4 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 4 4 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 4 4 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 4 4 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 4 4 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 4 4 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 4 4 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 4 4 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 4 4 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 4 4 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 4 4 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 4 4 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 4 4 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 4 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 4 4 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 4 4 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 4 4 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 4 4 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 4 4 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 4 4 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 4 4 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 4 4 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 4 4 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 4 4 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -23810,24 +23810,24 @@ VERSION 2.8.2 4 4 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 4 4 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 4 4 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 4 4 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 4 4 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 4 4 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 4 4 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 4 4 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 4 4 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 4 4 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 4 4 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 4 4 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 4 4 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 4 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 4 4 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 4 4 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 4 4 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 4 4 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 4 4 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 4 4 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 4 4 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 4 4 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 4 4 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 4 4 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 4 4 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 4 4 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 4 4 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 4 4 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 4 4 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 4 4 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 4 4 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 4 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 4 4 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 4 4 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 4 4 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 4 4 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 4 4 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 4 4 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 4 4 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 4 4 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 4 4 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 4 4 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -23840,24 +23840,24 @@ VERSION 2.8.2 4 4 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 4 4 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 4 4 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 4 4 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92897E-69 - 4 4 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74362E-68 - 4 4 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73143E-67 - 4 4 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87551E-66 - 4 4 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13789E-64 - 4 4 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89973E-62 0.24580E-63 - 4 4 0.10271E-10 0.10000E+01 0.22184E+05 0.38373E-51 0.28684E-60 0.43685E-62 - 4 4 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85155E-59 0.73546E-61 - 4 4 0.10271E-10 0.10000E+01 0.14428E+05 0.99625E-49 0.23814E-57 0.11535E-59 - 4 4 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 4 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 4 4 0.10271E-10 0.10000E+01 0.75673E+04 0.29666E-45 0.46498E-53 0.34503E-56 - 4 4 0.10271E-10 0.10000E+01 0.61026E+04 0.41737E-44 0.12464E-51 0.48594E-55 - 4 4 0.10271E-10 0.10000E+01 0.49215E+04 0.58686E-43 0.33415E-50 0.68408E-54 - 4 4 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89576E-49 0.96299E-53 - 4 4 0.10271E-10 0.10000E+01 0.32008E+04 0.36487E-39 0.77647E-46 0.42631E-50 - 4 4 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 4 4 0.10271E-10 0.10000E+01 0.20817E+04 0.50710E-14 0.11035E-19 0.59395E-25 + 4 4 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76431E-26 + 4 4 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11817E-25 + 4 4 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79874E-24 0.21651E-25 + 4 4 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47188E-25 + 4 4 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 4 4 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28616E-24 + 4 4 0.10271E-10 0.10000E+01 0.22184E+05 0.61053E-13 0.38934E-21 0.71526E-24 + 4 4 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17631E-23 + 4 4 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 4 4 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35972E-19 0.10312E-22 + 4 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 4 4 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 4 4 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 4 4 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32888E-21 + 4 4 0.10271E-10 0.10000E+01 0.39689E+04 0.65971E-10 0.61246E-16 0.77164E-21 + 4 4 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 4 4 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 4 4 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 4 4 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 4 4 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 4 4 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -23870,24 +23870,24 @@ VERSION 2.8.2 4 4 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89845E-17 4 4 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 4 4 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 4 4 0.17923E-10 0.10000E+01 0.80645E+05 0.56933E-58 0.39458E-69 0.34113E-68 - 4 4 0.17923E-10 0.10000E+01 0.65036E+05 0.46736E-57 0.87601E-68 0.28357E-67 - 4 4 0.17923E-10 0.10000E+01 0.52449E+05 0.52528E-56 0.24091E-66 0.24761E-66 - 4 4 0.17923E-10 0.10000E+01 0.42297E+05 0.74521E-55 0.80027E-65 0.22190E-65 - 4 4 0.17923E-10 0.10000E+01 0.34111E+05 0.12654E-53 0.27750E-63 0.26486E-64 - 4 4 0.17923E-10 0.10000E+01 0.27509E+05 0.22717E-52 0.94007E-62 0.41870E-63 - 4 4 0.17923E-10 0.10000E+01 0.22184E+05 0.40091E-51 0.30148E-60 0.72568E-62 - 4 4 0.17923E-10 0.10000E+01 0.17891E+05 0.67115E-50 0.89755E-59 0.12275E-60 - 4 4 0.17923E-10 0.10000E+01 0.14428E+05 0.10497E-48 0.25126E-57 0.19418E-59 - 4 4 0.17923E-10 0.10000E+01 0.11635E+05 0.15507E-47 0.68175E-56 0.28903E-58 - 4 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22182E-46 0.18318E-54 0.41537E-57 - 4 4 0.17923E-10 0.10000E+01 0.75673E+04 0.31330E-45 0.49134E-53 0.58876E-56 - 4 4 0.17923E-10 0.10000E+01 0.61026E+04 0.44103E-44 0.13180E-51 0.83137E-55 - 4 4 0.17923E-10 0.10000E+01 0.49215E+04 0.62052E-43 0.35355E-50 0.11730E-53 - 4 4 0.17923E-10 0.10000E+01 0.39689E+04 0.87304E-42 0.94835E-49 0.16545E-52 - 4 4 0.17923E-10 0.10000E+01 0.32008E+04 0.38629E-39 0.82253E-46 0.73369E-50 - 4 4 0.17923E-10 0.10000E+01 0.25813E+04 0.28282E-30 0.13806E-36 0.53831E-41 - 4 4 0.17923E-10 0.10000E+01 0.20817E+04 0.53757E-14 0.11705E-19 0.10256E-24 + 4 4 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30183E-25 0.24598E-25 + 4 4 0.17923E-10 0.10000E+01 0.65036E+05 0.85180E-15 0.16276E-24 0.34546E-25 + 4 4 0.17923E-10 0.10000E+01 0.52449E+05 0.17126E-14 0.84010E-24 0.54142E-25 + 4 4 0.17923E-10 0.10000E+01 0.42297E+05 0.40089E-14 0.41309E-23 0.10012E-24 + 4 4 0.17923E-10 0.10000E+01 0.34111E+05 0.10087E-13 0.19544E-22 0.21588E-24 + 4 4 0.17923E-10 0.10000E+01 0.27509E+05 0.25712E-13 0.90231E-22 0.50899E-24 + 4 4 0.17923E-10 0.10000E+01 0.22184E+05 0.64708E-13 0.41123E-21 0.12388E-23 + 4 4 0.17923E-10 0.10000E+01 0.17891E+05 0.15990E-12 0.18635E-20 0.30232E-23 + 4 4 0.17923E-10 0.10000E+01 0.14428E+05 0.38898E-12 0.84258E-20 0.73293E-23 + 4 4 0.17923E-10 0.10000E+01 0.11635E+05 0.93581E-12 0.38066E-19 0.17638E-22 + 4 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22357E-11 0.17183E-18 0.42210E-22 + 4 4 0.17923E-10 0.10000E+01 0.75673E+04 0.53186E-11 0.77330E-18 0.10063E-21 + 4 4 0.17923E-10 0.10000E+01 0.61026E+04 0.12614E-10 0.34500E-17 0.23917E-21 + 4 4 0.17923E-10 0.10000E+01 0.49215E+04 0.29797E-10 0.15137E-16 0.56606E-21 + 4 4 0.17923E-10 0.10000E+01 0.39689E+04 0.69883E-10 0.64948E-16 0.13298E-20 + 4 4 0.17923E-10 0.10000E+01 0.32008E+04 0.16199E-09 0.27211E-15 0.30868E-20 + 4 4 0.17923E-10 0.10000E+01 0.25813E+04 0.36959E-09 0.11133E-14 0.70504E-20 + 4 4 0.17923E-10 0.10000E+01 0.20817E+04 0.82761E-09 0.44429E-14 0.15801E-19 4 4 0.17923E-10 0.10000E+01 0.16788E+04 0.18155E-08 0.17278E-13 0.34687E-19 4 4 0.17923E-10 0.10000E+01 0.13538E+04 0.38970E-08 0.65625E-13 0.74491E-19 4 4 0.17923E-10 0.10000E+01 0.10918E+04 0.81805E-08 0.24468E-12 0.15643E-18 @@ -23900,24 +23900,24 @@ VERSION 2.8.2 4 4 0.17923E-10 0.10000E+01 0.24221E+03 0.81251E-06 0.74960E-09 0.15549E-16 4 4 0.17923E-10 0.10000E+01 0.19533E+03 0.12805E-05 0.14245E-08 0.24505E-16 4 4 0.17923E-10 0.10000E+01 0.15752E+03 0.12805E-05 0.14245E-08 0.24505E-16 - 4 4 0.31275E-10 0.10000E+01 0.80645E+05 0.12232E-57 0.87945E-69 0.11564E-67 - 4 4 0.31275E-10 0.10000E+01 0.65036E+05 0.10124E-56 0.15638E-67 0.99155E-67 - 4 4 0.31275E-10 0.10000E+01 0.52449E+05 0.94738E-56 0.30747E-66 0.84825E-66 - 4 4 0.31275E-10 0.10000E+01 0.42297E+05 0.99610E-55 0.85251E-65 0.67251E-65 - 4 4 0.31275E-10 0.10000E+01 0.34111E+05 0.13858E-53 0.28164E-63 0.61392E-64 - 4 4 0.31275E-10 0.10000E+01 0.27509E+05 0.23273E-52 0.95042E-62 0.75410E-63 - 4 4 0.31275E-10 0.10000E+01 0.22184E+05 0.40644E-51 0.30692E-60 0.11747E-61 - 4 4 0.31275E-10 0.10000E+01 0.17891E+05 0.68340E-50 0.91935E-59 0.19631E-60 - 4 4 0.31275E-10 0.10000E+01 0.14428E+05 0.10746E-48 0.25828E-57 0.31479E-59 - 4 4 0.31275E-10 0.10000E+01 0.11635E+05 0.15935E-47 0.70233E-56 0.47507E-58 - 4 4 0.31275E-10 0.10000E+01 0.93834E+04 0.22846E-46 0.18903E-54 0.68976E-57 - 4 4 0.31275E-10 0.10000E+01 0.75673E+04 0.32326E-45 0.50781E-53 0.98514E-56 - 4 4 0.31275E-10 0.10000E+01 0.61026E+04 0.45577E-44 0.13641E-51 0.13994E-54 - 4 4 0.31275E-10 0.10000E+01 0.49215E+04 0.64216E-43 0.36638E-50 0.19839E-53 - 4 4 0.31275E-10 0.10000E+01 0.39689E+04 0.90463E-42 0.98384E-49 0.28093E-52 - 4 4 0.31275E-10 0.10000E+01 0.32008E+04 0.40072E-39 0.85415E-46 0.12499E-49 - 4 4 0.31275E-10 0.10000E+01 0.25813E+04 0.29370E-30 0.14351E-36 0.91977E-41 - 4 4 0.31275E-10 0.10000E+01 0.20817E+04 0.55890E-14 0.12181E-19 0.17577E-24 + 4 4 0.31275E-10 0.10000E+01 0.80645E+05 0.93604E-15 0.31849E-25 0.78480E-25 + 4 4 0.31275E-10 0.10000E+01 0.65036E+05 0.13856E-14 0.16739E-24 0.10509E-24 + 4 4 0.31275E-10 0.10000E+01 0.52449E+05 0.23682E-14 0.86035E-24 0.14843E-24 + 4 4 0.31275E-10 0.10000E+01 0.42297E+05 0.48163E-14 0.42366E-23 0.23512E-24 + 4 4 0.31275E-10 0.10000E+01 0.34111E+05 0.11132E-13 0.20092E-22 0.43559E-24 + 4 4 0.31275E-10 0.10000E+01 0.27509E+05 0.27243E-13 0.92958E-22 0.92698E-24 + 4 4 0.31275E-10 0.10000E+01 0.22184E+05 0.67399E-13 0.42443E-21 0.21412E-23 + 4 4 0.31275E-10 0.10000E+01 0.17891E+05 0.16550E-12 0.19263E-20 0.51152E-23 + 4 4 0.31275E-10 0.10000E+01 0.14428E+05 0.40190E-12 0.87220E-20 0.12325E-22 + 4 4 0.31275E-10 0.10000E+01 0.11635E+05 0.96704E-12 0.39452E-19 0.29673E-22 + 4 4 0.31275E-10 0.10000E+01 0.93834E+04 0.23122E-11 0.17827E-18 0.71211E-22 + 4 4 0.31275E-10 0.10000E+01 0.75673E+04 0.55065E-11 0.80304E-18 0.17036E-21 + 4 4 0.31275E-10 0.10000E+01 0.61026E+04 0.13074E-10 0.35853E-17 0.40624E-21 + 4 4 0.31275E-10 0.10000E+01 0.49215E+04 0.30913E-10 0.15740E-16 0.96432E-21 + 4 4 0.31275E-10 0.10000E+01 0.39689E+04 0.72562E-10 0.67564E-16 0.22709E-20 + 4 4 0.31275E-10 0.10000E+01 0.32008E+04 0.16832E-09 0.28317E-15 0.52815E-20 + 4 4 0.31275E-10 0.10000E+01 0.25813E+04 0.38424E-09 0.11588E-14 0.12082E-19 + 4 4 0.31275E-10 0.10000E+01 0.20817E+04 0.86079E-09 0.46252E-14 0.27109E-19 4 4 0.31275E-10 0.10000E+01 0.16788E+04 0.18890E-08 0.17990E-13 0.59563E-19 4 4 0.31275E-10 0.10000E+01 0.13538E+04 0.40556E-08 0.68331E-13 0.12800E-18 4 4 0.31275E-10 0.10000E+01 0.10918E+04 0.85151E-08 0.25478E-12 0.26892E-18 @@ -23930,24 +23930,24 @@ VERSION 2.8.2 4 4 0.31275E-10 0.10000E+01 0.24221E+03 0.84606E-06 0.78057E-09 0.26756E-16 4 4 0.31275E-10 0.10000E+01 0.19533E+03 0.13334E-05 0.14833E-08 0.42168E-16 4 4 0.31275E-10 0.10000E+01 0.15752E+03 0.13334E-05 0.14833E-08 0.42168E-16 - 4 4 0.54572E-10 0.10000E+01 0.80645E+05 0.25904E-57 0.19453E-68 0.37828E-67 - 4 4 0.54572E-10 0.10000E+01 0.65036E+05 0.22017E-56 0.31730E-67 0.32820E-66 - 4 4 0.54572E-10 0.10000E+01 0.52449E+05 0.19232E-55 0.49060E-66 0.28131E-65 - 4 4 0.54572E-10 0.10000E+01 0.42297E+05 0.16424E-54 0.10168E-64 0.21520E-64 - 4 4 0.54572E-10 0.10000E+01 0.34111E+05 0.17221E-53 0.28346E-63 0.16760E-63 - 4 4 0.54572E-10 0.10000E+01 0.27509E+05 0.24007E-52 0.90954E-62 0.15478E-62 - 4 4 0.54572E-10 0.10000E+01 0.22184E+05 0.39325E-51 0.29463E-60 0.19464E-61 - 4 4 0.54572E-10 0.10000E+01 0.17891E+05 0.65786E-50 0.89354E-59 0.30794E-60 - 4 4 0.54572E-10 0.10000E+01 0.14428E+05 0.10441E-48 0.25337E-57 0.50003E-59 - 4 4 0.54572E-10 0.10000E+01 0.11635E+05 0.15619E-47 0.69324E-56 0.77011E-58 - 4 4 0.54572E-10 0.10000E+01 0.93834E+04 0.22538E-46 0.18745E-54 0.11359E-56 - 4 4 0.54572E-10 0.10000E+01 0.75673E+04 0.32043E-45 0.50547E-53 0.16409E-55 - 4 4 0.54572E-10 0.10000E+01 0.61026E+04 0.45352E-44 0.13620E-51 0.23511E-54 - 4 4 0.54572E-10 0.10000E+01 0.49215E+04 0.64105E-43 0.36681E-50 0.33558E-53 - 4 4 0.54572E-10 0.10000E+01 0.39689E+04 0.90551E-42 0.98719E-49 0.47779E-52 - 4 4 0.54572E-10 0.10000E+01 0.32008E+04 0.40203E-39 0.85873E-46 0.21353E-49 - 4 4 0.54572E-10 0.10000E+01 0.25813E+04 0.29528E-30 0.14456E-36 0.15775E-40 - 4 4 0.54572E-10 0.10000E+01 0.20817E+04 0.56314E-14 0.12296E-19 0.30268E-24 + 4 4 0.54572E-10 0.10000E+01 0.80645E+05 0.18101E-14 0.34438E-25 0.25157E-24 + 4 4 0.54572E-10 0.10000E+01 0.65036E+05 0.24847E-14 0.16752E-24 0.32924E-24 + 4 4 0.54572E-10 0.10000E+01 0.52449E+05 0.36982E-14 0.84255E-24 0.43821E-24 + 4 4 0.54572E-10 0.10000E+01 0.42297E+05 0.63449E-14 0.41443E-23 0.61953E-24 + 4 4 0.54572E-10 0.10000E+01 0.34111E+05 0.12759E-13 0.19740E-22 0.98476E-24 + 4 4 0.54572E-10 0.10000E+01 0.27509E+05 0.28757E-13 0.91789E-22 0.18215E-23 + 4 4 0.54572E-10 0.10000E+01 0.22184E+05 0.68424E-13 0.42097E-21 0.38432E-23 + 4 4 0.54572E-10 0.10000E+01 0.17891E+05 0.16543E-12 0.19178E-20 0.87840E-23 + 4 4 0.54572E-10 0.10000E+01 0.14428E+05 0.39988E-12 0.87106E-20 0.20820E-22 + 4 4 0.54572E-10 0.10000E+01 0.11635E+05 0.96219E-12 0.39504E-19 0.49966E-22 + 4 4 0.54572E-10 0.10000E+01 0.93834E+04 0.23047E-11 0.17890E-18 0.12019E-21 + 4 4 0.54572E-10 0.10000E+01 0.75673E+04 0.55012E-11 0.80731E-18 0.28868E-21 + 4 4 0.54572E-10 0.10000E+01 0.61026E+04 0.13091E-10 0.36096E-17 0.69135E-21 + 4 4 0.54572E-10 0.10000E+01 0.49215E+04 0.31016E-10 0.15864E-16 0.16474E-20 + 4 4 0.54572E-10 0.10000E+01 0.39689E+04 0.72927E-10 0.68152E-16 0.38921E-20 + 4 4 0.54572E-10 0.10000E+01 0.32008E+04 0.16940E-09 0.28580E-15 0.90753E-20 + 4 4 0.54572E-10 0.10000E+01 0.25813E+04 0.38712E-09 0.11701E-14 0.20802E-19 + 4 4 0.54572E-10 0.10000E+01 0.20817E+04 0.86797E-09 0.46719E-14 0.46747E-19 4 4 0.54572E-10 0.10000E+01 0.16788E+04 0.19059E-08 0.18175E-13 0.10283E-18 4 4 0.54572E-10 0.10000E+01 0.13538E+04 0.40940E-08 0.69045E-13 0.22117E-18 4 4 0.54572E-10 0.10000E+01 0.10918E+04 0.85987E-08 0.25746E-12 0.46497E-18 @@ -23960,24 +23960,24 @@ VERSION 2.8.2 4 4 0.54572E-10 0.10000E+01 0.24221E+03 0.85498E-06 0.78882E-09 0.46321E-16 4 4 0.54572E-10 0.10000E+01 0.19533E+03 0.13475E-05 0.14990E-08 0.73004E-16 4 4 0.54572E-10 0.10000E+01 0.15752E+03 0.13475E-05 0.14990E-08 0.73004E-16 - 4 4 0.95225E-10 0.10000E+01 0.80645E+05 0.53386E-57 0.40896E-68 0.12905E-66 - 4 4 0.95225E-10 0.10000E+01 0.65036E+05 0.46007E-56 0.65371E-67 0.11092E-65 - 4 4 0.95225E-10 0.10000E+01 0.52449E+05 0.39538E-55 0.91453E-66 0.94612E-65 - 4 4 0.95225E-10 0.10000E+01 0.42297E+05 0.30916E-54 0.14722E-64 0.70984E-64 - 4 4 0.95225E-10 0.10000E+01 0.34111E+05 0.25861E-53 0.30647E-63 0.50975E-63 - 4 4 0.95225E-10 0.10000E+01 0.27509E+05 0.27142E-52 0.84809E-62 0.38313E-62 - 4 4 0.95225E-10 0.10000E+01 0.22184E+05 0.37709E-51 0.27010E-60 0.36715E-61 - 4 4 0.95225E-10 0.10000E+01 0.17891E+05 0.60855E-50 0.83459E-59 0.50791E-60 - 4 4 0.95225E-10 0.10000E+01 0.14428E+05 0.97574E-49 0.24068E-57 0.81333E-59 - 4 4 0.95225E-10 0.10000E+01 0.11635E+05 0.14818E-47 0.66611E-56 0.12695E-57 - 4 4 0.95225E-10 0.10000E+01 0.93834E+04 0.21633E-46 0.18160E-54 0.18955E-56 - 4 4 0.95225E-10 0.10000E+01 0.75673E+04 0.31022E-45 0.49288E-53 0.27618E-55 - 4 4 0.95225E-10 0.10000E+01 0.61026E+04 0.44199E-44 0.13351E-51 0.39818E-54 - 4 4 0.95225E-10 0.10000E+01 0.49215E+04 0.62809E-43 0.36108E-50 0.57114E-53 - 4 4 0.95225E-10 0.10000E+01 0.39689E+04 0.89106E-42 0.97521E-49 0.81646E-52 - 4 4 0.95225E-10 0.10000E+01 0.32008E+04 0.39706E-39 0.85088E-46 0.36615E-49 - 4 4 0.95225E-10 0.10000E+01 0.25813E+04 0.29258E-30 0.14368E-36 0.27138E-40 - 4 4 0.95225E-10 0.10000E+01 0.20817E+04 0.55990E-14 0.12261E-19 0.52254E-24 + 4 4 0.95225E-10 0.10000E+01 0.80645E+05 0.35935E-14 0.41243E-25 0.86069E-24 + 4 4 0.95225E-10 0.10000E+01 0.65036E+05 0.47460E-14 0.17138E-24 0.11108E-23 + 4 4 0.95225E-10 0.10000E+01 0.52449E+05 0.64666E-14 0.81038E-24 0.14293E-23 + 4 4 0.95225E-10 0.10000E+01 0.42297E+05 0.95720E-14 0.39380E-23 0.18799E-23 + 4 4 0.95225E-10 0.10000E+01 0.34111E+05 0.16239E-13 0.18839E-22 0.26404E-23 + 4 4 0.95225E-10 0.10000E+01 0.27509E+05 0.31990E-13 0.88294E-22 0.41814E-23 + 4 4 0.95225E-10 0.10000E+01 0.22184E+05 0.70379E-13 0.40798E-21 0.76924E-23 + 4 4 0.95225E-10 0.10000E+01 0.17891E+05 0.16410E-12 0.18704E-20 0.16097E-22 + 4 4 0.95225E-10 0.10000E+01 0.14428E+05 0.39146E-12 0.85398E-20 0.36483E-22 + 4 4 0.95225E-10 0.10000E+01 0.11635E+05 0.93950E-12 0.38894E-19 0.85936E-22 + 4 4 0.95225E-10 0.10000E+01 0.93834E+04 0.22544E-11 0.17675E-18 0.20549E-21 + 4 4 0.95225E-10 0.10000E+01 0.75673E+04 0.53983E-11 0.79987E-18 0.49341E-21 + 4 4 0.95225E-10 0.10000E+01 0.61026E+04 0.12890E-10 0.35843E-17 0.11837E-20 + 4 4 0.95225E-10 0.10000E+01 0.49215E+04 0.30635E-10 0.15780E-16 0.28273E-20 + 4 4 0.95225E-10 0.10000E+01 0.39689E+04 0.72222E-10 0.67876E-16 0.66947E-20 + 4 4 0.95225E-10 0.10000E+01 0.32008E+04 0.16812E-09 0.28491E-15 0.15641E-19 + 4 4 0.95225E-10 0.10000E+01 0.25813E+04 0.38484E-09 0.11673E-14 0.35910E-19 + 4 4 0.95225E-10 0.10000E+01 0.20817E+04 0.86398E-09 0.46629E-14 0.80802E-19 4 4 0.95225E-10 0.10000E+01 0.16788E+04 0.18990E-08 0.18146E-13 0.17791E-18 4 4 0.95225E-10 0.10000E+01 0.13538E+04 0.40822E-08 0.68947E-13 0.38294E-18 4 4 0.95225E-10 0.10000E+01 0.10918E+04 0.85785E-08 0.25713E-12 0.80551E-18 @@ -23990,24 +23990,24 @@ VERSION 2.8.2 4 4 0.95225E-10 0.10000E+01 0.24221E+03 0.85389E-06 0.78784E-09 0.80333E-16 4 4 0.95225E-10 0.10000E+01 0.19533E+03 0.13458E-05 0.14972E-08 0.12661E-15 4 4 0.95225E-10 0.10000E+01 0.15752E+03 0.13458E-05 0.14972E-08 0.12661E-15 - 4 4 0.16616E-09 0.10000E+01 0.80645E+05 0.10807E-56 0.82399E-68 0.47500E-66 - 4 4 0.16616E-09 0.10000E+01 0.65036E+05 0.92760E-56 0.13091E-66 0.40231E-65 - 4 4 0.16616E-09 0.10000E+01 0.52449E+05 0.79143E-55 0.17633E-65 0.34029E-64 - 4 4 0.16616E-09 0.10000E+01 0.42297E+05 0.59778E-54 0.24642E-64 0.25177E-63 - 4 4 0.16616E-09 0.10000E+01 0.34111E+05 0.44275E-53 0.38828E-63 0.17458E-62 - 4 4 0.16616E-09 0.10000E+01 0.27509E+05 0.36172E-52 0.83316E-62 0.11899E-61 - 4 4 0.16616E-09 0.10000E+01 0.22184E+05 0.38928E-51 0.24678E-60 0.90849E-61 - 4 4 0.16616E-09 0.10000E+01 0.17891E+05 0.56738E-50 0.77147E-59 0.98961E-60 - 4 4 0.16616E-09 0.10000E+01 0.14428E+05 0.90490E-49 0.22661E-57 0.14405E-58 - 4 4 0.16616E-09 0.10000E+01 0.11635E+05 0.13939E-47 0.63511E-56 0.22055E-57 - 4 4 0.16616E-09 0.10000E+01 0.93834E+04 0.20602E-46 0.17463E-54 0.32836E-56 - 4 4 0.16616E-09 0.10000E+01 0.75673E+04 0.29807E-45 0.47697E-53 0.47783E-55 - 4 4 0.16616E-09 0.10000E+01 0.61026E+04 0.42750E-44 0.12986E-51 0.68809E-54 - 4 4 0.16616E-09 0.10000E+01 0.49215E+04 0.61071E-43 0.35274E-50 0.98628E-53 - 4 4 0.16616E-09 0.10000E+01 0.39689E+04 0.87019E-42 0.95610E-49 0.14098E-51 - 4 4 0.16616E-09 0.10000E+01 0.32008E+04 0.38919E-39 0.83685E-46 0.63253E-49 - 4 4 0.16616E-09 0.10000E+01 0.25813E+04 0.28776E-30 0.14176E-36 0.46926E-40 - 4 4 0.16616E-09 0.10000E+01 0.20817E+04 0.55269E-14 0.12139E-19 0.90493E-24 + 4 4 0.16616E-09 0.10000E+01 0.80645E+05 0.72294E-14 0.57818E-25 0.31973E-23 + 4 4 0.16616E-09 0.10000E+01 0.65036E+05 0.93661E-14 0.19387E-24 0.40939E-23 + 4 4 0.16616E-09 0.10000E+01 0.52449E+05 0.12177E-13 0.80860E-24 0.51788E-23 + 4 4 0.16616E-09 0.10000E+01 0.42297E+05 0.16390E-13 0.37659E-23 0.65578E-23 + 4 4 0.16616E-09 0.10000E+01 0.34111E+05 0.23996E-13 0.17914E-22 0.85254E-23 + 4 4 0.16616E-09 0.10000E+01 0.27509E+05 0.40169E-13 0.84378E-22 0.11876E-22 + 4 4 0.16616E-09 0.10000E+01 0.22184E+05 0.77820E-13 0.39253E-21 0.18643E-22 + 4 4 0.16616E-09 0.10000E+01 0.17891E+05 0.16843E-12 0.18107E-20 0.33858E-22 + 4 4 0.16616E-09 0.10000E+01 0.14428E+05 0.38794E-12 0.83093E-20 0.69747E-22 + 4 4 0.16616E-09 0.10000E+01 0.11635E+05 0.91869E-12 0.38006E-19 0.15580E-21 + 4 4 0.16616E-09 0.10000E+01 0.93834E+04 0.21973E-11 0.17332E-18 0.36289E-21 + 4 4 0.16616E-09 0.10000E+01 0.75673E+04 0.52669E-11 0.78665E-18 0.86084E-21 + 4 4 0.16616E-09 0.10000E+01 0.61026E+04 0.12607E-10 0.35333E-17 0.20544E-20 + 4 4 0.16616E-09 0.10000E+01 0.49215E+04 0.30046E-10 0.15583E-16 0.48972E-20 + 4 4 0.16616E-09 0.10000E+01 0.39689E+04 0.71012E-10 0.67121E-16 0.11591E-19 + 4 4 0.16616E-09 0.10000E+01 0.32008E+04 0.16565E-09 0.28203E-15 0.27083E-19 + 4 4 0.16616E-09 0.10000E+01 0.25813E+04 0.37985E-09 0.11563E-14 0.62202E-19 + 4 4 0.16616E-09 0.10000E+01 0.20817E+04 0.85391E-09 0.46215E-14 0.14002E-18 4 4 0.16616E-09 0.10000E+01 0.16788E+04 0.18788E-08 0.17991E-13 0.30843E-18 4 4 0.16616E-09 0.10000E+01 0.13538E+04 0.40419E-08 0.68373E-13 0.66409E-18 4 4 0.16616E-09 0.10000E+01 0.10918E+04 0.84987E-08 0.25501E-12 0.13973E-17 @@ -24020,24 +24020,24 @@ VERSION 2.8.2 4 4 0.16616E-09 0.10000E+01 0.24221E+03 0.84691E-06 0.78143E-09 0.13941E-15 4 4 0.16616E-09 0.10000E+01 0.19533E+03 0.13348E-05 0.14850E-08 0.21972E-15 4 4 0.16616E-09 0.10000E+01 0.15752E+03 0.13348E-05 0.14850E-08 0.21972E-15 - 4 4 0.28994E-09 0.10000E+01 0.80645E+05 0.21474E-56 0.16160E-67 0.17368E-65 - 4 4 0.28994E-09 0.10000E+01 0.65036E+05 0.18241E-55 0.25551E-66 0.14612E-64 - 4 4 0.28994E-09 0.10000E+01 0.52449E+05 0.15459E-54 0.33806E-65 0.12321E-63 - 4 4 0.28994E-09 0.10000E+01 0.42297E+05 0.11491E-53 0.44516E-64 0.90915E-63 - 4 4 0.28994E-09 0.10000E+01 0.34111E+05 0.80883E-53 0.59946E-63 0.62852E-62 - 4 4 0.28994E-09 0.10000E+01 0.27509E+05 0.57629E-52 0.98513E-62 0.42042E-61 - 4 4 0.28994E-09 0.10000E+01 0.22184E+05 0.48609E-51 0.24629E-60 0.28635E-60 - 4 4 0.28994E-09 0.10000E+01 0.17891E+05 0.58664E-50 0.74649E-59 0.23922E-59 - 4 4 0.28994E-09 0.10000E+01 0.14428E+05 0.88450E-49 0.22035E-57 0.28079E-58 - 4 4 0.28994E-09 0.10000E+01 0.11635E+05 0.13569E-47 0.62123E-56 0.39704E-57 - 4 4 0.28994E-09 0.10000E+01 0.93834E+04 0.20143E-46 0.17142E-54 0.57919E-56 - 4 4 0.28994E-09 0.10000E+01 0.75673E+04 0.29249E-45 0.46935E-53 0.83764E-55 - 4 4 0.28994E-09 0.10000E+01 0.61026E+04 0.42058E-44 0.12805E-51 0.12016E-53 - 4 4 0.28994E-09 0.10000E+01 0.49215E+04 0.60211E-43 0.34850E-50 0.17171E-52 - 4 4 0.28994E-09 0.10000E+01 0.39689E+04 0.85964E-42 0.94641E-49 0.24491E-51 - 4 4 0.28994E-09 0.10000E+01 0.32008E+04 0.38523E-39 0.82994E-46 0.10975E-48 - 4 4 0.28994E-09 0.10000E+01 0.25813E+04 0.28541E-30 0.14089E-36 0.81391E-40 - 4 4 0.28994E-09 0.10000E+01 0.20817E+04 0.54952E-14 0.12094E-19 0.15703E-23 + 4 4 0.28994E-09 0.10000E+01 0.80645E+05 0.14435E-13 0.94421E-25 0.11748E-22 + 4 4 0.28994E-09 0.10000E+01 0.65036E+05 0.18528E-13 0.26153E-24 0.15007E-22 + 4 4 0.28994E-09 0.10000E+01 0.52449E+05 0.23575E-13 0.91211E-24 0.18878E-22 + 4 4 0.28994E-09 0.10000E+01 0.42297E+05 0.30250E-13 0.38614E-23 0.23557E-22 + 4 4 0.28994E-09 0.10000E+01 0.34111E+05 0.40419E-13 0.17759E-22 0.29541E-22 + 4 4 0.28994E-09 0.10000E+01 0.27509E+05 0.59030E-13 0.82964E-22 0.38169E-22 + 4 4 0.28994E-09 0.10000E+01 0.22184E+05 0.98623E-13 0.38583E-21 0.52924E-22 + 4 4 0.28994E-09 0.10000E+01 0.17891E+05 0.19003E-12 0.17826E-20 0.82504E-22 + 4 4 0.28994E-09 0.10000E+01 0.14428E+05 0.40799E-12 0.81968E-20 0.14813E-21 + 4 4 0.28994E-09 0.10000E+01 0.11635E+05 0.93244E-12 0.37564E-19 0.30100E-21 + 4 4 0.28994E-09 0.10000E+01 0.93834E+04 0.21952E-11 0.17163E-18 0.66412E-21 + 4 4 0.28994E-09 0.10000E+01 0.75673E+04 0.52298E-11 0.78027E-18 0.15320E-20 + 4 4 0.28994E-09 0.10000E+01 0.61026E+04 0.12497E-10 0.35097E-17 0.36067E-20 + 4 4 0.28994E-09 0.10000E+01 0.49215E+04 0.29790E-10 0.15498E-16 0.85422E-20 + 4 4 0.28994E-09 0.10000E+01 0.39689E+04 0.70469E-10 0.66815E-16 0.20158E-19 + 4 4 0.28994E-09 0.10000E+01 0.32008E+04 0.16456E-09 0.28094E-15 0.47043E-19 + 4 4 0.28994E-09 0.10000E+01 0.25813E+04 0.37770E-09 0.11525E-14 0.10799E-18 + 4 4 0.28994E-09 0.10000E+01 0.20817E+04 0.84978E-09 0.46078E-14 0.24308E-18 4 4 0.28994E-09 0.10000E+01 0.16788E+04 0.18710E-08 0.17942E-13 0.53546E-18 4 4 0.28994E-09 0.10000E+01 0.13538E+04 0.40272E-08 0.68198E-13 0.11530E-17 4 4 0.28994E-09 0.10000E+01 0.10918E+04 0.84711E-08 0.25438E-12 0.24262E-17 @@ -24050,24 +24050,24 @@ VERSION 2.8.2 4 4 0.28994E-09 0.10000E+01 0.24221E+03 0.84479E-06 0.77948E-09 0.24210E-15 4 4 0.28994E-09 0.10000E+01 0.19533E+03 0.13315E-05 0.14813E-08 0.38156E-15 4 4 0.28994E-09 0.10000E+01 0.15752E+03 0.13315E-05 0.14813E-08 0.38156E-15 - 4 4 0.50593E-09 0.10000E+01 0.80645E+05 0.41857E-56 0.31215E-67 0.60722E-65 - 4 4 0.50593E-09 0.10000E+01 0.65036E+05 0.35306E-55 0.49237E-66 0.51054E-64 - 4 4 0.50593E-09 0.10000E+01 0.52449E+05 0.29810E-54 0.64746E-65 0.43083E-63 - 4 4 0.50593E-09 0.10000E+01 0.42297E+05 0.22038E-53 0.83945E-64 0.31903E-62 - 4 4 0.50593E-09 0.10000E+01 0.34111E+05 0.15299E-52 0.10719E-62 0.22256E-61 - 4 4 0.50593E-09 0.10000E+01 0.27509E+05 0.10387E-51 0.14695E-61 0.15057E-60 - 4 4 0.50593E-09 0.10000E+01 0.22184E+05 0.75001E-51 0.28393E-60 0.99466E-60 - 4 4 0.50593E-09 0.10000E+01 0.17891E+05 0.71056E-50 0.76273E-59 0.69556E-59 - 4 4 0.50593E-09 0.10000E+01 0.14428E+05 0.92627E-49 0.21938E-57 0.61451E-58 - 4 4 0.50593E-09 0.10000E+01 0.11635E+05 0.13604E-47 0.61663E-56 0.72828E-57 - 4 4 0.50593E-09 0.10000E+01 0.93834E+04 0.20019E-46 0.17007E-54 0.10063E-55 - 4 4 0.50593E-09 0.10000E+01 0.75673E+04 0.29021E-45 0.46530E-53 0.14437E-54 - 4 4 0.50593E-09 0.10000E+01 0.61026E+04 0.41697E-44 0.12687E-51 0.20731E-53 - 4 4 0.50593E-09 0.10000E+01 0.49215E+04 0.59660E-43 0.34521E-50 0.29651E-52 - 4 4 0.50593E-09 0.10000E+01 0.39689E+04 0.85160E-42 0.93773E-49 0.42302E-51 - 4 4 0.50593E-09 0.10000E+01 0.32008E+04 0.38172E-39 0.82286E-46 0.18959E-48 - 4 4 0.50593E-09 0.10000E+01 0.25813E+04 0.28302E-30 0.13984E-36 0.14069E-39 - 4 4 0.50593E-09 0.10000E+01 0.20817E+04 0.54562E-14 0.12022E-19 0.27179E-23 + 4 4 0.50593E-09 0.10000E+01 0.80645E+05 0.28266E-13 0.16979E-24 0.41128E-22 + 4 4 0.50593E-09 0.10000E+01 0.65036E+05 0.36149E-13 0.41513E-24 0.52547E-22 + 4 4 0.50593E-09 0.10000E+01 0.52449E+05 0.45599E-13 0.12005E-23 0.66073E-22 + 4 4 0.50593E-09 0.10000E+01 0.42297E+05 0.57286E-13 0.43472E-23 0.82124E-22 + 4 4 0.50593E-09 0.10000E+01 0.34111E+05 0.72990E-13 0.18448E-22 0.10154E-21 + 4 4 0.50593E-09 0.10000E+01 0.27509E+05 0.97476E-13 0.83530E-22 0.12648E-21 + 4 4 0.50593E-09 0.10000E+01 0.22184E+05 0.14298E-12 0.38431E-21 0.16265E-21 + 4 4 0.50593E-09 0.10000E+01 0.17891E+05 0.23987E-12 0.17692E-20 0.22466E-21 + 4 4 0.50593E-09 0.10000E+01 0.14428E+05 0.46201E-12 0.81253E-20 0.34872E-21 + 4 4 0.50593E-09 0.10000E+01 0.11635E+05 0.98752E-12 0.37227E-19 0.62291E-21 + 4 4 0.50593E-09 0.10000E+01 0.93834E+04 0.22442E-11 0.17013E-18 0.12594E-20 + 4 4 0.50593E-09 0.10000E+01 0.75673E+04 0.52565E-11 0.77384E-18 0.27671E-20 + 4 4 0.50593E-09 0.10000E+01 0.61026E+04 0.12465E-10 0.34830E-17 0.63595E-20 + 4 4 0.50593E-09 0.10000E+01 0.49215E+04 0.29619E-10 0.15389E-16 0.14899E-19 + 4 4 0.50593E-09 0.10000E+01 0.39689E+04 0.69989E-10 0.66380E-16 0.34997E-19 + 4 4 0.50593E-09 0.10000E+01 0.32008E+04 0.16341E-09 0.27923E-15 0.81532E-19 + 4 4 0.50593E-09 0.10000E+01 0.25813E+04 0.37514E-09 0.11458E-14 0.18708E-18 + 4 4 0.50593E-09 0.10000E+01 0.20817E+04 0.84427E-09 0.45824E-14 0.42109E-18 4 4 0.50593E-09 0.10000E+01 0.16788E+04 0.18595E-08 0.17846E-13 0.92779E-18 4 4 0.50593E-09 0.10000E+01 0.13538E+04 0.40034E-08 0.67837E-13 0.19983E-17 4 4 0.50593E-09 0.10000E+01 0.10918E+04 0.84229E-08 0.25304E-12 0.42057E-17 @@ -24080,24 +24080,24 @@ VERSION 2.8.2 4 4 0.50593E-09 0.10000E+01 0.24221E+03 0.84030E-06 0.77532E-09 0.41978E-15 4 4 0.50593E-09 0.10000E+01 0.19533E+03 0.13244E-05 0.14734E-08 0.66159E-15 4 4 0.50593E-09 0.10000E+01 0.15752E+03 0.13244E-05 0.14734E-08 0.66159E-15 - 4 4 0.88282E-09 0.10000E+01 0.80645E+05 0.79949E-56 0.59435E-67 0.20224E-64 - 4 4 0.88282E-09 0.10000E+01 0.65036E+05 0.67274E-55 0.93757E-66 0.17026E-63 - 4 4 0.88282E-09 0.10000E+01 0.52449E+05 0.56776E-54 0.12345E-64 0.14394E-62 - 4 4 0.88282E-09 0.10000E+01 0.42297E+05 0.42014E-53 0.16075E-63 0.10706E-61 - 4 4 0.88282E-09 0.10000E+01 0.34111E+05 0.29253E-52 0.20505E-62 0.75418E-61 - 4 4 0.88282E-09 0.10000E+01 0.27509E+05 0.19784E-51 0.26019E-61 0.51855E-60 - 4 4 0.88282E-09 0.10000E+01 0.22184E+05 0.13378E-50 0.39311E-60 0.34486E-59 - 4 4 0.88282E-09 0.10000E+01 0.17891E+05 0.10315E-49 0.83967E-59 0.22530E-58 - 4 4 0.88282E-09 0.10000E+01 0.14428E+05 0.10674E-48 0.22176E-57 0.15966E-57 - 4 4 0.88282E-09 0.10000E+01 0.11635E+05 0.14022E-47 0.61289E-56 0.14505E-56 - 4 4 0.88282E-09 0.10000E+01 0.93834E+04 0.20003E-46 0.16886E-54 0.17456E-55 - 4 4 0.88282E-09 0.10000E+01 0.75673E+04 0.28840E-45 0.46215E-53 0.24252E-54 - 4 4 0.88282E-09 0.10000E+01 0.61026E+04 0.41414E-44 0.12598E-51 0.34932E-53 - 4 4 0.88282E-09 0.10000E+01 0.49215E+04 0.59240E-43 0.34267E-50 0.50340E-52 - 4 4 0.88282E-09 0.10000E+01 0.39689E+04 0.84538E-42 0.93081E-49 0.72199E-51 - 4 4 0.88282E-09 0.10000E+01 0.32008E+04 0.37893E-39 0.81709E-46 0.32468E-48 - 4 4 0.88282E-09 0.10000E+01 0.25813E+04 0.28108E-30 0.13898E-36 0.24157E-39 - 4 4 0.88282E-09 0.10000E+01 0.20817E+04 0.54248E-14 0.11964E-19 0.46812E-23 + 4 4 0.88282E-09 0.10000E+01 0.80645E+05 0.54107E-13 0.31845E-24 0.13697E-21 + 4 4 0.88282E-09 0.10000E+01 0.65036E+05 0.69144E-13 0.73156E-24 0.17517E-21 + 4 4 0.88282E-09 0.10000E+01 0.52449E+05 0.87007E-13 0.18315E-23 0.22050E-21 + 4 4 0.88282E-09 0.10000E+01 0.42297E+05 0.10844E-12 0.55011E-23 0.27412E-21 + 4 4 0.88282E-09 0.10000E+01 0.34111E+05 0.13518E-12 0.20330E-22 0.33761E-21 + 4 4 0.88282E-09 0.10000E+01 0.27509E+05 0.17174E-12 0.86080E-22 0.41430E-21 + 4 4 0.88282E-09 0.10000E+01 0.22184E+05 0.22993E-12 0.38614E-21 0.51293E-21 + 4 4 0.88282E-09 0.10000E+01 0.17891E+05 0.33944E-12 0.17629E-20 0.65680E-21 + 4 4 0.88282E-09 0.10000E+01 0.14428E+05 0.57316E-12 0.80749E-20 0.90572E-21 + 4 4 0.88282E-09 0.10000E+01 0.11635E+05 0.11075E-11 0.36968E-19 0.14081E-20 + 4 4 0.88282E-09 0.10000E+01 0.93834E+04 0.23669E-11 0.16894E-18 0.25256E-20 + 4 4 0.88282E-09 0.10000E+01 0.75673E+04 0.53683E-11 0.76865E-18 0.51300E-20 + 4 4 0.88282E-09 0.10000E+01 0.61026E+04 0.12536E-10 0.34613E-17 0.11307E-19 + 4 4 0.88282E-09 0.10000E+01 0.49215E+04 0.29584E-10 0.15301E-16 0.25982E-19 + 4 4 0.88282E-09 0.10000E+01 0.39689E+04 0.69709E-10 0.66029E-16 0.60556E-19 + 4 4 0.88282E-09 0.10000E+01 0.32008E+04 0.16259E-09 0.27785E-15 0.14070E-18 + 4 4 0.88282E-09 0.10000E+01 0.25813E+04 0.37318E-09 0.11405E-14 0.32268E-18 + 4 4 0.88282E-09 0.10000E+01 0.20817E+04 0.83995E-09 0.45622E-14 0.72650E-18 4 4 0.88282E-09 0.10000E+01 0.16788E+04 0.18503E-08 0.17770E-13 0.16015E-17 4 4 0.88282E-09 0.10000E+01 0.13538E+04 0.39846E-08 0.67553E-13 0.34509E-17 4 4 0.88282E-09 0.10000E+01 0.10918E+04 0.83848E-08 0.25198E-12 0.72659E-17 @@ -24110,24 +24110,24 @@ VERSION 2.8.2 4 4 0.88282E-09 0.10000E+01 0.24221E+03 0.83671E-06 0.77198E-09 0.72562E-15 4 4 0.88282E-09 0.10000E+01 0.19533E+03 0.13187E-05 0.14670E-08 0.11436E-14 4 4 0.88282E-09 0.10000E+01 0.15752E+03 0.13187E-05 0.14670E-08 0.11436E-14 - 4 4 0.15405E-08 0.10000E+01 0.80645E+05 0.15009E-55 0.11160E-66 0.65617E-64 - 4 4 0.15405E-08 0.10000E+01 0.65036E+05 0.12632E-54 0.17627E-65 0.55323E-63 - 4 4 0.15405E-08 0.10000E+01 0.52449E+05 0.10673E-53 0.23309E-64 0.46849E-62 - 4 4 0.15405E-08 0.10000E+01 0.42297E+05 0.79254E-53 0.30655E-63 0.34972E-61 - 4 4 0.15405E-08 0.10000E+01 0.34111E+05 0.55626E-52 0.39704E-62 0.24826E-60 - 4 4 0.15405E-08 0.10000E+01 0.27509E+05 0.38041E-51 0.49677E-61 0.17308E-59 - 4 4 0.15405E-08 0.10000E+01 0.22184E+05 0.25386E-50 0.64630E-60 0.11710E-58 - 4 4 0.15405E-08 0.10000E+01 0.17891E+05 0.17407E-49 0.10476E-58 0.76160E-58 - 4 4 0.15405E-08 0.10000E+01 0.14428E+05 0.14132E-48 0.23005E-57 0.49073E-57 - 4 4 0.15405E-08 0.10000E+01 0.11635E+05 0.15155E-47 0.60041E-56 0.35162E-56 - 4 4 0.15405E-08 0.10000E+01 0.93834E+04 0.19899E-46 0.16439E-54 0.32981E-55 - 4 4 0.15405E-08 0.10000E+01 0.75673E+04 0.28178E-45 0.45171E-53 0.40813E-54 - 4 4 0.15405E-08 0.10000E+01 0.61026E+04 0.40486E-44 0.12355E-51 0.57631E-53 - 4 4 0.15405E-08 0.10000E+01 0.49215E+04 0.58080E-43 0.33673E-50 0.83803E-52 - 4 4 0.15405E-08 0.10000E+01 0.39689E+04 0.83052E-42 0.91578E-49 0.12151E-50 - 4 4 0.15405E-08 0.10000E+01 0.32008E+04 0.37278E-39 0.80483E-46 0.55064E-48 - 4 4 0.15405E-08 0.10000E+01 0.25813E+04 0.27689E-30 0.13711E-36 0.41188E-39 - 4 4 0.15405E-08 0.10000E+01 0.20817E+04 0.53539E-14 0.11825E-19 0.80217E-23 + 4 4 0.15405E-08 0.10000E+01 0.80645E+05 0.10163E-12 0.60248E-24 0.44422E-21 + 4 4 0.15405E-08 0.10000E+01 0.65036E+05 0.12994E-12 0.13526E-23 0.56864E-21 + 4 4 0.15405E-08 0.10000E+01 0.52449E+05 0.16354E-12 0.31137E-23 0.71681E-21 + 4 4 0.15405E-08 0.10000E+01 0.42297E+05 0.20343E-12 0.79315E-23 0.89250E-21 + 4 4 0.15405E-08 0.10000E+01 0.34111E+05 0.25136E-12 0.24375E-22 0.10996E-20 + 4 4 0.15405E-08 0.10000E+01 0.27509E+05 0.31152E-12 0.91314E-22 0.13438E-20 + 4 4 0.15405E-08 0.10000E+01 0.22184E+05 0.39479E-12 0.38801E-21 0.16378E-20 + 4 4 0.15405E-08 0.10000E+01 0.17891E+05 0.52931E-12 0.17402E-20 0.20164E-20 + 4 4 0.15405E-08 0.10000E+01 0.14428E+05 0.78541E-12 0.79388E-20 0.25740E-20 + 4 4 0.15405E-08 0.10000E+01 0.11635E+05 0.13353E-11 0.36345E-19 0.35537E-20 + 4 4 0.15405E-08 0.10000E+01 0.93834E+04 0.25954E-11 0.16625E-18 0.55613E-20 + 4 4 0.15405E-08 0.10000E+01 0.75673E+04 0.55663E-11 0.75725E-18 0.10075E-19 + 4 4 0.15405E-08 0.10000E+01 0.61026E+04 0.12637E-10 0.34135E-17 0.20653E-19 + 4 4 0.15405E-08 0.10000E+01 0.49215E+04 0.29445E-10 0.15103E-16 0.45733E-19 + 4 4 0.15405E-08 0.10000E+01 0.39689E+04 0.69020E-10 0.65221E-16 0.10488E-18 + 4 4 0.15405E-08 0.10000E+01 0.32008E+04 0.16069E-09 0.27461E-15 0.24222E-18 + 4 4 0.15405E-08 0.10000E+01 0.25813E+04 0.36866E-09 0.11277E-14 0.55454E-18 + 4 4 0.15405E-08 0.10000E+01 0.20817E+04 0.82988E-09 0.45123E-14 0.12485E-17 4 4 0.15405E-08 0.10000E+01 0.16788E+04 0.18287E-08 0.17579E-13 0.27534E-17 4 4 0.15405E-08 0.10000E+01 0.13538E+04 0.39392E-08 0.66832E-13 0.59367E-17 4 4 0.15405E-08 0.10000E+01 0.10918E+04 0.82914E-08 0.24930E-12 0.12506E-16 @@ -24140,24 +24140,24 @@ VERSION 2.8.2 4 4 0.15405E-08 0.10000E+01 0.24221E+03 0.82769E-06 0.76361E-09 0.12498E-14 4 4 0.15405E-08 0.10000E+01 0.19533E+03 0.13045E-05 0.14511E-08 0.19697E-14 4 4 0.15405E-08 0.10000E+01 0.15752E+03 0.13045E-05 0.14511E-08 0.19697E-14 - 4 4 0.26880E-08 0.10000E+01 0.80645E+05 0.27715E-55 0.20635E-66 0.20750E-63 - 4 4 0.26880E-08 0.10000E+01 0.65036E+05 0.23353E-54 0.32643E-65 0.17517E-62 - 4 4 0.26880E-08 0.10000E+01 0.52449E+05 0.19762E-53 0.43356E-64 0.14854E-61 - 4 4 0.26880E-08 0.10000E+01 0.42297E+05 0.14727E-52 0.57561E-63 0.11118E-60 - 4 4 0.26880E-08 0.10000E+01 0.34111E+05 0.10417E-51 0.75786E-62 0.79366E-60 - 4 4 0.26880E-08 0.10000E+01 0.27509E+05 0.72187E-51 0.95965E-61 0.55900E-59 - 4 4 0.26880E-08 0.10000E+01 0.22184E+05 0.48601E-50 0.11857E-59 0.38457E-58 - 4 4 0.26880E-08 0.10000E+01 0.17891E+05 0.32048E-49 0.15760E-58 0.25461E-57 - 4 4 0.26880E-08 0.10000E+01 0.14428E+05 0.22210E-48 0.26665E-57 0.16246E-56 - 4 4 0.26880E-08 0.10000E+01 0.11635E+05 0.18658E-47 0.60071E-56 0.10457E-55 - 4 4 0.26880E-08 0.10000E+01 0.93834E+04 0.20619E-46 0.15826E-54 0.76865E-55 - 4 4 0.26880E-08 0.10000E+01 0.75673E+04 0.27456E-45 0.43551E-53 0.75046E-54 - 4 4 0.26880E-08 0.10000E+01 0.61026E+04 0.39128E-44 0.12009E-51 0.95744E-53 - 4 4 0.26880E-08 0.10000E+01 0.49215E+04 0.56433E-43 0.32928E-50 0.13745E-51 - 4 4 0.26880E-08 0.10000E+01 0.39689E+04 0.81165E-42 0.89895E-49 0.20165E-50 - 4 4 0.26880E-08 0.10000E+01 0.32008E+04 0.36579E-39 0.79220E-46 0.92496E-48 - 4 4 0.26880E-08 0.10000E+01 0.25813E+04 0.27254E-30 0.13532E-36 0.69788E-39 - 4 4 0.26880E-08 0.10000E+01 0.20817E+04 0.52868E-14 0.11705E-19 0.13692E-22 + 4 4 0.26880E-08 0.10000E+01 0.80645E+05 0.18764E-12 0.11295E-23 0.14041E-20 + 4 4 0.26880E-08 0.10000E+01 0.65036E+05 0.24010E-12 0.25290E-23 0.17988E-20 + 4 4 0.26880E-08 0.10000E+01 0.52449E+05 0.30251E-12 0.56271E-23 0.22703E-20 + 4 4 0.26880E-08 0.10000E+01 0.42297E+05 0.37651E-12 0.12949E-22 0.28317E-20 + 4 4 0.26880E-08 0.10000E+01 0.34111E+05 0.46421E-12 0.33418E-22 0.34956E-20 + 4 4 0.26880E-08 0.10000E+01 0.27509E+05 0.56954E-12 0.10501E-21 0.42749E-20 + 4 4 0.26880E-08 0.10000E+01 0.22184E+05 0.70221E-12 0.40108E-21 0.51897E-20 + 4 4 0.26880E-08 0.10000E+01 0.17891E+05 0.88785E-12 0.17241E-20 0.62900E-20 + 4 4 0.26880E-08 0.10000E+01 0.14428E+05 0.11927E-11 0.77791E-20 0.77165E-20 + 4 4 0.26880E-08 0.10000E+01 0.11635E+05 0.17825E-11 0.35604E-19 0.98533E-20 + 4 4 0.26880E-08 0.10000E+01 0.93834E+04 0.30631E-11 0.16323E-18 0.13693E-19 + 4 4 0.26880E-08 0.10000E+01 0.75673E+04 0.60165E-11 0.74532E-18 0.21710E-19 + 4 4 0.26880E-08 0.10000E+01 0.61026E+04 0.12995E-10 0.33665E-17 0.39933E-19 + 4 4 0.26880E-08 0.10000E+01 0.49215E+04 0.29564E-10 0.14918E-16 0.82742E-19 + 4 4 0.26880E-08 0.10000E+01 0.39689E+04 0.68600E-10 0.64494E-16 0.18359E-18 + 4 4 0.26880E-08 0.10000E+01 0.32008E+04 0.15912E-09 0.27178E-15 0.41808E-18 + 4 4 0.26880E-08 0.10000E+01 0.25813E+04 0.36470E-09 0.11168E-14 0.95219E-18 + 4 4 0.26880E-08 0.10000E+01 0.20817E+04 0.82101E-09 0.44705E-14 0.21406E-17 4 4 0.26880E-08 0.10000E+01 0.16788E+04 0.18098E-08 0.17421E-13 0.47207E-17 4 4 0.26880E-08 0.10000E+01 0.13538E+04 0.39002E-08 0.66239E-13 0.10182E-16 4 4 0.26880E-08 0.10000E+01 0.10918E+04 0.82123E-08 0.24709E-12 0.21458E-16 @@ -24170,24 +24170,24 @@ VERSION 2.8.2 4 4 0.26880E-08 0.10000E+01 0.24221E+03 0.82021E-06 0.75664E-09 0.21454E-14 4 4 0.26880E-08 0.10000E+01 0.19533E+03 0.12927E-05 0.14378E-08 0.33810E-14 4 4 0.26880E-08 0.10000E+01 0.15752E+03 0.12927E-05 0.14378E-08 0.33810E-14 - 4 4 0.46905E-08 0.10000E+01 0.80645E+05 0.50497E-55 0.37660E-66 0.68486E-63 - 4 4 0.46905E-08 0.10000E+01 0.65036E+05 0.42608E-54 0.59658E-65 0.57887E-62 - 4 4 0.46905E-08 0.10000E+01 0.52449E+05 0.36109E-53 0.79543E-64 0.49142E-61 - 4 4 0.46905E-08 0.10000E+01 0.42297E+05 0.26995E-52 0.10642E-62 0.36868E-60 - 4 4 0.46905E-08 0.10000E+01 0.34111E+05 0.19220E-51 0.14209E-61 0.26435E-59 - 4 4 0.46905E-08 0.10000E+01 0.27509E+05 0.13475E-50 0.18347E-60 0.18773E-58 - 4 4 0.46905E-08 0.10000E+01 0.22184E+05 0.92167E-50 0.22757E-59 0.13105E-57 - 4 4 0.46905E-08 0.10000E+01 0.17891E+05 0.61013E-49 0.28055E-58 0.88761E-57 - 4 4 0.46905E-08 0.10000E+01 0.14428E+05 0.39981E-48 0.38397E-57 0.58010E-56 - 4 4 0.46905E-08 0.10000E+01 0.11635E+05 0.28208E-47 0.67615E-56 0.36998E-55 - 4 4 0.46905E-08 0.10000E+01 0.93834E+04 0.24551E-46 0.15590E-54 0.24097E-54 - 4 4 0.46905E-08 0.10000E+01 0.75673E+04 0.27911E-45 0.41509E-53 0.17956E-53 - 4 4 0.46905E-08 0.10000E+01 0.61026E+04 0.37701E-44 0.11495E-51 0.17688E-52 - 4 4 0.46905E-08 0.10000E+01 0.49215E+04 0.54129E-43 0.31840E-50 0.22755E-51 - 4 4 0.46905E-08 0.10000E+01 0.39689E+04 0.78441E-42 0.87583E-49 0.32941E-50 - 4 4 0.46905E-08 0.10000E+01 0.32008E+04 0.35615E-39 0.77575E-46 0.15313E-47 - 4 4 0.46905E-08 0.10000E+01 0.25813E+04 0.26681E-30 0.13306E-36 0.11715E-38 - 4 4 0.46905E-08 0.10000E+01 0.20817E+04 0.52016E-14 0.11553E-19 0.23260E-22 + 4 4 0.46905E-08 0.10000E+01 0.80645E+05 0.34176E-12 0.20908E-23 0.46322E-20 + 4 4 0.46905E-08 0.10000E+01 0.65036E+05 0.43767E-12 0.47115E-23 0.59382E-20 + 4 4 0.46905E-08 0.10000E+01 0.52449E+05 0.55213E-12 0.10436E-22 0.75033E-20 + 4 4 0.46905E-08 0.10000E+01 0.42297E+05 0.68826E-12 0.23061E-22 0.93751E-20 + 4 4 0.46905E-08 0.10000E+01 0.34111E+05 0.84940E-12 0.53235E-22 0.11602E-19 + 4 4 0.46905E-08 0.10000E+01 0.27509E+05 0.10400E-11 0.13972E-21 0.14228E-19 + 4 4 0.46905E-08 0.10000E+01 0.22184E+05 0.12687E-11 0.45002E-21 0.17301E-19 + 4 4 0.46905E-08 0.10000E+01 0.17891E+05 0.15583E-11 0.17546E-20 0.20899E-19 + 4 4 0.46905E-08 0.10000E+01 0.14428E+05 0.19688E-11 0.76357E-20 0.25222E-19 + 4 4 0.46905E-08 0.10000E+01 0.11635E+05 0.26558E-11 0.34684E-19 0.30842E-19 + 4 4 0.46905E-08 0.10000E+01 0.93834E+04 0.40087E-11 0.15927E-18 0.39317E-19 + 4 4 0.46905E-08 0.10000E+01 0.75673E+04 0.69819E-11 0.72972E-18 0.54693E-19 + 4 4 0.46905E-08 0.10000E+01 0.61026E+04 0.13879E-10 0.33059E-17 0.87042E-19 + 4 4 0.46905E-08 0.10000E+01 0.49215E+04 0.30170E-10 0.14682E-16 0.16068E-18 + 4 4 0.46905E-08 0.10000E+01 0.39689E+04 0.68540E-10 0.63572E-16 0.33248E-18 + 4 4 0.46905E-08 0.10000E+01 0.32008E+04 0.15761E-09 0.26817E-15 0.73138E-18 + 4 4 0.46905E-08 0.10000E+01 0.25813E+04 0.36016E-09 0.11028E-14 0.16408E-17 + 4 4 0.46905E-08 0.10000E+01 0.20817E+04 0.81021E-09 0.44169E-14 0.36667E-17 4 4 0.46905E-08 0.10000E+01 0.16788E+04 0.17863E-08 0.17217E-13 0.80697E-17 4 4 0.46905E-08 0.10000E+01 0.13538E+04 0.38508E-08 0.65471E-13 0.17397E-16 4 4 0.46905E-08 0.10000E+01 0.10918E+04 0.81113E-08 0.24422E-12 0.36662E-16 @@ -24200,24 +24200,24 @@ VERSION 2.8.2 4 4 0.46905E-08 0.10000E+01 0.24221E+03 0.81048E-06 0.74756E-09 0.36639E-14 4 4 0.46905E-08 0.10000E+01 0.19533E+03 0.12773E-05 0.14206E-08 0.57736E-14 4 4 0.46905E-08 0.10000E+01 0.15752E+03 0.12773E-05 0.14206E-08 0.57736E-14 - 4 4 0.81846E-08 0.10000E+01 0.80645E+05 0.90630E-55 0.67775E-66 0.58361E-62 - 4 4 0.81846E-08 0.10000E+01 0.65036E+05 0.76641E-54 0.10757E-64 0.49446E-61 - 4 4 0.81846E-08 0.10000E+01 0.52449E+05 0.65088E-53 0.14416E-63 0.42068E-60 - 4 4 0.81846E-08 0.10000E+01 0.42297E+05 0.48863E-52 0.19474E-62 0.31690E-59 - 4 4 0.81846E-08 0.10000E+01 0.34111E+05 0.35076E-51 0.26456E-61 0.22895E-58 - 4 4 0.81846E-08 0.10000E+01 0.27509E+05 0.24966E-50 0.35258E-60 0.16474E-57 - 4 4 0.81846E-08 0.10000E+01 0.22184E+05 0.17540E-49 0.45968E-59 0.11768E-56 - 4 4 0.81846E-08 0.10000E+01 0.17891E+05 0.12102E-48 0.59578E-58 0.82849E-56 - 4 4 0.81846E-08 0.10000E+01 0.14428E+05 0.82839E-48 0.80205E-57 0.57344E-55 - 4 4 0.81846E-08 0.10000E+01 0.11635E+05 0.58198E-47 0.12026E-55 0.39095E-54 - 4 4 0.81846E-08 0.10000E+01 0.93834E+04 0.44656E-46 0.21587E-54 0.26313E-53 - 4 4 0.81846E-08 0.10000E+01 0.75673E+04 0.40350E-45 0.47243E-53 0.17519E-52 - 4 4 0.81846E-08 0.10000E+01 0.61026E+04 0.44431E-44 0.11896E-51 0.11711E-51 - 4 4 0.81846E-08 0.10000E+01 0.49215E+04 0.57067E-43 0.31972E-50 0.83539E-51 - 4 4 0.81846E-08 0.10000E+01 0.39689E+04 0.79346E-42 0.87575E-49 0.72177E-50 - 4 4 0.81846E-08 0.10000E+01 0.32008E+04 0.35695E-39 0.77727E-46 0.25978E-47 - 4 4 0.81846E-08 0.10000E+01 0.25813E+04 0.26759E-30 0.13355E-36 0.18971E-38 - 4 4 0.81846E-08 0.10000E+01 0.20817E+04 0.52287E-14 0.11588E-19 0.39234E-22 + 4 4 0.81846E-08 0.10000E+01 0.80645E+05 0.61283E-12 0.38405E-23 0.39433E-19 + 4 4 0.81846E-08 0.10000E+01 0.65036E+05 0.78581E-12 0.88041E-23 0.50614E-19 + 4 4 0.81846E-08 0.10000E+01 0.52449E+05 0.99336E-12 0.19956E-22 0.64083E-19 + 4 4 0.81846E-08 0.10000E+01 0.42297E+05 0.12423E-11 0.45013E-22 0.80327E-19 + 4 4 0.81846E-08 0.10000E+01 0.34111E+05 0.15403E-11 0.10306E-21 0.99894E-19 + 4 4 0.81846E-08 0.10000E+01 0.27509E+05 0.18967E-11 0.24971E-21 0.12338E-18 + 4 4 0.81846E-08 0.10000E+01 0.22184E+05 0.23253E-11 0.68224E-21 0.15139E-18 + 4 4 0.81846E-08 0.10000E+01 0.17891E+05 0.28528E-11 0.22145E-20 0.18457E-18 + 4 4 0.81846E-08 0.10000E+01 0.14428E+05 0.35412E-11 0.84750E-20 0.22360E-18 + 4 4 0.81846E-08 0.10000E+01 0.11635E+05 0.45440E-11 0.36094E-19 0.26948E-18 + 4 4 0.81846E-08 0.10000E+01 0.93834E+04 0.62442E-11 0.16159E-18 0.32426E-18 + 4 4 0.81846E-08 0.10000E+01 0.75673E+04 0.95863E-11 0.73436E-18 0.39336E-18 + 4 4 0.81846E-08 0.10000E+01 0.61026E+04 0.16867E-10 0.33199E-17 0.49135E-18 + 4 4 0.81846E-08 0.10000E+01 0.49215E+04 0.33558E-10 0.14737E-16 0.65572E-18 + 4 4 0.81846E-08 0.10000E+01 0.39689E+04 0.72383E-10 0.63790E-16 0.97762E-18 + 4 4 0.81846E-08 0.10000E+01 0.32008E+04 0.16205E-09 0.26900E-15 0.16675E-17 + 4 4 0.81846E-08 0.10000E+01 0.25813E+04 0.36553E-09 0.11058E-14 0.31916E-17 + 4 4 0.81846E-08 0.10000E+01 0.20817E+04 0.81719E-09 0.44274E-14 0.65489E-17 4 4 0.81846E-08 0.10000E+01 0.16788E+04 0.17961E-08 0.17253E-13 0.13817E-16 4 4 0.81846E-08 0.10000E+01 0.13538E+04 0.38660E-08 0.65595E-13 0.29188E-16 4 4 0.81846E-08 0.10000E+01 0.10918E+04 0.81362E-08 0.24464E-12 0.60901E-16 @@ -24230,24 +24230,24 @@ VERSION 2.8.2 4 4 0.81846E-08 0.10000E+01 0.24221E+03 0.81170E-06 0.74859E-09 0.59912E-14 4 4 0.81846E-08 0.10000E+01 0.19533E+03 0.12792E-05 0.14225E-08 0.94362E-14 4 4 0.81846E-08 0.10000E+01 0.15752E+03 0.12792E-05 0.14225E-08 0.94362E-14 - 4 4 0.14282E-07 0.10000E+01 0.80645E+05 0.15489E-54 0.11604E-65 0.40665E-61 - 4 4 0.14282E-07 0.10000E+01 0.65036E+05 0.13118E-53 0.18442E-64 0.34498E-60 - 4 4 0.14282E-07 0.10000E+01 0.52449E+05 0.11156E-52 0.24796E-63 0.29384E-59 - 4 4 0.14282E-07 0.10000E+01 0.42297E+05 0.83979E-52 0.33696E-62 0.22181E-58 - 4 4 0.14282E-07 0.10000E+01 0.34111E+05 0.60592E-51 0.46245E-61 0.16085E-57 - 4 4 0.14282E-07 0.10000E+01 0.27509E+05 0.43514E-50 0.62690E-60 0.11645E-56 - 4 4 0.14282E-07 0.10000E+01 0.22184E+05 0.31023E-49 0.83780E-59 0.84013E-56 - 4 4 0.14282E-07 0.10000E+01 0.17891E+05 0.21866E-48 0.11142E-57 0.60077E-55 - 4 4 0.14282E-07 0.10000E+01 0.14428E+05 0.15319E-47 0.15092E-56 0.42526E-54 - 4 4 0.14282E-07 0.10000E+01 0.11635E+05 0.10861E-46 0.21579E-55 0.29842E-53 - 4 4 0.14282E-07 0.10000E+01 0.93834E+04 0.80464E-46 0.34205E-54 0.20777E-52 - 4 4 0.14282E-07 0.10000E+01 0.75673E+04 0.65307E-45 0.63206E-53 0.14318E-51 - 4 4 0.14282E-07 0.10000E+01 0.61026E+04 0.61218E-44 0.13787E-51 0.97196E-51 - 4 4 0.14282E-07 0.10000E+01 0.49215E+04 0.67762E-43 0.34058E-50 0.64869E-50 - 4 4 0.14282E-07 0.10000E+01 0.39689E+04 0.85767E-42 0.89895E-49 0.43169E-49 - 4 4 0.14282E-07 0.10000E+01 0.32008E+04 0.36913E-39 0.78770E-46 0.96538E-47 - 4 4 0.14282E-07 0.10000E+01 0.25813E+04 0.27243E-30 0.13484E-36 0.45440E-38 - 4 4 0.14282E-07 0.10000E+01 0.20817E+04 0.53076E-14 0.11667E-19 0.82707E-22 + 4 4 0.14282E-07 0.10000E+01 0.80645E+05 0.10467E-11 0.66581E-23 0.27460E-18 + 4 4 0.14282E-07 0.10000E+01 0.65036E+05 0.13433E-11 0.15413E-22 0.35269E-18 + 4 4 0.14282E-07 0.10000E+01 0.52449E+05 0.17003E-11 0.35400E-22 0.44699E-18 + 4 4 0.14282E-07 0.10000E+01 0.42297E+05 0.21306E-11 0.80935E-22 0.56117E-18 + 4 4 0.14282E-07 0.10000E+01 0.34111E+05 0.26494E-11 0.18614E-21 0.69951E-18 + 4 4 0.14282E-07 0.10000E+01 0.27509E+05 0.32747E-11 0.44027E-21 0.86693E-18 + 4 4 0.14282E-07 0.10000E+01 0.22184E+05 0.40303E-11 0.11134E-20 0.10689E-17 + 4 4 0.14282E-07 0.10000E+01 0.17891E+05 0.49541E-11 0.31690E-20 0.13115E-17 + 4 4 0.14282E-07 0.10000E+01 0.14428E+05 0.61200E-11 0.10528E-19 0.16010E-17 + 4 4 0.14282E-07 0.10000E+01 0.11635E+05 0.76921E-11 0.40388E-19 0.19442E-17 + 4 4 0.14282E-07 0.10000E+01 0.93834E+04 0.10062E-10 0.17054E-18 0.23486E-17 + 4 4 0.14282E-07 0.10000E+01 0.75673E+04 0.14180E-10 0.75414E-18 0.28241E-17 + 4 4 0.14282E-07 0.10000E+01 0.61026E+04 0.22352E-10 0.33707E-17 0.33915E-17 + 4 4 0.14282E-07 0.10000E+01 0.49215E+04 0.40078E-10 0.14892E-16 0.41032E-17 + 4 4 0.14282E-07 0.10000E+01 0.39689E+04 0.80158E-10 0.64324E-16 0.50942E-17 + 4 4 0.14282E-07 0.10000E+01 0.32008E+04 0.17149E-09 0.27091E-15 0.66923E-17 + 4 4 0.14282E-07 0.10000E+01 0.25813E+04 0.37741E-09 0.11126E-14 0.96438E-17 + 4 4 0.14282E-07 0.10000E+01 0.20817E+04 0.83307E-09 0.44517E-14 0.15568E-16 4 4 0.14282E-07 0.10000E+01 0.16788E+04 0.18190E-08 0.17339E-13 0.27841E-16 4 4 0.14282E-07 0.10000E+01 0.13538E+04 0.39014E-08 0.65895E-13 0.53263E-16 4 4 0.14282E-07 0.10000E+01 0.10918E+04 0.81945E-08 0.24570E-12 0.10513E-15 @@ -24260,24 +24260,24 @@ VERSION 2.8.2 4 4 0.14282E-07 0.10000E+01 0.24221E+03 0.81503E-06 0.75154E-09 0.95725E-14 4 4 0.14282E-07 0.10000E+01 0.19533E+03 0.12844E-05 0.14281E-08 0.15055E-13 4 4 0.14282E-07 0.10000E+01 0.15752E+03 0.12844E-05 0.14281E-08 0.15055E-13 - 4 4 0.24920E-07 0.10000E+01 0.80645E+05 0.26513E-54 0.19876E-65 0.11837E-60 - 4 4 0.24920E-07 0.10000E+01 0.65036E+05 0.22466E-53 0.31602E-64 0.10045E-59 - 4 4 0.24920E-07 0.10000E+01 0.52449E+05 0.19115E-52 0.42536E-63 0.85586E-59 - 4 4 0.24920E-07 0.10000E+01 0.42297E+05 0.14402E-51 0.57911E-62 0.64642E-58 - 4 4 0.24920E-07 0.10000E+01 0.34111E+05 0.10408E-50 0.79705E-61 0.46921E-57 - 4 4 0.24920E-07 0.10000E+01 0.27509E+05 0.74932E-50 0.10848E-59 0.34021E-56 - 4 4 0.24920E-07 0.10000E+01 0.22184E+05 0.53608E-49 0.14553E-58 0.24604E-55 - 4 4 0.24920E-07 0.10000E+01 0.17891E+05 0.37916E-48 0.19342E-57 0.17660E-54 - 4 4 0.24920E-07 0.10000E+01 0.14428E+05 0.26564E-47 0.25824E-56 0.12565E-53 - 4 4 0.24920E-07 0.10000E+01 0.11635E+05 0.18624E-46 0.35371E-55 0.88746E-53 - 4 4 0.24920E-07 0.10000E+01 0.93834E+04 0.13311E-45 0.51345E-54 0.62267E-52 - 4 4 0.24920E-07 0.10000E+01 0.75673E+04 0.99990E-45 0.83176E-53 0.43306E-51 - 4 4 0.24920E-07 0.10000E+01 0.61026E+04 0.82880E-44 0.15833E-51 0.29711E-50 - 4 4 0.24920E-07 0.10000E+01 0.49215E+04 0.79982E-43 0.35581E-50 0.20003E-49 - 4 4 0.24920E-07 0.10000E+01 0.39689E+04 0.91265E-42 0.89762E-49 0.13217E-48 - 4 4 0.24920E-07 0.10000E+01 0.32008E+04 0.37226E-39 0.77535E-46 0.27764E-46 - 4 4 0.24920E-07 0.10000E+01 0.25813E+04 0.27002E-30 0.13270E-36 0.11147E-37 - 4 4 0.24920E-07 0.10000E+01 0.20817E+04 0.52733E-14 0.11519E-19 0.17802E-21 + 4 4 0.24920E-07 0.10000E+01 0.80645E+05 0.17913E-11 0.11445E-22 0.79919E-18 + 4 4 0.24920E-07 0.10000E+01 0.65036E+05 0.22994E-11 0.26553E-22 0.10266E-17 + 4 4 0.24920E-07 0.10000E+01 0.52449E+05 0.29116E-11 0.61097E-22 0.13015E-17 + 4 4 0.24920E-07 0.10000E+01 0.42297E+05 0.36505E-11 0.13958E-21 0.16346E-17 + 4 4 0.24920E-07 0.10000E+01 0.34111E+05 0.45423E-11 0.31828E-21 0.20387E-17 + 4 4 0.24920E-07 0.10000E+01 0.27509E+05 0.56171E-11 0.73332E-21 0.25288E-17 + 4 4 0.24920E-07 0.10000E+01 0.22184E+05 0.69118E-11 0.17487E-20 0.31218E-17 + 4 4 0.24920E-07 0.10000E+01 0.17891E+05 0.84768E-11 0.44991E-20 0.38363E-17 + 4 4 0.24920E-07 0.10000E+01 0.14428E+05 0.10396E-10 0.13156E-19 0.46930E-17 + 4 4 0.24920E-07 0.10000E+01 0.11635E+05 0.12837E-10 0.45064E-19 0.57135E-17 + 4 4 0.24920E-07 0.10000E+01 0.93834E+04 0.16184E-10 0.17713E-18 0.69202E-17 + 4 4 0.24920E-07 0.10000E+01 0.75673E+04 0.21358E-10 0.75700E-18 0.83380E-17 + 4 4 0.24920E-07 0.10000E+01 0.61026E+04 0.30598E-10 0.33405E-17 0.10004E-16 + 4 4 0.24920E-07 0.10000E+01 0.49215E+04 0.49281E-10 0.14705E-16 0.12003E-16 + 4 4 0.24920E-07 0.10000E+01 0.39689E+04 0.89980E-10 0.63486E-16 0.14546E-16 + 4 4 0.24920E-07 0.10000E+01 0.32008E+04 0.18116E-09 0.26745E-15 0.18163E-16 + 4 4 0.24920E-07 0.10000E+01 0.25813E+04 0.38535E-09 0.10988E-14 0.24089E-16 + 4 4 0.24920E-07 0.10000E+01 0.20817E+04 0.83599E-09 0.43970E-14 0.35029E-16 4 4 0.24920E-07 0.10000E+01 0.16788E+04 0.18102E-08 0.17126E-13 0.56657E-16 4 4 0.24920E-07 0.10000E+01 0.13538E+04 0.38674E-08 0.65077E-13 0.10040E-15 4 4 0.24920E-07 0.10000E+01 0.10918E+04 0.81077E-08 0.24260E-12 0.18856E-15 @@ -24290,24 +24290,24 @@ VERSION 2.8.2 4 4 0.24920E-07 0.10000E+01 0.24221E+03 0.80431E-06 0.74141E-09 0.15949E-13 4 4 0.24920E-07 0.10000E+01 0.19533E+03 0.12674E-05 0.14088E-08 0.25055E-13 4 4 0.24920E-07 0.10000E+01 0.15752E+03 0.12674E-05 0.14088E-08 0.25055E-13 - 4 4 0.43485E-07 0.10000E+01 0.80645E+05 0.45014E-54 0.33765E-65 0.34254E-60 - 4 4 0.43485E-07 0.10000E+01 0.65036E+05 0.38161E-53 0.53705E-64 0.29078E-59 - 4 4 0.43485E-07 0.10000E+01 0.52449E+05 0.32483E-52 0.72356E-63 0.24781E-58 - 4 4 0.43485E-07 0.10000E+01 0.42297E+05 0.24493E-51 0.98670E-62 0.18726E-57 - 4 4 0.43485E-07 0.10000E+01 0.34111E+05 0.17725E-50 0.13615E-60 0.13603E-56 - 4 4 0.43485E-07 0.10000E+01 0.27509E+05 0.12790E-49 0.18600E-59 0.98765E-56 - 4 4 0.43485E-07 0.10000E+01 0.22184E+05 0.91805E-49 0.25071E-58 0.71575E-55 - 4 4 0.43485E-07 0.10000E+01 0.17891E+05 0.65204E-48 0.33439E-57 0.51533E-54 - 4 4 0.43485E-07 0.10000E+01 0.14428E+05 0.45836E-47 0.44516E-56 0.36824E-53 - 4 4 0.43485E-07 0.10000E+01 0.11635E+05 0.32085E-46 0.59844E-55 0.26147E-52 - 4 4 0.43485E-07 0.10000E+01 0.93834E+04 0.22594E-45 0.82661E-54 0.18462E-51 - 4 4 0.43485E-07 0.10000E+01 0.75673E+04 0.16273E-44 0.12156E-52 0.12939E-50 - 4 4 0.43485E-07 0.10000E+01 0.61026E+04 0.12378E-43 0.20176E-51 0.89620E-50 - 4 4 0.43485E-07 0.10000E+01 0.49215E+04 0.10495E-42 0.39763E-50 0.61009E-49 - 4 4 0.43485E-07 0.10000E+01 0.39689E+04 0.10470E-41 0.92307E-49 0.40619E-48 - 4 4 0.43485E-07 0.10000E+01 0.32008E+04 0.38943E-39 0.76917E-46 0.83883E-46 - 4 4 0.43485E-07 0.10000E+01 0.25813E+04 0.27134E-30 0.13057E-36 0.30664E-37 - 4 4 0.43485E-07 0.10000E+01 0.20817E+04 0.52808E-14 0.11354E-19 0.42515E-21 + 4 4 0.43485E-07 0.10000E+01 0.80645E+05 0.30406E-11 0.19506E-22 0.23124E-17 + 4 4 0.43485E-07 0.10000E+01 0.65036E+05 0.39039E-11 0.45356E-22 0.29709E-17 + 4 4 0.43485E-07 0.10000E+01 0.52449E+05 0.49451E-11 0.10463E-21 0.37671E-17 + 4 4 0.43485E-07 0.10000E+01 0.42297E+05 0.62034E-11 0.23949E-21 0.47328E-17 + 4 4 0.43485E-07 0.10000E+01 0.34111E+05 0.77241E-11 0.54528E-21 0.59062E-17 + 4 4 0.43485E-07 0.10000E+01 0.27509E+05 0.95596E-11 0.12428E-20 0.73314E-17 + 4 4 0.43485E-07 0.10000E+01 0.22184E+05 0.11770E-10 0.28735E-20 0.90596E-17 + 4 4 0.43485E-07 0.10000E+01 0.17891E+05 0.14432E-10 0.69201E-20 0.11149E-16 + 4 4 0.43485E-07 0.10000E+01 0.14428E+05 0.17651E-10 0.18160E-19 0.13663E-16 + 4 4 0.43485E-07 0.10000E+01 0.11635E+05 0.21613E-10 0.54729E-19 0.16671E-16 + 4 4 0.43485E-07 0.10000E+01 0.93834E+04 0.26706E-10 0.19362E-18 0.20245E-16 + 4 4 0.43485E-07 0.10000E+01 0.75673E+04 0.33824E-10 0.77781E-18 0.24458E-16 + 4 4 0.43485E-07 0.10000E+01 0.61026E+04 0.45135E-10 0.33383E-17 0.29393E-16 + 4 4 0.43485E-07 0.10000E+01 0.49215E+04 0.65869E-10 0.14549E-16 0.35192E-16 + 4 4 0.43485E-07 0.10000E+01 0.39689E+04 0.10832E-09 0.62630E-16 0.42185E-16 + 4 4 0.43485E-07 0.10000E+01 0.32008E+04 0.20045E-09 0.26369E-15 0.51207E-16 + 4 4 0.43485E-07 0.10000E+01 0.25813E+04 0.40381E-09 0.10833E-14 0.64252E-16 + 4 4 0.43485E-07 0.10000E+01 0.20817E+04 0.84992E-09 0.43351E-14 0.85784E-16 4 4 0.43485E-07 0.10000E+01 0.16788E+04 0.18120E-08 0.16883E-13 0.12525E-15 4 4 0.43485E-07 0.10000E+01 0.13538E+04 0.38414E-08 0.64136E-13 0.20175E-15 4 4 0.43485E-07 0.10000E+01 0.10918E+04 0.80225E-08 0.23900E-12 0.35246E-15 @@ -24320,24 +24320,24 @@ VERSION 2.8.2 4 4 0.43485E-07 0.10000E+01 0.24221E+03 0.79179E-06 0.72951E-09 0.26406E-13 4 4 0.43485E-07 0.10000E+01 0.19533E+03 0.12475E-05 0.13862E-08 0.41411E-13 4 4 0.43485E-07 0.10000E+01 0.15752E+03 0.12475E-05 0.13862E-08 0.41411E-13 - 4 4 0.75878E-07 0.10000E+01 0.80645E+05 0.75862E-54 0.56934E-65 0.98616E-60 - 4 4 0.75878E-07 0.10000E+01 0.65036E+05 0.64339E-53 0.90586E-64 0.83736E-59 - 4 4 0.75878E-07 0.10000E+01 0.52449E+05 0.54787E-52 0.12215E-62 0.71379E-58 - 4 4 0.75878E-07 0.10000E+01 0.42297E+05 0.41338E-51 0.16680E-61 0.53959E-57 - 4 4 0.75878E-07 0.10000E+01 0.34111E+05 0.29952E-50 0.23066E-60 0.39227E-56 - 4 4 0.75878E-07 0.10000E+01 0.27509E+05 0.21654E-49 0.31619E-59 0.28512E-55 - 4 4 0.75878E-07 0.10000E+01 0.22184E+05 0.15590E-48 0.42820E-58 0.20699E-54 - 4 4 0.75878E-07 0.10000E+01 0.17891E+05 0.11118E-47 0.57392E-57 0.14943E-53 - 4 4 0.75878E-07 0.10000E+01 0.14428E+05 0.78510E-47 0.76580E-56 0.10716E-52 - 4 4 0.75878E-07 0.10000E+01 0.11635E+05 0.55102E-46 0.10238E-54 0.76430E-52 - 4 4 0.75878E-07 0.10000E+01 0.93834E+04 0.38658E-45 0.13818E-53 0.54249E-51 - 4 4 0.75878E-07 0.10000E+01 0.75673E+04 0.27324E-44 0.19189E-52 0.38260E-50 - 4 4 0.75878E-07 0.10000E+01 0.61026E+04 0.19789E-43 0.28623E-51 0.26716E-49 - 4 4 0.75878E-07 0.10000E+01 0.49215E+04 0.15247E-42 0.48961E-50 0.18376E-48 - 4 4 0.75878E-07 0.10000E+01 0.39689E+04 0.13284E-41 0.10046E-48 0.12378E-47 - 4 4 0.75878E-07 0.10000E+01 0.32008E+04 0.43471E-39 0.77941E-46 0.25663E-45 - 4 4 0.75878E-07 0.10000E+01 0.25813E+04 0.28097E-30 0.12891E-36 0.90109E-37 - 4 4 0.75878E-07 0.10000E+01 0.20817E+04 0.53769E-14 0.11177E-19 0.11120E-20 + 4 4 0.75878E-07 0.10000E+01 0.80645E+05 0.51235E-11 0.32985E-22 0.66566E-17 + 4 4 0.75878E-07 0.10000E+01 0.65036E+05 0.65795E-11 0.76856E-22 0.85532E-17 + 4 4 0.75878E-07 0.10000E+01 0.52449E+05 0.83368E-11 0.17778E-21 0.10848E-16 + 4 4 0.75878E-07 0.10000E+01 0.42297E+05 0.10463E-10 0.40809E-21 0.13632E-16 + 4 4 0.75878E-07 0.10000E+01 0.34111E+05 0.13037E-10 0.93072E-21 0.17020E-16 + 4 4 0.75878E-07 0.10000E+01 0.27509E+05 0.16148E-10 0.21157E-20 0.21140E-16 + 4 4 0.75878E-07 0.10000E+01 0.22184E+05 0.19901E-10 0.48254E-20 0.26147E-16 + 4 4 0.75878E-07 0.10000E+01 0.17891E+05 0.24418E-10 0.11205E-19 0.32214E-16 + 4 4 0.75878E-07 0.10000E+01 0.14428E+05 0.29853E-10 0.27293E-19 0.39539E-16 + 4 4 0.75878E-07 0.10000E+01 0.11635E+05 0.36435E-10 0.73301E-19 0.48340E-16 + 4 4 0.75878E-07 0.10000E+01 0.93834E+04 0.44577E-10 0.22852E-18 0.58845E-16 + 4 4 0.75878E-07 0.10000E+01 0.75673E+04 0.55169E-10 0.83436E-18 0.71283E-16 + 4 4 0.75878E-07 0.10000E+01 0.61026E+04 0.70311E-10 0.33993E-17 0.85887E-16 + 4 4 0.75878E-07 0.10000E+01 0.49215E+04 0.95060E-10 0.14488E-16 0.10294E-15 + 4 4 0.75878E-07 0.10000E+01 0.39689E+04 0.14138E-09 0.61867E-16 0.12296E-15 + 4 4 0.75878E-07 0.10000E+01 0.32008E+04 0.23663E-09 0.25981E-15 0.14724E-15 + 4 4 0.75878E-07 0.10000E+01 0.25813E+04 0.44122E-09 0.10665E-14 0.17888E-15 + 4 4 0.75878E-07 0.10000E+01 0.20817E+04 0.88446E-09 0.42666E-14 0.22510E-15 4 4 0.75878E-07 0.10000E+01 0.16788E+04 0.18351E-08 0.16610E-13 0.30139E-15 4 4 0.75878E-07 0.10000E+01 0.13538E+04 0.38356E-08 0.63070E-13 0.43933E-15 4 4 0.75878E-07 0.10000E+01 0.10918E+04 0.79520E-08 0.23491E-12 0.70047E-15 @@ -24350,24 +24350,24 @@ VERSION 2.8.2 4 4 0.75878E-07 0.10000E+01 0.24221E+03 0.77740E-06 0.71574E-09 0.43417E-13 4 4 0.75878E-07 0.10000E+01 0.19533E+03 0.12246E-05 0.13600E-08 0.67905E-13 4 4 0.75878E-07 0.10000E+01 0.15752E+03 0.12246E-05 0.13600E-08 0.67905E-13 - 4 4 0.13240E-06 0.10000E+01 0.80645E+05 0.12700E-53 0.95355E-65 0.28263E-59 - 4 4 0.13240E-06 0.10000E+01 0.65036E+05 0.10775E-52 0.15176E-63 0.24004E-58 - 4 4 0.13240E-06 0.10000E+01 0.52449E+05 0.91782E-52 0.20478E-62 0.20465E-57 - 4 4 0.13240E-06 0.10000E+01 0.42297E+05 0.69293E-51 0.27999E-61 0.15476E-56 - 4 4 0.13240E-06 0.10000E+01 0.34111E+05 0.50259E-50 0.38791E-60 0.11258E-55 - 4 4 0.13240E-06 0.10000E+01 0.27509E+05 0.36397E-49 0.53333E-59 0.81911E-55 - 4 4 0.13240E-06 0.10000E+01 0.22184E+05 0.26273E-48 0.72535E-58 0.59556E-54 - 4 4 0.13240E-06 0.10000E+01 0.17891E+05 0.18807E-47 0.97713E-57 0.43091E-53 - 4 4 0.13240E-06 0.10000E+01 0.14428E+05 0.13342E-46 0.13094E-55 0.30998E-52 - 4 4 0.13240E-06 0.10000E+01 0.11635E+05 0.94031E-46 0.17517E-54 0.22192E-51 - 4 4 0.13240E-06 0.10000E+01 0.93834E+04 0.66063E-45 0.23451E-53 0.15820E-50 - 4 4 0.13240E-06 0.10000E+01 0.75673E+04 0.46413E-44 0.31667E-52 0.11217E-49 - 4 4 0.13240E-06 0.10000E+01 0.61026E+04 0.32842E-43 0.44196E-51 0.78849E-49 - 4 4 0.13240E-06 0.10000E+01 0.49215E+04 0.23895E-42 0.67176E-50 0.54721E-48 - 4 4 0.13240E-06 0.10000E+01 0.39689E+04 0.18710E-41 0.11934E-48 0.37286E-47 - 4 4 0.13240E-06 0.10000E+01 0.32008E+04 0.53249E-39 0.82527E-46 0.78168E-45 - 4 4 0.13240E-06 0.10000E+01 0.25813E+04 0.30724E-30 0.12868E-36 0.27181E-36 - 4 4 0.13240E-06 0.10000E+01 0.20817E+04 0.56449E-14 0.10995E-19 0.30988E-20 + 4 4 0.13240E-06 0.10000E+01 0.80645E+05 0.85757E-11 0.55382E-22 0.19075E-16 + 4 4 0.13240E-06 0.10000E+01 0.65036E+05 0.11015E-10 0.12928E-21 0.24513E-16 + 4 4 0.13240E-06 0.10000E+01 0.52449E+05 0.13961E-10 0.29982E-21 0.31094E-16 + 4 4 0.13240E-06 0.10000E+01 0.42297E+05 0.17528E-10 0.69034E-21 0.39086E-16 + 4 4 0.13240E-06 0.10000E+01 0.34111E+05 0.21853E-10 0.15791E-20 0.48817E-16 + 4 4 0.13240E-06 0.10000E+01 0.27509E+05 0.27092E-10 0.35937E-20 0.60669E-16 + 4 4 0.13240E-06 0.10000E+01 0.22184E+05 0.33422E-10 0.81622E-20 0.75094E-16 + 4 4 0.13240E-06 0.10000E+01 0.17891E+05 0.41051E-10 0.18633E-19 0.92614E-16 + 4 4 0.13240E-06 0.10000E+01 0.14428E+05 0.50222E-10 0.43475E-19 0.11383E-15 + 4 4 0.13240E-06 0.10000E+01 0.11635E+05 0.61256E-10 0.10736E-18 0.13940E-15 + 4 4 0.13240E-06 0.10000E+01 0.93834E+04 0.74639E-10 0.29641E-18 0.17005E-15 + 4 4 0.13240E-06 0.10000E+01 0.75673E+04 0.91300E-10 0.95787E-18 0.20652E-15 + 4 4 0.13240E-06 0.10000E+01 0.61026E+04 0.11329E-09 0.35872E-17 0.24953E-15 + 4 4 0.13240E-06 0.10000E+01 0.49215E+04 0.14551E-09 0.14645E-16 0.29979E-15 + 4 4 0.13240E-06 0.10000E+01 0.39689E+04 0.19951E-09 0.61414E-16 0.35824E-15 + 4 4 0.13240E-06 0.10000E+01 0.32008E+04 0.30194E-09 0.25617E-15 0.42680E-15 + 4 4 0.13240E-06 0.10000E+01 0.25813E+04 0.51185E-09 0.10491E-14 0.51014E-15 + 4 4 0.13240E-06 0.10000E+01 0.20817E+04 0.95600E-09 0.41923E-14 0.61946E-15 4 4 0.13240E-06 0.10000E+01 0.16788E+04 0.18981E-08 0.16309E-13 0.77957E-15 4 4 0.13240E-06 0.10000E+01 0.13538E+04 0.38705E-08 0.61880E-13 0.10418E-14 4 4 0.13240E-06 0.10000E+01 0.10918E+04 0.79187E-08 0.23030E-12 0.15067E-14 @@ -24380,24 +24380,24 @@ VERSION 2.8.2 4 4 0.13240E-06 0.10000E+01 0.24221E+03 0.76107E-06 0.69997E-09 0.70858E-13 4 4 0.13240E-06 0.10000E+01 0.19533E+03 0.11986E-05 0.13300E-08 0.11035E-12 4 4 0.13240E-06 0.10000E+01 0.15752E+03 0.11986E-05 0.13300E-08 0.11035E-12 - 4 4 0.23103E-06 0.10000E+01 0.80645E+05 0.21134E-53 0.15874E-64 0.80676E-59 - 4 4 0.23103E-06 0.10000E+01 0.65036E+05 0.17936E-52 0.25271E-63 0.68532E-58 - 4 4 0.23103E-06 0.10000E+01 0.52449E+05 0.15282E-51 0.34121E-62 0.58441E-57 - 4 4 0.23103E-06 0.10000E+01 0.42297E+05 0.11544E-50 0.46702E-61 0.44208E-56 - 4 4 0.23103E-06 0.10000E+01 0.34111E+05 0.83804E-50 0.64807E-60 0.32176E-55 - 4 4 0.23103E-06 0.10000E+01 0.27509E+05 0.60779E-49 0.89330E-59 0.23431E-54 - 4 4 0.23103E-06 0.10000E+01 0.22184E+05 0.43972E-48 0.12195E-57 0.17059E-53 - 4 4 0.23103E-06 0.10000E+01 0.17891E+05 0.31582E-47 0.16506E-56 0.12367E-52 - 4 4 0.23103E-06 0.10000E+01 0.14428E+05 0.22499E-46 0.22225E-55 0.89197E-52 - 4 4 0.23103E-06 0.10000E+01 0.11635E+05 0.15929E-45 0.29830E-54 0.64062E-51 - 4 4 0.23103E-06 0.10000E+01 0.93834E+04 0.11231E-44 0.39908E-53 0.45841E-50 - 4 4 0.23103E-06 0.10000E+01 0.75673E+04 0.78917E-44 0.53314E-52 0.32646E-49 - 4 4 0.23103E-06 0.10000E+01 0.61026E+04 0.55375E-43 0.71917E-51 0.23078E-48 - 4 4 0.23103E-06 0.10000E+01 0.49215E+04 0.39158E-42 0.10111E-49 0.16136E-47 - 4 4 0.23103E-06 0.10000E+01 0.39689E+04 0.28658E-41 0.15771E-48 0.11107E-46 - 4 4 0.23103E-06 0.10000E+01 0.32008E+04 0.72424E-39 0.94104E-46 0.23572E-44 - 4 4 0.23103E-06 0.10000E+01 0.25813E+04 0.36463E-30 0.13180E-36 0.82310E-36 - 4 4 0.23103E-06 0.10000E+01 0.20817E+04 0.62305E-14 0.10826E-19 0.89496E-20 + 4 4 0.23103E-06 0.10000E+01 0.80645E+05 0.14269E-10 0.92397E-22 0.54445E-16 + 4 4 0.23103E-06 0.10000E+01 0.65036E+05 0.18330E-10 0.21604E-21 0.69972E-16 + 4 4 0.23103E-06 0.10000E+01 0.52449E+05 0.23238E-10 0.50217E-21 0.88770E-16 + 4 4 0.23103E-06 0.10000E+01 0.42297E+05 0.29187E-10 0.11597E-20 0.11161E-15 + 4 4 0.23103E-06 0.10000E+01 0.34111E+05 0.36408E-10 0.26613E-20 0.13945E-15 + 4 4 0.23103E-06 0.10000E+01 0.27509E+05 0.45169E-10 0.60733E-20 0.17339E-15 + 4 4 0.23103E-06 0.10000E+01 0.22184E+05 0.55778E-10 0.13800E-19 0.21476E-15 + 4 4 0.23103E-06 0.10000E+01 0.17891E+05 0.68589E-10 0.31313E-19 0.26510E-15 + 4 4 0.23103E-06 0.10000E+01 0.14428E+05 0.84010E-10 0.71530E-19 0.32619E-15 + 4 4 0.23103E-06 0.10000E+01 0.11635E+05 0.10253E-09 0.16787E-18 0.40007E-15 + 4 4 0.23103E-06 0.10000E+01 0.93834E+04 0.12481E-09 0.42179E-18 0.48895E-15 + 4 4 0.23103E-06 0.10000E+01 0.75673E+04 0.15188E-09 0.12019E-17 0.59518E-15 + 4 4 0.23103E-06 0.10000E+01 0.61026E+04 0.18585E-09 0.40144E-17 0.72106E-15 + 4 4 0.23103E-06 0.10000E+01 0.49215E+04 0.23145E-09 0.15242E-16 0.86876E-15 + 4 4 0.23103E-06 0.10000E+01 0.39689E+04 0.29983E-09 0.61685E-16 0.10404E-14 + 4 4 0.23103E-06 0.10000E+01 0.32008E+04 0.41675E-09 0.25348E-15 0.12390E-14 + 4 4 0.23103E-06 0.10000E+01 0.25813E+04 0.63965E-09 0.10320E-14 0.14714E-14 + 4 4 0.23103E-06 0.10000E+01 0.20817E+04 0.10923E-08 0.41138E-14 0.17539E-14 4 4 0.23103E-06 0.10000E+01 0.16788E+04 0.20327E-08 0.15981E-13 0.21246E-14 4 4 0.23103E-06 0.10000E+01 0.13538E+04 0.39816E-08 0.60566E-13 0.26648E-14 4 4 0.23103E-06 0.10000E+01 0.10918E+04 0.79616E-08 0.22515E-12 0.35352E-14 @@ -24410,24 +24410,24 @@ VERSION 2.8.2 4 4 0.23103E-06 0.10000E+01 0.24221E+03 0.74274E-06 0.68205E-09 0.11482E-12 4 4 0.23103E-06 0.10000E+01 0.19533E+03 0.11692E-05 0.12959E-08 0.17754E-12 4 4 0.23103E-06 0.10000E+01 0.15752E+03 0.11692E-05 0.12959E-08 0.17754E-12 - 4 4 0.40314E-06 0.10000E+01 0.80645E+05 0.34993E-53 0.26293E-64 0.22870E-58 - 4 4 0.40314E-06 0.10000E+01 0.65036E+05 0.29707E-52 0.41867E-63 0.19431E-57 - 4 4 0.40314E-06 0.10000E+01 0.52449E+05 0.25318E-51 0.56560E-62 0.16572E-56 - 4 4 0.40314E-06 0.10000E+01 0.42297E+05 0.19133E-50 0.77485E-61 0.12540E-55 - 4 4 0.40314E-06 0.10000E+01 0.34111E+05 0.13901E-49 0.10768E-59 0.91313E-55 - 4 4 0.40314E-06 0.10000E+01 0.27509E+05 0.10094E-48 0.14874E-58 0.66544E-54 - 4 4 0.40314E-06 0.10000E+01 0.22184E+05 0.73171E-48 0.20373E-57 0.48503E-53 - 4 4 0.40314E-06 0.10000E+01 0.17891E+05 0.52705E-47 0.27691E-56 0.35222E-52 - 4 4 0.40314E-06 0.10000E+01 0.14428E+05 0.37690E-46 0.37454E-55 0.25462E-51 - 4 4 0.40314E-06 0.10000E+01 0.11635E+05 0.26798E-45 0.50479E-54 0.18338E-50 - 4 4 0.40314E-06 0.10000E+01 0.93834E+04 0.18972E-44 0.67708E-53 0.13164E-49 - 4 4 0.40314E-06 0.10000E+01 0.75673E+04 0.13369E-43 0.90285E-52 0.94102E-49 - 4 4 0.40314E-06 0.10000E+01 0.61026E+04 0.93724E-43 0.12012E-50 0.66837E-48 - 4 4 0.40314E-06 0.10000E+01 0.49215E+04 0.65546E-42 0.16195E-49 0.47024E-47 - 4 4 0.40314E-06 0.10000E+01 0.39689E+04 0.46315E-41 0.23052E-48 0.32643E-46 - 4 4 0.40314E-06 0.10000E+01 0.32008E+04 0.10803E-38 0.11882E-45 0.70057E-44 - 4 4 0.40314E-06 0.10000E+01 0.25813E+04 0.47878E-30 0.14225E-36 0.24686E-35 - 4 4 0.40314E-06 0.10000E+01 0.20817E+04 0.74024E-14 0.10745E-19 0.26168E-19 + 4 4 0.40314E-06 0.10000E+01 0.80645E+05 0.23623E-10 0.15333E-21 0.15433E-15 + 4 4 0.40314E-06 0.10000E+01 0.65036E+05 0.30350E-10 0.35902E-21 0.19836E-15 + 4 4 0.40314E-06 0.10000E+01 0.52449E+05 0.38485E-10 0.83621E-21 0.25168E-15 + 4 4 0.40314E-06 0.10000E+01 0.42297E+05 0.48354E-10 0.19362E-20 0.31652E-15 + 4 4 0.40314E-06 0.10000E+01 0.34111E+05 0.60345E-10 0.44572E-20 0.39556E-15 + 4 4 0.40314E-06 0.10000E+01 0.27509E+05 0.74917E-10 0.10205E-19 0.49204E-15 + 4 4 0.40314E-06 0.10000E+01 0.22184E+05 0.92597E-10 0.23245E-19 0.60979E-15 + 4 4 0.40314E-06 0.10000E+01 0.17891E+05 0.11399E-09 0.52720E-19 0.75331E-15 + 4 4 0.40314E-06 0.10000E+01 0.14428E+05 0.13980E-09 0.11944E-18 0.92786E-15 + 4 4 0.40314E-06 0.10000E+01 0.11635E+05 0.17082E-09 0.27304E-18 0.11395E-14 + 4 4 0.40314E-06 0.10000E+01 0.93834E+04 0.20803E-09 0.64600E-18 0.13949E-14 + 4 4 0.40314E-06 0.10000E+01 0.75673E+04 0.25277E-09 0.16592E-17 0.17013E-14 + 4 4 0.40314E-06 0.10000E+01 0.61026E+04 0.30732E-09 0.48863E-17 0.20662E-14 + 4 4 0.40314E-06 0.10000E+01 0.49215E+04 0.37640E-09 0.16729E-16 0.24965E-14 + 4 4 0.40314E-06 0.10000E+01 0.39689E+04 0.47080E-09 0.63679E-16 0.29983E-14 + 4 4 0.40314E-06 0.10000E+01 0.32008E+04 0.61537E-09 0.25411E-15 0.35777E-14 + 4 4 0.40314E-06 0.10000E+01 0.25813E+04 0.86582E-09 0.10216E-14 0.42444E-14 + 4 4 0.40314E-06 0.10000E+01 0.20817E+04 0.13429E-08 0.40509E-14 0.50211E-14 4 4 0.40314E-06 0.10000E+01 0.16788E+04 0.22988E-08 0.15695E-13 0.59630E-14 4 4 0.40314E-06 0.10000E+01 0.13538E+04 0.42436E-08 0.59370E-13 0.71925E-14 4 4 0.40314E-06 0.10000E+01 0.10918E+04 0.81780E-08 0.22037E-12 0.89585E-14 @@ -24440,24 +24440,24 @@ VERSION 2.8.2 4 4 0.40314E-06 0.10000E+01 0.24221E+03 0.72533E-06 0.66458E-09 0.18552E-12 4 4 0.40314E-06 0.10000E+01 0.19533E+03 0.11411E-05 0.12626E-08 0.28334E-12 4 4 0.40314E-06 0.10000E+01 0.15752E+03 0.11411E-05 0.12626E-08 0.28334E-12 - 4 4 0.70346E-06 0.10000E+01 0.80645E+05 0.57644E-53 0.43326E-64 0.64857E-58 - 4 4 0.70346E-06 0.10000E+01 0.65036E+05 0.48948E-52 0.69002E-63 0.55113E-57 - 4 4 0.70346E-06 0.10000E+01 0.52449E+05 0.41726E-51 0.93263E-62 0.47011E-56 - 4 4 0.70346E-06 0.10000E+01 0.42297E+05 0.31544E-50 0.12787E-60 0.35580E-55 - 4 4 0.70346E-06 0.10000E+01 0.34111E+05 0.22934E-49 0.17791E-59 0.25920E-54 - 4 4 0.70346E-06 0.10000E+01 0.27509E+05 0.16672E-48 0.24623E-58 0.18901E-53 - 4 4 0.70346E-06 0.10000E+01 0.22184E+05 0.12106E-47 0.33822E-57 0.13791E-52 - 4 4 0.70346E-06 0.10000E+01 0.17891E+05 0.87418E-47 0.46143E-56 0.10030E-51 - 4 4 0.70346E-06 0.10000E+01 0.14428E+05 0.62723E-46 0.62671E-55 0.72651E-51 - 4 4 0.70346E-06 0.10000E+01 0.11635E+05 0.44773E-45 0.84821E-54 0.52449E-50 - 4 4 0.70346E-06 0.10000E+01 0.93834E+04 0.31827E-44 0.11421E-52 0.37756E-49 - 4 4 0.70346E-06 0.10000E+01 0.75673E+04 0.22514E-43 0.15263E-51 0.27079E-48 - 4 4 0.70346E-06 0.10000E+01 0.61026E+04 0.15822E-42 0.20242E-50 0.19311E-47 - 4 4 0.70346E-06 0.10000E+01 0.49215E+04 0.11042E-41 0.26798E-49 0.13659E-46 - 4 4 0.70346E-06 0.10000E+01 0.39689E+04 0.76877E-41 0.36178E-48 0.95504E-46 - 4 4 0.70346E-06 0.10000E+01 0.32008E+04 0.17142E-38 0.16623E-45 0.20696E-43 - 4 4 0.70346E-06 0.10000E+01 0.25813E+04 0.68980E-30 0.16539E-36 0.73659E-35 - 4 4 0.70346E-06 0.10000E+01 0.20817E+04 0.95501E-14 0.10740E-19 0.77108E-19 + 4 4 0.70346E-06 0.10000E+01 0.80645E+05 0.38909E-10 0.25307E-21 0.43763E-15 + 4 4 0.70346E-06 0.10000E+01 0.65036E+05 0.49996E-10 0.59331E-21 0.56252E-15 + 4 4 0.70346E-06 0.10000E+01 0.52449E+05 0.63408E-10 0.13844E-20 0.71382E-15 + 4 4 0.70346E-06 0.10000E+01 0.42297E+05 0.79690E-10 0.32130E-20 0.89785E-15 + 4 4 0.70346E-06 0.10000E+01 0.34111E+05 0.99495E-10 0.74180E-20 0.11224E-14 + 4 4 0.70346E-06 0.10000E+01 0.27509E+05 0.12359E-09 0.17039E-19 0.13966E-14 + 4 4 0.70346E-06 0.10000E+01 0.22184E+05 0.15289E-09 0.38936E-19 0.17317E-14 + 4 4 0.70346E-06 0.10000E+01 0.17891E+05 0.18841E-09 0.88495E-19 0.21408E-14 + 4 4 0.70346E-06 0.10000E+01 0.14428E+05 0.23135E-09 0.20017E-18 0.26392E-14 + 4 4 0.70346E-06 0.10000E+01 0.11635E+05 0.28307E-09 0.45249E-18 0.32448E-14 + 4 4 0.70346E-06 0.10000E+01 0.93834E+04 0.34515E-09 0.10357E-17 0.39778E-14 + 4 4 0.70346E-06 0.10000E+01 0.75673E+04 0.41950E-09 0.24764E-17 0.48604E-14 + 4 4 0.70346E-06 0.10000E+01 0.61026E+04 0.50888E-09 0.65116E-17 0.59160E-14 + 4 4 0.70346E-06 0.10000E+01 0.49215E+04 0.61822E-09 0.19703E-16 0.71671E-14 + 4 4 0.70346E-06 0.10000E+01 0.39689E+04 0.75804E-09 0.68340E-16 0.86339E-14 + 4 4 0.70346E-06 0.10000E+01 0.32008E+04 0.95211E-09 0.25872E-15 0.10333E-13 + 4 4 0.70346E-06 0.10000E+01 0.25813E+04 0.12538E-08 0.10144E-14 0.12281E-13 + 4 4 0.70346E-06 0.10000E+01 0.20817E+04 0.17796E-08 0.39781E-14 0.14510E-13 4 4 0.70346E-06 0.10000E+01 0.16788E+04 0.27737E-08 0.15331E-13 0.17092E-13 4 4 0.70346E-06 0.10000E+01 0.13538E+04 0.47312E-08 0.57815E-13 0.20201E-13 4 4 0.70346E-06 0.10000E+01 0.10918E+04 0.86234E-08 0.21410E-12 0.24202E-13 @@ -24470,24 +24470,24 @@ VERSION 2.8.2 4 4 0.70346E-06 0.10000E+01 0.24221E+03 0.70288E-06 0.64186E-09 0.30265E-12 4 4 0.70346E-06 0.10000E+01 0.19533E+03 0.11048E-05 0.12193E-08 0.45212E-12 4 4 0.70346E-06 0.10000E+01 0.15752E+03 0.11048E-05 0.12193E-08 0.45212E-12 - 4 4 0.12275E-05 0.10000E+01 0.80645E+05 0.94551E-53 0.71085E-64 0.18343E-57 - 4 4 0.12275E-05 0.10000E+01 0.65036E+05 0.80305E-52 0.11323E-62 0.15589E-56 - 4 4 0.12275E-05 0.10000E+01 0.52449E+05 0.68469E-51 0.15311E-61 0.13299E-55 - 4 4 0.12275E-05 0.10000E+01 0.42297E+05 0.51780E-50 0.21007E-60 0.10068E-54 - 4 4 0.12275E-05 0.10000E+01 0.34111E+05 0.37669E-49 0.29258E-59 0.73369E-54 - 4 4 0.12275E-05 0.10000E+01 0.27509E+05 0.27410E-48 0.40563E-58 0.53534E-53 - 4 4 0.12275E-05 0.10000E+01 0.22184E+05 0.19932E-47 0.55853E-57 0.39095E-52 - 4 4 0.12275E-05 0.10000E+01 0.17891E+05 0.14425E-46 0.76448E-56 0.28470E-51 - 4 4 0.12275E-05 0.10000E+01 0.14428E+05 0.10380E-45 0.10422E-54 0.20658E-50 - 4 4 0.12275E-05 0.10000E+01 0.11635E+05 0.74354E-45 0.14161E-53 0.14945E-49 - 4 4 0.12275E-05 0.10000E+01 0.93834E+04 0.53056E-44 0.19144E-52 0.10785E-48 - 4 4 0.12275E-05 0.10000E+01 0.75673E+04 0.37680E-43 0.25683E-51 0.77569E-48 - 4 4 0.12275E-05 0.10000E+01 0.61026E+04 0.26581E-42 0.34128E-50 0.55514E-47 - 4 4 0.12275E-05 0.10000E+01 0.49215E+04 0.18591E-41 0.44958E-49 0.39445E-46 - 4 4 0.12275E-05 0.10000E+01 0.39689E+04 0.12897E-40 0.59232E-48 0.27748E-45 - 4 4 0.12275E-05 0.10000E+01 0.32008E+04 0.28177E-38 0.25338E-45 0.60627E-43 - 4 4 0.12275E-05 0.10000E+01 0.25813E+04 0.10682E-29 0.21260E-36 0.21779E-34 - 4 4 0.12275E-05 0.10000E+01 0.20817E+04 0.13409E-13 0.10995E-19 0.22675E-18 + 4 4 0.12275E-05 0.10000E+01 0.80645E+05 0.63814E-10 0.41582E-21 0.12376E-14 + 4 4 0.12275E-05 0.10000E+01 0.65036E+05 0.82006E-10 0.97592E-21 0.15909E-14 + 4 4 0.12275E-05 0.10000E+01 0.52449E+05 0.10402E-09 0.22806E-20 0.20190E-14 + 4 4 0.12275E-05 0.10000E+01 0.42297E+05 0.13077E-09 0.53042E-20 0.25400E-14 + 4 4 0.12275E-05 0.10000E+01 0.34111E+05 0.16333E-09 0.12278E-19 0.31758E-14 + 4 4 0.12275E-05 0.10000E+01 0.27509E+05 0.20299E-09 0.28289E-19 0.39532E-14 + 4 4 0.12275E-05 0.10000E+01 0.22184E+05 0.25128E-09 0.64857E-19 0.49039E-14 + 4 4 0.12275E-05 0.10000E+01 0.17891E+05 0.30996E-09 0.14787E-18 0.60660E-14 + 4 4 0.12275E-05 0.10000E+01 0.14428E+05 0.38105E-09 0.33505E-18 0.74840E-14 + 4 4 0.12275E-05 0.10000E+01 0.11635E+05 0.46689E-09 0.75516E-18 0.92105E-14 + 4 4 0.12275E-05 0.10000E+01 0.93834E+04 0.57009E-09 0.17027E-17 0.11305E-13 + 4 4 0.12275E-05 0.10000E+01 0.75673E+04 0.69369E-09 0.39067E-17 0.13836E-13 + 4 4 0.12275E-05 0.10000E+01 0.61026E+04 0.84145E-09 0.94576E-17 0.16874E-13 + 4 4 0.12275E-05 0.10000E+01 0.49215E+04 0.10190E-08 0.25416E-16 0.20492E-13 + 4 4 0.12275E-05 0.10000E+01 0.39689E+04 0.12371E-08 0.78400E-16 0.24758E-13 + 4 4 0.12275E-05 0.10000E+01 0.32008E+04 0.15184E-08 0.27327E-15 0.29727E-13 + 4 4 0.12275E-05 0.10000E+01 0.25813E+04 0.19138E-08 0.10238E-14 0.35445E-13 + 4 4 0.12275E-05 0.10000E+01 0.20817E+04 0.25345E-08 0.39280E-14 0.41962E-13 4 4 0.12275E-05 0.10000E+01 0.16788E+04 0.36153E-08 0.14981E-13 0.49372E-13 4 4 0.12275E-05 0.10000E+01 0.13538E+04 0.56334E-08 0.56181E-13 0.57903E-13 4 4 0.12275E-05 0.10000E+01 0.10918E+04 0.95270E-08 0.20730E-12 0.68060E-13 @@ -24500,24 +24500,24 @@ VERSION 2.8.2 4 4 0.12275E-05 0.10000E+01 0.24221E+03 0.67864E-06 0.61655E-09 0.51657E-12 4 4 0.12275E-05 0.10000E+01 0.19533E+03 0.10651E-05 0.11711E-08 0.74295E-12 4 4 0.12275E-05 0.10000E+01 0.15752E+03 0.10651E-05 0.11711E-08 0.74295E-12 - 4 4 0.21419E-05 0.10000E+01 0.80645E+05 0.15450E-52 0.11619E-63 0.51746E-57 - 4 4 0.21419E-05 0.10000E+01 0.65036E+05 0.13125E-51 0.18510E-62 0.43983E-56 - 4 4 0.21419E-05 0.10000E+01 0.52449E+05 0.11192E-50 0.25038E-61 0.37526E-55 - 4 4 0.21419E-05 0.10000E+01 0.42297E+05 0.84668E-50 0.34373E-60 0.28413E-54 - 4 4 0.21419E-05 0.10000E+01 0.34111E+05 0.61628E-49 0.47920E-59 0.20713E-53 - 4 4 0.21419E-05 0.10000E+01 0.27509E+05 0.44881E-48 0.66531E-58 0.15121E-52 - 4 4 0.21419E-05 0.10000E+01 0.22184E+05 0.32679E-47 0.91808E-57 0.11051E-51 - 4 4 0.21419E-05 0.10000E+01 0.17891E+05 0.23695E-46 0.12602E-55 0.80572E-51 - 4 4 0.21419E-05 0.10000E+01 0.14428E+05 0.17095E-45 0.17235E-54 0.58554E-50 - 4 4 0.21419E-05 0.10000E+01 0.11635E+05 0.12282E-44 0.23502E-53 0.42440E-49 - 4 4 0.21419E-05 0.10000E+01 0.93834E+04 0.87940E-44 0.31897E-52 0.30691E-48 - 4 4 0.21419E-05 0.10000E+01 0.75673E+04 0.62691E-43 0.42976E-51 0.22130E-47 - 4 4 0.21419E-05 0.10000E+01 0.61026E+04 0.44405E-42 0.57338E-50 0.15886E-46 - 4 4 0.21419E-05 0.10000E+01 0.49215E+04 0.31179E-41 0.75646E-49 0.11332E-45 - 4 4 0.21419E-05 0.10000E+01 0.39689E+04 0.21669E-40 0.98895E-48 0.80133E-45 - 4 4 0.21419E-05 0.10000E+01 0.32008E+04 0.47046E-38 0.40811E-45 0.17630E-42 - 4 4 0.21419E-05 0.10000E+01 0.25813E+04 0.17293E-29 0.30238E-36 0.63849E-34 - 4 4 0.21419E-05 0.10000E+01 0.20817E+04 0.20171E-13 0.11780E-19 0.66351E-18 + 4 4 0.21419E-05 0.10000E+01 0.80645E+05 0.10427E-09 0.68050E-21 0.34911E-14 + 4 4 0.21419E-05 0.10000E+01 0.65036E+05 0.13400E-09 0.15986E-20 0.44881E-14 + 4 4 0.21419E-05 0.10000E+01 0.52449E+05 0.17000E-09 0.37410E-20 0.56963E-14 + 4 4 0.21419E-05 0.10000E+01 0.42297E+05 0.21376E-09 0.87166E-20 0.71670E-14 + 4 4 0.21419E-05 0.10000E+01 0.34111E+05 0.26707E-09 0.20223E-19 0.89629E-14 + 4 4 0.21419E-05 0.10000E+01 0.27509E+05 0.33209E-09 0.46723E-19 0.11160E-13 + 4 4 0.21419E-05 0.10000E+01 0.22184E+05 0.41135E-09 0.10746E-18 0.13850E-13 + 4 4 0.21419E-05 0.10000E+01 0.17891E+05 0.50783E-09 0.24582E-18 0.17141E-13 + 4 4 0.21419E-05 0.10000E+01 0.14428E+05 0.62498E-09 0.55871E-18 0.21163E-13 + 4 4 0.21419E-05 0.10000E+01 0.11635E+05 0.76675E-09 0.12608E-17 0.26067E-13 + 4 4 0.21419E-05 0.10000E+01 0.93834E+04 0.93762E-09 0.28294E-17 0.32032E-13 + 4 4 0.21419E-05 0.10000E+01 0.75673E+04 0.11426E-08 0.63637E-17 0.39256E-13 + 4 4 0.21419E-05 0.10000E+01 0.61026E+04 0.13874E-08 0.14649E-16 0.47959E-13 + 4 4 0.21419E-05 0.10000E+01 0.49215E+04 0.16795E-08 0.35900E-16 0.58369E-13 + 4 4 0.21419E-05 0.10000E+01 0.39689E+04 0.20304E-08 0.98204E-16 0.70708E-13 + 4 4 0.21419E-05 0.10000E+01 0.32008E+04 0.24625E-08 0.30675E-15 0.85174E-13 + 4 4 0.21419E-05 0.10000E+01 0.25813E+04 0.30242E-08 0.10676E-14 0.10192E-12 + 4 4 0.21419E-05 0.10000E+01 0.20817E+04 0.38205E-08 0.39341E-14 0.12109E-12 4 4 0.21419E-05 0.10000E+01 0.16788E+04 0.50750E-08 0.14704E-13 0.14282E-12 4 4 0.21419E-05 0.10000E+01 0.13538E+04 0.72445E-08 0.54565E-13 0.16742E-12 4 4 0.21419E-05 0.10000E+01 0.10918E+04 0.11228E-07 0.20012E-12 0.19558E-12 @@ -24530,24 +24530,24 @@ VERSION 2.8.2 4 4 0.21419E-05 0.10000E+01 0.24221E+03 0.65318E-06 0.58862E-09 0.97930E-12 4 4 0.21419E-05 0.10000E+01 0.19533E+03 0.10226E-05 0.11179E-08 0.13327E-11 4 4 0.21419E-05 0.10000E+01 0.15752E+03 0.10226E-05 0.11179E-08 0.13327E-11 - 4 4 0.37375E-05 0.10000E+01 0.80645E+05 0.25161E-52 0.18925E-63 0.14544E-56 - 4 4 0.37375E-05 0.10000E+01 0.65036E+05 0.21378E-51 0.30154E-62 0.12363E-55 - 4 4 0.37375E-05 0.10000E+01 0.52449E+05 0.18233E-50 0.40802E-61 0.10549E-54 - 4 4 0.37375E-05 0.10000E+01 0.42297E+05 0.13797E-49 0.56046E-60 0.79888E-54 - 4 4 0.37375E-05 0.10000E+01 0.34111E+05 0.10047E-48 0.78199E-59 0.58255E-53 - 4 4 0.37375E-05 0.10000E+01 0.27509E+05 0.73221E-48 0.10871E-57 0.42548E-52 - 4 4 0.37375E-05 0.10000E+01 0.22184E+05 0.53375E-47 0.15029E-56 0.31118E-51 - 4 4 0.37375E-05 0.10000E+01 0.17891E+05 0.38766E-46 0.20680E-55 0.22710E-50 - 4 4 0.37375E-05 0.10000E+01 0.14428E+05 0.28030E-45 0.28364E-54 0.16526E-49 - 4 4 0.37375E-05 0.10000E+01 0.11635E+05 0.20193E-44 0.38799E-53 0.11998E-48 - 4 4 0.37375E-05 0.10000E+01 0.93834E+04 0.14502E-43 0.52848E-52 0.86925E-48 - 4 4 0.37375E-05 0.10000E+01 0.75673E+04 0.10374E-42 0.71501E-51 0.62813E-47 - 4 4 0.37375E-05 0.10000E+01 0.61026E+04 0.73768E-42 0.95844E-50 0.45212E-46 - 4 4 0.37375E-05 0.10000E+01 0.49215E+04 0.52025E-41 0.12699E-48 0.32361E-45 - 4 4 0.37375E-05 0.10000E+01 0.39689E+04 0.36305E-40 0.16614E-47 0.22986E-44 - 4 4 0.37375E-05 0.10000E+01 0.32008E+04 0.78893E-38 0.67641E-45 0.50869E-42 - 4 4 0.37375E-05 0.10000E+01 0.25813E+04 0.28630E-29 0.46571E-36 0.18550E-33 - 4 4 0.37375E-05 0.10000E+01 0.20817E+04 0.31809E-13 0.13581E-19 0.19271E-17 + 4 4 0.37375E-05 0.10000E+01 0.80645E+05 0.16979E-09 0.11097E-20 0.98118E-14 + 4 4 0.37375E-05 0.10000E+01 0.65036E+05 0.21823E-09 0.26091E-20 0.12614E-13 + 4 4 0.37375E-05 0.10000E+01 0.52449E+05 0.27689E-09 0.61128E-20 0.16011E-13 + 4 4 0.37375E-05 0.10000E+01 0.42297E+05 0.34823E-09 0.14266E-19 0.20148E-13 + 4 4 0.37375E-05 0.10000E+01 0.34111E+05 0.43520E-09 0.33166E-19 0.25201E-13 + 4 4 0.37375E-05 0.10000E+01 0.27509E+05 0.54137E-09 0.76813E-19 0.31387E-13 + 4 4 0.37375E-05 0.10000E+01 0.22184E+05 0.67096E-09 0.17717E-18 0.38965E-13 + 4 4 0.37375E-05 0.10000E+01 0.17891E+05 0.82895E-09 0.40662E-18 0.48247E-13 + 4 4 0.37375E-05 0.10000E+01 0.14428E+05 0.10212E-08 0.92743E-18 0.59604E-13 + 4 4 0.37375E-05 0.10000E+01 0.11635E+05 0.12543E-08 0.20993E-17 0.73475E-13 + 4 4 0.37375E-05 0.10000E+01 0.93834E+04 0.15360E-08 0.47137E-17 0.90375E-13 + 4 4 0.37375E-05 0.10000E+01 0.75673E+04 0.18747E-08 0.10525E-16 0.11089E-12 + 4 4 0.37375E-05 0.10000E+01 0.61026E+04 0.22799E-08 0.23615E-16 0.13568E-12 + 4 4 0.37375E-05 0.10000E+01 0.49215E+04 0.27624E-08 0.54550E-16 0.16545E-12 + 4 4 0.37375E-05 0.10000E+01 0.39689E+04 0.33364E-08 0.13516E-15 0.20091E-12 + 4 4 0.37375E-05 0.10000E+01 0.32008E+04 0.40253E-08 0.37494E-15 0.24273E-12 + 4 4 0.37375E-05 0.10000E+01 0.25813E+04 0.48757E-08 0.11785E-14 0.29148E-12 + 4 4 0.37375E-05 0.10000E+01 0.20817E+04 0.59866E-08 0.40618E-14 0.34766E-12 4 4 0.37375E-05 0.10000E+01 0.16788E+04 0.75687E-08 0.14626E-13 0.41169E-12 4 4 0.37375E-05 0.10000E+01 0.13538E+04 0.10055E-07 0.53209E-13 0.48413E-12 4 4 0.37375E-05 0.10000E+01 0.10918E+04 0.14299E-07 0.19302E-12 0.56604E-12 @@ -24560,24 +24560,24 @@ VERSION 2.8.2 4 4 0.37375E-05 0.10000E+01 0.24221E+03 0.62794E-06 0.55828E-09 0.21678E-11 4 4 0.37375E-05 0.10000E+01 0.19533E+03 0.97904E-06 0.10601E-08 0.27819E-11 4 4 0.37375E-05 0.10000E+01 0.15752E+03 0.97904E-06 0.10601E-08 0.27819E-11 - 4 4 0.65217E-05 0.10000E+01 0.80645E+05 0.40843E-52 0.30726E-63 0.40452E-56 - 4 4 0.65217E-05 0.10000E+01 0.65036E+05 0.34707E-51 0.48963E-62 0.34390E-55 - 4 4 0.65217E-05 0.10000E+01 0.52449E+05 0.29605E-50 0.66272E-61 0.29346E-54 - 4 4 0.65217E-05 0.10000E+01 0.42297E+05 0.22407E-49 0.91076E-60 0.22227E-53 - 4 4 0.65217E-05 0.10000E+01 0.34111E+05 0.16324E-48 0.12716E-58 0.16212E-52 - 4 4 0.65217E-05 0.10000E+01 0.27509E+05 0.11905E-47 0.17697E-57 0.11846E-51 - 4 4 0.65217E-05 0.10000E+01 0.22184E+05 0.86866E-47 0.24507E-56 0.86686E-51 - 4 4 0.65217E-05 0.10000E+01 0.17891E+05 0.63182E-46 0.33794E-55 0.63318E-50 - 4 4 0.65217E-05 0.10000E+01 0.14428E+05 0.45773E-45 0.46469E-54 0.46131E-49 - 4 4 0.65217E-05 0.10000E+01 0.11635E+05 0.33052E-44 0.63741E-53 0.33537E-48 - 4 4 0.65217E-05 0.10000E+01 0.93834E+04 0.23800E-43 0.87100E-52 0.24337E-47 - 4 4 0.65217E-05 0.10000E+01 0.75673E+04 0.17077E-42 0.11830E-50 0.17619E-46 - 4 4 0.65217E-05 0.10000E+01 0.61026E+04 0.12188E-41 0.15931E-49 0.12711E-45 - 4 4 0.65217E-05 0.10000E+01 0.49215E+04 0.86329E-41 0.21218E-48 0.91243E-45 - 4 4 0.65217E-05 0.10000E+01 0.39689E+04 0.60537E-40 0.27882E-47 0.65053E-44 - 4 4 0.65217E-05 0.10000E+01 0.32008E+04 0.13208E-37 0.11335E-44 0.14467E-41 - 4 4 0.65217E-05 0.10000E+01 0.25813E+04 0.47789E-29 0.75377E-36 0.53061E-33 - 4 4 0.65217E-05 0.10000E+01 0.20817E+04 0.51547E-13 0.17246E-19 0.55135E-17 + 4 4 0.65217E-05 0.10000E+01 0.80645E+05 0.27559E-09 0.18034E-20 0.27289E-13 + 4 4 0.65217E-05 0.10000E+01 0.65036E+05 0.35424E-09 0.42433E-20 0.35085E-13 + 4 4 0.65217E-05 0.10000E+01 0.52449E+05 0.44952E-09 0.99521E-20 0.44537E-13 + 4 4 0.65217E-05 0.10000E+01 0.42297E+05 0.56542E-09 0.23259E-19 0.56048E-13 + 4 4 0.65217E-05 0.10000E+01 0.34111E+05 0.70682E-09 0.54170E-19 0.70117E-13 + 4 4 0.65217E-05 0.10000E+01 0.27509E+05 0.87958E-09 0.12573E-18 0.87347E-13 + 4 4 0.65217E-05 0.10000E+01 0.22184E+05 0.10907E-08 0.29074E-18 0.10847E-12 + 4 4 0.65217E-05 0.10000E+01 0.17891E+05 0.13484E-08 0.66930E-18 0.13436E-12 + 4 4 0.65217E-05 0.10000E+01 0.14428E+05 0.16625E-08 0.15319E-17 0.16608E-12 + 4 4 0.65217E-05 0.10000E+01 0.11635E+05 0.20442E-08 0.34805E-17 0.20487E-12 + 4 4 0.65217E-05 0.10000E+01 0.93834E+04 0.25065E-08 0.78382E-17 0.25220E-12 + 4 4 0.65217E-05 0.10000E+01 0.75673E+04 0.30640E-08 0.17495E-16 0.30979E-12 + 4 4 0.65217E-05 0.10000E+01 0.61026E+04 0.37325E-08 0.38853E-16 0.37954E-12 + 4 4 0.65217E-05 0.10000E+01 0.49215E+04 0.45292E-08 0.86964E-16 0.46357E-12 + 4 4 0.65217E-05 0.10000E+01 0.39689E+04 0.54744E-08 0.20165E-15 0.56408E-12 + 4 4 0.65217E-05 0.10000E+01 0.32008E+04 0.65955E-08 0.50481E-15 0.68325E-12 + 4 4 0.65217E-05 0.10000E+01 0.25813E+04 0.79393E-08 0.14140E-14 0.82310E-12 + 4 4 0.65217E-05 0.10000E+01 0.20817E+04 0.96002E-08 0.44322E-14 0.98544E-12 4 4 0.65217E-05 0.10000E+01 0.16788E+04 0.11776E-07 0.14997E-13 0.11719E-11 4 4 0.65217E-05 0.10000E+01 0.13538E+04 0.14872E-07 0.52633E-13 0.13841E-11 4 4 0.65217E-05 0.10000E+01 0.10918E+04 0.19694E-07 0.18711E-12 0.16247E-11 @@ -24590,24 +24590,24 @@ VERSION 2.8.2 4 4 0.65217E-05 0.10000E+01 0.24221E+03 0.60588E-06 0.52618E-09 0.55072E-11 4 4 0.65217E-05 0.10000E+01 0.19533E+03 0.93787E-06 0.99882E-09 0.67770E-11 4 4 0.65217E-05 0.10000E+01 0.15752E+03 0.93787E-06 0.99882E-09 0.67770E-11 - 4 4 0.11380E-04 0.10000E+01 0.80645E+05 0.66059E-52 0.49705E-63 0.10899E-55 - 4 4 0.11380E-04 0.10000E+01 0.65036E+05 0.56142E-51 0.79214E-62 0.92663E-55 - 4 4 0.11380E-04 0.10000E+01 0.52449E+05 0.47895E-50 0.10724E-60 0.79077E-54 - 4 4 0.11380E-04 0.10000E+01 0.42297E+05 0.36258E-49 0.14744E-59 0.59901E-53 - 4 4 0.11380E-04 0.10000E+01 0.34111E+05 0.26424E-48 0.20600E-58 0.43700E-52 - 4 4 0.11380E-04 0.10000E+01 0.27509E+05 0.19281E-47 0.28696E-57 0.31940E-51 - 4 4 0.11380E-04 0.10000E+01 0.22184E+05 0.14081E-46 0.39795E-56 0.23385E-50 - 4 4 0.11380E-04 0.10000E+01 0.17891E+05 0.10255E-45 0.54978E-55 0.17093E-49 - 4 4 0.11380E-04 0.10000E+01 0.14428E+05 0.74418E-45 0.75761E-54 0.12465E-48 - 4 4 0.11380E-04 0.10000E+01 0.11635E+05 0.53847E-44 0.10417E-52 0.90723E-48 - 4 4 0.11380E-04 0.10000E+01 0.93834E+04 0.38864E-43 0.14275E-51 0.65920E-47 - 4 4 0.11380E-04 0.10000E+01 0.75673E+04 0.27961E-42 0.19454E-50 0.47797E-46 - 4 4 0.11380E-04 0.10000E+01 0.61026E+04 0.20020E-41 0.26310E-49 0.34546E-45 - 4 4 0.11380E-04 0.10000E+01 0.49215E+04 0.14236E-40 0.35224E-48 0.24855E-44 - 4 4 0.11380E-04 0.10000E+01 0.39689E+04 0.10031E-39 0.46550E-47 0.17774E-43 - 4 4 0.11380E-04 0.10000E+01 0.32008E+04 0.21996E-37 0.19003E-44 0.39683E-41 - 4 4 0.11380E-04 0.10000E+01 0.25813E+04 0.79734E-29 0.12494E-35 0.14620E-32 - 4 4 0.11380E-04 0.10000E+01 0.20817E+04 0.84561E-13 0.24213E-19 0.15197E-16 + 4 4 0.11380E-04 0.10000E+01 0.80645E+05 0.44570E-09 0.29198E-20 0.73521E-13 + 4 4 0.11380E-04 0.10000E+01 0.65036E+05 0.57295E-09 0.68745E-20 0.94528E-13 + 4 4 0.11380E-04 0.10000E+01 0.52449E+05 0.72712E-09 0.16138E-19 0.12000E-12 + 4 4 0.11380E-04 0.10000E+01 0.42297E+05 0.91474E-09 0.37762E-19 0.15103E-12 + 4 4 0.11380E-04 0.10000E+01 0.34111E+05 0.11437E-08 0.88085E-19 0.18896E-12 + 4 4 0.11380E-04 0.10000E+01 0.27509E+05 0.14237E-08 0.20484E-18 0.23544E-12 + 4 4 0.11380E-04 0.10000E+01 0.22184E+05 0.17662E-08 0.47474E-18 0.29245E-12 + 4 4 0.11380E-04 0.10000E+01 0.17891E+05 0.21848E-08 0.10958E-17 0.36238E-12 + 4 4 0.11380E-04 0.10000E+01 0.14428E+05 0.26957E-08 0.25162E-17 0.44811E-12 + 4 4 0.11380E-04 0.10000E+01 0.11635E+05 0.33179E-08 0.57380E-17 0.55307E-12 + 4 4 0.11380E-04 0.10000E+01 0.93834E+04 0.40731E-08 0.12973E-16 0.68133E-12 + 4 4 0.11380E-04 0.10000E+01 0.75673E+04 0.49859E-08 0.29035E-16 0.83761E-12 + 4 4 0.11380E-04 0.10000E+01 0.61026E+04 0.60835E-08 0.64374E-16 0.10273E-11 + 4 4 0.11380E-04 0.10000E+01 0.49215E+04 0.73950E-08 0.14219E-15 0.12564E-11 + 4 4 0.11380E-04 0.10000E+01 0.39689E+04 0.89518E-08 0.31793E-15 0.15314E-11 + 4 4 0.11380E-04 0.10000E+01 0.32008E+04 0.10791E-07 0.74138E-15 0.18588E-11 + 4 4 0.11380E-04 0.10000E+01 0.25813E+04 0.12965E-07 0.18741E-14 0.22452E-11 + 4 4 0.11380E-04 0.10000E+01 0.20817E+04 0.15569E-07 0.52668E-14 0.26965E-11 4 4 0.11380E-04 0.10000E+01 0.16788E+04 0.18789E-07 0.16319E-13 0.32187E-11 4 4 0.11380E-04 0.10000E+01 0.13538E+04 0.23009E-07 0.54006E-13 0.38178E-11 4 4 0.11380E-04 0.10000E+01 0.10918E+04 0.28983E-07 0.18530E-12 0.45013E-11 @@ -24620,24 +24620,24 @@ VERSION 2.8.2 4 4 0.11380E-04 0.10000E+01 0.24221E+03 0.59477E-06 0.49584E-09 0.14770E-10 4 4 0.11380E-04 0.10000E+01 0.19533E+03 0.90942E-06 0.94079E-09 0.17799E-10 4 4 0.11380E-04 0.10000E+01 0.15752E+03 0.90942E-06 0.94079E-09 0.17799E-10 - 4 4 0.19857E-04 0.10000E+01 0.80645E+05 0.10925E-51 0.82209E-63 0.24559E-55 - 4 4 0.19857E-04 0.10000E+01 0.65036E+05 0.92855E-51 0.13102E-61 0.20882E-54 - 4 4 0.19857E-04 0.10000E+01 0.52449E+05 0.79220E-50 0.17741E-60 0.17821E-53 - 4 4 0.19857E-04 0.10000E+01 0.42297E+05 0.59979E-49 0.24398E-59 0.13500E-52 - 4 4 0.19857E-04 0.10000E+01 0.34111E+05 0.43720E-48 0.34099E-58 0.98499E-52 - 4 4 0.19857E-04 0.10000E+01 0.27509E+05 0.31912E-47 0.47528E-57 0.72004E-51 - 4 4 0.19857E-04 0.10000E+01 0.22184E+05 0.23318E-46 0.65964E-56 0.52732E-50 - 4 4 0.19857E-04 0.10000E+01 0.17891E+05 0.16994E-45 0.91231E-55 0.38558E-49 - 4 4 0.19857E-04 0.10000E+01 0.14428E+05 0.12345E-44 0.12588E-53 0.28132E-48 - 4 4 0.19857E-04 0.10000E+01 0.11635E+05 0.89427E-44 0.17333E-52 0.20487E-47 - 4 4 0.19857E-04 0.10000E+01 0.93834E+04 0.64632E-43 0.23790E-51 0.14896E-46 - 4 4 0.19857E-04 0.10000E+01 0.75673E+04 0.46572E-42 0.32487E-50 0.10810E-45 - 4 4 0.19857E-04 0.10000E+01 0.61026E+04 0.33409E-41 0.44047E-49 0.78203E-45 - 4 4 0.19857E-04 0.10000E+01 0.49215E+04 0.23813E-40 0.59156E-48 0.56335E-44 - 4 4 0.19857E-04 0.10000E+01 0.39689E+04 0.16828E-39 0.78475E-47 0.40349E-43 - 4 4 0.19857E-04 0.10000E+01 0.32008E+04 0.37025E-37 0.32161E-44 0.90264E-41 - 4 4 0.19857E-04 0.10000E+01 0.25813E+04 0.13453E-28 0.21134E-35 0.33332E-32 - 4 4 0.19857E-04 0.10000E+01 0.20817E+04 0.14172E-12 0.38230E-19 0.34655E-16 + 4 4 0.19857E-04 0.10000E+01 0.80645E+05 0.73707E-09 0.48317E-20 0.16567E-12 + 4 4 0.19857E-04 0.10000E+01 0.65036E+05 0.94753E-09 0.11380E-19 0.21301E-12 + 4 4 0.19857E-04 0.10000E+01 0.52449E+05 0.12026E-08 0.26729E-19 0.27042E-12 + 4 4 0.19857E-04 0.10000E+01 0.42297E+05 0.15130E-08 0.62590E-19 0.34036E-12 + 4 4 0.19857E-04 0.10000E+01 0.34111E+05 0.18920E-08 0.14613E-18 0.42587E-12 + 4 4 0.19857E-04 0.10000E+01 0.27509E+05 0.23557E-08 0.34019E-18 0.53067E-12 + 4 4 0.19857E-04 0.10000E+01 0.22184E+05 0.29230E-08 0.78950E-18 0.65925E-12 + 4 4 0.19857E-04 0.10000E+01 0.17891E+05 0.36170E-08 0.18252E-17 0.81703E-12 + 4 4 0.19857E-04 0.10000E+01 0.14428E+05 0.44648E-08 0.41991E-17 0.10106E-11 + 4 4 0.19857E-04 0.10000E+01 0.11635E+05 0.54983E-08 0.95978E-17 0.12476E-11 + 4 4 0.19857E-04 0.10000E+01 0.93834E+04 0.67545E-08 0.21756E-16 0.15375E-11 + 4 4 0.19857E-04 0.10000E+01 0.75673E+04 0.82752E-08 0.48819E-16 0.18910E-11 + 4 4 0.19857E-04 0.10000E+01 0.61026E+04 0.10107E-07 0.10837E-15 0.23206E-11 + 4 4 0.19857E-04 0.10000E+01 0.49215E+04 0.12300E-07 0.23871E-15 0.28402E-11 + 4 4 0.19857E-04 0.10000E+01 0.39689E+04 0.14907E-07 0.52721E-15 0.34649E-11 + 4 4 0.19857E-04 0.10000E+01 0.32008E+04 0.17986E-07 0.11937E-14 0.42103E-11 + 4 4 0.19857E-04 0.10000E+01 0.25813E+04 0.21612E-07 0.28648E-14 0.50924E-11 + 4 4 0.19857E-04 0.10000E+01 0.20817E+04 0.25903E-07 0.75228E-14 0.61265E-11 4 4 0.19857E-04 0.10000E+01 0.16788E+04 0.31085E-07 0.21808E-13 0.73278E-11 4 4 0.19857E-04 0.10000E+01 0.13538E+04 0.37604E-07 0.68542E-13 0.87121E-11 4 4 0.19857E-04 0.10000E+01 0.10918E+04 0.46340E-07 0.22721E-12 0.10299E-10 @@ -24650,24 +24650,24 @@ VERSION 2.8.2 4 4 0.19857E-04 0.10000E+01 0.24221E+03 0.72182E-06 0.57717E-09 0.33803E-10 4 4 0.19857E-04 0.10000E+01 0.19533E+03 0.10903E-05 0.10945E-08 0.40470E-10 4 4 0.19857E-04 0.10000E+01 0.15752E+03 0.10903E-05 0.10945E-08 0.40470E-10 - 4 4 0.34650E-04 0.10000E+01 0.80645E+05 0.19063E-51 0.14345E-62 0.42854E-55 - 4 4 0.34650E-04 0.10000E+01 0.65036E+05 0.16203E-50 0.22863E-61 0.36437E-54 - 4 4 0.34650E-04 0.10000E+01 0.52449E+05 0.13823E-49 0.30958E-60 0.31096E-53 - 4 4 0.34650E-04 0.10000E+01 0.42297E+05 0.10466E-48 0.42572E-59 0.23557E-52 - 4 4 0.34650E-04 0.10000E+01 0.34111E+05 0.76290E-48 0.59501E-58 0.17187E-51 - 4 4 0.34650E-04 0.10000E+01 0.27509E+05 0.55685E-47 0.82933E-57 0.12564E-50 - 4 4 0.34650E-04 0.10000E+01 0.22184E+05 0.40688E-46 0.11510E-55 0.92013E-50 - 4 4 0.34650E-04 0.10000E+01 0.17891E+05 0.29654E-45 0.15919E-54 0.67282E-49 - 4 4 0.34650E-04 0.10000E+01 0.14428E+05 0.21540E-44 0.21965E-53 0.49089E-48 - 4 4 0.34650E-04 0.10000E+01 0.11635E+05 0.15604E-43 0.30244E-52 0.35749E-47 - 4 4 0.34650E-04 0.10000E+01 0.93834E+04 0.11278E-42 0.41512E-51 0.25993E-46 - 4 4 0.34650E-04 0.10000E+01 0.75673E+04 0.81266E-42 0.56688E-50 0.18862E-45 - 4 4 0.34650E-04 0.10000E+01 0.61026E+04 0.58296E-41 0.76860E-49 0.13646E-44 - 4 4 0.34650E-04 0.10000E+01 0.49215E+04 0.41552E-40 0.10322E-47 0.98301E-44 - 4 4 0.34650E-04 0.10000E+01 0.39689E+04 0.29363E-39 0.13693E-46 0.70406E-43 - 4 4 0.34650E-04 0.10000E+01 0.32008E+04 0.64606E-37 0.56119E-44 0.15750E-40 - 4 4 0.34650E-04 0.10000E+01 0.25813E+04 0.23475E-28 0.36878E-35 0.58161E-32 - 4 4 0.34650E-04 0.10000E+01 0.20817E+04 0.24729E-12 0.66709E-19 0.60471E-16 + 4 4 0.34650E-04 0.10000E+01 0.80645E+05 0.12862E-08 0.84310E-20 0.28908E-12 + 4 4 0.34650E-04 0.10000E+01 0.65036E+05 0.16534E-08 0.19857E-19 0.37169E-12 + 4 4 0.34650E-04 0.10000E+01 0.52449E+05 0.20984E-08 0.46641E-19 0.47186E-12 + 4 4 0.34650E-04 0.10000E+01 0.42297E+05 0.26401E-08 0.10922E-18 0.59390E-12 + 4 4 0.34650E-04 0.10000E+01 0.34111E+05 0.33015E-08 0.25499E-18 0.74312E-12 + 4 4 0.34650E-04 0.10000E+01 0.27509E+05 0.41105E-08 0.59362E-18 0.92599E-12 + 4 4 0.34650E-04 0.10000E+01 0.22184E+05 0.51005E-08 0.13776E-17 0.11503E-11 + 4 4 0.34650E-04 0.10000E+01 0.17891E+05 0.63115E-08 0.31849E-17 0.14257E-11 + 4 4 0.34650E-04 0.10000E+01 0.14428E+05 0.77909E-08 0.73271E-17 0.17634E-11 + 4 4 0.34650E-04 0.10000E+01 0.11635E+05 0.95943E-08 0.16748E-16 0.21770E-11 + 4 4 0.34650E-04 0.10000E+01 0.93834E+04 0.11786E-07 0.37963E-16 0.26829E-11 + 4 4 0.34650E-04 0.10000E+01 0.75673E+04 0.14440E-07 0.85186E-16 0.32997E-11 + 4 4 0.34650E-04 0.10000E+01 0.61026E+04 0.17636E-07 0.18911E-15 0.40494E-11 + 4 4 0.34650E-04 0.10000E+01 0.49215E+04 0.21462E-07 0.41654E-15 0.49560E-11 + 4 4 0.34650E-04 0.10000E+01 0.39689E+04 0.26011E-07 0.91994E-15 0.60460E-11 + 4 4 0.34650E-04 0.10000E+01 0.32008E+04 0.31384E-07 0.20829E-14 0.73467E-11 + 4 4 0.34650E-04 0.10000E+01 0.25813E+04 0.37711E-07 0.49990E-14 0.88859E-11 + 4 4 0.34650E-04 0.10000E+01 0.20817E+04 0.45200E-07 0.13127E-13 0.10690E-10 4 4 0.34650E-04 0.10000E+01 0.16788E+04 0.54242E-07 0.38054E-13 0.12787E-10 4 4 0.34650E-04 0.10000E+01 0.13538E+04 0.65616E-07 0.11960E-12 0.15202E-10 4 4 0.34650E-04 0.10000E+01 0.10918E+04 0.80860E-07 0.39647E-12 0.17971E-10 @@ -24680,24 +24680,24 @@ VERSION 2.8.2 4 4 0.34650E-04 0.10000E+01 0.24221E+03 0.12595E-05 0.10071E-08 0.58985E-10 4 4 0.34650E-04 0.10000E+01 0.19533E+03 0.19026E-05 0.19099E-08 0.70617E-10 4 4 0.34650E-04 0.10000E+01 0.15752E+03 0.19026E-05 0.19099E-08 0.70617E-10 - 4 4 0.60462E-04 0.10000E+01 0.80645E+05 0.33264E-51 0.25031E-62 0.74778E-55 - 4 4 0.60462E-04 0.10000E+01 0.65036E+05 0.28273E-50 0.39894E-61 0.63580E-54 - 4 4 0.60462E-04 0.10000E+01 0.52449E+05 0.24121E-49 0.54019E-60 0.54261E-53 - 4 4 0.60462E-04 0.10000E+01 0.42297E+05 0.18263E-48 0.74286E-59 0.41105E-52 - 4 4 0.60462E-04 0.10000E+01 0.34111E+05 0.13312E-47 0.10382E-57 0.29991E-51 - 4 4 0.60462E-04 0.10000E+01 0.27509E+05 0.97167E-47 0.14471E-56 0.21924E-50 - 4 4 0.60462E-04 0.10000E+01 0.22184E+05 0.70999E-46 0.20085E-55 0.16056E-49 - 4 4 0.60462E-04 0.10000E+01 0.17891E+05 0.51744E-45 0.27778E-54 0.11740E-48 - 4 4 0.60462E-04 0.10000E+01 0.14428E+05 0.37587E-44 0.38327E-53 0.85657E-48 - 4 4 0.60462E-04 0.10000E+01 0.11635E+05 0.27229E-43 0.52775E-52 0.62380E-47 - 4 4 0.60462E-04 0.10000E+01 0.93834E+04 0.19679E-42 0.72436E-51 0.45357E-46 - 4 4 0.60462E-04 0.10000E+01 0.75673E+04 0.14180E-41 0.98917E-50 0.32913E-45 - 4 4 0.60462E-04 0.10000E+01 0.61026E+04 0.10172E-40 0.13412E-48 0.23811E-44 - 4 4 0.60462E-04 0.10000E+01 0.49215E+04 0.72506E-40 0.18012E-47 0.17153E-43 - 4 4 0.60462E-04 0.10000E+01 0.39689E+04 0.51237E-39 0.23894E-46 0.12285E-42 - 4 4 0.60462E-04 0.10000E+01 0.32008E+04 0.11273E-36 0.97923E-44 0.27484E-40 - 4 4 0.60462E-04 0.10000E+01 0.25813E+04 0.40962E-28 0.64350E-35 0.10149E-31 - 4 4 0.60462E-04 0.10000E+01 0.20817E+04 0.43150E-12 0.11640E-18 0.10552E-15 + 4 4 0.60462E-04 0.10000E+01 0.80645E+05 0.22443E-08 0.14712E-19 0.50443E-12 + 4 4 0.60462E-04 0.10000E+01 0.65036E+05 0.28851E-08 0.34650E-19 0.64858E-12 + 4 4 0.60462E-04 0.10000E+01 0.52449E+05 0.36616E-08 0.81385E-19 0.82337E-12 + 4 4 0.60462E-04 0.10000E+01 0.42297E+05 0.46068E-08 0.19057E-18 0.10363E-11 + 4 4 0.60462E-04 0.10000E+01 0.34111E+05 0.57609E-08 0.44494E-18 0.12967E-11 + 4 4 0.60462E-04 0.10000E+01 0.27509E+05 0.71725E-08 0.10358E-17 0.16158E-11 + 4 4 0.60462E-04 0.10000E+01 0.22184E+05 0.89001E-08 0.24039E-17 0.20073E-11 + 4 4 0.60462E-04 0.10000E+01 0.17891E+05 0.11013E-07 0.55575E-17 0.24877E-11 + 4 4 0.60462E-04 0.10000E+01 0.14428E+05 0.13595E-07 0.12785E-16 0.30770E-11 + 4 4 0.60462E-04 0.10000E+01 0.11635E+05 0.16741E-07 0.29223E-16 0.37988E-11 + 4 4 0.60462E-04 0.10000E+01 0.93834E+04 0.20566E-07 0.66242E-16 0.46814E-11 + 4 4 0.60462E-04 0.10000E+01 0.75673E+04 0.25197E-07 0.14864E-15 0.57578E-11 + 4 4 0.60462E-04 0.10000E+01 0.61026E+04 0.30774E-07 0.32998E-15 0.70659E-11 + 4 4 0.60462E-04 0.10000E+01 0.49215E+04 0.37451E-07 0.72683E-15 0.86479E-11 + 4 4 0.60462E-04 0.10000E+01 0.39689E+04 0.45388E-07 0.16052E-14 0.10550E-10 + 4 4 0.60462E-04 0.10000E+01 0.32008E+04 0.54763E-07 0.36345E-14 0.12820E-10 + 4 4 0.60462E-04 0.10000E+01 0.25813E+04 0.65803E-07 0.87229E-14 0.15505E-10 + 4 4 0.60462E-04 0.10000E+01 0.20817E+04 0.78871E-07 0.22906E-13 0.18654E-10 4 4 0.60462E-04 0.10000E+01 0.16788E+04 0.94649E-07 0.66402E-13 0.22312E-10 4 4 0.60462E-04 0.10000E+01 0.13538E+04 0.11450E-06 0.20870E-12 0.26527E-10 4 4 0.60462E-04 0.10000E+01 0.10918E+04 0.14110E-06 0.69181E-12 0.31358E-10 @@ -24710,24 +24710,24 @@ VERSION 2.8.2 4 4 0.60462E-04 0.10000E+01 0.24221E+03 0.21978E-05 0.17574E-08 0.10292E-09 4 4 0.60462E-04 0.10000E+01 0.19533E+03 0.33199E-05 0.33327E-08 0.12322E-09 4 4 0.60462E-04 0.10000E+01 0.15752E+03 0.33199E-05 0.33327E-08 0.12322E-09 - 4 4 0.10550E-03 0.10000E+01 0.80645E+05 0.58043E-51 0.43678E-62 0.13048E-54 - 4 4 0.10550E-03 0.10000E+01 0.65036E+05 0.49334E-50 0.69613E-61 0.11094E-53 - 4 4 0.10550E-03 0.10000E+01 0.52449E+05 0.42090E-49 0.94260E-60 0.94682E-53 - 4 4 0.10550E-03 0.10000E+01 0.42297E+05 0.31867E-48 0.12962E-58 0.71725E-52 - 4 4 0.10550E-03 0.10000E+01 0.34111E+05 0.23229E-47 0.18117E-57 0.52333E-51 - 4 4 0.10550E-03 0.10000E+01 0.27509E+05 0.16955E-46 0.25251E-56 0.38256E-50 - 4 4 0.10550E-03 0.10000E+01 0.22184E+05 0.12389E-45 0.35047E-55 0.28016E-49 - 4 4 0.10550E-03 0.10000E+01 0.17891E+05 0.90291E-45 0.48471E-54 0.20486E-48 - 4 4 0.10550E-03 0.10000E+01 0.14428E+05 0.65587E-44 0.66879E-53 0.14947E-47 - 4 4 0.10550E-03 0.10000E+01 0.11635E+05 0.47513E-43 0.92089E-52 0.10885E-46 - 4 4 0.10550E-03 0.10000E+01 0.93834E+04 0.34339E-42 0.12640E-50 0.79145E-46 - 4 4 0.10550E-03 0.10000E+01 0.75673E+04 0.24744E-41 0.17260E-49 0.57431E-45 - 4 4 0.10550E-03 0.10000E+01 0.61026E+04 0.17750E-40 0.23402E-48 0.41549E-44 - 4 4 0.10550E-03 0.10000E+01 0.49215E+04 0.12652E-39 0.31430E-47 0.29931E-43 - 4 4 0.10550E-03 0.10000E+01 0.39689E+04 0.89405E-39 0.41694E-46 0.21437E-42 - 4 4 0.10550E-03 0.10000E+01 0.32008E+04 0.19671E-36 0.17087E-43 0.47957E-40 - 4 4 0.10550E-03 0.10000E+01 0.25813E+04 0.71476E-28 0.11229E-34 0.17709E-31 - 4 4 0.10550E-03 0.10000E+01 0.20817E+04 0.75295E-12 0.20312E-18 0.18412E-15 + 4 4 0.10550E-03 0.10000E+01 0.80645E+05 0.39161E-08 0.25671E-19 0.88020E-12 + 4 4 0.10550E-03 0.10000E+01 0.65036E+05 0.50343E-08 0.60462E-19 0.11317E-11 + 4 4 0.10550E-03 0.10000E+01 0.52449E+05 0.63893E-08 0.14201E-18 0.14367E-11 + 4 4 0.10550E-03 0.10000E+01 0.42297E+05 0.80386E-08 0.33254E-18 0.18083E-11 + 4 4 0.10550E-03 0.10000E+01 0.34111E+05 0.10052E-07 0.77640E-18 0.22627E-11 + 4 4 0.10550E-03 0.10000E+01 0.27509E+05 0.12516E-07 0.18075E-17 0.28195E-11 + 4 4 0.10550E-03 0.10000E+01 0.22184E+05 0.15530E-07 0.41946E-17 0.35026E-11 + 4 4 0.10550E-03 0.10000E+01 0.17891E+05 0.19217E-07 0.96976E-17 0.43409E-11 + 4 4 0.10550E-03 0.10000E+01 0.14428E+05 0.23722E-07 0.22310E-16 0.53691E-11 + 4 4 0.10550E-03 0.10000E+01 0.11635E+05 0.29213E-07 0.50993E-16 0.66287E-11 + 4 4 0.10550E-03 0.10000E+01 0.93834E+04 0.35887E-07 0.11559E-15 0.81688E-11 + 4 4 0.10550E-03 0.10000E+01 0.75673E+04 0.43966E-07 0.25937E-15 0.10047E-10 + 4 4 0.10550E-03 0.10000E+01 0.61026E+04 0.53699E-07 0.57579E-15 0.12330E-10 + 4 4 0.10550E-03 0.10000E+01 0.49215E+04 0.65349E-07 0.12683E-14 0.15090E-10 + 4 4 0.10550E-03 0.10000E+01 0.39689E+04 0.79199E-07 0.28011E-14 0.18409E-10 + 4 4 0.10550E-03 0.10000E+01 0.32008E+04 0.95558E-07 0.63420E-14 0.22369E-10 + 4 4 0.10550E-03 0.10000E+01 0.25813E+04 0.11482E-06 0.15221E-13 0.27056E-10 + 4 4 0.10550E-03 0.10000E+01 0.20817E+04 0.13762E-06 0.39969E-13 0.32550E-10 4 4 0.10550E-03 0.10000E+01 0.16788E+04 0.16516E-06 0.11587E-12 0.38933E-10 4 4 0.10550E-03 0.10000E+01 0.13538E+04 0.19979E-06 0.36417E-12 0.46288E-10 4 4 0.10550E-03 0.10000E+01 0.10918E+04 0.24620E-06 0.12072E-11 0.54718E-10 @@ -24740,24 +24740,24 @@ VERSION 2.8.2 4 4 0.10550E-03 0.10000E+01 0.24221E+03 0.38351E-05 0.30665E-08 0.17960E-09 4 4 0.10550E-03 0.10000E+01 0.19533E+03 0.57930E-05 0.58153E-08 0.21502E-09 4 4 0.10550E-03 0.10000E+01 0.15752E+03 0.57930E-05 0.58153E-08 0.21502E-09 - 4 4 0.18409E-03 0.10000E+01 0.80645E+05 0.10128E-50 0.76215E-62 0.22769E-54 - 4 4 0.18409E-03 0.10000E+01 0.65036E+05 0.86085E-50 0.12147E-60 0.19359E-53 - 4 4 0.18409E-03 0.10000E+01 0.52449E+05 0.73444E-49 0.16448E-59 0.16521E-52 - 4 4 0.18409E-03 0.10000E+01 0.42297E+05 0.55606E-48 0.22619E-58 0.12516E-51 - 4 4 0.18409E-03 0.10000E+01 0.34111E+05 0.40533E-47 0.31613E-57 0.91317E-51 - 4 4 0.18409E-03 0.10000E+01 0.27509E+05 0.29586E-46 0.44062E-56 0.66754E-50 - 4 4 0.18409E-03 0.10000E+01 0.22184E+05 0.21618E-45 0.61155E-55 0.48887E-49 - 4 4 0.18409E-03 0.10000E+01 0.17891E+05 0.15755E-44 0.84579E-54 0.35747E-48 - 4 4 0.18409E-03 0.10000E+01 0.14428E+05 0.11444E-43 0.11670E-52 0.26081E-47 - 4 4 0.18409E-03 0.10000E+01 0.11635E+05 0.82906E-43 0.16069E-51 0.18994E-46 - 4 4 0.18409E-03 0.10000E+01 0.93834E+04 0.59919E-42 0.22055E-50 0.13810E-45 - 4 4 0.18409E-03 0.10000E+01 0.75673E+04 0.43177E-41 0.30118E-49 0.10021E-44 - 4 4 0.18409E-03 0.10000E+01 0.61026E+04 0.30973E-40 0.40836E-48 0.72501E-44 - 4 4 0.18409E-03 0.10000E+01 0.49215E+04 0.22077E-39 0.54843E-47 0.52228E-43 - 4 4 0.18409E-03 0.10000E+01 0.39689E+04 0.15601E-38 0.72753E-46 0.37407E-42 - 4 4 0.18409E-03 0.10000E+01 0.32008E+04 0.34325E-36 0.29816E-43 0.83682E-40 - 4 4 0.18409E-03 0.10000E+01 0.25813E+04 0.12472E-27 0.19593E-34 0.30901E-31 - 4 4 0.18409E-03 0.10000E+01 0.20817E+04 0.13138E-11 0.35442E-18 0.32128E-15 + 4 4 0.18409E-03 0.10000E+01 0.80645E+05 0.68333E-08 0.44794E-19 0.15359E-11 + 4 4 0.18409E-03 0.10000E+01 0.65036E+05 0.87845E-08 0.10550E-18 0.19748E-11 + 4 4 0.18409E-03 0.10000E+01 0.52449E+05 0.11149E-07 0.24780E-18 0.25070E-11 + 4 4 0.18409E-03 0.10000E+01 0.42297E+05 0.14027E-07 0.58026E-18 0.31554E-11 + 4 4 0.18409E-03 0.10000E+01 0.34111E+05 0.17541E-07 0.13548E-17 0.39482E-11 + 4 4 0.18409E-03 0.10000E+01 0.27509E+05 0.21839E-07 0.31539E-17 0.49198E-11 + 4 4 0.18409E-03 0.10000E+01 0.22184E+05 0.27099E-07 0.73193E-17 0.61118E-11 + 4 4 0.18409E-03 0.10000E+01 0.17891E+05 0.33533E-07 0.16922E-16 0.75746E-11 + 4 4 0.18409E-03 0.10000E+01 0.14428E+05 0.41393E-07 0.38929E-16 0.93688E-11 + 4 4 0.18409E-03 0.10000E+01 0.11635E+05 0.50974E-07 0.88980E-16 0.11567E-10 + 4 4 0.18409E-03 0.10000E+01 0.93834E+04 0.62620E-07 0.20170E-15 0.14254E-10 + 4 4 0.18409E-03 0.10000E+01 0.75673E+04 0.76719E-07 0.45259E-15 0.17532E-10 + 4 4 0.18409E-03 0.10000E+01 0.61026E+04 0.93701E-07 0.10047E-14 0.21514E-10 + 4 4 0.18409E-03 0.10000E+01 0.49215E+04 0.11403E-06 0.22131E-14 0.26331E-10 + 4 4 0.18409E-03 0.10000E+01 0.39689E+04 0.13820E-06 0.48877E-14 0.32122E-10 + 4 4 0.18409E-03 0.10000E+01 0.32008E+04 0.16674E-06 0.11066E-13 0.39033E-10 + 4 4 0.18409E-03 0.10000E+01 0.25813E+04 0.20036E-06 0.26560E-13 0.47211E-10 + 4 4 0.18409E-03 0.10000E+01 0.20817E+04 0.24015E-06 0.69743E-13 0.56798E-10 4 4 0.18409E-03 0.10000E+01 0.16788E+04 0.28819E-06 0.20218E-12 0.67935E-10 4 4 0.18409E-03 0.10000E+01 0.13538E+04 0.34862E-06 0.63545E-12 0.80769E-10 4 4 0.18409E-03 0.10000E+01 0.10918E+04 0.42961E-06 0.21064E-11 0.95479E-10 @@ -24770,24 +24770,24 @@ VERSION 2.8.2 4 4 0.18409E-03 0.10000E+01 0.24221E+03 0.66919E-05 0.53508E-08 0.31339E-09 4 4 0.18409E-03 0.10000E+01 0.19533E+03 0.10108E-04 0.10147E-07 0.37519E-09 4 4 0.18409E-03 0.10000E+01 0.15752E+03 0.10108E-04 0.10147E-07 0.37519E-09 - 4 4 0.32123E-03 0.10000E+01 0.80645E+05 0.17673E-50 0.13299E-61 0.39730E-54 - 4 4 0.32123E-03 0.10000E+01 0.65036E+05 0.15021E-49 0.21196E-60 0.33780E-53 - 4 4 0.32123E-03 0.10000E+01 0.52449E+05 0.12815E-48 0.28700E-59 0.28829E-52 - 4 4 0.32123E-03 0.10000E+01 0.42297E+05 0.97029E-48 0.39468E-58 0.21839E-51 - 4 4 0.32123E-03 0.10000E+01 0.34111E+05 0.70727E-47 0.55162E-57 0.15934E-50 - 4 4 0.32123E-03 0.10000E+01 0.27509E+05 0.51625E-46 0.76886E-56 0.11648E-49 - 4 4 0.32123E-03 0.10000E+01 0.22184E+05 0.37722E-45 0.10671E-54 0.85305E-49 - 4 4 0.32123E-03 0.10000E+01 0.17891E+05 0.27492E-44 0.14759E-53 0.62377E-48 - 4 4 0.32123E-03 0.10000E+01 0.14428E+05 0.19970E-43 0.20363E-52 0.45510E-47 - 4 4 0.32123E-03 0.10000E+01 0.11635E+05 0.14467E-42 0.28039E-51 0.33143E-46 - 4 4 0.32123E-03 0.10000E+01 0.93834E+04 0.10456E-41 0.38485E-50 0.24098E-45 - 4 4 0.32123E-03 0.10000E+01 0.75673E+04 0.75341E-41 0.52555E-49 0.17487E-44 - 4 4 0.32123E-03 0.10000E+01 0.61026E+04 0.54046E-40 0.71256E-48 0.12651E-43 - 4 4 0.32123E-03 0.10000E+01 0.49215E+04 0.38523E-39 0.95698E-47 0.91134E-43 - 4 4 0.32123E-03 0.10000E+01 0.39689E+04 0.27222E-38 0.12695E-45 0.65273E-42 - 4 4 0.32123E-03 0.10000E+01 0.32008E+04 0.59896E-36 0.52027E-43 0.14602E-39 - 4 4 0.32123E-03 0.10000E+01 0.25813E+04 0.21763E-27 0.34189E-34 0.53921E-31 - 4 4 0.32123E-03 0.10000E+01 0.20817E+04 0.22926E-11 0.61845E-18 0.56062E-15 + 4 4 0.32123E-03 0.10000E+01 0.80645E+05 0.11924E-07 0.78163E-19 0.26801E-11 + 4 4 0.32123E-03 0.10000E+01 0.65036E+05 0.15328E-07 0.18410E-18 0.34459E-11 + 4 4 0.32123E-03 0.10000E+01 0.52449E+05 0.19454E-07 0.43240E-18 0.43746E-11 + 4 4 0.32123E-03 0.10000E+01 0.42297E+05 0.24476E-07 0.10125E-17 0.55060E-11 + 4 4 0.32123E-03 0.10000E+01 0.34111E+05 0.30608E-07 0.23640E-17 0.68894E-11 + 4 4 0.32123E-03 0.10000E+01 0.27509E+05 0.38108E-07 0.55034E-17 0.85847E-11 + 4 4 0.32123E-03 0.10000E+01 0.22184E+05 0.47286E-07 0.12772E-16 0.10665E-10 + 4 4 0.32123E-03 0.10000E+01 0.17891E+05 0.58513E-07 0.29527E-16 0.13217E-10 + 4 4 0.32123E-03 0.10000E+01 0.14428E+05 0.72228E-07 0.67929E-16 0.16348E-10 + 4 4 0.32123E-03 0.10000E+01 0.11635E+05 0.88947E-07 0.15526E-15 0.20183E-10 + 4 4 0.32123E-03 0.10000E+01 0.93834E+04 0.10927E-06 0.35195E-15 0.24873E-10 + 4 4 0.32123E-03 0.10000E+01 0.75673E+04 0.13387E-06 0.78975E-15 0.30591E-10 + 4 4 0.32123E-03 0.10000E+01 0.61026E+04 0.16350E-06 0.17532E-14 0.37541E-10 + 4 4 0.32123E-03 0.10000E+01 0.49215E+04 0.19898E-06 0.38617E-14 0.45947E-10 + 4 4 0.32123E-03 0.10000E+01 0.39689E+04 0.24114E-06 0.85287E-14 0.56052E-10 + 4 4 0.32123E-03 0.10000E+01 0.32008E+04 0.29096E-06 0.19310E-13 0.68111E-10 + 4 4 0.32123E-03 0.10000E+01 0.25813E+04 0.34961E-06 0.46345E-13 0.82380E-10 + 4 4 0.32123E-03 0.10000E+01 0.20817E+04 0.41904E-06 0.12170E-12 0.99109E-10 4 4 0.32123E-03 0.10000E+01 0.16788E+04 0.50287E-06 0.35280E-12 0.11854E-09 4 4 0.32123E-03 0.10000E+01 0.13538E+04 0.60832E-06 0.11088E-11 0.14094E-09 4 4 0.32123E-03 0.10000E+01 0.10918E+04 0.74965E-06 0.36756E-11 0.16661E-09 @@ -24850,24 +24850,24 @@ VERSION 2.8.2 5 1 0.10550E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.32745E+00 0.17361E-02 0.40027E+00 0.67662E-04 0.46642E+10 0.64076E+03 0.50000E+03 0.39278E-15 0.18468E-01 0.57605E-02 0.10978E+02 5 1 0.18409E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.99703E+00 0.30293E-02 0.69845E+00 0.67662E-04 0.81388E+10 0.11181E+04 0.50000E+03 0.68538E-15 0.32225E-01 0.57605E-02 0.10978E+02 5 1 0.32123E-03 0.10000E+01 0.99828E+00 0.13659E+01 0.30358E+01 0.52860E-02 0.12188E+01 0.67662E-04 0.14202E+11 0.19510E+04 0.50000E+03 0.11959E-14 0.56230E-01 0.57605E-02 0.10978E+02 - 5 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 5 1 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 5 1 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 5 1 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 5 1 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 5 1 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 5 1 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 5 1 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 5 1 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 5 1 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 5 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 5 1 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 5 1 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 5 1 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 5 1 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 5 1 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 5 1 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 5 1 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 5 1 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 5 1 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 5 1 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 5 1 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 5 1 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 5 1 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 5 1 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 5 1 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 5 1 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 5 1 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 5 1 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 5 1 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 5 1 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 5 1 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 5 1 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 5 1 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 5 1 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 5 1 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 5 1 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 5 1 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 5 1 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -24880,24 +24880,24 @@ VERSION 2.8.2 5 1 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 5 1 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 5 1 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 5 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 5 1 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 5 1 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 5 1 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 5 1 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 5 1 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 5 1 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 5 1 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 5 1 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 5 1 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 5 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 5 1 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 5 1 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 5 1 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 5 1 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 5 1 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 5 1 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 5 1 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 5 1 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 5 1 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 5 1 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 5 1 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 5 1 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 5 1 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 5 1 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 5 1 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 5 1 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 5 1 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 5 1 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 5 1 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 5 1 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 5 1 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 5 1 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 5 1 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 5 1 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 5 1 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 5 1 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 5 1 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 5 1 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -24910,24 +24910,24 @@ VERSION 2.8.2 5 1 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 5 1 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 5 1 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 5 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 5 1 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 5 1 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 5 1 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 5 1 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 5 1 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 5 1 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 5 1 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 5 1 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 5 1 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 5 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 5 1 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 5 1 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 5 1 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 5 1 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 5 1 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 5 1 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 5 1 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 5 1 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 5 1 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 5 1 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 5 1 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 5 1 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 5 1 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 5 1 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 5 1 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 5 1 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 5 1 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 5 1 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 5 1 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 5 1 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 5 1 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 5 1 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 5 1 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 5 1 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 5 1 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 5 1 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 5 1 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 5 1 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -24940,24 +24940,24 @@ VERSION 2.8.2 5 1 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 5 1 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 5 1 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 5 1 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 5 1 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 5 1 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 5 1 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 5 1 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 5 1 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 5 1 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 5 1 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 5 1 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 5 1 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 5 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 5 1 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 5 1 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 5 1 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 5 1 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 5 1 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 5 1 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 5 1 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 5 1 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 5 1 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 5 1 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 5 1 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 5 1 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 5 1 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 5 1 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 5 1 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 5 1 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 5 1 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 5 1 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 5 1 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 5 1 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 5 1 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 5 1 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 5 1 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 5 1 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 5 1 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 5 1 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 5 1 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 5 1 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -24970,24 +24970,24 @@ VERSION 2.8.2 5 1 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 5 1 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 5 1 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 5 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 5 1 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 5 1 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 5 1 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 5 1 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 5 1 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 5 1 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 5 1 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 5 1 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 5 1 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 5 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 5 1 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 5 1 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 5 1 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 5 1 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 5 1 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 5 1 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 5 1 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 5 1 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 5 1 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 5 1 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 5 1 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 5 1 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 5 1 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 5 1 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 5 1 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 5 1 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 5 1 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 5 1 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 5 1 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 5 1 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 5 1 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 5 1 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 5 1 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 5 1 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 5 1 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 5 1 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 5 1 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 5 1 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -25000,24 +25000,24 @@ VERSION 2.8.2 5 1 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 5 1 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 5 1 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 5 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 5 1 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 5 1 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 5 1 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 5 1 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 5 1 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 5 1 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 5 1 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 5 1 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 5 1 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 5 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 5 1 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 5 1 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 5 1 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 5 1 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 5 1 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 5 1 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 5 1 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 5 1 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 5 1 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 5 1 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 5 1 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 5 1 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 5 1 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 5 1 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 5 1 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 5 1 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 5 1 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 5 1 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 5 1 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 5 1 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 5 1 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 5 1 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 5 1 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 5 1 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 5 1 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 5 1 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 5 1 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 5 1 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -25030,24 +25030,24 @@ VERSION 2.8.2 5 1 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 5 1 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 5 1 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 5 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 5 1 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 5 1 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 5 1 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 5 1 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 5 1 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 5 1 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 5 1 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 5 1 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 5 1 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 5 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 5 1 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 5 1 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 5 1 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 5 1 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 5 1 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 5 1 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 5 1 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 5 1 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 5 1 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 5 1 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 5 1 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 5 1 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 5 1 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 5 1 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 5 1 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 5 1 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 5 1 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 5 1 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 5 1 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 5 1 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 5 1 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 5 1 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 5 1 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 5 1 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 5 1 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 5 1 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 5 1 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 5 1 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -25060,24 +25060,24 @@ VERSION 2.8.2 5 1 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 5 1 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 5 1 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 5 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 5 1 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 5 1 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 5 1 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 5 1 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 5 1 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 5 1 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 5 1 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 5 1 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 5 1 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 5 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 5 1 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 5 1 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 5 1 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 5 1 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 5 1 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 5 1 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 5 1 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 5 1 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 5 1 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 5 1 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 5 1 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 5 1 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 5 1 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 5 1 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 5 1 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 5 1 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 5 1 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 5 1 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 5 1 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 5 1 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 5 1 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 5 1 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 5 1 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 5 1 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 5 1 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 5 1 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 5 1 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 5 1 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -25090,24 +25090,24 @@ VERSION 2.8.2 5 1 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 5 1 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 5 1 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 5 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 5 1 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 5 1 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 5 1 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 5 1 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 5 1 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 5 1 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 5 1 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 5 1 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 5 1 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 5 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 5 1 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 5 1 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 5 1 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 5 1 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 5 1 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 5 1 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 5 1 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 5 1 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 5 1 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 5 1 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 5 1 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 5 1 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 5 1 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 5 1 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 5 1 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 5 1 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 5 1 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 5 1 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 5 1 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 5 1 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 5 1 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 5 1 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 5 1 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 5 1 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 5 1 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 5 1 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 5 1 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 5 1 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -25120,24 +25120,24 @@ VERSION 2.8.2 5 1 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 5 1 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 5 1 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 5 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 5 1 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 5 1 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 5 1 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 5 1 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 5 1 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 5 1 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 5 1 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 5 1 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 5 1 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 5 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 5 1 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 5 1 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 5 1 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 5 1 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 5 1 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 5 1 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 5 1 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 5 1 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 5 1 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 5 1 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 5 1 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 5 1 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 5 1 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 5 1 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 5 1 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 5 1 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 5 1 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 5 1 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 5 1 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 5 1 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 5 1 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 5 1 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 5 1 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 5 1 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 5 1 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 5 1 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 5 1 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 5 1 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -25150,24 +25150,24 @@ VERSION 2.8.2 5 1 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 5 1 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 5 1 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 5 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 5 1 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 5 1 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 5 1 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 5 1 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 5 1 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 5 1 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 5 1 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 5 1 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 5 1 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 5 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 5 1 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 5 1 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 5 1 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 5 1 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 5 1 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 5 1 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 5 1 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 5 1 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 5 1 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 5 1 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 5 1 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 5 1 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 5 1 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 5 1 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 5 1 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 5 1 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 5 1 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 5 1 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 5 1 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 5 1 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 5 1 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 5 1 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 5 1 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 5 1 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 5 1 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 5 1 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 5 1 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 5 1 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -25180,24 +25180,24 @@ VERSION 2.8.2 5 1 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 5 1 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 5 1 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 5 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 5 1 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 5 1 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 5 1 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 5 1 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 5 1 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 5 1 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 5 1 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 5 1 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 5 1 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 5 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 5 1 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 5 1 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 5 1 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 5 1 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 5 1 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 5 1 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 5 1 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 5 1 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 5 1 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 5 1 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 5 1 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 5 1 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 5 1 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 5 1 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 5 1 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 5 1 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 5 1 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 5 1 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 5 1 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 5 1 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 5 1 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 5 1 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 5 1 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 5 1 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 5 1 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 5 1 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 5 1 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 5 1 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -25210,24 +25210,24 @@ VERSION 2.8.2 5 1 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 5 1 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 5 1 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 5 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 5 1 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 5 1 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 5 1 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 5 1 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 5 1 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 5 1 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 5 1 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 5 1 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 5 1 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 5 1 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 5 1 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 5 1 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 5 1 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 5 1 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 5 1 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 5 1 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 5 1 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 5 1 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 5 1 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 5 1 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 5 1 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 5 1 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 5 1 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 5 1 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 5 1 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 5 1 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 5 1 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 5 1 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 5 1 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 5 1 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 5 1 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 5 1 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 5 1 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 5 1 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 5 1 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 5 1 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 5 1 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 5 1 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -25240,24 +25240,24 @@ VERSION 2.8.2 5 1 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 5 1 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 5 1 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 5 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 5 1 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 5 1 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 5 1 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 5 1 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 5 1 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 5 1 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 5 1 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 5 1 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 5 1 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 5 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 5 1 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 5 1 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 5 1 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 5 1 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 5 1 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 5 1 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 5 1 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 5 1 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 5 1 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 5 1 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 5 1 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 5 1 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 5 1 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 5 1 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 5 1 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 5 1 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 5 1 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 5 1 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 5 1 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 5 1 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 5 1 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 5 1 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 5 1 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 5 1 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 5 1 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 5 1 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 5 1 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 5 1 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -25270,24 +25270,24 @@ VERSION 2.8.2 5 1 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 5 1 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 5 1 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 5 1 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 5 1 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 5 1 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 5 1 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 5 1 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 5 1 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 5 1 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 5 1 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 5 1 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 5 1 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 5 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 5 1 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 5 1 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 5 1 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 5 1 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 5 1 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 5 1 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 5 1 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 5 1 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 5 1 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 5 1 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 5 1 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 5 1 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 5 1 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 5 1 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 5 1 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 5 1 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 5 1 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 5 1 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 5 1 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 5 1 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 5 1 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 5 1 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 5 1 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 5 1 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 5 1 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 5 1 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 5 1 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 5 1 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -25300,24 +25300,24 @@ VERSION 2.8.2 5 1 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 5 1 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 5 1 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 5 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 5 1 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 5 1 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 5 1 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 5 1 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 5 1 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 5 1 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 5 1 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 5 1 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 5 1 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 5 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 5 1 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 5 1 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 5 1 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 5 1 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 5 1 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 5 1 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 5 1 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 5 1 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 5 1 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 5 1 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 5 1 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 5 1 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 5 1 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 5 1 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 5 1 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 5 1 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 5 1 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 5 1 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 5 1 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 5 1 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 5 1 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 5 1 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 5 1 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 5 1 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 5 1 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 5 1 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 5 1 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 5 1 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -25330,24 +25330,24 @@ VERSION 2.8.2 5 1 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 5 1 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 5 1 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 5 1 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 5 1 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 5 1 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 5 1 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 5 1 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 5 1 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 5 1 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 5 1 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 5 1 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 5 1 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 5 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 5 1 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 5 1 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 5 1 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 5 1 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 5 1 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 5 1 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 5 1 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 5 1 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 5 1 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 5 1 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 5 1 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 5 1 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 5 1 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 5 1 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 5 1 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 5 1 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 5 1 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 5 1 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 5 1 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 5 1 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 5 1 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 5 1 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 5 1 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 5 1 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 5 1 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 5 1 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 5 1 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 5 1 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -25360,24 +25360,24 @@ VERSION 2.8.2 5 1 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 5 1 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 5 1 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 5 1 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 5 1 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 5 1 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24433E-67 - 5 1 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40734E-66 - 5 1 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 5 1 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 5 1 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 5 1 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 5 1 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 5 1 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 5 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 5 1 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 5 1 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 5 1 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 5 1 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 5 1 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 5 1 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 5 1 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 5 1 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 5 1 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 5 1 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 5 1 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 5 1 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 5 1 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 5 1 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 5 1 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95683E-24 + 5 1 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 5 1 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 5 1 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13384E-22 + 5 1 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 5 1 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 5 1 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 5 1 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 5 1 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 5 1 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 5 1 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 5 1 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 5 1 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 5 1 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23278E-12 0.48928E-19 @@ -25390,24 +25390,24 @@ VERSION 2.8.2 5 1 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71311E-09 0.48594E-17 5 1 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 5 1 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 5 1 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21428E-69 0.92887E-69 - 5 1 0.10271E-10 0.10000E+01 0.65036E+05 0.25728E-57 0.63708E-68 0.74355E-68 - 5 1 0.10271E-10 0.10000E+01 0.52449E+05 0.37513E-56 0.22054E-66 0.73137E-67 - 5 1 0.10271E-10 0.10000E+01 0.42297E+05 0.66185E-55 0.77499E-65 0.87548E-66 - 5 1 0.10271E-10 0.10000E+01 0.34111E+05 0.12106E-53 0.26796E-63 0.13788E-64 - 5 1 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89974E-62 0.24580E-63 - 5 1 0.10271E-10 0.10000E+01 0.22184E+05 0.38374E-51 0.28684E-60 0.43685E-62 - 5 1 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73547E-61 - 5 1 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11535E-59 - 5 1 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17062E-58 - 5 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24418E-57 - 5 1 0.10271E-10 0.10000E+01 0.75673E+04 0.29667E-45 0.46498E-53 0.34503E-56 - 5 1 0.10271E-10 0.10000E+01 0.61026E+04 0.41738E-44 0.12464E-51 0.48594E-55 - 5 1 0.10271E-10 0.10000E+01 0.49215E+04 0.58687E-43 0.33415E-50 0.68408E-54 - 5 1 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89577E-49 0.96299E-53 - 5 1 0.10271E-10 0.10000E+01 0.32008E+04 0.36488E-39 0.77647E-46 0.42631E-50 - 5 1 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31229E-41 - 5 1 0.10271E-10 0.10000E+01 0.20817E+04 0.50711E-14 0.11035E-19 0.59395E-25 + 5 1 0.10271E-10 0.10000E+01 0.80645E+05 0.30527E-15 0.28631E-25 0.76424E-26 + 5 1 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11816E-25 + 5 1 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21650E-25 + 5 1 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47187E-25 + 5 1 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11421E-24 + 5 1 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28615E-24 + 5 1 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71526E-24 + 5 1 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17632E-23 + 5 1 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42862E-23 + 5 1 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35973E-19 0.10312E-22 + 5 1 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24643E-22 + 5 1 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58651E-22 + 5 1 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13916E-21 + 5 1 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 5 1 0.10271E-10 0.10000E+01 0.39689E+04 0.65972E-10 0.61247E-16 0.77164E-21 + 5 1 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 5 1 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 5 1 0.10271E-10 0.10000E+01 0.20817E+04 0.78052E-09 0.41877E-14 0.91460E-20 5 1 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20067E-19 5 1 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 5 1 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90440E-19 @@ -25420,24 +25420,24 @@ VERSION 2.8.2 5 1 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 5 1 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 5 1 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 5 1 0.17923E-10 0.10000E+01 0.80645E+05 0.56932E-58 0.39458E-69 0.34053E-68 - 5 1 0.17923E-10 0.10000E+01 0.65036E+05 0.46737E-57 0.87605E-68 0.28311E-67 - 5 1 0.17923E-10 0.10000E+01 0.52449E+05 0.52531E-56 0.24093E-66 0.24726E-66 - 5 1 0.17923E-10 0.10000E+01 0.42297E+05 0.74528E-55 0.80037E-65 0.22169E-65 - 5 1 0.17923E-10 0.10000E+01 0.34111E+05 0.12655E-53 0.27754E-63 0.26477E-64 - 5 1 0.17923E-10 0.10000E+01 0.27509E+05 0.22720E-52 0.94018E-62 0.41871E-63 - 5 1 0.17923E-10 0.10000E+01 0.22184E+05 0.40096E-51 0.30151E-60 0.72571E-62 - 5 1 0.17923E-10 0.10000E+01 0.17891E+05 0.67123E-50 0.89765E-59 0.12275E-60 - 5 1 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25129E-57 0.19418E-59 - 5 1 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68183E-56 0.28902E-58 - 5 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22184E-46 0.18320E-54 0.41538E-57 - 5 1 0.17923E-10 0.10000E+01 0.75673E+04 0.31333E-45 0.49140E-53 0.58878E-56 - 5 1 0.17923E-10 0.10000E+01 0.61026E+04 0.44108E-44 0.13181E-51 0.83140E-55 - 5 1 0.17923E-10 0.10000E+01 0.49215E+04 0.62059E-43 0.35359E-50 0.11730E-53 - 5 1 0.17923E-10 0.10000E+01 0.39689E+04 0.87314E-42 0.94846E-49 0.16546E-52 - 5 1 0.17923E-10 0.10000E+01 0.32008E+04 0.38633E-39 0.82262E-46 0.73372E-50 - 5 1 0.17923E-10 0.10000E+01 0.25813E+04 0.28285E-30 0.13807E-36 0.53834E-41 - 5 1 0.17923E-10 0.10000E+01 0.20817E+04 0.53763E-14 0.11706E-19 0.10256E-24 + 5 1 0.17923E-10 0.10000E+01 0.80645E+05 0.50975E-15 0.30186E-25 0.24556E-25 + 5 1 0.17923E-10 0.10000E+01 0.65036E+05 0.85184E-15 0.16277E-24 0.34494E-25 + 5 1 0.17923E-10 0.10000E+01 0.52449E+05 0.17127E-14 0.84020E-24 0.54081E-25 + 5 1 0.17923E-10 0.10000E+01 0.42297E+05 0.40093E-14 0.41314E-23 0.10004E-24 + 5 1 0.17923E-10 0.10000E+01 0.34111E+05 0.10088E-13 0.19546E-22 0.21580E-24 + 5 1 0.17923E-10 0.10000E+01 0.27509E+05 0.25715E-13 0.90241E-22 0.50890E-24 + 5 1 0.17923E-10 0.10000E+01 0.22184E+05 0.64716E-13 0.41128E-21 0.12387E-23 + 5 1 0.17923E-10 0.10000E+01 0.17891E+05 0.15992E-12 0.18637E-20 0.30231E-23 + 5 1 0.17923E-10 0.10000E+01 0.14428E+05 0.38902E-12 0.84268E-20 0.73294E-23 + 5 1 0.17923E-10 0.10000E+01 0.11635E+05 0.93592E-12 0.38070E-19 0.17639E-22 + 5 1 0.17923E-10 0.10000E+01 0.93834E+04 0.22359E-11 0.17185E-18 0.42211E-22 + 5 1 0.17923E-10 0.10000E+01 0.75673E+04 0.53192E-11 0.77340E-18 0.10063E-21 + 5 1 0.17923E-10 0.10000E+01 0.61026E+04 0.12615E-10 0.34504E-17 0.23918E-21 + 5 1 0.17923E-10 0.10000E+01 0.49215E+04 0.29801E-10 0.15139E-16 0.56609E-21 + 5 1 0.17923E-10 0.10000E+01 0.39689E+04 0.69892E-10 0.64956E-16 0.13299E-20 + 5 1 0.17923E-10 0.10000E+01 0.32008E+04 0.16201E-09 0.27215E-15 0.30869E-20 + 5 1 0.17923E-10 0.10000E+01 0.25813E+04 0.36963E-09 0.11134E-14 0.70508E-20 + 5 1 0.17923E-10 0.10000E+01 0.20817E+04 0.82771E-09 0.44434E-14 0.15802E-19 5 1 0.17923E-10 0.10000E+01 0.16788E+04 0.18158E-08 0.17281E-13 0.34689E-19 5 1 0.17923E-10 0.10000E+01 0.13538E+04 0.38974E-08 0.65632E-13 0.74495E-19 5 1 0.17923E-10 0.10000E+01 0.10918E+04 0.81815E-08 0.24471E-12 0.15644E-18 @@ -25450,24 +25450,24 @@ VERSION 2.8.2 5 1 0.17923E-10 0.10000E+01 0.24221E+03 0.81260E-06 0.74969E-09 0.15550E-16 5 1 0.17923E-10 0.10000E+01 0.19533E+03 0.12807E-05 0.14247E-08 0.24506E-16 5 1 0.17923E-10 0.10000E+01 0.15752E+03 0.12807E-05 0.14247E-08 0.24506E-16 - 5 1 0.31275E-10 0.10000E+01 0.80645E+05 0.12244E-57 0.88088E-69 0.11447E-67 - 5 1 0.31275E-10 0.10000E+01 0.65036E+05 0.10138E-56 0.15653E-67 0.98306E-67 - 5 1 0.31275E-10 0.10000E+01 0.52449E+05 0.94832E-56 0.30734E-66 0.84200E-66 - 5 1 0.31275E-10 0.10000E+01 0.42297E+05 0.99586E-55 0.85109E-65 0.66901E-65 - 5 1 0.31275E-10 0.10000E+01 0.34111E+05 0.13837E-53 0.28099E-63 0.61269E-64 - 5 1 0.31275E-10 0.10000E+01 0.27509E+05 0.23221E-52 0.94803E-62 0.75391E-63 - 5 1 0.31275E-10 0.10000E+01 0.22184E+05 0.40543E-51 0.30614E-60 0.11740E-61 - 5 1 0.31275E-10 0.10000E+01 0.17891E+05 0.68167E-50 0.91704E-59 0.19605E-60 - 5 1 0.31275E-10 0.10000E+01 0.14428E+05 0.10719E-48 0.25765E-57 0.31437E-59 - 5 1 0.31275E-10 0.10000E+01 0.11635E+05 0.15895E-47 0.70063E-56 0.47455E-58 - 5 1 0.31275E-10 0.10000E+01 0.93834E+04 0.22791E-46 0.18858E-54 0.68923E-57 - 5 1 0.31275E-10 0.10000E+01 0.75673E+04 0.32249E-45 0.50662E-53 0.98467E-56 - 5 1 0.31275E-10 0.10000E+01 0.61026E+04 0.45470E-44 0.13609E-51 0.13990E-54 - 5 1 0.31275E-10 0.10000E+01 0.49215E+04 0.64067E-43 0.36553E-50 0.19838E-53 - 5 1 0.31275E-10 0.10000E+01 0.39689E+04 0.90254E-42 0.98159E-49 0.28095E-52 - 5 1 0.31275E-10 0.10000E+01 0.32008E+04 0.39980E-39 0.85221E-46 0.12501E-49 - 5 1 0.31275E-10 0.10000E+01 0.25813E+04 0.29303E-30 0.14319E-36 0.91997E-41 - 5 1 0.31275E-10 0.10000E+01 0.20817E+04 0.55763E-14 0.12154E-19 0.17582E-24 + 5 1 0.31275E-10 0.10000E+01 0.80645E+05 0.93628E-15 0.31783E-25 0.77623E-25 + 5 1 0.31275E-10 0.10000E+01 0.65036E+05 0.13854E-14 0.16699E-24 0.10404E-24 + 5 1 0.31275E-10 0.10000E+01 0.52449E+05 0.23664E-14 0.85822E-24 0.14717E-24 + 5 1 0.31275E-10 0.10000E+01 0.42297E+05 0.48093E-14 0.42262E-23 0.23361E-24 + 5 1 0.31275E-10 0.10000E+01 0.34111E+05 0.11111E-13 0.20043E-22 0.43371E-24 + 5 1 0.31275E-10 0.10000E+01 0.27509E+05 0.27182E-13 0.92734E-22 0.92446E-24 + 5 1 0.31275E-10 0.10000E+01 0.22184E+05 0.67241E-13 0.42342E-21 0.21375E-23 + 5 1 0.31275E-10 0.10000E+01 0.17891E+05 0.16511E-12 0.19218E-20 0.51094E-23 + 5 1 0.31275E-10 0.10000E+01 0.14428E+05 0.40095E-12 0.87017E-20 0.12316E-22 + 5 1 0.31275E-10 0.10000E+01 0.11635E+05 0.96475E-12 0.39361E-19 0.29659E-22 + 5 1 0.31275E-10 0.10000E+01 0.93834E+04 0.23068E-11 0.17786E-18 0.71193E-22 + 5 1 0.31275E-10 0.10000E+01 0.75673E+04 0.54937E-11 0.80121E-18 0.17034E-21 + 5 1 0.31275E-10 0.10000E+01 0.61026E+04 0.13044E-10 0.35772E-17 0.40625E-21 + 5 1 0.31275E-10 0.10000E+01 0.49215E+04 0.30843E-10 0.15705E-16 0.96443E-21 + 5 1 0.31275E-10 0.10000E+01 0.39689E+04 0.72397E-10 0.67412E-16 0.22713E-20 + 5 1 0.31275E-10 0.10000E+01 0.32008E+04 0.16793E-09 0.28253E-15 0.52828E-20 + 5 1 0.31275E-10 0.10000E+01 0.25813E+04 0.38337E-09 0.11562E-14 0.12085E-19 + 5 1 0.31275E-10 0.10000E+01 0.20817E+04 0.85885E-09 0.46148E-14 0.27118E-19 5 1 0.31275E-10 0.10000E+01 0.16788E+04 0.18847E-08 0.17949E-13 0.59582E-19 5 1 0.31275E-10 0.10000E+01 0.13538E+04 0.40465E-08 0.68178E-13 0.12804E-18 5 1 0.31275E-10 0.10000E+01 0.10918E+04 0.84960E-08 0.25421E-12 0.26901E-18 @@ -25480,24 +25480,24 @@ VERSION 2.8.2 5 1 0.31275E-10 0.10000E+01 0.24221E+03 0.84416E-06 0.77882E-09 0.26766E-16 5 1 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42184E-16 5 1 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42184E-16 - 5 1 0.54572E-10 0.10000E+01 0.80645E+05 0.25889E-57 0.19493E-68 0.35525E-67 - 5 1 0.54572E-10 0.10000E+01 0.65036E+05 0.22050E-56 0.31827E-67 0.31050E-66 - 5 1 0.54572E-10 0.10000E+01 0.52449E+05 0.19286E-55 0.49297E-66 0.26759E-65 - 5 1 0.54572E-10 0.10000E+01 0.42297E+05 0.16495E-54 0.10221E-64 0.20665E-64 - 5 1 0.54572E-10 0.10000E+01 0.34111E+05 0.17303E-53 0.28435E-63 0.16349E-63 - 5 1 0.54572E-10 0.10000E+01 0.27509E+05 0.24081E-52 0.91026E-62 0.15327E-62 - 5 1 0.54572E-10 0.10000E+01 0.22184E+05 0.39363E-51 0.29455E-60 0.19332E-61 - 5 1 0.54572E-10 0.10000E+01 0.17891E+05 0.65781E-50 0.89331E-59 0.30486E-60 - 5 1 0.54572E-10 0.10000E+01 0.14428E+05 0.10439E-48 0.25340E-57 0.49479E-59 - 5 1 0.54572E-10 0.10000E+01 0.11635E+05 0.15621E-47 0.69359E-56 0.76348E-58 - 5 1 0.54572E-10 0.10000E+01 0.93834E+04 0.22548E-46 0.18760E-54 0.11288E-56 - 5 1 0.54572E-10 0.10000E+01 0.75673E+04 0.32068E-45 0.50599E-53 0.16341E-55 - 5 1 0.54572E-10 0.10000E+01 0.61026E+04 0.45399E-44 0.13637E-51 0.23452E-54 - 5 1 0.54572E-10 0.10000E+01 0.49215E+04 0.64183E-43 0.36731E-50 0.33513E-53 - 5 1 0.54572E-10 0.10000E+01 0.39689E+04 0.90673E-42 0.98864E-49 0.47754E-52 - 5 1 0.54572E-10 0.10000E+01 0.32008E+04 0.40261E-39 0.86007E-46 0.21355E-49 - 5 1 0.54572E-10 0.10000E+01 0.25813E+04 0.29573E-30 0.14480E-36 0.15784E-40 - 5 1 0.54572E-10 0.10000E+01 0.20817E+04 0.56406E-14 0.12317E-19 0.30298E-24 + 5 1 0.54572E-10 0.10000E+01 0.80645E+05 0.18069E-14 0.34506E-25 0.23529E-24 + 5 1 0.54572E-10 0.10000E+01 0.65036E+05 0.24820E-14 0.16767E-24 0.30907E-24 + 5 1 0.54572E-10 0.10000E+01 0.52449E+05 0.36969E-14 0.84276E-24 0.41377E-24 + 5 1 0.54572E-10 0.10000E+01 0.42297E+05 0.63457E-14 0.41449E-23 0.59019E-24 + 5 1 0.54572E-10 0.10000E+01 0.34111E+05 0.12763E-13 0.19746E-22 0.94898E-24 + 5 1 0.54572E-10 0.10000E+01 0.27509E+05 0.28766E-13 0.91842E-22 0.17758E-23 + 5 1 0.54572E-10 0.10000E+01 0.22184E+05 0.68450E-13 0.42132E-21 0.37804E-23 + 5 1 0.54572E-10 0.10000E+01 0.17891E+05 0.16551E-12 0.19198E-20 0.86914E-23 + 5 1 0.54572E-10 0.10000E+01 0.14428E+05 0.40015E-12 0.87213E-20 0.20677E-22 + 5 1 0.54572E-10 0.10000E+01 0.11635E+05 0.96303E-12 0.39558E-19 0.49742E-22 + 5 1 0.54572E-10 0.10000E+01 0.93834E+04 0.23072E-11 0.17916E-18 0.11985E-21 + 5 1 0.54572E-10 0.10000E+01 0.75673E+04 0.55079E-11 0.80856E-18 0.28822E-21 + 5 1 0.54572E-10 0.10000E+01 0.61026E+04 0.13108E-10 0.36154E-17 0.69084E-21 + 5 1 0.54572E-10 0.10000E+01 0.49215E+04 0.31061E-10 0.15890E-16 0.16473E-20 + 5 1 0.54572E-10 0.10000E+01 0.39689E+04 0.73038E-10 0.68267E-16 0.38935E-20 + 5 1 0.54572E-10 0.10000E+01 0.32008E+04 0.16966E-09 0.28629E-15 0.90816E-20 + 5 1 0.54572E-10 0.10000E+01 0.25813E+04 0.38775E-09 0.11722E-14 0.20821E-19 + 5 1 0.54572E-10 0.10000E+01 0.20817E+04 0.86942E-09 0.46800E-14 0.46799E-19 5 1 0.54572E-10 0.10000E+01 0.16788E+04 0.19092E-08 0.18207E-13 0.10296E-18 5 1 0.54572E-10 0.10000E+01 0.13538E+04 0.41010E-08 0.69165E-13 0.22146E-18 5 1 0.54572E-10 0.10000E+01 0.10918E+04 0.86136E-08 0.25791E-12 0.46561E-18 @@ -25510,24 +25510,24 @@ VERSION 2.8.2 5 1 0.54572E-10 0.10000E+01 0.24221E+03 0.85648E-06 0.79020E-09 0.46390E-16 5 1 0.54572E-10 0.10000E+01 0.19533E+03 0.13498E-05 0.15016E-08 0.73114E-16 5 1 0.54572E-10 0.10000E+01 0.15752E+03 0.13498E-05 0.15016E-08 0.73114E-16 - 5 1 0.95225E-10 0.10000E+01 0.80645E+05 0.53338E-57 0.41251E-68 0.10749E-66 - 5 1 0.95225E-10 0.10000E+01 0.65036E+05 0.46320E-56 0.66241E-67 0.94141E-66 - 5 1 0.95225E-10 0.10000E+01 0.52449E+05 0.40024E-55 0.93503E-66 0.81416E-65 - 5 1 0.95225E-10 0.10000E+01 0.42297E+05 0.31521E-54 0.15121E-64 0.62477E-64 - 5 1 0.95225E-10 0.10000E+01 0.34111E+05 0.26479E-53 0.31103E-63 0.46450E-63 - 5 1 0.95225E-10 0.10000E+01 0.27509E+05 0.27530E-52 0.84266E-62 0.36185E-62 - 5 1 0.95225E-10 0.10000E+01 0.22184E+05 0.37547E-51 0.26561E-60 0.35004E-61 - 5 1 0.95225E-10 0.10000E+01 0.17891E+05 0.59959E-50 0.82078E-59 0.47852E-60 - 5 1 0.95225E-10 0.10000E+01 0.14428E+05 0.96029E-49 0.23747E-57 0.76675E-59 - 5 1 0.95225E-10 0.10000E+01 0.11635E+05 0.14620E-47 0.65938E-56 0.12102E-57 - 5 1 0.95225E-10 0.10000E+01 0.93834E+04 0.21410E-46 0.18023E-54 0.18298E-56 - 5 1 0.95225E-10 0.10000E+01 0.75673E+04 0.30781E-45 0.49011E-53 0.26942E-55 - 5 1 0.95225E-10 0.10000E+01 0.61026E+04 0.43943E-44 0.13295E-51 0.39150E-54 - 5 1 0.95225E-10 0.10000E+01 0.49215E+04 0.62538E-43 0.35997E-50 0.56476E-53 - 5 1 0.95225E-10 0.10000E+01 0.39689E+04 0.88822E-42 0.97300E-49 0.81063E-52 - 5 1 0.95225E-10 0.10000E+01 0.32008E+04 0.39613E-39 0.84952E-46 0.36461E-49 - 5 1 0.95225E-10 0.10000E+01 0.25813E+04 0.29211E-30 0.14353E-36 0.27085E-40 - 5 1 0.95225E-10 0.10000E+01 0.20817E+04 0.55938E-14 0.12256E-19 0.52257E-24 + 5 1 0.95225E-10 0.10000E+01 0.80645E+05 0.35729E-14 0.41510E-25 0.70919E-24 + 5 1 0.95225E-10 0.10000E+01 0.65036E+05 0.47290E-14 0.17064E-24 0.92222E-24 + 5 1 0.95225E-10 0.10000E+01 0.52449E+05 0.64539E-14 0.80140E-24 0.11994E-23 + 5 1 0.95225E-10 0.10000E+01 0.42297E+05 0.95525E-14 0.38881E-23 0.16018E-23 + 5 1 0.95225E-10 0.10000E+01 0.34111E+05 0.16170E-13 0.18623E-22 0.22994E-23 + 5 1 0.95225E-10 0.10000E+01 0.27509E+05 0.31762E-13 0.87460E-22 0.37450E-23 + 5 1 0.95225E-10 0.10000E+01 0.22184E+05 0.69758E-13 0.40498E-21 0.70937E-23 + 5 1 0.95225E-10 0.10000E+01 0.17891E+05 0.16263E-12 0.18600E-20 0.15209E-22 + 5 1 0.95225E-10 0.10000E+01 0.14428E+05 0.38829E-12 0.85039E-20 0.35082E-22 + 5 1 0.95225E-10 0.10000E+01 0.11635E+05 0.93309E-12 0.38773E-19 0.83646E-22 + 5 1 0.95225E-10 0.10000E+01 0.93834E+04 0.22420E-11 0.17635E-18 0.20171E-21 + 5 1 0.95225E-10 0.10000E+01 0.75673E+04 0.53751E-11 0.79854E-18 0.48725E-21 + 5 1 0.95225E-10 0.10000E+01 0.61026E+04 0.12847E-10 0.35800E-17 0.11740E-20 + 5 1 0.95225E-10 0.10000E+01 0.49215E+04 0.30560E-10 0.15766E-16 0.28128E-20 + 5 1 0.95225E-10 0.10000E+01 0.39689E+04 0.72090E-10 0.67835E-16 0.66754E-20 + 5 1 0.95225E-10 0.10000E+01 0.32008E+04 0.16789E-09 0.28480E-15 0.15621E-19 + 5 1 0.95225E-10 0.10000E+01 0.25813E+04 0.38446E-09 0.11670E-14 0.35904E-19 + 5 1 0.95225E-10 0.10000E+01 0.20817E+04 0.86335E-09 0.46619E-14 0.80854E-19 5 1 0.95225E-10 0.10000E+01 0.16788E+04 0.18980E-08 0.18143E-13 0.17813E-18 5 1 0.95225E-10 0.10000E+01 0.13538E+04 0.40806E-08 0.68940E-13 0.38357E-18 5 1 0.95225E-10 0.10000E+01 0.10918E+04 0.85761E-08 0.25711E-12 0.80708E-18 @@ -25540,24 +25540,24 @@ VERSION 2.8.2 5 1 0.95225E-10 0.10000E+01 0.24221E+03 0.85384E-06 0.78780E-09 0.80539E-16 5 1 0.95225E-10 0.10000E+01 0.19533E+03 0.13457E-05 0.14971E-08 0.12694E-15 5 1 0.95225E-10 0.10000E+01 0.15752E+03 0.13457E-05 0.14971E-08 0.12694E-15 - 5 1 0.16616E-09 0.10000E+01 0.80645E+05 0.10831E-56 0.84134E-68 0.33649E-66 - 5 1 0.16616E-09 0.10000E+01 0.65036E+05 0.94382E-56 0.13505E-66 0.29209E-65 - 5 1 0.16616E-09 0.10000E+01 0.52449E+05 0.81476E-55 0.18599E-65 0.25174E-64 - 5 1 0.16616E-09 0.10000E+01 0.42297E+05 0.62646E-54 0.26584E-64 0.19203E-63 - 5 1 0.16616E-09 0.10000E+01 0.34111E+05 0.47293E-53 0.41443E-63 0.13945E-62 - 5 1 0.16616E-09 0.10000E+01 0.27509E+05 0.38376E-52 0.82703E-62 0.99836E-62 - 5 1 0.16616E-09 0.10000E+01 0.22184E+05 0.38951E-51 0.23108E-60 0.77606E-61 - 5 1 0.16616E-09 0.10000E+01 0.17891E+05 0.53703E-50 0.71872E-59 0.82846E-60 - 5 1 0.16616E-09 0.10000E+01 0.14428E+05 0.84667E-49 0.21403E-57 0.12129E-58 - 5 1 0.16616E-09 0.10000E+01 0.11635E+05 0.13169E-47 0.60847E-56 0.19194E-57 - 5 1 0.16616E-09 0.10000E+01 0.93834E+04 0.19721E-46 0.16918E-54 0.29611E-56 - 5 1 0.16616E-09 0.10000E+01 0.75673E+04 0.28850E-45 0.46590E-53 0.44363E-55 - 5 1 0.16616E-09 0.10000E+01 0.61026E+04 0.41726E-44 0.12762E-51 0.65289E-54 - 5 1 0.16616E-09 0.10000E+01 0.49215E+04 0.59980E-43 0.34818E-50 0.95065E-53 - 5 1 0.16616E-09 0.10000E+01 0.39689E+04 0.85857E-42 0.94687E-49 0.13742E-51 - 5 1 0.16616E-09 0.10000E+01 0.32008E+04 0.38534E-39 0.83094E-46 0.62162E-49 - 5 1 0.16616E-09 0.10000E+01 0.25813E+04 0.28572E-30 0.14110E-36 0.46404E-40 - 5 1 0.16616E-09 0.10000E+01 0.20817E+04 0.55023E-14 0.12112E-19 0.89981E-24 + 5 1 0.16616E-09 0.10000E+01 0.80645E+05 0.71821E-14 0.59598E-25 0.22335E-23 + 5 1 0.16616E-09 0.10000E+01 0.65036E+05 0.93472E-14 0.19315E-24 0.28858E-23 + 5 1 0.16616E-09 0.10000E+01 0.52449E+05 0.12198E-13 0.77901E-24 0.36945E-23 + 5 1 0.16616E-09 0.10000E+01 0.42297E+05 0.16421E-13 0.35823E-23 0.47532E-23 + 5 1 0.16616E-09 0.10000E+01 0.34111E+05 0.23886E-13 0.17083E-22 0.63203E-23 + 5 1 0.16616E-09 0.10000E+01 0.27509E+05 0.39506E-13 0.81119E-22 0.91065E-23 + 5 1 0.16616E-09 0.10000E+01 0.22184E+05 0.75696E-13 0.38064E-21 0.14979E-22 + 5 1 0.16616E-09 0.10000E+01 0.17891E+05 0.16304E-12 0.17688E-20 0.28665E-22 + 5 1 0.16616E-09 0.10000E+01 0.14428E+05 0.37590E-12 0.81644E-20 0.61868E-22 + 5 1 0.16616E-09 0.10000E+01 0.11635E+05 0.89380E-12 0.37509E-19 0.14320E-21 + 5 1 0.16616E-09 0.10000E+01 0.93834E+04 0.21485E-11 0.17163E-18 0.34207E-21 + 5 1 0.16616E-09 0.10000E+01 0.75673E+04 0.51742E-11 0.78093E-18 0.82594E-21 + 5 1 0.16616E-09 0.10000E+01 0.61026E+04 0.12435E-10 0.35141E-17 0.19959E-20 + 5 1 0.16616E-09 0.10000E+01 0.49215E+04 0.29732E-10 0.15520E-16 0.47999E-20 + 5 1 0.16616E-09 0.10000E+01 0.39689E+04 0.70448E-10 0.66913E-16 0.11432E-19 + 5 1 0.16616E-09 0.10000E+01 0.32008E+04 0.16465E-09 0.28135E-15 0.26831E-19 + 5 1 0.16616E-09 0.10000E+01 0.25813E+04 0.37809E-09 0.11541E-14 0.61815E-19 + 5 1 0.16616E-09 0.10000E+01 0.20817E+04 0.85083E-09 0.46143E-14 0.13946E-18 5 1 0.16616E-09 0.10000E+01 0.16788E+04 0.18735E-08 0.17967E-13 0.30768E-18 5 1 0.16616E-09 0.10000E+01 0.13538E+04 0.40327E-08 0.68292E-13 0.66322E-18 5 1 0.16616E-09 0.10000E+01 0.10918E+04 0.84828E-08 0.25473E-12 0.13965E-17 @@ -25570,24 +25570,24 @@ VERSION 2.8.2 5 1 0.16616E-09 0.10000E+01 0.24221E+03 0.84602E-06 0.78064E-09 0.13957E-15 5 1 0.16616E-09 0.10000E+01 0.19533E+03 0.13334E-05 0.14835E-08 0.21998E-15 5 1 0.16616E-09 0.10000E+01 0.15752E+03 0.13334E-05 0.14835E-08 0.21998E-15 - 5 1 0.28994E-09 0.10000E+01 0.80645E+05 0.22011E-56 0.16920E-67 0.11249E-65 - 5 1 0.28994E-09 0.10000E+01 0.65036E+05 0.19023E-55 0.27099E-66 0.96503E-65 - 5 1 0.28994E-09 0.10000E+01 0.52449E+05 0.16355E-54 0.36930E-65 0.82631E-64 - 5 1 0.28994E-09 0.10000E+01 0.42297E+05 0.12449E-53 0.50576E-64 0.62542E-63 - 5 1 0.28994E-09 0.10000E+01 0.34111E+05 0.90534E-53 0.69149E-63 0.44950E-62 - 5 1 0.28994E-09 0.10000E+01 0.27509E+05 0.65403E-52 0.10276E-61 0.31368E-61 - 5 1 0.28994E-09 0.10000E+01 0.22184E+05 0.51145E-51 0.21678E-60 0.21734E-60 - 5 1 0.28994E-09 0.10000E+01 0.17891E+05 0.53350E-50 0.62717E-59 0.17681E-59 - 5 1 0.28994E-09 0.10000E+01 0.14428E+05 0.75573E-49 0.19028E-57 0.20765E-58 - 5 1 0.28994E-09 0.10000E+01 0.11635E+05 0.11751E-47 0.55601E-56 0.31026E-57 - 5 1 0.28994E-09 0.10000E+01 0.93834E+04 0.17997E-46 0.15781E-54 0.48192E-56 - 5 1 0.28994E-09 0.10000E+01 0.75673E+04 0.26865E-45 0.44099E-53 0.73307E-55 - 5 1 0.28994E-09 0.10000E+01 0.61026E+04 0.39444E-44 0.12210E-51 0.10917E-53 - 5 1 0.28994E-09 0.10000E+01 0.49215E+04 0.57333E-43 0.33588E-50 0.16029E-52 - 5 1 0.28994E-09 0.10000E+01 0.39689E+04 0.82768E-42 0.91939E-49 0.23314E-51 - 5 1 0.28994E-09 0.10000E+01 0.32008E+04 0.37400E-39 0.81127E-46 0.10597E-48 - 5 1 0.28994E-09 0.10000E+01 0.25813E+04 0.27896E-30 0.13850E-36 0.79454E-40 - 5 1 0.28994E-09 0.10000E+01 0.20817E+04 0.54048E-14 0.11957E-19 0.15478E-23 + 5 1 0.28994E-09 0.10000E+01 0.80645E+05 0.14659E-13 0.10185E-24 0.75285E-23 + 5 1 0.28994E-09 0.10000E+01 0.65036E+05 0.18923E-13 0.26880E-24 0.96840E-23 + 5 1 0.28994E-09 0.10000E+01 0.52449E+05 0.24203E-13 0.86425E-24 0.12292E-22 + 5 1 0.28994E-09 0.10000E+01 0.42297E+05 0.31088E-13 0.34706E-23 0.15509E-22 + 5 1 0.28994E-09 0.10000E+01 0.34111E+05 0.41166E-13 0.15841E-22 0.19730E-22 + 5 1 0.28994E-09 0.10000E+01 0.27509E+05 0.58764E-13 0.75121E-22 0.26058E-22 + 5 1 0.28994E-09 0.10000E+01 0.22184E+05 0.95189E-13 0.35632E-21 0.37492E-22 + 5 1 0.28994E-09 0.10000E+01 0.17891E+05 0.17901E-12 0.16757E-20 0.61818E-22 + 5 1 0.28994E-09 0.10000E+01 0.14428E+05 0.38082E-12 0.78137E-20 0.11862E-21 + 5 1 0.28994E-09 0.10000E+01 0.11635E+05 0.87301E-12 0.36192E-19 0.25626E-21 + 5 1 0.28994E-09 0.10000E+01 0.93834E+04 0.20734E-11 0.16669E-18 0.59281E-21 + 5 1 0.28994E-09 0.10000E+01 0.75673E+04 0.49890E-11 0.76233E-18 0.14144E-20 + 5 1 0.28994E-09 0.10000E+01 0.61026E+04 0.12030E-10 0.34441E-17 0.34086E-20 + 5 1 0.28994E-09 0.10000E+01 0.49215E+04 0.28891E-10 0.15257E-16 0.82053E-20 + 5 1 0.28994E-09 0.10000E+01 0.39689E+04 0.68746E-10 0.65924E-16 0.19583E-19 + 5 1 0.28994E-09 0.10000E+01 0.32008E+04 0.16125E-09 0.27764E-15 0.46065E-19 + 5 1 0.28994E-09 0.10000E+01 0.25813E+04 0.37133E-09 0.11403E-14 0.10633E-18 + 5 1 0.28994E-09 0.10000E+01 0.20817E+04 0.83749E-09 0.45628E-14 0.24028E-18 5 1 0.28994E-09 0.10000E+01 0.16788E+04 0.18472E-08 0.17777E-13 0.53075E-18 5 1 0.28994E-09 0.10000E+01 0.13538E+04 0.39812E-08 0.67591E-13 0.11451E-17 5 1 0.28994E-09 0.10000E+01 0.10918E+04 0.83822E-08 0.25216E-12 0.24130E-17 @@ -25600,24 +25600,24 @@ VERSION 2.8.2 5 1 0.28994E-09 0.10000E+01 0.24221E+03 0.83753E-06 0.77285E-09 0.24148E-15 5 1 0.28994E-09 0.10000E+01 0.19533E+03 0.13200E-05 0.14687E-08 0.38061E-15 5 1 0.28994E-09 0.10000E+01 0.15752E+03 0.13200E-05 0.14687E-08 0.38061E-15 - 5 1 0.50593E-09 0.10000E+01 0.80645E+05 0.44926E-56 0.34079E-67 0.39232E-65 - 5 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38422E-55 0.54341E-66 0.33355E-64 - 5 1 0.50593E-09 0.10000E+01 0.52449E+05 0.32834E-54 0.73364E-65 0.28402E-63 - 5 1 0.50593E-09 0.10000E+01 0.42297E+05 0.24795E-53 0.99037E-64 0.21350E-62 - 5 1 0.50593E-09 0.10000E+01 0.34111E+05 0.17797E-52 0.13099E-62 0.15247E-61 - 5 1 0.50593E-09 0.10000E+01 0.27509E+05 0.12441E-51 0.16902E-61 0.10586E-60 - 5 1 0.50593E-09 0.10000E+01 0.22184E+05 0.86010E-51 0.25710E-60 0.70603E-60 - 5 1 0.50593E-09 0.10000E+01 0.17891E+05 0.67638E-50 0.58946E-59 0.47985E-59 - 5 1 0.50593E-09 0.10000E+01 0.14428E+05 0.74782E-49 0.17213E-57 0.41577E-58 - 5 1 0.50593E-09 0.10000E+01 0.11635E+05 0.10801E-47 0.51285E-56 0.52474E-57 - 5 1 0.50593E-09 0.10000E+01 0.93834E+04 0.16626E-46 0.14855E-54 0.79304E-56 - 5 1 0.50593E-09 0.10000E+01 0.75673E+04 0.25254E-45 0.42087E-53 0.12189E-54 - 5 1 0.50593E-09 0.10000E+01 0.61026E+04 0.37597E-44 0.11762E-51 0.18356E-53 - 5 1 0.50593E-09 0.10000E+01 0.49215E+04 0.55185E-43 0.32580E-50 0.27151E-52 - 5 1 0.50593E-09 0.10000E+01 0.39689E+04 0.80238E-42 0.89663E-49 0.39684E-51 - 5 1 0.50593E-09 0.10000E+01 0.32008E+04 0.36462E-39 0.79485E-46 0.18106E-48 - 5 1 0.50593E-09 0.10000E+01 0.25813E+04 0.27333E-30 0.13633E-36 0.13622E-39 - 5 1 0.50593E-09 0.10000E+01 0.20817E+04 0.53238E-14 0.11828E-19 0.26638E-23 + 5 1 0.50593E-09 0.10000E+01 0.80645E+05 0.30129E-13 0.19301E-24 0.26413E-22 + 5 1 0.50593E-09 0.10000E+01 0.65036E+05 0.38724E-13 0.45551E-24 0.33883E-22 + 5 1 0.50593E-09 0.10000E+01 0.52449E+05 0.49099E-13 0.11922E-23 0.42821E-22 + 5 1 0.50593E-09 0.10000E+01 0.42297E+05 0.61819E-13 0.38682E-23 0.53536E-22 + 5 1 0.50593E-09 0.10000E+01 0.34111E+05 0.78252E-13 0.15664E-22 0.66646E-22 + 5 1 0.50593E-09 0.10000E+01 0.27509E+05 0.10218E-12 0.71528E-22 0.83827E-22 + 5 1 0.50593E-09 0.10000E+01 0.22184E+05 0.14387E-12 0.33839E-21 0.10982E-21 + 5 1 0.50593E-09 0.10000E+01 0.17891E+05 0.23005E-12 0.16024E-20 0.15736E-21 + 5 1 0.50593E-09 0.10000E+01 0.14428E+05 0.42808E-12 0.75308E-20 0.25925E-21 + 5 1 0.50593E-09 0.10000E+01 0.11635E+05 0.90433E-12 0.35116E-19 0.49738E-21 + 5 1 0.50593E-09 0.10000E+01 0.93834E+04 0.20650E-11 0.16260E-18 0.10730E-20 + 5 1 0.50593E-09 0.10000E+01 0.75673E+04 0.48945E-11 0.74688E-18 0.24758E-20 + 5 1 0.50593E-09 0.10000E+01 0.61026E+04 0.11758E-10 0.33858E-17 0.58859E-20 + 5 1 0.50593E-09 0.10000E+01 0.49215E+04 0.28262E-10 0.15037E-16 0.14107E-19 + 5 1 0.50593E-09 0.10000E+01 0.39689E+04 0.67403E-10 0.65101E-16 0.33650E-19 + 5 1 0.50593E-09 0.10000E+01 0.32008E+04 0.15849E-09 0.27457E-15 0.79218E-19 + 5 1 0.50593E-09 0.10000E+01 0.25813E+04 0.36579E-09 0.11288E-14 0.18308E-18 + 5 1 0.50593E-09 0.10000E+01 0.20817E+04 0.82648E-09 0.45204E-14 0.41416E-18 5 1 0.50593E-09 0.10000E+01 0.16788E+04 0.18256E-08 0.17620E-13 0.91573E-18 5 1 0.50593E-09 0.10000E+01 0.13538E+04 0.39387E-08 0.67015E-13 0.19773E-17 5 1 0.50593E-09 0.10000E+01 0.10918E+04 0.82993E-08 0.25005E-12 0.41688E-17 @@ -25630,24 +25630,24 @@ VERSION 2.8.2 5 1 0.50593E-09 0.10000E+01 0.24221E+03 0.83053E-06 0.76641E-09 0.41764E-15 5 1 0.50593E-09 0.10000E+01 0.19533E+03 0.13090E-05 0.14564E-08 0.65826E-15 5 1 0.50593E-09 0.10000E+01 0.15752E+03 0.13090E-05 0.14564E-08 0.65826E-15 - 5 1 0.88282E-09 0.10000E+01 0.80645E+05 0.91476E-56 0.68731E-67 0.13789E-64 - 5 1 0.88282E-09 0.10000E+01 0.65036E+05 0.77641E-55 0.10919E-65 0.11662E-63 - 5 1 0.88282E-09 0.10000E+01 0.52449E+05 0.66035E-54 0.14632E-64 0.98963E-63 - 5 1 0.88282E-09 0.10000E+01 0.42297E+05 0.49567E-53 0.19615E-63 0.74065E-62 - 5 1 0.88282E-09 0.10000E+01 0.34111E+05 0.35353E-52 0.25848E-62 0.52675E-61 - 5 1 0.88282E-09 0.10000E+01 0.27509E+05 0.24558E-51 0.32187E-61 0.36567E-60 - 5 1 0.88282E-09 0.10000E+01 0.22184E+05 0.16393E-50 0.40073E-60 0.24273E-59 - 5 1 0.88282E-09 0.10000E+01 0.17891E+05 0.10961E-49 0.65251E-59 0.15348E-58 - 5 1 0.88282E-09 0.10000E+01 0.14428E+05 0.89454E-49 0.16244E-57 0.10392E-57 - 5 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10618E-47 0.47991E-56 0.98632E-57 - 5 1 0.88282E-09 0.10000E+01 0.93834E+04 0.15701E-46 0.14156E-54 0.13418E-55 - 5 1 0.88282E-09 0.10000E+01 0.75673E+04 0.24062E-45 0.40636E-53 0.20503E-54 - 5 1 0.88282E-09 0.10000E+01 0.61026E+04 0.36255E-44 0.11442E-51 0.31177E-53 - 5 1 0.88282E-09 0.10000E+01 0.49215E+04 0.53641E-43 0.31845E-50 0.46407E-52 - 5 1 0.88282E-09 0.10000E+01 0.39689E+04 0.78393E-42 0.87953E-49 0.68035E-51 - 5 1 0.88282E-09 0.10000E+01 0.32008E+04 0.35759E-39 0.78214E-46 0.31094E-48 - 5 1 0.88282E-09 0.10000E+01 0.25813E+04 0.26899E-30 0.13461E-36 0.23432E-39 - 5 1 0.88282E-09 0.10000E+01 0.20817E+04 0.52599E-14 0.11724E-19 0.45928E-23 + 5 1 0.88282E-09 0.10000E+01 0.80645E+05 0.61656E-13 0.38079E-24 0.93152E-22 + 5 1 0.88282E-09 0.10000E+01 0.65036E+05 0.79057E-13 0.85890E-24 0.11932E-21 + 5 1 0.88282E-09 0.10000E+01 0.52449E+05 0.99851E-13 0.19873E-23 0.15049E-21 + 5 1 0.88282E-09 0.10000E+01 0.42297E+05 0.12471E-12 0.52216E-23 0.18744E-21 + 5 1 0.88282E-09 0.10000E+01 0.34111E+05 0.15486E-12 0.17370E-22 0.23122E-21 + 5 1 0.88282E-09 0.10000E+01 0.27509E+05 0.19357E-12 0.71749E-22 0.28429E-21 + 5 1 0.88282E-09 0.10000E+01 0.22184E+05 0.25005E-12 0.32934E-21 0.35391E-21 + 5 1 0.88282E-09 0.10000E+01 0.17891E+05 0.34929E-12 0.15545E-20 0.46068E-21 + 5 1 0.88282E-09 0.10000E+01 0.14428E+05 0.55585E-12 0.73314E-20 0.65942E-21 + 5 1 0.88282E-09 0.10000E+01 0.11635E+05 0.10313E-11 0.34330E-19 0.10894E-20 + 5 1 0.88282E-09 0.10000E+01 0.93834E+04 0.21731E-11 0.15954E-18 0.20953E-20 + 5 1 0.88282E-09 0.10000E+01 0.75673E+04 0.49481E-11 0.73502E-18 0.45185E-20 + 5 1 0.88282E-09 0.10000E+01 0.61026E+04 0.11687E-10 0.33402E-17 0.10390E-19 + 5 1 0.88282E-09 0.10000E+01 0.49215E+04 0.27925E-10 0.14863E-16 0.24542E-19 + 5 1 0.88282E-09 0.10000E+01 0.39689E+04 0.66518E-10 0.64439E-16 0.58207E-19 + 5 1 0.88282E-09 0.10000E+01 0.32008E+04 0.15650E-09 0.27207E-15 0.13677E-18 + 5 1 0.88282E-09 0.10000E+01 0.25813E+04 0.36158E-09 0.11195E-14 0.31598E-18 + 5 1 0.88282E-09 0.10000E+01 0.20817E+04 0.81787E-09 0.44856E-14 0.71499E-18 5 1 0.88282E-09 0.10000E+01 0.16788E+04 0.18083E-08 0.17491E-13 0.15815E-17 5 1 0.88282E-09 0.10000E+01 0.13538E+04 0.39044E-08 0.66538E-13 0.34162E-17 5 1 0.88282E-09 0.10000E+01 0.10918E+04 0.82318E-08 0.24829E-12 0.72050E-17 @@ -25660,24 +25660,24 @@ VERSION 2.8.2 5 1 0.88282E-09 0.10000E+01 0.24221E+03 0.82463E-06 0.76096E-09 0.72214E-15 5 1 0.88282E-09 0.10000E+01 0.19533E+03 0.12997E-05 0.14461E-08 0.11382E-14 5 1 0.88282E-09 0.10000E+01 0.15752E+03 0.12997E-05 0.14461E-08 0.11382E-14 - 5 1 0.15405E-08 0.10000E+01 0.80645E+05 0.22169E-55 0.16538E-66 0.19444E-63 - 5 1 0.15405E-08 0.10000E+01 0.65036E+05 0.18709E-54 0.26199E-65 0.16386E-62 - 5 1 0.15405E-08 0.10000E+01 0.52449E+05 0.15857E-53 0.34936E-64 0.13874E-61 - 5 1 0.15405E-08 0.10000E+01 0.42297E+05 0.11856E-52 0.46757E-63 0.10359E-60 - 5 1 0.15405E-08 0.10000E+01 0.34111E+05 0.84435E-52 0.62479E-62 0.73632E-60 - 5 1 0.15405E-08 0.10000E+01 0.27509E+05 0.59246E-51 0.81019E-61 0.51534E-59 - 5 1 0.15405E-08 0.10000E+01 0.22184E+05 0.40692E-50 0.10307E-59 0.35092E-58 - 5 1 0.15405E-08 0.10000E+01 0.17891E+05 0.27534E-49 0.14075E-58 0.22768E-57 - 5 1 0.15405E-08 0.10000E+01 0.14428E+05 0.19631E-48 0.24555E-57 0.13888E-56 - 5 1 0.15405E-08 0.10000E+01 0.11635E+05 0.17070E-47 0.57662E-56 0.81553E-56 - 5 1 0.15405E-08 0.10000E+01 0.93834E+04 0.19685E-46 0.15733E-54 0.52856E-55 - 5 1 0.15405E-08 0.10000E+01 0.75673E+04 0.27170E-45 0.44125E-53 0.48422E-54 - 5 1 0.15405E-08 0.10000E+01 0.61026E+04 0.39529E-44 0.12261E-51 0.62492E-53 - 5 1 0.15405E-08 0.10000E+01 0.49215E+04 0.57536E-43 0.33698E-50 0.90174E-52 - 5 1 0.15405E-08 0.10000E+01 0.39689E+04 0.83012E-42 0.92000E-49 0.13001E-50 - 5 1 0.15405E-08 0.10000E+01 0.32008E+04 0.37425E-39 0.80984E-46 0.58076E-48 - 5 1 0.15405E-08 0.10000E+01 0.25813E+04 0.27849E-30 0.13803E-36 0.42644E-39 - 5 1 0.15405E-08 0.10000E+01 0.20817E+04 0.53875E-14 0.11903E-19 0.81441E-23 + 5 1 0.15405E-08 0.10000E+01 0.80645E+05 0.15001E-12 0.91972E-24 0.13169E-20 + 5 1 0.15405E-08 0.10000E+01 0.65036E+05 0.19213E-12 0.20848E-23 0.16858E-20 + 5 1 0.15405E-08 0.10000E+01 0.52449E+05 0.24243E-12 0.47202E-23 0.21254E-20 + 5 1 0.15405E-08 0.10000E+01 0.42297E+05 0.30246E-12 0.11147E-22 0.26464E-20 + 5 1 0.15405E-08 0.10000E+01 0.34111E+05 0.37429E-12 0.29920E-22 0.32582E-20 + 5 1 0.15405E-08 0.10000E+01 0.27509E+05 0.46190E-12 0.98679E-22 0.39673E-20 + 5 1 0.15405E-08 0.10000E+01 0.22184E+05 0.57520E-12 0.39261E-21 0.47820E-20 + 5 1 0.15405E-08 0.10000E+01 0.17891E+05 0.74041E-12 0.17297E-20 0.57272E-20 + 5 1 0.15405E-08 0.10000E+01 0.14428E+05 0.10253E-11 0.78986E-20 0.68859E-20 + 5 1 0.15405E-08 0.10000E+01 0.11635E+05 0.15998E-11 0.36328E-19 0.84980E-20 + 5 1 0.15405E-08 0.10000E+01 0.93834E+04 0.28796E-11 0.16677E-18 0.11186E-19 + 5 1 0.15405E-08 0.10000E+01 0.75673E+04 0.58696E-11 0.76119E-18 0.16480E-19 + 5 1 0.15405E-08 0.10000E+01 0.61026E+04 0.12974E-10 0.34345E-17 0.28036E-19 + 5 1 0.15405E-08 0.10000E+01 0.49215E+04 0.29868E-10 0.15201E-16 0.54439E-19 + 5 1 0.15405E-08 0.10000E+01 0.39689E+04 0.69673E-10 0.65650E-16 0.11541E-18 + 5 1 0.15405E-08 0.10000E+01 0.32008E+04 0.16191E-09 0.27640E-15 0.25516E-18 + 5 1 0.15405E-08 0.10000E+01 0.25813E+04 0.37121E-09 0.11350E-14 0.57012E-18 + 5 1 0.15405E-08 0.10000E+01 0.20817E+04 0.83541E-09 0.45411E-14 0.12655E-17 5 1 0.15405E-08 0.10000E+01 0.16788E+04 0.18406E-08 0.17690E-13 0.27668E-17 5 1 0.15405E-08 0.10000E+01 0.13538E+04 0.39646E-08 0.67251E-13 0.59320E-17 5 1 0.15405E-08 0.10000E+01 0.10918E+04 0.83445E-08 0.25085E-12 0.12448E-16 @@ -25690,24 +25690,24 @@ VERSION 2.8.2 5 1 0.15405E-08 0.10000E+01 0.24221E+03 0.83283E-06 0.76833E-09 0.12325E-14 5 1 0.15405E-08 0.10000E+01 0.19533E+03 0.13126E-05 0.14601E-08 0.19419E-14 5 1 0.15405E-08 0.10000E+01 0.15752E+03 0.13126E-05 0.14601E-08 0.19419E-14 - 5 1 0.26880E-08 0.10000E+01 0.80645E+05 0.44147E-55 0.32899E-66 0.76539E-63 - 5 1 0.26880E-08 0.10000E+01 0.65036E+05 0.37227E-54 0.52097E-65 0.64519E-62 - 5 1 0.26880E-08 0.10000E+01 0.52449E+05 0.31535E-53 0.69411E-64 0.54648E-61 - 5 1 0.26880E-08 0.10000E+01 0.42297E+05 0.23562E-52 0.92815E-63 0.40832E-60 - 5 1 0.26880E-08 0.10000E+01 0.34111E+05 0.16767E-51 0.12398E-61 0.29071E-59 - 5 1 0.26880E-08 0.10000E+01 0.27509E+05 0.11758E-50 0.16033E-60 0.20417E-58 - 5 1 0.26880E-08 0.10000E+01 0.22184E+05 0.80503E-50 0.19916E-59 0.14006E-57 - 5 1 0.26880E-08 0.10000E+01 0.17891E+05 0.53362E-49 0.24604E-58 0.92169E-57 - 5 1 0.26880E-08 0.10000E+01 0.14428E+05 0.35072E-48 0.34415E-57 0.57325E-56 - 5 1 0.26880E-08 0.10000E+01 0.11635E+05 0.25233E-47 0.64825E-56 0.33641E-55 - 5 1 0.26880E-08 0.10000E+01 0.93834E+04 0.23294E-46 0.16099E-54 0.19548E-54 - 5 1 0.26880E-08 0.10000E+01 0.75673E+04 0.28462E-45 0.44413E-53 0.13553E-53 - 5 1 0.26880E-08 0.10000E+01 0.61026E+04 0.40026E-44 0.12346E-51 0.13880E-52 - 5 1 0.26880E-08 0.10000E+01 0.49215E+04 0.57964E-43 0.33900E-50 0.18524E-51 - 5 1 0.26880E-08 0.10000E+01 0.39689E+04 0.83490E-42 0.92262E-49 0.26049E-50 - 5 1 0.26880E-08 0.10000E+01 0.32008E+04 0.37529E-39 0.80913E-46 0.11368E-47 - 5 1 0.26880E-08 0.10000E+01 0.25813E+04 0.27821E-30 0.13740E-36 0.81010E-39 - 5 1 0.26880E-08 0.10000E+01 0.20817E+04 0.53615E-14 0.11804E-19 0.14934E-22 + 5 1 0.26880E-08 0.10000E+01 0.80645E+05 0.29889E-12 0.18253E-23 0.51836E-20 + 5 1 0.26880E-08 0.10000E+01 0.65036E+05 0.38272E-12 0.41144E-23 0.66371E-20 + 5 1 0.26880E-08 0.10000E+01 0.52449E+05 0.48272E-12 0.91242E-23 0.83711E-20 + 5 1 0.26880E-08 0.10000E+01 0.42297E+05 0.60166E-12 0.20271E-22 0.10431E-19 + 5 1 0.26880E-08 0.10000E+01 0.34111E+05 0.74252E-12 0.47711E-22 0.12857E-19 + 5 1 0.26880E-08 0.10000E+01 0.27509E+05 0.90955E-12 0.13100E-21 0.15675E-19 + 5 1 0.26880E-08 0.10000E+01 0.22184E+05 0.11119E-11 0.44757E-21 0.18903E-19 + 5 1 0.26880E-08 0.10000E+01 0.17891E+05 0.13741E-11 0.18206E-20 0.22571E-19 + 5 1 0.26880E-08 0.10000E+01 0.14428E+05 0.17613E-11 0.80566E-20 0.26806E-19 + 5 1 0.26880E-08 0.10000E+01 0.11635E+05 0.24407E-11 0.36623E-19 0.32029E-19 + 5 1 0.26880E-08 0.10000E+01 0.93834E+04 0.38265E-11 0.16721E-18 0.39399E-19 + 5 1 0.26880E-08 0.10000E+01 0.75673E+04 0.69213E-11 0.76050E-18 0.51802E-19 + 5 1 0.26880E-08 0.10000E+01 0.61026E+04 0.14123E-10 0.34224E-17 0.76072E-19 + 5 1 0.26880E-08 0.10000E+01 0.49215E+04 0.31080E-10 0.15118E-16 0.12798E-18 + 5 1 0.26880E-08 0.10000E+01 0.39689E+04 0.70831E-10 0.65194E-16 0.24321E-18 + 5 1 0.26880E-08 0.10000E+01 0.32008E+04 0.16267E-09 0.27419E-15 0.50060E-18 + 5 1 0.26880E-08 0.10000E+01 0.25813E+04 0.37069E-09 0.11250E-14 0.10705E-17 + 5 1 0.26880E-08 0.10000E+01 0.20817E+04 0.83144E-09 0.44988E-14 0.23125E-17 5 1 0.26880E-08 0.10000E+01 0.16788E+04 0.18283E-08 0.17519E-13 0.49687E-17 5 1 0.26880E-08 0.10000E+01 0.13538E+04 0.39332E-08 0.66577E-13 0.10530E-16 5 1 0.26880E-08 0.10000E+01 0.10918E+04 0.82717E-08 0.24827E-12 0.21919E-16 @@ -25720,24 +25720,24 @@ VERSION 2.8.2 5 1 0.26880E-08 0.10000E+01 0.24221E+03 0.82391E-06 0.75991E-09 0.21294E-14 5 1 0.26880E-08 0.10000E+01 0.19533E+03 0.12984E-05 0.14440E-08 0.33534E-14 5 1 0.26880E-08 0.10000E+01 0.15752E+03 0.12984E-05 0.14440E-08 0.33534E-14 - 5 1 0.46905E-08 0.10000E+01 0.80645E+05 0.84914E-55 0.63264E-66 0.25137E-62 - 5 1 0.46905E-08 0.10000E+01 0.65036E+05 0.71591E-54 0.10018E-64 0.21198E-61 - 5 1 0.46905E-08 0.10000E+01 0.52449E+05 0.60640E-53 0.13347E-63 0.17961E-60 - 5 1 0.46905E-08 0.10000E+01 0.42297E+05 0.45308E-52 0.17852E-62 0.13429E-59 - 5 1 0.46905E-08 0.10000E+01 0.34111E+05 0.32249E-51 0.23870E-61 0.95741E-59 - 5 1 0.46905E-08 0.10000E+01 0.27509E+05 0.22631E-50 0.30904E-60 0.67413E-58 - 5 1 0.46905E-08 0.10000E+01 0.22184E+05 0.15505E-49 0.38168E-59 0.46473E-57 - 5 1 0.46905E-08 0.10000E+01 0.17891E+05 0.10224E-48 0.45256E-58 0.30863E-56 - 5 1 0.46905E-08 0.10000E+01 0.14428E+05 0.65022E-48 0.55190E-57 0.19482E-55 - 5 1 0.46905E-08 0.10000E+01 0.11635E+05 0.41896E-47 0.82401E-56 0.11604E-54 - 5 1 0.46905E-08 0.10000E+01 0.93834E+04 0.31427E-46 0.17362E-54 0.66133E-54 - 5 1 0.46905E-08 0.10000E+01 0.75673E+04 0.31973E-45 0.45741E-53 0.40197E-53 - 5 1 0.46905E-08 0.10000E+01 0.61026E+04 0.41790E-44 0.12665E-51 0.33476E-52 - 5 1 0.46905E-08 0.10000E+01 0.49215E+04 0.59589E-43 0.34720E-50 0.40051E-51 - 5 1 0.46905E-08 0.10000E+01 0.39689E+04 0.85492E-42 0.94020E-49 0.54427E-50 - 5 1 0.46905E-08 0.10000E+01 0.32008E+04 0.38237E-39 0.81918E-46 0.23194E-47 - 5 1 0.46905E-08 0.10000E+01 0.25813E+04 0.28156E-30 0.13815E-36 0.15995E-38 - 5 1 0.46905E-08 0.10000E+01 0.20817E+04 0.53870E-14 0.11779E-19 0.28225E-22 + 5 1 0.46905E-08 0.10000E+01 0.80645E+05 0.57500E-12 0.35114E-23 0.17022E-19 + 5 1 0.46905E-08 0.10000E+01 0.65036E+05 0.73624E-12 0.79068E-23 0.21799E-19 + 5 1 0.46905E-08 0.10000E+01 0.52449E+05 0.92859E-12 0.17410E-22 0.27505E-19 + 5 1 0.46905E-08 0.10000E+01 0.42297E+05 0.11572E-11 0.37661E-22 0.34293E-19 + 5 1 0.46905E-08 0.10000E+01 0.34111E+05 0.14269E-11 0.82369E-22 0.42305E-19 + 5 1 0.46905E-08 0.10000E+01 0.27509E+05 0.17430E-11 0.19616E-21 0.51643E-19 + 5 1 0.46905E-08 0.10000E+01 0.22184E+05 0.21140E-11 0.56452E-21 0.62357E-19 + 5 1 0.46905E-08 0.10000E+01 0.17891E+05 0.25619E-11 0.20325E-20 0.74483E-19 + 5 1 0.46905E-08 0.10000E+01 0.14428E+05 0.31486E-11 0.84913E-20 0.88202E-19 + 5 1 0.46905E-08 0.10000E+01 0.11635E+05 0.40389E-11 0.37719E-19 0.10425E-18 + 5 1 0.46905E-08 0.10000E+01 0.93834E+04 0.56486E-11 0.17039E-18 0.12484E-18 + 5 1 0.46905E-08 0.10000E+01 0.75673E+04 0.89903E-11 0.76986E-18 0.15558E-18 + 5 1 0.46905E-08 0.10000E+01 0.61026E+04 0.16481E-10 0.34474E-17 0.20966E-18 + 5 1 0.46905E-08 0.10000E+01 0.49215E+04 0.33800E-10 0.15170E-16 0.31695E-18 + 5 1 0.46905E-08 0.10000E+01 0.39689E+04 0.74009E-10 0.65230E-16 0.54361E-18 + 5 1 0.46905E-08 0.10000E+01 0.32008E+04 0.16638E-09 0.27375E-15 0.10331E-17 + 5 1 0.46905E-08 0.10000E+01 0.25813E+04 0.37483E-09 0.11215E-14 0.20907E-17 + 5 1 0.46905E-08 0.10000E+01 0.20817E+04 0.83538E-09 0.44796E-14 0.43540E-17 5 1 0.46905E-08 0.10000E+01 0.16788E+04 0.18300E-08 0.17429E-13 0.91273E-17 5 1 0.46905E-08 0.10000E+01 0.13538E+04 0.39273E-08 0.66194E-13 0.19016E-16 5 1 0.46905E-08 0.10000E+01 0.10918E+04 0.82460E-08 0.24672E-12 0.39111E-16 @@ -25750,24 +25750,24 @@ VERSION 2.8.2 5 1 0.46905E-08 0.10000E+01 0.24221E+03 0.81813E-06 0.75423E-09 0.36911E-14 5 1 0.46905E-08 0.10000E+01 0.19533E+03 0.12892E-05 0.14332E-08 0.58084E-14 5 1 0.46905E-08 0.10000E+01 0.15752E+03 0.12892E-05 0.14332E-08 0.58084E-14 - 5 1 0.81846E-08 0.10000E+01 0.80645E+05 0.16157E-54 0.12039E-65 0.81777E-62 - 5 1 0.81846E-08 0.10000E+01 0.65036E+05 0.13624E-53 0.19067E-64 0.68988E-61 - 5 1 0.81846E-08 0.10000E+01 0.52449E+05 0.11542E-52 0.25416E-63 0.58475E-60 - 5 1 0.81846E-08 0.10000E+01 0.42297E+05 0.86267E-52 0.34029E-62 0.43752E-59 - 5 1 0.81846E-08 0.10000E+01 0.34111E+05 0.61456E-51 0.45595E-61 0.31234E-58 - 5 1 0.81846E-08 0.10000E+01 0.27509E+05 0.43204E-50 0.59265E-60 0.22044E-57 - 5 1 0.81846E-08 0.10000E+01 0.22184E+05 0.29695E-49 0.73515E-59 0.15261E-56 - 5 1 0.81846E-08 0.10000E+01 0.17891E+05 0.19647E-48 0.86568E-58 0.10213E-55 - 5 1 0.81846E-08 0.10000E+01 0.14428E+05 0.12425E-47 0.99469E-57 0.65308E-55 - 5 1 0.81846E-08 0.10000E+01 0.11635E+05 0.76467E-47 0.12439E-55 0.39573E-54 - 5 1 0.81846E-08 0.10000E+01 0.93834E+04 0.49731E-46 0.20939E-54 0.22686E-53 - 5 1 0.81846E-08 0.10000E+01 0.75673E+04 0.40864E-45 0.49634E-53 0.12961E-52 - 5 1 0.81846E-08 0.10000E+01 0.61026E+04 0.46629E-44 0.13469E-51 0.90893E-52 - 5 1 0.81846E-08 0.10000E+01 0.49215E+04 0.63787E-43 0.36725E-50 0.94409E-51 - 5 1 0.81846E-08 0.10000E+01 0.39689E+04 0.90467E-42 0.98534E-49 0.12204E-49 - 5 1 0.81846E-08 0.10000E+01 0.32008E+04 0.40062E-39 0.84797E-46 0.50685E-47 - 5 1 0.81846E-08 0.10000E+01 0.25813E+04 0.29122E-30 0.14099E-36 0.33706E-38 - 5 1 0.81846E-08 0.10000E+01 0.20817E+04 0.54889E-14 0.11826E-19 0.56261E-22 + 5 1 0.81846E-08 0.10000E+01 0.80645E+05 0.10941E-11 0.66970E-23 0.55365E-19 + 5 1 0.81846E-08 0.10000E+01 0.65036E+05 0.14011E-11 0.15103E-22 0.70920E-19 + 5 1 0.81846E-08 0.10000E+01 0.52449E+05 0.17674E-11 0.33261E-22 0.89511E-19 + 5 1 0.81846E-08 0.10000E+01 0.42297E+05 0.22031E-11 0.71397E-22 0.11166E-18 + 5 1 0.81846E-08 0.10000E+01 0.34111E+05 0.27171E-11 0.15113E-21 0.13787E-18 + 5 1 0.81846E-08 0.10000E+01 0.27509E+05 0.33175E-11 0.32969E-21 0.16851E-18 + 5 1 0.81846E-08 0.10000E+01 0.22184E+05 0.40129E-11 0.81462E-21 0.20377E-18 + 5 1 0.81846E-08 0.10000E+01 0.17891E+05 0.48227E-11 0.25093E-20 0.24371E-18 + 5 1 0.81846E-08 0.10000E+01 0.14428E+05 0.58046E-11 0.95196E-20 0.28853E-18 + 5 1 0.81846E-08 0.10000E+01 0.11635E+05 0.71217E-11 0.40435E-19 0.33953E-18 + 5 1 0.81846E-08 0.10000E+01 0.93834E+04 0.91982E-11 0.17875E-18 0.40104E-18 + 5 1 0.81846E-08 0.10000E+01 0.75673E+04 0.13076E-10 0.79676E-18 0.48454E-18 + 5 1 0.81846E-08 0.10000E+01 0.61026E+04 0.21236E-10 0.35315E-17 0.61692E-18 + 5 1 0.81846E-08 0.10000E+01 0.49215E+04 0.39469E-10 0.15416E-16 0.85780E-18 + 5 1 0.81846E-08 0.10000E+01 0.39689E+04 0.81002E-10 0.65872E-16 0.13354E-17 + 5 1 0.81846E-08 0.10000E+01 0.32008E+04 0.17532E-09 0.27513E-15 0.23201E-17 + 5 1 0.81846E-08 0.10000E+01 0.25813E+04 0.38650E-09 0.11232E-14 0.43741E-17 + 5 1 0.81846E-08 0.10000E+01 0.20817E+04 0.85051E-09 0.44750E-14 0.86491E-17 5 1 0.81846E-08 0.10000E+01 0.16788E+04 0.18486E-08 0.17379E-13 0.17469E-16 5 1 0.81846E-08 0.10000E+01 0.13538E+04 0.39471E-08 0.65916E-13 0.35430E-16 5 1 0.81846E-08 0.10000E+01 0.10918E+04 0.82589E-08 0.24542E-12 0.71449E-16 @@ -25780,24 +25780,24 @@ VERSION 2.8.2 5 1 0.81846E-08 0.10000E+01 0.24221E+03 0.81272E-06 0.74859E-09 0.64172E-14 5 1 0.81846E-08 0.10000E+01 0.19533E+03 0.12804E-05 0.14225E-08 0.10085E-13 5 1 0.81846E-08 0.10000E+01 0.15752E+03 0.12804E-05 0.14225E-08 0.10085E-13 - 5 1 0.14282E-07 0.10000E+01 0.80645E+05 0.30442E-54 0.22691E-65 0.26444E-61 - 5 1 0.14282E-07 0.10000E+01 0.65036E+05 0.25675E-53 0.35946E-64 0.22317E-60 - 5 1 0.14282E-07 0.10000E+01 0.52449E+05 0.21757E-52 0.47947E-63 0.18923E-59 - 5 1 0.14282E-07 0.10000E+01 0.42297E+05 0.16272E-51 0.64280E-62 0.14168E-58 - 5 1 0.14282E-07 0.10000E+01 0.34111E+05 0.11605E-50 0.86337E-61 0.10127E-57 - 5 1 0.14282E-07 0.10000E+01 0.27509E+05 0.81753E-50 0.11274E-59 0.71622E-57 - 5 1 0.14282E-07 0.10000E+01 0.22184E+05 0.56408E-49 0.14089E-58 0.49766E-56 - 5 1 0.14282E-07 0.10000E+01 0.17891E+05 0.37546E-48 0.16701E-57 0.33521E-55 - 5 1 0.14282E-07 0.10000E+01 0.14428E+05 0.23872E-47 0.18921E-56 0.21667E-54 - 5 1 0.14282E-07 0.10000E+01 0.11635E+05 0.14540E-46 0.21527E-55 0.13338E-53 - 5 1 0.14282E-07 0.10000E+01 0.93834E+04 0.88067E-46 0.29254E-54 0.77578E-53 - 5 1 0.14282E-07 0.10000E+01 0.75673E+04 0.60553E-45 0.58326E-53 0.43430E-52 - 5 1 0.14282E-07 0.10000E+01 0.61026E+04 0.57349E-44 0.15051E-51 0.27098E-51 - 5 1 0.14282E-07 0.10000E+01 0.49215E+04 0.72317E-43 0.40568E-50 0.24252E-50 - 5 1 0.14282E-07 0.10000E+01 0.39689E+04 0.10013E-41 0.10738E-48 0.29366E-49 - 5 1 0.14282E-07 0.10000E+01 0.32008E+04 0.43649E-39 0.90644E-46 0.11889E-46 - 5 1 0.14282E-07 0.10000E+01 0.25813E+04 0.31082E-30 0.14709E-36 0.76420E-38 - 5 1 0.14282E-07 0.10000E+01 0.20817E+04 0.57088E-14 0.11967E-19 0.12009E-21 + 5 1 0.14282E-07 0.10000E+01 0.80645E+05 0.20612E-11 0.12658E-22 0.17900E-18 + 5 1 0.14282E-07 0.10000E+01 0.65036E+05 0.26399E-11 0.28613E-22 0.22934E-18 + 5 1 0.14282E-07 0.10000E+01 0.52449E+05 0.33311E-11 0.63196E-22 0.28955E-18 + 5 1 0.14282E-07 0.10000E+01 0.42297E+05 0.41540E-11 0.13575E-21 0.36139E-18 + 5 1 0.14282E-07 0.10000E+01 0.34111E+05 0.51262E-11 0.28433E-21 0.44655E-18 + 5 1 0.14282E-07 0.10000E+01 0.27509E+05 0.62620E-11 0.59381E-21 0.54640E-18 + 5 1 0.14282E-07 0.10000E+01 0.22184E+05 0.75726E-11 0.13206E-20 0.66172E-18 + 5 1 0.14282E-07 0.10000E+01 0.17891E+05 0.90746E-11 0.34882E-20 0.79266E-18 + 5 1 0.14282E-07 0.10000E+01 0.14428E+05 0.10820E-10 0.11624E-19 0.93933E-18 + 5 1 0.14282E-07 0.10000E+01 0.11635E+05 0.12970E-10 0.45915E-19 0.11039E-17 + 5 1 0.14282E-07 0.10000E+01 0.93834E+04 0.15966E-10 0.19556E-18 0.12952E-17 + 5 1 0.14282E-07 0.10000E+01 0.75673E+04 0.20907E-10 0.85157E-18 0.15380E-17 + 5 1 0.14282E-07 0.10000E+01 0.61026E+04 0.30404E-10 0.37080E-17 0.18909E-17 + 5 1 0.14282E-07 0.10000E+01 0.49215E+04 0.50484E-10 0.15955E-16 0.24806E-17 + 5 1 0.14282E-07 0.10000E+01 0.39689E+04 0.94752E-10 0.67398E-16 0.35711E-17 + 5 1 0.14282E-07 0.10000E+01 0.32008E+04 0.19322E-09 0.27900E-15 0.56992E-17 + 5 1 0.14282E-07 0.10000E+01 0.25813E+04 0.41059E-09 0.11313E-14 0.99423E-17 + 5 1 0.14282E-07 0.10000E+01 0.20817E+04 0.88330E-09 0.44851E-14 0.18446E-16 5 1 0.14282E-07 0.10000E+01 0.16788E+04 0.18924E-08 0.17356E-13 0.35443E-16 5 1 0.14282E-07 0.10000E+01 0.13538E+04 0.40020E-08 0.65652E-13 0.69167E-16 5 1 0.14282E-07 0.10000E+01 0.10918E+04 0.83184E-08 0.24397E-12 0.13540E-15 @@ -25810,24 +25810,24 @@ VERSION 2.8.2 5 1 0.14282E-07 0.10000E+01 0.24221E+03 0.80590E-06 0.74114E-09 0.11214E-13 5 1 0.14282E-07 0.10000E+01 0.19533E+03 0.12691E-05 0.14082E-08 0.17584E-13 5 1 0.14282E-07 0.10000E+01 0.15752E+03 0.12691E-05 0.14082E-08 0.17584E-13 - 5 1 0.24920E-07 0.10000E+01 0.80645E+05 0.56799E-54 0.42354E-65 0.84609E-61 - 5 1 0.24920E-07 0.10000E+01 0.65036E+05 0.47921E-53 0.67115E-64 0.71433E-60 - 5 1 0.24920E-07 0.10000E+01 0.52449E+05 0.40621E-52 0.89589E-63 0.60589E-59 - 5 1 0.24920E-07 0.10000E+01 0.42297E+05 0.30398E-51 0.12027E-61 0.45392E-58 - 5 1 0.24920E-07 0.10000E+01 0.34111E+05 0.21705E-50 0.16193E-60 0.32479E-57 - 5 1 0.24920E-07 0.10000E+01 0.27509E+05 0.15323E-49 0.21238E-59 0.23013E-56 - 5 1 0.24920E-07 0.10000E+01 0.22184E+05 0.10612E-48 0.26744E-58 0.16041E-55 - 5 1 0.24920E-07 0.10000E+01 0.17891E+05 0.71084E-48 0.32040E-57 0.10863E-54 - 5 1 0.24920E-07 0.10000E+01 0.14428E+05 0.45587E-47 0.36499E-56 0.70834E-54 - 5 1 0.24920E-07 0.10000E+01 0.11635E+05 0.27903E-46 0.40136E-55 0.44191E-53 - 5 1 0.24920E-07 0.10000E+01 0.93834E+04 0.16495E-45 0.47141E-54 0.26116E-52 - 5 1 0.24920E-07 0.10000E+01 0.75673E+04 0.10159E-44 0.76552E-53 0.14621E-51 - 5 1 0.24920E-07 0.10000E+01 0.61026E+04 0.79681E-44 0.18024E-51 0.85225E-51 - 5 1 0.24920E-07 0.10000E+01 0.49215E+04 0.88844E-43 0.47589E-50 0.66813E-50 - 5 1 0.24920E-07 0.10000E+01 0.39689E+04 0.11805E-41 0.12392E-48 0.74971E-49 - 5 1 0.24920E-07 0.10000E+01 0.32008E+04 0.50367E-39 0.10197E-45 0.29630E-46 - 5 1 0.24920E-07 0.10000E+01 0.25813E+04 0.34881E-30 0.15962E-36 0.18551E-37 - 5 1 0.24920E-07 0.10000E+01 0.20817E+04 0.61657E-14 0.12352E-19 0.27613E-21 + 5 1 0.24920E-07 0.10000E+01 0.80645E+05 0.38452E-11 0.23695E-22 0.57263E-18 + 5 1 0.24920E-07 0.10000E+01 0.65036E+05 0.49257E-11 0.53696E-22 0.73379E-18 + 5 1 0.24920E-07 0.10000E+01 0.52449E+05 0.62173E-11 0.11903E-21 0.92671E-18 + 5 1 0.24920E-07 0.10000E+01 0.42297E+05 0.77567E-11 0.25668E-21 0.11572E-17 + 5 1 0.24920E-07 0.10000E+01 0.34111E+05 0.95787E-11 0.53751E-21 0.14308E-17 + 5 1 0.24920E-07 0.10000E+01 0.27509E+05 0.11711E-10 0.11035E-20 0.17525E-17 + 5 1 0.24920E-07 0.10000E+01 0.22184E+05 0.14172E-10 0.23126E-20 0.21252E-17 + 5 1 0.24920E-07 0.10000E+01 0.17891E+05 0.16978E-10 0.54240E-20 0.25497E-17 + 5 1 0.24920E-07 0.10000E+01 0.14428E+05 0.20171E-10 0.15753E-19 0.30257E-17 + 5 1 0.24920E-07 0.10000E+01 0.11635E+05 0.23912E-10 0.56487E-19 0.35565E-17 + 5 1 0.24920E-07 0.10000E+01 0.93834E+04 0.28672E-10 0.22781E-18 0.41605E-17 + 5 1 0.24920E-07 0.10000E+01 0.75673E+04 0.35659E-10 0.95840E-18 0.48942E-17 + 5 1 0.24920E-07 0.10000E+01 0.61026E+04 0.47734E-10 0.40629E-17 0.58929E-17 + 5 1 0.24920E-07 0.10000E+01 0.49215E+04 0.71409E-10 0.17094E-16 0.74460E-17 + 5 1 0.24920E-07 0.10000E+01 0.39689E+04 0.12111E-09 0.70870E-16 0.10136E-16 + 5 1 0.24920E-07 0.10000E+01 0.32008E+04 0.22814E-09 0.28897E-15 0.15098E-16 + 5 1 0.24920E-07 0.10000E+01 0.25813E+04 0.45899E-09 0.11580E-14 0.24517E-16 + 5 1 0.24920E-07 0.10000E+01 0.20817E+04 0.95244E-09 0.45507E-14 0.42571E-16 5 1 0.24920E-07 0.10000E+01 0.16788E+04 0.19921E-08 0.17496E-13 0.77232E-16 5 1 0.24920E-07 0.10000E+01 0.13538E+04 0.41442E-08 0.65869E-13 0.14362E-15 5 1 0.24920E-07 0.10000E+01 0.10918E+04 0.85146E-08 0.24393E-12 0.27015E-15 @@ -25840,24 +25840,24 @@ VERSION 2.8.2 5 1 0.24920E-07 0.10000E+01 0.24221E+03 0.80227E-06 0.73576E-09 0.19769E-13 5 1 0.24920E-07 0.10000E+01 0.19533E+03 0.12625E-05 0.13979E-08 0.30878E-13 5 1 0.24920E-07 0.10000E+01 0.15752E+03 0.12625E-05 0.13979E-08 0.30878E-13 - 5 1 0.43485E-07 0.10000E+01 0.80645E+05 0.10510E-53 0.78406E-65 0.26954E-60 - 5 1 0.43485E-07 0.10000E+01 0.65036E+05 0.88705E-53 0.12428E-63 0.22764E-59 - 5 1 0.43485E-07 0.10000E+01 0.52449E+05 0.75217E-52 0.16602E-62 0.19314E-58 - 5 1 0.43485E-07 0.10000E+01 0.42297E+05 0.56321E-51 0.22317E-61 0.14477E-57 - 5 1 0.43485E-07 0.10000E+01 0.34111E+05 0.40259E-50 0.30113E-60 0.10369E-56 - 5 1 0.43485E-07 0.10000E+01 0.27509E+05 0.28477E-49 0.39653E-59 0.73588E-56 - 5 1 0.43485E-07 0.10000E+01 0.22184E+05 0.19790E-48 0.50282E-58 0.51431E-55 - 5 1 0.43485E-07 0.10000E+01 0.17891E+05 0.13334E-47 0.60891E-57 0.34986E-54 - 5 1 0.43485E-07 0.10000E+01 0.14428E+05 0.86274E-47 0.70205E-56 0.22981E-53 - 5 1 0.43485E-07 0.10000E+01 0.11635E+05 0.53336E-46 0.76941E-55 0.14498E-52 - 5 1 0.43485E-07 0.10000E+01 0.93834E+04 0.31489E-45 0.83738E-54 0.86955E-52 - 5 1 0.43485E-07 0.10000E+01 0.75673E+04 0.18378E-44 0.11296E-52 0.49107E-51 - 5 1 0.43485E-07 0.10000E+01 0.61026E+04 0.12414E-43 0.23332E-51 0.27625E-50 - 5 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11934E-42 0.59575E-50 0.19471E-49 - 5 1 0.43485E-07 0.10000E+01 0.39689E+04 0.14919E-41 0.15251E-48 0.20142E-48 - 5 1 0.43485E-07 0.10000E+01 0.32008E+04 0.62017E-39 0.12195E-45 0.77746E-46 - 5 1 0.43485E-07 0.10000E+01 0.25813E+04 0.41582E-30 0.18220E-36 0.47847E-37 - 5 1 0.43485E-07 0.10000E+01 0.20817E+04 0.69929E-14 0.13076E-19 0.68378E-21 + 5 1 0.43485E-07 0.10000E+01 0.80645E+05 0.71141E-11 0.43986E-22 0.18240E-17 + 5 1 0.43485E-07 0.10000E+01 0.65036E+05 0.91148E-11 0.99912E-22 0.23377E-17 + 5 1 0.43485E-07 0.10000E+01 0.52449E+05 0.11508E-10 0.22227E-21 0.29530E-17 + 5 1 0.43485E-07 0.10000E+01 0.42297E+05 0.14364E-10 0.48161E-21 0.36888E-17 + 5 1 0.43485E-07 0.10000E+01 0.34111E+05 0.17750E-10 0.10125E-20 0.45638E-17 + 5 1 0.43485E-07 0.10000E+01 0.27509E+05 0.21722E-10 0.20708E-20 0.55947E-17 + 5 1 0.43485E-07 0.10000E+01 0.22184E+05 0.26316E-10 0.42158E-20 0.67926E-17 + 5 1 0.43485E-07 0.10000E+01 0.17891E+05 0.31549E-10 0.91452E-20 0.81616E-17 + 5 1 0.43485E-07 0.10000E+01 0.14428E+05 0.37454E-10 0.23555E-19 0.96998E-17 + 5 1 0.43485E-07 0.10000E+01 0.11635E+05 0.44187E-10 0.75836E-19 0.11411E-16 + 5 1 0.43485E-07 0.10000E+01 0.93834E+04 0.52264E-10 0.28550E-18 0.13335E-16 + 5 1 0.43485E-07 0.10000E+01 0.75673E+04 0.63072E-10 0.11484E-17 0.15607E-16 + 5 1 0.43485E-07 0.10000E+01 0.61026E+04 0.79908E-10 0.46980E-17 0.18558E-16 + 5 1 0.43485E-07 0.10000E+01 0.49215E+04 0.11014E-09 0.19154E-16 0.22894E-16 + 5 1 0.43485E-07 0.10000E+01 0.39689E+04 0.16970E-09 0.77244E-16 0.30000E-16 + 5 1 0.43485E-07 0.10000E+01 0.32008E+04 0.29224E-09 0.30762E-15 0.42466E-16 + 5 1 0.43485E-07 0.10000E+01 0.25813E+04 0.54774E-09 0.12094E-14 0.65040E-16 + 5 1 0.43485E-07 0.10000E+01 0.20817E+04 0.10796E-08 0.46827E-14 0.10637E-15 5 1 0.43485E-07 0.10000E+01 0.16788E+04 0.21769E-08 0.17804E-13 0.18225E-15 5 1 0.43485E-07 0.10000E+01 0.13538E+04 0.44115E-08 0.66480E-13 0.32148E-15 5 1 0.43485E-07 0.10000E+01 0.10918E+04 0.88927E-08 0.24471E-12 0.57669E-15 @@ -25870,24 +25870,24 @@ VERSION 2.8.2 5 1 0.43485E-07 0.10000E+01 0.24221E+03 0.79881E-06 0.72902E-09 0.35353E-13 5 1 0.43485E-07 0.10000E+01 0.19533E+03 0.12554E-05 0.13849E-08 0.54870E-13 5 1 0.43485E-07 0.10000E+01 0.15752E+03 0.12554E-05 0.13849E-08 0.54870E-13 - 5 1 0.75878E-07 0.10000E+01 0.80645E+05 0.19293E-53 0.14399E-64 0.85056E-60 - 5 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16289E-52 0.22830E-63 0.71854E-59 - 5 1 0.75878E-07 0.10000E+01 0.52449E+05 0.13816E-51 0.30518E-62 0.60980E-58 - 5 1 0.75878E-07 0.10000E+01 0.42297E+05 0.10351E-50 0.41074E-61 0.45730E-57 - 5 1 0.75878E-07 0.10000E+01 0.34111E+05 0.74069E-50 0.55532E-60 0.32780E-56 - 5 1 0.75878E-07 0.10000E+01 0.27509E+05 0.52484E-49 0.73379E-59 0.23296E-55 - 5 1 0.75878E-07 0.10000E+01 0.22184E+05 0.36584E-48 0.93610E-58 0.16319E-54 - 5 1 0.75878E-07 0.10000E+01 0.17891E+05 0.24774E-47 0.11445E-56 0.11143E-53 - 5 1 0.75878E-07 0.10000E+01 0.14428E+05 0.16158E-46 0.13367E-55 0.73631E-53 - 5 1 0.75878E-07 0.10000E+01 0.11635E+05 0.10097E-45 0.14784E-54 0.46877E-52 - 5 1 0.75878E-07 0.10000E+01 0.93834E+04 0.60091E-45 0.15625E-53 0.28479E-51 - 5 1 0.75878E-07 0.10000E+01 0.75673E+04 0.34403E-44 0.18447E-52 0.16269E-50 - 5 1 0.75878E-07 0.10000E+01 0.61026E+04 0.21087E-43 0.32835E-51 0.90097E-50 - 5 1 0.75878E-07 0.10000E+01 0.49215E+04 0.17543E-42 0.79923E-50 0.58681E-49 - 5 1 0.75878E-07 0.10000E+01 0.39689E+04 0.20309E-41 0.20144E-48 0.56056E-48 - 5 1 0.75878E-07 0.10000E+01 0.32008E+04 0.82056E-39 0.15688E-45 0.21124E-45 - 5 1 0.75878E-07 0.10000E+01 0.25813E+04 0.53309E-30 0.22263E-36 0.12883E-36 - 5 1 0.75878E-07 0.10000E+01 0.20817E+04 0.84860E-14 0.14460E-19 0.17965E-20 + 5 1 0.75878E-07 0.10000E+01 0.80645E+05 0.13057E-10 0.80981E-22 0.57549E-17 + 5 1 0.75878E-07 0.10000E+01 0.65036E+05 0.16732E-10 0.18433E-21 0.73767E-17 + 5 1 0.75878E-07 0.10000E+01 0.52449E+05 0.21132E-10 0.41141E-21 0.93204E-17 + 5 1 0.75878E-07 0.10000E+01 0.42297E+05 0.26387E-10 0.89556E-21 0.11647E-16 + 5 1 0.75878E-07 0.10000E+01 0.34111E+05 0.32628E-10 0.18928E-20 0.14417E-16 + 5 1 0.75878E-07 0.10000E+01 0.27509E+05 0.39965E-10 0.38794E-20 0.17686E-16 + 5 1 0.75878E-07 0.10000E+01 0.22184E+05 0.48472E-10 0.78065E-20 0.21495E-16 + 5 1 0.75878E-07 0.10000E+01 0.17891E+05 0.58177E-10 0.16183E-19 0.25862E-16 + 5 1 0.75878E-07 0.10000E+01 0.14428E+05 0.69101E-10 0.38115E-19 0.30780E-16 + 5 1 0.75878E-07 0.10000E+01 0.11635E+05 0.81389E-10 0.11095E-18 0.36251E-16 + 5 1 0.75878E-07 0.10000E+01 0.93834E+04 0.95626E-10 0.38789E-18 0.42362E-16 + 5 1 0.75878E-07 0.10000E+01 0.75673E+04 0.11349E-09 0.14840E-17 0.49443E-16 + 5 1 0.75878E-07 0.10000E+01 0.61026E+04 0.13903E-09 0.58282E-17 0.58347E-16 + 5 1 0.75878E-07 0.10000E+01 0.49215E+04 0.18113E-09 0.22875E-16 0.70893E-16 + 5 1 0.75878E-07 0.10000E+01 0.39689E+04 0.25844E-09 0.88979E-16 0.90584E-16 + 5 1 0.75878E-07 0.10000E+01 0.32008E+04 0.40904E-09 0.34290E-15 0.12377E-15 + 5 1 0.75878E-07 0.10000E+01 0.25813E+04 0.70961E-09 0.13105E-14 0.18156E-15 + 5 1 0.75878E-07 0.10000E+01 0.20817E+04 0.13130E-08 0.49585E-14 0.28319E-15 5 1 0.75878E-07 0.10000E+01 0.16788E+04 0.25209E-08 0.18518E-13 0.46195E-15 5 1 0.75878E-07 0.10000E+01 0.13538E+04 0.49208E-08 0.68214E-13 0.77574E-15 5 1 0.75878E-07 0.10000E+01 0.10918E+04 0.96387E-08 0.24856E-12 0.13259E-14 @@ -25900,24 +25900,24 @@ VERSION 2.8.2 5 1 0.75878E-07 0.10000E+01 0.24221E+03 0.80111E-06 0.72499E-09 0.64669E-13 5 1 0.75878E-07 0.10000E+01 0.19533E+03 0.12563E-05 0.13768E-08 0.99357E-13 5 1 0.75878E-07 0.10000E+01 0.15752E+03 0.12563E-05 0.13768E-08 0.99357E-13 - 5 1 0.13240E-06 0.10000E+01 0.80645E+05 0.35149E-53 0.26243E-64 0.26493E-59 - 5 1 0.13240E-06 0.10000E+01 0.65036E+05 0.29686E-52 0.41619E-63 0.22387E-58 - 5 1 0.13240E-06 0.10000E+01 0.52449E+05 0.25186E-51 0.55670E-62 0.19003E-57 - 5 1 0.13240E-06 0.10000E+01 0.42297E+05 0.18879E-50 0.75005E-61 0.14256E-56 - 5 1 0.13240E-06 0.10000E+01 0.34111E+05 0.13522E-49 0.10159E-59 0.10226E-55 - 5 1 0.13240E-06 0.10000E+01 0.27509E+05 0.95960E-49 0.13464E-58 0.72760E-55 - 5 1 0.13240E-06 0.10000E+01 0.22184E+05 0.67063E-48 0.17264E-57 0.51065E-54 - 5 1 0.13240E-06 0.10000E+01 0.17891E+05 0.45613E-47 0.21282E-56 0.34977E-53 - 5 1 0.13240E-06 0.10000E+01 0.14428E+05 0.29957E-46 0.25150E-55 0.23226E-52 - 5 1 0.13240E-06 0.10000E+01 0.11635E+05 0.18905E-45 0.28182E-54 0.14896E-51 - 5 1 0.13240E-06 0.10000E+01 0.93834E+04 0.11374E-44 0.29637E-53 0.91462E-51 - 5 1 0.13240E-06 0.10000E+01 0.75673E+04 0.64991E-44 0.32234E-52 0.52854E-50 - 5 1 0.13240E-06 0.10000E+01 0.61026E+04 0.37686E-43 0.49738E-51 0.29128E-49 - 5 1 0.13240E-06 0.10000E+01 0.49215E+04 0.27755E-42 0.11389E-49 0.17945E-48 - 5 1 0.13240E-06 0.10000E+01 0.39689E+04 0.29504E-41 0.28323E-48 0.15939E-47 - 5 1 0.13240E-06 0.10000E+01 0.32008E+04 0.11576E-38 0.21621E-45 0.58612E-45 - 5 1 0.13240E-06 0.10000E+01 0.25813E+04 0.73259E-30 0.29238E-36 0.35614E-36 - 5 1 0.13240E-06 0.10000E+01 0.20817E+04 0.11079E-13 0.16893E-19 0.49130E-20 + 5 1 0.13240E-06 0.10000E+01 0.80645E+05 0.23785E-10 0.14792E-21 0.17923E-16 + 5 1 0.13240E-06 0.10000E+01 0.65036E+05 0.30484E-10 0.33732E-21 0.22977E-16 + 5 1 0.13240E-06 0.10000E+01 0.52449E+05 0.38508E-10 0.75503E-21 0.29037E-16 + 5 1 0.13240E-06 0.10000E+01 0.42297E+05 0.48103E-10 0.16504E-20 0.36294E-16 + 5 1 0.13240E-06 0.10000E+01 0.34111E+05 0.59513E-10 0.35068E-20 0.44946E-16 + 5 1 0.13240E-06 0.10000E+01 0.27509E+05 0.72956E-10 0.72204E-20 0.55174E-16 + 5 1 0.13240E-06 0.10000E+01 0.22184E+05 0.88581E-10 0.14488E-19 0.67115E-16 + 5 1 0.13240E-06 0.10000E+01 0.17891E+05 0.10645E-09 0.29303E-19 0.80840E-16 + 5 1 0.13240E-06 0.10000E+01 0.14428E+05 0.12657E-09 0.64911E-19 0.96338E-16 + 5 1 0.13240E-06 0.10000E+01 0.11635E+05 0.14906E-09 0.17374E-18 0.11359E-15 + 5 1 0.13240E-06 0.10000E+01 0.93834E+04 0.17460E-09 0.56605E-18 0.13279E-15 + 5 1 0.13240E-06 0.10000E+01 0.75673E+04 0.20535E-09 0.20612E-17 0.15478E-15 + 5 1 0.13240E-06 0.10000E+01 0.61026E+04 0.24656E-09 0.77727E-17 0.18180E-15 + 5 1 0.13240E-06 0.10000E+01 0.49215E+04 0.30972E-09 0.29308E-16 0.21872E-15 + 5 1 0.13240E-06 0.10000E+01 0.39689E+04 0.41816E-09 0.10941E-15 0.27483E-15 + 5 1 0.13240E-06 0.10000E+01 0.32008E+04 0.61770E-09 0.40475E-15 0.36657E-15 + 5 1 0.13240E-06 0.10000E+01 0.25813E+04 0.99685E-09 0.14891E-14 0.52176E-15 + 5 1 0.13240E-06 0.10000E+01 0.20817E+04 0.17254E-08 0.54513E-14 0.78628E-15 5 1 0.13240E-06 0.10000E+01 0.16788E+04 0.31279E-08 0.19813E-13 0.12354E-14 5 1 0.13240E-06 0.10000E+01 0.13538E+04 0.58205E-08 0.71440E-13 0.19932E-14 5 1 0.13240E-06 0.10000E+01 0.10918E+04 0.10963E-07 0.25607E-12 0.32657E-14 @@ -25930,24 +25930,24 @@ VERSION 2.8.2 5 1 0.13240E-06 0.10000E+01 0.24221E+03 0.80796E-06 0.72072E-09 0.12224E-12 5 1 0.13240E-06 0.10000E+01 0.19533E+03 0.12624E-05 0.13681E-08 0.18497E-12 5 1 0.13240E-06 0.10000E+01 0.15752E+03 0.12624E-05 0.13681E-08 0.18497E-12 - 5 1 0.23103E-06 0.10000E+01 0.80645E+05 0.62184E-53 0.46434E-64 0.57270E-59 - 5 1 0.23103E-06 0.10000E+01 0.65036E+05 0.52524E-52 0.73646E-63 0.48397E-58 - 5 1 0.23103E-06 0.10000E+01 0.52449E+05 0.44567E-51 0.98531E-62 0.41084E-57 - 5 1 0.23103E-06 0.10000E+01 0.42297E+05 0.33413E-50 0.13280E-60 0.30827E-56 - 5 1 0.23103E-06 0.10000E+01 0.34111E+05 0.23939E-49 0.17998E-59 0.22118E-55 - 5 1 0.23103E-06 0.10000E+01 0.27509E+05 0.16998E-48 0.23878E-58 0.15742E-54 - 5 1 0.23103E-06 0.10000E+01 0.22184E+05 0.11890E-47 0.30673E-57 0.11055E-53 - 5 1 0.23103E-06 0.10000E+01 0.17891E+05 0.80993E-47 0.37918E-56 0.75799E-53 - 5 1 0.23103E-06 0.10000E+01 0.14428E+05 0.53319E-46 0.44995E-55 0.50413E-52 - 5 1 0.23103E-06 0.10000E+01 0.11635E+05 0.33767E-45 0.50678E-54 0.32409E-51 - 5 1 0.23103E-06 0.10000E+01 0.93834E+04 0.20402E-44 0.53377E-53 0.19968E-50 - 5 1 0.23103E-06 0.10000E+01 0.75673E+04 0.11677E-43 0.56856E-52 0.11585E-49 - 5 1 0.23103E-06 0.10000E+01 0.61026E+04 0.66804E-43 0.83475E-51 0.63832E-49 - 5 1 0.23103E-06 0.10000E+01 0.49215E+04 0.47306E-42 0.18618E-49 0.38697E-48 - 5 1 0.23103E-06 0.10000E+01 0.39689E+04 0.48639E-41 0.46084E-48 0.33532E-47 - 5 1 0.23103E-06 0.10000E+01 0.32008E+04 0.18868E-38 0.34985E-45 0.12217E-44 - 5 1 0.23103E-06 0.10000E+01 0.25813E+04 0.11844E-29 0.46547E-36 0.74197E-36 - 5 1 0.23103E-06 0.10000E+01 0.20817E+04 0.17609E-13 0.25667E-19 0.10221E-19 + 5 1 0.23103E-06 0.10000E+01 0.80645E+05 0.42077E-10 0.26193E-21 0.38743E-16 + 5 1 0.23103E-06 0.10000E+01 0.65036E+05 0.53931E-10 0.59769E-21 0.49670E-16 + 5 1 0.23103E-06 0.10000E+01 0.52449E+05 0.68132E-10 0.13392E-20 0.62773E-16 + 5 1 0.23103E-06 0.10000E+01 0.42297E+05 0.85118E-10 0.29316E-20 0.78469E-16 + 5 1 0.23103E-06 0.10000E+01 0.34111E+05 0.10533E-09 0.62413E-20 0.97187E-16 + 5 1 0.23103E-06 0.10000E+01 0.27509E+05 0.12916E-09 0.12876E-19 0.11933E-15 + 5 1 0.23103E-06 0.10000E+01 0.22184E+05 0.15688E-09 0.25841E-19 0.14520E-15 + 5 1 0.23103E-06 0.10000E+01 0.17891E+05 0.18862E-09 0.51958E-19 0.17495E-15 + 5 1 0.23103E-06 0.10000E+01 0.14428E+05 0.22437E-09 0.11308E-18 0.20859E-15 + 5 1 0.23103E-06 0.10000E+01 0.11635E+05 0.26429E-09 0.29454E-18 0.24605E-15 + 5 1 0.23103E-06 0.10000E+01 0.93834E+04 0.30939E-09 0.93601E-18 0.28770E-15 + 5 1 0.23103E-06 0.10000E+01 0.75673E+04 0.36304E-09 0.33483E-17 0.33522E-15 + 5 1 0.23103E-06 0.10000E+01 0.61026E+04 0.43359E-09 0.12444E-16 0.39324E-15 + 5 1 0.23103E-06 0.10000E+01 0.49215E+04 0.53915E-09 0.46232E-16 0.47178E-15 + 5 1 0.23103E-06 0.10000E+01 0.39689E+04 0.71618E-09 0.16983E-15 0.58999E-15 + 5 1 0.23103E-06 0.10000E+01 0.32008E+04 0.10352E-08 0.61769E-15 0.78153E-15 + 5 1 0.23103E-06 0.10000E+01 0.25813E+04 0.16300E-08 0.22346E-14 0.11027E-14 + 5 1 0.23103E-06 0.10000E+01 0.20817E+04 0.27527E-08 0.80544E-14 0.16451E-14 5 1 0.23103E-06 0.10000E+01 0.16788E+04 0.48777E-08 0.28888E-13 0.25561E-14 5 1 0.23103E-06 0.10000E+01 0.13538E+04 0.88944E-08 0.10303E-12 0.40733E-14 5 1 0.23103E-06 0.10000E+01 0.10918E+04 0.16460E-07 0.36612E-12 0.65838E-14 @@ -25960,24 +25960,24 @@ VERSION 2.8.2 5 1 0.23103E-06 0.10000E+01 0.24221E+03 0.11421E-05 0.10106E-08 0.22208E-12 5 1 0.23103E-06 0.10000E+01 0.19533E+03 0.17808E-05 0.19179E-08 0.33363E-12 5 1 0.23103E-06 0.10000E+01 0.15752E+03 0.17808E-05 0.19179E-08 0.33363E-12 - 5 1 0.40314E-06 0.10000E+01 0.80645E+05 0.10851E-52 0.81024E-64 0.99933E-59 - 5 1 0.40314E-06 0.10000E+01 0.65036E+05 0.91650E-52 0.12851E-62 0.84451E-58 - 5 1 0.40314E-06 0.10000E+01 0.52449E+05 0.77767E-51 0.17193E-61 0.71690E-57 - 5 1 0.40314E-06 0.10000E+01 0.42297E+05 0.58304E-50 0.23173E-60 0.53791E-56 - 5 1 0.40314E-06 0.10000E+01 0.34111E+05 0.41772E-49 0.31405E-59 0.38594E-55 - 5 1 0.40314E-06 0.10000E+01 0.27509E+05 0.29661E-48 0.41666E-58 0.27470E-54 - 5 1 0.40314E-06 0.10000E+01 0.22184E+05 0.20747E-47 0.53522E-57 0.19291E-53 - 5 1 0.40314E-06 0.10000E+01 0.17891E+05 0.14133E-46 0.66165E-56 0.13226E-52 - 5 1 0.40314E-06 0.10000E+01 0.14428E+05 0.93039E-46 0.78513E-55 0.87968E-52 - 5 1 0.40314E-06 0.10000E+01 0.11635E+05 0.58921E-45 0.88430E-54 0.56552E-51 - 5 1 0.40314E-06 0.10000E+01 0.93834E+04 0.35600E-44 0.93140E-53 0.34843E-50 - 5 1 0.40314E-06 0.10000E+01 0.75673E+04 0.20375E-43 0.99210E-52 0.20216E-49 - 5 1 0.40314E-06 0.10000E+01 0.61026E+04 0.11657E-42 0.14566E-50 0.11138E-48 - 5 1 0.40314E-06 0.10000E+01 0.49215E+04 0.82547E-42 0.32487E-49 0.67524E-48 - 5 1 0.40314E-06 0.10000E+01 0.39689E+04 0.84872E-41 0.80414E-48 0.58511E-47 - 5 1 0.40314E-06 0.10000E+01 0.32008E+04 0.32923E-38 0.61047E-45 0.21319E-44 - 5 1 0.40314E-06 0.10000E+01 0.25813E+04 0.20668E-29 0.81221E-36 0.12947E-35 - 5 1 0.40314E-06 0.10000E+01 0.20817E+04 0.30727E-13 0.44788E-19 0.17834E-19 + 5 1 0.40314E-06 0.10000E+01 0.80645E+05 0.73422E-10 0.45705E-21 0.67605E-16 + 5 1 0.40314E-06 0.10000E+01 0.65036E+05 0.94106E-10 0.10429E-20 0.86670E-16 + 5 1 0.40314E-06 0.10000E+01 0.52449E+05 0.11889E-09 0.23368E-20 0.10953E-15 + 5 1 0.40314E-06 0.10000E+01 0.42297E+05 0.14853E-09 0.51155E-20 0.13692E-15 + 5 1 0.40314E-06 0.10000E+01 0.34111E+05 0.18380E-09 0.10891E-19 0.16959E-15 + 5 1 0.40314E-06 0.10000E+01 0.27509E+05 0.22538E-09 0.22468E-19 0.20822E-15 + 5 1 0.40314E-06 0.10000E+01 0.22184E+05 0.27375E-09 0.45092E-19 0.25336E-15 + 5 1 0.40314E-06 0.10000E+01 0.17891E+05 0.32913E-09 0.90663E-19 0.30528E-15 + 5 1 0.40314E-06 0.10000E+01 0.14428E+05 0.39152E-09 0.19732E-18 0.36397E-15 + 5 1 0.40314E-06 0.10000E+01 0.11635E+05 0.46117E-09 0.51396E-18 0.42934E-15 + 5 1 0.40314E-06 0.10000E+01 0.93834E+04 0.53987E-09 0.16333E-17 0.50201E-15 + 5 1 0.40314E-06 0.10000E+01 0.75673E+04 0.63348E-09 0.58426E-17 0.58494E-15 + 5 1 0.40314E-06 0.10000E+01 0.61026E+04 0.75658E-09 0.21713E-16 0.68618E-15 + 5 1 0.40314E-06 0.10000E+01 0.49215E+04 0.94078E-09 0.80672E-16 0.82324E-15 + 5 1 0.40314E-06 0.10000E+01 0.39689E+04 0.12497E-08 0.29634E-15 0.10295E-14 + 5 1 0.40314E-06 0.10000E+01 0.32008E+04 0.18064E-08 0.10778E-14 0.13637E-14 + 5 1 0.40314E-06 0.10000E+01 0.25813E+04 0.28442E-08 0.38992E-14 0.19242E-14 + 5 1 0.40314E-06 0.10000E+01 0.20817E+04 0.48032E-08 0.14054E-13 0.28706E-14 5 1 0.40314E-06 0.10000E+01 0.16788E+04 0.85112E-08 0.50407E-13 0.44602E-14 5 1 0.40314E-06 0.10000E+01 0.13538E+04 0.15520E-07 0.17978E-12 0.71077E-14 5 1 0.40314E-06 0.10000E+01 0.10918E+04 0.28723E-07 0.63886E-12 0.11488E-13 @@ -25990,24 +25990,24 @@ VERSION 2.8.2 5 1 0.40314E-06 0.10000E+01 0.24221E+03 0.19928E-05 0.17635E-08 0.38751E-12 5 1 0.40314E-06 0.10000E+01 0.19533E+03 0.31074E-05 0.33466E-08 0.58216E-12 5 1 0.40314E-06 0.10000E+01 0.15752E+03 0.31074E-05 0.33466E-08 0.58216E-12 - 5 1 0.70346E-06 0.10000E+01 0.80645E+05 0.18934E-52 0.14138E-63 0.17438E-58 - 5 1 0.70346E-06 0.10000E+01 0.65036E+05 0.15992E-51 0.22424E-62 0.14736E-57 - 5 1 0.70346E-06 0.10000E+01 0.52449E+05 0.13570E-50 0.30001E-61 0.12509E-56 - 5 1 0.70346E-06 0.10000E+01 0.42297E+05 0.10174E-49 0.40436E-60 0.93861E-56 - 5 1 0.70346E-06 0.10000E+01 0.34111E+05 0.72889E-49 0.54800E-59 0.67344E-55 - 5 1 0.70346E-06 0.10000E+01 0.27509E+05 0.51756E-48 0.72704E-58 0.47933E-54 - 5 1 0.70346E-06 0.10000E+01 0.22184E+05 0.36203E-47 0.93392E-57 0.33662E-53 - 5 1 0.70346E-06 0.10000E+01 0.17891E+05 0.24661E-46 0.11545E-55 0.23079E-52 - 5 1 0.70346E-06 0.10000E+01 0.14428E+05 0.16235E-45 0.13700E-54 0.15350E-51 - 5 1 0.70346E-06 0.10000E+01 0.11635E+05 0.10281E-44 0.15430E-53 0.98681E-51 - 5 1 0.70346E-06 0.10000E+01 0.93834E+04 0.62119E-44 0.16252E-52 0.60798E-50 - 5 1 0.70346E-06 0.10000E+01 0.75673E+04 0.35554E-43 0.17312E-51 0.35275E-49 - 5 1 0.70346E-06 0.10000E+01 0.61026E+04 0.20340E-42 0.25417E-50 0.19436E-48 - 5 1 0.70346E-06 0.10000E+01 0.49215E+04 0.14404E-41 0.56687E-49 0.11783E-47 - 5 1 0.70346E-06 0.10000E+01 0.39689E+04 0.14810E-40 0.14032E-47 0.10210E-46 - 5 1 0.70346E-06 0.10000E+01 0.32008E+04 0.57449E-38 0.10652E-44 0.37200E-44 - 5 1 0.70346E-06 0.10000E+01 0.25813E+04 0.36064E-29 0.14173E-35 0.22592E-35 - 5 1 0.70346E-06 0.10000E+01 0.20817E+04 0.53617E-13 0.78152E-19 0.31120E-19 + 5 1 0.70346E-06 0.10000E+01 0.80645E+05 0.12812E-09 0.79753E-21 0.11797E-15 + 5 1 0.70346E-06 0.10000E+01 0.65036E+05 0.16421E-09 0.18199E-20 0.15123E-15 + 5 1 0.70346E-06 0.10000E+01 0.52449E+05 0.20745E-09 0.40775E-20 0.19113E-15 + 5 1 0.70346E-06 0.10000E+01 0.42297E+05 0.25917E-09 0.89262E-20 0.23892E-15 + 5 1 0.70346E-06 0.10000E+01 0.34111E+05 0.32071E-09 0.19004E-19 0.29592E-15 + 5 1 0.70346E-06 0.10000E+01 0.27509E+05 0.39327E-09 0.39205E-19 0.36333E-15 + 5 1 0.70346E-06 0.10000E+01 0.22184E+05 0.47768E-09 0.78682E-19 0.44209E-15 + 5 1 0.70346E-06 0.10000E+01 0.17891E+05 0.57432E-09 0.15820E-18 0.53270E-15 + 5 1 0.70346E-06 0.10000E+01 0.14428E+05 0.68317E-09 0.34432E-18 0.63510E-15 + 5 1 0.70346E-06 0.10000E+01 0.11635E+05 0.80471E-09 0.89683E-18 0.74917E-15 + 5 1 0.70346E-06 0.10000E+01 0.93834E+04 0.94204E-09 0.28500E-17 0.87598E-15 + 5 1 0.70346E-06 0.10000E+01 0.75673E+04 0.11054E-08 0.10195E-16 0.10207E-14 + 5 1 0.70346E-06 0.10000E+01 0.61026E+04 0.13202E-08 0.37889E-16 0.11973E-14 + 5 1 0.70346E-06 0.10000E+01 0.49215E+04 0.16416E-08 0.14077E-15 0.14365E-14 + 5 1 0.70346E-06 0.10000E+01 0.39689E+04 0.21806E-08 0.51710E-15 0.17964E-14 + 5 1 0.70346E-06 0.10000E+01 0.32008E+04 0.31520E-08 0.18808E-14 0.23796E-14 + 5 1 0.70346E-06 0.10000E+01 0.25813E+04 0.49630E-08 0.68039E-14 0.33576E-14 + 5 1 0.70346E-06 0.10000E+01 0.20817E+04 0.83813E-08 0.24524E-13 0.50090E-14 5 1 0.70346E-06 0.10000E+01 0.16788E+04 0.14852E-07 0.87958E-13 0.77828E-14 5 1 0.70346E-06 0.10000E+01 0.13538E+04 0.27082E-07 0.31370E-12 0.12403E-13 5 1 0.70346E-06 0.10000E+01 0.10918E+04 0.50119E-07 0.11148E-11 0.20046E-13 @@ -26020,24 +26020,24 @@ VERSION 2.8.2 5 1 0.70346E-06 0.10000E+01 0.24221E+03 0.34773E-05 0.30771E-08 0.67618E-12 5 1 0.70346E-06 0.10000E+01 0.19533E+03 0.54222E-05 0.58395E-08 0.10158E-11 5 1 0.70346E-06 0.10000E+01 0.15752E+03 0.54222E-05 0.58395E-08 0.10158E-11 - 5 1 0.12275E-05 0.10000E+01 0.80645E+05 0.33038E-52 0.24670E-63 0.30428E-58 - 5 1 0.12275E-05 0.10000E+01 0.65036E+05 0.27906E-51 0.39128E-62 0.25714E-57 - 5 1 0.12275E-05 0.10000E+01 0.52449E+05 0.23679E-50 0.52350E-61 0.21828E-56 - 5 1 0.12275E-05 0.10000E+01 0.42297E+05 0.17752E-49 0.70559E-60 0.16378E-55 - 5 1 0.12275E-05 0.10000E+01 0.34111E+05 0.12719E-48 0.95622E-59 0.11751E-54 - 5 1 0.12275E-05 0.10000E+01 0.27509E+05 0.90311E-48 0.12686E-57 0.83640E-54 - 5 1 0.12275E-05 0.10000E+01 0.22184E+05 0.63172E-47 0.16296E-56 0.58737E-53 - 5 1 0.12275E-05 0.10000E+01 0.17891E+05 0.43032E-46 0.20146E-55 0.40272E-52 - 5 1 0.12275E-05 0.10000E+01 0.14428E+05 0.28329E-45 0.23906E-54 0.26785E-51 - 5 1 0.12275E-05 0.10000E+01 0.11635E+05 0.17940E-44 0.26925E-53 0.17219E-50 - 5 1 0.12275E-05 0.10000E+01 0.93834E+04 0.10839E-43 0.28359E-52 0.10609E-49 - 5 1 0.12275E-05 0.10000E+01 0.75673E+04 0.62039E-43 0.30208E-51 0.61553E-49 - 5 1 0.12275E-05 0.10000E+01 0.61026E+04 0.35493E-42 0.44350E-50 0.33914E-48 - 5 1 0.12275E-05 0.10000E+01 0.49215E+04 0.25134E-41 0.98915E-49 0.20560E-47 - 5 1 0.12275E-05 0.10000E+01 0.39689E+04 0.25842E-40 0.24485E-47 0.17815E-46 - 5 1 0.12275E-05 0.10000E+01 0.32008E+04 0.10025E-37 0.18588E-44 0.64912E-44 - 5 1 0.12275E-05 0.10000E+01 0.25813E+04 0.62929E-29 0.24730E-35 0.39421E-35 - 5 1 0.12275E-05 0.10000E+01 0.20817E+04 0.93558E-13 0.13637E-18 0.54302E-19 + 5 1 0.12275E-05 0.10000E+01 0.80645E+05 0.22356E-09 0.13916E-20 0.20584E-15 + 5 1 0.12275E-05 0.10000E+01 0.65036E+05 0.28653E-09 0.31755E-20 0.26390E-15 + 5 1 0.12275E-05 0.10000E+01 0.52449E+05 0.36199E-09 0.71150E-20 0.33351E-15 + 5 1 0.12275E-05 0.10000E+01 0.42297E+05 0.45224E-09 0.15576E-19 0.41690E-15 + 5 1 0.12275E-05 0.10000E+01 0.34111E+05 0.55962E-09 0.33160E-19 0.51636E-15 + 5 1 0.12275E-05 0.10000E+01 0.27509E+05 0.68623E-09 0.68410E-19 0.63399E-15 + 5 1 0.12275E-05 0.10000E+01 0.22184E+05 0.83353E-09 0.13730E-18 0.77143E-15 + 5 1 0.12275E-05 0.10000E+01 0.17891E+05 0.10022E-08 0.27605E-18 0.92953E-15 + 5 1 0.12275E-05 0.10000E+01 0.14428E+05 0.11921E-08 0.60081E-18 0.11082E-14 + 5 1 0.12275E-05 0.10000E+01 0.11635E+05 0.14042E-08 0.15649E-17 0.13073E-14 + 5 1 0.12275E-05 0.10000E+01 0.93834E+04 0.16438E-08 0.49730E-17 0.15285E-14 + 5 1 0.12275E-05 0.10000E+01 0.75673E+04 0.19288E-08 0.17790E-16 0.17810E-14 + 5 1 0.12275E-05 0.10000E+01 0.61026E+04 0.23036E-08 0.66113E-16 0.20893E-14 + 5 1 0.12275E-05 0.10000E+01 0.49215E+04 0.28645E-08 0.24563E-15 0.25066E-14 + 5 1 0.12275E-05 0.10000E+01 0.39689E+04 0.38051E-08 0.90231E-15 0.31346E-14 + 5 1 0.12275E-05 0.10000E+01 0.32008E+04 0.55001E-08 0.32818E-14 0.41523E-14 + 5 1 0.12275E-05 0.10000E+01 0.25813E+04 0.86602E-08 0.11872E-13 0.58588E-14 + 5 1 0.12275E-05 0.10000E+01 0.20817E+04 0.14625E-07 0.42793E-13 0.87404E-14 5 1 0.12275E-05 0.10000E+01 0.16788E+04 0.25915E-07 0.15348E-12 0.13581E-13 5 1 0.12275E-05 0.10000E+01 0.13538E+04 0.47256E-07 0.54739E-12 0.21642E-13 5 1 0.12275E-05 0.10000E+01 0.10918E+04 0.87455E-07 0.19452E-11 0.34980E-13 @@ -26050,24 +26050,24 @@ VERSION 2.8.2 5 1 0.12275E-05 0.10000E+01 0.24221E+03 0.60678E-05 0.53694E-08 0.11799E-11 5 1 0.12275E-05 0.10000E+01 0.19533E+03 0.94614E-05 0.10190E-07 0.17726E-11 5 1 0.12275E-05 0.10000E+01 0.15752E+03 0.94614E-05 0.10190E-07 0.17726E-11 - 5 1 0.21419E-05 0.10000E+01 0.80645E+05 0.57650E-52 0.43048E-63 0.53095E-58 - 5 1 0.21419E-05 0.10000E+01 0.65036E+05 0.48694E-51 0.68276E-62 0.44869E-57 - 5 1 0.21419E-05 0.10000E+01 0.52449E+05 0.41318E-50 0.91347E-61 0.38089E-56 - 5 1 0.21419E-05 0.10000E+01 0.42297E+05 0.30977E-49 0.12312E-59 0.28579E-55 - 5 1 0.21419E-05 0.10000E+01 0.34111E+05 0.22193E-48 0.16686E-58 0.20505E-54 - 5 1 0.21419E-05 0.10000E+01 0.27509E+05 0.15759E-47 0.22137E-57 0.14595E-53 - 5 1 0.21419E-05 0.10000E+01 0.22184E+05 0.11023E-46 0.28436E-56 0.10249E-52 - 5 1 0.21419E-05 0.10000E+01 0.17891E+05 0.75088E-46 0.35154E-55 0.70273E-52 - 5 1 0.21419E-05 0.10000E+01 0.14428E+05 0.49432E-45 0.41714E-54 0.46738E-51 - 5 1 0.21419E-05 0.10000E+01 0.11635E+05 0.31305E-44 0.46983E-53 0.30046E-50 - 5 1 0.21419E-05 0.10000E+01 0.93834E+04 0.18914E-43 0.49485E-52 0.18512E-49 - 5 1 0.21419E-05 0.10000E+01 0.75673E+04 0.10825E-42 0.52710E-51 0.10741E-48 - 5 1 0.21419E-05 0.10000E+01 0.61026E+04 0.61933E-42 0.77389E-50 0.59178E-48 - 5 1 0.21419E-05 0.10000E+01 0.49215E+04 0.43857E-41 0.17260E-48 0.35876E-47 - 5 1 0.21419E-05 0.10000E+01 0.39689E+04 0.45093E-40 0.42724E-47 0.31087E-46 - 5 1 0.21419E-05 0.10000E+01 0.32008E+04 0.17492E-37 0.32434E-44 0.11327E-43 - 5 1 0.21419E-05 0.10000E+01 0.25813E+04 0.10981E-28 0.43153E-35 0.68787E-35 - 5 1 0.21419E-05 0.10000E+01 0.20817E+04 0.16325E-12 0.23796E-18 0.94754E-19 + 5 1 0.21419E-05 0.10000E+01 0.80645E+05 0.39009E-09 0.24283E-20 0.35918E-15 + 5 1 0.21419E-05 0.10000E+01 0.65036E+05 0.49998E-09 0.55411E-20 0.46048E-15 + 5 1 0.21419E-05 0.10000E+01 0.52449E+05 0.63164E-09 0.12415E-19 0.58196E-15 + 5 1 0.21419E-05 0.10000E+01 0.42297E+05 0.78912E-09 0.27179E-19 0.72747E-15 + 5 1 0.21419E-05 0.10000E+01 0.34111E+05 0.97651E-09 0.57863E-19 0.90101E-15 + 5 1 0.21419E-05 0.10000E+01 0.27509E+05 0.11974E-08 0.11937E-18 0.11063E-14 + 5 1 0.21419E-05 0.10000E+01 0.22184E+05 0.14545E-08 0.23957E-18 0.13461E-14 + 5 1 0.21419E-05 0.10000E+01 0.17891E+05 0.17487E-08 0.48169E-18 0.16220E-14 + 5 1 0.21419E-05 0.10000E+01 0.14428E+05 0.20801E-08 0.10484E-17 0.19338E-14 + 5 1 0.21419E-05 0.10000E+01 0.11635E+05 0.24502E-08 0.27307E-17 0.22811E-14 + 5 1 0.21419E-05 0.10000E+01 0.93834E+04 0.28683E-08 0.86777E-17 0.26672E-14 + 5 1 0.21419E-05 0.10000E+01 0.75673E+04 0.33657E-08 0.31042E-16 0.31078E-14 + 5 1 0.21419E-05 0.10000E+01 0.61026E+04 0.40197E-08 0.11536E-15 0.36457E-14 + 5 1 0.21419E-05 0.10000E+01 0.49215E+04 0.49984E-08 0.42861E-15 0.43739E-14 + 5 1 0.21419E-05 0.10000E+01 0.39689E+04 0.66397E-08 0.15745E-14 0.54697E-14 + 5 1 0.21419E-05 0.10000E+01 0.32008E+04 0.95974E-08 0.57266E-14 0.72455E-14 + 5 1 0.21419E-05 0.10000E+01 0.25813E+04 0.15111E-07 0.20717E-13 0.10223E-13 + 5 1 0.21419E-05 0.10000E+01 0.20817E+04 0.25520E-07 0.74671E-13 0.15252E-13 5 1 0.21419E-05 0.10000E+01 0.16788E+04 0.45220E-07 0.26781E-12 0.23697E-13 5 1 0.21419E-05 0.10000E+01 0.13538E+04 0.82459E-07 0.95516E-12 0.37764E-13 5 1 0.21419E-05 0.10000E+01 0.10918E+04 0.15260E-06 0.33943E-11 0.61038E-13 @@ -26080,24 +26080,24 @@ VERSION 2.8.2 5 1 0.21419E-05 0.10000E+01 0.24221E+03 0.10588E-04 0.93693E-08 0.20589E-11 5 1 0.21419E-05 0.10000E+01 0.19533E+03 0.16510E-04 0.17780E-07 0.30930E-11 5 1 0.21419E-05 0.10000E+01 0.15752E+03 0.16510E-04 0.17780E-07 0.30930E-11 - 5 1 0.37375E-05 0.10000E+01 0.80645E+05 0.10060E-51 0.75117E-63 0.92647E-58 - 5 1 0.37375E-05 0.10000E+01 0.65036E+05 0.84968E-51 0.11914E-61 0.78293E-57 - 5 1 0.37375E-05 0.10000E+01 0.52449E+05 0.72097E-50 0.15940E-60 0.66463E-56 - 5 1 0.37375E-05 0.10000E+01 0.42297E+05 0.54053E-49 0.21484E-59 0.49869E-55 - 5 1 0.37375E-05 0.10000E+01 0.34111E+05 0.38726E-48 0.29115E-58 0.35780E-54 - 5 1 0.37375E-05 0.10000E+01 0.27509E+05 0.27498E-47 0.38628E-57 0.25467E-53 - 5 1 0.37375E-05 0.10000E+01 0.22184E+05 0.19235E-46 0.49619E-56 0.17884E-52 - 5 1 0.37375E-05 0.10000E+01 0.17891E+05 0.13102E-45 0.61341E-55 0.12262E-51 - 5 1 0.37375E-05 0.10000E+01 0.14428E+05 0.86256E-45 0.72789E-54 0.81554E-51 - 5 1 0.37375E-05 0.10000E+01 0.11635E+05 0.54625E-44 0.81982E-53 0.52429E-50 - 5 1 0.37375E-05 0.10000E+01 0.93834E+04 0.33004E-43 0.86349E-52 0.32302E-49 - 5 1 0.37375E-05 0.10000E+01 0.75673E+04 0.18890E-42 0.91977E-51 0.18742E-48 - 5 1 0.37375E-05 0.10000E+01 0.61026E+04 0.10807E-41 0.13504E-49 0.10326E-47 - 5 1 0.37375E-05 0.10000E+01 0.49215E+04 0.76528E-41 0.30118E-48 0.62601E-47 - 5 1 0.37375E-05 0.10000E+01 0.39689E+04 0.78684E-40 0.74551E-47 0.54244E-46 - 5 1 0.37375E-05 0.10000E+01 0.32008E+04 0.30523E-37 0.56596E-44 0.19764E-43 - 5 1 0.37375E-05 0.10000E+01 0.25813E+04 0.19161E-28 0.75300E-35 0.12003E-34 - 5 1 0.37375E-05 0.10000E+01 0.20817E+04 0.28487E-12 0.41522E-18 0.16534E-18 + 5 1 0.37375E-05 0.10000E+01 0.80645E+05 0.68069E-09 0.42373E-20 0.62676E-15 + 5 1 0.37375E-05 0.10000E+01 0.65036E+05 0.87244E-09 0.96689E-20 0.80351E-15 + 5 1 0.37375E-05 0.10000E+01 0.52449E+05 0.11022E-08 0.21664E-19 0.10155E-14 + 5 1 0.37375E-05 0.10000E+01 0.42297E+05 0.13770E-08 0.47425E-19 0.12694E-14 + 5 1 0.37375E-05 0.10000E+01 0.34111E+05 0.17040E-08 0.10097E-18 0.15722E-14 + 5 1 0.37375E-05 0.10000E+01 0.27509E+05 0.20894E-08 0.20830E-18 0.19304E-14 + 5 1 0.37375E-05 0.10000E+01 0.22184E+05 0.25379E-08 0.41804E-18 0.23489E-14 + 5 1 0.37375E-05 0.10000E+01 0.17891E+05 0.30514E-08 0.84052E-18 0.28302E-14 + 5 1 0.37375E-05 0.10000E+01 0.14428E+05 0.36297E-08 0.18294E-17 0.33743E-14 + 5 1 0.37375E-05 0.10000E+01 0.11635E+05 0.42754E-08 0.47649E-17 0.39804E-14 + 5 1 0.37375E-05 0.10000E+01 0.93834E+04 0.50051E-08 0.15142E-16 0.46541E-14 + 5 1 0.37375E-05 0.10000E+01 0.75673E+04 0.58729E-08 0.54166E-16 0.54229E-14 + 5 1 0.37375E-05 0.10000E+01 0.61026E+04 0.70142E-08 0.20130E-15 0.63615E-14 + 5 1 0.37375E-05 0.10000E+01 0.49215E+04 0.87218E-08 0.74790E-15 0.76321E-14 + 5 1 0.37375E-05 0.10000E+01 0.39689E+04 0.11586E-07 0.27474E-14 0.95444E-14 + 5 1 0.37375E-05 0.10000E+01 0.32008E+04 0.16747E-07 0.99925E-14 0.12643E-13 + 5 1 0.37375E-05 0.10000E+01 0.25813E+04 0.26369E-07 0.36149E-13 0.17839E-13 + 5 1 0.37375E-05 0.10000E+01 0.20817E+04 0.44530E-07 0.13030E-12 0.26613E-13 5 1 0.37375E-05 0.10000E+01 0.16788E+04 0.78907E-07 0.46732E-12 0.41350E-13 5 1 0.37375E-05 0.10000E+01 0.13538E+04 0.14389E-06 0.16667E-11 0.65895E-13 5 1 0.37375E-05 0.10000E+01 0.10918E+04 0.26628E-06 0.59228E-11 0.10651E-12 @@ -26110,24 +26110,24 @@ VERSION 2.8.2 5 1 0.37375E-05 0.10000E+01 0.24221E+03 0.18475E-04 0.16349E-07 0.35926E-11 5 1 0.37375E-05 0.10000E+01 0.19533E+03 0.28808E-04 0.31026E-07 0.53971E-11 5 1 0.37375E-05 0.10000E+01 0.15752E+03 0.28808E-04 0.31026E-07 0.53971E-11 - 5 1 0.65217E-05 0.10000E+01 0.80645E+05 0.17553E-51 0.13107E-62 0.16166E-57 - 5 1 0.65217E-05 0.10000E+01 0.65036E+05 0.14826E-50 0.20789E-61 0.13662E-56 - 5 1 0.65217E-05 0.10000E+01 0.52449E+05 0.12581E-49 0.27814E-60 0.11597E-55 - 5 1 0.65217E-05 0.10000E+01 0.42297E+05 0.94319E-49 0.37488E-59 0.87018E-55 - 5 1 0.65217E-05 0.10000E+01 0.34111E+05 0.67575E-48 0.50804E-58 0.62434E-54 - 5 1 0.65217E-05 0.10000E+01 0.27509E+05 0.47982E-47 0.67403E-57 0.44438E-53 - 5 1 0.65217E-05 0.10000E+01 0.22184E+05 0.33563E-46 0.86583E-56 0.31207E-52 - 5 1 0.65217E-05 0.10000E+01 0.17891E+05 0.22863E-45 0.10704E-54 0.21397E-51 - 5 1 0.65217E-05 0.10000E+01 0.14428E+05 0.15051E-44 0.12701E-53 0.14231E-50 - 5 1 0.65217E-05 0.10000E+01 0.11635E+05 0.95317E-44 0.14305E-52 0.91486E-50 - 5 1 0.65217E-05 0.10000E+01 0.93834E+04 0.57590E-43 0.15067E-51 0.56365E-49 - 5 1 0.65217E-05 0.10000E+01 0.75673E+04 0.32961E-42 0.16049E-50 0.32703E-48 - 5 1 0.65217E-05 0.10000E+01 0.61026E+04 0.18857E-41 0.23563E-49 0.18018E-47 - 5 1 0.65217E-05 0.10000E+01 0.49215E+04 0.13354E-40 0.52554E-48 0.10924E-46 - 5 1 0.65217E-05 0.10000E+01 0.39689E+04 0.13730E-39 0.13009E-46 0.94653E-46 - 5 1 0.65217E-05 0.10000E+01 0.32008E+04 0.53260E-37 0.98757E-44 0.34488E-43 - 5 1 0.65217E-05 0.10000E+01 0.25813E+04 0.33434E-28 0.13139E-34 0.20944E-34 - 5 1 0.65217E-05 0.10000E+01 0.20817E+04 0.49708E-12 0.72454E-18 0.28851E-18 + 5 1 0.65217E-05 0.10000E+01 0.80645E+05 0.11878E-08 0.73938E-20 0.10937E-14 + 5 1 0.65217E-05 0.10000E+01 0.65036E+05 0.15224E-08 0.16872E-19 0.14021E-14 + 5 1 0.65217E-05 0.10000E+01 0.52449E+05 0.19232E-08 0.37802E-19 0.17720E-14 + 5 1 0.65217E-05 0.10000E+01 0.42297E+05 0.24027E-08 0.82754E-19 0.22150E-14 + 5 1 0.65217E-05 0.10000E+01 0.34111E+05 0.29733E-08 0.17618E-18 0.27434E-14 + 5 1 0.65217E-05 0.10000E+01 0.27509E+05 0.36459E-08 0.36346E-18 0.33684E-14 + 5 1 0.65217E-05 0.10000E+01 0.22184E+05 0.44285E-08 0.72945E-18 0.40986E-14 + 5 1 0.65217E-05 0.10000E+01 0.17891E+05 0.53245E-08 0.14667E-17 0.49386E-14 + 5 1 0.65217E-05 0.10000E+01 0.14428E+05 0.63336E-08 0.31921E-17 0.58880E-14 + 5 1 0.65217E-05 0.10000E+01 0.11635E+05 0.74604E-08 0.83144E-17 0.69455E-14 + 5 1 0.65217E-05 0.10000E+01 0.93834E+04 0.87335E-08 0.26422E-16 0.81211E-14 + 5 1 0.65217E-05 0.10000E+01 0.75673E+04 0.10248E-07 0.94516E-16 0.94626E-14 + 5 1 0.65217E-05 0.10000E+01 0.61026E+04 0.12239E-07 0.35126E-15 0.11100E-13 + 5 1 0.65217E-05 0.10000E+01 0.49215E+04 0.15219E-07 0.13050E-14 0.13318E-13 + 5 1 0.65217E-05 0.10000E+01 0.39689E+04 0.20217E-07 0.47940E-14 0.16654E-13 + 5 1 0.65217E-05 0.10000E+01 0.32008E+04 0.29222E-07 0.17436E-13 0.22061E-13 + 5 1 0.65217E-05 0.10000E+01 0.25813E+04 0.46012E-07 0.63078E-13 0.31128E-13 + 5 1 0.65217E-05 0.10000E+01 0.20817E+04 0.77702E-07 0.22736E-12 0.46438E-13 5 1 0.65217E-05 0.10000E+01 0.16788E+04 0.13769E-06 0.81545E-12 0.72153E-13 5 1 0.65217E-05 0.10000E+01 0.13538E+04 0.25107E-06 0.29083E-11 0.11498E-12 5 1 0.65217E-05 0.10000E+01 0.10918E+04 0.46465E-06 0.10335E-10 0.18585E-12 @@ -26140,24 +26140,24 @@ VERSION 2.8.2 5 1 0.65217E-05 0.10000E+01 0.24221E+03 0.32238E-04 0.28528E-07 0.62688E-11 5 1 0.65217E-05 0.10000E+01 0.19533E+03 0.50269E-04 0.54138E-07 0.94177E-11 5 1 0.65217E-05 0.10000E+01 0.15752E+03 0.50269E-04 0.54138E-07 0.94177E-11 - 5 1 0.11380E-04 0.10000E+01 0.80645E+05 0.30630E-51 0.22872E-62 0.28209E-57 - 5 1 0.11380E-04 0.10000E+01 0.65036E+05 0.25871E-50 0.36275E-61 0.23839E-56 - 5 1 0.11380E-04 0.10000E+01 0.52449E+05 0.21952E-49 0.48533E-60 0.20237E-55 - 5 1 0.11380E-04 0.10000E+01 0.42297E+05 0.16458E-48 0.65414E-59 0.15184E-54 - 5 1 0.11380E-04 0.10000E+01 0.34111E+05 0.11791E-47 0.88650E-58 0.10894E-53 - 5 1 0.11380E-04 0.10000E+01 0.27509E+05 0.83726E-47 0.11761E-56 0.77542E-53 - 5 1 0.11380E-04 0.10000E+01 0.22184E+05 0.58566E-46 0.15108E-55 0.54455E-52 - 5 1 0.11380E-04 0.10000E+01 0.17891E+05 0.39894E-45 0.18677E-54 0.37336E-51 - 5 1 0.11380E-04 0.10000E+01 0.14428E+05 0.26263E-44 0.22163E-53 0.24832E-50 - 5 1 0.11380E-04 0.10000E+01 0.11635E+05 0.16632E-43 0.24962E-52 0.15964E-49 - 5 1 0.11380E-04 0.10000E+01 0.93834E+04 0.10049E-42 0.26292E-51 0.98354E-49 - 5 1 0.11380E-04 0.10000E+01 0.75673E+04 0.57516E-42 0.28005E-50 0.57065E-48 - 5 1 0.11380E-04 0.10000E+01 0.61026E+04 0.32905E-41 0.41117E-49 0.31441E-47 - 5 1 0.11380E-04 0.10000E+01 0.49215E+04 0.23301E-40 0.91703E-48 0.19061E-46 - 5 1 0.11380E-04 0.10000E+01 0.39689E+04 0.23958E-39 0.22699E-46 0.16516E-45 - 5 1 0.11380E-04 0.10000E+01 0.32008E+04 0.92936E-37 0.17232E-43 0.60179E-43 - 5 1 0.11380E-04 0.10000E+01 0.25813E+04 0.58341E-28 0.22927E-34 0.36547E-34 - 5 1 0.11380E-04 0.10000E+01 0.20817E+04 0.86737E-12 0.12643E-17 0.50343E-18 + 5 1 0.11380E-04 0.10000E+01 0.80645E+05 0.20726E-08 0.12902E-19 0.19084E-14 + 5 1 0.11380E-04 0.10000E+01 0.65036E+05 0.26564E-08 0.29440E-19 0.24465E-14 + 5 1 0.11380E-04 0.10000E+01 0.52449E+05 0.33559E-08 0.65962E-19 0.30920E-14 + 5 1 0.11380E-04 0.10000E+01 0.42297E+05 0.41926E-08 0.14440E-18 0.38651E-14 + 5 1 0.11380E-04 0.10000E+01 0.34111E+05 0.51882E-08 0.30742E-18 0.47871E-14 + 5 1 0.11380E-04 0.10000E+01 0.27509E+05 0.63620E-08 0.63422E-18 0.58776E-14 + 5 1 0.11380E-04 0.10000E+01 0.22184E+05 0.77275E-08 0.12729E-17 0.71518E-14 + 5 1 0.11380E-04 0.10000E+01 0.17891E+05 0.92909E-08 0.25592E-17 0.86175E-14 + 5 1 0.11380E-04 0.10000E+01 0.14428E+05 0.11052E-07 0.55700E-17 0.10274E-13 + 5 1 0.11380E-04 0.10000E+01 0.11635E+05 0.13018E-07 0.14508E-16 0.12119E-13 + 5 1 0.11380E-04 0.10000E+01 0.93834E+04 0.15240E-07 0.46105E-16 0.14171E-13 + 5 1 0.11380E-04 0.10000E+01 0.75673E+04 0.17882E-07 0.16492E-15 0.16512E-13 + 5 1 0.11380E-04 0.10000E+01 0.61026E+04 0.21357E-07 0.61293E-15 0.19370E-13 + 5 1 0.11380E-04 0.10000E+01 0.49215E+04 0.26556E-07 0.22772E-14 0.23238E-13 + 5 1 0.11380E-04 0.10000E+01 0.39689E+04 0.35277E-07 0.83652E-14 0.29061E-13 + 5 1 0.11380E-04 0.10000E+01 0.32008E+04 0.50991E-07 0.30425E-13 0.38495E-13 + 5 1 0.11380E-04 0.10000E+01 0.25813E+04 0.80288E-07 0.11007E-12 0.54316E-13 + 5 1 0.11380E-04 0.10000E+01 0.20817E+04 0.13559E-06 0.39673E-12 0.81032E-13 5 1 0.11380E-04 0.10000E+01 0.16788E+04 0.24026E-06 0.14229E-11 0.12590E-12 5 1 0.11380E-04 0.10000E+01 0.13538E+04 0.43811E-06 0.50748E-11 0.20064E-12 5 1 0.11380E-04 0.10000E+01 0.10918E+04 0.81078E-06 0.18034E-10 0.32429E-12 @@ -26170,24 +26170,24 @@ VERSION 2.8.2 5 1 0.11380E-04 0.10000E+01 0.24221E+03 0.56254E-04 0.49779E-07 0.10939E-10 5 1 0.11380E-04 0.10000E+01 0.19533E+03 0.87716E-04 0.94467E-07 0.16433E-10 5 1 0.11380E-04 0.10000E+01 0.15752E+03 0.87716E-04 0.94467E-07 0.16433E-10 - 5 1 0.19857E-04 0.10000E+01 0.80645E+05 0.53447E-51 0.39910E-62 0.49223E-57 - 5 1 0.19857E-04 0.10000E+01 0.65036E+05 0.45144E-50 0.63298E-61 0.41597E-56 - 5 1 0.19857E-04 0.10000E+01 0.52449E+05 0.38305E-49 0.84687E-60 0.35312E-55 - 5 1 0.19857E-04 0.10000E+01 0.42297E+05 0.28718E-48 0.11414E-58 0.26495E-54 - 5 1 0.19857E-04 0.10000E+01 0.34111E+05 0.20575E-47 0.15469E-57 0.19010E-53 - 5 1 0.19857E-04 0.10000E+01 0.27509E+05 0.14610E-46 0.20523E-56 0.13531E-52 - 5 1 0.19857E-04 0.10000E+01 0.22184E+05 0.10219E-45 0.26363E-55 0.95020E-52 - 5 1 0.19857E-04 0.10000E+01 0.17891E+05 0.69613E-45 0.32590E-54 0.65149E-51 - 5 1 0.19857E-04 0.10000E+01 0.14428E+05 0.45828E-44 0.38673E-53 0.43330E-50 - 5 1 0.19857E-04 0.10000E+01 0.11635E+05 0.29022E-43 0.43557E-52 0.27856E-49 - 5 1 0.19857E-04 0.10000E+01 0.93834E+04 0.17535E-42 0.45877E-51 0.17162E-48 - 5 1 0.19857E-04 0.10000E+01 0.75673E+04 0.10036E-41 0.48867E-50 0.99575E-48 - 5 1 0.19857E-04 0.10000E+01 0.61026E+04 0.57417E-41 0.71746E-49 0.54863E-47 - 5 1 0.19857E-04 0.10000E+01 0.49215E+04 0.40660E-40 0.16002E-47 0.33260E-46 - 5 1 0.19857E-04 0.10000E+01 0.39689E+04 0.41805E-39 0.39609E-46 0.28820E-45 - 5 1 0.19857E-04 0.10000E+01 0.32008E+04 0.16217E-36 0.30070E-43 0.10501E-42 - 5 1 0.19857E-04 0.10000E+01 0.25813E+04 0.10180E-27 0.40007E-34 0.63772E-34 - 5 1 0.19857E-04 0.10000E+01 0.20817E+04 0.15135E-11 0.22061E-17 0.87845E-18 + 5 1 0.19857E-04 0.10000E+01 0.80645E+05 0.36165E-08 0.22513E-19 0.33300E-14 + 5 1 0.19857E-04 0.10000E+01 0.65036E+05 0.46353E-08 0.51371E-19 0.42691E-14 + 5 1 0.19857E-04 0.10000E+01 0.52449E+05 0.58559E-08 0.11510E-18 0.53953E-14 + 5 1 0.19857E-04 0.10000E+01 0.42297E+05 0.73159E-08 0.25197E-18 0.67443E-14 + 5 1 0.19857E-04 0.10000E+01 0.34111E+05 0.90531E-08 0.53644E-18 0.83532E-14 + 5 1 0.19857E-04 0.10000E+01 0.27509E+05 0.11101E-07 0.11067E-17 0.10256E-13 + 5 1 0.19857E-04 0.10000E+01 0.22184E+05 0.13484E-07 0.22211E-17 0.12480E-13 + 5 1 0.19857E-04 0.10000E+01 0.17891E+05 0.16212E-07 0.44657E-17 0.15037E-13 + 5 1 0.19857E-04 0.10000E+01 0.14428E+05 0.19285E-07 0.97194E-17 0.17928E-13 + 5 1 0.19857E-04 0.10000E+01 0.11635E+05 0.22715E-07 0.25316E-16 0.21148E-13 + 5 1 0.19857E-04 0.10000E+01 0.93834E+04 0.26592E-07 0.80450E-16 0.24727E-13 + 5 1 0.19857E-04 0.10000E+01 0.75673E+04 0.31203E-07 0.28778E-15 0.28812E-13 + 5 1 0.19857E-04 0.10000E+01 0.61026E+04 0.37266E-07 0.10695E-14 0.33799E-13 + 5 1 0.19857E-04 0.10000E+01 0.49215E+04 0.46339E-07 0.39736E-14 0.40550E-13 + 5 1 0.19857E-04 0.10000E+01 0.39689E+04 0.61556E-07 0.14597E-13 0.50709E-13 + 5 1 0.19857E-04 0.10000E+01 0.32008E+04 0.88976E-07 0.53090E-13 0.67172E-13 + 5 1 0.19857E-04 0.10000E+01 0.25813E+04 0.14010E-06 0.19206E-12 0.94778E-13 + 5 1 0.19857E-04 0.10000E+01 0.20817E+04 0.23659E-06 0.69227E-12 0.14140E-12 5 1 0.19857E-04 0.10000E+01 0.16788E+04 0.41923E-06 0.24829E-11 0.21969E-12 5 1 0.19857E-04 0.10000E+01 0.13538E+04 0.76447E-06 0.88552E-11 0.35010E-12 5 1 0.19857E-04 0.10000E+01 0.10918E+04 0.14148E-05 0.31468E-10 0.56587E-12 @@ -26200,24 +26200,24 @@ VERSION 2.8.2 5 1 0.19857E-04 0.10000E+01 0.24221E+03 0.98159E-04 0.86862E-07 0.19087E-10 5 1 0.19857E-04 0.10000E+01 0.19533E+03 0.15306E-03 0.16484E-06 0.28675E-10 5 1 0.19857E-04 0.10000E+01 0.15752E+03 0.15306E-03 0.16484E-06 0.28675E-10 - 5 1 0.34650E-04 0.10000E+01 0.80645E+05 0.93261E-51 0.69640E-62 0.85892E-57 - 5 1 0.34650E-04 0.10000E+01 0.65036E+05 0.78773E-50 0.11045E-60 0.72585E-56 - 5 1 0.34650E-04 0.10000E+01 0.52449E+05 0.66841E-49 0.14777E-59 0.61617E-55 - 5 1 0.34650E-04 0.10000E+01 0.42297E+05 0.50112E-48 0.19917E-58 0.46233E-54 - 5 1 0.34650E-04 0.10000E+01 0.34111E+05 0.35903E-47 0.26992E-57 0.33171E-53 - 5 1 0.34650E-04 0.10000E+01 0.27509E+05 0.25493E-46 0.35811E-56 0.23610E-52 - 5 1 0.34650E-04 0.10000E+01 0.22184E+05 0.17832E-45 0.46002E-55 0.16580E-51 - 5 1 0.34650E-04 0.10000E+01 0.17891E+05 0.12147E-44 0.56868E-54 0.11368E-50 - 5 1 0.34650E-04 0.10000E+01 0.14428E+05 0.79967E-44 0.67482E-53 0.75608E-50 - 5 1 0.34650E-04 0.10000E+01 0.11635E+05 0.50642E-43 0.76005E-52 0.48607E-49 - 5 1 0.34650E-04 0.10000E+01 0.93834E+04 0.30598E-42 0.80053E-51 0.29947E-48 - 5 1 0.34650E-04 0.10000E+01 0.75673E+04 0.17512E-41 0.85271E-50 0.17375E-47 - 5 1 0.34650E-04 0.10000E+01 0.61026E+04 0.10019E-40 0.12519E-48 0.95732E-47 - 5 1 0.34650E-04 0.10000E+01 0.49215E+04 0.70948E-40 0.27922E-47 0.58037E-46 - 5 1 0.34650E-04 0.10000E+01 0.39689E+04 0.72947E-39 0.69116E-46 0.50289E-45 - 5 1 0.34650E-04 0.10000E+01 0.32008E+04 0.28297E-36 0.52470E-43 0.18323E-42 - 5 1 0.34650E-04 0.10000E+01 0.25813E+04 0.17764E-27 0.69809E-34 0.11128E-33 - 5 1 0.34650E-04 0.10000E+01 0.20817E+04 0.26410E-11 0.38495E-17 0.15328E-17 + 5 1 0.34650E-04 0.10000E+01 0.80645E+05 0.63106E-08 0.39283E-19 0.58106E-14 + 5 1 0.34650E-04 0.10000E+01 0.65036E+05 0.80883E-08 0.89639E-19 0.74493E-14 + 5 1 0.34650E-04 0.10000E+01 0.52449E+05 0.10218E-07 0.20084E-18 0.94144E-14 + 5 1 0.34650E-04 0.10000E+01 0.42297E+05 0.12766E-07 0.43967E-18 0.11768E-13 + 5 1 0.34650E-04 0.10000E+01 0.34111E+05 0.15797E-07 0.93605E-18 0.14576E-13 + 5 1 0.34650E-04 0.10000E+01 0.27509E+05 0.19371E-07 0.19311E-17 0.17896E-13 + 5 1 0.34650E-04 0.10000E+01 0.22184E+05 0.23529E-07 0.38756E-17 0.21776E-13 + 5 1 0.34650E-04 0.10000E+01 0.17891E+05 0.28289E-07 0.77924E-17 0.26239E-13 + 5 1 0.34650E-04 0.10000E+01 0.14428E+05 0.33651E-07 0.16960E-16 0.31283E-13 + 5 1 0.34650E-04 0.10000E+01 0.11635E+05 0.39637E-07 0.44175E-16 0.36901E-13 + 5 1 0.34650E-04 0.10000E+01 0.93834E+04 0.46401E-07 0.14038E-15 0.43148E-13 + 5 1 0.34650E-04 0.10000E+01 0.75673E+04 0.54447E-07 0.50216E-15 0.50275E-13 + 5 1 0.34650E-04 0.10000E+01 0.61026E+04 0.65028E-07 0.18663E-14 0.58977E-13 + 5 1 0.34650E-04 0.10000E+01 0.49215E+04 0.80859E-07 0.69337E-14 0.70757E-13 + 5 1 0.34650E-04 0.10000E+01 0.39689E+04 0.10741E-06 0.25470E-13 0.88485E-13 + 5 1 0.34650E-04 0.10000E+01 0.32008E+04 0.15526E-06 0.92639E-13 0.11721E-12 + 5 1 0.34650E-04 0.10000E+01 0.25813E+04 0.24446E-06 0.33513E-12 0.16538E-12 + 5 1 0.34650E-04 0.10000E+01 0.20817E+04 0.41283E-06 0.12080E-11 0.24673E-12 5 1 0.34650E-04 0.10000E+01 0.16788E+04 0.73153E-06 0.43325E-11 0.38335E-12 5 1 0.34650E-04 0.10000E+01 0.13538E+04 0.13339E-05 0.15452E-10 0.61091E-12 5 1 0.34650E-04 0.10000E+01 0.10918E+04 0.24687E-05 0.54910E-10 0.98742E-12 @@ -26230,24 +26230,24 @@ VERSION 2.8.2 5 1 0.34650E-04 0.10000E+01 0.24221E+03 0.17128E-03 0.15157E-06 0.33306E-10 5 1 0.34650E-04 0.10000E+01 0.19533E+03 0.26708E-03 0.28763E-06 0.50036E-10 5 1 0.34650E-04 0.10000E+01 0.15752E+03 0.26708E-03 0.28763E-06 0.50036E-10 - 5 1 0.60462E-04 0.10000E+01 0.80645E+05 0.16274E-50 0.12152E-61 0.14988E-56 - 5 1 0.60462E-04 0.10000E+01 0.65036E+05 0.13745E-49 0.19273E-60 0.12666E-55 - 5 1 0.60462E-04 0.10000E+01 0.52449E+05 0.11663E-48 0.25786E-59 0.10752E-54 - 5 1 0.60462E-04 0.10000E+01 0.42297E+05 0.87442E-48 0.34755E-58 0.80673E-54 - 5 1 0.60462E-04 0.10000E+01 0.34111E+05 0.62648E-47 0.47100E-57 0.57882E-53 - 5 1 0.60462E-04 0.10000E+01 0.27509E+05 0.44484E-46 0.62489E-56 0.41198E-52 - 5 1 0.60462E-04 0.10000E+01 0.22184E+05 0.31116E-45 0.80270E-55 0.28932E-51 - 5 1 0.60462E-04 0.10000E+01 0.17891E+05 0.21196E-44 0.99232E-54 0.19837E-50 - 5 1 0.60462E-04 0.10000E+01 0.14428E+05 0.13954E-43 0.11775E-52 0.13193E-49 - 5 1 0.60462E-04 0.10000E+01 0.11635E+05 0.88367E-43 0.13262E-51 0.84815E-49 - 5 1 0.60462E-04 0.10000E+01 0.93834E+04 0.53391E-42 0.13969E-50 0.52256E-48 - 5 1 0.60462E-04 0.10000E+01 0.75673E+04 0.30558E-41 0.14879E-49 0.30319E-47 - 5 1 0.60462E-04 0.10000E+01 0.61026E+04 0.17483E-40 0.21845E-48 0.16705E-46 - 5 1 0.60462E-04 0.10000E+01 0.49215E+04 0.12380E-39 0.48722E-47 0.10127E-45 - 5 1 0.60462E-04 0.10000E+01 0.39689E+04 0.12729E-38 0.12060E-45 0.87752E-45 - 5 1 0.60462E-04 0.10000E+01 0.32008E+04 0.49377E-36 0.91556E-43 0.31973E-42 - 5 1 0.60462E-04 0.10000E+01 0.25813E+04 0.30997E-27 0.12181E-33 0.19417E-33 - 5 1 0.60462E-04 0.10000E+01 0.20817E+04 0.46083E-11 0.67171E-17 0.26747E-17 + 5 1 0.60462E-04 0.10000E+01 0.80645E+05 0.11012E-07 0.68547E-19 0.10139E-13 + 5 1 0.60462E-04 0.10000E+01 0.65036E+05 0.14114E-07 0.15642E-18 0.12999E-13 + 5 1 0.60462E-04 0.10000E+01 0.52449E+05 0.17830E-07 0.35046E-18 0.16428E-13 + 5 1 0.60462E-04 0.10000E+01 0.42297E+05 0.22275E-07 0.76720E-18 0.20535E-13 + 5 1 0.60462E-04 0.10000E+01 0.34111E+05 0.27565E-07 0.16334E-17 0.25434E-13 + 5 1 0.60462E-04 0.10000E+01 0.27509E+05 0.33801E-07 0.33696E-17 0.31228E-13 + 5 1 0.60462E-04 0.10000E+01 0.22184E+05 0.41057E-07 0.67627E-17 0.37998E-13 + 5 1 0.60462E-04 0.10000E+01 0.17891E+05 0.49362E-07 0.13597E-16 0.45785E-13 + 5 1 0.60462E-04 0.10000E+01 0.14428E+05 0.58718E-07 0.29594E-16 0.54587E-13 + 5 1 0.60462E-04 0.10000E+01 0.11635E+05 0.69164E-07 0.77082E-16 0.64391E-13 + 5 1 0.60462E-04 0.10000E+01 0.93834E+04 0.80968E-07 0.24495E-15 0.75290E-13 + 5 1 0.60462E-04 0.10000E+01 0.75673E+04 0.95007E-07 0.87625E-15 0.87727E-13 + 5 1 0.60462E-04 0.10000E+01 0.61026E+04 0.11347E-06 0.32565E-14 0.10291E-12 + 5 1 0.60462E-04 0.10000E+01 0.49215E+04 0.14109E-06 0.12099E-13 0.12347E-12 + 5 1 0.60462E-04 0.10000E+01 0.39689E+04 0.18743E-06 0.44444E-13 0.15440E-12 + 5 1 0.60462E-04 0.10000E+01 0.32008E+04 0.27092E-06 0.16165E-12 0.20453E-12 + 5 1 0.60462E-04 0.10000E+01 0.25813E+04 0.42657E-06 0.58479E-12 0.28858E-12 + 5 1 0.60462E-04 0.10000E+01 0.20817E+04 0.72037E-06 0.21078E-11 0.43052E-12 5 1 0.60462E-04 0.10000E+01 0.16788E+04 0.12765E-05 0.75599E-11 0.66893E-12 5 1 0.60462E-04 0.10000E+01 0.13538E+04 0.23277E-05 0.26962E-10 0.10660E-11 5 1 0.60462E-04 0.10000E+01 0.10918E+04 0.43077E-05 0.95814E-10 0.17230E-11 @@ -26260,24 +26260,24 @@ VERSION 2.8.2 5 1 0.60462E-04 0.10000E+01 0.24221E+03 0.29888E-03 0.26448E-06 0.58118E-10 5 1 0.60462E-04 0.10000E+01 0.19533E+03 0.46603E-03 0.50190E-06 0.87310E-10 5 1 0.60462E-04 0.10000E+01 0.15752E+03 0.46603E-03 0.50190E-06 0.87310E-10 - 5 1 0.10550E-03 0.10000E+01 0.80645E+05 0.28396E-50 0.21204E-61 0.26152E-56 - 5 1 0.10550E-03 0.10000E+01 0.65036E+05 0.23985E-49 0.33630E-60 0.22101E-55 - 5 1 0.10550E-03 0.10000E+01 0.52449E+05 0.20352E-48 0.44994E-59 0.18761E-54 - 5 1 0.10550E-03 0.10000E+01 0.42297E+05 0.15258E-47 0.60645E-58 0.14077E-53 - 5 1 0.10550E-03 0.10000E+01 0.34111E+05 0.10932E-46 0.82187E-57 0.10100E-52 - 5 1 0.10550E-03 0.10000E+01 0.27509E+05 0.77622E-46 0.10904E-55 0.71888E-52 - 5 1 0.10550E-03 0.10000E+01 0.22184E+05 0.54296E-45 0.14007E-54 0.50484E-51 - 5 1 0.10550E-03 0.10000E+01 0.17891E+05 0.36985E-44 0.17315E-53 0.34614E-50 - 5 1 0.10550E-03 0.10000E+01 0.14428E+05 0.24348E-43 0.20547E-52 0.23021E-49 - 5 1 0.10550E-03 0.10000E+01 0.11635E+05 0.15420E-42 0.23142E-51 0.14800E-48 - 5 1 0.10550E-03 0.10000E+01 0.93834E+04 0.93164E-42 0.24375E-50 0.91183E-48 - 5 1 0.10550E-03 0.10000E+01 0.75673E+04 0.53322E-41 0.25963E-49 0.52904E-47 - 5 1 0.10550E-03 0.10000E+01 0.61026E+04 0.30506E-40 0.38119E-48 0.29149E-46 - 5 1 0.10550E-03 0.10000E+01 0.49215E+04 0.21602E-39 0.85017E-47 0.17671E-45 - 5 1 0.10550E-03 0.10000E+01 0.39689E+04 0.22211E-38 0.21044E-45 0.15312E-44 - 5 1 0.10550E-03 0.10000E+01 0.32008E+04 0.86160E-36 0.15976E-42 0.55791E-42 - 5 1 0.10550E-03 0.10000E+01 0.25813E+04 0.54087E-27 0.21256E-33 0.33882E-33 - 5 1 0.10550E-03 0.10000E+01 0.20817E+04 0.80413E-11 0.11721E-16 0.46672E-17 + 5 1 0.10550E-03 0.10000E+01 0.80645E+05 0.19215E-07 0.11961E-18 0.17692E-13 + 5 1 0.10550E-03 0.10000E+01 0.65036E+05 0.24627E-07 0.27293E-18 0.22682E-13 + 5 1 0.10550E-03 0.10000E+01 0.52449E+05 0.31113E-07 0.61153E-18 0.28665E-13 + 5 1 0.10550E-03 0.10000E+01 0.42297E+05 0.38869E-07 0.13387E-17 0.35833E-13 + 5 1 0.10550E-03 0.10000E+01 0.34111E+05 0.48099E-07 0.28501E-17 0.44381E-13 + 5 1 0.10550E-03 0.10000E+01 0.27509E+05 0.58981E-07 0.58798E-17 0.54491E-13 + 5 1 0.10550E-03 0.10000E+01 0.22184E+05 0.71641E-07 0.11800E-16 0.66304E-13 + 5 1 0.10550E-03 0.10000E+01 0.17891E+05 0.86134E-07 0.23726E-16 0.79892E-13 + 5 1 0.10550E-03 0.10000E+01 0.14428E+05 0.10246E-06 0.51639E-16 0.95251E-13 + 5 1 0.10550E-03 0.10000E+01 0.11635E+05 0.12069E-06 0.13450E-15 0.11236E-12 + 5 1 0.10550E-03 0.10000E+01 0.93834E+04 0.14128E-06 0.42743E-15 0.13138E-12 + 5 1 0.10550E-03 0.10000E+01 0.75673E+04 0.16578E-06 0.15290E-14 0.15308E-12 + 5 1 0.10550E-03 0.10000E+01 0.61026E+04 0.19800E-06 0.56824E-14 0.17957E-12 + 5 1 0.10550E-03 0.10000E+01 0.49215E+04 0.24620E-06 0.21112E-13 0.21544E-12 + 5 1 0.10550E-03 0.10000E+01 0.39689E+04 0.32705E-06 0.77553E-13 0.26942E-12 + 5 1 0.10550E-03 0.10000E+01 0.32008E+04 0.47273E-06 0.28207E-12 0.35689E-12 + 5 1 0.10550E-03 0.10000E+01 0.25813E+04 0.74434E-06 0.10204E-11 0.50356E-12 + 5 1 0.10550E-03 0.10000E+01 0.20817E+04 0.12570E-05 0.36780E-11 0.75124E-12 5 1 0.10550E-03 0.10000E+01 0.16788E+04 0.22274E-05 0.13192E-10 0.11672E-11 5 1 0.10550E-03 0.10000E+01 0.13538E+04 0.40616E-05 0.47048E-10 0.18601E-11 5 1 0.10550E-03 0.10000E+01 0.10918E+04 0.75167E-05 0.16719E-09 0.30065E-11 @@ -26290,24 +26290,24 @@ VERSION 2.8.2 5 1 0.10550E-03 0.10000E+01 0.24221E+03 0.52152E-03 0.46150E-06 0.10141E-09 5 1 0.10550E-03 0.10000E+01 0.19533E+03 0.81320E-03 0.87579E-06 0.15235E-09 5 1 0.10550E-03 0.10000E+01 0.15752E+03 0.81320E-03 0.87579E-06 0.15235E-09 - 5 1 0.18409E-03 0.10000E+01 0.80645E+05 0.49550E-50 0.37000E-61 0.45635E-56 - 5 1 0.18409E-03 0.10000E+01 0.65036E+05 0.41852E-49 0.58683E-60 0.38564E-55 - 5 1 0.18409E-03 0.10000E+01 0.52449E+05 0.35513E-48 0.78513E-59 0.32737E-54 - 5 1 0.18409E-03 0.10000E+01 0.42297E+05 0.26624E-47 0.10582E-57 0.24564E-53 - 5 1 0.18409E-03 0.10000E+01 0.34111E+05 0.19075E-46 0.14341E-56 0.17624E-52 - 5 1 0.18409E-03 0.10000E+01 0.27509E+05 0.13545E-45 0.19027E-55 0.12544E-51 - 5 1 0.18409E-03 0.10000E+01 0.22184E+05 0.94743E-45 0.24441E-54 0.88092E-51 - 5 1 0.18409E-03 0.10000E+01 0.17891E+05 0.64537E-44 0.30214E-53 0.60399E-50 - 5 1 0.18409E-03 0.10000E+01 0.14428E+05 0.42486E-43 0.35853E-52 0.40171E-49 - 5 1 0.18409E-03 0.10000E+01 0.11635E+05 0.26906E-42 0.40381E-51 0.25825E-48 - 5 1 0.18409E-03 0.10000E+01 0.93834E+04 0.16257E-41 0.42532E-50 0.15911E-47 - 5 1 0.18409E-03 0.10000E+01 0.75673E+04 0.93044E-41 0.45304E-49 0.92315E-47 - 5 1 0.18409E-03 0.10000E+01 0.61026E+04 0.53231E-40 0.66515E-48 0.50863E-46 - 5 1 0.18409E-03 0.10000E+01 0.49215E+04 0.37695E-39 0.14835E-46 0.30835E-45 - 5 1 0.18409E-03 0.10000E+01 0.39689E+04 0.38757E-38 0.36721E-45 0.26719E-44 - 5 1 0.18409E-03 0.10000E+01 0.32008E+04 0.15034E-35 0.27877E-42 0.97352E-42 - 5 1 0.18409E-03 0.10000E+01 0.25813E+04 0.94379E-27 0.37090E-33 0.59122E-33 - 5 1 0.18409E-03 0.10000E+01 0.20817E+04 0.14032E-10 0.20452E-16 0.81440E-17 + 5 1 0.18409E-03 0.10000E+01 0.80645E+05 0.33528E-07 0.20871E-18 0.30872E-13 + 5 1 0.18409E-03 0.10000E+01 0.65036E+05 0.42973E-07 0.47625E-18 0.39578E-13 + 5 1 0.18409E-03 0.10000E+01 0.52449E+05 0.54289E-07 0.10671E-17 0.50019E-13 + 5 1 0.18409E-03 0.10000E+01 0.42297E+05 0.67825E-07 0.23360E-17 0.62526E-13 + 5 1 0.18409E-03 0.10000E+01 0.34111E+05 0.83930E-07 0.49733E-17 0.77442E-13 + 5 1 0.18409E-03 0.10000E+01 0.27509E+05 0.10292E-06 0.10260E-16 0.95083E-13 + 5 1 0.18409E-03 0.10000E+01 0.22184E+05 0.12501E-06 0.20591E-16 0.11570E-12 + 5 1 0.18409E-03 0.10000E+01 0.17891E+05 0.15030E-06 0.41401E-16 0.13941E-12 + 5 1 0.18409E-03 0.10000E+01 0.14428E+05 0.17879E-06 0.90107E-16 0.16621E-12 + 5 1 0.18409E-03 0.10000E+01 0.11635E+05 0.21059E-06 0.23470E-15 0.19606E-12 + 5 1 0.18409E-03 0.10000E+01 0.93834E+04 0.24653E-06 0.74584E-15 0.22924E-12 + 5 1 0.18409E-03 0.10000E+01 0.75673E+04 0.28928E-06 0.26680E-14 0.26711E-12 + 5 1 0.18409E-03 0.10000E+01 0.61026E+04 0.34549E-06 0.99154E-14 0.31334E-12 + 5 1 0.18409E-03 0.10000E+01 0.49215E+04 0.42961E-06 0.36839E-13 0.37593E-12 + 5 1 0.18409E-03 0.10000E+01 0.39689E+04 0.57068E-06 0.13533E-12 0.47012E-12 + 5 1 0.18409E-03 0.10000E+01 0.32008E+04 0.82489E-06 0.49219E-12 0.62275E-12 + 5 1 0.18409E-03 0.10000E+01 0.25813E+04 0.12988E-05 0.17806E-11 0.87868E-12 + 5 1 0.18409E-03 0.10000E+01 0.20817E+04 0.21934E-05 0.64179E-11 0.13109E-11 5 1 0.18409E-03 0.10000E+01 0.16788E+04 0.38867E-05 0.23019E-10 0.20368E-11 5 1 0.18409E-03 0.10000E+01 0.13538E+04 0.70873E-05 0.82096E-10 0.32458E-11 5 1 0.18409E-03 0.10000E+01 0.10918E+04 0.13116E-04 0.29174E-09 0.52462E-11 @@ -26320,24 +26320,24 @@ VERSION 2.8.2 5 1 0.18409E-03 0.10000E+01 0.24221E+03 0.91002E-03 0.80529E-06 0.17696E-09 5 1 0.18409E-03 0.10000E+01 0.19533E+03 0.14190E-02 0.15282E-05 0.26584E-09 5 1 0.18409E-03 0.10000E+01 0.15752E+03 0.14190E-02 0.15282E-05 0.26584E-09 - 5 1 0.32123E-03 0.10000E+01 0.80645E+05 0.86462E-50 0.64562E-61 0.79629E-56 - 5 1 0.32123E-03 0.10000E+01 0.65036E+05 0.73030E-49 0.10240E-59 0.67293E-55 - 5 1 0.32123E-03 0.10000E+01 0.52449E+05 0.61967E-48 0.13700E-58 0.57125E-54 - 5 1 0.32123E-03 0.10000E+01 0.42297E+05 0.46458E-47 0.18465E-57 0.42862E-53 - 5 1 0.32123E-03 0.10000E+01 0.34111E+05 0.33285E-46 0.25024E-56 0.30753E-52 - 5 1 0.32123E-03 0.10000E+01 0.27509E+05 0.23634E-45 0.33200E-55 0.21889E-51 - 5 1 0.32123E-03 0.10000E+01 0.22184E+05 0.16532E-44 0.42648E-54 0.15372E-50 - 5 1 0.32123E-03 0.10000E+01 0.17891E+05 0.11261E-43 0.52722E-53 0.10539E-49 - 5 1 0.32123E-03 0.10000E+01 0.14428E+05 0.74136E-43 0.62562E-52 0.70095E-49 - 5 1 0.32123E-03 0.10000E+01 0.11635E+05 0.46950E-42 0.70463E-51 0.45063E-48 - 5 1 0.32123E-03 0.10000E+01 0.93834E+04 0.28367E-41 0.74216E-50 0.27764E-47 - 5 1 0.32123E-03 0.10000E+01 0.75673E+04 0.16236E-40 0.79053E-49 0.16108E-46 - 5 1 0.32123E-03 0.10000E+01 0.61026E+04 0.92885E-40 0.11607E-47 0.88752E-46 - 5 1 0.32123E-03 0.10000E+01 0.49215E+04 0.65775E-39 0.25886E-46 0.53805E-45 - 5 1 0.32123E-03 0.10000E+01 0.39689E+04 0.67628E-38 0.64076E-45 0.46623E-44 - 5 1 0.32123E-03 0.10000E+01 0.32008E+04 0.26234E-35 0.48644E-42 0.16987E-41 - 5 1 0.32123E-03 0.10000E+01 0.25813E+04 0.16469E-26 0.64720E-33 0.10316E-32 - 5 1 0.32123E-03 0.10000E+01 0.20817E+04 0.24484E-10 0.35688E-16 0.14211E-16 + 5 1 0.32123E-03 0.10000E+01 0.80645E+05 0.58505E-07 0.36419E-18 0.53869E-13 + 5 1 0.32123E-03 0.10000E+01 0.65036E+05 0.74986E-07 0.83104E-18 0.69061E-13 + 5 1 0.32123E-03 0.10000E+01 0.52449E+05 0.94732E-07 0.18620E-17 0.87280E-13 + 5 1 0.32123E-03 0.10000E+01 0.42297E+05 0.11835E-06 0.40762E-17 0.10910E-12 + 5 1 0.32123E-03 0.10000E+01 0.34111E+05 0.14645E-06 0.86780E-17 0.13513E-12 + 5 1 0.32123E-03 0.10000E+01 0.27509E+05 0.17959E-06 0.17903E-16 0.16591E-12 + 5 1 0.32123E-03 0.10000E+01 0.22184E+05 0.21813E-06 0.35930E-16 0.20188E-12 + 5 1 0.32123E-03 0.10000E+01 0.17891E+05 0.26226E-06 0.72243E-16 0.24326E-12 + 5 1 0.32123E-03 0.10000E+01 0.14428E+05 0.31197E-06 0.15723E-15 0.29002E-12 + 5 1 0.32123E-03 0.10000E+01 0.11635E+05 0.36747E-06 0.40954E-15 0.34211E-12 + 5 1 0.32123E-03 0.10000E+01 0.93834E+04 0.43018E-06 0.13014E-14 0.40002E-12 + 5 1 0.32123E-03 0.10000E+01 0.75673E+04 0.50478E-06 0.46555E-14 0.46609E-12 + 5 1 0.32123E-03 0.10000E+01 0.61026E+04 0.60286E-06 0.17302E-13 0.54677E-12 + 5 1 0.32123E-03 0.10000E+01 0.49215E+04 0.74964E-06 0.64282E-13 0.65598E-12 + 5 1 0.32123E-03 0.10000E+01 0.39689E+04 0.99579E-06 0.23613E-12 0.82033E-12 + 5 1 0.32123E-03 0.10000E+01 0.32008E+04 0.14394E-05 0.85885E-12 0.10867E-11 + 5 1 0.32123E-03 0.10000E+01 0.25813E+04 0.22664E-05 0.31070E-11 0.15332E-11 + 5 1 0.32123E-03 0.10000E+01 0.20817E+04 0.38273E-05 0.11199E-10 0.22874E-11 5 1 0.32123E-03 0.10000E+01 0.16788E+04 0.67820E-05 0.40166E-10 0.35540E-11 5 1 0.32123E-03 0.10000E+01 0.13538E+04 0.12367E-04 0.14325E-09 0.56636E-11 5 1 0.32123E-03 0.10000E+01 0.10918E+04 0.22887E-04 0.50906E-09 0.91542E-11 @@ -26400,24 +26400,24 @@ VERSION 2.8.2 5 2 0.10550E-03 0.10000E+01 0.12314E+01 0.17028E+01 0.18900E+00 0.14659E-02 0.27258E+00 0.99750E-04 0.46642E+10 0.42739E+03 0.50000E+03 0.58888E-15 0.13913E-01 0.57605E-02 0.16437E+02 5 2 0.18409E-03 0.10000E+01 0.12314E+01 0.17028E+01 0.57547E+00 0.25578E-02 0.47564E+00 0.99750E-04 0.81388E+10 0.74578E+03 0.50000E+03 0.10276E-14 0.24277E-01 0.57605E-02 0.16437E+02 5 2 0.32123E-03 0.10000E+01 0.12314E+01 0.17028E+01 0.17522E+01 0.44633E-02 0.82995E+00 0.99750E-04 0.14202E+11 0.13013E+04 0.50000E+03 0.17930E-14 0.42361E-01 0.57605E-02 0.16437E+02 - 5 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 5 2 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 5 2 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 5 2 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 5 2 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 5 2 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 5 2 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 5 2 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 5 2 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 5 2 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 5 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 5 2 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 5 2 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 5 2 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 5 2 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 5 2 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 5 2 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 5 2 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 5 2 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 5 2 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 5 2 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 5 2 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 5 2 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 5 2 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 5 2 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 5 2 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 5 2 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 5 2 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 5 2 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 5 2 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 5 2 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 5 2 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 5 2 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 5 2 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 5 2 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 5 2 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 5 2 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 5 2 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 5 2 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -26430,24 +26430,24 @@ VERSION 2.8.2 5 2 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 5 2 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 5 2 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 5 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 5 2 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 5 2 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 5 2 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 5 2 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 5 2 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 5 2 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 5 2 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 5 2 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 5 2 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 5 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 5 2 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 5 2 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 5 2 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 5 2 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 5 2 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 5 2 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 5 2 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 5 2 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 5 2 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 5 2 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 5 2 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 5 2 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 5 2 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 5 2 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 5 2 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 5 2 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 5 2 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 5 2 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 5 2 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 5 2 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 5 2 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 5 2 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 5 2 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 5 2 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 5 2 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 5 2 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 5 2 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 5 2 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -26460,24 +26460,24 @@ VERSION 2.8.2 5 2 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 5 2 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 5 2 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 5 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 5 2 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 5 2 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 5 2 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 5 2 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 5 2 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 5 2 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 5 2 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 5 2 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 5 2 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 5 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 5 2 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 5 2 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 5 2 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 5 2 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 5 2 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 5 2 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 5 2 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 5 2 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 5 2 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 5 2 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 5 2 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 5 2 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 5 2 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 5 2 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 5 2 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 5 2 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 5 2 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 5 2 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 5 2 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 5 2 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 5 2 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 5 2 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 5 2 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 5 2 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 5 2 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 5 2 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 5 2 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 5 2 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -26490,24 +26490,24 @@ VERSION 2.8.2 5 2 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 5 2 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 5 2 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 5 2 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 5 2 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 5 2 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 5 2 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 5 2 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 5 2 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 5 2 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 5 2 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 5 2 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 5 2 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 5 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 5 2 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 5 2 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 5 2 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 5 2 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 5 2 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 5 2 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 5 2 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 5 2 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 5 2 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 5 2 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 5 2 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 5 2 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 5 2 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 5 2 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 5 2 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 5 2 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 5 2 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 5 2 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 5 2 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 5 2 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 5 2 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 5 2 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 5 2 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 5 2 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 5 2 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 5 2 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 5 2 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 5 2 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -26520,24 +26520,24 @@ VERSION 2.8.2 5 2 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 5 2 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 5 2 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 5 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 5 2 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 5 2 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 5 2 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 5 2 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 5 2 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 5 2 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 5 2 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 5 2 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 5 2 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 5 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 5 2 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 5 2 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 5 2 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 5 2 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 5 2 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 5 2 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 5 2 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 5 2 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 5 2 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 5 2 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 5 2 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 5 2 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 5 2 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 5 2 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 5 2 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 5 2 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 5 2 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 5 2 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 5 2 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 5 2 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 5 2 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 5 2 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 5 2 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 5 2 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 5 2 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 5 2 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 5 2 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 5 2 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -26550,24 +26550,24 @@ VERSION 2.8.2 5 2 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 5 2 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 5 2 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 5 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 5 2 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 5 2 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 5 2 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 5 2 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 5 2 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 5 2 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 5 2 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 5 2 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 5 2 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 5 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 5 2 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 5 2 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 5 2 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 5 2 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 5 2 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 5 2 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 5 2 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 5 2 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 5 2 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 5 2 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 5 2 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 5 2 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 5 2 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 5 2 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 5 2 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 5 2 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 5 2 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 5 2 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 5 2 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 5 2 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 5 2 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 5 2 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 5 2 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 5 2 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 5 2 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 5 2 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 5 2 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 5 2 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -26580,24 +26580,24 @@ VERSION 2.8.2 5 2 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 5 2 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 5 2 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 5 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 5 2 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 5 2 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 5 2 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 5 2 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 5 2 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 5 2 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 5 2 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 5 2 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 5 2 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 5 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 5 2 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 5 2 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 5 2 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 5 2 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 5 2 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 5 2 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 5 2 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 5 2 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 5 2 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 5 2 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 5 2 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 5 2 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 5 2 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 5 2 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 5 2 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 5 2 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 5 2 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 5 2 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 5 2 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 5 2 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 5 2 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 5 2 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 5 2 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 5 2 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 5 2 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 5 2 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 5 2 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 5 2 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -26610,24 +26610,24 @@ VERSION 2.8.2 5 2 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 5 2 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 5 2 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 5 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 5 2 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 5 2 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 5 2 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 5 2 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 5 2 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 5 2 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 5 2 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 5 2 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 5 2 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 5 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 5 2 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 5 2 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 5 2 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 5 2 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 5 2 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 5 2 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 5 2 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 5 2 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 5 2 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 5 2 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 5 2 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 5 2 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 5 2 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 5 2 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 5 2 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 5 2 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 5 2 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 5 2 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 5 2 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 5 2 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 5 2 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 5 2 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 5 2 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 5 2 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 5 2 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 5 2 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 5 2 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 5 2 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -26640,24 +26640,24 @@ VERSION 2.8.2 5 2 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 5 2 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 5 2 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 5 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 5 2 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 5 2 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 5 2 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 5 2 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 5 2 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 5 2 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 5 2 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 5 2 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 5 2 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 5 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 5 2 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 5 2 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 5 2 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 5 2 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 5 2 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 5 2 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 5 2 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 5 2 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 5 2 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 5 2 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 5 2 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 5 2 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 5 2 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 5 2 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 5 2 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 5 2 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 5 2 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 5 2 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 5 2 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 5 2 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 5 2 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 5 2 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 5 2 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 5 2 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 5 2 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 5 2 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 5 2 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 5 2 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -26670,24 +26670,24 @@ VERSION 2.8.2 5 2 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 5 2 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 5 2 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 5 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 5 2 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 5 2 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 5 2 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 5 2 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 5 2 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 5 2 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 5 2 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 5 2 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 5 2 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 5 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 5 2 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 5 2 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 5 2 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 5 2 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 5 2 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 5 2 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 5 2 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 5 2 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 5 2 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 5 2 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 5 2 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 5 2 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 5 2 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 5 2 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 5 2 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 5 2 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 5 2 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 5 2 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 5 2 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 5 2 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 5 2 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 5 2 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 5 2 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 5 2 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 5 2 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 5 2 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 5 2 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 5 2 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -26700,24 +26700,24 @@ VERSION 2.8.2 5 2 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 5 2 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 5 2 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 5 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 5 2 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 5 2 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 5 2 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 5 2 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 5 2 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 5 2 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 5 2 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 5 2 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 5 2 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 5 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 5 2 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 5 2 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 5 2 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 5 2 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 5 2 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 5 2 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 5 2 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 5 2 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 5 2 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 5 2 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 5 2 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 5 2 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 5 2 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 5 2 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 5 2 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 5 2 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 5 2 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 5 2 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 5 2 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 5 2 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 5 2 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 5 2 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 5 2 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 5 2 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 5 2 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 5 2 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 5 2 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 5 2 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -26730,24 +26730,24 @@ VERSION 2.8.2 5 2 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 5 2 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 5 2 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 5 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 5 2 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 5 2 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 5 2 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 5 2 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 5 2 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 5 2 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 5 2 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 5 2 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 5 2 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 5 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 5 2 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 5 2 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 5 2 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 5 2 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 5 2 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 5 2 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 5 2 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 5 2 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 5 2 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 5 2 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 5 2 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 5 2 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 5 2 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 5 2 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 5 2 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 5 2 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 5 2 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 5 2 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 5 2 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 5 2 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 5 2 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 5 2 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 5 2 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 5 2 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 5 2 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 5 2 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 5 2 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 5 2 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -26760,24 +26760,24 @@ VERSION 2.8.2 5 2 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 5 2 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 5 2 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 5 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 5 2 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 5 2 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 5 2 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 5 2 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 5 2 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 5 2 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 5 2 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 5 2 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 5 2 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 5 2 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 5 2 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 5 2 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 5 2 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 5 2 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 5 2 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 5 2 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 5 2 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 5 2 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 5 2 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 5 2 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 5 2 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 5 2 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 5 2 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 5 2 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 5 2 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 5 2 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 5 2 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 5 2 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 5 2 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 5 2 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 5 2 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 5 2 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 5 2 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 5 2 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 5 2 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 5 2 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 5 2 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 5 2 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -26790,24 +26790,24 @@ VERSION 2.8.2 5 2 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 5 2 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 5 2 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 5 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 5 2 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 5 2 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 5 2 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 5 2 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 5 2 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 5 2 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 5 2 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 5 2 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 5 2 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 5 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 5 2 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 5 2 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 5 2 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 5 2 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 5 2 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 5 2 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 5 2 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 5 2 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 5 2 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 5 2 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 5 2 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 5 2 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 5 2 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 5 2 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 5 2 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 5 2 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 5 2 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 5 2 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 5 2 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 5 2 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 5 2 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 5 2 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 5 2 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 5 2 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 5 2 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 5 2 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 5 2 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 5 2 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -26820,24 +26820,24 @@ VERSION 2.8.2 5 2 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 5 2 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 5 2 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 5 2 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 5 2 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 5 2 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 5 2 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 5 2 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 5 2 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 5 2 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 5 2 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 5 2 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 5 2 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 5 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 5 2 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 5 2 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 5 2 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 5 2 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 5 2 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 5 2 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 5 2 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 5 2 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 5 2 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 5 2 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 5 2 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 5 2 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 5 2 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 5 2 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 5 2 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 5 2 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 5 2 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 5 2 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 5 2 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 5 2 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 5 2 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 5 2 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 5 2 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 5 2 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 5 2 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 5 2 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 5 2 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 5 2 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -26850,24 +26850,24 @@ VERSION 2.8.2 5 2 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 5 2 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 5 2 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 5 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 5 2 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 5 2 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 5 2 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 5 2 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 5 2 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 5 2 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 5 2 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 5 2 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 5 2 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 5 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 5 2 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 5 2 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 5 2 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 5 2 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 5 2 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 5 2 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 5 2 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 5 2 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 5 2 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 5 2 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 5 2 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 5 2 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 5 2 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 5 2 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 5 2 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 5 2 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 5 2 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 5 2 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 5 2 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 5 2 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 5 2 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 5 2 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 5 2 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 5 2 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 5 2 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 5 2 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 5 2 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 5 2 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -26880,24 +26880,24 @@ VERSION 2.8.2 5 2 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 5 2 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 5 2 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 5 2 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 5 2 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 5 2 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 5 2 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 5 2 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 5 2 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 5 2 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 5 2 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 5 2 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 5 2 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 5 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 5 2 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 5 2 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 5 2 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 5 2 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 5 2 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 5 2 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 5 2 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 5 2 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 5 2 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 5 2 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 5 2 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 5 2 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 5 2 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 5 2 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 5 2 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 5 2 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 5 2 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 5 2 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 5 2 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 5 2 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 5 2 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 5 2 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 5 2 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 5 2 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 5 2 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 5 2 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 5 2 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 5 2 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -26910,24 +26910,24 @@ VERSION 2.8.2 5 2 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 5 2 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 5 2 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 5 2 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24239E-69 - 5 2 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18973E-68 - 5 2 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24432E-67 - 5 2 0.58864E-11 0.10000E+01 0.42297E+05 0.69440E-55 0.81224E-65 0.40732E-66 - 5 2 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74407E-65 - 5 2 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 5 2 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 5 2 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 5 2 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 5 2 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 5 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 5 2 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 5 2 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 5 2 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33815E-50 0.37145E-54 - 5 2 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 5 2 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 5 2 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 5 2 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 5 2 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24780E-26 + 5 2 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43808E-26 + 5 2 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93899E-26 + 5 2 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23015E-25 + 5 2 0.58864E-11 0.10000E+01 0.34111E+05 0.93048E-14 0.18786E-22 0.59337E-25 + 5 2 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86633E-22 0.15291E-24 + 5 2 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 5 2 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95684E-24 + 5 2 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 5 2 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 5 2 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13385E-22 + 5 2 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 5 2 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 5 2 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 5 2 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 5 2 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 5 2 0.58864E-11 0.10000E+01 0.25813E+04 0.35224E-09 0.10596E-14 0.22109E-20 + 5 2 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 5 2 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 5 2 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 5 2 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23277E-12 0.48928E-19 @@ -26940,24 +26940,24 @@ VERSION 2.8.2 5 2 0.58864E-11 0.10000E+01 0.24221E+03 0.77296E-06 0.71310E-09 0.48594E-17 5 2 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 5 2 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 5 2 0.10271E-10 0.10000E+01 0.80645E+05 0.28442E-58 0.21427E-69 0.92905E-69 - 5 2 0.10271E-10 0.10000E+01 0.65036E+05 0.25727E-57 0.63704E-68 0.74332E-68 - 5 2 0.10271E-10 0.10000E+01 0.52449E+05 0.37510E-56 0.22053E-66 0.73089E-67 - 5 2 0.10271E-10 0.10000E+01 0.42297E+05 0.66181E-55 0.77497E-65 0.87475E-66 - 5 2 0.10271E-10 0.10000E+01 0.34111E+05 0.12105E-53 0.26795E-63 0.13780E-64 - 5 2 0.10271E-10 0.10000E+01 0.27509E+05 0.21884E-52 0.89973E-62 0.24574E-63 - 5 2 0.10271E-10 0.10000E+01 0.22184E+05 0.38373E-51 0.28684E-60 0.43687E-62 - 5 2 0.10271E-10 0.10000E+01 0.17891E+05 0.63887E-50 0.85156E-59 0.73557E-61 - 5 2 0.10271E-10 0.10000E+01 0.14428E+05 0.99626E-49 0.23814E-57 0.11537E-59 - 5 2 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64585E-56 0.17064E-58 - 5 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21015E-46 0.17345E-54 0.24421E-57 - 5 2 0.10271E-10 0.10000E+01 0.75673E+04 0.29666E-45 0.46498E-53 0.34506E-56 - 5 2 0.10271E-10 0.10000E+01 0.61026E+04 0.41737E-44 0.12464E-51 0.48597E-55 - 5 2 0.10271E-10 0.10000E+01 0.49215E+04 0.58686E-43 0.33415E-50 0.68411E-54 - 5 2 0.10271E-10 0.10000E+01 0.39689E+04 0.82516E-42 0.89576E-49 0.96302E-53 - 5 2 0.10271E-10 0.10000E+01 0.32008E+04 0.36487E-39 0.77647E-46 0.42632E-50 - 5 2 0.10271E-10 0.10000E+01 0.25813E+04 0.26698E-30 0.13025E-36 0.31230E-41 - 5 2 0.10271E-10 0.10000E+01 0.20817E+04 0.50710E-14 0.11035E-19 0.59395E-25 + 5 2 0.10271E-10 0.10000E+01 0.80645E+05 0.30528E-15 0.28631E-25 0.76453E-26 + 5 2 0.10271E-10 0.10000E+01 0.65036E+05 0.59432E-15 0.15496E-24 0.11818E-25 + 5 2 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79875E-24 0.21652E-25 + 5 2 0.10271E-10 0.10000E+01 0.42297E+05 0.35331E-14 0.39210E-23 0.47189E-25 + 5 2 0.10271E-10 0.10000E+01 0.34111E+05 0.92830E-14 0.18530E-22 0.11422E-24 + 5 2 0.10271E-10 0.10000E+01 0.27509E+05 0.24092E-13 0.85481E-22 0.28618E-24 + 5 2 0.10271E-10 0.10000E+01 0.22184E+05 0.61054E-13 0.38934E-21 0.71533E-24 + 5 2 0.10271E-10 0.10000E+01 0.17891E+05 0.15124E-12 0.17632E-20 0.17633E-23 + 5 2 0.10271E-10 0.10000E+01 0.14428E+05 0.36813E-12 0.79674E-20 0.42865E-23 + 5 2 0.10271E-10 0.10000E+01 0.11635E+05 0.88557E-12 0.35972E-19 0.10313E-22 + 5 2 0.10271E-10 0.10000E+01 0.93834E+04 0.21148E-11 0.16229E-18 0.24645E-22 + 5 2 0.10271E-10 0.10000E+01 0.75673E+04 0.50285E-11 0.72999E-18 0.58653E-22 + 5 2 0.10271E-10 0.10000E+01 0.61026E+04 0.11920E-10 0.32554E-17 0.13917E-21 + 5 2 0.10271E-10 0.10000E+01 0.49215E+04 0.28142E-10 0.14278E-16 0.32889E-21 + 5 2 0.10271E-10 0.10000E+01 0.39689E+04 0.65971E-10 0.61246E-16 0.77166E-21 + 5 2 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25655E-15 0.17893E-20 + 5 2 0.10271E-10 0.10000E+01 0.25813E+04 0.34865E-09 0.10495E-14 0.40835E-20 + 5 2 0.10271E-10 0.10000E+01 0.20817E+04 0.78051E-09 0.41877E-14 0.91461E-20 5 2 0.10271E-10 0.10000E+01 0.16788E+04 0.17119E-08 0.16285E-13 0.20068E-19 5 2 0.10271E-10 0.10000E+01 0.13538E+04 0.36739E-08 0.61849E-13 0.43079E-19 5 2 0.10271E-10 0.10000E+01 0.10918E+04 0.77114E-08 0.23060E-12 0.90441E-19 @@ -26970,24 +26970,24 @@ VERSION 2.8.2 5 2 0.10271E-10 0.10000E+01 0.24221E+03 0.76574E-06 0.70645E-09 0.89846E-17 5 2 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13425E-08 0.14160E-16 5 2 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13425E-08 0.14160E-16 - 5 2 0.17923E-10 0.10000E+01 0.80645E+05 0.56931E-58 0.39421E-69 0.34132E-68 - 5 2 0.17923E-10 0.10000E+01 0.65036E+05 0.46702E-57 0.87507E-68 0.28293E-67 - 5 2 0.17923E-10 0.10000E+01 0.52449E+05 0.52476E-56 0.24066E-66 0.24648E-66 - 5 2 0.17923E-10 0.10000E+01 0.42297E+05 0.74450E-55 0.79975E-65 0.22029E-65 - 5 2 0.17923E-10 0.10000E+01 0.34111E+05 0.12646E-53 0.27744E-63 0.26304E-64 - 5 2 0.17923E-10 0.10000E+01 0.27509E+05 0.22712E-52 0.94009E-62 0.41750E-63 - 5 2 0.17923E-10 0.10000E+01 0.22184E+05 0.40091E-51 0.30152E-60 0.72601E-62 - 5 2 0.17923E-10 0.10000E+01 0.17891E+05 0.67122E-50 0.89765E-59 0.12297E-60 - 5 2 0.17923E-10 0.10000E+01 0.14428E+05 0.10498E-48 0.25128E-57 0.19455E-59 - 5 2 0.17923E-10 0.10000E+01 0.11635E+05 0.15509E-47 0.68179E-56 0.28948E-58 - 5 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22183E-46 0.18318E-54 0.41588E-57 - 5 2 0.17923E-10 0.10000E+01 0.75673E+04 0.31331E-45 0.49135E-53 0.58931E-56 - 5 2 0.17923E-10 0.10000E+01 0.61026E+04 0.44104E-44 0.13180E-51 0.83196E-55 - 5 2 0.17923E-10 0.10000E+01 0.49215E+04 0.62053E-43 0.35355E-50 0.11736E-53 - 5 2 0.17923E-10 0.10000E+01 0.39689E+04 0.87304E-42 0.94835E-49 0.16552E-52 - 5 2 0.17923E-10 0.10000E+01 0.32008E+04 0.38628E-39 0.82252E-46 0.73393E-50 - 5 2 0.17923E-10 0.10000E+01 0.25813E+04 0.28282E-30 0.13805E-36 0.53845E-41 - 5 2 0.17923E-10 0.10000E+01 0.20817E+04 0.53756E-14 0.11705E-19 0.10258E-24 + 5 2 0.17923E-10 0.10000E+01 0.80645E+05 0.50987E-15 0.30178E-25 0.24645E-25 + 5 2 0.17923E-10 0.10000E+01 0.65036E+05 0.85185E-15 0.16276E-24 0.34581E-25 + 5 2 0.17923E-10 0.10000E+01 0.52449E+05 0.17125E-14 0.84016E-24 0.54162E-25 + 5 2 0.17923E-10 0.10000E+01 0.42297E+05 0.40088E-14 0.41312E-23 0.10014E-24 + 5 2 0.17923E-10 0.10000E+01 0.34111E+05 0.10087E-13 0.19546E-22 0.21602E-24 + 5 2 0.17923E-10 0.10000E+01 0.27509E+05 0.25713E-13 0.90236E-22 0.50948E-24 + 5 2 0.17923E-10 0.10000E+01 0.22184E+05 0.64712E-13 0.41125E-21 0.12402E-23 + 5 2 0.17923E-10 0.10000E+01 0.17891E+05 0.15991E-12 0.18635E-20 0.30265E-23 + 5 2 0.17923E-10 0.10000E+01 0.14428E+05 0.38900E-12 0.84259E-20 0.73366E-23 + 5 2 0.17923E-10 0.10000E+01 0.11635E+05 0.93584E-12 0.38066E-19 0.17653E-22 + 5 2 0.17923E-10 0.10000E+01 0.93834E+04 0.22357E-11 0.17183E-18 0.42239E-22 + 5 2 0.17923E-10 0.10000E+01 0.75673E+04 0.53186E-11 0.77330E-18 0.10068E-21 + 5 2 0.17923E-10 0.10000E+01 0.61026E+04 0.12614E-10 0.34500E-17 0.23927E-21 + 5 2 0.17923E-10 0.10000E+01 0.49215E+04 0.29797E-10 0.15137E-16 0.56626E-21 + 5 2 0.17923E-10 0.10000E+01 0.39689E+04 0.69883E-10 0.64947E-16 0.13302E-20 + 5 2 0.17923E-10 0.10000E+01 0.32008E+04 0.16199E-09 0.27211E-15 0.30875E-20 + 5 2 0.17923E-10 0.10000E+01 0.25813E+04 0.36958E-09 0.11133E-14 0.70518E-20 + 5 2 0.17923E-10 0.10000E+01 0.20817E+04 0.82759E-09 0.44428E-14 0.15804E-19 5 2 0.17923E-10 0.10000E+01 0.16788E+04 0.18155E-08 0.17278E-13 0.34692E-19 5 2 0.17923E-10 0.10000E+01 0.13538E+04 0.38969E-08 0.65623E-13 0.74501E-19 5 2 0.17923E-10 0.10000E+01 0.10918E+04 0.81803E-08 0.24468E-12 0.15645E-18 @@ -27000,24 +27000,24 @@ VERSION 2.8.2 5 2 0.17923E-10 0.10000E+01 0.24221E+03 0.81249E-06 0.74959E-09 0.15550E-16 5 2 0.17923E-10 0.10000E+01 0.19533E+03 0.12805E-05 0.14245E-08 0.24507E-16 5 2 0.17923E-10 0.10000E+01 0.15752E+03 0.12805E-05 0.14245E-08 0.24507E-16 - 5 2 0.31275E-10 0.10000E+01 0.80645E+05 0.12229E-57 0.87554E-69 0.11588E-67 - 5 2 0.31275E-10 0.10000E+01 0.65036E+05 0.10087E-56 0.15538E-67 0.98503E-67 - 5 2 0.31275E-10 0.10000E+01 0.52449E+05 0.94176E-56 0.30492E-66 0.83643E-66 - 5 2 0.31275E-10 0.10000E+01 0.42297E+05 0.98862E-55 0.84707E-65 0.65559E-65 - 5 2 0.31275E-10 0.10000E+01 0.34111E+05 0.13775E-53 0.28095E-63 0.59480E-64 - 5 2 0.31275E-10 0.10000E+01 0.27509E+05 0.23215E-52 0.95075E-62 0.74138E-63 - 5 2 0.31275E-10 0.10000E+01 0.22184E+05 0.40647E-51 0.30731E-60 0.11782E-61 - 5 2 0.31275E-10 0.10000E+01 0.17891E+05 0.68416E-50 0.92049E-59 0.19859E-60 - 5 2 0.31275E-10 0.10000E+01 0.14428E+05 0.10759E-48 0.25853E-57 0.31863E-59 - 5 2 0.31275E-10 0.10000E+01 0.11635E+05 0.15950E-47 0.70280E-56 0.47986E-58 - 5 2 0.31275E-10 0.10000E+01 0.93834E+04 0.22862E-46 0.18911E-54 0.69511E-57 - 5 2 0.31275E-10 0.10000E+01 0.75673E+04 0.32342E-45 0.50796E-53 0.99093E-56 - 5 2 0.31275E-10 0.10000E+01 0.61026E+04 0.45591E-44 0.13643E-51 0.14056E-54 - 5 2 0.31275E-10 0.10000E+01 0.49215E+04 0.64228E-43 0.36640E-50 0.19907E-53 - 5 2 0.31275E-10 0.10000E+01 0.39689E+04 0.90471E-42 0.98385E-49 0.28168E-52 - 5 2 0.31275E-10 0.10000E+01 0.32008E+04 0.40072E-39 0.85412E-46 0.12525E-49 - 5 2 0.31275E-10 0.10000E+01 0.25813E+04 0.29369E-30 0.14350E-36 0.92126E-41 - 5 2 0.31275E-10 0.10000E+01 0.20817E+04 0.55884E-14 0.12179E-19 0.17597E-24 + 5 2 0.31275E-10 0.10000E+01 0.80645E+05 0.93726E-15 0.31803E-25 0.78995E-25 + 5 2 0.31275E-10 0.10000E+01 0.65036E+05 0.13860E-14 0.16741E-24 0.10549E-24 + 5 2 0.31275E-10 0.10000E+01 0.52449E+05 0.23676E-14 0.86100E-24 0.14867E-24 + 5 2 0.31275E-10 0.10000E+01 0.42297E+05 0.48153E-14 0.42405E-23 0.23545E-24 + 5 2 0.31275E-10 0.10000E+01 0.34111E+05 0.11134E-13 0.20108E-22 0.43705E-24 + 5 2 0.31275E-10 0.10000E+01 0.27509E+05 0.27256E-13 0.93016E-22 0.93221E-24 + 5 2 0.31275E-10 0.10000E+01 0.22184E+05 0.67440E-13 0.42462E-21 0.21558E-23 + 5 2 0.31275E-10 0.10000E+01 0.17891E+05 0.16560E-12 0.19269E-20 0.51504E-23 + 5 2 0.31275E-10 0.10000E+01 0.14428E+05 0.40211E-12 0.87235E-20 0.12402E-22 + 5 2 0.31275E-10 0.10000E+01 0.11635E+05 0.96743E-12 0.39455E-19 0.29830E-22 + 5 2 0.31275E-10 0.10000E+01 0.93834E+04 0.23129E-11 0.17827E-18 0.71518E-22 + 5 2 0.31275E-10 0.10000E+01 0.75673E+04 0.55076E-11 0.80301E-18 0.17095E-21 + 5 2 0.31275E-10 0.10000E+01 0.61026E+04 0.13075E-10 0.35851E-17 0.40736E-21 + 5 2 0.31275E-10 0.10000E+01 0.49215E+04 0.30914E-10 0.15739E-16 0.96644E-21 + 5 2 0.31275E-10 0.10000E+01 0.39689E+04 0.72561E-10 0.67556E-16 0.22749E-20 + 5 2 0.31275E-10 0.10000E+01 0.32008E+04 0.16831E-09 0.28313E-15 0.52892E-20 + 5 2 0.31275E-10 0.10000E+01 0.25813E+04 0.38420E-09 0.11586E-14 0.12096E-19 + 5 2 0.31275E-10 0.10000E+01 0.20817E+04 0.86069E-09 0.46245E-14 0.27138E-19 5 2 0.31275E-10 0.10000E+01 0.16788E+04 0.18887E-08 0.17987E-13 0.59617E-19 5 2 0.31275E-10 0.10000E+01 0.13538E+04 0.40550E-08 0.68320E-13 0.12810E-18 5 2 0.31275E-10 0.10000E+01 0.10918E+04 0.85138E-08 0.25474E-12 0.26913E-18 @@ -27030,24 +27030,24 @@ VERSION 2.8.2 5 2 0.31275E-10 0.10000E+01 0.24221E+03 0.84592E-06 0.78044E-09 0.26773E-16 5 2 0.31275E-10 0.10000E+01 0.19533E+03 0.13332E-05 0.14831E-08 0.42195E-16 5 2 0.31275E-10 0.10000E+01 0.15752E+03 0.13332E-05 0.14831E-08 0.42195E-16 - 5 2 0.54572E-10 0.10000E+01 0.80645E+05 0.25881E-57 0.19216E-68 0.37897E-67 - 5 2 0.54572E-10 0.10000E+01 0.65036E+05 0.21796E-56 0.31133E-67 0.32374E-66 - 5 2 0.54572E-10 0.10000E+01 0.52449E+05 0.18896E-55 0.47548E-66 0.27381E-65 - 5 2 0.54572E-10 0.10000E+01 0.42297E+05 0.15980E-54 0.98472E-65 0.20481E-64 - 5 2 0.54572E-10 0.10000E+01 0.34111E+05 0.16733E-53 0.27950E-63 0.15604E-63 - 5 2 0.54572E-10 0.10000E+01 0.27509E+05 0.23672E-52 0.91188E-62 0.14709E-62 - 5 2 0.54572E-10 0.10000E+01 0.22184E+05 0.39364E-51 0.29709E-60 0.19659E-61 - 5 2 0.54572E-10 0.10000E+01 0.17891E+05 0.66261E-50 0.90073E-59 0.32145E-60 - 5 2 0.54572E-10 0.10000E+01 0.14428E+05 0.10521E-48 0.25494E-57 0.52271E-59 - 5 2 0.54572E-10 0.10000E+01 0.11635E+05 0.15716E-47 0.69634E-56 0.79843E-58 - 5 2 0.54572E-10 0.10000E+01 0.93834E+04 0.22641E-46 0.18803E-54 0.11675E-56 - 5 2 0.54572E-10 0.10000E+01 0.75673E+04 0.32147E-45 0.50653E-53 0.16751E-55 - 5 2 0.54572E-10 0.10000E+01 0.61026E+04 0.45453E-44 0.13639E-51 0.23879E-54 - 5 2 0.54572E-10 0.10000E+01 0.49215E+04 0.64199E-43 0.36712E-50 0.33959E-53 - 5 2 0.54572E-10 0.10000E+01 0.39689E+04 0.90632E-42 0.98762E-49 0.48218E-52 - 5 2 0.54572E-10 0.10000E+01 0.32008E+04 0.40221E-39 0.85883E-46 0.21505E-49 - 5 2 0.54572E-10 0.10000E+01 0.25813E+04 0.29531E-30 0.14454E-36 0.15862E-40 - 5 2 0.54572E-10 0.10000E+01 0.20817E+04 0.56303E-14 0.12291E-19 0.30390E-24 + 5 2 0.54572E-10 0.10000E+01 0.80645E+05 0.18170E-14 0.34175E-25 0.25414E-24 + 5 2 0.54572E-10 0.10000E+01 0.65036E+05 0.24873E-14 0.16766E-24 0.33101E-24 + 5 2 0.54572E-10 0.10000E+01 0.52449E+05 0.36948E-14 0.84675E-24 0.43888E-24 + 5 2 0.54572E-10 0.10000E+01 0.42297E+05 0.63398E-14 0.41687E-23 0.62057E-24 + 5 2 0.54572E-10 0.10000E+01 0.34111E+05 0.12773E-13 0.19844E-22 0.99227E-24 + 5 2 0.54572E-10 0.10000E+01 0.27509E+05 0.28843E-13 0.92171E-22 0.18511E-23 + 5 2 0.54572E-10 0.10000E+01 0.22184E+05 0.68691E-13 0.42226E-21 0.39285E-23 + 5 2 0.54572E-10 0.10000E+01 0.17891E+05 0.16608E-12 0.19219E-20 0.89906E-23 + 5 2 0.54572E-10 0.10000E+01 0.14428E+05 0.40127E-12 0.87230E-20 0.21271E-22 + 5 2 0.54572E-10 0.10000E+01 0.11635E+05 0.96488E-12 0.39538E-19 0.50888E-22 + 5 2 0.54572E-10 0.10000E+01 0.93834E+04 0.23096E-11 0.17898E-18 0.12200E-21 + 5 2 0.54572E-10 0.10000E+01 0.75673E+04 0.55094E-11 0.80743E-18 0.29216E-21 + 5 2 0.54572E-10 0.10000E+01 0.61026E+04 0.13103E-10 0.36093E-17 0.69795E-21 + 5 2 0.54572E-10 0.10000E+01 0.49215E+04 0.31033E-10 0.15860E-16 0.16599E-20 + 5 2 0.54572E-10 0.10000E+01 0.39689E+04 0.72945E-10 0.68128E-16 0.39157E-20 + 5 2 0.54572E-10 0.10000E+01 0.32008E+04 0.16940E-09 0.28568E-15 0.91203E-20 + 5 2 0.54572E-10 0.10000E+01 0.25813E+04 0.38706E-09 0.11696E-14 0.20888E-19 + 5 2 0.54572E-10 0.10000E+01 0.20817E+04 0.86772E-09 0.46694E-14 0.46913E-19 5 2 0.54572E-10 0.10000E+01 0.16788E+04 0.19052E-08 0.18165E-13 0.10315E-18 5 2 0.54572E-10 0.10000E+01 0.13538E+04 0.40921E-08 0.69004E-13 0.22178E-18 5 2 0.54572E-10 0.10000E+01 0.10918E+04 0.85944E-08 0.25731E-12 0.46616E-18 @@ -27060,24 +27060,24 @@ VERSION 2.8.2 5 2 0.54572E-10 0.10000E+01 0.24221E+03 0.85446E-06 0.78833E-09 0.46417E-16 5 2 0.54572E-10 0.10000E+01 0.19533E+03 0.13466E-05 0.14981E-08 0.73156E-16 5 2 0.54572E-10 0.10000E+01 0.15752E+03 0.13466E-05 0.14981E-08 0.73156E-16 - 5 2 0.95225E-10 0.10000E+01 0.80645E+05 0.53245E-57 0.40027E-68 0.12613E-66 - 5 2 0.95225E-10 0.10000E+01 0.65036E+05 0.45188E-56 0.63224E-67 0.10677E-65 - 5 2 0.95225E-10 0.10000E+01 0.52449E+05 0.38326E-55 0.86129E-66 0.89829E-65 - 5 2 0.95225E-10 0.10000E+01 0.42297E+05 0.29346E-54 0.13609E-64 0.65797E-64 - 5 2 0.95225E-10 0.10000E+01 0.34111E+05 0.24165E-53 0.29315E-63 0.45896E-63 - 5 2 0.95225E-10 0.10000E+01 0.27509E+05 0.26010E-52 0.85811E-62 0.34970E-62 - 5 2 0.95225E-10 0.10000E+01 0.22184E+05 0.37922E-51 0.27933E-60 0.36999E-61 - 5 2 0.95225E-10 0.10000E+01 0.17891E+05 0.62652E-50 0.86161E-59 0.55261E-60 - 5 2 0.95225E-10 0.10000E+01 0.14428E+05 0.10060E-48 0.24671E-57 0.89063E-59 - 5 2 0.95225E-10 0.10000E+01 0.11635E+05 0.15191E-47 0.67842E-56 0.13665E-57 - 5 2 0.95225E-10 0.10000E+01 0.93834E+04 0.22043E-46 0.18405E-54 0.20041E-56 - 5 2 0.95225E-10 0.10000E+01 0.75673E+04 0.31454E-45 0.49772E-53 0.28791E-55 - 5 2 0.95225E-10 0.10000E+01 0.61026E+04 0.44649E-44 0.13447E-51 0.41082E-54 - 5 2 0.95225E-10 0.10000E+01 0.49215E+04 0.63276E-43 0.36298E-50 0.58489E-53 - 5 2 0.95225E-10 0.10000E+01 0.39689E+04 0.89590E-42 0.97892E-49 0.83158E-52 - 5 2 0.95225E-10 0.10000E+01 0.32008E+04 0.39861E-39 0.85317E-46 0.37142E-49 - 5 2 0.95225E-10 0.10000E+01 0.25813E+04 0.29337E-30 0.14392E-36 0.27440E-40 - 5 2 0.95225E-10 0.10000E+01 0.20817E+04 0.56079E-14 0.12269E-19 0.52676E-24 + 5 2 0.95225E-10 0.10000E+01 0.80645E+05 0.36134E-14 0.40367E-25 0.84813E-24 + 5 2 0.95225E-10 0.10000E+01 0.65036E+05 0.47502E-14 0.17216E-24 0.10896E-23 + 5 2 0.95225E-10 0.10000E+01 0.52449E+05 0.64499E-14 0.82677E-24 0.13976E-23 + 5 2 0.95225E-10 0.10000E+01 0.42297E+05 0.95528E-14 0.40320E-23 0.18418E-23 + 5 2 0.95225E-10 0.10000E+01 0.34111E+05 0.16297E-13 0.19245E-22 0.26160E-23 + 5 2 0.95225E-10 0.10000E+01 0.27509E+05 0.32330E-13 0.89826E-22 0.42240E-23 + 5 2 0.95225E-10 0.10000E+01 0.22184E+05 0.71437E-13 0.41340E-21 0.79168E-23 + 5 2 0.95225E-10 0.10000E+01 0.17891E+05 0.16671E-12 0.18890E-20 0.16728E-22 + 5 2 0.95225E-10 0.10000E+01 0.14428E+05 0.39715E-12 0.86022E-20 0.37944E-22 + 5 2 0.95225E-10 0.10000E+01 0.11635E+05 0.95097E-12 0.39102E-19 0.89007E-22 + 5 2 0.95225E-10 0.10000E+01 0.93834E+04 0.22763E-11 0.17744E-18 0.21161E-21 + 5 2 0.95225E-10 0.10000E+01 0.75673E+04 0.54390E-11 0.80210E-18 0.50525E-21 + 5 2 0.95225E-10 0.10000E+01 0.61026E+04 0.12963E-10 0.35914E-17 0.12063E-20 + 5 2 0.95225E-10 0.10000E+01 0.49215E+04 0.30765E-10 0.15802E-16 0.28702E-20 + 5 2 0.95225E-10 0.10000E+01 0.39689E+04 0.72448E-10 0.67944E-16 0.67763E-20 + 5 2 0.95225E-10 0.10000E+01 0.32008E+04 0.16850E-09 0.28511E-15 0.15797E-19 + 5 2 0.95225E-10 0.10000E+01 0.25813E+04 0.38549E-09 0.11679E-14 0.36208E-19 + 5 2 0.95225E-10 0.10000E+01 0.20817E+04 0.86503E-09 0.46645E-14 0.81376E-19 5 2 0.95225E-10 0.10000E+01 0.16788E+04 0.19007E-08 0.18150E-13 0.17902E-18 5 2 0.95225E-10 0.10000E+01 0.13538E+04 0.40848E-08 0.68959E-13 0.38508E-18 5 2 0.95225E-10 0.10000E+01 0.10918E+04 0.85826E-08 0.25716E-12 0.80965E-18 @@ -27090,24 +27090,24 @@ VERSION 2.8.2 5 2 0.95225E-10 0.10000E+01 0.24221E+03 0.85400E-06 0.78793E-09 0.80671E-16 5 2 0.95225E-10 0.10000E+01 0.19533E+03 0.13459E-05 0.14973E-08 0.12714E-15 5 2 0.95225E-10 0.10000E+01 0.15752E+03 0.13459E-05 0.14973E-08 0.12714E-15 - 5 2 0.16616E-09 0.10000E+01 0.80645E+05 0.10743E-56 0.80357E-68 0.42459E-66 - 5 2 0.16616E-09 0.10000E+01 0.65036E+05 0.90785E-56 0.12609E-66 0.35673E-65 - 5 2 0.16616E-09 0.10000E+01 0.52449E+05 0.76402E-55 0.16480E-65 0.29939E-64 - 5 2 0.16616E-09 0.10000E+01 0.42297E+05 0.56355E-54 0.22270E-64 0.21830E-63 - 5 2 0.16616E-09 0.10000E+01 0.34111E+05 0.40643E-53 0.36010E-63 0.14847E-62 - 5 2 0.16616E-09 0.10000E+01 0.27509E+05 0.33771E-52 0.85530E-62 0.10185E-61 - 5 2 0.16616E-09 0.10000E+01 0.22184E+05 0.39416E-51 0.26687E-60 0.85277E-61 - 5 2 0.16616E-09 0.10000E+01 0.17891E+05 0.60661E-50 0.83090E-59 0.10486E-59 - 5 2 0.16616E-09 0.10000E+01 0.14428E+05 0.97145E-49 0.24015E-57 0.15826E-58 - 5 2 0.16616E-09 0.10000E+01 0.11635E+05 0.14775E-47 0.66350E-56 0.23942E-57 - 5 2 0.16616E-09 0.10000E+01 0.93834E+04 0.21546E-46 0.18050E-54 0.34971E-56 - 5 2 0.16616E-09 0.10000E+01 0.75673E+04 0.30839E-45 0.48921E-53 0.50096E-55 - 5 2 0.16616E-09 0.10000E+01 0.61026E+04 0.43879E-44 0.13246E-51 0.71315E-54 - 5 2 0.16616E-09 0.10000E+01 0.49215E+04 0.62323E-43 0.35831E-50 0.10138E-52 - 5 2 0.16616E-09 0.10000E+01 0.39689E+04 0.88428E-42 0.96828E-49 0.14404E-51 - 5 2 0.16616E-09 0.10000E+01 0.32008E+04 0.39425E-39 0.84552E-46 0.64336E-49 - 5 2 0.16616E-09 0.10000E+01 0.25813E+04 0.29076E-30 0.14292E-36 0.47556E-40 - 5 2 0.16616E-09 0.10000E+01 0.20817E+04 0.55714E-14 0.12213E-19 0.91393E-24 + 5 2 0.16616E-09 0.10000E+01 0.80645E+05 0.72463E-14 0.55934E-25 0.28692E-23 + 5 2 0.16616E-09 0.10000E+01 0.65036E+05 0.93442E-14 0.19566E-24 0.36653E-23 + 5 2 0.16616E-09 0.10000E+01 0.52449E+05 0.12105E-13 0.84491E-24 0.46321E-23 + 5 2 0.16616E-09 0.10000E+01 0.42297E+05 0.16311E-13 0.39756E-23 0.58872E-23 + 5 2 0.16616E-09 0.10000E+01 0.34111E+05 0.24088E-13 0.18831E-22 0.77581E-23 + 5 2 0.16616E-09 0.10000E+01 0.27509E+05 0.40894E-13 0.87933E-22 0.11108E-22 + 5 2 0.16616E-09 0.10000E+01 0.22184E+05 0.80176E-13 0.40556E-21 0.18096E-22 + 5 2 0.16616E-09 0.10000E+01 0.17891E+05 0.17439E-12 0.18574E-20 0.33977E-22 + 5 2 0.16616E-09 0.10000E+01 0.14428E+05 0.40126E-12 0.84772E-20 0.71376E-22 + 5 2 0.16616E-09 0.10000E+01 0.11635E+05 0.94640E-12 0.38614E-19 0.16051E-21 + 5 2 0.16616E-09 0.10000E+01 0.93834E+04 0.22527E-11 0.17556E-18 0.37358E-21 + 5 2 0.16616E-09 0.10000E+01 0.75673E+04 0.53753E-11 0.79498E-18 0.88299E-21 + 5 2 0.16616E-09 0.10000E+01 0.61026E+04 0.12818E-10 0.35648E-17 0.20984E-20 + 5 2 0.16616E-09 0.10000E+01 0.49215E+04 0.30455E-10 0.15703E-16 0.49832E-20 + 5 2 0.16616E-09 0.10000E+01 0.39689E+04 0.71813E-10 0.67580E-16 0.11758E-19 + 5 2 0.16616E-09 0.10000E+01 0.32008E+04 0.16723E-09 0.28378E-15 0.27408E-19 + 5 2 0.16616E-09 0.10000E+01 0.25813E+04 0.38298E-09 0.11630E-14 0.62835E-19 + 5 2 0.16616E-09 0.10000E+01 0.20817E+04 0.86014E-09 0.46468E-14 0.14126E-18 5 2 0.16616E-09 0.10000E+01 0.16788E+04 0.18913E-08 0.18086E-13 0.31085E-18 5 2 0.16616E-09 0.10000E+01 0.13538E+04 0.40666E-08 0.68724E-13 0.66881E-18 5 2 0.16616E-09 0.10000E+01 0.10918E+04 0.85476E-08 0.25631E-12 0.14065E-17 @@ -27120,24 +27120,24 @@ VERSION 2.8.2 5 2 0.16616E-09 0.10000E+01 0.24221E+03 0.85116E-06 0.78532E-09 0.14018E-15 5 2 0.16616E-09 0.10000E+01 0.19533E+03 0.13415E-05 0.14924E-08 0.22094E-15 5 2 0.16616E-09 0.10000E+01 0.15752E+03 0.13415E-05 0.14924E-08 0.22094E-15 - 5 2 0.28994E-09 0.10000E+01 0.80645E+05 0.21375E-56 0.15885E-67 0.13668E-65 - 5 2 0.28994E-09 0.10000E+01 0.65036E+05 0.17974E-55 0.24910E-66 0.11475E-64 - 5 2 0.28994E-09 0.10000E+01 0.52449E+05 0.15094E-54 0.32280E-65 0.96505E-64 - 5 2 0.28994E-09 0.10000E+01 0.42297E+05 0.11037E-53 0.41340E-64 0.70805E-63 - 5 2 0.28994E-09 0.10000E+01 0.34111E+05 0.76017E-53 0.56002E-63 0.48520E-62 - 5 2 0.28994E-09 0.10000E+01 0.27509E+05 0.54283E-52 0.10064E-61 0.32477E-61 - 5 2 0.28994E-09 0.10000E+01 0.22184E+05 0.48918E-51 0.27029E-60 0.23275E-60 - 5 2 0.28994E-09 0.10000E+01 0.17891E+05 0.63283E-50 0.81767E-59 0.22005E-59 - 5 2 0.28994E-09 0.10000E+01 0.14428E+05 0.96387E-49 0.23628E-57 0.28469E-58 - 5 2 0.28994E-09 0.10000E+01 0.11635E+05 0.14554E-47 0.65371E-56 0.41305E-57 - 5 2 0.28994E-09 0.10000E+01 0.93834E+04 0.21226E-46 0.17788E-54 0.60035E-56 - 5 2 0.28994E-09 0.10000E+01 0.75673E+04 0.30390E-45 0.48217E-53 0.86119E-55 - 5 2 0.28994E-09 0.10000E+01 0.61026E+04 0.43249E-44 0.13061E-51 0.12274E-53 - 5 2 0.28994E-09 0.10000E+01 0.49215E+04 0.61456E-43 0.35362E-50 0.17462E-52 - 5 2 0.28994E-09 0.10000E+01 0.39689E+04 0.87269E-42 0.95665E-49 0.24831E-51 - 5 2 0.28994E-09 0.10000E+01 0.32008E+04 0.38951E-39 0.83645E-46 0.11102E-48 - 5 2 0.28994E-09 0.10000E+01 0.25813E+04 0.28768E-30 0.14162E-36 0.82183E-40 - 5 2 0.28994E-09 0.10000E+01 0.20817E+04 0.55227E-14 0.12126E-19 0.15825E-23 + 5 2 0.28994E-09 0.10000E+01 0.80645E+05 0.14444E-13 0.91695E-25 0.92518E-23 + 5 2 0.28994E-09 0.10000E+01 0.65036E+05 0.18483E-13 0.26257E-24 0.11810E-22 + 5 2 0.28994E-09 0.10000E+01 0.52449E+05 0.23456E-13 0.95325E-24 0.14859E-22 + 5 2 0.28994E-09 0.10000E+01 0.42297E+05 0.30102E-13 0.41057E-23 0.18600E-22 + 5 2 0.28994E-09 0.10000E+01 0.34111E+05 0.40446E-13 0.18822E-22 0.23571E-22 + 5 2 0.28994E-09 0.10000E+01 0.27509E+05 0.59770E-13 0.86999E-22 0.31201E-22 + 5 2 0.28994E-09 0.10000E+01 0.22184E+05 0.10122E-12 0.40014E-21 0.45133E-22 + 5 2 0.28994E-09 0.10000E+01 0.17891E+05 0.19670E-12 0.18318E-20 0.74333E-22 + 5 2 0.28994E-09 0.10000E+01 0.14428E+05 0.42275E-12 0.83635E-20 0.14047E-21 + 5 2 0.28994E-09 0.10000E+01 0.11635E+05 0.96249E-12 0.38127E-19 0.29558E-21 + 5 2 0.28994E-09 0.10000E+01 0.93834E+04 0.22533E-11 0.17352E-18 0.66420E-21 + 5 2 0.28994E-09 0.10000E+01 0.75673E+04 0.53383E-11 0.78663E-18 0.15440E-20 + 5 2 0.28994E-09 0.10000E+01 0.61026E+04 0.12695E-10 0.35311E-17 0.36433E-20 + 5 2 0.28994E-09 0.10000E+01 0.49215E+04 0.30147E-10 0.15569E-16 0.86295E-20 + 5 2 0.28994E-09 0.10000E+01 0.39689E+04 0.71106E-10 0.67051E-16 0.20349E-19 + 5 2 0.28994E-09 0.10000E+01 0.32008E+04 0.16568E-09 0.28172E-15 0.47447E-19 + 5 2 0.28994E-09 0.10000E+01 0.25813E+04 0.37969E-09 0.11551E-14 0.10883E-18 + 5 2 0.28994E-09 0.10000E+01 0.20817E+04 0.85327E-09 0.46164E-14 0.24480E-18 5 2 0.28994E-09 0.10000E+01 0.16788E+04 0.18771E-08 0.17972E-13 0.53897E-18 5 2 0.28994E-09 0.10000E+01 0.13538E+04 0.40378E-08 0.68297E-13 0.11601E-17 5 2 0.28994E-09 0.10000E+01 0.10918E+04 0.84898E-08 0.25473E-12 0.24405E-17 @@ -27150,24 +27150,24 @@ VERSION 2.8.2 5 2 0.28994E-09 0.10000E+01 0.24221E+03 0.84590E-06 0.78047E-09 0.24338E-15 5 2 0.28994E-09 0.10000E+01 0.19533E+03 0.13332E-05 0.14831E-08 0.38359E-15 5 2 0.28994E-09 0.10000E+01 0.15752E+03 0.13332E-05 0.14831E-08 0.38359E-15 - 5 2 0.50593E-09 0.10000E+01 0.80645E+05 0.42061E-56 0.31220E-67 0.42079E-65 - 5 2 0.50593E-09 0.10000E+01 0.65036E+05 0.35343E-55 0.49092E-66 0.35408E-64 - 5 2 0.50593E-09 0.10000E+01 0.52449E+05 0.29739E-54 0.64046E-65 0.29882E-63 - 5 2 0.50593E-09 0.10000E+01 0.42297E+05 0.21848E-53 0.82154E-64 0.22111E-62 - 5 2 0.50593E-09 0.10000E+01 0.34111E+05 0.15042E-52 0.10519E-62 0.15390E-61 - 5 2 0.50593E-09 0.10000E+01 0.27509E+05 0.10223E-51 0.15014E-61 0.10397E-60 - 5 2 0.50593E-09 0.10000E+01 0.22184E+05 0.75945E-51 0.30326E-60 0.69750E-60 - 5 2 0.50593E-09 0.10000E+01 0.17891E+05 0.74882E-50 0.81437E-59 0.52389E-59 - 5 2 0.50593E-09 0.10000E+01 0.14428E+05 0.98482E-49 0.23051E-57 0.52689E-58 - 5 2 0.50593E-09 0.10000E+01 0.11635E+05 0.14299E-47 0.63908E-56 0.68844E-57 - 5 2 0.50593E-09 0.10000E+01 0.93834E+04 0.20770E-46 0.17450E-54 0.98804E-56 - 5 2 0.50593E-09 0.10000E+01 0.75673E+04 0.29806E-45 0.47403E-53 0.14322E-54 - 5 2 0.50593E-09 0.10000E+01 0.61026E+04 0.42510E-44 0.12860E-51 0.20629E-53 - 5 2 0.50593E-09 0.10000E+01 0.49215E+04 0.60503E-43 0.34867E-50 0.29567E-52 - 5 2 0.50593E-09 0.10000E+01 0.39689E+04 0.86044E-42 0.94473E-49 0.42263E-51 - 5 2 0.50593E-09 0.10000E+01 0.32008E+04 0.38465E-39 0.82744E-46 0.18974E-48 - 5 2 0.50593E-09 0.10000E+01 0.25813E+04 0.28462E-30 0.14039E-36 0.14098E-39 - 5 2 0.50593E-09 0.10000E+01 0.20817E+04 0.54772E-14 0.12050E-19 0.27261E-23 + 5 2 0.50593E-09 0.10000E+01 0.80645E+05 0.28460E-13 0.16902E-24 0.28478E-22 + 5 2 0.50593E-09 0.10000E+01 0.65036E+05 0.36354E-13 0.41879E-24 0.36389E-22 + 5 2 0.50593E-09 0.10000E+01 0.52449E+05 0.45815E-13 0.12364E-23 0.45778E-22 + 5 2 0.50593E-09 0.10000E+01 0.42297E+05 0.57558E-13 0.45328E-23 0.57010E-22 + 5 2 0.50593E-09 0.10000E+01 0.34111E+05 0.73477E-13 0.19215E-22 0.70919E-22 + 5 2 0.50593E-09 0.10000E+01 0.27509E+05 0.98572E-13 0.86367E-22 0.89713E-22 + 5 2 0.50593E-09 0.10000E+01 0.22184E+05 0.14550E-12 0.39422E-21 0.11921E-21 + 5 2 0.50593E-09 0.10000E+01 0.17891E+05 0.24534E-12 0.18029E-20 0.17414E-21 + 5 2 0.50593E-09 0.10000E+01 0.14428E+05 0.47320E-12 0.82390E-20 0.29083E-21 + 5 2 0.50593E-09 0.10000E+01 0.11635E+05 0.10093E-11 0.37611E-19 0.55741E-21 + 5 2 0.50593E-09 0.10000E+01 0.93834E+04 0.22853E-11 0.17143E-18 0.11863E-20 + 5 2 0.50593E-09 0.10000E+01 0.75673E+04 0.53322E-11 0.77833E-18 0.26871E-20 + 5 2 0.50593E-09 0.10000E+01 0.61026E+04 0.12603E-10 0.34986E-17 0.62765E-20 + 5 2 0.50593E-09 0.10000E+01 0.49215E+04 0.29869E-10 0.15444E-16 0.14825E-19 + 5 2 0.50593E-09 0.10000E+01 0.39689E+04 0.70442E-10 0.66573E-16 0.34968E-19 + 5 2 0.50593E-09 0.10000E+01 0.32008E+04 0.16423E-09 0.27991E-15 0.81639E-19 + 5 2 0.50593E-09 0.10000E+01 0.25813E+04 0.37664E-09 0.11483E-14 0.18753E-18 + 5 2 0.50593E-09 0.10000E+01 0.20817E+04 0.84705E-09 0.45912E-14 0.42239E-18 5 2 0.50593E-09 0.10000E+01 0.16788E+04 0.18646E-08 0.17878E-13 0.93098E-18 5 2 0.50593E-09 0.10000E+01 0.13538E+04 0.40130E-08 0.67951E-13 0.20056E-17 5 2 0.50593E-09 0.10000E+01 0.10918E+04 0.84409E-08 0.25345E-12 0.42217E-17 @@ -27180,24 +27180,24 @@ VERSION 2.8.2 5 2 0.50593E-09 0.10000E+01 0.24221E+03 0.84163E-06 0.77653E-09 0.42153E-15 5 2 0.50593E-09 0.10000E+01 0.19533E+03 0.13265E-05 0.14756E-08 0.66437E-15 5 2 0.50593E-09 0.10000E+01 0.15752E+03 0.13265E-05 0.14756E-08 0.66437E-15 - 5 2 0.88282E-09 0.10000E+01 0.80645E+05 0.82558E-56 0.61414E-67 0.13139E-64 - 5 2 0.88282E-09 0.10000E+01 0.65036E+05 0.69505E-55 0.96922E-66 0.11079E-63 - 5 2 0.88282E-09 0.10000E+01 0.52449E+05 0.58687E-54 0.12777E-64 0.93762E-63 - 5 2 0.88282E-09 0.10000E+01 0.42297E+05 0.43471E-53 0.16686E-63 0.69826E-62 - 5 2 0.88282E-09 0.10000E+01 0.34111E+05 0.30345E-52 0.21457E-62 0.49242E-61 - 5 2 0.88282E-09 0.10000E+01 0.27509E+05 0.20649E-51 0.27454E-61 0.33842E-60 - 5 2 0.88282E-09 0.10000E+01 0.22184E+05 0.14042E-50 0.40606E-60 0.22473E-59 - 5 2 0.88282E-09 0.10000E+01 0.17891E+05 0.10669E-49 0.83060E-59 0.14835E-58 - 5 2 0.88282E-09 0.10000E+01 0.14428E+05 0.10652E-48 0.21574E-57 0.11212E-57 - 5 2 0.88282E-09 0.10000E+01 0.11635E+05 0.13710E-47 0.59794E-56 0.11620E-56 - 5 2 0.88282E-09 0.10000E+01 0.93834E+04 0.19533E-46 0.16563E-54 0.15630E-55 - 5 2 0.88282E-09 0.10000E+01 0.75673E+04 0.28279E-45 0.45500E-53 0.22902E-54 - 5 2 0.88282E-09 0.10000E+01 0.61026E+04 0.40759E-44 0.12434E-51 0.33699E-53 - 5 2 0.88282E-09 0.10000E+01 0.49215E+04 0.58458E-43 0.33888E-50 0.49078E-52 - 5 2 0.88282E-09 0.10000E+01 0.39689E+04 0.83589E-42 0.92195E-49 0.70908E-51 - 5 2 0.88282E-09 0.10000E+01 0.32008E+04 0.37529E-39 0.81043E-46 0.32075E-48 - 5 2 0.88282E-09 0.10000E+01 0.25813E+04 0.27880E-30 0.13804E-36 0.23981E-39 - 5 2 0.88282E-09 0.10000E+01 0.20817E+04 0.53892E-14 0.11901E-19 0.46667E-23 + 5 2 0.88282E-09 0.10000E+01 0.80645E+05 0.55863E-13 0.33079E-24 0.88885E-22 + 5 2 0.88282E-09 0.10000E+01 0.65036E+05 0.71409E-13 0.75964E-24 0.11372E-21 + 5 2 0.88282E-09 0.10000E+01 0.52449E+05 0.89896E-13 0.18836E-23 0.14322E-21 + 5 2 0.88282E-09 0.10000E+01 0.42297E+05 0.11208E-12 0.55476E-23 0.17820E-21 + 5 2 0.88282E-09 0.10000E+01 0.34111E+05 0.13965E-12 0.20148E-22 0.21996E-21 + 5 2 0.88282E-09 0.10000E+01 0.27509E+05 0.17700E-12 0.84683E-22 0.27161E-21 + 5 2 0.88282E-09 0.10000E+01 0.22184E+05 0.23563E-12 0.37967E-21 0.34173E-21 + 5 2 0.88282E-09 0.10000E+01 0.17891E+05 0.34465E-12 0.17365E-20 0.45328E-21 + 5 2 0.88282E-09 0.10000E+01 0.14428E+05 0.57580E-12 0.79712E-20 0.66517E-21 + 5 2 0.88282E-09 0.10000E+01 0.11635E+05 0.11033E-11 0.36562E-19 0.11237E-20 + 5 2 0.88282E-09 0.10000E+01 0.93834E+04 0.23472E-11 0.16734E-18 0.21861E-20 + 5 2 0.88282E-09 0.10000E+01 0.75673E+04 0.53154E-11 0.76239E-18 0.47165E-20 + 5 2 0.88282E-09 0.10000E+01 0.61026E+04 0.12414E-10 0.34366E-17 0.10789E-19 + 5 2 0.88282E-09 0.10000E+01 0.49215E+04 0.29318E-10 0.15204E-16 0.25313E-19 + 5 2 0.88282E-09 0.10000E+01 0.39689E+04 0.69144E-10 0.65647E-16 0.59674E-19 + 5 2 0.88282E-09 0.10000E+01 0.32008E+04 0.16141E-09 0.27637E-15 0.13954E-18 + 5 2 0.88282E-09 0.10000E+01 0.25813E+04 0.37073E-09 0.11348E-14 0.32121E-18 + 5 2 0.88282E-09 0.10000E+01 0.20817E+04 0.83491E-09 0.45403E-14 0.72485E-18 5 2 0.88282E-09 0.10000E+01 0.16788E+04 0.18400E-08 0.17687E-13 0.16002E-17 5 2 0.88282E-09 0.10000E+01 0.13538E+04 0.39637E-08 0.67244E-13 0.34515E-17 5 2 0.88282E-09 0.10000E+01 0.10918E+04 0.83429E-08 0.25084E-12 0.72720E-17 @@ -27210,24 +27210,24 @@ VERSION 2.8.2 5 2 0.88282E-09 0.10000E+01 0.24221E+03 0.83293E-06 0.76850E-09 0.72735E-15 5 2 0.88282E-09 0.10000E+01 0.19533E+03 0.13128E-05 0.14604E-08 0.11464E-14 5 2 0.88282E-09 0.10000E+01 0.15752E+03 0.13128E-05 0.14604E-08 0.11464E-14 - 5 2 0.15405E-08 0.10000E+01 0.80645E+05 0.16225E-55 0.12095E-66 0.42720E-64 - 5 2 0.15405E-08 0.10000E+01 0.65036E+05 0.13684E-54 0.19137E-65 0.36056E-63 - 5 2 0.15405E-08 0.10000E+01 0.52449E+05 0.11584E-53 0.25417E-64 0.30554E-62 - 5 2 0.15405E-08 0.10000E+01 0.42297E+05 0.86327E-53 0.33691E-63 0.22829E-61 - 5 2 0.15405E-08 0.10000E+01 0.34111E+05 0.60988E-52 0.44135E-62 0.16220E-60 - 5 2 0.15405E-08 0.10000E+01 0.27509E+05 0.42097E-51 0.55433E-61 0.11297E-59 - 5 2 0.15405E-08 0.10000E+01 0.22184E+05 0.28176E-50 0.68900E-60 0.75945E-59 - 5 2 0.15405E-08 0.10000E+01 0.17891E+05 0.18692E-49 0.99464E-59 0.48579E-58 - 5 2 0.15405E-08 0.10000E+01 0.14428E+05 0.13848E-48 0.20246E-57 0.30850E-57 - 5 2 0.15405E-08 0.10000E+01 0.11635E+05 0.13687E-47 0.53431E-56 0.23295E-56 - 5 2 0.15405E-08 0.10000E+01 0.93834E+04 0.17819E-46 0.15118E-54 0.25442E-55 - 5 2 0.15405E-08 0.10000E+01 0.75673E+04 0.25871E-45 0.42571E-53 0.35974E-54 - 5 2 0.15405E-08 0.10000E+01 0.61026E+04 0.38065E-44 0.11828E-51 0.54090E-53 - 5 2 0.15405E-08 0.10000E+01 0.49215E+04 0.55512E-43 0.32579E-50 0.80592E-52 - 5 2 0.15405E-08 0.10000E+01 0.39689E+04 0.80271E-42 0.89287E-49 0.11820E-50 - 5 2 0.15405E-08 0.10000E+01 0.32008E+04 0.36324E-39 0.78951E-46 0.53982E-48 - 5 2 0.15405E-08 0.10000E+01 0.25813E+04 0.27160E-30 0.13527E-36 0.40645E-39 - 5 2 0.15405E-08 0.10000E+01 0.20817E+04 0.52853E-14 0.11735E-19 0.79641E-23 + 5 2 0.15405E-08 0.10000E+01 0.80645E+05 0.10977E-12 0.66001E-24 0.28901E-21 + 5 2 0.15405E-08 0.10000E+01 0.65036E+05 0.14046E-12 0.14781E-23 0.37004E-21 + 5 2 0.15405E-08 0.10000E+01 0.52449E+05 0.17698E-12 0.33330E-23 0.46654E-21 + 5 2 0.15405E-08 0.10000E+01 0.42297E+05 0.22031E-12 0.80909E-23 0.58086E-21 + 5 2 0.15405E-08 0.10000E+01 0.34111E+05 0.27203E-12 0.23472E-22 0.71552E-21 + 5 2 0.15405E-08 0.10000E+01 0.27509E+05 0.33568E-12 0.85242E-22 0.87480E-21 + 5 2 0.15405E-08 0.10000E+01 0.22184E+05 0.42087E-12 0.36211E-21 0.10702E-20 + 5 2 0.15405E-08 0.10000E+01 0.17891E+05 0.55337E-12 0.16439E-20 0.13355E-20 + 5 2 0.15405E-08 0.10000E+01 0.14428E+05 0.79949E-12 0.75974E-20 0.17628E-20 + 5 2 0.15405E-08 0.10000E+01 0.11635E+05 0.13245E-11 0.35148E-19 0.25909E-20 + 5 2 0.15405E-08 0.10000E+01 0.93834E+04 0.25327E-11 0.16205E-18 0.44157E-20 + 5 2 0.15405E-08 0.10000E+01 0.75673E+04 0.54024E-11 0.74252E-18 0.86950E-20 + 5 2 0.15405E-08 0.10000E+01 0.61026E+04 0.12282E-10 0.33619E-17 0.18950E-19 + 5 2 0.15405E-08 0.10000E+01 0.49215E+04 0.28734E-10 0.14922E-16 0.43558E-19 + 5 2 0.15405E-08 0.10000E+01 0.39689E+04 0.67652E-10 0.64589E-16 0.10199E-18 + 5 2 0.15405E-08 0.10000E+01 0.32008E+04 0.15811E-09 0.27240E-15 0.23826E-18 + 5 2 0.15405E-08 0.10000E+01 0.25813E+04 0.36385E-09 0.11200E-14 0.54899E-18 + 5 2 0.15405E-08 0.10000E+01 0.20817E+04 0.82099E-09 0.44852E-14 0.12407E-17 5 2 0.15405E-08 0.10000E+01 0.16788E+04 0.18123E-08 0.17483E-13 0.27429E-17 5 2 0.15405E-08 0.10000E+01 0.13538E+04 0.39090E-08 0.66491E-13 0.59235E-17 5 2 0.15405E-08 0.10000E+01 0.10918E+04 0.82357E-08 0.24807E-12 0.12491E-16 @@ -27240,24 +27240,24 @@ VERSION 2.8.2 5 2 0.15405E-08 0.10000E+01 0.24221E+03 0.82368E-06 0.75996E-09 0.12513E-14 5 2 0.15405E-08 0.10000E+01 0.19533E+03 0.12982E-05 0.14442E-08 0.19722E-14 5 2 0.15405E-08 0.10000E+01 0.15752E+03 0.12982E-05 0.14442E-08 0.19722E-14 - 5 2 0.26880E-08 0.10000E+01 0.80645E+05 0.37733E-55 0.28155E-66 0.65349E-63 - 5 2 0.26880E-08 0.10000E+01 0.65036E+05 0.31851E-54 0.44620E-65 0.55184E-62 - 5 2 0.26880E-08 0.10000E+01 0.52449E+05 0.27005E-53 0.59572E-64 0.46812E-61 - 5 2 0.26880E-08 0.10000E+01 0.42297E+05 0.20211E-52 0.79968E-63 0.35075E-60 - 5 2 0.26880E-08 0.10000E+01 0.34111E+05 0.14431E-51 0.10769E-61 0.25096E-59 - 5 2 0.26880E-08 0.10000E+01 0.27509E+05 0.10193E-50 0.14205E-60 0.17769E-58 - 5 2 0.26880E-08 0.10000E+01 0.22184E+05 0.70961E-50 0.18442E-59 0.12354E-57 - 5 2 0.26880E-08 0.10000E+01 0.17891E+05 0.48761E-49 0.24578E-58 0.83162E-57 - 5 2 0.26880E-08 0.10000E+01 0.14428E+05 0.34114E-48 0.37045E-57 0.53679E-56 - 5 2 0.26880E-08 0.10000E+01 0.11635E+05 0.26327E-47 0.70157E-56 0.33194E-55 - 5 2 0.26880E-08 0.10000E+01 0.93834E+04 0.24883E-46 0.16640E-54 0.20091E-54 - 5 2 0.26880E-08 0.10000E+01 0.75673E+04 0.29517E-45 0.44459E-53 0.13191E-53 - 5 2 0.26880E-08 0.10000E+01 0.61026E+04 0.40280E-44 0.12253E-51 0.11677E-52 - 5 2 0.26880E-08 0.10000E+01 0.49215E+04 0.57668E-43 0.33690E-50 0.14635E-51 - 5 2 0.26880E-08 0.10000E+01 0.39689E+04 0.83018E-42 0.91992E-49 0.21123E-50 - 5 2 0.26880E-08 0.10000E+01 0.32008E+04 0.37416E-39 0.80900E-46 0.96795E-48 - 5 2 0.26880E-08 0.10000E+01 0.25813E+04 0.27815E-30 0.13767E-36 0.72275E-39 - 5 2 0.26880E-08 0.10000E+01 0.20817E+04 0.53729E-14 0.11848E-19 0.13940E-22 + 5 2 0.26880E-08 0.10000E+01 0.80645E+05 0.25535E-12 0.15779E-23 0.44221E-20 + 5 2 0.26880E-08 0.10000E+01 0.65036E+05 0.32715E-12 0.35994E-23 0.56668E-20 + 5 2 0.26880E-08 0.10000E+01 0.52449E+05 0.41307E-12 0.81625E-23 0.71564E-20 + 5 2 0.26880E-08 0.10000E+01 0.42297E+05 0.51584E-12 0.18798E-22 0.89346E-20 + 5 2 0.26880E-08 0.10000E+01 0.34111E+05 0.63881E-12 0.46276E-22 0.11044E-19 + 5 2 0.26880E-08 0.10000E+01 0.27509E+05 0.78712E-12 0.13158E-21 0.13519E-19 + 5 2 0.26880E-08 0.10000E+01 0.22184E+05 0.97136E-12 0.45360E-21 0.16389E-19 + 5 2 0.26880E-08 0.10000E+01 0.17891E+05 0.12175E-11 0.18326E-20 0.19689E-19 + 5 2 0.26880E-08 0.10000E+01 0.14428E+05 0.15917E-11 0.80561E-20 0.23518E-19 + 5 2 0.26880E-08 0.10000E+01 0.11635E+05 0.22612E-11 0.36542E-19 0.28205E-19 + 5 2 0.26880E-08 0.10000E+01 0.93834E+04 0.36382E-11 0.16694E-18 0.34700E-19 + 5 2 0.26880E-08 0.10000E+01 0.75673E+04 0.67231E-11 0.76044E-18 0.45492E-19 + 5 2 0.26880E-08 0.10000E+01 0.61026E+04 0.13913E-10 0.34269E-17 0.66724E-19 + 5 2 0.26880E-08 0.10000E+01 0.49215E+04 0.30867E-10 0.15153E-16 0.11302E-18 + 5 2 0.26880E-08 0.10000E+01 0.39689E+04 0.70658E-10 0.65394E-16 0.21817E-18 + 5 2 0.26880E-08 0.10000E+01 0.32008E+04 0.16268E-09 0.27516E-15 0.45790E-18 + 5 2 0.26880E-08 0.10000E+01 0.25813E+04 0.37127E-09 0.11294E-14 0.99746E-18 + 5 2 0.26880E-08 0.10000E+01 0.20817E+04 0.83354E-09 0.45172E-14 0.21883E-17 5 2 0.26880E-08 0.10000E+01 0.16788E+04 0.18341E-08 0.17593E-13 0.47583E-17 5 2 0.26880E-08 0.10000E+01 0.13538E+04 0.39473E-08 0.66868E-13 0.10175E-16 5 2 0.26880E-08 0.10000E+01 0.10918E+04 0.83037E-08 0.24938E-12 0.21321E-16 @@ -27270,24 +27270,24 @@ VERSION 2.8.2 5 2 0.26880E-08 0.10000E+01 0.24221E+03 0.82776E-06 0.76355E-09 0.21033E-14 5 2 0.26880E-08 0.10000E+01 0.19533E+03 0.13045E-05 0.14510E-08 0.33134E-14 5 2 0.26880E-08 0.10000E+01 0.15752E+03 0.13045E-05 0.14510E-08 0.33134E-14 - 5 2 0.46905E-08 0.10000E+01 0.80645E+05 0.71878E-55 0.53647E-66 0.21199E-62 - 5 2 0.46905E-08 0.10000E+01 0.65036E+05 0.60687E-54 0.85044E-65 0.17906E-61 - 5 2 0.46905E-08 0.10000E+01 0.52449E+05 0.51468E-53 0.11362E-63 0.15194E-60 - 5 2 0.46905E-08 0.10000E+01 0.42297E+05 0.38544E-52 0.15273E-62 0.11391E-59 - 5 2 0.46905E-08 0.10000E+01 0.34111E+05 0.27551E-51 0.20597E-61 0.81591E-59 - 5 2 0.46905E-08 0.10000E+01 0.27509E+05 0.19481E-50 0.27129E-60 0.57893E-58 - 5 2 0.46905E-08 0.10000E+01 0.22184E+05 0.13545E-49 0.34679E-59 0.40419E-57 - 5 2 0.46905E-08 0.10000E+01 0.17891E+05 0.91895E-49 0.43661E-58 0.27415E-56 - 5 2 0.46905E-08 0.10000E+01 0.14428E+05 0.61376E-48 0.57354E-57 0.17909E-55 - 5 2 0.46905E-08 0.10000E+01 0.11635E+05 0.42170E-47 0.88070E-56 0.11222E-54 - 5 2 0.46905E-08 0.10000E+01 0.93834E+04 0.32859E-46 0.17587E-54 0.67529E-54 - 5 2 0.46905E-08 0.10000E+01 0.75673E+04 0.32472E-45 0.43916E-53 0.40588E-53 - 5 2 0.46905E-08 0.10000E+01 0.61026E+04 0.40505E-44 0.12011E-51 0.28825E-52 - 5 2 0.46905E-08 0.10000E+01 0.49215E+04 0.56786E-43 0.33214E-50 0.29811E-51 - 5 2 0.46905E-08 0.10000E+01 0.39689E+04 0.81849E-42 0.91044E-49 0.40347E-50 - 5 2 0.46905E-08 0.10000E+01 0.32008E+04 0.37011E-39 0.80162E-46 0.18213E-47 - 5 2 0.46905E-08 0.10000E+01 0.25813E+04 0.27549E-30 0.13641E-36 0.13404E-38 - 5 2 0.46905E-08 0.10000E+01 0.20817E+04 0.53238E-14 0.11728E-19 0.25311E-22 + 5 2 0.46905E-08 0.10000E+01 0.80645E+05 0.48640E-12 0.30102E-23 0.14343E-19 + 5 2 0.46905E-08 0.10000E+01 0.65036E+05 0.62324E-12 0.68492E-23 0.18384E-19 + 5 2 0.46905E-08 0.10000E+01 0.52449E+05 0.78698E-12 0.15354E-22 0.23223E-19 + 5 2 0.46905E-08 0.10000E+01 0.42297E+05 0.98259E-12 0.34153E-22 0.29008E-19 + 5 2 0.46905E-08 0.10000E+01 0.34111E+05 0.12154E-11 0.77443E-22 0.35884E-19 + 5 2 0.46905E-08 0.10000E+01 0.27509E+05 0.14919E-11 0.19044E-21 0.43978E-19 + 5 2 0.46905E-08 0.10000E+01 0.22184E+05 0.18223E-11 0.55362E-21 0.53380E-19 + 5 2 0.46905E-08 0.10000E+01 0.17891E+05 0.22302E-11 0.19754E-20 0.64159E-19 + 5 2 0.46905E-08 0.10000E+01 0.14428E+05 0.27766E-11 0.81893E-20 0.76453E-19 + 5 2 0.46905E-08 0.10000E+01 0.11635E+05 0.36203E-11 0.36417E-19 0.90767E-19 + 5 2 0.46905E-08 0.10000E+01 0.93834E+04 0.51616E-11 0.16555E-18 0.10872E-18 + 5 2 0.46905E-08 0.10000E+01 0.75673E+04 0.83843E-11 0.75342E-18 0.13475E-18 + 5 2 0.46905E-08 0.10000E+01 0.61026E+04 0.15658E-10 0.33948E-17 0.17999E-18 + 5 2 0.46905E-08 0.10000E+01 0.49215E+04 0.32586E-10 0.15009E-16 0.27090E-18 + 5 2 0.46905E-08 0.10000E+01 0.39689E+04 0.72116E-10 0.64754E-16 0.46802E-18 + 5 2 0.46905E-08 0.10000E+01 0.32008E+04 0.16336E-09 0.27239E-15 0.90581E-18 + 5 2 0.46905E-08 0.10000E+01 0.25813E+04 0.36999E-09 0.11178E-14 0.18751E-17 + 5 2 0.46905E-08 0.10000E+01 0.20817E+04 0.82770E-09 0.44699E-14 0.39902E-17 5 2 0.46905E-08 0.10000E+01 0.16788E+04 0.18181E-08 0.17405E-13 0.85178E-17 5 2 0.46905E-08 0.10000E+01 0.13538E+04 0.39094E-08 0.66141E-13 0.18002E-16 5 2 0.46905E-08 0.10000E+01 0.10918E+04 0.82196E-08 0.24661E-12 0.37429E-16 @@ -27300,24 +27300,24 @@ VERSION 2.8.2 5 2 0.46905E-08 0.10000E+01 0.24221E+03 0.81819E-06 0.75451E-09 0.36263E-14 5 2 0.46905E-08 0.10000E+01 0.19533E+03 0.12894E-05 0.14338E-08 0.57097E-14 5 2 0.46905E-08 0.10000E+01 0.15752E+03 0.12894E-05 0.14338E-08 0.57097E-14 - 5 2 0.81846E-08 0.10000E+01 0.80645E+05 0.13576E-54 0.10136E-65 0.68343E-62 - 5 2 0.81846E-08 0.10000E+01 0.65036E+05 0.11465E-53 0.16072E-64 0.57746E-61 - 5 2 0.81846E-08 0.10000E+01 0.52449E+05 0.97265E-53 0.21489E-63 0.49013E-60 - 5 2 0.81846E-08 0.10000E+01 0.42297E+05 0.72882E-52 0.28923E-62 0.36765E-59 - 5 2 0.81846E-08 0.10000E+01 0.34111E+05 0.52154E-51 0.39088E-61 0.26362E-58 - 5 2 0.81846E-08 0.10000E+01 0.27509E+05 0.36946E-50 0.51608E-60 0.18741E-57 - 5 2 0.81846E-08 0.10000E+01 0.22184E+05 0.25739E-49 0.65895E-59 0.13129E-56 - 5 2 0.81846E-08 0.10000E+01 0.17891E+05 0.17446E-48 0.81528E-58 0.89602E-56 - 5 2 0.81846E-08 0.10000E+01 0.14428E+05 0.11491E-47 0.10035E-56 0.59127E-55 - 5 2 0.81846E-08 0.10000E+01 0.11635E+05 0.74902E-47 0.13175E-55 0.37571E-54 - 5 2 0.81846E-08 0.10000E+01 0.93834E+04 0.51133E-46 0.21157E-54 0.22862E-53 - 5 2 0.81846E-08 0.10000E+01 0.75673E+04 0.41203E-45 0.45787E-53 0.13398E-52 - 5 2 0.81846E-08 0.10000E+01 0.61026E+04 0.43730E-44 0.12048E-51 0.82952E-52 - 5 2 0.81846E-08 0.10000E+01 0.49215E+04 0.57651E-43 0.33319E-50 0.69161E-51 - 5 2 0.81846E-08 0.10000E+01 0.39689E+04 0.82261E-42 0.91582E-49 0.83372E-50 - 5 2 0.81846E-08 0.10000E+01 0.32008E+04 0.37214E-39 0.80560E-46 0.36419E-47 - 5 2 0.81846E-08 0.10000E+01 0.25813E+04 0.27665E-30 0.13658E-36 0.26211E-38 - 5 2 0.81846E-08 0.10000E+01 0.20817E+04 0.53291E-14 0.11673E-19 0.47919E-22 + 5 2 0.81846E-08 0.10000E+01 0.80645E+05 0.91865E-12 0.57005E-23 0.46236E-19 + 5 2 0.81846E-08 0.10000E+01 0.65036E+05 0.11773E-11 0.12978E-22 0.59270E-19 + 5 2 0.81846E-08 0.10000E+01 0.52449E+05 0.14869E-11 0.29030E-22 0.74893E-19 + 5 2 0.81846E-08 0.10000E+01 0.42297E+05 0.18569E-11 0.63801E-22 0.93592E-19 + 5 2 0.81846E-08 0.10000E+01 0.34111E+05 0.22968E-11 0.13927E-21 0.11586E-18 + 5 2 0.81846E-08 0.10000E+01 0.27509E+05 0.28164E-11 0.31284E-21 0.14214E-18 + 5 2 0.81846E-08 0.10000E+01 0.22184E+05 0.34273E-11 0.78012E-21 0.17277E-18 + 5 2 0.81846E-08 0.10000E+01 0.17891E+05 0.41514E-11 0.23635E-20 0.20794E-18 + 5 2 0.81846E-08 0.10000E+01 0.14428E+05 0.50438E-11 0.88136E-20 0.24785E-18 + 5 2 0.81846E-08 0.10000E+01 0.11635E+05 0.62539E-11 0.37430E-19 0.29322E-18 + 5 2 0.81846E-08 0.10000E+01 0.93834E+04 0.81717E-11 0.16742E-18 0.34683E-18 + 5 2 0.81846E-08 0.10000E+01 0.75673E+04 0.11772E-10 0.75740E-18 0.41682E-18 + 5 2 0.81846E-08 0.10000E+01 0.61026E+04 0.19422E-10 0.34018E-17 0.52414E-18 + 5 2 0.81846E-08 0.10000E+01 0.49215E+04 0.36723E-10 0.15003E-16 0.71837E-18 + 5 2 0.81846E-08 0.10000E+01 0.39689E+04 0.76602E-10 0.64591E-16 0.11115E-17 + 5 2 0.81846E-08 0.10000E+01 0.32008E+04 0.16807E-09 0.27124E-15 0.19484E-17 + 5 2 0.81846E-08 0.10000E+01 0.25813E+04 0.37449E-09 0.11115E-14 0.37506E-17 + 5 2 0.81846E-08 0.10000E+01 0.20817E+04 0.83071E-09 0.44403E-14 0.76069E-17 5 2 0.81846E-08 0.10000E+01 0.16788E+04 0.18163E-08 0.17276E-13 0.15742E-16 5 2 0.81846E-08 0.10000E+01 0.13538E+04 0.38949E-08 0.65607E-13 0.32595E-16 5 2 0.81846E-08 0.10000E+01 0.10918E+04 0.81753E-08 0.24449E-12 0.66827E-16 @@ -27330,24 +27330,24 @@ VERSION 2.8.2 5 2 0.81846E-08 0.10000E+01 0.24221E+03 0.81042E-06 0.74695E-09 0.62652E-14 5 2 0.81846E-08 0.10000E+01 0.19533E+03 0.12769E-05 0.14194E-08 0.98564E-14 5 2 0.81846E-08 0.10000E+01 0.15752E+03 0.12769E-05 0.14194E-08 0.98564E-14 - 5 2 0.14282E-07 0.10000E+01 0.80645E+05 0.25434E-54 0.18995E-65 0.21946E-61 - 5 2 0.14282E-07 0.10000E+01 0.65036E+05 0.21485E-53 0.30128E-64 0.18549E-60 - 5 2 0.14282E-07 0.10000E+01 0.52449E+05 0.18232E-52 0.40309E-63 0.15748E-59 - 5 2 0.14282E-07 0.10000E+01 0.42297E+05 0.13669E-51 0.54323E-62 0.11819E-58 - 5 2 0.14282E-07 0.10000E+01 0.34111E+05 0.97921E-51 0.73576E-61 0.84827E-58 - 5 2 0.14282E-07 0.10000E+01 0.27509E+05 0.69497E-50 0.97474E-60 0.60404E-57 - 5 2 0.14282E-07 0.10000E+01 0.22184E+05 0.48558E-49 0.12495E-58 0.42441E-56 - 5 2 0.14282E-07 0.10000E+01 0.17891E+05 0.33024E-48 0.15457E-57 0.29113E-55 - 5 2 0.14282E-07 0.10000E+01 0.14428E+05 0.21754E-47 0.18639E-56 0.19370E-54 - 5 2 0.14282E-07 0.10000E+01 0.11635E+05 0.13954E-46 0.22569E-55 0.12459E-53 - 5 2 0.14282E-07 0.10000E+01 0.93834E+04 0.89285E-46 0.30082E-54 0.76927E-53 - 5 2 0.14282E-07 0.10000E+01 0.75673E+04 0.61465E-45 0.52708E-53 0.45192E-52 - 5 2 0.14282E-07 0.10000E+01 0.61026E+04 0.53070E-44 0.12594E-51 0.26253E-51 - 5 2 0.14282E-07 0.10000E+01 0.49215E+04 0.61822E-43 0.34294E-50 0.18329E-50 - 5 2 0.14282E-07 0.10000E+01 0.39689E+04 0.85185E-42 0.94231E-49 0.18948E-49 - 5 2 0.14282E-07 0.10000E+01 0.32008E+04 0.38302E-39 0.82542E-46 0.78393E-47 - 5 2 0.14282E-07 0.10000E+01 0.25813E+04 0.28314E-30 0.13864E-36 0.54822E-38 - 5 2 0.14282E-07 0.10000E+01 0.20817E+04 0.54050E-14 0.11677E-19 0.96214E-22 + 5 2 0.14282E-07 0.10000E+01 0.80645E+05 0.17208E-11 0.10710E-22 0.14845E-18 + 5 2 0.14282E-07 0.10000E+01 0.65036E+05 0.22056E-11 0.24426E-22 0.19033E-18 + 5 2 0.14282E-07 0.10000E+01 0.52449E+05 0.27864E-11 0.54711E-22 0.24056E-18 + 5 2 0.14282E-07 0.10000E+01 0.42297E+05 0.34809E-11 0.12003E-21 0.30074E-18 + 5 2 0.14282E-07 0.10000E+01 0.34111E+05 0.43074E-11 0.25854E-21 0.37254E-18 + 5 2 0.14282E-07 0.10000E+01 0.27509E+05 0.52829E-11 0.55557E-21 0.45748E-18 + 5 2 0.14282E-07 0.10000E+01 0.22184E+05 0.64237E-11 0.12493E-20 0.55679E-18 + 5 2 0.14282E-07 0.10000E+01 0.17891E+05 0.77516E-11 0.32246E-20 0.67118E-18 + 5 2 0.14282E-07 0.10000E+01 0.14428E+05 0.93157E-11 0.10364E-19 0.80098E-18 + 5 2 0.14282E-07 0.10000E+01 0.11635E+05 0.11254E-10 0.40439E-19 0.94718E-18 + 5 2 0.14282E-07 0.10000E+01 0.93834E+04 0.13947E-10 0.17449E-18 0.11145E-17 + 5 2 0.14282E-07 0.10000E+01 0.75673E+04 0.18369E-10 0.77736E-18 0.13183E-17 + 5 2 0.14282E-07 0.10000E+01 0.61026E+04 0.26912E-10 0.34613E-17 0.15999E-17 + 5 2 0.14282E-07 0.10000E+01 0.49215E+04 0.45240E-10 0.15166E-16 0.20571E-17 + 5 2 0.14282E-07 0.10000E+01 0.39689E+04 0.86383E-10 0.64949E-16 0.29067E-17 + 5 2 0.14282E-07 0.10000E+01 0.32008E+04 0.17945E-09 0.27157E-15 0.46117E-17 + 5 2 0.14282E-07 0.10000E+01 0.25813E+04 0.38775E-09 0.11091E-14 0.81363E-17 + 5 2 0.14282E-07 0.10000E+01 0.20817E+04 0.84562E-09 0.44195E-14 0.15453E-16 5 2 0.14282E-07 0.10000E+01 0.16788E+04 0.18309E-08 0.17162E-13 0.30532E-16 5 2 0.14282E-07 0.10000E+01 0.13538E+04 0.39029E-08 0.65079E-13 0.61204E-16 5 2 0.14282E-07 0.10000E+01 0.10918E+04 0.81602E-08 0.24224E-12 0.12263E-15 @@ -27360,24 +27360,24 @@ VERSION 2.8.2 5 2 0.14282E-07 0.10000E+01 0.24221E+03 0.80168E-06 0.73816E-09 0.10865E-13 5 2 0.14282E-07 0.10000E+01 0.19533E+03 0.12629E-05 0.14026E-08 0.17066E-13 5 2 0.14282E-07 0.10000E+01 0.15752E+03 0.12629E-05 0.14026E-08 0.17066E-13 - 5 2 0.24920E-07 0.10000E+01 0.80645E+05 0.47258E-54 0.35306E-65 0.70004E-61 - 5 2 0.24920E-07 0.10000E+01 0.65036E+05 0.39933E-53 0.56014E-64 0.59186E-60 - 5 2 0.24920E-07 0.10000E+01 0.52449E+05 0.33895E-52 0.74992E-63 0.50262E-59 - 5 2 0.24920E-07 0.10000E+01 0.42297E+05 0.25426E-51 0.10118E-61 0.37740E-58 - 5 2 0.24920E-07 0.10000E+01 0.34111E+05 0.18233E-50 0.13732E-60 0.27111E-57 - 5 2 0.24920E-07 0.10000E+01 0.27509E+05 0.12963E-49 0.18255E-59 0.19334E-56 - 5 2 0.24920E-07 0.10000E+01 0.22184E+05 0.90844E-49 0.23526E-58 0.13619E-55 - 5 2 0.24920E-07 0.10000E+01 0.17891E+05 0.62060E-48 0.29272E-57 0.93812E-55 - 5 2 0.24920E-07 0.10000E+01 0.14428E+05 0.41084E-47 0.35289E-56 0.62837E-54 - 5 2 0.24920E-07 0.10000E+01 0.11635E+05 0.26364E-46 0.41539E-55 0.40822E-53 - 5 2 0.24920E-07 0.10000E+01 0.93834E+04 0.16506E-45 0.49607E-54 0.25550E-52 - 5 2 0.24920E-07 0.10000E+01 0.75673E+04 0.10419E-44 0.70147E-53 0.15188E-51 - 5 2 0.24920E-07 0.10000E+01 0.61026E+04 0.74782E-44 0.14191E-51 0.86420E-51 - 5 2 0.24920E-07 0.10000E+01 0.49215E+04 0.72731E-43 0.36883E-50 0.53725E-50 - 5 2 0.24920E-07 0.10000E+01 0.39689E+04 0.92906E-42 0.10066E-48 0.47388E-49 - 5 2 0.24920E-07 0.10000E+01 0.32008E+04 0.41002E-39 0.87436E-46 0.18220E-46 - 5 2 0.24920E-07 0.10000E+01 0.25813E+04 0.29955E-30 0.14433E-36 0.12346E-37 - 5 2 0.24920E-07 0.10000E+01 0.20817E+04 0.56212E-14 0.11818E-19 0.20772E-21 + 5 2 0.24920E-07 0.10000E+01 0.80645E+05 0.31970E-11 0.19956E-22 0.47348E-18 + 5 2 0.24920E-07 0.10000E+01 0.65036E+05 0.40984E-11 0.45601E-22 0.60713E-18 + 5 2 0.24920E-07 0.10000E+01 0.52449E+05 0.51788E-11 0.10241E-21 0.76754E-18 + 5 2 0.24920E-07 0.10000E+01 0.42297E+05 0.64723E-11 0.22517E-21 0.95992E-18 + 5 2 0.24920E-07 0.10000E+01 0.34111E+05 0.80133E-11 0.48412E-21 0.11897E-17 + 5 2 0.24920E-07 0.10000E+01 0.27509E+05 0.98344E-11 0.10231E-20 0.14622E-17 + 5 2 0.24920E-07 0.10000E+01 0.22184E+05 0.11963E-10 0.21777E-20 0.17818E-17 + 5 2 0.24920E-07 0.10000E+01 0.17891E+05 0.14425E-10 0.49942E-20 0.21510E-17 + 5 2 0.24920E-07 0.10000E+01 0.14428E+05 0.17265E-10 0.13709E-19 0.25710E-17 + 5 2 0.24920E-07 0.10000E+01 0.11635E+05 0.20608E-10 0.47291E-19 0.30428E-17 + 5 2 0.24920E-07 0.10000E+01 0.93834E+04 0.24824E-10 0.19139E-18 0.35742E-17 + 5 2 0.24920E-07 0.10000E+01 0.75673E+04 0.30903E-10 0.82750E-18 0.41957E-17 + 5 2 0.24920E-07 0.10000E+01 0.61026E+04 0.41316E-10 0.36220E-17 0.49929E-17 + 5 2 0.24920E-07 0.10000E+01 0.49215E+04 0.61917E-10 0.15671E-16 0.61701E-17 + 5 2 0.24920E-07 0.10000E+01 0.39689E+04 0.10608E-09 0.66420E-16 0.81731E-17 + 5 2 0.24920E-07 0.10000E+01 0.32008E+04 0.20344E-09 0.27537E-15 0.11925E-16 + 5 2 0.24920E-07 0.10000E+01 0.25813E+04 0.41795E-09 0.11171E-14 0.19288E-16 + 5 2 0.24920E-07 0.10000E+01 0.20817E+04 0.88443E-09 0.44287E-14 0.33960E-16 5 2 0.24920E-07 0.10000E+01 0.16788E+04 0.18805E-08 0.17132E-13 0.63205E-16 5 2 0.24920E-07 0.10000E+01 0.13538E+04 0.39631E-08 0.64779E-13 0.12109E-15 5 2 0.24920E-07 0.10000E+01 0.10918E+04 0.82235E-08 0.24061E-12 0.23447E-15 @@ -27390,24 +27390,24 @@ VERSION 2.8.2 5 2 0.24920E-07 0.10000E+01 0.24221E+03 0.79400E-06 0.72978E-09 0.18959E-13 5 2 0.24920E-07 0.10000E+01 0.19533E+03 0.12502E-05 0.13866E-08 0.29704E-13 5 2 0.24920E-07 0.10000E+01 0.15752E+03 0.12502E-05 0.13866E-08 0.29704E-13 - 5 2 0.43485E-07 0.10000E+01 0.80645E+05 0.87160E-54 0.65140E-65 0.22252E-60 - 5 2 0.43485E-07 0.10000E+01 0.65036E+05 0.73671E-53 0.10337E-63 0.18818E-59 - 5 2 0.43485E-07 0.10000E+01 0.52449E+05 0.62549E-52 0.13848E-62 0.15985E-58 - 5 2 0.43485E-07 0.10000E+01 0.42297E+05 0.46944E-51 0.18705E-61 0.12007E-57 - 5 2 0.43485E-07 0.10000E+01 0.34111E+05 0.33696E-50 0.25432E-60 0.86325E-57 - 5 2 0.43485E-07 0.10000E+01 0.27509E+05 0.23996E-49 0.33916E-59 0.61641E-56 - 5 2 0.43485E-07 0.10000E+01 0.22184E+05 0.16861E-48 0.43935E-58 0.43513E-55 - 5 2 0.43485E-07 0.10000E+01 0.17891E+05 0.11570E-47 0.55062E-57 0.30081E-54 - 5 2 0.43485E-07 0.10000E+01 0.14428E+05 0.77063E-47 0.66843E-56 0.20261E-53 - 5 2 0.43485E-07 0.10000E+01 0.11635E+05 0.49757E-46 0.78460E-55 0.13270E-52 - 5 2 0.43485E-07 0.10000E+01 0.93834E+04 0.31108E-45 0.89459E-54 0.84023E-52 - 5 2 0.43485E-07 0.10000E+01 0.75673E+04 0.18960E-44 0.10832E-52 0.50631E-51 - 5 2 0.43485E-07 0.10000E+01 0.61026E+04 0.12049E-43 0.17804E-51 0.28795E-50 - 5 2 0.43485E-07 0.10000E+01 0.49215E+04 0.96554E-43 0.42183E-50 0.16768E-49 - 5 2 0.43485E-07 0.10000E+01 0.39689E+04 0.10902E-41 0.11305E-48 0.12893E-48 - 5 2 0.43485E-07 0.10000E+01 0.32008E+04 0.46310E-39 0.96935E-46 0.45537E-46 - 5 2 0.43485E-07 0.10000E+01 0.25813E+04 0.33181E-30 0.15580E-36 0.29910E-37 - 5 2 0.43485E-07 0.10000E+01 0.20817E+04 0.60643E-14 0.12164E-19 0.48574E-21 + 5 2 0.43485E-07 0.10000E+01 0.80645E+05 0.58957E-11 0.36904E-22 0.15048E-17 + 5 2 0.43485E-07 0.10000E+01 0.65036E+05 0.75590E-11 0.84486E-22 0.19299E-17 + 5 2 0.43485E-07 0.10000E+01 0.52449E+05 0.95541E-11 0.19026E-21 0.24402E-17 + 5 2 0.43485E-07 0.10000E+01 0.42297E+05 0.11945E-10 0.41979E-21 0.30529E-17 + 5 2 0.43485E-07 0.10000E+01 0.34111E+05 0.14797E-10 0.90504E-21 0.37856E-17 + 5 2 0.43485E-07 0.10000E+01 0.27509E+05 0.18174E-10 0.19062E-20 0.46561E-17 + 5 2 0.43485E-07 0.10000E+01 0.22184E+05 0.22126E-10 0.39627E-20 0.56793E-17 + 5 2 0.43485E-07 0.10000E+01 0.17891E+05 0.26695E-10 0.84695E-20 0.68656E-17 + 5 2 0.43485E-07 0.10000E+01 0.14428E+05 0.31922E-10 0.20409E-19 0.82190E-17 + 5 2 0.43485E-07 0.10000E+01 0.11635E+05 0.37917E-10 0.61124E-19 0.97401E-17 + 5 2 0.43485E-07 0.10000E+01 0.93834E+04 0.45037E-10 0.22528E-18 0.11441E-16 + 5 2 0.43485E-07 0.10000E+01 0.75673E+04 0.54310E-10 0.92751E-18 0.13385E-16 + 5 2 0.43485E-07 0.10000E+01 0.61026E+04 0.68361E-10 0.39454E-17 0.15758E-16 + 5 2 0.43485E-07 0.10000E+01 0.49215E+04 0.93425E-10 0.16715E-16 0.19019E-16 + 5 2 0.43485E-07 0.10000E+01 0.39689E+04 0.14360E-09 0.69610E-16 0.24148E-16 + 5 2 0.43485E-07 0.10000E+01 0.32008E+04 0.24969E-09 0.28436E-15 0.33114E-16 + 5 2 0.43485E-07 0.10000E+01 0.25813E+04 0.47727E-09 0.11399E-14 0.49734E-16 + 5 2 0.43485E-07 0.10000E+01 0.20817E+04 0.96308E-09 0.44772E-14 0.81295E-16 5 2 0.43485E-07 0.10000E+01 0.16788E+04 0.19862E-08 0.17199E-13 0.14161E-15 5 2 0.43485E-07 0.10000E+01 0.13538E+04 0.41033E-08 0.64691E-13 0.25667E-15 5 2 0.43485E-07 0.10000E+01 0.10918E+04 0.83999E-08 0.23935E-12 0.47504E-15 @@ -27420,24 +27420,24 @@ VERSION 2.8.2 5 2 0.43485E-07 0.10000E+01 0.24221E+03 0.78590E-06 0.72003E-09 0.33426E-13 5 2 0.43485E-07 0.10000E+01 0.19533E+03 0.12364E-05 0.13680E-08 0.52141E-13 5 2 0.43485E-07 0.10000E+01 0.15752E+03 0.12364E-05 0.13680E-08 0.52141E-13 - 5 2 0.75878E-07 0.10000E+01 0.80645E+05 0.15959E-53 0.11931E-64 0.70144E-60 - 5 2 0.75878E-07 0.10000E+01 0.65036E+05 0.13493E-52 0.18938E-63 0.59334E-59 - 5 2 0.75878E-07 0.10000E+01 0.52449E+05 0.11459E-51 0.25385E-62 0.50411E-58 - 5 2 0.75878E-07 0.10000E+01 0.42297E+05 0.86042E-51 0.34323E-61 0.37883E-57 - 5 2 0.75878E-07 0.10000E+01 0.34111E+05 0.61811E-50 0.46742E-60 0.27254E-56 - 5 2 0.75878E-07 0.10000E+01 0.27509E+05 0.44081E-49 0.62507E-59 0.19483E-55 - 5 2 0.75878E-07 0.10000E+01 0.22184E+05 0.31050E-48 0.81347E-58 0.13778E-54 - 5 2 0.75878E-07 0.10000E+01 0.17891E+05 0.21389E-47 0.10265E-56 0.95536E-54 - 5 2 0.75878E-07 0.10000E+01 0.14428E+05 0.14331E-46 0.12568E-55 0.64642E-53 - 5 2 0.75878E-07 0.10000E+01 0.11635E+05 0.93218E-46 0.14854E-54 0.42620E-52 - 5 2 0.75878E-07 0.10000E+01 0.93834E+04 0.58644E-45 0.16752E-53 0.27245E-51 - 5 2 0.75878E-07 0.10000E+01 0.75673E+04 0.35470E-44 0.18661E-52 0.16626E-50 - 5 2 0.75878E-07 0.10000E+01 0.61026E+04 0.21193E-43 0.25355E-51 0.95284E-50 - 5 2 0.75878E-07 0.10000E+01 0.49215E+04 0.14527E-42 0.52426E-50 0.53724E-49 - 5 2 0.75878E-07 0.10000E+01 0.39689E+04 0.14071E-41 0.13572E-48 0.37194E-48 - 5 2 0.75878E-07 0.10000E+01 0.32008E+04 0.56219E-39 0.11448E-45 0.12051E-45 - 5 2 0.75878E-07 0.10000E+01 0.25813E+04 0.39220E-30 0.17780E-36 0.76921E-37 - 5 2 0.75878E-07 0.10000E+01 0.20817E+04 0.69288E-14 0.12933E-19 0.12208E-20 + 5 2 0.75878E-07 0.10000E+01 0.80645E+05 0.10794E-10 0.67734E-22 0.47431E-17 + 5 2 0.75878E-07 0.10000E+01 0.65036E+05 0.13841E-10 0.15533E-21 0.60836E-17 + 5 2 0.75878E-07 0.10000E+01 0.52449E+05 0.17498E-10 0.35070E-21 0.76939E-17 + 5 2 0.75878E-07 0.10000E+01 0.42297E+05 0.21884E-10 0.77658E-21 0.96280E-17 + 5 2 0.75878E-07 0.10000E+01 0.34111E+05 0.27124E-10 0.16812E-20 0.11944E-16 + 5 2 0.75878E-07 0.10000E+01 0.27509E+05 0.33338E-10 0.35493E-20 0.14700E-16 + 5 2 0.75878E-07 0.10000E+01 0.22184E+05 0.40628E-10 0.73252E-20 0.17946E-16 + 5 2 0.75878E-07 0.10000E+01 0.17891E+05 0.49067E-10 0.15114E-19 0.21720E-16 + 5 2 0.75878E-07 0.10000E+01 0.14428E+05 0.58703E-10 0.33371E-19 0.26039E-16 + 5 2 0.75878E-07 0.10000E+01 0.11635E+05 0.69630E-10 0.87907E-19 0.30902E-16 + 5 2 0.75878E-07 0.10000E+01 0.93834E+04 0.82190E-10 0.29018E-18 0.36327E-16 + 5 2 0.75878E-07 0.10000E+01 0.75673E+04 0.97479E-10 0.11175E-17 0.42444E-16 + 5 2 0.75878E-07 0.10000E+01 0.61026E+04 0.11841E-09 0.45647E-17 0.49688E-16 + 5 2 0.75878E-07 0.10000E+01 0.49215E+04 0.15194E-09 0.18760E-16 0.59145E-16 + 5 2 0.75878E-07 0.10000E+01 0.39689E+04 0.21361E-09 0.76115E-16 0.73127E-16 + 5 2 0.75878E-07 0.10000E+01 0.32008E+04 0.33665E-09 0.30390E-15 0.96146E-16 + 5 2 0.75878E-07 0.10000E+01 0.25813E+04 0.59039E-09 0.11949E-14 0.13660E-15 + 5 2 0.75878E-07 0.10000E+01 0.20817E+04 0.11167E-08 0.46214E-14 0.20977E-15 5 2 0.75878E-07 0.10000E+01 0.16788E+04 0.22011E-08 0.17543E-13 0.34337E-15 5 2 0.75878E-07 0.10000E+01 0.13538E+04 0.44067E-08 0.65393E-13 0.58749E-15 5 2 0.75878E-07 0.10000E+01 0.10918E+04 0.88238E-08 0.24032E-12 0.10327E-14 @@ -27450,24 +27450,24 @@ VERSION 2.8.2 5 2 0.75878E-07 0.10000E+01 0.24221E+03 0.78235E-06 0.71282E-09 0.59912E-13 5 2 0.75878E-07 0.10000E+01 0.19533E+03 0.12291E-05 0.13540E-08 0.92786E-13 5 2 0.75878E-07 0.10000E+01 0.15752E+03 0.12291E-05 0.13540E-08 0.92786E-13 - 5 2 0.13240E-06 0.10000E+01 0.80645E+05 0.29041E-53 0.21719E-64 0.22023E-59 - 5 2 0.13240E-06 0.10000E+01 0.65036E+05 0.24560E-52 0.34480E-63 0.18633E-58 - 5 2 0.13240E-06 0.10000E+01 0.52449E+05 0.20862E-51 0.46241E-62 0.15834E-57 - 5 2 0.13240E-06 0.10000E+01 0.42297E+05 0.15671E-50 0.62577E-61 0.11903E-56 - 5 2 0.13240E-06 0.10000E+01 0.34111E+05 0.11267E-49 0.85341E-60 0.85682E-56 - 5 2 0.13240E-06 0.10000E+01 0.27509E+05 0.80449E-49 0.11440E-58 0.61311E-55 - 5 2 0.13240E-06 0.10000E+01 0.22184E+05 0.56787E-48 0.14948E-57 0.43428E-54 - 5 2 0.13240E-06 0.10000E+01 0.17891E+05 0.39253E-47 0.18977E-56 0.30188E-53 - 5 2 0.13240E-06 0.10000E+01 0.14428E+05 0.26436E-46 0.23425E-55 0.20504E-52 - 5 2 0.13240E-06 0.10000E+01 0.11635E+05 0.17319E-45 0.27951E-54 0.13593E-51 - 5 2 0.13240E-06 0.10000E+01 0.93834E+04 0.10987E-44 0.31659E-53 0.87578E-51 - 5 2 0.13240E-06 0.10000E+01 0.75673E+04 0.66721E-44 0.34078E-52 0.54034E-50 - 5 2 0.13240E-06 0.10000E+01 0.61026E+04 0.38912E-43 0.40337E-51 0.31287E-49 - 5 2 0.13240E-06 0.10000E+01 0.49215E+04 0.24067E-42 0.71227E-50 0.17400E-48 - 5 2 0.13240E-06 0.10000E+01 0.39689E+04 0.20007E-41 0.17481E-48 0.11172E-47 - 5 2 0.13240E-06 0.10000E+01 0.32008E+04 0.73693E-39 0.14480E-45 0.33377E-45 - 5 2 0.13240E-06 0.10000E+01 0.25813E+04 0.49795E-30 0.21656E-36 0.20756E-36 - 5 2 0.13240E-06 0.10000E+01 0.20817E+04 0.84812E-14 0.14346E-19 0.32601E-20 + 5 2 0.13240E-06 0.10000E+01 0.80645E+05 0.19640E-10 0.12352E-21 0.14891E-16 + 5 2 0.13240E-06 0.10000E+01 0.65036E+05 0.25187E-10 0.28369E-21 0.19101E-16 + 5 2 0.13240E-06 0.10000E+01 0.52449E+05 0.31848E-10 0.64197E-21 0.24160E-16 + 5 2 0.13240E-06 0.10000E+01 0.42297E+05 0.39843E-10 0.14263E-20 0.30241E-16 + 5 2 0.13240E-06 0.10000E+01 0.34111E+05 0.49407E-10 0.31010E-20 0.37530E-16 + 5 2 0.13240E-06 0.10000E+01 0.27509E+05 0.60767E-10 0.65753E-20 0.46212E-16 + 5 2 0.13240E-06 0.10000E+01 0.22184E+05 0.74123E-10 0.13575E-19 0.56461E-16 + 5 2 0.13240E-06 0.10000E+01 0.17891E+05 0.89619E-10 0.27586E-19 0.68405E-16 + 5 2 0.13240E-06 0.10000E+01 0.14428E+05 0.10733E-09 0.57838E-19 0.82113E-16 + 5 2 0.13240E-06 0.10000E+01 0.11635E+05 0.12733E-09 0.13806E-18 0.97584E-16 + 5 2 0.13240E-06 0.10000E+01 0.93834E+04 0.14995E-09 0.40890E-18 0.11484E-15 + 5 2 0.13240E-06 0.10000E+01 0.75673E+04 0.17637E-09 0.14574E-17 0.13415E-15 + 5 2 0.13240E-06 0.10000E+01 0.61026E+04 0.21001E-09 0.56638E-17 0.15658E-15 + 5 2 0.13240E-06 0.10000E+01 0.49215E+04 0.25905E-09 0.22404E-16 0.18484E-15 + 5 2 0.13240E-06 0.10000E+01 0.39689E+04 0.34156E-09 0.87823E-16 0.22475E-15 + 5 2 0.13240E-06 0.10000E+01 0.32008E+04 0.49518E-09 0.33961E-15 0.28740E-15 + 5 2 0.13240E-06 0.10000E+01 0.25813E+04 0.79614E-09 0.12978E-14 0.39268E-15 + 5 2 0.13240E-06 0.10000E+01 0.20817E+04 0.13961E-08 0.49001E-14 0.57516E-15 5 2 0.13240E-06 0.10000E+01 0.16788E+04 0.25935E-08 0.18247E-13 0.89431E-15 5 2 0.13240E-06 0.10000E+01 0.13538E+04 0.49665E-08 0.67012E-13 0.14524E-14 5 2 0.13240E-06 0.10000E+01 0.10918E+04 0.96197E-08 0.24350E-12 0.24262E-14 @@ -27480,24 +27480,24 @@ VERSION 2.8.2 5 2 0.13240E-06 0.10000E+01 0.24221E+03 0.78125E-06 0.70498E-09 0.11020E-12 5 2 0.13240E-06 0.10000E+01 0.19533E+03 0.12243E-05 0.13387E-08 0.16874E-12 5 2 0.13240E-06 0.10000E+01 0.15752E+03 0.12243E-05 0.13387E-08 0.16874E-12 - 5 2 0.23103E-06 0.10000E+01 0.80645E+05 0.52445E-53 0.39232E-64 0.67490E-59 - 5 2 0.23103E-06 0.10000E+01 0.65036E+05 0.44363E-52 0.62296E-63 0.57111E-58 - 5 2 0.23103E-06 0.10000E+01 0.52449E+05 0.37691E-51 0.83583E-62 0.48538E-57 - 5 2 0.23103E-06 0.10000E+01 0.42297E+05 0.28323E-50 0.11320E-60 0.36497E-56 - 5 2 0.23103E-06 0.10000E+01 0.34111E+05 0.20376E-49 0.15457E-59 0.26286E-55 - 5 2 0.23103E-06 0.10000E+01 0.27509E+05 0.14565E-48 0.20763E-58 0.18824E-54 - 5 2 0.23103E-06 0.10000E+01 0.22184E+05 0.10300E-47 0.27221E-57 0.13351E-53 - 5 2 0.23103E-06 0.10000E+01 0.17891E+05 0.71405E-47 0.34737E-56 0.92993E-53 - 5 2 0.23103E-06 0.10000E+01 0.14428E+05 0.48303E-46 0.43185E-55 0.63356E-52 - 5 2 0.23103E-06 0.10000E+01 0.11635E+05 0.31842E-45 0.52007E-54 0.42186E-51 - 5 2 0.23103E-06 0.10000E+01 0.93834E+04 0.20363E-44 0.59468E-53 0.27348E-50 - 5 2 0.23103E-06 0.10000E+01 0.75673E+04 0.12466E-43 0.63508E-52 0.17023E-49 - 5 2 0.23103E-06 0.10000E+01 0.61026E+04 0.72350E-43 0.69201E-51 0.99550E-49 - 5 2 0.23103E-06 0.10000E+01 0.49215E+04 0.42242E-42 0.10538E-49 0.55152E-48 - 5 2 0.23103E-06 0.10000E+01 0.39689E+04 0.30952E-41 0.24159E-48 0.33670E-47 - 5 2 0.23103E-06 0.10000E+01 0.32008E+04 0.10420E-38 0.19655E-45 0.93852E-45 - 5 2 0.23103E-06 0.10000E+01 0.25813E+04 0.68098E-30 0.28408E-36 0.57040E-36 - 5 2 0.23103E-06 0.10000E+01 0.20817E+04 0.11236E-13 0.16919E-19 0.89503E-20 + 5 2 0.23103E-06 0.10000E+01 0.80645E+05 0.35463E-10 0.22349E-21 0.45628E-16 + 5 2 0.23103E-06 0.10000E+01 0.65036E+05 0.45485E-10 0.51393E-21 0.58533E-16 + 5 2 0.23103E-06 0.10000E+01 0.52449E+05 0.57525E-10 0.11653E-20 0.74048E-16 + 5 2 0.23103E-06 0.10000E+01 0.42297E+05 0.71985E-10 0.25964E-20 0.92705E-16 + 5 2 0.23103E-06 0.10000E+01 0.34111E+05 0.89300E-10 0.56674E-20 0.11508E-15 + 5 2 0.23103E-06 0.10000E+01 0.27509E+05 0.10990E-09 0.12073E-19 0.14177E-15 + 5 2 0.23103E-06 0.10000E+01 0.22184E+05 0.13417E-09 0.25009E-19 0.17331E-15 + 5 2 0.23103E-06 0.10000E+01 0.17891E+05 0.16239E-09 0.50583E-19 0.21016E-15 + 5 2 0.23103E-06 0.10000E+01 0.14428E+05 0.19471E-09 0.10315E-18 0.25254E-15 + 5 2 0.23103E-06 0.10000E+01 0.11635E+05 0.23119E-09 0.23034E-18 0.30049E-15 + 5 2 0.23103E-06 0.10000E+01 0.93834E+04 0.27212E-09 0.62296E-18 0.35398E-15 + 5 2 0.23103E-06 0.10000E+01 0.75673E+04 0.31886E-09 0.20579E-17 0.41364E-15 + 5 2 0.23103E-06 0.10000E+01 0.61026E+04 0.37559E-09 0.75912E-17 0.48208E-15 + 5 2 0.23103E-06 0.10000E+01 0.49215E+04 0.45263E-09 0.28821E-16 0.56634E-15 + 5 2 0.23103E-06 0.10000E+01 0.39689E+04 0.57246E-09 0.10867E-15 0.68151E-15 + 5 2 0.23103E-06 0.10000E+01 0.32008E+04 0.78059E-09 0.40427E-15 0.85614E-15 + 5 2 0.23103E-06 0.10000E+01 0.25813E+04 0.11659E-08 0.14883E-14 0.11400E-14 + 5 2 0.23103E-06 0.10000E+01 0.20817E+04 0.18986E-08 0.54344E-14 0.16163E-14 5 2 0.23103E-06 0.10000E+01 0.16788E+04 0.33027E-08 0.19671E-13 0.24210E-14 5 2 0.23103E-06 0.10000E+01 0.13538E+04 0.59892E-08 0.70603E-13 0.37762E-14 5 2 0.23103E-06 0.10000E+01 0.10918E+04 0.11102E-07 0.25198E-12 0.60458E-14 @@ -27510,24 +27510,24 @@ VERSION 2.8.2 5 2 0.23103E-06 0.10000E+01 0.24221E+03 0.78938E-06 0.70079E-09 0.20967E-12 5 2 0.23103E-06 0.10000E+01 0.19533E+03 0.12319E-05 0.13300E-08 0.31581E-12 5 2 0.23103E-06 0.10000E+01 0.15752E+03 0.12319E-05 0.13300E-08 0.31581E-12 - 5 2 0.40314E-06 0.10000E+01 0.80645E+05 0.91820E-53 0.68689E-64 0.12560E-58 - 5 2 0.40314E-06 0.10000E+01 0.65036E+05 0.77671E-52 0.10907E-62 0.10629E-57 - 5 2 0.40314E-06 0.10000E+01 0.52449E+05 0.65991E-51 0.14635E-61 0.90335E-57 - 5 2 0.40314E-06 0.10000E+01 0.42297E+05 0.49592E-50 0.19822E-60 0.67927E-56 - 5 2 0.40314E-06 0.10000E+01 0.34111E+05 0.35680E-49 0.27070E-59 0.48924E-55 - 5 2 0.40314E-06 0.10000E+01 0.27509E+05 0.25508E-48 0.36371E-58 0.35039E-54 - 5 2 0.40314E-06 0.10000E+01 0.22184E+05 0.18042E-47 0.47702E-57 0.24854E-53 - 5 2 0.40314E-06 0.10000E+01 0.17891E+05 0.12511E-46 0.60906E-56 0.17316E-52 - 5 2 0.40314E-06 0.10000E+01 0.14428E+05 0.84677E-46 0.75777E-55 0.11801E-51 - 5 2 0.40314E-06 0.10000E+01 0.11635E+05 0.55857E-45 0.91354E-54 0.78611E-51 - 5 2 0.40314E-06 0.10000E+01 0.93834E+04 0.35753E-44 0.10459E-52 0.50994E-50 - 5 2 0.40314E-06 0.10000E+01 0.75673E+04 0.21911E-43 0.11170E-51 0.31771E-49 - 5 2 0.40314E-06 0.10000E+01 0.61026E+04 0.12718E-42 0.12086E-50 0.18599E-48 - 5 2 0.40314E-06 0.10000E+01 0.49215E+04 0.73907E-42 0.18111E-49 0.10303E-47 - 5 2 0.40314E-06 0.10000E+01 0.39689E+04 0.53458E-41 0.41154E-48 0.62608E-47 - 5 2 0.40314E-06 0.10000E+01 0.32008E+04 0.17803E-38 0.33411E-45 0.17325E-44 - 5 2 0.40314E-06 0.10000E+01 0.25813E+04 0.11589E-29 0.48115E-36 0.10503E-35 - 5 2 0.40314E-06 0.10000E+01 0.20817E+04 0.19060E-13 0.28286E-19 0.16486E-19 + 5 2 0.40314E-06 0.10000E+01 0.80645E+05 0.62087E-10 0.39135E-21 0.84915E-16 + 5 2 0.40314E-06 0.10000E+01 0.65036E+05 0.79634E-10 0.90010E-21 0.10893E-15 + 5 2 0.40314E-06 0.10000E+01 0.52449E+05 0.10071E-09 0.20413E-20 0.13781E-15 + 5 2 0.40314E-06 0.10000E+01 0.42297E+05 0.12604E-09 0.45497E-20 0.17253E-15 + 5 2 0.40314E-06 0.10000E+01 0.34111E+05 0.15636E-09 0.99353E-20 0.21418E-15 + 5 2 0.40314E-06 0.10000E+01 0.27509E+05 0.19244E-09 0.21177E-19 0.26386E-15 + 5 2 0.40314E-06 0.10000E+01 0.22184E+05 0.23495E-09 0.43888E-19 0.32260E-15 + 5 2 0.40314E-06 0.10000E+01 0.17891E+05 0.28441E-09 0.88754E-19 0.39121E-15 + 5 2 0.40314E-06 0.10000E+01 0.14428E+05 0.34106E-09 0.18058E-18 0.47016E-15 + 5 2 0.40314E-06 0.10000E+01 0.11635E+05 0.40502E-09 0.40074E-18 0.55950E-15 + 5 2 0.40314E-06 0.10000E+01 0.93834E+04 0.47673E-09 0.10736E-17 0.65918E-15 + 5 2 0.40314E-06 0.10000E+01 0.75673E+04 0.55846E-09 0.35163E-17 0.77031E-15 + 5 2 0.40314E-06 0.10000E+01 0.61026E+04 0.65723E-09 0.12892E-16 0.89767E-15 + 5 2 0.40314E-06 0.10000E+01 0.49215E+04 0.79042E-09 0.48708E-16 0.10541E-14 + 5 2 0.40314E-06 0.10000E+01 0.39689E+04 0.99585E-09 0.18280E-15 0.12673E-14 + 5 2 0.40314E-06 0.10000E+01 0.32008E+04 0.13499E-08 0.67668E-15 0.15894E-14 + 5 2 0.40314E-06 0.10000E+01 0.25813E+04 0.20008E-08 0.24789E-14 0.21114E-14 + 5 2 0.40314E-06 0.10000E+01 0.20817E+04 0.32314E-08 0.90094E-14 0.29844E-14 5 2 0.40314E-06 0.10000E+01 0.16788E+04 0.55771E-08 0.32479E-13 0.44544E-14 5 2 0.40314E-06 0.10000E+01 0.13538E+04 0.10044E-07 0.11618E-12 0.69203E-14 5 2 0.40314E-06 0.10000E+01 0.10918E+04 0.18508E-07 0.41350E-12 0.11032E-13 @@ -27540,24 +27540,24 @@ VERSION 2.8.2 5 2 0.40314E-06 0.10000E+01 0.24221E+03 0.12906E-05 0.11428E-08 0.37048E-12 5 2 0.40314E-06 0.10000E+01 0.19533E+03 0.20128E-05 0.21687E-08 0.55678E-12 5 2 0.40314E-06 0.10000E+01 0.15752E+03 0.20128E-05 0.21687E-08 0.55678E-12 - 5 2 0.70346E-06 0.10000E+01 0.80645E+05 0.16022E-52 0.11986E-63 0.21917E-58 - 5 2 0.70346E-06 0.10000E+01 0.65036E+05 0.13553E-51 0.19032E-62 0.18546E-57 - 5 2 0.70346E-06 0.10000E+01 0.52449E+05 0.11515E-50 0.25537E-61 0.15763E-56 - 5 2 0.70346E-06 0.10000E+01 0.42297E+05 0.86535E-50 0.34589E-60 0.11853E-55 - 5 2 0.70346E-06 0.10000E+01 0.34111E+05 0.62259E-49 0.47236E-59 0.85370E-55 - 5 2 0.70346E-06 0.10000E+01 0.27509E+05 0.44510E-48 0.63466E-58 0.61141E-54 - 5 2 0.70346E-06 0.10000E+01 0.22184E+05 0.31481E-47 0.83238E-57 0.43369E-53 - 5 2 0.70346E-06 0.10000E+01 0.17891E+05 0.21832E-46 0.10628E-55 0.30215E-52 - 5 2 0.70346E-06 0.10000E+01 0.14428E+05 0.14776E-45 0.13223E-54 0.20592E-51 - 5 2 0.70346E-06 0.10000E+01 0.11635E+05 0.97467E-45 0.15941E-53 0.13717E-50 - 5 2 0.70346E-06 0.10000E+01 0.93834E+04 0.62387E-44 0.18250E-52 0.88981E-50 - 5 2 0.70346E-06 0.10000E+01 0.75673E+04 0.38233E-43 0.19491E-51 0.55438E-49 - 5 2 0.70346E-06 0.10000E+01 0.61026E+04 0.22192E-42 0.21090E-50 0.32455E-48 - 5 2 0.70346E-06 0.10000E+01 0.49215E+04 0.12896E-41 0.31603E-49 0.17978E-47 - 5 2 0.70346E-06 0.10000E+01 0.39689E+04 0.93281E-41 0.71811E-48 0.10925E-46 - 5 2 0.70346E-06 0.10000E+01 0.32008E+04 0.31065E-38 0.58300E-45 0.30231E-44 - 5 2 0.70346E-06 0.10000E+01 0.25813E+04 0.20222E-29 0.83957E-36 0.18328E-35 - 5 2 0.70346E-06 0.10000E+01 0.20817E+04 0.33259E-13 0.49357E-19 0.28766E-19 + 5 2 0.70346E-06 0.10000E+01 0.80645E+05 0.10834E-09 0.68289E-21 0.14817E-15 + 5 2 0.70346E-06 0.10000E+01 0.65036E+05 0.13896E-09 0.15706E-20 0.19008E-15 + 5 2 0.70346E-06 0.10000E+01 0.52449E+05 0.17574E-09 0.35620E-20 0.24047E-15 + 5 2 0.70346E-06 0.10000E+01 0.42297E+05 0.21992E-09 0.79389E-20 0.30106E-15 + 5 2 0.70346E-06 0.10000E+01 0.34111E+05 0.27284E-09 0.17337E-19 0.37374E-15 + 5 2 0.70346E-06 0.10000E+01 0.27509E+05 0.33579E-09 0.36952E-19 0.46043E-15 + 5 2 0.70346E-06 0.10000E+01 0.22184E+05 0.40998E-09 0.76582E-19 0.56292E-15 + 5 2 0.70346E-06 0.10000E+01 0.17891E+05 0.49628E-09 0.15487E-18 0.68264E-15 + 5 2 0.70346E-06 0.10000E+01 0.14428E+05 0.59514E-09 0.31509E-18 0.82041E-15 + 5 2 0.70346E-06 0.10000E+01 0.11635E+05 0.70673E-09 0.69926E-18 0.97629E-15 + 5 2 0.70346E-06 0.10000E+01 0.93834E+04 0.83187E-09 0.18734E-17 0.11502E-14 + 5 2 0.70346E-06 0.10000E+01 0.75673E+04 0.97447E-09 0.61357E-17 0.13441E-14 + 5 2 0.70346E-06 0.10000E+01 0.61026E+04 0.11468E-08 0.22496E-16 0.15664E-14 + 5 2 0.70346E-06 0.10000E+01 0.49215E+04 0.13792E-08 0.84993E-16 0.18394E-14 + 5 2 0.70346E-06 0.10000E+01 0.39689E+04 0.17377E-08 0.31897E-15 0.22114E-14 + 5 2 0.70346E-06 0.10000E+01 0.32008E+04 0.23554E-08 0.11808E-14 0.27735E-14 + 5 2 0.70346E-06 0.10000E+01 0.25813E+04 0.34912E-08 0.43256E-14 0.36843E-14 + 5 2 0.70346E-06 0.10000E+01 0.20817E+04 0.56386E-08 0.15721E-13 0.52075E-14 5 2 0.70346E-06 0.10000E+01 0.16788E+04 0.97318E-08 0.56674E-13 0.77726E-14 5 2 0.70346E-06 0.10000E+01 0.13538E+04 0.17526E-07 0.20272E-12 0.12075E-13 5 2 0.70346E-06 0.10000E+01 0.10918E+04 0.32296E-07 0.72152E-12 0.19250E-13 @@ -27570,24 +27570,24 @@ VERSION 2.8.2 5 2 0.70346E-06 0.10000E+01 0.24221E+03 0.22520E-05 0.19941E-08 0.64647E-12 5 2 0.70346E-06 0.10000E+01 0.19533E+03 0.35123E-05 0.37842E-08 0.97154E-12 5 2 0.70346E-06 0.10000E+01 0.15752E+03 0.35123E-05 0.37842E-08 0.97154E-12 - 5 2 0.12275E-05 0.10000E+01 0.80645E+05 0.27957E-52 0.20915E-63 0.38243E-58 - 5 2 0.12275E-05 0.10000E+01 0.65036E+05 0.23649E-51 0.33210E-62 0.32362E-57 - 5 2 0.12275E-05 0.10000E+01 0.52449E+05 0.20093E-50 0.44561E-61 0.27505E-56 - 5 2 0.12275E-05 0.10000E+01 0.42297E+05 0.15100E-49 0.60355E-60 0.20683E-55 - 5 2 0.12275E-05 0.10000E+01 0.34111E+05 0.10864E-48 0.82423E-59 0.14897E-54 - 5 2 0.12275E-05 0.10000E+01 0.27509E+05 0.77667E-48 0.11074E-57 0.10669E-53 - 5 2 0.12275E-05 0.10000E+01 0.22184E+05 0.54933E-47 0.14524E-56 0.75676E-53 - 5 2 0.12275E-05 0.10000E+01 0.17891E+05 0.38095E-46 0.18545E-55 0.52723E-52 - 5 2 0.12275E-05 0.10000E+01 0.14428E+05 0.25782E-45 0.23073E-54 0.35932E-51 - 5 2 0.12275E-05 0.10000E+01 0.11635E+05 0.17007E-44 0.27815E-53 0.23936E-50 - 5 2 0.12275E-05 0.10000E+01 0.93834E+04 0.10886E-43 0.31845E-52 0.15527E-49 - 5 2 0.12275E-05 0.10000E+01 0.75673E+04 0.66715E-43 0.34010E-51 0.96737E-49 - 5 2 0.12275E-05 0.10000E+01 0.61026E+04 0.38724E-42 0.36800E-50 0.56631E-48 - 5 2 0.12275E-05 0.10000E+01 0.49215E+04 0.22503E-41 0.55145E-49 0.31371E-47 - 5 2 0.12275E-05 0.10000E+01 0.39689E+04 0.16277E-40 0.12531E-47 0.19063E-46 - 5 2 0.12275E-05 0.10000E+01 0.32008E+04 0.54207E-38 0.10173E-44 0.52751E-44 - 5 2 0.12275E-05 0.10000E+01 0.25813E+04 0.35286E-29 0.14650E-35 0.31980E-35 - 5 2 0.12275E-05 0.10000E+01 0.20817E+04 0.58034E-13 0.86124E-19 0.50195E-19 + 5 2 0.12275E-05 0.10000E+01 0.80645E+05 0.18904E-09 0.11916E-20 0.25855E-15 + 5 2 0.12275E-05 0.10000E+01 0.65036E+05 0.24247E-09 0.27406E-20 0.33168E-15 + 5 2 0.12275E-05 0.10000E+01 0.52449E+05 0.30666E-09 0.62154E-20 0.41960E-15 + 5 2 0.12275E-05 0.10000E+01 0.42297E+05 0.38376E-09 0.13853E-19 0.52533E-15 + 5 2 0.12275E-05 0.10000E+01 0.34111E+05 0.47608E-09 0.30251E-19 0.65215E-15 + 5 2 0.12275E-05 0.10000E+01 0.27509E+05 0.58594E-09 0.64479E-19 0.80342E-15 + 5 2 0.12275E-05 0.10000E+01 0.22184E+05 0.71539E-09 0.13363E-18 0.98226E-15 + 5 2 0.12275E-05 0.10000E+01 0.17891E+05 0.86597E-09 0.27024E-18 0.11912E-14 + 5 2 0.12275E-05 0.10000E+01 0.14428E+05 0.10385E-08 0.54982E-18 0.14316E-14 + 5 2 0.12275E-05 0.10000E+01 0.11635E+05 0.12332E-08 0.12202E-17 0.17036E-14 + 5 2 0.12275E-05 0.10000E+01 0.93834E+04 0.14516E-08 0.32689E-17 0.20071E-14 + 5 2 0.12275E-05 0.10000E+01 0.75673E+04 0.17004E-08 0.10706E-16 0.23455E-14 + 5 2 0.12275E-05 0.10000E+01 0.61026E+04 0.20011E-08 0.39254E-16 0.27332E-14 + 5 2 0.12275E-05 0.10000E+01 0.49215E+04 0.24067E-08 0.14831E-15 0.32096E-14 + 5 2 0.12275E-05 0.10000E+01 0.39689E+04 0.30322E-08 0.55659E-15 0.38587E-14 + 5 2 0.12275E-05 0.10000E+01 0.32008E+04 0.41101E-08 0.20604E-14 0.48395E-14 + 5 2 0.12275E-05 0.10000E+01 0.25813E+04 0.60920E-08 0.75478E-14 0.64289E-14 + 5 2 0.12275E-05 0.10000E+01 0.20817E+04 0.98390E-08 0.27432E-13 0.90868E-14 5 2 0.12275E-05 0.10000E+01 0.16788E+04 0.16981E-07 0.98893E-13 0.13563E-13 5 2 0.12275E-05 0.10000E+01 0.13538E+04 0.30582E-07 0.35374E-12 0.21071E-13 5 2 0.12275E-05 0.10000E+01 0.10918E+04 0.56354E-07 0.12590E-11 0.33590E-13 @@ -27600,24 +27600,24 @@ VERSION 2.8.2 5 2 0.12275E-05 0.10000E+01 0.24221E+03 0.39297E-05 0.34796E-08 0.11280E-11 5 2 0.12275E-05 0.10000E+01 0.19533E+03 0.61287E-05 0.66033E-08 0.16953E-11 5 2 0.12275E-05 0.10000E+01 0.15752E+03 0.61287E-05 0.66033E-08 0.16953E-11 - 5 2 0.21419E-05 0.10000E+01 0.80645E+05 0.48784E-52 0.36495E-63 0.66732E-58 - 5 2 0.21419E-05 0.10000E+01 0.65036E+05 0.41267E-51 0.57950E-62 0.56471E-57 - 5 2 0.21419E-05 0.10000E+01 0.52449E+05 0.35061E-50 0.77756E-61 0.47995E-56 - 5 2 0.21419E-05 0.10000E+01 0.42297E+05 0.26348E-49 0.10532E-59 0.36090E-55 - 5 2 0.21419E-05 0.10000E+01 0.34111E+05 0.18957E-48 0.14382E-58 0.25994E-54 - 5 2 0.21419E-05 0.10000E+01 0.27509E+05 0.13552E-47 0.19324E-57 0.18616E-53 - 5 2 0.21419E-05 0.10000E+01 0.22184E+05 0.95855E-47 0.25344E-56 0.13205E-52 - 5 2 0.21419E-05 0.10000E+01 0.17891E+05 0.66473E-46 0.32360E-55 0.91998E-52 - 5 2 0.21419E-05 0.10000E+01 0.14428E+05 0.44989E-45 0.40260E-54 0.62698E-51 - 5 2 0.21419E-05 0.10000E+01 0.11635E+05 0.29677E-44 0.48536E-53 0.41766E-50 - 5 2 0.21419E-05 0.10000E+01 0.93834E+04 0.18996E-43 0.55568E-52 0.27093E-49 - 5 2 0.21419E-05 0.10000E+01 0.75673E+04 0.11641E-42 0.59345E-51 0.16880E-48 - 5 2 0.21419E-05 0.10000E+01 0.61026E+04 0.67571E-42 0.64214E-50 0.98818E-48 - 5 2 0.21419E-05 0.10000E+01 0.49215E+04 0.39267E-41 0.96224E-49 0.54741E-47 - 5 2 0.21419E-05 0.10000E+01 0.39689E+04 0.28402E-40 0.21865E-47 0.33264E-46 - 5 2 0.21419E-05 0.10000E+01 0.32008E+04 0.94588E-38 0.17751E-44 0.92047E-44 - 5 2 0.21419E-05 0.10000E+01 0.25813E+04 0.61572E-29 0.25563E-35 0.55804E-35 - 5 2 0.21419E-05 0.10000E+01 0.20817E+04 0.10127E-12 0.15028E-18 0.87588E-19 + 5 2 0.21419E-05 0.10000E+01 0.80645E+05 0.32987E-09 0.20793E-20 0.45115E-15 + 5 2 0.21419E-05 0.10000E+01 0.65036E+05 0.42310E-09 0.47822E-20 0.57876E-15 + 5 2 0.21419E-05 0.10000E+01 0.52449E+05 0.53510E-09 0.10846E-19 0.73218E-15 + 5 2 0.21419E-05 0.10000E+01 0.42297E+05 0.66963E-09 0.24173E-19 0.91667E-15 + 5 2 0.21419E-05 0.10000E+01 0.34111E+05 0.83074E-09 0.52787E-19 0.11380E-14 + 5 2 0.21419E-05 0.10000E+01 0.27509E+05 0.10224E-08 0.11251E-18 0.14019E-14 + 5 2 0.21419E-05 0.10000E+01 0.22184E+05 0.12483E-08 0.23318E-18 0.17140E-14 + 5 2 0.21419E-05 0.10000E+01 0.17891E+05 0.15111E-08 0.47155E-18 0.20785E-14 + 5 2 0.21419E-05 0.10000E+01 0.14428E+05 0.18121E-08 0.95940E-18 0.24980E-14 + 5 2 0.21419E-05 0.10000E+01 0.11635E+05 0.21519E-08 0.21291E-17 0.29726E-14 + 5 2 0.21419E-05 0.10000E+01 0.93834E+04 0.25329E-08 0.57041E-17 0.35022E-14 + 5 2 0.21419E-05 0.10000E+01 0.75673E+04 0.29671E-08 0.18682E-16 0.40927E-14 + 5 2 0.21419E-05 0.10000E+01 0.61026E+04 0.34919E-08 0.68495E-16 0.47693E-14 + 5 2 0.21419E-05 0.10000E+01 0.49215E+04 0.41995E-08 0.25879E-15 0.56005E-14 + 5 2 0.21419E-05 0.10000E+01 0.39689E+04 0.52910E-08 0.97122E-15 0.67332E-14 + 5 2 0.21419E-05 0.10000E+01 0.32008E+04 0.71719E-08 0.35952E-14 0.84447E-14 + 5 2 0.21419E-05 0.10000E+01 0.25813E+04 0.10630E-07 0.13171E-13 0.11218E-13 + 5 2 0.21419E-05 0.10000E+01 0.20817E+04 0.17169E-07 0.47867E-13 0.15856E-13 5 2 0.21419E-05 0.10000E+01 0.16788E+04 0.29631E-07 0.17256E-12 0.23666E-13 5 2 0.21419E-05 0.10000E+01 0.13538E+04 0.53363E-07 0.61726E-12 0.36767E-13 5 2 0.21419E-05 0.10000E+01 0.10918E+04 0.98334E-07 0.21969E-11 0.58613E-13 @@ -27630,24 +27630,24 @@ VERSION 2.8.2 5 2 0.21419E-05 0.10000E+01 0.24221E+03 0.68570E-05 0.60717E-08 0.19684E-11 5 2 0.21419E-05 0.10000E+01 0.19533E+03 0.10694E-04 0.11522E-07 0.29582E-11 5 2 0.21419E-05 0.10000E+01 0.15752E+03 0.10694E-04 0.11522E-07 0.29582E-11 - 5 2 0.37375E-05 0.10000E+01 0.80645E+05 0.85125E-52 0.63681E-63 0.11644E-57 - 5 2 0.37375E-05 0.10000E+01 0.65036E+05 0.72008E-51 0.10112E-61 0.98538E-57 - 5 2 0.37375E-05 0.10000E+01 0.52449E+05 0.61180E-50 0.13568E-60 0.83749E-56 - 5 2 0.37375E-05 0.10000E+01 0.42297E+05 0.45976E-49 0.18377E-59 0.62975E-55 - 5 2 0.37375E-05 0.10000E+01 0.34111E+05 0.33078E-48 0.25096E-58 0.45357E-54 - 5 2 0.37375E-05 0.10000E+01 0.27509E+05 0.23648E-47 0.33719E-57 0.32484E-53 - 5 2 0.37375E-05 0.10000E+01 0.22184E+05 0.16726E-46 0.44224E-56 0.23042E-52 - 5 2 0.37375E-05 0.10000E+01 0.17891E+05 0.11599E-45 0.56466E-55 0.16053E-51 - 5 2 0.37375E-05 0.10000E+01 0.14428E+05 0.78503E-45 0.70252E-54 0.10940E-50 - 5 2 0.37375E-05 0.10000E+01 0.11635E+05 0.51784E-44 0.84693E-53 0.72879E-50 - 5 2 0.37375E-05 0.10000E+01 0.93834E+04 0.33147E-43 0.96962E-52 0.47276E-49 - 5 2 0.37375E-05 0.10000E+01 0.75673E+04 0.20313E-42 0.10355E-50 0.29455E-48 - 5 2 0.37375E-05 0.10000E+01 0.61026E+04 0.11791E-41 0.11205E-49 0.17243E-47 - 5 2 0.37375E-05 0.10000E+01 0.49215E+04 0.68519E-41 0.16790E-48 0.95520E-47 - 5 2 0.37375E-05 0.10000E+01 0.39689E+04 0.49560E-40 0.38153E-47 0.58043E-46 - 5 2 0.37375E-05 0.10000E+01 0.32008E+04 0.16505E-37 0.30975E-44 0.16062E-43 - 5 2 0.37375E-05 0.10000E+01 0.25813E+04 0.10744E-28 0.44606E-35 0.97375E-35 - 5 2 0.37375E-05 0.10000E+01 0.20817E+04 0.17670E-12 0.26223E-18 0.15284E-18 + 5 2 0.37375E-05 0.10000E+01 0.80645E+05 0.57560E-09 0.36282E-20 0.78724E-15 + 5 2 0.37375E-05 0.10000E+01 0.65036E+05 0.73828E-09 0.83447E-20 0.10099E-14 + 5 2 0.37375E-05 0.10000E+01 0.52449E+05 0.93371E-09 0.18925E-19 0.12776E-14 + 5 2 0.37375E-05 0.10000E+01 0.42297E+05 0.11685E-08 0.42180E-19 0.15995E-14 + 5 2 0.37375E-05 0.10000E+01 0.34111E+05 0.14496E-08 0.92109E-19 0.19857E-14 + 5 2 0.37375E-05 0.10000E+01 0.27509E+05 0.17841E-08 0.19633E-18 0.24463E-14 + 5 2 0.37375E-05 0.10000E+01 0.22184E+05 0.21782E-08 0.40688E-18 0.29908E-14 + 5 2 0.37375E-05 0.10000E+01 0.17891E+05 0.26367E-08 0.82283E-18 0.36269E-14 + 5 2 0.37375E-05 0.10000E+01 0.14428E+05 0.31620E-08 0.16741E-17 0.43588E-14 + 5 2 0.37375E-05 0.10000E+01 0.11635E+05 0.37549E-08 0.37152E-17 0.51870E-14 + 5 2 0.37375E-05 0.10000E+01 0.93834E+04 0.44197E-08 0.99533E-17 0.61112E-14 + 5 2 0.37375E-05 0.10000E+01 0.75673E+04 0.51774E-08 0.32599E-16 0.71415E-14 + 5 2 0.37375E-05 0.10000E+01 0.61026E+04 0.60931E-08 0.11952E-15 0.83222E-14 + 5 2 0.37375E-05 0.10000E+01 0.49215E+04 0.73279E-08 0.45157E-15 0.97725E-14 + 5 2 0.37375E-05 0.10000E+01 0.39689E+04 0.92324E-08 0.16947E-14 0.11749E-13 + 5 2 0.37375E-05 0.10000E+01 0.32008E+04 0.12515E-07 0.62734E-14 0.14735E-13 + 5 2 0.37375E-05 0.10000E+01 0.25813E+04 0.18549E-07 0.22982E-13 0.19575E-13 + 5 2 0.37375E-05 0.10000E+01 0.20817E+04 0.29958E-07 0.83526E-13 0.27668E-13 5 2 0.37375E-05 0.10000E+01 0.16788E+04 0.51705E-07 0.30111E-12 0.41296E-13 5 2 0.37375E-05 0.10000E+01 0.13538E+04 0.93116E-07 0.10771E-11 0.64157E-13 5 2 0.37375E-05 0.10000E+01 0.10918E+04 0.17159E-06 0.38335E-11 0.10228E-12 @@ -27660,24 +27660,24 @@ VERSION 2.8.2 5 2 0.37375E-05 0.10000E+01 0.24221E+03 0.11965E-04 0.10595E-07 0.34347E-11 5 2 0.37375E-05 0.10000E+01 0.19533E+03 0.18661E-04 0.20106E-07 0.51618E-11 5 2 0.37375E-05 0.10000E+01 0.15752E+03 0.18661E-04 0.20106E-07 0.51618E-11 - 5 2 0.65217E-05 0.10000E+01 0.80645E+05 0.14854E-51 0.11112E-62 0.20319E-57 - 5 2 0.65217E-05 0.10000E+01 0.65036E+05 0.12565E-50 0.17645E-61 0.17194E-56 - 5 2 0.65217E-05 0.10000E+01 0.52449E+05 0.10676E-49 0.23675E-60 0.14614E-55 - 5 2 0.65217E-05 0.10000E+01 0.42297E+05 0.80226E-49 0.32067E-59 0.10989E-54 - 5 2 0.65217E-05 0.10000E+01 0.34111E+05 0.57719E-48 0.43792E-58 0.79146E-54 - 5 2 0.65217E-05 0.10000E+01 0.27509E+05 0.41265E-47 0.58838E-57 0.56683E-53 - 5 2 0.65217E-05 0.10000E+01 0.22184E+05 0.29186E-46 0.77169E-56 0.40207E-52 - 5 2 0.65217E-05 0.10000E+01 0.17891E+05 0.20240E-45 0.98529E-55 0.28012E-51 - 5 2 0.65217E-05 0.10000E+01 0.14428E+05 0.13698E-44 0.12258E-53 0.19090E-50 - 5 2 0.65217E-05 0.10000E+01 0.11635E+05 0.90361E-44 0.14778E-52 0.12717E-49 - 5 2 0.65217E-05 0.10000E+01 0.93834E+04 0.57839E-43 0.16919E-51 0.82493E-49 - 5 2 0.65217E-05 0.10000E+01 0.75673E+04 0.35446E-42 0.18069E-50 0.51396E-48 - 5 2 0.65217E-05 0.10000E+01 0.61026E+04 0.20574E-41 0.19552E-49 0.30088E-47 - 5 2 0.65217E-05 0.10000E+01 0.49215E+04 0.11956E-40 0.29298E-48 0.16668E-46 - 5 2 0.65217E-05 0.10000E+01 0.39689E+04 0.86479E-40 0.66575E-47 0.10128E-45 - 5 2 0.65217E-05 0.10000E+01 0.32008E+04 0.28800E-37 0.54049E-44 0.28027E-43 - 5 2 0.65217E-05 0.10000E+01 0.25813E+04 0.18747E-28 0.77836E-35 0.16991E-34 - 5 2 0.65217E-05 0.10000E+01 0.20817E+04 0.30834E-12 0.45758E-18 0.26669E-18 + 5 2 0.65217E-05 0.10000E+01 0.80645E+05 0.10044E-08 0.63310E-20 0.13737E-14 + 5 2 0.65217E-05 0.10000E+01 0.65036E+05 0.12883E-08 0.14561E-19 0.17622E-14 + 5 2 0.65217E-05 0.10000E+01 0.52449E+05 0.16293E-08 0.33023E-19 0.22294E-14 + 5 2 0.65217E-05 0.10000E+01 0.42297E+05 0.20389E-08 0.73601E-19 0.27911E-14 + 5 2 0.65217E-05 0.10000E+01 0.34111E+05 0.25294E-08 0.16073E-18 0.34649E-14 + 5 2 0.65217E-05 0.10000E+01 0.27509E+05 0.31131E-08 0.34258E-18 0.42686E-14 + 5 2 0.65217E-05 0.10000E+01 0.22184E+05 0.38009E-08 0.70998E-18 0.52188E-14 + 5 2 0.65217E-05 0.10000E+01 0.17891E+05 0.46009E-08 0.14358E-17 0.63287E-14 + 5 2 0.65217E-05 0.10000E+01 0.14428E+05 0.55174E-08 0.29212E-17 0.76059E-14 + 5 2 0.65217E-05 0.10000E+01 0.11635E+05 0.65520E-08 0.64828E-17 0.90511E-14 + 5 2 0.65217E-05 0.10000E+01 0.93834E+04 0.77121E-08 0.17368E-16 0.10664E-13 + 5 2 0.65217E-05 0.10000E+01 0.75673E+04 0.90342E-08 0.56883E-16 0.12461E-13 + 5 2 0.65217E-05 0.10000E+01 0.61026E+04 0.10632E-07 0.20856E-15 0.14522E-13 + 5 2 0.65217E-05 0.10000E+01 0.49215E+04 0.12787E-07 0.78796E-15 0.17052E-13 + 5 2 0.65217E-05 0.10000E+01 0.39689E+04 0.16110E-07 0.29572E-14 0.20501E-13 + 5 2 0.65217E-05 0.10000E+01 0.32008E+04 0.21837E-07 0.10947E-13 0.25713E-13 + 5 2 0.65217E-05 0.10000E+01 0.25813E+04 0.32367E-07 0.40102E-13 0.34157E-13 + 5 2 0.65217E-05 0.10000E+01 0.20817E+04 0.52275E-07 0.14575E-12 0.48278E-13 5 2 0.65217E-05 0.10000E+01 0.16788E+04 0.90222E-07 0.52542E-12 0.72059E-13 5 2 0.65217E-05 0.10000E+01 0.13538E+04 0.16248E-06 0.18794E-11 0.11195E-12 5 2 0.65217E-05 0.10000E+01 0.10918E+04 0.29941E-06 0.66892E-11 0.17847E-12 @@ -27690,24 +27690,24 @@ VERSION 2.8.2 5 2 0.65217E-05 0.10000E+01 0.24221E+03 0.20878E-04 0.18487E-07 0.59933E-11 5 2 0.65217E-05 0.10000E+01 0.19533E+03 0.32562E-04 0.35083E-07 0.90071E-11 5 2 0.65217E-05 0.10000E+01 0.15752E+03 0.32562E-04 0.35083E-07 0.90071E-11 - 5 2 0.11380E-04 0.10000E+01 0.80645E+05 0.25919E-51 0.19390E-62 0.35455E-57 - 5 2 0.11380E-04 0.10000E+01 0.65036E+05 0.21925E-50 0.30789E-61 0.30003E-56 - 5 2 0.11380E-04 0.10000E+01 0.52449E+05 0.18628E-49 0.41312E-60 0.25500E-55 - 5 2 0.11380E-04 0.10000E+01 0.42297E+05 0.13999E-48 0.55955E-59 0.19175E-54 - 5 2 0.11380E-04 0.10000E+01 0.34111E+05 0.10072E-47 0.76414E-58 0.13810E-53 - 5 2 0.11380E-04 0.10000E+01 0.27509E+05 0.72005E-47 0.10267E-56 0.98909E-53 - 5 2 0.11380E-04 0.10000E+01 0.22184E+05 0.50928E-46 0.13465E-55 0.70159E-52 - 5 2 0.11380E-04 0.10000E+01 0.17891E+05 0.35317E-45 0.17193E-54 0.48879E-51 - 5 2 0.11380E-04 0.10000E+01 0.14428E+05 0.23903E-44 0.21390E-53 0.33312E-50 - 5 2 0.11380E-04 0.10000E+01 0.11635E+05 0.15767E-43 0.25787E-52 0.22190E-49 - 5 2 0.11380E-04 0.10000E+01 0.93834E+04 0.10092E-42 0.29523E-51 0.14395E-48 - 5 2 0.11380E-04 0.10000E+01 0.75673E+04 0.61850E-42 0.31530E-50 0.89684E-48 - 5 2 0.11380E-04 0.10000E+01 0.61026E+04 0.35900E-41 0.34117E-49 0.52502E-47 - 5 2 0.11380E-04 0.10000E+01 0.49215E+04 0.20863E-40 0.51124E-48 0.29084E-46 - 5 2 0.11380E-04 0.10000E+01 0.39689E+04 0.15090E-39 0.11617E-46 0.17673E-45 - 5 2 0.11380E-04 0.10000E+01 0.32008E+04 0.50255E-37 0.94312E-44 0.48905E-43 - 5 2 0.11380E-04 0.10000E+01 0.25813E+04 0.32713E-28 0.13582E-34 0.29649E-34 - 5 2 0.11380E-04 0.10000E+01 0.20817E+04 0.53803E-12 0.79845E-18 0.46536E-18 + 5 2 0.11380E-04 0.10000E+01 0.80645E+05 0.17526E-08 0.11047E-19 0.23970E-14 + 5 2 0.11380E-04 0.10000E+01 0.65036E+05 0.22479E-08 0.25408E-19 0.30750E-14 + 5 2 0.11380E-04 0.10000E+01 0.52449E+05 0.28430E-08 0.57623E-19 0.38901E-14 + 5 2 0.11380E-04 0.10000E+01 0.42297E+05 0.35578E-08 0.12843E-18 0.48703E-14 + 5 2 0.11380E-04 0.10000E+01 0.34111E+05 0.44137E-08 0.28046E-18 0.60460E-14 + 5 2 0.11380E-04 0.10000E+01 0.27509E+05 0.54322E-08 0.59778E-18 0.74484E-14 + 5 2 0.11380E-04 0.10000E+01 0.22184E+05 0.66323E-08 0.12389E-17 0.91064E-14 + 5 2 0.11380E-04 0.10000E+01 0.17891E+05 0.80283E-08 0.25054E-17 0.11043E-13 + 5 2 0.11380E-04 0.10000E+01 0.14428E+05 0.96276E-08 0.50973E-17 0.13272E-13 + 5 2 0.11380E-04 0.10000E+01 0.11635E+05 0.11433E-07 0.11312E-16 0.15794E-13 + 5 2 0.11380E-04 0.10000E+01 0.93834E+04 0.13457E-07 0.30306E-16 0.18607E-13 + 5 2 0.11380E-04 0.10000E+01 0.75673E+04 0.15764E-07 0.99258E-16 0.21745E-13 + 5 2 0.11380E-04 0.10000E+01 0.61026E+04 0.18552E-07 0.36392E-15 0.25340E-13 + 5 2 0.11380E-04 0.10000E+01 0.49215E+04 0.22312E-07 0.13749E-14 0.29755E-13 + 5 2 0.11380E-04 0.10000E+01 0.39689E+04 0.28111E-07 0.51601E-14 0.35773E-13 + 5 2 0.11380E-04 0.10000E+01 0.32008E+04 0.38104E-07 0.19101E-13 0.44867E-13 + 5 2 0.11380E-04 0.10000E+01 0.25813E+04 0.56478E-07 0.69975E-13 0.59601E-13 + 5 2 0.11380E-04 0.10000E+01 0.20817E+04 0.91217E-07 0.25432E-12 0.84243E-13 5 2 0.11380E-04 0.10000E+01 0.16788E+04 0.15743E-06 0.91682E-12 0.12574E-12 5 2 0.11380E-04 0.10000E+01 0.13538E+04 0.28352E-06 0.32795E-11 0.19535E-12 5 2 0.11380E-04 0.10000E+01 0.10918E+04 0.52245E-06 0.11672E-10 0.31141E-12 @@ -27720,24 +27720,24 @@ VERSION 2.8.2 5 2 0.11380E-04 0.10000E+01 0.24221E+03 0.36431E-04 0.32259E-07 0.10458E-10 5 2 0.11380E-04 0.10000E+01 0.19533E+03 0.56818E-04 0.61218E-07 0.15717E-10 5 2 0.11380E-04 0.10000E+01 0.15752E+03 0.56818E-04 0.61218E-07 0.15717E-10 - 5 2 0.19857E-04 0.10000E+01 0.80645E+05 0.45227E-51 0.33834E-62 0.61866E-57 - 5 2 0.19857E-04 0.10000E+01 0.65036E+05 0.38258E-50 0.53725E-61 0.52353E-56 - 5 2 0.19857E-04 0.10000E+01 0.52449E+05 0.32505E-49 0.72087E-60 0.44496E-55 - 5 2 0.19857E-04 0.10000E+01 0.42297E+05 0.24427E-48 0.97638E-59 0.33459E-54 - 5 2 0.19857E-04 0.10000E+01 0.34111E+05 0.17575E-47 0.13334E-57 0.24098E-53 - 5 2 0.19857E-04 0.10000E+01 0.27509E+05 0.12564E-46 0.17915E-56 0.17259E-52 - 5 2 0.19857E-04 0.10000E+01 0.22184E+05 0.88866E-46 0.23496E-55 0.12242E-51 - 5 2 0.19857E-04 0.10000E+01 0.17891E+05 0.61627E-45 0.30000E-54 0.85291E-51 - 5 2 0.19857E-04 0.10000E+01 0.14428E+05 0.41709E-44 0.37325E-53 0.58127E-50 - 5 2 0.19857E-04 0.10000E+01 0.11635E+05 0.27513E-43 0.44997E-52 0.38721E-49 - 5 2 0.19857E-04 0.10000E+01 0.93834E+04 0.17611E-42 0.51516E-51 0.25118E-48 - 5 2 0.19857E-04 0.10000E+01 0.75673E+04 0.10793E-41 0.55018E-50 0.15649E-47 - 5 2 0.19857E-04 0.10000E+01 0.61026E+04 0.62644E-41 0.59532E-49 0.91613E-47 - 5 2 0.19857E-04 0.10000E+01 0.49215E+04 0.36404E-40 0.89208E-48 0.50750E-46 - 5 2 0.19857E-04 0.10000E+01 0.39689E+04 0.26331E-39 0.20271E-46 0.30838E-45 - 5 2 0.19857E-04 0.10000E+01 0.32008E+04 0.87691E-37 0.16457E-43 0.85336E-43 - 5 2 0.19857E-04 0.10000E+01 0.25813E+04 0.57083E-28 0.23699E-34 0.51735E-34 - 5 2 0.19857E-04 0.10000E+01 0.20817E+04 0.93883E-12 0.13932E-17 0.81202E-18 + 5 2 0.19857E-04 0.10000E+01 0.80645E+05 0.30582E-08 0.19277E-19 0.41826E-14 + 5 2 0.19857E-04 0.10000E+01 0.65036E+05 0.39225E-08 0.44336E-19 0.53656E-14 + 5 2 0.19857E-04 0.10000E+01 0.52449E+05 0.49608E-08 0.10055E-18 0.67880E-14 + 5 2 0.19857E-04 0.10000E+01 0.42297E+05 0.62081E-08 0.22410E-18 0.84983E-14 + 5 2 0.19857E-04 0.10000E+01 0.34111E+05 0.77017E-08 0.48938E-18 0.10550E-13 + 5 2 0.19857E-04 0.10000E+01 0.27509E+05 0.94788E-08 0.10431E-17 0.12997E-13 + 5 2 0.19857E-04 0.10000E+01 0.22184E+05 0.11573E-07 0.21618E-17 0.15890E-13 + 5 2 0.19857E-04 0.10000E+01 0.17891E+05 0.14009E-07 0.43717E-17 0.19270E-13 + 5 2 0.19857E-04 0.10000E+01 0.14428E+05 0.16800E-07 0.88945E-17 0.23159E-13 + 5 2 0.19857E-04 0.10000E+01 0.11635E+05 0.19950E-07 0.19739E-16 0.27559E-13 + 5 2 0.19857E-04 0.10000E+01 0.93834E+04 0.23482E-07 0.52882E-16 0.32469E-13 + 5 2 0.19857E-04 0.10000E+01 0.75673E+04 0.27508E-07 0.17320E-15 0.37943E-13 + 5 2 0.19857E-04 0.10000E+01 0.61026E+04 0.32373E-07 0.63501E-15 0.44216E-13 + 5 2 0.19857E-04 0.10000E+01 0.49215E+04 0.38933E-07 0.23992E-14 0.51922E-13 + 5 2 0.19857E-04 0.10000E+01 0.39689E+04 0.49052E-07 0.90040E-14 0.62422E-13 + 5 2 0.19857E-04 0.10000E+01 0.32008E+04 0.66490E-07 0.33331E-13 0.78290E-13 + 5 2 0.19857E-04 0.10000E+01 0.25813E+04 0.98550E-07 0.12210E-12 0.10400E-12 + 5 2 0.19857E-04 0.10000E+01 0.20817E+04 0.15917E-06 0.44377E-12 0.14700E-12 5 2 0.19857E-04 0.10000E+01 0.16788E+04 0.27471E-06 0.15998E-11 0.21941E-12 5 2 0.19857E-04 0.10000E+01 0.13538E+04 0.49473E-06 0.57225E-11 0.34087E-12 5 2 0.19857E-04 0.10000E+01 0.10918E+04 0.91164E-06 0.20367E-10 0.54340E-12 @@ -27750,24 +27750,24 @@ VERSION 2.8.2 5 2 0.19857E-04 0.10000E+01 0.24221E+03 0.63571E-04 0.56290E-07 0.18249E-10 5 2 0.19857E-04 0.10000E+01 0.19533E+03 0.99145E-04 0.10682E-06 0.27425E-10 5 2 0.19857E-04 0.10000E+01 0.15752E+03 0.99145E-04 0.10682E-06 0.27425E-10 - 5 2 0.34650E-04 0.10000E+01 0.80645E+05 0.78918E-51 0.59038E-62 0.10795E-56 - 5 2 0.34650E-04 0.10000E+01 0.65036E+05 0.66758E-50 0.93746E-61 0.91353E-56 - 5 2 0.34650E-04 0.10000E+01 0.52449E+05 0.56719E-49 0.12579E-59 0.77642E-55 - 5 2 0.34650E-04 0.10000E+01 0.42297E+05 0.42624E-48 0.17037E-58 0.58383E-54 - 5 2 0.34650E-04 0.10000E+01 0.34111E+05 0.30666E-47 0.23267E-57 0.42050E-53 - 5 2 0.34650E-04 0.10000E+01 0.27509E+05 0.21924E-46 0.31261E-56 0.30116E-52 - 5 2 0.34650E-04 0.10000E+01 0.22184E+05 0.15507E-45 0.41000E-55 0.21362E-51 - 5 2 0.34650E-04 0.10000E+01 0.17891E+05 0.10754E-44 0.52349E-54 0.14883E-50 - 5 2 0.34650E-04 0.10000E+01 0.14428E+05 0.72779E-44 0.65130E-53 0.10143E-49 - 5 2 0.34650E-04 0.10000E+01 0.11635E+05 0.48009E-43 0.78518E-52 0.67566E-49 - 5 2 0.34650E-04 0.10000E+01 0.93834E+04 0.30730E-42 0.89893E-51 0.43829E-48 - 5 2 0.34650E-04 0.10000E+01 0.75673E+04 0.18832E-41 0.96003E-50 0.27307E-47 - 5 2 0.34650E-04 0.10000E+01 0.61026E+04 0.10931E-40 0.10388E-48 0.15986E-46 - 5 2 0.34650E-04 0.10000E+01 0.49215E+04 0.63523E-40 0.15566E-47 0.88556E-46 - 5 2 0.34650E-04 0.10000E+01 0.39689E+04 0.45947E-39 0.35372E-46 0.53811E-45 - 5 2 0.34650E-04 0.10000E+01 0.32008E+04 0.15302E-36 0.28716E-43 0.14891E-42 - 5 2 0.34650E-04 0.10000E+01 0.25813E+04 0.99606E-28 0.41354E-34 0.90275E-34 - 5 2 0.34650E-04 0.10000E+01 0.20817E+04 0.16382E-11 0.24311E-17 0.14169E-17 + 5 2 0.34650E-04 0.10000E+01 0.80645E+05 0.53364E-08 0.33637E-19 0.72984E-14 + 5 2 0.34650E-04 0.10000E+01 0.65036E+05 0.68445E-08 0.77363E-19 0.93627E-14 + 5 2 0.34650E-04 0.10000E+01 0.52449E+05 0.86563E-08 0.17545E-18 0.11845E-13 + 5 2 0.34650E-04 0.10000E+01 0.42297E+05 0.10833E-07 0.39104E-18 0.14829E-13 + 5 2 0.34650E-04 0.10000E+01 0.34111E+05 0.13439E-07 0.85394E-18 0.18409E-13 + 5 2 0.34650E-04 0.10000E+01 0.27509E+05 0.16540E-07 0.18201E-17 0.22679E-13 + 5 2 0.34650E-04 0.10000E+01 0.22184E+05 0.20194E-07 0.37722E-17 0.27727E-13 + 5 2 0.34650E-04 0.10000E+01 0.17891E+05 0.24445E-07 0.76284E-17 0.33625E-13 + 5 2 0.34650E-04 0.10000E+01 0.14428E+05 0.29314E-07 0.15520E-16 0.40410E-13 + 5 2 0.34650E-04 0.10000E+01 0.11635E+05 0.34811E-07 0.34443E-16 0.48088E-13 + 5 2 0.34650E-04 0.10000E+01 0.93834E+04 0.40975E-07 0.92276E-16 0.56656E-13 + 5 2 0.34650E-04 0.10000E+01 0.75673E+04 0.47999E-07 0.30222E-15 0.66208E-13 + 5 2 0.34650E-04 0.10000E+01 0.61026E+04 0.56488E-07 0.11081E-14 0.77154E-13 + 5 2 0.34650E-04 0.10000E+01 0.49215E+04 0.67936E-07 0.41864E-14 0.90600E-13 + 5 2 0.34650E-04 0.10000E+01 0.39689E+04 0.85593E-07 0.15712E-13 0.10892E-12 + 5 2 0.34650E-04 0.10000E+01 0.32008E+04 0.11602E-06 0.58160E-13 0.13661E-12 + 5 2 0.34650E-04 0.10000E+01 0.25813E+04 0.17196E-06 0.21306E-12 0.18148E-12 + 5 2 0.34650E-04 0.10000E+01 0.20817E+04 0.27774E-06 0.77436E-12 0.25650E-12 5 2 0.34650E-04 0.10000E+01 0.16788E+04 0.47935E-06 0.27916E-11 0.38285E-12 5 2 0.34650E-04 0.10000E+01 0.13538E+04 0.86327E-06 0.99854E-11 0.59479E-12 5 2 0.34650E-04 0.10000E+01 0.10918E+04 0.15908E-05 0.35540E-10 0.94820E-12 @@ -27780,24 +27780,24 @@ VERSION 2.8.2 5 2 0.34650E-04 0.10000E+01 0.24221E+03 0.11093E-03 0.98223E-07 0.31843E-10 5 2 0.34650E-04 0.10000E+01 0.19533E+03 0.17300E-03 0.18640E-06 0.47855E-10 5 2 0.34650E-04 0.10000E+01 0.15752E+03 0.17300E-03 0.18640E-06 0.47855E-10 - 5 2 0.60462E-04 0.10000E+01 0.80645E+05 0.13771E-50 0.10302E-61 0.18837E-56 - 5 2 0.60462E-04 0.10000E+01 0.65036E+05 0.11649E-49 0.16358E-60 0.15941E-55 - 5 2 0.60462E-04 0.10000E+01 0.52449E+05 0.98972E-49 0.21949E-59 0.13548E-54 - 5 2 0.60462E-04 0.10000E+01 0.42297E+05 0.74376E-48 0.29729E-58 0.10188E-53 - 5 2 0.60462E-04 0.10000E+01 0.34111E+05 0.53511E-47 0.40599E-57 0.73375E-53 - 5 2 0.60462E-04 0.10000E+01 0.27509E+05 0.38256E-46 0.54548E-56 0.52550E-52 - 5 2 0.60462E-04 0.10000E+01 0.22184E+05 0.27058E-45 0.71542E-55 0.37276E-51 - 5 2 0.60462E-04 0.10000E+01 0.17891E+05 0.18764E-44 0.91345E-54 0.25969E-50 - 5 2 0.60462E-04 0.10000E+01 0.14428E+05 0.12700E-43 0.11365E-52 0.17699E-49 - 5 2 0.60462E-04 0.10000E+01 0.11635E+05 0.83772E-43 0.13701E-51 0.11790E-48 - 5 2 0.60462E-04 0.10000E+01 0.93834E+04 0.53622E-42 0.15686E-50 0.76478E-48 - 5 2 0.60462E-04 0.10000E+01 0.75673E+04 0.32861E-41 0.16752E-49 0.47649E-47 - 5 2 0.60462E-04 0.10000E+01 0.61026E+04 0.19074E-40 0.18126E-48 0.27894E-46 - 5 2 0.60462E-04 0.10000E+01 0.49215E+04 0.11084E-39 0.27162E-47 0.15452E-45 - 5 2 0.60462E-04 0.10000E+01 0.39689E+04 0.80174E-39 0.61721E-46 0.93897E-45 - 5 2 0.60462E-04 0.10000E+01 0.32008E+04 0.26700E-36 0.50108E-43 0.25983E-42 - 5 2 0.60462E-04 0.10000E+01 0.25813E+04 0.17381E-27 0.72160E-34 0.15752E-33 - 5 2 0.60462E-04 0.10000E+01 0.20817E+04 0.28586E-11 0.42422E-17 0.24724E-17 + 5 2 0.60462E-04 0.10000E+01 0.80645E+05 0.93116E-08 0.58694E-19 0.12735E-13 + 5 2 0.60462E-04 0.10000E+01 0.65036E+05 0.11943E-07 0.13499E-18 0.16337E-13 + 5 2 0.60462E-04 0.10000E+01 0.52449E+05 0.15105E-07 0.30615E-18 0.20668E-13 + 5 2 0.60462E-04 0.10000E+01 0.42297E+05 0.18902E-07 0.68235E-18 0.25876E-13 + 5 2 0.60462E-04 0.10000E+01 0.34111E+05 0.23450E-07 0.14901E-17 0.32123E-13 + 5 2 0.60462E-04 0.10000E+01 0.27509E+05 0.28861E-07 0.31760E-17 0.39574E-13 + 5 2 0.60462E-04 0.10000E+01 0.22184E+05 0.35237E-07 0.65822E-17 0.48383E-13 + 5 2 0.60462E-04 0.10000E+01 0.17891E+05 0.42655E-07 0.13311E-16 0.58673E-13 + 5 2 0.60462E-04 0.10000E+01 0.14428E+05 0.51152E-07 0.27082E-16 0.70514E-13 + 5 2 0.60462E-04 0.10000E+01 0.11635E+05 0.60743E-07 0.60101E-16 0.83911E-13 + 5 2 0.60462E-04 0.10000E+01 0.93834E+04 0.71498E-07 0.16102E-15 0.98862E-13 + 5 2 0.60462E-04 0.10000E+01 0.75673E+04 0.83755E-07 0.52736E-15 0.11553E-12 + 5 2 0.60462E-04 0.10000E+01 0.61026E+04 0.98569E-07 0.19335E-14 0.13463E-12 + 5 2 0.60462E-04 0.10000E+01 0.49215E+04 0.11854E-06 0.73051E-14 0.15809E-12 + 5 2 0.60462E-04 0.10000E+01 0.39689E+04 0.14935E-06 0.27416E-13 0.19006E-12 + 5 2 0.60462E-04 0.10000E+01 0.32008E+04 0.20245E-06 0.10149E-12 0.23838E-12 + 5 2 0.60462E-04 0.10000E+01 0.25813E+04 0.30007E-06 0.37178E-12 0.31666E-12 + 5 2 0.60462E-04 0.10000E+01 0.20817E+04 0.48463E-06 0.13512E-11 0.44758E-12 5 2 0.60462E-04 0.10000E+01 0.16788E+04 0.83644E-06 0.48711E-11 0.66805E-12 5 2 0.60462E-04 0.10000E+01 0.13538E+04 0.15063E-05 0.17424E-10 0.10379E-11 5 2 0.60462E-04 0.10000E+01 0.10918E+04 0.27758E-05 0.62015E-10 0.16545E-11 @@ -27810,24 +27810,24 @@ VERSION 2.8.2 5 2 0.60462E-04 0.10000E+01 0.24221E+03 0.19356E-03 0.17139E-06 0.55564E-10 5 2 0.60462E-04 0.10000E+01 0.19533E+03 0.30188E-03 0.32525E-06 0.83504E-10 5 2 0.60462E-04 0.10000E+01 0.15752E+03 0.30188E-03 0.32525E-06 0.83504E-10 - 5 2 0.10550E-03 0.10000E+01 0.80645E+05 0.24029E-50 0.17976E-61 0.32870E-56 - 5 2 0.10550E-03 0.10000E+01 0.65036E+05 0.20326E-49 0.28544E-60 0.27815E-55 - 5 2 0.10550E-03 0.10000E+01 0.52449E+05 0.17270E-48 0.38300E-59 0.23641E-54 - 5 2 0.10550E-03 0.10000E+01 0.42297E+05 0.12978E-47 0.51875E-58 0.17777E-53 - 5 2 0.10550E-03 0.10000E+01 0.34111E+05 0.93374E-47 0.70842E-57 0.12804E-52 - 5 2 0.10550E-03 0.10000E+01 0.27509E+05 0.66755E-46 0.95184E-56 0.91697E-52 - 5 2 0.10550E-03 0.10000E+01 0.22184E+05 0.47215E-45 0.12484E-54 0.65043E-51 - 5 2 0.10550E-03 0.10000E+01 0.17891E+05 0.32742E-44 0.15939E-53 0.45315E-50 - 5 2 0.10550E-03 0.10000E+01 0.14428E+05 0.22160E-43 0.19831E-52 0.30883E-49 - 5 2 0.10550E-03 0.10000E+01 0.11635E+05 0.14618E-42 0.23907E-51 0.20573E-48 - 5 2 0.10550E-03 0.10000E+01 0.93834E+04 0.93566E-42 0.27371E-50 0.13345E-47 - 5 2 0.10550E-03 0.10000E+01 0.75673E+04 0.57341E-41 0.29231E-49 0.83145E-47 - 5 2 0.10550E-03 0.10000E+01 0.61026E+04 0.33283E-40 0.31629E-48 0.48674E-46 - 5 2 0.10550E-03 0.10000E+01 0.49215E+04 0.19342E-39 0.47396E-47 0.26964E-45 - 5 2 0.10550E-03 0.10000E+01 0.39689E+04 0.13990E-38 0.10770E-45 0.16384E-44 - 5 2 0.10550E-03 0.10000E+01 0.32008E+04 0.46590E-36 0.87436E-43 0.45339E-42 - 5 2 0.10550E-03 0.10000E+01 0.25813E+04 0.30328E-27 0.12592E-33 0.27487E-33 - 5 2 0.10550E-03 0.10000E+01 0.20817E+04 0.49880E-11 0.74023E-17 0.43143E-17 + 5 2 0.10550E-03 0.10000E+01 0.80645E+05 0.16248E-07 0.10242E-18 0.22222E-13 + 5 2 0.10550E-03 0.10000E+01 0.65036E+05 0.20840E-07 0.23556E-18 0.28508E-13 + 5 2 0.10550E-03 0.10000E+01 0.52449E+05 0.26357E-07 0.53421E-18 0.36065E-13 + 5 2 0.10550E-03 0.10000E+01 0.42297E+05 0.32984E-07 0.11907E-17 0.45152E-13 + 5 2 0.10550E-03 0.10000E+01 0.34111E+05 0.40919E-07 0.26001E-17 0.56052E-13 + 5 2 0.10550E-03 0.10000E+01 0.27509E+05 0.50361E-07 0.55420E-17 0.69053E-13 + 5 2 0.10550E-03 0.10000E+01 0.22184E+05 0.61487E-07 0.11485E-16 0.84425E-13 + 5 2 0.10550E-03 0.10000E+01 0.17891E+05 0.74430E-07 0.23227E-16 0.10238E-12 + 5 2 0.10550E-03 0.10000E+01 0.14428E+05 0.89257E-07 0.47257E-16 0.12304E-12 + 5 2 0.10550E-03 0.10000E+01 0.11635E+05 0.10599E-06 0.10487E-15 0.14642E-12 + 5 2 0.10550E-03 0.10000E+01 0.93834E+04 0.12476E-06 0.28096E-15 0.17251E-12 + 5 2 0.10550E-03 0.10000E+01 0.75673E+04 0.14615E-06 0.92021E-15 0.20159E-12 + 5 2 0.10550E-03 0.10000E+01 0.61026E+04 0.17200E-06 0.33738E-14 0.23492E-12 + 5 2 0.10550E-03 0.10000E+01 0.49215E+04 0.20685E-06 0.12747E-13 0.27586E-12 + 5 2 0.10550E-03 0.10000E+01 0.39689E+04 0.26061E-06 0.47839E-13 0.33165E-12 + 5 2 0.10550E-03 0.10000E+01 0.32008E+04 0.35326E-06 0.17709E-12 0.41596E-12 + 5 2 0.10550E-03 0.10000E+01 0.25813E+04 0.52360E-06 0.64873E-12 0.55256E-12 + 5 2 0.10550E-03 0.10000E+01 0.20817E+04 0.84566E-06 0.23578E-11 0.78101E-12 5 2 0.10550E-03 0.10000E+01 0.16788E+04 0.14595E-05 0.84998E-11 0.11657E-11 5 2 0.10550E-03 0.10000E+01 0.13538E+04 0.26285E-05 0.30404E-10 0.18110E-11 5 2 0.10550E-03 0.10000E+01 0.10918E+04 0.48436E-05 0.10821E-09 0.28871E-11 @@ -27840,24 +27840,24 @@ VERSION 2.8.2 5 2 0.10550E-03 0.10000E+01 0.24221E+03 0.33775E-03 0.29907E-06 0.96955E-10 5 2 0.10550E-03 0.10000E+01 0.19533E+03 0.52676E-03 0.56755E-06 0.14571E-09 5 2 0.10550E-03 0.10000E+01 0.15752E+03 0.52676E-03 0.56755E-06 0.14571E-09 - 5 2 0.18409E-03 0.10000E+01 0.80645E+05 0.41929E-50 0.31367E-61 0.57356E-56 - 5 2 0.18409E-03 0.10000E+01 0.65036E+05 0.35468E-49 0.49808E-60 0.48536E-55 - 5 2 0.18409E-03 0.10000E+01 0.52449E+05 0.30135E-48 0.66831E-59 0.41251E-54 - 5 2 0.18409E-03 0.10000E+01 0.42297E+05 0.22646E-47 0.90519E-58 0.31019E-53 - 5 2 0.18409E-03 0.10000E+01 0.34111E+05 0.16293E-46 0.12362E-56 0.22341E-52 - 5 2 0.18409E-03 0.10000E+01 0.27509E+05 0.11648E-45 0.16609E-55 0.16001E-51 - 5 2 0.18409E-03 0.10000E+01 0.22184E+05 0.82387E-45 0.21783E-54 0.11350E-50 - 5 2 0.18409E-03 0.10000E+01 0.17891E+05 0.57134E-44 0.27813E-53 0.79072E-50 - 5 2 0.18409E-03 0.10000E+01 0.14428E+05 0.38668E-43 0.34603E-52 0.53889E-49 - 5 2 0.18409E-03 0.10000E+01 0.11635E+05 0.25507E-42 0.41717E-51 0.35898E-48 - 5 2 0.18409E-03 0.10000E+01 0.93834E+04 0.16327E-41 0.47760E-50 0.23286E-47 - 5 2 0.18409E-03 0.10000E+01 0.75673E+04 0.10006E-40 0.51007E-49 0.14508E-46 - 5 2 0.18409E-03 0.10000E+01 0.61026E+04 0.58077E-40 0.55192E-48 0.84934E-46 - 5 2 0.18409E-03 0.10000E+01 0.49215E+04 0.33750E-39 0.82704E-47 0.47050E-45 - 5 2 0.18409E-03 0.10000E+01 0.39689E+04 0.24412E-38 0.18793E-45 0.28590E-44 - 5 2 0.18409E-03 0.10000E+01 0.32008E+04 0.81297E-36 0.15257E-42 0.79114E-42 - 5 2 0.18409E-03 0.10000E+01 0.25813E+04 0.52921E-27 0.21972E-33 0.47963E-33 - 5 2 0.18409E-03 0.10000E+01 0.20817E+04 0.87038E-11 0.12917E-16 0.75281E-17 + 5 2 0.18409E-03 0.10000E+01 0.80645E+05 0.28352E-07 0.17871E-18 0.38776E-13 + 5 2 0.18409E-03 0.10000E+01 0.65036E+05 0.36365E-07 0.41103E-18 0.49744E-13 + 5 2 0.18409E-03 0.10000E+01 0.52449E+05 0.45991E-07 0.93217E-18 0.62930E-13 + 5 2 0.18409E-03 0.10000E+01 0.42297E+05 0.57554E-07 0.20776E-17 0.78787E-13 + 5 2 0.18409E-03 0.10000E+01 0.34111E+05 0.71401E-07 0.45370E-17 0.97807E-13 + 5 2 0.18409E-03 0.10000E+01 0.27509E+05 0.87877E-07 0.96704E-17 0.12049E-12 + 5 2 0.18409E-03 0.10000E+01 0.22184E+05 0.10729E-06 0.20041E-16 0.14732E-12 + 5 2 0.18409E-03 0.10000E+01 0.17891E+05 0.12988E-06 0.40530E-16 0.17865E-12 + 5 2 0.18409E-03 0.10000E+01 0.14428E+05 0.15575E-06 0.82460E-16 0.21470E-12 + 5 2 0.18409E-03 0.10000E+01 0.11635E+05 0.18495E-06 0.18300E-15 0.25549E-12 + 5 2 0.18409E-03 0.10000E+01 0.93834E+04 0.21770E-06 0.49026E-15 0.30102E-12 + 5 2 0.18409E-03 0.10000E+01 0.75673E+04 0.25502E-06 0.16057E-14 0.35176E-12 + 5 2 0.18409E-03 0.10000E+01 0.61026E+04 0.30012E-06 0.58871E-14 0.40992E-12 + 5 2 0.18409E-03 0.10000E+01 0.49215E+04 0.36095E-06 0.22243E-13 0.48136E-12 + 5 2 0.18409E-03 0.10000E+01 0.39689E+04 0.45476E-06 0.83475E-13 0.57871E-12 + 5 2 0.18409E-03 0.10000E+01 0.32008E+04 0.61642E-06 0.30901E-12 0.72582E-12 + 5 2 0.18409E-03 0.10000E+01 0.25813E+04 0.91365E-06 0.11320E-11 0.96418E-12 + 5 2 0.18409E-03 0.10000E+01 0.20817E+04 0.14756E-05 0.41142E-11 0.13628E-11 5 2 0.18409E-03 0.10000E+01 0.16788E+04 0.25468E-05 0.14832E-10 0.20341E-11 5 2 0.18409E-03 0.10000E+01 0.13538E+04 0.45866E-05 0.53053E-10 0.31601E-11 5 2 0.18409E-03 0.10000E+01 0.10918E+04 0.84517E-05 0.18882E-09 0.50378E-11 @@ -27870,24 +27870,24 @@ VERSION 2.8.2 5 2 0.18409E-03 0.10000E+01 0.24221E+03 0.58936E-03 0.52186E-06 0.16918E-09 5 2 0.18409E-03 0.10000E+01 0.19533E+03 0.91916E-03 0.99033E-06 0.25425E-09 5 2 0.18409E-03 0.10000E+01 0.15752E+03 0.91916E-03 0.99033E-06 0.25425E-09 - 5 2 0.32123E-03 0.10000E+01 0.80645E+05 0.73164E-50 0.54734E-61 0.10008E-55 - 5 2 0.32123E-03 0.10000E+01 0.65036E+05 0.61890E-49 0.86911E-60 0.84693E-55 - 5 2 0.32123E-03 0.10000E+01 0.52449E+05 0.52584E-48 0.11662E-58 0.71981E-54 - 5 2 0.32123E-03 0.10000E+01 0.42297E+05 0.39516E-47 0.15795E-57 0.54126E-53 - 5 2 0.32123E-03 0.10000E+01 0.34111E+05 0.28431E-46 0.21570E-56 0.38984E-52 - 5 2 0.32123E-03 0.10000E+01 0.27509E+05 0.20326E-45 0.28982E-55 0.27920E-51 - 5 2 0.32123E-03 0.10000E+01 0.22184E+05 0.14376E-44 0.38011E-54 0.19805E-50 - 5 2 0.32123E-03 0.10000E+01 0.17891E+05 0.99695E-44 0.48532E-53 0.13798E-49 - 5 2 0.32123E-03 0.10000E+01 0.14428E+05 0.67473E-43 0.60381E-52 0.94033E-49 - 5 2 0.32123E-03 0.10000E+01 0.11635E+05 0.44508E-42 0.72793E-51 0.62639E-48 - 5 2 0.32123E-03 0.10000E+01 0.93834E+04 0.28489E-41 0.83339E-50 0.40633E-47 - 5 2 0.32123E-03 0.10000E+01 0.75673E+04 0.17459E-40 0.89004E-49 0.25316E-46 - 5 2 0.32123E-03 0.10000E+01 0.61026E+04 0.10134E-39 0.96306E-48 0.14820E-45 - 5 2 0.32123E-03 0.10000E+01 0.49215E+04 0.58891E-39 0.14431E-46 0.82099E-45 - 5 2 0.32123E-03 0.10000E+01 0.39689E+04 0.42597E-38 0.32793E-45 0.49888E-44 - 5 2 0.32123E-03 0.10000E+01 0.32008E+04 0.14186E-35 0.26623E-42 0.13805E-41 - 5 2 0.32123E-03 0.10000E+01 0.25813E+04 0.92343E-27 0.38339E-33 0.83693E-33 - 5 2 0.32123E-03 0.10000E+01 0.20817E+04 0.15188E-10 0.22539E-16 0.13136E-16 + 5 2 0.32123E-03 0.10000E+01 0.80645E+05 0.49473E-07 0.31184E-18 0.67662E-13 + 5 2 0.32123E-03 0.10000E+01 0.65036E+05 0.63455E-07 0.71722E-18 0.86801E-13 + 5 2 0.32123E-03 0.10000E+01 0.52449E+05 0.80252E-07 0.16266E-17 0.10981E-12 + 5 2 0.32123E-03 0.10000E+01 0.42297E+05 0.10043E-06 0.36253E-17 0.13748E-12 + 5 2 0.32123E-03 0.10000E+01 0.34111E+05 0.12459E-06 0.79167E-17 0.17067E-12 + 5 2 0.32123E-03 0.10000E+01 0.27509E+05 0.15334E-06 0.16874E-16 0.21025E-12 + 5 2 0.32123E-03 0.10000E+01 0.22184E+05 0.18722E-06 0.34971E-16 0.25706E-12 + 5 2 0.32123E-03 0.10000E+01 0.17891E+05 0.22662E-06 0.70722E-16 0.31173E-12 + 5 2 0.32123E-03 0.10000E+01 0.14428E+05 0.27177E-06 0.14389E-15 0.37464E-12 + 5 2 0.32123E-03 0.10000E+01 0.11635E+05 0.32273E-06 0.31932E-15 0.44582E-12 + 5 2 0.32123E-03 0.10000E+01 0.93834E+04 0.37987E-06 0.85548E-15 0.52525E-12 + 5 2 0.32123E-03 0.10000E+01 0.75673E+04 0.44499E-06 0.28019E-14 0.61381E-12 + 5 2 0.32123E-03 0.10000E+01 0.61026E+04 0.52370E-06 0.10273E-13 0.71529E-12 + 5 2 0.32123E-03 0.10000E+01 0.49215E+04 0.62983E-06 0.38812E-13 0.83994E-12 + 5 2 0.32123E-03 0.10000E+01 0.39689E+04 0.79352E-06 0.14566E-12 0.10098E-11 + 5 2 0.32123E-03 0.10000E+01 0.32008E+04 0.10756E-05 0.53920E-12 0.12665E-11 + 5 2 0.32123E-03 0.10000E+01 0.25813E+04 0.15943E-05 0.19753E-11 0.16824E-11 + 5 2 0.32123E-03 0.10000E+01 0.20817E+04 0.25749E-05 0.71790E-11 0.23780E-11 5 2 0.32123E-03 0.10000E+01 0.16788E+04 0.44440E-05 0.25880E-10 0.35494E-11 5 2 0.32123E-03 0.10000E+01 0.13538E+04 0.80033E-05 0.92574E-10 0.55142E-11 5 2 0.32123E-03 0.10000E+01 0.10918E+04 0.14748E-04 0.32948E-09 0.87906E-11 @@ -27950,24 +27950,24 @@ VERSION 2.8.2 5 3 0.10550E-03 0.10000E+01 0.17426E+01 0.24563E+01 0.73682E-01 0.10969E-02 0.14245E+00 0.19160E-03 0.46642E+10 0.21339E+03 0.50000E+03 0.11796E-14 0.85746E-02 0.57609E-02 0.32805E+02 5 3 0.18409E-03 0.10000E+01 0.17426E+01 0.24563E+01 0.22435E+00 0.19141E-02 0.24856E+00 0.19160E-03 0.81388E+10 0.37235E+03 0.50000E+03 0.20583E-14 0.14962E-01 0.57609E-02 0.32805E+02 5 3 0.32123E-03 0.10000E+01 0.17426E+01 0.24563E+01 0.68310E+00 0.33399E-02 0.43373E+00 0.19160E-03 0.14202E+11 0.64973E+03 0.50000E+03 0.35917E-14 0.26108E-01 0.57609E-02 0.32805E+02 - 5 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 5 3 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 5 3 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 5 3 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 5 3 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 5 3 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 5 3 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 5 3 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 5 3 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 5 3 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 5 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 5 3 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 5 3 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 5 3 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 5 3 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 5 3 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 5 3 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 5 3 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 5 3 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 5 3 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 5 3 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 5 3 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 5 3 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 5 3 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 5 3 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 5 3 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 5 3 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 5 3 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 5 3 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 5 3 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 5 3 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 5 3 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 5 3 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 5 3 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 5 3 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 5 3 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 5 3 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 5 3 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 5 3 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -27980,24 +27980,24 @@ VERSION 2.8.2 5 3 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 5 3 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 5 3 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 5 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 5 3 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 5 3 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 5 3 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 5 3 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 5 3 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 5 3 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 5 3 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 5 3 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 5 3 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 5 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 5 3 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 5 3 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 5 3 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 5 3 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 5 3 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 5 3 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 5 3 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 5 3 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 5 3 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 5 3 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 5 3 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 5 3 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 5 3 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 5 3 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 5 3 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 5 3 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 5 3 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 5 3 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 5 3 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 5 3 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 5 3 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 5 3 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 5 3 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 5 3 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 5 3 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 5 3 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 5 3 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 5 3 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -28010,24 +28010,24 @@ VERSION 2.8.2 5 3 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 5 3 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 5 3 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 5 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 5 3 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 5 3 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 5 3 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 5 3 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 5 3 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 5 3 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 5 3 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 5 3 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 5 3 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 5 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 5 3 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 5 3 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 5 3 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 5 3 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 5 3 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 5 3 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 5 3 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 5 3 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 5 3 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 5 3 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 5 3 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 5 3 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 5 3 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 5 3 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 5 3 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 5 3 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 5 3 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 5 3 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 5 3 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 5 3 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 5 3 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 5 3 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 5 3 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 5 3 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 5 3 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 5 3 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 5 3 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 5 3 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -28040,24 +28040,24 @@ VERSION 2.8.2 5 3 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 5 3 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 5 3 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 5 3 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 5 3 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 5 3 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 5 3 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 5 3 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 5 3 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 5 3 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 5 3 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 5 3 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 5 3 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 5 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 5 3 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 5 3 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 5 3 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 5 3 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 5 3 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 5 3 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 5 3 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 5 3 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 5 3 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 5 3 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 5 3 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 5 3 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 5 3 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 5 3 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 5 3 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 5 3 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 5 3 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 5 3 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 5 3 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 5 3 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 5 3 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 5 3 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 5 3 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 5 3 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 5 3 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 5 3 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 5 3 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 5 3 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -28070,24 +28070,24 @@ VERSION 2.8.2 5 3 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 5 3 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 5 3 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 5 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 5 3 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 5 3 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 5 3 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 5 3 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 5 3 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 5 3 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 5 3 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 5 3 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 5 3 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 5 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 5 3 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 5 3 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 5 3 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 5 3 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 5 3 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 5 3 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 5 3 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 5 3 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 5 3 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 5 3 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 5 3 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 5 3 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 5 3 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 5 3 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 5 3 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 5 3 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 5 3 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 5 3 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 5 3 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 5 3 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 5 3 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 5 3 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 5 3 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 5 3 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 5 3 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 5 3 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 5 3 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 5 3 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -28100,24 +28100,24 @@ VERSION 2.8.2 5 3 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 5 3 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 5 3 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 5 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 5 3 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 5 3 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 5 3 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 5 3 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 5 3 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 5 3 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 5 3 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 5 3 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 5 3 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 5 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 5 3 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 5 3 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 5 3 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 5 3 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 5 3 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 5 3 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 5 3 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 5 3 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 5 3 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 5 3 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 5 3 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 5 3 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 5 3 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 5 3 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 5 3 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 5 3 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 5 3 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 5 3 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 5 3 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 5 3 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 5 3 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 5 3 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 5 3 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 5 3 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 5 3 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 5 3 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 5 3 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 5 3 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -28130,24 +28130,24 @@ VERSION 2.8.2 5 3 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 5 3 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 5 3 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 5 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 5 3 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 5 3 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 5 3 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 5 3 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 5 3 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 5 3 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 5 3 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 5 3 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 5 3 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 5 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 5 3 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 5 3 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 5 3 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 5 3 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 5 3 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 5 3 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 5 3 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 5 3 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 5 3 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 5 3 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 5 3 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 5 3 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 5 3 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 5 3 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 5 3 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 5 3 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 5 3 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 5 3 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 5 3 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 5 3 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 5 3 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 5 3 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 5 3 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 5 3 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 5 3 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 5 3 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 5 3 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 5 3 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -28160,24 +28160,24 @@ VERSION 2.8.2 5 3 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 5 3 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 5 3 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 5 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 5 3 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 5 3 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 5 3 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 5 3 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 5 3 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 5 3 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 5 3 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 5 3 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 5 3 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 5 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 5 3 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 5 3 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 5 3 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 5 3 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 5 3 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 5 3 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 5 3 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 5 3 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 5 3 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 5 3 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 5 3 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 5 3 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 5 3 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 5 3 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 5 3 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 5 3 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 5 3 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 5 3 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 5 3 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 5 3 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 5 3 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 5 3 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 5 3 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 5 3 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 5 3 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 5 3 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 5 3 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 5 3 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -28190,24 +28190,24 @@ VERSION 2.8.2 5 3 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 5 3 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 5 3 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 5 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 5 3 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 5 3 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 5 3 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 5 3 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 5 3 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 5 3 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 5 3 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 5 3 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 5 3 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 5 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 5 3 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 5 3 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 5 3 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 5 3 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 5 3 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 5 3 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 5 3 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 5 3 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 5 3 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 5 3 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 5 3 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 5 3 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 5 3 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 5 3 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 5 3 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 5 3 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 5 3 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 5 3 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 5 3 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 5 3 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 5 3 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 5 3 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 5 3 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 5 3 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 5 3 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 5 3 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 5 3 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 5 3 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -28220,24 +28220,24 @@ VERSION 2.8.2 5 3 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 5 3 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 5 3 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 5 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 5 3 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 5 3 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 5 3 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 5 3 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 5 3 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 5 3 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 5 3 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 5 3 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 5 3 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 5 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 5 3 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 5 3 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 5 3 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 5 3 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 5 3 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 5 3 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 5 3 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 5 3 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 5 3 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 5 3 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 5 3 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 5 3 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 5 3 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 5 3 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 5 3 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 5 3 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 5 3 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 5 3 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 5 3 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 5 3 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 5 3 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 5 3 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 5 3 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 5 3 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 5 3 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 5 3 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 5 3 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 5 3 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -28250,24 +28250,24 @@ VERSION 2.8.2 5 3 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 5 3 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 5 3 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 5 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 5 3 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 5 3 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 5 3 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 5 3 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 5 3 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 5 3 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 5 3 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 5 3 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 5 3 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 5 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 5 3 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 5 3 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 5 3 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 5 3 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 5 3 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 5 3 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 5 3 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 5 3 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 5 3 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 5 3 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 5 3 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 5 3 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 5 3 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 5 3 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 5 3 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 5 3 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 5 3 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 5 3 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 5 3 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 5 3 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 5 3 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 5 3 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 5 3 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 5 3 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 5 3 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 5 3 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 5 3 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 5 3 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -28280,24 +28280,24 @@ VERSION 2.8.2 5 3 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 5 3 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 5 3 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 5 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 5 3 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 5 3 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 5 3 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 5 3 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 5 3 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 5 3 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 5 3 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 5 3 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 5 3 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 5 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 5 3 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 5 3 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 5 3 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 5 3 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 5 3 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 5 3 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 5 3 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 5 3 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 5 3 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 5 3 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 5 3 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 5 3 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 5 3 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 5 3 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 5 3 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 5 3 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 5 3 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 5 3 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 5 3 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 5 3 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 5 3 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 5 3 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 5 3 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 5 3 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 5 3 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 5 3 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 5 3 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 5 3 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -28310,24 +28310,24 @@ VERSION 2.8.2 5 3 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 5 3 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 5 3 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 5 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 5 3 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 5 3 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 5 3 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 5 3 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 5 3 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 5 3 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 5 3 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 5 3 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 5 3 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 5 3 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 5 3 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 5 3 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 5 3 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 5 3 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 5 3 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 5 3 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 5 3 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 5 3 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 5 3 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 5 3 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 5 3 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 5 3 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 5 3 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 5 3 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 5 3 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 5 3 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 5 3 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 5 3 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 5 3 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 5 3 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 5 3 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 5 3 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 5 3 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 5 3 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 5 3 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 5 3 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 5 3 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 5 3 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -28340,24 +28340,24 @@ VERSION 2.8.2 5 3 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 5 3 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 5 3 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 5 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 5 3 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 5 3 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 5 3 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 5 3 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 5 3 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 5 3 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 5 3 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 5 3 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 5 3 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 5 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 5 3 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 5 3 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 5 3 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 5 3 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 5 3 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 5 3 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 5 3 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 5 3 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 5 3 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 5 3 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 5 3 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 5 3 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 5 3 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 5 3 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 5 3 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 5 3 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 5 3 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 5 3 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 5 3 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 5 3 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 5 3 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 5 3 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 5 3 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 5 3 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 5 3 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 5 3 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 5 3 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 5 3 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -28370,24 +28370,24 @@ VERSION 2.8.2 5 3 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 5 3 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 5 3 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 5 3 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 5 3 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 5 3 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 5 3 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 5 3 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 5 3 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 5 3 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 5 3 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 5 3 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 5 3 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 5 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 5 3 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 5 3 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 5 3 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 5 3 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 5 3 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 5 3 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 5 3 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 5 3 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 5 3 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 5 3 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 5 3 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 5 3 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 5 3 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 5 3 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 5 3 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 5 3 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 5 3 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 5 3 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 5 3 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 5 3 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 5 3 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 5 3 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 5 3 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 5 3 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 5 3 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 5 3 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 5 3 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 5 3 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -28400,24 +28400,24 @@ VERSION 2.8.2 5 3 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 5 3 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 5 3 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 5 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 5 3 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 5 3 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 5 3 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 5 3 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 5 3 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 5 3 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 5 3 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 5 3 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 5 3 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 5 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 5 3 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 5 3 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 5 3 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 5 3 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 5 3 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 5 3 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 5 3 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 5 3 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 5 3 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73018E-27 + 5 3 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 5 3 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 5 3 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 5 3 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 5 3 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 5 3 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 5 3 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 5 3 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13293E-23 + 5 3 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 5 3 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 5 3 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 5 3 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 5 3 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 5 3 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 5 3 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 5 3 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 5 3 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 5 3 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 5 3 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -28430,24 +28430,24 @@ VERSION 2.8.2 5 3 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 5 3 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 5 3 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 5 3 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69289E-70 - 5 3 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58689E-69 - 5 3 0.33734E-11 0.10000E+01 0.52449E+05 0.49918E-56 0.30034E-66 0.97614E-68 - 5 3 0.33734E-11 0.10000E+01 0.42297E+05 0.89370E-55 0.10197E-64 0.19084E-66 - 5 3 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36176E-65 - 5 3 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65987E-64 - 5 3 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 5 3 0.33734E-11 0.10000E+01 0.17891E+05 0.79426E-50 0.10550E-58 0.19302E-61 - 5 3 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30094E-60 - 5 3 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44396E-59 - 5 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63457E-58 - 5 3 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89579E-57 - 5 3 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 5 3 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41288E-50 0.17722E-54 - 5 3 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 5 3 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 5 3 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 5 3 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 5 3 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36202E-25 0.85288E-27 + 5 3 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17019E-26 + 5 3 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40457E-26 + 5 3 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10522E-25 + 5 3 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27860E-25 + 5 3 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72559E-25 + 5 3 0.33734E-11 0.10000E+01 0.22184E+05 0.75552E-13 0.48207E-21 0.18416E-24 + 5 3 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45647E-24 + 5 3 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98509E-20 0.11114E-23 + 5 3 0.33734E-11 0.10000E+01 0.11635E+05 0.10962E-11 0.44438E-19 0.26739E-23 + 5 3 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63860E-23 + 5 3 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 5 3 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 5 3 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84996E-22 + 5 3 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 5 3 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 5 3 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 5 3 0.33734E-11 0.10000E+01 0.20817E+04 0.96114E-09 0.51522E-14 0.23578E-20 5 3 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51714E-20 5 3 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76079E-13 0.11099E-19 5 3 0.33734E-11 0.10000E+01 0.10918E+04 0.94887E-08 0.28364E-12 0.23296E-19 @@ -28460,24 +28460,24 @@ VERSION 2.8.2 5 3 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 5 3 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 5 3 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 5 3 0.58864E-11 0.10000E+01 0.80645E+05 0.18691E-58 0.19570E-69 0.24242E-69 - 5 3 0.58864E-11 0.10000E+01 0.65036E+05 0.22390E-57 0.64784E-68 0.18976E-68 - 5 3 0.58864E-11 0.10000E+01 0.52449E+05 0.37608E-56 0.23348E-66 0.24434E-67 - 5 3 0.58864E-11 0.10000E+01 0.42297E+05 0.69439E-55 0.81224E-65 0.40734E-66 - 5 3 0.58864E-11 0.10000E+01 0.34111E+05 0.12655E-53 0.27615E-63 0.74408E-65 - 5 3 0.58864E-11 0.10000E+01 0.27509E+05 0.22561E-52 0.91774E-62 0.13621E-63 - 5 3 0.58864E-11 0.10000E+01 0.22184E+05 0.39172E-51 0.29120E-60 0.24108E-62 - 5 3 0.58864E-11 0.10000E+01 0.17891E+05 0.64896E-50 0.86316E-59 0.40320E-61 - 5 3 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24134E-57 0.62981E-60 - 5 3 0.58864E-11 0.10000E+01 0.11635E+05 0.14899E-47 0.65456E-56 0.92966E-59 - 5 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21298E-46 0.17577E-54 0.13290E-57 - 5 3 0.58864E-11 0.10000E+01 0.75673E+04 0.30062E-45 0.47102E-53 0.18764E-56 - 5 3 0.58864E-11 0.10000E+01 0.61026E+04 0.42279E-44 0.12620E-51 0.26407E-55 - 5 3 0.58864E-11 0.10000E+01 0.49215E+04 0.59421E-43 0.33814E-50 0.37145E-54 - 5 3 0.58864E-11 0.10000E+01 0.39689E+04 0.83506E-42 0.90601E-49 0.52250E-53 - 5 3 0.58864E-11 0.10000E+01 0.32008E+04 0.36906E-39 0.78496E-46 0.23115E-50 - 5 3 0.58864E-11 0.10000E+01 0.25813E+04 0.26989E-30 0.13160E-36 0.16921E-41 - 5 3 0.58864E-11 0.10000E+01 0.20817E+04 0.51232E-14 0.11143E-19 0.32157E-25 + 5 3 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29317E-25 0.24782E-26 + 5 3 0.58864E-11 0.10000E+01 0.65036E+05 0.49662E-15 0.15796E-24 0.43811E-26 + 5 3 0.58864E-11 0.10000E+01 0.52449E+05 0.12855E-14 0.81164E-24 0.93902E-26 + 5 3 0.58864E-11 0.10000E+01 0.42297E+05 0.34688E-14 0.39779E-23 0.23016E-25 + 5 3 0.58864E-11 0.10000E+01 0.34111E+05 0.93047E-14 0.18786E-22 0.59338E-25 + 5 3 0.58864E-11 0.10000E+01 0.27509E+05 0.24329E-13 0.86632E-22 0.15291E-24 + 5 3 0.58864E-11 0.10000E+01 0.22184E+05 0.61809E-13 0.39446E-21 0.38656E-24 + 5 3 0.58864E-11 0.10000E+01 0.17891E+05 0.15322E-12 0.17857E-20 0.95684E-24 + 5 3 0.58864E-11 0.10000E+01 0.14428E+05 0.37298E-12 0.80656E-20 0.23289E-23 + 5 3 0.58864E-11 0.10000E+01 0.11635E+05 0.89704E-12 0.36398E-19 0.56031E-23 + 5 3 0.58864E-11 0.10000E+01 0.93834E+04 0.21415E-11 0.16413E-18 0.13385E-22 + 5 3 0.58864E-11 0.10000E+01 0.75673E+04 0.50898E-11 0.73795E-18 0.31836E-22 + 5 3 0.58864E-11 0.10000E+01 0.61026E+04 0.12060E-10 0.32896E-17 0.75492E-22 + 5 3 0.58864E-11 0.10000E+01 0.49215E+04 0.28461E-10 0.14424E-16 0.17830E-21 + 5 3 0.58864E-11 0.10000E+01 0.39689E+04 0.66692E-10 0.61857E-16 0.41812E-21 + 5 3 0.58864E-11 0.10000E+01 0.32008E+04 0.15448E-09 0.25906E-15 0.96911E-21 + 5 3 0.58864E-11 0.10000E+01 0.25813E+04 0.35223E-09 0.10596E-14 0.22109E-20 + 5 3 0.58864E-11 0.10000E+01 0.20817E+04 0.78837E-09 0.42277E-14 0.49505E-20 5 3 0.58864E-11 0.10000E+01 0.16788E+04 0.17288E-08 0.16440E-13 0.10860E-19 5 3 0.58864E-11 0.10000E+01 0.13538E+04 0.37097E-08 0.62433E-13 0.23308E-19 5 3 0.58864E-11 0.10000E+01 0.10918E+04 0.77857E-08 0.23277E-12 0.48928E-19 @@ -28490,24 +28490,24 @@ VERSION 2.8.2 5 3 0.58864E-11 0.10000E+01 0.24221E+03 0.77295E-06 0.71310E-09 0.48594E-17 5 3 0.58864E-11 0.10000E+01 0.19533E+03 0.12182E-05 0.13551E-08 0.76584E-17 5 3 0.58864E-11 0.10000E+01 0.15752E+03 0.12182E-05 0.13551E-08 0.76584E-17 - 5 3 0.10271E-10 0.10000E+01 0.80645E+05 0.28444E-58 0.21428E-69 0.93074E-69 - 5 3 0.10271E-10 0.10000E+01 0.65036E+05 0.25729E-57 0.63705E-68 0.74476E-68 - 5 3 0.10271E-10 0.10000E+01 0.52449E+05 0.37511E-56 0.22053E-66 0.73212E-67 - 5 3 0.10271E-10 0.10000E+01 0.42297E+05 0.66181E-55 0.77494E-65 0.87566E-66 - 5 3 0.10271E-10 0.10000E+01 0.34111E+05 0.12105E-53 0.26794E-63 0.13786E-64 - 5 3 0.10271E-10 0.10000E+01 0.27509E+05 0.21883E-52 0.89970E-62 0.24577E-63 - 5 3 0.10271E-10 0.10000E+01 0.22184E+05 0.38372E-51 0.28683E-60 0.43687E-62 - 5 3 0.10271E-10 0.10000E+01 0.17891E+05 0.63885E-50 0.85152E-59 0.73556E-61 - 5 3 0.10271E-10 0.10000E+01 0.14428E+05 0.99622E-49 0.23813E-57 0.11537E-59 - 5 3 0.10271E-10 0.10000E+01 0.11635E+05 0.14700E-47 0.64583E-56 0.17064E-58 - 5 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21014E-46 0.17344E-54 0.24420E-57 - 5 3 0.10271E-10 0.10000E+01 0.75673E+04 0.29665E-45 0.46496E-53 0.34506E-56 - 5 3 0.10271E-10 0.10000E+01 0.61026E+04 0.41736E-44 0.12464E-51 0.48597E-55 - 5 3 0.10271E-10 0.10000E+01 0.49215E+04 0.58684E-43 0.33413E-50 0.68411E-54 - 5 3 0.10271E-10 0.10000E+01 0.39689E+04 0.82513E-42 0.89573E-49 0.96303E-53 - 5 3 0.10271E-10 0.10000E+01 0.32008E+04 0.36486E-39 0.77644E-46 0.42633E-50 - 5 3 0.10271E-10 0.10000E+01 0.25813E+04 0.26697E-30 0.13024E-36 0.31230E-41 - 5 3 0.10271E-10 0.10000E+01 0.20817E+04 0.50708E-14 0.11035E-19 0.59396E-25 + 5 3 0.10271E-10 0.10000E+01 0.80645E+05 0.30529E-15 0.28630E-25 0.76565E-26 + 5 3 0.10271E-10 0.10000E+01 0.65036E+05 0.59433E-15 0.15495E-24 0.11832E-25 + 5 3 0.10271E-10 0.10000E+01 0.52449E+05 0.13793E-14 0.79872E-24 0.21670E-25 + 5 3 0.10271E-10 0.10000E+01 0.42297E+05 0.35330E-14 0.39208E-23 0.47210E-25 + 5 3 0.10271E-10 0.10000E+01 0.34111E+05 0.92827E-14 0.18529E-22 0.11424E-24 + 5 3 0.10271E-10 0.10000E+01 0.27509E+05 0.24091E-13 0.85478E-22 0.28621E-24 + 5 3 0.10271E-10 0.10000E+01 0.22184E+05 0.61051E-13 0.38932E-21 0.71536E-24 + 5 3 0.10271E-10 0.10000E+01 0.17891E+05 0.15123E-12 0.17631E-20 0.17633E-23 + 5 3 0.10271E-10 0.10000E+01 0.14428E+05 0.36812E-12 0.79671E-20 0.42865E-23 + 5 3 0.10271E-10 0.10000E+01 0.11635E+05 0.88554E-12 0.35971E-19 0.10313E-22 + 5 3 0.10271E-10 0.10000E+01 0.93834E+04 0.21147E-11 0.16228E-18 0.24645E-22 + 5 3 0.10271E-10 0.10000E+01 0.75673E+04 0.50283E-11 0.72996E-18 0.58653E-22 + 5 3 0.10271E-10 0.10000E+01 0.61026E+04 0.11919E-10 0.32552E-17 0.13917E-21 + 5 3 0.10271E-10 0.10000E+01 0.49215E+04 0.28141E-10 0.14278E-16 0.32890E-21 + 5 3 0.10271E-10 0.10000E+01 0.39689E+04 0.65969E-10 0.61244E-16 0.77166E-21 + 5 3 0.10271E-10 0.10000E+01 0.32008E+04 0.15286E-09 0.25654E-15 0.17893E-20 + 5 3 0.10271E-10 0.10000E+01 0.25813E+04 0.34863E-09 0.10495E-14 0.40835E-20 + 5 3 0.10271E-10 0.10000E+01 0.20817E+04 0.78049E-09 0.41875E-14 0.91462E-20 5 3 0.10271E-10 0.10000E+01 0.16788E+04 0.17118E-08 0.16284E-13 0.20068E-19 5 3 0.10271E-10 0.10000E+01 0.13538E+04 0.36738E-08 0.61846E-13 0.43080E-19 5 3 0.10271E-10 0.10000E+01 0.10918E+04 0.77111E-08 0.23059E-12 0.90442E-19 @@ -28520,24 +28520,24 @@ VERSION 2.8.2 5 3 0.10271E-10 0.10000E+01 0.24221E+03 0.76571E-06 0.70642E-09 0.89847E-17 5 3 0.10271E-10 0.10000E+01 0.19533E+03 0.12068E-05 0.13424E-08 0.14160E-16 5 3 0.10271E-10 0.10000E+01 0.15752E+03 0.12068E-05 0.13424E-08 0.14160E-16 - 5 3 0.17923E-10 0.10000E+01 0.80645E+05 0.56974E-58 0.39458E-69 0.34512E-68 - 5 3 0.17923E-10 0.10000E+01 0.65036E+05 0.46742E-57 0.87557E-68 0.28619E-67 - 5 3 0.17923E-10 0.10000E+01 0.52449E+05 0.52506E-56 0.24068E-66 0.24925E-66 - 5 3 0.17923E-10 0.10000E+01 0.42297E+05 0.74459E-55 0.79957E-65 0.22235E-65 - 5 3 0.17923E-10 0.10000E+01 0.34111E+05 0.12643E-53 0.27733E-63 0.26441E-64 - 5 3 0.17923E-10 0.10000E+01 0.27509E+05 0.22703E-52 0.93966E-62 0.41822E-63 - 5 3 0.17923E-10 0.10000E+01 0.22184E+05 0.40073E-51 0.30137E-60 0.72619E-62 - 5 3 0.17923E-10 0.10000E+01 0.17891E+05 0.67090E-50 0.89723E-59 0.12295E-60 - 5 3 0.17923E-10 0.10000E+01 0.14428E+05 0.10493E-48 0.25117E-57 0.19453E-59 - 5 3 0.17923E-10 0.10000E+01 0.11635E+05 0.15502E-47 0.68147E-56 0.28947E-58 - 5 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22173E-46 0.18310E-54 0.41588E-57 - 5 3 0.17923E-10 0.10000E+01 0.75673E+04 0.31317E-45 0.49112E-53 0.58933E-56 - 5 3 0.17923E-10 0.10000E+01 0.61026E+04 0.44084E-44 0.13174E-51 0.83200E-55 - 5 3 0.17923E-10 0.10000E+01 0.49215E+04 0.62024E-43 0.35339E-50 0.11737E-53 - 5 3 0.17923E-10 0.10000E+01 0.39689E+04 0.87264E-42 0.94791E-49 0.16553E-52 - 5 3 0.17923E-10 0.10000E+01 0.32008E+04 0.38611E-39 0.82214E-46 0.73400E-50 - 5 3 0.17923E-10 0.10000E+01 0.25813E+04 0.28269E-30 0.13799E-36 0.53851E-41 - 5 3 0.17923E-10 0.10000E+01 0.20817E+04 0.53731E-14 0.11699E-19 0.10259E-24 + 5 3 0.17923E-10 0.10000E+01 0.80645E+05 0.51009E-15 0.30167E-25 0.24898E-25 + 5 3 0.17923E-10 0.10000E+01 0.65036E+05 0.85205E-15 0.16268E-24 0.34904E-25 + 5 3 0.17923E-10 0.10000E+01 0.52449E+05 0.17125E-14 0.83977E-24 0.54564E-25 + 5 3 0.17923E-10 0.10000E+01 0.42297E+05 0.40078E-14 0.41293E-23 0.10063E-24 + 5 3 0.17923E-10 0.10000E+01 0.34111E+05 0.10084E-13 0.19536E-22 0.21658E-24 + 5 3 0.17923E-10 0.10000E+01 0.27509E+05 0.25702E-13 0.90194E-22 0.51013E-24 + 5 3 0.17923E-10 0.10000E+01 0.22184E+05 0.64683E-13 0.41106E-21 0.12409E-23 + 5 3 0.17923E-10 0.10000E+01 0.17891E+05 0.15984E-12 0.18627E-20 0.30273E-23 + 5 3 0.17923E-10 0.10000E+01 0.14428E+05 0.38882E-12 0.84221E-20 0.73376E-23 + 5 3 0.17923E-10 0.10000E+01 0.11635E+05 0.93541E-12 0.38048E-19 0.17655E-22 + 5 3 0.17923E-10 0.10000E+01 0.93834E+04 0.22347E-11 0.17175E-18 0.42242E-22 + 5 3 0.17923E-10 0.10000E+01 0.75673E+04 0.53162E-11 0.77294E-18 0.10069E-21 + 5 3 0.17923E-10 0.10000E+01 0.61026E+04 0.12608E-10 0.34484E-17 0.23929E-21 + 5 3 0.17923E-10 0.10000E+01 0.49215E+04 0.29783E-10 0.15130E-16 0.56632E-21 + 5 3 0.17923E-10 0.10000E+01 0.39689E+04 0.69851E-10 0.64917E-16 0.13303E-20 + 5 3 0.17923E-10 0.10000E+01 0.32008E+04 0.16191E-09 0.27198E-15 0.30878E-20 + 5 3 0.17923E-10 0.10000E+01 0.25813E+04 0.36941E-09 0.11128E-14 0.70526E-20 + 5 3 0.17923E-10 0.10000E+01 0.20817E+04 0.82722E-09 0.44407E-14 0.15806E-19 5 3 0.17923E-10 0.10000E+01 0.16788E+04 0.18147E-08 0.17270E-13 0.34696E-19 5 3 0.17923E-10 0.10000E+01 0.13538E+04 0.38951E-08 0.65593E-13 0.74510E-19 5 3 0.17923E-10 0.10000E+01 0.10918E+04 0.81766E-08 0.24457E-12 0.15647E-18 @@ -28550,24 +28550,24 @@ VERSION 2.8.2 5 3 0.17923E-10 0.10000E+01 0.24221E+03 0.81212E-06 0.74925E-09 0.15552E-16 5 3 0.17923E-10 0.10000E+01 0.19533E+03 0.12799E-05 0.14238E-08 0.24511E-16 5 3 0.17923E-10 0.10000E+01 0.15752E+03 0.12799E-05 0.14238E-08 0.24511E-16 - 5 3 0.31275E-10 0.10000E+01 0.80645E+05 0.12254E-57 0.87767E-69 0.11986E-67 - 5 3 0.31275E-10 0.10000E+01 0.65036E+05 0.10111E-56 0.15583E-67 0.10190E-66 - 5 3 0.31275E-10 0.10000E+01 0.52449E+05 0.94440E-56 0.30592E-66 0.86548E-66 - 5 3 0.31275E-10 0.10000E+01 0.42297E+05 0.99165E-55 0.84922E-65 0.67747E-65 - 5 3 0.31275E-10 0.10000E+01 0.34111E+05 0.13809E-53 0.28136E-63 0.60987E-64 - 5 3 0.31275E-10 0.10000E+01 0.27509E+05 0.23250E-52 0.95151E-62 0.75009E-63 - 5 3 0.31275E-10 0.10000E+01 0.22184E+05 0.40683E-51 0.30749E-60 0.11815E-61 - 5 3 0.31275E-10 0.10000E+01 0.17891E+05 0.68458E-50 0.92100E-59 0.19861E-60 - 5 3 0.31275E-10 0.10000E+01 0.14428E+05 0.10765E-48 0.25868E-57 0.31859E-59 - 5 3 0.31275E-10 0.10000E+01 0.11635E+05 0.15959E-47 0.70320E-56 0.47991E-58 - 5 3 0.31275E-10 0.10000E+01 0.93834E+04 0.22875E-46 0.18922E-54 0.69534E-57 - 5 3 0.31275E-10 0.10000E+01 0.75673E+04 0.32361E-45 0.50826E-53 0.99140E-56 - 5 3 0.31275E-10 0.10000E+01 0.61026E+04 0.45617E-44 0.13651E-51 0.14064E-54 - 5 3 0.31275E-10 0.10000E+01 0.49215E+04 0.64265E-43 0.36662E-50 0.19920E-53 - 5 3 0.31275E-10 0.10000E+01 0.39689E+04 0.90524E-42 0.98442E-49 0.28188E-52 - 5 3 0.31275E-10 0.10000E+01 0.32008E+04 0.40095E-39 0.85461E-46 0.12535E-49 - 5 3 0.31275E-10 0.10000E+01 0.25813E+04 0.29386E-30 0.14358E-36 0.92200E-41 - 5 3 0.31275E-10 0.10000E+01 0.20817E+04 0.55916E-14 0.12186E-19 0.17612E-24 + 5 3 0.31275E-10 0.10000E+01 0.80645E+05 0.93912E-15 0.31845E-25 0.81670E-25 + 5 3 0.31275E-10 0.10000E+01 0.65036E+05 0.13887E-14 0.16755E-24 0.10891E-24 + 5 3 0.31275E-10 0.10000E+01 0.52449E+05 0.23717E-14 0.86158E-24 0.15294E-24 + 5 3 0.31275E-10 0.10000E+01 0.42297E+05 0.48219E-14 0.42430E-23 0.24067E-24 + 5 3 0.31275E-10 0.10000E+01 0.34111E+05 0.11146E-13 0.20120E-22 0.44327E-24 + 5 3 0.31275E-10 0.10000E+01 0.27509E+05 0.27278E-13 0.93070E-22 0.93949E-24 + 5 3 0.31275E-10 0.10000E+01 0.22184E+05 0.67487E-13 0.42487E-21 0.21644E-23 + 5 3 0.31275E-10 0.10000E+01 0.17891E+05 0.16570E-12 0.19280E-20 0.51609E-23 + 5 3 0.31275E-10 0.10000E+01 0.14428E+05 0.40235E-12 0.87286E-20 0.12417E-22 + 5 3 0.31275E-10 0.10000E+01 0.11635E+05 0.96800E-12 0.39478E-19 0.29855E-22 + 5 3 0.31275E-10 0.10000E+01 0.93834E+04 0.23143E-11 0.17838E-18 0.71571E-22 + 5 3 0.31275E-10 0.10000E+01 0.75673E+04 0.55108E-11 0.80347E-18 0.17107E-21 + 5 3 0.31275E-10 0.10000E+01 0.61026E+04 0.13083E-10 0.35871E-17 0.40766E-21 + 5 3 0.31275E-10 0.10000E+01 0.49215E+04 0.30932E-10 0.15748E-16 0.96718E-21 + 5 3 0.31275E-10 0.10000E+01 0.39689E+04 0.72603E-10 0.67594E-16 0.22768E-20 + 5 3 0.31275E-10 0.10000E+01 0.32008E+04 0.16840E-09 0.28329E-15 0.52936E-20 + 5 3 0.31275E-10 0.10000E+01 0.25813E+04 0.38442E-09 0.11593E-14 0.12107E-19 + 5 3 0.31275E-10 0.10000E+01 0.20817E+04 0.86119E-09 0.46272E-14 0.27161E-19 5 3 0.31275E-10 0.10000E+01 0.16788E+04 0.18898E-08 0.17997E-13 0.59670E-19 5 3 0.31275E-10 0.10000E+01 0.13538E+04 0.40573E-08 0.68359E-13 0.12822E-18 5 3 0.31275E-10 0.10000E+01 0.10918E+04 0.85187E-08 0.25489E-12 0.26937E-18 @@ -28580,24 +28580,24 @@ VERSION 2.8.2 5 3 0.31275E-10 0.10000E+01 0.24221E+03 0.84640E-06 0.78088E-09 0.26797E-16 5 3 0.31275E-10 0.10000E+01 0.19533E+03 0.13339E-05 0.14839E-08 0.42233E-16 5 3 0.31275E-10 0.10000E+01 0.15752E+03 0.13339E-05 0.14839E-08 0.42233E-16 - 5 3 0.54572E-10 0.10000E+01 0.80645E+05 0.25989E-57 0.19307E-68 0.40683E-67 - 5 3 0.54572E-10 0.10000E+01 0.65036E+05 0.21898E-56 0.31323E-67 0.34753E-66 - 5 3 0.54572E-10 0.10000E+01 0.52449E+05 0.19008E-55 0.47980E-66 0.29417E-65 - 5 3 0.54572E-10 0.10000E+01 0.42297E+05 0.16112E-54 0.99461E-65 0.22024E-64 - 5 3 0.54572E-10 0.10000E+01 0.34111E+05 0.16888E-53 0.28139E-63 0.16686E-63 - 5 3 0.54572E-10 0.10000E+01 0.27509E+05 0.23830E-52 0.91500E-62 0.15363E-62 - 5 3 0.54572E-10 0.10000E+01 0.22184E+05 0.39509E-51 0.29771E-60 0.19930E-61 - 5 3 0.54572E-10 0.10000E+01 0.17891E+05 0.66412E-50 0.90236E-59 0.32167E-60 - 5 3 0.54572E-10 0.10000E+01 0.14428E+05 0.10541E-48 0.25542E-57 0.52208E-59 - 5 3 0.54572E-10 0.10000E+01 0.11635E+05 0.15746E-47 0.69768E-56 0.79811E-58 - 5 3 0.54572E-10 0.10000E+01 0.93834E+04 0.22685E-46 0.18840E-54 0.11681E-56 - 5 3 0.54572E-10 0.10000E+01 0.75673E+04 0.32210E-45 0.50754E-53 0.16770E-55 - 5 3 0.54572E-10 0.10000E+01 0.61026E+04 0.45543E-44 0.13666E-51 0.23917E-54 - 5 3 0.54572E-10 0.10000E+01 0.49215E+04 0.64327E-43 0.36785E-50 0.34023E-53 - 5 3 0.54572E-10 0.10000E+01 0.39689E+04 0.90812E-42 0.98957E-49 0.48321E-52 - 5 3 0.54572E-10 0.10000E+01 0.32008E+04 0.40301E-39 0.86052E-46 0.21555E-49 - 5 3 0.54572E-10 0.10000E+01 0.25813E+04 0.29589E-30 0.14482E-36 0.15901E-40 - 5 3 0.54572E-10 0.10000E+01 0.20817E+04 0.56412E-14 0.12314E-19 0.30470E-24 + 5 3 0.54572E-10 0.10000E+01 0.80645E+05 0.18249E-14 0.34353E-25 0.27286E-24 + 5 3 0.54572E-10 0.10000E+01 0.65036E+05 0.24988E-14 0.16825E-24 0.35495E-24 + 5 3 0.54572E-10 0.10000E+01 0.52449E+05 0.37121E-14 0.84888E-24 0.46887E-24 + 5 3 0.54572E-10 0.10000E+01 0.42297E+05 0.63672E-14 0.41775E-23 0.65729E-24 + 5 3 0.54572E-10 0.10000E+01 0.34111E+05 0.12819E-13 0.19883E-22 0.10361E-23 + 5 3 0.54572E-10 0.10000E+01 0.27509E+05 0.28927E-13 0.92351E-22 0.19021E-23 + 5 3 0.54572E-10 0.10000E+01 0.22184E+05 0.68860E-13 0.42309E-21 0.39871E-23 + 5 3 0.54572E-10 0.10000E+01 0.17891E+05 0.16645E-12 0.19257E-20 0.90594E-23 + 5 3 0.54572E-10 0.10000E+01 0.14428E+05 0.40210E-12 0.87403E-20 0.21360E-22 + 5 3 0.54572E-10 0.10000E+01 0.11635E+05 0.96683E-12 0.39616E-19 0.51027E-22 + 5 3 0.54572E-10 0.10000E+01 0.93834E+04 0.23142E-11 0.17933E-18 0.12227E-21 + 5 3 0.54572E-10 0.10000E+01 0.75673E+04 0.55204E-11 0.80901E-18 0.29279E-21 + 5 3 0.54572E-10 0.10000E+01 0.61026E+04 0.13129E-10 0.36163E-17 0.69950E-21 + 5 3 0.54572E-10 0.10000E+01 0.49215E+04 0.31094E-10 0.15891E-16 0.16638E-20 + 5 3 0.54572E-10 0.10000E+01 0.39689E+04 0.73088E-10 0.68259E-16 0.39254E-20 + 5 3 0.54572E-10 0.10000E+01 0.32008E+04 0.16973E-09 0.28623E-15 0.91436E-20 + 5 3 0.54572E-10 0.10000E+01 0.25813E+04 0.38781E-09 0.11718E-14 0.20943E-19 + 5 3 0.54572E-10 0.10000E+01 0.20817E+04 0.86939E-09 0.46783E-14 0.47040E-19 5 3 0.54572E-10 0.10000E+01 0.16788E+04 0.19089E-08 0.18200E-13 0.10343E-18 5 3 0.54572E-10 0.10000E+01 0.13538E+04 0.41000E-08 0.69136E-13 0.22240E-18 5 3 0.54572E-10 0.10000E+01 0.10918E+04 0.86109E-08 0.25780E-12 0.46747E-18 @@ -28610,24 +28610,24 @@ VERSION 2.8.2 5 3 0.54572E-10 0.10000E+01 0.24221E+03 0.85609E-06 0.78984E-09 0.46550E-16 5 3 0.54572E-10 0.10000E+01 0.19533E+03 0.13492E-05 0.15010E-08 0.73366E-16 5 3 0.54572E-10 0.10000E+01 0.15752E+03 0.13492E-05 0.15010E-08 0.73366E-16 - 5 3 0.95225E-10 0.10000E+01 0.80645E+05 0.53461E-57 0.40254E-68 0.14122E-66 - 5 3 0.95225E-10 0.10000E+01 0.65036E+05 0.45434E-56 0.63724E-67 0.11967E-65 - 5 3 0.95225E-10 0.10000E+01 0.52449E+05 0.38618E-55 0.87333E-66 0.10089E-64 - 5 3 0.95225E-10 0.10000E+01 0.42297E+05 0.29710E-54 0.13890E-64 0.74222E-64 - 5 3 0.95225E-10 0.10000E+01 0.34111E+05 0.24595E-53 0.29785E-63 0.51916E-63 - 5 3 0.95225E-10 0.10000E+01 0.27509E+05 0.26398E-52 0.86193E-62 0.38789E-62 - 5 3 0.95225E-10 0.10000E+01 0.22184E+05 0.38126E-51 0.27904E-60 0.38758E-61 - 5 3 0.95225E-10 0.10000E+01 0.17891E+05 0.62639E-50 0.86001E-59 0.55468E-60 - 5 3 0.95225E-10 0.10000E+01 0.14428E+05 0.10044E-48 0.24637E-57 0.88477E-59 - 5 3 0.95225E-10 0.10000E+01 0.11635E+05 0.15171E-47 0.67788E-56 0.13590E-57 - 5 3 0.95225E-10 0.10000E+01 0.93834E+04 0.22025E-46 0.18398E-54 0.19985E-56 - 5 3 0.95225E-10 0.10000E+01 0.75673E+04 0.31441E-45 0.49766E-53 0.28773E-55 - 5 3 0.95225E-10 0.10000E+01 0.61026E+04 0.44642E-44 0.13447E-51 0.41119E-54 - 5 3 0.95225E-10 0.10000E+01 0.49215E+04 0.63276E-43 0.36301E-50 0.58603E-53 - 5 3 0.95225E-10 0.10000E+01 0.39689E+04 0.89597E-42 0.97905E-49 0.83384E-52 - 5 3 0.95225E-10 0.10000E+01 0.32008E+04 0.39866E-39 0.85329E-46 0.37265E-49 - 5 3 0.95225E-10 0.10000E+01 0.25813E+04 0.29341E-30 0.14394E-36 0.27544E-40 - 5 3 0.95225E-10 0.10000E+01 0.20817E+04 0.56086E-14 0.12270E-19 0.52902E-24 + 5 3 0.95225E-10 0.10000E+01 0.80645E+05 0.36275E-14 0.40743E-25 0.94935E-24 + 5 3 0.95225E-10 0.10000E+01 0.65036E+05 0.47723E-14 0.17292E-24 0.12194E-23 + 5 3 0.95225E-10 0.10000E+01 0.52449E+05 0.64838E-14 0.82751E-24 0.15607E-23 + 5 3 0.95225E-10 0.10000E+01 0.42297E+05 0.96019E-14 0.40298E-23 0.20420E-23 + 5 3 0.95225E-10 0.10000E+01 0.34111E+05 0.16361E-13 0.19229E-22 0.28551E-23 + 5 3 0.95225E-10 0.10000E+01 0.27509E+05 0.32403E-13 0.89768E-22 0.44999E-23 + 5 3 0.95225E-10 0.10000E+01 0.22184E+05 0.71501E-13 0.41324E-21 0.82236E-23 + 5 3 0.95225E-10 0.10000E+01 0.17891E+05 0.16674E-12 0.18887E-20 0.17059E-22 + 5 3 0.95225E-10 0.10000E+01 0.14428E+05 0.39710E-12 0.86020E-20 0.38300E-22 + 5 3 0.95225E-10 0.10000E+01 0.11635E+05 0.95081E-12 0.39104E-19 0.89432E-22 + 5 3 0.95225E-10 0.10000E+01 0.93834E+04 0.22761E-11 0.17745E-18 0.21228E-21 + 5 3 0.95225E-10 0.10000E+01 0.75673E+04 0.54388E-11 0.80220E-18 0.50668E-21 + 5 3 0.95225E-10 0.10000E+01 0.61026E+04 0.12963E-10 0.35919E-17 0.12100E-20 + 5 3 0.95225E-10 0.10000E+01 0.49215E+04 0.30767E-10 0.15804E-16 0.28799E-20 + 5 3 0.95225E-10 0.10000E+01 0.39689E+04 0.72456E-10 0.67953E-16 0.68017E-20 + 5 3 0.95225E-10 0.10000E+01 0.32008E+04 0.16852E-09 0.28515E-15 0.15861E-19 + 5 3 0.95225E-10 0.10000E+01 0.25813E+04 0.38554E-09 0.11680E-14 0.36363E-19 + 5 3 0.95225E-10 0.10000E+01 0.20817E+04 0.86515E-09 0.46651E-14 0.81739E-19 5 3 0.95225E-10 0.10000E+01 0.16788E+04 0.19010E-08 0.18153E-13 0.17985E-18 5 3 0.95225E-10 0.10000E+01 0.13538E+04 0.40854E-08 0.68968E-13 0.38690E-18 5 3 0.95225E-10 0.10000E+01 0.10918E+04 0.85837E-08 0.25720E-12 0.81353E-18 @@ -28640,24 +28640,24 @@ VERSION 2.8.2 5 3 0.95225E-10 0.10000E+01 0.24221E+03 0.85411E-06 0.78803E-09 0.81069E-16 5 3 0.95225E-10 0.10000E+01 0.19533E+03 0.13461E-05 0.14975E-08 0.12777E-15 5 3 0.95225E-10 0.10000E+01 0.15752E+03 0.13461E-05 0.14975E-08 0.12777E-15 - 5 3 0.16616E-09 0.10000E+01 0.80645E+05 0.10714E-56 0.80397E-68 0.50208E-66 - 5 3 0.16616E-09 0.10000E+01 0.65036E+05 0.90781E-56 0.12652E-66 0.42268E-65 - 5 3 0.16616E-09 0.10000E+01 0.52449E+05 0.76628E-55 0.16673E-65 0.35572E-64 - 5 3 0.16616E-09 0.10000E+01 0.42297E+05 0.56896E-54 0.22832E-64 0.26097E-63 - 5 3 0.16616E-09 0.10000E+01 0.34111E+05 0.41461E-53 0.36971E-63 0.17908E-62 - 5 3 0.16616E-09 0.10000E+01 0.27509E+05 0.34534E-52 0.85936E-62 0.12227E-61 - 5 3 0.16616E-09 0.10000E+01 0.22184E+05 0.39674E-51 0.26427E-60 0.96450E-61 - 5 3 0.16616E-09 0.10000E+01 0.17891E+05 0.60212E-50 0.82123E-59 0.10844E-59 - 5 3 0.16616E-09 0.10000E+01 0.14428E+05 0.96102E-49 0.23782E-57 0.15695E-58 - 5 3 0.16616E-09 0.10000E+01 0.11635E+05 0.14634E-47 0.65853E-56 0.23595E-57 - 5 3 0.16616E-09 0.10000E+01 0.93834E+04 0.21381E-46 0.17944E-54 0.34587E-56 - 5 3 0.16616E-09 0.10000E+01 0.75673E+04 0.30654E-45 0.48691E-53 0.49761E-55 - 5 3 0.16616E-09 0.10000E+01 0.61026E+04 0.43667E-44 0.13193E-51 0.71068E-54 - 5 3 0.16616E-09 0.10000E+01 0.49215E+04 0.62069E-43 0.35705E-50 0.10125E-52 - 5 3 0.16616E-09 0.10000E+01 0.39689E+04 0.88112E-42 0.96515E-49 0.14409E-51 - 5 3 0.16616E-09 0.10000E+01 0.32008E+04 0.39296E-39 0.84295E-46 0.64430E-49 - 5 3 0.16616E-09 0.10000E+01 0.25813E+04 0.28988E-30 0.14251E-36 0.47671E-40 - 5 3 0.16616E-09 0.10000E+01 0.20817E+04 0.55552E-14 0.12179E-19 0.91699E-24 + 5 3 0.16616E-09 0.10000E+01 0.80645E+05 0.72201E-14 0.56506E-25 0.33910E-23 + 5 3 0.16616E-09 0.10000E+01 0.65036E+05 0.93218E-14 0.19628E-24 0.43343E-23 + 5 3 0.16616E-09 0.10000E+01 0.52449E+05 0.12093E-13 0.84118E-24 0.54741E-23 + 5 3 0.16616E-09 0.10000E+01 0.42297E+05 0.16307E-13 0.39449E-23 0.69261E-23 + 5 3 0.16616E-09 0.10000E+01 0.34111E+05 0.24070E-13 0.18682E-22 0.90090E-23 + 5 3 0.16616E-09 0.10000E+01 0.27509E+05 0.40791E-13 0.87321E-22 0.12567E-22 + 5 3 0.16616E-09 0.10000E+01 0.22184E+05 0.79821E-13 0.40321E-21 0.19732E-22 + 5 3 0.16616E-09 0.10000E+01 0.17891E+05 0.17344E-12 0.18485E-20 0.35721E-22 + 5 3 0.16616E-09 0.10000E+01 0.14428E+05 0.39901E-12 0.84425E-20 0.73120E-22 + 5 3 0.16616E-09 0.10000E+01 0.11635E+05 0.94145E-12 0.38475E-19 0.16212E-21 + 5 3 0.16616E-09 0.10000E+01 0.93834E+04 0.22421E-11 0.17498E-18 0.37502E-21 + 5 3 0.16616E-09 0.10000E+01 0.75673E+04 0.53530E-11 0.79254E-18 0.88453E-21 + 5 3 0.16616E-09 0.10000E+01 0.61026E+04 0.12770E-10 0.35543E-17 0.21015E-20 + 5 3 0.16616E-09 0.10000E+01 0.49215E+04 0.30352E-10 0.15658E-16 0.49923E-20 + 5 3 0.16616E-09 0.10000E+01 0.39689E+04 0.71584E-10 0.67390E-16 0.11786E-19 + 5 3 0.16616E-09 0.10000E+01 0.32008E+04 0.16672E-09 0.28300E-15 0.27488E-19 + 5 3 0.16616E-09 0.10000E+01 0.25813E+04 0.38186E-09 0.11598E-14 0.63045E-19 + 5 3 0.16616E-09 0.10000E+01 0.20817E+04 0.85768E-09 0.46340E-14 0.14178E-18 5 3 0.16616E-09 0.10000E+01 0.16788E+04 0.18859E-08 0.18037E-13 0.31207E-18 5 3 0.16616E-09 0.10000E+01 0.13538E+04 0.40553E-08 0.68537E-13 0.67158E-18 5 3 0.16616E-09 0.10000E+01 0.10918E+04 0.85240E-08 0.25561E-12 0.14125E-17 @@ -28670,24 +28670,24 @@ VERSION 2.8.2 5 3 0.16616E-09 0.10000E+01 0.24221E+03 0.84885E-06 0.78319E-09 0.14082E-15 5 3 0.16616E-09 0.10000E+01 0.19533E+03 0.13378E-05 0.14883E-08 0.22195E-15 5 3 0.16616E-09 0.10000E+01 0.15752E+03 0.13378E-05 0.14883E-08 0.22195E-15 - 5 3 0.28994E-09 0.10000E+01 0.80645E+05 0.21033E-56 0.15684E-67 0.17438E-65 - 5 3 0.28994E-09 0.10000E+01 0.65036E+05 0.17735E-55 0.24656E-66 0.14661E-64 - 5 3 0.28994E-09 0.10000E+01 0.52449E+05 0.14934E-54 0.32183E-65 0.12355E-63 - 5 3 0.28994E-09 0.10000E+01 0.42297E+05 0.10984E-53 0.41765E-64 0.91083E-63 - 5 3 0.28994E-09 0.10000E+01 0.34111E+05 0.76438E-53 0.57111E-63 0.62968E-62 - 5 3 0.28994E-09 0.10000E+01 0.27509E+05 0.55045E-52 0.10122E-61 0.42381E-61 - 5 3 0.28994E-09 0.10000E+01 0.22184E+05 0.49210E-51 0.26664E-60 0.29412E-60 - 5 3 0.28994E-09 0.10000E+01 0.17891E+05 0.62627E-50 0.80315E-59 0.25045E-59 - 5 3 0.28994E-09 0.10000E+01 0.14428E+05 0.94825E-49 0.23275E-57 0.29289E-58 - 5 3 0.28994E-09 0.10000E+01 0.11635E+05 0.14341E-47 0.64652E-56 0.40884E-57 - 5 3 0.28994E-09 0.10000E+01 0.93834E+04 0.20988E-46 0.17651E-54 0.59138E-56 - 5 3 0.28994E-09 0.10000E+01 0.75673E+04 0.30147E-45 0.47959E-53 0.85158E-55 - 5 3 0.28994E-09 0.10000E+01 0.61026E+04 0.43007E-44 0.13011E-51 0.12186E-53 - 5 3 0.28994E-09 0.10000E+01 0.49215E+04 0.61210E-43 0.35261E-50 0.17383E-52 - 5 3 0.28994E-09 0.10000E+01 0.39689E+04 0.87010E-42 0.95452E-49 0.24761E-51 - 5 3 0.28994E-09 0.10000E+01 0.32008E+04 0.38862E-39 0.83492E-46 0.11084E-48 - 5 3 0.28994E-09 0.10000E+01 0.25813E+04 0.28714E-30 0.14140E-36 0.82128E-40 - 5 3 0.28994E-09 0.10000E+01 0.20817E+04 0.55141E-14 0.12110E-19 0.15830E-23 + 5 3 0.28994E-09 0.10000E+01 0.80645E+05 0.14196E-13 0.91754E-25 0.11801E-22 + 5 3 0.28994E-09 0.10000E+01 0.65036E+05 0.18188E-13 0.26217E-24 0.15073E-22 + 5 3 0.28994E-09 0.10000E+01 0.52449E+05 0.23118E-13 0.94569E-24 0.18967E-22 + 5 3 0.28994E-09 0.10000E+01 0.42297E+05 0.29716E-13 0.40572E-23 0.23688E-22 + 5 3 0.28994E-09 0.10000E+01 0.34111E+05 0.39977E-13 0.18600E-22 0.29757E-22 + 5 3 0.28994E-09 0.10000E+01 0.27509E+05 0.59116E-13 0.86145E-22 0.38552E-22 + 5 3 0.28994E-09 0.10000E+01 0.22184E+05 0.10015E-12 0.39714E-21 0.53626E-22 + 5 3 0.28994E-09 0.10000E+01 0.17891E+05 0.19475E-12 0.18217E-20 0.83810E-22 + 5 3 0.28994E-09 0.10000E+01 0.14428E+05 0.41909E-12 0.83297E-20 0.15060E-21 + 5 3 0.28994E-09 0.10000E+01 0.11635E+05 0.95565E-12 0.38011E-19 0.30579E-21 + 5 3 0.28994E-09 0.10000E+01 0.93834E+04 0.22407E-11 0.17311E-18 0.67363E-21 + 5 3 0.28994E-09 0.10000E+01 0.75673E+04 0.53152E-11 0.78511E-18 0.15515E-20 + 5 3 0.28994E-09 0.10000E+01 0.61026E+04 0.12653E-10 0.35252E-17 0.36474E-20 + 5 3 0.28994E-09 0.10000E+01 0.49215E+04 0.30067E-10 0.15546E-16 0.86292E-20 + 5 3 0.28994E-09 0.10000E+01 0.39689E+04 0.70952E-10 0.66957E-16 0.20346E-19 + 5 3 0.28994E-09 0.10000E+01 0.32008E+04 0.16538E-09 0.28134E-15 0.47452E-19 + 5 3 0.28994E-09 0.10000E+01 0.25813E+04 0.37907E-09 0.11536E-14 0.10888E-18 + 5 3 0.28994E-09 0.10000E+01 0.20817E+04 0.85200E-09 0.46106E-14 0.24498E-18 5 3 0.28994E-09 0.10000E+01 0.16788E+04 0.18745E-08 0.17949E-13 0.53951E-18 5 3 0.28994E-09 0.10000E+01 0.13538E+04 0.40324E-08 0.68213E-13 0.11615E-17 5 3 0.28994E-09 0.10000E+01 0.10918E+04 0.84788E-08 0.25442E-12 0.24437E-17 @@ -28700,24 +28700,24 @@ VERSION 2.8.2 5 3 0.28994E-09 0.10000E+01 0.24221E+03 0.84488E-06 0.77953E-09 0.24378E-15 5 3 0.28994E-09 0.10000E+01 0.19533E+03 0.13316E-05 0.14814E-08 0.38421E-15 5 3 0.28994E-09 0.10000E+01 0.15752E+03 0.13316E-05 0.14814E-08 0.38421E-15 - 5 3 0.50593E-09 0.10000E+01 0.80645E+05 0.40590E-56 0.30176E-67 0.57074E-65 - 5 3 0.50593E-09 0.10000E+01 0.65036E+05 0.34151E-55 0.47501E-66 0.48032E-64 - 5 3 0.50593E-09 0.10000E+01 0.52449E+05 0.28770E-54 0.62161E-65 0.40563E-63 - 5 3 0.50593E-09 0.10000E+01 0.42297E+05 0.21189E-53 0.80221E-64 0.30075E-62 - 5 3 0.50593E-09 0.10000E+01 0.34111E+05 0.14659E-52 0.10350E-62 0.21033E-61 - 5 3 0.50593E-09 0.10000E+01 0.27509E+05 0.10029E-51 0.14869E-61 0.14303E-60 - 5 3 0.50593E-09 0.10000E+01 0.22184E+05 0.75013E-51 0.30117E-60 0.95416E-60 - 5 3 0.50593E-09 0.10000E+01 0.17891E+05 0.74269E-50 0.80809E-59 0.67533E-59 - 5 3 0.50593E-09 0.10000E+01 0.14428E+05 0.97716E-49 0.22868E-57 0.60021E-58 - 5 3 0.50593E-09 0.10000E+01 0.11635E+05 0.14190E-47 0.63504E-56 0.71222E-57 - 5 3 0.50593E-09 0.10000E+01 0.93834E+04 0.20640E-46 0.17378E-54 0.98770E-56 - 5 3 0.50593E-09 0.10000E+01 0.75673E+04 0.29678E-45 0.47289E-53 0.14243E-54 - 5 3 0.50593E-09 0.10000E+01 0.61026E+04 0.42400E-44 0.12843E-51 0.20547E-53 - 5 3 0.50593E-09 0.10000E+01 0.49215E+04 0.60416E-43 0.34842E-50 0.29491E-52 - 5 3 0.50593E-09 0.10000E+01 0.39689E+04 0.85974E-42 0.94427E-49 0.42180E-51 - 5 3 0.50593E-09 0.10000E+01 0.32008E+04 0.38444E-39 0.82705E-46 0.18940E-48 - 5 3 0.50593E-09 0.10000E+01 0.25813E+04 0.28447E-30 0.14030E-36 0.14074E-39 - 5 3 0.50593E-09 0.10000E+01 0.20817E+04 0.54734E-14 0.12040E-19 0.27220E-23 + 5 3 0.50593E-09 0.10000E+01 0.80645E+05 0.27448E-13 0.16488E-24 0.38639E-22 + 5 3 0.50593E-09 0.10000E+01 0.65036E+05 0.35085E-13 0.41085E-24 0.49387E-22 + 5 3 0.50593E-09 0.10000E+01 0.52449E+05 0.44258E-13 0.12197E-23 0.62141E-22 + 5 3 0.50593E-09 0.10000E+01 0.42297E+05 0.55685E-13 0.44889E-23 0.77319E-22 + 5 3 0.50593E-09 0.10000E+01 0.34111E+05 0.71256E-13 0.19073E-22 0.95760E-22 + 5 3 0.50593E-09 0.10000E+01 0.27509E+05 0.95942E-13 0.85889E-22 0.11960E-21 + 5 3 0.50593E-09 0.10000E+01 0.22184E+05 0.14235E-12 0.39269E-21 0.15448E-21 + 5 3 0.50593E-09 0.10000E+01 0.17891E+05 0.24145E-12 0.17984E-20 0.21487E-21 + 5 3 0.50593E-09 0.10000E+01 0.14428E+05 0.46821E-12 0.82263E-20 0.33676E-21 + 5 3 0.50593E-09 0.10000E+01 0.11635E+05 0.10027E-11 0.37575E-19 0.60788E-21 + 5 3 0.50593E-09 0.10000E+01 0.93834E+04 0.22761E-11 0.17132E-18 0.12400E-20 + 5 3 0.50593E-09 0.10000E+01 0.75673E+04 0.53191E-11 0.77787E-18 0.27419E-20 + 5 3 0.50593E-09 0.10000E+01 0.61026E+04 0.12583E-10 0.34965E-17 0.63281E-20 + 5 3 0.50593E-09 0.10000E+01 0.49215E+04 0.29837E-10 0.15433E-16 0.14865E-19 + 5 3 0.50593E-09 0.10000E+01 0.39689E+04 0.70383E-10 0.66524E-16 0.34977E-19 + 5 3 0.50593E-09 0.10000E+01 0.32008E+04 0.16411E-09 0.27969E-15 0.81578E-19 + 5 3 0.50593E-09 0.10000E+01 0.25813E+04 0.37636E-09 0.11473E-14 0.18732E-18 + 5 3 0.50593E-09 0.10000E+01 0.20817E+04 0.84639E-09 0.45870E-14 0.42185E-18 5 3 0.50593E-09 0.10000E+01 0.16788E+04 0.18631E-08 0.17861E-13 0.92978E-18 5 3 0.50593E-09 0.10000E+01 0.13538E+04 0.40095E-08 0.67886E-13 0.20031E-17 5 3 0.50593E-09 0.10000E+01 0.10918E+04 0.84333E-08 0.25321E-12 0.42165E-17 @@ -28730,24 +28730,24 @@ VERSION 2.8.2 5 3 0.50593E-09 0.10000E+01 0.24221E+03 0.84083E-06 0.77579E-09 0.42100E-15 5 3 0.50593E-09 0.10000E+01 0.19533E+03 0.13252E-05 0.14743E-08 0.66352E-15 5 3 0.50593E-09 0.10000E+01 0.15752E+03 0.13252E-05 0.14743E-08 0.66352E-15 - 5 3 0.88282E-09 0.10000E+01 0.80645E+05 0.77159E-56 0.57364E-67 0.17406E-64 - 5 3 0.88282E-09 0.10000E+01 0.65036E+05 0.64929E-55 0.90486E-66 0.14667E-63 - 5 3 0.88282E-09 0.10000E+01 0.52449E+05 0.54795E-54 0.11914E-64 0.12409E-62 - 5 3 0.88282E-09 0.10000E+01 0.42297E+05 0.40550E-53 0.15534E-63 0.92405E-62 - 5 3 0.88282E-09 0.10000E+01 0.34111E+05 0.28268E-52 0.19975E-62 0.65214E-61 - 5 3 0.88282E-09 0.10000E+01 0.27509E+05 0.19242E-51 0.25932E-61 0.44947E-60 - 5 3 0.88282E-09 0.10000E+01 0.22184E+05 0.13240E-50 0.40181E-60 0.29981E-59 - 5 3 0.88282E-09 0.10000E+01 0.17891E+05 0.10439E-49 0.85758E-59 0.19667E-58 - 5 3 0.88282E-09 0.10000E+01 0.14428E+05 0.10867E-48 0.22386E-57 0.14080E-57 - 5 3 0.88282E-09 0.10000E+01 0.11635E+05 0.14170E-47 0.61499E-56 0.13128E-56 - 5 3 0.88282E-09 0.10000E+01 0.93834E+04 0.20092E-46 0.16914E-54 0.16332E-55 - 5 3 0.88282E-09 0.10000E+01 0.75673E+04 0.28899E-45 0.46267E-53 0.23244E-54 - 5 3 0.88282E-09 0.10000E+01 0.61026E+04 0.41465E-44 0.12608E-51 0.33953E-53 - 5 3 0.88282E-09 0.10000E+01 0.49215E+04 0.59289E-43 0.34284E-50 0.49343E-52 - 5 3 0.88282E-09 0.10000E+01 0.39689E+04 0.84579E-42 0.93094E-49 0.71177E-51 - 5 3 0.88282E-09 0.10000E+01 0.32008E+04 0.37899E-39 0.81693E-46 0.32146E-48 - 5 3 0.88282E-09 0.10000E+01 0.25813E+04 0.28102E-30 0.13890E-36 0.23999E-39 - 5 3 0.88282E-09 0.10000E+01 0.20817E+04 0.54212E-14 0.11951E-19 0.46647E-23 + 5 3 0.88282E-09 0.10000E+01 0.80645E+05 0.52221E-13 0.30934E-24 0.11782E-21 + 5 3 0.88282E-09 0.10000E+01 0.65036E+05 0.66746E-13 0.71721E-24 0.15072E-21 + 5 3 0.88282E-09 0.10000E+01 0.52449E+05 0.84035E-13 0.18184E-23 0.18982E-21 + 5 3 0.88282E-09 0.10000E+01 0.42297E+05 0.10486E-12 0.55154E-23 0.23614E-21 + 5 3 0.88282E-09 0.10000E+01 0.34111E+05 0.13101E-12 0.20439E-22 0.29112E-21 + 5 3 0.88282E-09 0.10000E+01 0.27509E+05 0.16707E-12 0.86438E-22 0.35794E-21 + 5 3 0.88282E-09 0.10000E+01 0.22184E+05 0.22493E-12 0.38713E-21 0.44504E-21 + 5 3 0.88282E-09 0.10000E+01 0.17891E+05 0.33435E-12 0.17655E-20 0.57516E-21 + 5 3 0.88282E-09 0.10000E+01 0.14428E+05 0.56829E-12 0.80819E-20 0.80694E-21 + 5 3 0.88282E-09 0.10000E+01 0.11635E+05 0.11033E-11 0.36984E-19 0.12867E-20 + 5 3 0.88282E-09 0.10000E+01 0.93834E+04 0.23638E-11 0.16895E-18 0.23720E-20 + 5 3 0.88282E-09 0.10000E+01 0.75673E+04 0.53667E-11 0.76848E-18 0.49279E-20 + 5 3 0.88282E-09 0.10000E+01 0.61026E+04 0.12536E-10 0.34596E-17 0.11029E-19 + 5 3 0.88282E-09 0.10000E+01 0.49215E+04 0.29581E-10 0.15290E-16 0.25583E-19 + 5 3 0.88282E-09 0.10000E+01 0.39689E+04 0.69689E-10 0.65971E-16 0.59964E-19 + 5 3 0.88282E-09 0.10000E+01 0.32008E+04 0.16251E-09 0.27758E-15 0.13981E-18 + 5 3 0.88282E-09 0.10000E+01 0.25813E+04 0.37293E-09 0.11393E-14 0.32133E-18 + 5 3 0.88282E-09 0.10000E+01 0.20817E+04 0.83926E-09 0.45569E-14 0.72449E-18 5 3 0.88282E-09 0.10000E+01 0.16788E+04 0.18486E-08 0.17749E-13 0.15986E-17 5 3 0.88282E-09 0.10000E+01 0.13538E+04 0.39804E-08 0.67469E-13 0.34470E-17 5 3 0.88282E-09 0.10000E+01 0.10918E+04 0.83755E-08 0.25167E-12 0.72609E-17 @@ -28760,24 +28760,24 @@ VERSION 2.8.2 5 3 0.88282E-09 0.10000E+01 0.24221E+03 0.83567E-06 0.77101E-09 0.72586E-15 5 3 0.88282E-09 0.10000E+01 0.19533E+03 0.13171E-05 0.14652E-08 0.11440E-14 5 3 0.88282E-09 0.10000E+01 0.15752E+03 0.13171E-05 0.14652E-08 0.11440E-14 - 5 3 0.15405E-08 0.10000E+01 0.80645E+05 0.14500E-55 0.10794E-66 0.50220E-64 - 5 3 0.15405E-08 0.10000E+01 0.65036E+05 0.12216E-54 0.17062E-65 0.42370E-63 - 5 3 0.15405E-08 0.10000E+01 0.52449E+05 0.10330E-53 0.22601E-64 0.35897E-62 - 5 3 0.15405E-08 0.10000E+01 0.42297E+05 0.76814E-53 0.29822E-63 0.26814E-61 - 5 3 0.15405E-08 0.10000E+01 0.34111E+05 0.54065E-52 0.38877E-62 0.19048E-60 - 5 3 0.15405E-08 0.10000E+01 0.27509E+05 0.37175E-51 0.49171E-61 0.13280E-59 - 5 3 0.15405E-08 0.10000E+01 0.22184E+05 0.25023E-50 0.64390E-60 0.89688E-59 - 5 3 0.15405E-08 0.10000E+01 0.17891E+05 0.17266E-49 0.10315E-58 0.58050E-58 - 5 3 0.15405E-08 0.10000E+01 0.14428E+05 0.13929E-48 0.22322E-57 0.37352E-57 - 5 3 0.15405E-08 0.10000E+01 0.11635E+05 0.14761E-47 0.58281E-56 0.27586E-56 - 5 3 0.15405E-08 0.10000E+01 0.93834E+04 0.19347E-46 0.16080E-54 0.28013E-55 - 5 3 0.15405E-08 0.10000E+01 0.75673E+04 0.27557E-45 0.44496E-53 0.37382E-54 - 5 3 0.15405E-08 0.10000E+01 0.61026E+04 0.39858E-44 0.12232E-51 0.54924E-53 - 5 3 0.15405E-08 0.10000E+01 0.49215E+04 0.57472E-43 0.33453E-50 0.81259E-52 - 5 3 0.15405E-08 0.10000E+01 0.39689E+04 0.82481E-42 0.91204E-49 0.11886E-50 - 5 3 0.15405E-08 0.10000E+01 0.32008E+04 0.37118E-39 0.80303E-46 0.54185E-48 - 5 3 0.15405E-08 0.10000E+01 0.25813E+04 0.27626E-30 0.13702E-36 0.40733E-39 - 5 3 0.15405E-08 0.10000E+01 0.20817E+04 0.53511E-14 0.11836E-19 0.79697E-23 + 5 3 0.15405E-08 0.10000E+01 0.80645E+05 0.98145E-13 0.58663E-24 0.33984E-21 + 5 3 0.15405E-08 0.10000E+01 0.65036E+05 0.12554E-12 0.13226E-23 0.43510E-21 + 5 3 0.15405E-08 0.10000E+01 0.52449E+05 0.15810E-12 0.30548E-23 0.54858E-21 + 5 3 0.15405E-08 0.10000E+01 0.42297E+05 0.19685E-12 0.77792E-23 0.68313E-21 + 5 3 0.15405E-08 0.10000E+01 0.34111E+05 0.24353E-12 0.23843E-22 0.84182E-21 + 5 3 0.15405E-08 0.10000E+01 0.27509E+05 0.30220E-12 0.89296E-22 0.10295E-20 + 5 3 0.15405E-08 0.10000E+01 0.22184E+05 0.38353E-12 0.38070E-21 0.12580E-20 + 5 3 0.15405E-08 0.10000E+01 0.17891E+05 0.51512E-12 0.17154E-20 0.15613E-20 + 5 3 0.15405E-08 0.10000E+01 0.14428E+05 0.76637E-12 0.78591E-20 0.20318E-20 + 5 3 0.15405E-08 0.10000E+01 0.11635E+05 0.13080E-11 0.36101E-19 0.29084E-20 + 5 3 0.15405E-08 0.10000E+01 0.93834E+04 0.25541E-11 0.16554E-18 0.47884E-20 + 5 3 0.15405E-08 0.10000E+01 0.75673E+04 0.55021E-11 0.75540E-18 0.91322E-20 + 5 3 0.15405E-08 0.10000E+01 0.61026E+04 0.12537E-10 0.34095E-17 0.19466E-19 + 5 3 0.15405E-08 0.10000E+01 0.49215E+04 0.29293E-10 0.15099E-16 0.44173E-19 + 5 3 0.15405E-08 0.10000E+01 0.39689E+04 0.68802E-10 0.65245E-16 0.10273E-18 + 5 3 0.15405E-08 0.10000E+01 0.32008E+04 0.16041E-09 0.27483E-15 0.23911E-18 + 5 3 0.15405E-08 0.10000E+01 0.25813E+04 0.36840E-09 0.11290E-14 0.54990E-18 + 5 3 0.15405E-08 0.10000E+01 0.20817E+04 0.82989E-09 0.45184E-14 0.12414E-17 5 3 0.15405E-08 0.10000E+01 0.16788E+04 0.18296E-08 0.17605E-13 0.27427E-17 5 3 0.15405E-08 0.10000E+01 0.13538E+04 0.39427E-08 0.66938E-13 0.59205E-17 5 3 0.15405E-08 0.10000E+01 0.10918E+04 0.83009E-08 0.24971E-12 0.12482E-16 @@ -28790,24 +28790,24 @@ VERSION 2.8.2 5 3 0.15405E-08 0.10000E+01 0.24221E+03 0.82909E-06 0.76493E-09 0.12496E-14 5 3 0.15405E-08 0.10000E+01 0.19533E+03 0.13067E-05 0.14536E-08 0.19694E-14 5 3 0.15405E-08 0.10000E+01 0.15752E+03 0.13067E-05 0.14536E-08 0.19694E-14 - 5 3 0.26880E-08 0.10000E+01 0.80645E+05 0.27103E-55 0.20208E-66 0.14273E-63 - 5 3 0.26880E-08 0.10000E+01 0.65036E+05 0.22864E-54 0.31996E-65 0.12054E-62 - 5 3 0.26880E-08 0.10000E+01 0.52449E+05 0.19367E-53 0.42589E-64 0.10224E-61 - 5 3 0.26880E-08 0.10000E+01 0.42297E+05 0.14459E-52 0.56755E-63 0.76551E-61 - 5 3 0.26880E-08 0.10000E+01 0.34111E+05 0.10260E-51 0.75157E-62 0.54649E-60 - 5 3 0.26880E-08 0.10000E+01 0.27509E+05 0.71447E-51 0.95810E-61 0.38457E-59 - 5 3 0.26880E-08 0.10000E+01 0.22184E+05 0.48372E-50 0.11821E-59 0.26360E-58 - 5 3 0.26880E-08 0.10000E+01 0.17891E+05 0.31886E-49 0.15288E-58 0.17289E-57 - 5 3 0.26880E-08 0.10000E+01 0.14428E+05 0.21676E-48 0.24756E-57 0.10867E-56 - 5 3 0.26880E-08 0.10000E+01 0.11635E+05 0.17554E-47 0.55050E-56 0.69837E-56 - 5 3 0.26880E-08 0.10000E+01 0.93834E+04 0.19040E-46 0.14757E-54 0.54925E-55 - 5 3 0.26880E-08 0.10000E+01 0.75673E+04 0.25619E-45 0.41455E-53 0.61546E-54 - 5 3 0.26880E-08 0.10000E+01 0.61026E+04 0.37187E-44 0.11599E-51 0.87256E-53 - 5 3 0.26880E-08 0.10000E+01 0.49215E+04 0.54429E-43 0.32113E-50 0.13119E-51 - 5 3 0.26880E-08 0.10000E+01 0.39689E+04 0.79078E-42 0.88255E-49 0.19578E-50 - 5 3 0.26880E-08 0.10000E+01 0.32008E+04 0.35892E-39 0.78171E-46 0.90539E-48 - 5 3 0.26880E-08 0.10000E+01 0.25813E+04 0.26889E-30 0.13414E-36 0.68742E-39 - 5 3 0.26880E-08 0.10000E+01 0.20817E+04 0.52426E-14 0.11655E-19 0.13569E-22 + 5 3 0.26880E-08 0.10000E+01 0.80645E+05 0.18341E-12 0.11133E-23 0.96558E-21 + 5 3 0.26880E-08 0.10000E+01 0.65036E+05 0.23480E-12 0.24989E-23 0.12371E-20 + 5 3 0.26880E-08 0.10000E+01 0.52449E+05 0.29603E-12 0.55541E-23 0.15613E-20 + 5 3 0.26880E-08 0.10000E+01 0.42297E+05 0.36874E-12 0.12664E-22 0.19471E-20 + 5 3 0.26880E-08 0.10000E+01 0.34111E+05 0.45495E-12 0.32110E-22 0.24026E-20 + 5 3 0.26880E-08 0.10000E+01 0.27509E+05 0.55825E-12 0.99429E-22 0.29368E-20 + 5 3 0.26880E-08 0.10000E+01 0.22184E+05 0.68751E-12 0.37962E-21 0.35663E-20 + 5 3 0.26880E-08 0.10000E+01 0.17891E+05 0.86674E-12 0.16472E-20 0.43385E-20 + 5 3 0.26880E-08 0.10000E+01 0.14428E+05 0.11592E-11 0.75142E-20 0.53918E-20 + 5 3 0.26880E-08 0.10000E+01 0.11635E+05 0.17253E-11 0.34705E-19 0.71054E-20 + 5 3 0.26880E-08 0.10000E+01 0.93834E+04 0.29621E-11 0.16019E-18 0.10459E-19 + 5 3 0.26880E-08 0.10000E+01 0.75673E+04 0.58358E-11 0.73509E-18 0.17894E-19 + 5 3 0.26880E-08 0.10000E+01 0.61026E+04 0.12672E-10 0.33322E-17 0.35374E-19 + 5 3 0.26880E-08 0.10000E+01 0.49215E+04 0.28986E-10 0.14803E-16 0.77155E-19 + 5 3 0.26880E-08 0.10000E+01 0.39689E+04 0.67573E-10 0.64116E-16 0.17649E-18 + 5 3 0.26880E-08 0.10000E+01 0.32008E+04 0.15730E-09 0.27053E-15 0.40866E-18 + 5 3 0.26880E-08 0.10000E+01 0.25813E+04 0.36150E-09 0.11126E-14 0.93921E-18 + 5 3 0.26880E-08 0.10000E+01 0.20817E+04 0.81541E-09 0.44569E-14 0.21223E-17 5 3 0.26880E-08 0.10000E+01 0.16788E+04 0.18001E-08 0.17375E-13 0.46948E-17 5 3 0.26880E-08 0.10000E+01 0.13538E+04 0.38832E-08 0.66083E-13 0.10146E-16 5 3 0.26880E-08 0.10000E+01 0.10918E+04 0.81826E-08 0.24654E-12 0.21410E-16 @@ -28820,24 +28820,24 @@ VERSION 2.8.2 5 3 0.26880E-08 0.10000E+01 0.24221E+03 0.81848E-06 0.75510E-09 0.21468E-14 5 3 0.26880E-08 0.10000E+01 0.19533E+03 0.12900E-05 0.14349E-08 0.33835E-14 5 3 0.26880E-08 0.10000E+01 0.15752E+03 0.12900E-05 0.14349E-08 0.33835E-14 - 5 3 0.46905E-08 0.10000E+01 0.80645E+05 0.57199E-55 0.42774E-66 0.17595E-62 - 5 3 0.46905E-08 0.10000E+01 0.65036E+05 0.48369E-54 0.67891E-65 0.14891E-61 - 5 3 0.46905E-08 0.10000E+01 0.52449E+05 0.41078E-53 0.90985E-64 0.12657E-60 - 5 3 0.46905E-08 0.10000E+01 0.42297E+05 0.30840E-52 0.12295E-62 0.95174E-60 - 5 3 0.46905E-08 0.10000E+01 0.34111E+05 0.22145E-51 0.16729E-61 0.68538E-59 - 5 3 0.46905E-08 0.10000E+01 0.27509E+05 0.15783E-50 0.22404E-60 0.49053E-58 - 5 3 0.46905E-08 0.10000E+01 0.22184E+05 0.11134E-49 0.29589E-59 0.34724E-57 - 5 3 0.46905E-08 0.10000E+01 0.17891E+05 0.77654E-49 0.39495E-58 0.24086E-56 - 5 3 0.46905E-08 0.10000E+01 0.14428E+05 0.54485E-48 0.56332E-57 0.16297E-55 - 5 3 0.46905E-08 0.10000E+01 0.11635E+05 0.40250E-47 0.92705E-56 0.10763E-54 - 5 3 0.46905E-08 0.10000E+01 0.93834E+04 0.33649E-46 0.18591E-54 0.69544E-54 - 5 3 0.46905E-08 0.10000E+01 0.75673E+04 0.33944E-45 0.44546E-53 0.44455E-53 - 5 3 0.46905E-08 0.10000E+01 0.61026E+04 0.41195E-44 0.11814E-51 0.30053E-52 - 5 3 0.46905E-08 0.10000E+01 0.49215E+04 0.56143E-43 0.32431E-50 0.25615E-51 - 5 3 0.46905E-08 0.10000E+01 0.39689E+04 0.80130E-42 0.89267E-49 0.30704E-50 - 5 3 0.46905E-08 0.10000E+01 0.32008E+04 0.36317E-39 0.79118E-46 0.14055E-47 - 5 3 0.46905E-08 0.10000E+01 0.25813E+04 0.27204E-30 0.13549E-36 0.11052E-38 - 5 3 0.46905E-08 0.10000E+01 0.20817E+04 0.52938E-14 0.11720E-19 0.22555E-22 + 5 3 0.46905E-08 0.10000E+01 0.80645E+05 0.38679E-12 0.24279E-23 0.11894E-19 + 5 3 0.46905E-08 0.10000E+01 0.65036E+05 0.49599E-12 0.55842E-23 0.15258E-19 + 5 3 0.46905E-08 0.10000E+01 0.52449E+05 0.62709E-12 0.12759E-22 0.19302E-19 + 5 3 0.46905E-08 0.10000E+01 0.42297E+05 0.78458E-12 0.29298E-22 0.24162E-19 + 5 3 0.46905E-08 0.10000E+01 0.34111E+05 0.97384E-12 0.69627E-22 0.29985E-19 + 5 3 0.46905E-08 0.10000E+01 0.27509E+05 0.12021E-11 0.18071E-21 0.36919E-19 + 5 3 0.46905E-08 0.10000E+01 0.22184E+05 0.14817E-11 0.54587E-21 0.45102E-19 + 5 3 0.46905E-08 0.10000E+01 0.17891E+05 0.18390E-11 0.19660E-20 0.54667E-19 + 5 3 0.46905E-08 0.10000E+01 0.14428E+05 0.23373E-11 0.81037E-20 0.65788E-19 + 5 3 0.46905E-08 0.10000E+01 0.11635E+05 0.31350E-11 0.35873E-19 0.78869E-19 + 5 3 0.46905E-08 0.10000E+01 0.93834E+04 0.46265E-11 0.16312E-18 0.95116E-19 + 5 3 0.46905E-08 0.10000E+01 0.75673E+04 0.77799E-11 0.74465E-18 0.11798E-18 + 5 3 0.46905E-08 0.10000E+01 0.61026E+04 0.14937E-10 0.33673E-17 0.15668E-18 + 5 3 0.46905E-08 0.10000E+01 0.49215E+04 0.31660E-10 0.14933E-16 0.23425E-18 + 5 3 0.46905E-08 0.10000E+01 0.39689E+04 0.70842E-10 0.64575E-16 0.40543E-18 + 5 3 0.46905E-08 0.10000E+01 0.32008E+04 0.16154E-09 0.27210E-15 0.79505E-18 + 5 3 0.46905E-08 0.10000E+01 0.25813E+04 0.36743E-09 0.11179E-14 0.16779E-17 + 5 3 0.46905E-08 0.10000E+01 0.20817E+04 0.82429E-09 0.44740E-14 0.36414E-17 5 3 0.46905E-08 0.10000E+01 0.16788E+04 0.18141E-08 0.17432E-13 0.79068E-17 5 3 0.46905E-08 0.10000E+01 0.13538E+04 0.39062E-08 0.66269E-13 0.16939E-16 5 3 0.46905E-08 0.10000E+01 0.10918E+04 0.82213E-08 0.24717E-12 0.35588E-16 @@ -28850,24 +28850,24 @@ VERSION 2.8.2 5 3 0.46905E-08 0.10000E+01 0.24221E+03 0.82038E-06 0.75674E-09 0.35341E-14 5 3 0.46905E-08 0.10000E+01 0.19533E+03 0.12929E-05 0.14380E-08 0.55676E-14 5 3 0.46905E-08 0.10000E+01 0.15752E+03 0.12929E-05 0.14380E-08 0.55676E-14 - 5 3 0.81846E-08 0.10000E+01 0.80645E+05 0.10560E-54 0.79009E-66 0.53807E-62 - 5 3 0.81846E-08 0.10000E+01 0.65036E+05 0.89337E-54 0.12545E-64 0.45551E-61 - 5 3 0.81846E-08 0.10000E+01 0.52449E+05 0.75902E-53 0.16830E-63 0.38726E-60 - 5 3 0.81846E-08 0.10000E+01 0.42297E+05 0.57031E-52 0.22781E-62 0.29135E-59 - 5 3 0.81846E-08 0.10000E+01 0.34111E+05 0.41011E-51 0.31069E-61 0.21002E-58 - 5 3 0.81846E-08 0.10000E+01 0.27509E+05 0.29287E-50 0.41674E-60 0.15057E-57 - 5 3 0.81846E-08 0.10000E+01 0.22184E+05 0.20688E-49 0.54761E-59 0.10693E-56 - 5 3 0.81846E-08 0.10000E+01 0.17891E+05 0.14371E-48 0.71196E-58 0.74577E-56 - 5 3 0.81846E-08 0.10000E+01 0.14428E+05 0.98707E-48 0.94448E-57 0.50891E-55 - 5 3 0.81846E-08 0.10000E+01 0.11635E+05 0.68623E-47 0.13501E-55 0.33984E-54 - 5 3 0.81846E-08 0.10000E+01 0.93834E+04 0.50646E-46 0.22484E-54 0.22180E-53 - 5 3 0.81846E-08 0.10000E+01 0.75673E+04 0.42776E-45 0.46396E-53 0.14092E-52 - 5 3 0.81846E-08 0.10000E+01 0.61026E+04 0.44301E-44 0.11509E-51 0.88725E-52 - 5 3 0.81846E-08 0.10000E+01 0.49215E+04 0.55577E-43 0.31234E-50 0.62009E-51 - 5 3 0.81846E-08 0.10000E+01 0.39689E+04 0.77569E-42 0.86527E-49 0.59583E-50 - 5 3 0.81846E-08 0.10000E+01 0.32008E+04 0.35234E-39 0.77282E-46 0.24981E-47 - 5 3 0.81846E-08 0.10000E+01 0.25813E+04 0.26580E-30 0.13313E-36 0.19484E-38 - 5 3 0.81846E-08 0.10000E+01 0.20817E+04 0.52100E-14 0.11559E-19 0.40023E-22 + 5 3 0.81846E-08 0.10000E+01 0.80645E+05 0.71397E-12 0.44966E-23 0.36370E-19 + 5 3 0.81846E-08 0.10000E+01 0.65036E+05 0.91573E-12 0.10342E-22 0.46664E-19 + 5 3 0.81846E-08 0.10000E+01 0.52449E+05 0.11581E-11 0.23525E-22 0.59046E-19 + 5 3 0.81846E-08 0.10000E+01 0.42297E+05 0.14492E-11 0.53122E-22 0.73944E-19 + 5 3 0.81846E-08 0.10000E+01 0.34111E+05 0.17984E-11 0.12073E-21 0.91828E-19 + 5 3 0.81846E-08 0.10000E+01 0.27509E+05 0.22165E-11 0.28536E-21 0.11318E-18 + 5 3 0.81846E-08 0.10000E+01 0.22184E+05 0.27181E-11 0.74437E-21 0.13845E-18 + 5 3 0.81846E-08 0.10000E+01 0.17891E+05 0.33296E-11 0.22929E-20 0.16807E-18 + 5 3 0.81846E-08 0.10000E+01 0.14428E+05 0.41096E-11 0.84832E-20 0.20242E-18 + 5 3 0.81846E-08 0.10000E+01 0.11635E+05 0.52050E-11 0.35730E-19 0.24214E-18 + 5 3 0.81846E-08 0.10000E+01 0.93834E+04 0.69876E-11 0.16002E-18 0.28903E-18 + 5 3 0.81846E-08 0.10000E+01 0.75673E+04 0.10388E-10 0.72936E-18 0.34861E-18 + 5 3 0.81846E-08 0.10000E+01 0.61026E+04 0.17684E-10 0.33048E-17 0.43634E-18 + 5 3 0.81846E-08 0.10000E+01 0.49215E+04 0.34329E-10 0.14688E-16 0.59188E-18 + 5 3 0.81846E-08 0.10000E+01 0.39689E+04 0.73011E-10 0.63612E-16 0.91043E-18 + 5 3 0.81846E-08 0.10000E+01 0.32008E+04 0.16238E-09 0.26831E-15 0.16091E-17 + 5 3 0.81846E-08 0.10000E+01 0.25813E+04 0.36523E-09 0.11030E-14 0.31646E-17 + 5 3 0.81846E-08 0.10000E+01 0.20817E+04 0.81563E-09 0.44160E-14 0.65927E-17 5 3 0.81846E-08 0.10000E+01 0.16788E+04 0.17920E-08 0.17208E-13 0.13998E-16 5 3 0.81846E-08 0.10000E+01 0.13538E+04 0.38564E-08 0.65420E-13 0.29620E-16 5 3 0.81846E-08 0.10000E+01 0.10918E+04 0.81154E-08 0.24398E-12 0.61778E-16 @@ -28880,24 +28880,24 @@ VERSION 2.8.2 5 3 0.81846E-08 0.10000E+01 0.24221E+03 0.80944E-06 0.74647E-09 0.60464E-14 5 3 0.81846E-08 0.10000E+01 0.19533E+03 0.12756E-05 0.14185E-08 0.95217E-14 5 3 0.81846E-08 0.10000E+01 0.15752E+03 0.12756E-05 0.14185E-08 0.95217E-14 - 5 3 0.14282E-07 0.10000E+01 0.80645E+05 0.19426E-54 0.14541E-65 0.16687E-61 - 5 3 0.14282E-07 0.10000E+01 0.65036E+05 0.16440E-53 0.23096E-64 0.14130E-60 - 5 3 0.14282E-07 0.10000E+01 0.52449E+05 0.13973E-52 0.31009E-63 0.12016E-59 - 5 3 0.14282E-07 0.10000E+01 0.42297E+05 0.10506E-51 0.42035E-62 0.90437E-59 - 5 3 0.14282E-07 0.10000E+01 0.34111E+05 0.75641E-51 0.57459E-61 0.65242E-58 - 5 3 0.14282E-07 0.10000E+01 0.27509E+05 0.54126E-50 0.77306E-60 0.46840E-57 - 5 3 0.14282E-07 0.10000E+01 0.22184E+05 0.38333E-49 0.10176E-58 0.33345E-56 - 5 3 0.14282E-07 0.10000E+01 0.17891E+05 0.26671E-48 0.13149E-57 0.23355E-55 - 5 3 0.14282E-07 0.10000E+01 0.14428E+05 0.18233E-47 0.16940E-56 0.16040E-54 - 5 3 0.14282E-07 0.10000E+01 0.11635E+05 0.12380E-46 0.22370E-55 0.10805E-53 - 5 3 0.14282E-07 0.10000E+01 0.93834E+04 0.85477E-46 0.31933E-54 0.71267E-53 - 5 3 0.14282E-07 0.10000E+01 0.75673E+04 0.62983E-45 0.54195E-53 0.45628E-52 - 5 3 0.14282E-07 0.10000E+01 0.61026E+04 0.54061E-44 0.11719E-51 0.28194E-51 - 5 3 0.14282E-07 0.10000E+01 0.49215E+04 0.58360E-43 0.30368E-50 0.17621E-50 - 5 3 0.14282E-07 0.10000E+01 0.39689E+04 0.76396E-42 0.84048E-49 0.13474E-49 - 5 3 0.14282E-07 0.10000E+01 0.32008E+04 0.34350E-39 0.75679E-46 0.47993E-47 - 5 3 0.14282E-07 0.10000E+01 0.25813E+04 0.26064E-30 0.13118E-36 0.36009E-38 - 5 3 0.14282E-07 0.10000E+01 0.20817E+04 0.51495E-14 0.11412E-19 0.73924E-22 + 5 3 0.14282E-07 0.10000E+01 0.80645E+05 0.13133E-11 0.82981E-23 0.11278E-18 + 5 3 0.14282E-07 0.10000E+01 0.65036E+05 0.16847E-11 0.19112E-22 0.14472E-18 + 5 3 0.14282E-07 0.10000E+01 0.52449E+05 0.21311E-11 0.43483E-22 0.18316E-18 + 5 3 0.14282E-07 0.10000E+01 0.42297E+05 0.26678E-11 0.97735E-22 0.22945E-18 + 5 3 0.14282E-07 0.10000E+01 0.34111E+05 0.33117E-11 0.21815E-21 0.28510E-18 + 5 3 0.14282E-07 0.10000E+01 0.27509E+05 0.40812E-11 0.49113E-21 0.35168E-18 + 5 3 0.14282E-07 0.10000E+01 0.22184E+05 0.49972E-11 0.11571E-20 0.43073E-18 + 5 3 0.14282E-07 0.10000E+01 0.17891E+05 0.60895E-11 0.30535E-20 0.52364E-18 + 5 3 0.14282E-07 0.10000E+01 0.14428E+05 0.74145E-11 0.96896E-20 0.63157E-18 + 5 3 0.14282E-07 0.10000E+01 0.11635E+05 0.91064E-11 0.37076E-19 0.75570E-18 + 5 3 0.14282E-07 0.10000E+01 0.93834E+04 0.11511E-10 0.15959E-18 0.89870E-18 + 5 3 0.14282E-07 0.10000E+01 0.75673E+04 0.15515E-10 0.71944E-18 0.10692E-17 + 5 3 0.14282E-07 0.10000E+01 0.61026E+04 0.23330E-10 0.32561E-17 0.12933E-17 + 5 3 0.14282E-07 0.10000E+01 0.49215E+04 0.40300E-10 0.14484E-16 0.16404E-17 + 5 3 0.14282E-07 0.10000E+01 0.39689E+04 0.78927E-10 0.62777E-16 0.22789E-17 + 5 3 0.14282E-07 0.10000E+01 0.32008E+04 0.16748E-09 0.26486E-15 0.35933E-17 + 5 3 0.14282E-07 0.10000E+01 0.25813E+04 0.36799E-09 0.10889E-14 0.64221E-17 + 5 3 0.14282E-07 0.10000E+01 0.20817E+04 0.81281E-09 0.43590E-14 0.12540E-16 5 3 0.14282E-07 0.10000E+01 0.16788E+04 0.17768E-08 0.16982E-13 0.25601E-16 5 3 0.14282E-07 0.10000E+01 0.13538E+04 0.38146E-08 0.64541E-13 0.52929E-16 5 3 0.14282E-07 0.10000E+01 0.10918E+04 0.80177E-08 0.24061E-12 0.10884E-15 @@ -28910,24 +28910,24 @@ VERSION 2.8.2 5 3 0.14282E-07 0.10000E+01 0.24221E+03 0.79766E-06 0.73529E-09 0.10354E-13 5 3 0.14282E-07 0.10000E+01 0.19533E+03 0.12569E-05 0.13972E-08 0.16293E-13 5 3 0.14282E-07 0.10000E+01 0.15752E+03 0.12569E-05 0.13972E-08 0.16293E-13 - 5 3 0.24920E-07 0.10000E+01 0.80645E+05 0.35585E-54 0.26645E-65 0.52175E-61 - 5 3 0.24920E-07 0.10000E+01 0.65036E+05 0.30124E-53 0.42333E-64 0.44190E-60 - 5 3 0.24920E-07 0.10000E+01 0.52449E+05 0.25610E-52 0.56875E-63 0.37586E-59 - 5 3 0.24920E-07 0.10000E+01 0.42297E+05 0.19266E-51 0.77192E-62 0.28300E-58 - 5 3 0.24920E-07 0.10000E+01 0.34111E+05 0.13886E-50 0.10572E-60 0.20430E-57 - 5 3 0.24920E-07 0.10000E+01 0.27509E+05 0.99533E-50 0.14268E-59 0.14685E-56 - 5 3 0.24920E-07 0.10000E+01 0.22184E+05 0.70679E-49 0.18853E-58 0.10475E-55 - 5 3 0.24920E-07 0.10000E+01 0.17891E+05 0.49337E-48 0.24406E-57 0.73607E-55 - 5 3 0.24920E-07 0.10000E+01 0.14428E+05 0.33792E-47 0.31210E-56 0.50805E-54 - 5 3 0.24920E-07 0.10000E+01 0.11635E+05 0.22818E-46 0.39872E-55 0.34458E-53 - 5 3 0.24920E-07 0.10000E+01 0.93834E+04 0.15338E-45 0.52008E-54 0.22928E-52 - 5 3 0.24920E-07 0.10000E+01 0.75673E+04 0.10477E-44 0.74110E-53 0.14833E-51 - 5 3 0.24920E-07 0.10000E+01 0.61026E+04 0.77065E-44 0.13121E-51 0.91974E-51 - 5 3 0.24920E-07 0.10000E+01 0.49215E+04 0.68424E-43 0.30466E-50 0.55063E-50 - 5 3 0.24920E-07 0.10000E+01 0.39689E+04 0.78710E-42 0.82425E-49 0.35767E-49 - 5 3 0.24920E-07 0.10000E+01 0.32008E+04 0.34015E-39 0.74606E-46 0.10358E-46 - 5 3 0.24920E-07 0.10000E+01 0.25813E+04 0.25800E-30 0.13002E-36 0.71574E-38 - 5 3 0.24920E-07 0.10000E+01 0.20817E+04 0.51356E-14 0.11287E-19 0.14524E-21 + 5 3 0.24920E-07 0.10000E+01 0.80645E+05 0.24053E-11 0.15243E-22 0.35260E-18 + 5 3 0.24920E-07 0.10000E+01 0.65036E+05 0.30860E-11 0.35165E-22 0.45251E-18 + 5 3 0.24920E-07 0.10000E+01 0.52449E+05 0.39048E-11 0.80151E-22 0.57281E-18 + 5 3 0.24920E-07 0.10000E+01 0.42297E+05 0.48901E-11 0.18023E-21 0.71780E-18 + 5 3 0.24920E-07 0.10000E+01 0.34111E+05 0.60732E-11 0.40030E-21 0.89229E-18 + 5 3 0.24920E-07 0.10000E+01 0.27509E+05 0.74876E-11 0.88327E-21 0.11014E-17 + 5 3 0.24920E-07 0.10000E+01 0.22184E+05 0.91684E-11 0.19702E-20 0.13503E-17 + 5 3 0.24920E-07 0.10000E+01 0.17891E+05 0.11156E-10 0.46439E-20 0.16437E-17 + 5 3 0.24920E-07 0.10000E+01 0.14428E+05 0.13509E-10 0.12535E-19 0.19855E-17 + 5 3 0.24920E-07 0.10000E+01 0.11635E+05 0.16353E-10 0.41511E-19 0.23787E-17 + 5 3 0.24920E-07 0.10000E+01 0.93834E+04 0.20003E-10 0.16493E-18 0.28272E-17 + 5 3 0.24920E-07 0.10000E+01 0.75673E+04 0.25294E-10 0.72136E-18 0.33445E-17 + 5 3 0.24920E-07 0.10000E+01 0.61026E+04 0.34365E-10 0.32366E-17 0.39748E-17 + 5 3 0.24920E-07 0.10000E+01 0.49215E+04 0.52461E-10 0.14363E-16 0.48422E-17 + 5 3 0.24920E-07 0.10000E+01 0.39689E+04 0.91929E-10 0.62176E-16 0.62539E-17 + 5 3 0.24920E-07 0.10000E+01 0.32008E+04 0.18074E-09 0.26200E-15 0.89095E-17 + 5 3 0.24920E-07 0.10000E+01 0.25813E+04 0.38021E-09 0.10758E-14 0.14320E-16 + 5 3 0.24920E-07 0.10000E+01 0.20817E+04 0.82107E-09 0.43020E-14 0.25643E-16 5 3 0.24920E-07 0.10000E+01 0.16788E+04 0.17744E-08 0.16743E-13 0.49308E-16 5 3 0.24920E-07 0.10000E+01 0.13538E+04 0.37869E-08 0.63574E-13 0.98088E-16 5 3 0.24920E-07 0.10000E+01 0.10918E+04 0.79330E-08 0.23681E-12 0.19678E-15 @@ -28940,24 +28940,24 @@ VERSION 2.8.2 5 3 0.24920E-07 0.10000E+01 0.24221E+03 0.78398E-06 0.72208E-09 0.17779E-13 5 3 0.24920E-07 0.10000E+01 0.19533E+03 0.12351E-05 0.13721E-08 0.27941E-13 5 3 0.24920E-07 0.10000E+01 0.15752E+03 0.12351E-05 0.13721E-08 0.27941E-13 - 5 3 0.43485E-07 0.10000E+01 0.80645E+05 0.64866E-54 0.48586E-65 0.16328E-60 - 5 3 0.43485E-07 0.10000E+01 0.65036E+05 0.54926E-53 0.77208E-64 0.13832E-59 - 5 3 0.43485E-07 0.10000E+01 0.52449E+05 0.46707E-52 0.10379E-62 0.11767E-58 - 5 3 0.43485E-07 0.10000E+01 0.42297E+05 0.35153E-51 0.14101E-61 0.88629E-58 - 5 3 0.43485E-07 0.10000E+01 0.34111E+05 0.25358E-50 0.19344E-60 0.64021E-57 - 5 3 0.43485E-07 0.10000E+01 0.27509E+05 0.18203E-49 0.26177E-59 0.46063E-56 - 5 3 0.43485E-07 0.10000E+01 0.22184E+05 0.12956E-48 0.34725E-58 0.32912E-55 - 5 3 0.43485E-07 0.10000E+01 0.17891E+05 0.90751E-48 0.45148E-57 0.23189E-54 - 5 3 0.43485E-07 0.10000E+01 0.14428E+05 0.62395E-47 0.57816E-56 0.16069E-53 - 5 3 0.43485E-07 0.10000E+01 0.11635E+05 0.42205E-46 0.73188E-55 0.10957E-52 - 5 3 0.43485E-07 0.10000E+01 0.93834E+04 0.28178E-45 0.91837E-54 0.73421E-52 - 5 3 0.43485E-07 0.10000E+01 0.75673E+04 0.18650E-44 0.11740E-52 0.47949E-51 - 5 3 0.43485E-07 0.10000E+01 0.61026E+04 0.12530E-43 0.17014E-51 0.30031E-50 - 5 3 0.43485E-07 0.10000E+01 0.49215E+04 0.93207E-43 0.32897E-50 0.17841E-49 - 5 3 0.43485E-07 0.10000E+01 0.39689E+04 0.88824E-42 0.83193E-49 0.10630E-48 - 5 3 0.43485E-07 0.10000E+01 0.32008E+04 0.35056E-39 0.74930E-46 0.25476E-46 - 5 3 0.43485E-07 0.10000E+01 0.25813E+04 0.26169E-30 0.13094E-36 0.15615E-37 - 5 3 0.43485E-07 0.10000E+01 0.20817E+04 0.52350E-14 0.11257E-19 0.30940E-21 + 5 3 0.43485E-07 0.10000E+01 0.80645E+05 0.43840E-11 0.27851E-22 0.11034E-17 + 5 3 0.43485E-07 0.10000E+01 0.65036E+05 0.56256E-11 0.64356E-22 0.14161E-17 + 5 3 0.43485E-07 0.10000E+01 0.52449E+05 0.71198E-11 0.14700E-21 0.17929E-17 + 5 3 0.43485E-07 0.10000E+01 0.42297E+05 0.89192E-11 0.33126E-21 0.22473E-17 + 5 3 0.43485E-07 0.10000E+01 0.34111E+05 0.11082E-10 0.73613E-21 0.27947E-17 + 5 3 0.43485E-07 0.10000E+01 0.27509E+05 0.13672E-10 0.16150E-20 0.34516E-17 + 5 3 0.43485E-07 0.10000E+01 0.22184E+05 0.16750E-10 0.35190E-20 0.42351E-17 + 5 3 0.43485E-07 0.10000E+01 0.17891E+05 0.20384E-10 0.77837E-20 0.51610E-17 + 5 3 0.43485E-07 0.10000E+01 0.14428E+05 0.24645E-10 0.18523E-19 0.62430E-17 + 5 3 0.43485E-07 0.10000E+01 0.11635E+05 0.29656E-10 0.52109E-19 0.74902E-17 + 5 3 0.43485E-07 0.10000E+01 0.93834E+04 0.35704E-10 0.18247E-18 0.89098E-17 + 5 3 0.43485E-07 0.10000E+01 0.75673E+04 0.43567E-10 0.75018E-18 0.10522E-16 + 5 3 0.43485E-07 0.10000E+01 0.61026E+04 0.55314E-10 0.32888E-17 0.12402E-16 + 5 3 0.43485E-07 0.10000E+01 0.49215E+04 0.76129E-10 0.14466E-16 0.14780E-16 + 5 3 0.43485E-07 0.10000E+01 0.39689E+04 0.11832E-09 0.62307E-16 0.18238E-16 + 5 3 0.43485E-07 0.10000E+01 0.32008E+04 0.20981E-09 0.26149E-15 0.24103E-16 + 5 3 0.43485E-07 0.10000E+01 0.25813E+04 0.41168E-09 0.10699E-14 0.35198E-16 + 5 3 0.43485E-07 0.10000E+01 0.20817E+04 0.85373E-09 0.42659E-14 0.57307E-16 5 3 0.43485E-07 0.10000E+01 0.16788E+04 0.18044E-08 0.16563E-13 0.10200E-15 5 3 0.43485E-07 0.10000E+01 0.13538E+04 0.38037E-08 0.62762E-13 0.19192E-15 5 3 0.43485E-07 0.10000E+01 0.10918E+04 0.79111E-08 0.23341E-12 0.37049E-15 @@ -28970,24 +28970,24 @@ VERSION 2.8.2 5 3 0.43485E-07 0.10000E+01 0.24221E+03 0.77083E-06 0.70890E-09 0.30700E-13 5 3 0.43485E-07 0.10000E+01 0.19533E+03 0.12139E-05 0.13469E-08 0.48138E-13 5 3 0.43485E-07 0.10000E+01 0.15752E+03 0.12139E-05 0.13469E-08 0.48138E-13 - 5 3 0.75878E-07 0.10000E+01 0.80645E+05 0.11768E-53 0.88172E-65 0.51092E-60 - 5 3 0.75878E-07 0.10000E+01 0.65036E+05 0.99672E-53 0.14014E-63 0.43290E-59 - 5 3 0.75878E-07 0.10000E+01 0.52449E+05 0.84774E-52 0.18848E-62 0.36832E-58 - 5 3 0.75878E-07 0.10000E+01 0.42297E+05 0.63829E-51 0.25628E-61 0.27750E-57 - 5 3 0.75878E-07 0.10000E+01 0.34111E+05 0.46077E-50 0.35206E-60 0.20056E-56 - 5 3 0.75878E-07 0.10000E+01 0.27509E+05 0.33116E-49 0.47750E-59 0.14443E-55 - 5 3 0.75878E-07 0.10000E+01 0.22184E+05 0.23618E-48 0.63571E-58 0.10334E-54 - 5 3 0.75878E-07 0.10000E+01 0.17891E+05 0.16594E-47 0.83031E-57 0.72972E-54 - 5 3 0.75878E-07 0.10000E+01 0.14428E+05 0.11455E-46 0.10678E-55 0.50729E-53 - 5 3 0.75878E-07 0.10000E+01 0.11635E+05 0.77794E-46 0.13527E-54 0.34740E-52 - 5 3 0.75878E-07 0.10000E+01 0.93834E+04 0.52005E-45 0.16783E-53 0.23411E-51 - 5 3 0.75878E-07 0.10000E+01 0.75673E+04 0.34123E-44 0.20417E-52 0.15410E-50 - 5 3 0.75878E-07 0.10000E+01 0.61026E+04 0.22025E-43 0.25710E-51 0.97537E-50 - 5 3 0.75878E-07 0.10000E+01 0.49215E+04 0.14594E-42 0.40025E-50 0.58297E-49 - 5 3 0.75878E-07 0.10000E+01 0.39689E+04 0.11423E-41 0.88627E-49 0.33520E-48 - 5 3 0.75878E-07 0.10000E+01 0.32008E+04 0.38760E-39 0.77638E-46 0.70126E-46 - 5 3 0.75878E-07 0.10000E+01 0.25813E+04 0.27669E-30 0.13525E-36 0.37638E-37 - 5 3 0.75878E-07 0.10000E+01 0.20817E+04 0.55318E-14 0.11376E-19 0.72165E-21 + 5 3 0.75878E-07 0.10000E+01 0.80645E+05 0.79529E-11 0.50632E-22 0.34522E-17 + 5 3 0.75878E-07 0.10000E+01 0.65036E+05 0.10206E-10 0.11716E-21 0.44312E-17 + 5 3 0.75878E-07 0.10000E+01 0.52449E+05 0.12920E-10 0.26814E-21 0.56110E-17 + 5 3 0.75878E-07 0.10000E+01 0.42297E+05 0.16190E-10 0.60580E-21 0.70345E-17 + 5 3 0.75878E-07 0.10000E+01 0.34111E+05 0.20125E-10 0.13495E-20 0.87508E-17 + 5 3 0.75878E-07 0.10000E+01 0.27509E+05 0.24842E-10 0.29617E-20 0.10813E-16 + 5 3 0.75878E-07 0.10000E+01 0.22184E+05 0.30458E-10 0.64064E-20 0.13277E-16 + 5 3 0.75878E-07 0.10000E+01 0.17891E+05 0.37090E-10 0.13763E-19 0.16195E-16 + 5 3 0.75878E-07 0.10000E+01 0.14428E+05 0.44850E-10 0.30333E-19 0.19614E-16 + 5 3 0.75878E-07 0.10000E+01 0.11635E+05 0.53872E-10 0.74247E-19 0.23566E-16 + 5 3 0.75878E-07 0.10000E+01 0.93834E+04 0.64417E-10 0.22286E-18 0.28068E-16 + 5 3 0.75878E-07 0.10000E+01 0.75673E+04 0.77205E-10 0.82807E-18 0.33150E-16 + 5 3 0.75878E-07 0.10000E+01 0.61026E+04 0.94234E-10 0.34663E-17 0.38941E-16 + 5 3 0.75878E-07 0.10000E+01 0.49215E+04 0.12068E-09 0.14944E-16 0.45883E-16 + 5 3 0.75878E-07 0.10000E+01 0.39689E+04 0.16901E-09 0.63637E-16 0.55141E-16 + 5 3 0.75878E-07 0.10000E+01 0.32008E+04 0.26747E-09 0.26475E-15 0.69368E-16 + 5 3 0.75878E-07 0.10000E+01 0.25813E+04 0.47761E-09 0.10753E-14 0.94110E-16 + 5 3 0.75878E-07 0.10000E+01 0.20817E+04 0.92943E-09 0.42614E-14 0.14044E-15 5 3 0.75878E-07 0.10000E+01 0.16788E+04 0.18902E-08 0.16465E-13 0.22990E-15 5 3 0.75878E-07 0.10000E+01 0.13538E+04 0.38953E-08 0.62149E-13 0.40365E-15 5 3 0.75878E-07 0.10000E+01 0.10918E+04 0.79910E-08 0.23042E-12 0.73923E-15 @@ -29000,24 +29000,24 @@ VERSION 2.8.2 5 3 0.75878E-07 0.10000E+01 0.24221E+03 0.75776E-06 0.69501E-09 0.53513E-13 5 3 0.75878E-07 0.10000E+01 0.19533E+03 0.11925E-05 0.13204E-08 0.83588E-13 5 3 0.75878E-07 0.10000E+01 0.15752E+03 0.11925E-05 0.13204E-08 0.83588E-13 - 5 3 0.13240E-06 0.10000E+01 0.80645E+05 0.21255E-53 0.15929E-64 0.15978E-59 - 5 3 0.13240E-06 0.10000E+01 0.65036E+05 0.18006E-52 0.25322E-63 0.13540E-58 - 5 3 0.13240E-06 0.10000E+01 0.52449E+05 0.15317E-51 0.34070E-62 0.11522E-57 - 5 3 0.13240E-06 0.10000E+01 0.42297E+05 0.11537E-50 0.46359E-61 0.86834E-57 - 5 3 0.13240E-06 0.10000E+01 0.34111E+05 0.83333E-50 0.63760E-60 0.62786E-56 - 5 3 0.13240E-06 0.10000E+01 0.27509E+05 0.59954E-49 0.86645E-59 0.45248E-55 - 5 3 0.13240E-06 0.10000E+01 0.22184E+05 0.42832E-48 0.11570E-57 0.32414E-54 - 5 3 0.13240E-06 0.10000E+01 0.17891E+05 0.30173E-47 0.15176E-56 0.22932E-53 - 5 3 0.13240E-06 0.10000E+01 0.14428E+05 0.20905E-46 0.19608E-55 0.15985E-52 - 5 3 0.13240E-06 0.10000E+01 0.11635E+05 0.14258E-45 0.24941E-54 0.10986E-51 - 5 3 0.13240E-06 0.10000E+01 0.93834E+04 0.95697E-45 0.30958E-53 0.74376E-51 - 5 3 0.13240E-06 0.10000E+01 0.75673E+04 0.62849E-44 0.37082E-52 0.49273E-50 - 5 3 0.13240E-06 0.10000E+01 0.61026E+04 0.40074E-43 0.43429E-51 0.31481E-49 - 5 3 0.13240E-06 0.10000E+01 0.49215E+04 0.25075E-42 0.56277E-50 0.19007E-48 - 5 3 0.13240E-06 0.10000E+01 0.39689E+04 0.16879E-41 0.10304E-48 0.10826E-47 - 5 3 0.13240E-06 0.10000E+01 0.32008E+04 0.47538E-39 0.84508E-46 0.20835E-45 - 5 3 0.13240E-06 0.10000E+01 0.25813E+04 0.31212E-30 0.14525E-36 0.99135E-37 - 5 3 0.13240E-06 0.10000E+01 0.20817E+04 0.61795E-14 0.11757E-19 0.18341E-20 + 5 3 0.13240E-06 0.10000E+01 0.80645E+05 0.14363E-10 0.91609E-22 0.10795E-16 + 5 3 0.13240E-06 0.10000E+01 0.65036E+05 0.18434E-10 0.21223E-21 0.13858E-16 + 5 3 0.13240E-06 0.10000E+01 0.52449E+05 0.23339E-10 0.48660E-21 0.17550E-16 + 5 3 0.13240E-06 0.10000E+01 0.42297E+05 0.29253E-10 0.11020E-20 0.22006E-16 + 5 3 0.13240E-06 0.10000E+01 0.34111E+05 0.36378E-10 0.24617E-20 0.27383E-16 + 5 3 0.13240E-06 0.10000E+01 0.27509E+05 0.44928E-10 0.54167E-20 0.33851E-16 + 5 3 0.13240E-06 0.10000E+01 0.22184E+05 0.55126E-10 0.11715E-19 0.41587E-16 + 5 3 0.13240E-06 0.10000E+01 0.17891E+05 0.67187E-10 0.24909E-19 0.50769E-16 + 5 3 0.13240E-06 0.10000E+01 0.14428E+05 0.81306E-10 0.52818E-19 0.61553E-16 + 5 3 0.13240E-06 0.10000E+01 0.11635E+05 0.97663E-10 0.11772E-18 0.74053E-16 + 5 3 0.13240E-06 0.10000E+01 0.93834E+04 0.11651E-09 0.30554E-18 0.88322E-16 + 5 3 0.13240E-06 0.10000E+01 0.75673E+04 0.13849E-09 0.99551E-18 0.10440E-15 + 5 3 0.13240E-06 0.10000E+01 0.61026E+04 0.16556E-09 0.38662E-17 0.12252E-15 + 5 3 0.13240E-06 0.10000E+01 0.49215E+04 0.20295E-09 0.16075E-16 0.14355E-15 + 5 3 0.13240E-06 0.10000E+01 0.39689E+04 0.26356E-09 0.67033E-16 0.16998E-15 + 5 3 0.13240E-06 0.10000E+01 0.32008E+04 0.37667E-09 0.27451E-15 0.20747E-15 + 5 3 0.13240E-06 0.10000E+01 0.25813E+04 0.60548E-09 0.11003E-14 0.26763E-15 + 5 3 0.13240E-06 0.10000E+01 0.20817E+04 0.10821E-08 0.43127E-14 0.37293E-15 5 3 0.13240E-06 0.10000E+01 0.16788E+04 0.20755E-08 0.16516E-13 0.56552E-15 5 3 0.13240E-06 0.10000E+01 0.13538E+04 0.41198E-08 0.61909E-13 0.92326E-15 5 3 0.13240E-06 0.10000E+01 0.10918E+04 0.82524E-08 0.22829E-12 0.15886E-14 @@ -29030,24 +29030,24 @@ VERSION 2.8.2 5 3 0.13240E-06 0.10000E+01 0.24221E+03 0.74530E-06 0.68036E-09 0.94720E-13 5 3 0.13240E-06 0.10000E+01 0.19533E+03 0.11715E-05 0.12924E-08 0.14701E-12 5 3 0.13240E-06 0.10000E+01 0.15752E+03 0.11715E-05 0.12924E-08 0.14701E-12 - 5 3 0.23103E-06 0.10000E+01 0.80645E+05 0.38220E-53 0.28649E-64 0.49650E-59 - 5 3 0.23103E-06 0.10000E+01 0.65036E+05 0.32383E-52 0.45550E-63 0.42081E-58 - 5 3 0.23103E-06 0.10000E+01 0.52449E+05 0.27552E-51 0.61308E-62 0.35814E-57 - 5 3 0.23103E-06 0.10000E+01 0.42297E+05 0.20758E-50 0.83474E-61 0.26996E-56 - 5 3 0.23103E-06 0.10000E+01 0.34111E+05 0.15002E-49 0.11492E-59 0.19527E-55 - 5 3 0.23103E-06 0.10000E+01 0.27509E+05 0.10803E-48 0.15642E-58 0.14082E-54 - 5 3 0.23103E-06 0.10000E+01 0.22184E+05 0.77286E-48 0.20941E-57 0.10098E-53 - 5 3 0.23103E-06 0.10000E+01 0.17891E+05 0.54565E-47 0.27565E-56 0.71552E-53 - 5 3 0.23103E-06 0.10000E+01 0.14428E+05 0.37925E-46 0.35770E-55 0.49988E-52 - 5 3 0.23103E-06 0.10000E+01 0.11635E+05 0.25968E-45 0.45716E-54 0.34456E-51 - 5 3 0.23103E-06 0.10000E+01 0.93834E+04 0.17507E-44 0.57003E-53 0.23417E-50 - 5 3 0.23103E-06 0.10000E+01 0.75673E+04 0.11547E-43 0.68264E-52 0.15595E-49 - 5 3 0.23103E-06 0.10000E+01 0.61026E+04 0.73634E-43 0.77808E-51 0.10042E-48 - 5 3 0.23103E-06 0.10000E+01 0.49215E+04 0.45115E-42 0.89840E-50 0.61254E-48 - 5 3 0.23103E-06 0.10000E+01 0.39689E+04 0.27794E-41 0.13470E-48 0.34963E-47 - 5 3 0.23103E-06 0.10000E+01 0.32008E+04 0.65912E-39 0.98949E-46 0.64255E-45 - 5 3 0.23103E-06 0.10000E+01 0.25813E+04 0.38516E-30 0.16542E-36 0.27788E-36 - 5 3 0.23103E-06 0.10000E+01 0.20817E+04 0.74693E-14 0.12640E-19 0.49735E-20 + 5 3 0.23103E-06 0.10000E+01 0.80645E+05 0.25824E-10 0.16498E-21 0.33543E-16 + 5 3 0.23103E-06 0.10000E+01 0.65036E+05 0.33148E-10 0.38259E-21 0.43062E-16 + 5 3 0.23103E-06 0.10000E+01 0.52449E+05 0.41973E-10 0.87853E-21 0.54539E-16 + 5 3 0.23103E-06 0.10000E+01 0.42297E+05 0.52621E-10 0.19938E-20 0.68400E-16 + 5 3 0.23103E-06 0.10000E+01 0.34111E+05 0.65459E-10 0.44660E-20 0.85134E-16 + 5 3 0.23103E-06 0.10000E+01 0.27509E+05 0.80883E-10 0.98570E-20 0.10528E-15 + 5 3 0.23103E-06 0.10000E+01 0.22184E+05 0.99307E-10 0.21372E-19 0.12940E-15 + 5 3 0.23103E-06 0.10000E+01 0.17891E+05 0.12114E-09 0.45374E-19 0.15808E-15 + 5 3 0.23103E-06 0.10000E+01 0.14428E+05 0.14673E-09 0.94685E-19 0.19183E-15 + 5 3 0.23103E-06 0.10000E+01 0.11635E+05 0.17638E-09 0.20022E-18 0.23106E-15 + 5 3 0.23103E-06 0.10000E+01 0.93834E+04 0.21036E-09 0.46601E-18 0.27594E-15 + 5 3 0.23103E-06 0.10000E+01 0.75673E+04 0.24926E-09 0.13274E-17 0.32654E-15 + 5 3 0.23103E-06 0.10000E+01 0.61026E+04 0.29496E-09 0.46720E-17 0.38324E-15 + 5 3 0.23103E-06 0.10000E+01 0.49215E+04 0.35294E-09 0.18398E-16 0.44791E-15 + 5 3 0.23103E-06 0.10000E+01 0.39689E+04 0.43705E-09 0.74266E-16 0.52611E-15 + 5 3 0.23103E-06 0.10000E+01 0.32008E+04 0.57880E-09 0.29672E-15 0.63074E-15 + 5 3 0.23103E-06 0.10000E+01 0.25813E+04 0.84547E-09 0.11646E-14 0.78790E-15 + 5 3 0.23103E-06 0.10000E+01 0.20817E+04 0.13753E-08 0.44836E-14 0.10464E-14 5 3 0.23103E-06 0.10000E+01 0.16788E+04 0.24451E-08 0.16919E-13 0.14940E-14 5 3 0.23103E-06 0.10000E+01 0.13538E+04 0.45970E-08 0.62679E-13 0.22862E-14 5 3 0.23103E-06 0.10000E+01 0.10918E+04 0.88730E-08 0.22902E-12 0.36959E-14 @@ -29060,24 +29060,24 @@ VERSION 2.8.2 5 3 0.23103E-06 0.10000E+01 0.24221E+03 0.73853E-06 0.66870E-09 0.17168E-12 5 3 0.23103E-06 0.10000E+01 0.19533E+03 0.11584E-05 0.12699E-08 0.26376E-12 5 3 0.23103E-06 0.10000E+01 0.15752E+03 0.11584E-05 0.12699E-08 0.26376E-12 - 5 3 0.40314E-06 0.10000E+01 0.80645E+05 0.68407E-53 0.51287E-64 0.15262E-58 - 5 3 0.40314E-06 0.10000E+01 0.65036E+05 0.57969E-52 0.81552E-63 0.12937E-57 - 5 3 0.40314E-06 0.10000E+01 0.52449E+05 0.49329E-51 0.10980E-61 0.11012E-56 - 5 3 0.40314E-06 0.10000E+01 0.42297E+05 0.37175E-50 0.14958E-60 0.83019E-56 - 5 3 0.40314E-06 0.10000E+01 0.34111E+05 0.26879E-49 0.20610E-59 0.60072E-55 - 5 3 0.40314E-06 0.10000E+01 0.27509E+05 0.19369E-48 0.28091E-58 0.43342E-54 - 5 3 0.40314E-06 0.10000E+01 0.22184E+05 0.13874E-47 0.37690E-57 0.31107E-53 - 5 3 0.40314E-06 0.10000E+01 0.17891E+05 0.98138E-47 0.49763E-56 0.22071E-52 - 5 3 0.40314E-06 0.10000E+01 0.14428E+05 0.68392E-46 0.64820E-55 0.15448E-51 - 5 3 0.40314E-06 0.10000E+01 0.11635E+05 0.46992E-45 0.83216E-54 0.10674E-50 - 5 3 0.40314E-06 0.10000E+01 0.93834E+04 0.31813E-44 0.10433E-52 0.72770E-50 - 5 3 0.40314E-06 0.10000E+01 0.75673E+04 0.21086E-43 0.12561E-51 0.48670E-49 - 5 3 0.40314E-06 0.10000E+01 0.61026E+04 0.13510E-42 0.14250E-50 0.31539E-48 - 5 3 0.40314E-06 0.10000E+01 0.49215E+04 0.82482E-42 0.15532E-49 0.19413E-47 - 5 3 0.40314E-06 0.10000E+01 0.39689E+04 0.48699E-41 0.19770E-48 0.11150E-46 - 5 3 0.40314E-06 0.10000E+01 0.32008E+04 0.10169E-38 0.12597E-45 0.20007E-44 - 5 3 0.40314E-06 0.10000E+01 0.25813E+04 0.52297E-30 0.20153E-36 0.80646E-36 - 5 3 0.40314E-06 0.10000E+01 0.20817E+04 0.98439E-14 0.14290E-19 0.14034E-19 + 5 3 0.40314E-06 0.10000E+01 0.80645E+05 0.46217E-10 0.29566E-21 0.10310E-15 + 5 3 0.40314E-06 0.10000E+01 0.65036E+05 0.59329E-10 0.68626E-21 0.13237E-15 + 5 3 0.40314E-06 0.10000E+01 0.52449E+05 0.75134E-10 0.15779E-20 0.16767E-15 + 5 3 0.40314E-06 0.10000E+01 0.42297E+05 0.94212E-10 0.35874E-20 0.21031E-15 + 5 3 0.40314E-06 0.10000E+01 0.34111E+05 0.11723E-09 0.80551E-20 0.26181E-15 + 5 3 0.40314E-06 0.10000E+01 0.27509E+05 0.14491E-09 0.17832E-19 0.32386E-15 + 5 3 0.40314E-06 0.10000E+01 0.22184E+05 0.17802E-09 0.38791E-19 0.39824E-15 + 5 3 0.40314E-06 0.10000E+01 0.17891E+05 0.21732E-09 0.82526E-19 0.48678E-15 + 5 3 0.40314E-06 0.10000E+01 0.14428E+05 0.26349E-09 0.17140E-18 0.59116E-15 + 5 3 0.40314E-06 0.10000E+01 0.11635E+05 0.31705E-09 0.35310E-18 0.71271E-15 + 5 3 0.40314E-06 0.10000E+01 0.93834E+04 0.37836E-09 0.76611E-18 0.85212E-15 + 5 3 0.40314E-06 0.10000E+01 0.75673E+04 0.44795E-09 0.19483E-17 0.10095E-14 + 5 3 0.40314E-06 0.10000E+01 0.61026E+04 0.52766E-09 0.61630E-17 0.11855E-14 + 5 3 0.40314E-06 0.10000E+01 0.49215E+04 0.62337E-09 0.22653E-16 0.13842E-14 + 5 3 0.40314E-06 0.10000E+01 0.39689E+04 0.75065E-09 0.87542E-16 0.16187E-14 + 5 3 0.40314E-06 0.10000E+01 0.32008E+04 0.94506E-09 0.33810E-15 0.19203E-14 + 5 3 0.40314E-06 0.10000E+01 0.25813E+04 0.12815E-08 0.12877E-14 0.23514E-14 + 5 3 0.40314E-06 0.10000E+01 0.20817E+04 0.19100E-08 0.48268E-14 0.30256E-14 5 3 0.40314E-06 0.10000E+01 0.16788E+04 0.31241E-08 0.17803E-13 0.41388E-14 5 3 0.40314E-06 0.10000E+01 0.13538E+04 0.54861E-08 0.64721E-13 0.60214E-14 5 3 0.40314E-06 0.10000E+01 0.10918E+04 0.10057E-07 0.23295E-12 0.92266E-14 @@ -29090,24 +29090,24 @@ VERSION 2.8.2 5 3 0.40314E-06 0.10000E+01 0.24221E+03 0.73603E-06 0.65716E-09 0.32181E-12 5 3 0.40314E-06 0.10000E+01 0.19533E+03 0.11504E-05 0.12474E-08 0.48697E-12 5 3 0.40314E-06 0.10000E+01 0.15752E+03 0.11504E-05 0.12474E-08 0.48697E-12 - 5 3 0.70346E-06 0.10000E+01 0.80645E+05 0.12022E-52 0.90140E-64 0.32383E-58 - 5 3 0.70346E-06 0.10000E+01 0.65036E+05 0.10188E-51 0.14334E-62 0.27450E-57 - 5 3 0.70346E-06 0.10000E+01 0.52449E+05 0.86701E-51 0.19301E-61 0.23365E-56 - 5 3 0.70346E-06 0.10000E+01 0.42297E+05 0.65344E-50 0.26298E-60 0.17617E-55 - 5 3 0.70346E-06 0.10000E+01 0.34111E+05 0.47253E-49 0.36244E-59 0.12749E-54 - 5 3 0.70346E-06 0.10000E+01 0.27509E+05 0.34060E-48 0.49422E-58 0.91998E-54 - 5 3 0.70346E-06 0.10000E+01 0.22184E+05 0.24406E-47 0.66357E-57 0.66044E-53 - 5 3 0.70346E-06 0.10000E+01 0.17891E+05 0.17274E-46 0.87698E-56 0.46878E-52 - 5 3 0.70346E-06 0.10000E+01 0.14428E+05 0.12049E-45 0.11437E-54 0.32829E-51 - 5 3 0.70346E-06 0.10000E+01 0.11635E+05 0.82878E-45 0.14705E-53 0.22701E-50 - 5 3 0.70346E-06 0.10000E+01 0.93834E+04 0.56184E-44 0.18471E-52 0.15491E-49 - 5 3 0.70346E-06 0.10000E+01 0.75673E+04 0.37305E-43 0.22293E-51 0.10374E-48 - 5 3 0.70346E-06 0.10000E+01 0.61026E+04 0.23951E-42 0.25316E-50 0.67354E-48 - 5 3 0.70346E-06 0.10000E+01 0.49215E+04 0.14635E-41 0.27288E-49 0.41573E-47 - 5 3 0.70346E-06 0.10000E+01 0.39689E+04 0.85720E-41 0.33177E-48 0.23938E-46 - 5 3 0.70346E-06 0.10000E+01 0.32008E+04 0.17305E-38 0.20026E-45 0.42731E-44 - 5 3 0.70346E-06 0.10000E+01 0.25813E+04 0.85177E-30 0.31427E-36 0.16890E-35 - 5 3 0.70346E-06 0.10000E+01 0.20817E+04 0.15842E-13 0.21630E-19 0.29140E-19 + 5 3 0.70346E-06 0.10000E+01 0.80645E+05 0.81222E-10 0.51983E-21 0.21876E-15 + 5 3 0.70346E-06 0.10000E+01 0.65036E+05 0.10427E-09 0.12069E-20 0.28086E-15 + 5 3 0.70346E-06 0.10000E+01 0.52449E+05 0.13205E-09 0.27761E-20 0.35576E-15 + 5 3 0.70346E-06 0.10000E+01 0.42297E+05 0.16559E-09 0.63154E-20 0.44626E-15 + 5 3 0.70346E-06 0.10000E+01 0.34111E+05 0.20606E-09 0.14192E-19 0.55558E-15 + 5 3 0.70346E-06 0.10000E+01 0.27509E+05 0.25476E-09 0.31448E-19 0.68731E-15 + 5 3 0.70346E-06 0.10000E+01 0.22184E+05 0.31303E-09 0.68494E-19 0.84527E-15 + 5 3 0.70346E-06 0.10000E+01 0.17891E+05 0.38222E-09 0.14588E-18 0.10334E-14 + 5 3 0.70346E-06 0.10000E+01 0.14428E+05 0.46356E-09 0.30291E-18 0.12552E-14 + 5 3 0.70346E-06 0.10000E+01 0.11635E+05 0.55800E-09 0.62069E-18 0.15138E-14 + 5 3 0.70346E-06 0.10000E+01 0.93834E+04 0.66612E-09 0.13233E-17 0.18105E-14 + 5 3 0.70346E-06 0.10000E+01 0.75673E+04 0.78865E-09 0.32550E-17 0.21458E-14 + 5 3 0.70346E-06 0.10000E+01 0.61026E+04 0.92817E-09 0.99232E-17 0.25205E-14 + 5 3 0.70346E-06 0.10000E+01 0.49215E+04 0.10934E-08 0.35515E-16 0.29425E-14 + 5 3 0.70346E-06 0.10000E+01 0.39689E+04 0.13078E-08 0.13485E-15 0.34376E-14 + 5 3 0.70346E-06 0.10000E+01 0.32008E+04 0.16250E-08 0.51351E-15 0.40675E-14 + 5 3 0.70346E-06 0.10000E+01 0.25813E+04 0.21577E-08 0.19307E-14 0.49556E-14 + 5 3 0.70346E-06 0.10000E+01 0.20817E+04 0.31290E-08 0.71513E-14 0.63242E-14 5 3 0.70346E-06 0.10000E+01 0.16788E+04 0.49707E-08 0.26099E-13 0.85521E-14 5 3 0.70346E-06 0.10000E+01 0.13538E+04 0.85013E-08 0.94032E-13 0.12267E-13 5 3 0.70346E-06 0.10000E+01 0.10918E+04 0.15253E-07 0.33597E-12 0.18500E-13 @@ -29120,24 +29120,24 @@ VERSION 2.8.2 5 3 0.70346E-06 0.10000E+01 0.24221E+03 0.10508E-05 0.93149E-09 0.58131E-12 5 3 0.70346E-06 0.10000E+01 0.19533E+03 0.16394E-05 0.17677E-08 0.87375E-12 5 3 0.70346E-06 0.10000E+01 0.15752E+03 0.16394E-05 0.17677E-08 0.87375E-12 - 5 3 0.12275E-05 0.10000E+01 0.80645E+05 0.20978E-52 0.15729E-63 0.56506E-58 - 5 3 0.12275E-05 0.10000E+01 0.65036E+05 0.17778E-51 0.25012E-62 0.47899E-57 - 5 3 0.12275E-05 0.10000E+01 0.52449E+05 0.15129E-50 0.33679E-61 0.40771E-56 - 5 3 0.12275E-05 0.10000E+01 0.42297E+05 0.11402E-49 0.45888E-60 0.30740E-55 - 5 3 0.12275E-05 0.10000E+01 0.34111E+05 0.82454E-49 0.63243E-59 0.22246E-54 - 5 3 0.12275E-05 0.10000E+01 0.27509E+05 0.59432E-48 0.86239E-58 0.16053E-53 - 5 3 0.12275E-05 0.10000E+01 0.22184E+05 0.42587E-47 0.11579E-56 0.11524E-52 - 5 3 0.12275E-05 0.10000E+01 0.17891E+05 0.30142E-46 0.15303E-55 0.81799E-52 - 5 3 0.12275E-05 0.10000E+01 0.14428E+05 0.21024E-45 0.19957E-54 0.57285E-51 - 5 3 0.12275E-05 0.10000E+01 0.11635E+05 0.14462E-44 0.25660E-53 0.39611E-50 - 5 3 0.12275E-05 0.10000E+01 0.93834E+04 0.98038E-44 0.32231E-52 0.27031E-49 - 5 3 0.12275E-05 0.10000E+01 0.75673E+04 0.65095E-43 0.38899E-51 0.18102E-48 - 5 3 0.12275E-05 0.10000E+01 0.61026E+04 0.41793E-42 0.44175E-50 0.11753E-47 - 5 3 0.12275E-05 0.10000E+01 0.49215E+04 0.25537E-41 0.47616E-49 0.72543E-47 - 5 3 0.12275E-05 0.10000E+01 0.39689E+04 0.14958E-40 0.57892E-48 0.41771E-46 - 5 3 0.12275E-05 0.10000E+01 0.32008E+04 0.30195E-38 0.34944E-45 0.74564E-44 - 5 3 0.12275E-05 0.10000E+01 0.25813E+04 0.14863E-29 0.54838E-36 0.29472E-35 - 5 3 0.12275E-05 0.10000E+01 0.20817E+04 0.27643E-13 0.37743E-19 0.50848E-19 + 5 3 0.12275E-05 0.10000E+01 0.80645E+05 0.14173E-09 0.90707E-21 0.38172E-15 + 5 3 0.12275E-05 0.10000E+01 0.65036E+05 0.18194E-09 0.21060E-20 0.49009E-15 + 5 3 0.12275E-05 0.10000E+01 0.52449E+05 0.23042E-09 0.48442E-20 0.62078E-15 + 5 3 0.12275E-05 0.10000E+01 0.42297E+05 0.28894E-09 0.11020E-19 0.77869E-15 + 5 3 0.12275E-05 0.10000E+01 0.34111E+05 0.35957E-09 0.24764E-19 0.96945E-15 + 5 3 0.12275E-05 0.10000E+01 0.27509E+05 0.44454E-09 0.54875E-19 0.11993E-14 + 5 3 0.12275E-05 0.10000E+01 0.22184E+05 0.54621E-09 0.11952E-18 0.14749E-14 + 5 3 0.12275E-05 0.10000E+01 0.17891E+05 0.66695E-09 0.25455E-18 0.18032E-14 + 5 3 0.12275E-05 0.10000E+01 0.14428E+05 0.80889E-09 0.52855E-18 0.21903E-14 + 5 3 0.12275E-05 0.10000E+01 0.11635E+05 0.97367E-09 0.10831E-17 0.26415E-14 + 5 3 0.12275E-05 0.10000E+01 0.93834E+04 0.11623E-08 0.23092E-17 0.31593E-14 + 5 3 0.12275E-05 0.10000E+01 0.75673E+04 0.13762E-08 0.56797E-17 0.37442E-14 + 5 3 0.12275E-05 0.10000E+01 0.61026E+04 0.16196E-08 0.17315E-16 0.43981E-14 + 5 3 0.12275E-05 0.10000E+01 0.49215E+04 0.19079E-08 0.61972E-16 0.51344E-14 + 5 3 0.12275E-05 0.10000E+01 0.39689E+04 0.22820E-08 0.23530E-15 0.59983E-14 + 5 3 0.12275E-05 0.10000E+01 0.32008E+04 0.28356E-08 0.89605E-15 0.70975E-14 + 5 3 0.12275E-05 0.10000E+01 0.25813E+04 0.37650E-08 0.33689E-14 0.86472E-14 + 5 3 0.12275E-05 0.10000E+01 0.20817E+04 0.54599E-08 0.12479E-13 0.11035E-13 5 3 0.12275E-05 0.10000E+01 0.16788E+04 0.86736E-08 0.45541E-13 0.14923E-13 5 3 0.12275E-05 0.10000E+01 0.13538E+04 0.14834E-07 0.16408E-12 0.21405E-13 5 3 0.12275E-05 0.10000E+01 0.10918E+04 0.26615E-07 0.58625E-12 0.32282E-13 @@ -29150,24 +29150,24 @@ VERSION 2.8.2 5 3 0.12275E-05 0.10000E+01 0.24221E+03 0.18336E-05 0.16254E-08 0.10143E-11 5 3 0.12275E-05 0.10000E+01 0.19533E+03 0.28606E-05 0.30845E-08 0.15246E-11 5 3 0.12275E-05 0.10000E+01 0.15752E+03 0.28606E-05 0.30845E-08 0.15246E-11 - 5 3 0.21419E-05 0.10000E+01 0.80645E+05 0.36605E-52 0.27446E-63 0.98600E-58 - 5 3 0.21419E-05 0.10000E+01 0.65036E+05 0.31021E-51 0.43644E-62 0.83582E-57 - 5 3 0.21419E-05 0.10000E+01 0.52449E+05 0.26399E-50 0.58768E-61 0.71143E-56 - 5 3 0.21419E-05 0.10000E+01 0.42297E+05 0.19896E-49 0.80072E-60 0.53640E-55 - 5 3 0.21419E-05 0.10000E+01 0.34111E+05 0.14388E-48 0.11036E-58 0.38817E-54 - 5 3 0.21419E-05 0.10000E+01 0.27509E+05 0.10371E-47 0.15048E-57 0.28012E-53 - 5 3 0.21419E-05 0.10000E+01 0.22184E+05 0.74312E-47 0.20204E-56 0.20109E-52 - 5 3 0.21419E-05 0.10000E+01 0.17891E+05 0.52597E-46 0.26702E-55 0.14273E-51 - 5 3 0.21419E-05 0.10000E+01 0.14428E+05 0.36686E-45 0.34824E-54 0.99959E-51 - 5 3 0.21419E-05 0.10000E+01 0.11635E+05 0.25235E-44 0.44774E-53 0.69119E-50 - 5 3 0.21419E-05 0.10000E+01 0.93834E+04 0.17107E-43 0.56242E-52 0.47167E-49 - 5 3 0.21419E-05 0.10000E+01 0.75673E+04 0.11359E-42 0.67877E-51 0.31587E-48 - 5 3 0.21419E-05 0.10000E+01 0.61026E+04 0.72926E-42 0.77082E-50 0.20508E-47 - 5 3 0.21419E-05 0.10000E+01 0.49215E+04 0.44561E-41 0.83088E-49 0.12658E-46 - 5 3 0.21419E-05 0.10000E+01 0.39689E+04 0.26100E-40 0.10102E-47 0.72888E-46 - 5 3 0.21419E-05 0.10000E+01 0.32008E+04 0.52689E-38 0.60975E-45 0.13011E-43 - 5 3 0.21419E-05 0.10000E+01 0.25813E+04 0.25935E-29 0.95688E-36 0.51426E-35 - 5 3 0.21419E-05 0.10000E+01 0.20817E+04 0.48235E-13 0.65858E-19 0.88727E-19 + 5 3 0.21419E-05 0.10000E+01 0.80645E+05 0.24731E-09 0.15828E-20 0.66607E-15 + 5 3 0.21419E-05 0.10000E+01 0.65036E+05 0.31748E-09 0.36748E-20 0.85517E-15 + 5 3 0.21419E-05 0.10000E+01 0.52449E+05 0.40206E-09 0.84528E-20 0.10832E-14 + 5 3 0.21419E-05 0.10000E+01 0.42297E+05 0.50419E-09 0.19229E-19 0.13588E-14 + 5 3 0.21419E-05 0.10000E+01 0.34111E+05 0.62743E-09 0.43211E-19 0.16916E-14 + 5 3 0.21419E-05 0.10000E+01 0.27509E+05 0.77569E-09 0.95754E-19 0.20927E-14 + 5 3 0.21419E-05 0.10000E+01 0.22184E+05 0.95311E-09 0.20855E-18 0.25737E-14 + 5 3 0.21419E-05 0.10000E+01 0.17891E+05 0.11638E-08 0.44418E-18 0.31464E-14 + 5 3 0.21419E-05 0.10000E+01 0.14428E+05 0.14115E-08 0.92229E-18 0.38220E-14 + 5 3 0.21419E-05 0.10000E+01 0.11635E+05 0.16990E-08 0.18899E-17 0.46092E-14 + 5 3 0.21419E-05 0.10000E+01 0.93834E+04 0.20282E-08 0.40293E-17 0.55128E-14 + 5 3 0.21419E-05 0.10000E+01 0.75673E+04 0.24013E-08 0.99107E-17 0.65334E-14 + 5 3 0.21419E-05 0.10000E+01 0.61026E+04 0.28261E-08 0.30214E-16 0.76744E-14 + 5 3 0.21419E-05 0.10000E+01 0.49215E+04 0.33292E-08 0.10814E-15 0.89593E-14 + 5 3 0.21419E-05 0.10000E+01 0.39689E+04 0.39819E-08 0.41058E-15 0.10467E-13 + 5 3 0.21419E-05 0.10000E+01 0.32008E+04 0.49480E-08 0.15636E-14 0.12385E-13 + 5 3 0.21419E-05 0.10000E+01 0.25813E+04 0.65697E-08 0.58786E-14 0.15089E-13 + 5 3 0.21419E-05 0.10000E+01 0.20817E+04 0.95273E-08 0.21774E-13 0.19256E-13 5 3 0.21419E-05 0.10000E+01 0.16788E+04 0.15135E-07 0.79466E-13 0.26040E-13 5 3 0.21419E-05 0.10000E+01 0.13538E+04 0.25885E-07 0.28631E-12 0.37351E-13 5 3 0.21419E-05 0.10000E+01 0.10918E+04 0.46442E-07 0.10230E-11 0.56330E-13 @@ -29180,24 +29180,24 @@ VERSION 2.8.2 5 3 0.21419E-05 0.10000E+01 0.24221E+03 0.31995E-05 0.28362E-08 0.17700E-11 5 3 0.21419E-05 0.10000E+01 0.19533E+03 0.49916E-05 0.53823E-08 0.26604E-11 5 3 0.21419E-05 0.10000E+01 0.15752E+03 0.49916E-05 0.53823E-08 0.26604E-11 - 5 3 0.37375E-05 0.10000E+01 0.80645E+05 0.63873E-52 0.47891E-63 0.17205E-57 - 5 3 0.37375E-05 0.10000E+01 0.65036E+05 0.54130E-51 0.76156E-62 0.14584E-56 - 5 3 0.37375E-05 0.10000E+01 0.52449E+05 0.46064E-50 0.10255E-60 0.12414E-55 - 5 3 0.37375E-05 0.10000E+01 0.42297E+05 0.34717E-49 0.13972E-59 0.93599E-55 - 5 3 0.37375E-05 0.10000E+01 0.34111E+05 0.25106E-48 0.19256E-58 0.67734E-54 - 5 3 0.37375E-05 0.10000E+01 0.27509E+05 0.18096E-47 0.26258E-57 0.48879E-53 - 5 3 0.37375E-05 0.10000E+01 0.22184E+05 0.12967E-46 0.35255E-56 0.35089E-52 - 5 3 0.37375E-05 0.10000E+01 0.17891E+05 0.91778E-46 0.46594E-55 0.24906E-51 - 5 3 0.37375E-05 0.10000E+01 0.14428E+05 0.64015E-45 0.60766E-54 0.17442E-50 - 5 3 0.37375E-05 0.10000E+01 0.11635E+05 0.44033E-44 0.78129E-53 0.12061E-49 - 5 3 0.37375E-05 0.10000E+01 0.93834E+04 0.29851E-43 0.98138E-52 0.82304E-49 - 5 3 0.37375E-05 0.10000E+01 0.75673E+04 0.19820E-42 0.11844E-50 0.55118E-48 - 5 3 0.37375E-05 0.10000E+01 0.61026E+04 0.12725E-41 0.13450E-49 0.35785E-47 - 5 3 0.37375E-05 0.10000E+01 0.49215E+04 0.77756E-41 0.14498E-48 0.22088E-46 - 5 3 0.37375E-05 0.10000E+01 0.39689E+04 0.45543E-40 0.17627E-47 0.12718E-45 - 5 3 0.37375E-05 0.10000E+01 0.32008E+04 0.91940E-38 0.10640E-44 0.22703E-43 - 5 3 0.37375E-05 0.10000E+01 0.25813E+04 0.45255E-29 0.16697E-35 0.89736E-35 - 5 3 0.37375E-05 0.10000E+01 0.20817E+04 0.84167E-13 0.11492E-18 0.15482E-18 + 5 3 0.37375E-05 0.10000E+01 0.80645E+05 0.43153E-09 0.27619E-20 0.11623E-14 + 5 3 0.37375E-05 0.10000E+01 0.65036E+05 0.55398E-09 0.64123E-20 0.14922E-14 + 5 3 0.37375E-05 0.10000E+01 0.52449E+05 0.70157E-09 0.14750E-19 0.18902E-14 + 5 3 0.37375E-05 0.10000E+01 0.42297E+05 0.87978E-09 0.33554E-19 0.23710E-14 + 5 3 0.37375E-05 0.10000E+01 0.34111E+05 0.10948E-08 0.75400E-19 0.29518E-14 + 5 3 0.37375E-05 0.10000E+01 0.27509E+05 0.13535E-08 0.16708E-18 0.36517E-14 + 5 3 0.37375E-05 0.10000E+01 0.22184E+05 0.16631E-08 0.36391E-18 0.44909E-14 + 5 3 0.37375E-05 0.10000E+01 0.17891E+05 0.20307E-08 0.77507E-18 0.54903E-14 + 5 3 0.37375E-05 0.10000E+01 0.14428E+05 0.24629E-08 0.16093E-17 0.66691E-14 + 5 3 0.37375E-05 0.10000E+01 0.11635E+05 0.29647E-08 0.32977E-17 0.80428E-14 + 5 3 0.37375E-05 0.10000E+01 0.93834E+04 0.35391E-08 0.70310E-17 0.96194E-14 + 5 3 0.37375E-05 0.10000E+01 0.75673E+04 0.41901E-08 0.17294E-16 0.11400E-13 + 5 3 0.37375E-05 0.10000E+01 0.61026E+04 0.49314E-08 0.52722E-16 0.13391E-13 + 5 3 0.37375E-05 0.10000E+01 0.49215E+04 0.58093E-08 0.18869E-15 0.15633E-13 + 5 3 0.37375E-05 0.10000E+01 0.39689E+04 0.69482E-08 0.71644E-15 0.18264E-13 + 5 3 0.37375E-05 0.10000E+01 0.32008E+04 0.86339E-08 0.27283E-14 0.21611E-13 + 5 3 0.37375E-05 0.10000E+01 0.25813E+04 0.11464E-07 0.10258E-13 0.26329E-13 + 5 3 0.37375E-05 0.10000E+01 0.20817E+04 0.16625E-07 0.37995E-13 0.33601E-13 5 3 0.37375E-05 0.10000E+01 0.16788E+04 0.26409E-07 0.13866E-12 0.45438E-13 5 3 0.37375E-05 0.10000E+01 0.13538E+04 0.45167E-07 0.49959E-12 0.65175E-13 5 3 0.37375E-05 0.10000E+01 0.10918E+04 0.81039E-07 0.17850E-11 0.98293E-13 @@ -29210,24 +29210,24 @@ VERSION 2.8.2 5 3 0.37375E-05 0.10000E+01 0.24221E+03 0.55830E-05 0.49490E-08 0.30885E-11 5 3 0.37375E-05 0.10000E+01 0.19533E+03 0.87100E-05 0.93918E-08 0.46423E-11 5 3 0.37375E-05 0.10000E+01 0.15752E+03 0.87100E-05 0.93918E-08 0.46423E-11 - 5 3 0.65217E-05 0.10000E+01 0.80645E+05 0.11146E-51 0.83568E-63 0.30022E-57 - 5 3 0.65217E-05 0.10000E+01 0.65036E+05 0.94454E-51 0.13289E-61 0.25449E-56 - 5 3 0.65217E-05 0.10000E+01 0.52449E+05 0.80380E-50 0.17894E-60 0.21662E-55 - 5 3 0.65217E-05 0.10000E+01 0.42297E+05 0.60580E-49 0.24380E-59 0.16332E-54 - 5 3 0.65217E-05 0.10000E+01 0.34111E+05 0.43808E-48 0.33601E-58 0.11819E-53 - 5 3 0.65217E-05 0.10000E+01 0.27509E+05 0.31576E-47 0.45819E-57 0.85290E-53 - 5 3 0.65217E-05 0.10000E+01 0.22184E+05 0.22627E-46 0.61518E-56 0.61229E-52 - 5 3 0.65217E-05 0.10000E+01 0.17891E+05 0.16015E-45 0.81303E-55 0.43460E-51 - 5 3 0.65217E-05 0.10000E+01 0.14428E+05 0.11170E-44 0.10603E-53 0.30436E-50 - 5 3 0.65217E-05 0.10000E+01 0.11635E+05 0.76835E-44 0.13633E-52 0.21046E-49 - 5 3 0.65217E-05 0.10000E+01 0.93834E+04 0.52088E-43 0.17125E-51 0.14362E-48 - 5 3 0.65217E-05 0.10000E+01 0.75673E+04 0.34585E-42 0.20667E-50 0.96177E-48 - 5 3 0.65217E-05 0.10000E+01 0.61026E+04 0.22205E-41 0.23470E-49 0.62443E-47 - 5 3 0.65217E-05 0.10000E+01 0.49215E+04 0.13568E-40 0.25299E-48 0.38542E-46 - 5 3 0.65217E-05 0.10000E+01 0.39689E+04 0.79470E-40 0.30758E-47 0.22193E-45 - 5 3 0.65217E-05 0.10000E+01 0.32008E+04 0.16043E-37 0.18566E-44 0.39616E-43 - 5 3 0.65217E-05 0.10000E+01 0.25813E+04 0.78967E-29 0.29135E-35 0.15658E-34 - 5 3 0.65217E-05 0.10000E+01 0.20817E+04 0.14687E-12 0.20053E-18 0.27016E-18 + 5 3 0.65217E-05 0.10000E+01 0.80645E+05 0.75300E-09 0.48193E-20 0.20281E-14 + 5 3 0.65217E-05 0.10000E+01 0.65036E+05 0.96665E-09 0.11189E-19 0.26038E-14 + 5 3 0.65217E-05 0.10000E+01 0.52449E+05 0.12242E-08 0.25737E-19 0.32982E-14 + 5 3 0.65217E-05 0.10000E+01 0.42297E+05 0.15352E-08 0.58550E-19 0.41372E-14 + 5 3 0.65217E-05 0.10000E+01 0.34111E+05 0.19104E-08 0.13157E-18 0.51507E-14 + 5 3 0.65217E-05 0.10000E+01 0.27509E+05 0.23618E-08 0.29155E-18 0.63720E-14 + 5 3 0.65217E-05 0.10000E+01 0.22184E+05 0.29020E-08 0.63500E-18 0.78364E-14 + 5 3 0.65217E-05 0.10000E+01 0.17891E+05 0.35435E-08 0.13524E-17 0.95802E-14 + 5 3 0.65217E-05 0.10000E+01 0.14428E+05 0.42977E-08 0.28082E-17 0.11637E-13 + 5 3 0.65217E-05 0.10000E+01 0.11635E+05 0.51731E-08 0.57544E-17 0.14034E-13 + 5 3 0.65217E-05 0.10000E+01 0.93834E+04 0.61756E-08 0.12269E-16 0.16785E-13 + 5 3 0.65217E-05 0.10000E+01 0.75673E+04 0.73115E-08 0.30176E-16 0.19893E-13 + 5 3 0.65217E-05 0.10000E+01 0.61026E+04 0.86050E-08 0.91997E-16 0.23367E-13 + 5 3 0.65217E-05 0.10000E+01 0.49215E+04 0.10137E-07 0.32926E-15 0.27279E-13 + 5 3 0.65217E-05 0.10000E+01 0.39689E+04 0.12124E-07 0.12501E-14 0.31869E-13 + 5 3 0.65217E-05 0.10000E+01 0.32008E+04 0.15066E-07 0.47607E-14 0.37709E-13 + 5 3 0.65217E-05 0.10000E+01 0.25813E+04 0.20003E-07 0.17899E-13 0.45943E-13 + 5 3 0.65217E-05 0.10000E+01 0.20817E+04 0.29009E-07 0.66299E-13 0.58631E-13 5 3 0.65217E-05 0.10000E+01 0.16788E+04 0.46083E-07 0.24196E-12 0.79286E-13 5 3 0.65217E-05 0.10000E+01 0.13538E+04 0.78814E-07 0.87176E-12 0.11373E-12 5 3 0.65217E-05 0.10000E+01 0.10918E+04 0.14141E-06 0.31148E-11 0.17152E-12 @@ -29240,24 +29240,24 @@ VERSION 2.8.2 5 3 0.65217E-05 0.10000E+01 0.24221E+03 0.97420E-05 0.86357E-08 0.53892E-11 5 3 0.65217E-05 0.10000E+01 0.19533E+03 0.15198E-04 0.16388E-07 0.81005E-11 5 3 0.65217E-05 0.10000E+01 0.15752E+03 0.15198E-04 0.16388E-07 0.81005E-11 - 5 3 0.11380E-04 0.10000E+01 0.80645E+05 0.19448E-51 0.14582E-62 0.52387E-57 - 5 3 0.11380E-04 0.10000E+01 0.65036E+05 0.16482E-50 0.23188E-61 0.44407E-56 - 5 3 0.11380E-04 0.10000E+01 0.52449E+05 0.14026E-49 0.31223E-60 0.37798E-55 - 5 3 0.11380E-04 0.10000E+01 0.42297E+05 0.10571E-48 0.42542E-59 0.28499E-54 - 5 3 0.11380E-04 0.10000E+01 0.34111E+05 0.76442E-48 0.58632E-58 0.20624E-53 - 5 3 0.11380E-04 0.10000E+01 0.27509E+05 0.55099E-47 0.79951E-57 0.14883E-52 - 5 3 0.11380E-04 0.10000E+01 0.22184E+05 0.39482E-46 0.10735E-55 0.10684E-51 - 5 3 0.11380E-04 0.10000E+01 0.17891E+05 0.27945E-45 0.14187E-54 0.75835E-51 - 5 3 0.11380E-04 0.10000E+01 0.14428E+05 0.19491E-44 0.18502E-53 0.53108E-50 - 5 3 0.11380E-04 0.10000E+01 0.11635E+05 0.13407E-43 0.23789E-52 0.36723E-49 - 5 3 0.11380E-04 0.10000E+01 0.93834E+04 0.90890E-43 0.29881E-51 0.25060E-48 - 5 3 0.11380E-04 0.10000E+01 0.75673E+04 0.60349E-42 0.36063E-50 0.16782E-47 - 5 3 0.11380E-04 0.10000E+01 0.61026E+04 0.38746E-41 0.40954E-49 0.10896E-46 - 5 3 0.11380E-04 0.10000E+01 0.49215E+04 0.23675E-40 0.44145E-48 0.67254E-46 - 5 3 0.11380E-04 0.10000E+01 0.39689E+04 0.13867E-39 0.53671E-47 0.38725E-45 - 5 3 0.11380E-04 0.10000E+01 0.32008E+04 0.27994E-37 0.32396E-44 0.69127E-43 - 5 3 0.11380E-04 0.10000E+01 0.25813E+04 0.13779E-28 0.50839E-35 0.27323E-34 - 5 3 0.11380E-04 0.10000E+01 0.20817E+04 0.25627E-12 0.34991E-18 0.47141E-18 + 5 3 0.11380E-04 0.10000E+01 0.80645E+05 0.13139E-08 0.84093E-20 0.35389E-14 + 5 3 0.11380E-04 0.10000E+01 0.65036E+05 0.16868E-08 0.19524E-19 0.45435E-14 + 5 3 0.11380E-04 0.10000E+01 0.52449E+05 0.21362E-08 0.44910E-19 0.57552E-14 + 5 3 0.11380E-04 0.10000E+01 0.42297E+05 0.26788E-08 0.10217E-18 0.72192E-14 + 5 3 0.11380E-04 0.10000E+01 0.34111E+05 0.33335E-08 0.22958E-18 0.89877E-14 + 5 3 0.11380E-04 0.10000E+01 0.27509E+05 0.41213E-08 0.50874E-18 0.11119E-13 + 5 3 0.11380E-04 0.10000E+01 0.22184E+05 0.50639E-08 0.11080E-17 0.13674E-13 + 5 3 0.11380E-04 0.10000E+01 0.17891E+05 0.61833E-08 0.23599E-17 0.16717E-13 + 5 3 0.11380E-04 0.10000E+01 0.14428E+05 0.74992E-08 0.49002E-17 0.20306E-13 + 5 3 0.11380E-04 0.10000E+01 0.11635E+05 0.90268E-08 0.10041E-16 0.24489E-13 + 5 3 0.11380E-04 0.10000E+01 0.93834E+04 0.10776E-07 0.21408E-16 0.29289E-13 + 5 3 0.11380E-04 0.10000E+01 0.75673E+04 0.12758E-07 0.52656E-16 0.34712E-13 + 5 3 0.11380E-04 0.10000E+01 0.61026E+04 0.15015E-07 0.16053E-15 0.40774E-13 + 5 3 0.11380E-04 0.10000E+01 0.49215E+04 0.17688E-07 0.57454E-15 0.47601E-13 + 5 3 0.11380E-04 0.10000E+01 0.39689E+04 0.21156E-07 0.21814E-14 0.55610E-13 + 5 3 0.11380E-04 0.10000E+01 0.32008E+04 0.26289E-07 0.83072E-14 0.65800E-13 + 5 3 0.11380E-04 0.10000E+01 0.25813E+04 0.34905E-07 0.31233E-13 0.80167E-13 + 5 3 0.11380E-04 0.10000E+01 0.20817E+04 0.50619E-07 0.11569E-12 0.10231E-12 5 3 0.11380E-04 0.10000E+01 0.16788E+04 0.80412E-07 0.42220E-12 0.13835E-12 5 3 0.11380E-04 0.10000E+01 0.13538E+04 0.13753E-06 0.15212E-11 0.19844E-12 5 3 0.11380E-04 0.10000E+01 0.10918E+04 0.24675E-06 0.54351E-11 0.29928E-12 @@ -29270,24 +29270,24 @@ VERSION 2.8.2 5 3 0.11380E-04 0.10000E+01 0.24221E+03 0.16999E-04 0.15069E-07 0.94039E-11 5 3 0.11380E-04 0.10000E+01 0.19533E+03 0.26520E-04 0.28596E-07 0.14135E-10 5 3 0.11380E-04 0.10000E+01 0.15752E+03 0.26520E-04 0.28596E-07 0.14135E-10 - 5 3 0.19857E-04 0.10000E+01 0.80645E+05 0.33936E-51 0.25445E-62 0.91411E-57 - 5 3 0.19857E-04 0.10000E+01 0.65036E+05 0.28760E-50 0.40462E-61 0.77488E-56 - 5 3 0.19857E-04 0.10000E+01 0.52449E+05 0.24474E-49 0.54483E-60 0.65956E-55 - 5 3 0.19857E-04 0.10000E+01 0.42297E+05 0.18445E-48 0.74234E-59 0.49729E-54 - 5 3 0.19857E-04 0.10000E+01 0.34111E+05 0.13339E-47 0.10231E-57 0.35987E-53 - 5 3 0.19857E-04 0.10000E+01 0.27509E+05 0.96144E-47 0.13951E-56 0.25969E-52 - 5 3 0.19857E-04 0.10000E+01 0.22184E+05 0.68894E-46 0.18731E-55 0.18643E-51 - 5 3 0.19857E-04 0.10000E+01 0.17891E+05 0.48762E-45 0.24755E-54 0.13233E-50 - 5 3 0.19857E-04 0.10000E+01 0.14428E+05 0.34011E-44 0.32285E-53 0.92671E-50 - 5 3 0.19857E-04 0.10000E+01 0.11635E+05 0.23395E-43 0.41510E-52 0.64080E-49 - 5 3 0.19857E-04 0.10000E+01 0.93834E+04 0.15860E-42 0.52141E-51 0.43728E-48 - 5 3 0.19857E-04 0.10000E+01 0.75673E+04 0.10531E-41 0.62928E-50 0.29284E-47 - 5 3 0.19857E-04 0.10000E+01 0.61026E+04 0.67609E-41 0.71462E-49 0.19013E-46 - 5 3 0.19857E-04 0.10000E+01 0.49215E+04 0.41312E-40 0.77030E-48 0.11735E-45 - 5 3 0.19857E-04 0.10000E+01 0.39689E+04 0.24197E-39 0.93652E-47 0.67573E-45 - 5 3 0.19857E-04 0.10000E+01 0.32008E+04 0.48848E-37 0.56530E-44 0.12062E-42 - 5 3 0.19857E-04 0.10000E+01 0.25813E+04 0.24044E-28 0.88711E-35 0.47677E-34 - 5 3 0.19857E-04 0.10000E+01 0.20817E+04 0.44718E-12 0.61057E-18 0.82258E-18 + 5 3 0.19857E-04 0.10000E+01 0.80645E+05 0.22927E-08 0.14674E-19 0.61751E-14 + 5 3 0.19857E-04 0.10000E+01 0.65036E+05 0.29433E-08 0.34069E-19 0.79282E-14 + 5 3 0.19857E-04 0.10000E+01 0.52449E+05 0.37275E-08 0.78365E-19 0.10042E-13 + 5 3 0.19857E-04 0.10000E+01 0.42297E+05 0.46743E-08 0.17827E-18 0.12597E-13 + 5 3 0.19857E-04 0.10000E+01 0.34111E+05 0.58168E-08 0.40060E-18 0.15683E-13 + 5 3 0.19857E-04 0.10000E+01 0.27509E+05 0.71914E-08 0.88772E-18 0.19401E-13 + 5 3 0.19857E-04 0.10000E+01 0.22184E+05 0.88362E-08 0.19335E-17 0.23860E-13 + 5 3 0.19857E-04 0.10000E+01 0.17891E+05 0.10789E-07 0.41179E-17 0.29170E-13 + 5 3 0.19857E-04 0.10000E+01 0.14428E+05 0.13086E-07 0.85505E-17 0.35433E-13 + 5 3 0.19857E-04 0.10000E+01 0.11635E+05 0.15751E-07 0.17521E-16 0.42731E-13 + 5 3 0.19857E-04 0.10000E+01 0.93834E+04 0.18803E-07 0.37356E-16 0.51108E-13 + 5 3 0.19857E-04 0.10000E+01 0.75673E+04 0.22262E-07 0.91881E-16 0.60571E-13 + 5 3 0.19857E-04 0.10000E+01 0.61026E+04 0.26201E-07 0.28011E-15 0.71148E-13 + 5 3 0.19857E-04 0.10000E+01 0.49215E+04 0.30865E-07 0.10025E-14 0.83060E-13 + 5 3 0.19857E-04 0.10000E+01 0.39689E+04 0.36916E-07 0.38065E-14 0.97036E-13 + 5 3 0.19857E-04 0.10000E+01 0.32008E+04 0.45872E-07 0.14496E-13 0.11482E-12 + 5 3 0.19857E-04 0.10000E+01 0.25813E+04 0.60907E-07 0.54500E-13 0.13989E-12 + 5 3 0.19857E-04 0.10000E+01 0.20817E+04 0.88326E-07 0.20187E-12 0.17852E-12 5 3 0.19857E-04 0.10000E+01 0.16788E+04 0.14031E-06 0.73672E-12 0.24141E-12 5 3 0.19857E-04 0.10000E+01 0.13538E+04 0.23998E-06 0.26544E-11 0.34627E-12 5 3 0.19857E-04 0.10000E+01 0.10918E+04 0.43056E-06 0.94839E-11 0.52223E-12 @@ -29300,24 +29300,24 @@ VERSION 2.8.2 5 3 0.19857E-04 0.10000E+01 0.24221E+03 0.29663E-04 0.26294E-07 0.16409E-10 5 3 0.19857E-04 0.10000E+01 0.19533E+03 0.46277E-04 0.49899E-07 0.24664E-10 5 3 0.19857E-04 0.10000E+01 0.15752E+03 0.46277E-04 0.49899E-07 0.24664E-10 - 5 3 0.34650E-04 0.10000E+01 0.80645E+05 0.59216E-51 0.44400E-62 0.15951E-56 - 5 3 0.34650E-04 0.10000E+01 0.65036E+05 0.50184E-50 0.70603E-61 0.13521E-55 - 5 3 0.34650E-04 0.10000E+01 0.52449E+05 0.42706E-49 0.95069E-60 0.11509E-54 - 5 3 0.34650E-04 0.10000E+01 0.42297E+05 0.32186E-48 0.12953E-58 0.86775E-54 - 5 3 0.34650E-04 0.10000E+01 0.34111E+05 0.23275E-47 0.17852E-57 0.62795E-53 - 5 3 0.34650E-04 0.10000E+01 0.27509E+05 0.16777E-46 0.24344E-56 0.45315E-52 - 5 3 0.34650E-04 0.10000E+01 0.22184E+05 0.12022E-45 0.32685E-55 0.32531E-51 - 5 3 0.34650E-04 0.10000E+01 0.17891E+05 0.85086E-45 0.43197E-54 0.23090E-50 - 5 3 0.34650E-04 0.10000E+01 0.14428E+05 0.59347E-44 0.56335E-53 0.16171E-49 - 5 3 0.34650E-04 0.10000E+01 0.11635E+05 0.40823E-43 0.72432E-52 0.11182E-48 - 5 3 0.34650E-04 0.10000E+01 0.93834E+04 0.27674E-42 0.90983E-51 0.76303E-48 - 5 3 0.34650E-04 0.10000E+01 0.75673E+04 0.18375E-41 0.10981E-49 0.51099E-47 - 5 3 0.34650E-04 0.10000E+01 0.61026E+04 0.11797E-40 0.12470E-48 0.33176E-46 - 5 3 0.34650E-04 0.10000E+01 0.49215E+04 0.72087E-40 0.13441E-47 0.20478E-45 - 5 3 0.34650E-04 0.10000E+01 0.39689E+04 0.42222E-39 0.16342E-46 0.11791E-44 - 5 3 0.34650E-04 0.10000E+01 0.32008E+04 0.85236E-37 0.98641E-44 0.21048E-42 - 5 3 0.34650E-04 0.10000E+01 0.25813E+04 0.41955E-28 0.15480E-34 0.83193E-34 - 5 3 0.34650E-04 0.10000E+01 0.20817E+04 0.78030E-12 0.10654E-17 0.14354E-17 + 5 3 0.34650E-04 0.10000E+01 0.80645E+05 0.40007E-08 0.25605E-19 0.10775E-13 + 5 3 0.34650E-04 0.10000E+01 0.65036E+05 0.51358E-08 0.59448E-19 0.13834E-13 + 5 3 0.34650E-04 0.10000E+01 0.52449E+05 0.65042E-08 0.13674E-18 0.17523E-13 + 5 3 0.34650E-04 0.10000E+01 0.42297E+05 0.81563E-08 0.31107E-18 0.21981E-13 + 5 3 0.34650E-04 0.10000E+01 0.34111E+05 0.10150E-07 0.69903E-18 0.27366E-13 + 5 3 0.34650E-04 0.10000E+01 0.27509E+05 0.12549E-07 0.15490E-17 0.33854E-13 + 5 3 0.34650E-04 0.10000E+01 0.22184E+05 0.15419E-07 0.33738E-17 0.41635E-13 + 5 3 0.34650E-04 0.10000E+01 0.17891E+05 0.18827E-07 0.71856E-17 0.50900E-13 + 5 3 0.34650E-04 0.10000E+01 0.14428E+05 0.22834E-07 0.14920E-16 0.61829E-13 + 5 3 0.34650E-04 0.10000E+01 0.11635E+05 0.27485E-07 0.30573E-16 0.74564E-13 + 5 3 0.34650E-04 0.10000E+01 0.93834E+04 0.32811E-07 0.65183E-16 0.89181E-13 + 5 3 0.34650E-04 0.10000E+01 0.75673E+04 0.38846E-07 0.16033E-15 0.10569E-12 + 5 3 0.34650E-04 0.10000E+01 0.61026E+04 0.45718E-07 0.48878E-15 0.12415E-12 + 5 3 0.34650E-04 0.10000E+01 0.49215E+04 0.53857E-07 0.17494E-14 0.14494E-12 + 5 3 0.34650E-04 0.10000E+01 0.39689E+04 0.64416E-07 0.66420E-14 0.16932E-12 + 5 3 0.34650E-04 0.10000E+01 0.32008E+04 0.80044E-07 0.25294E-13 0.20035E-12 + 5 3 0.34650E-04 0.10000E+01 0.25813E+04 0.10628E-06 0.95099E-13 0.24409E-12 + 5 3 0.34650E-04 0.10000E+01 0.20817E+04 0.15412E-06 0.35225E-12 0.31151E-12 5 3 0.34650E-04 0.10000E+01 0.16788E+04 0.24484E-06 0.12855E-11 0.42125E-12 5 3 0.34650E-04 0.10000E+01 0.13538E+04 0.41874E-06 0.46317E-11 0.60423E-12 5 3 0.34650E-04 0.10000E+01 0.10918E+04 0.75130E-06 0.16549E-10 0.91126E-12 @@ -29330,24 +29330,24 @@ VERSION 2.8.2 5 3 0.34650E-04 0.10000E+01 0.24221E+03 0.51759E-04 0.45882E-07 0.28633E-10 5 3 0.34650E-04 0.10000E+01 0.19533E+03 0.80750E-04 0.87070E-07 0.43038E-10 5 3 0.34650E-04 0.10000E+01 0.15752E+03 0.80750E-04 0.87070E-07 0.43038E-10 - 5 3 0.60462E-04 0.10000E+01 0.80645E+05 0.10333E-50 0.77475E-62 0.27833E-56 - 5 3 0.60462E-04 0.10000E+01 0.65036E+05 0.87567E-50 0.12320E-60 0.23594E-55 - 5 3 0.60462E-04 0.10000E+01 0.52449E+05 0.74519E-49 0.16589E-59 0.20082E-54 - 5 3 0.60462E-04 0.10000E+01 0.42297E+05 0.56163E-48 0.22603E-58 0.15142E-53 - 5 3 0.60462E-04 0.10000E+01 0.34111E+05 0.40614E-47 0.31151E-57 0.10957E-52 - 5 3 0.60462E-04 0.10000E+01 0.27509E+05 0.29274E-46 0.42478E-56 0.79072E-52 - 5 3 0.60462E-04 0.10000E+01 0.22184E+05 0.20977E-45 0.57033E-55 0.56765E-51 - 5 3 0.60462E-04 0.10000E+01 0.17891E+05 0.14847E-44 0.75376E-54 0.40291E-50 - 5 3 0.60462E-04 0.10000E+01 0.14428E+05 0.10356E-43 0.98302E-53 0.28217E-49 - 5 3 0.60462E-04 0.10000E+01 0.11635E+05 0.71233E-43 0.12639E-51 0.19511E-48 - 5 3 0.60462E-04 0.10000E+01 0.93834E+04 0.48290E-42 0.15876E-50 0.13314E-47 - 5 3 0.60462E-04 0.10000E+01 0.75673E+04 0.32064E-41 0.19160E-49 0.89165E-47 - 5 3 0.60462E-04 0.10000E+01 0.61026E+04 0.20586E-40 0.21759E-48 0.57890E-46 - 5 3 0.60462E-04 0.10000E+01 0.49215E+04 0.12579E-39 0.23454E-47 0.35732E-45 - 5 3 0.60462E-04 0.10000E+01 0.39689E+04 0.73675E-39 0.28515E-46 0.20575E-44 - 5 3 0.60462E-04 0.10000E+01 0.32008E+04 0.14873E-36 0.17212E-43 0.36727E-42 - 5 3 0.60462E-04 0.10000E+01 0.25813E+04 0.73209E-28 0.27011E-34 0.14517E-33 - 5 3 0.60462E-04 0.10000E+01 0.20817E+04 0.13616E-11 0.18591E-17 0.25046E-17 + 5 3 0.60462E-04 0.10000E+01 0.80645E+05 0.69810E-08 0.44679E-19 0.18802E-13 + 5 3 0.60462E-04 0.10000E+01 0.65036E+05 0.89617E-08 0.10373E-18 0.24140E-13 + 5 3 0.60462E-04 0.10000E+01 0.52449E+05 0.11349E-07 0.23861E-18 0.30577E-13 + 5 3 0.60462E-04 0.10000E+01 0.42297E+05 0.14232E-07 0.54281E-18 0.38355E-13 + 5 3 0.60462E-04 0.10000E+01 0.34111E+05 0.17711E-07 0.12198E-17 0.47752E-13 + 5 3 0.60462E-04 0.10000E+01 0.27509E+05 0.21896E-07 0.27030E-17 0.59074E-13 + 5 3 0.60462E-04 0.10000E+01 0.22184E+05 0.26905E-07 0.58870E-17 0.72650E-13 + 5 3 0.60462E-04 0.10000E+01 0.17891E+05 0.32852E-07 0.12538E-16 0.88817E-13 + 5 3 0.60462E-04 0.10000E+01 0.14428E+05 0.39843E-07 0.26035E-16 0.10789E-12 + 5 3 0.60462E-04 0.10000E+01 0.11635E+05 0.47960E-07 0.53348E-16 0.13011E-12 + 5 3 0.60462E-04 0.10000E+01 0.93834E+04 0.57253E-07 0.11374E-15 0.15561E-12 + 5 3 0.60462E-04 0.10000E+01 0.75673E+04 0.67784E-07 0.27976E-15 0.18443E-12 + 5 3 0.60462E-04 0.10000E+01 0.61026E+04 0.79776E-07 0.85289E-15 0.21663E-12 + 5 3 0.60462E-04 0.10000E+01 0.49215E+04 0.93978E-07 0.30525E-14 0.25290E-12 + 5 3 0.60462E-04 0.10000E+01 0.39689E+04 0.11240E-06 0.11590E-13 0.29546E-12 + 5 3 0.60462E-04 0.10000E+01 0.32008E+04 0.13967E-06 0.44136E-13 0.34960E-12 + 5 3 0.60462E-04 0.10000E+01 0.25813E+04 0.18545E-06 0.16594E-12 0.42593E-12 + 5 3 0.60462E-04 0.10000E+01 0.20817E+04 0.26894E-06 0.61465E-12 0.54356E-12 5 3 0.60462E-04 0.10000E+01 0.16788E+04 0.42723E-06 0.22432E-11 0.73505E-12 5 3 0.60462E-04 0.10000E+01 0.13538E+04 0.73068E-06 0.80820E-11 0.10543E-11 5 3 0.60462E-04 0.10000E+01 0.10918E+04 0.13110E-05 0.28877E-10 0.15901E-11 @@ -29360,24 +29360,24 @@ VERSION 2.8.2 5 3 0.60462E-04 0.10000E+01 0.24221E+03 0.90317E-04 0.80061E-07 0.49963E-10 5 3 0.60462E-04 0.10000E+01 0.19533E+03 0.14090E-03 0.15193E-06 0.75099E-10 5 3 0.60462E-04 0.10000E+01 0.15752E+03 0.14090E-03 0.15193E-06 0.75099E-10 - 5 3 0.10550E-03 0.10000E+01 0.80645E+05 0.18030E-50 0.13519E-61 0.48567E-56 - 5 3 0.10550E-03 0.10000E+01 0.65036E+05 0.15280E-49 0.21497E-60 0.41169E-55 - 5 3 0.10550E-03 0.10000E+01 0.52449E+05 0.13003E-48 0.28947E-59 0.35042E-54 - 5 3 0.10550E-03 0.10000E+01 0.42297E+05 0.98001E-48 0.39441E-58 0.26421E-53 - 5 3 0.10550E-03 0.10000E+01 0.34111E+05 0.70869E-47 0.54357E-57 0.19120E-52 - 5 3 0.10550E-03 0.10000E+01 0.27509E+05 0.51082E-46 0.74122E-56 0.13798E-51 - 5 3 0.10550E-03 0.10000E+01 0.22184E+05 0.36604E-45 0.99519E-55 0.99051E-51 - 5 3 0.10550E-03 0.10000E+01 0.17891E+05 0.25907E-44 0.13153E-53 0.70305E-50 - 5 3 0.10550E-03 0.10000E+01 0.14428E+05 0.18070E-43 0.17153E-52 0.49236E-49 - 5 3 0.10550E-03 0.10000E+01 0.11635E+05 0.12430E-42 0.22054E-51 0.34046E-48 - 5 3 0.10550E-03 0.10000E+01 0.93834E+04 0.84263E-42 0.27703E-50 0.23233E-47 - 5 3 0.10550E-03 0.10000E+01 0.75673E+04 0.55949E-41 0.33434E-49 0.15559E-46 - 5 3 0.10550E-03 0.10000E+01 0.61026E+04 0.35921E-40 0.37968E-48 0.10102E-45 - 5 3 0.10550E-03 0.10000E+01 0.49215E+04 0.21949E-39 0.40926E-47 0.62350E-45 - 5 3 0.10550E-03 0.10000E+01 0.39689E+04 0.12856E-38 0.49758E-46 0.35902E-44 - 5 3 0.10550E-03 0.10000E+01 0.32008E+04 0.25953E-36 0.30034E-43 0.64087E-42 - 5 3 0.10550E-03 0.10000E+01 0.25813E+04 0.12775E-27 0.47133E-34 0.25331E-33 - 5 3 0.10550E-03 0.10000E+01 0.20817E+04 0.23759E-11 0.32440E-17 0.43704E-17 + 5 3 0.10550E-03 0.10000E+01 0.80645E+05 0.12181E-07 0.77962E-19 0.32808E-13 + 5 3 0.10550E-03 0.10000E+01 0.65036E+05 0.15638E-07 0.18101E-18 0.42123E-13 + 5 3 0.10550E-03 0.10000E+01 0.52449E+05 0.19804E-07 0.41636E-18 0.53356E-13 + 5 3 0.10550E-03 0.10000E+01 0.42297E+05 0.24834E-07 0.94717E-18 0.66928E-13 + 5 3 0.10550E-03 0.10000E+01 0.34111E+05 0.30905E-07 0.21284E-17 0.83324E-13 + 5 3 0.10550E-03 0.10000E+01 0.27509E+05 0.38208E-07 0.47165E-17 0.10308E-12 + 5 3 0.10550E-03 0.10000E+01 0.22184E+05 0.46947E-07 0.10273E-16 0.12677E-12 + 5 3 0.10550E-03 0.10000E+01 0.17891E+05 0.57324E-07 0.21879E-16 0.15498E-12 + 5 3 0.10550E-03 0.10000E+01 0.14428E+05 0.69524E-07 0.45429E-16 0.18826E-12 + 5 3 0.10550E-03 0.10000E+01 0.11635E+05 0.83687E-07 0.93089E-16 0.22703E-12 + 5 3 0.10550E-03 0.10000E+01 0.93834E+04 0.99903E-07 0.19847E-15 0.27154E-12 + 5 3 0.10550E-03 0.10000E+01 0.75673E+04 0.11828E-06 0.48817E-15 0.32181E-12 + 5 3 0.10550E-03 0.10000E+01 0.61026E+04 0.13920E-06 0.14882E-14 0.37801E-12 + 5 3 0.10550E-03 0.10000E+01 0.49215E+04 0.16399E-06 0.53265E-14 0.44130E-12 + 5 3 0.10550E-03 0.10000E+01 0.39689E+04 0.19614E-06 0.20224E-13 0.51555E-12 + 5 3 0.10550E-03 0.10000E+01 0.32008E+04 0.24372E-06 0.77015E-13 0.61003E-12 + 5 3 0.10550E-03 0.10000E+01 0.25813E+04 0.32360E-06 0.28956E-12 0.74322E-12 + 5 3 0.10550E-03 0.10000E+01 0.20817E+04 0.46928E-06 0.10725E-11 0.94848E-12 5 3 0.10550E-03 0.10000E+01 0.16788E+04 0.74549E-06 0.39142E-11 0.12826E-11 5 3 0.10550E-03 0.10000E+01 0.13538E+04 0.12750E-05 0.14103E-10 0.18398E-11 5 3 0.10550E-03 0.10000E+01 0.10918E+04 0.22876E-05 0.50388E-10 0.27746E-11 @@ -29390,24 +29390,24 @@ VERSION 2.8.2 5 3 0.10550E-03 0.10000E+01 0.24221E+03 0.15760E-03 0.13970E-06 0.87182E-10 5 3 0.10550E-03 0.10000E+01 0.19533E+03 0.24587E-03 0.26511E-06 0.13104E-09 5 3 0.10550E-03 0.10000E+01 0.15752E+03 0.24587E-03 0.26511E-06 0.13104E-09 - 5 3 0.18409E-03 0.10000E+01 0.80645E+05 0.31462E-50 0.23590E-61 0.84746E-56 - 5 3 0.18409E-03 0.10000E+01 0.65036E+05 0.26663E-49 0.37512E-60 0.71838E-55 - 5 3 0.18409E-03 0.10000E+01 0.52449E+05 0.22690E-48 0.50510E-59 0.61147E-54 - 5 3 0.18409E-03 0.10000E+01 0.42297E+05 0.17101E-47 0.68821E-58 0.46103E-53 - 5 3 0.18409E-03 0.10000E+01 0.34111E+05 0.12366E-46 0.94850E-57 0.33363E-52 - 5 3 0.18409E-03 0.10000E+01 0.27509E+05 0.89134E-46 0.12934E-55 0.24076E-51 - 5 3 0.18409E-03 0.10000E+01 0.22184E+05 0.63871E-45 0.17366E-54 0.17284E-50 - 5 3 0.18409E-03 0.10000E+01 0.17891E+05 0.45206E-44 0.22950E-53 0.12268E-49 - 5 3 0.18409E-03 0.10000E+01 0.14428E+05 0.31531E-43 0.29931E-52 0.85914E-49 - 5 3 0.18409E-03 0.10000E+01 0.11635E+05 0.21689E-42 0.38483E-51 0.59408E-48 - 5 3 0.18409E-03 0.10000E+01 0.93834E+04 0.14703E-41 0.48339E-50 0.40540E-47 - 5 3 0.18409E-03 0.10000E+01 0.75673E+04 0.97627E-41 0.58340E-49 0.27149E-46 - 5 3 0.18409E-03 0.10000E+01 0.61026E+04 0.62679E-40 0.66252E-48 0.17627E-45 - 5 3 0.18409E-03 0.10000E+01 0.49215E+04 0.38300E-39 0.71413E-47 0.10880E-44 - 5 3 0.18409E-03 0.10000E+01 0.39689E+04 0.22433E-38 0.86824E-46 0.62647E-44 - 5 3 0.18409E-03 0.10000E+01 0.32008E+04 0.45286E-36 0.52408E-43 0.11183E-41 - 5 3 0.18409E-03 0.10000E+01 0.25813E+04 0.22291E-27 0.82243E-34 0.44201E-33 - 5 3 0.18409E-03 0.10000E+01 0.20817E+04 0.41458E-11 0.56605E-17 0.76260E-17 + 5 3 0.18409E-03 0.10000E+01 0.80645E+05 0.21256E-07 0.13604E-18 0.57249E-13 + 5 3 0.18409E-03 0.10000E+01 0.65036E+05 0.27287E-07 0.31585E-18 0.73501E-13 + 5 3 0.18409E-03 0.10000E+01 0.52449E+05 0.34557E-07 0.72652E-18 0.93102E-13 + 5 3 0.18409E-03 0.10000E+01 0.42297E+05 0.43335E-07 0.16527E-17 0.11679E-12 + 5 3 0.18409E-03 0.10000E+01 0.34111E+05 0.53927E-07 0.37139E-17 0.14540E-12 + 5 3 0.18409E-03 0.10000E+01 0.27509E+05 0.66670E-07 0.82300E-17 0.17987E-12 + 5 3 0.18409E-03 0.10000E+01 0.22184E+05 0.81919E-07 0.17925E-16 0.22121E-12 + 5 3 0.18409E-03 0.10000E+01 0.17891E+05 0.10003E-06 0.38177E-16 0.27043E-12 + 5 3 0.18409E-03 0.10000E+01 0.14428E+05 0.12131E-06 0.79271E-16 0.32850E-12 + 5 3 0.18409E-03 0.10000E+01 0.11635E+05 0.14603E-06 0.16244E-15 0.39616E-12 + 5 3 0.18409E-03 0.10000E+01 0.93834E+04 0.17432E-06 0.34632E-15 0.47382E-12 + 5 3 0.18409E-03 0.10000E+01 0.75673E+04 0.20639E-06 0.85182E-15 0.56154E-12 + 5 3 0.18409E-03 0.10000E+01 0.61026E+04 0.24290E-06 0.25969E-14 0.65961E-12 + 5 3 0.18409E-03 0.10000E+01 0.49215E+04 0.28615E-06 0.92944E-14 0.77004E-12 + 5 3 0.18409E-03 0.10000E+01 0.39689E+04 0.34225E-06 0.35289E-13 0.89961E-12 + 5 3 0.18409E-03 0.10000E+01 0.32008E+04 0.42527E-06 0.13439E-12 0.10645E-11 + 5 3 0.18409E-03 0.10000E+01 0.25813E+04 0.56466E-06 0.50526E-12 0.12969E-11 + 5 3 0.18409E-03 0.10000E+01 0.20817E+04 0.81886E-06 0.18715E-11 0.16550E-11 5 3 0.18409E-03 0.10000E+01 0.16788E+04 0.13008E-05 0.68301E-11 0.22381E-11 5 3 0.18409E-03 0.10000E+01 0.13538E+04 0.22248E-05 0.24608E-10 0.32103E-11 5 3 0.18409E-03 0.10000E+01 0.10918E+04 0.39917E-05 0.87924E-10 0.48416E-11 @@ -29420,24 +29420,24 @@ VERSION 2.8.2 5 3 0.18409E-03 0.10000E+01 0.24221E+03 0.27500E-03 0.24377E-06 0.15213E-09 5 3 0.18409E-03 0.10000E+01 0.19533E+03 0.42902E-03 0.46261E-06 0.22866E-09 5 3 0.18409E-03 0.10000E+01 0.15752E+03 0.42902E-03 0.46261E-06 0.22866E-09 - 5 3 0.32123E-03 0.10000E+01 0.80645E+05 0.54899E-50 0.41162E-61 0.14788E-55 - 5 3 0.32123E-03 0.10000E+01 0.65036E+05 0.46525E-49 0.65455E-60 0.12535E-54 - 5 3 0.32123E-03 0.10000E+01 0.52449E+05 0.39592E-48 0.88138E-59 0.10670E-53 - 5 3 0.32123E-03 0.10000E+01 0.42297E+05 0.29839E-47 0.12009E-57 0.80448E-53 - 5 3 0.32123E-03 0.10000E+01 0.34111E+05 0.21578E-46 0.16551E-56 0.58217E-52 - 5 3 0.32123E-03 0.10000E+01 0.27509E+05 0.15553E-45 0.22569E-55 0.42011E-51 - 5 3 0.32123E-03 0.10000E+01 0.22184E+05 0.11145E-44 0.30302E-54 0.30159E-50 - 5 3 0.32123E-03 0.10000E+01 0.17891E+05 0.78883E-44 0.40047E-53 0.21407E-49 - 5 3 0.32123E-03 0.10000E+01 0.14428E+05 0.55020E-43 0.52228E-52 0.14992E-48 - 5 3 0.32123E-03 0.10000E+01 0.11635E+05 0.37846E-42 0.67151E-51 0.10366E-47 - 5 3 0.32123E-03 0.10000E+01 0.93834E+04 0.25657E-41 0.84349E-50 0.70740E-47 - 5 3 0.32123E-03 0.10000E+01 0.75673E+04 0.17035E-40 0.10180E-48 0.47373E-46 - 5 3 0.32123E-03 0.10000E+01 0.61026E+04 0.10937E-39 0.11561E-47 0.30757E-45 - 5 3 0.32123E-03 0.10000E+01 0.49215E+04 0.66831E-39 0.12461E-46 0.18984E-44 - 5 3 0.32123E-03 0.10000E+01 0.39689E+04 0.39144E-38 0.15150E-45 0.10931E-43 - 5 3 0.32123E-03 0.10000E+01 0.32008E+04 0.79022E-36 0.91449E-43 0.19513E-41 - 5 3 0.32123E-03 0.10000E+01 0.25813E+04 0.38896E-27 0.14351E-33 0.77127E-33 - 5 3 0.32123E-03 0.10000E+01 0.20817E+04 0.72341E-11 0.98772E-17 0.13307E-16 + 5 3 0.32123E-03 0.10000E+01 0.80645E+05 0.37090E-07 0.23738E-18 0.99896E-13 + 5 3 0.32123E-03 0.10000E+01 0.65036E+05 0.47614E-07 0.55114E-18 0.12826E-12 + 5 3 0.32123E-03 0.10000E+01 0.52449E+05 0.60300E-07 0.12677E-17 0.16246E-12 + 5 3 0.32123E-03 0.10000E+01 0.42297E+05 0.75616E-07 0.28839E-17 0.20378E-12 + 5 3 0.32123E-03 0.10000E+01 0.34111E+05 0.94099E-07 0.64806E-17 0.25371E-12 + 5 3 0.32123E-03 0.10000E+01 0.27509E+05 0.11634E-06 0.14361E-16 0.31386E-12 + 5 3 0.32123E-03 0.10000E+01 0.22184E+05 0.14294E-06 0.31278E-16 0.38599E-12 + 5 3 0.32123E-03 0.10000E+01 0.17891E+05 0.17454E-06 0.66617E-16 0.47188E-12 + 5 3 0.32123E-03 0.10000E+01 0.14428E+05 0.21169E-06 0.13832E-15 0.57321E-12 + 5 3 0.32123E-03 0.10000E+01 0.11635E+05 0.25481E-06 0.28344E-15 0.69127E-12 + 5 3 0.32123E-03 0.10000E+01 0.93834E+04 0.30419E-06 0.60431E-15 0.82678E-12 + 5 3 0.32123E-03 0.10000E+01 0.75673E+04 0.36014E-06 0.14864E-14 0.97986E-12 + 5 3 0.32123E-03 0.10000E+01 0.61026E+04 0.42385E-06 0.45314E-14 0.11510E-11 + 5 3 0.32123E-03 0.10000E+01 0.49215E+04 0.49931E-06 0.16218E-13 0.13437E-11 + 5 3 0.32123E-03 0.10000E+01 0.39689E+04 0.59720E-06 0.61578E-13 0.15698E-11 + 5 3 0.32123E-03 0.10000E+01 0.32008E+04 0.74208E-06 0.23450E-12 0.18574E-11 + 5 3 0.32123E-03 0.10000E+01 0.25813E+04 0.98529E-06 0.88165E-12 0.22630E-11 + 5 3 0.32123E-03 0.10000E+01 0.20817E+04 0.14289E-05 0.32657E-11 0.28880E-11 5 3 0.32123E-03 0.10000E+01 0.16788E+04 0.22699E-05 0.11918E-10 0.39053E-11 5 3 0.32123E-03 0.10000E+01 0.13538E+04 0.38821E-05 0.42940E-10 0.56017E-11 5 3 0.32123E-03 0.10000E+01 0.10918E+04 0.69652E-05 0.15342E-09 0.84482E-11 @@ -29500,24 +29500,24 @@ VERSION 2.8.2 5 4 0.10550E-03 0.10000E+01 0.47611E+01 0.12232E+02 0.84433E-03 0.30142E-03 0.60644E-02 0.29230E-02 0.46642E+10 0.46642E+01 0.50000E+03 0.18009E-12 0.72444E-03 0.78471E-02 0.90000E+03 5 4 0.18409E-03 0.10000E+01 0.47611E+01 0.12232E+02 0.25708E-02 0.52596E-03 0.10582E-01 0.29230E-02 0.81388E+10 0.81388E+01 0.50000E+03 0.31424E-12 0.12641E-02 0.78471E-02 0.90000E+03 5 4 0.32123E-03 0.10000E+01 0.47611E+01 0.12232E+02 0.78277E-02 0.91776E-03 0.18465E-01 0.29230E-02 0.14202E+11 0.14202E+02 0.50000E+03 0.54834E-12 0.22058E-02 0.78471E-02 0.90000E+03 - 5 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14863E-66 0.25305E-77 0.70039E-79 - 5 4 0.45665E-15 0.10000E+01 0.65036E+05 0.26801E-65 0.78089E-76 0.12630E-77 - 5 4 0.45665E-15 0.10000E+01 0.52449E+05 0.44956E-64 0.26368E-74 0.21185E-76 - 5 4 0.45665E-15 0.10000E+01 0.42297E+05 0.78569E-63 0.88227E-73 0.37025E-75 - 5 4 0.45665E-15 0.10000E+01 0.34111E+05 0.13771E-61 0.29314E-71 0.64894E-74 - 5 4 0.45665E-15 0.10000E+01 0.27509E+05 0.23987E-60 0.96296E-70 0.11304E-72 - 5 4 0.45665E-15 0.10000E+01 0.22184E+05 0.41147E-59 0.30405E-68 0.19390E-71 - 5 4 0.45665E-15 0.10000E+01 0.17891E+05 0.67806E-58 0.90000E-67 0.31953E-70 - 5 4 0.45665E-15 0.10000E+01 0.14428E+05 0.10536E-56 0.25165E-65 0.49650E-69 - 5 4 0.45665E-15 0.10000E+01 0.11635E+05 0.15536E-55 0.68267E-64 0.73213E-68 - 5 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22211E-54 0.18330E-62 0.10467E-66 - 5 4 0.45665E-15 0.10000E+01 0.75673E+04 0.31348E-53 0.49100E-61 0.14772E-65 - 5 4 0.45665E-15 0.10000E+01 0.61026E+04 0.44072E-52 0.13148E-59 0.20769E-64 - 5 4 0.45665E-15 0.10000E+01 0.49215E+04 0.61906E-51 0.35206E-58 0.29173E-63 - 5 4 0.45665E-15 0.10000E+01 0.39689E+04 0.86944E-50 0.94268E-57 0.40971E-62 - 5 4 0.45665E-15 0.10000E+01 0.32008E+04 0.38400E-47 0.81622E-54 0.18096E-59 - 5 4 0.45665E-15 0.10000E+01 0.25813E+04 0.28064E-38 0.13675E-44 0.13225E-50 - 5 4 0.45665E-15 0.10000E+01 0.20817E+04 0.53229E-22 0.11569E-27 0.25084E-34 + 5 4 0.45665E-15 0.10000E+01 0.80645E+05 0.14886E-23 0.31063E-33 0.70147E-36 + 5 4 0.45665E-15 0.10000E+01 0.65036E+05 0.43767E-23 0.16593E-32 0.20625E-35 + 5 4 0.45665E-15 0.10000E+01 0.52449E+05 0.12634E-22 0.84884E-32 0.59537E-35 + 5 4 0.45665E-15 0.10000E+01 0.42297E+05 0.35517E-22 0.41525E-31 0.16737E-34 + 5 4 0.45665E-15 0.10000E+01 0.34111E+05 0.96572E-22 0.19597E-30 0.45509E-34 + 5 4 0.45665E-15 0.10000E+01 0.27509E+05 0.25352E-21 0.90347E-30 0.11947E-33 + 5 4 0.45665E-15 0.10000E+01 0.22184E+05 0.64468E-21 0.41125E-29 0.30380E-33 + 5 4 0.45665E-15 0.10000E+01 0.17891E+05 0.15981E-20 0.18610E-28 0.75310E-33 + 5 4 0.45665E-15 0.10000E+01 0.14428E+05 0.38894E-20 0.84010E-28 0.18328E-32 + 5 4 0.45665E-15 0.10000E+01 0.11635E+05 0.93508E-20 0.37890E-27 0.44065E-32 + 5 4 0.45665E-15 0.10000E+01 0.93834E+04 0.22313E-19 0.17075E-26 0.10515E-31 + 5 4 0.45665E-15 0.10000E+01 0.75673E+04 0.53006E-19 0.76732E-26 0.24978E-31 + 5 4 0.45665E-15 0.10000E+01 0.61026E+04 0.12552E-18 0.34189E-25 0.59151E-31 + 5 4 0.45665E-15 0.10000E+01 0.49215E+04 0.29608E-18 0.14985E-24 0.13952E-30 + 5 4 0.45665E-15 0.10000E+01 0.39689E+04 0.69346E-18 0.64244E-24 0.32679E-30 + 5 4 0.45665E-15 0.10000E+01 0.32008E+04 0.16056E-17 0.26900E-23 0.75661E-30 + 5 4 0.45665E-15 0.10000E+01 0.25813E+04 0.36597E-17 0.11001E-22 0.17246E-29 + 5 4 0.45665E-15 0.10000E+01 0.20817E+04 0.81888E-17 0.43886E-22 0.38589E-29 5 4 0.45665E-15 0.10000E+01 0.16788E+04 0.17953E-16 0.17064E-21 0.84602E-29 5 4 0.45665E-15 0.10000E+01 0.13538E+04 0.38517E-16 0.64801E-21 0.18151E-28 5 4 0.45665E-15 0.10000E+01 0.10918E+04 0.80828E-16 0.24160E-20 0.38089E-28 @@ -29530,24 +29530,24 @@ VERSION 2.8.2 5 4 0.45665E-15 0.10000E+01 0.24221E+03 0.80224E-14 0.74012E-17 0.37805E-26 5 4 0.45665E-15 0.10000E+01 0.19533E+03 0.12643E-13 0.14065E-16 0.59580E-26 5 4 0.45665E-15 0.10000E+01 0.15752E+03 0.12643E-13 0.14065E-16 0.59580E-26 - 5 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25934E-66 0.44156E-77 0.12221E-78 - 5 4 0.79683E-15 0.10000E+01 0.65036E+05 0.46766E-65 0.13626E-75 0.22038E-77 - 5 4 0.79683E-15 0.10000E+01 0.52449E+05 0.78446E-64 0.46011E-74 0.36967E-76 - 5 4 0.79683E-15 0.10000E+01 0.42297E+05 0.13710E-62 0.15395E-72 0.64606E-75 - 5 4 0.79683E-15 0.10000E+01 0.34111E+05 0.24029E-61 0.51151E-71 0.11324E-73 - 5 4 0.79683E-15 0.10000E+01 0.27509E+05 0.41856E-60 0.16803E-69 0.19724E-72 - 5 4 0.79683E-15 0.10000E+01 0.22184E+05 0.71798E-59 0.53055E-68 0.33834E-71 - 5 4 0.79683E-15 0.10000E+01 0.17891E+05 0.11832E-57 0.15704E-66 0.55756E-70 - 5 4 0.79683E-15 0.10000E+01 0.14428E+05 0.18385E-56 0.43911E-65 0.86636E-69 - 5 4 0.79683E-15 0.10000E+01 0.11635E+05 0.27110E-55 0.11912E-63 0.12775E-67 - 5 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38757E-54 0.31984E-62 0.18264E-66 - 5 4 0.79683E-15 0.10000E+01 0.75673E+04 0.54701E-53 0.85676E-61 0.25777E-65 - 5 4 0.79683E-15 0.10000E+01 0.61026E+04 0.76904E-52 0.22942E-59 0.36240E-64 - 5 4 0.79683E-15 0.10000E+01 0.49215E+04 0.10802E-50 0.61432E-58 0.50905E-63 - 5 4 0.79683E-15 0.10000E+01 0.39689E+04 0.15171E-49 0.16449E-56 0.71492E-62 - 5 4 0.79683E-15 0.10000E+01 0.32008E+04 0.67006E-47 0.14243E-53 0.31576E-59 - 5 4 0.79683E-15 0.10000E+01 0.25813E+04 0.48969E-38 0.23861E-44 0.23076E-50 - 5 4 0.79683E-15 0.10000E+01 0.20817E+04 0.92882E-22 0.20188E-27 0.43769E-34 + 5 4 0.79683E-15 0.10000E+01 0.80645E+05 0.25975E-23 0.54202E-33 0.12240E-35 + 5 4 0.79683E-15 0.10000E+01 0.65036E+05 0.76371E-23 0.28953E-32 0.35989E-35 + 5 4 0.79683E-15 0.10000E+01 0.52449E+05 0.22046E-22 0.14812E-31 0.10389E-34 + 5 4 0.79683E-15 0.10000E+01 0.42297E+05 0.61975E-22 0.72458E-31 0.29205E-34 + 5 4 0.79683E-15 0.10000E+01 0.34111E+05 0.16851E-21 0.34196E-30 0.79410E-34 + 5 4 0.79683E-15 0.10000E+01 0.27509E+05 0.44237E-21 0.15765E-29 0.20846E-33 + 5 4 0.79683E-15 0.10000E+01 0.22184E+05 0.11249E-20 0.71762E-29 0.53011E-33 + 5 4 0.79683E-15 0.10000E+01 0.17891E+05 0.27886E-20 0.32473E-28 0.13141E-32 + 5 4 0.79683E-15 0.10000E+01 0.14428E+05 0.67867E-20 0.14659E-27 0.31982E-32 + 5 4 0.79683E-15 0.10000E+01 0.11635E+05 0.16317E-19 0.66115E-27 0.76890E-32 + 5 4 0.79683E-15 0.10000E+01 0.93834E+04 0.38935E-19 0.29795E-26 0.18347E-31 + 5 4 0.79683E-15 0.10000E+01 0.75673E+04 0.92492E-19 0.13389E-25 0.43586E-31 + 5 4 0.79683E-15 0.10000E+01 0.61026E+04 0.21903E-18 0.59658E-25 0.10322E-30 + 5 4 0.79683E-15 0.10000E+01 0.49215E+04 0.51664E-18 0.26148E-24 0.24346E-30 + 5 4 0.79683E-15 0.10000E+01 0.39689E+04 0.12100E-17 0.11210E-23 0.57022E-30 + 5 4 0.79683E-15 0.10000E+01 0.32008E+04 0.28016E-17 0.46939E-23 0.13202E-29 + 5 4 0.79683E-15 0.10000E+01 0.25813E+04 0.63860E-17 0.19196E-22 0.30093E-29 + 5 4 0.79683E-15 0.10000E+01 0.20817E+04 0.14289E-16 0.76579E-22 0.67335E-29 5 4 0.79683E-15 0.10000E+01 0.16788E+04 0.31327E-16 0.29775E-21 0.14762E-28 5 4 0.79683E-15 0.10000E+01 0.13538E+04 0.67210E-16 0.11307E-20 0.31672E-28 5 4 0.79683E-15 0.10000E+01 0.10918E+04 0.14104E-15 0.42157E-20 0.66463E-28 @@ -29560,24 +29560,24 @@ VERSION 2.8.2 5 4 0.79683E-15 0.10000E+01 0.24221E+03 0.13999E-13 0.12915E-16 0.65967E-26 5 4 0.79683E-15 0.10000E+01 0.19533E+03 0.22062E-13 0.24542E-16 0.10396E-25 5 4 0.79683E-15 0.10000E+01 0.15752E+03 0.22062E-13 0.24542E-16 0.10396E-25 - 5 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45254E-66 0.77050E-77 0.21325E-78 - 5 4 0.13904E-14 0.10000E+01 0.65036E+05 0.81603E-65 0.23777E-75 0.38455E-77 - 5 4 0.13904E-14 0.10000E+01 0.52449E+05 0.13688E-63 0.80286E-74 0.64504E-76 - 5 4 0.13904E-14 0.10000E+01 0.42297E+05 0.23923E-62 0.26863E-72 0.11273E-74 - 5 4 0.13904E-14 0.10000E+01 0.34111E+05 0.41930E-61 0.89255E-71 0.19759E-73 - 5 4 0.13904E-14 0.10000E+01 0.27509E+05 0.73036E-60 0.29320E-69 0.34417E-72 - 5 4 0.13904E-14 0.10000E+01 0.22184E+05 0.12528E-58 0.92578E-68 0.59039E-71 - 5 4 0.13904E-14 0.10000E+01 0.17891E+05 0.20646E-57 0.27403E-66 0.97290E-70 - 5 4 0.13904E-14 0.10000E+01 0.14428E+05 0.32080E-56 0.76622E-65 0.15117E-68 - 5 4 0.13904E-14 0.10000E+01 0.11635E+05 0.47305E-55 0.20786E-63 0.22292E-67 - 5 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67629E-54 0.55810E-62 0.31869E-66 - 5 4 0.13904E-14 0.10000E+01 0.75673E+04 0.95450E-53 0.14950E-60 0.44979E-65 - 5 4 0.13904E-14 0.10000E+01 0.61026E+04 0.13419E-51 0.40033E-59 0.63236E-64 - 5 4 0.13904E-14 0.10000E+01 0.49215E+04 0.18849E-50 0.10719E-57 0.88825E-63 - 5 4 0.13904E-14 0.10000E+01 0.39689E+04 0.26473E-49 0.28703E-56 0.12475E-61 - 5 4 0.13904E-14 0.10000E+01 0.32008E+04 0.11692E-46 0.24852E-53 0.55098E-59 - 5 4 0.13904E-14 0.10000E+01 0.25813E+04 0.85449E-38 0.41636E-44 0.40267E-50 - 5 4 0.13904E-14 0.10000E+01 0.20817E+04 0.16207E-21 0.35227E-27 0.76375E-34 + 5 4 0.13904E-14 0.10000E+01 0.80645E+05 0.45324E-23 0.94580E-33 0.21359E-35 + 5 4 0.13904E-14 0.10000E+01 0.65036E+05 0.13326E-22 0.50522E-32 0.62799E-35 + 5 4 0.13904E-14 0.10000E+01 0.52449E+05 0.38468E-22 0.25846E-31 0.18128E-34 + 5 4 0.13904E-14 0.10000E+01 0.42297E+05 0.10814E-21 0.12644E-30 0.50961E-34 + 5 4 0.13904E-14 0.10000E+01 0.34111E+05 0.29404E-21 0.59669E-30 0.13857E-33 + 5 4 0.13904E-14 0.10000E+01 0.27509E+05 0.77192E-21 0.27509E-29 0.36376E-33 + 5 4 0.13904E-14 0.10000E+01 0.22184E+05 0.19629E-20 0.12522E-28 0.92501E-33 + 5 4 0.13904E-14 0.10000E+01 0.17891E+05 0.48660E-20 0.56663E-28 0.22930E-32 + 5 4 0.13904E-14 0.10000E+01 0.14428E+05 0.11842E-19 0.25579E-27 0.55806E-32 + 5 4 0.13904E-14 0.10000E+01 0.11635E+05 0.28471E-19 0.11537E-26 0.13417E-31 + 5 4 0.13904E-14 0.10000E+01 0.93834E+04 0.67938E-19 0.51991E-26 0.32015E-31 + 5 4 0.13904E-14 0.10000E+01 0.75673E+04 0.16139E-18 0.23363E-25 0.76054E-31 + 5 4 0.13904E-14 0.10000E+01 0.61026E+04 0.38219E-18 0.10410E-24 0.18010E-30 + 5 4 0.13904E-14 0.10000E+01 0.49215E+04 0.90151E-18 0.45628E-24 0.42482E-30 + 5 4 0.13904E-14 0.10000E+01 0.39689E+04 0.21115E-17 0.19561E-23 0.99500E-30 + 5 4 0.13904E-14 0.10000E+01 0.32008E+04 0.48887E-17 0.81906E-23 0.23037E-29 + 5 4 0.13904E-14 0.10000E+01 0.25813E+04 0.11143E-16 0.33495E-22 0.52511E-29 + 5 4 0.13904E-14 0.10000E+01 0.20817E+04 0.24933E-16 0.13363E-21 0.11750E-28 5 4 0.13904E-14 0.10000E+01 0.16788E+04 0.54664E-16 0.51956E-21 0.25760E-28 5 4 0.13904E-14 0.10000E+01 0.13538E+04 0.11728E-15 0.19731E-20 0.55266E-28 5 4 0.13904E-14 0.10000E+01 0.10918E+04 0.24610E-15 0.73562E-20 0.11597E-27 @@ -29590,24 +29590,24 @@ VERSION 2.8.2 5 4 0.13904E-14 0.10000E+01 0.24221E+03 0.24427E-13 0.22535E-16 0.11511E-25 5 4 0.13904E-14 0.10000E+01 0.19533E+03 0.38497E-13 0.42824E-16 0.18141E-25 5 4 0.13904E-14 0.10000E+01 0.15752E+03 0.38497E-13 0.42824E-16 0.18141E-25 - 5 4 0.24262E-14 0.10000E+01 0.80645E+05 0.78965E-66 0.13445E-76 0.37212E-78 - 5 4 0.24262E-14 0.10000E+01 0.65036E+05 0.14239E-64 0.41489E-75 0.67101E-77 - 5 4 0.24262E-14 0.10000E+01 0.52449E+05 0.23885E-63 0.14009E-73 0.11256E-75 - 5 4 0.24262E-14 0.10000E+01 0.42297E+05 0.41744E-62 0.46875E-72 0.19671E-74 - 5 4 0.24262E-14 0.10000E+01 0.34111E+05 0.73165E-61 0.15575E-70 0.34478E-73 - 5 4 0.24262E-14 0.10000E+01 0.27509E+05 0.12744E-59 0.51162E-69 0.60056E-72 - 5 4 0.24262E-14 0.10000E+01 0.22184E+05 0.21861E-58 0.16154E-67 0.10302E-70 - 5 4 0.24262E-14 0.10000E+01 0.17891E+05 0.36025E-57 0.47817E-66 0.16977E-69 - 5 4 0.24262E-14 0.10000E+01 0.14428E+05 0.55978E-56 0.13370E-64 0.26379E-68 - 5 4 0.24262E-14 0.10000E+01 0.11635E+05 0.82545E-55 0.36270E-63 0.38898E-67 - 5 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11801E-53 0.97385E-62 0.55610E-66 - 5 4 0.24262E-14 0.10000E+01 0.75673E+04 0.16655E-52 0.26087E-60 0.78486E-65 - 5 4 0.24262E-14 0.10000E+01 0.61026E+04 0.23416E-51 0.69854E-59 0.11034E-63 - 5 4 0.24262E-14 0.10000E+01 0.49215E+04 0.32891E-50 0.18705E-57 0.15499E-62 - 5 4 0.24262E-14 0.10000E+01 0.39689E+04 0.46193E-49 0.50085E-56 0.21768E-61 - 5 4 0.24262E-14 0.10000E+01 0.32008E+04 0.20402E-46 0.43366E-53 0.96143E-59 - 5 4 0.24262E-14 0.10000E+01 0.25813E+04 0.14910E-37 0.72653E-44 0.70263E-50 - 5 4 0.24262E-14 0.10000E+01 0.20817E+04 0.28281E-21 0.61468E-27 0.13327E-33 + 5 4 0.24262E-14 0.10000E+01 0.80645E+05 0.79088E-23 0.16504E-32 0.37269E-35 + 5 4 0.24262E-14 0.10000E+01 0.65036E+05 0.23254E-22 0.88157E-32 0.10958E-34 + 5 4 0.24262E-14 0.10000E+01 0.52449E+05 0.67125E-22 0.45099E-31 0.31632E-34 + 5 4 0.24262E-14 0.10000E+01 0.42297E+05 0.18870E-21 0.22062E-30 0.88924E-34 + 5 4 0.24262E-14 0.10000E+01 0.34111E+05 0.51309E-21 0.10412E-29 0.24179E-33 + 5 4 0.24262E-14 0.10000E+01 0.27509E+05 0.13469E-20 0.48001E-29 0.63473E-33 + 5 4 0.24262E-14 0.10000E+01 0.22184E+05 0.34252E-20 0.21850E-28 0.16141E-32 + 5 4 0.24262E-14 0.10000E+01 0.17891E+05 0.84909E-20 0.98874E-28 0.40012E-32 + 5 4 0.24262E-14 0.10000E+01 0.14428E+05 0.20664E-19 0.44635E-27 0.97378E-32 + 5 4 0.24262E-14 0.10000E+01 0.11635E+05 0.49681E-19 0.20131E-26 0.23412E-31 + 5 4 0.24262E-14 0.10000E+01 0.93834E+04 0.11855E-18 0.90721E-26 0.55865E-31 + 5 4 0.24262E-14 0.10000E+01 0.75673E+04 0.28162E-18 0.40768E-25 0.13271E-30 + 5 4 0.24262E-14 0.10000E+01 0.61026E+04 0.66691E-18 0.18165E-24 0.31427E-30 + 5 4 0.24262E-14 0.10000E+01 0.49215E+04 0.15731E-17 0.79617E-24 0.74129E-30 + 5 4 0.24262E-14 0.10000E+01 0.39689E+04 0.36844E-17 0.34133E-23 0.17362E-29 + 5 4 0.24262E-14 0.10000E+01 0.32008E+04 0.85305E-17 0.14292E-22 0.40199E-29 + 5 4 0.24262E-14 0.10000E+01 0.25813E+04 0.19444E-16 0.58448E-22 0.91628E-29 + 5 4 0.24262E-14 0.10000E+01 0.20817E+04 0.43507E-16 0.23317E-21 0.20502E-28 5 4 0.24262E-14 0.10000E+01 0.16788E+04 0.95385E-16 0.90660E-21 0.44949E-28 5 4 0.24262E-14 0.10000E+01 0.13538E+04 0.20464E-15 0.34429E-20 0.96436E-28 5 4 0.24262E-14 0.10000E+01 0.10918E+04 0.42944E-15 0.12836E-19 0.20237E-27 @@ -29620,24 +29620,24 @@ VERSION 2.8.2 5 4 0.24262E-14 0.10000E+01 0.24221E+03 0.42623E-13 0.39323E-16 0.20086E-25 5 4 0.24262E-14 0.10000E+01 0.19533E+03 0.67174E-13 0.74726E-16 0.31655E-25 5 4 0.24262E-14 0.10000E+01 0.15752E+03 0.67174E-13 0.74726E-16 0.31655E-25 - 5 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13779E-65 0.23460E-76 0.64932E-78 - 5 4 0.42336E-14 0.10000E+01 0.65036E+05 0.24847E-64 0.72396E-75 0.11709E-76 - 5 4 0.42336E-14 0.10000E+01 0.52449E+05 0.41678E-63 0.24446E-73 0.19640E-75 - 5 4 0.42336E-14 0.10000E+01 0.42297E+05 0.72841E-62 0.81794E-72 0.34325E-74 - 5 4 0.42336E-14 0.10000E+01 0.34111E+05 0.12767E-60 0.27177E-70 0.60162E-73 - 5 4 0.42336E-14 0.10000E+01 0.27509E+05 0.22238E-59 0.89275E-69 0.10479E-71 - 5 4 0.42336E-14 0.10000E+01 0.22184E+05 0.38147E-58 0.28188E-67 0.17976E-70 - 5 4 0.42336E-14 0.10000E+01 0.17891E+05 0.62862E-57 0.83438E-66 0.29623E-69 - 5 4 0.42336E-14 0.10000E+01 0.14428E+05 0.97678E-56 0.23330E-64 0.46030E-68 - 5 4 0.42336E-14 0.10000E+01 0.11635E+05 0.14404E-54 0.63289E-63 0.67875E-67 - 5 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20592E-53 0.16993E-61 0.97036E-66 - 5 4 0.42336E-14 0.10000E+01 0.75673E+04 0.29063E-52 0.45520E-60 0.13695E-64 - 5 4 0.42336E-14 0.10000E+01 0.61026E+04 0.40859E-51 0.12189E-58 0.19254E-63 - 5 4 0.42336E-14 0.10000E+01 0.49215E+04 0.57393E-50 0.32639E-57 0.27046E-62 - 5 4 0.42336E-14 0.10000E+01 0.39689E+04 0.80604E-49 0.87395E-56 0.37984E-61 - 5 4 0.42336E-14 0.10000E+01 0.32008E+04 0.35601E-46 0.75671E-53 0.16776E-58 - 5 4 0.42336E-14 0.10000E+01 0.25813E+04 0.26018E-37 0.12678E-43 0.12260E-49 - 5 4 0.42336E-14 0.10000E+01 0.20817E+04 0.49348E-21 0.10726E-26 0.23255E-33 + 5 4 0.42336E-14 0.10000E+01 0.80645E+05 0.13800E-22 0.28798E-32 0.65033E-35 + 5 4 0.42336E-14 0.10000E+01 0.65036E+05 0.40576E-22 0.15383E-31 0.19121E-34 + 5 4 0.42336E-14 0.10000E+01 0.52449E+05 0.11713E-21 0.78695E-31 0.55196E-34 + 5 4 0.42336E-14 0.10000E+01 0.42297E+05 0.32927E-21 0.38497E-30 0.15517E-33 + 5 4 0.42336E-14 0.10000E+01 0.34111E+05 0.89531E-21 0.18168E-29 0.42191E-33 + 5 4 0.42336E-14 0.10000E+01 0.27509E+05 0.23503E-20 0.83760E-29 0.11076E-32 + 5 4 0.42336E-14 0.10000E+01 0.22184E+05 0.59767E-20 0.38127E-28 0.28165E-32 + 5 4 0.42336E-14 0.10000E+01 0.17891E+05 0.14816E-19 0.17253E-27 0.69819E-32 + 5 4 0.42336E-14 0.10000E+01 0.14428E+05 0.36058E-19 0.77885E-27 0.16992E-31 + 5 4 0.42336E-14 0.10000E+01 0.11635E+05 0.86690E-19 0.35127E-26 0.40852E-31 + 5 4 0.42336E-14 0.10000E+01 0.93834E+04 0.20686E-18 0.15830E-25 0.97480E-31 + 5 4 0.42336E-14 0.10000E+01 0.75673E+04 0.49141E-18 0.71137E-25 0.23157E-30 + 5 4 0.42336E-14 0.10000E+01 0.61026E+04 0.11637E-17 0.31696E-24 0.54839E-30 + 5 4 0.42336E-14 0.10000E+01 0.49215E+04 0.27449E-17 0.13893E-23 0.12935E-29 + 5 4 0.42336E-14 0.10000E+01 0.39689E+04 0.64290E-17 0.59560E-23 0.30296E-29 + 5 4 0.42336E-14 0.10000E+01 0.32008E+04 0.14885E-16 0.24939E-22 0.70145E-29 + 5 4 0.42336E-14 0.10000E+01 0.25813E+04 0.33929E-16 0.10199E-21 0.15989E-28 + 5 4 0.42336E-14 0.10000E+01 0.20817E+04 0.75917E-16 0.40686E-21 0.35775E-28 5 4 0.42336E-14 0.10000E+01 0.16788E+04 0.16644E-15 0.15820E-20 0.78433E-28 5 4 0.42336E-14 0.10000E+01 0.13538E+04 0.35709E-15 0.60076E-20 0.16827E-27 5 4 0.42336E-14 0.10000E+01 0.10918E+04 0.74934E-15 0.22398E-19 0.35312E-27 @@ -29650,24 +29650,24 @@ VERSION 2.8.2 5 4 0.42336E-14 0.10000E+01 0.24221E+03 0.74375E-13 0.68616E-16 0.35048E-25 5 4 0.42336E-14 0.10000E+01 0.19533E+03 0.11721E-12 0.13039E-15 0.55236E-25 5 4 0.42336E-14 0.10000E+01 0.15752E+03 0.11721E-12 0.13039E-15 0.55236E-25 - 5 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22591E-64 0.38464E-75 0.10646E-76 - 5 4 0.73873E-14 0.10000E+01 0.65036E+05 0.40737E-63 0.11870E-73 0.19197E-75 - 5 4 0.73873E-14 0.10000E+01 0.52449E+05 0.68333E-62 0.40080E-72 0.32201E-74 - 5 4 0.73873E-14 0.10000E+01 0.42297E+05 0.11943E-60 0.13411E-70 0.56278E-73 - 5 4 0.73873E-14 0.10000E+01 0.34111E+05 0.20932E-59 0.44557E-69 0.98639E-72 - 5 4 0.73873E-14 0.10000E+01 0.27509E+05 0.36460E-58 0.14637E-67 0.17182E-70 - 5 4 0.73873E-14 0.10000E+01 0.22184E+05 0.62543E-57 0.46216E-66 0.29473E-69 - 5 4 0.73873E-14 0.10000E+01 0.17891E+05 0.10307E-55 0.13680E-64 0.48568E-68 - 5 4 0.73873E-14 0.10000E+01 0.14428E+05 0.16015E-54 0.38251E-63 0.75468E-67 - 5 4 0.73873E-14 0.10000E+01 0.11635E+05 0.23615E-53 0.10377E-61 0.11128E-65 - 5 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33761E-52 0.27861E-60 0.15910E-64 - 5 4 0.73873E-14 0.10000E+01 0.75673E+04 0.47649E-51 0.74632E-59 0.22454E-63 - 5 4 0.73873E-14 0.10000E+01 0.61026E+04 0.66990E-50 0.19985E-57 0.31568E-62 - 5 4 0.73873E-14 0.10000E+01 0.49215E+04 0.94098E-49 0.53513E-56 0.44343E-61 - 5 4 0.73873E-14 0.10000E+01 0.39689E+04 0.13215E-47 0.14329E-54 0.62276E-60 - 5 4 0.73873E-14 0.10000E+01 0.32008E+04 0.58369E-45 0.12407E-51 0.27506E-57 - 5 4 0.73873E-14 0.10000E+01 0.25813E+04 0.42657E-36 0.20785E-42 0.20102E-48 - 5 4 0.73873E-14 0.10000E+01 0.20817E+04 0.80909E-20 0.17586E-25 0.38127E-32 + 5 4 0.73873E-14 0.10000E+01 0.80645E+05 0.22626E-21 0.47215E-31 0.10662E-33 + 5 4 0.73873E-14 0.10000E+01 0.65036E+05 0.66526E-21 0.25221E-30 0.31350E-33 + 5 4 0.73873E-14 0.10000E+01 0.52449E+05 0.19204E-20 0.12902E-29 0.90496E-33 + 5 4 0.73873E-14 0.10000E+01 0.42297E+05 0.53986E-20 0.63118E-29 0.25440E-32 + 5 4 0.73873E-14 0.10000E+01 0.34111E+05 0.14679E-19 0.29788E-28 0.69173E-32 + 5 4 0.73873E-14 0.10000E+01 0.27509E+05 0.38535E-19 0.13733E-27 0.18159E-31 + 5 4 0.73873E-14 0.10000E+01 0.22184E+05 0.97991E-19 0.62511E-27 0.46177E-31 + 5 4 0.73873E-14 0.10000E+01 0.17891E+05 0.24292E-18 0.28287E-26 0.11447E-30 + 5 4 0.73873E-14 0.10000E+01 0.14428E+05 0.59119E-18 0.12770E-25 0.27859E-30 + 5 4 0.73873E-14 0.10000E+01 0.11635E+05 0.14213E-17 0.57593E-25 0.66979E-30 + 5 4 0.73873E-14 0.10000E+01 0.93834E+04 0.33916E-17 0.25954E-24 0.15982E-29 + 5 4 0.73873E-14 0.10000E+01 0.75673E+04 0.80569E-17 0.11663E-23 0.37967E-29 + 5 4 0.73873E-14 0.10000E+01 0.61026E+04 0.19080E-16 0.51968E-23 0.89910E-29 + 5 4 0.73873E-14 0.10000E+01 0.49215E+04 0.45004E-16 0.22778E-22 0.21208E-28 + 5 4 0.73873E-14 0.10000E+01 0.39689E+04 0.10541E-15 0.97652E-22 0.49672E-28 + 5 4 0.73873E-14 0.10000E+01 0.32008E+04 0.24405E-15 0.40888E-21 0.11501E-27 + 5 4 0.73873E-14 0.10000E+01 0.25813E+04 0.55628E-15 0.16721E-20 0.26214E-27 + 5 4 0.73873E-14 0.10000E+01 0.20817E+04 0.12447E-14 0.66707E-20 0.58655E-27 5 4 0.73873E-14 0.10000E+01 0.16788E+04 0.27289E-14 0.25937E-19 0.12860E-26 5 4 0.73873E-14 0.10000E+01 0.13538E+04 0.58546E-14 0.98498E-19 0.27589E-26 5 4 0.73873E-14 0.10000E+01 0.10918E+04 0.12286E-13 0.36723E-18 0.57896E-26 @@ -29680,24 +29680,24 @@ VERSION 2.8.2 5 4 0.73873E-14 0.10000E+01 0.24221E+03 0.12194E-11 0.11250E-14 0.57463E-24 5 4 0.73873E-14 0.10000E+01 0.19533E+03 0.19218E-11 0.21378E-14 0.90562E-24 5 4 0.73873E-14 0.10000E+01 0.15752E+03 0.19218E-11 0.21378E-14 0.90562E-24 - 5 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13504E-62 0.22993E-73 0.63638E-75 - 5 4 0.12890E-13 0.10000E+01 0.65036E+05 0.24351E-61 0.70953E-72 0.11475E-73 - 5 4 0.12890E-13 0.10000E+01 0.52449E+05 0.40848E-60 0.23958E-70 0.19249E-72 - 5 4 0.12890E-13 0.10000E+01 0.42297E+05 0.71389E-59 0.80164E-69 0.33641E-71 - 5 4 0.12890E-13 0.10000E+01 0.34111E+05 0.12512E-57 0.26635E-67 0.58963E-70 - 5 4 0.12890E-13 0.10000E+01 0.27509E+05 0.21795E-56 0.87495E-66 0.10271E-68 - 5 4 0.12890E-13 0.10000E+01 0.22184E+05 0.37386E-55 0.27627E-64 0.17618E-67 - 5 4 0.12890E-13 0.10000E+01 0.17891E+05 0.61609E-54 0.81775E-63 0.29033E-66 - 5 4 0.12890E-13 0.10000E+01 0.14428E+05 0.95731E-53 0.22865E-61 0.45112E-65 - 5 4 0.12890E-13 0.10000E+01 0.11635E+05 0.14117E-51 0.62028E-60 0.66523E-64 - 5 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20181E-50 0.16654E-58 0.95103E-63 - 5 4 0.12890E-13 0.10000E+01 0.75673E+04 0.28483E-49 0.44613E-57 0.13422E-61 - 5 4 0.12890E-13 0.10000E+01 0.61026E+04 0.40045E-48 0.11946E-55 0.18871E-60 - 5 4 0.12890E-13 0.10000E+01 0.49215E+04 0.56249E-47 0.31988E-54 0.26507E-59 - 5 4 0.12890E-13 0.10000E+01 0.39689E+04 0.78998E-46 0.85653E-53 0.37227E-58 - 5 4 0.12890E-13 0.10000E+01 0.32008E+04 0.34891E-43 0.74163E-50 0.16442E-55 - 5 4 0.12890E-13 0.10000E+01 0.25813E+04 0.25499E-34 0.12425E-40 0.12016E-46 - 5 4 0.12890E-13 0.10000E+01 0.20817E+04 0.48365E-18 0.10512E-23 0.22791E-30 + 5 4 0.12890E-13 0.10000E+01 0.80645E+05 0.13525E-19 0.28224E-29 0.63737E-32 + 5 4 0.12890E-13 0.10000E+01 0.65036E+05 0.39768E-19 0.15076E-28 0.18740E-31 + 5 4 0.12890E-13 0.10000E+01 0.52449E+05 0.11479E-18 0.77127E-28 0.54096E-31 + 5 4 0.12890E-13 0.10000E+01 0.42297E+05 0.32271E-18 0.37730E-27 0.15207E-30 + 5 4 0.12890E-13 0.10000E+01 0.34111E+05 0.87747E-18 0.17806E-26 0.41350E-30 + 5 4 0.12890E-13 0.10000E+01 0.27509E+05 0.23035E-17 0.82090E-26 0.10855E-29 + 5 4 0.12890E-13 0.10000E+01 0.22184E+05 0.58576E-17 0.37367E-25 0.27603E-29 + 5 4 0.12890E-13 0.10000E+01 0.17891E+05 0.14521E-16 0.16909E-24 0.68427E-29 + 5 4 0.12890E-13 0.10000E+01 0.14428E+05 0.35339E-16 0.76333E-24 0.16653E-28 + 5 4 0.12890E-13 0.10000E+01 0.11635E+05 0.84963E-16 0.34427E-23 0.40038E-28 + 5 4 0.12890E-13 0.10000E+01 0.93834E+04 0.20274E-15 0.15515E-22 0.95538E-28 + 5 4 0.12890E-13 0.10000E+01 0.75673E+04 0.48162E-15 0.69720E-22 0.22696E-27 + 5 4 0.12890E-13 0.10000E+01 0.61026E+04 0.11405E-14 0.31065E-21 0.53746E-27 + 5 4 0.12890E-13 0.10000E+01 0.49215E+04 0.26902E-14 0.13616E-20 0.12677E-26 + 5 4 0.12890E-13 0.10000E+01 0.39689E+04 0.63009E-14 0.58373E-20 0.29692E-26 + 5 4 0.12890E-13 0.10000E+01 0.32008E+04 0.14589E-13 0.24442E-19 0.68747E-26 + 5 4 0.12890E-13 0.10000E+01 0.25813E+04 0.33253E-13 0.99955E-19 0.15670E-25 + 5 4 0.12890E-13 0.10000E+01 0.20817E+04 0.74404E-13 0.39876E-18 0.35062E-25 5 4 0.12890E-13 0.10000E+01 0.16788E+04 0.16312E-12 0.15504E-17 0.76870E-25 5 4 0.12890E-13 0.10000E+01 0.13538E+04 0.34997E-12 0.58879E-17 0.16492E-24 5 4 0.12890E-13 0.10000E+01 0.10918E+04 0.73441E-12 0.21952E-16 0.34608E-24 @@ -29710,24 +29710,24 @@ VERSION 2.8.2 5 4 0.12890E-13 0.10000E+01 0.24221E+03 0.72893E-10 0.67248E-13 0.34350E-22 5 4 0.12890E-13 0.10000E+01 0.19533E+03 0.11488E-09 0.12779E-12 0.54135E-22 5 4 0.12890E-13 0.10000E+01 0.15752E+03 0.11488E-09 0.12779E-12 0.54135E-22 - 5 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32360E-61 0.55097E-72 0.15249E-73 - 5 4 0.22493E-13 0.10000E+01 0.65036E+05 0.58352E-60 0.17002E-70 0.27498E-72 - 5 4 0.22493E-13 0.10000E+01 0.52449E+05 0.97882E-59 0.57411E-69 0.46126E-71 - 5 4 0.22493E-13 0.10000E+01 0.42297E+05 0.17107E-57 0.19209E-67 0.80613E-70 - 5 4 0.22493E-13 0.10000E+01 0.34111E+05 0.29983E-56 0.63825E-66 0.14129E-68 - 5 4 0.22493E-13 0.10000E+01 0.27509E+05 0.52226E-55 0.20966E-64 0.24611E-67 - 5 4 0.22493E-13 0.10000E+01 0.22184E+05 0.89588E-54 0.66200E-63 0.42217E-66 - 5 4 0.22493E-13 0.10000E+01 0.17891E+05 0.14763E-52 0.19595E-61 0.69570E-65 - 5 4 0.22493E-13 0.10000E+01 0.14428E+05 0.22940E-51 0.54791E-60 0.10810E-63 - 5 4 0.22493E-13 0.10000E+01 0.11635E+05 0.33827E-50 0.14864E-58 0.15941E-62 - 5 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48360E-49 0.39909E-57 0.22789E-61 - 5 4 0.22493E-13 0.10000E+01 0.75673E+04 0.68254E-48 0.10690E-55 0.32164E-60 - 5 4 0.22493E-13 0.10000E+01 0.61026E+04 0.95958E-47 0.28626E-54 0.45219E-59 - 5 4 0.22493E-13 0.10000E+01 0.49215E+04 0.13479E-45 0.76652E-53 0.63517E-58 - 5 4 0.22493E-13 0.10000E+01 0.39689E+04 0.18930E-44 0.20525E-51 0.89206E-57 - 5 4 0.22493E-13 0.10000E+01 0.32008E+04 0.83608E-42 0.17771E-48 0.39399E-54 - 5 4 0.22493E-13 0.10000E+01 0.25813E+04 0.61102E-33 0.29773E-39 0.28794E-45 - 5 4 0.22493E-13 0.10000E+01 0.20817E+04 0.11589E-16 0.25190E-22 0.54614E-29 + 5 4 0.22493E-13 0.10000E+01 0.80645E+05 0.32410E-18 0.67632E-28 0.15273E-30 + 5 4 0.22493E-13 0.10000E+01 0.65036E+05 0.95293E-18 0.36127E-27 0.44906E-30 + 5 4 0.22493E-13 0.10000E+01 0.52449E+05 0.27508E-17 0.18482E-26 0.12963E-29 + 5 4 0.22493E-13 0.10000E+01 0.42297E+05 0.77330E-17 0.90411E-26 0.36441E-29 + 5 4 0.22493E-13 0.10000E+01 0.34111E+05 0.21026E-16 0.42668E-25 0.99085E-29 + 5 4 0.22493E-13 0.10000E+01 0.27509E+05 0.55198E-16 0.19671E-24 0.26011E-28 + 5 4 0.22493E-13 0.10000E+01 0.22184E+05 0.14036E-15 0.89542E-24 0.66145E-28 + 5 4 0.22493E-13 0.10000E+01 0.17891E+05 0.34796E-15 0.40519E-23 0.16397E-27 + 5 4 0.22493E-13 0.10000E+01 0.14428E+05 0.84682E-15 0.18291E-22 0.39906E-27 + 5 4 0.22493E-13 0.10000E+01 0.11635E+05 0.20359E-14 0.82496E-22 0.95941E-27 + 5 4 0.22493E-13 0.10000E+01 0.93834E+04 0.48581E-14 0.37178E-21 0.22893E-26 + 5 4 0.22493E-13 0.10000E+01 0.75673E+04 0.11541E-13 0.16707E-20 0.54385E-26 + 5 4 0.22493E-13 0.10000E+01 0.61026E+04 0.27330E-13 0.74439E-20 0.12879E-25 + 5 4 0.22493E-13 0.10000E+01 0.49215E+04 0.64465E-13 0.32627E-19 0.30378E-25 + 5 4 0.22493E-13 0.10000E+01 0.39689E+04 0.15099E-12 0.13988E-18 0.71150E-25 + 5 4 0.22493E-13 0.10000E+01 0.32008E+04 0.34958E-12 0.58569E-18 0.16474E-24 + 5 4 0.22493E-13 0.10000E+01 0.25813E+04 0.79682E-12 0.23952E-17 0.37549E-24 + 5 4 0.22493E-13 0.10000E+01 0.20817E+04 0.17829E-11 0.95552E-17 0.84018E-24 5 4 0.22493E-13 0.10000E+01 0.16788E+04 0.39089E-11 0.37153E-16 0.18420E-23 5 4 0.22493E-13 0.10000E+01 0.13538E+04 0.83863E-11 0.14109E-15 0.39519E-23 5 4 0.22493E-13 0.10000E+01 0.10918E+04 0.17598E-10 0.52602E-15 0.82930E-23 @@ -29740,24 +29740,24 @@ VERSION 2.8.2 5 4 0.22493E-13 0.10000E+01 0.24221E+03 0.17467E-08 0.16114E-11 0.82311E-21 5 4 0.22493E-13 0.10000E+01 0.19533E+03 0.27528E-08 0.30623E-11 0.12972E-20 5 4 0.22493E-13 0.10000E+01 0.15752E+03 0.27528E-08 0.30623E-11 0.12972E-20 - 5 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36296E-60 0.61797E-71 0.17104E-72 - 5 4 0.39249E-13 0.10000E+01 0.65036E+05 0.65449E-59 0.19070E-69 0.30842E-71 - 5 4 0.39249E-13 0.10000E+01 0.52449E+05 0.10979E-57 0.64393E-68 0.51735E-70 - 5 4 0.39249E-13 0.10000E+01 0.42297E+05 0.19187E-56 0.21546E-66 0.90417E-69 - 5 4 0.39249E-13 0.10000E+01 0.34111E+05 0.33629E-55 0.71587E-65 0.15847E-67 - 5 4 0.39249E-13 0.10000E+01 0.27509E+05 0.58578E-54 0.23516E-63 0.27604E-66 - 5 4 0.39249E-13 0.10000E+01 0.22184E+05 0.10048E-52 0.74251E-62 0.47351E-65 - 5 4 0.39249E-13 0.10000E+01 0.17891E+05 0.16559E-51 0.21979E-60 0.78031E-64 - 5 4 0.39249E-13 0.10000E+01 0.14428E+05 0.25730E-50 0.61454E-59 0.12125E-62 - 5 4 0.39249E-13 0.10000E+01 0.11635E+05 0.37941E-49 0.16671E-57 0.17879E-61 - 5 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54241E-48 0.44762E-56 0.25561E-60 - 5 4 0.39249E-13 0.10000E+01 0.75673E+04 0.76554E-47 0.11991E-54 0.36075E-59 - 5 4 0.39249E-13 0.10000E+01 0.61026E+04 0.10763E-45 0.32108E-53 0.50718E-58 - 5 4 0.39249E-13 0.10000E+01 0.49215E+04 0.15118E-44 0.85974E-52 0.71242E-57 - 5 4 0.39249E-13 0.10000E+01 0.39689E+04 0.21232E-43 0.23021E-50 0.10005E-55 - 5 4 0.39249E-13 0.10000E+01 0.32008E+04 0.93776E-41 0.19933E-47 0.44191E-53 - 5 4 0.39249E-13 0.10000E+01 0.25813E+04 0.68533E-32 0.33394E-38 0.32296E-44 - 5 4 0.39249E-13 0.10000E+01 0.20817E+04 0.12999E-15 0.28253E-21 0.61256E-28 + 5 4 0.39249E-13 0.10000E+01 0.80645E+05 0.36352E-17 0.75857E-27 0.17130E-29 + 5 4 0.39249E-13 0.10000E+01 0.65036E+05 0.10688E-16 0.40520E-26 0.50367E-29 + 5 4 0.39249E-13 0.10000E+01 0.52449E+05 0.30853E-16 0.20729E-25 0.14539E-28 + 5 4 0.39249E-13 0.10000E+01 0.42297E+05 0.86735E-16 0.10141E-24 0.40873E-28 + 5 4 0.39249E-13 0.10000E+01 0.34111E+05 0.23584E-15 0.47857E-24 0.11114E-27 + 5 4 0.39249E-13 0.10000E+01 0.27509E+05 0.61911E-15 0.22063E-23 0.29175E-27 + 5 4 0.39249E-13 0.10000E+01 0.22184E+05 0.15743E-14 0.10043E-22 0.74189E-27 + 5 4 0.39249E-13 0.10000E+01 0.17891E+05 0.39027E-14 0.45446E-22 0.18391E-26 + 5 4 0.39249E-13 0.10000E+01 0.14428E+05 0.94981E-14 0.20516E-21 0.44759E-26 + 5 4 0.39249E-13 0.10000E+01 0.11635E+05 0.22835E-13 0.92529E-21 0.10761E-25 + 5 4 0.39249E-13 0.10000E+01 0.93834E+04 0.54489E-13 0.41699E-20 0.25678E-25 + 5 4 0.39249E-13 0.10000E+01 0.75673E+04 0.12944E-12 0.18738E-19 0.60999E-25 + 5 4 0.39249E-13 0.10000E+01 0.61026E+04 0.30654E-12 0.83492E-19 0.14445E-24 + 5 4 0.39249E-13 0.10000E+01 0.49215E+04 0.72305E-12 0.36595E-18 0.34073E-24 + 5 4 0.39249E-13 0.10000E+01 0.39689E+04 0.16935E-11 0.15689E-17 0.79803E-24 + 5 4 0.39249E-13 0.10000E+01 0.32008E+04 0.39209E-11 0.65692E-17 0.18477E-23 + 5 4 0.39249E-13 0.10000E+01 0.25813E+04 0.89373E-11 0.26865E-16 0.42116E-23 + 5 4 0.39249E-13 0.10000E+01 0.20817E+04 0.19998E-10 0.10717E-15 0.94236E-23 5 4 0.39249E-13 0.10000E+01 0.16788E+04 0.43843E-10 0.41671E-15 0.20660E-22 5 4 0.39249E-13 0.10000E+01 0.13538E+04 0.94062E-10 0.15825E-14 0.44326E-22 5 4 0.39249E-13 0.10000E+01 0.10918E+04 0.19739E-09 0.58999E-14 0.93016E-22 @@ -29770,24 +29770,24 @@ VERSION 2.8.2 5 4 0.39249E-13 0.10000E+01 0.24221E+03 0.19591E-07 0.18074E-10 0.92322E-20 5 4 0.39249E-13 0.10000E+01 0.19533E+03 0.30876E-07 0.34347E-10 0.14550E-19 5 4 0.39249E-13 0.10000E+01 0.15752E+03 0.30876E-07 0.34347E-10 0.14550E-19 - 5 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21528E-59 0.36654E-70 0.10145E-71 - 5 4 0.68487E-13 0.10000E+01 0.65036E+05 0.38820E-58 0.11311E-68 0.18293E-70 - 5 4 0.68487E-13 0.10000E+01 0.52449E+05 0.65117E-57 0.38193E-67 0.30686E-69 - 5 4 0.68487E-13 0.10000E+01 0.42297E+05 0.11381E-55 0.12779E-65 0.53630E-68 - 5 4 0.68487E-13 0.10000E+01 0.34111E+05 0.19947E-54 0.42460E-64 0.93997E-67 - 5 4 0.68487E-13 0.10000E+01 0.27509E+05 0.34744E-53 0.13948E-62 0.16373E-65 - 5 4 0.68487E-13 0.10000E+01 0.22184E+05 0.59600E-52 0.44041E-61 0.28086E-64 - 5 4 0.68487E-13 0.10000E+01 0.17891E+05 0.98215E-51 0.13036E-59 0.46283E-63 - 5 4 0.68487E-13 0.10000E+01 0.14428E+05 0.15261E-49 0.36451E-58 0.71916E-62 - 5 4 0.68487E-13 0.10000E+01 0.11635E+05 0.22504E-48 0.98883E-57 0.10605E-60 - 5 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32172E-47 0.26550E-55 0.15161E-59 - 5 4 0.68487E-13 0.10000E+01 0.75673E+04 0.45407E-46 0.71120E-54 0.21398E-58 - 5 4 0.68487E-13 0.10000E+01 0.61026E+04 0.63837E-45 0.19044E-52 0.30083E-57 - 5 4 0.68487E-13 0.10000E+01 0.49215E+04 0.89670E-44 0.50994E-51 0.42256E-56 - 5 4 0.68487E-13 0.10000E+01 0.39689E+04 0.12594E-42 0.13654E-49 0.59346E-55 - 5 4 0.68487E-13 0.10000E+01 0.32008E+04 0.55622E-40 0.11823E-46 0.26211E-52 - 5 4 0.68487E-13 0.10000E+01 0.25813E+04 0.40649E-31 0.19807E-37 0.19156E-43 - 5 4 0.68487E-13 0.10000E+01 0.20817E+04 0.77101E-15 0.16758E-20 0.36333E-27 + 5 4 0.68487E-13 0.10000E+01 0.80645E+05 0.21562E-16 0.44993E-26 0.10161E-28 + 5 4 0.68487E-13 0.10000E+01 0.65036E+05 0.63396E-16 0.24034E-25 0.29874E-28 + 5 4 0.68487E-13 0.10000E+01 0.52449E+05 0.18300E-15 0.12295E-24 0.86237E-28 + 5 4 0.68487E-13 0.10000E+01 0.42297E+05 0.51445E-15 0.60148E-24 0.24243E-27 + 5 4 0.68487E-13 0.10000E+01 0.34111E+05 0.13988E-14 0.28386E-23 0.65918E-27 + 5 4 0.68487E-13 0.10000E+01 0.27509E+05 0.36721E-14 0.13086E-22 0.17305E-26 + 5 4 0.68487E-13 0.10000E+01 0.22184E+05 0.93380E-14 0.59569E-22 0.44004E-26 + 5 4 0.68487E-13 0.10000E+01 0.17891E+05 0.23148E-13 0.26956E-21 0.10908E-25 + 5 4 0.68487E-13 0.10000E+01 0.14428E+05 0.56336E-13 0.12169E-20 0.26548E-25 + 5 4 0.68487E-13 0.10000E+01 0.11635E+05 0.13544E-12 0.54882E-20 0.63826E-25 + 5 4 0.68487E-13 0.10000E+01 0.93834E+04 0.32320E-12 0.24733E-19 0.15230E-24 + 5 4 0.68487E-13 0.10000E+01 0.75673E+04 0.76777E-12 0.11114E-18 0.36180E-24 + 5 4 0.68487E-13 0.10000E+01 0.61026E+04 0.18182E-11 0.49522E-18 0.85679E-24 + 5 4 0.68487E-13 0.10000E+01 0.49215E+04 0.42886E-11 0.21706E-17 0.20210E-23 + 5 4 0.68487E-13 0.10000E+01 0.39689E+04 0.10045E-10 0.93056E-17 0.47334E-23 + 5 4 0.68487E-13 0.10000E+01 0.32008E+04 0.23256E-10 0.38964E-16 0.10959E-22 + 5 4 0.68487E-13 0.10000E+01 0.25813E+04 0.53010E-10 0.15934E-15 0.24980E-22 + 5 4 0.68487E-13 0.10000E+01 0.20817E+04 0.11861E-09 0.63568E-15 0.55895E-22 5 4 0.68487E-13 0.10000E+01 0.16788E+04 0.26005E-09 0.24716E-14 0.12254E-21 5 4 0.68487E-13 0.10000E+01 0.13538E+04 0.55791E-09 0.93862E-14 0.26291E-21 5 4 0.68487E-13 0.10000E+01 0.10918E+04 0.11708E-08 0.34995E-13 0.55171E-21 @@ -29800,24 +29800,24 @@ VERSION 2.8.2 5 4 0.68487E-13 0.10000E+01 0.24221E+03 0.11620E-06 0.10720E-09 0.54759E-19 5 4 0.68487E-13 0.10000E+01 0.19533E+03 0.18313E-06 0.20372E-09 0.86300E-19 5 4 0.68487E-13 0.10000E+01 0.15752E+03 0.18313E-06 0.20372E-09 0.86300E-19 - 5 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76406E-59 0.13009E-69 0.36006E-71 - 5 4 0.11951E-12 0.10000E+01 0.65036E+05 0.13778E-57 0.40144E-68 0.64926E-70 - 5 4 0.11951E-12 0.10000E+01 0.52449E+05 0.23111E-56 0.13555E-66 0.10891E-68 - 5 4 0.11951E-12 0.10000E+01 0.42297E+05 0.40391E-55 0.45356E-65 0.19034E-67 - 5 4 0.11951E-12 0.10000E+01 0.34111E+05 0.70794E-54 0.15070E-63 0.33361E-66 - 5 4 0.11951E-12 0.10000E+01 0.27509E+05 0.12331E-52 0.49504E-62 0.58110E-65 - 5 4 0.11951E-12 0.10000E+01 0.22184E+05 0.21153E-51 0.15631E-60 0.99680E-64 - 5 4 0.11951E-12 0.10000E+01 0.17891E+05 0.34858E-50 0.46267E-59 0.16426E-62 - 5 4 0.11951E-12 0.10000E+01 0.14428E+05 0.54164E-49 0.12937E-57 0.25524E-61 - 5 4 0.11951E-12 0.10000E+01 0.11635E+05 0.79870E-48 0.35095E-56 0.37638E-60 - 5 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11418E-46 0.94229E-55 0.53808E-59 - 5 4 0.11951E-12 0.10000E+01 0.75673E+04 0.16116E-45 0.25241E-53 0.75943E-58 - 5 4 0.11951E-12 0.10000E+01 0.61026E+04 0.22657E-44 0.67591E-52 0.10677E-56 - 5 4 0.11951E-12 0.10000E+01 0.49215E+04 0.31825E-43 0.18099E-50 0.14997E-55 - 5 4 0.11951E-12 0.10000E+01 0.39689E+04 0.44696E-42 0.48462E-49 0.21063E-54 - 5 4 0.11951E-12 0.10000E+01 0.32008E+04 0.19741E-39 0.41960E-46 0.93027E-52 - 5 4 0.11951E-12 0.10000E+01 0.25813E+04 0.14427E-30 0.70299E-37 0.67986E-43 - 5 4 0.11951E-12 0.10000E+01 0.20817E+04 0.27364E-14 0.59476E-20 0.12895E-26 + 5 4 0.11951E-12 0.10000E+01 0.80645E+05 0.76525E-16 0.15969E-25 0.36062E-28 + 5 4 0.11951E-12 0.10000E+01 0.65036E+05 0.22500E-15 0.85300E-25 0.10603E-27 + 5 4 0.11951E-12 0.10000E+01 0.52449E+05 0.64950E-15 0.43637E-24 0.30607E-27 + 5 4 0.11951E-12 0.10000E+01 0.42297E+05 0.18259E-14 0.21347E-23 0.86042E-27 + 5 4 0.11951E-12 0.10000E+01 0.34111E+05 0.49646E-14 0.10075E-22 0.23395E-26 + 5 4 0.11951E-12 0.10000E+01 0.27509E+05 0.13033E-13 0.46446E-22 0.61416E-26 + 5 4 0.11951E-12 0.10000E+01 0.22184E+05 0.33142E-13 0.21142E-21 0.15618E-25 + 5 4 0.11951E-12 0.10000E+01 0.17891E+05 0.82157E-13 0.95670E-21 0.38716E-25 + 5 4 0.11951E-12 0.10000E+01 0.14428E+05 0.19995E-12 0.43188E-20 0.94222E-25 + 5 4 0.11951E-12 0.10000E+01 0.11635E+05 0.48071E-12 0.19478E-19 0.22653E-24 + 5 4 0.11951E-12 0.10000E+01 0.93834E+04 0.11471E-11 0.87781E-19 0.54054E-24 + 5 4 0.11951E-12 0.10000E+01 0.75673E+04 0.27249E-11 0.39447E-18 0.12841E-23 + 5 4 0.11951E-12 0.10000E+01 0.61026E+04 0.64529E-11 0.17576E-17 0.30409E-23 + 5 4 0.11951E-12 0.10000E+01 0.49215E+04 0.15221E-10 0.77037E-17 0.71727E-23 + 5 4 0.11951E-12 0.10000E+01 0.39689E+04 0.35650E-10 0.33027E-16 0.16800E-22 + 5 4 0.11951E-12 0.10000E+01 0.32008E+04 0.82540E-10 0.13829E-15 0.38896E-22 + 5 4 0.11951E-12 0.10000E+01 0.25813E+04 0.18814E-09 0.56553E-15 0.88659E-22 + 5 4 0.11951E-12 0.10000E+01 0.20817E+04 0.42097E-09 0.22561E-14 0.19838E-21 5 4 0.11951E-12 0.10000E+01 0.16788E+04 0.92294E-09 0.87722E-14 0.43492E-21 5 4 0.11951E-12 0.10000E+01 0.13538E+04 0.19801E-08 0.33313E-13 0.93310E-21 5 4 0.11951E-12 0.10000E+01 0.10918E+04 0.41552E-08 0.12420E-12 0.19581E-20 @@ -29830,24 +29830,24 @@ VERSION 2.8.2 5 4 0.11951E-12 0.10000E+01 0.24221E+03 0.41242E-06 0.38048E-09 0.19435E-18 5 4 0.11951E-12 0.10000E+01 0.19533E+03 0.64997E-06 0.72304E-09 0.30629E-18 5 4 0.11951E-12 0.10000E+01 0.15752E+03 0.64997E-06 0.72304E-09 0.30629E-18 - 5 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17546E-58 0.29874E-69 0.82687E-71 - 5 4 0.20853E-12 0.10000E+01 0.65036E+05 0.31640E-57 0.92189E-68 0.14910E-69 - 5 4 0.20853E-12 0.10000E+01 0.52449E+05 0.53073E-56 0.31129E-66 0.25010E-68 - 5 4 0.20853E-12 0.10000E+01 0.42297E+05 0.92756E-55 0.10416E-64 0.43711E-67 - 5 4 0.20853E-12 0.10000E+01 0.34111E+05 0.16257E-53 0.34607E-63 0.76612E-66 - 5 4 0.20853E-12 0.10000E+01 0.27509E+05 0.28318E-52 0.11368E-61 0.13345E-64 - 5 4 0.20853E-12 0.10000E+01 0.22184E+05 0.48576E-51 0.35895E-60 0.22891E-63 - 5 4 0.20853E-12 0.10000E+01 0.17891E+05 0.80049E-50 0.10625E-58 0.37723E-62 - 5 4 0.20853E-12 0.10000E+01 0.14428E+05 0.12438E-48 0.29709E-57 0.58615E-61 - 5 4 0.20853E-12 0.10000E+01 0.11635E+05 0.18342E-47 0.80593E-56 0.86434E-60 - 5 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26222E-46 0.21639E-54 0.12357E-58 - 5 4 0.20853E-12 0.10000E+01 0.75673E+04 0.37008E-45 0.57965E-53 0.17440E-57 - 5 4 0.20853E-12 0.10000E+01 0.61026E+04 0.52030E-44 0.15522E-51 0.24519E-56 - 5 4 0.20853E-12 0.10000E+01 0.49215E+04 0.73084E-43 0.41562E-50 0.34441E-55 - 5 4 0.20853E-12 0.10000E+01 0.39689E+04 0.10264E-41 0.11129E-48 0.48370E-54 - 5 4 0.20853E-12 0.10000E+01 0.32008E+04 0.45334E-39 0.96359E-46 0.21363E-51 - 5 4 0.20853E-12 0.10000E+01 0.25813E+04 0.33131E-30 0.16144E-36 0.15613E-42 - 5 4 0.20853E-12 0.10000E+01 0.20817E+04 0.62840E-14 0.13658E-19 0.29613E-26 + 5 4 0.20853E-12 0.10000E+01 0.80645E+05 0.17573E-15 0.36671E-25 0.82816E-28 + 5 4 0.20853E-12 0.10000E+01 0.65036E+05 0.51670E-15 0.19589E-24 0.24349E-27 + 5 4 0.20853E-12 0.10000E+01 0.52449E+05 0.14915E-14 0.10021E-23 0.70288E-27 + 5 4 0.20853E-12 0.10000E+01 0.42297E+05 0.41930E-14 0.49023E-23 0.19759E-26 + 5 4 0.20853E-12 0.10000E+01 0.34111E+05 0.11401E-13 0.23135E-22 0.53726E-26 + 5 4 0.20853E-12 0.10000E+01 0.27509E+05 0.29929E-13 0.10666E-21 0.14104E-25 + 5 4 0.20853E-12 0.10000E+01 0.22184E+05 0.76108E-13 0.48551E-21 0.35866E-25 + 5 4 0.20853E-12 0.10000E+01 0.17891E+05 0.18867E-12 0.21970E-20 0.88909E-25 + 5 4 0.20853E-12 0.10000E+01 0.14428E+05 0.45916E-12 0.99179E-20 0.21638E-24 + 5 4 0.20853E-12 0.10000E+01 0.11635E+05 0.11039E-11 0.44731E-19 0.52022E-24 + 5 4 0.20853E-12 0.10000E+01 0.93834E+04 0.26342E-11 0.20158E-18 0.12413E-23 + 5 4 0.20853E-12 0.10000E+01 0.75673E+04 0.62576E-11 0.90586E-18 0.29489E-23 + 5 4 0.20853E-12 0.10000E+01 0.61026E+04 0.14819E-10 0.40362E-17 0.69833E-23 + 5 4 0.20853E-12 0.10000E+01 0.49215E+04 0.34954E-10 0.17691E-16 0.16472E-22 + 5 4 0.20853E-12 0.10000E+01 0.39689E+04 0.81867E-10 0.75844E-16 0.38580E-22 + 5 4 0.20853E-12 0.10000E+01 0.32008E+04 0.18955E-09 0.31757E-15 0.89324E-22 + 5 4 0.20853E-12 0.10000E+01 0.25813E+04 0.43205E-09 0.12987E-14 0.20360E-21 + 5 4 0.20853E-12 0.10000E+01 0.20817E+04 0.96673E-09 0.51810E-14 0.45557E-21 5 4 0.20853E-12 0.10000E+01 0.16788E+04 0.21195E-08 0.20145E-13 0.99879E-21 5 4 0.20853E-12 0.10000E+01 0.13538E+04 0.45472E-08 0.76502E-13 0.21428E-20 5 4 0.20853E-12 0.10000E+01 0.10918E+04 0.95422E-08 0.28522E-12 0.44967E-20 @@ -29860,24 +29860,24 @@ VERSION 2.8.2 5 4 0.20853E-12 0.10000E+01 0.24221E+03 0.94710E-06 0.87375E-09 0.44632E-18 5 4 0.20853E-12 0.10000E+01 0.19533E+03 0.14926E-05 0.16604E-08 0.70339E-18 5 4 0.20853E-12 0.10000E+01 0.15752E+03 0.14926E-05 0.16604E-08 0.70339E-18 - 5 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28070E-58 0.47791E-69 0.13238E-70 - 5 4 0.36387E-12 0.10000E+01 0.65036E+05 0.50615E-57 0.14748E-67 0.23859E-69 - 5 4 0.36387E-12 0.10000E+01 0.52449E+05 0.84903E-56 0.49798E-66 0.40024E-68 - 5 4 0.36387E-12 0.10000E+01 0.42297E+05 0.14838E-54 0.16662E-64 0.69955E-67 - 5 4 0.36387E-12 0.10000E+01 0.34111E+05 0.26007E-53 0.55362E-63 0.12262E-65 - 5 4 0.36387E-12 0.10000E+01 0.27509E+05 0.45301E-52 0.18186E-61 0.21359E-64 - 5 4 0.36387E-12 0.10000E+01 0.22184E+05 0.77709E-51 0.57423E-60 0.36639E-63 - 5 4 0.36387E-12 0.10000E+01 0.17891E+05 0.12806E-49 0.16997E-58 0.60378E-62 - 5 4 0.36387E-12 0.10000E+01 0.14428E+05 0.19898E-48 0.47526E-57 0.93819E-61 - 5 4 0.36387E-12 0.10000E+01 0.11635E+05 0.29342E-47 0.12893E-55 0.13835E-59 - 5 4 0.36387E-12 0.10000E+01 0.93834E+04 0.41948E-46 0.34617E-54 0.19778E-58 - 5 4 0.36387E-12 0.10000E+01 0.75673E+04 0.59204E-45 0.92729E-53 0.27914E-57 - 5 4 0.36387E-12 0.10000E+01 0.61026E+04 0.83234E-44 0.24831E-51 0.39245E-56 - 5 4 0.36387E-12 0.10000E+01 0.49215E+04 0.11692E-42 0.66489E-50 0.55125E-55 - 5 4 0.36387E-12 0.10000E+01 0.39689E+04 0.16420E-41 0.17803E-48 0.77420E-54 - 5 4 0.36387E-12 0.10000E+01 0.32008E+04 0.72522E-39 0.15415E-45 0.34194E-51 - 5 4 0.36387E-12 0.10000E+01 0.25813E+04 0.53001E-30 0.25826E-36 0.24990E-42 - 5 4 0.36387E-12 0.10000E+01 0.20817E+04 0.10053E-13 0.21850E-19 0.47399E-26 + 5 4 0.36387E-12 0.10000E+01 0.80645E+05 0.28114E-15 0.58664E-25 0.13263E-27 + 5 4 0.36387E-12 0.10000E+01 0.65036E+05 0.82659E-15 0.31337E-24 0.38981E-27 + 5 4 0.36387E-12 0.10000E+01 0.52449E+05 0.23861E-14 0.16031E-23 0.11251E-26 + 5 4 0.36387E-12 0.10000E+01 0.42297E+05 0.67077E-14 0.78423E-23 0.31627E-26 + 5 4 0.36387E-12 0.10000E+01 0.34111E+05 0.18239E-13 0.37011E-22 0.85994E-26 + 5 4 0.36387E-12 0.10000E+01 0.27509E+05 0.47879E-13 0.17063E-21 0.22575E-25 + 5 4 0.36387E-12 0.10000E+01 0.22184E+05 0.12175E-12 0.77669E-21 0.57406E-25 + 5 4 0.36387E-12 0.10000E+01 0.17891E+05 0.30182E-12 0.35146E-20 0.14231E-24 + 5 4 0.36387E-12 0.10000E+01 0.14428E+05 0.73454E-12 0.15866E-19 0.34633E-24 + 5 4 0.36387E-12 0.10000E+01 0.11635E+05 0.17660E-11 0.71558E-19 0.83265E-24 + 5 4 0.36387E-12 0.10000E+01 0.93834E+04 0.42140E-11 0.32248E-18 0.19869E-23 + 5 4 0.36387E-12 0.10000E+01 0.75673E+04 0.10011E-10 0.14491E-17 0.47199E-23 + 5 4 0.36387E-12 0.10000E+01 0.61026E+04 0.23706E-10 0.64569E-17 0.11177E-22 + 5 4 0.36387E-12 0.10000E+01 0.49215E+04 0.55917E-10 0.28301E-16 0.26365E-22 + 5 4 0.36387E-12 0.10000E+01 0.39689E+04 0.13097E-09 0.12133E-15 0.61750E-22 + 5 4 0.36387E-12 0.10000E+01 0.32008E+04 0.30323E-09 0.50803E-15 0.14297E-21 + 5 4 0.36387E-12 0.10000E+01 0.25813E+04 0.69117E-09 0.20776E-14 0.32588E-21 + 5 4 0.36387E-12 0.10000E+01 0.20817E+04 0.15465E-08 0.82883E-14 0.72918E-21 5 4 0.36387E-12 0.10000E+01 0.16788E+04 0.33906E-08 0.32227E-13 0.15987E-20 5 4 0.36387E-12 0.10000E+01 0.13538E+04 0.72743E-08 0.12238E-12 0.34298E-20 5 4 0.36387E-12 0.10000E+01 0.10918E+04 0.15265E-07 0.45628E-12 0.71974E-20 @@ -29890,24 +29890,24 @@ VERSION 2.8.2 5 4 0.36387E-12 0.10000E+01 0.24221E+03 0.15151E-05 0.13978E-08 0.71437E-18 5 4 0.36387E-12 0.10000E+01 0.19533E+03 0.23878E-05 0.26562E-08 0.11258E-17 5 4 0.36387E-12 0.10000E+01 0.15752E+03 0.23878E-05 0.26562E-08 0.11258E-17 - 5 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33275E-58 0.56632E-69 0.15909E-70 - 5 4 0.63493E-12 0.10000E+01 0.65036E+05 0.59981E-57 0.17477E-67 0.28431E-69 - 5 4 0.63493E-12 0.10000E+01 0.52449E+05 0.10062E-55 0.59019E-66 0.47735E-68 - 5 4 0.63493E-12 0.10000E+01 0.42297E+05 0.17586E-54 0.19748E-64 0.83566E-67 - 5 4 0.63493E-12 0.10000E+01 0.34111E+05 0.30824E-53 0.65617E-63 0.14662E-65 - 5 4 0.63493E-12 0.10000E+01 0.27509E+05 0.53693E-52 0.21555E-61 0.25553E-64 - 5 4 0.63493E-12 0.10000E+01 0.22184E+05 0.92104E-51 0.68060E-60 0.43845E-63 - 5 4 0.63493E-12 0.10000E+01 0.17891E+05 0.15178E-49 0.20146E-58 0.72262E-62 - 5 4 0.63493E-12 0.10000E+01 0.14428E+05 0.23584E-48 0.56330E-57 0.11229E-60 - 5 4 0.63493E-12 0.10000E+01 0.11635E+05 0.34777E-47 0.15281E-55 0.16558E-59 - 5 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49719E-46 0.41030E-54 0.23672E-58 - 5 4 0.63493E-12 0.10000E+01 0.75673E+04 0.70171E-45 0.10991E-52 0.33410E-57 - 5 4 0.63493E-12 0.10000E+01 0.61026E+04 0.98653E-44 0.29431E-51 0.46971E-56 - 5 4 0.63493E-12 0.10000E+01 0.49215E+04 0.13857E-42 0.78806E-50 0.65979E-55 - 5 4 0.63493E-12 0.10000E+01 0.39689E+04 0.19462E-41 0.21101E-48 0.92664E-54 - 5 4 0.63493E-12 0.10000E+01 0.32008E+04 0.85957E-39 0.18271E-45 0.40928E-51 - 5 4 0.63493E-12 0.10000E+01 0.25813E+04 0.62819E-30 0.30610E-36 0.29911E-42 - 5 4 0.63493E-12 0.10000E+01 0.20817E+04 0.11915E-13 0.25898E-19 0.56734E-26 + 5 4 0.63493E-12 0.10000E+01 0.80645E+05 0.33334E-15 0.69531E-25 0.16030E-27 + 5 4 0.63493E-12 0.10000E+01 0.65036E+05 0.97984E-15 0.37142E-24 0.46815E-27 + 5 4 0.63493E-12 0.10000E+01 0.52449E+05 0.28282E-14 0.19001E-23 0.13480E-26 + 5 4 0.63493E-12 0.10000E+01 0.42297E+05 0.79504E-14 0.92951E-23 0.37864E-26 + 5 4 0.63493E-12 0.10000E+01 0.34111E+05 0.21617E-13 0.43867E-22 0.10293E-25 + 5 4 0.63493E-12 0.10000E+01 0.27509E+05 0.56749E-13 0.20224E-21 0.27019E-25 + 5 4 0.63493E-12 0.10000E+01 0.22184E+05 0.14431E-12 0.92057E-21 0.68706E-25 + 5 4 0.63493E-12 0.10000E+01 0.17891E+05 0.35773E-12 0.41657E-20 0.17032E-24 + 5 4 0.63493E-12 0.10000E+01 0.14428E+05 0.87061E-12 0.18805E-19 0.41451E-24 + 5 4 0.63493E-12 0.10000E+01 0.11635E+05 0.20931E-11 0.84814E-19 0.99658E-24 + 5 4 0.63493E-12 0.10000E+01 0.93834E+04 0.49946E-11 0.38222E-18 0.23781E-23 + 5 4 0.63493E-12 0.10000E+01 0.75673E+04 0.11865E-10 0.17176E-17 0.56493E-23 + 5 4 0.63493E-12 0.10000E+01 0.61026E+04 0.28098E-10 0.76531E-17 0.13378E-22 + 5 4 0.63493E-12 0.10000E+01 0.49215E+04 0.66276E-10 0.33544E-16 0.31557E-22 + 5 4 0.63493E-12 0.10000E+01 0.39689E+04 0.15523E-09 0.14381E-15 0.73911E-22 + 5 4 0.63493E-12 0.10000E+01 0.32008E+04 0.35940E-09 0.60215E-15 0.17113E-21 + 5 4 0.63493E-12 0.10000E+01 0.25813E+04 0.81921E-09 0.24625E-14 0.39007E-21 + 5 4 0.63493E-12 0.10000E+01 0.20817E+04 0.18330E-08 0.98237E-14 0.87280E-21 5 4 0.63493E-12 0.10000E+01 0.16788E+04 0.40187E-08 0.38197E-13 0.19135E-20 5 4 0.63493E-12 0.10000E+01 0.13538E+04 0.86219E-08 0.14505E-12 0.41054E-20 5 4 0.63493E-12 0.10000E+01 0.10918E+04 0.18093E-07 0.54080E-12 0.86151E-20 @@ -29920,24 +29920,24 @@ VERSION 2.8.2 5 4 0.63493E-12 0.10000E+01 0.24221E+03 0.17958E-05 0.16567E-08 0.85509E-18 5 4 0.63493E-12 0.10000E+01 0.19533E+03 0.28301E-05 0.31483E-08 0.13476E-17 5 4 0.63493E-12 0.10000E+01 0.15752E+03 0.28301E-05 0.31483E-08 0.13476E-17 - 5 4 0.11079E-11 0.10000E+01 0.80645E+05 0.30904E-58 0.52383E-69 0.17003E-70 - 5 4 0.11079E-11 0.10000E+01 0.65036E+05 0.55514E-57 0.16181E-67 0.27933E-69 - 5 4 0.11079E-11 0.10000E+01 0.52449E+05 0.93157E-56 0.54681E-66 0.47307E-68 - 5 4 0.11079E-11 0.10000E+01 0.42297E+05 0.16293E-54 0.18304E-64 0.84161E-67 - 5 4 0.11079E-11 0.10000E+01 0.34111E+05 0.28569E-53 0.60830E-63 0.14911E-65 - 5 4 0.11079E-11 0.10000E+01 0.27509E+05 0.49775E-52 0.19985E-61 0.26124E-64 - 5 4 0.11079E-11 0.10000E+01 0.22184E+05 0.85393E-51 0.63104E-60 0.44941E-63 - 5 4 0.11079E-11 0.10000E+01 0.17891E+05 0.14073E-49 0.18679E-58 0.74151E-62 - 5 4 0.11079E-11 0.10000E+01 0.14428E+05 0.21867E-48 0.52229E-57 0.11527E-60 - 5 4 0.11079E-11 0.10000E+01 0.11635E+05 0.32245E-47 0.14169E-55 0.16998E-59 - 5 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46099E-46 0.38043E-54 0.24300E-58 - 5 4 0.11079E-11 0.10000E+01 0.75673E+04 0.65062E-45 0.10191E-52 0.34297E-57 - 5 4 0.11079E-11 0.10000E+01 0.61026E+04 0.91471E-44 0.27288E-51 0.48222E-56 - 5 4 0.11079E-11 0.10000E+01 0.49215E+04 0.12849E-42 0.73069E-50 0.67744E-55 - 5 4 0.11079E-11 0.10000E+01 0.39689E+04 0.18045E-41 0.19565E-48 0.95157E-54 - 5 4 0.11079E-11 0.10000E+01 0.32008E+04 0.79701E-39 0.16941E-45 0.42034E-51 - 5 4 0.11079E-11 0.10000E+01 0.25813E+04 0.58247E-30 0.28382E-36 0.30725E-42 - 5 4 0.11079E-11 0.10000E+01 0.20817E+04 0.11048E-13 0.24013E-19 0.58287E-26 + 5 4 0.11079E-11 0.10000E+01 0.80645E+05 0.31033E-15 0.64459E-25 0.18055E-27 + 5 4 0.11079E-11 0.10000E+01 0.65036E+05 0.90979E-15 0.34435E-24 0.49695E-27 + 5 4 0.11079E-11 0.10000E+01 0.52449E+05 0.26235E-14 0.17617E-23 0.13989E-26 + 5 4 0.11079E-11 0.10000E+01 0.42297E+05 0.73725E-14 0.86183E-23 0.38987E-26 + 5 4 0.11079E-11 0.10000E+01 0.34111E+05 0.20044E-13 0.40673E-22 0.10573E-25 + 5 4 0.11079E-11 0.10000E+01 0.27509E+05 0.52617E-13 0.18751E-21 0.27736E-25 + 5 4 0.11079E-11 0.10000E+01 0.22184E+05 0.13380E-12 0.85355E-21 0.70522E-25 + 5 4 0.11079E-11 0.10000E+01 0.17891E+05 0.33169E-12 0.38624E-20 0.17483E-24 + 5 4 0.11079E-11 0.10000E+01 0.14428E+05 0.80723E-12 0.17436E-19 0.42551E-24 + 5 4 0.11079E-11 0.10000E+01 0.11635E+05 0.19407E-11 0.78641E-19 0.10231E-23 + 5 4 0.11079E-11 0.10000E+01 0.93834E+04 0.46310E-11 0.35440E-18 0.24416E-23 + 5 4 0.11079E-11 0.10000E+01 0.75673E+04 0.11001E-10 0.15926E-17 0.58009E-23 + 5 4 0.11079E-11 0.10000E+01 0.61026E+04 0.26052E-10 0.70961E-17 0.13739E-22 + 5 4 0.11079E-11 0.10000E+01 0.49215E+04 0.61452E-10 0.31103E-16 0.32411E-22 + 5 4 0.11079E-11 0.10000E+01 0.39689E+04 0.14393E-09 0.13334E-15 0.75921E-22 + 5 4 0.11079E-11 0.10000E+01 0.32008E+04 0.33325E-09 0.55833E-15 0.17580E-21 + 5 4 0.11079E-11 0.10000E+01 0.25813E+04 0.75959E-09 0.22833E-14 0.40075E-21 + 5 4 0.11079E-11 0.10000E+01 0.20817E+04 0.16996E-08 0.91089E-14 0.89675E-21 5 4 0.11079E-11 0.10000E+01 0.16788E+04 0.37263E-08 0.35417E-13 0.19661E-20 5 4 0.11079E-11 0.10000E+01 0.13538E+04 0.79945E-08 0.13450E-12 0.42184E-20 5 4 0.11079E-11 0.10000E+01 0.10918E+04 0.16776E-07 0.50145E-12 0.88525E-20 @@ -29950,24 +29950,24 @@ VERSION 2.8.2 5 4 0.11079E-11 0.10000E+01 0.24221E+03 0.16651E-05 0.15362E-08 0.87870E-18 5 4 0.11079E-11 0.10000E+01 0.19533E+03 0.26242E-05 0.29192E-08 0.13848E-17 5 4 0.11079E-11 0.10000E+01 0.15752E+03 0.26242E-05 0.29192E-08 0.13848E-17 - 5 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24191E-58 0.39834E-69 0.25960E-70 - 5 4 0.19333E-11 0.10000E+01 0.65036E+05 0.42393E-57 0.12381E-67 0.30597E-69 - 5 4 0.19333E-11 0.10000E+01 0.52449E+05 0.71310E-56 0.42061E-66 0.53440E-68 - 5 4 0.19333E-11 0.10000E+01 0.42297E+05 0.12529E-54 0.14118E-64 0.10145E-66 - 5 4 0.19333E-11 0.10000E+01 0.34111E+05 0.22031E-53 0.46986E-63 0.18676E-65 - 5 4 0.19333E-11 0.10000E+01 0.27509E+05 0.38443E-52 0.15448E-61 0.33396E-64 - 5 4 0.19333E-11 0.10000E+01 0.22184E+05 0.66002E-51 0.48793E-60 0.58035E-63 - 5 4 0.19333E-11 0.10000E+01 0.17891E+05 0.10881E-49 0.14444E-58 0.96172E-62 - 5 4 0.19333E-11 0.10000E+01 0.14428E+05 0.16909E-48 0.40387E-57 0.14970E-60 - 5 4 0.19333E-11 0.10000E+01 0.11635E+05 0.24934E-47 0.10956E-55 0.22079E-59 - 5 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35646E-46 0.29417E-54 0.31561E-58 - 5 4 0.19333E-11 0.10000E+01 0.75673E+04 0.50310E-45 0.78802E-53 0.44549E-57 - 5 4 0.19333E-11 0.10000E+01 0.61026E+04 0.70733E-44 0.21102E-51 0.62656E-56 - 5 4 0.19333E-11 0.10000E+01 0.49215E+04 0.99360E-43 0.56508E-50 0.88063E-55 - 5 4 0.19333E-11 0.10000E+01 0.39689E+04 0.13955E-41 0.15131E-48 0.12376E-53 - 5 4 0.19333E-11 0.10000E+01 0.32008E+04 0.61638E-39 0.13102E-45 0.54701E-51 - 5 4 0.19333E-11 0.10000E+01 0.25813E+04 0.45049E-30 0.21952E-36 0.40005E-42 - 5 4 0.19333E-11 0.10000E+01 0.20817E+04 0.85450E-14 0.18574E-19 0.75943E-26 + 5 4 0.19333E-11 0.10000E+01 0.80645E+05 0.24687E-15 0.49791E-25 0.31660E-27 + 5 4 0.19333E-11 0.10000E+01 0.65036E+05 0.71058E-15 0.26615E-24 0.73019E-27 + 5 4 0.19333E-11 0.10000E+01 0.52449E+05 0.20351E-14 0.13620E-23 0.18958E-26 + 5 4 0.19333E-11 0.10000E+01 0.42297E+05 0.57060E-14 0.66638E-23 0.51274E-26 + 5 4 0.19333E-11 0.10000E+01 0.34111E+05 0.15502E-13 0.31450E-22 0.13772E-25 + 5 4 0.19333E-11 0.10000E+01 0.27509E+05 0.40687E-13 0.14500E-21 0.36032E-25 + 5 4 0.19333E-11 0.10000E+01 0.22184E+05 0.10346E-12 0.66003E-21 0.91571E-25 + 5 4 0.19333E-11 0.10000E+01 0.17891E+05 0.25647E-12 0.29868E-20 0.22703E-24 + 5 4 0.19333E-11 0.10000E+01 0.14428E+05 0.62420E-12 0.13484E-19 0.55270E-24 + 5 4 0.19333E-11 0.10000E+01 0.11635E+05 0.15007E-11 0.60817E-19 0.13294E-23 + 5 4 0.19333E-11 0.10000E+01 0.93834E+04 0.35812E-11 0.27409E-18 0.31737E-23 + 5 4 0.19333E-11 0.10000E+01 0.75673E+04 0.85076E-11 0.12317E-17 0.75434E-23 + 5 4 0.19333E-11 0.10000E+01 0.61026E+04 0.20148E-10 0.54883E-17 0.17874E-22 + 5 4 0.19333E-11 0.10000E+01 0.49215E+04 0.47526E-10 0.24056E-16 0.42184E-22 + 5 4 0.19333E-11 0.10000E+01 0.39689E+04 0.11132E-09 0.10314E-15 0.98854E-22 + 5 4 0.19333E-11 0.10000E+01 0.32008E+04 0.25774E-09 0.43186E-15 0.22898E-21 + 5 4 0.19333E-11 0.10000E+01 0.25813E+04 0.58750E-09 0.17661E-14 0.52213E-21 + 5 4 0.19333E-11 0.10000E+01 0.20817E+04 0.13146E-08 0.70456E-14 0.11687E-20 5 4 0.19333E-11 0.10000E+01 0.16788E+04 0.28822E-08 0.27395E-13 0.25628E-20 5 4 0.19333E-11 0.10000E+01 0.13538E+04 0.61836E-08 0.10403E-12 0.54993E-20 5 4 0.19333E-11 0.10000E+01 0.10918E+04 0.12976E-07 0.38787E-12 0.11542E-19 @@ -29980,24 +29980,24 @@ VERSION 2.8.2 5 4 0.19333E-11 0.10000E+01 0.24221E+03 0.12880E-05 0.11882E-08 0.11459E-17 5 4 0.19333E-11 0.10000E+01 0.19533E+03 0.20298E-05 0.22580E-08 0.18059E-17 5 4 0.19333E-11 0.10000E+01 0.15752E+03 0.20298E-05 0.22580E-08 0.18059E-17 - 5 4 0.33734E-11 0.10000E+01 0.80645E+05 0.18741E-58 0.27125E-69 0.69297E-70 - 5 4 0.33734E-11 0.10000E+01 0.65036E+05 0.29435E-57 0.86520E-68 0.58677E-69 - 5 4 0.33734E-11 0.10000E+01 0.52449E+05 0.49917E-56 0.30033E-66 0.97590E-68 - 5 4 0.33734E-11 0.10000E+01 0.42297E+05 0.89369E-55 0.10197E-64 0.19081E-66 - 5 4 0.33734E-11 0.10000E+01 0.34111E+05 0.15902E-53 0.34153E-63 0.36172E-65 - 5 4 0.33734E-11 0.10000E+01 0.27509E+05 0.27930E-52 0.11264E-61 0.65986E-64 - 5 4 0.33734E-11 0.10000E+01 0.22184E+05 0.48111E-51 0.35624E-60 0.11592E-62 - 5 4 0.33734E-11 0.10000E+01 0.17891E+05 0.79425E-50 0.10550E-58 0.19302E-61 - 5 4 0.33734E-11 0.10000E+01 0.14428E+05 0.12349E-48 0.29497E-57 0.30095E-60 - 5 4 0.33734E-11 0.10000E+01 0.11635E+05 0.18210E-47 0.80012E-56 0.44397E-59 - 5 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26033E-46 0.21484E-54 0.63459E-58 - 5 4 0.33734E-11 0.10000E+01 0.75673E+04 0.36743E-45 0.57557E-53 0.89580E-57 - 5 4 0.33734E-11 0.10000E+01 0.61026E+04 0.51664E-44 0.15416E-51 0.12603E-55 - 5 4 0.33734E-11 0.10000E+01 0.49215E+04 0.72584E-43 0.41287E-50 0.17722E-54 - 5 4 0.33734E-11 0.10000E+01 0.39689E+04 0.10196E-41 0.11058E-48 0.24919E-53 - 5 4 0.33734E-11 0.10000E+01 0.32008E+04 0.45044E-39 0.95765E-46 0.11020E-50 - 5 4 0.33734E-11 0.10000E+01 0.25813E+04 0.32927E-30 0.16048E-36 0.80639E-42 - 5 4 0.33734E-11 0.10000E+01 0.20817E+04 0.62470E-14 0.13581E-19 0.15318E-25 + 5 4 0.33734E-11 0.10000E+01 0.80645E+05 0.20272E-15 0.36201E-25 0.85301E-27 + 5 4 0.33734E-11 0.10000E+01 0.65036E+05 0.54212E-15 0.19399E-24 0.17021E-26 + 5 4 0.33734E-11 0.10000E+01 0.52449E+05 0.15079E-14 0.99394E-24 0.40458E-26 + 5 4 0.33734E-11 0.10000E+01 0.42297E+05 0.41846E-14 0.48655E-23 0.10523E-25 + 5 4 0.33734E-11 0.10000E+01 0.34111E+05 0.11332E-13 0.22967E-22 0.27861E-25 + 5 4 0.33734E-11 0.10000E+01 0.27509E+05 0.29717E-13 0.10589E-21 0.72560E-25 + 5 4 0.33734E-11 0.10000E+01 0.22184E+05 0.75551E-13 0.48207E-21 0.18416E-24 + 5 4 0.33734E-11 0.10000E+01 0.17891E+05 0.18730E-12 0.21817E-20 0.45648E-24 + 5 4 0.33734E-11 0.10000E+01 0.14428E+05 0.45587E-12 0.98508E-20 0.11114E-23 + 5 4 0.33734E-11 0.10000E+01 0.11635E+05 0.10961E-11 0.44438E-19 0.26740E-23 + 5 4 0.33734E-11 0.10000E+01 0.93834E+04 0.26160E-11 0.20030E-18 0.63861E-23 + 5 4 0.33734E-11 0.10000E+01 0.75673E+04 0.62157E-11 0.90029E-18 0.15185E-22 + 5 4 0.33734E-11 0.10000E+01 0.61026E+04 0.14722E-10 0.40120E-17 0.35998E-22 + 5 4 0.33734E-11 0.10000E+01 0.49215E+04 0.34733E-10 0.17587E-16 0.84997E-22 + 5 4 0.33734E-11 0.10000E+01 0.39689E+04 0.81363E-10 0.75408E-16 0.19926E-21 + 5 4 0.33734E-11 0.10000E+01 0.32008E+04 0.18841E-09 0.31577E-15 0.46173E-21 + 5 4 0.33734E-11 0.10000E+01 0.25813E+04 0.42951E-09 0.12914E-14 0.10532E-20 + 5 4 0.33734E-11 0.10000E+01 0.20817E+04 0.96113E-09 0.51521E-14 0.23578E-20 5 4 0.33734E-11 0.10000E+01 0.16788E+04 0.21074E-08 0.20033E-13 0.51715E-20 5 4 0.33734E-11 0.10000E+01 0.13538E+04 0.45215E-08 0.76078E-13 0.11099E-19 5 4 0.33734E-11 0.10000E+01 0.10918E+04 0.94886E-08 0.28364E-12 0.23296E-19 @@ -30010,24 +30010,24 @@ VERSION 2.8.2 5 4 0.33734E-11 0.10000E+01 0.24221E+03 0.94187E-06 0.86894E-09 0.23134E-17 5 4 0.33734E-11 0.10000E+01 0.19533E+03 0.14844E-05 0.16513E-08 0.36459E-17 5 4 0.33734E-11 0.10000E+01 0.15752E+03 0.14844E-05 0.16513E-08 0.36459E-17 - 5 4 0.58864E-11 0.10000E+01 0.80645E+05 0.18689E-58 0.19563E-69 0.24275E-69 - 5 4 0.58864E-11 0.10000E+01 0.65036E+05 0.22384E-57 0.64768E-68 0.18937E-68 - 5 4 0.58864E-11 0.10000E+01 0.52449E+05 0.37599E-56 0.23344E-66 0.24352E-67 - 5 4 0.58864E-11 0.10000E+01 0.42297E+05 0.69427E-55 0.81214E-65 0.40614E-66 - 5 4 0.58864E-11 0.10000E+01 0.34111E+05 0.12653E-53 0.27613E-63 0.74282E-65 - 5 4 0.58864E-11 0.10000E+01 0.27509E+05 0.22560E-52 0.91771E-62 0.13616E-63 - 5 4 0.58864E-11 0.10000E+01 0.22184E+05 0.39170E-51 0.29119E-60 0.24117E-62 - 5 4 0.58864E-11 0.10000E+01 0.17891E+05 0.64894E-50 0.86313E-59 0.40344E-61 - 5 4 0.58864E-11 0.10000E+01 0.14428E+05 0.10101E-48 0.24133E-57 0.63016E-60 - 5 4 0.58864E-11 0.10000E+01 0.11635E+05 0.14898E-47 0.65454E-56 0.93008E-59 - 5 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21297E-46 0.17576E-54 0.13295E-57 - 5 4 0.58864E-11 0.10000E+01 0.75673E+04 0.30061E-45 0.47100E-53 0.18769E-56 - 5 4 0.58864E-11 0.10000E+01 0.61026E+04 0.42278E-44 0.12620E-51 0.26413E-55 - 5 4 0.58864E-11 0.10000E+01 0.49215E+04 0.59418E-43 0.33813E-50 0.37151E-54 - 5 4 0.58864E-11 0.10000E+01 0.39689E+04 0.83502E-42 0.90597E-49 0.52258E-53 - 5 4 0.58864E-11 0.10000E+01 0.32008E+04 0.36904E-39 0.78492E-46 0.23118E-50 - 5 4 0.58864E-11 0.10000E+01 0.25813E+04 0.26988E-30 0.13159E-36 0.16923E-41 - 5 4 0.58864E-11 0.10000E+01 0.20817E+04 0.51229E-14 0.11142E-19 0.32160E-25 + 5 4 0.58864E-11 0.10000E+01 0.80645E+05 0.21581E-15 0.29315E-25 0.24833E-26 + 5 4 0.58864E-11 0.10000E+01 0.65036E+05 0.49660E-15 0.15795E-24 0.43860E-26 + 5 4 0.58864E-11 0.10000E+01 0.52449E+05 0.12854E-14 0.81161E-24 0.93951E-26 + 5 4 0.58864E-11 0.10000E+01 0.42297E+05 0.34686E-14 0.39778E-23 0.23024E-25 + 5 4 0.58864E-11 0.10000E+01 0.34111E+05 0.93044E-14 0.18785E-22 0.59360E-25 + 5 4 0.58864E-11 0.10000E+01 0.27509E+05 0.24328E-13 0.86629E-22 0.15297E-24 + 5 4 0.58864E-11 0.10000E+01 0.22184E+05 0.61807E-13 0.39445E-21 0.38671E-24 + 5 4 0.58864E-11 0.10000E+01 0.17891E+05 0.15321E-12 0.17857E-20 0.95717E-24 + 5 4 0.58864E-11 0.10000E+01 0.14428E+05 0.37296E-12 0.80652E-20 0.23296E-23 + 5 4 0.58864E-11 0.10000E+01 0.11635E+05 0.89700E-12 0.36397E-19 0.56046E-23 + 5 4 0.58864E-11 0.10000E+01 0.93834E+04 0.21414E-11 0.16412E-18 0.13387E-22 + 5 4 0.58864E-11 0.10000E+01 0.75673E+04 0.50895E-11 0.73792E-18 0.31842E-22 + 5 4 0.58864E-11 0.10000E+01 0.61026E+04 0.12059E-10 0.32895E-17 0.75504E-22 + 5 4 0.58864E-11 0.10000E+01 0.49215E+04 0.28459E-10 0.14424E-16 0.17833E-21 + 5 4 0.58864E-11 0.10000E+01 0.39689E+04 0.66688E-10 0.61854E-16 0.41817E-21 + 5 4 0.58864E-11 0.10000E+01 0.32008E+04 0.15447E-09 0.25905E-15 0.96920E-21 + 5 4 0.58864E-11 0.10000E+01 0.25813E+04 0.35222E-09 0.10596E-14 0.22111E-20 + 5 4 0.58864E-11 0.10000E+01 0.20817E+04 0.78833E-09 0.42275E-14 0.49509E-20 5 4 0.58864E-11 0.10000E+01 0.16788E+04 0.17287E-08 0.16439E-13 0.10860E-19 5 4 0.58864E-11 0.10000E+01 0.13538E+04 0.37095E-08 0.62430E-13 0.23310E-19 5 4 0.58864E-11 0.10000E+01 0.10918E+04 0.77853E-08 0.23276E-12 0.48931E-19 @@ -30040,24 +30040,24 @@ VERSION 2.8.2 5 4 0.58864E-11 0.10000E+01 0.24221E+03 0.77292E-06 0.71307E-09 0.48597E-17 5 4 0.58864E-11 0.10000E+01 0.19533E+03 0.12181E-05 0.13551E-08 0.76589E-17 5 4 0.58864E-11 0.10000E+01 0.15752E+03 0.12181E-05 0.13551E-08 0.76589E-17 - 5 4 0.10271E-10 0.10000E+01 0.80645E+05 0.28414E-58 0.21332E-69 0.93850E-69 - 5 4 0.10271E-10 0.10000E+01 0.65036E+05 0.25635E-57 0.63461E-68 0.74083E-68 - 5 4 0.10271E-10 0.10000E+01 0.52449E+05 0.37373E-56 0.21989E-66 0.72098E-67 - 5 4 0.10271E-10 0.10000E+01 0.42297E+05 0.65994E-55 0.77353E-65 0.85779E-66 - 5 4 0.10271E-10 0.10000E+01 0.34111E+05 0.12083E-53 0.26771E-63 0.13594E-64 - 5 4 0.10271E-10 0.10000E+01 0.27509E+05 0.21863E-52 0.89939E-62 0.24498E-63 - 5 4 0.10271E-10 0.10000E+01 0.22184E+05 0.38356E-51 0.28676E-60 0.43829E-62 - 5 4 0.10271E-10 0.10000E+01 0.17891E+05 0.63867E-50 0.85127E-59 0.73923E-61 - 5 4 0.10271E-10 0.10000E+01 0.14428E+05 0.99592E-49 0.23804E-57 0.11590E-59 - 5 4 0.10271E-10 0.10000E+01 0.11635E+05 0.14694E-47 0.64554E-56 0.17127E-58 - 5 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21005E-46 0.17336E-54 0.24491E-57 - 5 4 0.10271E-10 0.10000E+01 0.75673E+04 0.29651E-45 0.46472E-53 0.34583E-56 - 5 4 0.10271E-10 0.10000E+01 0.61026E+04 0.41714E-44 0.12457E-51 0.48682E-55 - 5 4 0.10271E-10 0.10000E+01 0.49215E+04 0.58652E-43 0.33394E-50 0.68507E-54 - 5 4 0.10271E-10 0.10000E+01 0.39689E+04 0.82466E-42 0.89520E-49 0.96412E-53 - 5 4 0.10271E-10 0.10000E+01 0.32008E+04 0.36465E-39 0.77597E-46 0.42672E-50 - 5 4 0.10271E-10 0.10000E+01 0.25813E+04 0.26681E-30 0.13016E-36 0.31254E-41 - 5 4 0.10271E-10 0.10000E+01 0.20817E+04 0.50677E-14 0.11028E-19 0.59431E-25 + 5 4 0.10271E-10 0.10000E+01 0.80645E+05 0.30531E-15 0.28608E-25 0.77544E-26 + 5 4 0.10271E-10 0.10000E+01 0.65036E+05 0.59407E-15 0.15488E-24 0.11931E-25 + 5 4 0.10271E-10 0.10000E+01 0.52449E+05 0.13784E-14 0.79843E-24 0.21773E-25 + 5 4 0.10271E-10 0.10000E+01 0.42297E+05 0.35310E-14 0.39194E-23 0.47370E-25 + 5 4 0.10271E-10 0.10000E+01 0.34111E+05 0.92782E-14 0.18522E-22 0.11462E-24 + 5 4 0.10271E-10 0.10000E+01 0.27509E+05 0.24081E-13 0.85440E-22 0.28716E-24 + 5 4 0.10271E-10 0.10000E+01 0.22184E+05 0.61025E-13 0.38913E-21 0.71767E-24 + 5 4 0.10271E-10 0.10000E+01 0.17891E+05 0.15116E-12 0.17622E-20 0.17685E-23 + 5 4 0.10271E-10 0.10000E+01 0.14428E+05 0.36795E-12 0.79627E-20 0.42974E-23 + 5 4 0.10271E-10 0.10000E+01 0.11635E+05 0.88510E-12 0.35951E-19 0.10335E-22 + 5 4 0.10271E-10 0.10000E+01 0.93834E+04 0.21136E-11 0.16218E-18 0.24688E-22 + 5 4 0.10271E-10 0.10000E+01 0.75673E+04 0.50255E-11 0.72953E-18 0.58737E-22 + 5 4 0.10271E-10 0.10000E+01 0.61026E+04 0.11912E-10 0.32533E-17 0.13933E-21 + 5 4 0.10271E-10 0.10000E+01 0.49215E+04 0.28125E-10 0.14269E-16 0.32921E-21 + 5 4 0.10271E-10 0.10000E+01 0.39689E+04 0.65929E-10 0.61206E-16 0.77229E-21 + 5 4 0.10271E-10 0.10000E+01 0.32008E+04 0.15276E-09 0.25638E-15 0.17906E-20 + 5 4 0.10271E-10 0.10000E+01 0.25813E+04 0.34842E-09 0.10488E-14 0.40860E-20 + 5 4 0.10271E-10 0.10000E+01 0.20817E+04 0.78001E-09 0.41849E-14 0.91511E-20 5 4 0.10271E-10 0.10000E+01 0.16788E+04 0.17108E-08 0.16274E-13 0.20078E-19 5 4 0.10271E-10 0.10000E+01 0.13538E+04 0.36715E-08 0.61808E-13 0.43099E-19 5 4 0.10271E-10 0.10000E+01 0.10918E+04 0.77063E-08 0.23045E-12 0.90481E-19 @@ -30070,24 +30070,24 @@ VERSION 2.8.2 5 4 0.10271E-10 0.10000E+01 0.24221E+03 0.76523E-06 0.70598E-09 0.89881E-17 5 4 0.10271E-10 0.10000E+01 0.19533E+03 0.12060E-05 0.13416E-08 0.14165E-16 5 4 0.10271E-10 0.10000E+01 0.15752E+03 0.12060E-05 0.13416E-08 0.14165E-16 - 5 4 0.17923E-10 0.10000E+01 0.80645E+05 0.56648E-58 0.38644E-69 0.35470E-68 - 5 4 0.17923E-10 0.10000E+01 0.65036E+05 0.45945E-57 0.85717E-68 0.28594E-67 - 5 4 0.17923E-10 0.10000E+01 0.52449E+05 0.51457E-56 0.23653E-66 0.24292E-66 - 5 4 0.17923E-10 0.10000E+01 0.42297E+05 0.73222E-55 0.79180E-65 0.21017E-65 - 5 4 0.17923E-10 0.10000E+01 0.34111E+05 0.12524E-53 0.27667E-63 0.25066E-64 - 5 4 0.17923E-10 0.10000E+01 0.27509E+05 0.22643E-52 0.94110E-62 0.41282E-63 - 5 4 0.17923E-10 0.10000E+01 0.22184E+05 0.40115E-51 0.30205E-60 0.73771E-62 - 5 4 0.17923E-10 0.10000E+01 0.17891E+05 0.67224E-50 0.89880E-59 0.12585E-60 - 5 4 0.17923E-10 0.10000E+01 0.14428E+05 0.10511E-48 0.25146E-57 0.19866E-59 - 5 4 0.17923E-10 0.10000E+01 0.11635E+05 0.15520E-47 0.68193E-56 0.29437E-58 - 5 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22189E-46 0.18315E-54 0.42131E-57 - 5 4 0.17923E-10 0.10000E+01 0.75673E+04 0.31327E-45 0.49114E-53 0.59524E-56 - 5 4 0.17923E-10 0.10000E+01 0.61026E+04 0.44086E-44 0.13171E-51 0.83845E-55 - 5 4 0.17923E-10 0.10000E+01 0.49215E+04 0.62014E-43 0.35327E-50 0.11808E-53 - 5 4 0.17923E-10 0.10000E+01 0.39689E+04 0.87236E-42 0.94748E-49 0.16632E-52 - 5 4 0.17923E-10 0.10000E+01 0.32008E+04 0.38594E-39 0.82169E-46 0.73679E-50 - 5 4 0.17923E-10 0.10000E+01 0.25813E+04 0.28253E-30 0.13790E-36 0.54013E-41 - 5 4 0.17923E-10 0.10000E+01 0.20817E+04 0.53697E-14 0.11691E-19 0.10282E-24 + 5 4 0.17923E-10 0.10000E+01 0.80645E+05 0.51022E-15 0.30117E-25 0.25912E-25 + 5 4 0.17923E-10 0.10000E+01 0.65036E+05 0.85083E-15 0.16278E-24 0.35987E-25 + 5 4 0.17923E-10 0.10000E+01 0.52449E+05 0.17097E-14 0.84087E-24 0.55766E-25 + 5 4 0.17923E-10 0.10000E+01 0.42297E+05 0.40049E-14 0.41346E-23 0.10236E-24 + 5 4 0.17923E-10 0.10000E+01 0.34111E+05 0.10085E-13 0.19556E-22 0.22007E-24 + 5 4 0.17923E-10 0.10000E+01 0.27509E+05 0.25719E-13 0.90250E-22 0.51825E-24 + 5 4 0.17923E-10 0.10000E+01 0.22184E+05 0.64734E-13 0.41118E-21 0.12596E-23 + 5 4 0.17923E-10 0.10000E+01 0.17891E+05 0.15994E-12 0.18628E-20 0.30681E-23 + 5 4 0.17923E-10 0.10000E+01 0.14428E+05 0.38901E-12 0.84207E-20 0.74218E-23 + 5 4 0.17923E-10 0.10000E+01 0.11635E+05 0.93566E-12 0.38036E-19 0.17822E-22 + 5 4 0.17923E-10 0.10000E+01 0.93834E+04 0.22348E-11 0.17167E-18 0.42568E-22 + 5 4 0.17923E-10 0.10000E+01 0.75673E+04 0.53154E-11 0.77253E-18 0.10132E-21 + 5 4 0.17923E-10 0.10000E+01 0.61026E+04 0.12605E-10 0.34463E-17 0.24048E-21 + 5 4 0.17923E-10 0.10000E+01 0.49215E+04 0.29771E-10 0.15120E-16 0.56859E-21 + 5 4 0.17923E-10 0.10000E+01 0.39689E+04 0.69815E-10 0.64872E-16 0.13347E-20 + 5 4 0.17923E-10 0.10000E+01 0.32008E+04 0.16182E-09 0.27179E-15 0.30962E-20 + 5 4 0.17923E-10 0.10000E+01 0.25813E+04 0.36918E-09 0.11120E-14 0.70689E-20 + 5 4 0.17923E-10 0.10000E+01 0.20817E+04 0.82665E-09 0.44374E-14 0.15838E-19 5 4 0.17923E-10 0.10000E+01 0.16788E+04 0.18134E-08 0.17257E-13 0.34758E-19 5 4 0.17923E-10 0.10000E+01 0.13538E+04 0.38923E-08 0.65542E-13 0.74631E-19 5 4 0.17923E-10 0.10000E+01 0.10918E+04 0.81705E-08 0.24438E-12 0.15670E-18 @@ -30100,24 +30100,24 @@ VERSION 2.8.2 5 4 0.17923E-10 0.10000E+01 0.24221E+03 0.81149E-06 0.74866E-09 0.15572E-16 5 4 0.17923E-10 0.10000E+01 0.19533E+03 0.12789E-05 0.14227E-08 0.24542E-16 5 4 0.17923E-10 0.10000E+01 0.15752E+03 0.12789E-05 0.14227E-08 0.24542E-16 - 5 4 0.31275E-10 0.10000E+01 0.80645E+05 0.12063E-57 0.83710E-69 0.12812E-67 - 5 4 0.31275E-10 0.10000E+01 0.65036E+05 0.97103E-57 0.14703E-67 0.10514E-66 - 5 4 0.31275E-10 0.10000E+01 0.52449E+05 0.89402E-56 0.28699E-66 0.86582E-66 - 5 4 0.31275E-10 0.10000E+01 0.42297E+05 0.93483E-55 0.81520E-65 0.64482E-65 - 5 4 0.31275E-10 0.10000E+01 0.34111E+05 0.13282E-53 0.27885E-63 0.56396E-64 - 5 4 0.31275E-10 0.10000E+01 0.27509E+05 0.23010E-52 0.95921E-62 0.73562E-63 - 5 4 0.31275E-10 0.10000E+01 0.22184E+05 0.40922E-51 0.31085E-60 0.12367E-61 - 5 4 0.31275E-10 0.10000E+01 0.17891E+05 0.69132E-50 0.92896E-59 0.21138E-60 - 5 4 0.31275E-10 0.10000E+01 0.14428E+05 0.10857E-48 0.26021E-57 0.33653E-59 - 5 4 0.31275E-10 0.10000E+01 0.11635E+05 0.16056E-47 0.70587E-56 0.50097E-58 - 5 4 0.31275E-10 0.10000E+01 0.93834E+04 0.22966E-46 0.18963E-54 0.71842E-57 - 5 4 0.31275E-10 0.10000E+01 0.75673E+04 0.32436E-45 0.50874E-53 0.10162E-55 - 5 4 0.31275E-10 0.10000E+01 0.61026E+04 0.45666E-44 0.13651E-51 0.14329E-54 - 5 4 0.31275E-10 0.10000E+01 0.49215E+04 0.64273E-43 0.36638E-50 0.20205E-53 - 5 4 0.31275E-10 0.10000E+01 0.39689E+04 0.90470E-42 0.98325E-49 0.28495E-52 - 5 4 0.31275E-10 0.10000E+01 0.32008E+04 0.40049E-39 0.85323E-46 0.12639E-49 - 5 4 0.31275E-10 0.10000E+01 0.25813E+04 0.29338E-30 0.14329E-36 0.92776E-41 - 5 4 0.31275E-10 0.10000E+01 0.20817E+04 0.55801E-14 0.12157E-19 0.17688E-24 + 5 4 0.31275E-10 0.10000E+01 0.80645E+05 0.93735E-15 0.31648E-25 0.88902E-25 + 5 4 0.31275E-10 0.10000E+01 0.65036E+05 0.13806E-14 0.16814E-24 0.11720E-24 + 5 4 0.31275E-10 0.10000E+01 0.52449E+05 0.23568E-14 0.86738E-24 0.16262E-24 + 5 4 0.31275E-10 0.10000E+01 0.42297E+05 0.48080E-14 0.42709E-23 0.25360E-24 + 5 4 0.31275E-10 0.10000E+01 0.34111E+05 0.11158E-13 0.20224E-22 0.46486E-24 + 5 4 0.31275E-10 0.10000E+01 0.27509E+05 0.27374E-13 0.93404E-22 0.98217E-24 + 5 4 0.31275E-10 0.10000E+01 0.22184E+05 0.67770E-13 0.42578E-21 0.22534E-23 + 5 4 0.31275E-10 0.10000E+01 0.17891E+05 0.16634E-12 0.19299E-20 0.53446E-23 + 5 4 0.31275E-10 0.10000E+01 0.14428E+05 0.40354E-12 0.87292E-20 0.12784E-22 + 5 4 0.31275E-10 0.10000E+01 0.11635E+05 0.96989E-12 0.39453E-19 0.30567E-22 + 5 4 0.31275E-10 0.10000E+01 0.93834E+04 0.23166E-11 0.17817E-18 0.72922E-22 + 5 4 0.31275E-10 0.10000E+01 0.75673E+04 0.55118E-11 0.80220E-18 0.17359E-21 + 5 4 0.31275E-10 0.10000E+01 0.61026E+04 0.13076E-10 0.35803E-17 0.41234E-21 + 5 4 0.31275E-10 0.10000E+01 0.49215E+04 0.30900E-10 0.15714E-16 0.97580E-21 + 5 4 0.31275E-10 0.10000E+01 0.39689E+04 0.72496E-10 0.67440E-16 0.22926E-20 + 5 4 0.31275E-10 0.10000E+01 0.32008E+04 0.16810E-09 0.28261E-15 0.53228E-20 + 5 4 0.31275E-10 0.10000E+01 0.25813E+04 0.38365E-09 0.11564E-14 0.12160E-19 + 5 4 0.31275E-10 0.10000E+01 0.20817E+04 0.85929E-09 0.46154E-14 0.27260E-19 5 4 0.31275E-10 0.10000E+01 0.16788E+04 0.18854E-08 0.17951E-13 0.59853E-19 5 4 0.31275E-10 0.10000E+01 0.13538E+04 0.40475E-08 0.68180E-13 0.12856E-18 5 4 0.31275E-10 0.10000E+01 0.10918E+04 0.84974E-08 0.25422E-12 0.27000E-18 @@ -30130,24 +30130,24 @@ VERSION 2.8.2 5 4 0.31275E-10 0.10000E+01 0.24221E+03 0.84417E-06 0.77882E-09 0.26843E-16 5 4 0.31275E-10 0.10000E+01 0.19533E+03 0.13304E-05 0.14800E-08 0.42306E-16 5 4 0.31275E-10 0.10000E+01 0.15752E+03 0.13304E-05 0.14800E-08 0.42306E-16 - 5 4 0.54572E-10 0.10000E+01 0.80645E+05 0.25234E-57 0.18000E-68 0.44959E-67 - 5 4 0.54572E-10 0.10000E+01 0.65036E+05 0.20585E-56 0.28613E-67 0.37365E-66 - 5 4 0.54572E-10 0.10000E+01 0.52449E+05 0.17450E-55 0.42515E-66 0.30913E-65 - 5 4 0.54572E-10 0.10000E+01 0.42297E+05 0.14457E-54 0.90371E-65 0.22285E-64 - 5 4 0.54572E-10 0.10000E+01 0.34111E+05 0.15463E-53 0.27677E-63 0.16304E-63 - 5 4 0.54572E-10 0.10000E+01 0.27509E+05 0.23338E-52 0.94408E-62 0.15579E-62 - 5 4 0.54572E-10 0.10000E+01 0.22184E+05 0.40495E-51 0.30921E-60 0.21752E-61 - 5 4 0.54572E-10 0.10000E+01 0.17891E+05 0.68769E-50 0.93042E-59 0.35670E-60 - 5 4 0.54572E-10 0.10000E+01 0.14428E+05 0.10865E-48 0.26129E-57 0.56891E-59 - 5 4 0.54572E-10 0.10000E+01 0.11635E+05 0.16116E-47 0.70939E-56 0.85191E-58 - 5 4 0.54572E-10 0.10000E+01 0.93834E+04 0.23078E-46 0.19069E-54 0.12262E-56 - 5 4 0.54572E-10 0.10000E+01 0.75673E+04 0.32615E-45 0.51194E-53 0.17384E-55 - 5 4 0.54572E-10 0.10000E+01 0.61026E+04 0.45953E-44 0.13749E-51 0.24559E-54 - 5 4 0.54572E-10 0.10000E+01 0.49215E+04 0.64731E-43 0.36933E-50 0.34691E-53 - 5 4 0.54572E-10 0.10000E+01 0.39689E+04 0.91196E-42 0.99207E-49 0.49012E-52 - 5 4 0.54572E-10 0.10000E+01 0.32008E+04 0.40407E-39 0.86163E-46 0.21776E-49 - 5 4 0.54572E-10 0.10000E+01 0.25813E+04 0.29628E-30 0.14484E-36 0.16013E-40 - 5 4 0.54572E-10 0.10000E+01 0.20817E+04 0.56414E-14 0.12302E-19 0.30590E-24 + 5 4 0.54572E-10 0.10000E+01 0.80645E+05 0.18068E-14 0.33982E-25 0.30623E-24 + 5 4 0.54572E-10 0.10000E+01 0.65036E+05 0.24612E-14 0.17101E-24 0.39513E-24 + 5 4 0.54572E-10 0.10000E+01 0.52449E+05 0.36575E-14 0.87078E-24 0.51747E-24 + 5 4 0.54572E-10 0.10000E+01 0.42297E+05 0.63274E-14 0.42825E-23 0.71994E-24 + 5 4 0.54572E-10 0.10000E+01 0.34111E+05 0.12891E-13 0.20300E-22 0.11274E-23 + 5 4 0.54572E-10 0.10000E+01 0.27509E+05 0.29331E-13 0.93851E-22 0.20545E-23 + 5 4 0.54572E-10 0.10000E+01 0.22184E+05 0.70033E-13 0.42820E-21 0.42647E-23 + 5 4 0.54572E-10 0.10000E+01 0.17891E+05 0.16919E-12 0.19425E-20 0.95824E-23 + 5 4 0.54572E-10 0.10000E+01 0.14428E+05 0.40783E-12 0.87938E-20 0.22345E-22 + 5 4 0.54572E-10 0.10000E+01 0.11635E+05 0.97791E-12 0.39779E-19 0.52858E-22 + 5 4 0.54572E-10 0.10000E+01 0.93834E+04 0.23345E-11 0.17979E-18 0.12562E-21 + 5 4 0.54572E-10 0.10000E+01 0.75673E+04 0.55558E-11 0.81014E-18 0.29882E-21 + 5 4 0.54572E-10 0.10000E+01 0.61026E+04 0.13188E-10 0.36181E-17 0.71018E-21 + 5 4 0.54572E-10 0.10000E+01 0.49215E+04 0.31185E-10 0.15889E-16 0.16824E-20 + 5 4 0.54572E-10 0.10000E+01 0.39689E+04 0.73214E-10 0.68217E-16 0.39573E-20 + 5 4 0.54572E-10 0.10000E+01 0.32008E+04 0.16987E-09 0.28595E-15 0.91972E-20 + 5 4 0.54572E-10 0.10000E+01 0.25813E+04 0.38786E-09 0.11704E-14 0.21031E-19 + 5 4 0.54572E-10 0.10000E+01 0.20817E+04 0.86906E-09 0.46719E-14 0.47179E-19 5 4 0.54572E-10 0.10000E+01 0.16788E+04 0.19074E-08 0.18172E-13 0.10365E-18 5 4 0.54572E-10 0.10000E+01 0.13538E+04 0.40958E-08 0.69028E-13 0.22272E-18 5 4 0.54572E-10 0.10000E+01 0.10918E+04 0.86003E-08 0.25739E-12 0.46791E-18 @@ -30160,24 +30160,24 @@ VERSION 2.8.2 5 4 0.54572E-10 0.10000E+01 0.24221E+03 0.85470E-06 0.78854E-09 0.46550E-16 5 4 0.54572E-10 0.10000E+01 0.19533E+03 0.13470E-05 0.14985E-08 0.73364E-16 5 4 0.54572E-10 0.10000E+01 0.15752E+03 0.13470E-05 0.14985E-08 0.73364E-16 - 5 4 0.95225E-10 0.10000E+01 0.80645E+05 0.51268E-57 0.37287E-68 0.15402E-66 - 5 4 0.95225E-10 0.10000E+01 0.65036E+05 0.42373E-56 0.57885E-67 0.12898E-65 - 5 4 0.95225E-10 0.10000E+01 0.52449E+05 0.35234E-55 0.76406E-66 0.10772E-64 - 5 4 0.95225E-10 0.10000E+01 0.42297E+05 0.26358E-54 0.12224E-64 0.78122E-64 - 5 4 0.95225E-10 0.10000E+01 0.34111E+05 0.21931E-53 0.29261E-63 0.54077E-63 - 5 4 0.95225E-10 0.10000E+01 0.27509E+05 0.25708E-52 0.92531E-62 0.41390E-62 - 5 4 0.95225E-10 0.10000E+01 0.22184E+05 0.40338E-51 0.30252E-60 0.43255E-61 - 5 4 0.95225E-10 0.10000E+01 0.17891E+05 0.67507E-50 0.91750E-59 0.61738E-60 - 5 4 0.95225E-10 0.10000E+01 0.14428E+05 0.10711E-48 0.25882E-57 0.95759E-59 - 5 4 0.95225E-10 0.10000E+01 0.11635E+05 0.15954E-47 0.70403E-56 0.14371E-57 - 5 4 0.95225E-10 0.10000E+01 0.93834E+04 0.22898E-46 0.18948E-54 0.20800E-56 - 5 4 0.95225E-10 0.10000E+01 0.75673E+04 0.32405E-45 0.50929E-53 0.29614E-55 - 5 4 0.95225E-10 0.10000E+01 0.61026E+04 0.45712E-44 0.13695E-51 0.41974E-54 - 5 4 0.95225E-10 0.10000E+01 0.49215E+04 0.64474E-43 0.36837E-50 0.59453E-53 - 5 4 0.95225E-10 0.10000E+01 0.39689E+04 0.90950E-42 0.99070E-49 0.84202E-52 - 5 4 0.95225E-10 0.10000E+01 0.32008E+04 0.40349E-39 0.86148E-46 0.37497E-49 - 5 4 0.95225E-10 0.10000E+01 0.25813E+04 0.29625E-30 0.14501E-36 0.27636E-40 - 5 4 0.95225E-10 0.10000E+01 0.20817E+04 0.56492E-14 0.12334E-19 0.52933E-24 + 5 4 0.95225E-10 0.10000E+01 0.80645E+05 0.35395E-14 0.40176E-25 0.10430E-23 + 5 4 0.95225E-10 0.10000E+01 0.65036E+05 0.46371E-14 0.17915E-24 0.13358E-23 + 5 4 0.95225E-10 0.10000E+01 0.52449E+05 0.63101E-14 0.87382E-24 0.17053E-23 + 5 4 0.95225E-10 0.10000E+01 0.42297E+05 0.94591E-14 0.42515E-23 0.22267E-23 + 5 4 0.95225E-10 0.10000E+01 0.34111E+05 0.16455E-13 0.20128E-22 0.31051E-23 + 5 4 0.95225E-10 0.10000E+01 0.27509E+05 0.33207E-13 0.93151E-22 0.48653E-23 + 5 4 0.95225E-10 0.10000E+01 0.22184E+05 0.73981E-13 0.42556E-21 0.87981E-23 + 5 4 0.95225E-10 0.10000E+01 0.17891E+05 0.17277E-12 0.19330E-20 0.18010E-22 + 5 4 0.95225E-10 0.10000E+01 0.14428E+05 0.41022E-12 0.87621E-20 0.39921E-22 + 5 4 0.95225E-10 0.10000E+01 0.11635E+05 0.97771E-12 0.39685E-19 0.92217E-22 + 5 4 0.95225E-10 0.10000E+01 0.93834E+04 0.23294E-11 0.17958E-18 0.21704E-21 + 5 4 0.95225E-10 0.10000E+01 0.75673E+04 0.55427E-11 0.81005E-18 0.51471E-21 + 5 4 0.95225E-10 0.10000E+01 0.61026E+04 0.13164E-10 0.36211E-17 0.12231E-20 + 5 4 0.95225E-10 0.10000E+01 0.49215E+04 0.31156E-10 0.15913E-16 0.29004E-20 + 5 4 0.95225E-10 0.10000E+01 0.39689E+04 0.73208E-10 0.68362E-16 0.68312E-20 + 5 4 0.95225E-10 0.10000E+01 0.32008E+04 0.16999E-09 0.28669E-15 0.15897E-19 + 5 4 0.95225E-10 0.10000E+01 0.25813E+04 0.38839E-09 0.11738E-14 0.36392E-19 + 5 4 0.95225E-10 0.10000E+01 0.20817E+04 0.87074E-09 0.46865E-14 0.81716E-19 5 4 0.95225E-10 0.10000E+01 0.16788E+04 0.19119E-08 0.18232E-13 0.17965E-18 5 4 0.95225E-10 0.10000E+01 0.13538E+04 0.41068E-08 0.69261E-13 0.38626E-18 5 4 0.95225E-10 0.10000E+01 0.10918E+04 0.86256E-08 0.25827E-12 0.81184E-18 @@ -30190,24 +30190,24 @@ VERSION 2.8.2 5 4 0.95225E-10 0.10000E+01 0.24221E+03 0.85763E-06 0.79125E-09 0.80832E-16 5 4 0.95225E-10 0.10000E+01 0.19533E+03 0.13516E-05 0.15036E-08 0.12739E-15 5 4 0.95225E-10 0.10000E+01 0.15752E+03 0.13516E-05 0.15036E-08 0.12739E-15 - 5 4 0.16616E-09 0.10000E+01 0.80645E+05 0.10196E-56 0.75049E-68 0.52176E-66 - 5 4 0.16616E-09 0.10000E+01 0.65036E+05 0.85060E-56 0.11675E-66 0.43876E-65 - 5 4 0.16616E-09 0.10000E+01 0.52449E+05 0.70892E-55 0.15034E-65 0.36902E-64 - 5 4 0.16616E-09 0.10000E+01 0.42297E+05 0.51741E-54 0.20566E-64 0.27079E-63 - 5 4 0.16616E-09 0.10000E+01 0.34111E+05 0.37709E-53 0.36450E-63 0.18698E-62 - 5 4 0.16616E-09 0.10000E+01 0.27509E+05 0.33665E-52 0.94287E-62 0.13042E-61 - 5 4 0.16616E-09 0.10000E+01 0.22184E+05 0.42560E-51 0.29330E-60 0.10520E-60 - 5 4 0.16616E-09 0.10000E+01 0.17891E+05 0.66244E-50 0.88979E-59 0.11615E-59 - 5 4 0.16616E-09 0.10000E+01 0.14428E+05 0.10411E-48 0.25247E-57 0.16240E-58 - 5 4 0.16616E-09 0.10000E+01 0.11635E+05 0.15559E-47 0.68942E-56 0.23943E-57 - 5 4 0.16616E-09 0.10000E+01 0.93834E+04 0.22413E-46 0.18601E-54 0.34824E-56 - 5 4 0.16616E-09 0.10000E+01 0.75673E+04 0.31805E-45 0.50099E-53 0.49942E-55 - 5 4 0.16616E-09 0.10000E+01 0.61026E+04 0.44961E-44 0.13498E-51 0.71196E-54 - 5 4 0.16616E-09 0.10000E+01 0.49215E+04 0.63538E-43 0.36373E-50 0.10129E-52 - 5 4 0.16616E-09 0.10000E+01 0.39689E+04 0.89795E-42 0.97991E-49 0.14398E-51 - 5 4 0.16616E-09 0.10000E+01 0.32008E+04 0.39907E-39 0.85350E-46 0.64320E-49 - 5 4 0.16616E-09 0.10000E+01 0.25813E+04 0.29352E-30 0.14392E-36 0.47549E-40 - 5 4 0.16616E-09 0.10000E+01 0.20817E+04 0.56087E-14 0.12267E-19 0.91388E-24 + 5 4 0.16616E-09 0.10000E+01 0.80645E+05 0.69392E-14 0.55384E-25 0.35277E-23 + 5 4 0.16616E-09 0.10000E+01 0.65036E+05 0.89418E-14 0.20341E-24 0.45106E-23 + 5 4 0.16616E-09 0.10000E+01 0.52449E+05 0.11622E-13 0.89683E-24 0.57018E-23 + 5 4 0.16616E-09 0.10000E+01 0.42297E+05 0.15832E-13 0.42103E-23 0.72236E-23 + 5 4 0.16616E-09 0.10000E+01 0.34111E+05 0.23841E-13 0.19753E-22 0.94029E-23 + 5 4 0.16616E-09 0.10000E+01 0.27509E+05 0.41376E-13 0.91351E-22 0.13093E-22 + 5 4 0.16616E-09 0.10000E+01 0.22184E+05 0.82379E-13 0.41797E-21 0.20435E-22 + 5 4 0.16616E-09 0.10000E+01 0.17891E+05 0.18021E-12 0.19022E-20 0.36655E-22 + 5 4 0.16616E-09 0.10000E+01 0.14428E+05 0.41427E-12 0.86389E-20 0.74343E-22 + 5 4 0.16616E-09 0.10000E+01 0.11635E+05 0.97335E-12 0.39197E-19 0.16368E-21 + 5 4 0.16616E-09 0.10000E+01 0.93834E+04 0.23063E-11 0.17767E-18 0.37685E-21 + 5 4 0.16616E-09 0.10000E+01 0.75673E+04 0.54797E-11 0.80260E-18 0.88621E-21 + 5 4 0.16616E-09 0.10000E+01 0.61026E+04 0.13018E-10 0.35923E-17 0.21014E-20 + 5 4 0.16616E-09 0.10000E+01 0.49215E+04 0.30839E-10 0.15803E-16 0.49857E-20 + 5 4 0.16616E-09 0.10000E+01 0.39689E+04 0.72543E-10 0.67940E-16 0.11759E-19 + 5 4 0.16616E-09 0.10000E+01 0.32008E+04 0.16862E-09 0.28508E-15 0.27409E-19 + 5 4 0.16616E-09 0.10000E+01 0.25813E+04 0.38561E-09 0.11677E-14 0.62835E-19 + 5 4 0.16616E-09 0.10000E+01 0.20817E+04 0.86513E-09 0.46638E-14 0.14126E-18 5 4 0.16616E-09 0.10000E+01 0.16788E+04 0.19007E-08 0.18148E-13 0.31085E-18 5 4 0.16616E-09 0.10000E+01 0.13538E+04 0.40845E-08 0.68948E-13 0.66883E-18 5 4 0.16616E-09 0.10000E+01 0.10918E+04 0.85817E-08 0.25712E-12 0.14065E-17 @@ -30220,24 +30220,24 @@ VERSION 2.8.2 5 4 0.16616E-09 0.10000E+01 0.24221E+03 0.85382E-06 0.78775E-09 0.14019E-15 5 4 0.16616E-09 0.10000E+01 0.19533E+03 0.13456E-05 0.14970E-08 0.22095E-15 5 4 0.16616E-09 0.10000E+01 0.15752E+03 0.13456E-05 0.14970E-08 0.22095E-15 - 5 4 0.28994E-09 0.10000E+01 0.80645E+05 0.19921E-56 0.14763E-67 0.17413E-65 - 5 4 0.28994E-09 0.10000E+01 0.65036E+05 0.16713E-55 0.23120E-66 0.14677E-64 - 5 4 0.28994E-09 0.10000E+01 0.52449E+05 0.14016E-54 0.29971E-65 0.12397E-63 - 5 4 0.28994E-09 0.10000E+01 0.42297E+05 0.10258E-53 0.39104E-64 0.91814E-63 - 5 4 0.28994E-09 0.10000E+01 0.34111E+05 0.71747E-53 0.56529E-63 0.64100E-62 - 5 4 0.28994E-09 0.10000E+01 0.27509E+05 0.53902E-52 0.10912E-61 0.43899E-61 - 5 4 0.28994E-09 0.10000E+01 0.22184E+05 0.51812E-51 0.29142E-60 0.30935E-60 - 5 4 0.28994E-09 0.10000E+01 0.17891E+05 0.67757E-50 0.85595E-59 0.25914E-59 - 5 4 0.28994E-09 0.10000E+01 0.14428E+05 0.10108E-48 0.24333E-57 0.29098E-58 - 5 4 0.28994E-09 0.10000E+01 0.11635E+05 0.15020E-47 0.66852E-56 0.39716E-57 - 5 4 0.28994E-09 0.10000E+01 0.93834E+04 0.21729E-46 0.18124E-54 0.57319E-56 - 5 4 0.28994E-09 0.10000E+01 0.75673E+04 0.30977E-45 0.48994E-53 0.82966E-55 - 5 4 0.28994E-09 0.10000E+01 0.61026E+04 0.43956E-44 0.13240E-51 0.11942E-53 - 5 4 0.28994E-09 0.10000E+01 0.49215E+04 0.62308E-43 0.35770E-50 0.17116E-52 - 5 4 0.28994E-09 0.10000E+01 0.39689E+04 0.88290E-42 0.96591E-49 0.24464E-51 - 5 4 0.28994E-09 0.10000E+01 0.32008E+04 0.39333E-39 0.84315E-46 0.10977E-48 - 5 4 0.28994E-09 0.10000E+01 0.25813E+04 0.28998E-30 0.14251E-36 0.81481E-40 - 5 4 0.28994E-09 0.10000E+01 0.20817E+04 0.55561E-14 0.12179E-19 0.15730E-23 + 5 4 0.28994E-09 0.10000E+01 0.80645E+05 0.13491E-13 0.89363E-25 0.11771E-22 + 5 4 0.28994E-09 0.10000E+01 0.65036E+05 0.17284E-13 0.26598E-24 0.15055E-22 + 5 4 0.28994E-09 0.10000E+01 0.52449E+05 0.22016E-13 0.98757E-24 0.18978E-22 + 5 4 0.28994E-09 0.10000E+01 0.42297E+05 0.28482E-13 0.42586E-23 0.23753E-22 + 5 4 0.28994E-09 0.10000E+01 0.34111E+05 0.38812E-13 0.19397E-22 0.29891E-22 + 5 4 0.28994E-09 0.10000E+01 0.27509E+05 0.58458E-13 0.89097E-22 0.38729E-22 + 5 4 0.28994E-09 0.10000E+01 0.22184E+05 0.10087E-12 0.40793E-21 0.53711E-22 + 5 4 0.28994E-09 0.10000E+01 0.17891E+05 0.19850E-12 0.18613E-20 0.83455E-22 + 5 4 0.28994E-09 0.10000E+01 0.14428E+05 0.42903E-12 0.84765E-20 0.14906E-21 + 5 4 0.28994E-09 0.10000E+01 0.11635E+05 0.97784E-12 0.38560E-19 0.30159E-21 + 5 4 0.28994E-09 0.10000E+01 0.93834E+04 0.22869E-11 0.17518E-18 0.66395E-21 + 5 4 0.28994E-09 0.10000E+01 0.75673E+04 0.54086E-11 0.79293E-18 0.15309E-20 + 5 4 0.28994E-09 0.10000E+01 0.61026E+04 0.12839E-10 0.35549E-17 0.36053E-20 + 5 4 0.28994E-09 0.10000E+01 0.49215E+04 0.30437E-10 0.15659E-16 0.85443E-20 + 5 4 0.28994E-09 0.10000E+01 0.39689E+04 0.71689E-10 0.67391E-16 0.20175E-19 + 5 4 0.28994E-09 0.10000E+01 0.32008E+04 0.16685E-09 0.28300E-15 0.47106E-19 + 5 4 0.28994E-09 0.10000E+01 0.25813E+04 0.38200E-09 0.11598E-14 0.10817E-18 + 5 4 0.28994E-09 0.10000E+01 0.20817E+04 0.85785E-09 0.46342E-14 0.24354E-18 5 4 0.28994E-09 0.10000E+01 0.16788E+04 0.18862E-08 0.18037E-13 0.53657E-18 5 4 0.28994E-09 0.10000E+01 0.13538E+04 0.40556E-08 0.68540E-13 0.11555E-17 5 4 0.28994E-09 0.10000E+01 0.10918E+04 0.85245E-08 0.25562E-12 0.24317E-17 @@ -30250,24 +30250,24 @@ VERSION 2.8.2 5 4 0.28994E-09 0.10000E+01 0.24221E+03 0.84884E-06 0.78317E-09 0.24269E-15 5 4 0.28994E-09 0.10000E+01 0.19533E+03 0.13378E-05 0.14883E-08 0.38249E-15 5 4 0.28994E-09 0.10000E+01 0.15752E+03 0.13378E-05 0.14883E-08 0.38249E-15 - 5 4 0.50593E-09 0.10000E+01 0.80645E+05 0.38317E-56 0.28504E-67 0.57275E-65 - 5 4 0.50593E-09 0.10000E+01 0.65036E+05 0.32254E-55 0.44882E-66 0.48344E-64 - 5 4 0.50593E-09 0.10000E+01 0.52449E+05 0.27184E-54 0.58844E-65 0.40934E-63 - 5 4 0.50593E-09 0.10000E+01 0.42297E+05 0.20057E-53 0.76683E-64 0.30501E-62 - 5 4 0.50593E-09 0.10000E+01 0.34111E+05 0.13991E-52 0.10218E-62 0.21528E-61 - 5 4 0.50593E-09 0.10000E+01 0.27509E+05 0.98171E-52 0.15437E-61 0.14856E-60 - 5 4 0.50593E-09 0.10000E+01 0.22184E+05 0.76524E-51 0.31652E-60 0.10067E-59 - 5 4 0.50593E-09 0.10000E+01 0.17891E+05 0.77326E-50 0.83069E-59 0.70996E-59 - 5 4 0.50593E-09 0.10000E+01 0.14428E+05 0.10053E-48 0.23149E-57 0.60452E-58 - 5 4 0.50593E-09 0.10000E+01 0.11635E+05 0.14395E-47 0.63941E-56 0.68382E-57 - 5 4 0.50593E-09 0.10000E+01 0.93834E+04 0.20805E-46 0.17476E-54 0.93282E-56 - 5 4 0.50593E-09 0.10000E+01 0.75673E+04 0.29856E-45 0.47546E-53 0.13520E-54 - 5 4 0.50593E-09 0.10000E+01 0.61026E+04 0.42632E-44 0.12910E-51 0.19720E-53 - 5 4 0.50593E-09 0.10000E+01 0.49215E+04 0.60731E-43 0.35013E-50 0.28598E-52 - 5 4 0.50593E-09 0.10000E+01 0.39689E+04 0.86395E-42 0.94850E-49 0.41226E-51 - 5 4 0.50593E-09 0.10000E+01 0.32008E+04 0.38617E-39 0.83035E-46 0.18618E-48 - 5 4 0.50593E-09 0.10000E+01 0.25813E+04 0.28560E-30 0.14078E-36 0.13895E-39 - 5 4 0.50593E-09 0.10000E+01 0.20817E+04 0.54913E-14 0.12073E-19 0.26978E-23 + 5 4 0.50593E-09 0.10000E+01 0.80645E+05 0.25913E-13 0.15964E-24 0.38722E-22 + 5 4 0.50593E-09 0.10000E+01 0.65036E+05 0.33154E-13 0.40688E-24 0.49560E-22 + 5 4 0.50593E-09 0.10000E+01 0.52449E+05 0.41909E-13 0.12316E-23 0.62476E-22 + 5 4 0.50593E-09 0.10000E+01 0.42297E+05 0.52942E-13 0.45595E-23 0.77912E-22 + 5 4 0.50593E-09 0.10000E+01 0.34111E+05 0.68208E-13 0.19320E-22 0.96694E-22 + 5 4 0.50593E-09 0.10000E+01 0.27509E+05 0.92768E-13 0.86678E-22 0.12084E-21 + 5 4 0.50593E-09 0.10000E+01 0.22184E+05 0.13934E-12 0.39541E-21 0.15565E-21 + 5 4 0.50593E-09 0.10000E+01 0.17891E+05 0.23908E-12 0.18089E-20 0.21490E-21 + 5 4 0.50593E-09 0.10000E+01 0.14428E+05 0.46733E-12 0.82692E-20 0.33324E-21 + 5 4 0.50593E-09 0.10000E+01 0.11635E+05 0.10050E-11 0.37754E-19 0.59599E-21 + 5 4 0.50593E-09 0.10000E+01 0.93834E+04 0.22853E-11 0.17206E-18 0.12108E-20 + 5 4 0.50593E-09 0.10000E+01 0.75673E+04 0.53432E-11 0.78093E-18 0.26786E-20 + 5 4 0.50593E-09 0.10000E+01 0.61026E+04 0.12640E-10 0.35089E-17 0.62004E-20 + 5 4 0.50593E-09 0.10000E+01 0.49215E+04 0.29962E-10 0.15483E-16 0.14616E-19 + 5 4 0.50593E-09 0.10000E+01 0.39689E+04 0.70655E-10 0.66720E-16 0.34502E-19 + 5 4 0.50593E-09 0.10000E+01 0.32008E+04 0.16469E-09 0.28046E-15 0.80677E-19 + 5 4 0.50593E-09 0.10000E+01 0.25813E+04 0.37759E-09 0.11503E-14 0.18561E-18 + 5 4 0.50593E-09 0.10000E+01 0.20817E+04 0.84895E-09 0.45984E-14 0.41861E-18 5 4 0.50593E-09 0.10000E+01 0.16788E+04 0.18684E-08 0.17904E-13 0.92358E-18 5 4 0.50593E-09 0.10000E+01 0.13538E+04 0.40203E-08 0.68047E-13 0.19912E-17 5 4 0.50593E-09 0.10000E+01 0.10918E+04 0.84550E-08 0.25380E-12 0.41938E-17 @@ -30280,24 +30280,24 @@ VERSION 2.8.2 5 4 0.50593E-09 0.10000E+01 0.24221E+03 0.84282E-06 0.77762E-09 0.41920E-15 5 4 0.50593E-09 0.10000E+01 0.19533E+03 0.13283E-05 0.14777E-08 0.66070E-15 5 4 0.50593E-09 0.10000E+01 0.15752E+03 0.13283E-05 0.14777E-08 0.66070E-15 - 5 4 0.88282E-09 0.10000E+01 0.80645E+05 0.72625E-56 0.54145E-67 0.18571E-64 - 5 4 0.88282E-09 0.10000E+01 0.65036E+05 0.61252E-55 0.85554E-66 0.15690E-63 - 5 4 0.88282E-09 0.10000E+01 0.52449E+05 0.51793E-54 0.11317E-64 0.13306E-62 - 5 4 0.88282E-09 0.10000E+01 0.42297E+05 0.38476E-53 0.14903E-63 0.99518E-62 - 5 4 0.88282E-09 0.10000E+01 0.34111E+05 0.27049E-52 0.19561E-62 0.70808E-61 - 5 4 0.88282E-09 0.10000E+01 0.27509E+05 0.18724E-51 0.26148E-61 0.49459E-60 - 5 4 0.88282E-09 0.10000E+01 0.22184E+05 0.13198E-50 0.40971E-60 0.33604E-59 - 5 4 0.88282E-09 0.10000E+01 0.17891E+05 0.10557E-49 0.85731E-59 0.22349E-58 - 5 4 0.88282E-09 0.10000E+01 0.14428E+05 0.10875E-48 0.21983E-57 0.15662E-57 - 5 4 0.88282E-09 0.10000E+01 0.11635E+05 0.13959E-47 0.60154E-56 0.13527E-56 - 5 4 0.88282E-09 0.10000E+01 0.93834E+04 0.19685E-46 0.16599E-54 0.15645E-55 - 5 4 0.88282E-09 0.10000E+01 0.75673E+04 0.28370E-45 0.45630E-53 0.21737E-54 - 5 4 0.88282E-09 0.10000E+01 0.61026E+04 0.40884E-44 0.12487E-51 0.31937E-53 - 5 4 0.88282E-09 0.10000E+01 0.49215E+04 0.58701E-43 0.34063E-50 0.47051E-52 - 5 4 0.88282E-09 0.10000E+01 0.39689E+04 0.84008E-42 0.92691E-49 0.68719E-51 - 5 4 0.88282E-09 0.10000E+01 0.32008E+04 0.37727E-39 0.81460E-46 0.31331E-48 - 5 4 0.88282E-09 0.10000E+01 0.25813E+04 0.28019E-30 0.13866E-36 0.23558E-39 - 5 4 0.88282E-09 0.10000E+01 0.20817E+04 0.54118E-14 0.11942E-19 0.46078E-23 + 5 4 0.88282E-09 0.10000E+01 0.80645E+05 0.49102E-13 0.29772E-24 0.12556E-21 + 5 4 0.88282E-09 0.10000E+01 0.65036E+05 0.62835E-13 0.69945E-24 0.16083E-21 + 5 4 0.88282E-09 0.10000E+01 0.52449E+05 0.79262E-13 0.17935E-23 0.20291E-21 + 5 4 0.88282E-09 0.10000E+01 0.42297E+05 0.99193E-13 0.54565E-23 0.25302E-21 + 5 4 0.88282E-09 0.10000E+01 0.34111E+05 0.12443E-12 0.20157E-22 0.31275E-21 + 5 4 0.88282E-09 0.10000E+01 0.27509E+05 0.15952E-12 0.85047E-22 0.38515E-21 + 5 4 0.88282E-09 0.10000E+01 0.22184E+05 0.21614E-12 0.38126E-21 0.47804E-21 + 5 4 0.88282E-09 0.10000E+01 0.17891E+05 0.32360E-12 0.17437E-20 0.61245E-21 + 5 4 0.88282E-09 0.10000E+01 0.14428E+05 0.55396E-12 0.80073E-20 0.84355E-21 + 5 4 0.88282E-09 0.10000E+01 0.11635E+05 0.10823E-11 0.36741E-19 0.13113E-20 + 5 4 0.88282E-09 0.10000E+01 0.93834E+04 0.23305E-11 0.16818E-18 0.23620E-20 + 5 4 0.88282E-09 0.10000E+01 0.75673E+04 0.53119E-11 0.76608E-18 0.48414E-20 + 5 4 0.88282E-09 0.10000E+01 0.61026E+04 0.12444E-10 0.34521E-17 0.10789E-19 + 5 4 0.88282E-09 0.10000E+01 0.49215E+04 0.29427E-10 0.15267E-16 0.25052E-19 + 5 4 0.88282E-09 0.10000E+01 0.39689E+04 0.69432E-10 0.65898E-16 0.58891E-19 + 5 4 0.88282E-09 0.10000E+01 0.32008E+04 0.16208E-09 0.27734E-15 0.13773E-18 + 5 4 0.88282E-09 0.10000E+01 0.25813E+04 0.37222E-09 0.11385E-14 0.31740E-18 + 5 4 0.88282E-09 0.10000E+01 0.20817E+04 0.83809E-09 0.45545E-14 0.71712E-18 5 4 0.88282E-09 0.10000E+01 0.16788E+04 0.18466E-08 0.17741E-13 0.15848E-17 5 4 0.88282E-09 0.10000E+01 0.13538E+04 0.39772E-08 0.67444E-13 0.34212E-17 5 4 0.88282E-09 0.10000E+01 0.10918E+04 0.83700E-08 0.25158E-12 0.72126E-17 @@ -30310,24 +30310,24 @@ VERSION 2.8.2 5 4 0.88282E-09 0.10000E+01 0.24221E+03 0.83543E-06 0.77082E-09 0.72227E-15 5 4 0.88282E-09 0.10000E+01 0.19533E+03 0.13167E-05 0.14648E-08 0.11384E-14 5 4 0.88282E-09 0.10000E+01 0.15752E+03 0.13167E-05 0.14648E-08 0.11384E-14 - 5 4 0.15405E-08 0.10000E+01 0.80645E+05 0.13569E-55 0.10131E-66 0.59374E-64 - 5 4 0.15405E-08 0.10000E+01 0.65036E+05 0.11459E-54 0.16042E-65 0.50201E-63 - 5 4 0.15405E-08 0.10000E+01 0.52449E+05 0.97090E-54 0.21347E-64 0.42616E-62 - 5 4 0.15405E-08 0.10000E+01 0.42297E+05 0.72469E-53 0.28403E-63 0.31952E-61 - 5 4 0.15405E-08 0.10000E+01 0.34111E+05 0.51369E-52 0.37562E-62 0.22858E-60 - 5 4 0.15405E-08 0.10000E+01 0.27509E+05 0.35755E-51 0.48537E-61 0.16130E-59 - 5 4 0.15405E-08 0.10000E+01 0.22184E+05 0.24504E-50 0.64807E-60 0.11110E-58 - 5 4 0.15405E-08 0.10000E+01 0.17891E+05 0.17216E-49 0.10350E-58 0.73852E-58 - 5 4 0.15405E-08 0.10000E+01 0.14428E+05 0.13928E-48 0.21882E-57 0.48283E-57 - 5 4 0.15405E-08 0.10000E+01 0.11635E+05 0.14512E-47 0.56223E-56 0.33958E-56 - 5 4 0.15405E-08 0.10000E+01 0.93834E+04 0.18726E-46 0.15488E-54 0.30138E-55 - 5 4 0.15405E-08 0.10000E+01 0.75673E+04 0.26586E-45 0.43122E-53 0.35961E-54 - 5 4 0.15405E-08 0.10000E+01 0.61026E+04 0.38635E-44 0.11944E-51 0.51044E-53 - 5 4 0.15405E-08 0.10000E+01 0.49215E+04 0.56095E-43 0.32872E-50 0.75994E-52 - 5 4 0.15405E-08 0.10000E+01 0.39689E+04 0.81005E-42 0.90033E-49 0.11291E-50 - 5 4 0.15405E-08 0.10000E+01 0.32008E+04 0.36627E-39 0.79537E-46 0.52197E-48 - 5 4 0.15405E-08 0.10000E+01 0.25813E+04 0.27357E-30 0.13608E-36 0.39665E-39 - 5 4 0.15405E-08 0.10000E+01 0.20817E+04 0.53149E-14 0.11783E-19 0.78338E-23 + 5 4 0.15405E-08 0.10000E+01 0.80645E+05 0.91741E-13 0.55939E-24 0.40141E-21 + 5 4 0.15405E-08 0.10000E+01 0.65036E+05 0.11747E-12 0.12747E-23 0.51449E-21 + 5 4 0.15405E-08 0.10000E+01 0.52449E+05 0.14820E-12 0.29773E-23 0.64977E-21 + 5 4 0.15405E-08 0.10000E+01 0.42297E+05 0.18496E-12 0.76293E-23 0.81113E-21 + 5 4 0.15405E-08 0.10000E+01 0.34111E+05 0.22955E-12 0.23323E-22 0.10027E-20 + 5 4 0.15405E-08 0.10000E+01 0.27509E+05 0.28600E-12 0.86833E-22 0.12301E-20 + 5 4 0.15405E-08 0.10000E+01 0.22184E+05 0.36466E-12 0.36951E-21 0.15047E-20 + 5 4 0.15405E-08 0.10000E+01 0.17891E+05 0.49225E-12 0.16697E-20 0.18571E-20 + 5 4 0.15405E-08 0.10000E+01 0.14428E+05 0.73630E-12 0.76873E-20 0.23716E-20 + 5 4 0.15405E-08 0.10000E+01 0.11635E+05 0.12639E-11 0.35487E-19 0.32711E-20 + 5 4 0.15405E-08 0.10000E+01 0.93834E+04 0.24827E-11 0.16339E-18 0.51237E-20 + 5 4 0.15405E-08 0.10000E+01 0.75673E+04 0.53785E-11 0.74788E-18 0.93406E-20 + 5 4 0.15405E-08 0.10000E+01 0.61026E+04 0.12316E-10 0.33829E-17 0.19362E-19 + 5 4 0.15405E-08 0.10000E+01 0.49215E+04 0.28889E-10 0.15003E-16 0.43420E-19 + 5 4 0.15405E-08 0.10000E+01 0.39689E+04 0.68058E-10 0.64897E-16 0.10071E-18 + 5 4 0.15405E-08 0.10000E+01 0.32008E+04 0.15903E-09 0.27355E-15 0.23472E-18 + 5 4 0.15405E-08 0.10000E+01 0.25813E+04 0.36580E-09 0.11243E-14 0.54108E-18 + 5 4 0.15405E-08 0.10000E+01 0.20817E+04 0.82497E-09 0.45010E-14 0.12244E-17 5 4 0.15405E-08 0.10000E+01 0.16788E+04 0.18203E-08 0.17541E-13 0.27102E-17 5 4 0.15405E-08 0.10000E+01 0.13538E+04 0.39247E-08 0.66705E-13 0.58590E-17 5 4 0.15405E-08 0.10000E+01 0.10918E+04 0.82664E-08 0.24886E-12 0.12366E-16 @@ -30340,24 +30340,24 @@ VERSION 2.8.2 5 4 0.15405E-08 0.10000E+01 0.24221E+03 0.82636E-06 0.76245E-09 0.12408E-14 5 4 0.15405E-08 0.10000E+01 0.19533E+03 0.13024E-05 0.14489E-08 0.19555E-14 5 4 0.15405E-08 0.10000E+01 0.15752E+03 0.13024E-05 0.14489E-08 0.19555E-14 - 5 4 0.26880E-08 0.10000E+01 0.80645E+05 0.24992E-55 0.18678E-66 0.18650E-63 - 5 4 0.26880E-08 0.10000E+01 0.65036E+05 0.21123E-54 0.29616E-65 0.15779E-62 - 5 4 0.26880E-08 0.10000E+01 0.52449E+05 0.17921E-53 0.39561E-64 0.13405E-61 - 5 4 0.26880E-08 0.10000E+01 0.42297E+05 0.13418E-52 0.53044E-63 0.10067E-60 - 5 4 0.26880E-08 0.10000E+01 0.34111E+05 0.95718E-52 0.70949E-62 0.72286E-60 - 5 4 0.26880E-08 0.10000E+01 0.27509E+05 0.67241E-51 0.91980E-61 0.51389E-59 - 5 4 0.26880E-08 0.10000E+01 0.22184E+05 0.46185E-50 0.11652E-59 0.35861E-58 - 5 4 0.26880E-08 0.10000E+01 0.17891E+05 0.31130E-49 0.15539E-58 0.24234E-57 - 5 4 0.26880E-08 0.10000E+01 0.14428E+05 0.21746E-48 0.25368E-57 0.15843E-56 - 5 4 0.26880E-08 0.10000E+01 0.11635E+05 0.17844E-47 0.55019E-56 0.10343E-55 - 5 4 0.26880E-08 0.10000E+01 0.93834E+04 0.19054E-46 0.14402E-54 0.74182E-55 - 5 4 0.26880E-08 0.10000E+01 0.75673E+04 0.25101E-45 0.40213E-53 0.68099E-54 - 5 4 0.26880E-08 0.10000E+01 0.61026E+04 0.36156E-44 0.11303E-51 0.83806E-53 - 5 4 0.26880E-08 0.10000E+01 0.49215E+04 0.53069E-43 0.31517E-50 0.12128E-51 - 5 4 0.26880E-08 0.10000E+01 0.39689E+04 0.77586E-42 0.87145E-49 0.18252E-50 - 5 4 0.26880E-08 0.10000E+01 0.32008E+04 0.35426E-39 0.77538E-46 0.85904E-48 - 5 4 0.26880E-08 0.10000E+01 0.25813E+04 0.26667E-30 0.13353E-36 0.66245E-39 - 5 4 0.26880E-08 0.10000E+01 0.20817E+04 0.52198E-14 0.11639E-19 0.13256E-22 + 5 4 0.26880E-08 0.10000E+01 0.80645E+05 0.16897E-12 0.10417E-23 0.12607E-20 + 5 4 0.26880E-08 0.10000E+01 0.65036E+05 0.21650E-12 0.23607E-23 0.16167E-20 + 5 4 0.26880E-08 0.10000E+01 0.52449E+05 0.27332E-12 0.53198E-23 0.20435E-20 + 5 4 0.26880E-08 0.10000E+01 0.42297E+05 0.34114E-12 0.12333E-22 0.25543E-20 + 5 4 0.26880E-08 0.10000E+01 0.34111E+05 0.42213E-12 0.31676E-22 0.31624E-20 + 5 4 0.26880E-08 0.10000E+01 0.27509E+05 0.52009E-12 0.98214E-22 0.38819E-20 + 5 4 0.26880E-08 0.10000E+01 0.22184E+05 0.64402E-12 0.37268E-21 0.47326E-20 + 5 4 0.26880E-08 0.10000E+01 0.17891E+05 0.81753E-12 0.16112E-20 0.57588E-20 + 5 4 0.26880E-08 0.10000E+01 0.14428E+05 0.11023E-11 0.73604E-20 0.70839E-20 + 5 4 0.26880E-08 0.10000E+01 0.11635E+05 0.16556E-11 0.34132E-19 0.90498E-20 + 5 4 0.26880E-08 0.10000E+01 0.93834E+04 0.28677E-11 0.15825E-18 0.12565E-19 + 5 4 0.26880E-08 0.10000E+01 0.75673E+04 0.56942E-11 0.72888E-18 0.19948E-19 + 5 4 0.26880E-08 0.10000E+01 0.61026E+04 0.12444E-10 0.33131E-17 0.36950E-19 + 5 4 0.26880E-08 0.10000E+01 0.49215E+04 0.28606E-10 0.14747E-16 0.77460E-19 + 5 4 0.26880E-08 0.10000E+01 0.39689E+04 0.66939E-10 0.63955E-16 0.17407E-18 + 5 4 0.26880E-08 0.10000E+01 0.32008E+04 0.15626E-09 0.27009E-15 0.40087E-18 + 5 4 0.26880E-08 0.10000E+01 0.25813E+04 0.35982E-09 0.11115E-14 0.92112E-18 + 5 4 0.26880E-08 0.10000E+01 0.20817E+04 0.81278E-09 0.44542E-14 0.20847E-17 5 4 0.26880E-08 0.10000E+01 0.16788E+04 0.17961E-08 0.17370E-13 0.46201E-17 5 4 0.26880E-08 0.10000E+01 0.13538E+04 0.38773E-08 0.66073E-13 0.10001E-16 5 4 0.26880E-08 0.10000E+01 0.10918E+04 0.81744E-08 0.24654E-12 0.21132E-16 @@ -30370,24 +30370,24 @@ VERSION 2.8.2 5 4 0.26880E-08 0.10000E+01 0.24221E+03 0.81859E-06 0.75528E-09 0.21246E-14 5 4 0.26880E-08 0.10000E+01 0.19533E+03 0.12902E-05 0.14353E-08 0.33485E-14 5 4 0.26880E-08 0.10000E+01 0.15752E+03 0.12902E-05 0.14353E-08 0.33485E-14 - 5 4 0.46905E-08 0.10000E+01 0.80645E+05 0.45427E-55 0.33978E-66 0.58068E-63 - 5 4 0.46905E-08 0.10000E+01 0.65036E+05 0.38421E-54 0.53924E-65 0.49156E-62 - 5 4 0.46905E-08 0.10000E+01 0.52449E+05 0.32627E-53 0.72221E-64 0.41785E-61 - 5 4 0.46905E-08 0.10000E+01 0.42297E+05 0.24481E-52 0.97359E-63 0.31422E-60 - 5 4 0.46905E-08 0.10000E+01 0.34111E+05 0.17543E-51 0.13150E-61 0.22622E-59 - 5 4 0.46905E-08 0.10000E+01 0.27509E+05 0.12425E-50 0.17270E-60 0.16168E-58 - 5 4 0.46905E-08 0.10000E+01 0.22184E+05 0.86243E-50 0.21872E-59 0.11398E-57 - 5 4 0.46905E-08 0.10000E+01 0.17891E+05 0.58137E-49 0.27353E-58 0.78338E-57 - 5 4 0.46905E-08 0.10000E+01 0.14428E+05 0.38646E-48 0.36933E-57 0.52238E-56 - 5 4 0.46905E-08 0.10000E+01 0.11635E+05 0.27106E-47 0.62165E-56 0.34081E-55 - 5 4 0.46905E-08 0.10000E+01 0.93834E+04 0.22786E-46 0.13869E-54 0.22501E-54 - 5 4 0.46905E-08 0.10000E+01 0.75673E+04 0.25062E-45 0.37026E-53 0.16495E-53 - 5 4 0.46905E-08 0.10000E+01 0.61026E+04 0.33758E-44 0.10471E-51 0.15615E-52 - 5 4 0.46905E-08 0.10000E+01 0.49215E+04 0.49311E-43 0.29674E-50 0.19784E-51 - 5 4 0.46905E-08 0.10000E+01 0.39689E+04 0.73011E-42 0.83179E-49 0.29134E-50 - 5 4 0.46905E-08 0.10000E+01 0.32008E+04 0.33784E-39 0.74767E-46 0.13928E-47 - 5 4 0.46905E-08 0.10000E+01 0.25813E+04 0.25708E-30 0.12988E-36 0.10952E-38 - 5 4 0.46905E-08 0.10000E+01 0.20817E+04 0.50832E-14 0.11412E-19 0.22321E-22 + 5 4 0.46905E-08 0.10000E+01 0.80645E+05 0.30709E-12 0.19137E-23 0.39246E-20 + 5 4 0.46905E-08 0.10000E+01 0.65036E+05 0.39370E-12 0.43534E-23 0.50347E-20 + 5 4 0.46905E-08 0.10000E+01 0.52449E+05 0.49744E-12 0.97489E-23 0.63684E-20 + 5 4 0.46905E-08 0.10000E+01 0.42297E+05 0.62147E-12 0.21740E-22 0.79694E-20 + 5 4 0.46905E-08 0.10000E+01 0.34111E+05 0.76920E-12 0.50222E-22 0.98837E-20 + 5 4 0.46905E-08 0.10000E+01 0.27509E+05 0.94503E-12 0.13016E-21 0.12157E-19 + 5 4 0.46905E-08 0.10000E+01 0.22184E+05 0.11571E-11 0.41228E-21 0.14839E-19 + 5 4 0.46905E-08 0.10000E+01 0.17891E+05 0.14256E-11 0.16010E-20 0.18004E-19 + 5 4 0.46905E-08 0.10000E+01 0.14428E+05 0.18049E-11 0.70379E-20 0.21830E-19 + 5 4 0.46905E-08 0.10000E+01 0.11635E+05 0.24379E-11 0.32479E-19 0.26821E-19 + 5 4 0.46905E-08 0.10000E+01 0.93834E+04 0.36906E-11 0.15146E-18 0.34379E-19 + 5 4 0.46905E-08 0.10000E+01 0.75673E+04 0.64747E-11 0.70278E-18 0.48228E-19 + 5 4 0.46905E-08 0.10000E+01 0.61026E+04 0.13019E-10 0.32144E-17 0.77843E-19 + 5 4 0.46905E-08 0.10000E+01 0.49215E+04 0.28660E-10 0.14373E-16 0.14646E-18 + 5 4 0.46905E-08 0.10000E+01 0.39689E+04 0.65856E-10 0.62536E-16 0.30910E-18 + 5 4 0.46905E-08 0.10000E+01 0.32008E+04 0.15283E-09 0.26470E-15 0.69138E-18 + 5 4 0.46905E-08 0.10000E+01 0.25813E+04 0.35165E-09 0.10911E-14 0.15710E-17 + 5 4 0.46905E-08 0.10000E+01 0.20817E+04 0.79511E-09 0.43772E-14 0.35440E-17 5 4 0.46905E-08 0.10000E+01 0.16788E+04 0.17595E-08 0.17082E-13 0.78530E-17 5 4 0.46905E-08 0.10000E+01 0.13538E+04 0.38033E-08 0.65002E-13 0.17013E-16 5 4 0.46905E-08 0.10000E+01 0.10918E+04 0.80267E-08 0.24257E-12 0.35980E-16 @@ -30400,24 +30400,24 @@ VERSION 2.8.2 5 4 0.46905E-08 0.10000E+01 0.24221E+03 0.80532E-06 0.74300E-09 0.36237E-14 5 4 0.46905E-08 0.10000E+01 0.19533E+03 0.12693E-05 0.14119E-08 0.57110E-14 5 4 0.46905E-08 0.10000E+01 0.15752E+03 0.12693E-05 0.14119E-08 0.57110E-14 - 5 4 0.81846E-08 0.10000E+01 0.80645E+05 0.81612E-55 0.61105E-66 0.26230E-62 - 5 4 0.81846E-08 0.10000E+01 0.65036E+05 0.69082E-54 0.97056E-65 0.22226E-61 - 5 4 0.81846E-08 0.10000E+01 0.52449E+05 0.58717E-53 0.13029E-63 0.18910E-60 - 5 4 0.81846E-08 0.10000E+01 0.42297E+05 0.44142E-52 0.17646E-62 0.14246E-59 - 5 4 0.81846E-08 0.10000E+01 0.34111E+05 0.31758E-51 0.24052E-61 0.10292E-58 - 5 4 0.81846E-08 0.10000E+01 0.27509E+05 0.22670E-50 0.32136E-60 0.74029E-58 - 5 4 0.81846E-08 0.10000E+01 0.22184E+05 0.15965E-49 0.41791E-59 0.52817E-57 - 5 4 0.81846E-08 0.10000E+01 0.17891E+05 0.10999E-48 0.53393E-58 0.37081E-56 - 5 4 0.81846E-08 0.10000E+01 0.14428E+05 0.74486E-48 0.69678E-57 0.25546E-55 - 5 4 0.81846E-08 0.10000E+01 0.11635E+05 0.51031E-47 0.10018E-55 0.17313E-54 - 5 4 0.81846E-08 0.10000E+01 0.93834E+04 0.37725E-46 0.17522E-54 0.11596E-53 - 5 4 0.81846E-08 0.10000E+01 0.75673E+04 0.33136E-45 0.38891E-53 0.77647E-53 - 5 4 0.81846E-08 0.10000E+01 0.61026E+04 0.36711E-44 0.10182E-51 0.54474E-52 - 5 4 0.81846E-08 0.10000E+01 0.49215E+04 0.48759E-43 0.28435E-50 0.45191E-51 - 5 4 0.81846E-08 0.10000E+01 0.39689E+04 0.70352E-42 0.80168E-49 0.49921E-50 - 5 4 0.81846E-08 0.10000E+01 0.32008E+04 0.32604E-39 0.72690E-46 0.21881E-47 - 5 4 0.81846E-08 0.10000E+01 0.25813E+04 0.25011E-30 0.12724E-36 0.17408E-38 - 5 4 0.81846E-08 0.10000E+01 0.20817E+04 0.49905E-14 0.11246E-19 0.36889E-22 + 5 4 0.81846E-08 0.10000E+01 0.80645E+05 0.55157E-12 0.34775E-23 0.17722E-19 + 5 4 0.81846E-08 0.10000E+01 0.65036E+05 0.70754E-12 0.79820E-23 0.22747E-19 + 5 4 0.81846E-08 0.10000E+01 0.52449E+05 0.89487E-12 0.18075E-22 0.28800E-19 + 5 4 0.81846E-08 0.10000E+01 0.42297E+05 0.11198E-11 0.40529E-22 0.36097E-19 + 5 4 0.81846E-08 0.10000E+01 0.34111E+05 0.13891E-11 0.91517E-22 0.44881E-19 + 5 4 0.81846E-08 0.10000E+01 0.27509E+05 0.17106E-11 0.21697E-21 0.55409E-19 + 5 4 0.81846E-08 0.10000E+01 0.22184E+05 0.20953E-11 0.58088E-21 0.67952E-19 + 5 4 0.81846E-08 0.10000E+01 0.17891E+05 0.25644E-11 0.18818E-20 0.82796E-19 + 5 4 0.81846E-08 0.10000E+01 0.14428E+05 0.31690E-11 0.73469E-20 0.10032E-18 + 5 4 0.81846E-08 0.10000E+01 0.11635E+05 0.40425E-11 0.32191E-19 0.12128E-18 + 5 4 0.81846E-08 0.10000E+01 0.93834E+04 0.55294E-11 0.14788E-18 0.14761E-18 + 5 4 0.81846E-08 0.10000E+01 0.75673E+04 0.85028E-11 0.68560E-18 0.18473E-18 + 5 4 0.81846E-08 0.10000E+01 0.61026E+04 0.15124E-10 0.31450E-17 0.24717E-18 + 5 4 0.81846E-08 0.10000E+01 0.49215E+04 0.30609E-10 0.14105E-16 0.37199E-18 + 5 4 0.81846E-08 0.10000E+01 0.39689E+04 0.67192E-10 0.61508E-16 0.64903E-18 + 5 4 0.81846E-08 0.10000E+01 0.32008E+04 0.15266E-09 0.26074E-15 0.12861E-17 + 5 4 0.81846E-08 0.10000E+01 0.25813E+04 0.34820E-09 0.10759E-14 0.27458E-17 + 5 4 0.81846E-08 0.10000E+01 0.20817E+04 0.78483E-09 0.43191E-14 0.60239E-17 5 4 0.81846E-08 0.10000E+01 0.16788E+04 0.17353E-08 0.16861E-13 0.13201E-16 5 4 0.81846E-08 0.10000E+01 0.13538E+04 0.37511E-08 0.64173E-13 0.28489E-16 5 4 0.81846E-08 0.10000E+01 0.10918E+04 0.79186E-08 0.23949E-12 0.60191E-16 @@ -30430,24 +30430,24 @@ VERSION 2.8.2 5 4 0.81846E-08 0.10000E+01 0.24221E+03 0.79490E-06 0.73331E-09 0.60584E-14 5 4 0.81846E-08 0.10000E+01 0.19533E+03 0.12528E-05 0.13935E-08 0.95472E-14 5 4 0.81846E-08 0.10000E+01 0.15752E+03 0.12528E-05 0.13935E-08 0.95472E-14 - 5 4 0.14282E-07 0.10000E+01 0.80645E+05 0.13919E-54 0.10439E-65 0.36585E-61 - 5 4 0.14282E-07 0.10000E+01 0.65036E+05 0.11798E-53 0.16602E-64 0.31050E-60 - 5 4 0.14282E-07 0.10000E+01 0.52449E+05 0.10042E-52 0.22360E-63 0.26457E-59 - 5 4 0.14282E-07 0.10000E+01 0.42297E+05 0.75697E-52 0.30477E-62 0.19985E-58 - 5 4 0.14282E-07 0.10000E+01 0.34111E+05 0.54756E-51 0.42026E-61 0.14509E-57 - 5 4 0.14282E-07 0.10000E+01 0.27509E+05 0.39489E-50 0.57410E-60 0.10523E-56 - 5 4 0.14282E-07 0.10000E+01 0.22184E+05 0.28344E-49 0.77604E-59 0.76135E-56 - 5 4 0.14282E-07 0.10000E+01 0.17891E+05 0.20179E-48 0.10477E-57 0.54676E-55 - 5 4 0.14282E-07 0.10000E+01 0.14428E+05 0.14330E-47 0.14437E-56 0.38937E-54 - 5 4 0.14282E-07 0.10000E+01 0.11635E+05 0.10325E-46 0.20984E-55 0.27543E-53 - 5 4 0.14282E-07 0.10000E+01 0.93834E+04 0.77759E-46 0.33617E-54 0.19375E-52 - 5 4 0.14282E-07 0.10000E+01 0.75673E+04 0.63890E-45 0.62160E-53 0.13530E-51 - 5 4 0.14282E-07 0.10000E+01 0.61026E+04 0.60098E-44 0.13468E-51 0.93431E-51 - 5 4 0.14282E-07 0.10000E+01 0.49215E+04 0.66226E-43 0.33060E-50 0.63630E-50 - 5 4 0.14282E-07 0.10000E+01 0.39689E+04 0.83349E-42 0.87129E-49 0.43077E-49 - 5 4 0.14282E-07 0.10000E+01 0.32008E+04 0.35813E-39 0.76588E-46 0.95785E-47 - 5 4 0.14282E-07 0.10000E+01 0.25813E+04 0.26524E-30 0.13200E-36 0.43005E-38 - 5 4 0.14282E-07 0.10000E+01 0.20817E+04 0.52084E-14 0.11528E-19 0.76061E-22 + 5 4 0.14282E-07 0.10000E+01 0.80645E+05 0.94022E-12 0.60264E-23 0.24700E-18 + 5 4 0.14282E-07 0.10000E+01 0.65036E+05 0.12071E-11 0.14018E-22 0.31730E-18 + 5 4 0.14282E-07 0.10000E+01 0.52449E+05 0.15289E-11 0.32420E-22 0.40227E-18 + 5 4 0.14282E-07 0.10000E+01 0.42297E+05 0.19179E-11 0.74829E-22 0.50526E-18 + 5 4 0.14282E-07 0.10000E+01 0.34111E+05 0.23887E-11 0.17419E-21 0.63028E-18 + 5 4 0.14282E-07 0.10000E+01 0.27509E+05 0.29590E-11 0.41775E-21 0.78193E-18 + 5 4 0.14282E-07 0.10000E+01 0.22184E+05 0.36533E-11 0.10704E-20 0.96550E-18 + 5 4 0.14282E-07 0.10000E+01 0.17891E+05 0.45101E-11 0.30738E-20 0.11869E-17 + 5 4 0.14282E-07 0.10000E+01 0.14428E+05 0.56033E-11 0.10241E-19 0.14529E-17 + 5 4 0.14282E-07 0.10000E+01 0.11635E+05 0.70946E-11 0.39269E-19 0.17704E-17 + 5 4 0.14282E-07 0.10000E+01 0.93834E+04 0.93656E-11 0.16586E-18 0.21477E-17 + 5 4 0.14282E-07 0.10000E+01 0.75673E+04 0.13341E-10 0.73511E-18 0.25953E-17 + 5 4 0.14282E-07 0.10000E+01 0.61026E+04 0.21270E-10 0.32971E-17 0.31324E-17 + 5 4 0.14282E-07 0.10000E+01 0.49215E+04 0.38535E-10 0.14621E-16 0.38054E-17 + 5 4 0.14282E-07 0.10000E+01 0.39689E+04 0.77717E-10 0.63357E-16 0.47335E-17 + 5 4 0.14282E-07 0.10000E+01 0.32008E+04 0.16731E-09 0.26754E-15 0.62104E-17 + 5 4 0.14282E-07 0.10000E+01 0.25813E+04 0.36995E-09 0.11010E-14 0.89194E-17 + 5 4 0.14282E-07 0.10000E+01 0.20817E+04 0.81948E-09 0.44113E-14 0.14368E-16 5 4 0.14282E-07 0.10000E+01 0.16788E+04 0.17941E-08 0.17199E-13 0.25744E-16 5 4 0.14282E-07 0.10000E+01 0.13538E+04 0.38560E-08 0.65408E-13 0.49517E-16 5 4 0.14282E-07 0.10000E+01 0.10918E+04 0.81115E-08 0.24399E-12 0.98423E-16 @@ -30460,24 +30460,24 @@ VERSION 2.8.2 5 4 0.14282E-07 0.10000E+01 0.24221E+03 0.80972E-06 0.74686E-09 0.92030E-14 5 4 0.14282E-07 0.10000E+01 0.19533E+03 0.12761E-05 0.14192E-08 0.14485E-13 5 4 0.14282E-07 0.10000E+01 0.15752E+03 0.12761E-05 0.14192E-08 0.14485E-13 - 5 4 0.24920E-07 0.10000E+01 0.80645E+05 0.23815E-54 0.17870E-65 0.10646E-60 - 5 4 0.24920E-07 0.10000E+01 0.65036E+05 0.20195E-53 0.28429E-64 0.90380E-60 - 5 4 0.24920E-07 0.10000E+01 0.52449E+05 0.17194E-52 0.38319E-63 0.77028E-59 - 5 4 0.24920E-07 0.10000E+01 0.42297E+05 0.12970E-51 0.52297E-62 0.58211E-58 - 5 4 0.24920E-07 0.10000E+01 0.34111E+05 0.93923E-51 0.72250E-61 0.42294E-57 - 5 4 0.24920E-07 0.10000E+01 0.27509E+05 0.67848E-50 0.98927E-60 0.30713E-56 - 5 4 0.24920E-07 0.10000E+01 0.22184E+05 0.48799E-49 0.13392E-58 0.22264E-55 - 5 4 0.24920E-07 0.10000E+01 0.17891E+05 0.34789E-48 0.18016E-57 0.16037E-54 - 5 4 0.24920E-07 0.10000E+01 0.14428E+05 0.24640E-47 0.24410E-56 0.11467E-53 - 5 4 0.24920E-07 0.10000E+01 0.11635E+05 0.17512E-46 0.33970E-55 0.81521E-53 - 5 4 0.24920E-07 0.10000E+01 0.93834E+04 0.12709E-45 0.50017E-54 0.57676E-52 - 5 4 0.24920E-07 0.10000E+01 0.75673E+04 0.96865E-45 0.81625E-53 0.40548E-51 - 5 4 0.24920E-07 0.10000E+01 0.61026E+04 0.81035E-44 0.15493E-51 0.28220E-50 - 5 4 0.24920E-07 0.10000E+01 0.49215E+04 0.78194E-43 0.34519E-50 0.19353E-49 - 5 4 0.24920E-07 0.10000E+01 0.39689E+04 0.88633E-42 0.86583E-49 0.13059E-48 - 5 4 0.24920E-07 0.10000E+01 0.32008E+04 0.35959E-39 0.74827E-46 0.27771E-46 - 5 4 0.24920E-07 0.10000E+01 0.25813E+04 0.26112E-30 0.12896E-36 0.10865E-37 - 5 4 0.24920E-07 0.10000E+01 0.20817E+04 0.51432E-14 0.11331E-19 0.16502E-21 + 5 4 0.24920E-07 0.10000E+01 0.80645E+05 0.16085E-11 0.10341E-22 0.71868E-18 + 5 4 0.24920E-07 0.10000E+01 0.65036E+05 0.20654E-11 0.24084E-22 0.92336E-18 + 5 4 0.24920E-07 0.10000E+01 0.52449E+05 0.26168E-11 0.55723E-22 0.11709E-17 + 5 4 0.24920E-07 0.10000E+01 0.42297E+05 0.32837E-11 0.12828E-21 0.14711E-17 + 5 4 0.24920E-07 0.10000E+01 0.34111E+05 0.40910E-11 0.29546E-21 0.18360E-17 + 5 4 0.24920E-07 0.10000E+01 0.27509E+05 0.50683E-11 0.68898E-21 0.22793E-17 + 5 4 0.24920E-07 0.10000E+01 0.22184E+05 0.62524E-11 0.16645E-20 0.28171E-17 + 5 4 0.24920E-07 0.10000E+01 0.17891E+05 0.76946E-11 0.43304E-20 0.34678E-17 + 5 4 0.24920E-07 0.10000E+01 0.14428E+05 0.94794E-11 0.12738E-19 0.42517E-17 + 5 4 0.24920E-07 0.10000E+01 0.11635E+05 0.11774E-10 0.43656E-19 0.51915E-17 + 5 4 0.24920E-07 0.10000E+01 0.93834E+04 0.14953E-10 0.17142E-18 0.63114E-17 + 5 4 0.24920E-07 0.10000E+01 0.75673E+04 0.19908E-10 0.73329E-18 0.76386E-17 + 5 4 0.24920E-07 0.10000E+01 0.61026E+04 0.28808E-10 0.32459E-17 0.92112E-17 + 5 4 0.24920E-07 0.10000E+01 0.49215E+04 0.46882E-10 0.14348E-16 0.11104E-16 + 5 4 0.24920E-07 0.10000E+01 0.39689E+04 0.86407E-10 0.62191E-16 0.13503E-16 + 5 4 0.24920E-07 0.10000E+01 0.32008E+04 0.17531E-09 0.26290E-15 0.16870E-16 + 5 4 0.24920E-07 0.10000E+01 0.25813E+04 0.37513E-09 0.10830E-14 0.22305E-16 + 5 4 0.24920E-07 0.10000E+01 0.20817E+04 0.81758E-09 0.43427E-14 0.32276E-16 5 4 0.24920E-07 0.10000E+01 0.16788E+04 0.17767E-08 0.16939E-13 0.52040E-16 5 4 0.24920E-07 0.10000E+01 0.13538E+04 0.38062E-08 0.64428E-13 0.92320E-16 5 4 0.24920E-07 0.10000E+01 0.10918E+04 0.79962E-08 0.24033E-12 0.17422E-15 @@ -30490,24 +30490,24 @@ VERSION 2.8.2 5 4 0.24920E-07 0.10000E+01 0.24221E+03 0.79730E-06 0.73525E-09 0.15185E-13 5 4 0.24920E-07 0.10000E+01 0.19533E+03 0.12565E-05 0.13972E-08 0.23878E-13 5 4 0.24920E-07 0.10000E+01 0.15752E+03 0.12565E-05 0.13972E-08 0.23878E-13 - 5 4 0.43485E-07 0.10000E+01 0.80645E+05 0.40431E-54 0.30351E-65 0.30695E-60 - 5 4 0.43485E-07 0.10000E+01 0.65036E+05 0.34297E-53 0.48297E-64 0.26064E-59 - 5 4 0.43485E-07 0.10000E+01 0.52449E+05 0.29210E-52 0.65146E-63 0.22219E-58 - 5 4 0.43485E-07 0.10000E+01 0.42297E+05 0.22046E-51 0.89013E-62 0.16797E-57 - 5 4 0.43485E-07 0.10000E+01 0.34111E+05 0.15981E-50 0.12319E-60 0.12212E-56 - 5 4 0.43485E-07 0.10000E+01 0.27509E+05 0.11563E-49 0.16911E-59 0.88780E-56 - 5 4 0.43485E-07 0.10000E+01 0.22184E+05 0.83350E-49 0.22960E-58 0.64465E-55 - 5 4 0.43485E-07 0.10000E+01 0.17891E+05 0.59576E-48 0.30926E-57 0.46551E-54 - 5 4 0.43485E-07 0.10000E+01 0.14428E+05 0.42250E-47 0.41679E-56 0.33401E-53 - 5 4 0.43485E-07 0.10000E+01 0.11635E+05 0.29910E-46 0.56834E-55 0.23844E-52 - 5 4 0.43485E-07 0.10000E+01 0.93834E+04 0.21348E-45 0.79709E-54 0.16950E-51 - 5 4 0.43485E-07 0.10000E+01 0.75673E+04 0.15604E-44 0.11874E-52 0.11983E-50 - 5 4 0.43485E-07 0.10000E+01 0.61026E+04 0.12028E-43 0.19803E-51 0.83971E-50 - 5 4 0.43485E-07 0.10000E+01 0.49215E+04 0.10269E-42 0.38804E-50 0.58065E-49 - 5 4 0.43485E-07 0.10000E+01 0.39689E+04 0.10216E-41 0.89263E-49 0.39440E-48 - 5 4 0.43485E-07 0.10000E+01 0.32008E+04 0.37711E-39 0.74085E-46 0.83070E-46 - 5 4 0.43485E-07 0.10000E+01 0.25813E+04 0.26201E-30 0.12640E-36 0.30250E-37 - 5 4 0.43485E-07 0.10000E+01 0.20817E+04 0.51369E-14 0.11153E-19 0.39794E-21 + 5 4 0.43485E-07 0.10000E+01 0.80645E+05 0.27303E-11 0.17604E-22 0.20718E-17 + 5 4 0.43485E-07 0.10000E+01 0.65036E+05 0.35065E-11 0.41060E-22 0.26622E-17 + 5 4 0.43485E-07 0.10000E+01 0.52449E+05 0.44437E-11 0.95148E-22 0.33764E-17 + 5 4 0.43485E-07 0.10000E+01 0.42297E+05 0.55782E-11 0.21914E-21 0.42434E-17 + 5 4 0.43485E-07 0.10000E+01 0.34111E+05 0.69529E-11 0.50308E-21 0.52981E-17 + 5 4 0.43485E-07 0.10000E+01 0.27509E+05 0.86179E-11 0.11585E-20 0.65814E-17 + 5 4 0.43485E-07 0.10000E+01 0.22184E+05 0.10633E-10 0.27112E-20 0.81411E-17 + 5 4 0.43485E-07 0.10000E+01 0.17891E+05 0.13074E-10 0.66104E-20 0.10032E-16 + 5 4 0.43485E-07 0.10000E+01 0.14428E+05 0.16050E-10 0.17515E-19 0.12318E-16 + 5 4 0.43485E-07 0.10000E+01 0.11635E+05 0.19748E-10 0.52997E-19 0.15068E-16 + 5 4 0.43485E-07 0.10000E+01 0.93834E+04 0.24549E-10 0.18738E-18 0.18356E-16 + 5 4 0.43485E-07 0.10000E+01 0.75673E+04 0.31325E-10 0.75234E-18 0.22264E-16 + 5 4 0.43485E-07 0.10000E+01 0.61026E+04 0.42173E-10 0.32353E-17 0.26882E-16 + 5 4 0.43485E-07 0.10000E+01 0.49215E+04 0.62161E-10 0.14156E-16 0.32346E-16 + 5 4 0.43485E-07 0.10000E+01 0.39689E+04 0.10326E-09 0.61212E-16 0.38947E-16 + 5 4 0.43485E-07 0.10000E+01 0.32008E+04 0.19284E-09 0.25882E-15 0.47395E-16 + 5 4 0.43485E-07 0.10000E+01 0.25813E+04 0.39139E-09 0.10671E-14 0.59418E-16 + 5 4 0.43485E-07 0.10000E+01 0.20817E+04 0.82869E-09 0.42817E-14 0.78975E-16 5 4 0.43485E-07 0.10000E+01 0.16788E+04 0.17750E-08 0.16708E-13 0.11463E-15 5 4 0.43485E-07 0.10000E+01 0.13538E+04 0.37767E-08 0.63556E-13 0.18396E-15 5 4 0.43485E-07 0.10000E+01 0.10918E+04 0.79093E-08 0.23705E-12 0.32161E-15 @@ -30520,24 +30520,24 @@ VERSION 2.8.2 5 4 0.43485E-07 0.10000E+01 0.24221E+03 0.78606E-06 0.72466E-09 0.24845E-13 5 4 0.43485E-07 0.10000E+01 0.19533E+03 0.12387E-05 0.13770E-08 0.39015E-13 5 4 0.43485E-07 0.10000E+01 0.15752E+03 0.12387E-05 0.13770E-08 0.39015E-13 - 5 4 0.75878E-07 0.10000E+01 0.80645E+05 0.68127E-54 0.51161E-65 0.88361E-60 - 5 4 0.75878E-07 0.10000E+01 0.65036E+05 0.57809E-53 0.81434E-64 0.75048E-59 - 5 4 0.75878E-07 0.10000E+01 0.52449E+05 0.49248E-52 0.10991E-62 0.63987E-58 - 5 4 0.75878E-07 0.10000E+01 0.42297E+05 0.37189E-51 0.15034E-61 0.48391E-57 - 5 4 0.75878E-07 0.10000E+01 0.34111E+05 0.26983E-50 0.20841E-60 0.35203E-56 - 5 4 0.75878E-07 0.10000E+01 0.27509E+05 0.19551E-49 0.28680E-59 0.25616E-55 - 5 4 0.75878E-07 0.10000E+01 0.22184E+05 0.14125E-48 0.39068E-58 0.18628E-54 - 5 4 0.75878E-07 0.10000E+01 0.17891E+05 0.10125E-47 0.52785E-57 0.13481E-53 - 5 4 0.75878E-07 0.10000E+01 0.14428E+05 0.72013E-47 0.71149E-56 0.97013E-53 - 5 4 0.75878E-07 0.10000E+01 0.11635E+05 0.51013E-46 0.96280E-55 0.69500E-52 - 5 4 0.75878E-07 0.10000E+01 0.93834E+04 0.36198E-45 0.13180E-53 0.49604E-51 - 5 4 0.75878E-07 0.10000E+01 0.75673E+04 0.25929E-44 0.18575E-52 0.35234E-50 - 5 4 0.75878E-07 0.10000E+01 0.61026E+04 0.19049E-43 0.28012E-51 0.24837E-49 - 5 4 0.75878E-07 0.10000E+01 0.49215E+04 0.14850E-42 0.47945E-50 0.17306E-48 - 5 4 0.75878E-07 0.10000E+01 0.39689E+04 0.12981E-41 0.97439E-49 0.11861E-47 - 5 4 0.75878E-07 0.10000E+01 0.32008E+04 0.42189E-39 0.74867E-46 0.25103E-45 - 5 4 0.75878E-07 0.10000E+01 0.25813E+04 0.27057E-30 0.12384E-36 0.88954E-37 - 5 4 0.75878E-07 0.10000E+01 0.20817E+04 0.51954E-14 0.10909E-19 0.10517E-20 + 5 4 0.75878E-07 0.10000E+01 0.80645E+05 0.46000E-11 0.29739E-22 0.59636E-17 + 5 4 0.75878E-07 0.10000E+01 0.65036E+05 0.59086E-11 0.69468E-22 0.76638E-17 + 5 4 0.75878E-07 0.10000E+01 0.52449E+05 0.74897E-11 0.16128E-21 0.97213E-17 + 5 4 0.75878E-07 0.10000E+01 0.42297E+05 0.94051E-11 0.37212E-21 0.12221E-16 + 5 4 0.75878E-07 0.10000E+01 0.34111E+05 0.11729E-10 0.85447E-21 0.15264E-16 + 5 4 0.75878E-07 0.10000E+01 0.27509E+05 0.14546E-10 0.19593E-20 0.18971E-16 + 5 4 0.75878E-07 0.10000E+01 0.22184E+05 0.17957E-10 0.45161E-20 0.23484E-16 + 5 4 0.75878E-07 0.10000E+01 0.17891E+05 0.22084E-10 0.10612E-19 0.28968E-16 + 5 4 0.75878E-07 0.10000E+01 0.14428E+05 0.27084E-10 0.26141E-19 0.35612E-16 + 5 4 0.75878E-07 0.10000E+01 0.11635E+05 0.33188E-10 0.70720E-19 0.43630E-16 + 5 4 0.75878E-07 0.10000E+01 0.93834E+04 0.40809E-10 0.22073E-18 0.53256E-16 + 5 4 0.75878E-07 0.10000E+01 0.75673E+04 0.50817E-10 0.80429E-18 0.64737E-16 + 5 4 0.75878E-07 0.10000E+01 0.61026E+04 0.65241E-10 0.32756E-17 0.78330E-16 + 5 4 0.75878E-07 0.10000E+01 0.49215E+04 0.88952E-10 0.13998E-16 0.94334E-16 + 5 4 0.75878E-07 0.10000E+01 0.39689E+04 0.13351E-09 0.60038E-16 0.11323E-15 + 5 4 0.75878E-07 0.10000E+01 0.32008E+04 0.22549E-09 0.25336E-15 0.13611E-15 + 5 4 0.75878E-07 0.10000E+01 0.25813E+04 0.42388E-09 0.10446E-14 0.16558E-15 + 5 4 0.75878E-07 0.10000E+01 0.20817E+04 0.85558E-09 0.41937E-14 0.20782E-15 5 4 0.75878E-07 0.10000E+01 0.16788E+04 0.17853E-08 0.16369E-13 0.27645E-15 5 4 0.75878E-07 0.10000E+01 0.13538E+04 0.37483E-08 0.62269E-13 0.39984E-15 5 4 0.75878E-07 0.10000E+01 0.10918E+04 0.77987E-08 0.23221E-12 0.63409E-15 @@ -30550,24 +30550,24 @@ VERSION 2.8.2 5 4 0.75878E-07 0.10000E+01 0.24221E+03 0.76949E-06 0.70904E-09 0.40216E-13 5 4 0.75878E-07 0.10000E+01 0.19533E+03 0.12124E-05 0.13473E-08 0.63007E-13 5 4 0.75878E-07 0.10000E+01 0.15752E+03 0.12124E-05 0.13473E-08 0.63007E-13 - 5 4 0.13240E-06 0.10000E+01 0.80645E+05 0.11404E-53 0.85668E-65 0.25322E-59 - 5 4 0.13240E-06 0.10000E+01 0.65036E+05 0.96793E-53 0.13639E-63 0.21511E-58 - 5 4 0.13240E-06 0.10000E+01 0.52449E+05 0.82480E-52 0.18419E-62 0.18344E-57 - 5 4 0.13240E-06 0.10000E+01 0.42297E+05 0.62312E-51 0.25218E-61 0.13877E-56 - 5 4 0.13240E-06 0.10000E+01 0.34111E+05 0.45248E-50 0.35009E-60 0.10101E-55 - 5 4 0.13240E-06 0.10000E+01 0.27509E+05 0.32828E-49 0.48286E-59 0.73558E-55 - 5 4 0.13240E-06 0.10000E+01 0.22184E+05 0.23764E-48 0.65988E-58 0.53560E-54 - 5 4 0.13240E-06 0.10000E+01 0.17891E+05 0.17084E-47 0.89483E-57 0.38835E-53 - 5 4 0.13240E-06 0.10000E+01 0.14428E+05 0.12191E-46 0.12092E-55 0.28019E-52 - 5 4 0.13240E-06 0.10000E+01 0.11635E+05 0.86581E-46 0.16341E-54 0.20134E-51 - 5 4 0.13240E-06 0.10000E+01 0.93834E+04 0.61408E-45 0.22149E-53 0.14420E-50 - 5 4 0.13240E-06 0.10000E+01 0.75673E+04 0.43644E-44 0.30344E-52 0.10284E-49 - 5 4 0.13240E-06 0.10000E+01 0.61026E+04 0.31304E-43 0.42957E-51 0.72851E-49 - 5 4 0.13240E-06 0.10000E+01 0.49215E+04 0.23095E-42 0.65819E-50 0.51095E-48 - 5 4 0.13240E-06 0.10000E+01 0.39689E+04 0.18255E-41 0.11641E-48 0.35324E-47 - 5 4 0.13240E-06 0.10000E+01 0.32008E+04 0.51870E-39 0.79438E-46 0.75453E-45 - 5 4 0.13240E-06 0.10000E+01 0.25813E+04 0.29610E-30 0.12290E-36 0.26623E-36 - 5 4 0.13240E-06 0.10000E+01 0.20817E+04 0.54210E-14 0.10650E-19 0.29473E-20 + 5 4 0.13240E-06 0.10000E+01 0.80645E+05 0.76989E-11 0.49893E-22 0.17089E-16 + 5 4 0.13240E-06 0.10000E+01 0.65036E+05 0.98905E-11 0.11671E-21 0.21963E-16 + 5 4 0.13240E-06 0.10000E+01 0.52449E+05 0.12540E-10 0.27149E-21 0.27863E-16 + 5 4 0.13240E-06 0.10000E+01 0.42297E+05 0.15752E-10 0.62778E-21 0.35034E-16 + 5 4 0.13240E-06 0.10000E+01 0.34111E+05 0.19652E-10 0.14441E-20 0.43772E-16 + 5 4 0.13240E-06 0.10000E+01 0.27509E+05 0.24388E-10 0.33104E-20 0.54428E-16 + 5 4 0.13240E-06 0.10000E+01 0.22184E+05 0.30130E-10 0.75871E-20 0.67420E-16 + 5 4 0.13240E-06 0.10000E+01 0.17891E+05 0.37080E-10 0.17507E-19 0.83234E-16 + 5 4 0.13240E-06 0.10000E+01 0.14428E+05 0.45482E-10 0.41323E-19 0.10244E-15 + 5 4 0.13240E-06 0.10000E+01 0.11635E+05 0.55661E-10 0.10306E-18 0.12568E-15 + 5 4 0.13240E-06 0.10000E+01 0.93834E+04 0.68111E-10 0.28580E-18 0.15367E-15 + 5 4 0.13240E-06 0.10000E+01 0.75673E+04 0.83748E-10 0.92217E-18 0.18719E-15 + 5 4 0.13240E-06 0.10000E+01 0.61026E+04 0.10457E-09 0.34434E-17 0.22701E-15 + 5 4 0.13240E-06 0.10000E+01 0.49215E+04 0.13526E-09 0.14058E-16 0.27395E-15 + 5 4 0.13240E-06 0.10000E+01 0.39689E+04 0.18691E-09 0.59151E-16 0.32897E-15 + 5 4 0.13240E-06 0.10000E+01 0.32008E+04 0.28519E-09 0.24796E-15 0.39375E-15 + 5 4 0.13240E-06 0.10000E+01 0.25813E+04 0.48732E-09 0.10206E-14 0.47213E-15 + 5 4 0.13240E-06 0.10000E+01 0.20817E+04 0.91685E-09 0.40965E-14 0.57337E-15 5 4 0.13240E-06 0.10000E+01 0.16788E+04 0.18320E-08 0.15990E-13 0.71848E-15 5 4 0.13240E-06 0.10000E+01 0.13538E+04 0.37558E-08 0.60820E-13 0.95204E-15 5 4 0.13240E-06 0.10000E+01 0.10918E+04 0.77175E-08 0.22673E-12 0.13632E-14 @@ -30580,24 +30580,24 @@ VERSION 2.8.2 5 4 0.13240E-06 0.10000E+01 0.24221E+03 0.75067E-06 0.69119E-09 0.64346E-13 5 4 0.13240E-06 0.10000E+01 0.19533E+03 0.11825E-05 0.13134E-08 0.10041E-12 5 4 0.13240E-06 0.10000E+01 0.15752E+03 0.11825E-05 0.13134E-08 0.10041E-12 - 5 4 0.23103E-06 0.10000E+01 0.80645E+05 0.18975E-53 0.14259E-64 0.72279E-59 - 5 4 0.23103E-06 0.10000E+01 0.65036E+05 0.16110E-52 0.22706E-63 0.61412E-58 - 5 4 0.23103E-06 0.10000E+01 0.52449E+05 0.13731E-51 0.30679E-62 0.52377E-57 - 5 4 0.23103E-06 0.10000E+01 0.42297E+05 0.10377E-50 0.42038E-61 0.39633E-56 - 5 4 0.23103E-06 0.10000E+01 0.34111E+05 0.75410E-50 0.58435E-60 0.28861E-55 - 5 4 0.23103E-06 0.10000E+01 0.27509E+05 0.54775E-49 0.80761E-59 0.21034E-54 - 5 4 0.23103E-06 0.10000E+01 0.22184E+05 0.39722E-48 0.11070E-57 0.15333E-53 - 5 4 0.23103E-06 0.10000E+01 0.17891E+05 0.28631E-47 0.15065E-56 0.11136E-52 - 5 4 0.23103E-06 0.10000E+01 0.14428E+05 0.20497E-46 0.20424E-55 0.80524E-52 - 5 4 0.23103E-06 0.10000E+01 0.11635E+05 0.14604E-45 0.27647E-54 0.58017E-51 - 5 4 0.23103E-06 0.10000E+01 0.93834E+04 0.10378E-44 0.37378E-53 0.41677E-50 - 5 4 0.23103E-06 0.10000E+01 0.75673E+04 0.73641E-44 0.50587E-52 0.29825E-49 - 5 4 0.23103E-06 0.10000E+01 0.61026E+04 0.52300E-43 0.69261E-51 0.21219E-48 - 5 4 0.23103E-06 0.10000E+01 0.49215E+04 0.37503E-42 0.98657E-50 0.14965E-47 - 5 4 0.23103E-06 0.10000E+01 0.39689E+04 0.27810E-41 0.15449E-48 0.10424E-46 - 5 4 0.23103E-06 0.10000E+01 0.32008E+04 0.70661E-39 0.91177E-46 0.22480E-44 - 5 4 0.23103E-06 0.10000E+01 0.25813E+04 0.35265E-30 0.12560E-36 0.79729E-36 - 5 4 0.23103E-06 0.10000E+01 0.20817E+04 0.59552E-14 0.10398E-19 0.85184E-20 + 5 4 0.23103E-06 0.10000E+01 0.80645E+05 0.12809E-10 0.83188E-22 0.48774E-16 + 5 4 0.23103E-06 0.10000E+01 0.65036E+05 0.16457E-10 0.19485E-21 0.62690E-16 + 5 4 0.23103E-06 0.10000E+01 0.52449E+05 0.20869E-10 0.45407E-21 0.79543E-16 + 5 4 0.23103E-06 0.10000E+01 0.42297E+05 0.26223E-10 0.10523E-20 0.10003E-15 + 5 4 0.23103E-06 0.10000E+01 0.34111E+05 0.32730E-10 0.24262E-20 0.12502E-15 + 5 4 0.23103E-06 0.10000E+01 0.27509E+05 0.40642E-10 0.55706E-20 0.15552E-15 + 5 4 0.23103E-06 0.10000E+01 0.22184E+05 0.50248E-10 0.12755E-19 0.19275E-15 + 5 4 0.23103E-06 0.10000E+01 0.17891E+05 0.61891E-10 0.29217E-19 0.23814E-15 + 5 4 0.23103E-06 0.10000E+01 0.14428E+05 0.75972E-10 0.67474E-19 0.29337E-15 + 5 4 0.23103E-06 0.10000E+01 0.11635E+05 0.92986E-10 0.16011E-18 0.36036E-15 + 5 4 0.23103E-06 0.10000E+01 0.93834E+04 0.11360E-09 0.40547E-18 0.44130E-15 + 5 4 0.23103E-06 0.10000E+01 0.75673E+04 0.13886E-09 0.11569E-17 0.53856E-15 + 5 4 0.23103E-06 0.10000E+01 0.61026E+04 0.17082E-09 0.38488E-17 0.65459E-15 + 5 4 0.23103E-06 0.10000E+01 0.49215E+04 0.21404E-09 0.14565E-16 0.79183E-15 + 5 4 0.23103E-06 0.10000E+01 0.39689E+04 0.27914E-09 0.58990E-16 0.95271E-15 + 5 4 0.23103E-06 0.10000E+01 0.32008E+04 0.39073E-09 0.24339E-15 0.11402E-14 + 5 4 0.23103E-06 0.10000E+01 0.25813E+04 0.60397E-09 0.99617E-15 0.13601E-14 + 5 4 0.23103E-06 0.10000E+01 0.20817E+04 0.10385E-08 0.39916E-14 0.16255E-14 5 4 0.23103E-06 0.10000E+01 0.16788E+04 0.19452E-08 0.15572E-13 0.19675E-14 5 4 0.23103E-06 0.10000E+01 0.13538E+04 0.38328E-08 0.59201E-13 0.24536E-14 5 4 0.23103E-06 0.10000E+01 0.10918E+04 0.77028E-08 0.22058E-12 0.32212E-14 @@ -30610,24 +30610,24 @@ VERSION 2.8.2 5 4 0.23103E-06 0.10000E+01 0.24221E+03 0.72950E-06 0.67094E-09 0.10182E-12 5 4 0.23103E-06 0.10000E+01 0.19533E+03 0.11488E-05 0.12748E-08 0.15773E-12 5 4 0.23103E-06 0.10000E+01 0.15752E+03 0.11488E-05 0.12748E-08 0.15773E-12 - 5 4 0.40314E-06 0.10000E+01 0.80645E+05 0.31405E-53 0.23606E-64 0.20559E-58 - 5 4 0.40314E-06 0.10000E+01 0.65036E+05 0.26668E-52 0.37597E-63 0.17471E-57 - 5 4 0.40314E-06 0.10000E+01 0.52449E+05 0.22735E-51 0.50821E-62 0.14903E-56 - 5 4 0.40314E-06 0.10000E+01 0.42297E+05 0.17189E-50 0.69689E-61 0.11279E-55 - 5 4 0.40314E-06 0.10000E+01 0.34111E+05 0.12499E-49 0.96983E-60 0.82172E-55 - 5 4 0.40314E-06 0.10000E+01 0.27509E+05 0.90878E-49 0.13428E-58 0.59925E-54 - 5 4 0.40314E-06 0.10000E+01 0.22184E+05 0.66009E-48 0.18453E-57 0.43727E-53 - 5 4 0.40314E-06 0.10000E+01 0.17891E+05 0.47689E-47 0.25198E-56 0.31805E-52 - 5 4 0.40314E-06 0.10000E+01 0.14428E+05 0.34244E-46 0.34279E-55 0.23042E-51 - 5 4 0.40314E-06 0.10000E+01 0.11635E+05 0.24478E-45 0.46527E-54 0.16641E-50 - 5 4 0.40314E-06 0.10000E+01 0.93834E+04 0.17444E-44 0.62961E-53 0.11985E-49 - 5 4 0.40314E-06 0.10000E+01 0.75673E+04 0.12394E-43 0.84906E-52 0.86030E-49 - 5 4 0.40314E-06 0.10000E+01 0.61026E+04 0.87794E-43 0.11454E-50 0.61430E-48 - 5 4 0.40314E-06 0.10000E+01 0.49215E+04 0.62188E-42 0.15674E-49 0.43531E-47 - 5 4 0.40314E-06 0.10000E+01 0.39689E+04 0.44565E-41 0.22544E-48 0.30518E-46 - 5 4 0.40314E-06 0.10000E+01 0.32008E+04 0.10504E-38 0.11578E-45 0.66379E-44 - 5 4 0.40314E-06 0.10000E+01 0.25813E+04 0.46382E-30 0.13557E-36 0.23733E-35 - 5 4 0.40314E-06 0.10000E+01 0.20817E+04 0.70378E-14 0.10191E-19 0.24925E-19 + 5 4 0.40314E-06 0.10000E+01 0.80645E+05 0.21197E-10 0.13793E-21 0.13873E-15 + 5 4 0.40314E-06 0.10000E+01 0.65036E+05 0.27238E-10 0.32344E-21 0.17832E-15 + 5 4 0.40314E-06 0.10000E+01 0.52449E+05 0.34546E-10 0.75497E-21 0.22628E-15 + 5 4 0.40314E-06 0.10000E+01 0.42297E+05 0.43419E-10 0.17533E-20 0.28462E-15 + 5 4 0.40314E-06 0.10000E+01 0.34111E+05 0.54215E-10 0.40523E-20 0.35580E-15 + 5 4 0.40314E-06 0.10000E+01 0.27509E+05 0.67356E-10 0.93254E-20 0.44276E-15 + 5 4 0.40314E-06 0.10000E+01 0.22184E+05 0.83337E-10 0.21380E-19 0.54903E-15 + 5 4 0.40314E-06 0.10000E+01 0.17891E+05 0.10274E-09 0.48885E-19 0.67878E-15 + 5 4 0.40314E-06 0.10000E+01 0.14428E+05 0.12623E-09 0.11184E-18 0.83691E-15 + 5 4 0.40314E-06 0.10000E+01 0.11635E+05 0.15462E-09 0.25847E-18 0.10291E-14 + 5 4 0.40314E-06 0.10000E+01 0.93834E+04 0.18888E-09 0.61755E-18 0.12620E-14 + 5 4 0.40314E-06 0.10000E+01 0.75673E+04 0.23040E-09 0.15935E-17 0.15427E-14 + 5 4 0.40314E-06 0.10000E+01 0.61026E+04 0.28141E-09 0.46789E-17 0.18789E-14 + 5 4 0.40314E-06 0.10000E+01 0.49215E+04 0.34650E-09 0.15914E-16 0.22783E-14 + 5 4 0.40314E-06 0.10000E+01 0.39689E+04 0.43589E-09 0.60356E-16 0.27480E-14 + 5 4 0.40314E-06 0.10000E+01 0.32008E+04 0.57304E-09 0.24117E-15 0.32953E-14 + 5 4 0.40314E-06 0.10000E+01 0.25813E+04 0.81074E-09 0.97396E-15 0.39294E-14 + 5 4 0.40314E-06 0.10000E+01 0.20817E+04 0.12641E-08 0.38829E-14 0.46690E-14 5 4 0.40314E-06 0.10000E+01 0.16788E+04 0.21754E-08 0.15118E-13 0.55577E-14 5 4 0.40314E-06 0.10000E+01 0.13538E+04 0.40371E-08 0.57411E-13 0.66930E-14 5 4 0.40314E-06 0.10000E+01 0.10918E+04 0.78192E-08 0.21371E-12 0.82782E-14 @@ -30640,24 +30640,24 @@ VERSION 2.8.2 5 4 0.40314E-06 0.10000E+01 0.24221E+03 0.70590E-06 0.64813E-09 0.16056E-12 5 4 0.40314E-06 0.10000E+01 0.19533E+03 0.11111E-05 0.12314E-08 0.24532E-12 5 4 0.40314E-06 0.10000E+01 0.15752E+03 0.11111E-05 0.12314E-08 0.24532E-12 - 5 4 0.70346E-06 0.10000E+01 0.80645E+05 0.51728E-53 0.38892E-64 0.58301E-58 - 5 4 0.70346E-06 0.10000E+01 0.65036E+05 0.43936E-52 0.61953E-63 0.49549E-57 - 5 4 0.70346E-06 0.10000E+01 0.52449E+05 0.37462E-51 0.83777E-62 0.42270E-56 - 5 4 0.70346E-06 0.10000E+01 0.42297E+05 0.28332E-50 0.11496E-60 0.32000E-55 - 5 4 0.70346E-06 0.10000E+01 0.34111E+05 0.20614E-49 0.16014E-59 0.23321E-54 - 5 4 0.70346E-06 0.10000E+01 0.27509E+05 0.15002E-48 0.22207E-58 0.17017E-53 - 5 4 0.70346E-06 0.10000E+01 0.22184E+05 0.10912E-47 0.30590E-57 0.12428E-52 - 5 4 0.70346E-06 0.10000E+01 0.17891E+05 0.78995E-47 0.41897E-56 0.90514E-52 - 5 4 0.70346E-06 0.10000E+01 0.14428E+05 0.56878E-46 0.57180E-55 0.65689E-51 - 5 4 0.70346E-06 0.10000E+01 0.11635E+05 0.40782E-45 0.77846E-54 0.47537E-50 - 5 4 0.70346E-06 0.10000E+01 0.93834E+04 0.29150E-44 0.10559E-52 0.34317E-49 - 5 4 0.70346E-06 0.10000E+01 0.75673E+04 0.20763E-43 0.14247E-51 0.24698E-48 - 5 4 0.70346E-06 0.10000E+01 0.61026E+04 0.14721E-42 0.19129E-50 0.17693E-47 - 5 4 0.70346E-06 0.10000E+01 0.49215E+04 0.10390E-41 0.25700E-49 0.12589E-46 - 5 4 0.70346E-06 0.10000E+01 0.39689E+04 0.73324E-41 0.35200E-48 0.88744E-46 - 5 4 0.70346E-06 0.10000E+01 0.32008E+04 0.16568E-38 0.16271E-45 0.19446E-43 - 5 4 0.70346E-06 0.10000E+01 0.25813E+04 0.66879E-30 0.15902E-36 0.70094E-35 - 5 4 0.70346E-06 0.10000E+01 0.20817E+04 0.90724E-14 0.10114E-19 0.73079E-19 + 5 4 0.70346E-06 0.10000E+01 0.80645E+05 0.34911E-10 0.22756E-21 0.39336E-15 + 5 4 0.70346E-06 0.10000E+01 0.65036E+05 0.44865E-10 0.53417E-21 0.50566E-15 + 5 4 0.70346E-06 0.10000E+01 0.52449E+05 0.56911E-10 0.12487E-20 0.64173E-15 + 5 4 0.70346E-06 0.10000E+01 0.42297E+05 0.71546E-10 0.29054E-20 0.80732E-15 + 5 4 0.70346E-06 0.10000E+01 0.34111E+05 0.89367E-10 0.67303E-20 0.10094E-14 + 5 4 0.70346E-06 0.10000E+01 0.27509E+05 0.11108E-09 0.15526E-19 0.12566E-14 + 5 4 0.70346E-06 0.10000E+01 0.22184E+05 0.13753E-09 0.35675E-19 0.15589E-14 + 5 4 0.70346E-06 0.10000E+01 0.17891E+05 0.16969E-09 0.81644E-19 0.19284E-14 + 5 4 0.70346E-06 0.10000E+01 0.14428E+05 0.20869E-09 0.18628E-18 0.23794E-14 + 5 4 0.70346E-06 0.10000E+01 0.11635E+05 0.25589E-09 0.42541E-18 0.29288E-14 + 5 4 0.70346E-06 0.10000E+01 0.93834E+04 0.31283E-09 0.98422E-18 0.35957E-14 + 5 4 0.70346E-06 0.10000E+01 0.75673E+04 0.38149E-09 0.23726E-17 0.44020E-14 + 5 4 0.70346E-06 0.10000E+01 0.61026E+04 0.46466E-09 0.62470E-17 0.53712E-14 + 5 4 0.70346E-06 0.10000E+01 0.49215E+04 0.56720E-09 0.18787E-16 0.65275E-14 + 5 4 0.70346E-06 0.10000E+01 0.39689E+04 0.69913E-09 0.64677E-16 0.78939E-14 + 5 4 0.70346E-06 0.10000E+01 0.32008E+04 0.88284E-09 0.24415E-15 0.94916E-14 + 5 4 0.70346E-06 0.10000E+01 0.25813E+04 0.11685E-08 0.95932E-15 0.11341E-13 + 5 4 0.70346E-06 0.10000E+01 0.20817E+04 0.16659E-08 0.37797E-14 0.13472E-13 5 4 0.70346E-06 0.10000E+01 0.16788E+04 0.26075E-08 0.14642E-13 0.15944E-13 5 4 0.70346E-06 0.10000E+01 0.13538E+04 0.44669E-08 0.55467E-13 0.18893E-13 5 4 0.70346E-06 0.10000E+01 0.10918E+04 0.81785E-08 0.20614E-12 0.22606E-13 @@ -30670,24 +30670,24 @@ VERSION 2.8.2 5 4 0.70346E-06 0.10000E+01 0.24221E+03 0.67992E-06 0.62260E-09 0.25891E-12 5 4 0.70346E-06 0.10000E+01 0.19533E+03 0.10694E-05 0.11828E-08 0.38552E-12 5 4 0.70346E-06 0.10000E+01 0.15752E+03 0.10694E-05 0.11828E-08 0.38552E-12 - 5 4 0.12275E-05 0.10000E+01 0.80645E+05 0.84841E-53 0.63803E-64 0.16488E-57 - 5 4 0.12275E-05 0.10000E+01 0.65036E+05 0.72075E-52 0.10165E-62 0.14015E-56 - 5 4 0.12275E-05 0.10000E+01 0.52449E+05 0.61464E-51 0.13751E-61 0.11957E-55 - 5 4 0.12275E-05 0.10000E+01 0.42297E+05 0.46499E-50 0.18880E-60 0.90538E-55 - 5 4 0.12275E-05 0.10000E+01 0.34111E+05 0.33848E-49 0.26324E-59 0.66004E-54 - 5 4 0.12275E-05 0.10000E+01 0.27509E+05 0.24653E-48 0.36554E-58 0.48187E-53 - 5 4 0.12275E-05 0.10000E+01 0.22184E+05 0.17954E-47 0.50457E-57 0.35220E-52 - 5 4 0.12275E-05 0.10000E+01 0.17891E+05 0.13021E-46 0.69290E-56 0.25680E-51 - 5 4 0.12275E-05 0.10000E+01 0.14428E+05 0.93982E-46 0.94846E-55 0.18665E-50 - 5 4 0.12275E-05 0.10000E+01 0.11635E+05 0.67574E-45 0.12951E-53 0.13532E-49 - 5 4 0.12275E-05 0.10000E+01 0.93834E+04 0.48441E-44 0.17618E-52 0.97887E-49 - 5 4 0.12275E-05 0.10000E+01 0.75673E+04 0.34603E-43 0.23827E-51 0.70616E-48 - 5 4 0.12275E-05 0.10000E+01 0.61026E+04 0.24592E-42 0.31998E-50 0.50730E-47 - 5 4 0.12275E-05 0.10000E+01 0.49215E+04 0.17367E-41 0.42722E-49 0.36227E-46 - 5 4 0.12275E-05 0.10000E+01 0.39689E+04 0.12196E-40 0.57159E-48 0.25658E-45 - 5 4 0.12275E-05 0.10000E+01 0.32008E+04 0.27016E-38 0.24765E-45 0.56578E-43 - 5 4 0.12275E-05 0.10000E+01 0.25813E+04 0.10323E-29 0.20646E-36 0.20545E-34 - 5 4 0.12275E-05 0.10000E+01 0.20817E+04 0.12730E-13 0.10322E-19 0.21365E-18 + 5 4 0.12275E-05 0.10000E+01 0.80645E+05 0.57255E-10 0.37377E-21 0.11124E-14 + 5 4 0.12275E-05 0.10000E+01 0.65036E+05 0.73585E-10 0.87818E-21 0.14301E-14 + 5 4 0.12275E-05 0.10000E+01 0.52449E+05 0.93356E-10 0.20555E-20 0.18151E-14 + 5 4 0.12275E-05 0.10000E+01 0.42297E+05 0.11739E-09 0.47909E-20 0.22837E-14 + 5 4 0.12275E-05 0.10000E+01 0.34111E+05 0.14667E-09 0.11121E-19 0.28560E-14 + 5 4 0.12275E-05 0.10000E+01 0.27509E+05 0.18239E-09 0.25718E-19 0.35563E-14 + 5 4 0.12275E-05 0.10000E+01 0.22184E+05 0.22595E-09 0.59236E-19 0.44135E-14 + 5 4 0.12275E-05 0.10000E+01 0.17891E+05 0.27900E-09 0.13585E-18 0.54626E-14 + 5 4 0.12275E-05 0.10000E+01 0.14428E+05 0.34346E-09 0.31012E-18 0.67448E-14 + 5 4 0.12275E-05 0.10000E+01 0.11635E+05 0.42159E-09 0.70544E-18 0.83092E-14 + 5 4 0.12275E-05 0.10000E+01 0.93834E+04 0.51596E-09 0.16075E-17 0.10212E-13 + 5 4 0.12275E-05 0.10000E+01 0.75673E+04 0.62965E-09 0.37260E-17 0.12519E-13 + 5 4 0.12275E-05 0.10000E+01 0.61026E+04 0.76650E-09 0.90736E-17 0.15300E-13 + 5 4 0.12275E-05 0.10000E+01 0.49215E+04 0.93225E-09 0.24333E-16 0.18631E-13 + 5 4 0.12275E-05 0.10000E+01 0.39689E+04 0.11372E-08 0.74430E-16 0.22587E-13 + 5 4 0.12275E-05 0.10000E+01 0.32008E+04 0.14030E-08 0.25748E-15 0.27237E-13 + 5 4 0.12275E-05 0.10000E+01 0.25813E+04 0.17770E-08 0.96253E-15 0.32642E-13 + 5 4 0.12275E-05 0.10000E+01 0.20817E+04 0.23633E-08 0.37014E-14 0.38866E-13 5 4 0.12275E-05 0.10000E+01 0.16788E+04 0.33828E-08 0.14179E-13 0.46005E-13 5 4 0.12275E-05 0.10000E+01 0.13538E+04 0.52878E-08 0.53423E-13 0.54247E-13 5 4 0.12275E-05 0.10000E+01 0.10918E+04 0.89720E-08 0.19793E-12 0.63995E-13 @@ -30700,24 +30700,24 @@ VERSION 2.8.2 5 4 0.12275E-05 0.10000E+01 0.24221E+03 0.65188E-06 0.59431E-09 0.45079E-12 5 4 0.12275E-05 0.10000E+01 0.19533E+03 0.10239E-05 0.11290E-08 0.64295E-12 5 4 0.12275E-05 0.10000E+01 0.15752E+03 0.10239E-05 0.11290E-08 0.64295E-12 - 5 4 0.21419E-05 0.10000E+01 0.80645E+05 0.13869E-52 0.10432E-63 0.46363E-57 - 5 4 0.21419E-05 0.10000E+01 0.65036E+05 0.11784E-51 0.16622E-62 0.39413E-56 - 5 4 0.21419E-05 0.10000E+01 0.52449E+05 0.10051E-50 0.22493E-61 0.33630E-55 - 5 4 0.21419E-05 0.10000E+01 0.42297E+05 0.76056E-50 0.30899E-60 0.25468E-54 - 5 4 0.21419E-05 0.10000E+01 0.34111E+05 0.55388E-49 0.43116E-59 0.18572E-53 - 5 4 0.21419E-05 0.10000E+01 0.27509E+05 0.40370E-48 0.59945E-58 0.13565E-52 - 5 4 0.21419E-05 0.10000E+01 0.22184E+05 0.29432E-47 0.82894E-57 0.99214E-52 - 5 4 0.21419E-05 0.10000E+01 0.17891E+05 0.21380E-46 0.11410E-55 0.72412E-51 - 5 4 0.21419E-05 0.10000E+01 0.14428E+05 0.15464E-45 0.15660E-54 0.52702E-50 - 5 4 0.21419E-05 0.10000E+01 0.11635E+05 0.11146E-44 0.21442E-53 0.38268E-49 - 5 4 0.21419E-05 0.10000E+01 0.93834E+04 0.80119E-44 0.29253E-52 0.27733E-48 - 5 4 0.21419E-05 0.10000E+01 0.75673E+04 0.57393E-43 0.39680E-51 0.20048E-47 - 5 4 0.21419E-05 0.10000E+01 0.61026E+04 0.40906E-42 0.53418E-50 0.14439E-46 - 5 4 0.21419E-05 0.10000E+01 0.49215E+04 0.28959E-41 0.71308E-49 0.10344E-45 - 5 4 0.21419E-05 0.10000E+01 0.39689E+04 0.20342E-40 0.94600E-48 0.73561E-45 - 5 4 0.21419E-05 0.10000E+01 0.32008E+04 0.44742E-38 0.39664E-45 0.16308E-42 - 5 4 0.21419E-05 0.10000E+01 0.25813E+04 0.16618E-29 0.29575E-36 0.59597E-34 - 5 4 0.21419E-05 0.10000E+01 0.20817E+04 0.19136E-13 0.11131E-19 0.61942E-18 + 5 4 0.21419E-05 0.10000E+01 0.80645E+05 0.93589E-10 0.61179E-21 0.31278E-14 + 5 4 0.21419E-05 0.10000E+01 0.65036E+05 0.12029E-09 0.14386E-20 0.40212E-14 + 5 4 0.21419E-05 0.10000E+01 0.52449E+05 0.15263E-09 0.33709E-20 0.51042E-14 + 5 4 0.21419E-05 0.10000E+01 0.42297E+05 0.19196E-09 0.78690E-20 0.64229E-14 + 5 4 0.21419E-05 0.10000E+01 0.34111E+05 0.23991E-09 0.18301E-19 0.80340E-14 + 5 4 0.21419E-05 0.10000E+01 0.27509E+05 0.29845E-09 0.42414E-19 0.10006E-13 + 5 4 0.21419E-05 0.10000E+01 0.22184E+05 0.36993E-09 0.97930E-19 0.12423E-13 + 5 4 0.21419E-05 0.10000E+01 0.17891E+05 0.45710E-09 0.22514E-18 0.15383E-13 + 5 4 0.21419E-05 0.10000E+01 0.14428E+05 0.56321E-09 0.51499E-18 0.19005E-13 + 5 4 0.21419E-05 0.10000E+01 0.11635E+05 0.69203E-09 0.11716E-17 0.23430E-13 + 5 4 0.21419E-05 0.10000E+01 0.93834E+04 0.84793E-09 0.26551E-17 0.28824E-13 + 5 4 0.21419E-05 0.10000E+01 0.75673E+04 0.10359E-08 0.60366E-17 0.35376E-13 + 5 4 0.21419E-05 0.10000E+01 0.61026E+04 0.12618E-08 0.14028E-16 0.43298E-13 + 5 4 0.21419E-05 0.10000E+01 0.49215E+04 0.15333E-08 0.34511E-16 0.52821E-13 + 5 4 0.21419E-05 0.10000E+01 0.39689E+04 0.18619E-08 0.94006E-16 0.64179E-13 + 5 4 0.21419E-05 0.10000E+01 0.32008E+04 0.22693E-08 0.29102E-15 0.77602E-13 + 5 4 0.21419E-05 0.10000E+01 0.25813E+04 0.28010E-08 0.10060E-14 0.93297E-13 + 5 4 0.21419E-05 0.10000E+01 0.20817E+04 0.35553E-08 0.37006E-14 0.11146E-12 5 4 0.21419E-05 0.10000E+01 0.16788E+04 0.47414E-08 0.13861E-13 0.13230E-12 5 4 0.21419E-05 0.10000E+01 0.13538E+04 0.67892E-08 0.51642E-13 0.15616E-12 5 4 0.21419E-05 0.10000E+01 0.10918E+04 0.10550E-07 0.19019E-12 0.18364E-12 @@ -30730,24 +30730,24 @@ VERSION 2.8.2 5 4 0.21419E-05 0.10000E+01 0.24221E+03 0.62529E-06 0.56586E-09 0.90448E-12 5 4 0.21419E-05 0.10000E+01 0.19533E+03 0.97995E-06 0.10748E-08 0.12211E-11 5 4 0.21419E-05 0.10000E+01 0.15752E+03 0.97995E-06 0.10748E-08 0.12211E-11 - 5 4 0.37375E-05 0.10000E+01 0.80645E+05 0.22587E-52 0.16992E-63 0.13048E-56 - 5 4 0.37375E-05 0.10000E+01 0.65036E+05 0.19194E-51 0.27078E-62 0.11093E-55 - 5 4 0.37375E-05 0.10000E+01 0.52449E+05 0.16373E-50 0.36652E-61 0.94661E-55 - 5 4 0.37375E-05 0.10000E+01 0.42297E+05 0.12392E-49 0.50372E-60 0.71698E-54 - 5 4 0.37375E-05 0.10000E+01 0.34111E+05 0.90284E-49 0.70338E-59 0.52298E-53 - 5 4 0.37375E-05 0.10000E+01 0.27509E+05 0.65845E-48 0.97900E-58 0.38213E-52 - 5 4 0.37375E-05 0.10000E+01 0.22184E+05 0.48052E-47 0.13560E-56 0.27967E-51 - 5 4 0.37375E-05 0.10000E+01 0.17891E+05 0.34956E-46 0.18703E-55 0.20430E-50 - 5 4 0.37375E-05 0.10000E+01 0.14428E+05 0.25331E-45 0.25730E-54 0.14887E-49 - 5 4 0.37375E-05 0.10000E+01 0.11635E+05 0.18299E-44 0.35320E-53 0.10825E-48 - 5 4 0.37375E-05 0.10000E+01 0.93834E+04 0.13185E-43 0.48320E-52 0.78575E-48 - 5 4 0.37375E-05 0.10000E+01 0.75673E+04 0.94706E-43 0.65747E-51 0.56909E-47 - 5 4 0.37375E-05 0.10000E+01 0.61026E+04 0.67702E-42 0.88801E-50 0.41078E-46 - 5 4 0.37375E-05 0.10000E+01 0.49215E+04 0.48079E-41 0.11885E-48 0.29510E-45 - 5 4 0.37375E-05 0.10000E+01 0.39689E+04 0.33860E-40 0.15754E-47 0.21063E-44 - 5 4 0.37375E-05 0.10000E+01 0.32008E+04 0.74434E-38 0.65181E-45 0.46916E-42 - 5 4 0.37375E-05 0.10000E+01 0.25813E+04 0.27305E-29 0.45527E-36 0.17239E-33 - 5 4 0.37375E-05 0.10000E+01 0.20817E+04 0.30082E-13 0.12958E-19 0.17921E-17 + 5 4 0.37375E-05 0.10000E+01 0.80645E+05 0.15240E-09 0.99745E-21 0.88022E-14 + 5 4 0.37375E-05 0.10000E+01 0.65036E+05 0.19590E-09 0.23471E-20 0.11317E-13 + 5 4 0.37375E-05 0.10000E+01 0.52449E+05 0.24859E-09 0.55055E-20 0.14366E-13 + 5 4 0.37375E-05 0.10000E+01 0.42297E+05 0.31270E-09 0.12869E-19 0.18079E-13 + 5 4 0.37375E-05 0.10000E+01 0.34111E+05 0.39091E-09 0.29982E-19 0.22618E-13 + 5 4 0.37375E-05 0.10000E+01 0.27509E+05 0.48647E-09 0.69623E-19 0.28176E-13 + 5 4 0.37375E-05 0.10000E+01 0.22184E+05 0.60326E-09 0.16112E-18 0.34992E-13 + 5 4 0.37375E-05 0.10000E+01 0.17891E+05 0.74589E-09 0.37137E-18 0.43347E-13 + 5 4 0.37375E-05 0.10000E+01 0.14428E+05 0.91977E-09 0.85165E-18 0.53583E-13 + 5 4 0.37375E-05 0.10000E+01 0.11635E+05 0.11313E-08 0.19413E-17 0.66106E-13 + 5 4 0.37375E-05 0.10000E+01 0.93834E+04 0.13877E-08 0.43973E-17 0.81393E-13 + 5 4 0.37375E-05 0.10000E+01 0.75673E+04 0.16974E-08 0.99216E-17 0.99999E-13 + 5 4 0.37375E-05 0.10000E+01 0.61026E+04 0.20700E-08 0.22502E-16 0.12255E-12 + 5 4 0.37375E-05 0.10000E+01 0.49215E+04 0.25165E-08 0.52413E-16 0.14975E-12 + 5 4 0.37375E-05 0.10000E+01 0.39689E+04 0.30517E-08 0.13009E-15 0.18232E-12 + 5 4 0.37375E-05 0.10000E+01 0.32008E+04 0.36989E-08 0.35860E-15 0.22101E-12 + 5 4 0.37375E-05 0.10000E+01 0.25813E+04 0.45028E-08 0.11160E-14 0.26652E-12 + 5 4 0.37375E-05 0.10000E+01 0.20817E+04 0.55561E-08 0.38193E-14 0.31954E-12 5 4 0.37375E-05 0.10000E+01 0.16788E+04 0.70552E-08 0.13724E-13 0.38074E-12 5 4 0.37375E-05 0.10000E+01 0.13538E+04 0.94036E-08 0.50006E-13 0.45095E-12 5 4 0.37375E-05 0.10000E+01 0.10918E+04 0.13403E-07 0.18199E-12 0.53148E-12 @@ -30760,24 +30760,24 @@ VERSION 2.8.2 5 4 0.37375E-05 0.10000E+01 0.24221E+03 0.59671E-06 0.53291E-09 0.21414E-11 5 4 0.37375E-05 0.10000E+01 0.19533E+03 0.93131E-06 0.10121E-08 0.27522E-11 5 4 0.37375E-05 0.10000E+01 0.15752E+03 0.93131E-06 0.10121E-08 0.27522E-11 - 5 4 0.65217E-05 0.10000E+01 0.80645E+05 0.36671E-52 0.27593E-63 0.36528E-56 - 5 4 0.65217E-05 0.10000E+01 0.65036E+05 0.31167E-51 0.43976E-62 0.31057E-55 - 5 4 0.65217E-05 0.10000E+01 0.52449E+05 0.26589E-50 0.59539E-61 0.26504E-54 - 5 4 0.65217E-05 0.10000E+01 0.42297E+05 0.20129E-49 0.81861E-60 0.20078E-53 - 5 4 0.65217E-05 0.10000E+01 0.34111E+05 0.14670E-48 0.11438E-58 0.14648E-52 - 5 4 0.65217E-05 0.10000E+01 0.27509E+05 0.10705E-47 0.15935E-57 0.10707E-51 - 5 4 0.65217E-05 0.10000E+01 0.22184E+05 0.78191E-47 0.22102E-56 0.78403E-51 - 5 4 0.65217E-05 0.10000E+01 0.17891E+05 0.56953E-46 0.30542E-55 0.57320E-50 - 5 4 0.65217E-05 0.10000E+01 0.14428E+05 0.41339E-45 0.42105E-54 0.41810E-49 - 5 4 0.65217E-05 0.10000E+01 0.11635E+05 0.29922E-44 0.57930E-53 0.30441E-48 - 5 4 0.65217E-05 0.10000E+01 0.93834E+04 0.21608E-43 0.79454E-52 0.22127E-47 - 5 4 0.65217E-05 0.10000E+01 0.75673E+04 0.15559E-42 0.10843E-50 0.16052E-46 - 5 4 0.65217E-05 0.10000E+01 0.61026E+04 0.11154E-41 0.14696E-49 0.11610E-45 - 5 4 0.65217E-05 0.10000E+01 0.49215E+04 0.79470E-41 0.19743E-48 0.83609E-45 - 5 4 0.65217E-05 0.10000E+01 0.39689E+04 0.56164E-40 0.26240E-47 0.59866E-44 - 5 4 0.65217E-05 0.10000E+01 0.32008E+04 0.12377E-37 0.10829E-44 0.13389E-41 - 5 4 0.65217E-05 0.10000E+01 0.25813E+04 0.45247E-29 0.73319E-36 0.49429E-33 - 5 4 0.65217E-05 0.10000E+01 0.20817E+04 0.48558E-13 0.16671E-19 0.51404E-17 + 5 4 0.65217E-05 0.10000E+01 0.80645E+05 0.24742E-09 0.16211E-20 0.24641E-13 + 5 4 0.65217E-05 0.10000E+01 0.65036E+05 0.31806E-09 0.38170E-20 0.31682E-13 + 5 4 0.65217E-05 0.10000E+01 0.52449E+05 0.40366E-09 0.89616E-20 0.40219E-13 + 5 4 0.65217E-05 0.10000E+01 0.42297E+05 0.50782E-09 0.20974E-19 0.50620E-13 + 5 4 0.65217E-05 0.10000E+01 0.34111E+05 0.63497E-09 0.48937E-19 0.63337E-13 + 5 4 0.65217E-05 0.10000E+01 0.27509E+05 0.79045E-09 0.11385E-18 0.78919E-13 + 5 4 0.65217E-05 0.10000E+01 0.22184E+05 0.98064E-09 0.26402E-18 0.98035E-13 + 5 4 0.65217E-05 0.10000E+01 0.17891E+05 0.12132E-08 0.60999E-18 0.12149E-12 + 5 4 0.65217E-05 0.10000E+01 0.14428E+05 0.14971E-08 0.14027E-17 0.15025E-12 + 5 4 0.65217E-05 0.10000E+01 0.11635E+05 0.18430E-08 0.32060E-17 0.18548E-12 + 5 4 0.65217E-05 0.10000E+01 0.93834E+04 0.22632E-08 0.72760E-17 0.22854E-12 + 5 4 0.65217E-05 0.10000E+01 0.75673E+04 0.27718E-08 0.16396E-16 0.28104E-12 + 5 4 0.65217E-05 0.10000E+01 0.61026E+04 0.33846E-08 0.36814E-16 0.34483E-12 + 5 4 0.65217E-05 0.10000E+01 0.49215E+04 0.41194E-08 0.83296E-16 0.42196E-12 + 5 4 0.65217E-05 0.10000E+01 0.39689E+04 0.49972E-08 0.19456E-15 0.51466E-12 + 5 4 0.65217E-05 0.10000E+01 0.32008E+04 0.60464E-08 0.48704E-15 0.62525E-12 + 5 4 0.65217E-05 0.10000E+01 0.25813E+04 0.73137E-08 0.13536E-14 0.75610E-12 + 5 4 0.65217E-05 0.10000E+01 0.20817E+04 0.88891E-08 0.41980E-14 0.90952E-12 5 4 0.65217E-05 0.10000E+01 0.16788E+04 0.10957E-07 0.14100E-13 0.10879E-11 5 4 0.65217E-05 0.10000E+01 0.13538E+04 0.13896E-07 0.49355E-13 0.12939E-11 5 4 0.65217E-05 0.10000E+01 0.10918E+04 0.18456E-07 0.17561E-12 0.15313E-11 @@ -30790,24 +30790,24 @@ VERSION 2.8.2 5 4 0.65217E-05 0.10000E+01 0.24221E+03 0.57250E-06 0.49919E-09 0.56955E-11 5 4 0.65217E-05 0.10000E+01 0.19533E+03 0.88696E-06 0.94778E-09 0.70971E-11 5 4 0.65217E-05 0.10000E+01 0.15752E+03 0.88696E-06 0.94778E-09 0.70971E-11 - 5 4 0.11380E-04 0.10000E+01 0.80645E+05 0.59349E-52 0.44663E-63 0.10061E-55 - 5 4 0.11380E-04 0.10000E+01 0.65036E+05 0.50446E-51 0.71187E-62 0.85548E-55 - 5 4 0.11380E-04 0.10000E+01 0.52449E+05 0.43041E-50 0.96401E-61 0.73012E-54 - 5 4 0.11380E-04 0.10000E+01 0.42297E+05 0.32590E-49 0.13259E-59 0.55314E-53 - 5 4 0.11380E-04 0.10000E+01 0.34111E+05 0.23759E-48 0.18537E-58 0.40364E-52 - 5 4 0.11380E-04 0.10000E+01 0.27509E+05 0.17347E-47 0.25847E-57 0.29513E-51 - 5 4 0.11380E-04 0.10000E+01 0.22184E+05 0.12679E-46 0.35894E-56 0.21621E-50 - 5 4 0.11380E-04 0.10000E+01 0.17891E+05 0.92457E-46 0.49683E-55 0.15817E-49 - 5 4 0.11380E-04 0.10000E+01 0.14428E+05 0.67209E-45 0.68619E-54 0.11548E-48 - 5 4 0.11380E-04 0.10000E+01 0.11635E+05 0.48733E-44 0.94602E-53 0.84164E-48 - 5 4 0.11380E-04 0.10000E+01 0.93834E+04 0.35262E-43 0.13005E-51 0.61253E-47 - 5 4 0.11380E-04 0.10000E+01 0.75673E+04 0.25446E-42 0.17798E-50 0.44497E-46 - 5 4 0.11380E-04 0.10000E+01 0.61026E+04 0.18290E-41 0.24203E-49 0.32237E-45 - 5 4 0.11380E-04 0.10000E+01 0.49215E+04 0.13072E-40 0.32641E-48 0.23264E-44 - 5 4 0.11380E-04 0.10000E+01 0.39689E+04 0.92724E-40 0.43563E-47 0.16702E-43 - 5 4 0.11380E-04 0.10000E+01 0.32008E+04 0.20511E-37 0.18023E-44 0.37481E-41 - 5 4 0.11380E-04 0.10000E+01 0.25813E+04 0.75049E-29 0.12073E-35 0.13891E-32 - 5 4 0.11380E-04 0.10000E+01 0.20817E+04 0.79368E-13 0.23645E-19 0.14451E-16 + 5 4 0.11380E-04 0.10000E+01 0.80645E+05 0.40041E-09 0.26260E-20 0.67867E-13 + 5 4 0.11380E-04 0.10000E+01 0.65036E+05 0.51475E-09 0.61866E-20 0.87262E-13 + 5 4 0.11380E-04 0.10000E+01 0.52449E+05 0.65333E-09 0.14536E-19 0.11078E-12 + 5 4 0.11380E-04 0.10000E+01 0.42297E+05 0.82203E-09 0.34057E-19 0.13944E-12 + 5 4 0.11380E-04 0.10000E+01 0.34111E+05 0.10281E-08 0.79571E-19 0.17450E-12 + 5 4 0.11380E-04 0.10000E+01 0.27509E+05 0.12801E-08 0.18541E-18 0.21746E-12 + 5 4 0.11380E-04 0.10000E+01 0.22184E+05 0.15888E-08 0.43081E-18 0.27020E-12 + 5 4 0.11380E-04 0.10000E+01 0.17891E+05 0.19665E-08 0.99756E-18 0.33495E-12 + 5 4 0.11380E-04 0.10000E+01 0.14428E+05 0.24283E-08 0.22998E-17 0.41441E-12 + 5 4 0.11380E-04 0.10000E+01 0.11635E+05 0.29918E-08 0.52720E-17 0.51183E-12 + 5 4 0.11380E-04 0.10000E+01 0.93834E+04 0.36776E-08 0.12000E-16 0.63107E-12 + 5 4 0.11380E-04 0.10000E+01 0.75673E+04 0.45094E-08 0.27090E-16 0.77667E-12 + 5 4 0.11380E-04 0.10000E+01 0.61026E+04 0.55137E-08 0.60691E-16 0.95388E-12 + 5 4 0.11380E-04 0.10000E+01 0.49215E+04 0.67202E-08 0.13562E-15 0.11687E-11 + 5 4 0.11380E-04 0.10000E+01 0.39689E+04 0.81617E-08 0.30649E-15 0.14276E-11 + 5 4 0.11380E-04 0.10000E+01 0.32008E+04 0.98775E-08 0.71909E-15 0.17377E-11 + 5 4 0.11380E-04 0.10000E+01 0.25813E+04 0.11923E-07 0.18139E-14 0.21062E-11 + 5 4 0.11380E-04 0.10000E+01 0.20817E+04 0.14390E-07 0.50492E-14 0.25409E-11 5 4 0.11380E-04 0.10000E+01 0.16788E+04 0.17458E-07 0.15467E-13 0.30497E-11 5 4 0.11380E-04 0.10000E+01 0.13538E+04 0.21483E-07 0.50777E-13 0.36417E-11 5 4 0.11380E-04 0.10000E+01 0.10918E+04 0.27168E-07 0.17361E-12 0.43282E-11 @@ -30820,24 +30820,24 @@ VERSION 2.8.2 5 4 0.11380E-04 0.10000E+01 0.24221E+03 0.55884E-06 0.46668E-09 0.15788E-10 5 4 0.11380E-04 0.10000E+01 0.19533E+03 0.85469E-06 0.88562E-09 0.19359E-10 5 4 0.11380E-04 0.10000E+01 0.15752E+03 0.85469E-06 0.88562E-09 0.19359E-10 - 5 4 0.19857E-04 0.10000E+01 0.80645E+05 0.95563E-52 0.71925E-63 0.26622E-55 - 5 4 0.19857E-04 0.10000E+01 0.65036E+05 0.81237E-51 0.11465E-61 0.22638E-54 - 5 4 0.19857E-04 0.10000E+01 0.52449E+05 0.69317E-50 0.15529E-60 0.19322E-53 - 5 4 0.19857E-04 0.10000E+01 0.42297E+05 0.52495E-49 0.21366E-59 0.14640E-52 - 5 4 0.19857E-04 0.10000E+01 0.34111E+05 0.38282E-48 0.29884E-58 0.10685E-51 - 5 4 0.19857E-04 0.10000E+01 0.27509E+05 0.27961E-47 0.41700E-57 0.78141E-51 - 5 4 0.19857E-04 0.10000E+01 0.22184E+05 0.20452E-46 0.57974E-56 0.57267E-50 - 5 4 0.19857E-04 0.10000E+01 0.17891E+05 0.14928E-45 0.80358E-55 0.41917E-49 - 5 4 0.19857E-04 0.10000E+01 0.14428E+05 0.10865E-44 0.11117E-53 0.30624E-48 - 5 4 0.19857E-04 0.10000E+01 0.11635E+05 0.78906E-44 0.15354E-52 0.22338E-47 - 5 4 0.19857E-04 0.10000E+01 0.93834E+04 0.57193E-43 0.21151E-51 0.16273E-46 - 5 4 0.19857E-04 0.10000E+01 0.75673E+04 0.41355E-42 0.29017E-50 0.11835E-45 - 5 4 0.19857E-04 0.10000E+01 0.61026E+04 0.29794E-41 0.39580E-49 0.85855E-45 - 5 4 0.19857E-04 0.10000E+01 0.49215E+04 0.21355E-40 0.53581E-48 0.62062E-44 - 5 4 0.19857E-04 0.10000E+01 0.39689E+04 0.15201E-39 0.71830E-47 0.44651E-43 - 5 4 0.19857E-04 0.10000E+01 0.32008E+04 0.33759E-37 0.29854E-44 0.10047E-40 - 5 4 0.19857E-04 0.10000E+01 0.25813E+04 0.12388E-28 0.19994E-35 0.37348E-32 - 5 4 0.19857E-04 0.10000E+01 0.20817E+04 0.12998E-12 0.36056E-19 0.38866E-16 + 5 4 0.19857E-04 0.10000E+01 0.80645E+05 0.64470E-09 0.42317E-20 0.17958E-12 + 5 4 0.19857E-04 0.10000E+01 0.65036E+05 0.82885E-09 0.99744E-20 0.23091E-12 + 5 4 0.19857E-04 0.10000E+01 0.52449E+05 0.10521E-08 0.23453E-19 0.29316E-12 + 5 4 0.19857E-04 0.10000E+01 0.42297E+05 0.13239E-08 0.55000E-19 0.36903E-12 + 5 4 0.19857E-04 0.10000E+01 0.34111E+05 0.16560E-08 0.12866E-18 0.46183E-12 + 5 4 0.19857E-04 0.10000E+01 0.27509E+05 0.20625E-08 0.30021E-18 0.57563E-12 + 5 4 0.19857E-04 0.10000E+01 0.22184E+05 0.25607E-08 0.69873E-18 0.71536E-12 + 5 4 0.19857E-04 0.10000E+01 0.17891E+05 0.31709E-08 0.16212E-17 0.88700E-12 + 5 4 0.19857E-04 0.10000E+01 0.14428E+05 0.39178E-08 0.37464E-17 0.10978E-11 + 5 4 0.19857E-04 0.10000E+01 0.11635E+05 0.48304E-08 0.86123E-17 0.13564E-11 + 5 4 0.19857E-04 0.10000E+01 0.93834E+04 0.59430E-08 0.19665E-16 0.16733E-11 + 5 4 0.19857E-04 0.10000E+01 0.75673E+04 0.72950E-08 0.44532E-16 0.20606E-11 + 5 4 0.19857E-04 0.10000E+01 0.61026E+04 0.89312E-08 0.99932E-16 0.25328E-11 + 5 4 0.19857E-04 0.10000E+01 0.49215E+04 0.10901E-07 0.22260E-15 0.31061E-11 + 5 4 0.19857E-04 0.10000E+01 0.39689E+04 0.13259E-07 0.49580E-15 0.37989E-11 + 5 4 0.19857E-04 0.10000E+01 0.32008E+04 0.16065E-07 0.11221E-14 0.46311E-11 + 5 4 0.19857E-04 0.10000E+01 0.25813E+04 0.19394E-07 0.26486E-14 0.56239E-11 + 5 4 0.19857E-04 0.10000E+01 0.20817E+04 0.23352E-07 0.67133E-14 0.68002E-11 5 4 0.19857E-04 0.10000E+01 0.16788E+04 0.28125E-07 0.18597E-13 0.81845E-11 5 4 0.19857E-04 0.10000E+01 0.13538E+04 0.34058E-07 0.56051E-13 0.98046E-11 5 4 0.19857E-04 0.10000E+01 0.10918E+04 0.41823E-07 0.18021E-12 0.11696E-10 @@ -30850,24 +30850,24 @@ VERSION 2.8.2 5 4 0.19857E-04 0.10000E+01 0.24221E+03 0.56540E-06 0.43821E-09 0.42737E-10 5 4 0.19857E-04 0.10000E+01 0.19533E+03 0.84656E-06 0.83075E-09 0.51972E-10 5 4 0.19857E-04 0.10000E+01 0.15752E+03 0.84656E-06 0.83075E-09 0.51972E-10 - 5 4 0.34650E-04 0.10000E+01 0.80645E+05 0.16347E-51 0.12304E-62 0.50702E-55 - 5 4 0.34650E-04 0.10000E+01 0.65036E+05 0.13897E-50 0.19613E-61 0.43115E-54 - 5 4 0.34650E-04 0.10000E+01 0.52449E+05 0.11858E-49 0.26566E-60 0.36799E-53 - 5 4 0.34650E-04 0.10000E+01 0.42297E+05 0.89806E-49 0.36554E-59 0.27882E-52 - 5 4 0.34650E-04 0.10000E+01 0.34111E+05 0.65494E-48 0.51133E-58 0.20350E-51 - 5 4 0.34650E-04 0.10000E+01 0.27509E+05 0.47842E-47 0.71363E-57 0.14884E-50 - 5 4 0.34650E-04 0.10000E+01 0.22184E+05 0.34999E-46 0.99236E-56 0.10908E-49 - 5 4 0.34650E-04 0.10000E+01 0.17891E+05 0.25551E-45 0.13759E-54 0.79855E-49 - 5 4 0.34650E-04 0.10000E+01 0.14428E+05 0.18603E-44 0.19041E-53 0.58348E-48 - 5 4 0.34650E-04 0.10000E+01 0.11635E+05 0.13514E-43 0.26309E-52 0.42569E-47 - 5 4 0.34650E-04 0.10000E+01 0.93834E+04 0.97987E-43 0.36258E-51 0.31016E-46 - 5 4 0.34650E-04 0.10000E+01 0.75673E+04 0.70882E-42 0.49769E-50 0.22562E-45 - 5 4 0.34650E-04 0.10000E+01 0.61026E+04 0.51093E-41 0.67931E-49 0.16372E-44 - 5 4 0.34650E-04 0.10000E+01 0.49215E+04 0.36643E-40 0.92037E-48 0.11838E-43 - 5 4 0.34650E-04 0.10000E+01 0.39689E+04 0.26103E-39 0.12351E-46 0.85206E-43 - 5 4 0.34650E-04 0.10000E+01 0.32008E+04 0.58025E-37 0.51393E-44 0.19182E-40 - 5 4 0.34650E-04 0.10000E+01 0.25813E+04 0.21308E-28 0.34445E-35 0.71349E-32 - 5 4 0.34650E-04 0.10000E+01 0.20817E+04 0.22331E-12 0.61382E-19 0.74254E-16 + 5 4 0.34650E-04 0.10000E+01 0.80645E+05 0.11028E-08 0.72400E-20 0.34200E-12 + 5 4 0.34650E-04 0.10000E+01 0.65036E+05 0.14178E-08 0.17067E-19 0.43976E-12 + 5 4 0.34650E-04 0.10000E+01 0.52449E+05 0.17997E-08 0.40137E-19 0.55833E-12 + 5 4 0.34650E-04 0.10000E+01 0.42297E+05 0.22648E-08 0.94144E-19 0.70282E-12 + 5 4 0.34650E-04 0.10000E+01 0.34111E+05 0.28330E-08 0.22027E-18 0.87959E-12 + 5 4 0.34650E-04 0.10000E+01 0.27509E+05 0.35287E-08 0.51416E-18 0.10964E-11 + 5 4 0.34650E-04 0.10000E+01 0.22184E+05 0.43812E-08 0.11971E-17 0.13625E-11 + 5 4 0.34650E-04 0.10000E+01 0.17891E+05 0.54259E-08 0.27787E-17 0.16895E-11 + 5 4 0.34650E-04 0.10000E+01 0.14428E+05 0.67047E-08 0.64246E-17 0.20912E-11 + 5 4 0.34650E-04 0.10000E+01 0.11635E+05 0.82678E-08 0.14778E-16 0.25841E-11 + 5 4 0.34650E-04 0.10000E+01 0.93834E+04 0.10174E-07 0.33768E-16 0.31880E-11 + 5 4 0.34650E-04 0.10000E+01 0.75673E+04 0.12492E-07 0.76530E-16 0.39265E-11 + 5 4 0.34650E-04 0.10000E+01 0.61026E+04 0.15297E-07 0.17185E-15 0.48270E-11 + 5 4 0.34650E-04 0.10000E+01 0.49215E+04 0.18678E-07 0.38281E-15 0.59208E-11 + 5 4 0.34650E-04 0.10000E+01 0.39689E+04 0.22726E-07 0.85123E-15 0.72430E-11 + 5 4 0.34650E-04 0.10000E+01 0.32008E+04 0.27545E-07 0.19166E-14 0.88322E-11 + 5 4 0.34650E-04 0.10000E+01 0.25813E+04 0.33259E-07 0.44743E-14 0.10730E-10 + 5 4 0.34650E-04 0.10000E+01 0.20817E+04 0.40042E-07 0.11141E-13 0.12980E-10 5 4 0.34650E-04 0.10000E+01 0.16788E+04 0.48181E-07 0.30191E-13 0.15630E-10 5 4 0.34650E-04 0.10000E+01 0.13538E+04 0.58212E-07 0.89076E-13 0.18736E-10 5 4 0.34650E-04 0.10000E+01 0.10918E+04 0.71153E-07 0.28154E-12 0.22365E-10 @@ -30880,24 +30880,24 @@ VERSION 2.8.2 5 4 0.34650E-04 0.10000E+01 0.24221E+03 0.87594E-06 0.66335E-09 0.81836E-10 5 4 0.34650E-04 0.10000E+01 0.19533E+03 0.13033E-05 0.12571E-08 0.99389E-10 5 4 0.34650E-04 0.10000E+01 0.15752E+03 0.13033E-05 0.12571E-08 0.99389E-10 - 5 4 0.60462E-04 0.10000E+01 0.80645E+05 0.28525E-51 0.21470E-62 0.88473E-55 - 5 4 0.60462E-04 0.10000E+01 0.65036E+05 0.24249E-50 0.34223E-61 0.75234E-54 - 5 4 0.60462E-04 0.10000E+01 0.52449E+05 0.20692E-49 0.46356E-60 0.64213E-53 - 5 4 0.60462E-04 0.10000E+01 0.42297E+05 0.15671E-48 0.63785E-59 0.48653E-52 - 5 4 0.60462E-04 0.10000E+01 0.34111E+05 0.11428E-47 0.89224E-58 0.35510E-51 - 5 4 0.60462E-04 0.10000E+01 0.27509E+05 0.83482E-47 0.12452E-56 0.25971E-50 - 5 4 0.60462E-04 0.10000E+01 0.22184E+05 0.61070E-46 0.17316E-55 0.19035E-49 - 5 4 0.60462E-04 0.10000E+01 0.17891E+05 0.44585E-45 0.24009E-54 0.13934E-48 - 5 4 0.60462E-04 0.10000E+01 0.14428E+05 0.32460E-44 0.33226E-53 0.10181E-47 - 5 4 0.60462E-04 0.10000E+01 0.11635E+05 0.23581E-43 0.45907E-52 0.74280E-47 - 5 4 0.60462E-04 0.10000E+01 0.93834E+04 0.17098E-42 0.63268E-51 0.54122E-46 - 5 4 0.60462E-04 0.10000E+01 0.75673E+04 0.12368E-41 0.86843E-50 0.39369E-45 - 5 4 0.60462E-04 0.10000E+01 0.61026E+04 0.89154E-41 0.11854E-48 0.28567E-44 - 5 4 0.60462E-04 0.10000E+01 0.49215E+04 0.63940E-40 0.16060E-47 0.20657E-43 - 5 4 0.60462E-04 0.10000E+01 0.39689E+04 0.45548E-39 0.21551E-46 0.14868E-42 - 5 4 0.60462E-04 0.10000E+01 0.32008E+04 0.10125E-36 0.89677E-44 0.33471E-40 - 5 4 0.60462E-04 0.10000E+01 0.25813E+04 0.37182E-28 0.60104E-35 0.12450E-31 - 5 4 0.60462E-04 0.10000E+01 0.20817E+04 0.38967E-12 0.10711E-18 0.12957E-15 + 5 4 0.60462E-04 0.10000E+01 0.80645E+05 0.19244E-08 0.12633E-19 0.59678E-12 + 5 4 0.60462E-04 0.10000E+01 0.65036E+05 0.24741E-08 0.29781E-19 0.76735E-12 + 5 4 0.60462E-04 0.10000E+01 0.52449E+05 0.31404E-08 0.70036E-19 0.97424E-12 + 5 4 0.60462E-04 0.10000E+01 0.42297E+05 0.39519E-08 0.16428E-18 0.12264E-11 + 5 4 0.60462E-04 0.10000E+01 0.34111E+05 0.49434E-08 0.38436E-18 0.15348E-11 + 5 4 0.60462E-04 0.10000E+01 0.27509E+05 0.61574E-08 0.89718E-18 0.19131E-11 + 5 4 0.60462E-04 0.10000E+01 0.22184E+05 0.76450E-08 0.20889E-17 0.23775E-11 + 5 4 0.60462E-04 0.10000E+01 0.17891E+05 0.94678E-08 0.48487E-17 0.29482E-11 + 5 4 0.60462E-04 0.10000E+01 0.14428E+05 0.11699E-07 0.11211E-16 0.36490E-11 + 5 4 0.60462E-04 0.10000E+01 0.11635E+05 0.14427E-07 0.25787E-16 0.45090E-11 + 5 4 0.60462E-04 0.10000E+01 0.93834E+04 0.17753E-07 0.58924E-16 0.55629E-11 + 5 4 0.60462E-04 0.10000E+01 0.75673E+04 0.21797E-07 0.13354E-15 0.68515E-11 + 5 4 0.60462E-04 0.10000E+01 0.61026E+04 0.26693E-07 0.29986E-15 0.84228E-11 + 5 4 0.60462E-04 0.10000E+01 0.49215E+04 0.32591E-07 0.66798E-15 0.10331E-10 + 5 4 0.60462E-04 0.10000E+01 0.39689E+04 0.39655E-07 0.14853E-14 0.12639E-10 + 5 4 0.60462E-04 0.10000E+01 0.32008E+04 0.48064E-07 0.33443E-14 0.15412E-10 + 5 4 0.60462E-04 0.10000E+01 0.25813E+04 0.58035E-07 0.78074E-14 0.18723E-10 + 5 4 0.60462E-04 0.10000E+01 0.20817E+04 0.69870E-07 0.19441E-13 0.22649E-10 5 4 0.60462E-04 0.10000E+01 0.16788E+04 0.84073E-07 0.52681E-13 0.27274E-10 5 4 0.60462E-04 0.10000E+01 0.13538E+04 0.10158E-06 0.15543E-12 0.32693E-10 5 4 0.60462E-04 0.10000E+01 0.10918E+04 0.12416E-06 0.49128E-12 0.39026E-10 @@ -30910,24 +30910,24 @@ VERSION 2.8.2 5 4 0.60462E-04 0.10000E+01 0.24221E+03 0.15285E-05 0.11575E-08 0.14280E-09 5 4 0.60462E-04 0.10000E+01 0.19533E+03 0.22741E-05 0.21936E-08 0.17343E-09 5 4 0.60462E-04 0.10000E+01 0.15752E+03 0.22741E-05 0.21936E-08 0.17343E-09 - 5 4 0.10550E-03 0.10000E+01 0.80645E+05 0.49774E-51 0.37464E-62 0.15438E-54 - 5 4 0.10550E-03 0.10000E+01 0.65036E+05 0.42313E-50 0.59718E-61 0.13128E-53 - 5 4 0.10550E-03 0.10000E+01 0.52449E+05 0.36106E-49 0.80889E-60 0.11205E-52 - 5 4 0.10550E-03 0.10000E+01 0.42297E+05 0.27344E-48 0.11130E-58 0.84896E-52 - 5 4 0.10550E-03 0.10000E+01 0.34111E+05 0.19942E-47 0.15569E-57 0.61963E-51 - 5 4 0.10550E-03 0.10000E+01 0.27509E+05 0.14567E-46 0.21729E-56 0.45318E-50 - 5 4 0.10550E-03 0.10000E+01 0.22184E+05 0.10656E-45 0.30216E-55 0.33214E-49 - 5 4 0.10550E-03 0.10000E+01 0.17891E+05 0.77798E-45 0.41895E-54 0.24314E-48 - 5 4 0.10550E-03 0.10000E+01 0.14428E+05 0.56641E-44 0.57978E-53 0.17766E-47 - 5 4 0.10550E-03 0.10000E+01 0.11635E+05 0.41147E-43 0.80105E-52 0.12961E-46 - 5 4 0.10550E-03 0.10000E+01 0.93834E+04 0.29835E-42 0.11040E-50 0.94439E-46 - 5 4 0.10550E-03 0.10000E+01 0.75673E+04 0.21582E-41 0.15154E-49 0.68697E-45 - 5 4 0.10550E-03 0.10000E+01 0.61026E+04 0.15557E-40 0.20684E-48 0.49848E-44 - 5 4 0.10550E-03 0.10000E+01 0.49215E+04 0.11157E-39 0.28023E-47 0.36046E-43 - 5 4 0.10550E-03 0.10000E+01 0.39689E+04 0.79479E-39 0.37606E-46 0.25944E-42 - 5 4 0.10550E-03 0.10000E+01 0.32008E+04 0.17667E-36 0.15648E-43 0.58406E-40 - 5 4 0.10550E-03 0.10000E+01 0.25813E+04 0.64880E-28 0.10488E-34 0.21725E-31 - 5 4 0.10550E-03 0.10000E+01 0.20817E+04 0.67995E-12 0.18690E-18 0.22609E-15 + 5 4 0.10550E-03 0.10000E+01 0.80645E+05 0.33579E-08 0.22045E-19 0.10413E-11 + 5 4 0.10550E-03 0.10000E+01 0.65036E+05 0.43171E-08 0.51966E-19 0.13390E-11 + 5 4 0.10550E-03 0.10000E+01 0.52449E+05 0.54798E-08 0.12221E-18 0.17000E-11 + 5 4 0.10550E-03 0.10000E+01 0.42297E+05 0.68958E-08 0.28665E-18 0.21400E-11 + 5 4 0.10550E-03 0.10000E+01 0.34111E+05 0.86259E-08 0.67069E-18 0.26782E-11 + 5 4 0.10550E-03 0.10000E+01 0.27509E+05 0.10744E-07 0.15655E-17 0.33382E-11 + 5 4 0.10550E-03 0.10000E+01 0.22184E+05 0.13340E-07 0.36450E-17 0.41487E-11 + 5 4 0.10550E-03 0.10000E+01 0.17891E+05 0.16521E-07 0.84606E-17 0.51443E-11 + 5 4 0.10550E-03 0.10000E+01 0.14428E+05 0.20415E-07 0.19562E-16 0.63673E-11 + 5 4 0.10550E-03 0.10000E+01 0.11635E+05 0.25174E-07 0.44997E-16 0.78680E-11 + 5 4 0.10550E-03 0.10000E+01 0.93834E+04 0.30978E-07 0.10282E-15 0.97069E-11 + 5 4 0.10550E-03 0.10000E+01 0.75673E+04 0.38034E-07 0.23302E-15 0.11956E-10 + 5 4 0.10550E-03 0.10000E+01 0.61026E+04 0.46578E-07 0.52325E-15 0.14697E-10 + 5 4 0.10550E-03 0.10000E+01 0.49215E+04 0.56870E-07 0.11656E-14 0.18028E-10 + 5 4 0.10550E-03 0.10000E+01 0.39689E+04 0.69195E-07 0.25918E-14 0.22054E-10 + 5 4 0.10550E-03 0.10000E+01 0.32008E+04 0.83869E-07 0.58357E-14 0.26892E-10 + 5 4 0.10550E-03 0.10000E+01 0.25813E+04 0.10127E-06 0.13623E-13 0.32670E-10 + 5 4 0.10550E-03 0.10000E+01 0.20817E+04 0.12192E-06 0.33923E-13 0.39521E-10 5 4 0.10550E-03 0.10000E+01 0.16788E+04 0.14670E-06 0.91926E-13 0.47591E-10 5 4 0.10550E-03 0.10000E+01 0.13538E+04 0.17724E-06 0.27122E-12 0.57048E-10 5 4 0.10550E-03 0.10000E+01 0.10918E+04 0.21665E-06 0.85725E-12 0.68099E-10 @@ -30940,24 +30940,24 @@ VERSION 2.8.2 5 4 0.10550E-03 0.10000E+01 0.24221E+03 0.26671E-05 0.20198E-08 0.24918E-09 5 4 0.10550E-03 0.10000E+01 0.19533E+03 0.39682E-05 0.38277E-08 0.30262E-09 5 4 0.10550E-03 0.10000E+01 0.15752E+03 0.39682E-05 0.38277E-08 0.30262E-09 - 5 4 0.18409E-03 0.10000E+01 0.80645E+05 0.86853E-51 0.65372E-62 0.26938E-54 - 5 4 0.18409E-03 0.10000E+01 0.65036E+05 0.73834E-50 0.10420E-60 0.22907E-53 - 5 4 0.18409E-03 0.10000E+01 0.52449E+05 0.63002E-49 0.14115E-59 0.19552E-52 - 5 4 0.18409E-03 0.10000E+01 0.42297E+05 0.47714E-48 0.19421E-58 0.14814E-51 - 5 4 0.18409E-03 0.10000E+01 0.34111E+05 0.34797E-47 0.27167E-57 0.10812E-50 - 5 4 0.18409E-03 0.10000E+01 0.27509E+05 0.25419E-46 0.37915E-56 0.79078E-50 - 5 4 0.18409E-03 0.10000E+01 0.22184E+05 0.18595E-45 0.52724E-55 0.57957E-49 - 5 4 0.18409E-03 0.10000E+01 0.17891E+05 0.13575E-44 0.73104E-54 0.42427E-48 - 5 4 0.18409E-03 0.10000E+01 0.14428E+05 0.98835E-44 0.10117E-52 0.31001E-47 - 5 4 0.18409E-03 0.10000E+01 0.11635E+05 0.71799E-43 0.13978E-51 0.22617E-46 - 5 4 0.18409E-03 0.10000E+01 0.93834E+04 0.52061E-42 0.19264E-50 0.16479E-45 - 5 4 0.18409E-03 0.10000E+01 0.75673E+04 0.37660E-41 0.26442E-49 0.11987E-44 - 5 4 0.18409E-03 0.10000E+01 0.61026E+04 0.27146E-40 0.36092E-48 0.86982E-44 - 5 4 0.18409E-03 0.10000E+01 0.49215E+04 0.19469E-39 0.48899E-47 0.62897E-43 - 5 4 0.18409E-03 0.10000E+01 0.39689E+04 0.13869E-38 0.65620E-46 0.45270E-42 - 5 4 0.18409E-03 0.10000E+01 0.32008E+04 0.30829E-36 0.27305E-43 0.10191E-39 - 5 4 0.18409E-03 0.10000E+01 0.25813E+04 0.11321E-27 0.18301E-34 0.37908E-31 - 5 4 0.18409E-03 0.10000E+01 0.20817E+04 0.11865E-11 0.32612E-18 0.39451E-15 + 5 4 0.18409E-03 0.10000E+01 0.80645E+05 0.58593E-08 0.38466E-19 0.18171E-11 + 5 4 0.18409E-03 0.10000E+01 0.65036E+05 0.75330E-08 0.90678E-19 0.23364E-11 + 5 4 0.18409E-03 0.10000E+01 0.52449E+05 0.95620E-08 0.21325E-18 0.29664E-11 + 5 4 0.18409E-03 0.10000E+01 0.42297E+05 0.12033E-07 0.50019E-18 0.37341E-11 + 5 4 0.18409E-03 0.10000E+01 0.34111E+05 0.15052E-07 0.11703E-17 0.46733E-11 + 5 4 0.18409E-03 0.10000E+01 0.27509E+05 0.18748E-07 0.27317E-17 0.58249E-11 + 5 4 0.18409E-03 0.10000E+01 0.22184E+05 0.23278E-07 0.63602E-17 0.72392E-11 + 5 4 0.18409E-03 0.10000E+01 0.17891E+05 0.28828E-07 0.14763E-16 0.89766E-11 + 5 4 0.18409E-03 0.10000E+01 0.14428E+05 0.35622E-07 0.34134E-16 0.11110E-10 + 5 4 0.18409E-03 0.10000E+01 0.11635E+05 0.43927E-07 0.78517E-16 0.13729E-10 + 5 4 0.18409E-03 0.10000E+01 0.93834E+04 0.54055E-07 0.17941E-15 0.16938E-10 + 5 4 0.18409E-03 0.10000E+01 0.75673E+04 0.66368E-07 0.40661E-15 0.20862E-10 + 5 4 0.18409E-03 0.10000E+01 0.61026E+04 0.81276E-07 0.91303E-15 0.25646E-10 + 5 4 0.18409E-03 0.10000E+01 0.49215E+04 0.99235E-07 0.20339E-14 0.31457E-10 + 5 4 0.18409E-03 0.10000E+01 0.39689E+04 0.12074E-06 0.45226E-14 0.38482E-10 + 5 4 0.18409E-03 0.10000E+01 0.32008E+04 0.14635E-06 0.10183E-13 0.46926E-10 + 5 4 0.18409E-03 0.10000E+01 0.25813E+04 0.17671E-06 0.23772E-13 0.57007E-10 + 5 4 0.18409E-03 0.10000E+01 0.20817E+04 0.21274E-06 0.59194E-13 0.68961E-10 5 4 0.18409E-03 0.10000E+01 0.16788E+04 0.25599E-06 0.16041E-12 0.83043E-10 5 4 0.18409E-03 0.10000E+01 0.13538E+04 0.30928E-06 0.47326E-12 0.99545E-10 5 4 0.18409E-03 0.10000E+01 0.10918E+04 0.37804E-06 0.14958E-11 0.11883E-09 @@ -30970,24 +30970,24 @@ VERSION 2.8.2 5 4 0.18409E-03 0.10000E+01 0.24221E+03 0.46539E-05 0.35244E-08 0.43480E-09 5 4 0.18409E-03 0.10000E+01 0.19533E+03 0.69242E-05 0.66791E-08 0.52805E-09 5 4 0.18409E-03 0.10000E+01 0.15752E+03 0.69242E-05 0.66791E-08 0.52805E-09 - 5 4 0.32123E-03 0.10000E+01 0.80645E+05 0.15155E-50 0.11407E-61 0.47006E-54 - 5 4 0.32123E-03 0.10000E+01 0.65036E+05 0.12884E-49 0.18183E-60 0.39972E-53 - 5 4 0.32123E-03 0.10000E+01 0.52449E+05 0.10994E-48 0.24629E-59 0.34116E-52 - 5 4 0.32123E-03 0.10000E+01 0.42297E+05 0.83258E-48 0.33889E-58 0.25849E-51 - 5 4 0.32123E-03 0.10000E+01 0.34111E+05 0.60719E-47 0.47405E-57 0.18867E-50 - 5 4 0.32123E-03 0.10000E+01 0.27509E+05 0.44354E-46 0.66160E-56 0.13799E-49 - 5 4 0.32123E-03 0.10000E+01 0.22184E+05 0.32447E-45 0.92001E-55 0.10113E-48 - 5 4 0.32123E-03 0.10000E+01 0.17891E+05 0.23688E-44 0.12756E-53 0.74032E-48 - 5 4 0.32123E-03 0.10000E+01 0.14428E+05 0.17246E-43 0.17653E-52 0.54094E-47 - 5 4 0.32123E-03 0.10000E+01 0.11635E+05 0.12528E-42 0.24391E-51 0.39465E-46 - 5 4 0.32123E-03 0.10000E+01 0.93834E+04 0.90842E-42 0.33614E-50 0.28755E-45 - 5 4 0.32123E-03 0.10000E+01 0.75673E+04 0.65714E-41 0.46140E-49 0.20917E-44 - 5 4 0.32123E-03 0.10000E+01 0.61026E+04 0.47367E-40 0.62978E-48 0.15178E-43 - 5 4 0.32123E-03 0.10000E+01 0.49215E+04 0.33971E-39 0.85326E-47 0.10975E-42 - 5 4 0.32123E-03 0.10000E+01 0.39689E+04 0.24200E-38 0.11450E-45 0.78994E-42 - 5 4 0.32123E-03 0.10000E+01 0.32008E+04 0.53794E-36 0.47646E-43 0.17783E-39 - 5 4 0.32123E-03 0.10000E+01 0.25813E+04 0.19755E-27 0.31933E-34 0.66147E-31 - 5 4 0.32123E-03 0.10000E+01 0.20817E+04 0.20703E-11 0.56907E-18 0.68840E-15 + 5 4 0.32123E-03 0.10000E+01 0.80645E+05 0.10224E-07 0.67122E-19 0.31707E-11 + 5 4 0.32123E-03 0.10000E+01 0.65036E+05 0.13145E-07 0.15823E-18 0.40770E-11 + 5 4 0.32123E-03 0.10000E+01 0.52449E+05 0.16685E-07 0.37210E-18 0.51762E-11 + 5 4 0.32123E-03 0.10000E+01 0.42297E+05 0.20996E-07 0.87280E-18 0.65158E-11 + 5 4 0.32123E-03 0.10000E+01 0.34111E+05 0.26264E-07 0.20421E-17 0.81546E-11 + 5 4 0.32123E-03 0.10000E+01 0.27509E+05 0.32714E-07 0.47667E-17 0.10164E-10 + 5 4 0.32123E-03 0.10000E+01 0.22184E+05 0.40618E-07 0.11098E-16 0.12632E-10 + 5 4 0.32123E-03 0.10000E+01 0.17891E+05 0.50302E-07 0.25761E-16 0.15664E-10 + 5 4 0.32123E-03 0.10000E+01 0.14428E+05 0.62158E-07 0.59562E-16 0.19387E-10 + 5 4 0.32123E-03 0.10000E+01 0.11635E+05 0.76650E-07 0.13701E-15 0.23956E-10 + 5 4 0.32123E-03 0.10000E+01 0.93834E+04 0.94323E-07 0.31306E-15 0.29556E-10 + 5 4 0.32123E-03 0.10000E+01 0.75673E+04 0.11581E-06 0.70950E-15 0.36402E-10 + 5 4 0.32123E-03 0.10000E+01 0.61026E+04 0.14182E-06 0.15932E-14 0.44750E-10 + 5 4 0.32123E-03 0.10000E+01 0.49215E+04 0.17316E-06 0.35490E-14 0.54891E-10 + 5 4 0.32123E-03 0.10000E+01 0.39689E+04 0.21069E-06 0.78917E-14 0.67149E-10 + 5 4 0.32123E-03 0.10000E+01 0.32008E+04 0.25536E-06 0.17769E-13 0.81882E-10 + 5 4 0.32123E-03 0.10000E+01 0.25813E+04 0.30834E-06 0.41481E-13 0.99473E-10 + 5 4 0.32123E-03 0.10000E+01 0.20817E+04 0.37122E-06 0.10329E-12 0.12033E-09 5 4 0.32123E-03 0.10000E+01 0.16788E+04 0.44668E-06 0.27990E-12 0.14491E-09 5 4 0.32123E-03 0.10000E+01 0.13538E+04 0.53967E-06 0.82581E-12 0.17370E-09 5 4 0.32123E-03 0.10000E+01 0.10918E+04 0.65965E-06 0.26102E-11 0.20735E-09 diff --git a/run/p3_lookup_table_2.dat-v2.8.2 b/run/p3_lookup_table_2.dat-v4.1 similarity index 99% rename from run/p3_lookup_table_2.dat-v2.8.2 rename to run/p3_lookup_table_2.dat-v4.1 index 48915520fd..67aa0236ef 100644 --- a/run/p3_lookup_table_2.dat-v2.8.2 +++ b/run/p3_lookup_table_2.dat-v4.1 @@ -1,4 +1,4 @@ -VERSION 2.8.2 +VERSION 4.1 1 1 0.00000E+00 1 1 0.79683E-15 0.10000E+01 0.15873E-53 0.74799E-66 1 1 0.00000E+00 2 1 0.79683E-15 0.10000E+01 0.15873E-53 0.74799E-66 diff --git a/share/Makefile b/share/Makefile index ac95ade6c3..450d81a84b 100644 --- a/share/Makefile +++ b/share/Makefile @@ -14,6 +14,7 @@ MODULES1= \ module_llxy.o \ module_interp_nmm.o \ module_interp_store.o \ + module_string_tools.o \ module_MPP.o MODULES2= \ diff --git a/share/dfi.F b/share/dfi.F index 11967c5f9b..5c6ace8eea 100644 --- a/share/dfi.F +++ b/share/dfi.F @@ -47,9 +47,20 @@ SUBROUTINE dfi_accumulate( grid ) IF ( grid%dfi_savehydmeteors .EQ. 0 ) then grid%dfi_moist(:,:,:,:) = grid%dfi_moist(:,:,:,:) + grid%moist(:,:,:,:) * hn grid%dfi_scalar(:,:,:,:) = grid%dfi_scalar(:,:,:,:) + grid%scalar(:,:,:,:) * hn - grid%dfi_re_cloud(:,:,:) = grid%dfi_re_cloud(:,:,:) + grid%re_cloud(:,:,:) * hn - grid%dfi_re_ice(:,:,:) = grid%dfi_re_ice(:,:,:) + grid%re_ice(:,:,:) * hn - grid%dfi_re_snow(:,:,:) = grid%dfi_re_snow(:,:,:) + grid%re_snow(:,:,:) * hn + IF ( grid%mp_physics_dfi .NE. NUWRF4ICESCHEME_DFI ) THEN + grid%dfi_re_cloud(:,:,:) = grid%dfi_re_cloud(:,:,:) + grid%re_cloud(:,:,:) * hn + grid%dfi_re_ice(:,:,:) = grid%dfi_re_ice(:,:,:) + grid%re_ice(:,:,:) * hn + grid%dfi_re_snow(:,:,:) = grid%dfi_re_snow(:,:,:) + grid%re_snow(:,:,:) * hn +#if (EM_CORE == 1) + ELSE IF ( grid%mp_physics_dfi .EQ. NUWRF4ICESCHEME_DFI ) THEN + grid%dfi_re_cloud_gsfc(:,:,:) = grid%dfi_re_cloud_gsfc(:,:,:) + grid%re_cloud_gsfc(:,:,:) * hn + grid%dfi_re_rain_gsfc(:,:,:) = grid%dfi_re_rain_gsfc(:,:,:) + grid%re_rain_gsfc(:,:,:) * hn + grid%dfi_re_ice_gsfc(:,:,:) = grid%dfi_re_ice_gsfc(:,:,:) + grid%re_ice_gsfc(:,:,:) * hn + grid%dfi_re_snow_gsfc(:,:,:) = grid%dfi_re_snow_gsfc(:,:,:) + grid%re_snow_gsfc(:,:,:) * hn + grid%dfi_re_graupel_gsfc(:,:,:) = grid%dfi_re_graupel_gsfc(:,:,:) + grid%re_graupel_gsfc(:,:,:) * hn + grid%dfi_re_hail_gsfc(:,:,:) = grid%dfi_re_hail_gsfc(:,:,:) + grid%re_hail_gsfc(:,:,:) * hn +#endif + ENDIF ELSE grid%dfi_moist(:,:,:,P_QV) = grid%dfi_moist(:,:,:,P_QV) + grid%moist(:,:,:,P_QV) * hn ENDIF @@ -685,9 +696,20 @@ SUBROUTINE dfi_array_reset( grid ) ! print *,'Normal DFI' grid%moist(:,:,:,:) = max(0.,grid%dfi_moist(:,:,:,:) / grid%hcoeff_tot) grid%scalar(:,:,:,:) = max(0.,grid%dfi_scalar(:,:,:,:) / grid%hcoeff_tot) - grid%re_cloud(:,:,:) = max(0.,grid%dfi_re_cloud(:,:,:) / grid%hcoeff_tot) - grid%re_ice(:,:,:) = max(0.,grid%dfi_re_ice(:,:,:) / grid%hcoeff_tot) - grid%re_snow(:,:,:) = max(0.,grid%dfi_re_snow(:,:,:) / grid%hcoeff_tot) + IF ( grid%mp_physics_dfi .NE. NUWRF4ICESCHEME_DFI ) THEN + grid%re_cloud(:,:,:) = max(0.,grid%dfi_re_cloud(:,:,:) / grid%hcoeff_tot) + grid%re_ice(:,:,:) = max(0.,grid%dfi_re_ice(:,:,:) / grid%hcoeff_tot) + grid%re_snow(:,:,:) = max(0.,grid%dfi_re_snow(:,:,:) / grid%hcoeff_tot) +#if (EM_CORE == 1) + ELSE IF ( grid%mp_physics_dfi .EQ. NUWRF4ICESCHEME_DFI ) THEN + grid%re_cloud_gsfc(:,:,:) = max(0.,grid%dfi_re_cloud_gsfc(:,:,:) / grid%hcoeff_tot) + grid%re_rain_gsfc(:,:,:) = max(0.,grid%dfi_re_rain_gsfc(:,:,:) / grid%hcoeff_tot) + grid%re_ice_gsfc(:,:,:) = max(0.,grid%dfi_re_ice_gsfc(:,:,:) / grid%hcoeff_tot) + grid%re_snow_gsfc(:,:,:) = max(0.,grid%dfi_re_snow_gsfc(:,:,:) / grid%hcoeff_tot) + grid%re_graupel_gsfc(:,:,:) = max(0.,grid%dfi_re_graupel_gsfc(:,:,:) / grid%hcoeff_tot) + grid%re_hail_gsfc(:,:,:) = max(0.,grid%dfi_re_hail_gsfc(:,:,:) / grid%hcoeff_tot) +#endif + ENDIF ELSE ! print *,'In dfi_array_reset, QV comp, dfi_save_hydrometeors=1' grid%moist(:,:,:,P_QV) = max(0.,grid%dfi_moist(:,:,:,P_QV) / grid%hcoeff_tot) @@ -772,8 +794,13 @@ SUBROUTINE dfi_array_reset( grid ) DO j=jts,jte DO i=its,ite do k = kts , kte - temp = (grid%t_2(i,k,j)+t0)*( (grid%p(i,k,j)+grid%pb(i,k,j))/p1000mb )& - ** (r_d / Cp) + if ( grid%use_theta_m .EQ. 1 ) then + temp = (grid%t_2(i,k,j)+t0) / (1. + R_v/R_d*grid%moist(i,k,j,P_Qv)) * & + ( (grid%p(i,k,j)+grid%pb(i,k,j))/p1000mb ) ** (r_d / Cp) + else + temp = (grid%t_2(i,k,j)+t0) * & + ( (grid%p(i,k,j)+grid%pb(i,k,j))/p1000mb ) ** (r_d / Cp) + endif pres = grid%p(i,k,j)+grid%pb(i,k,j) !tgs rslf - function to compute qs from Thompson microphysics qs = rslf(pres, temp) @@ -952,9 +979,20 @@ SUBROUTINE dfi_clear_accumulation( grid ) ! print *,'normal DFI' grid%dfi_moist(:,:,:,:) = 0. grid%dfi_scalar(:,:,:,:) = 0. - grid%dfi_re_cloud(:,:,:) = 0. - grid%dfi_re_ice(:,:,:) = 0. - grid%dfi_re_snow(:,:,:) = 0. + IF ( grid%mp_physics_dfi .NE. NUWRF4ICESCHEME_DFI ) THEN + grid%re_cloud(:,:,:) = 0. + grid%re_ice(:,:,:) = 0. + grid%re_snow(:,:,:) = 0. +#if (EM_CORE == 1) + ELSE IF ( grid%mp_physics_dfi .EQ. NUWRF4ICESCHEME_DFI ) THEN + grid%re_cloud_gsfc(:,:,:) = 0. + grid%re_rain_gsfc(:,:,:) = 0. + grid%re_ice_gsfc(:,:,:) = 0. + grid%re_snow_gsfc(:,:,:) = 0. + grid%re_graupel_gsfc(:,:,:) = 0. + grid%re_hail_gsfc(:,:,:) = 0. +#endif + ENDIF ELSE ! print *,'In dfi_clear_accumulation, clear dfi_QV - dfi_savehydmeteors=1' grid%dfi_moist(:,:,:,P_QV) = 0. @@ -1061,8 +1099,13 @@ SUBROUTINE dfi_save_arrays( grid ) DO j=jts,jte DO i=its,ite do k = kts , kte - temp = (grid%t_2(i,k,j)+t0)*( (grid%p(i,k,j)+grid%pb(i,k,j))/p1000mb )& - ** (r_d / Cp) + if ( grid%use_theta_m .EQ. 1 ) then + temp = (grid%t_2(i,k,j)+t0) / (1. + R_v/R_d*grid%moist(i,k,j,P_Qv)) * & + ( (grid%p(i,k,j)+grid%pb(i,k,j))/p1000mb ) ** (r_d / Cp) + else + temp = (grid%t_2(i,k,j)+t0) * & + ( (grid%p(i,k,j)+grid%pb(i,k,j))/p1000mb ) ** (r_d / Cp) + endif pres = grid%p(i,k,j)+grid%pb(i,k,j) !tgs rslf - function to compute qs from Thompson microphysics qs = rslf(pres, temp) @@ -3394,7 +3437,11 @@ SUBROUTINE rebalance_dfi ( grid & qvf1 = qtot*qvf2 grid%p(i,kk,j) = - 0.5*((grid%c1f(k)*grid%Mu_2(i,j))+qvf1*(grid%c1f(k)*grid%Mub(i,j)+grid%c2f(k)))/grid%rdnw(kk)/qvf2 - qvf = 1.+rvovrd*moist(i,kk,j,P_QV) + if ( grid%use_theta_m .EQ. 1 ) then + qvf = 1. + else + qvf = 1.+rvovrd*moist(i,kk,j,P_QV) + endif grid%alt(i,kk,j) = (r_d/p1000mb)*(grid%t_2(i,kk,j)+t0)*qvf* & (((grid%p(i,kk,j)+grid%pb(i,kk,j))/p1000mb)**cvpm) grid%al(i,kk,j) = grid%alt(i,kk,j) - grid%alb(i,kk,j) @@ -3413,7 +3460,11 @@ SUBROUTINE rebalance_dfi ( grid & qvf1 = qtot*qvf2 grid%p(i,kk,j) = grid%p(i,kk+1,j) - ((grid%c1f(k)*grid%Mu_2(i,j)) + & qvf1*(grid%c1f(k)*grid%Mub(i,j)+grid%c2f(k)))/qvf2/grid%rdn(kk+1) - qvf = 1. + rvovrd*moist(i,kk,j,P_QV) + if ( grid%use_theta_m .EQ. 1 ) then + qvf = 1. + else + qvf = 1.+rvovrd*moist(i,kk,j,P_QV) + endif grid%alt(i,kk,j) = (r_d/p1000mb)*(grid%t_2(i,kk,j)+t0)*qvf* & (((grid%p(i,kk,j)+grid%pb(i,kk,j))/p1000mb)**cvpm) grid%al(i,kk,j) = grid%alt(i,kk,j) - grid%alb(i,kk,j) diff --git a/share/input_wrf.F b/share/input_wrf.F index 38a045eab8..64cd262f87 100644 --- a/share/input_wrf.F +++ b/share/input_wrf.F @@ -903,14 +903,28 @@ SUBROUTINE input_wrf ( fid , grid , config_flags , switch , ierr ) ( ( switch .EQ. auxinput1_only ) .AND. & ( config_flags%auxinput1_inname(1:8) .EQ. 'wrf_real' ) ) ) THEN - ! Test to make sure that the input data is the right size. + ! Test to make sure that the input data is the right size: real into WRF. - IF ( ( ide .NE. ide_compare ) .OR. & - ( kde .NE. kde_compare ) .OR. & - ( jde .NE. jde_compare ) ) THEN - WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist ide,jde,kde=',ide,jde,kde + IF ( ide .NE. ide_compare ) THEN + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist e_we = ',ide + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file WEST-EAST_GRID_DIMENSION = ',ide_compare + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + CALL wrf_debug ( 0, "---- ERROR: Mismatch between namelist and input file dimensions" ) + count_fatal_error = count_fatal_error + 1 + ENDIF + IF ( jde .NE. jde_compare ) THEN + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist e_sn = ',jde CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) - WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file ide,jde,kde=',ide_compare , jde_compare , kde_compare + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file SOUTH-NORTH_GRID_DIMENSION = ',jde_compare + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + CALL wrf_debug ( 0, "---- ERROR: Mismatch between namelist and input file dimensions" ) + count_fatal_error = count_fatal_error + 1 + ENDIF + IF ( kde .NE. kde_compare ) THEN + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist e_vert = ',kde + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file BOTTOM-TOP_GRID_DIMENSION = ',kde_compare CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) CALL wrf_debug ( 0, "---- ERROR: Mismatch between namelist and input file dimensions" ) count_fatal_error = count_fatal_error + 1 @@ -918,14 +932,28 @@ SUBROUTINE input_wrf ( fid , grid , config_flags , switch , ierr ) ELSE IF ( switch .EQ. auxinput1_only ) THEN - ! Test to make sure that the input data is the right size. + ! Test to make sure that the input data is the right size: metgrid into real. - IF ( ( ide .NE. ide_compare ) .OR. & - ( config_flags%num_metgrid_levels .NE. kde_compare ) .OR. & - ( jde .NE. jde_compare ) ) THEN - WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist ide,jde,num_metgrid_levels=',ide,jde,config_flags%num_metgrid_levels + IF ( ide .NE. ide_compare ) THEN + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist e_we = ',ide + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file WEST-EAST_GRID_DIMENSION = ',ide_compare + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + CALL wrf_debug ( 0, "---- ERROR: Mismatch between namelist and input file dimensions" ) + count_fatal_error = count_fatal_error + 1 + ENDIF + IF ( jde .NE. jde_compare ) THEN + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist e_sn = ',jde + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file SOUTH-NORTH_GRID_DIMENSION = ',jde_compare + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + CALL wrf_debug ( 0, "---- ERROR: Mismatch between namelist and input file dimensions" ) + count_fatal_error = count_fatal_error + 1 + ENDIF + IF ( config_flags%num_metgrid_levels .NE. kde_compare ) THEN + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: namelist num_metgrid_levels = ',config_flags%num_metgrid_levels CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) - WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file ide,jde,kde =',ide_compare , jde_compare , kde_compare + WRITE(wrf_err_message,*)'input_wrf.F: SIZE MISMATCH: input file BOTTOM-TOP_GRID_DIMENSION = ',kde_compare CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) CALL wrf_debug ( 0, "---- ERROR: Mismatch between namelist and input file dimensions" ) count_fatal_error = count_fatal_error + 1 @@ -1875,6 +1903,7 @@ SUBROUTINE is_this_data_ok_to_use ( fid , yes_use_this_data ) IF ( & ( INDEX(TRIM(input_title_char),'METGRID' ) .NE. 0 ) .OR. & + ( INDEX(TRIM(input_title_char),'OBSGRID' ) .NE. 0 ) .OR. & ( INDEX(TRIM(input_title_char),'SFCFDDA' ) .NE. 0 ) .OR. & ( INDEX(TRIM(input_title_char),'EMISSIONS' ) .NE. 0 ) .OR. & ( INDEX(TRIM(input_title_char),'XYZZY' ) .NE. 0 ) & diff --git a/share/mediation_integrate.F b/share/mediation_integrate.F index 330fe04bde..60f97347d1 100644 --- a/share/mediation_integrate.F +++ b/share/mediation_integrate.F @@ -753,6 +753,7 @@ END SUBROUTINE wrf_tsin CALL adjust_tempqv ( nest%mub , nest%mub_save , & nest%c3h , nest%c4h , nest%znw , nest%p_top , & nest%t_2 , nest%p , nest%moist(ims,kms,jms,P_QV) , & + nest_config_flags%use_theta_m, & ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & ips , ipe , jps , jpe , kps , kpe ) diff --git a/share/module_check_a_mundo.F b/share/module_check_a_mundo.F index 4afefd19fc..1f0fb79731 100644 --- a/share/module_check_a_mundo.F +++ b/share/module_check_a_mundo.F @@ -67,6 +67,52 @@ SUBROUTINE check_nml_consistency ! INTEGER :: count_fatal_error + ! These functions are located with in the Urban Physics files, but + ! not within the confines of the modules. Since we are in the share + ! directory, we need to break possible circular build dependencies. + + INTERFACE + INTEGER FUNCTION bep_nurbm() + END FUNCTION bep_nurbm + + INTEGER FUNCTION bep_ndm() + END FUNCTION bep_ndm + + INTEGER FUNCTION bep_nz_um() + END FUNCTION bep_nz_um + + INTEGER FUNCTION bep_ng_u() + END FUNCTION bep_ng_u + + INTEGER FUNCTION bep_nwr_u() + END FUNCTION bep_nwr_u + + INTEGER FUNCTION bep_bem_nurbm() + END FUNCTION bep_bem_nurbm + + INTEGER FUNCTION bep_bem_ndm() + END FUNCTION bep_bem_ndm + + INTEGER FUNCTION bep_bem_nz_um() + END FUNCTION bep_bem_nz_um + + INTEGER FUNCTION bep_bem_ng_u() + END FUNCTION bep_bem_ng_u + + INTEGER FUNCTION bep_bem_nwr_u() + END FUNCTION bep_bem_nwr_u + + INTEGER FUNCTION bep_bem_nf_u() + END FUNCTION bep_bem_nf_u + + INTEGER FUNCTION bep_bem_ngb_u() + END FUNCTION bep_bem_ngb_u + + INTEGER FUNCTION bep_bem_nbui_max() + END FUNCTION bep_bem_nbui_max + END INTERFACE + + !----------------------------------------------------------------------- ! Set up the WRF Hydro namelist option to allow dynamic allocation of ! variables. @@ -95,6 +141,97 @@ SUBROUTINE check_nml_consistency #endif #if (EM_CORE == 1) +!----------------------------------------------------------------------- +! AFWA diagnostics require each domain is treated the same. If +! any domain has an option activated, all domains must have that +! option activated. +!----------------------------------------------------------------------- + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_diag_opt(i) .EQ. 1 ) then + model_config_rec%afwa_diag_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_ptype_opt(i) .EQ. 1 ) then + model_config_rec%afwa_ptype_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_vil_opt(i) .EQ. 1 ) then + model_config_rec%afwa_vil_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_radar_opt(i) .EQ. 1 ) then + model_config_rec%afwa_radar_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_severe_opt(i) .EQ. 1 ) then + model_config_rec%afwa_severe_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_icing_opt(i) .EQ. 1 ) then + model_config_rec%afwa_icing_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_cloud_opt(i) .EQ. 1 ) then + model_config_rec%afwa_cloud_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_vis_opt(i) .EQ. 1 ) then + model_config_rec%afwa_vis_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_therm_opt(i) .EQ. 1 ) then + model_config_rec%afwa_therm_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_turb_opt(i) .EQ. 1 ) then + model_config_rec%afwa_turb_opt(:) = 1 + exit + endif + enddo + do i=1,model_config_rec%max_dom + if ( model_config_rec%afwa_buoy_opt(i) .EQ. 1 ) then + model_config_rec%afwa_buoy_opt(:) = 1 + exit + endif + enddo + +!----------------------------------------------------------------------- +! If any AFWA diagnostics are activated, there is a minimum that +! must always be activated. +!----------------------------------------------------------------------- + do i=1,model_config_rec%max_dom + if ( ( model_config_rec%afwa_ptype_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_vil_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_radar_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_severe_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_icing_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_cloud_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_vis_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_therm_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_turb_opt(i) .EQ. 1 ) .OR. & + ( model_config_rec%afwa_buoy_opt(i) .EQ. 1 ) ) then + model_config_rec%afwa_diag_opt(i)=1 + endif + enddo + !----------------------------------------------------------------------- ! LBC: Always the case, nested setup up: F, T, T, T !----------------------------------------------------------------------- @@ -178,6 +315,28 @@ SUBROUTINE check_nml_consistency count_fatal_error = count_fatal_error + 1 END IF +!----------------------------------------------------------------------- +! Assign the dimensions for the urban options to the values defined in +! each of those respective modules. +!----------------------------------------------------------------------- + DO i = 1, model_config_rec % max_dom + IF ( model_config_rec % sf_urban_physics(i) == bepscheme ) THEN + model_config_rec % num_urban_ndm = bep_ndm() + model_config_rec % num_urban_nz = bep_nz_um() + model_config_rec % num_urban_ng = bep_ng_u() + model_config_rec % num_urban_nwr = bep_nwr_u() + END IF + IF ( model_config_rec % sf_urban_physics(i) == bep_bemscheme ) THEN + model_config_rec % num_urban_ndm = bep_bem_ndm() + model_config_rec % num_urban_nz = bep_bem_nz_um() + model_config_rec % num_urban_ng = bep_bem_ng_u() + model_config_rec % num_urban_nwr = bep_bem_nwr_u() + model_config_rec % num_urban_nf = bep_bem_nf_u() + model_config_rec % num_urban_ngb = bep_bem_ngb_u() + model_config_rec % num_urban_nbui = bep_bem_nbui_max() + END IF + ENDDO + !----------------------------------------------------------------------- ! Check that mosiac option cannot turn on when sf_urban_physics = 2 and 3 !----------------------------------------------------------------------- @@ -195,14 +354,68 @@ SUBROUTINE check_nml_consistency END IF ENDDO +!----------------------------------------------------------------------- +! Check that Deng Shallow Convection Must work with MYJ or MYNN PBL +!----------------------------------------------------------------------- + DO i = 1, model_config_rec % max_dom + IF ( model_config_rec % shcu_physics(i) == dengshcuscheme .AND. & + (model_config_rec % bl_pbl_physics(i) /= myjpblscheme .OR. & + model_config_rec % bl_pbl_physics(i) /= mynnpblscheme2 ) ) THEN + wrf_err_message = '--- ERROR: Deng shallow convection can only work with MYJ or MYNN PBL ' + CALL wrf_message ( wrf_err_message ) + wrf_err_message = '--- ERROR: Fix shcu_physics or bl_pbl_physics in namelist.input.' + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + count_fatal_error = count_fatal_error + 1 + END IF + ENDDO + +#endif + +#if (EM_CORE == 1) +!----------------------------------------------------------------------- +! There is a binary file for Goddard radiation. It is single precision. +!----------------------------------------------------------------------- +# if ( defined(PROMOTE_FLOAT) || ( RWORDSIZE == DWORDSIZE ) ) + god_r8 : DO i = 1, model_config_rec % max_dom + IF ( ( model_config_rec % ra_lw_physics(i) == goddardlwscheme ) .OR. & + ( model_config_rec % ra_sw_physics(i) == goddardswscheme ) ) THEN + wrf_err_message = '--- ERROR: Goddard radiation scheme cannot run with real*8 floats' + CALL wrf_message ( wrf_err_message ) + wrf_err_message = '--- Fix ra_lw_physics and ra_sw_physics in namelist.input ' + CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) + count_fatal_error = count_fatal_error + 1 + EXIT god_r8 + END IF + ENDDO god_r8 + +# endif + +!----------------------------------------------------------------------- +! Print a warning message for not using a combination of radiation and microphysics from Goddard +!----------------------------------------------------------------------- + DO i = 1, model_config_rec % max_dom + IF ( ( (model_config_rec % ra_lw_physics(i) == goddardlwscheme .OR. & + model_config_rec % ra_sw_physics(i) == goddardswscheme) .AND. & + model_config_rec % mp_physics(i) /= nuwrf4icescheme ) .OR. & + ( model_config_rec % mp_physics(i) == nuwrf4icescheme .AND. & + (model_config_rec % ra_lw_physics(i) /= goddardlwscheme .AND. & + model_config_rec % ra_sw_physics(i) /= goddardswscheme) ) ) THEN + wrf_err_message = '--- WARNING: Goddard radiation and Goddard 4ice microphysics are not used together' + CALL wrf_message ( wrf_err_message ) + wrf_err_message = '--- WARNING: These options may be best to use together.' + CALL wrf_message ( wrf_err_message ) + END IF + ENDDO + #endif !----------------------------------------------------------------------- -! Check that NSSL microphysics is not allowed for WRF-NMM run +! Check that some microphysics is not allowed for WRF-NMM run !----------------------------------------------------------------------- #if (NMM_CORE == 1) || (HWRF == 1) DO i = 1, model_config_rec % max_dom - IF ( model_config_rec % mp_physics(i) == nssl_2mom .OR. & + IF ( model_config_rec % mp_physics(i) == nuwrf4icescheme .OR. & + model_config_rec % mp_physics(i) == nssl_2mom .OR. & model_config_rec % mp_physics(i) == nssl_2momccn .OR. & model_config_rec % mp_physics(i) == nssl_1mom .OR. & model_config_rec % mp_physics(i) == nssl_1momlfo .OR. & @@ -266,6 +479,31 @@ SUBROUTINE check_nml_consistency model_config_rec%mp_physics(i) = d1_value END DO +#if (EM_CORE == 1) +!----------------------------------------------------------------------- +! There are restrictions on the AFWA diagnostics regarding the choice +! of microphysics scheme. These are hard coded in the AFWA diags driver, +! so while this is inelegant, it is about as good as we can do. +!----------------------------------------------------------------------- + IF ( model_config_rec%afwa_diag_opt(1) .EQ. 1 ) THEN + IF ( ( model_config_rec % mp_physics(1) .EQ. GSFCGCESCHEME ) .OR. & + ( model_config_rec % mp_physics(1) .EQ. ETAMPNEW ) .OR. & + ( model_config_rec % mp_physics(1) .EQ. THOMPSON ) .OR. & + ( model_config_rec % mp_physics(1) .EQ. WSM5SCHEME ) .OR. & + ( model_config_rec % mp_physics(1) .EQ. WSM6SCHEME ) .OR. & + ( model_config_rec % mp_physics(1) .EQ. WDM6SCHEME ) .OR. & + ( model_config_rec % mp_physics(1) .EQ. MORR_TWO_MOMENT ) .OR. & + ( model_config_rec % mp_physics(1) .EQ. MORR_TM_AERO ) ) THEN + ! All is OK + ELSE + wrf_err_message = '--- WARNING: the AFWA diagnostics option knows only about the following MP schemes:' + CALL wrf_message ( wrf_err_message ) + wrf_err_message = '--- GSFCGCESCHEME, ETAMPNEW, THOMPSON, WSM5SCHEME, WSM6SCHEME, MORR_TWO_MOMENT, MORR_TM_AERO, WDM6SCHEME' + CALL wrf_message ( wrf_err_message ) + END IF + END IF +#endif + !----------------------------------------------------------------------- ! Check that all values of ra_physics are the same for all domains @@ -1258,6 +1496,13 @@ SUBROUTINE check_nml_consistency count_fatal_error = count_fatal_error + 1 END IF +!----------------------------------------------------------------------- +! If a user sets nwp_diagnostics = 1, then radar reflectivity computation +! needs to happen +!----------------------------------------------------------------------- + + IF ( model_config_rec % nwp_diagnostics == 1 ) model_config_rec % do_radar_ref = 1 + !----------------------------------------------------------------------- ! If hailcast_opt = 1 for any domain, convective parameterization must be off for that domain. !----------------------------------------------------------------------- @@ -1362,7 +1607,11 @@ SUBROUTINE check_nml_consistency ( model_config_rec%cu_physics(i) .NE. G3SCHEME ) ) THEN wrf_err_message = '--- ERROR: Using cu_diag=1 requires use of one of the following CU schemes:' CALL wrf_message ( wrf_err_message ) - wrf_err_message = '--- Grell (G3) CU scheme' + wrf_err_message = '--- Grell-Freitas (GF) CU scheme' + CALL wrf_message ( wrf_err_message ) + wrf_err_message = '--- Grell 3D (G3) CU scheme' + CALL wrf_message ( wrf_err_message ) + wrf_err_message = '--- Kain–Fritsch Cumulus Potential (KF-CuP) CU scheme' CALL wrf_message ( wrf_err_message ) wrf_err_message = '--- Grell-Devenyi (GD) CU scheme' CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) @@ -1517,7 +1766,7 @@ SUBROUTINE check_nml_consistency END IF !----------------------------------------------------------------------- -! scalar_pblmix = 1 should be turned on for mp_physics=28. +! scalar_pblmix = 1 should be turned on for mp_physics=28. But can be off for MYNN (when bl_mynn_mixscalars = 1) !----------------------------------------------------------------------- oops = 0 DO i = 1, model_config_rec % max_dom @@ -1535,6 +1784,22 @@ SUBROUTINE check_nml_consistency CALL wrf_debug ( 1, wrf_err_message ) END IF + !NOW CHECK FOR MYNN + oops = 0 + DO i = 1, model_config_rec % max_dom + IF ((model_config_rec%bl_pbl_physics(i) .EQ. MYNNPBLSCHEME2) .OR. & + (model_config_rec%bl_pbl_physics(i) .EQ. MYNNPBLSCHEME3) ) THEN + IF ( model_config_rec%bl_mynn_mixscalars(i) .EQ. 1 ) THEN + model_config_rec%scalar_pblmix(i) = 0 + oops = oops + 1 + END IF + END IF + ENDDO ! Loop over domains + IF ( oops .GT. 0 ) THEN + wrf_err_message = '--- WARNING: MYNN is set to mix scalars, turning off scalar_pblmix' + CALL wrf_message ( wrf_err_message ) + END IF + !----------------------------------------------------------------------- ! The hybrid vertical coordinate does not work with vertical refinement. !----------------------------------------------------------------------- @@ -1546,12 +1811,6 @@ SUBROUTINE check_nml_consistency ENDIF END DO -!----------------------------------------------------------------------- -! The hybrid vertical coordinate (HVC) namelist.input option (hybrid_opt=2) -! requires the code to be built with the HVC code enabled. This is a run-time -! test to make sure the correct compile-time capabilities are available. -!----------------------------------------------------------------------- - !----------------------------------------------------------------------- ! DJW Check that we're not using ndown and vertical nesting. !----------------------------------------------------------------------- @@ -2098,6 +2357,41 @@ SUBROUTINE set_physics_rconfigs INTEGER :: i +!----------------------------------------------------------------------- +! Set the namelist urban dimensions if sf_urban_physics > 0 +!----------------------------------------------------------------------- + + IF ( any(model_config_rec%sf_urban_physics > 0 ) ) THEN + + model_config_rec%urban_map_zrd = model_config_rec%num_urban_ndm * & + model_config_rec%num_urban_nwr * & + model_config_rec%num_urban_nz + model_config_rec%urban_map_zwd = model_config_rec%num_urban_ndm * & + model_config_rec%num_urban_nwr * & + model_config_rec%num_urban_nz * & + model_config_rec%num_urban_nbui + model_config_rec%urban_map_gd = model_config_rec%num_urban_ndm * & + model_config_rec%num_urban_ng + model_config_rec%urban_map_zd = model_config_rec%num_urban_ndm * & + model_config_rec%num_urban_nz * & + model_config_rec%num_urban_nbui + model_config_rec%urban_map_zdf = model_config_rec%num_urban_ndm * & + model_config_rec%num_urban_nz + model_config_rec%urban_map_bd = model_config_rec%num_urban_nz * & + model_config_rec%num_urban_nbui + model_config_rec%urban_map_wd = model_config_rec%num_urban_ndm * & + model_config_rec%num_urban_nz * & + model_config_rec%num_urban_nbui + model_config_rec%urban_map_gbd = model_config_rec%num_urban_ndm * & + model_config_rec%num_urban_ngb * & + model_config_rec%num_urban_nbui + model_config_rec%urban_map_fbd = model_config_rec%num_urban_ndm * & + (model_config_rec%num_urban_nz - 1) * & + model_config_rec%num_urban_nf * & + model_config_rec%num_urban_nbui + + END IF + !----------------------------------------------------------------------- ! Set the namelist mosaic_cat_soil parameter for the Noah-mosaic scheme if sf_surface_mosaic == 1. !----------------------------------------------------------------------- @@ -2116,6 +2410,12 @@ SUBROUTINE set_physics_rconfigs END IF #if ( (NMM_CORE != 1) && (DA_CORE != 1) ) +!----------------------------------------------------------------------- +! How big to allocate random seed arrays. +!----------------------------------------------------------------------- + + CALL RANDOM_SEED ( SIZE = model_config_rec % seed_dim ) + !----------------------------------------------------------------------- ! If this is a WRF run with polar boundary conditions, then this is a ! global domain. A global domain needs to have the FFT arrays allocated. @@ -2176,7 +2476,7 @@ SUBROUTINE set_physics_rconfigs CALL wrf_debug ( 1, wrf_err_message ) END IF - + !----------------------------------------------------------------------- ! If a user requested to compute the radar reflectivity .OR. if this is ! one of the schemes that ALWAYS computes the radar reflectivity, then diff --git a/share/module_model_constants.F b/share/module_model_constants.F index aaa1750315..d9a31823c7 100644 --- a/share/module_model_constants.F +++ b/share/module_model_constants.F @@ -17,81 +17,81 @@ MODULE module_model_constants REAL , PARAMETER :: g = 9.81 ! acceleration due to gravity (m {s}^-2) #if ( NMM_CORE == 1 ) - REAL , PARAMETER :: r_d = 287.04 - REAL , PARAMETER :: cp = 1004.6 + REAL , PARAMETER :: r_d = 287.04 ! gas constant for dry air (J deg^-1 kg^-1) + REAL , PARAMETER :: cp = 1004.6 ! Specific heat of dry air at constant pressure (J deg^-1 kg^-1) #else - REAL , PARAMETER :: r_d = 287. - REAL , PARAMETER :: cp = 7.*r_d/2. + REAL , PARAMETER :: r_d = 287. ! gas constant of dry air (J deg^-1 kg^-1) + REAL , PARAMETER :: cp = 7.*r_d/2. ! #endif - REAL , PARAMETER :: r_v = 461.6 - REAL , PARAMETER :: cv = cp-r_d + REAL , PARAMETER :: r_v = 461.6 ! gas constant for water vapor (J deg^-1 kg^-1) + REAL , PARAMETER :: cv = cp-r_d ! Specific heat of air at contant volume (J deg^-1 kg^-1) REAL , PARAMETER :: cpv = 4.*r_v - REAL , PARAMETER :: cvv = cpv-r_v + REAL , PARAMETER :: cvv = cpv-r_v ! REAL , PARAMETER :: cvpm = -cv/cp - REAL , PARAMETER :: cliq = 4190. - REAL , PARAMETER :: cice = 2106. + REAL , PARAMETER :: cliq = 4190. ! specific heat of liquid water at 0^oC + REAL , PARAMETER :: cice = 2106. ! specific heat of ice at 0^oC REAL , PARAMETER :: psat = 610.78 - REAL , PARAMETER :: rcv = r_d/cv + REAL , PARAMETER :: rcv = r_d/cv ! REAL , PARAMETER :: rcp = r_d/cp REAL , PARAMETER :: rovg = r_d/g REAL , PARAMETER :: c2 = cp * rcv - real , parameter :: mwdry = 28.966 ! molecular weight of dry air (g/mole) + real , parameter :: mwdry = 28.966 ! molecular weight of dry air (g/mole) - REAL , PARAMETER :: p1000mb = 100000. - REAL , PARAMETER :: t0 = 300. - REAL , PARAMETER :: p0 = p1000mb + REAL , PARAMETER :: p1000mb = 100000. ! pressure at 1000 hPa (pa) + REAL , PARAMETER :: t0 = 300. ! base state tempertaure (K) + REAL , PARAMETER :: p0 = p1000mb ! base state surface pressure (pa) REAL , PARAMETER :: cpovcv = cp/(cp-r_d) REAL , PARAMETER :: cvovcp = 1./cpovcv REAL , PARAMETER :: rvovrd = r_v/r_d - REAL , PARAMETER :: reradius = 1./6370.0e03 + REAL , PARAMETER :: reradius = 1./6370.0e03 ! reciprocal of earth radius (m^-1) REAL , PARAMETER :: asselin = .025 ! REAL , PARAMETER :: asselin = .0 REAL , PARAMETER :: cb = 25. - REAL , PARAMETER :: XLV0 = 3.15E6 - REAL , PARAMETER :: XLV1 = 2370. - REAL , PARAMETER :: XLS0 = 2.905E6 - REAL , PARAMETER :: XLS1 = 259.532 + REAL , PARAMETER :: XLV0 = 3.15E6 ! constant defined for calculation of latent heating + REAL , PARAMETER :: XLV1 = 2370. ! constant defined for calculation of latent heating + REAL , PARAMETER :: XLS0 = 2.905E6 ! constant defined for calculation of latent heating + REAL , PARAMETER :: XLS1 = 259.532 ! constant defined for calculation of latent heating - REAL , PARAMETER :: XLS = 2.85E6 - REAL , PARAMETER :: XLV = 2.5E6 - REAL , PARAMETER :: XLF = 3.50E5 + REAL , PARAMETER :: XLS = 2.85E6 ! latent heat of sublimation of water at 0^oC (J kg^-1) + REAL , PARAMETER :: XLV = 2.5E6 ! latent heat of vaporization of water at 0^oC (J kg^-1) + REAL , PARAMETER :: XLF = 3.50E5 ! latent heat of fusion of water at 0^oC (J kg^-1) - REAL , PARAMETER :: rhowater = 1000. - REAL , PARAMETER :: rhosnow = 100. - REAL , PARAMETER :: rhoair0 = 1.28 + REAL , PARAMETER :: rhowater = 1000. ! density of liquid water at 0^oC (kg m^-3) + REAL , PARAMETER :: rhosnow = 100. ! density of snow (kg m^-3) + REAL , PARAMETER :: rhoair0 = 1.28 ! density of dry air at 0^oC and 1000mb pressure (kg m^-3) ! ! Now namelist-specified parameter: ccn_conc - RAS ! REAL , PARAMETER :: n_ccn0 = 1.0E8 ! - REAL , PARAMETER :: piconst = 3.1415926535897932384626433 - REAL , PARAMETER :: DEGRAD = piconst/180. + REAL , PARAMETER :: piconst = 3.1415926535897932384626433 ! constant of PI + REAL , PARAMETER :: DEGRAD = piconst/180. ! radians per degree REAL , PARAMETER :: DPD = 360./365. - REAL , PARAMETER :: SVP1=0.6112 - REAL , PARAMETER :: SVP2=17.67 - REAL , PARAMETER :: SVP3=29.65 - REAL , PARAMETER :: SVPT0=273.15 - REAL , PARAMETER :: EP_1=R_v/R_d-1. - REAL , PARAMETER :: EP_2=R_d/R_v - REAL , PARAMETER :: KARMAN=0.4 - REAL , PARAMETER :: EOMEG=7.2921E-5 - REAL , PARAMETER :: STBOLT=5.67051E-8 - - REAL , PARAMETER :: prandtl = 1./3.0 - ! constants for w-damping option - REAL , PARAMETER :: w_alpha = 0.3 ! strength m/s/s - REAL , PARAMETER :: w_beta = 1.0 ! activation cfl number - - REAL , PARAMETER :: pq0=379.90516 - REAL , PARAMETER :: epsq2=0.2 + REAL , PARAMETER :: SVP1=0.6112 ! constant for saturation vapor pressure calculation (dimensionless) + REAL , PARAMETER :: SVP2=17.67 ! constant for saturation vapor pressure calculation (dimensionless) + REAL , PARAMETER :: SVP3=29.65 ! constant for saturation vapor pressure calculation (K) + REAL , PARAMETER :: SVPT0=273.15 ! constant for saturation vapor pressure calculation (K) + REAL , PARAMETER :: EP_1=R_v/R_d-1. ! constant for virtual temperature (r_v/r_d - 1) (dimensionless) + REAL , PARAMETER :: EP_2=R_d/R_v ! constant for specific humidity calculation (dimensionless) + REAL , PARAMETER :: KARMAN=0.4 ! von Karman constant + REAL , PARAMETER :: EOMEG=7.2921E-5 ! angular velocity of rotation (rad^-1) + REAL , PARAMETER :: STBOLT=5.67051E-8 ! Stefan-Boltzmann constant (W m^-2 deg^-4) + + REAL , PARAMETER :: prandtl = 1./3.0 ! prandtl's mixing length (m) + ! constants for w-damping option + REAL , PARAMETER :: w_alpha = 0.3 ! strength m/s/s + REAL , PARAMETER :: w_beta = 1.0 ! activation cfl number + + REAL , PARAMETER :: pq0=379.90516 ! + REAL , PARAMETER :: epsq2=0.2 ! initial TKE for camuw PBL scheme (m2 s^-2) REAL , PARAMETER :: a2=17.2693882 REAL , PARAMETER :: a3=273.16 REAL , PARAMETER :: a4=35.86 - REAL , PARAMETER :: epsq=1.e-12 + REAL , PARAMETER :: epsq=1.e-12 ! threshold specified for SPECIFIC HUMIDITY calculation in BMJ cumulus scheme (kg kg^-1) REAL , PARAMETER :: p608=rvovrd-1. !#if ( NMM_CORE == 1 ) REAL , PARAMETER :: climit=1.e-20 @@ -129,13 +129,13 @@ MODULE module_model_constants REAL , PARAMETER :: wa=0.15 REAL , PARAMETER :: wght=0.35 REAL , PARAMETER :: wpc=0.075 - REAL , PARAMETER :: z0land=0.10 + REAL , PARAMETER :: z0land=0.10 ! surface roughness length over land (m) #if ( HWRF == 1 ) - REAL , PARAMETER :: z0max=0.01 + REAL , PARAMETER :: z0max=0.01 ! maximum roughness length (m) #else - REAL , PARAMETER :: z0max=0.008 + REAL , PARAMETER :: z0max=0.008 ! maximum roughness length (m) #endif - REAL , PARAMETER :: z0sea=0.001 + REAL , PARAMETER :: z0sea=0.001 ! roughness length over ocean (m) !#endif @@ -147,15 +147,12 @@ MODULE module_model_constants ! Orbital constants: - INTEGER , PARAMETER :: PLANET_YEAR = 365 - REAL , PARAMETER :: OBLIQUITY = 23.5 - REAL , PARAMETER :: ECCENTRICITY = 0.014 - REAL , PARAMETER :: SEMIMAJORAXIS = 1.0 ! In AU - ! Don't know the following values, so we'll fake them for now - REAL , PARAMETER :: zero_date = 0.0 ! Time of perihelion passage - ! Fraction into the year (from perhelion) of the - ! occurrence of the Northern Spring Equinox - REAL , PARAMETER :: EQUINOX_FRACTION= 0.0 + INTEGER , PARAMETER :: PLANET_YEAR = 365 ! number of days in a calendar year + REAL , PARAMETER :: OBLIQUITY = 23.5 ! solar obliquity (degree) + REAL , PARAMETER :: ECCENTRICITY = 0.014 ! Orbital eccentricity + REAL , PARAMETER :: SEMIMAJORAXIS = 1.0 ! Ratio of semi-major axis of planet / semi-major axis of earth + REAL , PARAMETER :: zero_date = 0.0 ! Time of perihelion passage + REAL , PARAMETER :: EQUINOX_FRACTION= 0.0 ! Fraction into the year (from perhelion) of the occurrence of the Northern Spring Equinox ! 2012103 #if (EM_CORE == 1) diff --git a/share/module_soil_pre.F b/share/module_soil_pre.F index 07b6f534a5..ae1613b0d2 100644 --- a/share/module_soil_pre.F +++ b/share/module_soil_pre.F @@ -594,7 +594,7 @@ SUBROUTINE process_soil_real ( tsk , tmn , tavgsfc, & landmask , sst , ht, toposoil, & st_input , sm_input , sw_input , & st_levels_input , sm_levels_input , sw_levels_input , & - zs , dzs , tslb , smois , sh2o , & + zs , dzs , flag_sm_adj, tslb , smois , sh2o , & flag_sst , flag_tavgsfc, flag_soilhgt, & flag_soil_layers, flag_soil_levels, & ids , ide , jds , jde , kds , kde , & @@ -613,7 +613,7 @@ SUBROUTINE process_soil_real ( tsk , tmn , tavgsfc, & num_st_levels_input , num_sm_levels_input , num_sw_levels_input , & num_st_levels_alloc , num_sm_levels_alloc , num_sw_levels_alloc - INTEGER , INTENT(IN) :: flag_sst, flag_tavgsfc + INTEGER , INTENT(IN) :: flag_sst, flag_tavgsfc, flag_sm_adj INTEGER , INTENT(IN) :: flag_soil_layers, flag_soil_levels, flag_soilhgt REAL , DIMENSION(ims:ime,jms:jme) , INTENT(IN) :: landmask , sst @@ -816,7 +816,7 @@ SUBROUTINE process_soil_real ( tsk , tmn , tavgsfc, & CALL init_soil_depth_3 ( zs , dzs , num_soil_layers ) CALL init_soil_3_real ( tsk , tmn , smois , tslb , & st_input , sm_input , landmask , sst , & - zs , dzs , & + zs , dzs , flag_sm_adj, & st_levels_input , sm_levels_input , & num_soil_layers , num_st_levels_input , num_sm_levels_input , & num_st_levels_alloc , num_sm_levels_alloc , & @@ -1108,7 +1108,7 @@ SUBROUTINE init_soil_depth_1 ( zs , dzs , num_soil_layers ) ! ----------------------------------- \/ dzs(3) = 0.04 m IF ( num_soil_layers .NE. 5 ) THEN - PRINT '(A)','Usually, the 5-layer diffusion uses 5 layers. Change this in the namelist.' + PRINT '(A)','The SLAB thermal diffusion LSM uses 5 layers. Set num_soil_layers=5 in the namelist (&physics).' CALL wrf_error_fatal ( '5-layer_diffusion_uses_5_layers' ) END IF @@ -1135,7 +1135,7 @@ SUBROUTINE init_soil_depth_2 ( zs , dzs , num_soil_layers ) dzs = (/ 0.1 , 0.3 , 0.6 , 1.0 /) IF ( num_soil_layers .NE. 4 ) THEN - PRINT '(A)','Usually, the LSM uses 4 layers. Change this in the namelist.' + PRINT '(A)','The Noah and NoahMP LSMs use 4 layers. Set num_soil_layers=4 in the namelist (&physics).' CALL wrf_error_fatal ( 'LSM_uses_4_layers' ) END IF @@ -1184,7 +1184,7 @@ SUBROUTINE init_soil_depth_3 ( zs , dzs , num_soil_layers ) dzs(num_soil_layers) = zs2(num_soil_layers) - zs2(num_soil_layers-1) IF ( num_soil_layers .EQ. 4 .OR. num_soil_layers .EQ. 5 ) THEN - write (message, FMT='(A)') 'The RUC LSM uses 6, 9 or more levels. Change this in the namelist.' + write (message, FMT='(A)') 'The RUC LSM uses 6, 9 or more levels. Set num_soil_layers in the namelist (&physics).' CALL wrf_error_fatal ( message ) END IF @@ -1254,7 +1254,7 @@ SUBROUTINE init_soil_depth_7 ( zs , dzs , num_soil_layers ) dzs = (/ 0.01 , 0.99 /) IF ( num_soil_layers .NE. 2 ) THEN - PRINT '(A)','Usually, the PX LSM uses 2 layers. Change this in the namelist.' + PRINT '(A)','The PX LSM uses 2 layers. Set num_soil_layers=2 in the namelist (&physics).' CALL wrf_error_fatal ( 'PXLSM_uses_2_layers' ) END IF @@ -1811,20 +1811,20 @@ SUBROUTINE init_soil_2_ideal ( xland,xice,vegfra,snow,canwat, & END SUBROUTINE init_soil_2_ideal - SUBROUTINE init_soil_3_real ( tsk , tmn , smois , tslb , & + SUBROUTINE init_soil_3_real ( tsk , tmn , smois , tslb , & st_input , sm_input , landmask, sst, & - zs , dzs , & - st_levels_input , sm_levels_input , & - num_soil_layers , num_st_levels_input , num_sm_levels_input , & + zs , dzs , flag_sm_adj, & + st_levels_input , sm_levels_input , & + num_soil_layers , num_st_levels_input , num_sm_levels_input , & num_st_levels_alloc , num_sm_levels_alloc , & flag_sst , flag_soil_layers , flag_soil_levels , & - ids , ide , jds , jde , kds , kde , & - ims , ime , jms , jme , kms , kme , & + ids , ide , jds , jde , kds , kde , & + ims , ime , jms , jme , kms , kme , & its , ite , jts , jte , kts , kte ) IMPLICIT NONE - INTEGER , INTENT(IN) :: num_soil_layers , & + INTEGER , INTENT(IN) :: num_soil_layers , flag_sm_adj, & num_st_levels_input , num_sm_levels_input , & num_st_levels_alloc , num_sm_levels_alloc , & ids , ide , jds , jde , kds , kde , & @@ -2057,6 +2057,10 @@ SUBROUTINE init_soil_3_real ( tsk , tmn , smois , tslb , & END IF + IF(flag_sm_adj == 1) then + write(message, FMT='(A)') ' Soil moisture adjustment from Noah to RUC is ON' + CALL wrf_message ( message ) +!-- perform soil moisture adjustmen when flag_sm_adj == 1 if( flag_soil_levels .ne. 1) then write(message, FMT='(A)') ' from Noah to RUC - compute RUC bucket' CALL wrf_message ( message ) @@ -2114,6 +2118,7 @@ SUBROUTINE init_soil_3_real ( tsk , tmn , smois , tslb , & END DO endif ! flag_soil_levels + ENDIF ! flag_sm_adj ! Over water, put in reasonable values for soil temperature and moisture. These won't be ! used, but they will make a more continuous plot. @@ -3926,7 +3931,7 @@ SUBROUTINE init_soil_depth_1 ( zs , dzs , num_soil_layers ) ! ----------------------------------- \/ dzs(3) = 0.04 m IF ( num_soil_layers .NE. 5 ) THEN - write(message,FMT= '(A)') 'Usually, the 5-layer diffusion uses 5 layers. Change this in the namelist.' + write(message,FMT= '(A)') 'The SLAB thermal diffusion PBL uses 5 layers. Set num_soil_layers=5 in the namelist (&physics).' CALL wrf_error_fatal ( message ) END IF @@ -3955,7 +3960,7 @@ SUBROUTINE init_soil_depth_2 ( zs , dzs , num_soil_layers ) dzs = (/ 0.1 , 0.3 , 0.6 , 1.0 /) IF ( num_soil_layers .NE. 4 ) THEN - write(message,FMT='(A)') 'Usually, the LSM uses 4 layers. Change this in the namelist.' + write(message,FMT='(A)') 'The Noah and NoahMP LSMs use 4 layers. Set num_soil_layers=4 in the namelist (&physics).' CALL wrf_error_fatal ( message ) END IF @@ -3995,7 +4000,7 @@ SUBROUTINE init_soil_depth_3 ( zs , dzs , num_soil_layers ) ENDIF IF ( num_soil_layers .EQ. 4 .OR. num_soil_layers .EQ. 5 ) THEN - WRITE(message,FMT= '(A)')'Usually, the RUC LSM uses 6, 9 or more levels. Change this in the namelist.' + WRITE(message,FMT= '(A)')'The RUC LSM uses 6, 9 or more levels. Set num_soil_layers appropriately in the namelist (&physics).' CALL wrf_error_fatal ( message ) END IF diff --git a/share/module_string_tools.F b/share/module_string_tools.F new file mode 100644 index 0000000000..786d936977 --- /dev/null +++ b/share/module_string_tools.F @@ -0,0 +1,30 @@ +MODULE module_string_tools + +CONTAINS + + FUNCTION capitalize(str) RESULT(capStr) +! +! +! Returns a copy of 'str' in which all lower-case letters have been converted +! to upper-case letters. +! +! + + CHARACTER(LEN=*), INTENT(IN) :: str + CHARACTER(LEN=LEN(str)) :: capStr + + INTEGER :: i + INTEGER, PARAMETER :: offset = (IACHAR('a') - IACHAR('A')) + + + DO i=1,LEN(str) + IF ( ( IACHAR(str(i:i)) >= IACHAR('a') ) .AND. ( IACHAR(str(i:i)) <= IACHAR('z') ) ) THEN + capStr(i:i) = ACHAR(IACHAR(str(i:i)) - offset) + ELSE + capStr(i:i) = str(i:i) + END IF + END Do + + END FUNCTION capitalize + +END MODULE module_string_tools diff --git a/share/track_driver.F b/share/track_driver.F index 92094ce041..4711cd6183 100644 --- a/share/track_driver.F +++ b/share/track_driver.F @@ -120,8 +120,14 @@ SUBROUTINE track_driver( grid ) grid%track_z(n,grid%sm32:grid%em32-1) = grid%z(ix,grid%sm32:grid%em32-1,iy) grid%track_p(n,grid%sm32:grid%em32-1) = grid%p(ix,grid%sm32:grid%em32-1,iy) + & grid%pb(ix,grid%sm32:grid%em32-1,iy) - grid%track_t(n,grid%sm32:grid%em32-1) = (grid%t_2(ix,grid%sm32:grid%em32-1,iy) + t0 ) * & + if ( grid%use_theta_m == 1 ) then + grid%track_t(n,grid%sm32:grid%em32-1) = (grid%t_2(ix,grid%sm32:grid%em32-1,iy) + t0 ) * & + (grid%track_p(n,grid%sm32:grid%em32-1)/p1000mb)**rcp / & + (1.+R_v/R_d*grid%moist(ix,grid%sm32:grid%em32-1,iy,P_QV)) + else + grid%track_t(n,grid%sm32:grid%em32-1) = (grid%t_2(ix,grid%sm32:grid%em32-1,iy) + t0 ) * & (grid%track_p(n,grid%sm32:grid%em32-1)/p1000mb)**rcp + end if grid%track_u(n,grid%sm32:grid%em32-1) = (grid%u_2(ix,grid%sm32:grid%em32-1,iy) + & grid%u_2(ix+1,grid%sm32:grid%em32-1,iy) )*0.5 grid%track_v(n,grid%sm32:grid%em32-1) = (grid%v_2(ix,grid%sm32:grid%em32-1,iy) + & diff --git a/share/wrf_timeseries.F b/share/wrf_timeseries.F index 2de85fc392..9d98e4ce9b 100644 --- a/share/wrf_timeseries.F +++ b/share/wrf_timeseries.F @@ -4,6 +4,9 @@ ! ! Michael G. Duda -- 25 August 2005 ! vertical profiles added by Torge Lorenz -- June 2012 +! ability to output at either i/j or lat/lon locations, and ability to +! output W, added by Pat Hawbecker -- Jan 2019 +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SUBROUTINE calc_ts_locations( grid ) @@ -12,6 +15,7 @@ SUBROUTINE calc_ts_locations( grid ) USE module_dm, ONLY : wrf_dm_min_real USE module_llxy USE module_state_description + USE module_model_constants IMPLICIT NONE @@ -29,7 +33,9 @@ SUBROUTINE calc_ts_locations( grid ) REAL :: known_lat, known_lon CHARACTER (LEN=132) :: message CHARACTER (LEN=24) :: ts_profile_filename - CHARACTER (LEN=2), DIMENSION(5) :: ts_file_endings = (/ 'UU', 'VV', 'PH', 'TH', 'QV' /) + INTEGER, PARAMETER :: TS_FIELDS = 7 + CHARACTER (LEN=2), DIMENSION(TS_FIELDS) :: & + ts_file_endings = (/ 'UU', 'VV', 'PH', 'TH', 'QV' ,'WW', 'PR'/) TYPE (PROJ_INFO) :: ts_proj TYPE (grid_config_rec_type) :: config_flags @@ -148,11 +154,14 @@ SUBROUTINE calc_ts_locations( grid ) CALL wrf_message(message) ntsloc_temp = 0 + + ! Boolean if/else for ij and lat/lon that sets ts_rx(y) to either ij or lat/lon value from tslist DO k=1,grid%ntsloc - - IF (config_flags%map_proj == 0) THEN ! For idealized cases, no map transformation needed - ts_rx = grid%lattsloc(k) ! NB: (x,y) = (lat,lon) rather than (x,y) = (lon,lat) - ts_ry = grid%lontsloc(k) + ! Ideal case (which has a cartesian coordinate) or specified (i,j) in tslist + IF (config_flags%map_proj == 0 .OR. grid%tslist_ij) THEN + ts_rx = grid%itsloc(k) + ts_ry = grid%jtsloc(k) + ! Real-data case with input locations provided as (lat,lon) ELSE CALL latlon_to_ij(ts_proj, grid%lattsloc(k), grid%lontsloc(k), ts_rx, ts_ry) END IF @@ -177,7 +186,7 @@ SUBROUTINE calc_ts_locations( grid ) grid%ntsloc_domain = ntsloc_temp DO k=1,grid%ntsloc_domain - + ! If location is outside of patch, we need to get lat/lon of TS grid cell from another patch IF (grid%itsloc(k) < ips .OR. grid%itsloc(k) > ipe .OR. & grid%jtsloc(k) < jps .OR. grid%jtsloc(k) > jpe) THEN @@ -212,14 +221,25 @@ SUBROUTINE calc_ts_locations( grid ) WRITE(grid%ts_filename(k)(i-4:i-3),'(I2.2)') grid%id OPEN(UNIT=iunit, FILE=TRIM(grid%ts_filename(k)), FORM='FORMATTED', STATUS='REPLACE') #if (EM_CORE == 1) - WRITE(UNIT=iunit, & - FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2,F6.1,A7)') & - grid%desctsloc(grid%id_tsloc(k))//' ', grid%id, grid%id_tsloc(k), & - ' '//grid%nametsloc(grid%id_tsloc(k)), & - ' (', grid%lattsloc(grid%id_tsloc(k)), ',', grid%lontsloc(grid%id_tsloc(k)), ') (', & - grid%itsloc(k), ',', grid%jtsloc(k), ') (', & - ts_xlat, ',', ts_xlong, ') ', & - ts_hgt,' meters' + IF ( .NOT. grid%tslist_ij ) THEN + WRITE(UNIT=iunit, & + FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2,F6.1,A7)') & + grid%desctsloc(grid%id_tsloc(k))//' ', grid%id, grid%id_tsloc(k), & + ' '//grid%nametsloc(grid%id_tsloc(k)), & + ' (', grid%lattsloc(grid%id_tsloc(k)), ',', grid%lontsloc(grid%id_tsloc(k)), ') (', & + grid%itsloc(k), ',', grid%jtsloc(k), ') (', & + ts_xlat, ',', ts_xlong, ') ', & + ts_hgt,' meters' + ELSE + WRITE(UNIT=iunit, & + FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2,F6.1,A7)') & + grid%desctsloc(grid%id_tsloc(k))//' ', grid%id, grid%id_tsloc(k), & + ' '//grid%nametsloc(grid%id_tsloc(k)), & + ' (', ts_xlat, ',', ts_xlong, ') (', & + grid%itsloc(k), ',', grid%jtsloc(k), ') (', & + ts_xlat, ',', ts_xlong, ') ', & + ts_hgt,' meters' + END IF #else WRITE(UNIT=iunit, & FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2)') & @@ -232,7 +252,7 @@ SUBROUTINE calc_ts_locations( grid ) CLOSE(UNIT=iunit) ts_profile_filename = grid%ts_filename(k) - DO j=1,5 + DO j=1,SIZE(ts_file_endings) ! Create the output files for the vertical profiles, one file for each variable iunit = get_unused_unit() IF ( iunit <= 0 ) THEN @@ -242,14 +262,25 @@ SUBROUTINE calc_ts_locations( grid ) WRITE(ts_profile_filename(i-1:i),'(A2)') ts_file_endings(j) OPEN(UNIT=iunit, FILE=TRIM(ts_profile_filename), FORM='FORMATTED', STATUS='REPLACE') #if (EM_CORE == 1) - WRITE(UNIT=iunit, & - FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2,F6.1,A7)') & - grid%desctsloc(grid%id_tsloc(k))//' ', grid%id, grid%id_tsloc(k), & - ' '//grid%nametsloc(grid%id_tsloc(k)), & - ' (', grid%lattsloc(grid%id_tsloc(k)), ',', grid%lontsloc(grid%id_tsloc(k)), ') (', & - grid%itsloc(k), ',', grid%jtsloc(k), ') (', & - ts_xlat, ',', ts_xlong, ') ', & - ts_hgt,' meters' + IF ( .NOT. grid%tslist_ij ) THEN + WRITE(UNIT=iunit, & + FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2,F6.1,A7)') & + grid%desctsloc(grid%id_tsloc(k))//' ', grid%id, grid%id_tsloc(k), & + ' '//grid%nametsloc(grid%id_tsloc(k)), & + ' (', grid%lattsloc(grid%id_tsloc(k)), ',', grid%lontsloc(grid%id_tsloc(k)), ') (', & + grid%itsloc(k), ',', grid%jtsloc(k), ') (', & + ts_xlat, ',', ts_xlong, ') ', & + ts_hgt,' meters' + ELSE + WRITE(UNIT=iunit, & + FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2,F6.1,A7)') & + grid%desctsloc(grid%id_tsloc(k))//' ', grid%id, grid%id_tsloc(k), & + ' '//grid%nametsloc(grid%id_tsloc(k)), & + ' (', ts_xlat, ',', ts_xlong, ') (', & + grid%itsloc(k), ',', grid%jtsloc(k), ') (', & + ts_xlat, ',', ts_xlong, ') ', & + ts_hgt,' meters' + END IF #else WRITE(UNIT=iunit, & FMT='(A26,I2,I3,A6,A2,F7.3,A1,F8.3,A3,I4,A1,I4,A3,F7.3,A1,F8.3,A2)') & @@ -275,6 +306,7 @@ END SUBROUTINE calc_ts_locations SUBROUTINE calc_ts( grid ) USE module_domain + USE module_configure, ONLY : model_config_rec, grid_config_rec_type, model_to_grid_config_rec USE module_model_constants IMPLICIT NONE @@ -290,6 +322,7 @@ SUBROUTINE calc_ts( grid ) output_t, output_q, clw, xtime_minutes REAL, ALLOCATABLE, DIMENSION(:) :: p8w REAL, ALLOCATABLE, DIMENSION(:) :: earth_u_profile, earth_v_profile + TYPE (grid_config_rec_type) :: config_flags ! Parameter ts_model_level: ! TRUE to output T, Q, and wind at lowest model level @@ -310,6 +343,7 @@ SUBROUTINE calc_ts( grid ) n = grid%next_ts_time ALLOCATE(p8w(grid%sm32:grid%em32)) + CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags ) DO i=1,grid%ntsloc_domain @@ -327,7 +361,11 @@ SUBROUTINE calc_ts( grid ) #if (EM_CORE == 1) earth_u = grid%u_2(ix,1,iy)*grid%cosa(ix,iy)-grid%v_2(ix,1,iy)*grid%sina(ix,iy) earth_v = grid%v_2(ix,1,iy)*grid%cosa(ix,iy)+grid%u_2(ix,1,iy)*grid%sina(ix,iy) - output_t = grid%t_2(ix,1,iy) + IF (grid%use_theta_m == 1) THEN + output_t = (grid%t_2(ix,1,iy)+T0)/(1.+R_v/R_d*grid%moist(ix,1,iy,P_QV)) - T0 + ELSE + output_t = grid%t_2(ix,1,iy) + END IF #else earth_u = grid%u(ix,1,iy) earth_v = grid%v(ix,1,iy) @@ -342,8 +380,18 @@ SUBROUTINE calc_ts( grid ) ! #if (EM_CORE == 1) DO k=1,grid%max_ts_level - earth_u_profile(k) = grid%u_2(ix,k,iy)*grid%cosa(ix,iy)-grid%v_2(ix,k,iy)*grid%sina(ix,iy) - earth_v_profile(k) = grid%v_2(ix,k,iy)*grid%cosa(ix,iy)+grid%u_2(ix,k,iy)*grid%sina(ix,iy) + ! interpolation loop: if you want u,v on cell centers, tslist_unstagger_winds = .true. + IF (config_flags%tslist_unstagger_winds) THEN + earth_u_profile(k) = & + ((grid%u_2(ix,k,iy)*grid%cosa(ix,iy)-grid%v_2(ix,k,iy)*grid%sina(ix,iy)) + & + (grid%u_2(ix+1,k,iy)*grid%cosa(ix+1,iy)-grid%v_2(ix+1,k,iy)*grid%sina(ix+1,iy)))/2.0 + earth_v_profile(k) = & + ((grid%v_2(ix,k,iy)*grid%cosa(ix,iy)+grid%u_2(ix,k,iy)*grid%sina(ix,iy)) + & + (grid%v_2(ix,k,iy+1)*grid%cosa(ix,iy+1)+grid%u_2(ix,k,iy+1)*grid%sina(ix,iy+1)))/2.0 + ELSE + earth_u_profile(k) = grid%u_2(ix,k,iy)*grid%cosa(ix,iy)-grid%v_2(ix,k,iy)*grid%sina(ix,iy) + earth_v_profile(k) = grid%v_2(ix,k,iy)*grid%cosa(ix,iy)+grid%u_2(ix,k,iy)*grid%sina(ix,iy) + END IF END DO earth_u = grid%u10(ix,iy)*grid%cosa(ix,iy)-grid%v10(ix,iy)*grid%sina(ix,iy) earth_v = grid%v10(ix,iy)*grid%cosa(ix,iy)+grid%u10(ix,iy)*grid%sina(ix,iy) @@ -379,9 +427,15 @@ SUBROUTINE calc_ts( grid ) DO k=1,grid%max_ts_level grid%ts_u_profile(n,i,k) = earth_u_profile(k) grid%ts_v_profile(n,i,k) = earth_v_profile(k) + grid%ts_w_profile(n,i,k) = (grid%w_2(ix,k,iy)+grid%w_2(ix,k+1,iy))/2.0 ! w on cell center grid%ts_gph_profile(n,i,k) = (grid%phb(ix,k,iy)+grid%ph_2(ix,k,iy))/9.81 - grid%ts_th_profile(n,i,k) = grid%t_2(ix,k,iy) + 300 + IF (grid%use_theta_m == 1) THEN + grid%ts_th_profile(n,i,k) = (grid%t_2(ix,k,iy) + T0)/(1.+R_v/R_d*grid%moist(ix,k,iy,P_QV)) + ELSE + grid%ts_th_profile(n,i,k) = grid%t_2(ix,k,iy) + T0 + END IF grid%ts_qv_profile(n,i,k) = grid%moist(ix,k,iy,P_QV) + grid%ts_p_profile(n,i,k) = grid%pb(ix,k,iy)+grid%p(ix,k,iy) END DO #endif grid%ts_u(n,i) = earth_u @@ -408,9 +462,11 @@ SUBROUTINE calc_ts( grid ) DO k=1,grid%max_ts_level grid%ts_u_profile(n,i,k) = 1.E30 grid%ts_v_profile(n,i,k) = 1.E30 + grid%ts_w_profile(n,i,k) = 1.E30 grid%ts_gph_profile(n,i,k) = 1.E30 grid%ts_th_profile(n,i,k) = 1.E30 grid%ts_qv_profile(n,i,k) = 1.E30 + grid%ts_p_profile(n,i,k) = 1.E30 END DO #endif grid%ts_hour(n,i) = 1.E30 @@ -487,6 +543,11 @@ SUBROUTINE write_ts( grid ) ts_buf(:,:) = grid%ts_v_profile(:,:,k) CALL wrf_dm_min_reals(ts_buf(:,:),grid%ts_v_profile(:,:,k),grid%ts_buf_size*grid%max_ts_locs) END DO + + DO k=1,grid%max_ts_level + ts_buf(:,:) = grid%ts_w_profile(:,:,k) + CALL wrf_dm_min_reals(ts_buf(:,:),grid%ts_w_profile(:,:,k),grid%ts_buf_size*grid%max_ts_locs) + END DO DO k=1,grid%max_ts_level ts_buf(:,:) = grid%ts_gph_profile(:,:,k) @@ -502,6 +563,11 @@ SUBROUTINE write_ts( grid ) ts_buf(:,:) = grid%ts_qv_profile(:,:,k) CALL wrf_dm_min_reals(ts_buf(:,:),grid%ts_qv_profile(:,:,k),grid%ts_buf_size*grid%max_ts_locs) END DO + + DO k=1,grid%max_ts_level + ts_buf(:,:) = grid%ts_p_profile(:,:,k) + CALL wrf_dm_min_reals(ts_buf(:,:),grid%ts_p_profile(:,:,k),grid%ts_buf_size*grid%max_ts_locs) + END DO #endif ts_buf(:,:) = grid%ts_u(:,:) CALL wrf_dm_min_reals(ts_buf(:,:),grid%ts_u(:,:),grid%ts_buf_size*grid%max_ts_locs) @@ -645,6 +711,23 @@ SUBROUTINE write_ts( grid ) END DO CLOSE(UNIT=iunit) + iunit = get_unused_unit() + IF ( iunit <= 0 ) THEN + CALL wrf_error_fatal('Error in write_ts: could not find a free Fortran unit.') + END IF + k = LEN_TRIM(ts_profile_filename) + WRITE(ts_profile_filename(k-1:k),'(A2)') 'WW' + + OPEN(UNIT=iunit, FILE=TRIM(ts_profile_filename), STATUS='unknown', POSITION='append', FORM='formatted') + + DO n=1,grid%next_ts_time - 1 + + WRITE(UNIT=iunit,FMT=profile_format) & + grid%ts_hour(n,i), & + grid%ts_w_profile(n,i,1:grid%max_ts_level) + END DO + CLOSE(UNIT=iunit) + !Write geopotential height profile to separate file iunit = get_unused_unit() IF ( iunit <= 0 ) THEN @@ -701,6 +784,26 @@ SUBROUTINE write_ts( grid ) grid%ts_qv_profile(n,i,1:grid%max_ts_level) END DO CLOSE(UNIT=iunit) + + !Write pressure profile to separate file + iunit = get_unused_unit() + IF ( iunit <= 0 ) THEN + CALL wrf_error_fatal('Error in write_ts: could not find a free Fortran unit.') + END IF + !Recreate filename for pressure profiles + k = LEN_TRIM(ts_profile_filename) + WRITE(ts_profile_filename(k-1:k),'(A2)') 'PR' + + OPEN(UNIT=iunit, FILE=TRIM(ts_profile_filename), STATUS='unknown', POSITION='append', FORM='formatted') + + DO n=1,grid%next_ts_time - 1 + + WRITE(UNIT=iunit,FMT=profile_format) & + grid%ts_hour(n,i), & + grid%ts_p_profile(n,i,1:grid%max_ts_level) + END DO + CLOSE(UNIT=iunit) + #endif END DO diff --git a/share/wrf_tsin.F b/share/wrf_tsin.F index 13bfbacb7b..0ba9729763 100644 --- a/share/wrf_tsin.F +++ b/share/wrf_tsin.F @@ -2,6 +2,8 @@ SUBROUTINE wrf_tsin ( grid , ierr ) USE module_domain USE module_utility + USE module_configure, ONLY : model_config_rec, grid_config_rec_type, model_to_grid_config_rec + USE module_string_tools, ONLY : capitalize IMPLICIT NONE @@ -9,22 +11,23 @@ SUBROUTINE wrf_tsin ( grid , ierr ) #include "wrf_status_codes.h" TYPE(domain), INTENT(INOUT) :: grid + TYPE (grid_config_rec_type) :: config_flags INTEGER, INTENT(INOUT) :: ierr LOGICAL, EXTERNAL :: wrf_dm_on_monitor INTEGER, EXTERNAL :: get_unused_unit - REAL, ALLOCATABLE, DIMENSION(:) :: lattslocs, lontslocs INTEGER :: istatus, iunit LOGICAL :: exists CHARACTER (LEN=256) :: errmess + CHARACTER (LEN=256) :: IorLat,JorLon ierr = 0 #if ((EM_CORE == 1) && (DA_CORE != 1)) IF ( grid%dfi_opt == DFI_NODFI .OR. (grid%dfi_opt /= DFI_NODFI .AND. grid%dfi_stage == DFI_SETUP) ) THEN #endif - + CALL model_to_grid_config_rec ( grid%id , model_config_rec , config_flags ) grid%ntsloc = 0 grid%have_calculated_tslocs = .FALSE. @@ -43,26 +46,59 @@ SUBROUTINE wrf_tsin ( grid , ierr ) ! Input time series locations OPEN(UNIT=iunit, FILE='tslist', FORM='formatted', STATUS='old', IOSTAT=istatus) - IF (istatus == 0) THEN - ! Ignore first three lines, which constitute a header - READ(UNIT=iunit, FMT='(1X)') + ! The header will be parsed to see if lat/lon or i/j is given... READ(UNIT=iunit, FMT='(1X)') + READ(UNIT=iunit, FMT='(32X,A7,2X,A7)') IorLat, JorLon READ(UNIT=iunit, FMT='(1X)') + grid%tslist_ij = .false. + ! If the header contains "LAT" and "LON", + ! then it will expect lat/lon coords in the file + ! If the header has "I" and "J", + ! then it will expect grid index coords in the file + IorLat = capitalize(IorLat) + JorLon = capitalize(JorLon) + if(index(IorLat,'LAT').ne.0 .and. index(JorLon,'LON').ne.0) then + grid%tslist_ij = .false. + elseif(index(IorLat,'I').ne.0 .and. index(JorLon,'J').ne.0) then + grid%tslist_ij = .true. + else + CALL wrf_error_fatal('Error in wrf_tsin: Header line requires either LAT LON or I J') + endif + + + ! Read in time series locations istatus = 0 DO WHILE (istatus == 0) - READ(UNIT=iunit, FMT='(A25,1X,A5,1X,F7.3,1X,F8.3)', IOSTAT=istatus) & - grid%desctsloc(grid%ntsloc+1), grid%nametsloc(grid%ntsloc+1), & - grid%lattsloc(grid%ntsloc+1), grid%lontsloc(grid%ntsloc+1) + IF (config_flags%map_proj == 0 .OR. grid%tslist_ij) THEN !ideal run will only use i,j + READ(UNIT=iunit, FMT='(A25,1X,A5,1X,I7,1X,I8)', IOSTAT=istatus) & + grid%desctsloc(grid%ntsloc+1), grid%nametsloc(grid%ntsloc+1), & + grid%itsloc(grid%ntsloc+1), grid%jtsloc(grid%ntsloc+1) + ELSE + READ(UNIT=iunit, FMT='(A25,1X,A5,1X,F7.3,1X,F8.3)', IOSTAT=istatus) & + grid%desctsloc(grid%ntsloc+1), grid%nametsloc(grid%ntsloc+1), & + grid%lattsloc(grid%ntsloc+1), grid%lontsloc(grid%ntsloc+1) + END IF IF (istatus == 0) grid%ntsloc = grid%ntsloc + 1 IF (istatus > 0) THEN - WRITE(errmess, FMT='(I4)') grid%ntsloc + 3 ! Three extra for the header of the file + WRITE(errmess, FMT='(I4)') grid%ntsloc + 4 ! Three extra for the header of the file + ! One extra for the line we incorrectly read CALL wrf_message('Error in tslist, line '//trim(errmess)) + CALL wrf_error_fatal('Error --- Maybe check that the header (I,J) vs (LAT,LON) matches the provided information') EXIT ! (technically unecessary, as we will exit the loop anyway) END IF + IF ( ( grid%ntsloc == 1 ) .and. ( .NOT. grid%tslist_ij ) ) THEN + IF ( ( ABS(grid%lattsloc(grid%ntsloc)) <= 0.1 ) .and. & + ( ABS(grid%lontsloc(grid%ntsloc)) <= 0.1 ) ) THEN + CALL wrf_message('WARNING ') + CALL wrf_message('WARNING --- Maybe you have (I,J) locations for the (LAT,LON) values in tslist?') + CALL wrf_message('WARNING --- Are you purposefully studying Null Island?') + CALL wrf_message('WARNING ') + END IF + END IF IF ( grid%ntsloc >= grid%max_ts_locs ) THEN IF ( istatus == 0 ) THEN ! Assume there were more lines in the file WRITE(errmess, FMT='(A,I4,A)') 'Ignoring all time series locations beyond #', & @@ -83,8 +119,11 @@ SUBROUTINE wrf_tsin ( grid , ierr ) #ifdef DM_PARALLEL CALL wrf_dm_bcast_integer(grid%ntsloc, 1) + CALL wrf_dm_bcast_integer(grid%tslist_ij, 1) CALL wrf_dm_bcast_real(grid%lattsloc, grid%max_ts_locs) CALL wrf_dm_bcast_real(grid%lontsloc, grid%max_ts_locs) + CALL wrf_dm_bcast_integer(grid%itsloc, grid%max_ts_locs) + CALL wrf_dm_bcast_integer(grid%jtsloc, grid%max_ts_locs) #endif #if ((EM_CORE == 1) && (DA_CORE != 1)) END IF diff --git a/test/em_real/examples.namelist b/test/em_real/examples.namelist index 117ecfb0c5..4bbb0cec00 100755 --- a/test/em_real/examples.namelist +++ b/test/em_real/examples.namelist @@ -56,6 +56,18 @@ Note, this is not a namelist.input file. Find what interests you, and cut and pa opt_stc = 1, / +** Using UCM urban model +&physics + sf_urban_physics = 1, 1, 1, + +** Using BEP urban model +&physics + sf_urban_physics = 2, 2, 2, + +** Using BEM urban model +&physics + sf_urban_physics = 3, 3, 3, + ** Using lake model &physics sf_lake_physics = 1, 1, 1, @@ -475,7 +487,8 @@ to turn on the option (vert_refine_method). The namelist array eta_levels is manually filled in for each domain. Below is an example for two domains. -NOTE: The user is restricted to either the RRTM or RRTMG radiation schemes. +NOTE: The user is restricted to using the RRTM LW and Dudhia SW radiation schemes. +NOTE: The user is restricted from using the hybrid vertical coordinate. &domains max_dom = 2, diff --git a/test/nmm_real/namelist.input.HWRF b/test/nmm_real/namelist.input.HWRF index 66c0322752..202d2b7026 100644 --- a/test/nmm_real/namelist.input.HWRF +++ b/test/nmm_real/namelist.input.HWRF @@ -106,11 +106,11 @@ eta_levels=1.0,.9919699,.9827400,.9710800,.9600599,.9462600,.9306099,.9129300,.8 nphs = 2,6,6, ncnvc = 2,6,6, - movemin = 3,6,18, + ntrack = 3,6,18, -! IMPORTANT: dt*nphs*movemin for domain 2 and 3 must be 540 and 180, respectively +! IMPORTANT: dt*nphs*ntrack for domain 2 and 3 must be 540 and 180, respectively ! AND the history output times (10800, 10800, 3600) must be -! divisible by dt*nphs*movemin for domains 1, 2 and 3 +! divisible by dt*nphs*ntrack for domains 1, 2 and 3 gfs_alpha = 0.7,0.7,0.7, sas_pgcon = 0.55,0.2,0.2, @@ -141,7 +141,7 @@ poll_servers=.true. nio_groups = 4 / &logging - compute_slaves_silent=.true. + compute_tasks_silent=.true. io_servers_silent=.true. stderr_logging=1 / diff --git a/test/nmm_tropical_cyclone/namelist.input b/test/nmm_tropical_cyclone/namelist.input index 1e97653f4f..8e0e547260 100644 --- a/test/nmm_tropical_cyclone/namelist.input +++ b/test/nmm_tropical_cyclone/namelist.input @@ -1,141 +1,143 @@ - &time_control - start_year = 2012, 2012, 2012, - start_month = 10, 10, 10, - start_day = 26, 26, 26, - start_hour = 12, 12, 12, - start_minute = 00, 00, 00, - start_second = 00, 00, 00, - end_year = 2012, 2012, 2012, - end_month = 10, 10, 10, - end_day = 31, 31, 31, - end_hour = 12, 12, 12, - end_minute = 00, 00, 00, - end_second = 00, 00, 00, - interval_seconds = 432000, - history_interval = 180, 180, 180, - auxhist1_interval = 600000, 600000, 600000 - frames_per_outfile = 1,1,1 - frames_per_auxhist1 = 1,1,1 - analysis = F, F,F , - restart = .false., - restart_interval = 36000, - reset_simulation_start = F, - io_form_input = 2 - io_form_history = 2 - io_form_restart = 2 - io_form_boundary = 2 - io_form_auxinput1 = 2 - io_form_auxhist1 = 2 - auxinput1_inname = "met_nmm.d." - debug_level = 1 - override_restart_timers = T - nocolons = T - / - - &fdda - / - - &domains - time_step = 38, - time_step_fract_num = 4, - time_step_fract_den = 7, - max_dom = 3, - s_we = 1, 1, 1, - e_we = 288, 142, 265, - s_sn = 1, 1, 1, - e_sn = 576, 274, 472, - s_vert = 1, 1, 1, - e_vert = 61, 61, 61, - dx = 0.135, .045, .015, - dy = 0.135, .045, .015, - grid_id = 1, 2, 3, - - tile_sz_x = 0, - tile_sz_y = 0, - numtiles = 1, - nproc_x = -1, ! must be on its own line - nproc_y = -1, ! must be on its own line - parent_id = 0, 1, 2, - parent_grid_ratio = 1, 3, 3, - parent_time_step_ratio = 1, 3, 3, - i_parent_start = 0, 125, 27, - j_parent_start = 0, 243, 57, - feedback = 1, - num_moves = -99 - num_metgrid_levels = 22, - p_top_requested = 200.0, - ptsgm = 15000, - eta_levels = 1.0, 0.995253, 0.990479, 0.985679, 0.980781, 0.975782, 0.970684, 0.965486, 0.960187, 0.954689, 0.948991, 0.943093, 0.936895, 0.930397, 0.923599, 0.916402, 0.908404, 0.899507, 0.888811, 0.876814, 0.862914, 0.847114, 0.829314, 0.809114, 0.786714, 0.762114, 0.735314, 0.706714, 0.676614, 0.645814, 0.614214, 0.582114, 0.549714, 0.517114, 0.484394, 0.451894, 0.419694, 0.388094, 0.356994, 0.326694, 0.297694, 0.270694, 0.245894, 0.223694, 0.203594, 0.185494, 0.169294, 0.154394, 0.140494, 0.127094, 0.114294, 0.101894, 0.089794, 0.078094, 0.066594, 0.055294, 0.044144, 0.033054, 0.022004, 0.010994, 0.0, - use_prep_hybrid = F, - num_metgrid_soil_levels = 4, +&time_control + start_year = 2012, 2012, 2012, + start_month = 10, 10, 10, + start_day = 26, 26, 26, + start_hour = 12, 12, 12, + start_minute = 00, 00, 00, + start_second = 00, 00, 00, + end_year = 2012, 2012, 2012, + end_month = 10, 10, 10, + end_day = 31, 31, 31, + end_hour = 12, 12, 12, + end_minute = 00, 00, 00, + end_second = 00, 00, 00, + interval_seconds = 432000, + history_interval = 180, 180, 180, + auxhist1_interval = 600000, 600000, 600000 + frames_per_outfile = 1,1,1 + frames_per_auxhist1 = 1,1,1 + analysis = F, F,F , + restart = .false., + restart_interval = 36000, + reset_simulation_start = F, + io_form_input = 2 + io_form_history = 2 + io_form_restart = 2 + io_form_boundary = 2 + io_form_auxinput1 = 2 + io_form_auxhist1 = 2 + auxinput1_inname = "met_nmm.d.", + debug_level = 1, + nocolons = T, / - &physics - num_soil_layers = 4, - mp_physics = 5, 5, 5, - ra_lw_physics = 4, 4, 4, - ra_sw_physics = 4, 4, 4, - sf_sfclay_physics = 88, 88, 88, - sf_surface_physics = 2, 2, 2, - bl_pbl_physics = 3, 3, 3, - cu_physics = 84, 84, 0, - mommix = 1.0, 1.0, 1.0, - var_ric = 1.0, - coef_ric_l = 0.16, - coef_ric_s = 0.25, - h_diff = 1.0, 1.0, 1.0, - gwd_opt = 2, 0, 0, - sfenth = 0.0, 0.0, 0.0, - nrads = 28,84,252 , - nradl = 28,84,252 , - nphs = 2,6,6 , - ncnvc = 2,6,6 , - ntrack = 7,7,14 , +&fdda -! IMPORTANT: dt*nphs*movemin for domain 2 and 3 must be 540 and 180, respectively -! AND the history output times (10800, 10800, 3600) must be -! divisible by dt*nphs*movemin for domains 1, 2 and 3 +/ - gfs_alpha = -1.0, -1.0, -1.0 , - sas_pgcon = 0.55,0.2,0.2 , -sas_mass_flux = 0.5,0.5,0.5, - co2tf = 1, - vortex_tracker = 2, 2, 7, +&domains + time_step = 30, + time_step_fract_num = 0, + time_step_fract_den = 1, + max_dom = 3, + s_we = 1, 1, 1, + e_we = 288, 265, 235, + s_sn = 1, 1, 1, + e_sn = 576, 532, 472, + s_vert = 1, 1, 1, + e_vert = 75, 75, 75, + dx = 0.135, 0.045, 0.015, + dy = 0.135, 0.045, 0.015, + grid_id = 1, 2, 3, + tile_sz_x = 0, + tile_sz_y = 0, + numtiles = 1, + nproc_x = -1, + nproc_y = -1, + parent_id = 0, 1, 2, + parent_grid_ratio = 1, 3, 3, + parent_time_step_ratio = 1, 3, 3, + i_parent_start = 0, 99, 93, + j_parent_start = 0, 195, 187, + feedback = 1, + num_moves = -99, + num_metgrid_levels = 22, + p_top_requested = 1000.0, + ptsgm = 15000.0, + eta_levels = 1.0, 0.997622, 0.995078, 0.99224, 0.989036, 0.98544, 0.981451, 0.977061, 0.972249, 0.966994, 0.96128, 0.955106, 0.948462, 0.941306, 0.933562, 0.925134, 0.915937, 0.90589, 0.894913, 0.882926, 0.869842, 0.855646, 0.840183, 0.823383, 0.805217, 0.785767, 0.7651, 0.7432, 0.720133, 0.695967, 0.670867, 0.645033, 0.6187, 0.592067, 0.565333, 0.538733, 0.5125, 0.4868, 0.461767, 0.437533, 0.4142, 0.391767, 0.370233, 0.3496, 0.329867, 0.310967, 0.292867, 0.275533, 0.258933, 0.243, 0.2277, 0.213, 0.198867, 0.1853, 0.172267, 0.159733, 0.147633, 0.135967, 0.124767, 0.114033, 0.103733, 0.093867, 0.0844, 0.075333, 0.0666, 0.058267, 0.050333, 0.042833, 0.035733, 0.029, 0.0226, 0.0165, 0.010733, 0.005267, 0.0, + use_prep_hybrid = F, + num_metgrid_soil_levels = 4, + corral_x = 9, 9, 9, + corral_y = 18, 18, 18, + smooth_option = 0, +/ -! Disable nest movement at certain intervals to prevent junk in the output files: - nomove_freq = 0.0, 6.0, 6.0, ! hours +&physics + num_soil_layers = 4, + mp_physics = 5, 5, 5, + ra_lw_physics = 4, 4, 4, + ra_sw_physics = 4, 4, 4, + sf_sfclay_physics = 88, 88, 88, + sf_surface_physics = 2, 2, 2, + bl_pbl_physics = 3, 3, 3, + cu_physics = 4, 4, 4, + mommix = 1.0, 1.0, 1.0, + var_ric = 1.0, + coef_ric_l = 0.16, + coef_ric_s = 0.25, + h_diff = 1.0, 1.0, 1.0, + gwd_opt = 2, 0, 0, + sfenth = 0.0, 0.0, 0.0, + nrads = 30, 90, 270, + nradl = 30, 90, 270, + nphs = 2, 6, 6, + ncnvc = 2, 6, 6, + ntrack = 6, 6, 18, + gfs_alpha = -1.0, -1.0, -1.0, + sas_pgcon = 0.55, 0.2, 0.2, + sas_mass_flux = 0.5, 0.5, 0.5, + co2tf = 1, + vortex_tracker = 2, 2, 7, + nomove_freq = 0, 6, 6, tg_option = 1, - ntornado = 2, 5, 15, + ntornado = 2, 6, 18, + ens_cdamp = 0.2, ens_pblamp = 0.2, ens_random_seed = 99, ens_sasamp = 50.0, icloud = 3, - icoef_sf = 2, 2, 2, + icoef_sf = 6, 6, 6, + iwavecpl = 0, 0, 0, lcurr_sf = F, F, F, + pert_cd = F, pert_pbl = F, pert_sas = F, / - &dynamics - non_hydrostatic = .true., .true, .true, - euler_adv = .false. - wp = 0, 0, 0, - coac = 0.75,3.0,4.0 , - codamp = 6.4, 6.4, 6.4, - terrain_smoothing = 2 , +&dynamics + non_hydrostatic = T, T, T, + euler_adv = F, + wp = 0, 0, 0, + coac = 0.75, 1.0, 1.2, + codamp = 6.4, 6.4, 6.4, + terrain_smoothing = 2, + dwdt_damping_lev = 2000.0, 2000.0, 2000.0, / - &bdy_control - spec_bdy_width = 1, - specified = .true. / +&bdy_control + spec_bdy_width = 1, + specified = T, +/ + +&namelist_quilt + poll_servers = T, + nio_tasks_per_group = 4, 4, 4, + nio_groups = 1, +/ - &namelist_quilt - poll_servers = T, - nio_tasks_per_group = 0, - nio_groups = 1 / +&logging + compute_tasks_silent = T, + io_servers_silent = T, + stderr_logging = 0, +/ - &logging - compute_tasks_silent=.true. - io_servers_silent=.true. - stderr_logging=0 - / diff --git a/test/nmm_tropical_cyclone/namelist.wps b/test/nmm_tropical_cyclone/namelist.wps index e69b228678..e200bd6bfe 100644 --- a/test/nmm_tropical_cyclone/namelist.wps +++ b/test/nmm_tropical_cyclone/namelist.wps @@ -9,21 +9,21 @@ / &geogrid - parent_id = 1, 1, 2, - parent_grid_ratio = 1, 3, 3, - i_parent_start = 1, 10, 10, - j_parent_start = 1, 10, 10, - e_we = 288, 142, 265, - e_sn = 576, 274, 472, - geog_data_res = '2m','2m', '2m', - dx = 0.135, - dy = 0.135, - map_proj = 'rotated_ll', - ref_lat = 21.0, - ref_lon = 287.250, - stand_lon = 287.250, - geog_data_path = '/glade/p/ral/jnt/tools/geog/' - opt_geogrid_tbl_path = "./", + parent_id = 1, 1, 2, + parent_grid_ratio = 1, 3, 3, + i_parent_start = 1, 10, 10, + j_parent_start = 1, 10, 10, + e_we = 288, 265, 235, + e_sn = 576, 532, 472, + geog_data_res = "2m", "2m", "2m", + dx = 0.135, + dy = 0.135, + map_proj = "rotated_ll", + ref_lat = 21.0, + ref_lon = 287.250, + stand_lon = 287.250, + geog_data_path = '/glade/p/ral/jnt/tools/geog/' + opt_geogrid_tbl_path = "./", / &ungrib @@ -50,3 +50,4 @@ 15000 , 10000 , 5000 , 1000 / + diff --git a/tools/CodeBase/Makefile b/tools/CodeBase/Makefile index a49312d00c..b95c2ede70 100644 --- a/tools/CodeBase/Makefile +++ b/tools/CodeBase/Makefile @@ -22,4 +22,4 @@ wrfvar : wrfvar.o util.o /bin/mv -f $@ .. clean : - /bin/rm -f *.o deftab nocontf90 callgraph subinfo_calls + @/bin/rm -f *.o deftab nocontf90 callgraph subinfo_calls diff --git a/tools/gen_allocs.c b/tools/gen_allocs.c index 685b126ea5..7f0a80182a 100644 --- a/tools/gen_allocs.c +++ b/tools/gen_allocs.c @@ -270,6 +270,13 @@ if ( tag == 1 ) fprintf(fp," num_bytes_allocated = num_bytes_allocated + &\n(%s) * %cWORDSIZE\n", array_size_expression("", "(", -1, t2, p, post_for_count, "model_config_rec%"), tchar) ; + fprintf(fp," nba = &\n(%s) * %cWORDSIZE\n", + array_size_expression("", "(", -1, t2, p, post_for_count, "model_config_rec%"), + tchar) ; + fprintf(fp,"#if ( SHOW_ALL_VARS_USED == 1 )\n") ; + fprintf(fp," WRITE(message_string,fmt='(a,i12)') '%s: bytes = ',nba\n", fname) ; + fprintf(fp," CALL wrf_message(message_string)\n") ; + fprintf(fp,"#endif\n") ; } if ( sw == 1 ) { fprintf(fp, " ALLOCATE(%s%s%s,STAT=ierr)\n if (ierr.ne.0) then\n CALL wrf_error_fatal ( &\n 'frame/module_domain.f: Failed to allocate %s%s%s. ')\n endif\n", diff --git a/tools/update_fork.pl b/tools/update_fork.pl index 1970a0e675..3c8d0e030a 100755 --- a/tools/update_fork.pl +++ b/tools/update_fork.pl @@ -16,11 +16,11 @@ # 4. If all went well, you should see one of two different messages at the end: # - If your fork is already up-to-date, you should see "Already up-to-date." # - If your fork is not up-to-date, this script initiates a fast-forward merge to bring your fork up-to-date with the -# master of the main repository (https://github.com/wrf-model/WRF). Near the end git will print a line of statistics +# develop of the main repository (https://github.com/wrf-model/WRF). Near the end git will print a line of statistics # describing what changed, which will look something like this: # 19 files changed, 27 insertions(+), 27 deletions(-) # followed by a few more lines and this final message: -# Branch master set up to track remote branch master from origin. +# Branch develop set up to track remote branch develop from origin. # Notes: # - This is a preliminary version of what will hopefully be a more detailed script in the future. This one only performs fast-forward merges. @@ -30,10 +30,10 @@ my $username; my $go_on = ""; -# First off: check if we are on master, and quit if we are not. We want the branch switch to be transparent to users +# First off: check if we are on develop, and quit if we are not. We want the branch switch to be transparent to users my $curr_branch = `git rev-parse --abbrev-ref HEAD`; chomp $curr_branch; -die "\nERROR ERROR ERROR:\nYou are currently on the branch $curr_branch\n\nThis script must be run from the master branch.\n\nCheck out the master branch, then run this script, then check out your working branch $curr_branch when the update is finished\n\n" unless $curr_branch eq "master"; +die "\nERROR ERROR ERROR:\nYou are currently on the branch $curr_branch\n\nThis script must be run from the develop branch.\n\nCheck out the develop branch, then run this script, then check out your working branch $curr_branch when the update is finished\n\n" unless $curr_branch eq "develop"; # Prompt user for their username @@ -61,11 +61,11 @@ print "\nStep 2: Setting the 'push' url for 'upstream' to the user's fork, to avoid accidentally pushing to the main repository\n\n"; ! system("git", "remote", "set-url", "--push", "upstream", $fork) or die "Can not add set push repository '$fork': $!\n"; -# Checkout master, fetch "upstream" commits, and perform a fastforward merge +# Checkout develop, fetch "upstream" commits, and perform a fastforward merge print "\nStep 3: Fetching 'upstream' commits, and performing fastforward merge\n\n"; -! system("git", "fetch", "upstream", "master") or die "Can not fetch upstream changes from : $!\nSomething has gone seriously wrong! Perhaps you don't have internet access?\n"; -! system("git", "merge", "--ff-only", "upstream/master") or die "\nCan not perform fastforward merge from upstream/master: $!\n\nTroubleshooting info:\n\n 1. If you receive a message 'fatal: 'upstream/master' does not point to a commit', your git version may be too old. On yellowstone, try `module load git`\n 2. If you receive a message' fatal: Not possible to fast-forward, aborting.', you have likely made local changes to the master branch of your fork. All work should be done on branches of your fork, not the master!\n"; +! system("git", "fetch", "upstream", "develop") or die "Can not fetch upstream changes from : $!\nSomething has gone seriously wrong! Perhaps you don't have internet access?\n"; +! system("git", "merge", "--ff-only", "upstream/develop") or die "\nCan not perform fastforward merge from upstream/develop: $!\n\nTroubleshooting info:\n\n 1. If you receive a message 'fatal: 'upstream/develop' does not point to a commit', your git version may be too old. On yellowstone, try `module load git`\n 2. If you receive a message' fatal: Not possible to fast-forward, aborting.', you have likely made local changes to the develop branch of your fork. All work should be done on branches of your fork, not the develop!\n"; -# Finally, push updated master to the Github copy of your fork: -print "\nStep 4: Pushing updated master to fork\n\n"; -! system("git", "push", "-u", "origin", "master") or die "\nCan not push updates to origin/master : $!\n"; +# Finally, push updated develop to the Github copy of your fork: +print "\nStep 4: Pushing updated develop to fork\n\n"; +! system("git", "push", "-u", "origin", "develop") or die "\nCan not push updates to origin/develop : $!\n"; diff --git a/var/Makefile b/var/Makefile index 98f848f149..a52945aafd 100644 --- a/var/Makefile +++ b/var/Makefile @@ -1,10 +1,10 @@ clean: - ( cd build; /bin/rm -f *.o *.mod *.f *.c *.m4 *.stb *.out core *~ mpif.h da_generic_boilerplate.inc ) - ( cd gen_be; /bin/rm -f *.o *.f core *~ ) + @( cd build; /bin/rm -f *.o *.mod *.f *.c *.m4 *.stb *.out core *~ mpif.h da_generic_boilerplate.inc ) + @( cd gen_be; /bin/rm -f *.o *.f core *~ ) superclean : - ( cd build; /bin/rm -f mpif.h; /bin/rm -f *.inc *.prm; /bin/rm -f *.f90 *.c *.m4 *.exe; \ + @( cd build; /bin/rm -f mpif.h; /bin/rm -f *.inc *.prm; /bin/rm -f *.f90 *.c *.m4 *.exe; \ /bin/rm -rf *.o *.mod *.b *.a *.f frame/*.F diffwrf *.f90.tmp *.f.tmp *.bb \ Registry_tmp* module_state_description.f90 \ inc/dm_comm_cpp_flags testall.csh *.exe *.f90 *.F90 *.F inc/*.inc *.int *.c *.h *.m4 *.code \ @@ -12,9 +12,9 @@ superclean : Test1.out.correct \ links README* landread.c.dist \ depend inc/*.inc inc/*.h preproc.sh ) - ( cd da; /bin/rm -f *.exe ) - ( cd external/bufr; make clean ) - ( cd external/crtm_2.2.3; make clean ) - ( cd external/wavelet ; make superclean ) - ( cd da/makedepf90-2.8.8; /bin/rm -f makedepf90 config.log Makefile config.status ) - ( cd gen_be; /bin/rm -f *.exe ) + @( cd da; /bin/rm -f *.exe ) + @( cd external/bufr; make -s clean ) + @( cd external/crtm_2.3.0; make -s clean ) + @( cd external/wavelet ; make -s superclean ) + @( cd da/makedepf90-2.8.8; /bin/rm -f makedepf90 config.log Makefile config.status ) + @( cd gen_be; /bin/rm -f *.exe ) diff --git a/var/README.namelist b/var/README.namelist index 36e443853c..015b345ee6 100644 --- a/var/README.namelist +++ b/var/README.namelist @@ -36,6 +36,9 @@ Description of WRFDA namelist variables, defined in Registry/registry.var ; the first and final iterations. print_detail_outerloop = .false. ; .true.: to write out wrfvar_output file at different outer loops check_max_iv_print = .true. ; obsolete (only used by Radar) + write_gts_omb_oma = .true. ;(default) + write_rej_obs_conv = .false. ;(default), the information is not too helpful + write_unpert_obs = .false. ;(default), the information is not usually used / &wrfvar2 analysis_accu = 900 ; seconds, if time difference between namelist setting @@ -563,6 +566,11 @@ Description of WRFDA namelist variables, defined in Registry/registry.var radar_rqv_rh2 = 85.0 ; RH (%) for (radar_rqv_thresh1 < rf < radar_rqv_thresh2) radar_rqv_h_lbound = -999.0 ; height (m) lower bound for rqv radar_rqv_h_ubound = -999.0 ; height (m) upper bound for rqv + radar_rhv_err_opt = 1 ;(default) 1: calculated (original), 2: from namelist + radar_rhv_rrn_err = 0.15 ;(default) obs error of retrieved qrain in g/kg + radar_rhv_rsn_err = 0.15 ;(default) obs error of retrieved qsnow in g/kg + radar_rhv_rgr_err = 0.15 ;(default) obs error of retrieved qgraup in g/kg + write_oa_radar_ascii = .true. ;(default) / &obs_opt gpsro_drift = 1 ; horizontal drifting for GPSRO. 0=no drift, 1=drift diff --git a/var/README.radiance b/var/README.radiance index 269d742433..1bad3b8ad2 100644 --- a/var/README.radiance +++ b/var/README.radiance @@ -7,8 +7,8 @@ required for radiance data assimilation. Please see also Chapter 6 of WRF ARW User's Guide for more details. RTM (Radiative Transfer Model) that can be used in WRFDA: - CRTM REL-2.2.3 - RTTOV v11 + CRTM REL-2.3.0 + RTTOV v12.1 ============================================================================= Setup and Run - with radiance data @@ -25,9 +25,9 @@ in README.basics, the following extra files are required for radiance: ln -sf WRFDA/var/run/radiance_info ./radiance_info # radiance_info is a directory ln -sf WRFDA/var/run/VARBC.in ./VARBC.in (CRTM only) - Either ln -sf WRFDA/var/run/crtm_coeffs_2.2.3 ./crtm_coeffs # crtm_coeffs is a directory + Either ln -sf WRFDA/var/run/crtm_coeffs_2.3.0 ./crtm_coeffs # crtm_coeffs is a directory or set namelist variable crtm_coef_path to the location of coef files - crtm_coef_path='/user/WRFDA/var/run/crtm_coeffs_2.2.3' + crtm_coef_path='/user/WRFDA/var/run/crtm_coeffs_2.3.0' (RTTOV only) ln -sf rttov10/rtcoef_rttov10/rttov7pred51L ./rttov_coeffs # rttov_coeffs is a directory 2. namelist.input @@ -78,13 +78,13 @@ WRF or WRFDA tar files. There are two ways to get this data. from this web page: http://www2.mmm.ucar.edu/wrf/users/wrfda/download/crtm_coeffs.html 2. The full set of CRTM coefficients may be downloaded from: -ftp://ftp.emc.ncep.noaa.gov/jcsda/CRTM/REL-2.2.3/crtm_v2.2.3.tar.gz +ftp://ftp.emc.ncep.noaa.gov/jcsda/CRTM/REL-2.3.0/crtm_v2.3.0.tar.gz Prior to V4.0, the subset of CRTM coefficient files were included in the WRFDA tar file in the WRFDA/var/run/crtm_coeffs_2.2.3 directory (please see also WRFDA/var/run/README). -After unzip/untar crtm_v2.2.3.tar.gz, you will find all the coefficient files +After unzip/untar crtm_v2.3.0.tar.gz, you will find all the coefficient files under the directory fix. You will need to create another directory to copy or link the files that will be used in WRFDA. Please see also the CRTM user guide ftp://ftp.emc.ncep.noaa.gov/jcsda/CRTM/CRTM_User_Guide.pdf diff --git a/var/build/depend.txt b/var/build/depend.txt index e17c71e122..b40827b2e9 100644 --- a/var/build/depend.txt +++ b/var/build/depend.txt @@ -143,8 +143,8 @@ da_pseudo.o : da_pseudo.f90 da_calculate_grady_pseudo.inc da_transform_xtoy_pseu da_qscat.o : da_qscat.f90 da_calculate_grady_qscat.inc da_transform_xtoy_qscat_adj.inc da_transform_xtoy_qscat.inc da_print_stats_qscat.inc da_oi_stats_qscat.inc da_ao_stats_qscat.inc da_get_innov_vector_qscat.inc da_check_max_iv_qscat.inc da_residual_qscat.inc da_jo_and_grady_qscat.inc da_tracing.o da_tools.o da_statistics.o da_physics.o da_grid_definitions.o da_par_util1.o da_par_util.o da_interpolation.o da_define_structures.o da_control.o module_domain.o da_rad_diags.o : da_rad_diags.f90 da_radar.o : da_radar.f90 da_write_oa_radar_ascii.inc da_max_error_qc_radar.inc da_calculate_grady_radar.inc da_radial_velocity_adj.inc da_radial_velocity_lin.inc da_radial_velocity.inc da_radar_rf.inc da_get_innov_vector_radar.inc da_check_max_iv_radar.inc da_transform_xtoy_radar_adj.inc da_transform_xtoy_radar.inc da_print_stats_radar.inc da_oi_stats_radar.inc da_residual_radar.inc da_jo_and_grady_radar.inc da_ao_stats_radar.inc da_tools_serial.o da_reporting.o da_tracing.o da_tools.o da_statistics.o da_par_util1.o da_par_util.o da_interpolation.o da_define_structures.o da_control.o module_domain.o -da_radiance.o : da_radiance.f90 da_blacklist_rad.inc da_read_pseudo_rad.inc da_get_innov_vector_radiance.inc da_radiance_init.inc da_setup_radiance_structures.inc da_sort_rad.inc da_read_kma1dvar.inc da_initialize_rad_iv.inc da_allocate_rad_iv.inc da_read_obs_bufrssmis.inc da_read_obs_bufrairs.inc da_read_obs_bufriasi.inc da_read_obs_bufrseviri.inc da_read_obs_bufrtovs.inc da_write_filtered_rad.inc da_read_simulated_rad.inc da_read_filtered_rad.inc da_calculate_grady_rad.inc gsi_thinning.o da_wrf_interfaces.o da_varbc.o da_tracing.o da_tools.o da_statistics.o da_rttov.o da_reporting.o da_radiance1.o da_physics.o da_par_util.o da_par_util1.o da_tools_serial.o da_interpolation.o da_define_structures.o da_crtm.o da_control.o module_radiance.o module_domain.o amsr2time_.c da_read_obs_hdf5amsr2.inc da_deallocate_radiance.inc da_read_obs_ncgoesimg.inc da_get_satzen.inc -da_radiance1.o : da_radiance1.f90 da_mspps_ts.inc da_mspps_emis.inc da_setup_satcv.inc da_qc_rad.inc da_print_stats_rad.inc da_oi_stats_rad.inc da_ao_stats_rad.inc da_cld_eff_radius.inc da_detsurtyp.inc da_write_oa_rad_ascii.inc da_write_iv_rad_ascii.inc da_qc_mhs.inc da_qc_ssmis.inc da_qc_hirs.inc da_qc_amsub.inc da_qc_amsua.inc da_qc_airs.inc da_cloud_detect_airs.inc da_cloud_sim.inc da_qc_seviri.inc da_qc_iasi.inc da_cloud_detect_iasi.inc da_qc_crtm.inc da_predictor_crtm.inc da_predictor_rttov.inc da_write_biasprep.inc da_biasprep.inc da_read_biascoef.inc da_biascorr.inc da_residual_rad.inc da_jo_and_grady_rad.inc gsi_constants.o da_tracing.o da_tools_serial.o da_tools.o da_statistics.o da_reporting.o da_par_util1.o da_par_util.o module_dm.o da_define_structures.o da_control.o module_radiance.o da_qc_amsr2.inc da_qc_goesimg.inc +da_radiance.o : da_radiance.f90 da_blacklist_rad.inc da_read_pseudo_rad.inc da_get_innov_vector_radiance.inc da_radiance_init.inc da_setup_radiance_structures.inc da_sort_rad.inc da_read_kma1dvar.inc da_initialize_rad_iv.inc da_allocate_rad_iv.inc da_read_obs_bufrssmis.inc da_read_obs_bufrairs.inc da_read_obs_bufriasi.inc da_read_obs_bufrseviri.inc da_read_obs_bufrtovs.inc da_write_filtered_rad.inc da_read_simulated_rad.inc da_read_filtered_rad.inc da_calculate_grady_rad.inc gsi_thinning.o da_wrf_interfaces.o da_varbc.o da_tracing.o da_tools.o da_statistics.o da_rttov.o da_reporting.o da_radiance1.o da_physics.o da_par_util.o da_par_util1.o da_tools_serial.o da_interpolation.o da_define_structures.o da_crtm.o da_control.o module_radiance.o module_domain.o amsr2time_.c da_read_obs_hdf5amsr2.inc da_deallocate_radiance.inc da_read_obs_ncgoesimg.inc da_get_satzen.inc da_read_obs_hdf5ahi.inc da_read_obs_netcdf4ahi_jaxa.inc da_read_obs_netcdf4ahi_geocat.inc +da_radiance1.o : da_radiance1.f90 da_mspps_ts.inc da_mspps_emis.inc da_setup_satcv.inc da_qc_rad.inc da_print_stats_rad.inc da_oi_stats_rad.inc da_ao_stats_rad.inc da_cld_eff_radius.inc da_detsurtyp.inc da_write_oa_rad_ascii.inc da_write_iv_rad_ascii.inc da_qc_mhs.inc da_qc_ssmis.inc da_qc_hirs.inc da_qc_amsub.inc da_qc_amsua.inc da_qc_airs.inc da_cloud_detect_airs.inc da_cloud_sim.inc da_qc_seviri.inc da_qc_iasi.inc da_cloud_detect_iasi.inc da_qc_crtm.inc da_predictor_crtm.inc da_predictor_rttov.inc da_write_biasprep.inc da_biasprep.inc da_read_biascoef.inc da_biascorr.inc da_residual_rad.inc da_jo_and_grady_rad.inc gsi_constants.o da_tracing.o da_tools_serial.o da_tools.o da_statistics.o da_reporting.o da_par_util1.o da_par_util.o module_dm.o da_define_structures.o da_control.o module_radiance.o da_qc_amsr2.inc da_qc_goesimg.inc da_qc_ahi.inc da_rain.o : da_rain.f90 da_calculate_grady_rain.inc da_get_innov_vector_rain.inc da_get_hr_rain.inc da_check_max_iv_rain.inc da_transform_xtoy_rain_adj.inc da_transform_xtoy_rain.inc da_print_stats_rain.inc da_oi_stats_rain.inc da_residual_rain.inc da_jo_and_grady_rain.inc da_ao_stats_rain.inc da_tracing.o da_tools.o da_statistics.o da_par_util.o da_par_util1.o da_interpolation.o da_define_structures.o da_control.o module_comm_dm.o module_dm.o module_domain.o da_recursive_filter.o : da_recursive_filter.f90 da_apply_rf_adj.inc da_apply_rf.inc da_apply_rf_1v_adj.inc da_apply_rf_1v.inc da_transform_through_rf_adj.inc da_transform_through_rf.inc da_recursive_filter_1d_adj.inc da_recursive_filter_1d.inc da_calculate_rf_factors.inc da_transform_through_rf_dual_res.inc da_transform_through_rf_adj_dual_res.inc da_perform_2drf.inc da_rf_cv3.o da_rfz_cv3.o da_tracing.o da_par_util.o da_define_structures.o da_control.o module_domain.o da_reporting.o : da_reporting.f90 da_message2.inc da_message.inc da_warning.inc da_error.inc da_control.o diff --git a/var/da/da_airep/da_airep.f90 b/var/da/da_airep/da_airep.f90 index 23db6aa1e3..13c537beae 100644 --- a/var/da/da_airep/da_airep.f90 +++ b/var/da/da_airep/da_airep.f90 @@ -8,7 +8,7 @@ module da_airep airep, anal_type_verify, kms,kme,kts,kte, trace_use_dull, & position_lev_dependant,qcstat_conv_unit,ob_vars, fails_error_max, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, max_omb_spd, max_omb_dir, pi, qc_rej_both, & - wind_sd_airep, wind_stats_sd + wind_sd_airep, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv, da_ffdduv_model,da_ffdduv_diagnose use da_physics, only : da_uv_to_sd_lin, da_uv_to_sd_adj use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & diff --git a/var/da/da_airep/da_check_max_iv_airep.inc b/var/da/da_airep/da_check_max_iv_airep.inc index 7d1468d55f..121a1ac4d7 100644 --- a/var/da/da_airep/da_check_max_iv_airep.inc +++ b/var/da/da_airep/da_check_max_iv_airep.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_airep(iv, it, num_qcstat_conv) num_qcstat_conv(1,airep,1,ipr) = num_qcstat_conv(1,airep,1,ipr) + 1 if(failed) then num_qcstat_conv(2,airep,1,ipr) = num_qcstat_conv(2,airep,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(1),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) + end if end if end if end if @@ -47,8 +49,10 @@ subroutine da_check_max_iv_airep(iv, it, num_qcstat_conv) num_qcstat_conv(1,airep,2,ipr) = num_qcstat_conv(1,airep,2,ipr) + 1 if(failed)then num_qcstat_conv(2,airep,2,ipr) = num_qcstat_conv(2,airep,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(2),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) + end if end if end if end if @@ -62,8 +66,10 @@ subroutine da_check_max_iv_airep(iv, it, num_qcstat_conv) num_qcstat_conv(1,airep,1,ipr) = num_qcstat_conv(1,airep,1,ipr) + 1 if(failed) then num_qcstat_conv(2,airep,1,ipr) = num_qcstat_conv(2,airep,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(1),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) + end if end if end if end if @@ -75,8 +81,10 @@ subroutine da_check_max_iv_airep(iv, it, num_qcstat_conv) num_qcstat_conv(1,airep,2,ipr) = num_qcstat_conv(1,airep,2,ipr) + 1 if(failed)then num_qcstat_conv(2,airep,2,ipr) = num_qcstat_conv(2,airep,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(2),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) + end if end if end if end if @@ -114,11 +122,15 @@ subroutine da_check_max_iv_airep(iv, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,airep,1,ipr) = num_qcstat_conv(2,airep,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(1),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) + end if num_qcstat_conv(2,airep,2,ipr) = num_qcstat_conv(2,airep,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(2),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) + end if endif endif @@ -147,8 +159,10 @@ subroutine da_check_max_iv_airep(iv, it, num_qcstat_conv) num_qcstat_conv(1,airep,3,ipr) = num_qcstat_conv(1,airep,3,ipr) + 1 if(failed) then num_qcstat_conv(2,airep,3,ipr) = num_qcstat_conv(2,airep,3,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(3),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) + end if end if end if end if @@ -166,9 +180,11 @@ subroutine da_check_max_iv_airep(iv, it, num_qcstat_conv) num_qcstat_conv(1,airep,4,ipr) = num_qcstat_conv(1,airep,4,ipr) + 1 if(failed) then num_qcstat_conv(2,airep,4,ipr) = num_qcstat_conv(2,airep,4,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airep',ob_vars(4),iv%info(airep)%lat(k,n),iv%info(airep)%lon(k,n),0.01*iv%airep(n)%p(k) end if + end if end if end if end do diff --git a/var/da/da_airsr/da_airsr.f90 b/var/da/da_airsr/da_airsr.f90 index 7dee650860..58c88f8d6a 100644 --- a/var/da/da_airsr/da_airsr.f90 +++ b/var/da/da_airsr/da_airsr.f90 @@ -8,7 +8,7 @@ module da_airsr airsr, max_error_p,max_error_q, trace_use_dull,fails_error_max, & max_stheight_diff,missing_data,max_error_bq,max_error_slp, & max_error_bt, max_error_buv, anal_type_verify, kms,kme,kts,kte, & - ob_vars, qcstat_conv_unit, fails_error_max + ob_vars, qcstat_conv_unit, fails_error_max, write_rej_obs_conv use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type use da_interpolation, only : da_interp_lin_3d, da_to_zk, & diff --git a/var/da/da_airsr/da_check_max_iv_airsr.inc b/var/da/da_airsr/da_check_max_iv_airsr.inc index af0cd128cf..925b8d1d92 100644 --- a/var/da/da_airsr/da_check_max_iv_airsr.inc +++ b/var/da/da_airsr/da_check_max_iv_airsr.inc @@ -32,8 +32,10 @@ subroutine da_check_max_iv_airsr(iv, it,num_qcstat_conv) num_qcstat_conv(1,airsr,3,ipr) = num_qcstat_conv(1,airsr,3,ipr) + 1 if(failed)then num_qcstat_conv(2,airsr,3,ipr) = num_qcstat_conv(2,airsr,3,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airsr',ob_vars(3),iv%info(airsr)%lat(k,n),iv%info(airsr)%lon(k,n),0.01*iv%airsr(n)%p(k) + end if endif endif endif @@ -45,8 +47,10 @@ subroutine da_check_max_iv_airsr(iv, it,num_qcstat_conv) num_qcstat_conv(1,airsr,4,ipr) = num_qcstat_conv(1,airsr,4,ipr) + 1 if(failed)then num_qcstat_conv(2,airsr,4,ipr) = num_qcstat_conv(2,airsr,4,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'airsr',ob_vars(4),iv%info(airsr)%lat(k,n),iv%info(airsr)%lon(k,n),0.01*iv%airsr(n)%p(k) + end if endif endif endif diff --git a/var/da/da_bogus/da_bogus.f90 b/var/da/da_bogus/da_bogus.f90 index 13d3850442..ef52ec61b7 100644 --- a/var/da/da_bogus/da_bogus.f90 +++ b/var/da/da_bogus/da_bogus.f90 @@ -8,7 +8,7 @@ module da_bogus bogus, max_error_p,max_error_q, trace_use_dull,fails_error_max, & max_stheight_diff,missing_data,max_error_bq,max_error_slp, & max_error_bt, max_error_buv, anal_type_verify, kms,kme,kts,kte, & - ob_vars,qcstat_conv_unit + ob_vars,qcstat_conv_unit, write_rej_obs_conv use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type use da_interpolation, only : da_interp_lin_3d, da_to_zk, & diff --git a/var/da/da_bogus/da_check_max_iv_bogus.inc b/var/da/da_bogus/da_check_max_iv_bogus.inc index 673f8556a1..1a1cafa716 100644 --- a/var/da/da_bogus/da_check_max_iv_bogus.inc +++ b/var/da/da_bogus/da_check_max_iv_bogus.inc @@ -35,8 +35,10 @@ subroutine da_check_max_iv_bogus(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,bogus,1,ipr) = num_qcstat_conv(1,bogus,1,ipr) + 1 if(failed)then num_qcstat_conv(2,bogus,1,ipr) = num_qcstat_conv(2,bogus,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'bogus',ob_vars(1),iv%info(bogus)%lat(k,n),iv%info(bogus)%lon(k,n),0.01*iv%bogus(n)%p(k) + end if end if end if end if @@ -48,8 +50,10 @@ subroutine da_check_max_iv_bogus(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,bogus,2,ipr) = num_qcstat_conv(1,bogus,2,ipr) + 1 if(failed)then num_qcstat_conv(2,bogus,2,ipr) = num_qcstat_conv(2,bogus,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'bogus',ob_vars(2),iv%info(bogus)%lat(k,n),iv%info(bogus)%lon(k,n),0.01*iv%bogus(n)%p(k) + end if end if end if end if @@ -61,8 +65,10 @@ subroutine da_check_max_iv_bogus(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,bogus,3,ipr) = num_qcstat_conv(1,bogus,3,ipr) + 1 if(failed)then num_qcstat_conv(2,bogus,3,ipr) = num_qcstat_conv(2,bogus,3,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'bogus',ob_vars(3),iv%info(bogus)%lat(k,n),iv%info(bogus)%lon(k,n),0.01*iv%bogus(n)%p(k) + end if end if end if end if @@ -74,8 +80,10 @@ subroutine da_check_max_iv_bogus(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,bogus,4,ipr) = num_qcstat_conv(1,bogus,4,ipr) + 1 if(failed)then num_qcstat_conv(2,bogus,4,ipr) = num_qcstat_conv(2,bogus,4,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'bogus',ob_vars(4),iv%info(bogus)%lat(k,n),iv%info(bogus)%lon(k,n),0.01*iv%bogus(n)%p(k) + end if end if end if end if @@ -90,8 +98,10 @@ subroutine da_check_max_iv_bogus(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,bogus,5,1) = num_qcstat_conv(1,bogus,5,1) + 1 if(failed) then num_qcstat_conv(2,bogus,5,1) = num_qcstat_conv(2,bogus,5,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'bogus',ob_vars(5),iv%info(bogus)%lat(1,n),iv%info(bogus)%lon(1,n),ob%bogus(n)%slp + end if endif endif endif diff --git a/var/da/da_buoy/da_buoy.f90 b/var/da/da_buoy/da_buoy.f90 index f43e2e2682..b08cc61ff7 100644 --- a/var/da/da_buoy/da_buoy.f90 +++ b/var/da/da_buoy/da_buoy.f90 @@ -12,7 +12,7 @@ module da_buoy qcstat_conv_unit,ob_vars, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, & max_omb_spd, max_omb_dir, pi, qc_rej_both, & - wind_sd_buoy, wind_stats_sd + wind_sd_buoy, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv, da_ffdduv_model, da_ffdduv_diagnose use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type diff --git a/var/da/da_buoy/da_check_max_iv_buoy.inc b/var/da/da_buoy/da_check_max_iv_buoy.inc index e4f21d1ccc..c40513ff86 100644 --- a/var/da/da_buoy/da_check_max_iv_buoy.inc +++ b/var/da/da_buoy/da_check_max_iv_buoy.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,buoy,1,1) = num_qcstat_conv(1,buoy,1,1) + 1 if(failed) then num_qcstat_conv(2,buoy,1,1) = num_qcstat_conv(2,buoy,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(1),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p + end if end if end if end if @@ -47,8 +49,10 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,buoy,2,1) = num_qcstat_conv(1,buoy,2,1) + 1 if(failed)then num_qcstat_conv(2,buoy,2,1) = num_qcstat_conv(2,buoy,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(2),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p + end if end if end if end if @@ -62,8 +66,10 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,buoy,1,1) = num_qcstat_conv(1,buoy,1,1) + 1 if(failed) then num_qcstat_conv(2,buoy,1,1) = num_qcstat_conv(2,buoy,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(1),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p + end if end if end if end if @@ -75,8 +81,10 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,buoy,2,1) = num_qcstat_conv(1,buoy,2,1) + 1 if(failed)then num_qcstat_conv(2,buoy,2,1) = num_qcstat_conv(2,buoy,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(2),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p + end if end if end if end if @@ -112,11 +120,15 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,buoy,1,1) = num_qcstat_conv(2,buoy,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(1),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p + end if num_qcstat_conv(2,buoy,2,1) = num_qcstat_conv(2,buoy,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(2),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p + end if endif endif @@ -145,11 +157,13 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,buoy,3,1)= num_qcstat_conv(1,buoy,3,1) + 1 if(failed) then num_qcstat_conv(2,buoy,3,1)= num_qcstat_conv(2,buoy,3,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(3),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p end if end if end if + end if failed=.false. if( iv%buoy(n)%p%qc >= obs_qc_pointer ) then @@ -158,11 +172,13 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,buoy,5,1)= num_qcstat_conv(1,buoy,5,1) + 1 if(failed) then num_qcstat_conv(2,buoy,5,1)= num_qcstat_conv(2,buoy,5,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(5),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p end if end if end if + end if failed=.false. @@ -178,11 +194,13 @@ subroutine da_check_max_iv_buoy(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,buoy,4,1)= num_qcstat_conv(1,buoy,4,1) + 1 if(failed) then num_qcstat_conv(2,buoy,4,1)= num_qcstat_conv(2,buoy,4,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'buoy',ob_vars(4),iv%info(buoy)%lat(1,n),iv%info(buoy)%lon(1,n),0.01*ob%buoy(n)%p end if end if end if + end if end do diff --git a/var/da/da_define_structures/da_define_structures.f90 b/var/da/da_define_structures/da_define_structures.f90 index 794d0b89b5..c67b0f7d06 100644 --- a/var/da/da_define_structures/da_define_structures.f90 +++ b/var/da/da_define_structures/da_define_structures.f90 @@ -514,6 +514,7 @@ module da_define_structures integer, pointer :: scanpos(:) integer, pointer :: scanline(:) integer, pointer :: cloud_flag(:,:) + integer, pointer :: cloudflag(:) integer, pointer :: rain_flag(:) real, pointer :: satzen(:) real, pointer :: satazi(:) diff --git a/var/da/da_geoamv/da_check_max_iv_geoamv.inc b/var/da/da_geoamv/da_check_max_iv_geoamv.inc index 7482495513..53b9579c8d 100644 --- a/var/da/da_geoamv/da_check_max_iv_geoamv.inc +++ b/var/da/da_geoamv/da_check_max_iv_geoamv.inc @@ -35,8 +35,10 @@ subroutine da_check_max_iv_geoamv(iv, it, num_qcstat_conv) num_qcstat_conv(1,geoamv,1,ipr) = num_qcstat_conv(1,geoamv,1,ipr) + 1 if(failed) then num_qcstat_conv(2,geoamv,1,ipr) = num_qcstat_conv(2,geoamv,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'geoamv',ob_vars(1),iv%info(geoamv)%lat(k,n),iv%info(geoamv)%lon(k,n),0.01*iv%geoamv(n)%p(k) + end if end if end if end if @@ -48,8 +50,10 @@ subroutine da_check_max_iv_geoamv(iv, it, num_qcstat_conv) num_qcstat_conv(1,geoamv,2,ipr) = num_qcstat_conv(1,geoamv,2,ipr) + 1 if(failed)then num_qcstat_conv(2,geoamv,2,ipr) = num_qcstat_conv(2,geoamv,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'geoamv',ob_vars(2),iv%info(geoamv)%lat(k,n),iv%info(geoamv)%lon(k,n),0.01*iv%geoamv(n)%p(k) + end if end if end if end if @@ -63,8 +67,10 @@ subroutine da_check_max_iv_geoamv(iv, it, num_qcstat_conv) num_qcstat_conv(1,geoamv,1,ipr) = num_qcstat_conv(1,geoamv,1,ipr) + 1 if(failed) then num_qcstat_conv(2,geoamv,1,ipr) = num_qcstat_conv(2,geoamv,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'geoamv',ob_vars(1),iv%info(geoamv)%lat(k,n),iv%info(geoamv)%lon(k,n),0.01*iv%geoamv(n)%p(k) + end if end if end if end if @@ -76,8 +82,10 @@ subroutine da_check_max_iv_geoamv(iv, it, num_qcstat_conv) num_qcstat_conv(1,geoamv,2,ipr) = num_qcstat_conv(1,geoamv,2,ipr) + 1 if(failed)then num_qcstat_conv(2,geoamv,2,ipr) = num_qcstat_conv(2,geoamv,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'geoamv',ob_vars(2),iv%info(geoamv)%lat(k,n),iv%info(geoamv)%lon(k,n),0.01*iv%geoamv(n)%p(k) + end if end if end if end if @@ -113,11 +121,15 @@ subroutine da_check_max_iv_geoamv(iv, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,geoamv,1,ipr) = num_qcstat_conv(2,geoamv,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'geoamv',ob_vars(1),iv%info(geoamv)%lat(k,n),iv%info(geoamv)%lon(k,n),0.01*iv%geoamv(n)%p(k) + end if num_qcstat_conv(2,geoamv,2,ipr) = num_qcstat_conv(2,geoamv,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'geoamv',ob_vars(2),iv%info(geoamv)%lat(k,n),iv%info(geoamv)%lon(k,n),0.01*iv%geoamv(n)%p(k) + end if endif endif diff --git a/var/da/da_geoamv/da_geoamv.f90 b/var/da/da_geoamv/da_geoamv.f90 index 2f5ce31a7e..d4bbbc486b 100644 --- a/var/da/da_geoamv/da_geoamv.f90 +++ b/var/da/da_geoamv/da_geoamv.f90 @@ -9,7 +9,7 @@ module da_geoamv max_stheight_diff,missing_data,max_error_bq,max_error_slp,fails_error_max, & max_error_bt, max_error_buv, geoamv, anal_type_verify,qcstat_conv_unit,ob_vars, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, max_omb_spd, max_omb_dir, pi, qc_rej_both,& - wind_sd_geoamv, wind_stats_sd + wind_sd_geoamv, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv, da_ffdduv_model,da_ffdduv_diagnose use da_physics, only : da_uv_to_sd_lin, da_uv_to_sd_adj use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & diff --git a/var/da/da_gpspw/da_check_max_iv_gpspw.inc b/var/da/da_gpspw/da_check_max_iv_gpspw.inc index 599d8f320c..6be539a3ef 100644 --- a/var/da/da_gpspw/da_check_max_iv_gpspw.inc +++ b/var/da/da_gpspw/da_check_max_iv_gpspw.inc @@ -30,8 +30,10 @@ subroutine da_check_max_iv_gpspw(iv, it, num_qcstat_conv) num_qcstat_conv(1,gpspw,7,1) = num_qcstat_conv(1,gpspw,7,1) + 1 if(failed) then num_qcstat_conv(2,gpspw,7,1) = num_qcstat_conv(2,gpspw,7,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'gpspw',ob_vars(7),iv%info(gpspw)%lat(1,n),iv%info(gpspw)%lon(1,n),'1013.25' + end if end if end if end if diff --git a/var/da/da_gpspw/da_gpspw.f90 b/var/da/da_gpspw/da_gpspw.f90 index 473a1ea9ca..808d6649ba 100644 --- a/var/da/da_gpspw/da_gpspw.f90 +++ b/var/da/da_gpspw/da_gpspw.f90 @@ -12,7 +12,7 @@ module da_gpspw pseudo_var, num_pseudo, use_gpspwobs, use_gpsztdobs, max_error_pw,fails_error_max, & fails_error_max,pseudo_err,pseudo_x, pseudo_y, stdout, & pseudo_z,pseudo_val,max_error_ref, trace_use_dull, pseudo, its,ite,jts,jte,& - ob_vars,qcstat_conv_unit + ob_vars,qcstat_conv_unit, write_rej_obs_conv use da_control, only : pseudo_tpw, pseudo_ztd, myproc, num_fgat_time, write_iv_gpsztd use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type, & diff --git a/var/da/da_gpsref/da_check_max_iv_gpsref.inc b/var/da/da_gpsref/da_check_max_iv_gpsref.inc index 0c84222dc1..32e8cf966b 100644 --- a/var/da/da_gpsref/da_check_max_iv_gpsref.inc +++ b/var/da/da_gpsref/da_check_max_iv_gpsref.inc @@ -61,11 +61,13 @@ subroutine da_check_max_iv_gpsref(iv,it, num_qcstat_conv, opt) endif if(failed) then num_qcstat_conv(2,gpsref,8,ipr) = num_qcstat_conv(2,gpsref,8,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2,I5)')& 'gpsref',ob_vars(8),iv%info(gpsref)%lat(k,n), & iv%info(gpsref)%lon(k,n),0.01*iv%gpsref(n)%p(k)%inv, & iv%gpsref(n)%ref(k)%qc end if + end if end do end do ENDIF diff --git a/var/da/da_gpsref/da_gpsref.f90 b/var/da/da_gpsref/da_gpsref.f90 index 4ab2e79d76..9400e9708d 100644 --- a/var/da/da_gpsref/da_gpsref.f90 +++ b/var/da/da_gpsref/da_gpsref.f90 @@ -15,7 +15,7 @@ module da_gpsref ! t_iwabuchi END anal_type_verify,fails_error_max,pseudo_err,pseudo_x, pseudo_y, stdout, & use_gpsrefobs, gpsref_thinning, pseudo_z,pseudo_val,max_error_ref, pseudo, & - jts, jte,its,ite, npres_print, pptop + jts, jte,its,ite, npres_print, pptop, write_rej_obs_conv use da_control, only : pseudo_ref use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type, & diff --git a/var/da/da_main/da_med_initialdata_input.inc b/var/da/da_main/da_med_initialdata_input.inc index af9906b6c7..f5ef0ced7b 100644 --- a/var/da/da_main/da_med_initialdata_input.inc +++ b/var/da/da_main/da_med_initialdata_input.inc @@ -158,6 +158,28 @@ subroutine da_med_initialdata_input (grid, config_flags, filename, in_date) write(unit=message(1),fmt='(A,I2)') 'hybrid_opt = ', grid%hybrid_opt call da_message(message(1:1)) + !global attribute USE_THETA_M exists in WRF V3.7? and later + call wrf_get_dom_ti_integer (fid, 'USE_THETA_M', grid%use_theta_m, 1, icnt, ierr) + if ( ierr /= 0 ) then + grid%use_theta_m = 0 + write(unit=message(1),fmt='(A,A)') trim(filename), ' appears to be from earlier than WRF V3.7' + write(unit=message(2),fmt='(A)') 'Setting use_theta_m = 0' + call da_message(message(1:2)) + else + ! when input file contains USE_THETA_M, stop 4DVAR (wrfplus not work with thetam yet). + if ( var4d ) then + if ( grid%use_theta_m > 0 ) then + write(unit=message(1),fmt='(A,I2,A,A)') 'USE_THETA_M = ', grid%use_theta_m, ' in ', trim(filename) + write(unit=message(2),fmt='(A)') '4DVAR does not work with moist potential T' + call da_error(__FILE__,__LINE__,message(1:2)) + end if + end if + end if + + write(unit=message(1),fmt='(A,I2)') 'use_theta_m = ', grid%use_theta_m + call da_message(message(1:1)) + + call close_dataset (fid , config_flags , "DATASET=INPUT") if (trace_use) call da_trace_exit("da_med_initialdata_input") diff --git a/var/da/da_main/da_solve.inc b/var/da/da_main/da_solve.inc index 423d31efdd..84479e75f1 100644 --- a/var/da/da_main/da_solve.inc +++ b/var/da/da_main/da_solve.inc @@ -196,13 +196,22 @@ ' Resetting ntmax = 0 for analysis_type = randomcv' end if - if ( cv_options == 3 .and. cloud_cv_options > 0 ) then - write(unit=message(1),fmt='(A)') & - 'Cloud control variables are not implemented for cv_options = 3' - write(unit=message(2),fmt='(A)') & - 'Resetting cloud_cv_options = 0 for cv_options = 3' - cloud_cv_options = 0 - call da_warning(__FILE__,__LINE__,message(1:2)) + if ( cv_options == 3 ) then + if ( cloud_cv_options > 0 ) then + write(unit=message(1),fmt='(A)') & + 'Cloud control variables are not implemented for cv_options = 3' + write(unit=message(2),fmt='(A)') & + 'Resetting cloud_cv_options = 0 for cv_options = 3' + cloud_cv_options = 0 + call da_warning(__FILE__,__LINE__,message(1:2)) + end if + if ( ensdim_alpha > 0 ) then + write(unit=message(1),fmt='(A)') & + 'Alpha control variables are not implemented for cv_options = 3' + write(unit=message(2),fmt='(A)') & + 'Please set cv_options=5 or 7, or ensdim_alpha=0' + call da_error(__FILE__,__LINE__,message(1:2)) + end if end if if ( use_radarobs ) then @@ -858,7 +867,7 @@ ! [8.7.1] Write Ascii radar OMB and OMA file - if (use_radarobs) then + if ( use_radarobs .and. write_oa_radar_ascii ) then call da_write_oa_radar_ascii (ob,iv,re,it) end if diff --git a/var/da/da_main/da_update_firstguess.inc b/var/da/da_main/da_update_firstguess.inc index 48d1a29a63..22e0453c7f 100755 --- a/var/da/da_main/da_update_firstguess.inc +++ b/var/da/da_main/da_update_firstguess.inc @@ -22,14 +22,25 @@ subroutine da_update_firstguess(grid, out_filename) ! grid%psfc ! grid%t2, grid%q2, grid%u10, grid%v10, grid%th2 ! +! Note about dry and mosit theta perturbation: +!----------------------------------------------- +! In the WRF model, grid%t_2 is either moist or dry theta perturbation, +! depending on the use_theta_m switch. The grid%th_phy_m_t0 is always +! the dry theta perturbation. The T/THM name is a character string of +! the input/output field for the grid%t_2 variable. +! +! Inside of the DA Registry, grid%t_2 is always the dry theta perturbation. +! We should be careful about referring to the internal field (such as grid%t_2) +! and the string that is used to name the field in the input/output file. !--------------------------------------------------------------------------- use module_domain, only : get_ijk_from_grid, program_name use da_control, only : use_radarobs, use_rad, crtm_cloud, & - use_radar_rhv, use_radar_rqv + use_radar_rhv, use_radar_rqv use module_state_description, only : p_qv, p_qc, p_qr, p_qi, & p_qs, p_qg, & f_qc, f_qr, f_qi, f_qs, f_qg + use module_model_constants, only: R_d, R_v, T0 implicit none @@ -70,6 +81,7 @@ subroutine da_update_firstguess(grid, out_filename) integer :: julyr, julday real :: gmt real*4 :: gmt4 + real :: qvf wrf_real=104 end_index1=0 @@ -145,7 +157,7 @@ subroutine da_update_firstguess(grid, out_filename) nlat_regional=end_index1(2) nsig_regional=end_index1(3) -! write(6,*)' nlon,lat,sig_regional=',nlon_regional,nlat_regional,nsig_regional + !write(6,*)' nlon,nlat,nsig_regional=',nlon_regional,nlat_regional,nsig_regional allocate(field2(nlon_regional,nlat_regional),field3(nlon_regional,nlat_regional,nsig_regional)) allocate(field3u(nlon_regional+1,nlat_regional,nsig_regional)) allocate(field3v(nlon_regional,nlat_regional+1,nsig_regional)) @@ -585,18 +597,6 @@ subroutine da_update_firstguess(grid, out_filename) start_index,end_index1, & !pat ierr ) -! Update moist potential temperature: for now, it is identical to T with use_theta_m=0. - rmse_var='THM' - call ext_ncd_get_var_info (dh1,trim(rmse_var),ndim1,ordering,staggering, & - start_index,end_index1, WrfType, ierr ) - call ext_ncd_write_field(dh1,DateStr1,TRIM(rmse_var), & - field3,WRF_REAL,0,0,0,ordering, & - staggering, dimnames , & - start_index,end_index1, & !dom - start_index,end_index1, & !mem - start_index,end_index1, & !pat - ierr ) - end if #ifdef DM_PARALLEL @@ -604,7 +604,7 @@ subroutine da_update_firstguess(grid, out_filename) #endif ! -! update QVAPOR +! collect QVAPOR from patches to a global array ! #ifdef DM_PARALLEL if (rootproc) then @@ -618,7 +618,48 @@ subroutine da_update_firstguess(grid, out_filename) ims, ime, jms, jme, kms, kme, & ips, min(ipe,ide-1), jps, min(jpe,jde-1), kps, kpe-1 ) #endif - if (rootproc) then + + if (rootproc) then +! +! Update THM (moist theta perturbation) before updating QVAPOR +! + if (grid%use_theta_m == 1) then ! convert dry theta perturbation to moist one + write(unit=message(1),fmt='(A, I2)') 'convert T to THM when use_theta_m = ', grid%use_theta_m + call da_message(message(1:1)) + do k= 1,nsig_regional + do j= 1,nlat_regional + do i= 1,nlon_regional +#ifdef DM_PARALLEL + qvf=1.+(R_v/R_d)*globbuf(i+(j-1)*(nlon_regional+1)+(k-1)*(nlon_regional+1)*(nlat_regional+1)) +#else + qvf=1.+(R_v/R_d)*grid%moist(i,j,k,p_qv) +#endif + ! field3 here is dry theta perturbation generated earlier + field3(i,j,k)=(field3(i,j,k)+T0)*qvf - T0 + end do + end do + end do + else ! THM = T when use_theta_m = 0 + write(unit=message(1),fmt='(A, I2)') 'THM = T when use_theta_m = ', grid%use_theta_m + call da_message(message(1:1)) + end if + + rmse_var='THM' + call ext_ncd_get_var_info (dh1,trim(rmse_var),ndim1,ordering,staggering, & + start_index,end_index1, WrfType, ierr ) + + call ext_ncd_write_field(dh1,DateStr1,TRIM(rmse_var), & + field3,WRF_REAL,0,0,0,ordering, & + staggering, dimnames , & + start_index,end_index1, & !dom + start_index,end_index1, & !mem + start_index,end_index1, & !pat + ierr ) + + +! +! Update QVAPOR +! do k= 1,nsig_regional do j= 1,nlat_regional do i= 1,nlon_regional diff --git a/var/da/da_metar/da_check_max_iv_metar.inc b/var/da/da_metar/da_check_max_iv_metar.inc index 29e6449606..082f58ebba 100644 --- a/var/da/da_metar/da_check_max_iv_metar.inc +++ b/var/da/da_metar/da_check_max_iv_metar.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,metar,1,1) = num_qcstat_conv(1,metar,1,1) + 1 if(failed) then num_qcstat_conv(2,metar,1,1) = num_qcstat_conv(2,metar,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(1),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p + end if end if end if end if @@ -47,8 +49,10 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,metar,2,1) = num_qcstat_conv(1,metar,2,1) + 1 if(failed)then num_qcstat_conv(2,metar,2,1) = num_qcstat_conv(2,metar,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(2),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p + end if end if end if end if @@ -60,8 +64,10 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,metar,1,1) = num_qcstat_conv(1,metar,1,1) + 1 if(failed) then num_qcstat_conv(2,metar,1,1) = num_qcstat_conv(2,metar,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(1),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p + end if end if end if end if @@ -72,8 +78,10 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,metar,2,1) = num_qcstat_conv(1,metar,2,1) + 1 if(failed)then num_qcstat_conv(2,metar,2,1) = num_qcstat_conv(2,metar,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(2),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p + end if end if end if end if @@ -108,11 +116,15 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,metar,1,1) = num_qcstat_conv(2,metar,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(1),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p + end if num_qcstat_conv(2,metar,2,1) = num_qcstat_conv(2,metar,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(2),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p + end if endif endif @@ -141,11 +153,13 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,metar,3,1)= num_qcstat_conv(1,metar,3,1) + 1 if(failed) then num_qcstat_conv(2,metar,3,1)= num_qcstat_conv(2,metar,3,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(3),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p end if end if end if + end if failed=.false. if( iv%metar(n)%p%qc >= obs_qc_pointer ) then @@ -154,11 +168,13 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,metar,5,1)= num_qcstat_conv(1,metar,5,1) + 1 if(failed) then num_qcstat_conv(2,metar,5,1)= num_qcstat_conv(2,metar,5,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(5),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p end if end if end if + end if failed=.false. if( iv%metar(n)%q%qc >= obs_qc_pointer ) then @@ -173,11 +189,13 @@ subroutine da_check_max_iv_metar(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,metar,4,1)= num_qcstat_conv(1,metar,4,1) + 1 if(failed) then num_qcstat_conv(2,metar,4,1)= num_qcstat_conv(2,metar,4,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'metar',ob_vars(4),iv%info(metar)%lat(1,n),iv%info(metar)%lon(1,n),0.01*ob%metar(n)%p end if end if end if + end if end do if (trace_use_dull) call da_trace_exit("da_check_max_iv_metar") diff --git a/var/da/da_metar/da_metar.f90 b/var/da/da_metar/da_metar.f90 index 03cfab0a7e..07b17c4271 100644 --- a/var/da/da_metar/da_metar.f90 +++ b/var/da/da_metar/da_metar.f90 @@ -13,7 +13,7 @@ module da_metar qcstat_conv_unit,ob_vars, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, & max_omb_spd, max_omb_dir, pi, qc_rej_both, & - wind_sd_metar, wind_stats_sd + wind_sd_metar, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv, da_ffdduv_model, da_ffdduv_diagnose use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type, & diff --git a/var/da/da_minimisation/da_get_innov_vector.inc b/var/da/da_minimisation/da_get_innov_vector.inc index fee044a2e6..7c10528551 100644 --- a/var/da/da_minimisation/da_get_innov_vector.inc +++ b/var/da/da_minimisation/da_get_innov_vector.inc @@ -30,22 +30,18 @@ subroutine da_get_innov_vector (it, num_qcstat_conv, ob, iv, grid, config_flags) if (trace_use) call da_trace_entry("da_get_innov_vector") call da_message((/"Calculate innovation vector(iv)"/)) - call da_get_unit(qcstat_conv_unit) -#ifdef DM_PARALLEL - write(unit=filename, fmt='(a,i2.2,a,i4.4)') 'rej_obs_conv_',it,'.', myproc -#else - write(unit=filename, fmt='(a,i2.2,a)') 'rej_obs_conv_',it,'.000' -#endif - - open (unit=qcstat_conv_unit,file=trim(filename),form='formatted',status='replace', & - iostat=ios) - if (ios /= 0) then - call da_error(__FILE__,__LINE__, & - (/"Cannot open qc observation file"//filename/)) + if ( write_rej_obs_conv ) then + call da_get_unit(qcstat_conv_unit) + write(unit=filename, fmt='(a,i2.2,a,i4.4)') 'rej_obs_conv_',it,'.', myproc + open (unit=qcstat_conv_unit,file=trim(filename),form='formatted',status='replace', & + iostat=ios) + if (ios /= 0) then + call da_error(__FILE__,__LINE__, & + (/"Cannot open qc observation file"//filename/)) + end if end if - iv%ptop = grid%xb%ptop filename = ' ' @@ -163,7 +159,12 @@ subroutine da_get_innov_vector (it, num_qcstat_conv, ob, iv, grid, config_flags) #if defined(CRTM) || defined(RTTOV) if (use_rad ) call da_get_innov_vector_radiance (it, grid, ob, iv) #endif - if (iv%info(pseudo)%nlocal ==1) call da_get_innov_vector_pseudo (it, grid, ob, iv) + if ( var4d ) then + if ( iv%info(pseudo)%nlocal==1 .and. n==pseudo_time ) & + call da_get_innov_vector_pseudo (it, grid, ob, iv) + else + if (iv%info(pseudo)%nlocal ==1) call da_get_innov_vector_pseudo (it, grid, ob, iv) + end if if (iv%info(airsr)%nlocal > 0) & call da_get_innov_vector_airsr (it,num_qcstat_conv, grid, ob, iv) @@ -229,8 +230,10 @@ subroutine da_get_innov_vector (it, num_qcstat_conv, ob, iv, grid, config_flags) !call wrfu_finalize !call wrf_shutdown !stop - close(qcstat_conv_unit) - call da_free_unit(qcstat_conv_unit) + if ( write_rej_obs_conv ) then + close(qcstat_conv_unit) + call da_free_unit(qcstat_conv_unit) + end if if (trace_use) call da_trace_exit("da_get_innov_vector") return endif @@ -281,8 +284,10 @@ subroutine da_get_innov_vector (it, num_qcstat_conv, ob, iv, grid, config_flags) end if #endif - close(qcstat_conv_unit) - call da_free_unit(qcstat_conv_unit) + if ( write_rej_obs_conv ) then + close(qcstat_conv_unit) + call da_free_unit(qcstat_conv_unit) + end if if (trace_use) call da_trace_exit("da_get_innov_vector") diff --git a/var/da/da_minimisation/da_minimisation.f90 b/var/da/da_minimisation/da_minimisation.f90 index 735614e424..9364ece06e 100644 --- a/var/da/da_minimisation/da_minimisation.f90 +++ b/var/da/da_minimisation/da_minimisation.f90 @@ -56,7 +56,8 @@ module da_minimisation use_wpec, wpec_factor, use_4denvar, anal_type_hybrid_dual_res, alphacv_method, alphacv_method_xa, & write_detail_grad_fn, pseudo_uvtpq, lanczos_ep_filename, use_divc, divc_factor, & cloud_cv_options, use_cv_w, var_scaling6, var_scaling7, var_scaling8, var_scaling9, & - var_scaling10, var_scaling11 + var_scaling10, var_scaling11, & + write_gts_omb_oma, write_unpert_obs, write_rej_obs_conv, pseudo_time use da_define_structures, only : iv_type, y_type, j_type, be_type, & xbx_type, jo_type, da_allocate_y,da_zero_x,da_zero_y,da_deallocate_y, & da_zero_vp_type, qhat_type diff --git a/var/da/da_minimisation/da_write_diagnostics.inc b/var/da/da_minimisation/da_write_diagnostics.inc index 82642aaeb3..883520212e 100644 --- a/var/da/da_minimisation/da_write_diagnostics.inc +++ b/var/da/da_minimisation/da_write_diagnostics.inc @@ -131,19 +131,28 @@ end if ! [5.0] Write observation data (O, O-B, O-A, y=hx'): !------------------------------------------------------------------------------ - call da_write_obs(it, ob, iv, re) + if ( write_gts_omb_oma ) then + call da_write_obs(it, ob, iv, re) + end if ! Write ETKF observation files if required (note - 1PE only at present): if (anal_type_verify) then call da_write_obs_etkf(ob, iv, re) end if - call da_final_write_obs(it, iv) + if ( write_gts_omb_oma ) then + call da_final_write_obs(it, iv) + end if if (.not. anal_type_verify) then - call da_write_y(iv, y) + if ( write_unpert_obs ) then + call da_write_y(iv, y) + end if + + if ( write_unpert_obs ) then + call da_final_write_y(iv) + end if - call da_final_write_y(iv) call da_print_qcstat(it, iv, num_qcstat_conv) end if diff --git a/var/da/da_mtgirs/da_check_max_iv_mtgirs.inc b/var/da/da_mtgirs/da_check_max_iv_mtgirs.inc index 99305b7b18..825af5739f 100644 --- a/var/da/da_mtgirs/da_check_max_iv_mtgirs.inc +++ b/var/da/da_mtgirs/da_check_max_iv_mtgirs.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_mtgirs(iv, it, num_qcstat_conv) num_qcstat_conv(1,mtgirs,1,ipr) = num_qcstat_conv(1,mtgirs,1,ipr) + 1 if(failed) then num_qcstat_conv(2,mtgirs,1,ipr) = num_qcstat_conv(2,mtgirs,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(1),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if end if end if end if @@ -47,8 +49,10 @@ subroutine da_check_max_iv_mtgirs(iv, it, num_qcstat_conv) num_qcstat_conv(1,mtgirs,2,ipr) = num_qcstat_conv(1,mtgirs,2,ipr) + 1 if(failed)then num_qcstat_conv(2,mtgirs,2,ipr) = num_qcstat_conv(2,mtgirs,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(2),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if end if end if end if @@ -60,8 +64,10 @@ subroutine da_check_max_iv_mtgirs(iv, it, num_qcstat_conv) num_qcstat_conv(1,mtgirs,1,ipr) = num_qcstat_conv(1,mtgirs,1,ipr) + 1 if(failed) then num_qcstat_conv(2,mtgirs,1,ipr) = num_qcstat_conv(2,mtgirs,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(1),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if end if end if end if @@ -73,8 +79,10 @@ subroutine da_check_max_iv_mtgirs(iv, it, num_qcstat_conv) num_qcstat_conv(1,mtgirs,2,ipr) = num_qcstat_conv(1,mtgirs,2,ipr) + 1 if(failed)then num_qcstat_conv(2,mtgirs,2,ipr) = num_qcstat_conv(2,mtgirs,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(2),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if end if end if end if @@ -110,11 +118,15 @@ subroutine da_check_max_iv_mtgirs(iv, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,mtgirs,1,ipr) = num_qcstat_conv(2,mtgirs,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(1),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if num_qcstat_conv(2,mtgirs,2,ipr) = num_qcstat_conv(2,mtgirs,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(2),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if end if end if @@ -144,8 +156,10 @@ subroutine da_check_max_iv_mtgirs(iv, it, num_qcstat_conv) num_qcstat_conv(1,mtgirs,3,ipr) = num_qcstat_conv(1,mtgirs,3,ipr) + 1 if(failed) then num_qcstat_conv(2,mtgirs,3,ipr) = num_qcstat_conv(2,mtgirs,3,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(3),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if end if end if end if @@ -163,8 +177,10 @@ subroutine da_check_max_iv_mtgirs(iv, it, num_qcstat_conv) num_qcstat_conv(1,mtgirs,4,ipr) = num_qcstat_conv(1,mtgirs,4,ipr) + 1 if(failed) then num_qcstat_conv(2,mtgirs,4,ipr) = num_qcstat_conv(2,mtgirs,4,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'mtgirs',ob_vars(4),iv%info(mtgirs)%lat(k,n),iv%info(mtgirs)%lon(k,n),0.01*iv%mtgirs(n)%p(k) + end if end if end if end if diff --git a/var/da/da_mtgirs/da_mtgirs.f90 b/var/da/da_mtgirs/da_mtgirs.f90 index d809044e11..33b085a508 100644 --- a/var/da/da_mtgirs/da_mtgirs.f90 +++ b/var/da/da_mtgirs/da_mtgirs.f90 @@ -8,7 +8,7 @@ module da_mtgirs kms,kme,kts,kte, & trace_use_dull, mtgirs, position_lev_dependant, max_ext_its, qcstat_conv_unit, ob_vars, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, max_omb_spd, max_omb_dir, pi, qc_rej_both,& - wind_sd_mtgirs, wind_stats_sd + wind_sd_mtgirs, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv,da_ffdduv_model, da_ffdduv_diagnose use da_physics, only : da_uv_to_sd_lin, da_uv_to_sd_adj use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & diff --git a/var/da/da_obs_io/da_read_obs_bufr.inc b/var/da/da_obs_io/da_read_obs_bufr.inc index f7b1539c15..bf84e7b04a 100644 --- a/var/da/da_obs_io/da_read_obs_bufr.inc +++ b/var/da/da_obs_io/da_read_obs_bufr.inc @@ -759,8 +759,8 @@ bufrfile: do ibufr=1,numbufr end if end if end if - ! assign tpw obs errors for gpspw - if ( t29 == 74 ) then + ! assign tpw obs errors for gpspw (t29=74) and SPSSMI retrieved TPW (t29=65) + if ( t29 == 74 .or. t29 == 65 ) then if ( pwq == 8 .or. pwq == 9 .or. pwq == 15) then if ( obs(7,1) > 0.0 .and. obs(7,1) < r8bfms ) then platform%loc%pw%inv = obs(7,1) * 0.1 ! convert to cm diff --git a/var/da/da_obs_io/da_read_omb_tmp.inc b/var/da/da_obs_io/da_read_omb_tmp.inc index dd4367781b..ea5f3f53c2 100644 --- a/var/da/da_obs_io/da_read_omb_tmp.inc +++ b/var/da/da_obs_io/da_read_omb_tmp.inc @@ -33,6 +33,7 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) rain_obs, rain_inv, rain_error, rain_inc, zk integer :: u_qc, v_qc, t_qc, p_qc, q_qc, tpw_qc, spd_qc, ref_qc, rain_qc integer :: eph_qc + integer :: ifgat if (trace_use_dull) call da_trace_entry("da_read_omb_tmp") @@ -52,9 +53,9 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('synop', 'ships', 'buoy', 'metar', 'sonde_sfc', 'tamdar_sfc') if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)')levels + read(unit_in,'(2i8)')levels, ifgat if (if_write) then - write(omb_unit,'(i8)')levels + write(omb_unit,'(2i8)')levels, ifgat num = num + 1 end if do k = 1, levels @@ -91,9 +92,9 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('pilot', 'profiler', 'geoamv', 'qscat', 'polaramv') if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)')levels + read(unit_in,'(2i8)')levels, ifgat if (if_write) then - write(omb_unit,'(i8)')levels + write(omb_unit,'(2i8)')levels, ifgat num = num + 1 end if do k = 1, levels @@ -124,9 +125,9 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('gpspw' ) if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)')levels + read(unit_in,'(2i8)')levels, ifgat if (if_write) then - write(omb_unit,'(i8)')levels + write(omb_unit,'(2i8)')levels, ifgat num = num + 1 end if do k = 1, levels @@ -148,9 +149,9 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('sound', 'tamdar', 'airep') if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)')levels + read(unit_in,'(2i8)')levels, ifgat if (if_write) then - write(omb_unit,'(i8)')levels + write(omb_unit,'(2i8)')levels, ifgat num = num + 1 end if do k = 1, levels @@ -341,8 +342,8 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('airsr' ) if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)') levels - if (if_write) write(omb_unit,'(i8)')levels + read(unit_in,'(2i8)') levels, ifgat + if (if_write) write(omb_unit,'(2i8)')levels, ifgat num = num + 1 do k = 1, levels read(unit_in,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))', err= 1000)& @@ -365,8 +366,8 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('gpsref' ) if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)') levels - if (if_write) write(omb_unit,'(i8)')levels + read(unit_in,'(2i8)') levels, ifgat + if (if_write) write(omb_unit,'(2i8)')levels, ifgat num = num + 1 do k = 1, levels read(unit_in,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))', err= 1000)& @@ -387,8 +388,8 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('gpseph' ) if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)') levels - if (if_write) write(omb_unit,'(i8)')levels + read(unit_in,'(2i8)') levels, ifgat + if (if_write) write(omb_unit,'(2i8)')levels, ifgat num = num + 1 do k = 1, levels read(unit_in,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))', err= 1000)& @@ -409,8 +410,8 @@ subroutine da_read_omb_tmp(filename,unit_in,num,obs_type_in,nc,if_wind_sd) case ('rain' ) if (num_obs > 0) then do n = 1, num_obs - read(unit_in,'(i8)') levels - if (if_write) write(omb_unit,'(i8)')levels + read(unit_in,'(2i8)') levels, ifgat + if (if_write) write(omb_unit,'(2i8)')levels, ifgat num = num + 1 do k = 1, levels read(unit_in,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))', err= 1000)& diff --git a/var/da/da_obs_io/da_read_y_unit.inc b/var/da/da_obs_io/da_read_y_unit.inc index 0da062aeb9..a9717f45f9 100644 --- a/var/da/da_obs_io/da_read_y_unit.inc +++ b/var/da/da_obs_io/da_read_y_unit.inc @@ -40,7 +40,7 @@ subroutine da_read_y_unit(filename,unit_out,num,obs_type_in, nc) (index(iv_type,'dmsp') > 0) .or. (index(iv_type,'metop') > 0) .or. & (index(iv_type,'tiros') > 0) .or. (index(iv_type,'msg') > 0) .or. & (index(iv_type,'jpss') > 0) .or. (index(iv_type,'gcom-w') >0) .or. & - (index(iv_type,'goes') > 0) ) then + (index(iv_type,'goes') > 0) .or. (index(iv_type,'himawari') >0) ) then do n = 1, num_obs if (if_write) num = num + 1 diff --git a/var/da/da_obs_io/da_write_obs.inc b/var/da/da_obs_io/da_write_obs.inc index ced75841eb..9d1ba17aa2 100644 --- a/var/da/da_obs_io/da_write_obs.inc +++ b/var/da/da_obs_io/da_write_obs.inc @@ -14,6 +14,7 @@ subroutine da_write_obs(it,ob, iv, re) integer :: n, k, num_obs, ios integer :: ounit ! Output unit character(len=filename_len) :: filename + integer :: itime, ifgat if (trace_use) call da_trace_entry("da_write_obs") @@ -44,9 +45,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'synop', num_obs num_obs = 0 do n = 1, iv%info(synop)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(synop)%plocal(itime-1)+1 .and. & + n <= iv%info(synop)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(synop)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs , 1, iv%info(synop)%id(n), & ! Station iv%info(synop)%lat(1,n), & ! Latitude @@ -79,9 +87,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'metar', num_obs num_obs = 0 do n = 1, iv%info(metar)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(metar)%plocal(itime-1)+1 .and. & + n <= iv%info(metar)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(metar)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs , 1, iv%info(metar)%id(n), & ! Station iv%info(metar)%lat(1,n), & ! Latitude @@ -114,8 +129,15 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'ships', num_obs num_obs = 0 do n = 1, iv%info(ships)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(ships)%plocal(itime-1)+1 .and. & + n <= iv%info(ships)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(ships)%proc_domain(1,n)) then - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat num_obs = num_obs + 1 write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs,1, iv%info(ships)%id(n), & ! Station @@ -149,9 +171,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'geoamv', num_obs num_obs = 0 do n = 1, iv%info(geoamv)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(geoamv)%plocal(itime-1)+1 .and. & + n <= iv%info(geoamv)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(geoamv)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(geoamv)%levels(n) + write(ounit,'(2i8)')iv%info(geoamv)%levels(n), ifgat do k = 1, iv%info(geoamv)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs, 1, iv%info(geoamv)%id(n), & ! Station @@ -177,9 +206,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'polaramv', num_obs num_obs = 0 do n = 1, iv%info(polaramv)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(polaramv)%plocal(itime-1)+1 .and. & + n <= iv%info(polaramv)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(polaramv)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(polaramv)%levels(n) + write(ounit,'(2i8)')iv%info(polaramv)%levels(n), ifgat do k = 1, iv%info(polaramv)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs, 1, iv%info(polaramv)%id(n), & ! Station @@ -205,9 +241,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'gpspw', num_obs num_obs = 0 do n = 1, iv%info(gpspw)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(gpspw)%plocal(itime-1)+1 .and. & + n <= iv%info(gpspw)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(gpspw)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs, 1, iv%info(gpspw)%id(n), & ! Station iv%info(gpspw)%lat(1,n), & ! Latitude @@ -228,9 +271,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'sound', num_obs num_obs = 0 do n = 1, iv%info(sound)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(sound)%plocal(itime-1)+1 .and. & + n <= iv%info(sound)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(sound)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(sound)%levels(n) + write(ounit,'(2i8)')iv%info(sound)%levels(n), ifgat do k = 1, iv%info(sound)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs,k, iv%info(sound)%id(n), & ! Station @@ -258,9 +308,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'sonde_sfc', num_obs num_obs = 0 do n = 1, iv%info(sonde_sfc)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(sonde_sfc)%plocal(itime-1)+1 .and. & + n <= iv%info(sonde_sfc)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(sound)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs , 1, iv%info(sonde_sfc)%id(n), & ! Station iv%info(sonde_sfc)%lat(1,n), & ! Latitude @@ -293,9 +350,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'airep', num_obs num_obs = 0 do n = 1, iv%info(airep)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(airep)%plocal(itime-1)+1 .and. & + n <= iv%info(airep)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(airep)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(airep)%levels(n) + write(ounit,'(2i8)')iv%info(airep)%levels(n), ifgat do k = 1, iv%info(airep)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,4(2f17.7,i8,2f17.7),f12.2)')& num_obs, k, iv%info(airep)%id(n), & ! Station @@ -327,9 +391,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'pilot', num_obs num_obs = 0 do n = 1, iv%info(pilot)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(pilot)%plocal(itime-1)+1 .and. & + n <= iv%info(pilot)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(pilot)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(pilot)%levels(n) + write(ounit,'(2i8)')iv%info(pilot)%levels(n), ifgat do k = 1, iv%info(pilot)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs, k, iv%info(pilot)%id(n), & ! Station @@ -504,9 +575,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'qscat', num_obs num_obs = 0 do n = 1, iv%info(qscat)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(qscat)%plocal(itime-1)+1 .and. & + n <= iv%info(qscat)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(qscat)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs, 1, iv%info(qscat)%id(n), & ! Station iv%info(qscat)%lat(1,n), & ! Latitude @@ -530,9 +608,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'profiler', num_obs num_obs = 0 do n = 1, iv%info(profiler)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(profiler)%plocal(itime-1)+1 .and. & + n <= iv%info(profiler)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(profiler)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(profiler)%levels(n) + write(ounit,'(2i8)')iv%info(profiler)%levels(n), ifgat do k = 1, iv%info(profiler)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs, k, iv%info(profiler)%id(n), & ! Station @@ -558,9 +643,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'buoy', num_obs num_obs = 0 do n = 1, iv%info(buoy)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(buoy)%plocal(itime-1)+1 .and. & + n <= iv%info(buoy)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(buoy)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs,1, iv%info(buoy)%id(n), & ! Station iv%info(buoy)%lat(1,n), & ! Latitude @@ -636,9 +728,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'airsr', num_obs num_obs = 0 do n = 1, iv%info(airsr)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(airsr)%plocal(itime-1)+1 .and. & + n <= iv%info(airsr)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(airsr)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(airsr)%levels(n) + write(ounit,'(2i8)')iv%info(airsr)%levels(n), ifgat do k = 1, iv%info(airsr)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs,k, iv%info(airsr)%id(n), & ! Station @@ -664,9 +763,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'gpsref', num_obs num_obs = 0 do n = 1, iv%info(gpsref)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(gpsref)%plocal(itime-1)+1 .and. & + n <= iv%info(gpsref)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(gpsref)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(gpsref)%levels(n) + write(ounit,'(2i8)')iv%info(gpsref)%levels(n), ifgat do k = 1, iv%info(gpsref)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs,k, iv%info(gpsref)%id(n), & ! Station @@ -689,10 +795,17 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'gpseph', num_obs num_obs = 0 do n = 1, iv%info(gpseph)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(gpseph)%plocal(itime-1)+1 .and. & + n <= iv%info(gpseph)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(gpseph)%proc_domain(1,n)) then num_obs = num_obs + 1 !write(ounit,'(i8)')iv%info(gpseph)%levels(n) - write(ounit,'(i8)') iv%gpseph(n)%level2 - iv%gpseph(n)%level1 + 1 + write(ounit,'(2i8)') iv%gpseph(n)%level2 - iv%gpseph(n)%level1 + 1, ifgat !do k = 1, iv%info(gpseph)%levels(n) do k = iv%gpseph(n)%level1, iv%gpseph(n)%level2 write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& @@ -716,9 +829,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'tamdar', num_obs num_obs = 0 do n = 1, iv%info(tamdar)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(tamdar)%plocal(itime-1)+1 .and. & + n <= iv%info(tamdar)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(tamdar)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)')iv%info(tamdar)%levels(n) + write(ounit,'(2i8)')iv%info(tamdar)%levels(n), ifgat do k = 1, iv%info(tamdar)%levels(n) write(ounit,'(2i8,a5,2f9.2,f17.7,4(2f17.7,i8,2f17.7),f12.2)')& num_obs,k, iv%info(tamdar)%id(n), & ! Station @@ -752,9 +872,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'tamdar_sfc', num_obs num_obs = 0 do n = 1, iv%info(tamdar_sfc)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(tamdar_sfc)%plocal(itime-1)+1 .and. & + n <= iv%info(tamdar_sfc)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(tamdar_sfc)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7),f12.2)')& num_obs , 1, iv%info(tamdar_sfc)%id(n), & ! Station iv%info(tamdar_sfc)%lat(1,n), & ! Latitude @@ -787,9 +914,16 @@ subroutine da_write_obs(it,ob, iv, re) write(ounit,'(a20,i8)')'rain', num_obs num_obs = 0 do n = 1, iv%info(rain)%nlocal + do itime = 1, num_fgat_time + if ( n >= iv%info(rain)%plocal(itime-1)+1 .and. & + n <= iv%info(rain)%plocal(itime) ) then + ifgat = itime + exit + end if + end do if (iv%info(rain)%proc_domain(1,n)) then num_obs = num_obs + 1 - write(ounit,'(i8)') 1 + write(ounit,'(2i8)') 1, ifgat write(ounit,'(2i8,a5,2f9.2,f17.7,5(2f17.7,i8,2f17.7))')& num_obs,1, iv%info(rain)%id(n), & ! Station iv%info(rain)%lat(1,n), & ! Latitude diff --git a/var/da/da_pilot/da_check_max_iv_pilot.inc b/var/da/da_pilot/da_check_max_iv_pilot.inc index 63aa020d21..3a63ab3b5c 100644 --- a/var/da/da_pilot/da_check_max_iv_pilot.inc +++ b/var/da/da_pilot/da_check_max_iv_pilot.inc @@ -35,8 +35,10 @@ subroutine da_check_max_iv_pilot(iv, it, num_qcstat_conv) num_qcstat_conv(1,pilot,1,ipr) = num_qcstat_conv(1,pilot,1,ipr) + 1 if(failed) then num_qcstat_conv(2,pilot,1,ipr) = num_qcstat_conv(2,pilot,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'pilot',ob_vars(1),iv%info(pilot)%lat(k,n),iv%info(pilot)%lon(k,n),0.01*iv%pilot(n)%p(k) + end if end if end if end if @@ -48,8 +50,10 @@ subroutine da_check_max_iv_pilot(iv, it, num_qcstat_conv) num_qcstat_conv(1,pilot,2,ipr) = num_qcstat_conv(1,pilot,2,ipr) + 1 if(failed)then num_qcstat_conv(2,pilot,2,ipr) = num_qcstat_conv(2,pilot,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'pilot',ob_vars(2),iv%info(pilot)%lat(k,n),iv%info(pilot)%lon(k,n),0.01*iv%pilot(n)%p(k) + end if end if end if end if @@ -61,8 +65,10 @@ subroutine da_check_max_iv_pilot(iv, it, num_qcstat_conv) num_qcstat_conv(1,pilot,1,ipr) = num_qcstat_conv(1,pilot,1,ipr) + 1 if(failed) then num_qcstat_conv(2,pilot,1,ipr) = num_qcstat_conv(2,pilot,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'pilot',ob_vars(1),iv%info(pilot)%lat(k,n),iv%info(pilot)%lon(k,n),0.01*iv%pilot(n)%p(k) + end if end if end if end if @@ -74,8 +80,10 @@ subroutine da_check_max_iv_pilot(iv, it, num_qcstat_conv) num_qcstat_conv(1,pilot,2,ipr) = num_qcstat_conv(1,pilot,2,ipr) + 1 if(failed)then num_qcstat_conv(2,pilot,2,ipr) = num_qcstat_conv(2,pilot,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'pilot',ob_vars(2),iv%info(pilot)%lat(k,n),iv%info(pilot)%lon(k,n),0.01*iv%pilot(n)%p(k) + end if end if end if end if @@ -112,11 +120,15 @@ subroutine da_check_max_iv_pilot(iv, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,pilot,1,ipr) = num_qcstat_conv(2,pilot,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'pilot',ob_vars(1),iv%info(pilot)%lat(k,n),iv%info(pilot)%lon(k,n),0.01*iv%pilot(n)%p(k) + end if num_qcstat_conv(2,pilot,2,ipr) = num_qcstat_conv(2,pilot,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'pilot',ob_vars(2),iv%info(pilot)%lat(k,n),iv%info(pilot)%lon(k,n),0.01*iv%pilot(n)%p(k) + end if endif endif diff --git a/var/da/da_pilot/da_pilot.f90 b/var/da/da_pilot/da_pilot.f90 index 0e81d187d8..5517239c36 100644 --- a/var/da/da_pilot/da_pilot.f90 +++ b/var/da/da_pilot/da_pilot.f90 @@ -9,7 +9,7 @@ module da_pilot max_stheight_diff, anal_type_verify, kms,kme,kts,kte,ob_vars,qcstat_conv_unit, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, & max_omb_spd, max_omb_dir, pi, qc_rej_both, & - wind_sd_pilot, wind_stats_sd + wind_sd_pilot, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv, da_ffdduv_model, da_ffdduv_diagnose use da_physics, only : da_uv_to_sd_lin, da_uv_to_sd_adj use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & diff --git a/var/da/da_polaramv/da_check_max_iv_polaramv.inc b/var/da/da_polaramv/da_check_max_iv_polaramv.inc index 34f8cbc9d3..cf848540f9 100644 --- a/var/da/da_polaramv/da_check_max_iv_polaramv.inc +++ b/var/da/da_polaramv/da_check_max_iv_polaramv.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_polaramv(iv,it,num_qcstat_conv) num_qcstat_conv(1,polaramv,1,ipr) = num_qcstat_conv(1,polaramv,1,ipr) + 1 if(failed) then num_qcstat_conv(2,polaramv,1,ipr) = num_qcstat_conv(2,polaramv,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'polaramv',ob_vars(1),iv%info(polaramv)%lat(k,n),iv%info(polaramv)%lon(k,n),0.01*iv%polaramv(n)%p(k) + end if end if end if end if @@ -47,8 +49,10 @@ subroutine da_check_max_iv_polaramv(iv,it,num_qcstat_conv) num_qcstat_conv(1,polaramv,2,ipr) = num_qcstat_conv(1,polaramv,2,ipr) + 1 if(failed)then num_qcstat_conv(2,polaramv,2,ipr) = num_qcstat_conv(2,polaramv,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'polaramv',ob_vars(2),iv%info(polaramv)%lat(k,n),iv%info(polaramv)%lon(k,n),0.01*iv%polaramv(n)%p(k) + end if end if end if end if @@ -62,8 +66,10 @@ subroutine da_check_max_iv_polaramv(iv,it,num_qcstat_conv) num_qcstat_conv(1,polaramv,1,ipr) = num_qcstat_conv(1,polaramv,1,ipr) + 1 if(failed) then num_qcstat_conv(2,polaramv,1,ipr) = num_qcstat_conv(2,polaramv,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'polaramv',ob_vars(1),iv%info(polaramv)%lat(k,n),iv%info(polaramv)%lon(k,n),0.01*iv%polaramv(n)%p(k) + end if end if end if end if @@ -75,8 +81,10 @@ subroutine da_check_max_iv_polaramv(iv,it,num_qcstat_conv) num_qcstat_conv(1,polaramv,2,ipr) = num_qcstat_conv(1,polaramv,2,ipr) + 1 if(failed)then num_qcstat_conv(2,polaramv,2,ipr) = num_qcstat_conv(2,polaramv,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'polaramv',ob_vars(2),iv%info(polaramv)%lat(k,n),iv%info(polaramv)%lon(k,n),0.01*iv%polaramv(n)%p(k) + end if end if end if end if @@ -114,11 +122,15 @@ subroutine da_check_max_iv_polaramv(iv,it,num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,polaramv,1,ipr) = num_qcstat_conv(2,polaramv,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'polaramv',ob_vars(1),iv%info(polaramv)%lat(k,n),iv%info(polaramv)%lon(k,n),0.01*iv%polaramv(n)%p(k) + end if num_qcstat_conv(2,polaramv,2,ipr) = num_qcstat_conv(2,polaramv,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'polaramv',ob_vars(2),iv%info(polaramv)%lat(k,n),iv%info(polaramv)%lon(k,n),0.01*iv%polaramv(n)%p(k) + end if end if end if end if diff --git a/var/da/da_polaramv/da_polaramv.f90 b/var/da/da_polaramv/da_polaramv.f90 index 052fb272e4..4f73b5881c 100644 --- a/var/da/da_polaramv/da_polaramv.f90 +++ b/var/da/da_polaramv/da_polaramv.f90 @@ -10,7 +10,7 @@ module da_polaramv max_error_bt, max_error_buv, polaramv, anal_type_verify, & position_lev_dependant, qcstat_conv_unit,ob_vars, & convert_fd2uv,convert_uv2fd,max_error_spd,max_error_dir,max_omb_spd,max_omb_dir,pi,qc_rej_both, & - wind_sd_polaramv, wind_stats_sd + wind_sd_polaramv, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv,da_ffdduv_model, da_ffdduv_diagnose use da_physics, only : da_uv_to_sd_lin, da_uv_to_sd_adj use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & diff --git a/var/da/da_profiler/da_check_max_iv_profiler.inc b/var/da/da_profiler/da_check_max_iv_profiler.inc index 54178cf1af..a6a4cd63a1 100644 --- a/var/da/da_profiler/da_check_max_iv_profiler.inc +++ b/var/da/da_profiler/da_check_max_iv_profiler.inc @@ -36,8 +36,10 @@ subroutine da_check_max_iv_profiler(iv, it, num_qcstat_conv) num_qcstat_conv(1,profiler,1,ipr) = num_qcstat_conv(1,profiler,1,ipr) + 1 if(failed) then num_qcstat_conv(2,profiler,1,ipr) = num_qcstat_conv(2,profiler,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'profiler',ob_vars(1),iv%info(profiler)%lat(k,n),iv%info(profiler)%lon(k,n),0.01*iv%profiler(n)%p(k) + end if end if end if end if @@ -49,8 +51,10 @@ subroutine da_check_max_iv_profiler(iv, it, num_qcstat_conv) num_qcstat_conv(1,profiler,2,ipr) = num_qcstat_conv(1,profiler,2,ipr) + 1 if(failed)then num_qcstat_conv(2,profiler,2,ipr) = num_qcstat_conv(2,profiler,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'profiler',ob_vars(2),iv%info(profiler)%lat(k,n),iv%info(profiler)%lon(k,n),0.01*iv%profiler(n)%p(k) + end if end if end if end if @@ -64,8 +68,10 @@ subroutine da_check_max_iv_profiler(iv, it, num_qcstat_conv) num_qcstat_conv(1,profiler,1,ipr) = num_qcstat_conv(1,profiler,1,ipr) + 1 if(failed) then num_qcstat_conv(2,profiler,1,ipr) = num_qcstat_conv(2,profiler,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'profiler',ob_vars(1),iv%info(profiler)%lat(k,n),iv%info(profiler)%lon(k,n),0.01*iv%profiler(n)%p(k) + end if end if end if end if @@ -77,8 +83,10 @@ subroutine da_check_max_iv_profiler(iv, it, num_qcstat_conv) num_qcstat_conv(1,profiler,2,ipr) = num_qcstat_conv(1,profiler,2,ipr) + 1 if(failed)then num_qcstat_conv(2,profiler,2,ipr) = num_qcstat_conv(2,profiler,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'profiler',ob_vars(2),iv%info(profiler)%lat(k,n),iv%info(profiler)%lon(k,n),0.01*iv%profiler(n)%p(k) + end if end if end if end if @@ -115,11 +123,15 @@ subroutine da_check_max_iv_profiler(iv, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,profiler,1,ipr) = num_qcstat_conv(2,profiler,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'profiler',ob_vars(1),iv%info(profiler)%lat(k,n),iv%info(profiler)%lon(k,n),0.01*iv%profiler(n)%p(k) + end if num_qcstat_conv(2,profiler,2,ipr) = num_qcstat_conv(2,profiler,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'profiler',ob_vars(2),iv%info(profiler)%lat(k,n),iv%info(profiler)%lon(k,n),0.01*iv%profiler(n)%p(k) + end if endif endif diff --git a/var/da/da_profiler/da_profiler.f90 b/var/da/da_profiler/da_profiler.f90 index 3747301da3..0d8268a12b 100644 --- a/var/da/da_profiler/da_profiler.f90 +++ b/var/da/da_profiler/da_profiler.f90 @@ -9,7 +9,7 @@ module da_profiler max_stheight_diff, anal_type_verify, kms,kme,kts,kte, trace_use_dull,& ob_vars, qcstat_conv_unit, & convert_fd2uv,convert_uv2fd,max_error_spd,max_error_dir,max_omb_spd,max_omb_dir,pi,qc_rej_both,& - wind_sd_profiler, wind_stats_sd + wind_sd_profiler, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv,da_ffdduv_model, da_ffdduv_diagnose use da_physics, only : da_uv_to_sd_lin, da_uv_to_sd_adj use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & diff --git a/var/da/da_qscat/da_check_max_iv_qscat.inc b/var/da/da_qscat/da_check_max_iv_qscat.inc index 2588e57f0c..44b1337fb2 100644 --- a/var/da/da_qscat/da_check_max_iv_qscat.inc +++ b/var/da/da_qscat/da_check_max_iv_qscat.inc @@ -32,8 +32,10 @@ subroutine da_check_max_iv_qscat(iv, it, num_qcstat_conv) num_qcstat_conv(1,qscat,1,1) = num_qcstat_conv(1,qscat,1,1) + 1 if(failed) then num_qcstat_conv(2,qscat,1,1) = num_qcstat_conv(2,qscat,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'qscat',ob_vars(1),iv%info(qscat)%lat(1,n),iv%info(qscat)%lon(1,n),'1013.25' + end if end if end if end if @@ -45,8 +47,10 @@ subroutine da_check_max_iv_qscat(iv, it, num_qcstat_conv) num_qcstat_conv(1,qscat,2,1) = num_qcstat_conv(1,qscat,2,1) + 1 if(failed)then num_qcstat_conv(2,qscat,2,1) = num_qcstat_conv(2,qscat,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'qscat',ob_vars(2),iv%info(qscat)%lat(1,n),iv%info(qscat)%lon(1,n),'1013.25' + end if end if end if end if @@ -59,8 +63,10 @@ subroutine da_check_max_iv_qscat(iv, it, num_qcstat_conv) num_qcstat_conv(1,qscat,1,1) = num_qcstat_conv(1,qscat,1,1) + 1 if(failed) then num_qcstat_conv(2,qscat,1,1) = num_qcstat_conv(2,qscat,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'qscat',ob_vars(1),iv%info(qscat)%lat(1,n),iv%info(qscat)%lon(1,n),'1013.25' + end if end if end if end if @@ -71,8 +77,10 @@ subroutine da_check_max_iv_qscat(iv, it, num_qcstat_conv) num_qcstat_conv(1,qscat,2,1) = num_qcstat_conv(1,qscat,2,1) + 1 if(failed)then num_qcstat_conv(2,qscat,2,1) = num_qcstat_conv(2,qscat,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'qscat',ob_vars(2),iv%info(qscat)%lat(1,n),iv%info(qscat)%lon(1,n),'1013.25' + end if end if end if end if @@ -109,11 +117,15 @@ subroutine da_check_max_iv_qscat(iv, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,qscat,1,1) = num_qcstat_conv(2,qscat,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'qscat',ob_vars(1),iv%info(qscat)%lat(1,n),iv%info(qscat)%lon(1,n),'1013.25' + end if num_qcstat_conv(2,qscat,2,1) = num_qcstat_conv(2,qscat,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'qscat',ob_vars(2),iv%info(qscat)%lat(1,n),iv%info(qscat)%lon(1,n),'1013.25' + end if end if end if end if diff --git a/var/da/da_qscat/da_qscat.f90 b/var/da/da_qscat/da_qscat.f90 index 6fea3764ab..619b422d9e 100644 --- a/var/da/da_qscat/da_qscat.f90 +++ b/var/da/da_qscat/da_qscat.f90 @@ -10,7 +10,7 @@ module da_qscat max_error_bt, max_error_buv, anal_type_verify, kms,kme,kts,kte,& ob_vars,qcstat_conv_unit, fails_error_max, & convert_fd2uv,convert_uv2fd,max_error_spd,max_error_dir,max_omb_spd,max_omb_dir,pi,qc_rej_both,& - wind_sd_qscat, wind_stats_sd + wind_sd_qscat, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv, da_ffdduv_model, da_ffdduv_diagnose use da_physics, only : da_uv_to_sd_lin, da_uv_to_sd_adj use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & diff --git a/var/da/da_radar/da_get_innov_vector_radar.inc b/var/da/da_radar/da_get_innov_vector_radar.inc index 23904d69da..731b87bcb9 100644 --- a/var/da/da_radar/da_get_innov_vector_radar.inc +++ b/var/da/da_radar/da_get_innov_vector_radar.inc @@ -414,18 +414,31 @@ END IF iv % radar(n) % rgr(k) % qc = 0 end if ! temp - ! rainwater error - iv % radar(n) % rrn(k) % error = iv % radar(n) % rf(k) % error * iv % radar(n) % rrno(k) * alog_10/leh2 - iv % radar(n) % rrn(k) % error = amax1(0.0005,iv % radar(n) % rrn(k) % error) - iv % radar(n) % rrn(k) % error = amin1( 0.001,iv % radar(n) % rrn(k) % error) - ! snow error - iv % radar(n) % rsn(k) % error = iv % radar(n) % rf(k) % error * iv % radar(n) % rsno(k) * alog_10/leh2 - iv % radar(n) % rsn(k) % error = amax1(0.0005,iv % radar(n) % rsn(k) % error) - iv % radar(n) % rsn(k) % error = amin1( 0.001,iv % radar(n) % rsn(k) % error) - ! graupel error - iv % radar(n) % rgr(k) % error = iv % radar(n) % rf(k) % error * iv % radar(n) % rgro(k) * alog_10/leh2 - iv % radar(n) % rgr(k) % error = amax1(0.0005,iv % radar(n) % rgr(k) % error) - iv % radar(n) % rgr(k) % error = amin1( 0.001,iv % radar(n) % rgr(k) % error) + if ( radar_rhv_err_opt == 1 ) then + ! rainwater error + iv % radar(n) % rrn(k) % error = iv % radar(n) % rf(k) % error * iv % radar(n) % rrno(k) * alog_10/leh2 + iv % radar(n) % rrn(k) % error = amax1(0.0005,iv % radar(n) % rrn(k) % error) + iv % radar(n) % rrn(k) % error = amin1( 0.001,iv % radar(n) % rrn(k) % error) + ! snow error + iv % radar(n) % rsn(k) % error = iv % radar(n) % rf(k) % error * iv % radar(n) % rsno(k) * alog_10/leh2 + iv % radar(n) % rsn(k) % error = amax1(0.0005,iv % radar(n) % rsn(k) % error) + iv % radar(n) % rsn(k) % error = amin1( 0.001,iv % radar(n) % rsn(k) % error) + ! graupel error + iv % radar(n) % rgr(k) % error = iv % radar(n) % rf(k) % error * iv % radar(n) % rgro(k) * alog_10/leh2 + iv % radar(n) % rgr(k) % error = amax1(0.0005,iv % radar(n) % rgr(k) % error) + iv % radar(n) % rgr(k) % error = amin1( 0.001,iv % radar(n) % rgr(k) % error) + else if ( radar_rhv_err_opt == 2 ) then + ! use settings in the namelist + ! rainwater error + iv % radar(n) % rrn(k) % error = radar_rhv_rrn_err * 0.001 ! g/kg to kg/kg + ! snow error + iv % radar(n) % rsn(k) % error = radar_rhv_rsn_err * 0.001 ! g/kg to kg/kg + ! graupel error + iv % radar(n) % rgr(k) % error = radar_rhv_rgr_err * 0.001 ! g/kg to kg/kg + else + write(unit=message(1),fmt='(A)') "radar_rhv_err_opt should be 1 or 2" + call da_error(__FILE__,__LINE__,message(1:1)) + end if end if ! it=1 diff --git a/var/da/da_radar/da_radar.f90 b/var/da/da_radar/da_radar.f90 index 39d06ceebc..00298c0f05 100644 --- a/var/da/da_radar/da_radar.f90 +++ b/var/da/da_radar/da_radar.f90 @@ -18,7 +18,8 @@ module da_radar use da_control, only : cloudbase_calc_opt, & radar_non_precip_rf, radar_non_precip_opt, radar_rqv_thresh1, radar_rqv_thresh2, & radar_rqv_rh1, radar_rqv_rh2, radar_non_precip_rh_w, radar_non_precip_rh_i, & - radar_rqv_h_lbound, radar_rqv_h_ubound, radar_saturated_rf, cloud_cv_options + radar_rqv_h_lbound, radar_rqv_h_ubound, radar_saturated_rf, cloud_cv_options, & + radar_rhv_err_opt, radar_rhv_rrn_err, radar_rhv_rsn_err, radar_rhv_rgr_err use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type, & infa_type, field_type diff --git a/var/da/da_radiance/da_allocate_rad_iv.inc b/var/da/da_radiance/da_allocate_rad_iv.inc index c4f5b61b81..1c01c421d6 100644 --- a/var/da/da_radiance/da_allocate_rad_iv.inc +++ b/var/da/da_radiance/da_allocate_rad_iv.inc @@ -78,6 +78,9 @@ subroutine da_allocate_rad_iv (i, nchan, iv) if ( index(iv%instid(i)%rttovid_string, 'amsr2') > 0 ) then allocate (iv%instid(i)%clw(iv%instid(i)%num_rad)) end if + if ( index(iv%instid(i)%rttovid_string, 'ahi') > 0 ) then + allocate (iv%instid(i)%cloudflag(iv%instid(i)%num_rad)) + end if allocate (iv%instid(i)%ps(iv%instid(i)%num_rad)) allocate (iv%instid(i)%tb_xb(nchan,iv%instid(i)%num_rad)) if ( crtm_cloud ) then diff --git a/var/da/da_radiance/da_deallocate_radiance.inc b/var/da/da_radiance/da_deallocate_radiance.inc index 38a7d3c0a7..fa5dec69eb 100644 --- a/var/da/da_radiance/da_deallocate_radiance.inc +++ b/var/da/da_radiance/da_deallocate_radiance.inc @@ -101,6 +101,9 @@ if ( index(iv%instid(i)%rttovid_string,'amsr2') > 0 ) then deallocate (iv%instid(i)%clw) end if + if ( index(iv%instid(i)%rttovid_string, 'ahi') > 0 ) then + deallocate (iv%instid(i)%cloudflag) + end if deallocate (iv%instid(i)%ps) deallocate (iv%instid(i)%tb_xb) if ( crtm_cloud ) then diff --git a/var/da/da_radiance/da_get_innov_vector_rttov.inc b/var/da/da_radiance/da_get_innov_vector_rttov.inc index 17d6b309c7..ac78014a08 100644 --- a/var/da/da_radiance/da_get_innov_vector_rttov.inc +++ b/var/da/da_radiance/da_get_innov_vector_rttov.inc @@ -22,7 +22,6 @@ subroutine da_get_innov_vector_rttov (it, grid, ob, iv) integer :: i, j, k ! Index dimension. integer :: nlevels ! Number of obs levels. integer :: nchanprof, errorstatus - integer :: ir_atlas_version, mw_atlas_version character(len=256) :: atlas_path real*8 :: seap, icep, lndp, snop @@ -42,7 +41,7 @@ real,allocatable :: temp(:), temp2(:), temp3(:,:) type(aux_vars_type), allocatable :: aux_vars(:) type(rttov_chanprof), allocatable :: chanprof(:) - type(profile_type), allocatable :: profiles(:) + type(rttov_profile), allocatable :: profiles(:) ! variables for computing clwp real, allocatable :: dpf(:,:), clw(:,:), pf(:,:) @@ -203,9 +202,6 @@ real,allocatable :: temp(:), temp2(:), temp3(:,:) if ( rttov_emis_atlas_ir > 0 .or. rttov_emis_atlas_mw > 0 ) then ! set up emissivity atlas atlas_path = 'emis_data/' - ir_atlas_version = 100 - mw_atlas_version = 100 ! TELSEM - if ( rttov_emis_atlas_mw == 2 ) mw_atlas_version = 200 ! CNRW write(unit=message(1),fmt='(A,A)') & 'Setting up emissivity atlas for instrument ', trim(iv%instid(inst)%rttovid_string) call da_message(message(1:1)) @@ -213,10 +209,12 @@ real,allocatable :: temp(:), temp2(:), temp3(:,:) errorstatus, & ! out opts(inst), & ! in grid%start_month, & ! in - coefs(inst), & ! in + atlas_type(inst), & ! in + atlas, & ! inout + atlas_id(inst), & ! in, optional path = trim(atlas_path), & ! in, optional - ir_atlas_ver = ir_atlas_version, & ! in, optional - mw_atlas_ver = mw_atlas_version) ! in, optional + coefs = coefs(inst)) ! in + if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"failure in setting up emissivity atlas"/)) @@ -234,11 +232,11 @@ real,allocatable :: temp(:), temp2(:), temp3(:,:) ! latitude, longitude, surftype are used for retreiving emis from atlas ! zenangle is used by MW emmisivity atlas ! snow_frac is used only by IR emmisivity atlas - profiles(n-n1+1)%latitude = iv%instid(inst)%info%lat(1,n) - profiles(n-n1+1)%longitude = iv%instid(inst)%info%lon(1,n) - profiles(n-n1+1)%zenangle = iv%instid(inst)%satzen(n) - profiles(n-n1+1)%skin%surftype = iv%instid(inst)%surftype(n) - profiles(n-n1+1)%snow_frac = iv%instid(inst)%snow_frac(n) + profiles(n-n1+1)%latitude = iv%instid(inst)%info%lat(1,n) + profiles(n-n1+1)%longitude = iv%instid(inst)%info%lon(1,n) + profiles(n-n1+1)%zenangle = iv%instid(inst)%satzen(n) + profiles(n-n1+1)%skin%surftype = iv%instid(inst)%surftype(n) + profiles(n-n1+1)%skin%snow_fraction = iv%instid(inst)%snow_frac(n) end do ! Retrieve values from atlas @@ -248,6 +246,7 @@ real,allocatable :: temp(:), temp2(:), temp3(:,:) chanprof, & ! in profiles, & ! in coefs(inst), & ! in + atlas, &! in emissivity=emissivity(:)%emis_in ) ! out if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & @@ -377,7 +376,7 @@ real,allocatable :: temp(:), temp2(:), temp3(:,:) deallocate (emissivity) if ( rttov_emis_atlas_ir > 0 .or. rttov_emis_atlas_mw > 0 ) then - call rttov_deallocate_emis_atlas(coefs(inst)) + call rttov_deallocate_emis_atlas(atlas) end if end do ! end loop for sensor diff --git a/var/da/da_radiance/da_initialize_rad_iv.inc b/var/da/da_radiance/da_initialize_rad_iv.inc index c2414a0dc6..e3efab0098 100644 --- a/var/da/da_radiance/da_initialize_rad_iv.inc +++ b/var/da/da_radiance/da_initialize_rad_iv.inc @@ -72,6 +72,10 @@ subroutine da_initialize_rad_iv (i, n, iv, p) if ( index(iv%instid(i)%rttovid_string, 'amsr2') > 0 ) then iv%instid(i)%clw(n) = p%clw end if + if ( index(iv%instid(i)%rttovid_string, 'ahi') > 0 ) then + iv%instid(i)%cloudflag(n) = p%cloudflag + end if + iv%instid(i)%cloud_flag(:,n) = qc_good ! no cloud iv%instid(i)%ps(n) = 0.0 iv%instid(i)%tb_xb(:,n) = 0.0 if ( crtm_cloud ) then diff --git a/var/da/da_radiance/da_qc_ahi.inc b/var/da/da_radiance/da_qc_ahi.inc new file mode 100644 index 0000000000..91a0328c5a --- /dev/null +++ b/var/da/da_radiance/da_qc_ahi.inc @@ -0,0 +1,233 @@ +subroutine da_qc_ahi (it, i, nchan, ob, iv) + + !--------------------------------------------------------------------------- + ! Purpose: perform quality control for ahi data. + ! Method: Assume cloud flag coming from GEOCAT processing + ! To be developed: built in cloud_detection method + !--------------------------------------------------------------------------- + + implicit none + + integer, intent(in) :: it ! outer loop count + integer, intent(in) :: i ! sensor index. + integer, intent(in) :: nchan ! number of channel + type (y_type), intent(in) :: ob ! Observation structure. + type (iv_type), intent(inout) :: iv ! O-B structure. + + ! local variables + logical :: lmix, cloud_detection + integer :: n,k,isflg,ios,fgat_rad_unit + integer :: ngood(nchan),nrej(nchan),nrej_omb_abs(nchan), & + nrej_omb_std(nchan),nrej_eccloud(nchan), & + nrej_clw(nchan),num_proc_domain, & + nrej_mixsurface,nrej_land + + real :: inv_grosscheck + + character(len=30) :: filename + real :: c37_mean + + if (trace_use) call da_trace_entry("da_qc_ahi") + + ngood(:) = 0 + nrej(:) = 0 + nrej_omb_abs(:) = 0 + nrej_omb_std(:) = 0 + nrej_eccloud(:) = 0 + nrej_clw(:) = 0 + nrej_mixsurface = 0 + nrej_land = 0 + num_proc_domain = 0 + + + do n= iv%instid(i)%info%n1,iv%instid(i)%info%n2 + if (iv%instid(i)%info%proc_domain(1,n)) & + num_proc_domain = num_proc_domain + 1 + + if ( crtm_cloud ) then + ! calculate c37_mean + c37_mean = 1.0-(ob%instid(i)%tb(11,n)-ob%instid(i)%tb(12,n)+ & + iv%instid(i)%tb_xb(11,n)-iv%instid(i)%tb_xb(12,n))/ & + (2.0*(iv%instid(i)%tb_xb_clr(11,n)-iv%instid(i)%tb_xb_clr(12,n))) + end if + + ! 0.0 initialise QC by flags assuming good obs + !----------------------------------------------------------------- + iv%instid(i)%tb_qc(:,n) = qc_good + + ! 1.0 reject all channels over mixture surface type + !------------------------------------------------------ + isflg = iv%instid(i)%isflg(n) + lmix = (isflg==4) .or. (isflg==5) .or. (isflg==6) .or. (isflg==7) + if (lmix) then + iv%instid(i)%tb_qc(:,n) = qc_bad + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej_mixsurface = nrej_mixsurface + 1 + end if + + if ( isflg > 0 ) then + do k = 1, nchan + !if ( k /= 2 .and. k /= 3 .and. k /= 4 ) then + if (only_sea_rad) then + iv%instid(i)%tb_qc(k,n) = qc_bad + nrej_land = nrej_land + 1 + end if + !end if + end do + end if + + ! 3.0 check iuse + !----------------------------------------------------------------- + do k = 1, nchan + if (satinfo(i)%iuse(k) .eq. -1) & + iv%instid(i)%tb_qc(k,n) = qc_bad + end do + + ! 4.0 check cloud + !----------------------------------------------------------------- + if (.not. crtm_cloud ) then + + do k = 1, nchan + + if (iv%instid(i)%clwp(n) >= 0.2) then + iv%instid(i)%tb_qc(k,n) = qc_bad + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej_clw(k) = nrej_clw(k) + 1 + end if + + cloud_detection=.false. + if (cloud_detection) then + if (iv%instid(i)%landsea_mask(n) == 0 ) then + if (iv%instid(i)%tb_xb(3,n)-ob%instid(i)%tb(3,n)>3.5) then + iv%instid(i)%tb_qc(k,n) = qc_bad + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej_eccloud(k) = nrej_eccloud(k) + 1 + end if + else + if (iv%instid(i)%tb_xb(3,n)-ob%instid(i)%tb(3,n)>2.5) then + iv%instid(i)%tb_qc(k,n) = qc_bad + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej_eccloud(k) = nrej_eccloud(k) + 1 + end if + end if + else + if (iv%instid(i)%cloudflag(n) < 3) then ! only use confident clear pixels + iv%instid(i)%tb_qc(:,n) = qc_bad + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej_eccloud(k) = nrej_eccloud(k) + 1 + end if + end if + + end do + end if + + ! assigning obs errors + if (.not. crtm_cloud ) then + do k = 1, nchan + if (use_error_factor_rad) then + iv%instid(i)%tb_error(k,n) = & + satinfo(i)%error_std(k)*satinfo(i)%error_factor(k) + else + iv%instid(i)%tb_error(k,n) = satinfo(i)%error_std(k) + end if + end do ! nchan + + else !crtm_cloud + ! symmetric error model, Geer and Bauer (2011) + do k = 1, nchan + if (c37_mean.lt.0.05) then + iv%instid(i)%tb_error(k,n)= satinfo(i)%error_std(k) + else if (c37_mean.ge.0.05.and.c37_mean.lt.0.5) then + iv%instid(i)%tb_error(k,n)= satinfo(i)%error_std(k)+ & + (c37_mean-0.05)*(satinfo(i)%error_cld(k)-satinfo(i)%error_std(k))/(0.5-0.05) + else + iv%instid(i)%tb_error(k,n)= satinfo(i)%error_cld(k) + end if + end do ! nchan + + end if + + ! 5.0 check innovation + !----------------------------------------------------------------- + if (.not. crtm_cloud ) then + ! absolute departure check + do k = 1, nchan + inv_grosscheck = 8.0 + if (use_satcv(2)) inv_grosscheck = 100.0 + if (abs(iv%instid(i)%tb_inv(k,n)) > inv_grosscheck) then + iv%instid(i)%tb_qc(k,n) = qc_bad + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej_omb_abs(k) = nrej_omb_abs(k) + 1 + end if + end do ! nchan + end if + + do k = 1, nchan + ! relative departure check + if (abs(iv%instid(i)%tb_inv(k,n)) > 3.0*iv%instid(i)%tb_error(k,n)) then + iv%instid(i)%tb_qc(k,n) = qc_bad + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej_omb_std(k) = nrej_omb_std(k) + 1 + end if + + ! final QC decsion + if (iv%instid(i)%tb_qc(k,n) == qc_bad) then + iv%instid(i)%tb_error(k,n) = 500.0 + if (iv%instid(i)%info%proc_domain(1,n)) & + nrej(k) = nrej(k) + 1 + else + if (iv%instid(i)%info%proc_domain(1,n)) & + ngood(k) = ngood(k) + 1 + end if + end do ! nchan + + end do ! end loop pixel + + ! Do inter-processor communication to gather statistics. + call da_proc_sum_int (num_proc_domain) + call da_proc_sum_int (nrej_mixsurface) + call da_proc_sum_int (nrej_land) + call da_proc_sum_ints (nrej_eccloud) + call da_proc_sum_ints (nrej_omb_abs) + call da_proc_sum_ints (nrej_omb_std) + call da_proc_sum_ints (nrej_clw) + call da_proc_sum_ints (nrej) + call da_proc_sum_ints (ngood) + + if (rootproc) then + if (num_fgat_time > 1) then + write(filename,'(i2.2,a,i2.2)') it,'_qcstat_'//trim(iv%instid(i)%rttovid_string)//'_',iv%time + else + write(filename,'(i2.2,a)') it,'_qcstat_'//trim(iv%instid(i)%rttovid_string) + end if + + call da_get_unit(fgat_rad_unit) + open(fgat_rad_unit,file=trim(filename),form='formatted',iostat=ios) + if (ios /= 0) then + write(unit=message(1),fmt='(A,A)') 'error opening the output file ', filename + call da_error(__FILE__,__LINE__,message(1:1)) + end if + + write(fgat_rad_unit, fmt='(/a/)') ' Quality Control Statistics for '//iv%instid(i)%rttovid_string + if(num_proc_domain > 0) write(fgat_rad_unit,'(a20,i7)') ' num_proc_domain = ', num_proc_domain + write(fgat_rad_unit,'(a20,i7)') ' nrej_mixsurface = ', nrej_mixsurface + write(fgat_rad_unit,'(a20,i7)') ' nrej_land = ', nrej_land + write(fgat_rad_unit,'(a20)') ' nrej_eccloud(:) = ' + write(fgat_rad_unit,'(10i7)') nrej_eccloud(:) + write(fgat_rad_unit,'(a20)') ' nrej_clw(:) = ' + write(fgat_rad_unit,'(10i7)') nrej_clw(:) + write(fgat_rad_unit,'(a20)') ' nrej_omb_abs(:) = ' + write(fgat_rad_unit,'(10i7)') nrej_omb_abs(:) + write(fgat_rad_unit,'(a20)') ' nrej_omb_std(:) = ' + write(fgat_rad_unit,'(10i7)') nrej_omb_std(:) + write(fgat_rad_unit,'(a20)') ' nrej(:) = ' + write(fgat_rad_unit,'(10i7)') nrej(:) + write(fgat_rad_unit,'(a20)') ' ngood(:) = ' + write(fgat_rad_unit,'(10i7)') ngood(:) + + close(fgat_rad_unit) + call da_free_unit(fgat_rad_unit) + end if + if (trace_use) call da_trace_exit("da_qc_ahi") + +end subroutine da_qc_ahi diff --git a/var/da/da_radiance/da_qc_rad.inc b/var/da/da_radiance/da_qc_rad.inc index 7867bf2be5..c14b9ce344 100644 --- a/var/da/da_radiance/da_qc_rad.inc +++ b/var/da/da_radiance/da_qc_rad.inc @@ -14,7 +14,7 @@ subroutine da_qc_rad (it, ob, iv) integer :: i, nchan,p,j logical :: amsua, amsub, hirs, msu,airs, hsb, ssmis, mhs, iasi, seviri - logical :: mwts, mwhs, atms, amsr2, imager + logical :: mwts, mwhs, atms, amsr2, imager, ahi integer, allocatable :: index(:) integer :: num_tovs_avg @@ -64,6 +64,7 @@ subroutine da_qc_rad (it, ob, iv) seviri = trim(rttov_inst_name(rtminit_sensor(i))) == 'seviri' amsr2 = trim(rttov_inst_name(rtminit_sensor(i))) == 'amsr2' imager = trim(rttov_inst_name(rtminit_sensor(i))) == 'imager' + ahi = trim(rttov_inst_name(rtminit_sensor(i))) == 'ahi' if (hirs) then ! 1.0 QC for HIRS @@ -96,6 +97,8 @@ subroutine da_qc_rad (it, ob, iv) call da_qc_seviri(it,i,nchan,ob,iv) else if (amsr2) then call da_qc_amsr2(it,i,nchan,ob,iv) + else if (ahi) then + call da_qc_ahi(it,i,nchan,ob,iv) else if (imager) then call da_qc_goesimg(it,i,nchan,ob,iv) else diff --git a/var/da/da_radiance/da_radiance.f90 b/var/da/da_radiance/da_radiance.f90 index cb98c45e05..2f465372ca 100644 --- a/var/da/da_radiance/da_radiance.f90 +++ b/var/da/da_radiance/da_radiance.f90 @@ -18,8 +18,8 @@ module da_radiance init_constants_derived, & rttov_platform_name, rttov_inst_name, crtm_sensor_name ! names used by both RTTOV and CRTM #ifdef RTTOV - use module_radiance, only : coefs, rttov_coefs, profile_type, radiance_type, & - transmission_type,errorstatus_success,gas_id_watervapour,rttov_emissivity + use module_radiance, only : coefs, rttov_coefs, rttov_profile, rttov_radiance, & + rttov_transmission,errorstatus_success,gas_id_watervapour,rttov_emissivity #endif #ifdef CRTM use module_radiance, only : crtm_channelinfo_type, crtm_platform_name, crtm_init, & @@ -46,7 +46,7 @@ module da_radiance tovs_min_transfer,use_error_factor_rad,num_fgat_time,stdout,trace_use, & qc_good, qc_bad,myproc,biascorr,thinning,thinning_mesh, & rad_monitoring, monitor_on, kts, kte, kms, kme, calc_weightfunc, & - use_mwtsobs, use_mwhsobs, use_atmsobs, use_amsr2obs, & + use_mwtsobs, use_mwhsobs, use_atmsobs, use_amsr2obs, use_ahiobs, & use_hirs4obs, use_mhsobs,bufr_year, bufr_month,bufr_day,bufr_hour, & bufr_minute, bufr_second,bufr_solzen, bufr_station_height, & bufr_landsea_mask,bufr_solazi,tovs_end, max_tovs_input, bufr_satzen, nchan_mhs, & @@ -122,6 +122,9 @@ module da_radiance #include "da_read_obs_bufriasi.inc" #include "da_read_obs_bufrseviri.inc" #include "da_read_obs_hdf5amsr2.inc" +#include "da_read_obs_hdf5ahi.inc" +#include "da_read_obs_netcdf4ahi_geocat.inc" +#include "da_read_obs_netcdf4ahi_jaxa.inc" #include "da_read_obs_ncgoesimg.inc" #include "da_get_satzen.inc" #include "da_allocate_rad_iv.inc" diff --git a/var/da/da_radiance/da_radiance1.f90 b/var/da/da_radiance/da_radiance1.f90 index ce6cc79877..53948d7757 100644 --- a/var/da/da_radiance/da_radiance1.f90 +++ b/var/da/da_radiance/da_radiance1.f90 @@ -60,6 +60,8 @@ module da_radiance1 real :: smois, tslb, snowh, elevation,soiltyp,vegtyp,vegfra real :: clw integer :: isflg + integer :: cloudflag + ! real, pointer :: tb_xb(:) real, pointer :: tb_ob(:) real, pointer :: tb_inv(:) @@ -89,6 +91,7 @@ module da_radiance1 real , pointer :: ciw(:) ! kg/kg real , pointer :: rain(:) ! kg/m2/s real , pointer :: sp(:) ! kg/m2/s + integer , pointer :: cloudflag(:) end type con_cld_vars_type type aux_vars_type @@ -176,6 +179,7 @@ module da_radiance1 real, pointer :: solidp(:) ! solid precipitation rate in kg/m2/s real, pointer :: clw(:) ! cloud liquid water (kg/kg) real, pointer :: ciw(:) ! cloud ice water (kg/kg) + integer, pointer :: cloudflag(:) ! cloud flag end type rad_data_type @@ -233,6 +237,7 @@ module da_radiance1 #include "da_qc_atms.inc" #include "da_qc_seviri.inc" #include "da_qc_amsr2.inc" +#include "da_qc_ahi.inc" #include "da_qc_goesimg.inc" #include "da_write_iv_rad_ascii.inc" #include "da_write_oa_rad_ascii.inc" diff --git a/var/da/da_radiance/da_radiance_init.inc b/var/da/da_radiance/da_radiance_init.inc index 974be59060..03c1df195e 100644 --- a/var/da/da_radiance/da_radiance_init.inc +++ b/var/da/da_radiance/da_radiance_init.inc @@ -23,7 +23,7 @@ subroutine da_radiance_init(iv,ob) ! ! local arguments !------------------- - integer :: n, j, ichan + integer :: n, j, ichan, iret integer :: nsensor, unit_factor_rad integer :: error integer, allocatable :: nscan(:), nchanl(:) @@ -131,6 +131,20 @@ subroutine da_radiance_init(iv,ob) else if ( trim( crtm_sensor_name(rtminit_sensor(n))) == 'amsr2' ) then nchanl(n) = 14 nscan(n) = 486 + else if ( trim( crtm_sensor_name(rtminit_sensor(n))) == 'ahi' ) then + !open the ahi info file + open(unit=1990,file='ahi_info',status='old',iostat=iret) + if(iret /= 0)then + call da_error(__FILE__,__LINE__,(/"Read ahi_info error: no such file"/)) + end if + !read ahi information + read(1990,*) + read(1990,*) + read(1990,*) + read(1990,*) nscan(n) + close(1990) + write(*,*) nscan(n) + nchanl(n) = 10 else if ( trim( crtm_sensor_name(rtminit_sensor(n))) == 'imgr' ) then nchanl(n) = 4 nscan(n) = 60 diff --git a/var/da/da_radiance/da_read_obs_hdf5ahi.inc b/var/da/da_radiance/da_read_obs_hdf5ahi.inc new file mode 100644 index 0000000000..66f789e0ae --- /dev/null +++ b/var/da/da_radiance/da_read_obs_hdf5ahi.inc @@ -0,0 +1,645 @@ +subroutine da_read_obs_hdf5ahi (iv,infile_tb,infile_clp) + !-------------------------------------------------------- + ! Purpose: read in CMA AHI Level-1B and Level-2 data in HDF5 format + ! and form innovation structure + ! + ! METHOD: use F90 sequantial data structure to avoid read the file twice + ! 1. read file radiance data in sequential data structure + ! 2. do gross QC check + ! 3. assign sequential data structure to innovation structure + ! and deallocate sequential data structure + ! + ! HISTORY: 2016/10/12 - Creation Yuanbing Wang, NUIST/CAS, NCAR/NESL/MMM/DAS + ! + ! To be developed: + ! 1. more general variable names; + ! 2. get time and dimension information from file + ! 3. more readable and efficient programm + !------------------------------------------------------------------------------ + + implicit none + + character(len=*), intent(in) :: infile_tb, infile_clp + type(iv_type), intent(inout) :: iv + +#if defined(HDF5) +! fixed parameter values + integer,parameter::nlatitude=600 ! Maximum allowed NumberOfScans + integer,parameter::nlongitude=700 ! low resolution pixel width + integer,parameter::time_dims=6 ! Time dimension + integer,parameter::nfile_max = 8 ! each hdf file contains ~50min of data + ! at most 8 files for a 6-h time window +! interface variable + integer iret ! return status + integer(HID_T) fhnd1 ! file handle + integer(HID_T) dhnd1 ! dataset handle + integer(HSIZE_T) sz1(2) ! array size 1 + +! array data + real(4) :: vlatitude(nlongitude,nlatitude) ! value for latitude + real(4) :: vlongitude(nlongitude,nlatitude) ! value for longitude + + real(4) :: tb07(nlongitude,nlatitude) ! tb for band 7 + real(4) :: tb08(nlongitude,nlatitude) ! tb for band 8 + real(4) :: tb09(nlongitude,nlatitude) ! tb for band 9 + real(4) :: tb10(nlongitude,nlatitude) ! tb for band 10 + real(4) :: tb11(nlongitude,nlatitude) ! tb for band 11 + real(4) :: tb12(nlongitude,nlatitude) ! tb for band 12 + real(4) :: tb13(nlongitude,nlatitude) ! tb for band 13 + real(4) :: tb14(nlongitude,nlatitude) ! tb for band 14 + real(4) :: tb15(nlongitude,nlatitude) ! tb for band 15 + real(4) :: tb16(nlongitude,nlatitude) ! tb for band 16 + + real(4) :: sat_zenith(nlongitude,nlatitude) ! satellite_zenith_angle + integer(4) :: cloud_mask(nlongitude,nlatitude) !obs cloud mask + + real(r_kind),parameter :: tbmin = 50._r_kind + real(r_kind),parameter :: tbmax = 550._r_kind + real(r_kind),parameter :: tb_scale = 100._r_kind + + real(kind=8) :: obs_time + type (datalink_type),pointer :: head, p, current, prev + type(info_type) :: info + type(model_loc_type) :: loc + + integer(i_kind) :: idate5(6) + integer(i_kind) :: inst,platform_id,satellite_id,sensor_id + real(r_kind) :: tb, crit + integer(i_kind) :: ifgat, iout, iobs + logical :: outside, outside_all, iuse + + integer :: i,j,k,l,m,n, ifile,landsea_mask + logical :: found, head_found, head_allocated + +! Other work variables + real(r_kind) :: dlon_earth,dlat_earth + integer(i_kind) :: num_ahi_local, num_ahi_global, num_ahi_used, num_ahi_thinned + integer(i_kind) :: num_ahi_used_tmp, num_ahi_file + integer(i_kind) :: num_ahi_local_local, num_ahi_global_local, num_ahi_file_local + integer(i_kind) :: itx, itt + character(80) :: filename1, filename2 + integer :: nchan,ilongitude,ilatitude,ichannels + integer :: nfile, ahi_info_unit + character(80) :: fname_tb(nfile_max) + character(80) :: fname_clp(nfile_max) + logical :: fexist, got_clp_file + +! Allocatable arrays + integer(i_kind),allocatable :: ptotal(:) + real,allocatable :: in(:), out(:) + real(r_kind),allocatable :: data_all(:) + + if (trace_use) call da_trace_entry("da_read_obs_hdf5ahi") + +! 0.0 Initialize variables +!----------------------------------- + head_allocated = .false. + platform_id = 31 ! Table-2 Col 1 corresponding to 'himawari' + satellite_id = 8 ! Table-2 Col 3 + sensor_id = 56 ! Table-3 Col 2 corresponding to 'ahi' + + allocate(ptotal(0:num_fgat_time)) + ptotal(0:num_fgat_time) = 0 + iobs = 0 ! for thinning, argument is inout + num_ahi_file = 0 + num_ahi_local = 0 + num_ahi_global = 0 + num_ahi_used = 0 + num_ahi_thinned = 0 + + sz1(1)=nlongitude + sz1(2)=nlatitude + + do i = 1, rtminit_nsensor + if (platform_id == rtminit_platform(i) & + .and. satellite_id == rtminit_satid(i) & + .and. sensor_id == rtminit_sensor(i)) then + inst = i + exit + end if + end do + if (inst == 0) then + call da_warning(__FILE__,__LINE__, & + (/"The combination of Satellite_Id and Sensor_Id for AHI is not found"/)) + if (trace_use) call da_trace_exit("da_read_obs_hdf5ahi") + return + end if + +! Initialize HDF5 library and Fortran90 interface + call H5open_f(iret) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"Problems initializing HDF5 Lib, can't read AHI data."/)) + if (trace_use) call da_trace_exit("da_read_obs_hdf5ahi") + return + endif + + nchan = iv%instid(inst)%nchan + write(unit=stdout,fmt=*)'AHI nchan: ',nchan + allocate(data_all(1:nchan)) + +! 1.0 Assign file names and prepare to read ahi files +!------------------------------------------------------------------------- + nfile = 0 !initialize + fname_tb(:) = '' !initialize + ! first check if hdf file is available + filename1 = trim(infile_tb) + filename2 = trim(infile_clp) + inquire (file=filename1, exist=fexist) + if ( fexist ) then + nfile = 1 + fname_tb(nfile) = filename1 + fname_clp(nfile) = filename2 + else + ! check if L1SGRTBR-0x.h5 is available for multiple input files + ! here 0x is the input file sequence number + ! do not confuse it with fgat time slot index + do i = 1, nfile_max + write(filename1,fmt='(A,A,I2.2,A)') trim(infile_tb),'-',i + write(filename2,fmt='(A,A,I2.2,A)') trim(infile_clp),'-',i + inquire (file=filename1, exist=fexist) + if ( fexist ) then + nfile = nfile + 1 + fname_tb(nfile) = filename1 + fname_clp(nfile) = filename2 + else + exit + end if + end do + end if + + if ( nfile == 0 ) then + call da_warning(__FILE__,__LINE__,(/"No valid AHI file found."/)) + if (trace_use) call da_trace_exit("da_read_obs_hdf5ahi") + return + end if + + !open the data info file + call da_get_unit(ahi_info_unit) + open(unit=ahi_info_unit,file='ahi_info',status='old',iostat=iret) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__,(/"data_info file read error"/)) + endif + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + + infile_loop: do ifile = 1, nfile + num_ahi_file_local = 0 + num_ahi_local_local = 0 + num_ahi_global_local = 0 + + ! open infile_tb HDF5 file for read + call H5Fopen_f(fname_tb(ifile),H5F_ACC_RDONLY_F,fhnd1,iret,H5P_DEFAULT_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"Cannot open HDF5 file"//trim(fname_tb(ifile))/)) + cycle infile_loop + endif + + ! read lat + call H5Dopen_f(fhnd1,'pixel_latitude',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_IEEE_F32LE,vlatitude,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Latitude"/)) + endif + call H5Dclose_f(dhnd1,iret) + + ! read lon + call H5Dopen_f(fhnd1,'pixel_longitude',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_IEEE_F32LE,vlongitude,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Longitude"/)) + call da_trace_exit("da_read_obs_hdf5ahi") + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*)'latitude,longitude(pixel=1,scan=1): ',vlatitude(1,1),vlongitude(1,1) + + ! read tb for band 7 + call H5Dopen_f(fhnd1,'NOMChannelIRX0390_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb07,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Band 7"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb07(pixel=1,scan=1): ',tb07(1,1) + + ! read tb for band 8 + call H5Dopen_f(fhnd1,'NOMChannelIRX0620_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb08,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Band 8"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb08(pixel=1,scan=1): ',tb08(1,1) + + ! read tb for band 9 + call H5Dopen_f(fhnd1,'NOMChannelIRX0700_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb09,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Band 9"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb09(pixel=1,scan=1): ',tb09(1,1) + + ! read tb for band 10 + call H5Dopen_f(fhnd1,'NOMChannelIRX0730_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb10,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Band 10"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb10(pixel=1,scan=1): ',tb10(1,1) + + ! read tb for band 11 + call H5Dopen_f(fhnd1,'NOMChannelIRX0860_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb11,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Band 11"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb11(pixel=1,scan=1): ',tb11(1,1) + + ! read tb for band 12 + call H5Dopen_f(fhnd1,'NOMChannelIRX0960_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb12,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Band 12"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb12(pixel=1,scan=1): ',tb12(1,1) + + ! read tb for band 13 + call H5Dopen_f(fhnd1,'NOMChannelIRX1040_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb13,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: 13"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb13(pixel=1,scan=1): ',tb13(1,1) + + ! read tb for band 14 + call H5Dopen_f(fhnd1, 'NOMChannelIRX1120_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb14,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: Band 14"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb14(pixel=1,scan=1): ',tb14(1,1) + + ! read tb for band 15 + call H5Dopen_f(fhnd1,'NOMChannelIRX1230_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb15,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: 15"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb15(pixel=1,scan=1): ',tb15(1,1) + + ! read tb for band 16 + call H5Dopen_f(fhnd1,'NOMChannelIRX1330_2000',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_REAL,tb16,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: 16"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*) 'tb16(pixel=1,scan=1): ',tb16(1,1) + + ! read array: satellite_zenith_angle + ! read + call H5Dopen_f(fhnd1,'pixel_satellite_zenith_angle',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_IEEE_F32LE,sat_zenith,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: satellite_zenith_angle"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*)'sat_zenith(pixel=1,scan=1): ',sat_zenith(1,1) + + ! close infile_tb and HDF5 + call H5Fclose_f(fhnd1,iret) + + !open infile_clw file and HDF5 + got_clp_file = .false. + call H5Fopen_f(fname_clp(ifile),H5F_ACC_RDONLY_F,fhnd1,iret,H5P_DEFAULT_F) + if ( iret == 0 ) then + got_clp_file = .true. + endif + ! to do: when got_clp_file=.true., need to check GranuleID for consistency + ! betweee tb and clw files + + if ( got_clp_file ) then + + ! read CLOUD_MASK from infile_clw: + call H5Dopen_f(fhnd1,'cloud_mask',dhnd1,iret) + call H5Dread_f(dhnd1,H5T_NATIVE_INTEGER,cloud_mask,sz1,iret,H5S_ALL_F,H5S_ALL_F) + if(iret.lt.0)then + call da_warning(__FILE__,__LINE__,(/"HDF5 read error for: CLOUD_MASK data"/)) + endif + call H5Dclose_f(dhnd1,iret) + ! sample display + write(unit=stdout,fmt=*)'cloud_mask(pixel=1,scan=1): ',cloud_mask(1,1) + + ! close infile_clw file and HDF5 + call H5Fclose_f(fhnd1,iret) + end if + + !read date information + read(ahi_info_unit,*) idate5(1),idate5(2),idate5(3),idate5(4),idate5(5),idate5(6) + +! 2.0 Loop to read hdf file and assign information to a sequential structure +!------------------------------------------------------------------------- + + ! Allocate arrays to hold data + if ( .not. head_allocated ) then + allocate (head) + nullify ( head % next ) + p => head + head_allocated = .true. + end if + + ! start scan_loop + scan_loop: do ilatitude=1, nlatitude + + call da_get_julian_time(idate5(1),idate5(2),idate5(3),idate5(4),idate5(5),obs_time) + + if ( obs_time < time_slots(0) .or. obs_time >= time_slots(num_fgat_time) ) cycle scan_loop + do ifgat=1,num_fgat_time + if ( obs_time >= time_slots(ifgat-1) .and. obs_time < time_slots(ifgat) ) exit + end do + + ! start fov_loop: longitude + fov_loop: do ilongitude=1, nlongitude + + if ( sat_zenith(ilongitude,ilatitude) > 65.0 ) cycle fov_loop + + num_ahi_file = num_ahi_file + 1 + num_ahi_file_local = num_ahi_file_local + 1 + info%lat = vlatitude(ilongitude,ilatitude) + info%lon = vlongitude(ilongitude,ilatitude) + + call da_llxy (info, loc, outside, outside_all) + if (outside_all) cycle fov_loop + + num_ahi_global = num_ahi_global + 1 + num_ahi_global_local = num_ahi_global_local + 1 + ptotal(ifgat) = ptotal(ifgat) + 1 + if (outside) cycle fov_loop ! No good for this PE + + num_ahi_local = num_ahi_local + 1 + num_ahi_local_local = num_ahi_local_local + 1 + write(unit=info%date_char, & + fmt='(i4.4,a,i2.2,a,i2.2,a,i2.2,a,i2.2,a,i2.2)') & + idate5(1), '-', idate5(2), '-', idate5(3), '_', idate5(4), & + ':', idate5(5), ':', idate5(6) + info%elv = 0.0 + +! 3.0 Make Thinning +! Map obs to thinning grid +!------------------------------------------------------------------- + if (thinning) then + dlat_earth = info%lat !degree + dlon_earth = info%lon + if (dlon_earth=r360) dlon_earth = dlon_earth-r360 + dlat_earth = dlat_earth*deg2rad !radian + dlon_earth = dlon_earth*deg2rad + crit = 1. + call map2grids(inst,ifgat,dlat_earth,dlon_earth,crit,iobs,itx,1,itt,iout,iuse) + if (.not. iuse) then + num_ahi_thinned = num_ahi_thinned+1 + cycle fov_loop + end if + end if + + num_ahi_used = num_ahi_used + 1 + data_all = missing_r + + tb = tb07(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(1)= tb + + tb = tb08(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(2)= tb + + tb = tb09(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(3)= tb + + tb = tb10(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(4)= tb + + tb = tb11(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(5)= tb + + tb = tb12(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(6)= tb + + tb = tb13(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(7)= tb + + tb = tb14(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(8)= tb + + tb = tb15(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(9)= tb + + tb = tb16(ilongitude,ilatitude) / tb_scale + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(10)= tb + +! 4.0 assign information to sequential radiance structure +!-------------------------------------------------------------------------- + allocate ( p % tb_inv (1:nchan )) + p%info = info + p%loc = loc + p%landsea_mask = 1 + p%scanpos = ilongitude !nint(sat_zenith(ilongitude,ilatitude))+1.001_r_kind ! + p%satzen = sat_zenith(ilongitude,ilatitude) + p%satazi = 0 + p%solzen = 0 + p%solazi = 0 + p%cloudflag = cloud_mask(ilongitude,ilatitude) + p%tb_inv(1:nchan) = data_all(1:nchan) + p%sensor_index = inst + p%ifgat = ifgat + + allocate (p%next) ! add next data + p => p%next + nullify (p%next) + end do fov_loop + end do scan_loop + + write(stdout,fmt='(3a,i7)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_file : ',num_ahi_file_local + write(stdout,fmt='(3a,i7)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_global : ',num_ahi_global_local + write(stdout,fmt='(3a,i7)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_local : ',num_ahi_local_local + end do infile_loop + + close(ahi_info_unit) !close date information file + call da_free_unit(ahi_info_unit) + call H5close_f(iret) + deallocate(data_all) ! Deallocate data arrays + + if (thinning .and. num_ahi_global > 0 ) then +#ifdef DM_PARALLEL + ! Get minimum crit and associated processor index. + j = 0 + do ifgat = 1, num_fgat_time + j = j + thinning_grid(inst,ifgat)%itxmax + end do + + allocate ( in (j) ) + allocate ( out (j) ) + j = 0 + do ifgat = 1, num_fgat_time + do i = 1, thinning_grid(inst,ifgat)%itxmax + j = j + 1 + in(j) = thinning_grid(inst,ifgat)%score_crit(i) + end do + end do + call mpi_reduce(in, out, j, true_mpi_real, mpi_min, root, comm, ierr) + + call wrf_dm_bcast_real (out, j) + + j = 0 + do ifgat = 1, num_fgat_time + do i = 1, thinning_grid(inst,ifgat)%itxmax + j = j + 1 + if ( ABS(out(j)-thinning_grid(inst,ifgat)%score_crit(i)) > 1.0E-10 ) & + thinning_grid(inst,ifgat)%ibest_obs(i) = 0 + end do + end do + + deallocate( in ) + deallocate( out ) + +#endif + + ! Delete the nodes which being thinning out + p => head + prev => head + head_found = .false. + num_ahi_used_tmp = num_ahi_used + do j = 1, num_ahi_used_tmp + n = p%sensor_index + ifgat = p%ifgat + found = .false. + + do i = 1, thinning_grid(n,ifgat)%itxmax + if ( thinning_grid(n,ifgat)%ibest_obs(i) == j .and. thinning_grid(n,ifgat)%score_crit(i) < 9.99e6_r_kind ) then + found = .true. + exit + end if + end do + + ! free current data + if ( .not. found ) then + current => p + p => p%next + if ( head_found ) then + prev%next => p + else + head => p + prev => p + end if + deallocate ( current % tb_inv ) + deallocate ( current ) + num_ahi_thinned = num_ahi_thinned + 1 + num_ahi_used = num_ahi_used - 1 + continue + end if + + if ( found .and. head_found ) then + prev => p + p => p%next + continue + end if + + if ( found .and. .not. head_found ) then + head_found = .true. + head => p + prev => p + p => p%next + end if + + end do + + end if ! End of thinning + + iv%total_rad_pixel = iv%total_rad_pixel + num_ahi_used + iv%total_rad_channel = iv%total_rad_channel + num_ahi_used*nchan + + iv%info(radiance)%nlocal = iv%info(radiance)%nlocal + num_ahi_used + iv%info(radiance)%ntotal = iv%info(radiance)%ntotal + num_ahi_global + + do i = 1, num_fgat_time + ptotal(i) = ptotal(i) + ptotal(i-1) + iv%info(radiance)%ptotal(i) = iv%info(radiance)%ptotal(i) + ptotal(i) + end do + if ( iv%info(radiance)%ptotal(num_fgat_time) /= iv%info(radiance)%ntotal ) then + write(unit=message(1),fmt='(A,I10,A,I10)') & + "Number of ntotal:",iv%info(radiance)%ntotal," is different from the sum of ptotal:", iv%info(radiance)%ptotal(num_fgat_time) + call da_warning(__FILE__,__LINE__,message(1:1)) + endif + + write(unit=stdout,fmt='(a)') 'AHI data counts: ' + write(stdout,fmt='(a,i7)') ' In file: ',num_ahi_file + write(stdout,fmt='(a,i7)') ' Global : ',num_ahi_global + write(stdout,fmt='(a,i7)') ' Local : ',num_ahi_local + write(stdout,fmt='(a,i7)') ' Used : ',num_ahi_used + write(stdout,fmt='(a,i7)') ' Thinned: ',num_ahi_thinned + + +! 5.0 allocate innovation radiance structure +!---------------------------------------------------------------- + + if (num_ahi_used > 0) then + iv%instid(inst)%num_rad = num_ahi_used + iv%instid(inst)%info%nlocal = num_ahi_used + write(UNIT=stdout,FMT='(a,i3,2x,a,3x,i10)') & + 'Allocating space for radiance innov structure', & + inst, iv%instid(inst)%rttovid_string, iv%instid(inst)%num_rad + call da_allocate_rad_iv (inst, nchan, iv) + end if + +! 6.0 assign sequential structure to innovation structure +!------------------------------------------------------------- + p => head + + do n = 1, num_ahi_used + i = p%sensor_index + call da_initialize_rad_iv (i, n, iv, p) + current => p + p => p%next + ! free current data + deallocate ( current % tb_inv ) + deallocate ( current ) + end do + deallocate ( p ) + deallocate (ptotal) + + if (trace_use) call da_trace_exit("da_read_obs_hdf5ahi") +#else + call da_error(__FILE__,__LINE__,(/"Needs to be compiled with HDF5 library"/)) +#endif +end subroutine da_read_obs_hdf5ahi diff --git a/var/da/da_radiance/da_read_obs_netcdf4ahi_geocat.inc b/var/da/da_radiance/da_read_obs_netcdf4ahi_geocat.inc new file mode 100644 index 0000000000..57c4d0f71e --- /dev/null +++ b/var/da/da_radiance/da_read_obs_netcdf4ahi_geocat.inc @@ -0,0 +1,590 @@ +subroutine da_read_obs_netcdf4ahi_geocat (iv, infile_tb, infile_clp) + !-------------------------------------------------------- + ! Purpose: read in GEOCAT AHI Level-1 and Level-2 data in NETCDF4 format + ! and form innovation structure + ! + ! METHOD: use F90 sequantial data structure to avoid read the file twice + ! 1. read file radiance data in sequential data structure + ! 2. do gross QC check + ! 3. assign sequential data structure to innovation structure + ! and deallocate sequential data structure + ! + ! HISTORY: 2016/10/22 - Creation Yuanbing Wang, NUIST/CAS, NCAR/NESL/MMM/DAS + ! To be devoloped: 1.time information; 2.dimension sequence + !------------------------------------------------------------------------------ + + use netcdf + implicit none + + character(len=*), intent(in) :: infile_tb, infile_clp + type(iv_type), intent(inout) :: iv + +! fixed parameter values + integer,parameter::time_dims=6 ! Time dimension + integer,parameter::nfile_max = 8 ! each netcdf file contains + real,parameter::add_offset_tb1=285.0 + real,parameter::add_offset_tb2=235.0 + real,parameter::add_offset_tb3=260.0 + real,parameter::add_offset_tb4=240.0 + real,parameter::add_offset_saz=90.0 + real,parameter::scale_factor_tb1=0.00350962858973968 + real,parameter::scale_factor_tb2=0.00198370311593982 + real,parameter::scale_factor_tb3=0.00274666585283975 + real,parameter::scale_factor_tb4=0.00213629566331980 + real,parameter::scale_factor_lat=0.00274666585283975 + real,parameter::scale_factor_lon=0.00549333170567949 + real,parameter::scale_factor_saz=0.00274666585283975 + +! interface variable + integer iret, rcode, ncid ! return status + +! array data + real(4), allocatable :: vlatitude(:,:) ! value for latitude + real(4), allocatable :: vlongitude(:,:) ! value for longitude + + real(4), allocatable :: tbb(:,:,:) ! tb for band 7-16 + real(4), allocatable :: sat_zenith(:,:) + + byte, allocatable ::cloud_mask(:,:) + + real(r_kind),parameter :: tbmin = 50._r_kind + real(r_kind),parameter :: tbmax = 550._r_kind + + real(kind=8) :: obs_time + type (datalink_type),pointer :: head, p, current, prev + type(info_type) :: info + type(model_loc_type) :: loc + + integer(i_kind) :: idate5(6) + character(len=80) :: filename,str_tmp + + integer(i_kind) :: inst,platform_id,satellite_id,sensor_id + real(r_kind) :: tb, crit + integer(i_kind) :: ifgat, iout, iobs + logical :: outside, outside_all, iuse + + integer :: i,j,k,l,m,n, ifile, landsea_mask + logical :: found, head_found, head_allocated + +! Other work variables + real(r_kind) :: dlon_earth,dlat_earth + integer(i_kind) :: num_ahi_local, num_ahi_global, num_ahi_used, num_ahi_thinned + integer(i_kind) :: num_ahi_used_tmp, num_ahi_file + integer(i_kind) :: num_ahi_local_local, num_ahi_global_local, num_ahi_file_local + integer(i_kind) :: itx, itt + character(80) :: filename1,filename2 + integer :: nchan,nlongitude,nlatitude,ilongitude,ilatitude,ichannels + integer :: lonstart,latstart + integer :: LatDimID,LonDimID + integer :: latid,lonid,tbb_id,sazid,cltyid + integer :: nfile + character(80) :: fname_tb(nfile_max),fname_clp(nfile_max) + integer :: vtype + character(80) :: vname + logical :: fexist,got_clp_file + integer :: ahi_info_unit + +! Allocatable arrays + integer(i_kind),allocatable :: ptotal(:) + real,allocatable :: in(:), out(:) + real(r_kind),allocatable :: data_all(:) + + character(len=80) tbb_name(10) + data tbb_name/'himawari_8_ahi_channel_7_brightness_temperature',& + 'himawari_8_ahi_channel_8_brightness_temperature',& + 'himawari_8_ahi_channel_9_brightness_temperature',& + 'himawari_8_ahi_channel_10_brightness_temperature',& + 'himawari_8_ahi_channel_11_brightness_temperature',& + 'himawari_8_ahi_channel_12_brightness_temperature',& + 'himawari_8_ahi_channel_13_brightness_temperature',& + 'himawari_8_ahi_channel_14_brightness_temperature',& + 'himawari_8_ahi_channel_15_brightness_temperature',& + 'himawari_8_ahi_channel_16_brightness_temperature'/ + + if (trace_use) call da_trace_entry("da_read_obs_netcdf4ahi_geocat") + +! 0.0 Initialize variables +!----------------------------------- + head_allocated = .false. + platform_id = 31 ! Table-2 Col 1 corresponding to 'himawari' + satellite_id = 8 ! Table-2 Col 3 + sensor_id = 56 ! Table-3 Col 2 corresponding to 'ahi' + + allocate(ptotal(0:num_fgat_time)) + ptotal(0:num_fgat_time) = 0 + iobs = 0 ! for thinning, argument is inout + num_ahi_file = 0 + num_ahi_local = 0 + num_ahi_global = 0 + num_ahi_used = 0 + num_ahi_thinned = 0 + + do i = 1, rtminit_nsensor + if (platform_id == rtminit_platform(i) & + .and. satellite_id == rtminit_satid(i) & + .and. sensor_id == rtminit_sensor(i)) then + inst = i + exit + end if + end do + if (inst == 0) then + call da_warning(__FILE__,__LINE__, & + (/"The combination of Satellite_Id and Sensor_Id for AHI is not found"/)) + if (trace_use) call da_trace_exit("da_read_obs_netcdf4ahi_geocat") + return + end if + + nchan = iv%instid(inst)%nchan + write(unit=stdout,fmt=*)'AHI nchan: ',nchan + allocate(data_all(1:nchan)) + +! 1.0 Assign file names and prepare to read ahi files +!------------------------------------------------------------------------- + nfile = 0 !initialize + fname_tb(:) = '' !initialize + + ! first check if ahi nc file is available + filename1 = trim(infile_tb) + filename2 = trim(infile_clp) + inquire (file=filename1, exist=fexist) + if ( fexist ) then + nfile = 1 + fname_tb(nfile) = filename1 + fname_clp(nfile) = filename2 + else + ! check if netcdf4 files are available for multiple input files + ! here 0x is the input file sequence number + ! do not confuse it with fgat time slot index + do i = 1, nfile_max + write(filename1,fmt='(A,A,I2.2,A)') trim(infile_tb),'-',i + write(filename2,fmt='(A,A,I2.2,A)') trim(infile_clp),'-',i + inquire (file=filename1, exist=fexist) + if ( fexist ) then + nfile = nfile + 1 + fname_tb(nfile) = filename1 + fname_clp(nfile) = filename2 + else + exit + end if + end do + end if + + if ( nfile == 0 ) then + call da_warning(__FILE__,__LINE__, & + (/"No valid AHI file found."/)) + if (trace_use) call da_trace_exit("da_read_obs_netcdf4ahi_geocat") + return + end if + + + !open the data area info file + call da_get_unit(ahi_info_unit) + open(unit=ahi_info_unit,file='ahi_info',status='old',iostat=iret) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__,(/"area_info file read error"/)) + endif + !read date information + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) + read(ahi_info_unit,*) lonstart,latstart,nlongitude,nlatitude + close(ahi_info_unit) + call da_free_unit(ahi_info_unit) + + write(*,*) lonstart,latstart,nlongitude,nlatitude + + infile_loop: do ifile = 1, nfile + num_ahi_file_local = 0 + num_ahi_local_local = 0 + num_ahi_global_local = 0 + + ! open NETCDF4 L1 file for read + iret = nf90_open(fname_tb(ifile), nf90_NOWRITE, ncid) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"Cannot open NETCDF4 file "//trim(fname_tb(ifile))/)) + cycle infile_loop + endif + + ! read dimensions: latitude and longitude + ! iret = nf90_inq_dimid(ncid, "lines", LatDimID) + ! iret = nf90_inquire_dimension(ncid, LatDimID, len=nlatitude) + + ! iret = nf90_inq_dimid(ncid, "elements", LonDimID) + ! iret = nf90_inquire_dimension(ncid, LonDimID, len=nlongitude) + + ! write(unit=stdout,fmt=*) nlongitude,nlatitude + + ! read array: time + iret = nf90_get_att(ncid, nf90_global, "Image_Date_Time", filename) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: observation date"/)) + end if + read(filename,"(I4,A1,I2,A1,I2,A1,I2,A1,I2,A1,I2,A1)") idate5(1),str_tmp,idate5(2),str_tmp,& + idate5(3),str_tmp,idate5(4),str_tmp,idate5(5),str_tmp,idate5(6),str_tmp + + write(unit=stdout,fmt=*)'observation date: ', idate5 + + ! read array: lat + iret = nf90_inq_varid(ncid, 'pixel_latitude', latid) + allocate(vlatitude(nlongitude,nlatitude)) + iret = nf90_get_var(ncid,latid,vlatitude,start=(/lonstart,latstart/), & + count=(/nlongitude,nlatitude/)) ! + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: Latitude of Observation Point"/)) + endif + do j=1,nlatitude + do i=1,nlongitude + vlatitude(i,j)=vlatitude(i,j) * scale_factor_lat + end do + end do + ! sample display + write(unit=stdout,fmt=*)'vlatitude(pixel=1,scan=1): ',vlatitude(1,1) + + ! read lon + iret = nf90_inq_varid(ncid, 'pixel_longitude', lonid) + allocate(vlongitude(nlongitude,nlatitude)) + iret = nf90_get_var(ncid,lonid,vlongitude,start=(/lonstart,latstart/), & + count=(/nlongitude,nlatitude/)) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: Longitude of Observation Point"/)) + call da_trace_exit("da_read_obs_netcdf4ahi_geocat") + endif + do j=1,nlatitude + do i=1,nlongitude + vlongitude(i,j)=vlongitude(i,j) * scale_factor_lon + end do + end do + ! sample display + write(unit=stdout,fmt=*)'vlongitude(pixel=1,scan=1): ',vlongitude(1,1) + + ! read array: tb for band 7-16 + allocate(tbb(nlongitude,nlatitude,nchan)) + do k=1,nchan + iret = nf90_inq_varid(ncid, tbb_name(k), tbb_id) + iret = nf90_get_var(ncid,tbb_id,tbb(:,:,k),start=(/lonstart,latstart/), & + count=(/nlongitude,nlatitude/)) + if(iret /= 0) then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: Brightness Temperature"/)) + endif + do j=1,nlatitude + do i=1,nlongitude + if(k==1) then + tbb(i,j,k)=tbb(i,j,k) * scale_factor_tb1 + add_offset_tb1 + end if + if(k>=2 .and. k<=4) then + tbb(i,j,k)=tbb(i,j,k) * scale_factor_tb2 + add_offset_tb2 + end if + if(k>=5 .and. k<=9) then + tbb(i,j,k)=tbb(i,j,k) * scale_factor_tb3 + add_offset_tb3 + end if + if(k==10) then + tbb(i,j,k)=tbb(i,j,k) * scale_factor_tb4 + add_offset_tb4 + end if + end do + end do + ! sample display + write(unit=stdout,fmt=*) 'tbb(pixel=1,scan=1,chan=',k,'): ', tbb(1,1,k) + end do + + ! read array: satellite zenith angle + iret = nf90_inq_varid(ncid, 'pixel_satellite_zenith_angle', sazid) + allocate(sat_zenith(nlongitude,nlatitude)) + iret = nf90_get_var(ncid,sazid,sat_zenith,start=(/lonstart,latstart/), & + count=(/nlongitude,nlatitude/)) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: satellite zenith angle"/)) + endif + do j=1,nlatitude + do i=1,nlongitude + sat_zenith(i,j)=sat_zenith(i,j) * scale_factor_saz + add_offset_saz + end do + end do + ! sample display + write(unit=stdout,fmt=*) 'satellite zenith angle(pixel=1,scan=1): ',sat_zenith(1,1) + + ! close infile_tb file + iret = nf90_close(ncid) + + !open infile_clp file + got_clp_file = .false. + iret = nf90_open(fname_clp(ifile), nf90_NOWRITE, ncid) + if ( iret == 0 ) then + got_clp_file = .true. + endif + + if ( got_clp_file ) then + ! read array: eps_cmask_ahi_cloud_mask + rcode = nf90_inq_varid(ncid, "eps_cmask_ahi_cloud_mask", cltyid) + allocate(cloud_mask(nlongitude,nlatitude)) + iret = nf90_get_var(ncid,cltyid,cloud_mask,start=(/lonstart,latstart/), & + count=(/nlongitude,nlatitude/)) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__,(/"NETCDF4 read error for: CLTYPE data"/)) + endif + ! sample display + write(unit=stdout,fmt=*)'cloud_mask(pixel=1,scan=1): ',cloud_mask(1,1) + ! close infile_clp file + iret = nf90_close(ncid) + end if + +! 2.0 Loop to read netcdf and assign information to a sequential structure +!------------------------------------------------------------------------- + + ! Allocate arrays to hold data + if ( .not. head_allocated ) then + allocate (head) + nullify ( head % next ) + p => head + head_allocated = .true. + end if + + ! start scan_loop + scan_loop: do ilatitude=1, nlatitude + + call da_get_julian_time(idate5(1),idate5(2),idate5(3),idate5(4),idate5(5),obs_time) + if ( obs_time < time_slots(0) .or. & + obs_time >= time_slots(num_fgat_time) ) cycle scan_loop + do ifgat=1,num_fgat_time + if ( obs_time >= time_slots(ifgat-1) .and. & + obs_time < time_slots(ifgat) ) exit + end do + + ! start fov_loop + fov_loop: do ilongitude=1, nlongitude + + if ( sat_zenith(ilongitude,ilatitude) > 65.0 ) cycle fov_loop + + num_ahi_file = num_ahi_file + 1 + num_ahi_file_local = num_ahi_file_local + 1 + info%lat = vlatitude(ilongitude,ilatitude) + info%lon = vlongitude(ilongitude,ilatitude) + + call da_llxy (info, loc, outside, outside_all) + if (outside_all) cycle fov_loop + + num_ahi_global = num_ahi_global + 1 + num_ahi_global_local = num_ahi_global_local + 1 + ptotal(ifgat) = ptotal(ifgat) + 1 + if (outside) cycle fov_loop ! No good for this PE + + num_ahi_local = num_ahi_local + 1 + num_ahi_local_local = num_ahi_local_local + 1 + write(unit=info%date_char, & + fmt='(i4.4,a,i2.2,a,i2.2,a,i2.2,a,i2.2,a,i2.2)') & + idate5(1), '-', idate5(2), '-', idate5(3), '_', idate5(4), & + ':', idate5(5), ':', idate5(6) + info%elv = 0.0 + +! 3.0 Make Thinning +! Map obs to thinning grid +!------------------------------------------------------------------- + if (thinning) then + dlat_earth = info%lat !degree + dlon_earth = info%lon + if (dlon_earth=r360) dlon_earth = dlon_earth-r360 + dlat_earth = dlat_earth*deg2rad !radian + dlon_earth = dlon_earth*deg2rad + crit = 1. + call map2grids(inst,ifgat,dlat_earth,dlon_earth,crit,iobs,itx,1,itt,iout,iuse) + if (.not. iuse) then + num_ahi_thinned = num_ahi_thinned+1 + cycle fov_loop + end if + end if + + num_ahi_used = num_ahi_used + 1 + data_all = missing_r + + do k=1,nchan + tb = tbb(ilongitude,ilatitude,k) + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(k)= tb + enddo + +! 4.0 assign information to sequential radiance structure +!-------------------------------------------------------------------------- + allocate ( p % tb_inv (1:nchan )) + p%info = info + p%loc = loc + p%landsea_mask = 1 + p%scanpos = ilongitude !nint(sat_zenith(ilongitude,ilatitude))+1.001_r_kind ! + p%satzen = sat_zenith(ilongitude,ilatitude) + p%satazi = 0 + p%solzen = 0 + p%solazi = 0 + p%tb_inv(1:nchan) = data_all(1:nchan) + p%sensor_index = inst + p%ifgat = ifgat + p%cloudflag = cloud_mask(ilongitude,ilatitude) + + allocate (p%next) ! add next data + p => p%next + nullify (p%next) + end do fov_loop + end do scan_loop + + write(stdout,fmt='(3a,i10)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_file : ',num_ahi_file_local + write(stdout,fmt='(3a,i10)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_global : ',num_ahi_global_local + write(stdout,fmt='(3a,i10)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_local : ',num_ahi_local_local + end do infile_loop + + deallocate(data_all) ! Deallocate data arrays + !deallocate(cloudflag) + deallocate(vlatitude) + deallocate(vlongitude) + deallocate(tbb) + deallocate(sat_zenith) + if( got_clp_file ) deallocate(cloud_mask) + + if (thinning .and. num_ahi_global > 0 ) then +#ifdef DM_PARALLEL + ! Get minimum crit and associated processor index. + j = 0 + do ifgat = 1, num_fgat_time + j = j + thinning_grid(inst,ifgat)%itxmax + end do + + allocate ( in (j) ) + allocate ( out (j) ) + j = 0 + do ifgat = 1, num_fgat_time + do i = 1, thinning_grid(inst,ifgat)%itxmax + j = j + 1 + in(j) = thinning_grid(inst,ifgat)%score_crit(i) + end do + end do + call mpi_reduce(in, out, j, true_mpi_real, mpi_min, root, comm, ierr) + + call wrf_dm_bcast_real (out, j) + + j = 0 + do ifgat = 1, num_fgat_time + do i = 1, thinning_grid(inst,ifgat)%itxmax + j = j + 1 + if ( ABS(out(j)-thinning_grid(inst,ifgat)%score_crit(i)) > 1.0E-10 ) & + thinning_grid(inst,ifgat)%ibest_obs(i) = 0 + end do + end do + + deallocate( in ) + deallocate( out ) + +#endif + + ! Delete the nodes which being thinning out + p => head + prev => head + head_found = .false. + num_ahi_used_tmp = num_ahi_used + do j = 1, num_ahi_used_tmp + n = p%sensor_index + ifgat = p%ifgat + found = .false. + + do i = 1, thinning_grid(n,ifgat)%itxmax + if ( thinning_grid(n,ifgat)%ibest_obs(i) == j .and. thinning_grid(n,ifgat)%score_crit(i) < 9.99e6_r_kind ) then + found = .true. + exit + end if + end do + + ! free current data + if ( .not. found ) then + + current => p + p => p%next + + if ( head_found ) then + prev%next => p + else + head => p + prev => p + end if + + deallocate ( current % tb_inv ) + deallocate ( current ) + + num_ahi_thinned = num_ahi_thinned + 1 + num_ahi_used = num_ahi_used - 1 + continue + end if + + if ( found .and. head_found ) then + prev => p + p => p%next + continue + end if + + if ( found .and. .not. head_found ) then + head_found = .true. + head => p + prev => p + p => p%next + end if + + end do + end if ! End of thinning + + iv%total_rad_pixel = iv%total_rad_pixel + num_ahi_used + iv%total_rad_channel = iv%total_rad_channel + num_ahi_used*nchan + + iv%info(radiance)%nlocal = iv%info(radiance)%nlocal + num_ahi_used + iv%info(radiance)%ntotal = iv%info(radiance)%ntotal + num_ahi_global + + do i = 1, num_fgat_time + ptotal(i) = ptotal(i) + ptotal(i-1) + iv%info(radiance)%ptotal(i) = iv%info(radiance)%ptotal(i) + ptotal(i) + end do + if ( iv%info(radiance)%ptotal(num_fgat_time) /= iv%info(radiance)%ntotal ) then + write(unit=message(1),fmt='(A,I10,A,I10)') & + "Number of ntotal:",iv%info(radiance)%ntotal," is different from the sum of ptotal:", iv%info(radiance)%ptotal(num_fgat_time) + call da_warning(__FILE__,__LINE__,message(1:1)) + endif + + write(unit=stdout,fmt='(a)') 'AHI data counts: ' + write(stdout,fmt='(a,i10)') ' In file: ',num_ahi_file + write(stdout,fmt='(a,i10)') ' Global : ',num_ahi_global + write(stdout,fmt='(a,i10)') ' Local : ',num_ahi_local + write(stdout,fmt='(a,i10)') ' Used : ',num_ahi_used + write(stdout,fmt='(a,i10)') ' Thinned: ',num_ahi_thinned + +! 5.0 allocate innovation radiance structure +!---------------------------------------------------------------- + + if (num_ahi_used > 0) then + iv%instid(inst)%num_rad = num_ahi_used + iv%instid(inst)%info%nlocal = num_ahi_used + write(UNIT=stdout,FMT='(a,i3,2x,a,3x,i10)') & + 'Allocating space for radiance innov structure', & + inst, iv%instid(inst)%rttovid_string, iv%instid(inst)%num_rad + call da_allocate_rad_iv (inst, nchan, iv) + end if + +! 6.0 assign sequential structure to innovation structure +!------------------------------------------------------------- + p => head + + do n = 1, num_ahi_used + i = p%sensor_index + call da_initialize_rad_iv (i, n, iv, p) + current => p + p => p%next + ! free current data + deallocate ( current % tb_inv ) + deallocate ( current ) + end do + deallocate ( p ) + deallocate (ptotal) + + if (trace_use) call da_trace_exit("da_read_obs_netcdf4ahi_geocat") + +end subroutine da_read_obs_netcdf4ahi_geocat diff --git a/var/da/da_radiance/da_read_obs_netcdf4ahi_jaxa.inc b/var/da/da_radiance/da_read_obs_netcdf4ahi_jaxa.inc new file mode 100644 index 0000000000..c55b78d757 --- /dev/null +++ b/var/da/da_radiance/da_read_obs_netcdf4ahi_jaxa.inc @@ -0,0 +1,521 @@ +subroutine da_read_obs_netcdf4ahi_jaxa (iv, infile_tb, infile_clp) + !-------------------------------------------------------- + ! Purpose: read in JAXA AHI Level-1 and Level-2 data in NETCDF4 format + ! and form innovation structure + ! + ! METHOD: use F90 sequantial data structure to avoid read the file twice + ! 1. read file radiance data in sequential data structure + ! 2. do gross QC check + ! 3. assign sequential data structure to innovation structure + ! and deallocate sequential data structure + ! + ! HISTORY: 2016/10/22 - Creation Yuanbing Wang, NUIST/CAS, NCAR/NESL/MMM/DAS + ! To be devoloped: 1.time information; 2.dimension sequence + !------------------------------------------------------------------------------ + + use netcdf + + implicit none + + character(len=*), intent(in) :: infile_tb, infile_clp + type(iv_type), intent(inout) :: iv + +! fixed parameter values + integer,parameter::time_dims=6 ! Time dimension + integer,parameter::nfile_max = 8 ! each netcdf file contains + real,parameter::scale_factor_tb=0.01 ! Maximum allowed NumberOfScans + real,parameter::add_offset_tb=273.15 ! low resolution pixel width + +! interface variable + integer iret, rcode, ncid ! return status + +! array data + real(4), allocatable :: vlatitude(:) ! value for latitude + real(4), allocatable :: vlongitude(:) ! value for longitude + + real(4), allocatable :: tbb(:,:,:) ! tb for band 7-16 + real(4), allocatable :: sat_zenith(:,:) + integer(2), allocatable :: cloud_type(:,:) + + real(r_kind),parameter :: tbmin = 50._r_kind + real(r_kind),parameter :: tbmax = 550._r_kind + + real(kind=8) :: obs_time + type (datalink_type),pointer :: head, p, current, prev + type(info_type) :: info + type(model_loc_type) :: loc + + integer(i_kind) :: idate5(6) + character(len=80) :: filename,str1,str2 + + integer(i_kind) :: inst,platform_id,satellite_id,sensor_id + real(r_kind) :: tb, crit + integer(i_kind) :: ifgat, iout, iobs + logical :: outside, outside_all, iuse + + integer :: i,j,k,l,m,n, ifile, landsea_mask + logical :: found, head_found, head_allocated + +! Other work variables + real(r_kind) :: dlon_earth,dlat_earth + integer(i_kind) :: num_ahi_local, num_ahi_global, num_ahi_used, num_ahi_thinned + integer(i_kind) :: num_ahi_used_tmp, num_ahi_file + integer(i_kind) :: num_ahi_local_local, num_ahi_global_local, num_ahi_file_local + integer(i_kind) :: itx, itt + character(80) :: filename1,filename2 + integer :: nchan,nlongitude,nlatitude,ilongitude,ilatitude,ichannels + integer :: LatDimID,LonDimID + integer :: latid,lonid,tbb_id,sazid,cltyid + integer :: nfile + character(80) :: fname_tb(nfile_max),fname_clp(nfile_max) + logical :: fexist, got_clp_file + +! Allocatable arrays + integer(i_kind),allocatable :: ptotal(:) + real,allocatable :: in(:), out(:) + real(r_kind),allocatable :: data_all(:) + + character(len=80) tbb_name(10) + data tbb_name/'tbb_07','tbb_08','tbb_09','tbb_10','tbb_11', & + 'tbb_12','tbb_13','tbb_14','tbb_15','tbb_16'/ + + if (trace_use) call da_trace_entry("da_read_obs_netcdf4ahi_jaxa") + +! 0.0 Initialize variables +!----------------------------------- + head_allocated = .false. + platform_id = 31 ! Table-2 Col 1 corresponding to 'himawari' + satellite_id = 8 ! Table-2 Col 3 + sensor_id = 56 ! Table-3 Col 2 corresponding to 'ahi' + + allocate(ptotal(0:num_fgat_time)) + ptotal(0:num_fgat_time) = 0 + iobs = 0 ! for thinning, argument is inout + num_ahi_file = 0 + num_ahi_local = 0 + num_ahi_global = 0 + num_ahi_used = 0 + num_ahi_thinned = 0 + + do i = 1, rtminit_nsensor + if (platform_id == rtminit_platform(i) & + .and. satellite_id == rtminit_satid(i) & + .and. sensor_id == rtminit_sensor(i)) then + inst = i + exit + end if + end do + if (inst == 0) then + call da_warning(__FILE__,__LINE__, & + (/"The combination of Satellite_Id and Sensor_Id for AHI is not found"/)) + if (trace_use) call da_trace_exit("da_read_obs_netcdf4ahi_jaxa") + return + end if + + nchan = iv%instid(inst)%nchan + write(unit=stdout,fmt=*)'AHI nchan: ',nchan + allocate(data_all(1:nchan)) + +! 1.0 Assign file names and prepare to read ahi files +!------------------------------------------------------------------------- + nfile = 0 !initialize + fname_tb(:) = '' !initialize + + ! first check if ahi nc file is available + filename1 = trim(infile_tb) + filename2 = trim(infile_clp) + inquire (file=filename1, exist=fexist) + if ( fexist ) then + nfile = 1 + fname_tb(nfile) = filename1 + fname_clp(nfile) = filename2 + else + ! check if netcdf4 files are available for multiple input files + ! here 0x is the input file sequence number + ! do not confuse it with fgat time slot index + do i = 1, nfile_max + write(filename1,fmt='(A,A,I2.2,A)') trim(infile_tb),'-',i + write(filename2,fmt='(A,A,I2.2,A)') trim(infile_clp),'-',i + inquire (file=filename1, exist=fexist) + if ( fexist ) then + nfile = nfile + 1 + fname_tb(nfile) = filename1 + fname_clp(nfile) = filename2 + else + exit + end if + end do + end if + + if ( nfile == 0 ) then + call da_warning(__FILE__,__LINE__, & + (/"No valid AHI file found."/)) + if (trace_use) call da_trace_exit("da_read_obs_netcdf4ahi_jaxa") + return + end if + + infile_loop: do ifile = 1, nfile + num_ahi_file_local = 0 + num_ahi_local_local = 0 + num_ahi_global_local = 0 + + ! open NETCDF4 L1 file for read + iret = nf90_open(fname_tb(ifile), NF90_NOWRITE, ncid) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"Cannot open NETCDF4 file "//trim(fname_tb(ifile))/)) + cycle infile_loop + endif + + ! read dimensions: latitude and longitude + iret = nf90_inq_dimid(ncid, "latitude", LatDimID) + iret = nf90_inquire_dimension(ncid, LatDimID, len=nlatitude) + + iret = nf90_inq_dimid(ncid, "longitude", LonDimID) + iret = nf90_inquire_dimension(ncid, LonDimID, len=nlongitude) + + write(unit=stdout,fmt=*)'nlongitude,nlatitude: ',nlongitude,nlatitude + + ! read array: time + iret = nf90_get_att(ncid, nf90_global, "id", filename) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: observation date"/)) + endif + read(filename,"(A7,I4,I2,I2,A1,I2,I2)") str1,idate5(1),idate5(2),idate5(3), & + str2,idate5(4),idate5(5) + idate5(6)=00 + write(unit=stdout,fmt=*)'observation date: ', idate5 + + ! read array: latlon + ! read lat + iret = nf90_inq_varid(ncid, 'latitude', latid) + allocate( vlatitude(nlatitude)) + iret = nf90_get_var(ncid, latid, vlatitude) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: Latitude of Observation Point"/)) + endif + ! read lon + iret = nf90_inq_varid(ncid, 'longitude', lonid) + allocate( vlongitude(nlongitude)) + iret = nf90_get_var(ncid, lonid, vlongitude) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: Longitude of Observation Point"/)) + call da_trace_exit("da_read_obs_netcdf4ahi_jaxa") + endif + ! sample display + write(unit=stdout,fmt=*)'latitude,longitude(pixel=1,scan=1): ',vlatitude(1),vlongitude(1) + + ! read array: tb for band 7-16 + ! read + allocate( tbb(nlongitude,nlatitude,nchan)) + do k=1,nchan + iret = nf90_inq_varid(ncid, tbb_name(k), tbb_id) + iret = nf90_get_var(ncid, tbb_id, tbb(:,:,k)) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: Brightness Temperature"/)) + endif + do j=1,nlatitude + do i=1,nlongitude + tbb(i,j,k)=tbb(i,j,k) * scale_factor_tb + add_offset_tb + end do + end do + ! sample display + write(unit=stdout,fmt=*)& + 'tbb(pixel=1,scan=1,chan=',k,'): ', tbb(1,1,k) + end do + + ! read array: satellite zenith angle + ! read + iret = nf90_inq_varid(ncid, 'SAZ', sazid) + allocate( sat_zenith(nlongitude,nlatitude)) + iret = nf90_get_var(ncid, sazid, sat_zenith) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__, & + (/"NETCDF4 read error for: satellite zenith angle"/)) + endif + do j=1,nlatitude + do i=1,nlongitude + sat_zenith(i,j)=sat_zenith(i,j) * scale_factor_tb + end do + end do + ! sample display + write(unit=stdout,fmt=*)& + 'satellite zenith angle(pixel=1,scan=1): ',sat_zenith(1,1) + + ! close infile_tb file + iret = nf90_close(ncid) + + !open infile_clp file + got_clp_file = .false. + iret = nf90_open(fname_clp(ifile), NF90_NOWRITE, ncid) + if ( iret == 0 ) then + got_clp_file = .true. + endif + + if ( got_clp_file ) then + ! read array: satellite zenith angle + rcode = nf90_inq_varid(ncid, 'CLTYPE', cltyid) + allocate( cloud_type(nlongitude,nlatitude)) + iret = nf90_get_var(ncid, cltyid, cloud_type) + if(iret /= 0)then + call da_warning(__FILE__,__LINE__,(/"NETCDF4 read error for: CLTYPE data"/)) + endif + ! sample display + write(unit=stdout,fmt=*)'cloud_type(pixel=1,scan=1): ',cloud_type(1,1) + + ! close infile_clp file + iret = nf90_close(ncid) + end if + +! 2.0 Loop to read netcdf and assign information to a sequential structure +!------------------------------------------------------------------------- + ! Allocate arrays to hold data + if ( .not. head_allocated ) then + allocate (head) + nullify ( head % next ) + p => head + head_allocated = .true. + end if + + ! start scan_loop + scan_loop: do ilatitude=1, nlatitude + + call da_get_julian_time(idate5(1),idate5(2),idate5(3),idate5(4),idate5(5),obs_time) + if ( obs_time < time_slots(0) .or. & + obs_time >= time_slots(num_fgat_time) ) cycle scan_loop + do ifgat=1,num_fgat_time + if ( obs_time >= time_slots(ifgat-1) .and. & + obs_time < time_slots(ifgat) ) exit + end do + + ! start fov_loop + fov_loop: do ilongitude=1, nlongitude + + if ( sat_zenith(ilongitude,ilatitude) > 65.0 ) cycle fov_loop + + num_ahi_file = num_ahi_file + 1 + num_ahi_file_local = num_ahi_file_local + 1 + info%lat = vlatitude(ilatitude) + info%lon = vlongitude(ilongitude) + + call da_llxy (info, loc, outside, outside_all) + if (outside_all) cycle fov_loop + + num_ahi_global = num_ahi_global + 1 + num_ahi_global_local = num_ahi_global_local + 1 + ptotal(ifgat) = ptotal(ifgat) + 1 + if (outside) cycle fov_loop ! No good for this PE + + num_ahi_local = num_ahi_local + 1 + num_ahi_local_local = num_ahi_local_local + 1 + write(unit=info%date_char, & + fmt='(i4.4,a,i2.2,a,i2.2,a,i2.2,a,i2.2,a,i2.2)') & + idate5(1), '-', idate5(2), '-', idate5(3), '_', idate5(4), & + ':', idate5(5), ':', idate5(6) + info%elv = 0.0 + +! 3.0 Make Thinning +! Map obs to thinning grid +!------------------------------------------------------------------- + if (thinning) then + dlat_earth = info%lat !degree + dlon_earth = info%lon + if (dlon_earth=r360) dlon_earth = dlon_earth-r360 + dlat_earth = dlat_earth*deg2rad !radian + dlon_earth = dlon_earth*deg2rad + crit = 1. + call map2grids(inst,ifgat,dlat_earth,dlon_earth,crit,iobs,itx,1,itt,iout,iuse) + if (.not. iuse) then + num_ahi_thinned = num_ahi_thinned+1 + cycle fov_loop + end if + end if + + num_ahi_used = num_ahi_used + 1 + data_all = missing_r + + do k=1,nchan + tb = tbb(ilongitude,ilatitude,k) + if( tb < tbmin .or. tb > tbmax ) tb = missing_r + data_all(k)= tb + end do + +! 4.0 assign information to sequential radiance structure +!-------------------------------------------------------------------------- + allocate ( p % tb_inv (1:nchan )) + p%info = info + p%loc = loc + p%landsea_mask = 1 + p%scanpos = ilongitude !nint(sat_zenith(ilongitude,ilatitude))+1.001_r_kind ! + p%satzen = sat_zenith(ilongitude,ilatitude) + p%satazi = 0 + p%solzen = 0 + p%solazi = 0 + p%tb_inv(1:nchan) = data_all(1:nchan) + p%sensor_index = inst + p%ifgat = ifgat + p%cloudflag = cloud_type(ilongitude,ilatitude) + + allocate (p%next) ! add next data + p => p%next + nullify (p%next) + end do fov_loop + end do scan_loop + + write(stdout,fmt='(3a,i7)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_file : ',num_ahi_file_local + write(stdout,fmt='(3a,i7)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_global : ',num_ahi_global_local + write(stdout,fmt='(3a,i7)') ' In file: ',trim(fname_tb(ifile)),' got num_ahi_local : ',num_ahi_local_local + end do infile_loop + + deallocate(data_all) ! Deallocate data arrays + deallocate(vlatitude) + deallocate(vlongitude) + deallocate(tbb) + deallocate(sat_zenith) + if( got_clp_file ) deallocate(cloud_type) + + if (thinning .and. num_ahi_global > 0 ) then +#ifdef DM_PARALLEL + ! Get minimum crit and associated processor index. + j = 0 + do ifgat = 1, num_fgat_time + j = j + thinning_grid(inst,ifgat)%itxmax + end do + + allocate ( in (j) ) + allocate ( out (j) ) + j = 0 + do ifgat = 1, num_fgat_time + do i = 1, thinning_grid(inst,ifgat)%itxmax + j = j + 1 + in(j) = thinning_grid(inst,ifgat)%score_crit(i) + end do + end do + call mpi_reduce(in, out, j, true_mpi_real, mpi_min, root, comm, ierr) + + call wrf_dm_bcast_real (out, j) + + j = 0 + do ifgat = 1, num_fgat_time + do i = 1, thinning_grid(inst,ifgat)%itxmax + j = j + 1 + if ( ABS(out(j)-thinning_grid(inst,ifgat)%score_crit(i)) > 1.0E-10 ) & + thinning_grid(inst,ifgat)%ibest_obs(i) = 0 + end do + end do + + deallocate( in ) + deallocate( out ) + +#endif + + ! Delete the nodes which being thinning out + p => head + prev => head + head_found = .false. + num_ahi_used_tmp = num_ahi_used + do j = 1, num_ahi_used_tmp + n = p%sensor_index + ifgat = p%ifgat + found = .false. + + do i = 1, thinning_grid(n,ifgat)%itxmax + if ( thinning_grid(n,ifgat)%ibest_obs(i) == j .and. thinning_grid(n,ifgat)%score_crit(i) < 9.99e6_r_kind ) then + found = .true. + exit + end if + end do + + ! free current data + if ( .not. found ) then + current => p + p => p%next + if ( head_found ) then + prev%next => p + else + head => p + prev => p + end if + deallocate ( current % tb_inv ) + deallocate ( current ) + num_ahi_thinned = num_ahi_thinned + 1 + num_ahi_used = num_ahi_used - 1 + continue + end if + + if ( found .and. head_found ) then + prev => p + p => p%next + continue + end if + + if ( found .and. .not. head_found ) then + head_found = .true. + head => p + prev => p + p => p%next + end if + + end do + + end if ! End of thinning + + iv%total_rad_pixel = iv%total_rad_pixel + num_ahi_used + iv%total_rad_channel = iv%total_rad_channel + num_ahi_used*nchan + + iv%info(radiance)%nlocal = iv%info(radiance)%nlocal + num_ahi_used + iv%info(radiance)%ntotal = iv%info(radiance)%ntotal + num_ahi_global + + do i = 1, num_fgat_time + ptotal(i) = ptotal(i) + ptotal(i-1) + iv%info(radiance)%ptotal(i) = iv%info(radiance)%ptotal(i) + ptotal(i) + end do + if ( iv%info(radiance)%ptotal(num_fgat_time) /= iv%info(radiance)%ntotal ) then + write(unit=message(1),fmt='(A,I10,A,I10)') & + "Number of ntotal:",iv%info(radiance)%ntotal," is different from the sum of ptotal:", iv%info(radiance)%ptotal(num_fgat_time) + call da_warning(__FILE__,__LINE__,message(1:1)) + endif + + write(unit=stdout,fmt='(a)') 'AHI data counts: ' + write(stdout,fmt='(a,i7)') ' In file: ',num_ahi_file + write(stdout,fmt='(a,i7)') ' Global : ',num_ahi_global + write(stdout,fmt='(a,i7)') ' Local : ',num_ahi_local + write(stdout,fmt='(a,i7)') ' Used : ',num_ahi_used + write(stdout,fmt='(a,i7)') ' Thinned: ',num_ahi_thinned + +! 5.0 allocate innovation radiance structure +!---------------------------------------------------------------- + + if (num_ahi_used > 0) then + iv%instid(inst)%num_rad = num_ahi_used + iv%instid(inst)%info%nlocal = num_ahi_used + write(UNIT=stdout,FMT='(a,i3,2x,a,3x,i10)') & + 'Allocating space for radiance innov structure', & + inst, iv%instid(inst)%rttovid_string, iv%instid(inst)%num_rad + call da_allocate_rad_iv (inst, nchan, iv) + end if + +! 6.0 assign sequential structure to innovation structure +!------------------------------------------------------------- + p => head + + do n = 1, num_ahi_used + i = p%sensor_index + call da_initialize_rad_iv (i, n, iv, p) + current => p + p => p%next + ! free current data + deallocate ( current % tb_inv ) + deallocate ( current ) + end do + deallocate ( p ) + deallocate (ptotal) + + if (trace_use) call da_trace_exit("da_read_obs_netcdf4ahi_jaxa") + +end subroutine da_read_obs_netcdf4ahi_jaxa diff --git a/var/da/da_radiance/da_rttov.f90 b/var/da/da_radiance/da_rttov.f90 index 9b85c271ad..9150a87a4e 100644 --- a/var/da/da_radiance/da_rttov.f90 +++ b/var/da/da_radiance/da_rttov.f90 @@ -12,10 +12,11 @@ module da_rttov i_kind,r_kind, r_double, & one, zero, three,deg2rad, q2ppmv, & coefs, opts,opts_rt_ir, rttov_inst_name - use module_radiance, only : rttov_options, rttov_opts_rt_ir, rttov_coefs, profile_type, & - transmission_type, radiance_type, rttov_chanprof, & + use module_radiance, only : rttov_options, rttov_opts_rt_ir, rttov_coefs, rttov_profile, & + rttov_transmission, rttov_radiance, rttov_chanprof, & jpim, jprb, errorstatus_success, errorstatus_fatal, gas_id_watervapour, & - sensor_id_ir, sensor_id_mw, sensor_id_hi,rttov_emissivity + atlas, atlas_type, atlas_id, atlas_type_ir, atlas_type_mw, & + sensor_id_ir, sensor_id_mw, sensor_id_hi, sensor_id_po, rttov_emissivity use da_control, only : max_ob_levels,missing_r, & v_interp_p, v_interp_h, tovs_batch, gravity, & diff --git a/var/da/da_radiance/da_rttov_ad.inc b/var/da/da_radiance/da_rttov_ad.inc index ba790fbcdd..e9a31cd457 100644 --- a/var/da/da_radiance/da_rttov_ad.inc +++ b/var/da/da_radiance/da_rttov_ad.inc @@ -20,7 +20,7 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & ! RTTOV input parameters type (rttov_chanprof), allocatable :: chanprof(:) - type (profile_type), allocatable :: profiles(:), profiles_ad(:) + type (rttov_profile), allocatable :: profiles(:), profiles_ad(:) type (rttov_emissivity), allocatable :: emissivity(:), emissivity_ad(:) logical, allocatable :: calcemis(:) @@ -28,8 +28,8 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & integer :: errorstatus ! RTTOV inout parameters - type (radiance_type) :: radiance, radiance_ad - type (transmission_type) :: transmission, transmission_ad + type (rttov_radiance) :: radiance, radiance_ad + type (rttov_transmission) :: transmission, transmission_ad call da_trace_entry("da_rttov_ad") @@ -94,7 +94,7 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & profiles(n) % cloud(:,:) = 0.0 profiles(n) % cfrac(:) = 0.0 profiles(n) % idg = 1 - profiles(n) % ish = 1 + profiles(n) % ice_scheme = 1 end if profiles(n) % skin % surftype = aux_vars (n) % surftype @@ -106,7 +106,8 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & end if end if - if ( coefs(inst)%coef%id_sensor == sensor_id_mw ) then + if ( coefs(inst)%coef%id_sensor == sensor_id_mw .or. & + coefs(inst)%coef%id_sensor == sensor_id_po ) then if ( profiles(n) % skin % surftype == 2 ) then profiles(n) % skin % fastem (1) = 2.2 profiles(n) % skin % fastem (2) = 3.7 @@ -164,7 +165,7 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & call rttov_alloc_transmission( & & errorstatus, & & transmission, & - & nlevels-1, & + & nlevels, & & nchanprof, & & asw, & & init = .true. ) @@ -177,7 +178,7 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & call rttov_alloc_transmission( & & errorstatus, & & transmission_ad, & - & nlevels-1, & + & nlevels, & & nchanprof, & & asw, & & init = .true. ) @@ -192,7 +193,7 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & & errorstatus, & & nchanprof, & & radiance, & - & nlevels-1, & + & nlevels, & & asw, & & init=.true. ) if ( errorstatus /= errorstatus_success ) then @@ -205,7 +206,7 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & & errorstatus, & & nchanprof, & & radiance_ad, & - & nlevels-1, & + & nlevels, & & asw, & & init=.true. ) if ( errorstatus /= errorstatus_success ) then @@ -218,11 +219,13 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & radiance_ad % clear ((n-1)*nchanl+1:n*nchanl) = 0.0 end do - if (coefs(inst)%coef%id_sensor == 1 .or. coefs(inst)%coef%id_sensor == 3) then ! infrared sensor + if ( coefs(inst)%coef%id_sensor == sensor_id_ir .or. & + coefs(inst)%coef%id_sensor == sensor_id_hi ) then ! infrared sensor calcemis(1:nchanprof) = .true. emissivity(1:nchanprof)%emis_in = 0.0 emissivity_ad(1:nchanprof)%emis_in = 0.0 - else if (coefs(inst)%coef%id_sensor == 2) then ! microwave sensor + else if ( coefs(inst)%coef%id_sensor == sensor_id_mw .or. & + coefs(inst)%coef%id_sensor == sensor_id_po ) then ! microwave sensor do n = 1, nprofiles if ( profiles(n) % skin % surftype == 1) then ! sea calcemis((n-1)*nchanl+1:n*nchanl) = .true. @@ -291,24 +294,24 @@ subroutine da_rttov_ad( inst, nchanl, nprofiles, con_vars, & asw = 0 ! deallocation ! deallocate radiance arrays - call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels-1,asw) + call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"radiance deallocation error"/)) end if - call rttov_alloc_rad (errorstatus,nchanprof,radiance_ad,nlevels-1,asw) + call rttov_alloc_rad (errorstatus,nchanprof,radiance_ad,nlevels,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"radiance AD deallocation error"/)) end if ! deallocate transmission arrays - call rttov_alloc_transmission (errorstatus,transmission,nlevels-1,nchanprof,asw) + call rttov_alloc_transmission (errorstatus,transmission,nlevels,nchanprof,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"transmission deallocation error"/)) end if - call rttov_alloc_transmission (errorstatus,transmission_ad,nlevels-1,nchanprof,asw) + call rttov_alloc_transmission (errorstatus,transmission_ad,nlevels,nchanprof,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"transmission AD deallocation error"/)) diff --git a/var/da/da_radiance/da_rttov_direct.inc b/var/da/da_radiance/da_rttov_direct.inc index bc94a7b4b4..0af155f5e4 100644 --- a/var/da/da_radiance/da_rttov_direct.inc +++ b/var/da/da_radiance/da_rttov_direct.inc @@ -24,15 +24,15 @@ subroutine da_rttov_direct(inst, nchanl, nprofiles, nlevels, & ! RTTOV input parameters type (rttov_chanprof), allocatable :: chanprof(:) - type (profile_type), allocatable :: profiles(:) + type (rttov_profile), allocatable :: profiles(:) logical, allocatable :: calcemis(:) ! RTTOV out parameters integer :: errorstatus ! RTTOV inout parameters - type (radiance_type) :: radiance - type (transmission_type) :: transmission + type (rttov_radiance) :: radiance + type (rttov_transmission) :: transmission call da_trace_entry("da_rttov_direct") @@ -79,7 +79,7 @@ subroutine da_rttov_direct(inst, nchanl, nprofiles, nlevels, & profiles(n) % cloud(:,:) = 0.0 profiles(n) % cfrac(:) = 0.0 profiles(n) % idg = 1 - profiles(n) % ish = 1 + profiles(n) % ice_scheme = 1 end if profiles(n)% skin % surftype = aux_vars(n) % surftype @@ -93,7 +93,8 @@ subroutine da_rttov_direct(inst, nchanl, nprofiles, nlevels, & ! for microwave channels, land/sea-ce emissivity is computed ! from coefs in prof%skin%fastem, if calcemis = True - if ( coefs(inst)%coef%id_sensor == sensor_id_mw ) then + if ( coefs(inst)%coef%id_sensor == sensor_id_mw .or. & + coefs(inst)%coef%id_sensor == sensor_id_po ) then if ( profiles(n) % skin % surftype == 2 ) then ! sea-ice profiles(n) % skin % fastem (1) = 2.2 profiles(n) % skin % fastem (2) = 3.7 @@ -143,7 +144,7 @@ subroutine da_rttov_direct(inst, nchanl, nprofiles, nlevels, & & errorstatus, & & nchanprof, & & radiance, & - & nlevels-1, & + & nlevels, & & asw, & & init = .true. ) if ( errorstatus /= errorstatus_success ) then @@ -162,7 +163,7 @@ subroutine da_rttov_direct(inst, nchanl, nprofiles, nlevels, & call rttov_alloc_transmission( & & errorstatus, & & transmission, & - & nlevels-1, & + & nlevels, & & nchanprof, & & asw, & & init = .true. ) @@ -226,14 +227,14 @@ subroutine da_rttov_direct(inst, nchanl, nprofiles, nlevels, & deallocate (chanprof) asw = 0 ! deallocate radiance arrays - call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels-1,asw) + call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"radiance deallocation error"/)) end if asw = 0 ! deallocate transmission arrays - call rttov_alloc_transmission (errorstatus,transmission,nlevels-1,nchanprof,asw) + call rttov_alloc_transmission (errorstatus,transmission,nlevels,nchanprof,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"transmission deallocation error"/)) diff --git a/var/da/da_radiance/da_rttov_init.inc b/var/da/da_radiance/da_rttov_init.inc index 7c783ebfe0..6728b7adf3 100644 --- a/var/da/da_radiance/da_rttov_init.inc +++ b/var/da/da_radiance/da_rttov_init.inc @@ -39,6 +39,7 @@ subroutine da_rttov_init(iv,ob,nsensor,nchan) ! local variables !---------------- integer :: mxchn + integer(jpim) :: id_sensor if (trace_use) call da_trace_entry("da_rttov_init") @@ -55,6 +56,10 @@ subroutine da_rttov_init(iv,ob,nsensor,nchan) allocate (opts_rt_ir(nsensor)) allocate (sensor(3,nsensor)) allocate (coefs_channels(mxchn,nsensor)) + if ( rttov_emis_atlas_ir > 0 .or. rttov_emis_atlas_mw > 0 ) then + allocate (atlas_type(nsensor)) + allocate (atlas_id(nsensor)) + end if sensor (1,1:nsensor) = rtminit_platform (1:nsensor) sensor (2,1:nsensor) = rtminit_satid (1:nsensor) @@ -129,6 +134,19 @@ subroutine da_rttov_init(iv,ob,nsensor,nchan) iv%instid(n)%nlevels = coefs(n)%coef%nlevels + if ( rttov_emis_atlas_ir > 0 .or. rttov_emis_atlas_mw > 0 ) then + id_sensor = coefs(n)%coef%id_sensor + atlas_type(n) = 0 + if( id_sensor == sensor_id_ir .OR. id_sensor == sensor_id_hi ) then + atlas_type(n) = atlas_type_ir +! atlas_id(n) = uwiremis_atlas_id !(Previous WRFDA default) + atlas_id(n) = rttov_emis_atlas_ir !(namelist variable, can either be 1=uwiremis or 2=camel) + end if + if( id_sensor == sensor_id_mw .OR. id_sensor == sensor_id_po ) then + atlas_type(n) = atlas_type_mw + atlas_id(n) = rttov_emis_atlas_mw !(namelist variable, can either be 1=TELSEM2 or 2=CNRW) + end if + end if end do deallocate (sensor) diff --git a/var/da/da_radiance/da_rttov_k.inc b/var/da/da_radiance/da_rttov_k.inc index 432ce6f7b0..975853109f 100644 --- a/var/da/da_radiance/da_rttov_k.inc +++ b/var/da/da_radiance/da_rttov_k.inc @@ -24,7 +24,7 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & ! RTTOV input parameters type (rttov_chanprof), allocatable :: chanprof(:) - type (profile_type), allocatable :: profiles(:), profiles_k(:) + type (rttov_profile), allocatable :: profiles(:), profiles_k(:) logical, allocatable :: calcemis(:) ! RTTOV out parameters @@ -32,8 +32,8 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & ! RTTOV inout parameters type (rttov_emissivity), allocatable :: emissivity_k(:) - type (radiance_type) :: radiance, radiance_k - type (transmission_type) :: transmission, transmission_k + type (rttov_radiance) :: radiance, radiance_k + type (rttov_transmission) :: transmission, transmission_k call da_trace_entry("da_rttov_k") @@ -96,7 +96,7 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & profiles(n) % cloud(:,:) = 0.0 profiles(n) % cfrac(:) = 0.0 profiles(n) % idg = 1 - profiles(n) % ish = 1 + profiles(n) % ice_scheme = 1 end if profiles(n)% skin % surftype = aux_vars(n) % surftype @@ -110,7 +110,8 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & ! for microwave channels, land/sea-ce emissivity is computed ! from coefs in prof%skin%fastem, if calcemis = True - if ( coefs(inst)%coef%id_sensor == sensor_id_mw ) then + if ( coefs(inst)%coef%id_sensor == sensor_id_mw .or. & + coefs(inst)%coef%id_sensor == sensor_id_po ) then if ( profiles(n) % skin % surftype == 2 ) then profiles(n) % skin % fastem (1) = 2.2 profiles(n) % skin % fastem (2) = 3.7 @@ -167,7 +168,7 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & & errorstatus, & & nchanprof, & & radiance, & - & nlevels-1, & + & nlevels, & & asw, & & init = .true. ) if ( errorstatus /= errorstatus_success ) then @@ -180,7 +181,7 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & & errorstatus, & & nchanprof, & & radiance_k, & - & nlevels-1, & + & nlevels, & & asw, & & init = .true. ) if ( errorstatus /= errorstatus_success ) then @@ -193,7 +194,7 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & call rttov_alloc_transmission( & & errorstatus, & & transmission, & - & nlevels-1, & + & nlevels, & & nchanprof, & & asw, & & init = .true. ) @@ -206,7 +207,7 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & call rttov_alloc_transmission( & & errorstatus, & & transmission_k, & - & nlevels-1, & + & nlevels, & & nchanprof, & & asw, & & init = .true. ) @@ -290,24 +291,24 @@ subroutine da_rttov_k(inst, nchanl, nprofiles, nlevels, & asw = 0 ! deallocation ! deallocate radiance arrays - call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels-1,asw) + call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"radiance deallocation error"/)) end if - call rttov_alloc_rad (errorstatus,nchanprof,radiance_k,nlevels-1,asw) + call rttov_alloc_rad (errorstatus,nchanprof,radiance_k,nlevels,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"radiance K deallocation error"/)) end if ! deallocate transmission arrays - call rttov_alloc_transmission (errorstatus,transmission,nlevels-1,nchanprof,asw) + call rttov_alloc_transmission (errorstatus,transmission,nlevels,nchanprof,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"transmission deallocation error"/)) end if - call rttov_alloc_transmission (errorstatus,transmission_k,nlevels-1,nchanprof,asw) + call rttov_alloc_transmission (errorstatus,transmission_k,nlevels,nchanprof,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"transmission K deallocation error"/)) diff --git a/var/da/da_radiance/da_rttov_tl.inc b/var/da/da_radiance/da_rttov_tl.inc index e8a7bfe63b..9dc4de9fcf 100644 --- a/var/da/da_radiance/da_rttov_tl.inc +++ b/var/da/da_radiance/da_rttov_tl.inc @@ -21,7 +21,7 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & ! RTTOV input parameters type (rttov_chanprof), allocatable :: chanprof(:) - type (profile_type), allocatable :: profiles(:), profiles_tl(:) + type (rttov_profile), allocatable :: profiles(:), profiles_tl(:) logical, allocatable :: calcemis(:) type (rttov_emissivity), allocatable :: emissivity(:), emissivity_tl(:) @@ -29,8 +29,8 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & integer :: errorstatus ! RTTOV inout parameters - type (radiance_type) :: radiance, radiance_tl - type (transmission_type) :: transmission, transmission_tl + type (rttov_radiance) :: radiance, radiance_tl + type (rttov_transmission) :: transmission, transmission_tl call da_trace_entry("da_rttov_tl") @@ -95,7 +95,7 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & profiles(n) % cloud(:,:) = 0.0 profiles(n) % cfrac(:) = 0.0 profiles(n) % idg = 1 - profiles(n) % ish = 1 + profiles(n) % ice_scheme = 1 end if profiles(n)% skin % surftype = aux_vars(n) % surftype @@ -107,7 +107,8 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & end if end if - if ( coefs(inst)%coef%id_sensor == sensor_id_mw ) then + if ( coefs(inst)%coef%id_sensor == sensor_id_mw .or. & + coefs(inst)%coef%id_sensor == sensor_id_po ) then if ( profiles(n) % skin % surftype == 2 ) then profiles(n) % skin % fastem (1) = 2.2 profiles(n) % skin % fastem (2) = 3.7 @@ -169,7 +170,7 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & call rttov_alloc_transmission( & & errorstatus, & & transmission, & - & nlevels-1, & + & nlevels, & & nchanprof, & & asw, & & init = .true. ) @@ -182,7 +183,7 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & call rttov_alloc_transmission( & & errorstatus, & & transmission_tl, & - & nlevels-1, & + & nlevels, & & nchanprof, & & asw, & & init = .true. ) @@ -197,7 +198,7 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & & errorstatus, & & nchanprof, & & radiance, & - & nlevels-1, & + & nlevels, & & asw, & & init = .true. ) if ( errorstatus /= errorstatus_success ) then @@ -210,7 +211,7 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & & errorstatus, & & nchanprof, & & radiance_tl, & - & nlevels-1, & + & nlevels, & & asw, & & init = .true. ) if ( errorstatus /= errorstatus_success ) then @@ -218,11 +219,13 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & (/"memory allocation error for radiance TL arrays"/)) end if - if ( coefs(inst)%coef%id_sensor == 1 .or. coefs(inst)%coef%id_sensor == 3 ) then ! infrared sensor + if ( coefs(inst)%coef%id_sensor == sensor_id_ir .or. & + coefs(inst)%coef%id_sensor == sensor_id_hi ) then ! infrared sensor calcemis(1:nchanprof) = .true. emissivity(1:nchanprof)%emis_in = 0.0 emissivity_tl(1:nchanprof)%emis_in = 0.0 - else if ( coefs(inst)%coef%id_sensor == 2 ) then ! microwave sensor + else if ( coefs(inst)%coef%id_sensor == sensor_id_mw .or. & + coefs(inst)%coef%id_sensor == sensor_id_po ) then ! microwave sensor do n = 1, nprofiles if ( profiles(n) % skin % surftype == 1 ) then ! sea calcemis((n-1)*nchanl+1:n*nchanl) = .true. @@ -288,24 +291,24 @@ subroutine da_rttov_tl(inst, nchanl, nprofiles, con_vars, aux_vars, & asw = 0 ! deallocation ! deallocate radiance arrays - call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels-1,asw) + call rttov_alloc_rad (errorstatus,nchanprof,radiance,nlevels,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"radiance deallocation error"/)) end if - call rttov_alloc_rad (errorstatus,nchanprof,radiance_tl,nlevels-1,asw) + call rttov_alloc_rad (errorstatus,nchanprof,radiance_tl,nlevels,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"radiance TL deallocation error"/)) end if ! deallocate transmission arrays - call rttov_alloc_transmission (errorstatus,transmission,nlevels-1,nchanprof,asw) + call rttov_alloc_transmission (errorstatus,transmission,nlevels,nchanprof,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"transmission deallocation error"/)) end if - call rttov_alloc_transmission (errorstatus,transmission_tl,nlevels-1,nchanprof,asw) + call rttov_alloc_transmission (errorstatus,transmission_tl,nlevels,nchanprof,asw) if ( errorstatus /= errorstatus_success ) then call da_error(__FILE__,__LINE__, & (/"transmission TL deallocation error"/)) diff --git a/var/da/da_radiance/da_setup_radiance_structures.inc b/var/da/da_radiance/da_setup_radiance_structures.inc index e74a953367..1b664e1dc7 100644 --- a/var/da/da_radiance/da_setup_radiance_structures.inc +++ b/var/da/da_radiance/da_setup_radiance_structures.inc @@ -19,6 +19,8 @@ subroutine da_setup_radiance_structures( grid, ob, iv ) real :: rlonlat(4) ! crtm_cloud integer :: n1,n2,k,its,ite,jts,jte,kts,kte,inst + integer :: data_format, iret ! AHI radiance related + integer :: ahi_info_unit if (trace_use) call da_trace_entry("da_setup_radiance_structures") @@ -199,6 +201,40 @@ subroutine da_setup_radiance_structures( grid, ob, iv ) call da_error(__FILE__,__LINE__,message(1:1)) #endif end if + if (use_ahiobs) then + call da_get_unit(ahi_info_unit) + open(unit=ahi_info_unit,file='ahi_info',status='old',iostat=iret) + if(iret /= 0)then + call da_error(__FILE__,__LINE__,(/"Read ahi_info error: no such file"/)) + end if + + !read ahi information + read(ahi_info_unit,*) + read(ahi_info_unit,*) data_format + close(ahi_info_unit) + call da_free_unit(ahi_info_unit) + + if (data_format==1) then +#if defined(HDF5) + write(unit=stdout,fmt='(a)') 'Reading AHI data from cma hdf5' + call da_read_obs_hdf5ahi (iv, 'L1AHITBR', 'L2AHICLP') +#else + call da_error(__FILE__,__LINE__,(/"To read AHI data, WRFDA must be compiled with HDF5"/)) +#endif + end if + if (data_format==2) then + write(unit=stdout,fmt='(a)') 'Reading AHI data from geocat NETCDF4' + call da_read_obs_netcdf4ahi_geocat (iv, 'L1AHITBR', 'L2AHICLP') + end if + if (data_format==3) then + write(unit=stdout,fmt='(a)') 'Reading AHI data from JAXA NETCDF4' + call da_read_obs_netcdf4ahi_jaxa (iv, 'L1AHITBR', 'L2AHICLP') + end if + !if (data_format==4) then + !filename = 'ahi' + !call da_read_obs_bufrahi ('ahi ',iv, filename) + !end if + end if if (use_goesimgobs) then write(unit=stdout,fmt='(a)') 'Reading netcdf goes imager GVAR data' !if (imager_format==1)then @@ -228,19 +264,12 @@ subroutine da_setup_radiance_structures( grid, ob, iv ) if ( use_simulated_rad ) then write(unit=stdout,fmt='(a)') 'Reading simulated radiance' - - call da_read_simulated_rad (iv) - - end if if ( use_pseudo_rad ) then write(unit=stdout,fmt='(a)') 'Reading pseudo radiance from namelist' - call da_read_pseudo_rad (iv) - - end if if (use_kma1dvar) then @@ -265,7 +294,6 @@ subroutine da_setup_radiance_structures( grid, ob, iv ) call da_sort_rad(iv) - !----------------------------------------------------------------------------- ! [3.0] create (smaller) ob structure: !----------------------------------------------------------------------------- @@ -300,7 +328,6 @@ subroutine da_setup_radiance_structures( grid, ob, iv ) end do endif - if (trace_use) call da_trace_exit("da_setup_radiance_structures") end subroutine da_setup_radiance_structures diff --git a/var/da/da_radiance/module_radiance.f90 b/var/da/da_radiance/module_radiance.f90 index 9a83cd8969..cd42cb5d0a 100644 --- a/var/da/da_radiance/module_radiance.f90 +++ b/var/da/da_radiance/module_radiance.f90 @@ -14,17 +14,22 @@ module module_radiance gas_id_watervapour, & sensor_id_ir, & sensor_id_mw, & - sensor_id_hi + sensor_id_hi, & + sensor_id_po use rttov_types, only : & rttov_options, & rttov_opts_rt_ir, & rttov_coefs, & - profile_type, & - transmission_type, & - radiance_type, & + rttov_profile, & + rttov_transmission, & + rttov_radiance, & rttov_chanprof, & rttov_emissivity use parkind1, only : jpim, jprb + use mod_rttov_emis_atlas, only : & + rttov_emis_atlas_data, & + atlas_type_mw, & + atlas_type_ir #endif #ifdef CRTM @@ -111,7 +116,7 @@ module module_radiance & 'coriolis', 'npp ', 'gifts ', 'tiros ', 'meghat ', & & 'kalpana ', 'tiros ', 'fy3 ', 'coms ', 'xxxxxxxx', & & 'xxxxxxxx', 'xxxxxxxx', 'reserved', 'gcom-w ', 'xxxxxxxx', & - & 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx'/) + & 'himawari', 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx'/) ! cf. rttov_inst_name above and CRTM: v2.1.3 User Guide Table B.1 ! List of instruments !!!! HIRS is number 0 @@ -131,7 +136,7 @@ module module_radiance & 'mwts ', 'mwhs ', 'iras ', 'mwri ', 'abi ', & & 'xxxxxxxx', 'xxxxxxxx', 'reserved', 'xxxxxxxx', 'xxxxxxxx', & & 'reserved', 'reserved', 'reserved', 'reserved', 'xxxxxxxx', & - & 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', & + & 'xxxxxxxx', 'ahi ', 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', & & 'xxxxxxxx', 'xxxxxxxx', 'xxxxxxxx', 'amsr2 ', 'vissr ', & & 'xxxxxxxx'/) @@ -139,6 +144,8 @@ module module_radiance type (rttov_coefs), allocatable :: coefs(:) ! coefficients structure type (rttov_options), allocatable :: opts(:) ! options structure type (rttov_opts_rt_ir), allocatable :: opts_rt_ir(:) ! options structure + type (rttov_emis_atlas_data) :: atlas + integer(jpim), allocatable :: atlas_type(:), atlas_id(:) #endif type satinfo_type diff --git a/var/da/da_rain/da_check_max_iv_rain.inc b/var/da/da_rain/da_check_max_iv_rain.inc index c3128e4a2c..0a6d84c0ca 100644 --- a/var/da/da_rain/da_check_max_iv_rain.inc +++ b/var/da/da_rain/da_check_max_iv_rain.inc @@ -31,8 +31,10 @@ subroutine da_check_max_iv_rain(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,rain,10,1)= num_qcstat_conv(1,rain,10,1) + 1 if (failed) then num_qcstat_conv(2,rain,10,1)= num_qcstat_conv(2,rain,10,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'Rainfall','Rain',iv%info(rain)%lat(1,n),iv%info(rain)%lon(1,n),'-8888.88' + end if end if end if end if diff --git a/var/da/da_rain/da_rain.f90 b/var/da/da_rain/da_rain.f90 index 77fc73ec66..3be85e1bc3 100644 --- a/var/da/da_rain/da_rain.f90 +++ b/var/da/da_rain/da_rain.f90 @@ -15,7 +15,7 @@ module da_rain max_stheight_diff,missing_data,anal_type_verify, & anal_type_verify,max_ext_its,qcstat_conv_unit,ob_vars, & ids,ide,jds,jde,kds,kde, ims,ime,jms,jme,kms,kme, & - ips,ipe,jps,jpe,kps,kpe,num_fgat_time + ips,ipe,jps,jpe,kps,kpe,num_fgat_time, write_rej_obs_conv use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type diff --git a/var/da/da_satem/da_check_max_iv_satem.inc b/var/da/da_satem/da_check_max_iv_satem.inc index 3db0f61c20..35dfdb7315 100644 --- a/var/da/da_satem/da_check_max_iv_satem.inc +++ b/var/da/da_satem/da_check_max_iv_satem.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_satem(iv, it, num_qcstat_conv) num_qcstat_conv(1,satem,9,ipr-1) = num_qcstat_conv(1,satem,9,ipr-1) + 1 if (failed) then num_qcstat_conv(2,satem,9,ipr-1) = num_qcstat_conv(2,satem,9,ipr-1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'satem',ob_vars(9),iv%info(satem)%lat(k,n),iv%info(satem)%lon(k,n),0.01*iv%satem(n)%p(k) + end if end if end if end if diff --git a/var/da/da_satem/da_satem.f90 b/var/da/da_satem/da_satem.f90 index f0c00cb8fd..7f25456a17 100644 --- a/var/da/da_satem/da_satem.f90 +++ b/var/da/da_satem/da_satem.f90 @@ -9,7 +9,7 @@ module da_satem max_error_p,max_error_q, check_max_iv_unit,check_max_iv, & max_stheight_diff,missing_data,max_error_bq,max_error_slp, & max_error_bt, max_error_buv, satem,max_error_thickness, above_model_lid,& - ob_vars,qcstat_conv_unit + ob_vars,qcstat_conv_unit, write_rej_obs_conv use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type, & diff --git a/var/da/da_setup_structures/da_setup_obs_structures.inc b/var/da/da_setup_structures/da_setup_obs_structures.inc index 24fdeb3810..02a05da24a 100644 --- a/var/da/da_setup_structures/da_setup_obs_structures.inc +++ b/var/da/da_setup_structures/da_setup_obs_structures.inc @@ -91,7 +91,8 @@ subroutine da_setup_obs_structures( grid, ob, iv, j_cost) use_hsbobs .OR. use_kma1dvar .OR. use_filtered_rad .OR. & use_ssmisobs .OR. use_hirs4obs .OR. use_mhsobs .OR. use_pseudo_rad .OR. & use_mwtsobs .OR. use_mwhsobs .OR. use_atmsobs .OR. use_simulated_rad .OR. & - use_iasiobs .OR. use_seviriobs .OR. use_amsr2obs .OR. use_goesimgobs) then + use_iasiobs .OR. use_seviriobs .OR. use_amsr2obs .OR. use_goesimgobs .OR. & + use_ahiobs) then use_rad = .true. else use_rad = .false. @@ -188,6 +189,20 @@ subroutine da_setup_obs_structures( grid, ob, iv, j_cost) pseudo_var(i:i)=char(icode + 97 - 65) end if end do + + if ( num_pseudo > 0 .and. & + (trim(adjustl(pseudo_var))=='qcw' .or. & + trim(adjustl(pseudo_var))=='qrn' .or. & + trim(adjustl(pseudo_var))=='qci' .or. & + trim(adjustl(pseudo_var))=='qsn' .or. & + trim(adjustl(pseudo_var))=='qgr') ) then + if ( cloud_cv_options < 2 ) then + write(unit=message(1),fmt='(A,A)') & + 'cloud_cv_options should be 2 or 3 for pseudo_var = ', trim(pseudo_var) + call da_error(__FILE__,__LINE__,message(1:1)) + end if + end if + pseudo_tpw = .false. pseudo_ztd = .false. pseudo_ref = .false. diff --git a/var/da/da_setup_structures/da_setup_pseudo_obs.inc b/var/da/da_setup_structures/da_setup_pseudo_obs.inc index 608e322384..b5ac6608be 100644 --- a/var/da/da_setup_structures/da_setup_pseudo_obs.inc +++ b/var/da/da_setup_structures/da_setup_pseudo_obs.inc @@ -31,11 +31,17 @@ subroutine da_setup_pseudo_obs(grid, iv, ob) ob%nlocal(pseudo) = 0 iv%info(pseudo)%nlocal = 0 iv%info(pseudo)%ntotal = 0 - iv%info(pseudo)%plocal(iv%time) = 0 - iv%info(pseudo)%ptotal(iv%time) = 0 + iv%info(pseudo)%plocal(:) = 0 + iv%info(pseudo)%ptotal(:) = 0 end if - iv%time = 1 + if ( var4d ) then + ! make sure pseudo_time is within valid range + pseudo_time = min(num_fgat_time,max(1,pseudo_time)) + iv%time = pseudo_time + else + iv%time = 1 + end if ! Find out if pseudo ob is local outside = .false. @@ -50,18 +56,18 @@ subroutine da_setup_pseudo_obs(grid, iv, ob) ! setup gpsref structure if ( pseudo_ref ) then - iv%info(gpsref)%ptotal(1) = num_pseudo + iv%info(gpsref)%ptotal(0:iv%time-1) = 0 + iv%info(gpsref)%ptotal(iv%time:max_fgat_time) = num_pseudo iv%info(gpsref)%ntotal = num_pseudo if (outside) then ob%nlocal(gpsref) = 0 iv%info(gpsref)%nlocal = 0 - iv%info(gpsref)%plocal(iv%time) = 0 + iv%info(gpsref)%plocal(:) = 0 else ob%nlocal(gpsref) = num_pseudo iv%info(gpsref)%nlocal = num_pseudo - iv%info(gpsref)%plocal(1) = num_pseudo - iv%info(gpsref)%n1 = 1 - iv%info(gpsref)%n2 = 1 + iv%info(gpsref)%plocal(0:iv%time-1) = 0 + iv%info(gpsref)%plocal(iv%time:max_fgat_time) = num_pseudo iv%info(gpsref)%max_lev = 1 allocate(iv%gpsref(1:iv%info(gpsref)%nlocal)) call da_allocate_obs_info(iv, gpsref) @@ -98,18 +104,18 @@ subroutine da_setup_pseudo_obs(grid, iv, ob) ! setup gpspw structure if ( pseudo_tpw .or. pseudo_ztd ) then - iv%info(gpspw)%ptotal(1) = num_pseudo + iv%info(gpspw)%ptotal(0:iv%time-1) = 0 + iv%info(gpspw)%ptotal(iv%time:max_fgat_time) = num_pseudo iv%info(gpspw)%ntotal = num_pseudo if (outside) then ob%nlocal(gpspw) = 0 iv%info(gpspw)%nlocal = 0 - iv%info(gpspw)%plocal(iv%time) = 0 + iv%info(gpspw)%plocal(:) = 0 else ob%nlocal(gpspw) = num_pseudo iv%info(gpspw)%nlocal = num_pseudo - iv%info(gpspw)%plocal(1) = num_pseudo - iv%info(gpspw)%n1 = 1 - iv%info(gpspw)%n2 = 1 + iv%info(gpspw)%plocal(0:iv%time-1) = 0 + iv%info(gpspw)%plocal(iv%time:max_fgat_time) = num_pseudo allocate(iv%gpspw(1:iv%info(gpspw)%nlocal)) call da_allocate_obs_info(iv, gpspw) iv%info(gpspw)%proc_domain(:,:) = .true. @@ -151,15 +157,17 @@ subroutine da_setup_pseudo_obs(grid, iv, ob) if ( pseudo_uvtpq ) then iv%info(pseudo)%ntotal = num_pseudo - iv%info(pseudo)%ptotal(iv%time) = num_pseudo + iv%info(pseudo)%ptotal(0:iv%time-1) = 0 + iv%info(pseudo)%ptotal(iv%time:max_fgat_time) = num_pseudo if (outside) then ob%nlocal(pseudo) = 0 iv%info(pseudo)%nlocal = 0 - iv%info(pseudo)%plocal(iv%time) = 0 + iv%info(pseudo)%plocal(:) = 0 else ob%nlocal(pseudo) = num_pseudo iv%info(pseudo)%nlocal = num_pseudo - iv%info(pseudo)%plocal(iv%time) = num_pseudo + iv%info(pseudo)%plocal(0:iv%time-1) = 0 + iv%info(pseudo)%plocal(iv%time:max_fgat_time) = num_pseudo iv%info(pseudo)%max_lev = 1 allocate (iv%pseudo(1:iv%info(pseudo)%nlocal)) call da_allocate_obs_info(iv, pseudo) diff --git a/var/da/da_setup_structures/da_setup_structures.f90 b/var/da/da_setup_structures/da_setup_structures.f90 index 435416744e..b5c89d5a42 100644 --- a/var/da/da_setup_structures/da_setup_structures.f90 +++ b/var/da/da_setup_structures/da_setup_structures.f90 @@ -54,7 +54,7 @@ module da_setup_structures use_simulated_rad, use_pseudo_rad, pseudo_rad_platid, pseudo_rad_satid, & pseudo_rad_senid, rtminit_nsensor, rtminit_platform, rtminit_satid, & rtminit_sensor, thinning, qc_rad, var4d, & - num_pseudo,pseudo_x, pseudo_y, pseudo_z, pseudo_var,pseudo_val, pseudo_err,& + num_pseudo,pseudo_x, pseudo_y, pseudo_z, pseudo_var,pseudo_val, pseudo_err, pseudo_time, & fg_format, fg_format_wrf_arw_regional,fg_format_wrf_nmm_regional, & fg_format_wrf_arw_global, fg_format_kma_global, deg_to_rad, rad_to_deg, & sonde_sfc, missing_data, missing_r, qc_good, thin_mesh_conv, time_slots, ifgat_ana, & @@ -66,7 +66,7 @@ module da_setup_structures chi_u_t_factor, chi_u_ps_factor,chi_u_rh_factor, t_u_rh_factor, ps_u_rh_factor, & interpolate_stats, be_eta, thin_rainobs, fgat_rain_flags, use_iasiobs, & use_seviriobs, jds_int, jde_int, anal_type_hybrid_dual_res, use_amsr2obs, nrange, use_4denvar, & - use_goesimgobs + use_goesimgobs, use_ahiobs use da_control, only: rden_bin, use_lsac use da_control, only: use_cv_w use da_control, only: pseudo_tpw, pseudo_ztd, pseudo_ref, pseudo_uvtpq, pseudo_elv, anal_type_qcobs diff --git a/var/da/da_ships/da_check_max_iv_ships.inc b/var/da/da_ships/da_check_max_iv_ships.inc index 0d43db7579..fac99a966a 100644 --- a/var/da/da_ships/da_check_max_iv_ships.inc +++ b/var/da/da_ships/da_check_max_iv_ships.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,ships,1,1) = num_qcstat_conv(1,ships,1,1) + 1 if(failed) then num_qcstat_conv(2,ships,1,1) = num_qcstat_conv(2,ships,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(1),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p + end if end if end if end if @@ -47,8 +49,10 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,ships,2,1) = num_qcstat_conv(1,ships,2,1) + 1 if(failed)then num_qcstat_conv(2,ships,2,1) = num_qcstat_conv(2,ships,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(2),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p + end if end if end if end if @@ -62,8 +66,10 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,ships,1,1) = num_qcstat_conv(1,ships,1,1) + 1 if(failed) then num_qcstat_conv(2,ships,1,1) = num_qcstat_conv(2,ships,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(1),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p + end if end if end if end if @@ -74,8 +80,10 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,ships,2,1) = num_qcstat_conv(1,ships,2,1) + 1 if(failed)then num_qcstat_conv(2,ships,2,1) = num_qcstat_conv(2,ships,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(2),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p + end if end if end if end if @@ -110,11 +118,15 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,ships,1,1) = num_qcstat_conv(2,ships,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(1),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p + end if num_qcstat_conv(2,ships,2,1) = num_qcstat_conv(2,ships,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(2),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p + end if endif endif @@ -143,11 +155,13 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,ships,3,1)= num_qcstat_conv(1,ships,3,1) + 1 if(failed) then num_qcstat_conv(2,ships,3,1)= num_qcstat_conv(2,ships,3,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(3),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p end if end if end if + end if failed=.false. if( iv%ships(n)%p%qc >= obs_qc_pointer ) then @@ -156,11 +170,13 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,ships,5,1)= num_qcstat_conv(1,ships,5,1) + 1 if(failed) then num_qcstat_conv(2,ships,5,1)= num_qcstat_conv(2,ships,5,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(5),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p end if end if end if + end if failed=.false. if( iv%ships(n)%q%qc >= obs_qc_pointer ) then @@ -175,10 +191,12 @@ subroutine da_check_max_iv_ships(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,ships,4,1)= num_qcstat_conv(1,ships,4,1) + 1 if(failed) then num_qcstat_conv(2,ships,4,1)= num_qcstat_conv(2,ships,4,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ships',ob_vars(4),iv%info(ships)%lat(1,n),iv%info(ships)%lon(1,n),0.01*ob%ships(n)%p end if end if + end if end if end do diff --git a/var/da/da_ships/da_ships.f90 b/var/da/da_ships/da_ships.f90 index 4e1d6dd5bd..86c9e9db4e 100644 --- a/var/da/da_ships/da_ships.f90 +++ b/var/da/da_ships/da_ships.f90 @@ -12,7 +12,7 @@ module da_ships qcstat_conv_unit,ob_vars, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, & max_omb_spd, max_omb_dir, pi, qc_rej_both, & - wind_sd_ships, wind_stats_sd + wind_sd_ships, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv, da_ffdduv_model, da_ffdduv_diagnose use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type diff --git a/var/da/da_sound/da_check_max_iv_sonde_sfc.inc b/var/da/da_sound/da_check_max_iv_sonde_sfc.inc index 99a728fbd2..bf6e9d0801 100644 --- a/var/da/da_sound/da_check_max_iv_sonde_sfc.inc +++ b/var/da/da_sound/da_check_max_iv_sonde_sfc.inc @@ -35,8 +35,10 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,1,1) = num_qcstat_conv(1,sonde_sfc,1,1) + 1 if(failed) then num_qcstat_conv(2,sonde_sfc,1,1) = num_qcstat_conv(2,sonde_sfc,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(1),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p + end if end if end if end if @@ -48,8 +50,10 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,2,1) = num_qcstat_conv(1,sonde_sfc,2,1) + 1 if(failed)then num_qcstat_conv(2,sonde_sfc,2,1) = num_qcstat_conv(2,sonde_sfc,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(2),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p + end if end if end if end if @@ -61,8 +65,10 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,1,1) = num_qcstat_conv(1,sonde_sfc,1,1) + 1 if(failed) then num_qcstat_conv(2,sonde_sfc,1,1) = num_qcstat_conv(2,sonde_sfc,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(1),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p + end if end if end if end if @@ -74,8 +80,10 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,2,1) = num_qcstat_conv(1,sonde_sfc,2,1) + 1 if(failed)then num_qcstat_conv(2,sonde_sfc,2,1) = num_qcstat_conv(2,sonde_sfc,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(2),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p + end if end if end if end if @@ -110,11 +118,15 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,2,1) = num_qcstat_conv(1,sonde_sfc,2,1) + 1 if(failed1 .or. failed2) then num_qcstat_conv(2,sonde_sfc,1,1) = num_qcstat_conv(2,sonde_sfc,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(1),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p + end if num_qcstat_conv(2,sonde_sfc,2,1) = num_qcstat_conv(2,sonde_sfc,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(2),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p + end if endif endif @@ -143,11 +155,13 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,3,1)= num_qcstat_conv(1,sonde_sfc,3,1) + 1 if(failed) then num_qcstat_conv(2,sonde_sfc,3,1)= num_qcstat_conv(2,sonde_sfc,3,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(3),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p end if end if end if + end if failed=.false. if( iv%sonde_sfc(n)%p%qc >= obs_qc_pointer ) then @@ -156,11 +170,13 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,5,1)= num_qcstat_conv(1,sonde_sfc,5,1) + 1 if(failed) then num_qcstat_conv(2,sonde_sfc,5,1)= num_qcstat_conv(2,sonde_sfc,5,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(5),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p end if end if end if + end if failed=.false. if( iv%sonde_sfc(n)%q%qc >= obs_qc_pointer ) then @@ -175,10 +191,12 @@ subroutine da_check_max_iv_sonde_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,sonde_sfc,4,1)= num_qcstat_conv(1,sonde_sfc,4,1) + 1 if(failed) then num_qcstat_conv(2,sonde_sfc,4,1)= num_qcstat_conv(2,sonde_sfc,4,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sonde_sfc',ob_vars(4),iv%info(sonde_sfc)%lat(1,n),iv%info(sonde_sfc)%lon(1,n),0.01*ob%sonde_sfc(n)%p end if end if + end if end if end do diff --git a/var/da/da_sound/da_check_max_iv_sound.inc b/var/da/da_sound/da_check_max_iv_sound.inc index aa90dcc97a..8e8a2ce9f3 100644 --- a/var/da/da_sound/da_check_max_iv_sound.inc +++ b/var/da/da_sound/da_check_max_iv_sound.inc @@ -35,8 +35,10 @@ subroutine da_check_max_iv_sound(iv, it,num_qcstat_conv) num_qcstat_conv(1,sound,1,ipr) = num_qcstat_conv(1,sound,1,ipr) + 1 if(failed) then num_qcstat_conv(2,sound,1,ipr) = num_qcstat_conv(2,sound,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(1),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if end if end if end if @@ -48,8 +50,10 @@ subroutine da_check_max_iv_sound(iv, it,num_qcstat_conv) num_qcstat_conv(1,sound,2,ipr) = num_qcstat_conv(1,sound,2,ipr) + 1 if(failed)then num_qcstat_conv(2,sound,2,ipr) = num_qcstat_conv(2,sound,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(2),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if end if end if end if @@ -61,8 +65,10 @@ subroutine da_check_max_iv_sound(iv, it,num_qcstat_conv) num_qcstat_conv(1,sound,1,ipr) = num_qcstat_conv(1,sound,1,ipr) + 1 if(failed) then num_qcstat_conv(2,sound,1,ipr) = num_qcstat_conv(2,sound,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(1),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if end if end if end if @@ -74,8 +80,10 @@ subroutine da_check_max_iv_sound(iv, it,num_qcstat_conv) num_qcstat_conv(1,sound,2,ipr) = num_qcstat_conv(1,sound,2,ipr) + 1 if(failed)then num_qcstat_conv(2,sound,2,ipr) = num_qcstat_conv(2,sound,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(2),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if end if end if end if @@ -111,11 +119,15 @@ subroutine da_check_max_iv_sound(iv, it,num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,sound,1,ipr) = num_qcstat_conv(2,sound,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(1),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if num_qcstat_conv(2,sound,2,ipr) = num_qcstat_conv(2,sound,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(2),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if endif endif @@ -145,8 +157,10 @@ subroutine da_check_max_iv_sound(iv, it,num_qcstat_conv) num_qcstat_conv(1,sound,3,ipr) = num_qcstat_conv(1,sound,3,ipr) + 1 if(failed) then num_qcstat_conv(2,sound,3,ipr) = num_qcstat_conv(2,sound,3,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(3),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if end if end if end if @@ -164,8 +178,10 @@ subroutine da_check_max_iv_sound(iv, it,num_qcstat_conv) num_qcstat_conv(1,sound,4,ipr) = num_qcstat_conv(1,sound,4,ipr) + 1 if(failed) then num_qcstat_conv(2,sound,4,ipr) = num_qcstat_conv(2,sound,4,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'sound',ob_vars(4),iv%info(sound)%lat(k,n),iv%info(sound)%lon(k,n),0.01*iv%sound(n)%p(k) + end if end if end if end if diff --git a/var/da/da_sound/da_sound.f90 b/var/da/da_sound/da_sound.f90 index f64edcb43d..fd6963bba2 100644 --- a/var/da/da_sound/da_sound.f90 +++ b/var/da/da_sound/da_sound.f90 @@ -10,7 +10,7 @@ module da_sound kms,kme,kts,kte,sfc_assi_options_1,sfc_assi_options_2, num_procs, comm, & trace_use_dull, sound, sonde_sfc, position_lev_dependant, max_ext_its,qcstat_conv_unit,ob_vars, & convert_fd2uv,convert_uv2fd,max_error_spd,max_error_dir,max_omb_spd,max_omb_dir,pi,qc_rej_both, & - wind_sd_sound, wind_stats_sd + wind_sd_sound, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv,da_ffdduv_model, da_ffdduv_diagnose #ifdef DM_PARALLEL diff --git a/var/da/da_ssmi/da_check_max_iv_ssmi_rv.inc b/var/da/da_ssmi/da_check_max_iv_ssmi_rv.inc index e09077eeaa..2f3ab549b9 100644 --- a/var/da/da_ssmi/da_check_max_iv_ssmi_rv.inc +++ b/var/da/da_ssmi/da_check_max_iv_ssmi_rv.inc @@ -31,8 +31,10 @@ subroutine da_check_max_iv_ssmi_rv(iv, it, num_qcstat_conv) num_qcstat_conv(1,ssmi_rv,7,1) = num_qcstat_conv(1,ssmi_rv,7,1) + 1 if(failed) then num_qcstat_conv(2,ssmi_rv,7,1) = num_qcstat_conv(2,ssmi_rv,7,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'ssmi_rv',ob_vars(7),iv%info(ssmi_rv)%lat(1,n),iv%info(ssmi_rv)%lon(1,n),'1013.25' + end if end if end if end if @@ -44,8 +46,10 @@ subroutine da_check_max_iv_ssmi_rv(iv, it, num_qcstat_conv) num_qcstat_conv(1,ssmi_rv,6,1) = num_qcstat_conv(1,ssmi_rv,6,1) + 1 if(failed)then num_qcstat_conv(2,ssmi_rv,6,1) = num_qcstat_conv(2,ssmi_rv,6,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,2f12.2,a12)')& 'ssmi_rv',ob_vars(6),iv%info(ssmi_rv)%lat(1,n),iv%info(ssmi_rv)%lon(1,n),'1013.25' + endif endif end if end if diff --git a/var/da/da_ssmi/da_check_max_iv_ssmt1.inc b/var/da/da_ssmi/da_check_max_iv_ssmt1.inc index e3806f6cbd..d5ebfaa2d5 100644 --- a/var/da/da_ssmi/da_check_max_iv_ssmt1.inc +++ b/var/da/da_ssmi/da_check_max_iv_ssmt1.inc @@ -35,11 +35,13 @@ subroutine da_check_max_iv_ssmt1(iv, it, num_qcstat_conv) num_qcstat_conv(1,ssmt1,3,ipr) = num_qcstat_conv(1,ssmt1,3,ipr) + 1 if(failed) then num_qcstat_conv(2,ssmt1,3,ipr) = num_qcstat_conv(2,ssmt1,3,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ssmt1',ob_vars(3),iv%info(ssmt1)%lat(k,n),iv%info(ssmt1)%lon(k,n),0.01*iv%ssmt1(n)%p(k) endif endif endif + endif end do end do diff --git a/var/da/da_ssmi/da_check_max_iv_ssmt2.inc b/var/da/da_ssmi/da_check_max_iv_ssmt2.inc index 1bfbc556af..c7ddf7aa3e 100644 --- a/var/da/da_ssmi/da_check_max_iv_ssmt2.inc +++ b/var/da/da_ssmi/da_check_max_iv_ssmt2.inc @@ -35,11 +35,13 @@ subroutine da_check_max_iv_ssmt2(iv, it, num_qcstat_conv) num_qcstat_conv(1,ssmt2,4,ipr) = num_qcstat_conv(1,ssmt2,4,ipr) + 1 if(failed)then num_qcstat_conv(2,ssmt2,4,ipr) = num_qcstat_conv(2,ssmt2,4,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'ssmt2',ob_vars(4),iv%info(ssmt2)%lat(k,n),iv%info(ssmt2)%lon(k,n),0.01*iv%ssmt2(n)%p(k) endif endif endif + endif end do end do diff --git a/var/da/da_ssmi/da_ssmi.f90 b/var/da/da_ssmi/da_ssmi.f90 index 7d209ae6ea..a41bb54a92 100644 --- a/var/da/da_ssmi/da_ssmi.f90 +++ b/var/da/da_ssmi/da_ssmi.f90 @@ -15,7 +15,8 @@ module da_ssmi test_transforms,stdout, use_ssmiretrievalobs, use_ssmitbobs, & global, print_detail_obs, max_ssmi_rv_input, max_ssmi_tb_input, & its,ite,jts,jte,kts,kte,kms,kme,ids,ide,jds,jde,fails_error_max, & - ssmi_tb, ssmi_rv, num_ob_indexes, ssmt1, ssmt2, ob_vars,qcstat_conv_unit + ssmi_tb, ssmi_rv, num_ob_indexes, ssmt1, ssmt2, ob_vars,qcstat_conv_unit, & + write_rej_obs_conv use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type, & maxmin_type,residual_ssmi_rv_type, & diff --git a/var/da/da_synop/da_check_max_iv_synop.inc b/var/da/da_synop/da_check_max_iv_synop.inc index 83a29148ae..0dab74af81 100644 --- a/var/da/da_synop/da_check_max_iv_synop.inc +++ b/var/da/da_synop/da_check_max_iv_synop.inc @@ -34,8 +34,10 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,synop,1,1) = num_qcstat_conv(1,synop,1,1) + 1 if(failed) then num_qcstat_conv(2,synop,1,1) = num_qcstat_conv(2,synop,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(1),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p + end if end if end if end if @@ -47,8 +49,10 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,synop,2,1) = num_qcstat_conv(1,synop,2,1) + 1 if(failed)then num_qcstat_conv(2,synop,2,1) = num_qcstat_conv(2,synop,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(2),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p + end if end if end if end if @@ -60,8 +64,10 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,synop,1,1) = num_qcstat_conv(1,synop,1,1) + 1 if(failed) then num_qcstat_conv(2,synop,1,1) = num_qcstat_conv(2,synop,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(1),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p + end if end if end if end if @@ -73,8 +79,10 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,synop,2,1) = num_qcstat_conv(1,synop,2,1) + 1 if(failed)then num_qcstat_conv(2,synop,2,1) = num_qcstat_conv(2,synop,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(2),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p + end if end if end if end if @@ -110,11 +118,15 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,synop,1,1) = num_qcstat_conv(2,synop,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(1),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p + end if num_qcstat_conv(2,synop,2,1) = num_qcstat_conv(2,synop,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(2),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p + end if endif endif @@ -144,11 +156,13 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,synop,3,1)= num_qcstat_conv(1,synop,3,1) + 1 if(failed) then num_qcstat_conv(2,synop,3,1)= num_qcstat_conv(2,synop,3,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(3),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p end if end if end if + end if failed=.false. if( iv%synop(n)%p%qc >= obs_qc_pointer ) then @@ -157,11 +171,13 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,synop,5,1)= num_qcstat_conv(1,synop,5,1) + 1 if(failed) then num_qcstat_conv(2,synop,5,1)= num_qcstat_conv(2,synop,5,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(5),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p end if end if end if + end if failed=.false. if( iv%synop(n)%q%qc >= obs_qc_pointer ) then @@ -176,10 +192,12 @@ subroutine da_check_max_iv_synop(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,synop,4,1)= num_qcstat_conv(1,synop,4,1) + 1 if(failed) then num_qcstat_conv(2,synop,4,1)= num_qcstat_conv(2,synop,4,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'synop',ob_vars(4),iv%info(synop)%lat(1,n),iv%info(synop)%lon(1,n),0.01*ob%synop(n)%p end if end if + end if end if end do diff --git a/var/da/da_synop/da_synop.f90 b/var/da/da_synop/da_synop.f90 index 0d18ec149a..e401773b22 100644 --- a/var/da/da_synop/da_synop.f90 +++ b/var/da/da_synop/da_synop.f90 @@ -13,7 +13,7 @@ module da_synop trace_use_dull, synop, max_ext_its,qcstat_conv_unit,ob_vars, & convert_fd2uv, convert_uv2fd, max_error_spd, max_error_dir, & max_omb_spd, max_omb_dir, pi, qc_rej_both, & - wind_sd_synop, wind_stats_sd + wind_sd_synop, wind_stats_sd, write_rej_obs_conv use da_control, only : surface_correction, sfc_hori_intp_options, & q_error_options, sfcht_adjust_q, obs_err_inflate, stn_ht_diff_scale use da_grid_definitions, only : da_ffdduv, da_ffdduv_model, da_ffdduv_diagnose diff --git a/var/da/da_tamdar/da_check_max_iv_tamdar.inc b/var/da/da_tamdar/da_check_max_iv_tamdar.inc index b0b1b4759b..301b69e62e 100644 --- a/var/da/da_tamdar/da_check_max_iv_tamdar.inc +++ b/var/da/da_tamdar/da_check_max_iv_tamdar.inc @@ -35,8 +35,10 @@ subroutine da_check_max_iv_tamdar(iv, it,num_qcstat_conv) num_qcstat_conv(1,tamdar,1,ipr) = num_qcstat_conv(1,tamdar,1,ipr) + 1 if(failed) then num_qcstat_conv(2,tamdar,1,ipr) = num_qcstat_conv(2,tamdar,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(1),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if end if end if end if @@ -48,8 +50,10 @@ subroutine da_check_max_iv_tamdar(iv, it,num_qcstat_conv) num_qcstat_conv(1,tamdar,2,ipr) = num_qcstat_conv(1,tamdar,2,ipr) + 1 if(failed)then num_qcstat_conv(2,tamdar,2,ipr) = num_qcstat_conv(2,tamdar,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(2),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if end if end if end if @@ -61,8 +65,10 @@ subroutine da_check_max_iv_tamdar(iv, it,num_qcstat_conv) num_qcstat_conv(1,tamdar,1,ipr) = num_qcstat_conv(1,tamdar,1,ipr) + 1 if(failed) then num_qcstat_conv(2,tamdar,1,ipr) = num_qcstat_conv(2,tamdar,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(1),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if end if end if end if @@ -74,8 +80,10 @@ subroutine da_check_max_iv_tamdar(iv, it,num_qcstat_conv) num_qcstat_conv(1,tamdar,2,ipr) = num_qcstat_conv(1,tamdar,2,ipr) + 1 if(failed)then num_qcstat_conv(2,tamdar,2,ipr) = num_qcstat_conv(2,tamdar,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(2),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if end if end if end if @@ -111,11 +119,15 @@ subroutine da_check_max_iv_tamdar(iv, it,num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,tamdar,1,ipr) = num_qcstat_conv(2,tamdar,1,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(1),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if num_qcstat_conv(2,tamdar,2,ipr) = num_qcstat_conv(2,tamdar,2,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(2),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if endif endif @@ -144,8 +156,10 @@ subroutine da_check_max_iv_tamdar(iv, it,num_qcstat_conv) num_qcstat_conv(1,tamdar,3,ipr) = num_qcstat_conv(1,tamdar,3,ipr) + 1 if(failed) then num_qcstat_conv(2,tamdar,3,ipr) = num_qcstat_conv(2,tamdar,3,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(3),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if end if end if end if @@ -163,8 +177,10 @@ subroutine da_check_max_iv_tamdar(iv, it,num_qcstat_conv) num_qcstat_conv(1,tamdar,4,ipr) = num_qcstat_conv(1,tamdar,4,ipr) + 1 if(failed) then num_qcstat_conv(2,tamdar,4,ipr) = num_qcstat_conv(2,tamdar,4,ipr) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar',ob_vars(4),iv%info(tamdar)%lat(k,n),iv%info(tamdar)%lon(k,n),0.01*iv%tamdar(n)%p(k) + end if end if end if end if diff --git a/var/da/da_tamdar/da_check_max_iv_tamdar_sfc.inc b/var/da/da_tamdar/da_check_max_iv_tamdar_sfc.inc index c8682470a0..d8d5ad624f 100644 --- a/var/da/da_tamdar/da_check_max_iv_tamdar_sfc.inc +++ b/var/da/da_tamdar/da_check_max_iv_tamdar_sfc.inc @@ -35,8 +35,10 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,tamdar_sfc,1,1) = num_qcstat_conv(1,tamdar_sfc,1,1) + 1 if(failed) then num_qcstat_conv(2,tamdar_sfc,1,1) = num_qcstat_conv(2,tamdar_sfc,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(1),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p + end if end if end if end if @@ -48,8 +50,10 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,tamdar_sfc,2,1) = num_qcstat_conv(1,tamdar_sfc,2,1) + 1 if(failed)then num_qcstat_conv(2,tamdar_sfc,2,1) = num_qcstat_conv(2,tamdar_sfc,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(2),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p + end if end if end if end if @@ -61,8 +65,10 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,tamdar_sfc,1,1) = num_qcstat_conv(1,tamdar_sfc,1,1) + 1 if(failed) then num_qcstat_conv(2,tamdar_sfc,1,1) = num_qcstat_conv(2,tamdar_sfc,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(1),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p + end if end if end if end if @@ -74,8 +80,10 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,tamdar_sfc,2,1) = num_qcstat_conv(1,tamdar_sfc,2,1) + 1 if(failed)then num_qcstat_conv(2,tamdar_sfc,2,1) = num_qcstat_conv(2,tamdar_sfc,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(2),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p + end if end if end if end if @@ -111,11 +119,15 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) if(failed1 .or. failed2) then num_qcstat_conv(2,tamdar_sfc,1,1) = num_qcstat_conv(2,tamdar_sfc,1,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(1),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p + end if num_qcstat_conv(2,tamdar_sfc,2,1) = num_qcstat_conv(2,tamdar_sfc,2,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(2),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p + end if endif endif @@ -144,11 +156,13 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,tamdar_sfc,3,1)= num_qcstat_conv(1,tamdar_sfc,3,1) + 1 if(failed) then num_qcstat_conv(2,tamdar_sfc,3,1)= num_qcstat_conv(2,tamdar_sfc,3,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(3),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p end if end if end if + end if failed=.false. if( iv%tamdar_sfc(n)%p%qc >= obs_qc_pointer ) then @@ -157,11 +171,13 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,tamdar_sfc,5,1)= num_qcstat_conv(1,tamdar_sfc,5,1) + 1 if(failed) then num_qcstat_conv(2,tamdar_sfc,5,1)= num_qcstat_conv(2,tamdar_sfc,5,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(5),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p end if end if end if + end if failed=.false. if( iv%tamdar_sfc(n)%q%qc >= obs_qc_pointer ) then @@ -176,11 +192,13 @@ subroutine da_check_max_iv_tamdar_sfc(iv,ob, it, num_qcstat_conv) num_qcstat_conv(1,tamdar_sfc,4,1)= num_qcstat_conv(1,tamdar_sfc,4,1) + 1 if(failed) then num_qcstat_conv(2,tamdar_sfc,4,1)= num_qcstat_conv(2,tamdar_sfc,4,1) + 1 + if ( write_rej_obs_conv ) then write(qcstat_conv_unit,'(2x,a10,2x,a4,3f12.2)')& 'tamdar_sfc',ob_vars(4),iv%info(tamdar_sfc)%lat(1,n),iv%info(tamdar_sfc)%lon(1,n),0.01*ob%tamdar_sfc(n)%p end if end if end if + end if end do diff --git a/var/da/da_tamdar/da_tamdar.f90 b/var/da/da_tamdar/da_tamdar.f90 index befe479d41..34e238c1c3 100644 --- a/var/da/da_tamdar/da_tamdar.f90 +++ b/var/da/da_tamdar/da_tamdar.f90 @@ -12,7 +12,7 @@ module da_tamdar trace_use_dull, tamdar, tamdar_sfc, position_lev_dependant, max_ext_its, & qcstat_conv_unit,ob_vars, fails_error_max, & convert_fd2uv,convert_uv2fd,max_error_spd,max_error_dir,max_omb_spd,max_omb_dir,pi,qc_rej_both, & - wind_sd_tamdar, wind_stats_sd + wind_sd_tamdar, wind_stats_sd, write_rej_obs_conv use da_grid_definitions, only : da_ffdduv,da_ffdduv_model, da_ffdduv_diagnose use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, & bad_data_type, x_type, number_type, bad_data_type diff --git a/var/da/da_update_bc/da_update_bc.f90 b/var/da/da_update_bc/da_update_bc.f90 index 1bb52e9320..a1b2d27122 100644 --- a/var/da/da_update_bc/da_update_bc.f90 +++ b/var/da/da_update_bc/da_update_bc.f90 @@ -43,7 +43,7 @@ program da_update_bc ! for WRF hybrid coordinate integer :: nlevf, nlevh - integer :: hybrid_opt + integer :: hybrid_opt, use_theta_m real, allocatable :: c1f(:), c2f(:), c1h(:), c2h(:) integer :: ids, ide, jds, jde, kds, kde @@ -274,6 +274,11 @@ program da_update_bc allocate ( c2h(nlevh) ) end if + ! initialize as use_theta_m = 0 + use_theta_m = 0 + call da_get_gl_att_int_cdf(da_file, 'USE_THETA_M', use_theta_m, debug, io_status) + write(stdout,*) 'use_theta_m = ', use_theta_m + ! initialize as hybrid_opt = 0 hybrid_opt = 0 c1f(:) = 1.0 @@ -776,11 +781,19 @@ program da_update_bc case ('T', 'PH') ; var_pref=trim(var3d(n)) - call da_get_var_3d_real_cdf( da_file, trim(var3d(n)), & - full3d, dims(1), dims(2), dims(3), 1, debug) - if ( var4d_lbc ) & - call da_get_var_3d_real_cdf( da_file_02, trim(var3d(n)), & - full3d2, dims(1), dims(2), dims(3), 1, debug) + if ( use_theta_m > 0 .and. trim(var3d(n)) == 'T' ) then + call da_get_var_3d_real_cdf( da_file, 'THM', & + full3d, dims(1), dims(2), dims(3), 1, debug) + if ( var4d_lbc ) & + call da_get_var_3d_real_cdf( da_file_02, 'THM', & + full3d2, dims(1), dims(2), dims(3), 1, debug) + else + call da_get_var_3d_real_cdf( da_file, trim(var3d(n)), & + full3d, dims(1), dims(2), dims(3), 1, debug) + if ( var4d_lbc ) & + call da_get_var_3d_real_cdf( da_file_02, trim(var3d(n)), & + full3d2, dims(1), dims(2), dims(3), 1, debug) + end if if (debug) then write(unit=stdout, fmt='(3a,e20.12,4x)') & @@ -1247,8 +1260,13 @@ program da_update_bc case ('T', 'PH') ; var_pref=trim(var3d(n)) - call da_get_var_3d_real_cdf( da_file_02, trim(var3d(n)), & - full3d, dims(1), dims(2), dims(3), 1, debug) + if ( use_theta_m > 0 .and. trim(var3d(n)) == 'T' ) then + call da_get_var_3d_real_cdf( da_file_02, 'THM', & + full3d, dims(1), dims(2), dims(3), 1, debug) + else + call da_get_var_3d_real_cdf( da_file_02, trim(var3d(n)), & + full3d, dims(1), dims(2), dims(3), 1, debug) + end if if (debug) then write(unit=stdout, fmt='(3a,e20.12,4x)') & diff --git a/var/da/da_varbc/da_varbc.f90 b/var/da/da_varbc/da_varbc.f90 index e5356369fc..d3be14a5f3 100644 --- a/var/da/da_varbc/da_varbc.f90 +++ b/var/da/da_varbc/da_varbc.f90 @@ -10,7 +10,7 @@ module da_varbc use da_control, only : trace_use,missing_r, qc_varbc_bad, rtm_option, & stdout,rtm_option_rttov,rtm_option_crtm, filename_len, cv_size_domain, & cv_size_domain_jp, use_varbc, freeze_varbc, varbc_factor, varbc_nobsmin, & - rootproc, varbc_nbgerr, ierr, comm, max_ext_its + rootproc, varbc_nbgerr, ierr, comm, max_ext_its, varbc_scan use da_define_structures, only : iv_type, y_type, be_type, & varbc_info_type,varbc_type use da_radiance1, only : stats_rad_type diff --git a/var/da/da_varbc/da_varbc_pred.inc b/var/da/da_varbc/da_varbc_pred.inc index aeb8d36926..b699d63ab6 100644 --- a/var/da/da_varbc/da_varbc_pred.inc +++ b/var/da/da_varbc/da_varbc_pred.inc @@ -75,9 +75,15 @@ subroutine da_varbc_pred(iv) if (npredmax >= 5) iv%instid(inst)%varbc_info%pred(5,n) = pred_hk(4) ! Scan predictors - if (npredmax >= 6) iv%instid(inst)%varbc_info%pred(6,n) = iv%instid(inst)%scanpos(n) - if (npredmax >= 7) iv%instid(inst)%varbc_info%pred(7,n) = iv%instid(inst)%scanpos(n)**2 - if (npredmax >= 8) iv%instid(inst)%varbc_info%pred(8,n) = iv%instid(inst)%scanpos(n)**3 + if (varbc_scan(inst) == 1) then ! use scanpos for polar-orbiting sensors + if (npredmax >= 6) iv%instid(inst)%varbc_info%pred(6,n) = iv%instid(inst)%scanpos(n) + if (npredmax >= 7) iv%instid(inst)%varbc_info%pred(7,n) = iv%instid(inst)%scanpos(n)**2 + if (npredmax >= 8) iv%instid(inst)%varbc_info%pred(8,n) = iv%instid(inst)%scanpos(n)**3 + else ! use satellite zenith angle for geostationary sensors, now turn them off in VARBC.in + if (npredmax >= 6) iv%instid(inst)%varbc_info%pred(6,n) = iv%instid(inst)%satzen(n) + if (npredmax >= 7) iv%instid(inst)%varbc_info%pred(7,n) = iv%instid(inst)%satzen(n)**2 + if (npredmax >= 8) iv%instid(inst)%varbc_info%pred(8,n) = iv%instid(inst)%satzen(n)**3 + end if end do ! pixel loop end do ! sensor loop diff --git a/var/external/bufr/Makefile b/var/external/bufr/Makefile index 59b0d3d41c..4998affcf7 100644 --- a/var/external/bufr/Makefile +++ b/var/external/bufr/Makefile @@ -22,6 +22,6 @@ library:$(OBJ) $(FC) -c $(FFLAGS) $*.f clean: - rm -f $(OBJ) $(TARGET) irev.f wrdlen.f + @rm -f $(OBJ) $(TARGET) irev.f wrdlen.f superclean: clean diff --git a/var/external/crtm_2.2.3/config-setup/g95-debug.setup b/var/external/crtm_2.2.3/config-setup/g95-debug.setup deleted file mode 100644 index 39b1418eb7..0000000000 --- a/var/external/crtm_2.2.3/config-setup/g95-debug.setup +++ /dev/null @@ -1,19 +0,0 @@ -#!/bin/sh -#-------------------------------------------------------------------------------# -# DEBUG build settings for Linux g95 compiler -#-------------------------------------------------------------------------------# - -export FC="g95" - -export FCFLAGS="\ --fbounds-check \ --ffree-form \ --fno-second-underscore \ --ftrace=frame \ --malign-double \ --Wall" - -export LDFLAGS="" - -export LIBS="" - diff --git a/var/external/crtm_2.2.3/crtm_release_notes.txt b/var/external/crtm_2.2.3/crtm_release_notes.txt deleted file mode 100644 index 8abcdb48a7..0000000000 --- a/var/external/crtm_2.2.3/crtm_release_notes.txt +++ /dev/null @@ -1,52 +0,0 @@ -Release Notes: CRTM library v2.2.3 - -$Revision: 60152 $ - ------------------------------------------------------------ -v2.2.3 - released August 13, 2015 - - * Made minor fixfile changes to include - 1. Corrected the WMO satellite id for DMSP-19 SSMIS in the CRTM fixfiles. - - * Compute resource information - N/A. This is a library used in the GSI. - - ------------------------------------------------------------ -v2.2.2 - released August 12, 2015 - - * Made minor code changes to include - 1. Report invalid WMO Sensor and Satellite identifiers as a WARNING rather than ERROR. - - * Made minor build changes to include - 1. Modification of Intel ifort compiler flags as requested by GSI developers. - - * Compute resource information - N/A. This is a library used in the GSI. - - ------------------------------------------------------------ -v2.2.1 - released April 20, 2015 - - * Made scientific changes to include - 1. Revert ATMS spectral and transmittance coefficients to those derived - from a boxcar response. - - * Compute resource information - N/A. This is a library used in the GSI. - - ------------------------------------------------------------ -v2.2.0 - released April 13, 2015 - - * Made scientific changes to include - 1. Overcast radiances - 2. Reflection correction in microwave sea surface emissivity model for - non-precipitating clouds - 3. ATMS snow emissivity model - 4. Cloud optical property coefficient update for infrared ice clouds. - 5. Software updates to address zeus meta-data server issues (file inquiries) - 6. Implementation of the FASTEM-6 microwave sea surface emissivity model. - - * Compute resource information - N/A. This is a library used in the GSI. diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Version.inc b/var/external/crtm_2.2.3/libsrc/CRTM_Version.inc deleted file mode 100644 index 38f441d555..0000000000 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Version.inc +++ /dev/null @@ -1 +0,0 @@ -'v2.2.3' diff --git a/var/external/crtm_2.2.3/libsrc/UnitTest_Define.f90 b/var/external/crtm_2.2.3/libsrc/UnitTest_Define.f90 deleted file mode 100644 index b8f88d360d..0000000000 --- a/var/external/crtm_2.2.3/libsrc/UnitTest_Define.f90 +++ /dev/null @@ -1,3021 +0,0 @@ -! -! UnitTest_Define -! -! Module defining the UnitTest object -! -! -! CREATION HISTORY: -! Written by: Paul van Delst, 05-Feb-2007 -! paul.vandelst@noaa.gov -! - -MODULE UnitTest_Define - - ! ------------------ - ! Environment setup - ! ----------------- - ! Module usage - USE Type_Kinds , ONLY: Byte, Short, Long, Single, Double - USE Compare_Float_Numbers, ONLY: OPERATOR(.EqualTo.) - ! Disable implicit typing - IMPLICIT NONE - - ! ------------ - ! Visibilities - ! ------------ - ! Everything private by default - PRIVATE - ! Datatypes - PUBLIC :: UnitTest_type - ! Procedures - PUBLIC :: UnitTest_Init - PUBLIC :: UnitTest_Setup - PUBLIC :: UnitTest_Report - PUBLIC :: UnitTest_Summary - PUBLIC :: UnitTest_n_Passed - PUBLIC :: UnitTest_n_Failed - PUBLIC :: UnitTest_Passed - PUBLIC :: UnitTest_Failed - PUBLIC :: UnitTest_Assert - PUBLIC :: UnitTest_IsEqual - PUBLIC :: UnitTest_IsEqualWithin - PUBLIC :: UnitTest_DefineVersion - - - ! --------------------- - ! Procedure overloading - ! --------------------- - ! PUBLIC procedures - INTERFACE UnitTest_IsEqual - ! INTEGER(Byte) procedures - MODULE PROCEDURE intbyte_isequal_scalar - MODULE PROCEDURE intbyte_isequal_rank1 - MODULE PROCEDURE intbyte_isequal_rank2 - ! INTEGER(Short) procedures - MODULE PROCEDURE intshort_isequal_scalar - MODULE PROCEDURE intshort_isequal_rank1 - MODULE PROCEDURE intshort_isequal_rank2 - ! INTEGER(Long) procedures - MODULE PROCEDURE intlong_isequal_scalar - MODULE PROCEDURE intlong_isequal_rank1 - MODULE PROCEDURE intlong_isequal_rank2 - ! REAL(Single) procedures - MODULE PROCEDURE realsp_isequal_scalar - MODULE PROCEDURE realsp_isequal_rank1 - MODULE PROCEDURE realsp_isequal_rank2 - ! REAL(Double) procedures - MODULE PROCEDURE realdp_isequal_scalar - MODULE PROCEDURE realdp_isequal_rank1 - MODULE PROCEDURE realdp_isequal_rank2 - ! COMPLEX(Single) procedures - MODULE PROCEDURE complexsp_isequal_scalar - MODULE PROCEDURE complexsp_isequal_rank1 - MODULE PROCEDURE complexsp_isequal_rank2 - ! COMPLEX(Double) procedures - MODULE PROCEDURE complexdp_isequal_scalar - MODULE PROCEDURE complexdp_isequal_rank1 - MODULE PROCEDURE complexdp_isequal_rank2 - ! CHARACTER(*) procedures - MODULE PROCEDURE char_isequal_scalar - MODULE PROCEDURE char_isequal_rank1 - MODULE PROCEDURE char_isequal_rank2 - END INTERFACE UnitTest_IsEqual - - INTERFACE UnitTest_IsEqualWithin - ! REAL(Single) procedures - MODULE PROCEDURE realsp_isequalwithin_scalar - MODULE PROCEDURE realsp_isequalwithin_rank1 - MODULE PROCEDURE realsp_isequalwithin_rank2 - ! REAL(Double) procedures - MODULE PROCEDURE realdp_isequalwithin_scalar - MODULE PROCEDURE realdp_isequalwithin_rank1 - MODULE PROCEDURE realdp_isequalwithin_rank2 - ! COMPLEX(Single) procedures - MODULE PROCEDURE complexsp_isequalwithin_scalar - MODULE PROCEDURE complexsp_isequalwithin_rank1 - MODULE PROCEDURE complexsp_isequalwithin_rank2 - ! COMPLEX(Double) procedures - MODULE PROCEDURE complexdp_isequalwithin_scalar - MODULE PROCEDURE complexdp_isequalwithin_rank1 - MODULE PROCEDURE complexdp_isequalwithin_rank2 - END INTERFACE UnitTest_IsEqualWithin - - - ! PRIVATE procedures - INTERFACE Get_Multiplier - MODULE PROCEDURE realsp_get_multiplier - MODULE PROCEDURE realdp_get_multiplier - END INTERFACE Get_Multiplier - - - ! ----------------- - ! Module parameters - ! ----------------- - CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: UnitTest_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' - INTEGER, PARAMETER :: SL = 512 - INTEGER, PARAMETER :: CR = 13 - INTEGER, PARAMETER :: LF = 10 - CHARACTER(2), PARAMETER :: CRLF = ACHAR(CR)//ACHAR(LF) - CHARACTER(*), PARAMETER :: RFMT = 'es25.18' - CHARACTER(*), PARAMETER :: ZFMT = '"(",'//RFMT//',",",'//RFMT//',")"' - LOGICAL, PARAMETER :: DEFAULT_VERBOSE = .FALSE. - - ! Message colours - CHARACTER(*), PARAMETER :: GREEN_COLOUR = ACHAR(27)//'[1;32m' - CHARACTER(*), PARAMETER :: RED_COLOUR = ACHAR(27)//'[1;31m' - CHARACTER(*), PARAMETER :: NO_COLOUR = ACHAR(27)//'[0m' - - ! Message levels - INTEGER, PARAMETER :: N_MESSAGE_LEVELS = 6 - INTEGER, PARAMETER :: INIT_LEVEL = 1 - INTEGER, PARAMETER :: SETUP_LEVEL = 2 - INTEGER, PARAMETER :: TEST_LEVEL = 3 - INTEGER, PARAMETER :: REPORT_LEVEL = 4 - INTEGER, PARAMETER :: SUMMARY_LEVEL = 5 - INTEGER, PARAMETER :: INTERNAL_FAIL_LEVEL = 6 - CHARACTER(*), PARAMETER :: MESSAGE_LEVEL(N_MESSAGE_LEVELS) = & - [ 'INIT ', & - 'SETUP ', & - 'TEST ', & - 'REPORT ', & - 'SUMMARY ', & - 'INTERNAL FAILURE' ] - - ! ------------------------ - ! Derived type definitions - ! ------------------------ - !:tdoc+: - TYPE :: UnitTest_type - PRIVATE - ! User accessible test settings - LOGICAL :: Verbose = DEFAULT_VERBOSE - CHARACTER(SL) :: Title = '' - CHARACTER(SL) :: Caller = '' - ! Internal test settings - ! ...Test result messaging - INTEGER :: Level = INIT_LEVEL - CHARACTER(SL) :: Procedure = '' - CHARACTER(SL) :: Message = '' - ! ...Test result (used for array argument procedures) - LOGICAL :: Test_Result = .TRUE. - ! ...Individual test counters - INTEGER :: n_Tests = 0 - INTEGER :: n_Passed_Tests = 0 - INTEGER :: n_Failed_Tests = 0 - ! ...All test counters - INTEGER :: n_AllTests = 0 - INTEGER :: n_Passed_AllTests = 0 - INTEGER :: n_Failed_AllTests = 0 - END TYPE UnitTest_type - !:tdoc-: - -CONTAINS - - -!################################################################################ -!################################################################################ -!## ## -!## ## PUBLIC MODULE ROUTINES ## ## -!## ## -!################################################################################ -!################################################################################ - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_Init -! -! PURPOSE: -! UnitTest initialisation subroutine. -! -! This subroutine should be called ONCE, BEFORE ANY tests are performed. -! -! CALLING SEQUENCE: -! CALL UnitTest_Init( UnitTest, Verbose=Verbose ) -! -! OBJECTS: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT) -! -! OPTIONAL INPUTS: -! Verbose: Logical argument to control length of reporting output. -! If == .FALSE., Only failed tests are reported [DEFAULT]. -! == .TRUE., Both failed and passed tests are reported. -! If not specified, default is .TRUE. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -!:sdoc-: -!------------------------------------------------------------------------------ - - SUBROUTINE UnitTest_Init( UnitTest, Verbose ) - ! Arguments - TYPE(UnitTest_type), INTENT(OUT) :: UnitTest - LOGICAL, OPTIONAL, INTENT(IN) :: Verbose - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_Init' - ! Variables - LOGICAL :: local_Verbose - - ! Check optional arguments - local_Verbose = DEFAULT_VERBOSE - IF ( PRESENT(Verbose) ) local_Verbose = Verbose - - ! Perform initialisation - CALL Set_Property( & - UnitTest, & - Verbose = local_Verbose, & - Level = INIT_LEVEL, & - Procedure = PROCEDURE_NAME, & - n_Tests = 0, & - n_Passed_Tests = 0, & - n_Failed_Tests = 0, & - n_AllTests = 0, & - n_Passed_AllTests = 0, & - n_Failed_AllTests = 0 ) - CALL Display_Message( UnitTest ) - END SUBROUTINE UnitTest_Init - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_Setup -! -! PURPOSE: -! UnitTest individual test setup subroutine. -! -! This subroutine should be called BEFORE each set of tests performed. -! -! CALLING SEQUENCE: -! CALL UnitTest_Setup( UnitTest , & -! Title , & -! Caller = Caller , & -! Verbose = Verbose ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -! INPUTS: -! Title: Character string containing the title of the test -! to be performed. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -! OPTIONAL INPUTS: -! Caller: Character string containing the name of the calling -! subprogram. If not specified, default is an empty string. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Verbose: Logical argument to control length of reporting output. -! If == .FALSE., Only failed tests are reported [DEFAULT]. -! == .TRUE., Both failed and passed tests are reported. -! If not specified, default is .TRUE. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -!:sdoc-: -!------------------------------------------------------------------------------ - - SUBROUTINE UnitTest_Setup( UnitTest, Title, Caller, Verbose ) - ! Arguments - TYPE(UnitTest_type) , INTENT(IN OUT) :: UnitTest - CHARACTER(*) , INTENT(IN) :: Title - CHARACTER(*), OPTIONAL, INTENT(IN) :: Caller - LOGICAL, OPTIONAL, INTENT(IN) :: Verbose - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_Setup' - ! Variables - CHARACTER(SL) :: local_Caller - LOGICAL :: local_Verbose - CHARACTER(SL) :: Message - - ! Check arguments - local_Caller = '' - IF ( PRESENT(Caller) ) local_Caller = '; CALLER: '//TRIM(ADJUSTL(Caller)) - local_Verbose = DEFAULT_VERBOSE - IF ( PRESENT(Verbose) ) local_Verbose = Verbose - - ! Create init message - Message = TRIM(Title)//TRIM(local_Caller) - - ! Perform initialistion - CALL Set_Property( & - UnitTest, & - Title = ADJUSTL(Title), & - Caller = local_Caller , & - Verbose = local_Verbose , & - Level = SETUP_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message, & - n_Tests = 0, & - n_Passed_Tests = 0, & - n_Failed_Tests = 0 ) - CALL Display_Message( UnitTest ) - - END SUBROUTINE UnitTest_Setup - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_Report -! -! PURPOSE: -! UnitTest individual test report subroutine -! -! This subroutine should be called AFTER each set of tests performed. -! -! CALLING SEQUENCE: -! CALL UnitTest_Report( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -!:sdoc-: -!------------------------------------------------------------------------------ - - SUBROUTINE UnitTest_Report( UnitTest ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_Report' - ! Variables - INTEGER :: n_Tests - INTEGER :: n_Passed_Tests - INTEGER :: n_Failed_Tests - CHARACTER(SL) :: Message - CHARACTER(SL) :: Attention - CHARACTER(SL) :: colour - ! Retrieve required properties - CALL Get_Property( & - UnitTest, & - n_Tests = n_Tests , & - n_Passed_Tests = n_Passed_Tests, & - n_Failed_Tests = n_Failed_Tests ) - - ! Test fail attention-grabber - colour = GREEN_COLOUR - Attention = '' - IF ( n_Failed_Tests /= 0 ) THEN - colour = RED_COLOUR - Attention = ' <----<<< **WARNING**' - END IF - - ! Output results - WRITE( Message, & - '(a,a,3x,"Passed ",i0," of ",i0," tests", & - &a,3x,"Failed ",i0," of ",i0," tests",a,a)') & - TRIM(colour), CRLF, & - n_Passed_Tests, n_Tests, & - CRLF, & - n_Failed_Tests, n_Tests, & - TRIM(Attention), NO_COLOUR - CALL Set_Property( & - UnitTest, & - Level = REPORT_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - - END SUBROUTINE UnitTest_Report - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_Summary -! -! PURPOSE: -! UnitTest test suite report summary subroutine -! -! This subroutine should be called ONCE, AFTER ALL tests are performed. -! -! CALLING SEQUENCE: -! CALL UnitTest_Summary( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -!:sdoc-: -!------------------------------------------------------------------------------ - - SUBROUTINE UnitTest_Summary( UnitTest ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_Summary' - ! Variables - INTEGER :: n_AllTests - INTEGER :: n_Passed_AllTests - INTEGER :: n_Failed_AllTests - CHARACTER(SL) :: Message - CHARACTER(SL) :: Attention - CHARACTER(SL) :: colour - - ! Retrieve required properties - CALL Get_Property( & - UnitTest, & - n_AllTests = n_AllTests , & - n_Passed_AllTests = n_Passed_AllTests, & - n_Failed_AllTests = n_Failed_AllTests ) - - ! Test fail attention-grabber - colour = GREEN_COLOUR - Attention = '' - IF ( n_Failed_AllTests /= 0 ) THEN - colour = RED_COLOUR - Attention = ' <----<<< **WARNING**' - END IF - - ! Output results - WRITE( Message, & - '(a,a,1x,"Passed ",i0," of ",i0," total tests",& - &a,1x,"Failed ",i0," of ",i0," total tests",a,a)') & - TRIM(colour), CRLF, & - n_Passed_AllTests, n_AllTests, & - CRLF, & - n_Failed_AllTests, n_AllTests, & - TRIM(Attention), NO_COLOUR - CALL Set_Property( & - UnitTest, & - Level = SUMMARY_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - END SUBROUTINE UnitTest_Summary - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_n_Passed -! -! PURPOSE: -! Utility function to return the number of tests passed. -! -! CALLING SEQUENCE: -! n = UnitTest_n_Passed( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -! FUNCTION RESULT: -! n: The number of unit tests that have currently passed. -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! -!:sdoc-: -!------------------------------------------------------------------------------ - - PURE FUNCTION UnitTest_n_Passed( UnitTest ) RESULT( n ) - TYPE(UnitTest_type), INTENT(IN) :: UnitTest - INTEGER :: n - CALL Get_Property( UnitTest, n_Passed_Tests = n ) - END FUNCTION UnitTest_n_Passed - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_n_Failed -! -! PURPOSE: -! Utility function to return the number of tests failed. -! -! CALLING SEQUENCE: -! n = UnitTest_n_Failed( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -! FUNCTION RESULT: -! n: The number of unit tests that have currently failed. -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! -!:sdoc-: -!------------------------------------------------------------------------------ - - PURE FUNCTION UnitTest_n_Failed( UnitTest ) RESULT( n ) - TYPE(UnitTest_type), INTENT(IN) :: UnitTest - INTEGER :: n - CALL Get_Property( UnitTest, n_Failed_Tests = n ) - END FUNCTION UnitTest_n_Failed - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_Passed -! -! PURPOSE: -! Function to inform if the last test performed passed. -! -! CALLING SEQUENCE: -! result = UnitTest_Passed( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -! FUNCTION RESULT: -! result: Logical to indicate if the last test performed passed. -! If == .TRUE., the last test passed, -! == .FALSE., the last test failed. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! -!:sdoc-: -!------------------------------------------------------------------------------ - - PURE FUNCTION UnitTest_Passed( UnitTest ) RESULT( Passed ) - TYPE(UnitTest_type), INTENT(IN) :: UnitTest - LOGICAL :: Passed - CALL Get_Property( UnitTest, Test_Result = Passed ) - END FUNCTION UnitTest_Passed - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_Failed -! -! PURPOSE: -! Function to inform if the last test performed failed. -! -! Syntactic sugar procedure. -! -! CALLING SEQUENCE: -! result = UnitTest_Failed( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -! FUNCTION RESULT: -! result: Logical to indicate if the last test performed failed. -! If == .TRUE., the last test failed, -! == .FALSE., the last test passed. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! -!:sdoc-: -!------------------------------------------------------------------------------ - - PURE FUNCTION UnitTest_Failed( UnitTest ) RESULT( Failed ) - TYPE(UnitTest_type), INTENT(IN) :: UnitTest - LOGICAL :: Failed - Failed = .NOT. UnitTest_Passed( UnitTest ) - END FUNCTION UnitTest_Failed - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_Assert -! -! PURPOSE: -! Subroutine to assert its test argument -! -! CALLING SEQUENCE: -! CALL UnitTest_Assert(UnitTest, Test) -! -! OBJECTS: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -! INPUTS: -! Test: The logical expression to assert. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -!:sdoc-: -!------------------------------------------------------------------------------ - - SUBROUTINE UnitTest_Assert(UnitTest, Test) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - LOGICAL, INTENT(IN) :: Test - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_Assert' - ! Variables - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - Message = '' - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - CALL Test_Info_String( UnitTest, Message ) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - - END SUBROUTINE UnitTest_Assert - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_IsEqual -! -! PURPOSE: -! Subroutine to assert that two arguments are equal. -! -! CALLING SEQUENCE: -! CALL UnitTest_IsEqual( UnitTest, Expected, Actual ) -! -! OBJECTS: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -! INPUTS: -! Expected: The expected value of the variable being tested. -! UNITS: N/A -! TYPE: INTEGER(Byte) , or -! INTEGER(Short) , or -! INTEGER(Long) , or -! REAL(Single) , or -! REAL(Double) , or -! COMPLEX(Single), or -! COMPLEX(Double), or -! CHARACTER(*) -! DIMENSION: Scalar, or -! Rank-1, or -! Rank-2 -! ATTRIBUTES: INTENT(IN) -! -! Actual: The actual value of the variable being tested. -! UNITS: N/A -! TYPE: Same as Expected input -! DIMENSION: Same as Expected input -! ATTRIBUTES: INTENT(IN) -! -!:sdoc-: -!------------------------------------------------------------------------------ - - SUBROUTINE intbyte_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Byte), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Byte)]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected == Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message,'("Expected ",i0," and got ",i0)') Expected, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE intbyte_isequal_scalar - - - SUBROUTINE intbyte_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Byte), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Byte)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL intbyte_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE intbyte_isequal_rank1 - - - SUBROUTINE intbyte_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Byte), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Byte)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL intbyte_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE intbyte_isequal_rank2 - - - SUBROUTINE intshort_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Short), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Short)]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected == Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message,'("Expected ",i0," and got ",i0)') Expected, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE intshort_isequal_scalar - - - SUBROUTINE intshort_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Short), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Short)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL intshort_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE intshort_isequal_rank1 - - - SUBROUTINE intshort_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Short), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Short)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL intshort_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE intshort_isequal_rank2 - - - SUBROUTINE intlong_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Long), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Long)]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected == Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message,'("Expected ",i0," and got ",i0)') Expected, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE intlong_isequal_scalar - - - SUBROUTINE intlong_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Long), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Long)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL intlong_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE intlong_isequal_rank1 - - - SUBROUTINE intlong_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER(Long), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[INTEGER(Long)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL intlong_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE intlong_isequal_rank2 - - - SUBROUTINE realsp_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Single), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[REAL(Single)]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected .EqualTo. Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//RFMT//',a,& - &7x,"And got: ",'//RFMT//')') & - CRLF, Expected, CRLF, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE realsp_isequal_scalar - - - SUBROUTINE realsp_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Single), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[REAL(Single)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL realsp_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE realsp_isequal_rank1 - - - SUBROUTINE realsp_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[REAL(Single)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL realsp_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE realsp_isequal_rank2 - - - SUBROUTINE realdp_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Double), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[REAL(Double)]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected .EqualTo. Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//RFMT//',a,& - &7x,"And got: ",'//RFMT//')') & - CRLF, Expected, CRLF, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE realdp_isequal_scalar - - - SUBROUTINE realdp_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Double), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[REAL(Double)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL realdp_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE realdp_isequal_rank1 - - - SUBROUTINE realdp_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[REAL(Double)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL realdp_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE realdp_isequal_rank2 - - - SUBROUTINE complexsp_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Single), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[COMPLEX(Single)]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected .EqualTo. Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//ZFMT//',a,& - &7x,"And got: ",'//ZFMT//')') & - CRLF, Expected, CRLF, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE complexsp_isequal_scalar - - - SUBROUTINE complexsp_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[COMPLEX(Single)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL complexsp_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE complexsp_isequal_rank1 - - - SUBROUTINE complexsp_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[COMPLEX(Single)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL complexsp_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE complexsp_isequal_rank2 - - - SUBROUTINE complexdp_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Double), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[COMPLEX(Double)]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected .EqualTo. Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//ZFMT//',a,& - &7x,"And got: ",'//ZFMT//')') & - CRLF, Expected, CRLF, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE complexdp_isequal_scalar - - - SUBROUTINE complexdp_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[COMPLEX(Double)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL complexdp_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE complexdp_isequal_rank1 - - - SUBROUTINE complexdp_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[COMPLEX(Double)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL complexdp_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE complexdp_isequal_rank2 - - - SUBROUTINE char_isequal_scalar( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - CHARACTER(*), INTENT(IN) :: Expected, Actual - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[CHARACTER]' - ! Variables - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Assign the test - Test = (Expected == Actual) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message,'("Expected >",a,"< and got >",a,"<")') Expected, Actual - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE char_isequal_scalar - - - SUBROUTINE char_isequal_rank1( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - CHARACTER(*), INTENT(IN) :: Expected(:), Actual(:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[CHARACTER]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & - isize, SIZE(Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL char_isequal_scalar( UnitTest, Expected(i), Actual(i) ) - END DO - END SUBROUTINE char_isequal_rank1 - - - SUBROUTINE char_isequal_rank2( UnitTest, Expected, Actual ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - CHARACTER(*), INTENT(IN) :: Expected(:,:), Actual(:,:) - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqual[CHARACTER]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL char_isequal_scalar( UnitTest, Expected(i,j), Actual(i,j) ) - END DO - END DO - END SUBROUTINE char_isequal_rank2 - - -!------------------------------------------------------------------------------ -!:sdoc+: -! -! NAME: -! UnitTest_IsEqualWithin -! -! PURPOSE: -! Subroutine to assert that two floating point arguments are equal to -! within the specified tolerance. -! -! CALLING SEQUENCE: -! CALL UnitTest_IsEqualWithin( UnitTest , & -! Expected , & -! Actual , & -! Tolerance, & -! Epsilon_Scale = Epsilon_Scale ) -! -! OBJECTS: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -! INPUTS: -! Expected: The expected value of the variable being tested. -! UNITS: N/A -! TYPE: REAL(Single) , or -! REAL(Double) , or -! COMPLEX(Single), or -! COMPLEX(Double) -! DIMENSION: Scalar, or -! Rank-1, or -! Rank-2 -! ATTRIBUTES: INTENT(IN) -! -! Actual: The actual value of the variable being tested. -! UNITS: N/A -! TYPE: Same as Expected input -! DIMENSION: Same as Expected input -! ATTRIBUTES: INTENT(IN) -! -! Tolerance: The tolerance to within which the Expected and Actual -! values must agree. If negative, the value of -! EPSILON(Expected) -! is used. -! This argument is ignored if the EPSILON_SCALE optional -! argument is specified -! UNITS: N/A -! TYPE: Same as Expected input -! DIMENSION: Same as Expected input -! ATTRIBUTES: INTENT(IN) -! -! OPTIONAL INPUTS: -! Epsilon_Scale: Set this logical flag to compute and use the tolerance -! value: -! EPSILON(Expected) * Scale_Factor -! where the scaling factor is the exponent value of the -! input argument Expected. -! UNITS: N/A -! TYPE: LOGICAL. -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -!:sdoc-: -!------------------------------------------------------------------------------ - - SUBROUTINE realsp_isequalwithin_scalar( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Single), INTENT(IN) :: Expected, Actual, Tolerance - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[REAL(Single)]' - ! Variables - REAL(Single) :: tol - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Default tolerance - tol = Tolerance - ! ...Check optional arguments - IF ( PRESENT(Epsilon_Scale) ) THEN - IF ( Epsilon_Scale ) tol = EPSILON(Expected) * Get_Multiplier( Expected ) - END IF - ! ...Assign the test - Test = (ABS(Expected-Actual) < tol) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//RFMT//',a,& - &7x,"To within: ",'//RFMT//',a,& - &7x,"And got: ",'//RFMT//',a,& - &7x,"|Difference|: ",'//RFMT//')') & - CRLF, Expected, CRLF, tol, CRLF, Actual, CRLF, ABS(Expected-Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE realsp_isequalwithin_scalar - - - SUBROUTINE realsp_isequalwithin_rank1( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Single), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[REAL(Single)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize .OR. & - SIZE(Tolerance) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0,"; Tolerance:",i0)') & - isize, SIZE(Actual), SIZE(Tolerance) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL realsp_isequalwithin_scalar( & - UnitTest , & - Expected(i) , & - Actual(i) , & - Tolerance(i), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END SUBROUTINE realsp_isequalwithin_rank1 - - - SUBROUTINE realsp_isequalwithin_rank2( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[REAL(Single)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize .OR. & - SIZE(Tolerance,DIM=1) /= isize .OR. & - SIZE(Tolerance,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- ",& - &"Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,"); Tolerance:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2), & - SIZE(Tolerance,DIM=1), SIZE(Tolerance,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL realsp_isequalwithin_scalar( & - UnitTest , & - Expected(i,j) , & - Actual(i,j) , & - Tolerance(i,j), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END DO - END SUBROUTINE realsp_isequalwithin_rank2 - - - SUBROUTINE realdp_isequalwithin_scalar( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Double), INTENT(IN) :: Expected, Actual, Tolerance - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[REAL(Double)]' - ! Variables - REAL(Double) :: tol - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Default tolerance - tol = Tolerance - ! ...Check optional arguments - IF ( PRESENT(Epsilon_Scale) ) THEN - IF ( Epsilon_Scale ) tol = EPSILON(Expected) * Get_Multiplier( Expected ) - END IF - ! ...Assign the test - Test = (ABS(Expected-Actual) < tol) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//RFMT//',a,& - &7x,"To within: ",'//RFMT//',a,& - &7x,"And got: ",'//RFMT//',a,& - &7x,"|Difference|: ",'//RFMT//')') & - CRLF, Expected, CRLF, tol, CRLF, Actual, CRLF, ABS(Expected-Actual) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE realdp_isequalwithin_scalar - - - SUBROUTINE realdp_isequalwithin_rank1( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Double), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[REAL(Double)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize .OR. & - SIZE(Tolerance) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0,"; Tolerance:",i0)') & - isize, SIZE(Actual), SIZE(Tolerance) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL realdp_isequalwithin_scalar( & - UnitTest , & - Expected(i) , & - Actual(i) , & - Tolerance(i), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END SUBROUTINE realdp_isequalwithin_rank1 - - - SUBROUTINE realdp_isequalwithin_rank2( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[REAL(Double)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize .OR. & - SIZE(Tolerance,DIM=1) /= isize .OR. & - SIZE(Tolerance,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- ",& - &"Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,"); Tolerance:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2), & - SIZE(Tolerance,DIM=1), SIZE(Tolerance,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL realdp_isequalwithin_scalar( & - UnitTest , & - Expected(i,j) , & - Actual(i,j) , & - Tolerance(i,j), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END DO - END SUBROUTINE realdp_isequalwithin_rank2 - - - SUBROUTINE complexsp_isequalwithin_scalar( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Single), INTENT(IN) :: Expected, Actual, Tolerance - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[COMPLEX(Single)]' - ! Variables - REAL(Single) :: tolr, toli - REAL(Single) :: zr, zi - REAL(Single) :: dzr, dzi - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Split expected into real and imag - zr = REAL(Expected,Single) - zi = AIMAG(Expected) - ! ...Default tolerance - tolr = REAL(Tolerance,Single) - toli = AIMAG(Tolerance) - ! ...Check optional arguments - IF ( PRESENT(Epsilon_Scale) ) THEN - IF ( Epsilon_Scale ) THEN - tolr = EPSILON(zr) * Get_Multiplier(zr) - toli = EPSILON(zi) * Get_Multiplier(zi) - END IF - END IF - ! ...Assign the test - dzr = ABS(zr - REAL(Actual,Single)) - dzi = ABS(zi - AIMAG(Actual)) - Test = (dzr < tolr) .AND. (dzi < toli) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//ZFMT//',a,& - &7x,"To within: ",'//ZFMT//',a,& - &7x,"And got: ",'//ZFMT//',a,& - &7x,"|Difference|: ",'//ZFMT//')') & - CRLF, Expected, CRLF, CMPLX(tolr,toli,Single), CRLF, Actual, CRLF, dzr, dzi - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE complexsp_isequalwithin_scalar - - - SUBROUTINE complexsp_isequalwithin_rank1( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[COMPLEX(Single)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize .OR. & - SIZE(Tolerance) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0,"; Tolerance:",i0)') & - isize, SIZE(Actual), SIZE(Tolerance) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL complexsp_isequalwithin_scalar( & - UnitTest , & - Expected(i) , & - Actual(i) , & - Tolerance(i), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END SUBROUTINE complexsp_isequalwithin_rank1 - - - SUBROUTINE complexsp_isequalwithin_rank2( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[COMPLEX(Single)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize .OR. & - SIZE(Tolerance,DIM=1) /= isize .OR. & - SIZE(Tolerance,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- ",& - &"Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,"); Tolerance:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2), & - SIZE(Tolerance,DIM=1), SIZE(Tolerance,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL complexsp_isequalwithin_scalar( & - UnitTest , & - Expected(i,j) , & - Actual(i,j) , & - Tolerance(i,j), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END DO - END SUBROUTINE complexsp_isequalwithin_rank2 - - - SUBROUTINE complexdp_isequalwithin_scalar( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Double), INTENT(IN) :: Expected, Actual, Tolerance - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[COMPLEX(Double)]' - ! Variables - REAL(Double) :: tolr, toli - REAL(Double) :: zr, zi - REAL(Double) :: dzr, dzi - LOGICAL :: Test - LOGICAL :: Verbose - CHARACTER(SL) :: Message - - ! Setup - ! ...Split expected into real and imag - zr = REAL(Expected,Double) - zi = AIMAG(Expected) - ! ...Default tolerance - tolr = REAL(Tolerance,Double) - toli = AIMAG(Tolerance) - ! ...Check optional arguments - IF ( PRESENT(Epsilon_Scale) ) THEN - IF ( Epsilon_Scale ) THEN - tolr = EPSILON(zr) * Get_Multiplier(zr) - toli = EPSILON(zi) * Get_Multiplier(zi) - END IF - END IF - ! ...Assign the test - dzr = ABS(zr - REAL(Actual,Double)) - dzi = ABS(zi - AIMAG(Actual)) - Test = (dzr < tolr) .AND. (dzi < toli) - ! ...Locally modify properties for this test - CALL Get_Property( & - UnitTest, & - Verbose = Verbose ) - Verbose = Verbose .OR. (.NOT. Test) ! Always output test failure - - - ! Assert the test - IF ( Test ) THEN - CALL Test_Passed( UnitTest ) - ELSE - CALL Test_Failed( UnitTest ) - END IF - - ! Output message - WRITE( Message, & - '(a,7x,"Expected: ",'//ZFMT//',a,& - &7x,"To within: ",'//ZFMT//',a,& - &7x,"And got: ",'//ZFMT//',a,& - &7x,"|Difference|: ",'//ZFMT//')') & - CRLF, Expected, CRLF, CMPLX(tolr,toli,Double), CRLF, Actual, CRLF, dzr, dzi - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - IF ( Verbose ) CALL Display_Message( UnitTest ) - END SUBROUTINE complexdp_isequalwithin_scalar - - - SUBROUTINE complexdp_isequalwithin_rank1( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[COMPLEX(Double)]' - ! Variables - INTEGER :: i, isize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected) - IF ( SIZE(Actual) /= isize .OR. & - SIZE(Tolerance) /= isize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0,"; Tolerance:",i0)') & - isize, SIZE(Actual), SIZE(Tolerance) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO i = 1, isize - CALL complexdp_isequalwithin_scalar( & - UnitTest , & - Expected(i) , & - Actual(i) , & - Tolerance(i), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END SUBROUTINE complexdp_isequalwithin_rank1 - - - SUBROUTINE complexdp_isequalwithin_rank2( & - UnitTest , & - Expected , & - Actual , & - Tolerance , & - Epsilon_Scale ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) - LOGICAL, OPTIONAL, INTENT(IN) :: Epsilon_Scale - ! Parameters - CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest_IsEqualWithin[COMPLEX(Double)]' - ! Variables - INTEGER :: i, j, isize, jsize - CHARACTER(SL) :: Message - - ! Check array sizes - isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) - IF ( SIZE(Actual,DIM=1) /= isize .OR. & - SIZE(Actual,DIM=2) /= jsize .OR. & - SIZE(Tolerance,DIM=1) /= isize .OR. & - SIZE(Tolerance,DIM=2) /= jsize ) THEN - CALL Test_Failed( UnitTest ) - WRITE( Message, & - '("Array sizes are diffferent -- ",& - &"Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,"); Tolerance:(",i0,",",i0,")")') & - isize, jsize, & - SIZE(Actual,DIM=1), SIZE(Actual,DIM=2), & - SIZE(Tolerance,DIM=1), SIZE(Tolerance,DIM=2) - CALL Set_Property( & - UnitTest, & - Level = TEST_LEVEL, & - Procedure = PROCEDURE_NAME, & - Message = Message ) - CALL Display_Message( UnitTest ) - RETURN - ENDIF - - ! Loop over elements - DO j = 1, jsize - DO i = 1, isize - CALL complexdp_isequalwithin_scalar( & - UnitTest , & - Expected(i,j) , & - Actual(i,j) , & - Tolerance(i,j), & - Epsilon_Scale = Epsilon_Scale ) - END DO - END DO - END SUBROUTINE complexdp_isequalwithin_rank2 - - -!-------------------------------------------------------------------------------- -!:sdoc+: -! -! NAME: -! UnitTest_DefineVersion -! -! PURPOSE: -! Subroutine to return the module version information. -! -! CALLING SEQUENCE: -! CALL UnitTest_DefineVersion( Id ) -! -! OUTPUTS: -! Id: Character string containing the version Id information -! for the module. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT) -! -!:sdoc-: -!-------------------------------------------------------------------------------- - - SUBROUTINE UnitTest_DefineVersion( Id ) - CHARACTER(*), INTENT(OUT) :: Id - Id = MODULE_VERSION_ID - END SUBROUTINE UnitTest_DefineVersion - - -!################################################################################ -!################################################################################ -!## ## -!## ## PRIVATE MODULE ROUTINES ## ## -!## ## -!################################################################################ -!################################################################################ - -!=================== -! METHOD PROCEDURES -!=================== - -!------------------------------------------------------------------------------ -! -! NAME: -! Set_Property -! -! PURPOSE: -! Private subroutine to set the properties of a UnitTest object. -! -! All WRITE access to the UnitTest object properties should be -! done using this subroutine. -! -! CALLING SEQUENCE: -! CALL Set_Property( & -! UnitTest, & -! Verbose = Verbose , & -! Title = Title , & -! Caller = Caller , & -! Level = Level , & -! Procedure = Procedure , & -! Message = Message , & -! Test_Result = Test_Result , & -! n_Tests = n_Tests , & -! n_Passed_Tests = n_Passed_Tests , & -! n_Failed_Tests = n_Failed_Tests , & -! n_AllTests = n_AllTests , & -! n_Passed_AllTests = n_Passed_AllTests, & -! n_Failed_AllTests = n_Failed_AllTests ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -! OPTIONAL INPUTS: -! Verbose: Logical to control length of reporting output. -! If == .FALSE., Only failed tests are reported. -! == .TRUE., Both failed and passed tests are reported. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Title: Character string containing the title of the -! test to be performed. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Caller: Character string containing the name of the -! calling subprogram. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Level: Integer flag specifying the output message level. -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Procedure: The name of the UnitTest procedure. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Message: Character string containing an informational -! message about the unit test performed. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Test_Result: Logical to contain the result of unit tests -! performed -! If == .TRUE., Test passed. -! == .FALSE., Test failed. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! n_Tests: The number of tests performed for the current -! unit test type, i.e. since the last call to -! UnitTest_Setup(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! n_Passed_Tests: The number of tests passed for the current -! unit test type, i.e. since the last call to -! UnitTest_Setup(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! n_Failed_Tests: The number of tests failed for the current -! unit test type, i.e. since the last call to -! UnitTest_Setup(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! n_AllTests: The total number of tests performed, i.e. since -! the last call to UnitTest_Init(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! n_Passed_AllTests: The total number of tests passed, i.e. since -! the last call to UnitTest_Init(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! n_Failed_AllTests: The total number of tests failed, i.e. since -! the last call to UnitTest_Init(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -!------------------------------------------------------------------------------ - - PURE SUBROUTINE Set_Property( & - UnitTest , & ! Object - Verbose , & ! Optional input - Title , & ! Optional input - Caller , & ! Optional input - Level , & ! Optional input - Procedure , & ! Optional input - Message , & ! Optional input - Test_Result , & ! Optional input - n_Tests , & ! Optional input - n_Passed_Tests , & ! Optional input - n_Failed_Tests , & ! Optional input - n_AllTests , & ! Optional input - n_Passed_AllTests, & ! Optional input - n_Failed_AllTests ) ! Optional input - ! Arguments - TYPE(UnitTest_type) , INTENT(IN OUT) :: UnitTest - LOGICAL , OPTIONAL, INTENT(IN) :: Verbose - CHARACTER(*), OPTIONAL, INTENT(IN) :: Title - CHARACTER(*), OPTIONAL, INTENT(IN) :: Caller - INTEGER , OPTIONAL, INTENT(IN) :: Level - CHARACTER(*), OPTIONAL, INTENT(IN) :: Procedure - CHARACTER(*), OPTIONAL, INTENT(IN) :: Message - LOGICAL , OPTIONAL, INTENT(IN) :: Test_Result - INTEGER , OPTIONAL, INTENT(IN) :: n_Tests - INTEGER , OPTIONAL, INTENT(IN) :: n_Passed_Tests - INTEGER , OPTIONAL, INTENT(IN) :: n_Failed_Tests - INTEGER , OPTIONAL, INTENT(IN) :: n_AllTests - INTEGER , OPTIONAL, INTENT(IN) :: n_Passed_AllTests - INTEGER , OPTIONAL, INTENT(IN) :: n_Failed_AllTests - ! Set the object properties - IF ( PRESENT(Verbose ) ) UnitTest%Verbose = Verbose - IF ( PRESENT(Title ) ) UnitTest%Title = Title - IF ( PRESENT(Caller ) ) UnitTest%Caller = Caller - IF ( PRESENT(Level ) ) UnitTest%Level = Level - IF ( PRESENT(Procedure ) ) UnitTest%Procedure = Procedure - IF ( PRESENT(Message ) ) UnitTest%Message = Message - IF ( PRESENT(Test_Result ) ) UnitTest%Test_Result = Test_Result - IF ( PRESENT(n_Tests ) ) UnitTest%n_Tests = n_Tests - IF ( PRESENT(n_Passed_Tests ) ) UnitTest%n_Passed_Tests = n_Passed_Tests - IF ( PRESENT(n_Failed_Tests ) ) UnitTest%n_Failed_Tests = n_Failed_Tests - IF ( PRESENT(n_AllTests ) ) UnitTest%n_AllTests = n_AllTests - IF ( PRESENT(n_Passed_AllTests) ) UnitTest%n_Passed_AllTests = n_Passed_AllTests - IF ( PRESENT(n_Failed_AllTests) ) UnitTest%n_Failed_AllTests = n_Failed_AllTests - END SUBROUTINE Set_Property - - -!------------------------------------------------------------------------------ -! -! NAME: -! Get_Property -! -! PURPOSE: -! Private subroutine to get the properties of a UnitTest object. -! -! All READ access to the UnitTest object properties should be -! done using this subroutine. -! -! CALLING SEQUENCE: -! CALL Get_Property( & -! UnitTest, & -! Verbose = Verbose , & -! Title = Title , & -! Caller = Caller , & -! Level = Level , & -! Procedure = Procedure , & -! Message = Message , & -! Test_Result = Test_Result , & -! n_Tests = n_Tests , & -! n_Passed_Tests = n_Passed_Tests , & -! n_Failed_Tests = n_Failed_Tests , & -! n_AllTests = n_AllTests , & -! n_Passed_AllTests = n_Passed_AllTests, & -! n_Failed_AllTests = n_Failed_AllTests ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -! OPTIONAL OUTPUTS: -! Verbose: Logical to control length of reporting output. -! If == .FALSE., Only failed tests are reported. -! == .TRUE., Both failed and passed tests are reported. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! Title: Character string containing the title of the -! test to be performed. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! Caller: Character string containing the name of the -! calling subprogram. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! Level: Integer flag specifying the output message level. -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! Procedure: The name of the last UnitTest Procedure called. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN), OPTIONAL -! -! Message: Character string containing an informational -! message about the last unit test performed. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! Test_Result: Logical containing the result of the last -! unit test performed -! If == .TRUE., Test passed. -! == .FALSE., Test failed. -! UNITS: N/A -! TYPE: LOGICAL -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! n_Tests: The number of tests performed for the current -! unit test type, i.e. since the last call to -! UnitTest_Setup(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! n_Passed_Tests: The number of tests passed for the current -! unit test type, i.e. since the last call to -! UnitTest_Setup(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! n_Failed_Tests: The number of tests failed for the current -! unit test type, i.e. since the last call to -! UnitTest_Setup(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! n_AllTests: The total number of tests performed, i.e. since -! the last call to UnitTest_Init(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! n_Passed_AllTests: The total number of tests passed, i.e. since -! the last call to UnitTest_Init(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -! n_Failed_AllTests: The total number of tests failed, i.e. since -! the last call to UnitTest_Init(). -! UNITS: N/A -! TYPE: INTEGER -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT), OPTIONAL -! -!------------------------------------------------------------------------------ - - PURE SUBROUTINE Get_Property( & - UnitTest , & ! Object - Verbose , & ! Optional output - Title , & ! Optional output - Caller , & ! Optional output - Level , & ! Optional output - Procedure , & ! Optional output - Message , & ! Optional output - Test_Result , & ! Optional output - n_Tests , & ! Optional output - n_Passed_Tests , & ! Optional output - n_Failed_Tests , & ! Optional output - n_AllTests , & ! Optional output - n_Passed_AllTests, & ! Optional output - n_Failed_AllTests ) ! Optional output - ! Arguments - TYPE(UnitTest_type) , INTENT(IN) :: UnitTest - LOGICAL , OPTIONAL, INTENT(OUT) :: Verbose - CHARACTER(*), OPTIONAL, INTENT(OUT) :: Title - CHARACTER(*), OPTIONAL, INTENT(OUT) :: Caller - INTEGER , OPTIONAL, INTENT(OUT) :: Level - CHARACTER(*), OPTIONAL, INTENT(OUT) :: Procedure - CHARACTER(*), OPTIONAL, INTENT(OUT) :: Message - LOGICAL , OPTIONAL, INTENT(OUT) :: Test_Result - INTEGER , OPTIONAL, INTENT(OUT) :: n_Tests - INTEGER , OPTIONAL, INTENT(OUT) :: n_Passed_Tests - INTEGER , OPTIONAL, INTENT(OUT) :: n_Failed_Tests - INTEGER , OPTIONAL, INTENT(OUT) :: n_AllTests - INTEGER , OPTIONAL, INTENT(OUT) :: n_Passed_AllTests - INTEGER , OPTIONAL, INTENT(OUT) :: n_Failed_AllTests - ! Get the object properties - IF ( PRESENT(Verbose ) ) Verbose = UnitTest%Verbose - IF ( PRESENT(Title ) ) Title = UnitTest%Title - IF ( PRESENT(Caller ) ) Caller = UnitTest%Caller - IF ( PRESENT(Level ) ) Level = UnitTest%Level - IF ( PRESENT(Procedure ) ) Procedure = UnitTest%Procedure - IF ( PRESENT(Message ) ) Message = UnitTest%Message - IF ( PRESENT(Test_Result ) ) Test_Result = UnitTest%Test_Result - IF ( PRESENT(n_Tests ) ) n_Tests = UnitTest%n_Tests - IF ( PRESENT(n_Passed_Tests ) ) n_Passed_Tests = UnitTest%n_Passed_Tests - IF ( PRESENT(n_Failed_Tests ) ) n_Failed_Tests = UnitTest%n_Failed_Tests - IF ( PRESENT(n_AllTests ) ) n_AllTests = UnitTest%n_AllTests - IF ( PRESENT(n_Passed_AllTests) ) n_Passed_AllTests = UnitTest%n_Passed_AllTests - IF ( PRESENT(n_Failed_AllTests) ) n_Failed_AllTests = UnitTest%n_Failed_AllTests - END SUBROUTINE Get_Property - - -!------------------------------------------------------------------------------ -! -! NAME: -! Test_Passed -! -! PURPOSE: -! Subroutine to increment passed test counters. -! -! CALLING SEQUENCE: -! CALL Test_Passed( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -!------------------------------------------------------------------------------ - - SUBROUTINE Test_Passed( UnitTest ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - ! Variables - INTEGER :: n_Passed_Tests, n_Passed_AllTests - - ! Increment total test counters - CALL Test_Increment( UnitTest ) - - ! Increment the passed test counters - ! ...Get 'em - CALL Get_Property( & - UnitTest, & - n_Passed_Tests = n_Passed_Tests, & - n_Passed_AllTests = n_Passed_AllTests ) - ! ...Increment - n_Passed_Tests = n_Passed_Tests + 1 - n_Passed_AllTests = n_Passed_AllTests + 1 - ! ...Save 'em and set successful test result - CALL Set_Property( & - UnitTest, & - Test_Result = .TRUE., & - n_Passed_Tests = n_Passed_Tests, & - n_Passed_AllTests = n_Passed_AllTests ) - END SUBROUTINE Test_Passed - - -!------------------------------------------------------------------------------ -! -! NAME: -! Test_Failed -! -! PURPOSE: -! Subroutine to increment failed test counters. -! -! CALLING SEQUENCE: -! CALL Test_Failed( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -!------------------------------------------------------------------------------ - - SUBROUTINE Test_Failed( UnitTest ) - ! Arguments - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - ! Variables - INTEGER :: n_Failed_Tests, n_Failed_AllTests - - ! Increment total test counters - CALL Test_Increment( UnitTest ) - - ! Increment the failed test counters - ! ...Get 'em - CALL Get_Property( & - UnitTest, & - n_Failed_Tests = n_Failed_Tests, & - n_Failed_AllTests = n_Failed_AllTests ) - ! ...Increment - n_Failed_Tests = n_Failed_Tests + 1 - n_Failed_AllTests = n_Failed_AllTests + 1 - ! ...Save 'em and set unsuccessful test result - CALL Set_Property( & - UnitTest, & - Test_Result = .FALSE., & - n_Failed_Tests = n_Failed_Tests, & - n_Failed_AllTests = n_Failed_AllTests ) - END SUBROUTINE Test_Failed - - -!------------------------------------------------------------------------------ -! -! NAME: -! Test_Increment -! -! PURPOSE: -! Subroutine to increment the test total counters. -! -! CALLING SEQUENCE: -! CALL Test_Increment( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -!------------------------------------------------------------------------------ - - SUBROUTINE Test_Increment( UnitTest ) - TYPE(UnitTest_type), INTENT(IN OUT) :: UnitTest - INTEGER :: n_Tests, n_AllTests - - CALL Get_Property( & - UnitTest, & - n_Tests = n_Tests, & - n_AllTests = n_AllTests ) - - n_Tests = n_Tests + 1 - n_AllTests = n_AllTests + 1 - - CALL Set_Property( & - UnitTest, & - n_Tests = n_Tests, & - n_AllTests = n_AllTests ) - END SUBROUTINE Test_Increment - - -!------------------------------------------------------------------------------ -! -! NAME: -! Display_Message -! -! PURPOSE: -! Subroutine to display the unit test messages to stdout. -! -! CALLING SEQUENCE: -! CALL Display_Message( UnitTest ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN OUT) -! -!------------------------------------------------------------------------------ - - SUBROUTINE Display_Message( UnitTest ) - TYPE(UnitTest_type), INTENT(IN) :: UnitTest - ! Variables - INTEGER :: Level - CHARACTER(SL) :: Procedure - CHARACTER(SL) :: Message - CHARACTER(SL) :: Fmt - CHARACTER(SL) :: Prefix - CHARACTER(SL) :: Test_Info - INTEGER :: n_Spaces - - CALL Get_Property( & - UnitTest, & - Level = Level, & - Procedure = Procedure, & - Message = Message ) - - ! Set output bits manually - Test_Info = '' - SELECT CASE(Level) - CASE(INIT_LEVEL) - Prefix = '/' - n_Spaces = 1 - CASE(SETUP_LEVEL) - Prefix = '/,3x,14("-"),/' - n_Spaces = 3 - CASE(TEST_LEVEL) - Prefix = '' - n_Spaces = 5 - CALL Test_Info_String( UnitTest, Test_Info ) - CASE(REPORT_LEVEL) - Prefix = '' - n_Spaces = 3 - CASE(SUMMARY_LEVEL) - Prefix = '/,1x,16("="),/' - n_Spaces = 1 - CASE DEFAULT - Level = INTERNAL_FAIL_LEVEL - Prefix = '/,"INVALID MESSAGE LEVEL!!",/' - n_Spaces = 15 - END SELECT - - ! Write the message to stdout - WRITE(Fmt, '("(",a,i0,"x,""("",a,"") "",a,"": "",a,1x,a)")') TRIM(Prefix), n_Spaces - WRITE( *,FMT=Fmt ) TRIM(MESSAGE_LEVEL(Level)), TRIM(Procedure), TRIM(Test_Info), TRIM(Message) - - END SUBROUTINE Display_Message - - -!------------------------------------------------------------------------------ -! -! NAME: -! Test_Info_String -! -! PURPOSE: -! Subroutine to construct an info string for message output. -! -! CALLING SEQUENCE: -! CALL Test_Info_String( UnitTest, info ) -! -! OBJECT: -! UnitTest: UnitTest object. -! UNITS: N/A -! TYPE: TYPE(UnitTest_type) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(IN) -! -! OUTPUTS: -! info: Character string containing the test number and -! whether the test passed or failed. -! UNITS: N/A -! TYPE: CHARACTER(*) -! DIMENSION: Scalar -! ATTRIBUTES: INTENT(OUT) -! -!------------------------------------------------------------------------------ - - SUBROUTINE Test_Info_String( UnitTest, info ) - TYPE(UnitTest_Type), INTENT(IN) :: UnitTest - CHARACTER(*), INTENT(OUT) :: info - INTEGER :: n_Tests - CHARACTER(6) :: PassFail - CALL Get_Property( UnitTest, n_Tests = n_Tests ) - IF ( UnitTest_Passed( UnitTest ) ) THEN - PassFail = 'PASSED' - ELSE - PassFail = 'FAILED' - END IF - WRITE( info,'("Test#",i0,1x,a,".")') n_Tests, PassFail - END SUBROUTINE Test_Info_String - - -!==================== -! UTILITY PROCEDURES -!==================== - -!------------------------------------------------------------------------------ -! -! NAME: -! Get_Multiplier -! -! PURPOSE: -! Elemental function to compute the exponent multiplier of an input -! for use in scaling tolerance values for floating point comparisons. -! -! CALLING SEQUENCE: -! e = Get_Multiplier(x) -! -! INPUTS: -! x: Number for which the exponent multiplier is required. -! UNITS: N/A -! TYPE: REAL(Single) , or -! REAL(Double) -! DIMENSION: Scalar or any rank -! ATTRIBUTES: INTENT(IN) -! -! FUNCTION RESULT: -! e: Exponent multiplier to use in scaling tolerance values. -! UNITS: N/A -! TYPE: Same as input x. -! DIMENSION: Same as input x. -! -!------------------------------------------------------------------------------ - - ELEMENTAL FUNCTION realsp_get_multiplier(x) RESULT(e) - REAL(Single), INTENT(IN) :: x - REAL(Single) :: e - IF (x > 0.0_Single) THEN - e = 10.0_Single**FLOOR(LOG10(x)) - ELSE - e = 1.0_Single - END IF - END FUNCTION realsp_get_multiplier - - ELEMENTAL FUNCTION realdp_get_multiplier(x) RESULT(e) - REAL(Double), INTENT(IN) :: x - REAL(Double) :: e - IF (x > 0.0_Double) THEN - e = 10.0_Double**FLOOR(LOG10(x)) - ELSE - e = 1.0_Double - END IF - END FUNCTION realdp_get_multiplier - -END MODULE UnitTest_Define diff --git a/var/external/crtm_2.2.3/makefile b/var/external/crtm_2.2.3/makefile deleted file mode 100644 index ee342fe363..0000000000 --- a/var/external/crtm_2.2.3/makefile +++ /dev/null @@ -1,5 +0,0 @@ -MAKE = make -i -r - -# Target specification -all clean: - cd libsrc && $(MAKE) $@ diff --git a/var/external/crtm_2.2.3/README b/var/external/crtm_2.3.0/README similarity index 91% rename from var/external/crtm_2.2.3/README rename to var/external/crtm_2.3.0/README index 1260f759c1..acfa09054c 100644 --- a/var/external/crtm_2.2.3/README +++ b/var/external/crtm_2.3.0/README @@ -1,7 +1,7 @@ -JCSDA CRTM v2.2.3 Build Instructions +JCSDA CRTM v2.3.x Build Instructions ==================================== -$Revision: 60152 $ +$Revision: 99117 $ CRTM SUPPORT EMAIL: ncep.list.emc.jcsda_crtm.support@noaa.gov @@ -64,6 +64,7 @@ The current list of test compiler environments in the config-setup/ directory are: $ ls config-setup/ + ftn.setup ftn.setup.csh g95-debug.setup gfortran.setup.csh pgf95.setup g95-debug.setup.csh ifort-debug.setup pgf95.setup.csh g95.setup ifort-debug.setup.csh xlf2003-debug.setup @@ -161,7 +162,7 @@ test runs looks like: Check/example program for the CRTM Forward and K-Matrix functions using big_endian coefficient datafiles - CRTM Version: REL-2.2.3 + CRTM Version: REL-2.3.x ********************************************************** @@ -192,10 +193,10 @@ directory follows the convention: _ -So, if a library version (say, v2.2.3) build was configured with --prefix=$PWD +So, if a library version (say, v2.3.0) build was configured with --prefix=$PWD then the installation directory will be - ${PWD}/crtm_v2.2.3 + ${PWD}/crtm_v2.3.0 @@ -206,10 +207,10 @@ To perform a GNU-type install, type: $ make install -For a library version, say, v2.2.3, this will create a directory called -"crtm_v2.2.3". That directory structure is shown below: +For a library version, say, v2.3.0, this will create a directory called +"crtm_v2.3.0". That directory structure is shown below: - crtm_v2.2.3/ + crtm_v2.3.0/ | |--include/ | | @@ -234,7 +235,7 @@ Let's assume the above install was moved into "/usrx/local/nceplibs", to use the library in this structure in your own application, the usual environment variables would be modified something like: - libroot="/usrx/local/nceplibs/crtm_v2.2.3" + libroot="/usrx/local/nceplibs/crtm_v2.3.0" FCFLAGS="-I${libroot}/include ${FCFLAGS}" LDFLAGS="-L${libroot}/lib ${LDFLAGS}" LIBS="-lcrtm" @@ -251,17 +252,17 @@ conventions, type: $ make nco_install -For a library version, say, v2.2.3, this will create a directory called -"crtm_v2.2.3". That directory is organised according to the current NCO structure +For a library version, say, v2.3.0, this will create a directory called +"crtm_v2.3.0". That directory is organised according to the current NCO structure on WCOSS in /nwprod/lib, as shown below: - crtm_v2.2.3/ + crtm_v2.3.0/ | - |--libcrtm_v2.2.3.a + |--libcrtm_v2.3.0.a | `--incmod/ | - `--crtm_v2.2.3/ + `--crtm_v2.3.0/ | |--accoeff_binary_io.mod |--accoeff_define.mod @@ -269,7 +270,7 @@ on WCOSS in /nwprod/lib, as shown below: |--zeeman_input_define.mod `--zeeman_utility.mod -The contents of the "crtm_v2.2.3" directory can then be moved into the official +The contents of the "crtm_v2.3.0" directory can then be moved into the official /nwprod/lib location as needed. NOTE: ********** IMPORTANT - READ THIS ********** @@ -288,9 +289,9 @@ library in this structure in your own application, the usual environment variabl would be modified something like: libroot="/usrx/local/nceplibs" - FCFLAGS="-I${libroot}/incmod/crtm_v2.2.3 ${FCFLAGS}" + FCFLAGS="-I${libroot}/incmod/crtm_v2.3.0 ${FCFLAGS}" LDFLAGS="-L${libroot} ${LDFLAGS}" - LIBS="-lcrtm_v2.2.3" + LIBS="-lcrtm_v2.3.0" (with appropriate syntax changes for csh) @@ -305,11 +306,11 @@ contents somewhere else) you can type: $ make uninstall This will DELETE the created installation directory. So, for a library version, -say, v2.2.3, if your configure script invocation was something like +say, v2.3.0, if your configure script invocation was something like $ ./configure --prefix=${PWD} ...other command line arguments... -then the "uninstall" target will delete the "${PWD}/crtm_v2.2.3" directory. +then the "uninstall" target will delete the "${PWD}/crtm_v2.3.0" directory. diff --git a/var/external/crtm_2.2.3/config-setup/g95.setup b/var/external/crtm_2.3.0/config-setup/ftn.setup similarity index 56% rename from var/external/crtm_2.2.3/config-setup/g95.setup rename to var/external/crtm_2.3.0/config-setup/ftn.setup index 1287892e6f..fe5f3aa89c 100644 --- a/var/external/crtm_2.2.3/config-setup/g95.setup +++ b/var/external/crtm_2.3.0/config-setup/ftn.setup @@ -1,17 +1,17 @@ #!/bin/sh #-------------------------------------------------------------------------------# -# PRODUCTION build settings for Linux g95 compiler +# PRODUCTION build settings for ftn compiler on EMC Linux Cray machine #-------------------------------------------------------------------------------# -export FC="g95" +export FC="ftn" export FCFLAGS="\ --O2 \ --ffast-math \ --ffree-form \ --fno-second-underscore \ --funroll-loops \ --malign-double" +-O3 \ +-axCore-AVX2 \ +-fp-model source \ +-convert big_endian \ +-free \ +-assume byterecl" export LDFLAGS="" diff --git a/var/external/crtm_2.3.0/config-setup/ftn.setup.csh b/var/external/crtm_2.3.0/config-setup/ftn.setup.csh new file mode 100644 index 0000000000..b516544a11 --- /dev/null +++ b/var/external/crtm_2.3.0/config-setup/ftn.setup.csh @@ -0,0 +1,9 @@ +#!/bin/csh +#-------------------------------------------------------------------------------# +# PRODUCTION build settings for ftn compiler on EMC Linux Cray machine +#-------------------------------------------------------------------------------# + +setenv FC "ftn" +setenv FCFLAGS "-O3 -axCore-AVX2 -fp-model source -convert big_endian -free -assume byterecl" +setenv LDFLAGS "" +setenv LIBS "" diff --git a/var/external/crtm_2.2.3/config-setup/g95-debug.setup.csh b/var/external/crtm_2.3.0/config-setup/g95-debug.setup.csh similarity index 100% rename from var/external/crtm_2.2.3/config-setup/g95-debug.setup.csh rename to var/external/crtm_2.3.0/config-setup/g95-debug.setup.csh diff --git a/var/external/crtm_2.2.3/config-setup/g95.setup.csh b/var/external/crtm_2.3.0/config-setup/g95.setup.csh similarity index 100% rename from var/external/crtm_2.2.3/config-setup/g95.setup.csh rename to var/external/crtm_2.3.0/config-setup/g95.setup.csh diff --git a/var/external/crtm_2.2.3/config-setup/gfortran-debug.setup b/var/external/crtm_2.3.0/config-setup/gfortran-debug.setup similarity index 97% rename from var/external/crtm_2.2.3/config-setup/gfortran-debug.setup rename to var/external/crtm_2.3.0/config-setup/gfortran-debug.setup index 7b180d172e..15a2ca1c43 100644 --- a/var/external/crtm_2.2.3/config-setup/gfortran-debug.setup +++ b/var/external/crtm_2.3.0/config-setup/gfortran-debug.setup @@ -15,7 +15,7 @@ export FCFLAGS="\ -ggdb \ -Wall \ -Wconversion \ --std=f2003" +-std=f2008" export LDFLAGS="" diff --git a/var/external/crtm_2.2.3/config-setup/gfortran-debug.setup.csh b/var/external/crtm_2.3.0/config-setup/gfortran-debug.setup.csh similarity index 90% rename from var/external/crtm_2.2.3/config-setup/gfortran-debug.setup.csh rename to var/external/crtm_2.3.0/config-setup/gfortran-debug.setup.csh index 0c6bb94674..b34c005828 100644 --- a/var/external/crtm_2.2.3/config-setup/gfortran-debug.setup.csh +++ b/var/external/crtm_2.3.0/config-setup/gfortran-debug.setup.csh @@ -4,6 +4,6 @@ #-------------------------------------------------------------------------------# setenv FC "gfortran" -setenv FCFLAGS "-fbounds-check -fimplicit-none -ffpe-trap=overflow,zero,invalid -ffree-form -fno-second-underscore -frecord-marker=4 -ggdb -Wall -Wconversion -std=f2003" +setenv FCFLAGS "-fbounds-check -fimplicit-none -ffpe-trap=overflow,zero,invalid -ffree-form -fno-second-underscore -frecord-marker=4 -ggdb -Wall -Wconversion -std=f2008" setenv LDFLAGS "" setenv LIBS "" diff --git a/var/external/crtm_2.2.3/config-setup/gfortran.setup b/var/external/crtm_2.3.0/config-setup/gfortran.setup similarity index 97% rename from var/external/crtm_2.2.3/config-setup/gfortran.setup rename to var/external/crtm_2.3.0/config-setup/gfortran.setup index dd262b5087..25eddf4689 100644 --- a/var/external/crtm_2.2.3/config-setup/gfortran.setup +++ b/var/external/crtm_2.3.0/config-setup/gfortran.setup @@ -15,7 +15,7 @@ export FCFLAGS="\ -ggdb \ -Wall \ -Wconversion \ --std=f2003" +-std=f2008" export LDFLAGS="" diff --git a/var/external/crtm_2.2.3/config-setup/gfortran.setup.csh b/var/external/crtm_2.3.0/config-setup/gfortran.setup.csh similarity index 96% rename from var/external/crtm_2.2.3/config-setup/gfortran.setup.csh rename to var/external/crtm_2.3.0/config-setup/gfortran.setup.csh index d777adb952..0aa63144d8 100644 --- a/var/external/crtm_2.2.3/config-setup/gfortran.setup.csh +++ b/var/external/crtm_2.3.0/config-setup/gfortran.setup.csh @@ -4,6 +4,6 @@ #-------------------------------------------------------------------------------# setenv FC "gfortran" -setenv FCFLAGS "-O3 -fimplicit-none -ffree-form -fno-second-underscore -frecord-marker=4 -funroll-loops -ggdb -Wall -Wconversion -std=f2003" +setenv FCFLAGS "-O3 -fimplicit-none -ffree-form -fno-second-underscore -frecord-marker=4 -funroll-loops -ggdb -Wall -Wconversion -std=f2008" setenv LDFLAGS "" setenv LIBS "" diff --git a/var/external/crtm_2.2.3/config-setup/ifort-debug.setup b/var/external/crtm_2.3.0/config-setup/ifort-debug.setup similarity index 90% rename from var/external/crtm_2.2.3/config-setup/ifort-debug.setup rename to var/external/crtm_2.3.0/config-setup/ifort-debug.setup index 202a673f92..8b1376c4ce 100644 --- a/var/external/crtm_2.2.3/config-setup/ifort-debug.setup +++ b/var/external/crtm_2.3.0/config-setup/ifort-debug.setup @@ -8,10 +8,10 @@ export FC="ifort" export FCFLAGS="\ -g \ -check bounds \ --e03 \ +-e08 \ -traceback \ -free \ --assume byterecl \ +-assume byterecl,realloc_lhs \ -fp-stack-check \ -mieee-fp" diff --git a/var/external/crtm_2.2.3/config-setup/ifort-debug.setup.csh b/var/external/crtm_2.3.0/config-setup/ifort-debug.setup.csh similarity index 71% rename from var/external/crtm_2.2.3/config-setup/ifort-debug.setup.csh rename to var/external/crtm_2.3.0/config-setup/ifort-debug.setup.csh index 1129a27237..82c5fb835a 100644 --- a/var/external/crtm_2.2.3/config-setup/ifort-debug.setup.csh +++ b/var/external/crtm_2.3.0/config-setup/ifort-debug.setup.csh @@ -4,6 +4,6 @@ #-------------------------------------------------------------------------------# setenv FC "ifort" -setenv FCFLAGS "-g -check bounds -e03 -traceback -free -assume byterecl -fp-stack-check -mieee-fp" +setenv FCFLAGS "-g -check bounds -e08 -traceback -free -assume byterecl,realloc_lhs -fp-stack-check -mieee-fp" setenv LDFLAGS "" setenv LIBS "" diff --git a/var/external/crtm_2.2.3/config-setup/ifort.setup b/var/external/crtm_2.3.0/config-setup/ifort.setup similarity index 90% rename from var/external/crtm_2.2.3/config-setup/ifort.setup rename to var/external/crtm_2.3.0/config-setup/ifort.setup index 01eafee3f9..7700ab5557 100644 --- a/var/external/crtm_2.2.3/config-setup/ifort.setup +++ b/var/external/crtm_2.3.0/config-setup/ifort.setup @@ -8,8 +8,9 @@ export FC="ifort" export FCFLAGS="\ -O3 \ -fp-model source \ +-e08 \ -free \ --assume byterecl" +-assume byterecl,realloc_lhs" export LDFLAGS="" diff --git a/var/external/crtm_2.2.3/config-setup/ifort.setup.csh b/var/external/crtm_2.3.0/config-setup/ifort.setup.csh similarity index 78% rename from var/external/crtm_2.2.3/config-setup/ifort.setup.csh rename to var/external/crtm_2.3.0/config-setup/ifort.setup.csh index 2be9665817..18ec964671 100644 --- a/var/external/crtm_2.2.3/config-setup/ifort.setup.csh +++ b/var/external/crtm_2.3.0/config-setup/ifort.setup.csh @@ -4,6 +4,6 @@ #-------------------------------------------------------------------------------# setenv FC "ifort" -setenv FCFLAGS "-O3 -fp-model source -free -assume byterecl" +setenv FCFLAGS "-O2 -fp-model source -free -e08 -assume byterecl,realloc_lhs" setenv LDFLAGS "" setenv LIBS "" diff --git a/var/external/crtm_2.2.3/config-setup/pgf95-debug.setup b/var/external/crtm_2.3.0/config-setup/pgf95-debug.setup similarity index 100% rename from var/external/crtm_2.2.3/config-setup/pgf95-debug.setup rename to var/external/crtm_2.3.0/config-setup/pgf95-debug.setup diff --git a/var/external/crtm_2.2.3/config-setup/pgf95-debug.setup.csh b/var/external/crtm_2.3.0/config-setup/pgf95-debug.setup.csh similarity index 100% rename from var/external/crtm_2.2.3/config-setup/pgf95-debug.setup.csh rename to var/external/crtm_2.3.0/config-setup/pgf95-debug.setup.csh diff --git a/var/external/crtm_2.2.3/config-setup/pgf95.setup b/var/external/crtm_2.3.0/config-setup/pgf95.setup similarity index 100% rename from var/external/crtm_2.2.3/config-setup/pgf95.setup rename to var/external/crtm_2.3.0/config-setup/pgf95.setup diff --git a/var/external/crtm_2.2.3/config-setup/pgf95.setup.csh b/var/external/crtm_2.3.0/config-setup/pgf95.setup.csh similarity index 100% rename from var/external/crtm_2.2.3/config-setup/pgf95.setup.csh rename to var/external/crtm_2.3.0/config-setup/pgf95.setup.csh diff --git a/var/external/crtm_2.2.3/config-setup/xlf2003-debug.setup b/var/external/crtm_2.3.0/config-setup/xlf2003-debug.setup similarity index 95% rename from var/external/crtm_2.2.3/config-setup/xlf2003-debug.setup rename to var/external/crtm_2.3.0/config-setup/xlf2003-debug.setup index d9b42bc8a9..3fef057067 100644 --- a/var/external/crtm_2.2.3/config-setup/xlf2003-debug.setup +++ b/var/external/crtm_2.3.0/config-setup/xlf2003-debug.setup @@ -13,7 +13,7 @@ export FCFLAGS="\ -qflttrap=ov:zero:en \ -qinitauto \ -qhalt=W \ --qlanglvl=2003pure \ +-qlanglvl=2008pure \ -qmaxmem=-1 \ -qsuffix=f=f90:cpp=fpp:cpp=F90" diff --git a/var/external/crtm_2.2.3/config-setup/xlf2003-debug.setup.csh b/var/external/crtm_2.3.0/config-setup/xlf2003-debug.setup.csh similarity index 85% rename from var/external/crtm_2.2.3/config-setup/xlf2003-debug.setup.csh rename to var/external/crtm_2.3.0/config-setup/xlf2003-debug.setup.csh index e15a81144d..9cac6cb8ed 100644 --- a/var/external/crtm_2.2.3/config-setup/xlf2003-debug.setup.csh +++ b/var/external/crtm_2.3.0/config-setup/xlf2003-debug.setup.csh @@ -4,6 +4,6 @@ #-------------------------------------------------------------------------------# setenv FC "xlf2003" -setenv FCFLAGS "-qcheck -qdbg -qextchk -qfloat=nomaf:rndsngl -qflttrap=ov:zero:en -qinitauto -qhalt=W -qlanglvl=2003pure -qmaxmem=-1 -qsuffix=f=f90:cpp=fpp:cpp=F90" +setenv FCFLAGS "-qcheck -qdbg -qextchk -qfloat=nomaf:rndsngl -qflttrap=ov:zero:en -qinitauto -qhalt=W -qlanglvl=2008pure -qmaxmem=-1 -qsuffix=f=f90:cpp=fpp:cpp=F90" setenv LDFLAGS "" setenv LIBS "" diff --git a/var/external/crtm_2.2.3/config-setup/xlf2003.setup b/var/external/crtm_2.3.0/config-setup/xlf2003.setup similarity index 95% rename from var/external/crtm_2.2.3/config-setup/xlf2003.setup rename to var/external/crtm_2.3.0/config-setup/xlf2003.setup index 98a349e9d4..d3e91c3d00 100644 --- a/var/external/crtm_2.2.3/config-setup/xlf2003.setup +++ b/var/external/crtm_2.3.0/config-setup/xlf2003.setup @@ -9,7 +9,7 @@ export FCFLAGS="\ -qdbg \ -qarch=auto \ -qhalt=W \ --qlanglvl=2003pure \ +-qlanglvl=2008pure \ -qsuffix=f=f90:cpp=F90 \ -qstrict \ -NS32768 \ diff --git a/var/external/crtm_2.2.3/config-setup/xlf2003.setup.csh b/var/external/crtm_2.3.0/config-setup/xlf2003.setup.csh similarity index 84% rename from var/external/crtm_2.2.3/config-setup/xlf2003.setup.csh rename to var/external/crtm_2.3.0/config-setup/xlf2003.setup.csh index 174da5ddc6..9c0f255e1c 100644 --- a/var/external/crtm_2.2.3/config-setup/xlf2003.setup.csh +++ b/var/external/crtm_2.3.0/config-setup/xlf2003.setup.csh @@ -4,6 +4,6 @@ #-------------------------------------------------------------------------------# setenv FC "xlf2003" -setenv FCFLAGS "-qdbg -qarch=auto -qhalt=W -qlanglvl=2003pure -qsuffix=f=f90:cpp=fpp:cpp=F90 -qstrict -NS32768 -O3" +setenv FCFLAGS "-qdbg -qarch=auto -qhalt=W -qlanglvl=2008pure -qsuffix=f=f90:cpp=fpp:cpp=F90 -qstrict -NS32768 -O3" setenv LDFLAGS "-O3" setenv LIBS "-lmass -lm" diff --git a/var/external/crtm_2.3.0/crtm_release_notes.txt b/var/external/crtm_2.3.0/crtm_release_notes.txt new file mode 100644 index 0000000000..df282085d0 --- /dev/null +++ b/var/external/crtm_2.3.0/crtm_release_notes.txt @@ -0,0 +1,39 @@ +Release Notes: CRTM library v2.3.0 + +$Revision: 99117 $ + +v2.3.0 - released November 21, 2017 + + * Made scientific changes to include: + 1. All-Sky radiance simulation under cloud_fraction condition. + 2. Use of all-sky transmittances in FASTEM-X reflection correction. + 3. Improve surface reflectance in radiative transfer calculation for Microwave under + scattering condition. + 4. Add ATMS SeaIce emissivity module. + 5. Fix the simulation near 3.9 mscron by adding solar contribution in ADA_Module. + 6. Updates of CRTM Coefficients for ABI_GOES-R, AHI_Himawari-8. + 7. Updates of CRTM antenna correction coefficients for MHS_N19/Metop-a. + 8. Update AIRS coefficients for including NLTE correction. + 9. Add new coefficients for: CrIS-fsrB1/B2/B3_NPP, CrIS*_N20, CrIS-fsr431_npp/n20, + AHI_Himawari-9, ABI_G16, VIIRS-JPSS1, ATMS_N20, ATMS_N20-SRF, COWVR, tropics_designed_v1. + + * Made structure change and bug fix: + 1. Bug fix for the function CRTM_Compute_SfcOptics_AD in CRTM_SfcOptics.f90 + 2. Change CRTM_MW_Water_SfcOptics.f90 interface variable dimension. + 3. Remove the channel number in the “all channels” included CRTM coefficient files, + e.g. “cris1305_npp” would become simple “cris_npp”. + 4. Remove “ERRMSG” option in the [DE]ALLOCATE functions to fix an error when using + gfortran compiler. + 5. Change “Data Statement” to “Array Assignment” in 6 Surface Emissivity modules + to fix a compile failure when using -e08 in ifort/16.0.+. + 6. Add CloudFraction test in check_crtm.fpp. + + * In this release, there is a new feature for the simulation of all-sky (cloudy) + radiance, which utilizes Fortran class function, and now CRTM will support the + new compiler with class function, such as ifort version (14.0+, 15.0+, 16.0+), + gfortran version (gcc 4.8.5, 4.9, 5.4, 6.4, 7.2), pgi/17.3, ftn/2.3.0. + + * Compute resource information + + N/A. This is a library used in the GSI. + diff --git a/var/external/crtm_2.2.3/libsrc/ACCoeff_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/ACCoeff_Binary_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ACCoeff_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/ACCoeff_Binary_IO.f90 index 3e47a55339..73c50d279c 100644 --- a/var/external/crtm_2.2.3/libsrc/ACCoeff_Binary_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/ACCoeff_Binary_IO.f90 @@ -44,7 +44,7 @@ MODULE ACCoeff_Binary_IO ! Module parameters ! ----------------- CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: ACCoeff_Binary_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ACCoeff_Binary_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CHARACTER(*), PARAMETER :: WRITE_ERROR_STATUS = 'DELETE' ! Default message length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/ACCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/ACCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ACCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/ACCoeff_Define.f90 index 4b2a4cc885..b0e21bd954 100644 --- a/var/external/crtm_2.2.3/libsrc/ACCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/ACCoeff_Define.f90 @@ -63,7 +63,7 @@ MODULE ACCoeff_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: ACCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ACCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(Double), PARAMETER :: ZERO = 0.0_Double REAL(Double), PARAMETER :: ONE = 1.0_Double diff --git a/var/external/crtm_2.2.3/libsrc/ADA_Module.f90 b/var/external/crtm_2.3.0/libsrc/ADA_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ADA_Module.f90 rename to var/external/crtm_2.3.0/libsrc/ADA_Module.f90 index c3407a9e85..32bb31f216 100644 --- a/var/external/crtm_2.2.3/libsrc/ADA_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/ADA_Module.f90 @@ -388,7 +388,7 @@ SUBROUTINE CRTM_AMOM_layer( n_streams, & ! Input, number of streams END IF ! compute visible part for visible channels during daytime - IF( RTV%Visible_Flag_true ) THEN + IF( RTV%Solar_Flag_true ) THEN N2 = 2 * nZ N2_1 = N2 - 1 source_up = ZERO @@ -822,7 +822,7 @@ SUBROUTINE CRTM_AMOM_layer_TL( n_streams, & ! Input, number of streams ! ! for visible channels at daytime - IF( RTV%Visible_Flag_true ) THEN + IF( RTV%Solar_Flag_true ) THEN N2 = 2 * nZ N2_1 = N2 - 1 V0 = ZERO @@ -1252,7 +1252,7 @@ SUBROUTINE CRTM_AMOM_layer_AD( n_streams, & ! Input, number of streams thermal_up_AD(:) = source_up_AD(:) thermal_down_AD(:) = source_down_AD(:) - IF( RTV%Visible_Flag_true ) THEN + IF( RTV%Solar_Flag_true ) THEN N2 = 2 * nZ N2_1 = N2 - 1 diff --git a/var/external/crtm_2.2.3/libsrc/AOvar_Define.f90 b/var/external/crtm_2.3.0/libsrc/AOvar_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/AOvar_Define.f90 rename to var/external/crtm_2.3.0/libsrc/AOvar_Define.f90 index e0d9001591..56fcfbc5c5 100644 --- a/var/external/crtm_2.2.3/libsrc/AOvar_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/AOvar_Define.f90 @@ -61,7 +61,7 @@ MODULE AOvar_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: AOvar_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: AOvar_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: AOVAR_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: AOVAR_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/ASvar_Define.f90 b/var/external/crtm_2.3.0/libsrc/ASvar_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ASvar_Define.f90 rename to var/external/crtm_2.3.0/libsrc/ASvar_Define.f90 index 27fa28ef14..4c54ac85ff 100644 --- a/var/external/crtm_2.2.3/libsrc/ASvar_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/ASvar_Define.f90 @@ -64,7 +64,7 @@ MODULE ASvar_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: ASvar_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ASvar_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: ASVAR_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: ASVAR_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/AerosolCoeff_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/AerosolCoeff_Binary_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/AerosolCoeff_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/AerosolCoeff_Binary_IO.f90 index 4a3e7c66b8..6c1cfb7160 100644 --- a/var/external/crtm_2.2.3/libsrc/AerosolCoeff_Binary_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/AerosolCoeff_Binary_IO.f90 @@ -44,7 +44,7 @@ MODULE AerosolCoeff_Binary_IO ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: AerosolCoeff_Binary_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: AerosolCoeff_Binary_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CHARACTER(*), PARAMETER :: WRITE_ERROR_STATUS = 'DELETE' ! Default message length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/AerosolCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/AerosolCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/AerosolCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/AerosolCoeff_Define.f90 index 656074ff37..6428899842 100644 --- a/var/external/crtm_2.2.3/libsrc/AerosolCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/AerosolCoeff_Define.f90 @@ -59,7 +59,7 @@ MODULE AerosolCoeff_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: AerosolCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: AerosolCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Current valid release and version numbers INTEGER, PARAMETER :: AEROSOLCOEFF_RELEASE = 3 ! This determines structure and file formats. INTEGER, PARAMETER :: AEROSOLCOEFF_VERSION = 1 ! This is just the data version for the release. diff --git a/var/external/crtm_2.2.3/libsrc/Azimuth_Emissivity_F6_Module.f90 b/var/external/crtm_2.3.0/libsrc/Azimuth_Emissivity_F6_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Azimuth_Emissivity_F6_Module.f90 rename to var/external/crtm_2.3.0/libsrc/Azimuth_Emissivity_F6_Module.f90 index 0795fbac9d..0c67425d34 100644 --- a/var/external/crtm_2.2.3/libsrc/Azimuth_Emissivity_F6_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/Azimuth_Emissivity_F6_Module.f90 @@ -40,7 +40,7 @@ MODULE Azimuth_Emissivity_F6_Module ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Azimuth_Emissivity_F6_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Azimuth_Emissivity_F6_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: POINT5 = 0.5_fp diff --git a/var/external/crtm_2.2.3/libsrc/Azimuth_Emissivity_Module.f90 b/var/external/crtm_2.3.0/libsrc/Azimuth_Emissivity_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Azimuth_Emissivity_Module.f90 rename to var/external/crtm_2.3.0/libsrc/Azimuth_Emissivity_Module.f90 index 3d68a247e0..ec31383ff2 100644 --- a/var/external/crtm_2.2.3/libsrc/Azimuth_Emissivity_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/Azimuth_Emissivity_Module.f90 @@ -42,7 +42,7 @@ MODULE Azimuth_Emissivity_Module ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Azimuth_Emissivity_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Azimuth_Emissivity_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Binary_File_Utility.f90 b/var/external/crtm_2.3.0/libsrc/Binary_File_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Binary_File_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/Binary_File_Utility.f90 index a4be9d794d..b8c820e06f 100644 --- a/var/external/crtm_2.2.3/libsrc/Binary_File_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/Binary_File_Utility.f90 @@ -53,7 +53,7 @@ MODULE Binary_File_Utility ! Parameters ! ---------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Binary_File_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Binary_File_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Magic number header value for byte-swap checks INTEGER(Long), PARAMETER :: MAGIC_NUMBER = 123456789_Long ! Integer "logicals" for I/O diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AOD_Module.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AOD_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_AOD_Module.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AOD_Module.f90 index 416773a56e..a619c2add8 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AOD_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AOD_Module.f90 @@ -69,7 +69,7 @@ MODULE CRTM_AOD_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AOD_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AOD_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Adjoint_Module.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Adjoint_Module.f90 similarity index 60% rename from var/external/crtm_2.2.3/libsrc/CRTM_Adjoint_Module.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Adjoint_Module.f90 index 4115a56c6f..edf44fe5cd 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Adjoint_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Adjoint_Module.f90 @@ -31,21 +31,31 @@ MODULE CRTM_Adjoint_Module SpcCoeff_IsInfraredSensor , & SpcCoeff_IsMicrowaveSensor, & SpcCoeff_IsVisibleSensor - USE CRTM_Atmosphere_Define, ONLY: CRTM_Atmosphere_type, & - CRTM_Atmosphere_Destroy, & - CRTM_Atmosphere_IsValid, & - CRTM_Atmosphere_AddLayerCopy, & + USE CRTM_Atmosphere_Define, ONLY: CRTM_Atmosphere_type , & + CRTM_Atmosphere_Destroy , & + CRTM_Atmosphere_IsValid , & + CRTM_Atmosphere_Zero , & + CRTM_Atmosphere_AddLayerCopy , & + CRTM_Atmosphere_NonVariableCopy, & CRTM_Get_PressureLevelIdx - USE CRTM_Surface_Define, ONLY: CRTM_Surface_type, & - CRTM_Surface_IsValid + USE CRTM_Surface_Define, ONLY: CRTM_Surface_type , & + CRTM_Surface_IsValid , & + CRTM_Surface_NonVariableCopy USE CRTM_Geometry_Define, ONLY: CRTM_Geometry_type, & CRTM_Geometry_IsValid USE CRTM_ChannelInfo_Define, ONLY: CRTM_ChannelInfo_type, & CRTM_ChannelInfo_n_Channels + USE CRTM_RTSolution_Define, ONLY: CRTM_RTSolution_type, & + CRTM_RTSolution_Destroy, & + CRTM_RTSolution_Zero USE CRTM_Options_Define, ONLY: CRTM_Options_type, & CRTM_Options_IsValid - USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers, & - CRTM_Atmosphere_AddLayers_AD + USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers , & + CRTM_Atmosphere_AddLayers_AD , & + CRTM_Atmosphere_IsFractional , & + CRTM_Atmosphere_Coverage , & + CRTM_Atmosphere_ClearSkyCopy , & + CRTM_Atmosphere_ClearSkyCopy_AD USE CRTM_GeometryInfo_Define, ONLY: CRTM_GeometryInfo_type, & CRTM_GeometryInfo_SetValue, & CRTM_GeometryInfo_GetValue @@ -69,22 +79,22 @@ MODULE CRTM_Adjoint_Module CRTM_Compute_AerosolScatter_AD USE CRTM_CloudScatter, ONLY: CRTM_Compute_CloudScatter , & CRTM_Compute_CloudScatter_AD - USE CRTM_AtmOptics, ONLY: AOvar_type , & - AOvar_Create, & - CRTM_No_Scattering , & - CRTM_Include_Scattering , & - CRTM_Compute_Transmittance , & - CRTM_Compute_Transmittance_AD, & - CRTM_Combine_AtmOptics , & - CRTM_Combine_AtmOptics_AD - USE CRTM_SfcOptics_Define, ONLY: CRTM_SfcOptics_type , & + USE CRTM_AtmOptics, ONLY: CRTM_Include_Scattering , & + CRTM_Compute_Transmittance , & + CRTM_Compute_Transmittance_AD , & + CRTM_AtmOptics_Combine , & + CRTM_AtmOptics_Combine_AD , & + CRTM_AtmOptics_NoScatterCopy , & + CRTM_AtmOptics_NoScatterCopy_AD + USE CRTM_SfcOptics_Define, ONLY: OPERATOR(+) , & + CRTM_SfcOptics_type , & CRTM_SfcOptics_Associated, & CRTM_SfcOptics_Create , & - CRTM_SfcOptics_Destroy + CRTM_SfcOptics_Destroy , & + CRTM_SfcOptics_Zero USE CRTM_SfcOptics, ONLY: CRTM_Compute_SurfaceT , & CRTM_Compute_SurfaceT_AD - USE CRTM_RTSolution, ONLY: CRTM_RTSolution_type , & - CRTM_Compute_nStreams , & + USE CRTM_RTSolution, ONLY: CRTM_Compute_nStreams , & CRTM_Compute_RTSolution , & CRTM_Compute_RTSolution_AD USE CRTM_AntennaCorrection, ONLY: CRTM_Compute_AntCorr, & @@ -104,8 +114,14 @@ MODULE CRTM_Adjoint_Module USE NLTECoeff_Define, ONLY: NLTECoeff_Associated USE CRTM_Planck_Functions, ONLY: CRTM_Planck_Temperature , & CRTM_Planck_Temperature_AD + USE CRTM_CloudCover_Define, ONLY: CRTM_CloudCover_type ! Internal variable definition modules + ! ...AtmOptics + USE AOvar_Define, ONLY: AOvar_type, & + AOvar_Associated, & + AOvar_Destroy , & + AOvar_Create ! ...CloudScatter USE CSvar_Define, ONLY: CSvar_type, & CSvar_Associated, & @@ -143,7 +159,7 @@ MODULE CRTM_Adjoint_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Adjoint_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Adjoint_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -297,28 +313,33 @@ FUNCTION CRTM_Adjoint( & ! Local variables CHARACTER(256) :: Message LOGICAL :: Options_Present - LOGICAL :: Check_Input - LOGICAL :: User_Emissivity, User_Direct_Reflectivity, User_N_Streams - LOGICAL :: User_AntCorr, Compute_AntCorr - LOGICAL :: Apply_NLTE_Correction + LOGICAL :: compute_antenna_correction LOGICAL :: Atmosphere_Invalid, Surface_Invalid, Geometry_Invalid, Options_Invalid - INTEGER :: RT_Algorithm_Id + INTEGER :: Status_FWD, Status_AD INTEGER :: iFOV - INTEGER :: nc, na INTEGER :: n, n_Sensors, SensorIndex INTEGER :: l, n_Channels, ChannelIndex INTEGER :: m, n_Profiles - INTEGER :: j, ln + INTEGER :: ln INTEGER :: n_Full_Streams, mth_Azi + INTEGER :: cloud_coverage_flag REAL(fp) :: Source_ZA REAL(fp) :: Wavenumber REAL(fp) :: transmittance, transmittance_AD + REAL(fp) :: transmittance_clear, transmittance_clear_AD + REAL(fp) :: r_cloudy ! Local ancillary input structure TYPE(CRTM_AncillaryInput_type) :: AncillaryInput ! Local options structure for default values - TYPE(CRTM_Options_type) :: Default_Options + TYPE(CRTM_Options_type) :: Default_Options, Opt ! Local atmosphere structure for extra layering TYPE(CRTM_Atmosphere_type) :: Atm, Atm_AD + ! Clear sky structures + TYPE(CRTM_Atmosphere_type) :: Atm_Clear , Atm_Clear_AD + TYPE(CRTM_AtmOptics_type) :: AtmOptics_Clear , AtmOptics_Clear_AD + TYPE(CRTM_SfcOptics_type) :: SfcOptics_Clear , SfcOptics_Clear_AD + TYPE(CRTM_RTSolution_type) :: RTSolution_Clear, RTSolution_Clear_AD + TYPE(RTV_type) :: RTV_Clear ! Component variables TYPE(CRTM_GeometryInfo_type) :: GeometryInfo TYPE(CRTM_Predictor_type) :: Predictor, Predictor_AD @@ -332,7 +353,9 @@ FUNCTION CRTM_Adjoint( & TYPE(AOvar_type) :: AOvar ! AtmOptics TYPE(RTV_type) :: RTV ! RTSolution ! NLTE correction term predictors - TYPE(NLTE_Predictor_type) :: NLTE_Predictor, NLTE_Predictor_AD + TYPE(NLTE_Predictor_type) :: NLTE_Predictor, NLTE_Predictor_AD + ! Cloud cover object + TYPE(CRTM_CloudCover_type) :: CloudCover, CloudCover_AD ! ------ @@ -387,6 +410,10 @@ FUNCTION CRTM_Adjoint( & END IF + ! Reinitialise the output RTSolution + CALL CRTM_RTSolution_Zero(RTSolution) + + ! Allocate the profile independent surface optics local structure CALL CRTM_SfcOptics_Create( SfcOptics , MAX_N_ANGLES, MAX_N_STOKES ) CALL CRTM_SfcOptics_Create( SfcOptics_AD, MAX_N_ANGLES, MAX_N_STOKES ) @@ -423,90 +450,24 @@ FUNCTION CRTM_Adjoint( & ! Copy over forward "non-variable" inputs to adjoint outputs - ! ...Atmosphere - Atmosphere_AD(m)%Climatology = Atmosphere(m)%Climatology - DO j = 1, Atmosphere(m)%n_Absorbers - Atmosphere_AD(m)%Absorber_ID(j) = Atmosphere(m)%Absorber_ID(j) - Atmosphere_AD(m)%Absorber_Units(j) = Atmosphere(m)%Absorber_Units(j) - END DO - ! Loop over and assign cloud types - DO nc = 1, Atmosphere(m)%n_Clouds - Atmosphere_AD(m)%Cloud(nc)%Type = Atmosphere(m)%Cloud(nc)%Type - END DO - ! Loop over and assign aerosol types - DO na = 1, Atmosphere(m)%n_Aerosols - Atmosphere_AD(m)%Aerosol(na)%Type = Atmosphere(m)%Aerosol(na)%Type - END DO - ! ...Surface - Surface_AD(m)%Land_Coverage = Surface(m)%Land_Coverage - Surface_AD(m)%Water_Coverage = Surface(m)%Water_Coverage - Surface_AD(m)%Snow_Coverage = Surface(m)%Snow_Coverage - Surface_AD(m)%Ice_Coverage = Surface(m)%Ice_Coverage - Surface_AD(m)%Land_Type = Surface(m)%Land_Type - Surface_AD(m)%Water_Type = Surface(m)%Water_Type - Surface_AD(m)%Snow_Type = Surface(m)%Snow_Type - Surface_AD(m)%Ice_Type = Surface(m)%Ice_Type - + CALL CRTM_Atmosphere_NonVariableCopy( Atmosphere(m), Atmosphere_AD(m) ) + CALL CRTM_Surface_NonVariableCopy( Surface(m), Surface_AD(m) ) ! Check the optional Options structure argument - ! ...Specify default actions - Check_Input = Default_Options%Check_Input - User_Emissivity = Default_Options%Use_Emissivity - User_AntCorr = Default_Options%Use_Antenna_Correction - Apply_NLTE_Correction = Default_Options%Apply_NLTE_Correction - RT_Algorithm_Id = Default_Options%RT_Algorithm_Id - User_N_Streams = Default_Options%Use_N_Streams - ! ...Check the Options argument - IF (Options_Present) THEN - ! Override input checker with option - Check_Input = Options(m)%Check_Input - ! Check if the supplied emissivity should be used - User_Emissivity = Options(m)%Use_Emissivity - IF ( Options(m)%Use_Emissivity ) THEN - ! Are the channel dimensions consistent - IF ( Options(m)%n_Channels < n_Channels ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & - &"than the number of requested channels (",i0, ")" )' ) & - Options(m)%n_Channels, n_Channels - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - ! Check if the supplied direct reflectivity should be used - User_Direct_Reflectivity = Options(m)%Use_Direct_Reflectivity - END IF - ! Check if antenna correction should be attempted - User_AntCorr = Options(m)%Use_Antenna_Correction - ! Set NLTE correction option - Apply_NLTE_Correction = Options(m)%Apply_NLTE_Correction - - + Opt = Default_Options + IF ( Options_Present ) THEN + Opt = Options(m) ! Copy over ancillary input AncillaryInput%SSU = Options(m)%SSU AncillaryInput%Zeeman = Options(m)%Zeeman - ! Copy over surface optics input - SfcOptics%Use_New_MWSSEM = .NOT. Options(m)%Use_Old_MWSSEM - ! Specify the RT algorithm - RT_Algorithm_Id = Options(m)%RT_Algorithm_Id - ! Check if n_Streams should be used - User_N_Streams = Options(m)%Use_N_Streams - ! Check value for nstreams - IF ( User_N_Streams ) THEN - IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & - Options(m)%n_Streams > MAX_N_STREAMS ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & - Options(m)%n_Streams - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - END IF END IF + ! ...Assign the option specific SfcOptics input + SfcOptics%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM ! Check the input data if required - IF ( Check_Input ) THEN + IF ( Opt%Check_Input ) THEN ! ...Mandatory inputs Atmosphere_Invalid = .NOT. CRTM_Atmosphere_IsValid( Atmosphere(m) ) Surface_Invalid = .NOT. CRTM_Surface_IsValid( Surface(m) ) @@ -526,6 +487,28 @@ FUNCTION CRTM_Adjoint( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + ! Are the channel dimensions consistent if emissivity is passed? + IF ( Options(m)%Use_Emissivity ) THEN + IF ( Options(m)%n_Channels < n_Channels ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & + &"than the number of requested channels (",i0, ")" )' ) & + Options(m)%n_Channels, n_Channels + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + ! Check value for user-defined n_Streams + IF ( Options(m)%Use_N_Streams ) THEN + IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & + Options(m)%n_Streams > MAX_N_STREAMS ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & + Options(m)%n_Streams + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF END IF END IF @@ -541,10 +524,6 @@ FUNCTION CRTM_Adjoint( & Source_Zenith_Angle = Source_ZA ) - ! Average surface skin temperature for multi-surface types - CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) - - ! Add extra layers to current atmosphere profile ! if necessary to handle upper atmosphere Error_Status = CRTM_Atmosphere_AddLayers( Atmosphere(m), Atm ) @@ -565,6 +544,9 @@ FUNCTION CRTM_Adjoint( & END IF ! ...Similarly extend a copy of the input adjoint atmosphere Atm_AD = CRTM_Atmosphere_AddLayerCopy( Atmosphere_AD(m), Atm%n_Added_Layers ) + + + ! Prepare the atmospheric optics structures ! ...Allocate the atmospheric optics structures based on Atm extension CALL CRTM_AtmOptics_Create( AtmOptics, & Atm%n_Layers , & @@ -581,11 +563,9 @@ FUNCTION CRTM_Adjoint( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - IF (Options_Present) THEN - ! Set Scattering Switch - AtmOptics%Include_Scattering = Options(m)%Include_Scattering - AtmOptics_AD%Include_Scattering = Options(m)%Include_Scattering - END IF + ! ...Set the Scattering Switch + AtmOptics%Include_Scattering = Opt%Include_Scattering + AtmOptics_AD%Include_Scattering = Opt%Include_Scattering ! ...Allocate the atmospheric optics internal structure CALL AOvar_Create( AOvar, Atm%n_Layers ) @@ -609,6 +589,59 @@ FUNCTION CRTM_Adjoint( & END IF + ! Determine the type of cloud coverage + cloud_coverage_flag = CRTM_Atmosphere_Coverage( atm ) + + + ! Setup for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! Compute cloudcover + Error_Status = CloudCover%Compute_CloudCover(atm, Overlap = opt%Overlap_Id) + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'("Error computing cloud cover in profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Mold the adjoint object based on the forward, and reinitialise + CloudCover_AD = CloudCover + CALL CloudCover_AD%Set_To_Zero() + + ! Allocate some of the CLEAR sky structure for fractional cloud coverage + ! (The AtmOptics structures are allocated during a copy) + ! ...Clear sky atmosphere + Status_FWD = CRTM_Atmosphere_ClearSkyCopy(Atm, Atm_Clear) + Status_AD = CRTM_Atmosphere_ClearSkyCopy(Atm, Atm_Clear_AD) + IF ( Status_FWD /= SUCCESS .OR. Status_AD /= SUCCESS ) THEN + Error_status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY Atmosphere structures for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + CALL CRTM_Atmosphere_Zero( Atm_Clear_AD ) + ! ...Clear sky SfcOptics + CALL CRTM_SfcOptics_Create( SfcOptics_Clear , MAX_N_ANGLES, MAX_N_STOKES ) + CALL CRTM_SfcOptics_Create( SfcOptics_Clear_AD, MAX_N_ANGLES, MAX_N_STOKES ) + IF ( (.NOT. CRTM_SfcOptics_Associated(SfcOptics_Clear)) .OR. & + (.NOT. CRTM_SfcOptics_Associated(SfcOptics_Clear_AD))) THEN + Error_Status = FAILURE + WRITE( Message,'("Error allocating CLEAR SKY SfcOptics data structures for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + CALL CRTM_SfcOptics_Zero( SfcOptics_Clear_AD ) + ! ...Copy over surface optics input + SfcOptics_Clear%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM + SfcOptics_Clear_AD%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM + ! ...CLEAR SKY average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics_Clear ) + END IF + + + ! Average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) + + ! ----------- ! SENSOR LOOP ! ----------- @@ -623,13 +656,9 @@ FUNCTION CRTM_Adjoint( & ! Check if antenna correction to be applied for current sensor - IF ( User_AntCorr .AND. & - ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & - iFOV /= 0 ) THEN - Compute_AntCorr = .TRUE. - ELSE - Compute_AntCorr = .FALSE. - END IF + compute_antenna_correction = ( Opt%Use_Antenna_Correction .AND. & + ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & + iFOV /= 0 ) ! Allocate the AtmAbsorption predictor structures @@ -660,9 +689,10 @@ FUNCTION CRTM_Adjoint( & ! Allocate the RTV structure if necessary - IF( (Atm%n_Clouds > 0 .OR. & - Atm%n_Aerosols > 0 .OR. & - SpcCoeff_IsVisibleSensor( SC(SensorIndex) ) ) .and. AtmOptics%Include_Scattering ) THEN + IF( ( Atm%n_Clouds > 0 .OR. & + Atm%n_Aerosols > 0 .OR. & + SpcCoeff_IsVisibleSensor(SC(SensorIndex)) ) .AND. & + AtmOptics%Include_Scattering ) THEN CALL RTV_Create( RTV, MAX_N_ANGLES, MAX_N_LEGENDRE_TERMS, Atm%n_Layers ) IF ( .NOT. RTV_Associated(RTV) ) THEN Error_Status=FAILURE @@ -672,12 +702,12 @@ FUNCTION CRTM_Adjoint( & RETURN END IF ! Assign algorithm selector - RTV%RT_Algorithm_Id = RT_Algorithm_Id + RTV%RT_Algorithm_Id = Opt%RT_Algorithm_Id END IF ! Compute NLTE correction predictors - IF ( Apply_NLTE_Correction ) THEN + IF ( Opt%Apply_NLTE_Correction ) THEN CALL Compute_NLTE_Predictor( & SC(SensorIndex)%NC, & ! Input Atm , & ! Input @@ -707,15 +737,27 @@ FUNCTION CRTM_Adjoint( & RTSolution_AD(ln,m)%WMO_Satellite_Id = RTSolution(ln,m)%WMO_Satellite_Id RTSolution_AD(ln,m)%WMO_Sensor_Id = RTSolution(ln,m)%WMO_Sensor_Id RTSolution_AD(ln,m)%Sensor_Channel = RTSolution(ln,m)%Sensor_Channel + ! ...Same for clear structures + RTSolution_Clear%Sensor_Id = RTSolution(ln,m)%Sensor_Id + RTSolution_Clear%WMO_Satellite_Id = RTSolution(ln,m)%WMO_Satellite_Id + RTSolution_Clear%WMO_Sensor_Id = RTSolution(ln,m)%WMO_Sensor_Id + RTSolution_Clear%Sensor_Channel = RTSolution(ln,m)%Sensor_Channel + RTSolution_Clear_AD%Sensor_Id = RTSolution(ln,m)%Sensor_Id + RTSolution_Clear_AD%WMO_Satellite_Id = RTSolution(ln,m)%WMO_Satellite_Id + RTSolution_Clear_AD%WMO_Sensor_Id = RTSolution(ln,m)%WMO_Sensor_Id + RTSolution_Clear_AD%Sensor_Channel = RTSolution(ln,m)%Sensor_Channel ! Initialisations CALL CRTM_AtmOptics_Zero( AtmOptics ) + CALL CRTM_AtmOptics_Zero( AtmOptics_AD ) transmittance_AD = ZERO + CALL CRTM_RTSolution_Zero( RTSolution_Clear ) + CALL CRTM_RTSolution_Zero( RTSolution_Clear_AD ) ! Determine the number of streams (n_Full_Streams) in up+downward directions - IF ( User_N_Streams ) THEN + IF ( Opt%Use_N_Streams ) THEN n_Full_Streams = Options(m)%n_Streams RTSolution(ln,m)%n_Full_Streams = n_Full_Streams + 2 RTSolution(ln,m)%Scattering_Flag = .TRUE. @@ -728,6 +770,8 @@ FUNCTION CRTM_Adjoint( & ! ...Transfer stream count to scattering structures AtmOptics%n_Legendre_Terms = n_Full_Streams AtmOptics_AD%n_Legendre_Terms = n_Full_Streams + ! ...Ensure clear-sky object dimensions are consistent + AtmOptics_Clear_AD%n_Legendre_Terms = AtmOptics_AD%n_Legendre_Terms ! Compute the gas absorption @@ -739,11 +783,6 @@ FUNCTION CRTM_Adjoint( & AAVar ) ! Internal variable output - ! Compute the clear-sky atmospheric transmittance - ! for use in FASTEM-X reflection correction - CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) - - ! Compute the molecular scattering properties ! ...Solar radiation IF( SC(SensorIndex)%Solar_Irradiance(ChannelIndex) > ZERO .AND. & @@ -779,6 +818,27 @@ FUNCTION CRTM_Adjoint( & ELSE RTV%Visible_Flag_true = .FALSE. RTV%n_Azi = 0 + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%Visible_Flag_true = .FALSE. + RTV_Clear%n_Azi = 0 + END IF + END IF + + + ! Copy the clear-sky AtmOptics + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + Status_FWD = CRTM_AtmOptics_NoScatterCopy( AtmOptics, AtmOptics_Clear ) + Status_AD = CRTM_AtmOptics_NoScatterCopy( AtmOptics, AtmOptics_Clear_AD ) + IF ( Status_FWD /= SUCCESS .OR. Status_AD /= SUCCESS ) THEN + Error_Status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY AtmOptics for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! Initialise the adjoint + CALL CRTM_AtmOptics_Zero( AtmOptics_Clear_AD ) END IF @@ -818,33 +878,46 @@ FUNCTION CRTM_Adjoint( & ! Compute the combined atmospheric optical properties IF( AtmOptics%Include_Scattering ) THEN - CALL CRTM_Combine_AtmOptics( AtmOptics, AOvar ) + CALL CRTM_AtmOptics_Combine( AtmOptics, AOvar ) END IF ! ...Save vertically integrated scattering optical depth for output RTSolution(ln,m)%SOD = AtmOptics%Scattering_Optical_Depth - ! Turn off FASTEM-X reflection correction for scattering conditions - IF ( CRTM_Include_Scattering(AtmOptics) .AND. SpcCoeff_IsMicrowaveSensor( SC(SensorIndex) ) ) THEN - SfcOptics%Transmittance = -ONE - ELSE - SfcOptics%Transmittance = transmittance + ! Compute the all-sky atmospheric transmittance + ! for use in FASTEM-X reflection correction + CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) + SfcOptics%Transmittance = transmittance + ! ...Clear sky for fractional cloud cover + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + CALL CRTM_Compute_Transmittance(AtmOptics_Clear,transmittance_clear) + SfcOptics_Clear%Transmittance = transmittance_clear END IF ! Fill the SfcOptics structure for the optional emissivity input case. - ! ...Indicate SfcOptics ARE to be computed - SfcOptics%Compute = .TRUE. - ! ...Change SfcOptics emissivity/reflectivity contents/computation status - IF ( User_Emissivity ) THEN + SfcOptics%Compute = .TRUE. + SfcOptics_Clear%Compute = .TRUE. + IF ( Opt%Use_Emissivity ) THEN SfcOptics%Compute = .FALSE. - SfcOptics%Emissivity(1,1) = Options(m)%Emissivity(ln) - SfcOptics%Reflectivity(1,1,1,1) = ONE - Options(m)%Emissivity(ln) - IF ( User_Direct_Reflectivity ) THEN - SfcOptics%Direct_Reflectivity(1,1) = Options(m)%Direct_Reflectivity(ln) + SfcOptics%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) ELSE SfcOptics%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) END IF + ! ...Repeat for fractional clear-sky case + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + SfcOptics_Clear%Compute = .FALSE. + SfcOptics_Clear%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics_Clear%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics_Clear%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) + ELSE + SfcOptics_Clear%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) + END IF + END IF END IF @@ -852,8 +925,6 @@ FUNCTION CRTM_Adjoint( & ! mth_Azi = 0 is for an azimuth-averaged value (IR, MW) ! ...Initialise radiance RTSolution(ln,m)%Radiance = ZERO - ! ...Initialise adjoint atmospheric optics - CALL CRTM_AtmOptics_Zero( AtmOptics_AD ) @@ -890,51 +961,106 @@ FUNCTION CRTM_Adjoint( & RETURN END IF - ! Compute non-LTE correction to radiance if required - IF ( Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) & - CALL Compute_NLTE_Correction( & - SC(SensorIndex)%NC , & ! Input - ChannelIndex , & ! Input - NLTE_Predictor , & ! Input - RTSolution(ln,m)%Radiance ) ! In/Output - - ! Convert the radiance to brightness temperature - CALL CRTM_Planck_Temperature( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution(ln,m)%Brightness_Temperature ) ! Output - - ! Compute Antenna correction to brightness temperature if required - IF ( Compute_AntCorr ) THEN - CALL CRTM_Compute_AntCorr( & - GeometryInfo , & ! Input - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m) ) ! Output - CALL CRTM_Compute_AntCorr_AD( & - GeometryInfo , & ! Input - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution_AD(ln,m) ) ! Output + + ! Repeat clear sky for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%mth_Azi = 0 !RTV%mth_Azi + SfcOptics_Clear%mth_Azi = 0 !SfcOptics%mth_Azi + Error_Status = CRTM_Compute_RTSolution( & + Atm_Clear , & ! Input + Surface(m) , & ! Input + AtmOptics_Clear , & ! Input + SfcOptics_Clear , & ! Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + RTSolution_Clear, & ! Output + RTV_Clear ) ! Internal variable output + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + + + ! Combine cloudy and clear radiances for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + r_cloudy = RTSolution(ln,m)%Radiance ! Save the 100% cloudy radiance + RTSolution(ln,m)%Radiance = & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_Clear%Radiance) + & + (CloudCover%Total_Cloud_Cover * RTSolution(ln,m)%Radiance) + ! ...Save the cloud cover in the output structure + RTSolution(ln,m)%Total_Cloud_Cover = CloudCover%Total_Cloud_Cover + END IF + + + ! The radiance post-processing + CALL Post_Process_RTSolution(RTSolution(ln,m)) + + + ! Perform clear-sky post and pre-processing + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + ! Radiance post-processing + CALL Post_Process_RTSolution(RTSolution_Clear) + RTSolution(ln,m)%R_Clear = RTSolution_Clear%Radiance + RTSolution(ln,m)%Tb_Clear = RTSolution_Clear%Brightness_Temperature + + ! Adjoint radiance pre-processing + RTSolution_Clear_AD%Brightness_Temperature = RTSolution_Clear_AD%Brightness_Temperature + & + RTSolution_AD(ln,m)%Tb_Clear + RTSolution_AD(ln,m)%Tb_Clear = ZERO + RTSolution_Clear_AD%Radiance = RTSolution_Clear_AD%Radiance + & + RTSolution_AD(ln,m)%R_Clear + RTSolution_AD(ln,m)%R_Clear = ZERO + CALL Pre_Process_RTSolution_AD(RTSolution_Clear, RTSolution_Clear_AD) + END IF + + + ! The adjoint radiance pre-processing + CALL Pre_Process_RTSolution_AD(RTSolution(ln,m), RTSolution_AD(ln,m)) + + + ! More fractionally cloudy atmospheres processing + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! The adjoint of the clear and cloudy radiance combination + CloudCover_AD%Total_Cloud_Cover = CloudCover_AD%Total_Cloud_Cover + & + RTSolution_AD(ln,m)%Total_Cloud_Cover + RTSolution_AD(ln,m)%Total_Cloud_Cover = ZERO + RTSolution_Clear_AD%Radiance = RTSolution_Clear_AD%Radiance + & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_AD(ln,m)%Radiance) + CloudCover_AD%Total_Cloud_Cover = CloudCover_AD%Total_Cloud_Cover + & + ((r_cloudy - RTSolution_Clear%Radiance) * RTSolution_AD(ln,m)%Radiance) + RTSolution_AD(ln,m)%Radiance = CloudCover%Total_Cloud_Cover * RTSolution_AD(ln,m)%Radiance + + ! The adjoint of the clear sky radiative transfer for fractionally cloudy atmospheres + Error_Status = CRTM_Compute_RTSolution_AD( & + Atm_Clear , & ! FWD Input + Surface(m) , & ! FWD Input + AtmOptics_Clear , & ! FWD Input + SfcOptics_Clear , & ! FWD Input + RTSolution_Clear , & ! FWD Input + RTSolution_Clear_AD, & ! AD Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + Atm_Clear_AD , & ! AD Output + Surface_AD(m) , & ! AD Output + AtmOptics_Clear_AD , & ! AD Output + SfcOptics_Clear_AD , & ! AD Output + RTV_Clear ) ! Internal variable input + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution_AD for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF END IF - ! Compute the Planck temperature adjoijnt - CALL CRTM_Planck_Temperature_AD( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution_AD(ln,m)%Brightness_Temperature, & ! Input - RTSolution_AD(ln,m)%Radiance ) ! Output - RTSolution_AD(ln,m)%Brightness_Temperature = ZERO - - ! Compute non-LTE correction adjoint if required - IF ( Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) & - CALL Compute_NLTE_Correction_AD( & - SC(SensorIndex)%NC , & ! Input - ChannelIndex , & ! Input - RTSolution_AD(ln,m)%Radiance, & ! Input - NLTE_Predictor_AD ) ! Output ! The adjoint of the radiative transfer Error_Status = CRTM_Compute_RTSolution_AD( & @@ -965,7 +1091,7 @@ FUNCTION CRTM_Adjoint( & ! -------------- ! VISIBLE sensor ! -------------- - ! ...Fourier expansion over azimuth angle + ! Fourier expansion over azimuth angle Azimuth_Fourier_Loop: DO mth_Azi = 0, RTV%n_Azi ! Set dependent component counters @@ -991,6 +1117,100 @@ FUNCTION CRTM_Adjoint( & RETURN END IF + ! Repeat clear sky for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%mth_Azi = RTV%mth_Azi + SfcOptics_Clear%mth_Azi = SfcOptics%mth_Azi + Error_Status = CRTM_Compute_RTSolution( & + Atm_Clear , & ! Input + Surface(m) , & ! Input + AtmOptics_Clear , & ! Input + SfcOptics_Clear , & ! Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + RTSolution_Clear, & ! Output + RTV_Clear ) ! Internal variable output + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + END DO Azimuth_Fourier_Loop + + + ! All of the "in-between" FWD and AD processing is for fractional cloud coverage only + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! FORWARD #1: Combine cloudy and clear radiances for fractional cloud coverage + r_cloudy = RTSolution(ln,m)%Radiance ! Save the 100% cloudy radiance + RTSolution(ln,m)%Radiance = & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_Clear%Radiance) + & + (CloudCover%Total_Cloud_Cover * RTSolution(ln,m)%Radiance) + ! FORWARD #2: Save the cloud cover and clear radiance in the output structure + RTSolution(ln,m)%Total_Cloud_Cover = CloudCover%Total_Cloud_Cover + RTSolution(ln,m)%R_Clear = RTSolution_Clear%Radiance + RTSolution(ln,m)%Tb_Clear = ZERO ! No Tb for visible + + ! ADJOINT #2: Of the cloud cover and clear radiance saving + RTSolution_Clear_AD%Tb_Clear = ZERO ! No Tb for visible + RTSolution_Clear_AD%Radiance = RTSolution_Clear_AD%Radiance + & + RTSolution_AD(ln,m)%R_Clear + RTSolution_AD(ln,m)%R_Clear = ZERO + CloudCover_AD%Total_Cloud_Cover = CloudCover_AD%Total_Cloud_Cover + & + RTSolution_AD(ln,m)%Total_Cloud_Cover + RTSolution_AD(ln,m)%Total_Cloud_Cover = ZERO + + ! ADJOINT #1: Of the clear+cloudy combination + RTSolution_Clear_AD%Radiance = RTSolution_Clear_AD%Radiance + & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_AD(ln,m)%Radiance) + CloudCover_AD%Total_Cloud_Cover = CloudCover_AD%Total_Cloud_Cover + & + ((r_cloudy - RTSolution_Clear%Radiance) * RTSolution_AD(ln,m)%Radiance) + RTSolution_AD(ln,m)%Radiance = CloudCover%Total_Cloud_Cover * RTSolution_AD(ln,m)%Radiance + END IF + + + ! Adjoint Fourier expansion over azimuth angle + Azimuth_Fourier_Loop_AD: DO mth_Azi = 0, RTV%n_Azi + + + ! Set dependent component counters + RTV%mth_Azi = mth_Azi + SfcOptics%mth_Azi = mth_Azi + + + ! The adjoint of the clear sky radiative transfer for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%mth_Azi = RTV%mth_Azi + SfcOptics_Clear%mth_Azi = SfcOptics%mth_Azi + Error_Status = CRTM_Compute_RTSolution_AD( & + Atm_Clear , & ! FWD Input + Surface(m) , & ! FWD Input + AtmOptics_Clear , & ! FWD Input + SfcOptics_Clear , & ! FWD Input + RTSolution_Clear , & ! FWD Input + RTSolution_Clear_AD, & ! AD Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + Atm_Clear_AD , & ! AD Output + Surface_AD(m) , & ! AD Output + AtmOptics_Clear_AD , & ! AD Output + SfcOptics_Clear_AD , & ! AD Output + RTV_Clear ) ! Internal variable input + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution_AD for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + + ! The adjoint of the radiative transfer Error_Status = CRTM_Compute_RTSolution_AD( & Atm , & ! FWD Input @@ -1014,14 +1234,7 @@ FUNCTION CRTM_Adjoint( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - END DO Azimuth_Fourier_Loop - - ! Still want to convert the final FORWARD radiance to brightness temperature - CALL CRTM_Planck_Temperature( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution(ln,m)%Brightness_Temperature ) ! Output + END DO Azimuth_Fourier_Loop_AD END IF Sensor_Dependent_RTSolution ! ################################################### @@ -1029,9 +1242,25 @@ FUNCTION CRTM_Adjoint( & ! ################################################### + ! Compute the adjoint of the all-sky atmospheric transmittance + ! for use in FASTEM-X reflection correction + transmittance_AD = SfcOptics_AD%transmittance + SfcOptics_AD%transmittance = ZERO + CALL CRTM_Compute_Transmittance_AD(AtmOptics,transmittance_AD,AtmOptics_AD) + ! ...Clear sky for fractional cloud cover + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + transmittance_clear_AD = SfcOptics_Clear_AD%transmittance + SfcOptics_Clear_AD%transmittance = ZERO + CALL CRTM_Compute_Transmittance_AD(AtmOptics_Clear,transmittance_clear_AD,AtmOptics_Clear_AD) + END IF + + ! Compute the adjoint of the combined atmospheric optical properties + AtmOptics_AD%Scattering_Optical_Depth = AtmOptics_AD%Scattering_Optical_Depth + & + RTSolution_AD(ln,m)%SOD + RTSolution_AD(ln,m)%SOD = ZERO IF( AtmOptics%Include_Scattering ) THEN - CALL CRTM_Combine_AtmOptics_AD( AtmOptics, AtmOptics_AD, AOvar ) + CALL CRTM_AtmOptics_Combine_AD( AtmOptics, AtmOptics_AD, AOvar ) END IF @@ -1073,6 +1302,19 @@ FUNCTION CRTM_Adjoint( & END IF + ! Adjoint of clear-sky AtmOptics copy + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + Error_Status = CRTM_AtmOptics_NoScatterCopy_AD( AtmOptics, AtmOptics_Clear_AD, AtmOptics_AD ) + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'("Error computing CLEAR SKY AtmOptics_AD for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + + ! Compute the adjoint molecular scattering properties IF( RTV%Visible_Flag_true ) THEN Wavenumber = SC(SensorIndex)%Wavenumber(ChannelIndex) @@ -1092,14 +1334,6 @@ FUNCTION CRTM_Adjoint( & END IF - ! Compute the adjoint of the total atmospheric transmittance - IF ( CRTM_No_Scattering(AtmOptics) .AND. SpcCoeff_IsMicrowaveSensor(SC(SensorIndex)) ) THEN - transmittance_AD = SfcOptics_AD%transmittance - SfcOptics_AD%transmittance = ZERO - CALL CRTM_Compute_Transmittance_AD(AtmOptics,transmittance_AD,AtmOptics_AD) - END IF - - ! Compute the adjoint gaseous absorption CALL CRTM_Compute_AtmAbsorption_AD( SensorIndex , & ! Input ChannelIndex , & ! Input @@ -1115,7 +1349,7 @@ FUNCTION CRTM_Adjoint( & ! Adjoint of the NLTE correction predictor calculations - IF ( Apply_NLTE_Correction ) THEN + IF ( Opt%Apply_NLTE_Correction ) THEN CALL Compute_NLTE_Predictor_AD( & NLTE_Predictor , & ! Input NLTE_Predictor_AD, & ! Input @@ -1132,43 +1366,152 @@ FUNCTION CRTM_Adjoint( & Atm_AD , & ! AD Output PVar ) ! Internal variable input - - ! Deallocate local sensor dependent data structures - ! ...RTV structure - IF ( RTV_Associated(RTV) ) CALL RTV_Destroy(RTV) - ! ...Predictor structures - CALL CRTM_Predictor_Destroy( Predictor ) - CALL CRTM_Predictor_Destroy( Predictor_AD ) - END DO Sensor_Loop - ! Postprocess some input data - ! ...Adjoint of average surface skin temperature for multi-surface types + ! Adjoint of average surface skin temperature for multi-surface types CALL CRTM_Compute_SurfaceT_AD( Surface(m), SfcOptics_AD, Surface_AD(m) ) - ! ...Adjoint of the atmosphere layer addition + + + ! Adjoint of cloud cover setup + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! Post process the CLEAR sky structures for fractional cloud coverage + ! ...Clear sky SfcOptics + CALL CRTM_Compute_SurfaceT_AD( Surface(m), SfcOptics_Clear_AD, Surface_AD(m) ) + ! ...Clear sky atmosphere + Error_Status = CRTM_Atmosphere_ClearSkyCopy_AD(Atm, Atm_Clear_AD, Atm_AD) + IF ( Error_Status /= SUCCESS ) THEN + Error_status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY adjoint Atmosphere structure for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + + ! Adjoint of the cloud coverage + Error_Status = CloudCover_AD%Compute_CloudCover_AD(CloudCover, atm, atm_AD) + IF ( Error_Status /= SUCCESS ) THEN + Error_Status = FAILURE + WRITE( Message,'("Error computing ADJOINT cloud cover for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + + + ! Adjoint of the atmosphere layer addition Error_Status = CRTM_Atmosphere_AddLayers_AD( Atmosphere(m), Atm_AD, Atmosphere_AD(m) ) IF ( Error_Status /= SUCCESS ) THEN Error_Status = FAILURE - WRITE( Message,'("Error adding AD extra layers to profile #",i0)' ) m + WRITE( Message,'("Error adding ADJOINT extra layers to profile #",i0)' ) m CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - - ! Deallocate local sensor independent data structures - ! ...Atmospheric optics - CALL CRTM_AtmOptics_Destroy( AtmOptics ) - CALL CRTM_AtmOptics_Destroy( AtmOptics_AD ) - END DO Profile_Loop - ! Destroy any remaining structures + ! Clean up + CALL CRTM_Predictor_Destroy( Predictor ) + CALL CRTM_Predictor_Destroy( Predictor_AD ) + CALL CRTM_AtmOptics_Destroy( AtmOptics ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_AD ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_Clear ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_Clear_AD ) CALL CRTM_SfcOptics_Destroy( SfcOptics ) CALL CRTM_SfcOptics_Destroy( SfcOptics_AD ) - CALL CRTM_Atmosphere_Destroy( Atm_AD ) + CALL CRTM_SfcOptics_Destroy( SfcOptics_Clear ) + CALL CRTM_SfcOptics_Destroy( SfcOptics_Clear_AD ) CALL CRTM_Atmosphere_Destroy( Atm ) + CALL CRTM_Atmosphere_Destroy( Atm_AD ) + CALL CRTM_Atmosphere_Destroy( Atm_Clear ) + CALL CRTM_Atmosphere_Destroy( Atm_Clear_AD ) + ! ...Internal variables + CALL AOvar_Destroy( AOvar ) + CALL CSvar_Destroy( CSvar ) + CALL ASvar_Destroy( ASvar ) + CALL RTV_Destroy( RTV ) + + +CONTAINS + + + ! ---------------------------------------------------------------- + ! Local subroutine to post-process the FORWARD radiance, as it is + ! the same for all-sky and fractional clear-sky cases. + ! + ! 1. Apply non-LTE correction to radiance + ! 2. Convert radiance to brightness temperature + ! 3. Apply antenna correction to brightness temperature + ! ---------------------------------------------------------------- + + SUBROUTINE Post_Process_RTSolution(rts) + TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: rts + + ! Compute non-LTE correction to radiance if required + IF ( Opt%Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN + CALL Compute_NLTE_Correction( & + SC(SensorIndex)%NC, & ! Input + ChannelIndex , & ! Input + NLTE_Predictor , & ! Input + rts%Radiance ) ! In/Output + END IF + ! Convert the radiance to brightness temperature + CALL CRTM_Planck_Temperature( & + SensorIndex , & ! Input + ChannelIndex , & ! Input + rts%Radiance , & ! Input + rts%Brightness_Temperature ) ! Output + ! Compute Antenna correction to brightness temperature if required + IF ( compute_antenna_correction ) THEN + CALL CRTM_Compute_AntCorr( & + GeometryInfo, & ! Input + SensorIndex , & ! Input + ChannelIndex, & ! Input + rts ) ! Output + END IF + + END SUBROUTINE Post_Process_RTSolution + + + ! ---------------------------------------------------------------- + ! Local subroutine to pre-process the ADJOINT radiance, as it is + ! the same for all-sky and fractional clear-sky cases. + ! + ! 1. Apply adjoint antenna correction to brightness temperatures + ! 2. Convert adjoint radiances to brightness temperatures + ! 3. Apply adjoint non-LTE correction to radiances + ! ---------------------------------------------------------------- + + SUBROUTINE Pre_Process_RTSolution_AD(rts, rts_AD) + TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: rts, rts_AD + + ! Compute adjoint antenna correction to brightness temperature if required + IF ( compute_antenna_correction ) THEN + CALL CRTM_Compute_AntCorr_AD( & + GeometryInfo, & ! Input + SensorIndex , & ! Input + ChannelIndex, & ! Input + rts_AD ) ! Output + END IF + ! Compute the Planck temperature adjoint + CALL CRTM_Planck_Temperature_AD( & + SensorIndex , & ! Input + ChannelIndex , & ! Input + rts%Radiance , & ! Input + rts_AD%Brightness_Temperature, & ! Input + rts_AD%Radiance ) ! Output + rts_AD%Brightness_Temperature = ZERO + ! Compute non-LTE correction adjoint if required + IF ( Opt%Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN + CALL Compute_NLTE_Correction_AD( & + SC(SensorIndex)%NC, & ! Input + ChannelIndex , & ! Input + rts_AD%Radiance , & ! Input + NLTE_Predictor_AD ) ! Output + END IF + + END SUBROUTINE Pre_Process_RTSolution_AD END FUNCTION CRTM_Adjoint diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AerosolCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AerosolCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_AerosolCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AerosolCoeff.f90 index 5995ace371..e63474df20 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AerosolCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AerosolCoeff.f90 @@ -54,7 +54,7 @@ MODULE CRTM_AerosolCoeff ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AerosolCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AerosolCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AerosolScatter.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AerosolScatter.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_AerosolScatter.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AerosolScatter.f90 index 5a1a0702f3..774554a8ba 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AerosolScatter.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AerosolScatter.f90 @@ -89,7 +89,7 @@ MODULE CRTM_AerosolScatter ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AerosolScatter.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AerosolScatter.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 ! Number of stream angle definitions diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Aerosol_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Aerosol_Define.f90 similarity index 95% rename from var/external/crtm_2.2.3/libsrc/CRTM_Aerosol_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Aerosol_Define.f90 index 7426f3eacb..29658d14cb 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Aerosol_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Aerosol_Define.f90 @@ -54,6 +54,7 @@ MODULE CRTM_Aerosol_Define PUBLIC :: CRTM_Aerosol_type ! Operators PUBLIC :: OPERATOR(==) + PUBLIC :: OPERATOR(/=) PUBLIC :: OPERATOR(+) PUBLIC :: OPERATOR(-) ! Procedures @@ -82,6 +83,10 @@ MODULE CRTM_Aerosol_Define MODULE PROCEDURE CRTM_Aerosol_Equal END INTERFACE OPERATOR(==) + INTERFACE OPERATOR(/=) + MODULE PROCEDURE CRTM_Aerosol_NotEqual + END INTERFACE OPERATOR(/=) + INTERFACE OPERATOR(+) MODULE PROCEDURE CRTM_Aerosol_Add END INTERFACE OPERATOR(+) @@ -101,7 +106,7 @@ MODULE CRTM_Aerosol_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Aerosol_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Aerosol_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Aerosol types and names INTEGER, PARAMETER :: N_VALID_AEROSOL_CATEGORIES = 8 INTEGER, PARAMETER :: INVALID_AEROSOL = 0 @@ -196,7 +201,8 @@ FUNCTION CRTM_Aerosol_CategoryList(list) RESULT(err_stat) CHARACTER(ML) :: alloc_msg, msg INTEGER :: alloc_stat err_stat = SUCCESS - ALLOCATE( list(0:N_VALID_AEROSOL_CATEGORIES), STAT=alloc_stat, ERRMSG=alloc_msg ) + !ALLOCATE( list(0:N_VALID_AEROSOL_CATEGORIES), STAT=alloc_stat, ERRMSG=alloc_msg ) + ALLOCATE( list(0:N_VALID_AEROSOL_CATEGORIES), STAT=alloc_stat ) IF ( alloc_stat /= 0 ) THEN err_stat = FAILURE msg = 'Aerosol category list result not allocated -'//TRIM(alloc_msg) @@ -700,19 +706,20 @@ ELEMENTAL FUNCTION CRTM_Aerosol_Compare( & n = DEFAULT_N_SIGFIG END IF - ! Check the structure association status - IF ( (.NOT. CRTM_Aerosol_Associated(x)) .OR. & - (.NOT. CRTM_Aerosol_Associated(y)) ) RETURN + ! Check the object association status + IF ( CRTM_Aerosol_Associated(x) .NEQV. CRTM_Aerosol_Associated(y) ) RETURN - ! Check scalars + ! Check contents + ! ...Dimensions and scalars IF ( (x%n_Layers /= y%n_Layers) .OR. & (x%Type /= y%Type ) ) RETURN - - ! Check arrays - IF ( (.NOT. ALL(Compares_Within_Tolerance(x%Effective_Radius,y%Effective_Radius,n))) .OR. & - (.NOT. ALL(Compares_Within_Tolerance(x%Concentration ,y%Concentration ,n))) ) RETURN - - ! If we get here, the structures are comparable + ! ...Arrays + IF ( CRTM_Aerosol_Associated(x) .AND. CRTM_Aerosol_Associated(y) ) THEN + IF ( (.NOT. ALL(Compares_Within_Tolerance(x%Effective_Radius,y%Effective_Radius,n))) .OR. & + (.NOT. ALL(Compares_Within_Tolerance(x%Concentration ,y%Concentration ,n))) ) RETURN + END IF + + ! If we get here, the objects are comparable is_comparable = .TRUE. END FUNCTION CRTM_Aerosol_Compare @@ -1295,22 +1302,67 @@ ELEMENTAL FUNCTION CRTM_Aerosol_Equal( x, y ) RESULT( is_equal ) ! Set up is_equal = .FALSE. - ! Check the structure association status - IF ( (.NOT. CRTM_Aerosol_Associated(x)) .OR. & - (.NOT. CRTM_Aerosol_Associated(y)) ) RETURN + ! Check the object association status + IF ( CRTM_Aerosol_Associated(x) .NEQV. CRTM_Aerosol_Associated(y) ) RETURN ! Check contents ! ...Scalars IF ( (x%n_Layers /= y%n_Layers) .OR. (x%Type /= y%Type) ) RETURN ! ...Arrays - n = x%n_Layers - IF ( ALL(x%Effective_Radius(1:n) .EqualTo. y%Effective_Radius(1:n) ) .AND. & - ALL(x%Concentration(1:n) .EqualTo. y%Concentration(1:n) ) ) & - is_equal = .TRUE. + IF ( CRTM_Aerosol_Associated(x) .AND. CRTM_Aerosol_Associated(y) ) THEN + n = x%n_Layers + IF ( .NOT. (ALL(x%Effective_Radius(1:n) .EqualTo. y%Effective_Radius(1:n) ) .AND. & + ALL(x%Concentration(1:n) .EqualTo. y%Concentration(1:n) )) ) RETURN + END IF + + ! If we get here, then... + is_equal = .TRUE. END FUNCTION CRTM_Aerosol_Equal +!------------------------------------------------------------------------------ +! +! NAME: +! CRTM_Aerosol_NotEqual +! +! PURPOSE: +! Elemental function to test the inequality of two CRTM Aerosol objects. +! Used in OPERATOR(/=) interface block. +! +! This function is syntactic sugar. +! +! CALLING SEQUENCE: +! not_equal = CRTM_Aerosol_NotEqual( x, y ) +! +! or +! +! IF ( x /= y ) THEN +! ... +! END IF +! +! OBJECTS: +! x, y: Two CRTM Aerosol objects to be compared. +! UNITS: N/A +! TYPE: CRTM_Aerosol_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! not_equal: Logical value indicating whether the inputs are not equal. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Same as inputs. +! +!------------------------------------------------------------------------------ + + ELEMENTAL FUNCTION CRTM_Aerosol_NotEqual( x, y ) RESULT( not_equal ) + TYPE(CRTM_Aerosol_type), INTENT(IN) :: x, y + LOGICAL :: not_equal + not_equal = .NOT. (x == y) + END FUNCTION CRTM_Aerosol_NotEqual + + !-------------------------------------------------------------------------------- ! ! NAME: diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AncillaryInput_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AncillaryInput_Define.f90 similarity index 90% rename from var/external/crtm_2.2.3/libsrc/CRTM_AncillaryInput_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AncillaryInput_Define.f90 index 67e578bd56..744374b60b 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AncillaryInput_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AncillaryInput_Define.f90 @@ -25,7 +25,7 @@ MODULE CRTM_AncillaryInput_Define ! ----------------- ! Version Id for the module CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AncillaryInput_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AncillaryInput_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' !-------------------- ! Structure defintion diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AntennaCorrection.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AntennaCorrection.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_AntennaCorrection.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AntennaCorrection.f90 index 17d64ef9bc..fffaa43a51 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AntennaCorrection.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AntennaCorrection.f90 @@ -41,7 +41,7 @@ MODULE CRTM_AntennaCorrection ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AntennaCorrection.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AntennaCorrection.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AtmAbsorption.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AtmAbsorption.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_AtmAbsorption.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AtmAbsorption.f90 index 4a738dbb00..ae44f845d4 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AtmAbsorption.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AtmAbsorption.f90 @@ -70,7 +70,7 @@ MODULE CRTM_AtmAbsorption ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AtmAbsorption.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AtmAbsorption.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AtmOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AtmOptics.f90 similarity index 67% rename from var/external/crtm_2.2.3/libsrc/CRTM_AtmOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AtmOptics.f90 index df27380c5f..aee8fb8c1f 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AtmOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AtmOptics.f90 @@ -22,7 +22,10 @@ MODULE CRTM_AtmOptics MAX_N_LAYERS, & BS_THRESHOLD, & SCATTERING_ALBEDO_THRESHOLD - USE CRTM_AtmOptics_Define, ONLY: CRTM_AtmOptics_type + USE CRTM_AtmOptics_Define, ONLY: CRTM_AtmOptics_type , & + CRTM_AtmOptics_Associated, & + CRTM_AtmOptics_Create , & + CRTM_AtmOptics_Zero ! Internal variable definition module USE AOvar_Define, ONLY: AOvar_type, & AOvar_Associated, & @@ -41,21 +44,30 @@ MODULE CRTM_AtmOptics PUBLIC :: AOvar_type ! Procedures PUBLIC :: AOvar_Create + PUBLIC :: CRTM_No_Scattering PUBLIC :: CRTM_Include_Scattering + PUBLIC :: CRTM_Compute_Transmittance PUBLIC :: CRTM_Compute_Transmittance_TL PUBLIC :: CRTM_Compute_Transmittance_AD - PUBLIC :: CRTM_Combine_AtmOptics - PUBLIC :: CRTM_Combine_AtmOptics_TL - PUBLIC :: CRTM_Combine_AtmOptics_AD + + PUBLIC :: CRTM_AtmOptics_Combine + PUBLIC :: CRTM_AtmOptics_Combine_TL + PUBLIC :: CRTM_AtmOptics_Combine_AD + + PUBLIC :: CRTM_AtmOptics_NoScatterCopy + PUBLIC :: CRTM_AtmOptics_NoScatterCopy_TL + PUBLIC :: CRTM_AtmOptics_NoScatterCopy_AD ! --------------- ! Module parameters ! --------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AtmOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AtmOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' + ! Message string length + INTEGER, PARAMETER :: ML = 256 CONTAINS @@ -322,14 +334,14 @@ END SUBROUTINE CRTM_Compute_Transmittance_AD !:sdoc+: ! ! NAME: -! CRTM_Combine_AtmOptics +! CRTM_AtmOptics_Combine ! ! PURPOSE: ! Subroutine to combine the optical properties from AtmAbsorption, ! CloudScatter, and AerosolScatter calculations. ! ! CALLING SEQUENCE: -! CALL CRTM_Combine_AtmOptics( AtmOptics, & +! CALL CRTM_AtmOptics_Combine( AtmOptics, & ! AOvar ) ! ! OUTPUTS: @@ -351,14 +363,14 @@ END SUBROUTINE CRTM_Compute_Transmittance_AD !:sdoc-: !-------------------------------------------------------------------------------- - SUBROUTINE CRTM_Combine_AtmOptics( & + SUBROUTINE CRTM_AtmOptics_Combine( & AtmOptics, & ! Output AOvar ) ! Internal variable output ! Arguments TYPE(CRTM_AtmOptics_type), INTENT(IN OUT) :: AtmOptics TYPE(AOvar_type) , INTENT(IN OUT) :: AOvar ! Local parameters - CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Combine_AtmOptics' + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_AtmOptics_Combine' ! Local variables INTEGER :: i, k, l @@ -414,7 +426,7 @@ SUBROUTINE CRTM_Combine_AtmOptics( & END DO Layer_Loop - END SUBROUTINE CRTM_Combine_AtmOptics + END SUBROUTINE CRTM_AtmOptics_Combine @@ -422,14 +434,14 @@ END SUBROUTINE CRTM_Combine_AtmOptics !:sdoc+: ! ! NAME: -! CRTM_Combine_AtmOptics_TL +! CRTM_AtmOptics_Combine_TL ! ! PURPOSE: ! Subroutine to combine the tangent-linear optical properties from ! AtmAbsorption, CloudScatter, and AerosolScatter calculations. ! ! CALLING SEQUENCE: -! CALL CRTM_Combine_AtmOptics_TL( AtmOptics , & +! CALL CRTM_AtmOptics_Combine_TL( AtmOptics , & ! AtmOptics_TL, & ! AOvar ) ! INPUTS: @@ -458,7 +470,7 @@ END SUBROUTINE CRTM_Combine_AtmOptics !:sdoc-: !-------------------------------------------------------------------------------- - SUBROUTINE CRTM_Combine_AtmOptics_TL( & + SUBROUTINE CRTM_AtmOptics_Combine_TL( & AtmOptics , & ! FWD Input AtmOptics_TL, & ! TL Output AOvar ) ! Internal variable input @@ -467,7 +479,7 @@ SUBROUTINE CRTM_Combine_AtmOptics_TL( & TYPE(CRTM_AtmOptics_type), INTENT(IN OUT) :: AtmOptics_TL TYPE(AOvar_type) , INTENT(IN) :: AOvar ! Local parameters - CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Combine_AtmOptics_TL' + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_AtmOptics_Combine_TL' ! Local variables INTEGER :: i, k, l REAL(fp) :: optical_depth_TL @@ -562,7 +574,7 @@ SUBROUTINE CRTM_Combine_AtmOptics_TL( & END DO Layer_Loop - END SUBROUTINE CRTM_Combine_AtmOptics_TL + END SUBROUTINE CRTM_AtmOptics_Combine_TL @@ -570,14 +582,14 @@ END SUBROUTINE CRTM_Combine_AtmOptics_TL !:sdoc+: ! ! NAME: -! CRTM_Combine_AtmOptics_AD +! CRTM_AtmOptics_Combine_AD ! ! PURPOSE: ! Subroutine to compute the adjoint form of the optical properties ! from AtmAbsorption, CloudScatter, and AerosolScatter calculations. ! ! CALLING SEQUENCE: -! CALL CRTM_Combine_AtmOptics_AD( AtmOptics, & +! CALL CRTM_AtmOptics_Combine_AD( AtmOptics, & ! AtmOptics_AD, & ! AOvar ) ! @@ -610,7 +622,7 @@ END SUBROUTINE CRTM_Combine_AtmOptics_TL !:sdoc-: !-------------------------------------------------------------------------------- - SUBROUTINE CRTM_Combine_AtmOptics_AD( & + SUBROUTINE CRTM_AtmOptics_Combine_AD( & AtmOptics , & ! FWD Input AtmOptics_AD, & ! AD Input AOvar ) ! Internal variable input @@ -619,7 +631,7 @@ SUBROUTINE CRTM_Combine_AtmOptics_AD( & TYPE(CRTM_AtmOptics_type), INTENT(IN OUT) :: AtmOptics_AD TYPE(AOvar_type) , INTENT(IN) :: AOvar ! Local parameters - CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Combine_AtmOptics_AD' + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_AtmOptics_Combine_AD' ! Local variables INTEGER :: i, k, l REAL(fp) :: w_AD @@ -724,6 +736,308 @@ SUBROUTINE CRTM_Combine_AtmOptics_AD( & END DO Layer_Loop - END SUBROUTINE CRTM_Combine_AtmOptics_AD + END SUBROUTINE CRTM_AtmOptics_Combine_AD + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_AtmOptics_NoScatterCopy +! +! PURPOSE: +! Function to copy an instance of a CRTM AtmOptics object +! but without the scattering information included. +! +! CALLING SEQUENCE: +! Error_Status = CRTM_AtmOptics_NoScatterCopy( AtmOptics, AtmOptics_Clear ) +! +! INPUTS: +! AtmOptics: AtmOptics object to copy +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! AtmOptics_Clear: Copy of the input AtmOptics object but without the +! scattering information. +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! FUNCTION RESULT: +! Error_Status: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS the operation was successful +! == FAILURE an error occurred +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION CRTM_AtmOptics_NoScatterCopy( ao, ao_clear ) RESULT( err_stat ) + ! Arguments + TYPE(CRTM_AtmOptics_type), INTENT(IN) :: ao + TYPE(CRTM_AtmOptics_type), INTENT(OUT) :: ao_clear + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_AtmOptics_NoScatterCopy' + ! Local variables + CHARACTER(ML) :: err_msg + + + ! Set up + err_stat = SUCCESS + ! ...Check input + IF ( .NOT. CRTM_AtmOptics_Associated(ao) ) THEN + err_stat = FAILURE + err_msg = 'Input AtmOptics structure not allocated' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Create the output structure + CALL CRTM_AtmOptics_Create( ao_clear , & + ao%n_Layers, & + 0 , & ! No Legendre terms + 0 ) ! No phase element terms + IF ( .NOT. CRTM_AtmOptics_Associated(ao_clear) ) THEN + err_stat = FAILURE + err_msg = 'Error allocating output Clear-Sky AtmOptics structure' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Set/Copy over the clear-sky data + ao_clear%Include_Scattering = .FALSE. + ao_clear%Optical_Depth = ao%Optical_Depth(1:ao%n_Layers) + + END FUNCTION CRTM_AtmOptics_NoScatterCopy + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_AtmOptics_NoScatterCopy_TL +! +! PURPOSE: +! Function to copy an instance of a tangent-linear CRTM AtmOptics object +! but without the scattering information included. +!! +! CALLING SEQUENCE: +! Error_Status = CRTM_AtmOptics_NoScatterCopy_TL( ao, ao_TL, ao_clear_TL ) +! +! INPUTS: +! ao: Forward AtmOptics object for consistency checking +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! ao_TL: Tangent-linear AtmOptics object to copy. This object +! must be the tangent-linear equivalent of the input +! forward AtmOptics object. +! This +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! ao_clear_TL: Copy of the input AtmOptics tangent-linear object but +! without scattering information. +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! FUNCTION RESULT: +! Error_Status: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS the operation was successful +! == FAILURE an error occurred +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION CRTM_AtmOptics_NoScatterCopy_TL( & + ao , & ! FWD input + ao_TL , & ! TL input + ao_clear_TL) & ! TL output + RESULT( err_stat ) + ! Arguments + TYPE(CRTM_AtmOptics_type), INTENT(IN) :: ao + TYPE(CRTM_AtmOptics_type), INTENT(IN) :: ao_TL + TYPE(CRTM_AtmOptics_type), INTENT(OUT) :: ao_clear_TL + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_AtmOptics_NoScatterCopy_TL' + ! Local variables + CHARACTER(ML) :: err_msg + + + ! Set up + err_stat = SUCCESS + ! ...Check input allocation + IF ( .NOT. CRTM_AtmOptics_Associated(ao ) .OR. & + .NOT. CRTM_AtmOptics_Associated(ao_TL) ) THEN + err_stat = FAILURE + err_msg = 'Input AtmOptics structures not allocated' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + ! ...Dimension consistency + IF ( (ao%n_Layers /= ao_TL%n_Layers ) .OR. & + (ao%n_Legendre_Terms /= ao_TL%n_Legendre_Terms) .OR. & + (ao%n_Phase_Elements /= ao_TL%n_Phase_Elements) ) THEN + err_stat = FAILURE + err_msg = 'Input AtmOptics structures have incongruent dimensions' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Create the output structure + CALL CRTM_AtmOptics_Create( ao_clear_TL , & + ao_TL%n_Layers, & + 0 , & ! No Legendre terms + 0 ) ! No phase element terms + IF ( .NOT. CRTM_AtmOptics_Associated(ao_clear_TL) ) THEN + err_stat = FAILURE + err_msg = 'Error allocating output Clear-Sky AtmOptics structure' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Set/Copy over the clear-sky data + ao_clear_TL%Include_Scattering = .FALSE. + ao_clear_TL%Optical_Depth = ao_TL%Optical_Depth(1:ao_TL%n_Layers) + + END FUNCTION CRTM_AtmOptics_NoScatterCopy_TL + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_AtmOptics_NoScatterCopy_AD +! +! PURPOSE: +! Function to perform the adjoint copy of an instance of the CRTM +! AtmOptics object without the scattering information included. +! +! CALLING SEQUENCE: +! Error_Status = CRTM_AtmOptics_NoScatterCopy_AD( ao, ao_clear_AD, ao_AD ) +! +! INPUTS: +! ao: AtmOptics object for consistency checking +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! ao_clear_AD: Adjoint Clear-Sky AtmOptics structure to copy +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! ao_AD: Adjoint copy of the input AtmOptics. This object +! must be the adjoint equivalent of the input +! forward AtmOptics object. +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! FUNCTION RESULT: +! Error_Status: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS the operation was successful +! == FAILURE an error occurred +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION CRTM_AtmOptics_NoScatterCopy_AD( & + ao , & ! FWD input + ao_clear_AD, & ! AD input + ao_AD ) & ! AD output + RESULT( err_stat ) + ! Arguments + TYPE(CRTM_AtmOptics_type), INTENT(IN) :: ao + TYPE(CRTM_AtmOptics_type), INTENT(IN OUT) :: ao_clear_AD + TYPE(CRTM_AtmOptics_type), INTENT(IN OUT) :: ao_AD + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_AtmOptics_NoScatterCopy_AD' + ! Local variables + CHARACTER(ML) :: err_msg + INTEGER :: k + + + ! Set up + err_stat = SUCCESS + ! ...Check input allocation + IF ( .NOT. CRTM_AtmOptics_Associated(ao ) .OR. & + .NOT. CRTM_AtmOptics_Associated(ao_clear_AD) .OR. & + .NOT. CRTM_AtmOptics_Associated(ao_AD ) ) THEN + err_stat = FAILURE + err_msg = 'Input AtmOptics structures not allocated' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + ! ...Dimensional consistency + IF ( (ao%n_Layers /= ao_AD%n_Layers ) .OR. & + (ao%n_Legendre_Terms /= ao_AD%n_Legendre_Terms) .OR. & + (ao%n_Phase_Elements /= ao_AD%n_Phase_Elements) ) THEN + err_stat = FAILURE + err_msg = 'Input AtmOptics and AtmOptics_AD structures have incongruent dimensions' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + IF ( ao_clear_AD%n_Layers /= ao_AD%n_Layers ) THEN + err_stat = FAILURE + err_msg = 'Input AtmOptics_Clear_AD structure has incongruent dimensions' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + ! ...Non-layer dependent data consistency + IF ( (ao%Include_Scattering .NEQV. ao_AD%Include_Scattering) .OR. & + ao_clear_AD%Include_Scattering ) THEN + err_stat = FAILURE + err_msg = 'AtmOptics structures have incongruent Scattering flags' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Adjoint copy of data + k = ao%n_Layers + ao_AD%Optical_Depth(1:k) = ao_AD%Optical_Depth(1:k) + ao_clear_AD%Optical_Depth(1:k) + + + ! Zero the clear result, as it has no more impact + CALL CRTM_AtmOptics_Zero( ao_clear_AD ) + + END FUNCTION CRTM_AtmOptics_NoScatterCopy_AD END MODULE CRTM_AtmOptics diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_AtmOptics_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_AtmOptics_Define.f90 similarity index 92% rename from var/external/crtm_2.2.3/libsrc/CRTM_AtmOptics_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_AtmOptics_Define.f90 index 4bbbef6d50..5143c48e4d 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_AtmOptics_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_AtmOptics_Define.f90 @@ -37,6 +37,7 @@ MODULE CRTM_AtmOptics_Define PUBLIC :: CRTM_AtmOptics_type ! Operators PUBLIC :: OPERATOR(==) + PUBLIC :: OPERATOR(+) PUBLIC :: OPERATOR(-) ! Procedures PUBLIC :: CRTM_AtmOptics_Associated @@ -59,6 +60,10 @@ MODULE CRTM_AtmOptics_Define INTERFACE OPERATOR(==) MODULE PROCEDURE CRTM_AtmOptics_Equal END INTERFACE OPERATOR(==) + + INTERFACE OPERATOR(+) + MODULE PROCEDURE CRTM_AtmOptics_Add + END INTERFACE OPERATOR(+) INTERFACE OPERATOR(-) MODULE PROCEDURE CRTM_AtmOptics_Subtract @@ -73,7 +78,7 @@ MODULE CRTM_AtmOptics_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_AtmOptics_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_AtmOptics_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: ATMOPTICS_RELEASE = 4 ! This determines structure and file formats. ! Close status for write errors @@ -83,7 +88,6 @@ MODULE CRTM_AtmOptics_Define REAL(fp), PARAMETER :: ONE = 1.0_fp ! String lengths INTEGER, PARAMETER :: ML = 256 ! Message length - INTEGER, PARAMETER :: SL = 80 ! String length ! ------------------------------ @@ -151,11 +155,9 @@ MODULE CRTM_AtmOptics_Define ! ! FUNCTION RESULT: ! Status: The return value is a logical value indicating the -! status of the NLTE members. -! .TRUE. - if ANY of the AtmOptics allocatable members -! are in use. -! .FALSE. - if ALL of the AtmOptics allocatable members -! are not in use. +! status of the object components. +! .TRUE. - if the array components are allocated. +! .FALSE. - if the array components are not allocated. ! UNITS: N/A ! TYPE: LOGICAL ! DIMENSION: Same as input @@ -195,12 +197,6 @@ END FUNCTION CRTM_AtmOptics_Associated ELEMENTAL SUBROUTINE CRTM_AtmOptics_Destroy( self ) TYPE(CRTM_AtmOptics_type), INTENT(OUT) :: self self%Is_Allocated = .FALSE. - self%n_Layers = 0 - self%n_Legendre_Terms = 0 - self%n_Phase_Elements = 0 - self%Max_Layers = 0 - self%Max_Legendre_Terms = 0 - self%Max_Phase_Elements = 0 END SUBROUTINE CRTM_AtmOptics_Destroy @@ -236,14 +232,12 @@ END SUBROUTINE CRTM_AtmOptics_Destroy ! ! n_Legendre_Terms: The number of Legendre polynomial terms for the ! phase matrix. -! Must be > 0 ! UNITS: N/A ! TYPE: INTEGER ! DIMENSION: Same as n_Layers input. ! ATTRIBUTES: INTENT(IN) ! ! n_Phase_Elements: The number of phase elements for the phase matrix. -! Must be > 0 ! UNITS: N/A ! TYPE: INTEGER ! DIMENSION: Same as n_Layers input. @@ -272,9 +266,7 @@ ELEMENTAL SUBROUTINE CRTM_AtmOptics_Create( & INTEGER :: alloc_stat ! Check input - IF ( n_Layers < 1 .OR. & - n_Legendre_Terms < 1 .OR. & - n_Phase_Elements < 1 ) THEN + IF ( n_Layers < 1 ) THEN CALL CRTM_AtmOptics_Destroy( self ) RETURN END IF @@ -1411,13 +1403,13 @@ END FUNCTION CRTM_AtmOptics_WriteFile ELEMENTAL FUNCTION CRTM_AtmOptics_Equal( x, y ) RESULT( is_equal ) TYPE(CRTM_AtmOptics_type), INTENT(IN) :: x, y LOGICAL :: is_equal + INTEGER :: k, ip, ic ! Set up is_equal = .FALSE. ! Check the object association status - IF ( (.NOT. CRTM_AtmOptics_Associated(x)) .OR. & - (.NOT. CRTM_AtmOptics_Associated(y)) ) RETURN + IF ( CRTM_AtmOptics_Associated(x) .NEQV. CRTM_AtmOptics_Associated(y) ) RETURN ! Check contents ! ...Release/version info @@ -1426,21 +1418,96 @@ ELEMENTAL FUNCTION CRTM_AtmOptics_Equal( x, y ) RESULT( is_equal ) IF ( (x%n_Layers /= y%n_Layers ) .OR. & (x%n_Legendre_Terms /= y%n_Legendre_Terms) .OR. & (x%n_Phase_Elements /= y%n_Phase_Elements) ) RETURN - ! ...Scalar data - IF ( x%Scattering_Optical_Depth .EqualTo. y%Scattering_Optical_Depth ) & + ! ...Scalars + IF ( .NOT. (x%Scattering_Optical_Depth .EqualTo. y%Scattering_Optical_Depth) ) RETURN + ! ...Arrays is_equal = .TRUE. ! ...Array data - is_equal = is_equal .AND. & - ALL(x%Optical_Depth(1:x%n_Layers) .EqualTo. y%Optical_Depth(1:y%n_Layers) ) .AND. & - ALL(x%Single_Scatter_Albedo(1:x%n_Layers) .EqualTo. y%Single_Scatter_Albedo(1:y%n_Layers)) .AND. & - ALL(x%Asymmetry_Factor(1:x%n_Layers) .EqualTo. y%Asymmetry_Factor(1:y%n_Layers) ) .AND. & - ALL(x%Delta_Truncation(1:x%n_Layers) .EqualTo. y%Delta_Truncation(1:y%n_Layers) ) .AND. & - ALL(x%Phase_Coefficient(0:x%n_Legendre_Terms, 1:x%n_Phase_Elements, 1:x%n_Layers) .EqualTo. & - y%Phase_Coefficient(0:y%n_Legendre_Terms, 1:y%n_Phase_Elements, 1:y%n_Layers) ) + IF ( CRTM_AtmOptics_Associated(x) .AND. CRTM_AtmOptics_Associated(y) ) THEN + k = x%n_Layers + ip = x%n_Phase_Elements + ic = x%n_Legendre_Terms + k = x%n_Layers + IF ( .NOT. (ALL(x%Optical_Depth(1:k) .EqualTo. y%Optical_Depth(1:k) ) .AND. & + ALL(x%Single_Scatter_Albedo(1:k) .EqualTo. y%Single_Scatter_Albedo(1:k)) .AND. & + ALL(x%Asymmetry_Factor(1:k) .EqualTo. y%Asymmetry_Factor(1:k) ) .AND. & + ALL(x%Delta_Truncation(1:k) .EqualTo. y%Delta_Truncation(1:k) ) .AND. & + ALL(x%Phase_Coefficient(0:ic, 1:ip, 1:k) .EqualTo. & + y%Phase_Coefficient(0:ic, 1:ip, 1:k))) ) RETURN + END IF + + + ! If we get here, then... + is_equal = .TRUE. END FUNCTION CRTM_AtmOptics_Equal +!-------------------------------------------------------------------------------- +! +! NAME: +! CRTM_AtmOptics_Add +! +! PURPOSE: +! Pure function to add two CRTM AtmOptics objects. +! Used in OPERATOR(+) interface block. +! +! CALLING SEQUENCE: +! aosum = CRTM_AtmOptics_Add( ao1, ao2 ) +! +! or +! +! aosum = ao1 + ao2 +! +! +! INPUTS: +! ao1, ao2: The AtmOptics objects to add. +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! RESULT: +! aosum: AtmOptics object containing the added components. +! UNITS: N/A +! TYPE: CRTM_AtmOptics_type +! DIMENSION: Scalar +! +!-------------------------------------------------------------------------------- + + ELEMENTAL FUNCTION CRTM_AtmOptics_Add( ao1, ao2 ) RESULT( aosum ) + TYPE(CRTM_AtmOptics_type), INTENT(IN) :: ao1, ao2 + TYPE(CRTM_AtmOptics_type) :: aosum + INTEGER :: ic, ip, k + + ! Check input + ! ...If input structures not allocated, do nothing + IF ( (.NOT. CRTM_AtmOptics_Associated(ao1)) .OR. & + (.NOT. CRTM_AtmOptics_Associated(ao2)) ) RETURN + ! ...If input structure for different sizes, do nothing + IF ( ao1%n_Layers /= ao2%n_Layers .OR. & + ao1%n_Legendre_Terms /= ao2%n_Legendre_Terms .OR. & + ao1%n_Phase_Elements /= ao2%n_Phase_Elements ) RETURN + + ! Copy the first structure + aosum = ao1 + + ! And add its components to the second one + ! ...The scalar values + aosum%Scattering_Optical_Depth = aosum%Scattering_Optical_Depth + ao2%Scattering_Optical_Depth + ! ...The arrays + k = aosum%n_Layers + ip = aosum%n_Phase_Elements + ic = aosum%n_Legendre_Terms + aosum%Optical_Depth(1:k) = aosum%Optical_Depth(1:k) + ao2%Optical_Depth(1:k) + aosum%Single_Scatter_Albedo(1:k) = aosum%Single_Scatter_Albedo(1:k) + ao2%Single_Scatter_Albedo(1:k) + aosum%Asymmetry_Factor(1:k) = aosum%Asymmetry_Factor(1:k) + ao2%Asymmetry_Factor(1:k) + aosum%Delta_Truncation(1:k) = aosum%Delta_Truncation(1:k) + ao2%Delta_Truncation(1:k) + aosum%Phase_Coefficient(0:ic,1:ip,1:k) = aosum%Phase_Coefficient(0:ic,1:ip,1:k) + ao2%Phase_Coefficient(0:ic,1:ip,1:k) + + END FUNCTION CRTM_AtmOptics_Add + + !-------------------------------------------------------------------------------- ! ! NAME: @@ -1486,9 +1553,6 @@ ELEMENTAL FUNCTION CRTM_AtmOptics_Subtract( ao1, ao2 ) RESULT( aodiff ) IF ( ao1%n_Layers /= ao2%n_Layers .OR. & ao1%n_Legendre_Terms /= ao2%n_Legendre_Terms .OR. & ao1%n_Phase_Elements /= ao2%n_Phase_Elements ) RETURN - ! ...If input structure for different scattering setup, do nothing - IF ( (ao1%Include_Scattering .NEQV. ao2%Include_Scattering ) .AND. & - (ao1%lOffset /= ao2%lOffset ) ) RETURN ! Copy the first structure aodiff = ao1 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Atmosphere.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Atmosphere.f90 similarity index 52% rename from var/external/crtm_2.2.3/libsrc/CRTM_Atmosphere.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Atmosphere.f90 index 9152d159cf..1fb7543935 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Atmosphere.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Atmosphere.f90 @@ -19,7 +19,8 @@ MODULE CRTM_Atmosphere USE Message_Handler , ONLY: SUCCESS, FAILURE, WARNING, Display_Message USE CRTM_Parameters , ONLY: ZERO, ONE, POINT_5, SET, & TOA_PRESSURE , & - MINIMUM_ABSORBER_AMOUNT + MINIMUM_ABSORBER_AMOUNT, & + WATER_CONTENT_THRESHOLD USE CRTM_Atmosphere_Define, ONLY: CRTM_Atmosphere_type , & OPERATOR(==), & OPERATOR(+), & @@ -45,9 +46,18 @@ MODULE CRTM_Atmosphere ! Everything private by default PRIVATE ! Module procedures + PUBLIC :: CRTM_Atmosphere_Coverage + PUBLIC :: CRTM_Atmosphere_IsClear + PUBLIC :: CRTM_Atmosphere_IsFractional + PUBLIC :: CRTM_Atmosphere_IsOvercast + PUBLIC :: CRTM_Atmosphere_AddLayers PUBLIC :: CRTM_Atmosphere_AddLayers_TL PUBLIC :: CRTM_Atmosphere_AddLayers_AD + + PUBLIC :: CRTM_Atmosphere_ClearSkyCopy + PUBLIC :: CRTM_Atmosphere_ClearSkyCopy_TL + PUBLIC :: CRTM_Atmosphere_ClearSkyCopy_AD ! iAtm entities ! ...Structure PUBLIC :: iAtm_type @@ -60,12 +70,20 @@ MODULE CRTM_Atmosphere ! ----------------- ! Module parameters ! ----------------- - ! RCS Id for the module - CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: CRTM_Atmosphere.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & + '$Id: CRTM_Atmosphere.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 + ! The cloud coverage type + INTEGER, PARAMETER :: CLEAR = -1 + INTEGER, PARAMETER :: FRACTIONAL = 0 + INTEGER, PARAMETER :: OVERCAST = 1 +! CHARACTER(*), PARAMETER, DIMENSION( -1:1 ) :: & +! CLOUD_COVERAGE_NAME = [ 'Clear sky ', & +! 'Fractional coverage', & +! 'Overcast ' ] + CONTAINS @@ -78,6 +96,106 @@ MODULE CRTM_Atmosphere !################################################################################ !################################################################################ + FUNCTION CRTM_Atmosphere_IsClear(coverage_flag) RESULT(is_clear) + INTEGER, INTENT(IN) :: coverage_flag + LOGICAL :: is_clear + is_clear = coverage_flag == CLEAR + END FUNCTION CRTM_Atmosphere_IsClear + + FUNCTION CRTM_Atmosphere_IsFractional(coverage_flag) RESULT(is_fractional) + INTEGER, INTENT(IN) :: coverage_flag + LOGICAL :: is_fractional + is_fractional = coverage_flag == FRACTIONAL + END FUNCTION CRTM_Atmosphere_IsFractional + + FUNCTION CRTM_Atmosphere_IsOvercast(coverage_flag) RESULT(is_overcast) + INTEGER, INTENT(IN) :: coverage_flag + LOGICAL :: is_overcast + is_overcast = coverage_flag == OVERCAST + END FUNCTION CRTM_Atmosphere_IsOvercast + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Atmosphere_Coverage +! +! PURPOSE: +! Function to determine the cloud coverage type for an input +! atmosphere. +! +! CALLING SEQUENCE: +! coverage_flag = CRTM_Atmosphere_Coverage( atm ) ! Input +! +! INPUTS: +! atm: Atmosphere structure for which the coverage type is +! to be determined. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! coverage_flag: An integer defining the coverage type. Valid +! parameterised values are: +! CLEAR +! FRACTIONAL +! OVERCAST +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + FUNCTION CRTM_Atmosphere_Coverage(atm) RESULT(coverage_flag) + ! Arguments + TYPE(CRTM_Atmosphere_type), INTENT(IN) :: atm + ! Function result + INTEGER :: coverage_flag + ! Local parameters + REAL(fp), PARAMETER :: MIN_COVERAGE_THRESHOLD = 1.0e-06_fp + REAL(fp), PARAMETER :: MAX_COVERAGE_THRESHOLD = ONE - MIN_COVERAGE_THRESHOLD + ! Local variables + LOGICAL :: cloudy_layer_mask(atm%n_Layers) + INTEGER :: idx(atm%n_Layers) + INTEGER :: n, nc, k + + ! Default clear + coverage_flag = CLEAR + IF ( atm%n_Clouds == 0 ) RETURN + + ! Check each cloud separately + Cloud_Loop: DO n = 1, atm%n_Clouds + + ! Determine if there are ANY cloudy layers + cloudy_layer_mask = atm%Cloud(n)%Water_Content > WATER_CONTENT_THRESHOLD + nc = COUNT(cloudy_layer_mask) + IF ( nc == 0 ) CYCLE Cloud_Loop + + ! Get the indices of those cloudy layers + idx(1:nc) = PACK([(k, k=1,atm%Cloud(n)%n_Layers)], cloudy_layer_mask) + + ! Check for ANY fractional coverage + ! ??? How to do this without the loop ??? + DO k = 1, nc +! IF ( (atm%Cloud_Fraction(idx(k)) > MIN_COVERAGE_THRESHOLD) .AND. & +! (atm%Cloud_Fraction(idx(k)) < MAX_COVERAGE_THRESHOLD) ) THEN + IF ( (atm%Cloud_Fraction(idx(k)) > MIN_COVERAGE_THRESHOLD) ) THEN + coverage_flag = FRACTIONAL + RETURN + END IF + END DO + +! ! Check for ALL totally clear or totally cloudy +! IF ( ALL(atm%Cloud_Fraction(idx(1:nc)) < MIN_COVERAGE_THRESHOLD) .OR. & +! ALL(atm%Cloud_Fraction(idx(1:nc)) > MAX_COVERAGE_THRESHOLD) ) coverage_flag = OVERCAST + + END DO Cloud_Loop + + END FUNCTION CRTM_Atmosphere_Coverage + + !-------------------------------------------------------------------------------- !:sdoc+: ! @@ -241,6 +359,7 @@ FUNCTION CRTM_Atmosphere_AddLayers( & Atm_Out%Level_Pressure(0:n) = iAtm%pl Atm_Out%Pressure(1:n) = iAtm%p Atm_Out%Temperature(1:n) = iAtm%t + Atm_Out%Cloud_Fraction(1:n) = ZERO DO j = 1, Atm_Out%n_Absorbers Atm_Out%Absorber(1:n,j) = iAtm%a(:,j) END DO @@ -508,6 +627,9 @@ FUNCTION CRTM_Atmosphere_AddLayers_AD( & ! ...Pressure data Atm_In_AD%Pressure(1:no) = Atm_In_AD%Pressure(1:no) + Atm_Out_AD%Pressure(n+1:nt) Atm_In_AD%Level_Pressure(0:no) = Atm_In_AD%Level_Pressure(0:no) + Atm_Out_AD%Level_Pressure(n:nt) + ! ...Cloud fraction data + Atm_In_AD%Cloud_Fraction(1:no) = Atm_In_AD%Cloud_Fraction(1:no) + & + Atm_Out_AD%Cloud_Fraction(n+1:nt) ! Zero the output atmosphere structure @@ -515,6 +637,379 @@ FUNCTION CRTM_Atmosphere_AddLayers_AD( & END FUNCTION CRTM_Atmosphere_AddLayers_AD + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Atmosphere_ClearSkyCopy +! +! PURPOSE: +! Function to copy an instance of the CRTM Atmosphere object +! but without the clouds included. +! +! CALLING SEQUENCE: +! Error_Status = CRTM_Atmosphere_ClearSkyCopy( Atm, Atm_Clear ) +! +! INPUTS: +! Atm: Atmosphere structure to copy +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! Atm_Clear: Copy of the input atmosphere but withut cloud information. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! FUNCTION RESULT: +! Error_Status: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS the operation was successful +! == FAILURE an error occurred +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION CRTM_Atmosphere_ClearSkyCopy( atm, atm_clear ) RESULT( err_stat ) + ! Arguments + TYPE(CRTM_Atmosphere_type), INTENT(IN) :: atm + TYPE(CRTM_Atmosphere_type), INTENT(OUT) :: atm_clear + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Atmosphere_ClearSkyCopy' + ! Local variables + CHARACTER(ML) :: err_msg + INTEGER :: i, k + + + ! Set up + err_stat = SUCCESS + ! ...Check input + IF ( .NOT. CRTM_Atmosphere_Associated(atm) ) THEN + err_stat = FAILURE + err_msg = 'Input Atmosphere structure not allocated' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Create the output structure + CALL CRTM_Atmosphere_Create( atm_clear , & + atm%n_Layers , & + atm%n_Absorbers, & + 0 , & ! NO CLOUDS ! + atm%n_Aerosols ) + IF ( .NOT. CRTM_Atmosphere_Associated(atm_clear) ) THEN + err_stat = FAILURE + err_msg = 'Error allocating output Clear-Sky Atmosphere structure' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Copy over data + ! ...Extra dimensions + atm_clear%n_Added_Layers = atm%n_Added_Layers + ! ...Layer independent data + atm_clear%Climatology = atm%Climatology + atm_clear%Absorber_ID = atm%Absorber_ID + atm_clear%Absorber_Units = atm%Absorber_Units + ! ...Layer dependent data + k = atm%n_Layers + atm_clear%Level_Pressure = atm%Level_Pressure(0:k) + atm_clear%Pressure = atm%Pressure(1:k) + atm_clear%Temperature = atm%Temperature(1:k) + atm_clear%Absorber = atm%Absorber(1:k,:) + atm_clear%Cloud_Fraction = atm%Cloud_Fraction(1:k) + ! ...Aerosol components + IF ( atm%n_Aerosols > 0 ) THEN + DO i = 1, atm%n_Aerosols + atm_clear%Aerosol(i) = atm%Aerosol(i) + END DO + END IF + + END FUNCTION CRTM_Atmosphere_ClearSkyCopy + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Atmosphere_ClearSkyCopy_TL +! +! PURPOSE: +! Function to copy an instance of a tangent-linear CRTM Atmosphere object +! but without the clouds included. +!! +! CALLING SEQUENCE: +! Error_Status = CRTM_Atmosphere_ClearSkyCopy_TL( Atm, Atm_TL, Atm_Clear_TL ) +! +! INPUTS: +! Atm: Atmosphere object for consistency checking +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! Atm_TL: Tangent-linear Atmosphere object to copy. This object +! must be the tangent-linear equivalent of the input +! forward Atm object. +! This +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! Atm_Clear_TL: Copy of the input atmosphere but withut cloud information. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! FUNCTION RESULT: +! Error_Status: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS the operation was successful +! == FAILURE an error occurred +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION CRTM_Atmosphere_ClearSkyCopy_TL( & + atm , & ! FWD input + atm_TL , & ! TL input + atm_clear_TL) & ! TL output + RESULT( err_stat ) + ! Arguments + TYPE(CRTM_Atmosphere_type), INTENT(IN) :: atm + TYPE(CRTM_Atmosphere_type), INTENT(IN) :: atm_TL + TYPE(CRTM_Atmosphere_type), INTENT(OUT) :: atm_clear_TL + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Atmosphere_ClearSkyCopy_TL' + ! Local variables + CHARACTER(ML) :: err_msg + INTEGER :: i, k + + + ! Set up + err_stat = SUCCESS + ! ...Check input allocation + IF ( .NOT. CRTM_Atmosphere_Associated(atm ) .OR. & + .NOT. CRTM_Atmosphere_Associated(atm_TL) ) THEN + err_stat = FAILURE + err_msg = 'Input Atmosphere structures not allocated' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + ! ...Dimension consistency + IF ( (atm%n_Layers /= atm_TL%n_Layers ) .OR. & + (atm%n_Absorbers /= atm_TL%n_Absorbers ) .OR. & + (atm%n_Clouds /= atm_TL%n_Clouds ) .OR. & + (atm%n_Aerosols /= atm_TL%n_Aerosols ) .OR. & + (atm%n_Added_Layers /= atm_TL%n_Added_Layers) ) THEN + err_stat = FAILURE + err_msg = 'Input Atmosphere structures have incongruent dimensions' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + ! ...Non-layer dependent data consistency + IF ( (atm%Climatology /= atm_TL%Climatology ) .OR. & + ANY(atm%Absorber_ID /= atm_TL%Absorber_ID ) .OR. & + ANY(atm%Absorber_Units /= atm_TL%Absorber_Units) ) THEN + err_stat = FAILURE + err_msg = 'Input Atmosphere structures have incongruent layer independent data' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Create the output structure + CALL CRTM_Atmosphere_Create( atm_clear_TL , & + atm_TL%n_Layers , & + atm_TL%n_Absorbers, & + 0 , & ! NO CLOUDS ! + atm_TL%n_Aerosols ) + IF ( .NOT. CRTM_Atmosphere_Associated(atm_clear_TL) ) THEN + err_stat = FAILURE + err_msg = 'Error allocating output Clear-Sky Atmosphere structure' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Copy over data + ! ...Extra dimensions + atm_clear_TL%n_Added_Layers = atm_TL%n_Added_Layers + ! ...Layer independent data + atm_clear_TL%Climatology = atm_TL%Climatology + atm_clear_TL%Absorber_ID = atm_TL%Absorber_ID + atm_clear_TL%Absorber_Units = atm_TL%Absorber_Units + ! ...Layer dependent data + k = atm%n_Layers + atm_clear_TL%Level_Pressure = atm_TL%Level_Pressure(0:k) + atm_clear_TL%Pressure = atm_TL%Pressure(1:k) + atm_clear_TL%Temperature = atm_TL%Temperature(1:k) + atm_clear_TL%Absorber = atm_TL%Absorber(1:k,:) + atm_clear_TL%Cloud_Fraction = atm_TL%Cloud_Fraction(1:k) + ! ...Aerosol components + IF ( atm_TL%n_Aerosols > 0 ) THEN + DO i = 1, atm_TL%n_Aerosols + atm_clear_TL%Aerosol(i) = atm_TL%Aerosol(i) + END DO + END IF + + END FUNCTION CRTM_Atmosphere_ClearSkyCopy_TL + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Atmosphere_ClearSkyCopy_AD +! +! PURPOSE: +! Function to perform the adjoint copy of an instance of the CRTM +! Atmosphere object without the clouds included. +! +! CALLING SEQUENCE: +! Error_Status = CRTM_Atmosphere_ClearSkyCopy_AD( Atm, Atm_Clear_AD, Atm_AD ) +! +! INPUTS: +! Atm: Atmosphere object for consistency checking +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! Atm_Clear_AD: Adjoint Clear-Sky Atmosphere structure to copy +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! Atm_AD: Adjoint copy of the input atmosphere. This object +! must be the adjoint equivalent of the input +! forward Atm object. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! FUNCTION RESULT: +! Error_Status: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS the operation was successful +! == FAILURE an error occurred +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION CRTM_Atmosphere_ClearSkyCopy_AD( & + atm , & ! FWD input + atm_clear_AD, & ! AD input + atm_AD ) & ! AD output + RESULT( err_stat ) + ! Arguments + TYPE(CRTM_Atmosphere_type), INTENT(IN) :: atm + TYPE(CRTM_Atmosphere_type), INTENT(IN OUT) :: atm_clear_AD + TYPE(CRTM_Atmosphere_type), INTENT(IN OUT) :: atm_AD + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Atmosphere_ClearSkyCopy_AD' + ! Local variables + CHARACTER(ML) :: err_msg + INTEGER :: i, k + + + ! Set up + err_stat = SUCCESS + ! ...Check input allocation + IF ( .NOT. CRTM_Atmosphere_Associated(atm ) .OR. & + .NOT. CRTM_Atmosphere_Associated(atm_clear_AD) .OR. & + .NOT. CRTM_Atmosphere_Associated(atm_AD ) ) THEN + err_stat = FAILURE + err_msg = 'Input Atmosphere structures not allocated' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + ! ...Dimensional consistency + IF ( (atm%n_Layers /= atm_AD%n_Layers ) .OR. & + (atm%n_Absorbers /= atm_AD%n_Absorbers ) .OR. & + (atm%n_Clouds /= atm_AD%n_Clouds ) .OR. & + (atm%n_Aerosols /= atm_AD%n_Aerosols ) .OR. & + (atm%n_Added_Layers /= atm_AD%n_Added_Layers) ) THEN + err_stat = FAILURE + err_msg = 'Input Atm and Atm_AD structures have incongruent dimensions' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + IF ( (atm_clear_AD%n_Layers /= atm_AD%n_Layers ) .OR. & + (atm_clear_AD%n_Absorbers /= atm_AD%n_Absorbers ) .OR. & + (atm_clear_AD%n_Aerosols /= atm_AD%n_Aerosols ) .OR. & + (atm_clear_AD%n_Clouds /= 0 ) .OR. & ! NO CLOUDS ! + (atm_clear_AD%n_Added_Layers /= atm_AD%n_Added_Layers) ) THEN + err_stat = FAILURE + err_msg = 'Input Atm_Clear_AD structures has incongruent dimensions' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + ! ...Non-layer dependent data consistency + IF ( (atm%Climatology /= atm_AD%Climatology ) .OR. & + ANY(atm%Absorber_ID /= atm_AD%Absorber_ID ) .OR. & + ANY(atm%Absorber_Units /= atm_AD%Absorber_Units) .OR. & + (atm%Climatology /= atm_clear_AD%Climatology ) .OR. & + ANY(atm%Absorber_ID /= atm_clear_AD%Absorber_ID ) .OR. & + ANY(atm%Absorber_Units /= atm_clear_AD%Absorber_Units) ) THEN + err_stat = FAILURE + err_msg = 'Atmosphere structures have incongruent layer independent data' + CALL Display_Message( ROUTINE_NAME, err_msg, err_stat ) + RETURN + END IF + + + ! Adjoint copy of data + ! ...Aerosol components + IF ( atm%n_Aerosols > 0 ) THEN + DO i = 1, atm%n_Aerosols + atm_AD%Aerosol(i) = atm_AD%Aerosol(i) + atm_clear_AD%Aerosol(i) + END DO + END IF + ! ...Layer dependent data + k = atm%n_Layers + atm_AD%Level_Pressure(0:k) = atm_AD%Level_Pressure(0:k) + atm_clear_AD%Level_Pressure(0:k) + atm_AD%Pressure(1:k) = atm_AD%Pressure(1:k) + atm_clear_AD%Pressure(1:k) + atm_AD%Temperature(1:k) = atm_AD%Temperature(1:k) + atm_clear_AD%Temperature(1:k) + atm_AD%Absorber(1:k,:) = atm_AD%Absorber(1:k,:) + atm_clear_AD%Absorber(1:k,:) + atm_AD%Cloud_Fraction(1:k) = atm_AD%Cloud_Fraction(1:k) + atm_clear_AD%Cloud_Fraction(1:k) + + + ! Zero the clear result, as it has no more impact + CALL CRTM_Atmosphere_Zero( atm_clear_AD ) + + END FUNCTION CRTM_Atmosphere_ClearSkyCopy_AD + + + + !################################################################################## !################################################################################## !## ## diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Atmosphere_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Atmosphere_Define.f90 similarity index 91% rename from var/external/crtm_2.2.3/libsrc/CRTM_Atmosphere_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Atmosphere_Define.f90 index b530c28a53..8fdf40f7c1 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Atmosphere_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Atmosphere_Define.f90 @@ -97,6 +97,7 @@ MODULE CRTM_Atmosphere_Define PRIVATE ! Operators PUBLIC :: OPERATOR(==) + PUBLIC :: OPERATOR(/=) PUBLIC :: OPERATOR(+) PUBLIC :: OPERATOR(-) ! Cloud entities @@ -192,6 +193,7 @@ MODULE CRTM_Atmosphere_Define PUBLIC :: CRTM_Atmosphere_Destroy PUBLIC :: CRTM_Atmosphere_Create PUBLIC :: CRTM_Atmosphere_AddLayerCopy + PUBLIC :: CRTM_Atmosphere_NonVariableCopy PUBLIC :: CRTM_Atmosphere_Zero PUBLIC :: CRTM_Atmosphere_IsValid PUBLIC :: CRTM_Atmosphere_Inspect @@ -204,7 +206,7 @@ MODULE CRTM_Atmosphere_Define ! ...Utilities PUBLIC :: CRTM_Get_AbsorberIdx PUBLIC :: CRTM_Get_PressureLevelIdx - + PUBLIC :: CRTM_Atmosphere_Add ! ------------------- ! Procedure overloads @@ -213,6 +215,10 @@ MODULE CRTM_Atmosphere_Define MODULE PROCEDURE CRTM_Atmosphere_Equal END INTERFACE OPERATOR(==) + INTERFACE OPERATOR(/=) + MODULE PROCEDURE CRTM_Atmosphere_NotEqual + END INTERFACE OPERATOR(/=) + INTERFACE OPERATOR(+) MODULE PROCEDURE CRTM_Atmosphere_Add END INTERFACE OPERATOR(+) @@ -242,7 +248,7 @@ MODULE CRTM_Atmosphere_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Atmosphere_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Atmosphere_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! The absorber IDs. Use HITRAN definitions INTEGER, PARAMETER :: N_VALID_ABSORBER_IDS = 32 @@ -345,6 +351,7 @@ MODULE CRTM_Atmosphere_Define 'Subarctic summer ', & 'Subarctic winter ', & 'U.S. Standard Atmosphere' /) + ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp @@ -381,6 +388,7 @@ MODULE CRTM_Atmosphere_Define REAL(fp), ALLOCATABLE :: Pressure(:) ! K REAL(fp), ALLOCATABLE :: Temperature(:) ! K REAL(fp), ALLOCATABLE :: Absorber(:,:) ! K x J + REAL(fp), ALLOCATABLE :: Cloud_Fraction(:) ! K ! Clouds associated with each profile TYPE(CRTM_Cloud_type), ALLOCATABLE :: Cloud(:) ! Nc ! Aerosols associated with each profile @@ -559,6 +567,7 @@ ELEMENTAL SUBROUTINE CRTM_Atmosphere_Create( & Atm%Pressure( n_Layers ), & Atm%Temperature( n_Layers ), & Atm%Absorber( n_Layers, n_Absorbers ), & + Atm%Cloud_Fraction( n_Layers ), & STAT = alloc_stat ) IF ( alloc_stat /= 0 ) RETURN @@ -603,6 +612,7 @@ ELEMENTAL SUBROUTINE CRTM_Atmosphere_Create( & Atm%Pressure = ZERO Atm%Temperature = ZERO Atm%Absorber = ZERO + Atm%Cloud_Fraction = ZERO ! Set allocation indicator Atm%Is_Allocated = .TRUE. @@ -676,16 +686,17 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_AddLayerCopy( & ! Assign data atm_out%n_Added_Layers = atm%n_Added_Layers+na ! ...Layer independent data - atm_out%Climatology = atm%Climatology - atm_out%Absorber_ID = atm%Absorber_ID - atm_out%Absorber_Units = atm%Absorber_Units + atm_out%Climatology = atm%Climatology + atm_out%Absorber_ID = atm%Absorber_ID + atm_out%Absorber_Units = atm%Absorber_Units ! ...Layer dependent data no = atm%n_Layers nt = atm_out%n_Layers - atm_out%Level_Pressure(na:nt) = atm%Level_Pressure(0:no) - atm_out%Pressure(na+1:nt) = atm%Pressure(1:no) - atm_out%Temperature(na+1:nt) = atm%Temperature(1:no) - atm_out%Absorber(na+1:nt,:) = atm%Absorber(1:no,:) + atm_out%Level_Pressure(na:nt) = atm%Level_Pressure(0:no) + atm_out%Pressure(na+1:nt) = atm%Pressure(1:no) + atm_out%Temperature(na+1:nt) = atm%Temperature(1:no) + atm_out%Absorber(na+1:nt,:) = atm%Absorber(1:no,:) + atm_out%Cloud_Fraction(na+1:nt) = atm%Cloud_Fraction(1:no) ! ...Cloud components IF ( atm%n_Clouds > 0 ) THEN DO i = 1, atm%n_Clouds @@ -702,6 +713,65 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_AddLayerCopy( & END FUNCTION CRTM_Atmosphere_AddLayerCopy +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Atmosphere_NonVariableCopy +! +! PURPOSE: +! Elemental utility subroutine to copy the "non-variable" data (climatology +! flag, absorber id/units, cloud type, aerosol type) from one instance of +! a CRTM Atmosphere object to another (usually a TL or AD one). +! +! NOTE: No error checking is performed in this procedure. It is assumed the +! two arguments are congruent in terms of absorber, cloud, and +! aerosol count. +! +! CALLING SEQUENCE: +! CALL CRTM_Atmosphere_NonVariableCopy( atm, modified_atm ) +! +! OBJECTS: +! atm: Atmosphere object from which to copy. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +! IN/OUTPUTS: +! modified_atm: Existing Atmosphere object to be modified. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Conformable with atm input +! ATTRIBUTES: INTENT(IN OUT) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL SUBROUTINE CRTM_Atmosphere_NonVariableCopy( atm, modified_atm ) + ! Arguments + TYPE(CRTM_Atmosphere_type), INTENT(IN) :: atm + TYPE(CRTM_Atmosphere_type), INTENT(IN OUT) :: modified_atm + ! Local variables + INTEGER :: j, n + + modified_atm%Climatology = atm%Climatology + DO j = 1, atm%n_Absorbers + modified_atm%Absorber_ID(j) = atm%Absorber_ID(j) + modified_atm%Absorber_Units(j) = atm%Absorber_Units(j) + END DO + ! Loop over and assign cloud types + DO n = 1, atm%n_Clouds + modified_atm%Cloud(n)%Type = atm%Cloud(n)%Type + END DO + ! Loop over and assign aerosol types + DO n = 1, atm%n_Aerosols + modified_atm%Aerosol(n)%Type = atm%Aerosol(n)%Type + END DO + + END SUBROUTINE CRTM_Atmosphere_NonVariableCopy + + !-------------------------------------------------------------------------------- !:sdoc+: ! @@ -737,14 +807,12 @@ ELEMENTAL SUBROUTINE CRTM_Atmosphere_Zero( Atmosphere ) ! Do nothing if structure is unused IF ( .NOT. CRTM_Atmosphere_Associated(Atmosphere) ) RETURN - ! Reset the added layer count - Atmosphere%n_Added_Layers = 0 - - ! Only zero out the data arrays - Atmosphere%Level_Pressure = ZERO - Atmosphere%Pressure = ZERO - Atmosphere%Temperature = ZERO - Atmosphere%Absorber = ZERO + ! Zero out the data + Atmosphere%Level_Pressure = ZERO + Atmosphere%Pressure = ZERO + Atmosphere%Temperature = ZERO + Atmosphere%Absorber = ZERO + Atmosphere%Cloud_Fraction = ZERO ! Reset the structure components IF ( Atmosphere%n_Clouds > 0 ) CALL CRTM_Cloud_Zero( Atmosphere%Cloud ) @@ -871,10 +939,15 @@ FUNCTION CRTM_Atmosphere_IsValid( Atm ) RESULT( IsValid ) IsValid = .FALSE. ENDIF IF ( ANY(Atm%Absorber < ZERO ) ) THEN - msg = 'Negative level absorber found' + msg = 'Negative layer absorber found' CALL Display_Message( ROUTINE_NAME, msg, INFORMATION ) IsValid = .FALSE. ENDIF + IF ( ANY(Atm%Cloud_Fraction < ZERO) .OR. ANY(Atm%Cloud_Fraction > ONE) ) THEN + msg = 'Invalid layer cloud fraction found' + CALL Display_Message( ROUTINE_NAME, msg, INFORMATION ) + IsValid = .FALSE. + ENDIF ! ...Structure components IF ( Atm%n_Clouds > 0 ) THEN DO nc = 1, Atm%n_Clouds @@ -972,6 +1045,8 @@ SUBROUTINE Scalar_Inspect( Atm, Unit ) TRIM(ABSORBER_UNITS_NAME(Atm%Absorber_Units(j))) WRITE(fid, '(5(1x,es13.6,:))') Atm%Absorber(1:k,j) END DO + WRITE(fid, '(3x,"Layer cloud fraction:")') + WRITE(fid, '(5(1x,es13.6,:))') Atm%Cloud_Fraction(1:k) ! Cloud information IF ( Atm%n_Clouds > 0 ) CALL CRTM_Cloud_Inspect(Atm%Cloud, Unit=Unit) ! Aerosol information @@ -1080,6 +1155,7 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_Compare( & y, & n_SigFig ) & RESULT( is_comparable ) + ! Arguments TYPE(CRTM_Atmosphere_type), INTENT(IN) :: x, y INTEGER, OPTIONAL, INTENT(IN) :: n_SigFig LOGICAL :: is_comparable @@ -1095,39 +1171,40 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_Compare( & n = DEFAULT_N_SIGFIG END IF - ! Check the structure association status - IF ( (.NOT. CRTM_Atmosphere_Associated(x)) .OR. & - (.NOT. CRTM_Atmosphere_Associated(y)) ) RETURN + ! Check the object association status + IF ( CRTM_Atmosphere_Associated(x) .NEQV. CRTM_Atmosphere_Associated(y) ) RETURN - ! Check scalars + ! Check contents + ! ...Dimensions IF ( (x%n_Layers /= y%n_Layers ) .OR. & (x%n_Absorbers /= y%n_Absorbers) .OR. & (x%n_Clouds /= y%n_Clouds ) .OR. & - (x%n_Aerosols /= y%n_Aerosols ) .OR. & - (x%Climatology /= y%Climatology) ) RETURN - - ! Check integer arrays - j = x%n_Absorbers - IF ( ANY(x%Absorber_ID(1:j) /= y%Absorber_ID(1:j) ) .OR. & - ANY(x%Absorber_Units(1:j) /= y%Absorber_Units(1:j)) ) RETURN - - ! Check floating point arrays - IF ( (.NOT. ALL(Compares_Within_Tolerance(x%Level_Pressure,y%Level_Pressure,n))) .OR. & - (.NOT. ALL(Compares_Within_Tolerance(x%Pressure ,y%Pressure ,n))) .OR. & - (.NOT. ALL(Compares_Within_Tolerance(x%Temperature ,y%Temperature ,n))) .OR. & - (.NOT. ALL(Compares_Within_Tolerance(x%Absorber ,y%Absorber ,n))) ) RETURN - - ! Check clouds - IF ( x%n_Clouds > 0 ) THEN - IF ( .NOT. ALL(CRTM_Cloud_Compare(x%Cloud,y%Cloud,n_SigFig=n)) ) RETURN - END IF - - ! Check aerosols - IF ( x%n_Aerosols > 0 ) THEN - IF ( .NOT. ALL(CRTM_Aerosol_Compare(x%Aerosol,y%Aerosol,n_SigFig=n)) ) RETURN + (x%n_Aerosols /= y%n_Aerosols ) ) RETURN + ! ...Scalars + IF ( (x%Climatology /= y%Climatology) ) RETURN + ! ...Arrays + IF ( CRTM_Atmosphere_Associated(x) .AND. CRTM_Atmosphere_Associated(y) ) THEN + ! ...Integer arrays + j = x%n_Absorbers + IF ( ANY(x%Absorber_ID(1:j) /= y%Absorber_ID(1:j) ) .OR. & + ANY(x%Absorber_Units(1:j) /= y%Absorber_Units(1:j)) ) RETURN + ! ...Floating point arrays + IF ( (.NOT. ALL(Compares_Within_Tolerance(x%Level_Pressure,y%Level_Pressure,n))) .OR. & + (.NOT. ALL(Compares_Within_Tolerance(x%Pressure ,y%Pressure ,n))) .OR. & + (.NOT. ALL(Compares_Within_Tolerance(x%Temperature ,y%Temperature ,n))) .OR. & + (.NOT. ALL(Compares_Within_Tolerance(x%Absorber ,y%Absorber ,n))) .OR. & + (.NOT. ALL(Compares_Within_Tolerance(x%Cloud_Fraction,y%Cloud_Fraction,n)))) RETURN + ! ...Clouds + IF ( x%n_Clouds > 0 ) THEN + IF ( .NOT. ALL(CRTM_Cloud_Compare(x%Cloud,y%Cloud,n_SigFig=n)) ) RETURN + END IF + ! ...Aerosols + IF ( x%n_Aerosols > 0 ) THEN + IF ( .NOT. ALL(CRTM_Aerosol_Compare(x%Aerosol,y%Aerosol,n_SigFig=n)) ) RETURN + END IF END IF - ! If we get here, the structures are comparable + ! If we get here, the objects are comparable is_comparable = .TRUE. END FUNCTION CRTM_Atmosphere_Compare @@ -1580,7 +1657,8 @@ FUNCTION Read_Atmosphere_Rank1( & CALL Read_Cleanup(); RETURN END IF ! ...Allocate the return structure array - ALLOCATE(Atmosphere(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + !ALLOCATE(Atmosphere(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + ALLOCATE(Atmosphere(n_input_profiles), STAT=alloc_stat) IF ( alloc_stat /= 0 ) THEN msg = 'Error allocating Atmosphere array - '//TRIM(alloc_msg) CALL Read_Cleanup(); RETURN @@ -1627,7 +1705,8 @@ SUBROUTINE Read_CleanUp() msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF IF ( ALLOCATED(Atmosphere) ) THEN - DEALLOCATE(Atmosphere, STAT=alloc_stat, ERRMSG=alloc_msg) + !DEALLOCATE(Atmosphere, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(Atmosphere, STAT=alloc_stat) IF ( alloc_stat /= 0 ) & msg = TRIM(msg)//'; Error deallocating Atmosphere array during error cleanup - '//& TRIM(alloc_msg) @@ -1695,7 +1774,8 @@ FUNCTION Read_Atmosphere_Rank2( & END IF ! ...Allocate the return structure array ALLOCATE(Atmosphere(n_input_channels, n_input_profiles), & - STAT=alloc_stat, ERRMSG=alloc_msg) + STAT=alloc_stat) + !STAT=alloc_stat, ERRMSG=alloc_msg) IF ( alloc_stat /= 0 ) THEN msg = 'Error allocating Atmosphere array - '//TRIM(alloc_msg) CALL Read_Cleanup(); RETURN @@ -1745,7 +1825,8 @@ SUBROUTINE Read_CleanUp() msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF IF ( ALLOCATED(Atmosphere) ) THEN - DEALLOCATE(Atmosphere, STAT=alloc_stat, ERRMSG=alloc_msg) + !DEALLOCATE(Atmosphere, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(Atmosphere, STAT=alloc_stat) IF ( alloc_stat /= 0 ) & msg = TRIM(msg)//'; Error deallocating Atmosphere array during error cleanup - '//& TRIM(alloc_msg) @@ -2080,40 +2161,87 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_Equal( x, y ) RESULT( is_equal ) ! Set up is_equal = .FALSE. - ! Check the structure association status - IF ( (.NOT. CRTM_Atmosphere_Associated(x)) .OR. & - (.NOT. CRTM_Atmosphere_Associated(y)) ) RETURN + ! Check the object association status + IF ( CRTM_Atmosphere_Associated(x) .NEQV. CRTM_Atmosphere_Associated(y) ) RETURN ! Check contents - ! ...Scalars + ! ...Dimensions IF ( (x%n_Layers /= y%n_Layers ) .OR. & (x%n_Absorbers /= y%n_Absorbers) .OR. & (x%n_Clouds /= y%n_Clouds ) .OR. & - (x%n_Aerosols /= y%n_Aerosols ) .OR. & - (x%Climatology /= y%Climatology) ) RETURN + (x%n_Aerosols /= y%n_Aerosols ) ) RETURN + ! ...Scalars + IF ( (x%Climatology /= y%Climatology) ) RETURN ! ...Arrays - k = x%n_Layers - j = x%n_Absorbers - IF ( ALL(x%Absorber_ID(1:j) == y%Absorber_ID(1:j) ) .AND. & - ALL(x%Absorber_Units(1:j) == y%Absorber_Units(1:j)) .AND. & - ALL(x%Level_Pressure(0:) .EqualTo. y%Level_Pressure(0:)) .AND. & - ALL(x%Pressure(1:k) .EqualTo. y%Pressure(1:k) ) .AND. & - ALL(x%Temperature(1:k) .EqualTo. y%Temperature(1:k) ) .AND. & - ALL(x%Absorber(1:k,1:j) .EqualTo. y%Absorber(1:k,1:j) ) ) is_equal = .TRUE. - ! ...Clouds - IF ( x%n_Clouds > 0 ) THEN - IF ( ALL(CRTM_Cloud_Associated(x%Cloud)) .AND. ALL(CRTM_Cloud_Associated(y%Cloud)) ) & - is_equal = is_equal .AND. ALL(x%Cloud == y%Cloud) - END IF - ! ...Aerosols - IF ( x%n_Aerosols > 0 ) THEN - IF ( ALL(CRTM_Aerosol_Associated(x%Aerosol)) .AND. ALL(CRTM_Aerosol_Associated(y%Aerosol)) ) & - is_equal = is_equal .AND. ALL(x%Aerosol == y%Aerosol) + IF ( CRTM_Atmosphere_Associated(x) .AND. CRTM_Atmosphere_Associated(y) ) THEN + k = x%n_Layers + j = x%n_Absorbers + IF ( .NOT. (ALL(x%Absorber_ID(1:j) == y%Absorber_ID(1:j) ) .AND. & + ALL(x%Absorber_Units(1:j) == y%Absorber_Units(1:j)) .AND. & + ALL(x%Level_Pressure(0:k) .EqualTo. y%Level_Pressure(0:k)) .AND. & + ALL(x%Pressure(1:k) .EqualTo. y%Pressure(1:k) ) .AND. & + ALL(x%Temperature(1:k) .EqualTo. y%Temperature(1:k) ) .AND. & + ALL(x%Absorber(1:k,1:j) .EqualTo. y%Absorber(1:k,1:j) ) .AND. & + ALL(x%Cloud_Fraction(1:k) .EqualTo. y%Cloud_Fraction(1:k))) ) RETURN + ! ...Clouds + IF ( x%n_Clouds > 0 ) THEN + IF ( .NOT. ALL(x%Cloud == y%Cloud) ) RETURN + END IF + ! ...Aerosols + IF ( x%n_Aerosols > 0 ) THEN + IF ( .NOT. ALL(x%Aerosol == y%Aerosol) ) RETURN + END IF END IF + + + ! If we get here, then... + is_equal = .TRUE. END FUNCTION CRTM_Atmosphere_Equal +!------------------------------------------------------------------------------ +! +! NAME: +! CRTM_Atmosphere_NotEqual +! +! PURPOSE: +! Elemental function to test the inequality of two CRTM Atmosphere objects. +! Used in OPERATOR(/=) interface block. +! +! This function is syntactic sugar. +! +! CALLING SEQUENCE: +! not_equal = CRTM_Atmosphere_NotEqual( x, y ) +! +! or +! +! IF ( x /= y ) THEN +! ... +! END IF +! +! OBJECTS: +! x, y: Two CRTM Atmosphere objects to be compared. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! not_equal: Logical value indicating whether the inputs are not equal. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Same as inputs. +! +!------------------------------------------------------------------------------ + + ELEMENTAL FUNCTION CRTM_Atmosphere_NotEqual( x, y ) RESULT( not_equal ) + TYPE(CRTM_Atmosphere_type), INTENT(IN) :: x, y + LOGICAL :: not_equal + not_equal = .NOT. (x == y) + END FUNCTION CRTM_Atmosphere_NotEqual + + !-------------------------------------------------------------------------------- ! ! NAME: @@ -2163,7 +2291,7 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_Add( atm1, atm2 ) RESULT( atmsum ) atm1%n_Clouds /= atm2%n_Clouds .OR. & atm1%n_Aerosols /= atm2%n_Aerosols .OR. & atm1%n_Added_Layers /= atm2%n_Added_Layers ) RETURN - ! ...Dimenions the same, check absorber info + ! ...Dimensions the same, check absorber info IF ( ANY(atm1%Absorber_ID /= atm2%Absorber_ID ) .OR. & ANY(atm1%Absorber_Units /= atm2%Absorber_Units) ) RETURN @@ -2177,6 +2305,7 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_Add( atm1, atm2 ) RESULT( atmsum ) atmsum%Pressure(1:k) = atmsum%Pressure(1:k) + atm2%Pressure(1:k) atmsum%Temperature(1:k) = atmsum%Temperature(1:k) + atm2%Temperature(1:k) atmsum%Absorber(1:k,1:j) = atmsum%Absorber(1:k,1:j) + atm2%Absorber(1:k,1:j) + atmsum%Cloud_Fraction(1:k) = atmsum%Cloud_Fraction(1:k) + atm2%Cloud_Fraction(1:k) ! ...Cloud component IF ( atm1%n_Clouds > 0 ) THEN DO i = 1, atm1%n_Clouds @@ -2243,7 +2372,7 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_Subtract( atm1, atm2 ) RESULT( atmdiff ) atm1%n_Clouds /= atm2%n_Clouds .OR. & atm1%n_Aerosols /= atm2%n_Aerosols .OR. & atm1%n_Added_Layers /= atm2%n_Added_Layers ) RETURN - ! ...Dimenions the same, check absorber info + ! ...Dimensions the same, check absorber info IF ( ANY(atm1%Absorber_ID /= atm2%Absorber_ID ) .OR. & ANY(atm1%Absorber_Units /= atm2%Absorber_Units) ) RETURN @@ -2257,6 +2386,7 @@ ELEMENTAL FUNCTION CRTM_Atmosphere_Subtract( atm1, atm2 ) RESULT( atmdiff ) atmdiff%Pressure(1:k) = atmdiff%Pressure(1:k) - atm2%Pressure(1:k) atmdiff%Temperature(1:k) = atmdiff%Temperature(1:k) - atm2%Temperature(1:k) atmdiff%Absorber(1:k,1:j) = atmdiff%Absorber(1:k,1:j) - atm2%Absorber(1:k,1:j) + atmdiff%Cloud_Fraction(1:k) = atmdiff%Cloud_Fraction(1:k) - atm2%Cloud_Fraction(1:k) ! ...Cloud component IF ( atm1%n_Clouds > 0 ) THEN DO i = 1, atm1%n_Clouds @@ -2350,7 +2480,8 @@ FUNCTION Read_Record( & atm%Level_Pressure, & atm%Pressure, & atm%Temperature, & - atm%Absorber + atm%Absorber, & + atm%Cloud_Fraction IF ( io_stat /= 0 ) THEN msg = 'Error reading atmospheric profile data - '//TRIM(io_msg) CALL Read_Record_Cleanup(); RETURN @@ -2465,7 +2596,8 @@ FUNCTION Write_Record( & atm%Level_Pressure(0:atm%n_Layers), & atm%Pressure(1:atm%n_Layers), & atm%Temperature(1:atm%n_Layers), & - atm%Absorber(1:atm%n_Layers,:) + atm%Absorber(1:atm%n_Layers,:), & + atm%Cloud_Fraction(1:atm%n_Layers) IF ( io_stat /= 0 ) THEN msg = 'Error writing atmospheric profile data - '//TRIM(io_msg) CALL Write_Record_Cleanup(); RETURN diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_ChannelInfo_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_ChannelInfo_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_ChannelInfo_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_ChannelInfo_Define.f90 index 84bc61600c..28cb064e66 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_ChannelInfo_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_ChannelInfo_Define.f90 @@ -62,7 +62,7 @@ MODULE CRTM_ChannelInfo_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_ChannelInfo_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_ChannelInfo_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_CloudCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_CloudCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_CloudCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_CloudCoeff.f90 index 4072a69880..bd5df1f53c 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_CloudCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_CloudCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_CloudCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_CloudCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_CloudCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.3.0/libsrc/CRTM_CloudCover_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_CloudCover_Define.f90 new file mode 100644 index 0000000000..7246f2a221 --- /dev/null +++ b/var/external/crtm_2.3.0/libsrc/CRTM_CloudCover_Define.f90 @@ -0,0 +1,1973 @@ +! +! CRTM_CloudCover_Define +! +! Module defining the CRTM Cloud Cover object and its methods. +! +! +! CREATION HISTORY: +! Written by: Paul van Delst, 16-Sep-2015 +! paul.vandelst@noaa.gov +! + +MODULE CRTM_CloudCover_Define + + + ! ----------------- + ! Environment setup + ! ----------------- + ! Intrinsic modules + USE ISO_Fortran_Env , ONLY: OUTPUT_UNIT + ! Module use + USE Type_Kinds , ONLY: fp + USE File_Utility , ONLY: File_Open + USE Message_Handler , ONLY: SUCCESS, FAILURE, WARNING, INFORMATION, Display_Message + USE Compare_Float_Numbers , ONLY: DEFAULT_N_SIGFIG, & + OPERATOR(.EqualTo.), & + Compares_Within_Tolerance + USE CRTM_Parameters , ONLY: ZERO, ONE, & + WATER_CONTENT_THRESHOLD + USE CRTM_Atmosphere_Define, ONLY: CRTM_Atmosphere_type, & + CRTM_Atmosphere_Associated + USE CRTM_Cloud_Define , ONLY: OPERATOR(==), & + OPERATOR(+), & + CRTM_Cloud_type, & + CRTM_Cloud_Associated, & + CRTM_Cloud_Zero + ! Disable implicit typing + IMPLICIT NONE + + + ! ------------ + ! Visibilities + ! ------------ + ! Everything private by default + PRIVATE + ! Parameters + PUBLIC :: DEFAULT_OVERLAP_ID + ! Datatypes + PUBLIC :: CRTM_CloudCover_type + ! "Class" methods + PUBLIC :: CloudCover_Maximum_Overlap + PUBLIC :: CloudCover_Random_Overlap + PUBLIC :: CloudCover_MaxRan_Overlap + PUBLIC :: CloudCover_Average_Overlap + PUBLIC :: CloudCover_Overcast_Overlap + PUBLIC :: CloudCover_Overlap_IsValid + PUBLIC :: CloudCover_Overlap_Name + + + ! ----------------- + ! Module parameters + ! ----------------- + CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & + '$Id: CRTM_CloudCover_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' + ! The valid cloud categories and names +! INTEGER, PARAMETER :: N_OVERLAPS = 4 + INTEGER, PARAMETER :: N_OVERLAPS = 5 + INTEGER, PARAMETER :: INVALID_OVERLAP_ID = 0 + INTEGER, PARAMETER :: MAXIMUM_OVERLAP_ID = 1 + INTEGER, PARAMETER :: RANDOM_OVERLAP_ID = 2 + INTEGER, PARAMETER :: MAXRAN_OVERLAP_ID = 3 + INTEGER, PARAMETER :: AVERAGE_OVERLAP_ID = 4 + INTEGER, PARAMETER :: OVERCAST_OVERLAP_ID =5 + CHARACTER(*), PARAMETER :: OVERLAP_NAMES(0:N_OVERLAPS) = & + [ 'Invalid ', & + 'Maximum ', & + 'Random ', & + 'Maximum-random', & + 'Average ', & + 'Overcast ' ] + INTEGER, PARAMETER :: DEFAULT_OVERLAP_ID = AVERAGE_OVERLAP_ID + ! Message string length + INTEGER, PARAMETER :: ML = 256 + ! File status on close after write error + CHARACTER(*), PARAMETER :: WRITE_ERROR_STATUS = 'DELETE' + + + ! ----------------------------- + ! CloudCover object definitions + ! ----------------------------- + ! Private object for intermediate results + ! Only used and acessible in this module + TYPE, PRIVATE :: iVar_type + ! Housekeeping + LOGICAL :: Is_Allocated = .FALSE. ! Allocation indicator + INTEGER :: n_Layers = 0 ! K dimension. + INTEGER :: n_Clouds = 0 ! N dimension. + ! Data + REAL(fp), ALLOCATABLE :: prod(:) ! 0:K. Product across layers + REAL(fp), ALLOCATABLE :: lwc(:) ! 1:K. Total layer water content for ALL clouds + REAL(fp), ALLOCATABLE :: wc_sum(:) ! 0:K. Cumulative sum of lwc at each layer + REAL(fp), ALLOCATABLE :: cwc_sum(:) ! 0:K. Cumulative sum of the weighted lwc at each layer + REAL(fp), ALLOCATABLE :: wc(:,:) ! 1:N 1:K. layer water content for each cloud type + REAL(fp), ALLOCATABLE :: maxcov(:) ! 1:K. Max cloud fraction between two layers + CONTAINS + PROCEDURE, PASS(self) :: Is_Usable => iVar_Is_Usable + PROCEDURE, PASS(self) :: Destroy => iVar_Destroy + PROCEDURE, PASS(self) :: Create => iVar_Create + PROCEDURE, PASS(self) :: Inspect => iVar_Inspect + PROCEDURE, PASS(self) :: Set_To_Zero => iVar_Set_To_Zero + PROCEDURE :: iVar_Equal + PROCEDURE :: iVar_NotEqual + PROCEDURE :: iVar_Compare + GENERIC :: OPERATOR(==) => iVar_Equal + GENERIC :: OPERATOR(/=) => iVar_NotEqual + GENERIC :: OPERATOR(.Compare.) => iVar_Compare + END TYPE iVar_type + + + ! The main object definition + !:tdoc+: + TYPE :: CRTM_CloudCover_type + ! Housekeeping + LOGICAL :: Is_Allocated = .FALSE. ! Allocation indicator + INTEGER :: n_Layers = 0 ! K dimension. + ! Data + INTEGER :: Overlap = DEFAULT_OVERLAP_ID ! Overlap type identifier + REAL(fp) :: Total_Cloud_Cover = ZERO ! Cloud cover used in RT + REAL(fp), ALLOCATABLE :: Cloud_Fraction(:) ! K. The physical cloud fraction + REAL(fp), ALLOCATABLE :: Cloud_Cover(:) ! K. The overlap cloud cover + ! Intermediate results + TYPE(iVar_type) :: iVar ! FWD results for TL/AD + CONTAINS + PRIVATE + PROCEDURE, PUBLIC, PASS(self) :: Overlap_Id + PROCEDURE, PUBLIC, PASS(self) :: Overlap_Name + PROCEDURE, PUBLIC, PASS(self) :: Compute_CloudCover + PROCEDURE, PUBLIC, PASS(self_TL) :: Compute_CloudCover_TL + PROCEDURE, PUBLIC, PASS(self_AD) :: Compute_CloudCover_AD + PROCEDURE, PUBLIC, PASS(self) :: Is_Usable + PROCEDURE, PUBLIC, PASS(self) :: Destroy + PROCEDURE, PUBLIC, PASS(self) :: Create + PROCEDURE, PUBLIC, PASS(self) :: Inspect + PROCEDURE, PUBLIC, PASS(self) :: Set_To_Zero + PROCEDURE :: Equal + PROCEDURE :: NotEqual + PROCEDURE :: Compare_ + GENERIC, PUBLIC :: OPERATOR(==) => Equal + GENERIC, PUBLIC :: OPERATOR(/=) => NotEqual + GENERIC, PUBLIC :: OPERATOR(.Compare.) => Compare_ + END TYPE CRTM_CloudCover_type + !:tdoc-: + +CONTAINS + + +!################################################################################ +!################################################################################ +!## ## +!## ## PUBLIC MODULE PROCEDURES ## ## +!## ## +!################################################################################ +!################################################################################ + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CloudCover_Maximum_Overlap +! CloudCover_Random_Overlap +! CloudCover_MaxRan_Overlap +! CloudCover_Average_Overlap +! CloudCover_Overcast_Overlap +! +! PURPOSE: +! Group of pure functions to supply the overlap methodology indicator. +! +! CALLING SEQUENCE: +! id = CloudCover_Maximum_Overlap() +! id = CloudCover_Random_Overlap() +! id = CloudCover_MaxRan_Overlap() +! id = CloudCover_Average_Overlap() +! id = CloudCover_Overcast_Overlap() +! +! FUNCTION RESULT: +! id: The return value is an integer defining the overlap methodology. +! The actual number value of these integers in a CRTM release can +! change at any time based upon code updates. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE FUNCTION CloudCover_Maximum_Overlap() RESULT(id) + INTEGER :: id + id = MAXIMUM_OVERLAP_ID + END FUNCTION CloudCover_Maximum_Overlap + + PURE FUNCTION CloudCover_Random_Overlap() RESULT(id) + INTEGER :: id + id = RANDOM_OVERLAP_ID + END FUNCTION CloudCover_Random_Overlap + + PURE FUNCTION CloudCover_MaxRan_Overlap() RESULT(id) + INTEGER :: id + id = MAXRAN_OVERLAP_ID + END FUNCTION CloudCover_MaxRan_Overlap + + PURE FUNCTION CloudCover_Average_Overlap() RESULT(id) + INTEGER :: id + id = AVERAGE_OVERLAP_ID + END FUNCTION CloudCover_Average_Overlap + + PURE FUNCTION CloudCover_Overcast_Overlap() RESULT(id) + INTEGER :: id + id = OVERCAST_OVERLAP_ID + END FUNCTION CloudCover_Overcast_Overlap + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CloudCover_Overlap_IsValid +! +! PURPOSE: +! Pure function to test if an overlap methodology identifier is valid. +! +! CALLING SEQUENCE: +! is_valid = CloudCover_Overlap_IsValid( id ) +! +! INPUTS: +! id: The overlap methodology identifier. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! is_valid: Logical variable indicating whether or not the input overlap +! methodology identifier is valid. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE FUNCTION CloudCover_Overlap_IsValid(id) RESULT(is_valid) + INTEGER, INTENT(IN) :: id + LOGICAL :: is_valid + is_valid = (id >= 1 .AND. id <= N_OVERLAPS) + END FUNCTION CloudCover_Overlap_IsValid + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CloudCover_Overlap_Name +! +! PURPOSE: +! Pure function to return a string description of the overlap methodology +! given its identifier. +! +! CALLING SEQUENCE: +! name = CloudCover_Overlap_Name( id ) +! +! INPUTS: +! id: The overlap methodology identifier. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! name: Character variable containing a short descriptor of the overlap +! methodology. If the input identifier is invalid, the returned +! string is "Invalid". +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE FUNCTION CloudCover_Overlap_Name(id) RESULT(name) + INTEGER, INTENT(IN) :: id + CHARACTER(LEN(OVERLAP_NAMES(1))) :: name + IF ( CloudCover_Overlap_IsValid(id) ) THEN + name = OVERLAP_NAMES(id) + ELSE + name = OVERLAP_NAMES(INVALID_OVERLAP_ID) + END IF + END FUNCTION CloudCover_Overlap_Name + + + +!################################################################################ +!################################################################################ +!## ## +!## ## PUBLIC MODULE METHODS ## ## +!## ## +!################################################################################ +!################################################################################ + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Overlap_Id +! +! PURPOSE: +! Function method to return the overlap methodology identifier of a +! CloudCover object. +! +! CALLING SEQUENCE: +! id = cc_obj%Overlap_Id() +! +! OBJECTS: +! cc_obj: Cloud cover object for which the overlap methodology identifier +! is required. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! FUNCTION RESULT: +! id: The return value is an integer defining the overlap methodology. +! The actual number value of these integers in a CRTM release can +! change at any time based upon code updates. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE FUNCTION Overlap_Id(self) RESULT(id) + CLASS(CRTM_CloudCover_type), INTENT(IN) :: self + INTEGER :: id + id = self%Overlap + IF ( id < 1 .OR. id > N_OVERLAPS ) id = INVALID_OVERLAP_ID + END FUNCTION Overlap_Id + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Overlap_Name +! +! PURPOSE: +! Function method to return a string description of the overlap methodology +! that has been set for a CloudCover object. +! +! CALLING SEQUENCE: +! name = cc_obj%Overlap_Name() +! +! OBJECTS: +! cc_obj: Cloud cover object for which the overlap methodology descriptor +! is required. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! name: Character variable containing a short descriptor of the overlap +! methodology. If the object's overlap methodology identifier is +! invalid, the returned string is "Invalid". +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE FUNCTION Overlap_Name(self) RESULT(name) + CLASS(CRTM_CloudCover_type), INTENT(IN) :: self + CHARACTER(LEN(OVERLAP_NAMES(1))) :: name + name = OVERLAP_NAMES(self%Overlap_Id()) + END FUNCTION Overlap_Name + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Compute_CloudCover +! +! PURPOSE: +! Function method to compute the cloud cover profile given a supplied +! Atmosphere object, and populate the CloudCover object with the +! results. +! +! CALLING SEQUENCE: +! err_stat = cc_obj%Compute_CloudCover( & +! atmosphere , & +! Overlap = overlap ) +! +! OBJECTS: +! cc_obj: Cloud cover object which is to be populated with cloud +! cover results. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! INPUTS: +! atmosphere: Atmopshere object containing the layer cloud fraction +! profile, and the actual cloud profiles for when cloud +! water content averaging of the cloud cover is selected. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OPTIONAL INPUTS: +! overlap: Set this argument to a flag defining the cloud coverage +! algorithm used. Supplied module functions providing valid flag +! output are: +! CloudCover_Maximum_Overlap(): Use maximum overlap method. +! CloudCover_Random_Overlap() : Use random overlap method. +! CloudCover_MaxRan_Overlap() : Use maximum-random overlap method. +! CloudCover_Average_Overlap(): Use cloud content weighted averaged method. [DEFAULT] +! CloudCover_Overcast_Overlap():Overcast. [Test] +! If not specified, the default is the cloud content weighted +! averaged method +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! FUNCTION RESULT: +! err_stat: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS, the computation was successful +! == FAILURE, an unrecoverable error occurred. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION Compute_CloudCover( & + self , & ! Output + atm , & ! In/Output + overlap) & ! Optional input + RESULT(err_stat) + ! Arguments + CLASS(CRTM_CloudCover_type), INTENT(OUT) :: self + TYPE(CRTM_Atmosphere_type) , INTENT(INOUT):: atm + INTEGER, OPTIONAL, INTENT(IN) :: overlap + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'CRTM_CloudCover_Define::Compute_CloudCover' + REAL(fp), PARAMETER :: MIN_COVERAGE_THRESHOLD = 1.0e-06_fp + REAL(fp), PARAMETER :: MAX_COVERAGE_THRESHOLD = ONE - MIN_COVERAGE_THRESHOLD + ! Local variables + CHARACTER(ML) :: err_msg + INTEGER :: overlap_method + INTEGER :: n_layers + INTEGER :: n_clouds + INTEGER :: n + ! Check input + err_stat = SUCCESS + IF ( .NOT. CRTM_Atmosphere_Associated(atm) ) THEN + err_msg = 'Input atmosphere is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + ! ...Overlap keyword + overlap_method = DEFAULT_OVERLAP_ID + IF ( PRESENT(overlap) ) overlap_method = overlap + ! ...and check it. + IF ( .NOT. CloudCover_Overlap_IsValid(overlap_method) ) THEN + err_msg = 'Invalid overlap assumption' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + + + ! Create the output object + n_layers = Atm%n_Layers + n_clouds = Atm%n_Clouds +! CALL self%Create(n_layers, Forward = .TRUE., Error_Message = err_msg) + CALL self%Create(n_layers, n_clouds, Forward = .TRUE., Error_Message = err_msg) + IF ( .NOT. self%Is_Usable() ) THEN + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + + + ! Set the object quantities + self%Overlap = overlap_method + self%Cloud_Fraction = atm%Cloud_Fraction(1:atm%n_Layers) + + DO n = 1, n_clouds + self%iVar%wc(n,1:n_layers) = atm%Cloud(n)%Water_Content(1:n_layers) ! save for TL/AD + END DO + + ! Compute the cloud cover + SELECT CASE (self%Overlap) + CASE (MAXIMUM_OVERLAP_ID); CALL Compute_Maximum_Overlap() + CASE (RANDOM_OVERLAP_ID) ; CALL Compute_Random_Overlap() + CASE (MAXRAN_OVERLAP_ID) ; CALL Compute_MaxRan_Overlap() + CASE (AVERAGE_OVERLAP_ID); CALL Compute_Average_Overlap() + CASE (OVERCAST_OVERLAP_ID);CALL Compute_Overcast_Overlap() + END SELECT + + ! Add cloud scaling here! + ! Partition all hydrometeors into cloudy column + IF (self%Total_Cloud_Cover > MIN_COVERAGE_THRESHOLD) then + DO n = 1, n_clouds + ! scaled cloud water content + atm%Cloud(n)%Water_Content(1:n_layers) = atm%Cloud(n)%Water_Content(1:n_layers) / self%Total_Cloud_Cover + END DO + END IF + + CONTAINS + + SUBROUTINE Compute_Maximum_Overlap() + INTEGER :: k + self%Cloud_Cover(1) = self%Cloud_Fraction(1) + DO k = 2, n_layers + IF ( self%Cloud_Fraction(k) > self%Cloud_Cover(k-1) ) THEN + self%Cloud_Cover(k) = self%Cloud_Fraction(k) + ELSE + self%Cloud_Cover(k) = self%Cloud_Cover(k-1) + END IF + END DO + self%Total_Cloud_Cover = self%Cloud_Cover(n_layers) + END SUBROUTINE Compute_Maximum_Overlap + +! SUBROUTINE Compute_Random_Overlap() +! INTEGER :: k +! REAL(fp) :: prod +! prod = ONE +! self%iVar%prod(0) = prod +! DO k = 1, n_layers +! prod = prod * (ONE - self%Cloud_Fraction(k)) +! self%Cloud_Cover(k) = ONE - prod +! self%iVar%prod(k) = prod ! Save for TL/AD +! END DO +! self%Total_Cloud_Cover = self%Cloud_Cover(n_layers) +! END SUBROUTINE Compute_Random_Overlap + SUBROUTINE Compute_Random_Overlap() + INTEGER :: k + REAL(fp) :: prod(0:n_layers) + prod(0) = ONE + self%iVar%prod(0) = prod(0) + DO k = 1, n_layers + if (self%Cloud_Fraction(k) > MIN_COVERAGE_THRESHOLD) then + prod(k) = prod(k-1) * (ONE - self%Cloud_Fraction(k)) + else + prod(k) = prod(k-1) + endif + self%Cloud_Cover(k) = ONE - prod(k) + self%iVar%prod(k) = prod(k) ! Save for TL/AD + END DO + self%Total_Cloud_Cover = self%Cloud_Cover(n_layers) + END SUBROUTINE Compute_Random_Overlap + +! SUBROUTINE Compute_MaxRan_Overlap() +! INTEGER :: k +! REAL(fp) :: prod +! prod = ONE - self%Cloud_Fraction(1) +! self%iVar%prod(1) = prod +! self%Cloud_Cover(1) = ONE - prod +! DO k = 2, n_layers +! IF ( self%Cloud_Fraction(k) > self%Cloud_Fraction(k-1) ) THEN +! prod = prod * (ONE - self%Cloud_Fraction(k)) / (ONE - self%Cloud_Fraction(k-1)) +! END IF +! self%Cloud_Cover(k) = ONE - prod +! self%iVar%prod(k) = prod ! Save for TL/AD +! END DO +! self%Total_Cloud_Cover = self%Cloud_Cover(n_layers) +! END SUBROUTINE Compute_MaxRan_Overlap + SUBROUTINE Compute_MaxRan_Overlap() + INTEGER :: k + REAL(fp) :: prod, maxcov + + prod = ONE - self%Cloud_Fraction(1) + self%Cloud_Cover(1) = ONE - prod + self%iVar%prod(1) = prod + self%iVar%maxcov(1) = ONE - self%Cloud_Fraction(1) + DO k= 2, n_layers + maxcov = (ONE - MAX(self%Cloud_Fraction(k-1), self%Cloud_Fraction(k))) + prod = prod * maxcov / (one - self%Cloud_Fraction(k-1)) + self%iVar%maxcov(k) = maxcov + self%iVar%prod(k) = prod + self%Cloud_Cover(k) = ONE - prod + ENDDO + self%Total_Cloud_Cover = self%Cloud_Cover(n_layers) + END SUBROUTINE Compute_MaxRan_Overlap + + SUBROUTINE Compute_Average_Overlap() + INTEGER :: k, n + + ! Give the variables shorter names + ASSOCIATE( lwc => self%iVar%lwc , & + wc_sum => self%iVar%wc_sum , & + cwc_sum => self%iVar%cwc_sum , & + cf => self%Cloud_Fraction, & + cc => self%Cloud_Cover , & + cloud => atm%Cloud ) + + ! The total layer water content + lwc = ZERO + DO n = 1, SIZE(cloud) + WHERE (cloud(n)%Water_Content > WATER_CONTENT_THRESHOLD ) & + lwc = lwc + cloud(n)%Water_Content(1:n_layers) + END DO + + ! The cloud cover profile + wc_sum(0) = ZERO + cwc_sum(0) = ZERO + DO k = 1, n_layers + wc_sum(k) = wc_sum(k-1) + lwc(k) + cwc_sum(k) = cwc_sum(k-1) + (cf(k) * lwc(k)) + IF ( wc_sum(k) > ZERO ) cc(k) = cwc_sum(k)/wc_sum(k) + END DO + + END ASSOCIATE + + ! Extract out the total cloud cover + self%Total_Cloud_Cover = self%Cloud_Cover(n_layers) + + END SUBROUTINE Compute_Average_Overlap + + SUBROUTINE Compute_Overcast_Overlap() + + self%Total_Cloud_Cover = ONE + + END SUBROUTINE Compute_Overcast_Overlap + + END FUNCTION Compute_CloudCover + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Compute_CloudCover_TL +! +! PURPOSE: +! Function method to compute the tangent-linear cloud cover profile for +! supplied forward model results and a Atmosphere perturbation, and populate +! the tangent-linear CloudCover object with the results. +! +! CALLING SEQUENCE: +! err_stat = cc_obj_TL%Compute_CloudCover_TL( & +! cc_FWD , & +! atmosphere , & +! atmosphere_TL ) +! +! OBJECTS: +! cc_obj_TL: The tangent-linear cloud cover object which is to be +! populated with perturbed cloud cover results. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! INPUTS: +! cc_FWD: The forward model cloud cover object. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! atmosphere: Atmopshere object containing the layer cloud fraction +! profile, and the actual cloud profiles for when cloud +! water content averaging of the cloud cover is selected. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! atmosphere_TL: The tangent-linear atmosphere object containing the layer +! cloud fraction perturbation profile, and the cloud amount +! perturbation profiles for when cloud water content averaging +! of the cloud cover is selected. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! err_stat: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS, the computation was successful +! == FAILURE, an unrecoverable error occurred. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION Compute_CloudCover_TL( & + self_TL, & ! Output + cc_FWD , & ! Input + atm , & ! Input + atm_TL ) & ! In/Outupt + RESULT(err_stat) + ! Arguments + CLASS(CRTM_CloudCover_type), INTENT(OUT) :: self_TL + CLASS(CRTM_CloudCover_type), INTENT(IN) :: cc_FWD + TYPE(CRTM_Atmosphere_type) , INTENT(IN) :: atm + TYPE(CRTM_Atmosphere_type) , INTENT(INOUT):: atm_TL + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'CRTM_CloudCover_Define::Compute_CloudCover_TL' + REAL(fp), PARAMETER :: MIN_COVERAGE_THRESHOLD = 1.0e-06_fp + REAL(fp), PARAMETER :: MAX_COVERAGE_THRESHOLD = ONE - MIN_COVERAGE_THRESHOLD + ! Local variables + CHARACTER(ML) :: err_msg + INTEGER :: n_layers + INTEGER :: n_clouds + INTEGER :: n + ! Check inputs + err_stat = SUCCESS + IF ( .NOT. cc_FWD%Is_Usable( Include_iVar=.TRUE. ) ) THEN + err_msg = 'Input forward cloud cover object is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + IF ( .NOT. CRTM_Atmosphere_Associated(atm) ) THEN + err_msg = 'Input atmosphere object is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + IF ( .NOT. CRTM_Atmosphere_Associated(atm_TL) ) THEN + err_msg = 'Input tangent-linear atmosphere object is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + + + ! Create the output object + n_layers = Atm_TL%n_Layers + n_clouds = Atm_TL%n_Clouds +! CALL self_TL%Create(n_layers, Error_Message = err_msg) + CALL self_TL%Create(n_layers, n_clouds, Error_Message = err_msg) + IF ( .NOT. self_TL%Is_Usable() ) THEN + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + + + ! Set the object quantities + self_TL%Overlap = cc_FWD%Overlap + self_TL%Cloud_Fraction = atm_TL%Cloud_Fraction(1:atm_TL%n_Layers) + + + ! Compute the cloud cover + SELECT CASE (self_TL%Overlap) + CASE (MAXIMUM_OVERLAP_ID); CALL Compute_Maximum_Overlap_TL() + CASE (RANDOM_OVERLAP_ID) ; CALL Compute_Random_Overlap_TL() + CASE (MAXRAN_OVERLAP_ID) ; CALL Compute_MaxRan_Overlap_TL() + CASE (AVERAGE_OVERLAP_ID); CALL Compute_Average_Overlap_TL() + CASE (OVERCAST_OVERLAP_ID);CALL Compute_Overcast_Overlap_TL() + END SELECT + + ! Add TL of cloud scaling here! + ! Partition all hydrometeors into cloudy column + IF (cc_FWD%Total_Cloud_Cover > MIN_COVERAGE_THRESHOLD) then + DO n = 1, n_clouds + atm_TL%Cloud(n)%Water_Content(1:n_layers) = & + atm_TL%Cloud(n)%Water_Content(1:n_layers) / cc_FWD%Total_Cloud_Cover & + - self_TL%Total_Cloud_Cover * cc_FWD%iVar%wc(n,1:n_layers) / (cc_FWD%Total_Cloud_Cover**2) + END DO + END IF + + CONTAINS + + SUBROUTINE Compute_Maximum_Overlap_TL() + INTEGER :: k + self_TL%Cloud_Cover(1) = self_TL%Cloud_Fraction(1) + DO k = 2, n_layers + IF ( cc_FWD%Cloud_Fraction(k) > cc_FWD%Cloud_Cover(k-1) ) THEN + self_TL%Cloud_Cover(k) = self_TL%Cloud_Fraction(k) + ELSE + self_TL%Cloud_Cover(k) = self_TL%Cloud_Cover(k-1) + END IF + END DO + self_TL%Total_Cloud_Cover = self_TL%Cloud_Cover(n_layers) + END SUBROUTINE Compute_Maximum_Overlap_TL + +! SUBROUTINE Compute_Random_Overlap_TL() +! INTEGER :: k +! REAL(fp) :: prod_TL +! prod_TL = ZERO +! DO k = 1, n_layers +! prod_TL = (ONE - cc_FWD%Cloud_Fraction(k))*prod_TL - & +! cc_FWD%iVar%prod(k-1)*self_TL%Cloud_Fraction(k) +! self_TL%Cloud_Cover(k) = -prod_TL +! END DO +! self_TL%Total_Cloud_Cover = self_TL%Cloud_Cover(n_layers) +! END SUBROUTINE Compute_Random_Overlap_TL + SUBROUTINE Compute_Random_Overlap_TL() + INTEGER :: k + REAL(fp) :: prod_TL(0:n_layers) + prod_TL = ZERO + prod_TL(0) = ZERO + DO k = 1, n_layers + if (cc_FWD%Cloud_Fraction(k) > MIN_COVERAGE_THRESHOLD) then + prod_TL(k) = (ONE - cc_FWD%Cloud_Fraction(k))*prod_TL(k-1) - & + cc_FWD%iVar%prod(k-1)*self_TL%Cloud_Fraction(k) + else + prod_TL(k) = prod_TL(k-1) + endif + self_TL%Cloud_Cover(k) = -prod_TL(k) + END DO + self_TL%Total_Cloud_Cover = self_TL%Cloud_Cover(n_layers) + END SUBROUTINE Compute_Random_Overlap_TL + +! SUBROUTINE Compute_MaxRan_Overlap_TL() +! INTEGER :: k +! REAL(fp) :: prod_TL, denom +! +! ! Give the variables shorter names +! ASSOCIATE( prod => cc_FWD%iVar%prod , & +! cf => cc_FWD%Cloud_Fraction , & +! cf_TL => self_TL%Cloud_Fraction, & +! cc_TL => self_TL%Cloud_Cover ) +! +! ! The cloud cover profile +! prod_TL = -cf_TL(1) +! cc_TL(1) = -prod_TL ! == self_TL%Cloud_Fraction(1) +! DO k = 2, n_layers +! IF ( cf(k) > cf(k-1) ) THEN +! !>>orig +! denom = ONE/(ONE - cf(k-1)) +! prod_TL = ((ONE - cf(k)) * denom * prod_TL) - & +! (prod(k-1) * denom * cf_TL(k) ) + & +! (prod(k-1) * (ONE - cf(k)) * denom**2 * cf_TL(k-1)) +! !<>test +! ! prod_TL = ( ((ONE - cf(k)) / (ONE - cf(k-1))) * prod_TL ) - & +! ! ( (prod(k-1) / (ONE - cf(k-1))) * cf_TL(k) ) + & +! ! ( ((prod(k-1) * (ONE - cf(k))) / (ONE - cf(k-1))**2) * cf_TL(k-1) ) +! !< cc_FWD%Cloud_Fraction(k))) THEN + maxcov_TL = -self_TL%Cloud_Fraction(k-1) + ELSE IF ((cc_FWD%Cloud_Fraction(k-1) < cc_FWD%Cloud_Fraction(k))) THEN + maxcov_TL = -self_TL%Cloud_Fraction(k) + ELSE IF ((CC_FWD%Cloud_Fraction(k-1) == cc_FWD%Cloud_Fraction(k))) THEN + maxcov_TL = -self_TL%Cloud_Fraction(k) + ENDIF + prod_TL = prod_TL * cc_FWD%iVar%maxcov(k) / (one - cc_FWD%Cloud_Fraction(k-1)) + & + & self_TL%Cloud_Fraction(k-1) * cc_FWD%iVar%prod(k-1) * cc_FWD%iVar%maxcov(k) / & + & (one - cc_FWD%Cloud_Fraction(k-1)) ** 2 + & + & maxcov_TL * cc_FWD%iVar%prod(k-1) / (one - cc_FWD%Cloud_Fraction(k-1)) + self_TL%Cloud_Cover(k) = -prod_TL + ENDDO + self_TL%Total_Cloud_Cover = self_TL%Cloud_Cover(n_layers) + END SUBROUTINE Compute_MaxRan_Overlap_TL + + SUBROUTINE Compute_Average_Overlap_TL() + INTEGER :: k, n + REAL(fp) :: lwc_TL(n_Layers), wc_sum_TL(0:n_Layers), cwc_sum_TL(0:n_Layers) + REAL(fp) :: denom + + ! Give the variables shorter names + ASSOCIATE( lwc => cc_FWD%iVar%lwc , & + wc_sum => cc_FWD%iVar%wc_sum , & + cwc_sum => cc_FWD%iVar%cwc_sum , & + cf => cc_FWD%Cloud_Fraction , & + cc => cc_FWD%Cloud_Cover , & + ! cloud => atm%Cloud , & !orig + cloud => cc_FWD%iVar%wc , & + cf_TL => self_TL%Cloud_Fraction, & + cc_TL => self_TL%Cloud_Cover , & + cloud_TL => atm_TL%Cloud ) + + ! The total layer water content + lwc_TL = ZERO + DO n = 1, atm_TL%n_Clouds + ! WHERE (cloud(n)%Water_Content(1:n_layers) > WATER_CONTENT_THRESHOLD ) & !orig + WHERE (cloud(n,1:n_layers) > WATER_CONTENT_THRESHOLD ) & + lwc_TL = lwc_TL + cloud_TL(n)%Water_Content(1:n_layers) + END DO + + ! The cloud cover profile + wc_sum_TL(0) = ZERO + cwc_sum_TL(0) = ZERO + DO k = 1, n_layers + wc_sum_TL(k) = wc_sum_TL(k-1) + lwc_TL(k) + cwc_sum_TL(k) = cwc_sum_TL(k-1) + (cf(k) * lwc_TL(k)) + (lwc(k) * cf_TL(k)) + IF ( wc_sum(k) > ZERO ) THEN + denom = ONE/wc_sum(k) + cc_TL(k) = (denom * cwc_sum_TL(k)) - & + (denom**2 * cwc_sum(k) * wc_sum_TL(k) ) + END IF + END DO + + END ASSOCIATE + + ! Extract out the tangent-linear total cloud cover + self_TL%Total_Cloud_Cover = self_TL%Cloud_Cover(n_layers) + + END SUBROUTINE Compute_Average_Overlap_TL + + SUBROUTINE Compute_Overcast_Overlap_TL() + + self_TL%Total_Cloud_Cover = ZERO + + END SUBROUTINE Compute_Overcast_Overlap_TL + + END FUNCTION Compute_CloudCover_TL + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Compute_CloudCover_AD +! +! PURPOSE: +! Function method to compute the adjoint cloud cover profile for supplied +! forward model results and populate the Atmosphere adjoint object +! with the results. +! +! CALLING SEQUENCE: +! err_stat = cc_obj_AD%Compute_CloudCover_AD( & +! cc_FWD , & +! atmosphere , & +! atmosphere_AD ) +! +! OBJECTS: +! cc_obj_AD: The adjoint cloud cover object. This object contains +! data on input, but is zeroed out upon output. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! cc_FWD: The forward model cloud cover object. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! atmosphere: Atmopshere object containing the layer cloud fraction +! profile, and the actual cloud profiles for when cloud +! water content averaging of the cloud cover is selected. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! atmosphere_AD: The adjoint atmosphere object containing the results of the +! adjoint calculation. The adjoint cloud fraction profile +! will be modified on output. For the weighted average cloud +! clover method, the adjoint cloud water amounts will also be +! modified. +! UNITS: N/A +! TYPE: CRTM_Atmosphere_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! FUNCTION RESULT: +! err_stat: The return value is an integer defining the error status. +! The error codes are defined in the Message_Handler module. +! If == SUCCESS, the computation was successful +! == FAILURE, an unrecoverable error occurred. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + FUNCTION Compute_CloudCover_AD( & + self_AD, & ! Input, but modified on output + cc_FWD , & ! Input + atm , & ! Input + atm_AD ) & ! Output, but contains information on input + RESULT(err_stat) + ! Arguments + CLASS(CRTM_CloudCover_type), INTENT(IN OUT) :: self_AD + CLASS(CRTM_CloudCover_type), INTENT(IN) :: cc_FWD + TYPE(CRTM_Atmosphere_type) , INTENT(IN) :: atm + TYPE(CRTM_Atmosphere_type) , INTENT(IN OUT) :: atm_AD + ! Function result + INTEGER :: err_stat + ! Local parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'CRTM_CloudCover_Define::Compute_CloudCover_AD' + REAL(fp), PARAMETER :: MIN_COVERAGE_THRESHOLD = 1.0e-06_fp + REAL(fp), PARAMETER :: MAX_COVERAGE_THRESHOLD = ONE - MIN_COVERAGE_THRESHOLD + + ! Local variables + CHARACTER(ML) :: err_msg + INTEGER :: n_layers + INTEGER :: n_clouds + INTEGER :: n + REAL(fp):: sum_wc + + ! Check inputs + err_stat = SUCCESS + IF ( .NOT. self_AD%Is_Usable() ) THEN + err_msg = 'In/output adjoint cloud cover object is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + IF ( .NOT. cc_FWD%Is_Usable( Include_iVar=.TRUE. ) ) THEN + err_msg = 'Input forward cloud cover object is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + IF ( .NOT. CRTM_Atmosphere_Associated(atm) ) THEN + err_msg = 'Input atmosphere object is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + IF ( .NOT. CRTM_Atmosphere_Associated(atm_AD) ) THEN + err_msg = 'In/output adjoint atmosphere object is not usable' + err_stat = FAILURE + CALL Display_Message(PROCEDURE_NAME, err_msg, err_stat); RETURN + END IF + + + ! Set the object quantities + n_layers = atm_AD%n_Layers + n_clouds = atm_AD%n_Clouds + self_AD%Overlap = cc_FWD%Overlap + + ! Add AD of cloud scaling here! + ! Partition all hydrometeors into cloudy column + IF (cc_FWD%Total_Cloud_Cover > MIN_COVERAGE_THRESHOLD) then + + sum_wc = ZERO + DO n = 1, n_clouds + sum_wc = sum_wc & + + SUM(atm_AD%Cloud(n)%Water_Content(1:n_layers) * cc_FWD%iVar%wc(n,1:n_layers)) + ENDDO + sum_wc = sum_wc / (cc_FWD%Total_Cloud_Cover**2) +!>>test +! sum_wc = ZERO +! DO n = 1, n_clouds +! sum_wc = sum_wc & +! + SUM( (atm_AD%Cloud(n)%Water_Content(1:n_layers) / cc_FWD%Total_Cloud_Cover) & +! * (cc_FWD%iVar%wc(n,1:n_layers) / cc_FWD%Total_Cloud_Cover) ) +! ENDDO +!< cc_FWD%Cloud_Cover(k-1) ) THEN + self_AD%Cloud_Fraction(k) = self_AD%Cloud_Fraction(k) + self_AD%Cloud_Cover(k) + ELSE + self_AD%Cloud_Cover(k-1) = self_AD%Cloud_Cover(k-1) + self_AD%Cloud_Cover(k) + END IF + self_AD%Cloud_Cover(k) = ZERO + END DO + self_AD%Cloud_Fraction(1) = self_AD%Cloud_Fraction(1) + self_AD%Cloud_Cover(1) + self_AD%Cloud_Cover(1) = ZERO + END SUBROUTINE Compute_Maximum_Overlap_AD + + +! SUBROUTINE Compute_Random_Overlap_AD() +! INTEGER :: k +! REAL(fp) :: prod_AD +! prod_AD = ZERO +! self_AD%Cloud_Cover(n_layers) = self_AD%Cloud_Cover(n_layers) + self_AD%Total_Cloud_Cover +! self_AD%Total_Cloud_Cover = ZERO +! DO k = n_layers, 1, -1 +! prod_AD = prod_AD - self_AD%Cloud_Cover(k) +! self_AD%Cloud_Cover(k) = ZERO +! self_AD%Cloud_Fraction(k) = self_AD%Cloud_Fraction(k) - (cc_FWD%iVar%prod(k-1)*prod_AD) +! prod_AD = (ONE - cc_FWD%Cloud_Fraction(k))*prod_AD +! END DO +! prod_AD = ZERO +! END SUBROUTINE Compute_Random_Overlap_AD + SUBROUTINE Compute_Random_Overlap_AD() + INTEGER :: k + REAL(fp) :: prod_AD(0:n_layers) + prod_AD = ZERO + prod_AD(n_layers) = ZERO + self_AD%Cloud_Cover(n_layers) = self_AD%Cloud_Cover(n_layers) + self_AD%Total_Cloud_Cover + self_AD%Total_Cloud_Cover = ZERO + DO k = n_layers, 1, -1 + prod_AD(k) = prod_AD(k) - self_AD%Cloud_Cover(k) + self_AD%Cloud_Cover(k) = ZERO + if (cc_FWD%Cloud_Fraction(k) > MIN_COVERAGE_THRESHOLD) then + self_AD%Cloud_Fraction(k) = self_AD%Cloud_Fraction(k) - (cc_FWD%iVar%prod(k-1)*prod_AD(k)) + prod_AD(k-1) = prod_AD(k-1)+(ONE - cc_FWD%Cloud_Fraction(k))*prod_AD(k) + prod_AD(k) = ZERO + else + prod_AD(k-1) = prod_AD(k-1)+ prod_AD(k) + prod_AD(k) = ZERO + endif + END DO + prod_AD(0) = ZERO + END SUBROUTINE Compute_Random_Overlap_AD + +! SUBROUTINE Compute_MaxRan_Overlap_AD() +! INTEGER :: k +! REAL(fp) :: prod_AD, denom +! prod_AD = ZERO +! self_AD%Cloud_Cover(n_layers) = self_AD%Cloud_Cover(n_layers) + self_AD%Total_Cloud_Cover +! self_AD%Total_Cloud_Cover = ZERO +! DO k = n_layers, 2, -1 +! prod_AD = prod_AD - self_AD%Cloud_Cover(k) +! self_AD%Cloud_Cover(k) = ZERO +! IF ( cc_FWD%Cloud_Fraction(k) > cc_FWD%Cloud_Fraction(k-1) ) THEN +! denom = ONE/(ONE - cc_FWD%Cloud_Fraction(k-1)) +! self_AD%Cloud_Fraction(k-1) = self_AD%Cloud_Fraction(k-1) + & +! (cc_FWD%iVar%prod(k-1) * (ONE - cc_FWD%Cloud_Fraction(k)) * denom**2 * prod_AD) +! self_AD%Cloud_Fraction(k) = self_AD%Cloud_Fraction(k) - & +! (cc_FWD%iVar%prod(k-1) * denom * prod_AD) +! prod_AD = (ONE - cc_FWD%Cloud_Fraction(k)) * denom * prod_AD +! END IF +! END DO +! prod_AD = prod_AD - self_AD%Cloud_Cover(1) +! self_AD%Cloud_Cover(1) = ZERO +! self_AD%Cloud_Fraction(1) = self_AD%Cloud_Fraction(1) - prod_AD +! prod_AD = ZERO +! END SUBROUTINE Compute_MaxRan_Overlap_AD + SUBROUTINE Compute_MaxRan_Overlap_AD() + INTEGER :: k + REAL(fp) :: prod_AD + REAL(fp) :: maxcov_AD + prod_AD = ZERO + maxcov_AD = ZERO + self_AD%Cloud_Cover(n_layers) = self_AD%Cloud_Cover(n_layers) + self_AD%Total_Cloud_Cover + self_AD%Total_Cloud_Cover = ZERO + DO k = n_layers, 2, - 1 + prod_AD = prod_AD - self_AD%Cloud_Cover(k) + self_AD%Cloud_Cover(k) = ZERO + self_AD%Cloud_Fraction(k-1) = self_AD%Cloud_Fraction(k-1) + & + & prod_AD * cc_FWD%iVar%prod(k-1) * cc_FWD%iVar%maxcov(k) / (one - cc_FWD%Cloud_Fraction(k-1)) ** 2 + maxcov_AD = & + & maxcov_AD + prod_AD * cc_FWD%iVar%prod(k-1) / (one - cc_FWD%Cloud_Fraction(k-1)) + prod_AD = & + & prod_AD * cc_FWD%iVar%maxcov(k) / (one - cc_FWD%Cloud_Fraction(k-1)) + IF ((cc_FWD%Cloud_Fraction(k-1) > cc_FWD%Cloud_Fraction(k))) THEN + self_AD%Cloud_Fraction(k-1) = self_AD%Cloud_Fraction(k-1) - maxcov_AD + maxcov_AD = zero + ELSE IF ((cc_FWD%Cloud_Fraction(k-1) < cc_FWD%Cloud_Fraction(k))) THEN + self_AD%Cloud_Fraction(k) = self_AD%Cloud_Fraction(k) - maxcov_AD + maxcov_AD = zero + ELSE IF ((cc_FWD%Cloud_Fraction(k-1) == cc_FWD%Cloud_Fraction(k))) THEN + self_AD%Cloud_Fraction(k) = self_AD%Cloud_Fraction(k) - maxcov_AD + maxcov_AD = ZERO + ENDIF + ENDDO + prod_AD = prod_AD - maxcov_AD + self_AD%Cloud_Cover(1) = ZERO + self_AD%Cloud_Fraction(1) = self_AD%Cloud_Fraction(1) - prod_AD + prod_AD = ZERO + END SUBROUTINE Compute_MaxRan_Overlap_AD + + SUBROUTINE Compute_Average_Overlap_AD() + INTEGER :: k, n + REAL(fp) :: lwc_AD(n_Layers), wc_sum_AD(0:n_Layers), cwc_sum_AD(0:n_Layers) + REAL(fp) :: denom + + ! Initialise local adjoint variables + lwc_AD = ZERO + wc_sum_AD = ZERO + cwc_sum_AD = ZERO + + ! Adjoint of the total cloud cover + self_AD%Cloud_Cover(n_layers) = self_AD%Cloud_Cover(n_layers) + self_AD%Total_Cloud_Cover + self_AD%Total_Cloud_Cover = ZERO + ! Adjoint of the cloud cover profile + ASSOCIATE( lwc => cc_FWD%iVar%lwc , & + wc_sum => cc_FWD%iVar%wc_sum , & + cwc_sum => cc_FWD%iVar%cwc_sum , & + cf => cc_FWD%Cloud_Fraction , & + ! cloud => atm%Cloud , & !orig + cloud => cc_FWD%iVar%wc , & + cf_AD => self_AD%Cloud_Fraction, & + cc_AD => self_AD%Cloud_Cover , & + cloud_AD => atm_AD%Cloud ) + + DO k = n_layers, 1, -1 + IF ( wc_sum(k) > ZERO ) THEN + denom = ONE/wc_sum(k) + wc_sum_AD(k) = wc_sum_AD(k) - (denom**2 * cwc_sum(k) * cc_AD(k)) + cwc_sum_AD(k) = cwc_sum_AD(k) + (denom * cc_AD(k)) + cc_AD(k) = ZERO + END IF + + cf_AD(k) = cf_AD(k) + (lwc(k) * cwc_sum_AD(k)) + lwc_AD(k) = lwc_AD(k) + (cf(k) * cwc_sum_AD(k)) + cwc_sum_AD(k-1) = cwc_sum_AD(k-1) + cwc_sum_AD(k) + cwc_sum_AD(k) = ZERO + + lwc_AD(k) = lwc_AD(k) + wc_sum_AD(k) + wc_sum_AD(k-1) = wc_sum_AD(k-1) + wc_sum_AD(k) + wc_sum_AD(k) = ZERO + END DO + wc_sum_AD(0) = ZERO + cwc_sum_AD(0) = ZERO + + + ! Adjoint of the total layer water content + DO n = 1, SIZE(cloud_AD) + ! WHERE (cloud(n)%Water_Content(1:n_layers) > WATER_CONTENT_THRESHOLD ) & !orig + WHERE (cloud(n,1:n_layers) > WATER_CONTENT_THRESHOLD ) & + cloud_AD(n)%Water_Content(1:n_layers) = cloud_AD(n)%Water_Content(1:n_layers) + lwc_AD + END DO + lwc_AD = ZERO + + END ASSOCIATE + + END SUBROUTINE Compute_Average_Overlap_AD + + SUBROUTINE Compute_Overcast_Overlap_AD() + + self_AD%Total_Cloud_Cover = ZERO + + END SUBROUTINE Compute_Overcast_Overlap_AD + + END FUNCTION Compute_CloudCover_AD + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Is_Usable +! +! PURPOSE: +! Elemental function method to test the status of CloudCover objects to +! determien if they are usable. +! +! CALLING SEQUENCE: +! status = cc_obj%Is_Usable( Include_iVar = Include_iVar ) +! +! OBJECTS: +! cc_obj: Cloud cover object which is to have its usability tested. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +! OPTIONAL INPUTS: +! Include_iVar: Set this optional logical flag to alos check the status +! of the intermediate variable sub-object. +! IF .FALSE. - the subobject is NOT tested [DEFAULT] +! .TRUE. - the subobject is tested +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Conformable with object. +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! FUNCTION RESULT: +! status: The return value is a logical value indicating the +! usable status of the object. +! .TRUE. - if the object is usable. +! .FALSE. - if the object is NOT usable. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Same as object +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL FUNCTION Is_Usable( self, Include_iVar ) RESULT( status ) + CLASS(CRTM_CloudCover_type), INTENT(IN) :: self + LOGICAL, OPTIONAL , INTENT(IN) :: Include_iVar + LOGICAL :: status + status = self%Is_Allocated + IF ( PRESENT(Include_iVar) ) THEN + IF ( Include_iVar ) status = status .AND. self%iVar%Is_Usable() + END IF + END FUNCTION Is_Usable + + ELEMENTAL FUNCTION iVar_Is_Usable( self ) RESULT( status ) + CLASS(iVar_type), INTENT(IN) :: self + LOGICAL :: status + status = self%Is_Allocated + END FUNCTION iVar_Is_Usable + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Destroy +! +! PURPOSE: +! Elemental subroutine method to re-initialize CloudCover objects. +! +! CALLING SEQUENCE: +! CALL cc_obj%Destroy() +! +! OBJECTS: +! cc_obj: Re-initialized cloud cover object(s). +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(OUT) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL SUBROUTINE Destroy( self ) + CLASS(CRTM_CloudCover_type), INTENT(INOUT) :: self + self%Is_Allocated = .FALSE. + END SUBROUTINE Destroy + + ELEMENTAL SUBROUTINE iVar_Destroy( self ) + CLASS(iVar_type), INTENT(INOUT) :: self + self%Is_Allocated = .FALSE. + END SUBROUTINE iVar_Destroy + +! SUBROUTINE Cleanup(self) +! TYPE(CRTM_CloudCover_type) :: self +! CALL self%Destroy() +! END SUBROUTINE Cleanup + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Create +! +! PURPOSE: +! Elemental subroutine method to create instances of CloudCover objects. +! +! CALLING SEQUENCE: +! CALL cc_obj%Create( n_Layers, & +! n_Clouds, & +! Forward = Forward, & +! Error_Message = Error_Message ) +! +! OBJECTS: +! cc_obj: Cloud cover object +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(OUT) +! +! INPUTS: +! n_Layers: Number of layers for which there is cloud data. +! Must be > 0. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Conformable with object. +! ATTRIBUTES: INTENT(IN) +! +! OPTIONAL INPUTS: +! Forward: Set this optional logical flag to allocate the sub-object to +! hold the intermediate forward model results. +! IF .FALSE. - the subobject is NOT allocated [DEFAULT] +! .TRUE. - the subobject is allocated +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Conformable with object. +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! OPTIONAL OUTPUTS: +! Error_Message: If an error occurred creating the object, this +! argument will contain error information. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Conformable with object. +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL SUBROUTINE Create( & + self , & + n_Layers , & + n_Clouds , & + Forward , & + Error_Message ) + ! Arguments + CLASS(CRTM_CloudCover_type), INTENT(INOUT) :: self + INTEGER , INTENT(IN) :: n_Layers + INTEGER , INTENT(IN) :: n_Clouds + LOGICAL, OPTIONAL, INTENT(IN) :: Forward + CHARACTER(*), OPTIONAL, INTENT(OUT) :: Error_Message + ! Local variables + CHARACTER(ML) :: alloc_msg + INTEGER :: alloc_stat + LOGICAL :: allocate_ivar + + + ! Check input + IF ( n_Layers < 1 ) THEN + IF ( PRESENT(Error_Message) ) Error_Message = 'Invalid dimension inputs' + RETURN + END IF + allocate_ivar = .FALSE. + IF ( PRESENT(Forward) ) allocate_ivar = Forward + + + ! Intermediate variable object + IF ( allocate_ivar ) THEN +! CALL self%iVar%Create(n_Layers, Error_Message = Error_Message) + CALL self%iVar%Create(n_Layers, n_Clouds, Error_Message = Error_Message) + IF ( .NOT. self%iVar%Is_Usable() ) RETURN + END IF + + + ! Main object + ! ...Perform the allocations + ALLOCATE( self%Cloud_Fraction( n_Layers ), & + self%Cloud_Cover( n_Layers ), & + STAT = alloc_stat ) + !STAT = alloc_stat, ERRMSG = alloc_msg ) + IF ( alloc_stat /= 0 ) THEN + IF ( PRESENT(Error_Message) ) Error_Message = alloc_msg + RETURN + END IF + ! ...Initialise + self%n_Layers = n_Layers + self%Cloud_Fraction = ZERO + self%Cloud_Cover = ZERO + ! ...Set allocation indicator + self%Is_Allocated = .TRUE. + + END SUBROUTINE Create + + + ELEMENTAL SUBROUTINE iVar_Create( & + self , & + n_Layers , & + n_Clouds , & + Error_Message ) + ! Arguments + CLASS(iVar_type) , INTENT(INOUT) :: self + INTEGER , INTENT(IN) :: n_Layers + INTEGER , INTENT(IN) :: n_Clouds + CHARACTER(*), OPTIONAL, INTENT(OUT) :: Error_Message + ! Local variables + CHARACTER(ML) :: alloc_msg + INTEGER :: alloc_stat + + ! Check input + IF ( n_Layers < 1 ) THEN + IF ( PRESENT(Error_Message) ) Error_Message = 'iVar: Invalid dimension input' + RETURN + END IF + + ! Perform the allocations + ALLOCATE( self%prod( 0:n_Layers ), & + self%lwc( 1:n_Layers ), & + self%wc_sum( 0:n_Layers ), & + self%wc( 1:n_Clouds, 1:n_Layers ), & + self%maxcov( 1:n_Layers ), & + self%cwc_sum( 0:n_Layers ), & + STAT = alloc_stat ) + !STAT = alloc_stat, ERRMSG = alloc_msg ) + IF ( alloc_stat /= 0 ) THEN + IF ( PRESENT(Error_Message) ) Error_Message = 'iVar: '//TRIM(alloc_msg) + RETURN + END IF + + ! Initialise + self%n_Layers = n_Layers + self%n_Clouds = n_Clouds + self%prod = ZERO + self%lwc = ZERO + self%wc = ZERO + self%maxcov = ZERO + self%wc_sum = ZERO + self%cwc_sum = ZERO + + ! Set allocation indicator + self%Is_Allocated = .TRUE. + + END SUBROUTINE iVar_Create + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Inspect +! +! PURPOSE: +! Subroutine method to display the contents of a CloudCover object. +! +! CALLING SEQUENCE: +! CALL cc_obj%Inspect( Hires=hires, Unit=unit, Verbose=Verbose ) +! +! OBJECTS: +! cc_obj: Cloud cover object +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OPTIONAL INPUTS: +! Hires: Set this logical argument to output object contents with +! more significant digits. +! If == .FALSE., output format is 'es13.6' [DEFAULT]. +! == .TRUE., output format is 'es22.15' +! If not specified, default is .FALSE. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Unit: Unit number for an already open file to which the output +! will be written. +! If the argument is specified and the file unit is not +! connected, the output goes to stdout. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Verbose: Set this logical argument to output the intermediate variable +! sub-object contents if they are available. +! If == .FALSE., the intermediate variables are NOT output [DEFAULT]. +! == .TRUE., the intermediate variables are output if available +! If not specified, default is .FALSE. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE Inspect( self, Hires, Unit, Verbose ) + ! Arguments + CLASS(CRTM_CloudCover_type), INTENT(IN) :: self + LOGICAL, OPTIONAL, INTENT(IN) :: Hires + INTEGER, OPTIONAL, INTENT(IN) :: Unit + LOGICAL, OPTIONAL, INTENT(IN) :: Verbose + ! Local variables + INTEGER :: fid + CHARACTER(20) :: fmtstring + LOGICAL :: verbose_inspect + + ! Setup + fmtstring = 'es13.6' + IF ( PRESENT(Hires) ) THEN + IF ( Hires ) fmtstring = 'es22.15' + END IF + fid = OUTPUT_UNIT + IF ( PRESENT(Unit) ) THEN + IF ( File_Open(Unit) ) fid = Unit + END IF + verbose_inspect = .FALSE. + IF ( PRESENT(Verbose) ) verbose_inspect = Verbose + + ! The inspection output + WRITE(fid,'(1x,"CLOUDCOVER OBJECT")') + WRITE(fid,'(3x,"n_Layers :",1x,i0)') self%n_Layers + WRITE(fid,'(3x,"Overlap :",1x,a )') self%Overlap_Name() + WRITE(fid,'(3x,"Total cloud cover :",1x,'//TRIM(fmtstring)//')') self%Total_Cloud_Cover + IF ( .NOT. self%Is_Usable() ) RETURN + WRITE(fid,'(3x,"Cloud_Fraction:")') + WRITE(fid,'(5(1x,'//TRIM(fmtstring)//',:))') self%Cloud_Fraction + WRITE(fid,'(3x,"Cloud_Cover:")') + WRITE(fid,'(5(1x,'//TRIM(fmtstring)//',:))') self%Cloud_Cover + + ! The intermediate variable sub-object + IF ( verbose_inspect ) CALL self%iVar%Inspect() + + END SUBROUTINE Inspect + + + SUBROUTINE iVar_Inspect(self, Hires, Unit ) + ! Arguments + CLASS(iVar_Type) , INTENT(IN) :: self + LOGICAL, OPTIONAL, INTENT(IN) :: Hires + INTEGER, OPTIONAL, INTENT(IN) :: Unit + ! Local variables + INTEGER :: fid + CHARACTER(20) :: fmtstring + + ! Setup + fmtstring = 'es13.6' + IF ( PRESENT(Hires) ) THEN + IF ( Hires ) fmtstring = 'es22.15' + END IF + fid = OUTPUT_UNIT + IF ( PRESENT(Unit) ) THEN + IF ( File_Open(Unit) ) fid = Unit + END IF + + ! The inspection output + WRITE(fid,'(3x,"CLOUDCOVER iVar SUB-OBJECT")') + WRITE(fid,'(5x,"n_Layers :",1x,i0)') self%n_Layers + WRITE(fid,'(7x,"Layer-to-layer product:")') + WRITE(fid,'(5(1x,'//TRIM(fmtstring)//',:))') self%prod + WRITE(fid,'(7x,"Layer water content for all clouds:")') + WRITE(fid,'(5(1x,'//TRIM(fmtstring)//',:))') self%lwc + WRITE(fid,'(7x,"Cumulative layer water content for all clouds:")') + WRITE(fid,'(5(1x,'//TRIM(fmtstring)//',:))') self%wc_sum + WRITE(fid,'(7x,"Cumulative cloud fraction weighted layer water content for all clouds:")') + WRITE(fid,'(5(1x,'//TRIM(fmtstring)//',:))') self%cwc_sum + + END SUBROUTINE iVar_Inspect + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! Set_To_Zero +! +! PURPOSE: +! Elemental subroutine method to zero out the data arrays in a +! CloudCover object. +! +! CALLING SEQUENCE: +! CALL cc_obj%Set_To_Zero() +! +! OBJECTS: +! cc_obj: Cloud cover object +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN OUT) +! +! COMMENTS: +! - The dimension components of the object are *NOT* set to zero. +! - The overlap methodology identifier component is *NOT* reset. +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL SUBROUTINE Set_To_Zero( self ) + CLASS(CRTM_CloudCover_type), INTENT(IN OUT) :: self + ! Do nothing if structure is unused + IF ( .NOT. self%Is_Usable() ) RETURN + ! Only zero out the data + self%Total_Cloud_Cover = ZERO + self%Cloud_Fraction = ZERO + self%Cloud_Cover = ZERO + ! The intermediate variable sub-object + CALL self%iVar%Set_To_Zero() + + END SUBROUTINE Set_To_Zero + + + ELEMENTAL SUBROUTINE iVar_Set_To_Zero( self ) + CLASS(iVar_type), INTENT(IN OUT) :: self + ! Do nothing if structure is unused + IF ( .NOT. self%Is_Usable() ) RETURN + ! Only zero out the data + self%prod = ZERO + self%lwc = ZERO + self%wc_sum = ZERO + self%cwc_sum = ZERO + END SUBROUTINE iVar_Set_To_Zero + + + +!################################################################################## +!################################################################################## +!## ## +!## ## OPERATOR METHODS ## ## +!## ## +!################################################################################## +!################################################################################## + +!------------------------------------------------------------------------------ +!:sdoc+: +! +! NAME: +! == +! +! PURPOSE: +! Operator method to test the equality of two CloudCover objects. +! +! CALLING SEQUENCE: +! IF ( x == y ) THEN +! ... +! END IF +! +! OBJECTS: +! x, y: Two cloud cover object to be compared. +! UNITS: N/A +! TYPE: CRTM_CloudCover_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!------------------------------------------------------------------------------ + + ELEMENTAL FUNCTION Equal( x, y ) RESULT( is_equal ) + CLASS(CRTM_CloudCover_type), INTENT(IN) :: x, y + LOGICAL :: is_equal + + ! Set up + is_equal = .FALSE. + + ! Check the object association status + IF ( x%Is_Usable() .NEQV. y%Is_Usable() ) RETURN + + ! Check contents + ! ...Dimensions + IF ( x%n_Layers /= y%n_Layers ) RETURN + ! ...Scalars + IF ( .NOT. ((x%Overlap == y%Overlap ) .AND. & + (x%Total_Cloud_Cover .EqualTo. y%Total_Cloud_Cover)) ) RETURN + ! ...Arrays + IF ( x%Is_Usable() .AND. y%Is_Usable() ) THEN + IF ( .NOT. (ALL(x%Cloud_Fraction .EqualTo. y%Cloud_Fraction) .AND. & + ALL(x%Cloud_Cover .EqualTo. y%Cloud_Cover )) ) RETURN + ! Intermediate variable subobject + IF ( .NOT. (x%iVar == y%iVar) ) RETURN + END IF + + + ! If we get here, then... + is_equal = .TRUE. + + END FUNCTION Equal + + + ELEMENTAL FUNCTION iVar_Equal( x, y ) RESULT( is_equal ) + CLASS(iVar_type), INTENT(IN) :: x, y + LOGICAL :: is_equal + + ! Set up + is_equal = .FALSE. + + ! Check the object association status + IF ( x%Is_Usable() .NEQV. y%Is_Usable() ) RETURN + + ! Check contents + ! ...Dimensions + IF ( x%n_Layers /= y%n_Layers ) RETURN + ! ...Arrays + IF ( x%Is_Usable() .AND. y%Is_Usable() ) THEN + IF ( .NOT. (ALL(x%prod .EqualTo. y%prod ) .AND. & + ALL(x%lwc .EqualTo. y%lwc ) .AND. & + ALL(x%wc_sum .EqualTo. y%wc_sum ) .AND. & + ALL(x%cwc_sum .EqualTo. y%cwc_sum)) ) RETURN + END IF + + ! If we get here, then... + is_equal = .TRUE. + + END FUNCTION iVar_Equal + + +!------------------------------------------------------------------------------ +!:sdoc+: +! +! NAME: +! /= +! +! PURPOSE: +! Operator method to test the inequality of two CloudCover objects. +! +! CALLING SEQUENCE: +! IF ( x /= y ) THEN +! ... +! END IF +! +! OBJECTS: +! x, y: Two cloud cover objects to be compared. +! UNITS: N/A +! TYPE: CRTM_CloudCover_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!------------------------------------------------------------------------------ + + ELEMENTAL FUNCTION NotEqual( x, y ) RESULT( not_equal ) + CLASS(CRTM_CloudCover_type), INTENT(IN) :: x, y + LOGICAL :: not_equal + not_equal = .NOT. (x == y) + END FUNCTION NotEqual + + ELEMENTAL FUNCTION iVar_NotEqual( x, y ) RESULT( not_equal ) + CLASS(iVar_type), INTENT(IN) :: x, y + LOGICAL :: not_equal + not_equal = .NOT. (x == y) + END FUNCTION iVar_NotEqual + + +!------------------------------------------------------------------------------ +!:sdoc+: +! +! NAME: +! .Compare. +! +! PURPOSE: +! Operator method to compare two CloudCover objects. +! +! This procedure performs similarly to the == operator, but is non-elemental +! to allow for informational output when a difference is found between the +! two objects being compared. +! +! Mostly used for debugging. +! +! CALLING SEQUENCE: +! IF ( x .Compare. y ) THEN +! ... +! END IF +! +! OBJECTS: +! x, y: The cloud cover objects to compare. +! UNITS: N/A +! CLASS: CRTM_CloudCover_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!------------------------------------------------------------------------------ + + FUNCTION Compare_( x, y ) RESULT( is_equal ) + CLASS(CRTM_CloudCover_type), INTENT(IN) :: x, y + LOGICAL :: is_equal + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_CloudCover_Define::Compare' + ! Local variable + CHARACTER(ML) :: msg + + ! Set up + is_equal = .TRUE. + + ! Check the object association status + IF ( x%Is_Usable() .NEQV. y%Is_Usable() ) THEN + msg = 'Object association statuses are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + + ! Check contents + ! ...Dimensions + IF ( x%n_Layers /= y%n_Layers ) THEN + msg = 'Object dimensions are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + ! Scalars + IF ( x%Overlap /= y%Overlap ) THEN + msg = 'Object overlap assumptions are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + IF ( .NOT. (x%Total_Cloud_Cover .EqualTo. y%Total_Cloud_Cover) ) THEN + msg = 'Object Total_Cloud_Cover values are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + ! ...Arrays and sub-objects + IF ( x%Is_Usable() .AND. y%Is_Usable() ) THEN + IF ( .NOT. ALL(x%Cloud_Fraction .EqualTo. y%Cloud_Fraction) ) THEN + msg = 'Object Cloud_Fraction data are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + IF ( .NOT. ALL(x%Cloud_Cover .EqualTo. y%Cloud_Cover) ) THEN + msg = 'Object Cloud_Cover data are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + IF ( .NOT. (x%iVar .Compare. y%iVar) ) THEN + msg = 'Object iVar subobject data are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + END IF + + END FUNCTION Compare_ + + + FUNCTION iVar_Compare( x, y ) RESULT( is_equal ) + CLASS(iVar_type), INTENT(IN) :: x, y + LOGICAL :: is_equal + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_CloudCover_Define::iVar_Compare' + ! Local variable + CHARACTER(ML) :: msg + + ! Set up + is_equal = .TRUE. + + ! Check the object association status + IF ( x%Is_Usable() .NEQV. y%Is_Usable() ) THEN + msg = 'Object association statuses are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + + ! Check contents + ! ...Dimensions + IF ( x%n_Layers /= y%n_Layers ) THEN + msg = 'Object dimensions are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + ! ...Arrays + IF ( x%Is_Usable() .AND. y%Is_Usable() ) THEN + IF ( .NOT. ALL(x%prod .EqualTo. y%prod) ) THEN + msg = 'Object prod data are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + IF ( .NOT. ALL(x%lwc .EqualTo. y%lwc) ) THEN + msg = 'Object lwc data are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + IF ( .NOT. ALL(x%wc_sum .EqualTo. y%wc_sum) ) THEN + msg = 'Object wc_sum data are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + IF ( .NOT. ALL(x%cwc_sum .EqualTo. y%cwc_sum) ) THEN + msg = 'Object cwc_sum data are different' + CALL Display_Message(ROUTINE_NAME, msg, FAILURE) + is_equal = .FALSE. + END IF + END IF + + END FUNCTION iVar_Compare + +END MODULE CRTM_CloudCover_Define diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_CloudScatter.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_CloudScatter.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_CloudScatter.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_CloudScatter.f90 index ec27ea6feb..dfa4868123 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_CloudScatter.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_CloudScatter.f90 @@ -86,7 +86,7 @@ MODULE CRTM_CloudScatter ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_CloudScatter.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_CloudScatter.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 ! Number of stream angle definitions diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Cloud_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Cloud_Define.f90 similarity index 94% rename from var/external/crtm_2.2.3/libsrc/CRTM_Cloud_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Cloud_Define.f90 index 3a8cb82393..4795b6de76 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Cloud_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Cloud_Define.f90 @@ -53,6 +53,7 @@ MODULE CRTM_Cloud_Define PUBLIC :: CRTM_Cloud_type ! Operators PUBLIC :: OPERATOR(==) + PUBLIC :: OPERATOR(/=) PUBLIC :: OPERATOR(+) PUBLIC :: OPERATOR(-) ! Procedures @@ -81,6 +82,10 @@ MODULE CRTM_Cloud_Define MODULE PROCEDURE CRTM_Cloud_Equal END INTERFACE OPERATOR(==) + INTERFACE OPERATOR(/=) + MODULE PROCEDURE CRTM_Cloud_NotEqual + END INTERFACE OPERATOR(/=) + INTERFACE OPERATOR(+) MODULE PROCEDURE CRTM_Cloud_Add END INTERFACE OPERATOR(+) @@ -100,7 +105,7 @@ MODULE CRTM_Cloud_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Cloud_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Cloud_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! The valid cloud categories and names INTEGER, PARAMETER :: N_VALID_CLOUD_CATEGORIES = 6 INTEGER, PARAMETER :: INVALID_CLOUD = 0 @@ -190,7 +195,8 @@ FUNCTION CRTM_Cloud_CategoryList(list) RESULT(err_stat) CHARACTER(ML) :: alloc_msg, msg INTEGER :: alloc_stat err_stat = SUCCESS - ALLOCATE( list(0:N_VALID_CLOUD_CATEGORIES), STAT=alloc_stat, ERRMSG=alloc_msg ) + !ALLOCATE( list(0:N_VALID_CLOUD_CATEGORIES), STAT=alloc_stat, ERRMSG=alloc_msg ) + ALLOCATE( list(0:N_VALID_CLOUD_CATEGORIES), STAT=alloc_stat ) IF ( alloc_stat /= 0 ) THEN err_stat = FAILURE msg = 'Cloud category list result not allocated -'//TRIM(alloc_msg) @@ -702,20 +708,21 @@ ELEMENTAL FUNCTION CRTM_Cloud_Compare( & n = DEFAULT_N_SIGFIG END IF - ! Check the structure association status - IF ( (.NOT. CRTM_Cloud_Associated(x)) .OR. & - (.NOT. CRTM_Cloud_Associated(y)) ) RETURN + ! Check the object association status + IF ( CRTM_Cloud_Associated(x) .NEQV. CRTM_Cloud_Associated(y) ) RETURN - ! Check scalars + ! Check contents + ! ...Scalars IF ( (x%n_Layers /= y%n_Layers) .OR. & (x%Type /= y%Type ) ) RETURN + ! ...Arrays + IF ( CRTM_Cloud_Associated(x) .AND. CRTM_Cloud_Associated(y) ) THEN + IF ( (.NOT. ALL(Compares_Within_Tolerance(x%Effective_Radius ,y%Effective_Radius ,n))) .OR. & + (.NOT. ALL(Compares_Within_Tolerance(x%Effective_Variance,y%Effective_Variance,n))) .OR. & + (.NOT. ALL(Compares_Within_Tolerance(x%Water_Content ,y%Water_Content ,n))) ) RETURN + END IF - ! Check arrays - IF ( (.NOT. ALL(Compares_Within_Tolerance(x%Effective_Radius ,y%Effective_Radius ,n))) .OR. & - (.NOT. ALL(Compares_Within_Tolerance(x%Effective_Variance,y%Effective_Variance,n))) .OR. & - (.NOT. ALL(Compares_Within_Tolerance(x%Water_Content ,y%Water_Content ,n))) ) RETURN - - ! If we get here, the structures are comparable + ! If we get here, the objects are comparable is_comparable = .TRUE. END FUNCTION CRTM_Cloud_Compare @@ -1018,7 +1025,8 @@ FUNCTION CRTM_Cloud_ReadFile( & CALL Read_Cleanup(); RETURN END IF ! ...Allocate the return structure array - ALLOCATE(Cloud(nc), STAT=alloc_stat, ERRMSG=alloc_msg) + !ALLOCATE(Cloud(nc), STAT=alloc_stat, ERRMSG=alloc_msg) + ALLOCATE(Cloud(nc), STAT=alloc_stat) IF ( alloc_stat /= 0 ) THEN msg = 'Error allocating Cloud array - '//TRIM(alloc_msg) CALL Read_Cleanup(); RETURN @@ -1064,7 +1072,8 @@ SUBROUTINE Read_CleanUp() msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF IF ( ALLOCATED(Cloud) ) THEN - DEALLOCATE(Cloud, STAT=alloc_stat, ERRMSG=alloc_msg) + !DEALLOCATE(Cloud, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(Cloud, STAT=alloc_stat) IF ( alloc_stat /= 0 ) & msg = TRIM(msg)//'; Error deallocating Cloud array during error cleanup - '//& TRIM(alloc_msg) @@ -1306,23 +1315,68 @@ ELEMENTAL FUNCTION CRTM_Cloud_Equal( x, y ) RESULT( is_equal ) ! Set up is_equal = .FALSE. - ! Check the structure association status - IF ( (.NOT. CRTM_Cloud_Associated(x)) .OR. & - (.NOT. CRTM_Cloud_Associated(y)) ) RETURN + ! Check the object association status + IF ( CRTM_Cloud_Associated(x) .NEQV. CRTM_Cloud_Associated(y) ) RETURN ! Check contents ! ...Scalars IF ( (x%n_Layers /= y%n_Layers) .OR. (x%Type /= y%Type) ) RETURN ! ...Arrays - n = x%n_Layers - IF ( ALL(x%Effective_Radius(1:n) .EqualTo. y%Effective_Radius(1:n) ) .AND. & - ALL(x%Effective_Variance(1:n) .EqualTo. y%Effective_Variance(1:n)) .AND. & - ALL(x%Water_Content(1:n) .EqualTo. y%Water_Content(1:n) ) ) & - is_equal = .TRUE. + IF ( CRTM_Cloud_Associated(x) .AND. CRTM_Cloud_Associated(y) ) THEN + n = x%n_Layers + IF ( .NOT. (ALL(x%Effective_Radius(1:n) .EqualTo. y%Effective_Radius(1:n) ) .AND. & + ALL(x%Effective_Variance(1:n) .EqualTo. y%Effective_Variance(1:n)) .AND. & + ALL(x%Water_Content(1:n) .EqualTo. y%Water_Content(1:n) )) ) RETURN + END IF + + ! If we get here, then... + is_equal = .TRUE. END FUNCTION CRTM_Cloud_Equal +!------------------------------------------------------------------------------ +! +! NAME: +! CRTM_Cloud_NotEqual +! +! PURPOSE: +! Elemental function to test the inequality of two CRTM Cloud objects. +! Used in OPERATOR(/=) interface block. +! +! This function is syntactic sugar. +! +! CALLING SEQUENCE: +! not_equal = CRTM_Cloud_NotEqual( x, y ) +! +! or +! +! IF ( x /= y ) THEN +! ... +! END IF +! +! OBJECTS: +! x, y: Two CRTM Cloud objects to be compared. +! UNITS: N/A +! TYPE: CRTM_Cloud_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! not_equal: Logical value indicating whether the inputs are not equal. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Same as inputs. +! +!------------------------------------------------------------------------------ + + ELEMENTAL FUNCTION CRTM_Cloud_NotEqual( x, y ) RESULT( not_equal ) + TYPE(CRTM_Cloud_type), INTENT(IN) :: x, y + LOGICAL :: not_equal + not_equal = .NOT. (x == y) + END FUNCTION CRTM_Cloud_NotEqual + + !-------------------------------------------------------------------------------- ! ! NAME: diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Fastem1.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Fastem1.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/CRTM_Fastem1.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Fastem1.f90 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_FastemX.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_FastemX.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/CRTM_FastemX.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_FastemX.f90 index 2c0eed9bf8..9dd1999198 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_FastemX.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_FastemX.f90 @@ -111,7 +111,7 @@ MODULE CRTM_FastemX ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_FastemX.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_FastemX.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! FASTEM6 version number for use with azimuth model INTEGER, PARAMETER :: FASTEM6 = 6 @@ -144,6 +144,7 @@ MODULE CRTM_FastemX REAL(fp) :: Temperature = ZERO REAL(fp) :: Salinity = ZERO REAL(fp) :: Wind_Speed = ZERO + INTEGER :: n_Angles = ZERO ! ...Optional LOGICAL :: Azimuth_Angle_Valid = .FALSE. REAL(fp) :: Azimuth_Angle = ZERO @@ -151,6 +152,7 @@ MODULE CRTM_FastemX REAL(fp) :: Transmittance = ZERO ! The zenith angle term REAL(fp) :: cos_z = ONE + REAL(fp) :: cos_z_mod = ONE ! The permittivity term COMPLEX(fp) :: Permittivity = ZERO ! The Fresnel reflectivity terms @@ -302,6 +304,7 @@ MODULE CRTM_FastemX SUBROUTINE Compute_FastemX( & MWwaterCoeff , & ! Input Frequency , & ! Input + n_Angles , & ! Input Zenith_Angle , & ! Input Temperature , & ! Input Salinity , & ! Input @@ -314,6 +317,7 @@ SUBROUTINE Compute_FastemX( & ! Arguments TYPE(MWwaterCoeff_type), INTENT(IN) :: MWwaterCoeff REAL(fp), INTENT(IN) :: Frequency + INTEGER, INTENT(IN) :: n_Angles REAL(fp), INTENT(IN) :: Zenith_Angle REAL(fp), INTENT(IN) :: Temperature REAL(fp), INTENT(IN) :: Salinity @@ -331,8 +335,13 @@ SUBROUTINE Compute_FastemX( & iVar%Temperature = Temperature iVar%Salinity = Salinity iVar%Wind_Speed = Wind_Speed + iVar%n_Angles = n_Angles ! ...Save derived variables iVar%cos_z = COS(Zenith_Angle*DEGREES_TO_RADIANS) + iVar%cos_z_mod = COS(Zenith_Angle*DEGREES_TO_RADIANS) + if (n_Angles > 1 .and. Zenith_Angle > 60.0_fp) & + iVar%cos_z_mod = COS(60.0_fp*DEGREES_TO_RADIANS) + ! Permittivity calculation CALL Ocean_Permittivity( Temperature, Salinity, Frequency, & @@ -425,7 +434,7 @@ SUBROUTINE Compute_FastemX( & CALL Reflection_Correction( & MWwaterCoeff%RCCoeff, & iVar%Frequency , & - iVar%cos_z , & + iVar%cos_z_mod , & iVar%Wind_Speed, & Transmittance , & iVar%Rv_Mod , & diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Forward_Module.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Forward_Module.f90 similarity index 70% rename from var/external/crtm_2.2.3/libsrc/CRTM_Forward_Module.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Forward_Module.f90 index 36578b0064..db23c61f7a 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Forward_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Forward_Module.f90 @@ -41,9 +41,15 @@ MODULE CRTM_Forward_Module CRTM_Geometry_IsValid USE CRTM_ChannelInfo_Define, ONLY: CRTM_ChannelInfo_type, & CRTM_ChannelInfo_n_Channels + USE CRTM_RTSolution_Define, ONLY: CRTM_RTSolution_type , & + CRTM_RTSolution_Destroy, & + CRTM_RTSolution_Zero USE CRTM_Options_Define, ONLY: CRTM_Options_type, & CRTM_Options_IsValid - USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers + USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers , & + CRTM_Atmosphere_IsFractional, & + CRTM_Atmosphere_Coverage, & + CRTM_Atmosphere_ClearSkyCopy USE CRTM_GeometryInfo_Define, ONLY: CRTM_GeometryInfo_type, & CRTM_GeometryInfo_SetValue, & CRTM_GeometryInfo_GetValue @@ -63,18 +69,16 @@ MODULE CRTM_Forward_Module CRTM_AtmOptics_Zero USE CRTM_AerosolScatter, ONLY: CRTM_Compute_AerosolScatter USE CRTM_CloudScatter, ONLY: CRTM_Compute_CloudScatter - USE CRTM_AtmOptics, ONLY: AOvar_type , & - AOvar_Create, & - CRTM_Include_Scattering, & + USE CRTM_AtmOptics, ONLY: CRTM_Include_Scattering , & CRTM_Compute_Transmittance, & - CRTM_Combine_AtmOptics + CRTM_AtmOptics_Combine , & + CRTM_AtmOptics_NoScatterCopy USE CRTM_SfcOptics_Define, ONLY: CRTM_SfcOptics_type , & CRTM_SfcOptics_Associated, & CRTM_SfcOptics_Create , & CRTM_SfcOptics_Destroy USE CRTM_SfcOptics, ONLY: CRTM_Compute_SurfaceT - USE CRTM_RTSolution, ONLY: CRTM_RTSolution_type , & - CRTM_Compute_nStreams , & + USE CRTM_RTSolution, ONLY: CRTM_Compute_nStreams , & CRTM_Compute_RTSolution USE CRTM_AntennaCorrection, ONLY: CRTM_Compute_AntCorr USE CRTM_MoleculeScatter, ONLY: CRTM_Compute_MoleculeScatter @@ -88,8 +92,14 @@ MODULE CRTM_Forward_Module USE ACCoeff_Define, ONLY: ACCoeff_Associated USE NLTECoeff_Define, ONLY: NLTECoeff_Associated USE CRTM_Planck_Functions, ONLY: CRTM_Planck_Temperature + USE CRTM_CloudCover_Define, ONLY: CRTM_CloudCover_type ! Internal variable definition modules + ! ...AtmOptics + USE AOvar_Define, ONLY: AOvar_type, & + AOvar_Associated, & + AOvar_Destroy , & + AOvar_Create ! ...CloudScatter USE CSvar_Define, ONLY: CSvar_type, & CSvar_Associated, & @@ -101,7 +111,7 @@ MODULE CRTM_Forward_Module ASvar_Destroy , & ASvar_Create ! ...Radiative transfer - USE RTV_Define, ONLY: RTV_type , & + USE RTV_Define, ONLY: RTV_type, & RTV_Associated, & RTV_Destroy , & RTV_Create @@ -128,7 +138,7 @@ MODULE CRTM_Forward_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Forward_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Forward_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -237,28 +247,30 @@ FUNCTION CRTM_Forward( & ! Local variables CHARACTER(256) :: Message LOGICAL :: Options_Present - LOGICAL :: Check_Input - LOGICAL :: User_Emissivity, User_Direct_Reflectivity, User_N_Streams - LOGICAL :: User_AntCorr, Compute_AntCorr - LOGICAL :: Apply_NLTE_Correction + LOGICAL :: compute_antenna_correction LOGICAL :: Atmosphere_Invalid, Surface_Invalid, Geometry_Invalid, Options_Invalid - INTEGER :: RT_Algorithm_Id INTEGER :: iFOV INTEGER :: n, n_Sensors, SensorIndex INTEGER :: l, n_Channels, ChannelIndex INTEGER :: m, n_Profiles INTEGER :: ln INTEGER :: n_Full_Streams, mth_Azi + INTEGER :: cloud_coverage_flag REAL(fp) :: Source_ZA REAL(fp) :: Wavenumber - REAL(fp) :: Aircraft_Pressure - REAL(fp) :: transmittance + REAL(fp) :: transmittance, transmittance_clear ! Local ancillary input structure TYPE(CRTM_AncillaryInput_type) :: AncillaryInput - ! Local options structure for default values - TYPE(CRTM_Options_type) :: Default_Options + ! Local options structure for default and use values + TYPE(CRTM_Options_type) :: Default_Options, Opt ! Local atmosphere structure for extra layering TYPE(CRTM_Atmosphere_type) :: Atm + ! Clear sky structures + TYPE(CRTM_Atmosphere_type) :: Atm_Clear + TYPE(CRTM_AtmOptics_type) :: AtmOptics_Clear + TYPE(CRTM_SfcOptics_type) :: SfcOptics_Clear + TYPE(CRTM_RTSolution_type) :: RTSolution_Clear + TYPE(RTV_type) :: RTV_Clear ! Component variables TYPE(CRTM_GeometryInfo_type) :: GeometryInfo TYPE(CRTM_Predictor_type) :: Predictor @@ -273,6 +285,8 @@ FUNCTION CRTM_Forward( & TYPE(RTV_type) :: RTV ! RTSolution ! NLTE correction term predictor TYPE(NLTE_Predictor_type) :: NLTE_Predictor + ! Cloud cover object + TYPE(CRTM_CloudCover_type) :: CloudCover ! ------ @@ -323,6 +337,10 @@ FUNCTION CRTM_Forward( & END IF + ! Reinitialise the output RTSolution + CALL CRTM_RTSolution_Zero(RTSolution) + + ! Allocate the profile independent surface opticss local structure CALL CRTM_SfcOptics_Create( SfcOptics, MAX_N_ANGLES, MAX_N_STOKES ) IF ( .NOT. CRTM_SfcOptics_Associated(SfcOptics) ) THEN @@ -357,65 +375,19 @@ FUNCTION CRTM_Forward( & ! Check the optional Options structure argument - ! ...Specify default actions - Check_Input = Default_Options%Check_Input - User_Emissivity = Default_Options%Use_Emissivity - User_AntCorr = Default_Options%Use_Antenna_Correction - Apply_NLTE_Correction = Default_Options%Apply_NLTE_Correction - RT_Algorithm_Id = Default_Options%RT_Algorithm_Id - User_N_Streams = Default_Options%Use_N_Streams - Aircraft_Pressure = Default_Options%Aircraft_Pressure - ! ...Check the Options argument - IF (Options_Present) THEN - ! Override input checker with option - Check_Input = Options(m)%Check_Input - ! Check if the supplied emissivity should be used - User_Emissivity = Options(m)%Use_Emissivity - IF ( Options(m)%Use_Emissivity ) THEN - ! Are the channel dimensions consistent - IF ( Options(m)%n_Channels < n_Channels ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & - &"than the number of requested channels (",i0, ")" )' ) & - Options(m)%n_Channels, n_Channels - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - ! Check if the supplied direct reflectivity should be used - User_Direct_Reflectivity = Options(m)%Use_Direct_Reflectivity - END IF - ! Check if antenna correction should be attempted - User_AntCorr = Options(m)%Use_Antenna_Correction - ! Set NLTE correction option - Apply_NLTE_Correction = Options(m)%Apply_NLTE_Correction - ! Set aircraft pressure altitude - Aircraft_Pressure = Options(m)%Aircraft_Pressure - - ! Copy over ancillary input + Opt = Default_Options + IF ( Options_Present ) THEN + Opt = Options(m) + ! Copy over ancillary input (just add AncillaryInput structure to options?) AncillaryInput%SSU = Options(m)%SSU AncillaryInput%Zeeman = Options(m)%Zeeman - ! Copy over surface optics input - SfcOptics%Use_New_MWSSEM = .NOT. Options(m)%Use_Old_MWSSEM - ! Specify the RT algorithm - RT_Algorithm_Id = Options(m)%RT_Algorithm_Id - ! Check if n_Streams should be used - User_N_Streams = Options(m)%Use_N_Streams - ! Check value for nstreams - IF ( User_N_Streams ) THEN - IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & - Options(m)%n_Streams > MAX_N_STREAMS ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & - Options(m)%n_Streams - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - END IF END IF + ! ...Assign the option specific SfcOptics input + SfcOptics%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM ! Check the input data if required - IF ( Check_Input ) THEN + IF ( Opt%Check_Input ) THEN ! ...Mandatory inputs Atmosphere_Invalid = .NOT. CRTM_Atmosphere_IsValid( Atmosphere(m) ) Surface_Invalid = .NOT. CRTM_Surface_IsValid( Surface(m) ) @@ -435,6 +407,28 @@ FUNCTION CRTM_Forward( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + ! Are the channel dimensions consistent if emissivity is passed? + IF ( Options(m)%Use_Emissivity ) THEN + IF ( Options(m)%n_Channels < n_Channels ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & + &"than the number of requested channels (",i0, ")" )' ) & + Options(m)%n_Channels, n_Channels + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + ! Check value for user-defined n_Streams + IF ( Options(m)%Use_N_Streams ) THEN + IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & + Options(m)%n_Streams > MAX_N_STREAMS ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & + Options(m)%n_Streams + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF END IF END IF @@ -450,10 +444,6 @@ FUNCTION CRTM_Forward( & Source_Zenith_Angle = Source_ZA ) - ! Average surface skin temperature for multi-surface types - CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) - - ! Add extra layers to current atmosphere profile ! if necessary to handle upper atmosphere Error_Status = CRTM_Atmosphere_AddLayers( Atmosphere(m), Atm ) @@ -471,43 +461,26 @@ FUNCTION CRTM_Forward( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - ! ...Allocate the atmospheric optics structures based on Atm extension + + + ! Prepare the atmospheric optics structures + ! ...Allocate the AtmOptics structure based on Atm extension CALL CRTM_AtmOptics_Create( AtmOptics, & Atm%n_Layers , & MAX_N_LEGENDRE_TERMS, & MAX_N_PHASE_ELEMENTS ) - IF (Options_Present) THEN - ! Set Scattering Switch - AtmOptics%Include_Scattering = Options(m)%Include_Scattering - END IF IF ( .NOT. CRTM_AtmOptics_Associated( Atmoptics ) ) THEN Error_Status = FAILURE WRITE( Message,'("Error allocating AtmOptics data structure for profile #",i0)' ) m CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + ! ...Set the scattering switch + AtmOptics%Include_Scattering = Opt%Include_Scattering ! ...Allocate the atmospheric optics internal structure CALL AOvar_Create( AOvar, Atm%n_Layers ) - ! Process aircraft pressure altitude - IF ( Aircraft_Pressure > ZERO ) THEN - RTV%aircraft%rt = .TRUE. - RTV%aircraft%idx = CRTM_Get_PressureLevelIdx(Atm, Aircraft_Pressure) - ! ...Issue warning if profile level is TOO different from flight level - IF ( ABS(Atm%Level_Pressure(RTV%aircraft%idx)-Aircraft_Pressure) > AIRCRAFT_PRESSURE_THRESHOLD ) THEN - WRITE( Message,'("Difference between aircraft pressure level (",es13.6,& - &"hPa) and closest input profile level (",es13.6,& - &"hPa) is larger than recommended (",f4.1,"hPa) for profile #",i0)') & - Aircraft_Pressure, Atm%Level_Pressure(RTV%aircraft%idx), & - AIRCRAFT_PRESSURE_THRESHOLD, m - CALL Display_Message( ROUTINE_NAME, Message, WARNING ) - END IF - ELSE - RTV%aircraft%rt = .FALSE. - END IF - - ! Allocate the scattering internal variables if necessary ! ...Cloud IF ( Atm%n_Clouds > 0 ) THEN @@ -527,6 +500,68 @@ FUNCTION CRTM_Forward( & END IF + ! Determine the type of cloud coverage + cloud_coverage_flag = CRTM_Atmosphere_Coverage( atm ) + + + ! Setup for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! Compute cloudcover + Error_Status = CloudCover%Compute_CloudCover(atm, Overlap = opt%Overlap_Id) + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'("Error computing cloud cover in profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + + ! Allocate all the CLEAR sky structures for fractional cloud coverage + ! ...A clear sky atmosphere + Error_Status = CRTM_Atmosphere_ClearSkyCopy(Atm, Atm_Clear) + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'("Error copying CLEAR SKY atmopshere in profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Clear sky SfcOptics + CALL CRTM_SfcOptics_Create( SfcOptics_Clear, MAX_N_ANGLES, MAX_N_STOKES ) + IF ( .NOT. CRTM_SfcOptics_Associated(SfcOptics_Clear) ) THEN + Error_Status = FAILURE + WRITE( Message,'("Error allocating CLEAR SKY SfcOptics data structure for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Copy over surface optics input + SfcOptics_Clear%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM + ! ...CLEAR SKY average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics_Clear ) + END IF + + + ! Average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) + + + ! Process aircraft pressure altitude + IF ( Opt%Aircraft_Pressure > ZERO ) THEN + RTV%aircraft%rt = .TRUE. + RTV%aircraft%idx = CRTM_Get_PressureLevelIdx(Atm, Opt%Aircraft_Pressure) + ! ...Issue warning if profile level is TOO different from flight level + IF ( ABS(Atm%Level_Pressure(RTV%aircraft%idx)-Opt%Aircraft_Pressure) > AIRCRAFT_PRESSURE_THRESHOLD ) THEN + WRITE( Message,'("Difference between aircraft pressure level (",es13.6,& + &"hPa) and closest input profile level (",es13.6,& + &"hPa) is larger than recommended (",f4.1,"hPa) for profile #",i0)') & + Opt%Aircraft_Pressure, Atm%Level_Pressure(RTV%aircraft%idx), & + AIRCRAFT_PRESSURE_THRESHOLD, m + CALL Display_Message( ROUTINE_NAME, Message, WARNING ) + END IF + ELSE + RTV%aircraft%rt = .FALSE. + END IF + + + + ! ----------- ! SENSOR LOOP ! ----------- @@ -541,13 +576,9 @@ FUNCTION CRTM_Forward( & ! Check if antenna correction to be applied for current sensor - IF ( User_AntCorr .AND. & - ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & - iFOV /= 0 ) THEN - Compute_AntCorr = .TRUE. - ELSE - Compute_AntCorr = .FALSE. - END IF + compute_antenna_correction = ( Opt%Use_Antenna_Correction .AND. & + ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & + iFOV /= 0 ) ! Compute predictors for AtmAbsorption calcs @@ -573,9 +604,10 @@ FUNCTION CRTM_Forward( & ! Allocate the RTV structure if necessary - IF( (Atm%n_Clouds > 0 .OR. & - Atm%n_Aerosols > 0 .OR. & - SpcCoeff_IsVisibleSensor( SC(SensorIndex) ) ) .and. AtmOptics%Include_Scattering ) THEN + IF( ( Atm%n_Clouds > 0 .OR. & + Atm%n_Aerosols > 0 .OR. & + SpcCoeff_IsVisibleSensor(SC(SensorIndex)) ) .AND. & + AtmOptics%Include_Scattering ) THEN CALL RTV_Create( RTV, MAX_N_ANGLES, MAX_N_LEGENDRE_TERMS, Atm%n_Layers ) IF ( .NOT. RTV_Associated(RTV) ) THEN Error_Status=FAILURE @@ -585,12 +617,12 @@ FUNCTION CRTM_Forward( & RETURN END IF ! Assign algorithm selector - RTV%RT_Algorithm_Id = RT_Algorithm_Id + RTV%RT_Algorithm_Id = Opt%RT_Algorithm_Id END IF ! Compute NLTE correction predictors - IF ( Apply_NLTE_Correction ) THEN + IF ( Opt%Apply_NLTE_Correction ) THEN CALL Compute_NLTE_Predictor( & SC(SensorIndex)%NC, & ! Input Atm , & ! Input @@ -620,10 +652,13 @@ FUNCTION CRTM_Forward( & ! Initialisations CALL CRTM_AtmOptics_Zero( AtmOptics ) + CALL CRTM_AtmOptics_Zero( AtmOptics_Clear ) + CALL CRTM_RTSolution_Zero( RTSolution_Clear ) + ! Determine the number of streams (n_Full_Streams) in up+downward directions - IF ( User_N_Streams ) THEN - n_Full_Streams = Options(m)%n_Streams + IF ( Opt%Use_N_Streams ) THEN + n_Full_Streams = Opt%n_Streams RTSolution(ln,m)%n_Full_Streams = n_Full_Streams + 2 RTSolution(ln,m)%Scattering_Flag = .TRUE. ELSE @@ -649,19 +684,15 @@ FUNCTION CRTM_Forward( & AtmOptics%Optical_Depth = AtmOptics%Optical_Depth * (RTSolution(ln,m)%Gamma + ONE) - ! Compute the clear-sky atmospheric transmittance - ! for use in FASTEM-X reflection correction - CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) - - ! Compute the molecular scattering properties ! ...Solar radiation - IF( SC(SensorIndex)%Solar_Irradiance(ChannelIndex) > ZERO .AND. & - Source_ZA < MAX_SOURCE_ZENITH_ANGLE ) THEN - RTV%Solar_Flag_true = .TRUE. + IF ( SC(SensorIndex)%Solar_Irradiance(ChannelIndex) > ZERO .AND. & + Source_ZA < MAX_SOURCE_ZENITH_ANGLE ) THEN + RTV%Solar_Flag_true = .TRUE. + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) RTV_Clear%Solar_Flag_true = .TRUE. END IF ! ...Visible channel with solar radiation - IF( SpcCoeff_IsVisibleSensor( SC(SensorIndex) ) .AND. RTV%Solar_Flag_true ) THEN + IF ( SpcCoeff_IsVisibleSensor(SC(SensorIndex)) .AND. RTV%Solar_Flag_true ) THEN RTV%Visible_Flag_true = .TRUE. ! Rayleigh phase function has 0, 1, 2 components. IF( AtmOptics%n_Legendre_Terms < 4 ) THEN @@ -688,6 +719,23 @@ FUNCTION CRTM_Forward( & ELSE RTV%Visible_Flag_true = .FALSE. RTV%n_Azi = 0 + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%Visible_Flag_true = .FALSE. + RTV_Clear%n_Azi = 0 + END IF + END IF + + + ! Copy the clear-sky AtmOptics + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + Error_Status = CRTM_AtmOptics_NoScatterCopy( AtmOptics, AtmOptics_Clear ) + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'("Error copying CLEAR SKY AtmOptics for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF END IF @@ -727,34 +775,47 @@ FUNCTION CRTM_Forward( & ! Compute the combined atmospheric optical properties IF( AtmOptics%Include_Scattering ) THEN - CALL CRTM_Combine_AtmOptics( AtmOptics, AOvar ) + CALL CRTM_AtmOptics_Combine( AtmOptics, AOvar ) END IF - ! ...Save vertically integrated scattering optical depth fro output + ! ...Save vertically integrated scattering optical depth for output RTSolution(ln,m)%SOD = AtmOptics%Scattering_Optical_Depth - ! Turn off FASTEM-X reflection correction for scattering conditions - IF ( CRTM_Include_Scattering(AtmOptics) .AND. SpcCoeff_IsMicrowaveSensor( SC(SensorIndex) ) ) THEN - SfcOptics%Transmittance = -ONE - ELSE - SfcOptics%Transmittance = transmittance + ! Compute the all-sky atmospheric transmittance + ! for use in FASTEM-X reflection correction + CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) + SfcOptics%Transmittance = transmittance + ! ...Clear sky for fractional cloud cover + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + CALL CRTM_Compute_Transmittance(AtmOptics_Clear,transmittance_clear) + SfcOptics_Clear%Transmittance = transmittance_clear END IF - - ! Fill the SfcOptics structure for the optional emissivity input case. - ! ...Indicate SfcOptics ARE to be computed - SfcOptics%Compute = .TRUE. - ! ...Change SfcOptics emissivity/reflectivity contents/computation status - IF ( User_Emissivity ) THEN + ! Fill the SfcOptics structures for the optional emissivity input case. + SfcOptics%Compute = .TRUE. + SfcOptics_Clear%Compute = .TRUE. + IF ( Opt%Use_Emissivity ) THEN + ! ...Cloudy/all-sky case SfcOptics%Compute = .FALSE. - SfcOptics%Emissivity(1,1) = Options(m)%Emissivity(ln) - SfcOptics%Reflectivity(1,1,1,1) = ONE - Options(m)%Emissivity(ln) - IF ( User_Direct_Reflectivity ) THEN - SfcOptics%Direct_Reflectivity(1,1) = Options(m)%Direct_Reflectivity(ln) + SfcOptics%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) ELSE SfcOptics%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) END IF + ! ...Repeat for fractional clear-sky case + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + SfcOptics_Clear%Compute = .FALSE. + SfcOptics_Clear%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics_Clear%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics_Clear%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) + ELSE + SfcOptics_Clear%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) + END IF + END IF END IF @@ -787,54 +848,117 @@ FUNCTION CRTM_Forward( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + + + ! Repeat clear sky for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%mth_Azi = mth_Azi + SfcOptics_Clear%mth_Azi = mth_Azi + Error_Status = CRTM_Compute_RTSolution( & + Atm_Clear , & ! Input + Surface(m) , & ! Input + AtmOptics_Clear , & ! Input + SfcOptics_Clear , & ! Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + RTSolution_Clear, & ! Output + RTV_Clear ) ! Internal variable output + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + END DO Azimuth_Fourier_Loop - ! Compute non-LTE correction to radiance if required - IF ( Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN - CALL Compute_NLTE_Correction( & - SC(SensorIndex)%NC , & ! Input - ChannelIndex , & ! Input - NLTE_Predictor , & ! Input - RTSolution(ln,m)%Radiance ) ! In/Output - END IF - ! Convert the radiance to brightness temperature - CALL CRTM_Planck_Temperature( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution(ln,m)%Brightness_Temperature ) ! Output - - ! Compute Antenna correction to brightness temperature if required - IF ( Compute_AntCorr ) THEN - CALL CRTM_Compute_AntCorr( & - GeometryInfo , & ! Input - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m) ) ! Output + ! Combine cloudy and clear radiances for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTSolution(ln,m)%Radiance = & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_Clear%Radiance) + & + (CloudCover%Total_Cloud_Cover * RTSolution(ln,m)%Radiance) + ! ...Save the cloud cover in the output structure + RTSolution(ln,m)%Total_Cloud_Cover = CloudCover%Total_Cloud_Cover END IF - END DO Channel_Loop - ! Deallocate local sensor dependent data structures - ! ...RTV structure - IF ( RTV_Associated(RTV) ) CALL RTV_Destroy(RTV) - ! ...Predictor structure - CALL CRTM_Predictor_Destroy( Predictor ) + ! The radiance post-processing + CALL Post_Process_RTSolution(RTSolution(ln,m)) - END DO Sensor_Loop + ! Perform clear-sky post-processing + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + CALL Post_Process_RTSolution(RTSolution_Clear) + ! ...Save the results in the output structure + RTSolution(ln,m)%R_Clear = RTSolution_Clear%Radiance + RTSolution(ln,m)%Tb_Clear = RTSolution_Clear%Brightness_Temperature + END IF - ! Deallocate local sensor independent data structures - ! ...Atmospheric optics - CALL CRTM_AtmOptics_Destroy( AtmOptics ) + END DO Channel_Loop + + END DO Sensor_Loop END DO Profile_Loop - ! Destroy any remaining structures + ! Clean up + CALL CRTM_Predictor_Destroy( Predictor ) + CALL CRTM_AtmOptics_Destroy( AtmOptics ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_Clear ) CALL CRTM_SfcOptics_Destroy( SfcOptics ) + CALL CRTM_SfcOptics_Destroy( SfcOptics_Clear ) CALL CRTM_Atmosphere_Destroy( Atm ) + CALL CRTM_Atmosphere_Destroy( Atm_Clear ) + ! ...Internal variables + CALL AOvar_Destroy( AOvar ) + CALL CSvar_Destroy( CSvar ) + CALL ASvar_Destroy( ASvar ) + CALL RTV_Destroy( RTV ) + + + CONTAINS + + + ! ---------------------------------------------------------------- + ! Local subroutine to post-process the radiance, as it is the same + ! for all-sky and fractional clear-sky cases. + ! + ! 1. Apply non-LTE correction to radiance + ! 2. Convert radiance to brightness temperature + ! 3. Apply antenna correction to brightness temperature + ! ---------------------------------------------------------------- + + SUBROUTINE Post_Process_RTSolution(rts) + TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: rts + + ! Compute non-LTE correction to radiance if required + IF ( Opt%Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN + CALL Compute_NLTE_Correction( & + SC(SensorIndex)%NC, & ! Input + ChannelIndex , & ! Input + NLTE_Predictor , & ! Input + rts%Radiance ) ! In/Output + END IF + ! Convert the radiance to brightness temperature + CALL CRTM_Planck_Temperature( & + SensorIndex , & ! Input + ChannelIndex , & ! Input + rts%Radiance , & ! Input + rts%Brightness_Temperature ) ! Output + ! Compute Antenna correction to brightness temperature if required + IF ( compute_antenna_correction ) THEN + CALL CRTM_Compute_AntCorr( & + GeometryInfo, & ! Input + SensorIndex , & ! Input + ChannelIndex, & ! Input + rts ) ! Output + END IF + + END SUBROUTINE Post_Process_RTSolution END FUNCTION CRTM_Forward diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_GeometryInfo.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_GeometryInfo.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_GeometryInfo.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_GeometryInfo.f90 index 917d8d637d..881eac50be 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_GeometryInfo.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_GeometryInfo.f90 @@ -49,7 +49,7 @@ MODULE CRTM_GeometryInfo ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_GeometryInfo.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_GeometryInfo.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Metres->kilometres conversion factor REAL(fp), PARAMETER :: M_TO_KM = 1.0e-03_fp diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_GeometryInfo_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_GeometryInfo_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_GeometryInfo_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_GeometryInfo_Define.f90 index 446b303e44..b4ff55a4ca 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_GeometryInfo_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_GeometryInfo_Define.f90 @@ -87,7 +87,7 @@ MODULE CRTM_GeometryInfo_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_GeometryInfo_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_GeometryInfo_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp @@ -862,7 +862,8 @@ FUNCTION CRTM_GeometryInfo_ReadFile( & CALL Read_Cleanup(); RETURN END IF ! ...Allocate the return structure array - ALLOCATE(GeometryInfo(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + !ALLOCATE(GeometryInfo(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + ALLOCATE(GeometryInfo(n_input_profiles), STAT=alloc_stat) IF ( alloc_stat /= 0 ) THEN msg = 'Error allocating GeometryInfo array - '//TRIM(alloc_msg) CALL Read_Cleanup(); RETURN @@ -907,7 +908,8 @@ SUBROUTINE Read_CleanUp() msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF IF ( ALLOCATED(GeometryInfo) ) THEN - DEALLOCATE(GeometryInfo, STAT=alloc_stat, ERRMSG=alloc_msg) + !DEALLOCATE(GeometryInfo, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(GeometryInfo, STAT=alloc_stat) IF ( alloc_stat /= 0 ) & msg = TRIM(msg)//'; Error deallocating GeometryInfo array during error cleanup - '//& TRIM(alloc_msg) diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Geometry_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Geometry_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_Geometry_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Geometry_Define.f90 index b3aa574594..020ad56b35 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Geometry_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Geometry_Define.f90 @@ -84,7 +84,7 @@ MODULE CRTM_Geometry_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Geometry_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Geometry_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp ! Message string length @@ -1166,7 +1166,8 @@ FUNCTION CRTM_Geometry_ReadFile( & CALL Read_Cleanup(); RETURN END IF ! ...Allocate the return structure array - ALLOCATE(Geometry(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + !ALLOCATE(Geometry(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + ALLOCATE(Geometry(n_input_profiles), STAT=alloc_stat) IF ( alloc_stat /= 0 ) THEN msg = 'Error allocating Geometry array - '//TRIM(alloc_msg) CALL Read_Cleanup(); RETURN @@ -1213,7 +1214,8 @@ SUBROUTINE Read_CleanUp() msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF IF ( ALLOCATED(Geometry) ) THEN - DEALLOCATE(Geometry, STAT=alloc_stat, ERRMSG=alloc_msg) + !DEALLOCATE(Geometry, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(Geometry, STAT=alloc_stat) IF ( alloc_stat /= 0 ) & msg = TRIM(msg)//'; Error deallocating Geometry array during error cleanup - '//& TRIM(alloc_msg) diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IRSSEM.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IRSSEM.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IRSSEM.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IRSSEM.f90 index e0ea0940be..8f3c6d4b5c 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IRSSEM.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IRSSEM.f90 @@ -51,7 +51,7 @@ MODULE CRTM_IRSSEM ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IRSSEM.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IRSSEM.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Ice_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Ice_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IR_Ice_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IR_Ice_SfcOptics.f90 index 8528b2de12..ed9dc0ec3d 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Ice_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Ice_SfcOptics.f90 @@ -53,7 +53,7 @@ MODULE CRTM_IR_Ice_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IR_Ice_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IR_Ice_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Land_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Land_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IR_Land_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IR_Land_SfcOptics.f90 index 799aa0caf3..27a6fd9d39 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Land_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Land_SfcOptics.f90 @@ -52,7 +52,7 @@ MODULE CRTM_IR_Land_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IR_Land_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IR_Land_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Snow_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Snow_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IR_Snow_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IR_Snow_SfcOptics.f90 index 00f5d12fde..2be08755d1 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Snow_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Snow_SfcOptics.f90 @@ -53,7 +53,7 @@ MODULE CRTM_IR_Snow_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IR_Snow_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IR_Snow_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Water_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Water_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IR_Water_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IR_Water_SfcOptics.f90 index ede85416ea..da450e01e6 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IR_Water_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IR_Water_SfcOptics.f90 @@ -54,7 +54,7 @@ MODULE CRTM_IR_Water_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IR_Water_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IR_Water_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Coefficients for Sigma**2 in the Cox & Munk slope probability density function REAL(fp), PARAMETER :: CM_1 = 0.003_fp, CM_2 = 5.12e-3_fp diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IRiceCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IRiceCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IRiceCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IRiceCoeff.f90 index 9ad93269a5..796ad547a5 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IRiceCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IRiceCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_IRiceCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IRiceCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IRiceCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IRlandCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IRlandCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IRlandCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IRlandCoeff.f90 index 07f6a80645..d6cb420dd3 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IRlandCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IRlandCoeff.f90 @@ -54,7 +54,7 @@ MODULE CRTM_IRlandCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IRlandCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IRlandCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IRsnowCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IRsnowCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IRsnowCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IRsnowCoeff.f90 index a836cf0da8..0ba95522fc 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IRsnowCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IRsnowCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_IRsnowCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IRsnowCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IRsnowCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_IRwaterCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_IRwaterCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_IRwaterCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_IRwaterCoeff.f90 index 61e35f4806..01bd8eb6b8 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_IRwaterCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_IRwaterCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_IRwaterCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_IRwaterCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_IRwaterCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Interpolation.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Interpolation.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_Interpolation.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Interpolation.f90 index 903039da90..4593f06be9 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Interpolation.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Interpolation.f90 @@ -64,7 +64,7 @@ MODULE CRTM_Interpolation ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID=& - '$Id: CRTM_Interpolation.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Interpolation.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp INTEGER, PARAMETER :: ORDER = 2 ! Quadratic diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_K_Matrix_Module.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_K_Matrix_Module.f90 similarity index 60% rename from var/external/crtm_2.2.3/libsrc/CRTM_K_Matrix_Module.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_K_Matrix_Module.f90 index 78927feaa1..d9827faee5 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_K_Matrix_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_K_Matrix_Module.f90 @@ -31,21 +31,33 @@ MODULE CRTM_K_Matrix_Module SpcCoeff_IsInfraredSensor , & SpcCoeff_IsMicrowaveSensor, & SpcCoeff_IsVisibleSensor - USE CRTM_Atmosphere_Define, ONLY: CRTM_Atmosphere_type, & - CRTM_Atmosphere_Destroy, & - CRTM_Atmosphere_IsValid, & - CRTM_Atmosphere_AddLayerCopy, & + USE CRTM_Atmosphere_Define, ONLY: OPERATOR(+) , & + CRTM_Atmosphere_type , & + CRTM_Atmosphere_Associated , & + CRTM_Atmosphere_Destroy , & + CRTM_Atmosphere_IsValid , & + CRTM_Atmosphere_Zero , & + CRTM_Atmosphere_AddLayerCopy , & + CRTM_Atmosphere_NonVariableCopy, & CRTM_Get_PressureLevelIdx - USE CRTM_Surface_Define, ONLY: CRTM_Surface_type, & - CRTM_Surface_IsValid + USE CRTM_Surface_Define, ONLY: CRTM_Surface_type , & + CRTM_Surface_IsValid , & + CRTM_Surface_NonVariableCopy USE CRTM_Geometry_Define, ONLY: CRTM_Geometry_type, & CRTM_Geometry_IsValid USE CRTM_ChannelInfo_Define, ONLY: CRTM_ChannelInfo_type, & CRTM_ChannelInfo_n_Channels + USE CRTM_RTSolution_Define, ONLY: CRTM_RTSolution_type , & + CRTM_RTSolution_Destroy, & + CRTM_RTSolution_Zero USE CRTM_Options_Define, ONLY: CRTM_Options_type, & CRTM_Options_IsValid - USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers, & - CRTM_Atmosphere_AddLayers_AD + USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers , & + CRTM_Atmosphere_AddLayers_AD , & + CRTM_Atmosphere_IsFractional , & + CRTM_Atmosphere_Coverage , & + CRTM_Atmosphere_ClearSkyCopy , & + CRTM_Atmosphere_ClearSkyCopy_AD USE CRTM_GeometryInfo_Define, ONLY: CRTM_GeometryInfo_type, & CRTM_GeometryInfo_SetValue, & CRTM_GeometryInfo_GetValue @@ -75,16 +87,19 @@ MODULE CRTM_K_Matrix_Module CRTM_Include_Scattering , & CRTM_Compute_Transmittance , & CRTM_Compute_Transmittance_AD, & - CRTM_Combine_AtmOptics , & - CRTM_Combine_AtmOptics_AD - USE CRTM_SfcOptics_Define, ONLY: CRTM_SfcOptics_type , & + CRTM_AtmOptics_Combine , & + CRTM_AtmOptics_Combine_AD , & + CRTM_AtmOptics_NoScatterCopy , & + CRTM_AtmOptics_NoScatterCopy_AD + USE CRTM_SfcOptics_Define, ONLY: OPERATOR(+) , & + CRTM_SfcOptics_type , & CRTM_SfcOptics_Associated, & CRTM_SfcOptics_Create , & - CRTM_SfcOptics_Destroy + CRTM_SfcOptics_Destroy , & + CRTM_SfcOptics_Zero, crtm_sfcoptics_inspect USE CRTM_SfcOptics, ONLY: CRTM_Compute_SurfaceT , & CRTM_Compute_SurfaceT_AD - USE CRTM_RTSolution, ONLY: CRTM_RTSolution_type , & - CRTM_Compute_nStreams , & + USE CRTM_RTSolution, ONLY: CRTM_Compute_nStreams , & CRTM_Compute_RTSolution , & CRTM_Compute_RTSolution_AD USE CRTM_AntennaCorrection, ONLY: CRTM_Compute_AntCorr, & @@ -104,8 +119,14 @@ MODULE CRTM_K_Matrix_Module USE NLTECoeff_Define, ONLY: NLTECoeff_Associated USE CRTM_Planck_Functions, ONLY: CRTM_Planck_Temperature , & CRTM_Planck_Temperature_AD + USE CRTM_CloudCover_Define, ONLY: CRTM_CloudCover_type ! Internal variable definition modules + ! ...AtmOptics + USE AOvar_Define, ONLY: AOvar_type, & + AOvar_Associated, & + AOvar_Destroy , & + AOvar_Create ! ...CloudScatter USE CSvar_Define, ONLY: CSvar_type, & CSvar_Associated, & @@ -144,7 +165,7 @@ MODULE CRTM_K_Matrix_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_K_Matrix_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_K_Matrix_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -298,28 +319,33 @@ FUNCTION CRTM_K_Matrix( & ! Local variables CHARACTER(256) :: Message LOGICAL :: Options_Present - LOGICAL :: Check_Input - LOGICAL :: User_Emissivity, User_Direct_Reflectivity, User_N_Streams - LOGICAL :: User_AntCorr, Compute_AntCorr - LOGICAL :: Apply_NLTE_Correction + LOGICAL :: compute_antenna_correction LOGICAL :: Atmosphere_Invalid, Surface_Invalid, Geometry_Invalid, Options_Invalid - INTEGER :: RT_Algorithm_Id + INTEGER :: Status_FWD, Status_K INTEGER :: iFOV - INTEGER :: nc, na INTEGER :: n, n_Sensors, SensorIndex INTEGER :: l, n_Channels, ChannelIndex INTEGER :: m, n_Profiles - INTEGER :: j, ln + INTEGER :: ln INTEGER :: n_Full_Streams, mth_Azi + INTEGER :: cloud_coverage_flag REAL(fp) :: Source_ZA REAL(fp) :: Wavenumber REAL(fp) :: transmittance, transmittance_K + REAL(fp) :: transmittance_clear, transmittance_clear_K + REAL(fp) :: r_cloudy ! Local ancillary input structure TYPE(CRTM_AncillaryInput_type) :: AncillaryInput ! Local options structure for default values - TYPE(CRTM_Options_type) :: Default_Options + TYPE(CRTM_Options_type) :: Default_Options, Opt ! Local atmosphere structure for extra layering TYPE(CRTM_Atmosphere_type) :: Atm, Atm_K + ! Clear sky structures + TYPE(CRTM_Atmosphere_type) :: Atm_Clear , Atm_Clear_K + TYPE(CRTM_AtmOptics_type) :: AtmOptics_Clear , AtmOptics_Clear_K + TYPE(CRTM_SfcOptics_type) :: SfcOptics_Clear , SfcOptics_Clear_K + TYPE(CRTM_RTSolution_type) :: RTSolution_Clear, RTSolution_Clear_K + TYPE(RTV_type) :: RTV_Clear ! Component variables TYPE(CRTM_GeometryInfo_type) :: GeometryInfo TYPE(CRTM_Predictor_type) :: Predictor, Predictor_K @@ -334,6 +360,8 @@ FUNCTION CRTM_K_Matrix( & TYPE(RTV_type) :: RTV ! RTSolution ! NLTE correction term predictors TYPE(NLTE_Predictor_type) :: NLTE_Predictor, NLTE_Predictor_K + ! Cloud cover object + TYPE(CRTM_CloudCover_type) :: CloudCover, CloudCover_K ! ------ ! SET UP @@ -393,6 +421,10 @@ FUNCTION CRTM_K_Matrix( & END IF + ! Reinitialise the output RTSolution + CALL CRTM_RTSolution_Zero(RTSolution) + + ! Allocate the profile independent surface optics local structure CALL CRTM_SfcOptics_Create( SfcOptics , MAX_N_ANGLES, MAX_N_STOKES ) CALL CRTM_SfcOptics_Create( SfcOptics_K, MAX_N_ANGLES, MAX_N_STOKES ) @@ -430,90 +462,25 @@ FUNCTION CRTM_K_Matrix( & ! Copy over forward "non-variable" inputs to K-matrix outputs DO l = 1, n_Channels - ! ...Atmosphere - Atmosphere_K(l,m)%Climatology = Atmosphere(m)%Climatology - ! Loop over absorbers - DO j = 1, Atmosphere(m)%n_Absorbers - Atmosphere_K(l,m)%Absorber_ID(j) = Atmosphere(m)%Absorber_ID(j) - Atmosphere_K(l,m)%Absorber_Units(j) = Atmosphere(m)%Absorber_Units(j) - END DO - ! Loop over and assign cloud types - DO nc = 1, Atmosphere(m)%n_Clouds - Atmosphere_K(l,m)%Cloud(nc)%Type = Atmosphere(m)%Cloud(nc)%Type - END DO - ! Loop over and assign aerosol types - DO na = 1, Atmosphere(m)%n_Aerosols - Atmosphere_K(l,m)%Aerosol(na)%Type = Atmosphere(m)%Aerosol(na)%Type - END DO - ! ...Surface - Surface_K(l,m)%Land_Coverage = Surface(m)%Land_Coverage - Surface_K(l,m)%Water_Coverage = Surface(m)%Water_Coverage - Surface_K(l,m)%Snow_Coverage = Surface(m)%Snow_Coverage - Surface_K(l,m)%Ice_Coverage = Surface(m)%Ice_Coverage - Surface_K(l,m)%Land_Type = Surface(m)%Land_Type - Surface_K(l,m)%Water_Type = Surface(m)%Water_Type - Surface_K(l,m)%Snow_Type = Surface(m)%Snow_Type - Surface_K(l,m)%Ice_Type = Surface(m)%Ice_Type + CALL CRTM_Atmosphere_NonVariableCopy( Atmosphere(m), Atmosphere_K(l,m) ) + CALL CRTM_Surface_NonVariableCopy( Surface(m), Surface_K(l,m) ) END DO ! Check the optional Options structure argument - ! ...Specify default actions - Check_Input = Default_Options%Check_Input - User_Emissivity = Default_Options%Use_Emissivity - User_AntCorr = Default_Options%Use_Antenna_Correction - Apply_NLTE_Correction = Default_Options%Apply_NLTE_Correction - RT_Algorithm_Id = Default_Options%RT_Algorithm_Id - User_N_Streams = Default_Options%Use_N_Streams - ! ...Check the Options argument - IF (Options_Present) THEN - ! Override input checker with option - Check_Input = Options(m)%Check_Input - ! Check if the supplied emissivity should be used - User_Emissivity = Options(m)%Use_Emissivity - IF ( Options(m)%Use_Emissivity ) THEN - ! Are the channel dimensions consistent - IF ( Options(m)%n_Channels < n_Channels ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & - &"than the number of requested channels (",i0, ")" )' ) & - Options(m)%n_Channels, n_Channels - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - ! Check if the supplied direct reflectivity should be used - User_Direct_Reflectivity = Options(m)%Use_Direct_Reflectivity - END IF - ! Check if antenna correction should be attempted - User_AntCorr = Options(m)%Use_Antenna_Correction - ! Set NLTE correction option - Apply_NLTE_Correction = Options(m)%Apply_NLTE_Correction - + Opt = Default_Options + IF ( Options_Present ) THEN + Opt = Options(m) ! Copy over ancillary input AncillaryInput%SSU = Options(m)%SSU AncillaryInput%Zeeman = Options(m)%Zeeman - ! Copy over surface optics input - SfcOptics%Use_New_MWSSEM = .NOT. Options(m)%Use_Old_MWSSEM - ! Specify the RT algorithm - RT_Algorithm_Id = Options(m)%RT_Algorithm_ID - ! Check if n_Streams should be used - User_N_Streams = Options(m)%Use_N_Streams - ! Check value for nstreams - IF ( User_N_Streams ) THEN - IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & - Options(m)%n_Streams > MAX_N_STREAMS ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & - Options(m)%n_Streams - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - END IF END IF + ! ...Assign the option specific SfcOptics input + SfcOptics%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM ! Check the input data if required - IF ( Check_Input ) THEN + IF ( Opt%Check_Input ) THEN ! ...Mandatory inputs Atmosphere_Invalid = .NOT. CRTM_Atmosphere_IsValid( Atmosphere(m) ) Surface_Invalid = .NOT. CRTM_Surface_IsValid( Surface(m) ) @@ -533,6 +500,28 @@ FUNCTION CRTM_K_Matrix( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + ! Are the channel dimensions consistent if emissivity is passed? + IF ( Options(m)%Use_Emissivity ) THEN + IF ( Options(m)%n_Channels < n_Channels ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & + &"than the number of requested channels (",i0, ")" )' ) & + Options(m)%n_Channels, n_Channels + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + ! Check value for user-defined n_Streams + IF ( Options(m)%Use_N_Streams ) THEN + IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & + Options(m)%n_Streams > MAX_N_STREAMS ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & + Options(m)%n_Streams + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF END IF END IF @@ -548,10 +537,6 @@ FUNCTION CRTM_K_Matrix( & Source_Zenith_Angle = Source_ZA ) - ! Average surface skin temperature for multi-surface types - CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) - - ! Add extra layers to current atmosphere profile ! if necessary to handle upper atmosphere Error_Status = CRTM_Atmosphere_AddLayers( Atmosphere(m), Atm ) @@ -570,6 +555,9 @@ FUNCTION CRTM_K_Matrix( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + + + ! Prepare the atmospheric optics structures ! ...Allocate the atmospheric optics structures based on Atm extension CALL CRTM_AtmOptics_Create( AtmOptics, & Atm%n_Layers , & @@ -586,11 +574,9 @@ FUNCTION CRTM_K_Matrix( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - IF (Options_Present) THEN - ! Set Scattering Switch - AtmOptics%Include_Scattering = Options(m)%Include_Scattering - AtmOptics_K%Include_Scattering = Options(m)%Include_Scattering - END IF + ! ...Set the Scattering Switch + AtmOptics%Include_Scattering = Opt%Include_Scattering + AtmOptics_K%Include_Scattering = Opt%Include_Scattering ! ...Allocate the atmospheric optics internal structure CALL AOvar_Create( AOvar, Atm%n_Layers ) @@ -614,6 +600,56 @@ FUNCTION CRTM_K_Matrix( & END IF + ! Determine the type of cloud coverage + cloud_coverage_flag = CRTM_Atmosphere_Coverage( atm ) + + + ! Setup for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! Compute cloudcover + Error_Status = CloudCover%Compute_CloudCover(atm, Overlap = opt%Overlap_Id) + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'("Error computing cloud cover in profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Mold the K-matrix object based on the forward, and reinitialise + CloudCover_K = CloudCover + CALL CloudCover_K%Set_To_Zero() + + ! Allocate some of the CLEAR sky structure for fractional cloud coverage + ! (The AtmOptics structures are allocated during a copy) + ! ...Clear sky atmosphere + Error_Status = CRTM_Atmosphere_ClearSkyCopy(Atm, Atm_Clear) + IF ( Error_Status /= SUCCESS ) THEN + Error_status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY Atmosphere structures for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Clear sky SfcOptics + CALL CRTM_SfcOptics_Create( SfcOptics_Clear , MAX_N_ANGLES, MAX_N_STOKES ) + CALL CRTM_SfcOptics_Create( SfcOptics_Clear_K, MAX_N_ANGLES, MAX_N_STOKES ) + IF ( (.NOT. CRTM_SfcOptics_Associated(SfcOptics_Clear)) .OR. & + (.NOT. CRTM_SfcOptics_Associated(SfcOptics_Clear_K))) THEN + Error_Status = FAILURE + WRITE( Message,'("Error allocating CLEAR SKY SfcOptics data structures for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Copy over surface optics input + SfcOptics_Clear%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM + ! ...CLEAR SKY average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics_Clear ) + END IF + + + ! Average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) + + + ! ----------- ! SENSOR LOOP ! ----------- @@ -628,13 +664,9 @@ FUNCTION CRTM_K_Matrix( & ! Check if antenna correction to be applied for current sensor - IF ( User_AntCorr .AND. & - ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & - iFOV /= 0 ) THEN - Compute_AntCorr = .TRUE. - ELSE - Compute_AntCorr = .FALSE. - END IF + compute_antenna_correction = ( Opt%Use_Antenna_Correction .AND. & + ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & + iFOV /= 0 ) ! Allocate the AtmAbsorption predictor structures @@ -667,9 +699,10 @@ FUNCTION CRTM_K_Matrix( & ! Allocate the RTV structure if necessary - IF( (Atm%n_Clouds > 0 .OR. & - Atm%n_Aerosols > 0 .OR. & - SpcCoeff_IsVisibleSensor( SC(SensorIndex) ) ) .and. AtmOptics%Include_Scattering ) THEN + IF( ( Atm%n_Clouds > 0 .OR. & + Atm%n_Aerosols > 0 .OR. & + SpcCoeff_IsVisibleSensor(SC(SensorIndex)) ) .AND. & + AtmOptics%Include_Scattering ) THEN CALL RTV_Create( RTV, MAX_N_ANGLES, MAX_N_LEGENDRE_TERMS, Atm%n_Layers ) IF ( .NOT. RTV_Associated(RTV) ) THEN Error_Status=FAILURE @@ -679,12 +712,12 @@ FUNCTION CRTM_K_Matrix( & RETURN END IF ! Assign algorithm selector - RTV%RT_Algorithm_Id = RT_Algorithm_Id + RTV%RT_Algorithm_Id = Opt%RT_Algorithm_Id END IF - ! Compute NLTE predictors - IF ( Apply_NLTE_Correction ) THEN + ! Compute NLTE correction predictors + IF ( Opt%Apply_NLTE_Correction ) THEN CALL Compute_NLTE_Predictor( & SC(SensorIndex)%NC, & ! Input Atm , & ! Input @@ -715,19 +748,48 @@ FUNCTION CRTM_K_Matrix( & RTSolution_K(ln,m)%WMO_Satellite_Id = RTSolution(ln,m)%WMO_Satellite_Id RTSolution_K(ln,m)%WMO_Sensor_Id = RTSolution(ln,m)%WMO_Sensor_Id RTSolution_K(ln,m)%Sensor_Channel = RTSolution(ln,m)%Sensor_Channel + ! ...Same for clear structures + RTSolution_Clear%Sensor_Id = RTSolution(ln,m)%Sensor_Id + RTSolution_Clear%WMO_Satellite_Id = RTSolution(ln,m)%WMO_Satellite_Id + RTSolution_Clear%WMO_Sensor_Id = RTSolution(ln,m)%WMO_Sensor_Id + RTSolution_Clear%Sensor_Channel = RTSolution(ln,m)%Sensor_Channel + RTSolution_Clear_K%Sensor_Id = RTSolution(ln,m)%Sensor_Id + RTSolution_Clear_K%WMO_Satellite_Id = RTSolution(ln,m)%WMO_Satellite_Id + RTSolution_Clear_K%WMO_Sensor_Id = RTSolution(ln,m)%WMO_Sensor_Id + RTSolution_Clear_K%Sensor_Channel = RTSolution(ln,m)%Sensor_Channel ! Initialisations CALL CRTM_AtmOptics_Zero( AtmOptics ) + CALL CRTM_AtmOptics_Zero( AtmOptics_K ) + CALL CRTM_AtmOptics_Zero( AtmOptics_Clear ) + CALL CRTM_AtmOptics_Zero( AtmOptics_Clear_K ) transmittance_K = ZERO + CALL CRTM_RTSolution_Zero( RTSolution_Clear ) + CALL CRTM_RTSolution_Zero( RTSolution_Clear_K ) ! Copy the input K-matrix atmosphere with extra layers if necessary Atm_K = CRTM_Atmosphere_AddLayerCopy( Atmosphere_K(ln,m), Atm%n_Added_Layers ) + ! ...Same for K-matrix CLEAR sky structure for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + Error_Status = CRTM_Atmosphere_ClearSkyCopy(Atm_K, Atm_Clear_K) + IF ( Error_Status /= SUCCESS ) THEN + Error_status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY Atmosphere_K structure for ",a,& + &", channel ",i0,", profile #",i0)') & + TRIM(ChannelInfo(n)%Sensor_ID), & + ChannelInfo(n)%Sensor_Channel(l), & + m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + CALL CRTM_Atmosphere_Zero( Atm_Clear_K ) + END IF ! Determine the number of streams (n_Full_Streams) in up+downward directions - IF ( User_N_Streams ) THEN + IF ( Opt%Use_N_Streams ) THEN n_Full_Streams = Options(m)%n_Streams RTSolution(ln,m)%n_Full_Streams = n_Full_Streams + 2 RTSolution(ln,m)%Scattering_Flag = .TRUE. @@ -740,6 +802,8 @@ FUNCTION CRTM_K_Matrix( & ! ...Transfer stream count to scattering structures AtmOptics%n_Legendre_Terms = n_Full_Streams AtmOptics_K%n_Legendre_Terms = n_Full_Streams + ! ...Ensure clear-sky object dimensions are consistent + AtmOptics_Clear_K%n_Legendre_Terms = AtmOptics_K%n_Legendre_Terms ! Compute the gas absorption @@ -755,11 +819,6 @@ FUNCTION CRTM_K_Matrix( & AtmOptics%Optical_Depth = AtmOptics%Optical_Depth * (RTSolution(ln,m)%Gamma + ONE) - ! Compute the clear-sky atmospheric transmittance - ! for use in FASTEM-X reflection correction - CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) - - ! Compute the molecular scattering properties ! ...Solar radiation IF( SC(SensorIndex)%Solar_Irradiance(ChannelIndex) > ZERO .AND. & @@ -795,6 +854,27 @@ FUNCTION CRTM_K_Matrix( & ELSE RTV%Visible_Flag_true = .FALSE. RTV%n_Azi = 0 + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%Visible_Flag_true = .FALSE. + RTV_Clear%n_Azi = 0 + END IF + END IF + + + ! Copy the clear-sky AtmOptics + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + Status_FWD = CRTM_AtmOptics_NoScatterCopy( AtmOptics, AtmOptics_Clear ) + Status_K = CRTM_AtmOptics_NoScatterCopy( AtmOptics, AtmOptics_Clear_K ) + IF ( Status_FWD /= SUCCESS .OR. Status_K /= SUCCESS ) THEN + Error_Status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY AtmOptics for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! Initialise the adjoint + CALL CRTM_AtmOptics_Zero( AtmOptics_Clear_K ) END IF @@ -834,34 +914,46 @@ FUNCTION CRTM_K_Matrix( & ! Compute the combined atmospheric optical properties IF( AtmOptics%Include_Scattering ) THEN - CALL CRTM_Combine_AtmOptics( AtmOptics, AOvar ) + CALL CRTM_AtmOptics_Combine( AtmOptics, AOvar ) END IF ! ...Save vertically integrated scattering optical depth for output RTSolution(ln,m)%SOD = AtmOptics%Scattering_Optical_Depth - ! Turn off FASTEM-X reflection correction for scattering conditions - IF ( CRTM_Include_Scattering(AtmOptics) .AND. SpcCoeff_IsMicrowaveSensor( SC(SensorIndex) ) ) THEN - SfcOptics%Transmittance = -ONE - ELSE - SfcOptics%Transmittance = transmittance + ! Compute the all-sky atmospheric transmittance + ! for use in FASTEM-X reflection correction + CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) + SfcOptics%Transmittance = transmittance + ! ...Clear sky for fractional cloud cover + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + CALL CRTM_Compute_Transmittance(AtmOptics_Clear,transmittance_clear) + SfcOptics_Clear%Transmittance = transmittance_clear END IF ! Fill the SfcOptics structure for the optional emissivity input case. - ! ...Indicate SfcOptics ARE to be computed - SfcOptics%Compute = .TRUE. - ! Change SfcOptics emissivity/reflectivity contents/computation status - IF ( User_Emissivity ) THEN + SfcOptics%Compute = .TRUE. + SfcOptics_Clear%Compute = .TRUE. + IF ( Opt%Use_Emissivity ) THEN SfcOptics%Compute = .FALSE. - SfcOptics%Emissivity(1,1) = Options(m)%Emissivity(ln) - SfcOptics%Reflectivity(1,1,1,1) = ONE - Options(m)%Emissivity(ln) - IF ( User_Direct_Reflectivity ) THEN - SfcOptics%Direct_Reflectivity(1,1) = Options(m)%Direct_Reflectivity(ln) + SfcOptics%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) ELSE SfcOptics%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) END IF - + ! ...Repeat for fractional clear-sky case + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + SfcOptics_Clear%Compute = .FALSE. + SfcOptics_Clear%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics_Clear%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics_Clear%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) + ELSE + SfcOptics_Clear%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) + END IF + END IF END IF @@ -869,8 +961,6 @@ FUNCTION CRTM_K_Matrix( & ! mth_Azi = 0 is for an azimuth-averaged value (IR, MW) ! ...Initialise radiance RTSolution(ln,m)%Radiance = ZERO - ! ...Initialise K-matrix atmospheric optics - CALL CRTM_AtmOptics_Zero( AtmOptics_K ) @@ -907,51 +997,105 @@ FUNCTION CRTM_K_Matrix( & RETURN END IF - ! Compute non-LTE correction to radiance if required - IF ( Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) & - CALL Compute_NLTE_Correction( & - SC(SensorIndex)%NC , & ! Input - ChannelIndex , & ! Input - NLTE_Predictor , & ! Input - RTSolution(ln,m)%Radiance ) ! In/Output - - ! Convert the radiance to brightness temperature - CALL CRTM_Planck_Temperature( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution(ln,m)%Brightness_Temperature ) ! Output - - ! Compute Antenna correction to brightness temperature if required - IF ( Compute_AntCorr ) THEN - CALL CRTM_Compute_AntCorr( & - GeometryInfo , & ! Input - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m) ) ! Output - CALL CRTM_Compute_AntCorr_AD( & - GeometryInfo , & ! Input - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution_K(ln,m) ) ! Output + + ! Perform clear sky calcs for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! Repeat radiative transfer for clear-sky + RTV_Clear%mth_Azi = RTV%mth_Azi + SfcOptics_Clear%mth_Azi = SfcOptics%mth_Azi + Error_Status = CRTM_Compute_RTSolution( & + Atm_Clear , & ! Input + Surface(m) , & ! Input + AtmOptics_Clear , & ! Input + SfcOptics_Clear , & ! Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + RTSolution_Clear, & ! Output + RTV_Clear ) ! Internal variable output + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + + ! Combine cloudy and clear radiances for fractional cloud coverage + r_cloudy = RTSolution(ln,m)%Radiance ! Save the 100% cloudy radiance + RTSolution(ln,m)%Radiance = & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_Clear%Radiance) + & + (CloudCover%Total_Cloud_Cover * RTSolution(ln,m)%Radiance) + ! ...Save the cloud cover in the output structure + RTSolution(ln,m)%Total_Cloud_Cover = CloudCover%Total_Cloud_Cover + END IF + + + ! The radiance post-processing + CALL Post_Process_RTSolution(RTSolution(ln,m)) + + + ! Perform clear-sky post and pre-processing + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + ! Radiance post-processing + CALL Post_Process_RTSolution(RTSolution_Clear) + RTSolution(ln,m)%R_Clear = RTSolution_Clear%Radiance + RTSolution(ln,m)%Tb_Clear = RTSolution_Clear%Brightness_Temperature + + ! Adjoint radiance pre-processing + RTSolution_Clear_K%Brightness_Temperature = RTSolution_Clear_K%Brightness_Temperature + & + RTSolution_K(ln,m)%Tb_Clear + RTSolution_K(ln,m)%Tb_Clear = ZERO + RTSolution_Clear_K%Radiance = RTSolution_Clear_K%Radiance + & + RTSolution_K(ln,m)%R_Clear + RTSolution_K(ln,m)%R_Clear = ZERO + CALL Pre_Process_RTSolution_K(RTSolution_Clear, RTSolution_Clear_K) + END IF + + + ! The adjoint radiance pre-processing + CALL Pre_Process_RTSolution_K(RTSolution(ln,m), RTSolution_K(ln,m)) + + + ! More fractionally cloudy atmospheres processing + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! The adjoint of the clear and cloudy radiance combination + CloudCover_K%Total_Cloud_Cover = CloudCover_K%Total_Cloud_Cover + & + RTSolution_K(ln,m)%Total_Cloud_Cover + RTSolution_K(ln,m)%Total_Cloud_Cover = ZERO + RTSolution_Clear_K%Radiance = RTSolution_Clear_K%Radiance + & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_K(ln,m)%Radiance) + CloudCover_K%Total_Cloud_Cover = CloudCover_K%Total_Cloud_Cover + & + ((r_cloudy - RTSolution_Clear%Radiance) * RTSolution_K(ln,m)%Radiance) + RTSolution_K(ln,m)%Radiance = CloudCover%Total_Cloud_Cover * RTSolution_K(ln,m)%Radiance + + ! The adjoint of the clear sky radiative transfer for fractionally cloudy atmospheres + Error_Status = CRTM_Compute_RTSolution_AD( & + Atm_Clear , & ! FWD Input + Surface(m) , & ! FWD Input + AtmOptics_Clear , & ! FWD Input + SfcOptics_Clear , & ! FWD Input + RTSolution_Clear , & ! FWD Input + RTSolution_Clear_K, & ! K Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + Atm_Clear_K , & ! K Output + Surface_K(ln,m) , & ! K Output + AtmOptics_Clear_K , & ! K Output + SfcOptics_Clear_K , & ! K Output + RTV_Clear ) ! Internal variable input + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution_K for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF END IF - ! Compute the Planck temperature adjoijnt - CALL CRTM_Planck_Temperature_AD( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution_K(ln,m)%Brightness_Temperature, & ! Input - RTSolution_K(ln,m)%Radiance ) ! Output - RTSolution_K(ln,m)%Brightness_Temperature = ZERO - - ! Compute non-LTE correction adjoint if required - IF ( Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) & - CALL Compute_NLTE_Correction_AD( & - SC(SensorIndex)%NC , & ! Input - ChannelIndex , & ! Input - RTSolution_K(ln,m)%Radiance, & ! Input - NLTE_Predictor_K ) ! Output ! The adjoint of the radiative transfer Error_Status = CRTM_Compute_RTSolution_AD( & @@ -1008,6 +1152,100 @@ FUNCTION CRTM_K_Matrix( & RETURN END IF + + ! Repeat clear sky for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%mth_Azi = RTV%mth_Azi + SfcOptics_Clear%mth_Azi = SfcOptics%mth_Azi + Error_Status = CRTM_Compute_RTSolution( & + Atm_Clear , & ! Input + Surface(m) , & ! Input + AtmOptics_Clear , & ! Input + SfcOptics_Clear , & ! Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + RTSolution_Clear, & ! Output + RTV_Clear ) ! Internal variable output + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + END DO Azimuth_Fourier_Loop + + + ! All of the "in-between" FWD and AD processing is for fractional cloud coverage only + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! FORWARD #1: Combine cloudy and clear radiances for fractional cloud coverage + r_cloudy = RTSolution(ln,m)%Radiance ! Save the 100% cloudy radiance + RTSolution(ln,m)%Radiance = & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_Clear%Radiance) + & + (CloudCover%Total_Cloud_Cover * RTSolution(ln,m)%Radiance) + ! FORWARD #2: Save the cloud cover and clear radiance in the output structure + RTSolution(ln,m)%Total_Cloud_Cover = CloudCover%Total_Cloud_Cover + RTSolution(ln,m)%R_Clear = RTSolution_Clear%Radiance + RTSolution(ln,m)%Tb_Clear = ZERO ! No Tb for visible + + ! ADJOINT #2: Of the cloud cover and clear radiance saving + RTSolution_Clear_K%Tb_Clear = ZERO ! No Tb for visible + RTSolution_Clear_K%Radiance = RTSolution_Clear_K%Radiance + & + RTSolution_K(ln,m)%R_Clear + RTSolution_K(ln,m)%R_Clear = ZERO + CloudCover_K%Total_Cloud_Cover = CloudCover_K%Total_Cloud_Cover + & + RTSolution_K(ln,m)%Total_Cloud_Cover + RTSolution_K(ln,m)%Total_Cloud_Cover = ZERO + + ! ADJOINT #1: Of the clear+cloudy combination + RTSolution_Clear_K%Radiance = RTSolution_Clear_K%Radiance + & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_K(ln,m)%Radiance) + CloudCover_K%Total_Cloud_Cover = CloudCover_K%Total_Cloud_Cover + & + ((r_cloudy - RTSolution_Clear%Radiance) * RTSolution_K(ln,m)%Radiance) + RTSolution_K(ln,m)%Radiance = CloudCover%Total_Cloud_Cover * RTSolution_K(ln,m)%Radiance + END IF + + + ! Adjoint Fourier expansion over azimuth angle + Azimuth_Fourier_Loop_K: DO mth_Azi = 0, RTV%n_Azi + + ! Set dependent component counters + RTV%mth_Azi = mth_Azi + SfcOptics%mth_Azi = mth_Azi + + + ! The adjoint of the clear sky radiative transfer for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%mth_Azi = RTV%mth_Azi + SfcOptics_Clear%mth_Azi = SfcOptics%mth_Azi + Error_Status = CRTM_Compute_RTSolution_AD( & + Atm_Clear , & ! FWD Input + Surface(m) , & ! FWD Input + AtmOptics_Clear , & ! FWD Input + SfcOptics_Clear , & ! FWD Input + RTSolution_Clear , & ! FWD Input + RTSolution_Clear_K, & ! AD Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + Atm_Clear_K , & ! AD Output + Surface_K(ln,m) , & ! AD Output + AtmOptics_Clear_K , & ! AD Output + SfcOptics_Clear_K , & ! AD Output + RTV_Clear ) ! Internal variable input + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution_AD for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + + ! The adjoint of the radiative transfer Error_Status = CRTM_Compute_RTSolution_AD( & Atm , & ! FWD Input @@ -1031,14 +1269,7 @@ FUNCTION CRTM_K_Matrix( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - END DO Azimuth_Fourier_Loop - - ! Still want to convert the final FORWARD radiance to brightness temperature - CALL CRTM_Planck_Temperature( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution(ln,m)%Brightness_Temperature ) ! Output + END DO Azimuth_Fourier_Loop_K END IF Sensor_Dependent_RTSolution ! ################################################### @@ -1046,9 +1277,25 @@ FUNCTION CRTM_K_Matrix( & ! ################################################### + ! Compute the adjoint of the all-sky atmospheric transmittance + ! for use in FASTEM-X reflection correction + transmittance_K = SfcOptics_K%transmittance + SfcOptics_K%transmittance = ZERO + CALL CRTM_Compute_Transmittance_AD(AtmOptics,transmittance_K,AtmOptics_K) + ! ...Clear sky for fractional cloud cover + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + transmittance_clear_K = SfcOptics_Clear_K%transmittance + SfcOptics_Clear_K%transmittance = ZERO + CALL CRTM_Compute_Transmittance_AD(AtmOptics_Clear,transmittance_clear_K,AtmOptics_Clear_K) + END IF + + ! Compute the adjoint of the combined atmospheric optical properties + AtmOptics_K%Scattering_Optical_Depth = AtmOptics_K%Scattering_Optical_Depth + & + RTSolution_K(ln,m)%SOD + RTSolution_K(ln,m)%SOD = ZERO IF( AtmOptics%Include_Scattering ) THEN - CALL CRTM_Combine_AtmOptics_AD( AtmOptics, AtmOptics_K, AOvar ) + CALL CRTM_AtmOptics_Combine_AD( AtmOptics, AtmOptics_K, AOvar ) END IF @@ -1090,6 +1337,19 @@ FUNCTION CRTM_K_Matrix( & END IF + ! Adjoint of clear-sky AtmOptics copy + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + Error_Status = CRTM_AtmOptics_NoScatterCopy_AD( AtmOptics, AtmOptics_Clear_K, AtmOptics_K ) + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'("Error computing CLEAR SKY AtmOptics_K for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + + ! Compute the adjoint molecular scattering properties IF( RTV%Visible_Flag_true ) THEN Wavenumber = SC(SensorIndex)%Wavenumber(ChannelIndex) @@ -1109,14 +1369,6 @@ FUNCTION CRTM_K_Matrix( & END IF - ! Compute the adjoint of the total atmospheric transmittance - IF ( CRTM_No_Scattering(AtmOptics) .AND. SpcCoeff_IsMicrowaveSensor(SC(SensorIndex)) ) THEN - transmittance_K = SfcOptics_K%transmittance - SfcOptics_K%transmittance = ZERO - CALL CRTM_Compute_Transmittance_AD(AtmOptics,transmittance_K,AtmOptics_K) - END IF - - ! Compute the adjoint gaseous absorption CALL CRTM_Compute_AtmAbsorption_AD( SensorIndex , & ! Input ChannelIndex, & ! Input @@ -1133,7 +1385,7 @@ FUNCTION CRTM_K_Matrix( & ! K-matrix of the NLTE correction predictor calculations - IF ( Apply_NLTE_Correction ) THEN + IF ( Opt%Apply_NLTE_Correction ) THEN CALL Compute_NLTE_Predictor_AD( & NLTE_Predictor , & ! Input NLTE_Predictor_K , & ! Input @@ -1151,44 +1403,167 @@ FUNCTION CRTM_K_Matrix( & PVar ) ! Internal variable input - ! Postprocess some input data - ! ...K-matrix of average surface skin temperature for multi-surface types + ! K-matrix of average surface skin temperature for multi-surface types CALL CRTM_Compute_SurfaceT_AD( Surface(m), SfcOptics_K, Surface_K(ln,m) ) - ! ...K-matrix of the atmosphere layer addition + + + ! Adjoint of cloud cover setup + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! Post process the CLEAR sky structures for fractional cloud coverage + ! ...Clear sky SfcOptics + CALL CRTM_Compute_SurfaceT_AD( Surface(m), SfcOptics_Clear_K, Surface_K(ln,m) ) + CALL CRTM_SfcOptics_Zero(SfcOptics_Clear_K) + ! ...Clear sky atmosphere + Error_Status = CRTM_Atmosphere_ClearSkyCopy_AD(Atm, Atm_Clear_K, Atm_K) + IF ( Error_Status /= SUCCESS ) THEN + Error_status = FAILURE + WRITE( Message,'("Error computing CLEAR SKY Atm_K object for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), & + ChannelInfo(n)%Sensor_Channel(l), & + m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + + ! K-matrix of the cloud coverage + Error_Status = CloudCover_K%Compute_CloudCover_AD(CloudCover, atm, atm_K) + IF ( Error_Status /= SUCCESS ) THEN + Error_Status = FAILURE + WRITE( Message,'("Error computing K-MATRIX cloud cover for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), & + ChannelInfo(n)%Sensor_Channel(l), & + m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + + + ! K-matrix of the atmosphere layer addition Error_Status = CRTM_Atmosphere_AddLayers_AD( Atmosphere(m), Atm_K, Atmosphere_K(ln,m) ) IF ( Error_Status /= SUCCESS ) THEN Error_Status = FAILURE - WRITE( Message,'("Error adding AD extra layers to profile #",i0)' ) m + WRITE( Message,'("Error computing K-MATRIX atmosphere extra layers for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), & + ChannelInfo(n)%Sensor_Channel(l), & + m CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - + END DO Channel_Loop - - ! Deallocate local sensor dependent data structures - ! ...RTV structure - IF ( RTV_Associated(RTV) ) CALL RTV_Destroy(RTV) - ! ...Predictor structures - CALL CRTM_Predictor_Destroy( Predictor ) - CALL CRTM_Predictor_Destroy( Predictor_K ) - END DO Sensor_Loop - - ! Deallocate local sensor independent data structures - ! ...Atmospheric optics - CALL CRTM_AtmOptics_Destroy( AtmOptics ) - CALL CRTM_AtmOptics_Destroy( AtmOptics_K ) - END DO Profile_Loop - ! Destroy any remaining structures + ! Clean up + CALL CRTM_Predictor_Destroy( Predictor ) + CALL CRTM_Predictor_Destroy( Predictor_K ) + CALL CRTM_AtmOptics_Destroy( AtmOptics ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_K ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_Clear ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_Clear_K ) CALL CRTM_SfcOptics_Destroy( SfcOptics ) CALL CRTM_SfcOptics_Destroy( SfcOptics_K ) - CALL CRTM_Atmosphere_Destroy( Atm_K ) + CALL CRTM_SfcOptics_Destroy( SfcOptics_Clear ) + CALL CRTM_SfcOptics_Destroy( SfcOptics_Clear_K ) CALL CRTM_Atmosphere_Destroy( Atm ) + CALL CRTM_Atmosphere_Destroy( Atm_K ) + CALL CRTM_Atmosphere_Destroy( Atm_Clear ) + CALL CRTM_Atmosphere_Destroy( Atm_Clear_K ) + ! ...Internal variables + CALL AOvar_Destroy( AOvar ) + CALL CSvar_Destroy( CSvar ) + CALL ASvar_Destroy( ASvar ) + CALL RTV_Destroy( RTV ) + + + +CONTAINS + + + ! ---------------------------------------------------------------- + ! Local subroutine to post-process the FORWARD radiance, as it is + ! the same for all-sky and fractional clear-sky cases. + ! + ! 1. Apply non-LTE correction to radiance + ! 2. Convert radiance to brightness temperature + ! 3. Apply antenna correction to brightness temperature + ! ---------------------------------------------------------------- + + SUBROUTINE Post_Process_RTSolution(rts) + TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: rts + + ! Compute non-LTE correction to radiance if required + IF ( Opt%Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN + CALL Compute_NLTE_Correction( & + SC(SensorIndex)%NC, & ! Input + ChannelIndex , & ! Input + NLTE_Predictor , & ! Input + rts%Radiance ) ! In/Output + END IF + ! Convert the radiance to brightness temperature + CALL CRTM_Planck_Temperature( & + SensorIndex , & ! Input + ChannelIndex , & ! Input + rts%Radiance , & ! Input + rts%Brightness_Temperature ) ! Output + ! Compute Antenna correction to brightness temperature if required + IF ( compute_antenna_correction ) THEN + CALL CRTM_Compute_AntCorr( & + GeometryInfo, & ! Input + SensorIndex , & ! Input + ChannelIndex, & ! Input + rts ) ! Output + END IF + + END SUBROUTINE Post_Process_RTSolution + + + ! ---------------------------------------------------------------- + ! Local subroutine to pre-process the K-MATRIX radiance, as it is + ! the same for all-sky and fractional clear-sky cases. + ! + ! 1. Apply adjoint antenna correction to brightness temperatures + ! 2. Convert adjoint radiances to brightness temperatures + ! 3. Apply adjoint non-LTE correction to radiances + ! ---------------------------------------------------------------- + + SUBROUTINE Pre_Process_RTSolution_K(rts, rts_K) + TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: rts, rts_K + + ! Compute adjoint antenna correction to brightness temperature if required + IF ( compute_antenna_correction ) THEN + CALL CRTM_Compute_AntCorr_AD( & + GeometryInfo, & ! Input + SensorIndex , & ! Input + ChannelIndex, & ! Input + rts_K ) ! Output + END IF + ! Compute the Planck temperature adjoint + CALL CRTM_Planck_Temperature_AD( & + SensorIndex , & ! Input + ChannelIndex , & ! Input + rts%Radiance , & ! Input + rts_K%Brightness_Temperature, & ! Input + rts_K%Radiance ) ! Output + rts_K%Brightness_Temperature = ZERO + ! Compute non-LTE correction adjoint if required + IF ( Opt%Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN + CALL Compute_NLTE_Correction_AD( & + SC(SensorIndex)%NC, & ! Input + ChannelIndex , & ! Input + rts_K%Radiance , & ! Input + NLTE_Predictor_K ) ! Output + END IF + + END SUBROUTINE Pre_Process_RTSolution_K END FUNCTION CRTM_K_Matrix diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_LifeCycle.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_LifeCycle.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_LifeCycle.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_LifeCycle.f90 index 1c6bb60240..a580a44598 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_LifeCycle.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_LifeCycle.f90 @@ -76,7 +76,7 @@ MODULE CRTM_LifeCycle ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_LifeCycle.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_LifeCycle.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! String lengths INTEGER, PARAMETER :: ML = 256 ! Error message length INTEGER, PARAMETER :: SL = 5000 ! Maximum length for path+filenames diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_LowFrequency_MWSSEM.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_LowFrequency_MWSSEM.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_LowFrequency_MWSSEM.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_LowFrequency_MWSSEM.f90 index 190c8cce72..0dc24d5234 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_LowFrequency_MWSSEM.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_LowFrequency_MWSSEM.f90 @@ -68,7 +68,7 @@ MODULE CRTM_LowFrequency_MWSSEM ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: CRTM_LowFrequency_MWSSEM.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_LowFrequency_MWSSEM.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Various quantities REAL(fp), PARAMETER :: LOW_F_THRESHOLD = 20.0_fp ! Frequency threshold for permittivity models(GHz) diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Ice_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Ice_SfcOptics.f90 similarity index 93% rename from var/external/crtm_2.2.3/libsrc/CRTM_MW_Ice_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_MW_Ice_SfcOptics.f90 index abb789325d..609939d1ed 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Ice_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Ice_SfcOptics.f90 @@ -38,13 +38,16 @@ MODULE CRTM_MW_Ice_SfcOptics WMO_SSMI , & WMO_MSU , & WMO_MHS , & - WMO_SSMIS + WMO_SSMIS, & + WMO_ATMS USE NESDIS_AMSU_SICEEM_Module, ONLY: NESDIS_ICEEM_AMSU USE NESDIS_AMSRE_SICEEM_Module, ONLY: NESDIS_AMSRE_SSICEEM USE NESDIS_SSMI_SICEEM_Module, ONLY: NESDIS_SSMI_SIceEM USE NESDIS_SEAICE_PHYEM_Module, ONLY: NESDIS_SIce_Phy_EM USE NESDIS_MHS_SICEEM_Module, ONLY: NESDIS_ICEEM_MHS USE NESDIS_SSMIS_SeaIceEM_Module, ONLY: NESDIS_SSMIS_IceEM + USE NESDIS_ATMS_SeaICE_Module, ONLY: NESDIS_ATMS_SeaICE + ! Disable implicit typing IMPLICIT NONE @@ -66,7 +69,7 @@ MODULE CRTM_MW_Ice_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_MW_Ice_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_MW_Ice_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! -------------------------------------- @@ -185,6 +188,7 @@ FUNCTION Compute_MW_Ice_SfcOptics( & INTEGER, PARAMETER :: AMSRE_H_INDEX(6) = (/2, 4, 6, 8, 10, 12/) ! AMSRE channels with H pol. INTEGER, PARAMETER :: AMSUA_INDEX(4) = (/1, 2, 3, 15/) INTEGER, PARAMETER :: SSMIS_INDEX(8) = (/13,12,14,16,15,17,18,8/) ! With swapped polarisations + INTEGER, PARAMETER :: ATMS_INDEX(5) = (/1, 2, 3, 16,17/) ! With mixed polarisations ! Local variables INTEGER :: i REAL(fp) :: Sensor_Zenith_Angle @@ -197,6 +201,18 @@ FUNCTION Compute_MW_Ice_SfcOptics( & ! Compute the surface emissivities Sensor_Type: SELECT CASE( Surface%SensorData%WMO_Sensor_ID ) + ! ATMSemissivity model + CASE( WMO_ATMS ) + DO i = 1, SfcOptics%n_Angles + CALL NESDIS_ATMS_SeaICE( Sensor_Zenith_Angle, & ! Input, Degree + SfcOptics%Angle(i), & ! Input, Degree + SC(SensorIndex)%Frequency(ChannelIndex), & ! Input, GHz + Surface%Ice_Temperature, & ! Input, K + Surface%SensorData%Tb(ATMS_INDEX), & ! Input, ATMS + SfcOptics%Emissivity(i,2), & ! Output, H component + SfcOptics%Emissivity(i,1) ) ! Output, V component + END DO + ! AMSU-A emissivity model CASE( WMO_AMSUA ) diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Land_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Land_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_MW_Land_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_MW_Land_SfcOptics.f90 index 92bb3590ce..077a3cd863 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Land_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Land_SfcOptics.f90 @@ -50,7 +50,7 @@ MODULE CRTM_MW_Land_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_MW_Land_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_MW_Land_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message length INTEGER, PARAMETER :: ML = 256 ! Valid type indices for the microwave land emissivity model diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Snow_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Snow_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_MW_Snow_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_MW_Snow_SfcOptics.f90 index 343d5db81d..3816deb703 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Snow_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Snow_SfcOptics.f90 @@ -69,7 +69,7 @@ MODULE CRTM_MW_Snow_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_MW_Snow_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_MW_Snow_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! -------------------------------------- diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Water_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Water_SfcOptics.f90 similarity index 97% rename from var/external/crtm_2.2.3/libsrc/CRTM_MW_Water_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_MW_Water_SfcOptics.f90 index 2be7baed00..bd2f0d20df 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_MW_Water_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_MW_Water_SfcOptics.f90 @@ -64,7 +64,7 @@ MODULE CRTM_MW_Water_SfcOptics ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_MW_Water_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_MW_Water_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Low frequency model threshold REAL(fp), PARAMETER :: LOW_F_THRESHOLD = 20.0_fp ! GHz @@ -76,9 +76,9 @@ MODULE CRTM_MW_Water_SfcOptics TYPE :: iVar_type PRIVATE ! FastemX model internal variable structure - TYPE(FastemX_type) :: FastemX_Var + TYPE(FastemX_type), DIMENSION(MAX_N_ANGLES) :: FastemX_Var ! Low frequency model internal variable structure - TYPE(LF_MWSSEM_type) :: LF_MWSSEM_Var + TYPE(LF_MWSSEM_type), DIMENSION(MAX_N_ANGLES) :: LF_MWSSEM_Var ! Fastem outputs REAL(fp), DIMENSION(MAX_N_ANGLES) :: dEH_dTs = ZERO REAL(fp), DIMENSION(MAX_N_ANGLES) :: dEH_dWindSpeed = ZERO @@ -193,7 +193,7 @@ FUNCTION Compute_MW_Water_SfcOptics( & INTEGER, INTENT(IN) :: SensorIndex INTEGER, INTENT(IN) :: ChannelIndex TYPE(CRTM_SfcOptics_type), INTENT(IN OUT) :: SfcOptics - TYPE(iVar_type), INTENT(IN OUT) :: iVar + TYPE(iVar_type), INTENT(OUT) :: iVar ! Function result INTEGER :: err_stat ! Local parameters @@ -225,11 +225,12 @@ FUNCTION Compute_MW_Water_SfcOptics( & CALL Compute_FastemX( & MWwaterC , & ! Input model coefficients Frequency , & ! Input + SfcOptics%n_Angles , & ! Input SfcOptics%Angle(i) , & ! Input Surface%Water_Temperature , & ! Input Surface%Salinity , & ! Input Surface%Wind_Speed , & ! Input - iVar%FastemX_Var , & ! Internal variable output + iVar%FastemX_Var(i) , & ! Internal variable output SfcOptics%Emissivity(i,:) , & ! Output Reflectivity , & ! Output Azimuth_Angle = SfcOptics%Azimuth_Angle, & ! Optional input @@ -252,7 +253,7 @@ FUNCTION Compute_MW_Water_SfcOptics( & Surface%Salinity , & ! Input Surface%Wind_Speed , & ! Input SfcOptics%Emissivity(i,:), & ! Output - iVar%LF_MWSSEM_Var ) ! Internal variable output + iVar%LF_MWSSEM_Var(i) ) ! Internal variable output SfcOptics%Reflectivity(i,1,i,1) = ONE-SfcOptics%Emissivity(i,1) SfcOptics%Reflectivity(i,2,i,2) = ONE-SfcOptics%Emissivity(i,2) END DO @@ -431,12 +432,14 @@ FUNCTION Compute_MW_Water_SfcOptics_TL( & Surface_TL%Water_Temperature , & ! TL Input Surface_TL%Salinity , & ! TL Input Surface_TL%Wind_Speed , & ! TL Input - iVar%FastemX_Var , & ! Internal variable input + iVar%FastemX_Var(i) , & ! Internal variable input SfcOptics_TL%Emissivity(i,:) , & ! TL Output Reflectivity_TL , & ! TL Output Azimuth_Angle_TL = Surface_TL%Wind_Direction, & ! Optional TL input Transmittance_TL = SfcOptics_TL%Transmittance ) ! Optional TL input DO j = 1, N_STOKES + !we probably need further low-level check and modifications + !SfcOptics_TL%Reflectivity(i,j,i,j) = -Reflectivity_TL(j) SfcOptics_TL%Reflectivity(i,j,i,j) = Reflectivity_TL(j) END DO END DO @@ -452,7 +455,7 @@ FUNCTION Compute_MW_Water_SfcOptics_TL( & Surface_TL%Salinity , & ! TL Input Surface_TL%Wind_Speed , & ! TL Input SfcOptics_TL%Emissivity(i,:), & ! TL Output - iVar%LF_MWSSEM_Var ) ! Internal variable input + iVar%LF_MWSSEM_Var(i) ) ! Internal variable input SfcOptics_TL%Reflectivity(i,1,i,1) = -SfcOptics_TL%Emissivity(i,1) SfcOptics_TL%Reflectivity(i,2,i,2) = -SfcOptics_TL%Emissivity(i,2) END DO @@ -632,7 +635,7 @@ FUNCTION Compute_MW_Water_SfcOptics_AD( & MWwaterC , & ! Input model coefficients SfcOptics_AD%Emissivity(i,:) , & ! AD Input Reflectivity_ad , & ! AD Input - iVar%FastemX_Var , & ! Internal variable input + iVar%FastemX_Var(i) , & ! Internal variable input Surface_AD%Water_Temperature , & ! AD Output Surface_AD%Salinity , & ! AD Output Surface_AD%Wind_Speed , & ! AD Output @@ -654,7 +657,7 @@ FUNCTION Compute_MW_Water_SfcOptics_AD( & Surface_AD%Water_Temperature, & ! AD Output Surface_AD%Salinity , & ! AD Output Surface_AD%Wind_Speed , & ! AD Output - iVar%LF_MWSSEM_Var ) ! Internal variable input + iVar%LF_MWSSEM_Var(i) ) ! Internal variable input END DO ELSE ! Call Fastem1 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_MWwaterCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_MWwaterCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_MWwaterCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_MWwaterCoeff.f90 index eea76ec9ed..ac07eb7cbf 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_MWwaterCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_MWwaterCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_MWwaterCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_MWwaterCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_MWwaterCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Model_Profiles.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Model_Profiles.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_Model_Profiles.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Model_Profiles.f90 index f1d808dbf0..1fb0238071 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Model_Profiles.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Model_Profiles.f90 @@ -47,7 +47,7 @@ MODULE CRTM_Model_Profiles ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: CRTM_Model_Profiles.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Model_Profiles.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Model dimension info INTEGER, PARAMETER :: N_MODEL_LEVELS = 101 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Module.fpp b/var/external/crtm_2.3.0/libsrc/CRTM_Module.fpp similarity index 95% rename from var/external/crtm_2.2.3/libsrc/CRTM_Module.fpp rename to var/external/crtm_2.3.0/libsrc/CRTM_Module.fpp index 664aeff0af..c6be595269 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Module.fpp +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Module.fpp @@ -45,7 +45,7 @@ MODULE CRTM_Module ! Module parameters ! ----------------- CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Module.fpp 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Module.fpp 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CHARACTER(*), PRIVATE, PARAMETER :: CRTM_VERSION_ID = & #include "CRTM_Version.inc" diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_MoleculeScatter.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_MoleculeScatter.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_MoleculeScatter.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_MoleculeScatter.f90 index e6706166f8..23d8747ab2 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_MoleculeScatter.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_MoleculeScatter.f90 @@ -38,7 +38,7 @@ MODULE CRTM_MoleculeScatter ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: CRTM_MoleculeScatter.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_MoleculeScatter.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Rayleigh factor REAL(fp), PARAMETER :: RFACTOR = 27.0363_fp ! = 287.0/9.8*923.1907/1000.0 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_NLTECorrection.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_NLTECorrection.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_NLTECorrection.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_NLTECorrection.f90 index 64ed4bf905..eeaf58034a 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_NLTECorrection.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_NLTECorrection.f90 @@ -52,7 +52,7 @@ MODULE CRTM_NLTECorrection ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_NLTECorrection.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_NLTECorrection.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Options_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Options_Define.f90 similarity index 67% rename from var/external/crtm_2.2.3/libsrc/CRTM_Options_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Options_Define.f90 index ee3b4141d7..9775512406 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Options_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Options_Define.f90 @@ -25,7 +25,8 @@ MODULE CRTM_Options_Define ReadGAtts_Binary_File , & WriteLogical_Binary_File, & ReadLogical_Binary_File - USE CRTM_Parameters , ONLY: RT_ADA + USE CRTM_Parameters , ONLY: RT_ADA, RT_SOI, & + MAX_N_STREAMS USE SSU_Input_Define , ONLY: SSU_Input_type, & OPERATOR(==), & SSU_Input_IsValid, & @@ -42,6 +43,14 @@ MODULE CRTM_Options_Define Zeeman_Input_SetValue, & Zeeman_Input_ReadFile, & Zeeman_Input_WriteFile + USE CRTM_CloudCover_Define, ONLY: DEFAULT_OVERLAP_ID, & + CloudCover_Maximum_Overlap, & + CloudCover_Random_Overlap , & + CloudCover_MaxRan_Overlap , & + CloudCover_Average_Overlap, & + CloudCover_Overcast_Overlap, & + CloudCover_Overlap_IsValid, & + CloudCover_Overlap_Name ! Disable implicit typing IMPLICIT NONE @@ -53,6 +62,9 @@ MODULE CRTM_Options_Define PRIVATE ! Datatypes PUBLIC :: CRTM_Options_type + ! ...Inherited types + PUBLIC :: SSU_Input_type + PUBLIC :: Zeeman_Input_type ! Operators PUBLIC :: OPERATOR(==) ! Public procedures @@ -62,20 +74,27 @@ MODULE CRTM_Options_Define PUBLIC :: CRTM_Options_IsValid PUBLIC :: CRTM_Options_Inspect PUBLIC :: CRTM_Options_DefineVersion + PUBLIC :: CRTM_Options_SetValue + PUBLIC :: CRTM_Options_SetEmissivity PUBLIC :: CRTM_Options_InquireFile PUBLIC :: CRTM_Options_ReadFile PUBLIC :: CRTM_Options_WriteFile ! ...Inherited procedures PUBLIC :: SSU_Input_GetValue PUBLIC :: SSU_Input_SetValue + PUBLIC :: Zeeman_Input_GetValue PUBLIC :: Zeeman_Input_SetValue - ! ------------------- ! Procedure overloads ! ------------------- + INTERFACE CRTM_Options_SetEmissivity + MODULE PROCEDURE SetEmissivity_scalar + MODULE PROCEDURE SetEmissivity_rank1 + END INTERFACE CRTM_Options_SetEmissivity + INTERFACE OPERATOR(==) MODULE PROCEDURE CRTM_Options_Equal END INTERFACE OPERATOR(==) @@ -85,7 +104,7 @@ MODULE CRTM_Options_Define ! Module parameters ! ----------------- CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Options_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Options_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(Double), PARAMETER :: ZERO = 0.0_Double REAL(Double), PARAMETER :: ONE = 1.0_Double @@ -133,6 +152,9 @@ MODULE CRTM_Options_Define ! Cloud/Aerosol scattering to be included. LOGICAL :: Include_Scattering = .TRUE. + ! Cloud cover overlap id is set to averaging type by default + INTEGER(Long) :: Overlap_Id = DEFAULT_OVERLAP_ID + ! User defined emissivity/reflectivity ! ...Dimensions INTEGER(Long) :: n_Channels = 0 ! L dimension @@ -150,6 +172,7 @@ MODULE CRTM_Options_Define ! Zeeman-splitting input TYPE(Zeeman_Input_type) :: Zeeman + END TYPE CRTM_Options_type !:tdoc-: @@ -165,6 +188,378 @@ MODULE CRTM_Options_Define !################################################################################ !################################################################################ +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Options_SetValue +! +! PURPOSE: +! Elemental subroutine to set the values of the non-dimensional, +! non-contained-object CRTM_Options object components. +! +! CALLING SEQUENCE: +! CALL CRTM_Options_SetValue( & +! Options , & +! Check_Input = Check_Input , & +! Use_Old_MWSSEM = Use_Old_MWSSEM , & +! Use_Antenna_Correction = Use_Antenna_Correction , & +! Apply_NLTE_Correction = Apply_NLTE_Correction , & +! Set_ADA_RT = Set_ADA_RT , & +! Set_SOI_RT = Set_SOI_RT , & +! Include_Scattering = Include_Scattering , & +! Set_Maximum_Overlap = Set_Maximum_Overlap , & +! Set_Random_Overlap = Set_Random_Overlap , & +! Set_MaxRan_Overlap = Set_MaxRan_Overlap , & +! Set_Average_Overlap = Set_Average_Overlap , & +! Set_Overcast_Overlap = Set_Overcast_Overlap , & +! Use_Emissivity = Use_Emissivity , & +! Use_Direct_Reflectivity = Use_Direct_Reflectivity, & +! n_Streams = n_Streams , & +! Aircraft_Pressure = Aircraft_Pressure ) +! +! OBJECTS: +! Options: Options object for which the indicated component +! values are to be set. +! UNITS: N/A +! TYPE: CRTM_Options_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN OUT) +! +! OPTIONAL INPUTS: +! Check_Input: Set this logical argument to control checking of +! the CRTM input data. +! If == .TRUE. , the CRTM input data is checked [DEFAULT] +! == .FALSE., no input data checking is done. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Use_Old_MWSSEM: Set this logical argument to invoke the previous version +! of the microwave sea surface emissivity model. +! If == .TRUE. , the old model is used. +! == .FALSE., the current model is used [DEFAULT] +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Use_Antenna_Correction: Set this logical argument to apply an antenna correction +! to the computed brightness temperatures for certain +! microwave instruments (AMSU-A/B, MHS) +! If == .TRUE. , antenna correction is applied +! == .FALSE., no correction is applied [DEFAULT] +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Apply_NLTE_Correction: Set this logical argument to apply an non-LTE correction +! to shortwave infrared radiances. +! If == .TRUE. , non-LTE correction is applied [DEFAULT] +! == .FALSE., no correction is applied +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Set_ADA_RT: +! Set_SOI_RT: Set this logical argument to use the specified algorithm +! for scattering radiative transfer. +! If == .TRUE. , the corresponding RT algorithm is used. +! Note: - By default, the ADA algorithm is used. +! - If MORE THAN ONE argument is specified, the +! the default ADA algorithm is used. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Include_Scattering: Set this logical argument to control the inclusion of +! cloud and aerosol scattering in the radiative transfer. +! If == .TRUE. , scattering calculations are performed [DEFAULT] +! == .FALSE., only cloud/aerosol absorption is considered. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Set_Maximum_Overlap: +! Set_Random_Overlap: +! Set_MaxRan_Overlap: +! Set_Average_Overlap: Use these logical arguments to set the cloud overlap +! methodology for fractionally cloudy input profiles. +! If == .TRUE. , the corresponding overlap method is used. +! Note: - By default, the average overlap method is used. +! - If MORE THAN ONE overlap argument is specified, +! the default overlap method is used. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Use_Emissivity: Set this logical argument to control the use of the emissivity +! spectrum included in the object. +! If == .TRUE. , use the included emissivity spectrum +! == .FALSE., let the CRTM compute the emissivity spectrum +! Note: - This argument is ignored if the object does not +! contain any emissivity data +! - See the CRTM_Options_SetEmissivity() procedure for +! loading emissivity data into an Options object. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Use_Direct_Reflectivity: Set this logical argument to control the use of the direct +! reflectivity spectrum included in the object. +! If == .TRUE. , use the included direct reflectivity spectrum +! == .FALSE., let the CRTM compute the direct reflectivity spectrum +! Note: - This argument is ignored if the object does not +! contain any direct reflectivity data +! - See the CRTM_Options_SetEmissivity() procedure for +! loading direct relfectivity data into an Options object. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! n_Streams: Set this integer argument to the number of streams (up + down) +! to use in the radiative transfer solver for scattering +! atmospheres. +! By default, a channel-specific value is selected based +! on the Mie parameter. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Aircraft_Pressure: Set this real argument to aircraft pressure level to use +! for an aircraft instrument simulation. +! Note: This option has not been rigorously tested. +! UNITS: hPa +! TYPE: REAL(fp) +! DIMENSION: Conformable with Options object +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL SUBROUTINE CRTM_Options_SetValue( & + self , & + Check_Input , & + Use_Old_MWSSEM , & + Use_Antenna_Correction , & + Apply_NLTE_Correction , & + Set_ADA_RT , & + Set_SOI_RT , & + Include_Scattering , & + Set_Maximum_Overlap , & + Set_Random_Overlap , & + Set_MaxRan_Overlap , & + Set_Average_Overlap , & + Set_Overcast_Overlap , & + Use_Emissivity , & + Use_Direct_Reflectivity, & + n_Streams , & + Aircraft_Pressure ) + ! Arguments + TYPE(CRTM_Options_type), INTENT(IN OUT) :: self + LOGICAL , OPTIONAL, INTENT(IN) :: Check_Input + LOGICAL , OPTIONAL, INTENT(IN) :: Use_Old_MWSSEM + LOGICAL , OPTIONAL, INTENT(IN) :: Use_Antenna_Correction + LOGICAL , OPTIONAL, INTENT(IN) :: Apply_NLTE_Correction + LOGICAL , OPTIONAL, INTENT(IN) :: Set_ADA_RT + LOGICAL , OPTIONAL, INTENT(IN) :: Set_SOI_RT + LOGICAL , OPTIONAL, INTENT(IN) :: Include_Scattering + LOGICAL , OPTIONAL, INTENT(IN) :: Set_Maximum_Overlap + LOGICAL , OPTIONAL, INTENT(IN) :: Set_Random_Overlap + LOGICAL , OPTIONAL, INTENT(IN) :: Set_MaxRan_Overlap + LOGICAL , OPTIONAL, INTENT(IN) :: Set_Average_Overlap + LOGICAL , OPTIONAL, INTENT(IN) :: Set_Overcast_Overlap + LOGICAL , OPTIONAL, INTENT(IN) :: Use_Emissivity + LOGICAL , OPTIONAL, INTENT(IN) :: Use_Direct_Reflectivity + INTEGER , OPTIONAL, INTENT(IN) :: n_Streams + REAL(fp), OPTIONAL, INTENT(IN) :: Aircraft_Pressure + + ! Set the "direct copy" components + IF ( PRESENT(Check_Input ) ) self%Check_Input = Check_Input + IF ( PRESENT(Use_Old_MWSSEM ) ) self%Use_Old_MWSSEM = Use_Old_MWSSEM + IF ( PRESENT(Use_Antenna_Correction) ) self%Use_Antenna_Correction = Use_Antenna_Correction + IF ( PRESENT(Apply_NLTE_Correction ) ) self%Apply_NLTE_Correction = Apply_NLTE_Correction + IF ( PRESENT(Include_Scattering ) ) self%Include_Scattering = Include_Scattering + IF ( PRESENT(Aircraft_Pressure ) ) self%Aircraft_Pressure = Aircraft_Pressure + + ! Set the "minimal processing" components + IF ( PRESENT(n_Streams) ) THEN + self%Use_n_Streams = .TRUE. + self%n_Streams = n_Streams + END IF + + ! Only one RT algorithm allowed! + IF ( COUNT([PRESENT(Set_ADA_RT), PRESENT(Set_SOI_RT)]) > 1 ) THEN + self%RT_Algorithm_Id = RT_ADA + ELSE + IF ( PRESENT(Set_ADA_RT) ) self%RT_Algorithm_Id = RT_ADA + IF ( PRESENT(Set_SOI_RT) ) self%RT_Algorithm_Id = RT_SOI + END IF + + ! Only one overlap option allowed! + IF ( COUNT([PRESENT(Set_Maximum_Overlap), PRESENT(Set_Random_Overlap ), & + PRESENT(Set_MaxRan_Overlap ), PRESENT(Set_Average_Overlap), & + PRESENT(Set_Overcast_Overlap) ]) > 1 ) THEN + self%Overlap_Id = DEFAULT_OVERLAP_ID + ELSE + IF ( PRESENT(Set_Maximum_Overlap) ) self%Overlap_Id = CloudCover_Maximum_Overlap() + IF ( PRESENT(Set_Random_Overlap ) ) self%Overlap_Id = CloudCover_Random_Overlap() + IF ( PRESENT(Set_MaxRan_Overlap ) ) self%Overlap_Id = CloudCover_MaxRan_Overlap() + IF ( PRESENT(Set_Average_Overlap) ) self%Overlap_Id = CloudCover_Average_Overlap() + IF ( PRESENT(Set_Overcast_Overlap)) self%Overlap_Id = CloudCover_Overcast_Overlap() + END IF + + ! The emissivity and reflectivity spectra + IF ( PRESENT(Use_Emissivity) ) & + self%Use_Emissivity = Use_Emissivity .AND. self%Is_Allocated + + IF ( PRESENT(Use_Direct_Reflectivity) ) & + self%Use_Direct_Reflectivity = Use_Direct_Reflectivity .AND. self%Is_Allocated + + END SUBROUTINE CRTM_Options_SetValue + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Options_SetEmissivity +! +! PURPOSE: +! Subroutine to set the values of the emissivity and direct reflectivity +! spectra in a CRTM_Options object. +! +! This procedure also sets the usage flags for the emissivity and direct +! reflectivity after successful assignment. See also the CRTM_Options_SetValue() +! procedure. +! +! CALLING SEQUENCE: +! CALL CRTM_Options_SetEmissivity( & +! Options , & +! Emissivity , & +! Direct_Reflectivity = Direct_Reflectivity ) +! +! OBJECTS: +! Options: Options object for which the emissivity and +! direct reflectivity are to be set. +! values are to be set. +! UNITS: N/A +! TYPE: CRTM_Options_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Emissivity: Emissivity scalar value or spectrum array. +! If SCALAR: - The Options object MUST already be allocated. +! - The scalar value is applied to every element +! of the object emissivity array. +! RANK-1: - The object emissivity array is (re)allocated +! as necessary. +! UNITS: N/A +! TYPE: REAL(fp) +! DIMENSION: Scalar or Rank-1 +! ATTRIBUTES: INTENT(IN) +! +! OPTIONAL INPUTS: +! Direct_Reflectivity: Direct reflectivity scalar value or spectrum array. +! If SCALAR: - The Options object MUST already be allocated. +! - The scalar value is applied to every element +! of the object direct reflectivity array. +! RANK-1: - The array size must be the same as the +! input emissivity array. If not, the +! object direct reflectivity array is +! (re)allocated and set to zero. +! UNITS: N/A +! TYPE: REAL(fp) +! DIMENSION: Same as Emissivity argument +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE SetEmissivity_scalar( & + self , & + Emissivity, & + Direct_Reflectivity) + ! Arguments + TYPE(CRTM_Options_type), INTENT(IN OUT) :: self + REAL(fp), INTENT(IN) :: Emissivity + REAL(fp), OPTIONAL, INTENT(IN) :: Direct_Reflectivity + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Options_SetEmissivity(Scalar)' + ! Local variables + CHARACTER(ML) :: msg + + ! Setup + self%Use_Emissivity = .FALSE. ! Turn it off + self%Use_Direct_Reflectivity = .FALSE. ! Turn it off + IF ( .NOT. CRTM_Options_Associated(self) ) THEN + msg = 'Options object not allocated. Disabling emissivity/direct reflectivity' + CALL Display_Message( ROUTINE_NAME, msg, FAILURE ) + RETURN + END IF + + ! Assign the emissivity + self%Emissivity = Emissivity + self%Use_Emissivity = .TRUE. + + ! Assign the direct reflectivity if supplied + IF ( PRESENT(Direct_Reflectivity) ) THEN + self%Direct_Reflectivity = Direct_Reflectivity + self%Use_Direct_Reflectivity = .TRUE. + END IF + + END SUBROUTINE SetEmissivity_scalar + + + SUBROUTINE SetEmissivity_rank1( & + self , & + Emissivity, & + Direct_Reflectivity) + ! Arguments + TYPE(CRTM_Options_type), INTENT(IN OUT) :: self + REAL(fp), INTENT(IN) :: Emissivity(:) + REAL(fp), OPTIONAL, INTENT(IN) :: Direct_Reflectivity(:) + ! Local parameters + CHARACTER(*), PARAMETER :: ROUTINE_NAME = 'CRTM_Options_SetEmissivity(Rank-1)' + ! Local variables + CHARACTER(ML) :: msg + INTEGER :: i + + ! Setup + self%Use_Direct_Reflectivity = .FALSE. ! Turn it off + + ! Assign the emissivity + self%Emissivity = Emissivity ! Auto (re)allocation + self%Use_Emissivity = .TRUE. + self%n_Channels = SIZE(Emissivity) + + ! Assign the direct reflectivity if supplied + IF ( PRESENT(Direct_Reflectivity) ) THEN + IF ( SIZE(Direct_Reflectivity) == self%n_Channels ) THEN + self%Direct_Reflectivity = Direct_Reflectivity ! Auto (re)allocation + self%Use_Direct_Reflectivity = .TRUE. + ELSE + msg = 'Size of Direct_Reflectivity argument different from Emissivity. Disabling' + CALL Display_Message( ROUTINE_NAME, msg, WARNING ) + self%Direct_Reflectivity = [(ZERO,i=1,self%n_Channels)] ! Auto (re)allocation + self%Use_Direct_Reflectivity = .FALSE. + END IF + END IF + + ! Set the allocation flag + self%Is_Allocated = ALLOCATED(self%Emissivity) .AND. ALLOCATED(self%Direct_Reflectivity) + + END SUBROUTINE SetEmissivity_rank1 !-------------------------------------------------------------------------------- !:sdoc+: ! @@ -343,28 +738,37 @@ FUNCTION CRTM_Options_IsValid( self ) RESULT( IsValid ) ! Setup IsValid = .TRUE. + ! Check n_Streams + IF ( self%Use_n_Streams ) THEN + IF ( self%n_Streams < 1 .OR. self%n_Streams > MAX_N_STREAMS ) THEN + msg = 'Invalid n_Streams' + CALL Display_Message( ROUTINE_NAME, msg, INFORMATION ) + IsValid = .FALSE. + END IF + END IF + ! Check emissivity options IF ( self%Use_Emissivity .OR. self%Use_Direct_Reflectivity ) THEN - IsValid = CRTM_Options_Associated(self) - IF ( .NOT. IsValid ) THEN - msg = 'Options structure not allocated' - CALL Display_Message( ROUTINE_NAME, TRIM(msg), INFORMATION ) - RETURN - ENDIF - IF ( self%Use_Emissivity ) THEN - IF ( ANY(self%Emissivity < ZERO) .OR. ANY(self%Emissivity > ONE) ) THEN - msg = 'Invalid emissivity' - CALL Display_Message( ROUTINE_NAME, TRIM(msg), INFORMATION ) - IsValid = .FALSE. + IF ( CRTM_Options_Associated(self) ) THEN + IF ( self%Use_Emissivity ) THEN + IF ( ANY(self%Emissivity < ZERO) .OR. ANY(self%Emissivity > ONE) ) THEN + msg = 'Invalid emissivity' + CALL Display_Message( ROUTINE_NAME, msg, INFORMATION ) + IsValid = .FALSE. + END IF END IF - END IF - IF ( self%Use_Direct_Reflectivity ) THEN - IF ( ANY(self%Direct_Reflectivity < ZERO) .OR. ANY(self%Direct_Reflectivity > ONE) ) THEN - msg = 'Invalid direct reflectivity' - CALL Display_Message( ROUTINE_NAME, TRIM(msg), INFORMATION ) - IsValid = .FALSE. + IF ( self%Use_Direct_Reflectivity ) THEN + IF ( ANY(self%Direct_Reflectivity < ZERO) .OR. ANY(self%Direct_Reflectivity > ONE) ) THEN + msg = 'Invalid direct reflectivity' + CALL Display_Message( ROUTINE_NAME, msg, INFORMATION ) + IsValid = .FALSE. + END IF END IF - END IF + ELSE + msg = 'Options structure not allocated for emissivity usage' + CALL Display_Message( ROUTINE_NAME, msg, INFORMATION ) + IsValid = .FALSE. + ENDIF END IF ! Check SSU input options @@ -373,6 +777,9 @@ FUNCTION CRTM_Options_IsValid( self ) RESULT( IsValid ) ! Check Zeeman input options IsValid = Zeeman_Input_IsValid( self%Zeeman ) .AND. IsValid + ! Check cloud overlap option validity + IsValid = CloudCover_Overlap_IsValid( self%Overlap_Id ) .AND. IsValid + END FUNCTION CRTM_Options_IsValid @@ -409,8 +816,9 @@ SUBROUTINE CRTM_Options_Inspect( self ) WRITE(*,'(3x,"Aircraft pressure altitude :",1x,es13.6)') self%Aircraft_Pressure WRITE(*,'(3x,"RT algorithm Id :",1x,i0)') self%RT_Algorithm_Id WRITE(*,'(3x,"Include scattering flag :",1x,l1)') self%Include_Scattering - WRITE(*,'(3x,"Use n_Streams flag :",1x,l1)') self%Use_N_Streams + WRITE(*,'(3x,"Use n_Streams flag :",1x,l1)') self%Use_n_Streams WRITE(*,'(3x,"n_Streams :",1x,i0)') self%n_Streams + WRITE(*,'(3x,"Cloud cover overlap method :",1x,a )') TRIM(CloudCover_Overlap_Name(self%Overlap_Id)) ! ...Emissivity component IF ( CRTM_Options_Associated(self) ) THEN WRITE(*,'(3x,"Emissivity component")') @@ -420,6 +828,7 @@ SUBROUTINE CRTM_Options_Inspect( self ) WRITE(*,'(5x,"Use direct reflectivity flag :",1x,l1)') self%Use_Direct_Reflectivity WRITE(*,'(5x,"Emissivity :")') WRITE(*,'(5(1x,es13.6,:))') self%Emissivity + WRITE(*,'(5x,"Use direct reflectivity flag :",1x,l1)') self%Use_Direct_Reflectivity WRITE(*,'(5x,"Direct reflectivity :")') WRITE(*,'(5(1x,es13.6,:))') self%Direct_Reflectivity END IF @@ -956,7 +1365,8 @@ ELEMENTAL FUNCTION CRTM_Options_Equal( x, y ) RESULT( is_equal ) (x%Aircraft_Pressure .EqualTo. y%Aircraft_Pressure ) .AND. & (x%Use_n_Streams .EQV. y%Use_n_Streams ) .AND. & (x%n_Streams == y%n_Streams ) .AND. & - (x%Include_Scattering .EQV. y%Include_Scattering ) + (x%Include_Scattering .EQV. y%Include_Scattering ) .AND. & + (x%Overlap_Id == y%Overlap_Id ) ! Emissivity component is_equal = is_equal .AND. & @@ -1091,6 +1501,12 @@ FUNCTION Read_Record( & msg = 'Error reading include scattering option' CALL Read_Record_Cleanup(); RETURN END IF + ! ...Cloud cover overlap methodology identifier + READ( fid,IOSTAT=io_stat,IOMSG=io_msg ) opt%Overlap_Id + IF ( io_stat /= 0 ) THEN + msg = 'Error reading Overlap_Id optional value - '//TRIM(io_msg) + CALL Read_Record_Cleanup(); RETURN + END IF ! Read the emissivity/reflectivity data @@ -1259,6 +1675,12 @@ FUNCTION Write_Record( & msg = 'Error writing include scattering option' CALL Write_Record_Cleanup(); RETURN END IF + ! ...Cloud cover overlap methodology identifier + WRITE( fid,IOSTAT=io_stat,IOMSG=io_msg ) opt%Overlap_Id + IF ( io_stat /= 0 ) THEN + msg = 'Error writing Overlap_Id optional value - '//TRIM(io_msg) + CALL Write_Record_Cleanup(); RETURN + END IF ! Write the emissivity/reflectivity data diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Parameters.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Parameters.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/CRTM_Parameters.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Parameters.f90 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Planck_Functions.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Planck_Functions.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_Planck_Functions.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Planck_Functions.f90 index 80aa7bb3c8..18c8a6e7da 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Planck_Functions.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Planck_Functions.f90 @@ -38,7 +38,7 @@ MODULE CRTM_Planck_Functions ! Parameters ! ---------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: CRTM_Planck_Functions.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Planck_Functions.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Predictor.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Predictor.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_Predictor.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Predictor.f90 index 982c6ea513..f67b07909a 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Predictor.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Predictor.f90 @@ -78,7 +78,7 @@ MODULE CRTM_Predictor ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Predictor.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Predictor.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Predictor_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Predictor_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_Predictor_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Predictor_Define.f90 index 7bf13974d5..84df1eb4ad 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Predictor_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Predictor_Define.f90 @@ -65,7 +65,7 @@ MODULE CRTM_Predictor_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Predictor_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Predictor_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_RTSolution.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_RTSolution.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_RTSolution.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_RTSolution.f90 index a214418c84..b58b14f69c 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_RTSolution.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_RTSolution.f90 @@ -66,7 +66,7 @@ MODULE CRTM_RTSolution ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_RTSolution.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_RTSolution.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_RTSolution_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_RTSolution_Define.f90 similarity index 87% rename from var/external/crtm_2.2.3/libsrc/CRTM_RTSolution_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_RTSolution_Define.f90 index d66874ba65..17c3a797c2 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_RTSolution_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_RTSolution_Define.f90 @@ -98,9 +98,10 @@ MODULE CRTM_RTSolution_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_RTSolution_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_RTSolution_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp + REAL(fp), PARAMETER :: ONE = 1.0_fp ! Message string length INTEGER, PARAMETER :: ML = 256 ! File status on close after write error @@ -122,7 +123,7 @@ MODULE CRTM_RTSolution_Define INTEGER :: WMO_Sensor_ID = INVALID_WMO_SENSOR_ID INTEGER :: Sensor_Channel = 0 ! RT algorithm information - CHARACTER(STRLEN*5) :: RT_Algorithm_Name = '' + CHARACTER(STRLEN) :: RT_Algorithm_Name = '' ! Internal variables. Users do not need to worry about these. LOGICAL :: Scattering_Flag = .TRUE. INTEGER :: n_Full_Streams = 0 @@ -130,6 +131,7 @@ MODULE CRTM_RTSolution_Define ! Forward radiative transfer intermediate results for a single channel ! These components are not defined when they are used as TL, AD ! and K variables + REAL(fp) :: SSA_Max = ZERO ! Max Single Scattering Albedo in the profile REAL(fp) :: SOD = ZERO ! Scattering Optical Depth REAL(fp) :: Surface_Emissivity = ZERO REAL(fp) :: Surface_Reflectivity = ZERO @@ -137,10 +139,14 @@ MODULE CRTM_RTSolution_Define REAL(fp) :: Down_Radiance = ZERO REAL(fp) :: Down_Solar_Radiance = ZERO REAL(fp) :: Surface_Planck_Radiance = ZERO + REAL(fp) :: Total_Cloud_Cover = ZERO ! Only used for fractional clear/cloudy calculation + REAL(fp) :: R_clear = ZERO ! Only used for fractional clear/cloudy calculation + REAL(fp) :: Tb_clear = ZERO ! Only used for fractional clear/cloudy calculation REAL(fp), ALLOCATABLE :: Upwelling_Overcast_Radiance(:) ! K REAL(fp), ALLOCATABLE :: Upwelling_Radiance(:) ! K REAL(fp), ALLOCATABLE :: Layer_Optical_Depth(:) ! K - ! Radiative transfer results for a single channel/node + REAL(fp), ALLOCATABLE :: Single_Scatter_Albedo(:) ! K + ! Radiative transfer results for a single channel REAL(fp) :: Radiance = ZERO REAL(fp) :: Brightness_Temperature = ZERO REAL(fp) :: Gamma = ZERO @@ -272,6 +278,7 @@ ELEMENTAL SUBROUTINE CRTM_RTSolution_Create( RTSolution, n_Layers ) ALLOCATE( RTSolution%Upwelling_Radiance(n_Layers), & RTSolution%Upwelling_Overcast_Radiance(n_Layers), & RTSolution%Layer_Optical_Depth(n_Layers), & + RTSolution%Single_Scatter_Albedo(n_Layers), & STAT = alloc_stat ) IF ( alloc_stat /= 0 ) RETURN @@ -282,6 +289,7 @@ ELEMENTAL SUBROUTINE CRTM_RTSolution_Create( RTSolution, n_Layers ) RTSolution%Upwelling_Radiance = ZERO RTSolution%Upwelling_Overcast_Radiance = ZERO RTSolution%Layer_Optical_Depth = ZERO + RTSolution%Single_Scatter_Albedo = ZERO ! Set allocation indicator RTSolution%Is_Allocated = .TRUE. @@ -322,6 +330,7 @@ ELEMENTAL SUBROUTINE CRTM_RTSolution_Zero( RTSolution ) TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: RTSolution ! Zero out the scalar data components + RTSolution%SSA_Max = ZERO RTSolution%SOD = ZERO RTSolution%Surface_Emissivity = ZERO RTSolution%Surface_Reflectivity = ZERO @@ -329,6 +338,9 @@ ELEMENTAL SUBROUTINE CRTM_RTSolution_Zero( RTSolution ) RTSolution%Down_Radiance = ZERO RTSolution%Down_Solar_Radiance = ZERO RTSolution%Surface_Planck_Radiance = ZERO + RTSolution%Total_Cloud_Cover = ZERO + RTSolution%R_clear = ZERO + RTSolution%Tb_clear = ZERO RTSolution%Radiance = ZERO RTSolution%Brightness_Temperature = ZERO RTSolution%Gamma = ZERO @@ -338,6 +350,7 @@ ELEMENTAL SUBROUTINE CRTM_RTSolution_Zero( RTSolution ) RTSolution%Upwelling_Radiance = ZERO RTSolution%Upwelling_Overcast_Radiance = ZERO RTSolution%Layer_Optical_Depth = ZERO + RTSolution%Single_Scatter_Albedo = ZERO END IF END SUBROUTINE CRTM_RTSolution_Zero @@ -391,26 +404,31 @@ SUBROUTINE Scalar_Inspect( RTSolution, Unit ) WRITE(fid,'(1x,"RTSolution OBJECT")') ! Display components - WRITE(fid,'(3x,"Sensor Id : ",a )') TRIM(RTSolution%Sensor_ID) - WRITE(fid,'(3x,"WMO Satellite Id : ",i0)') RTSolution%WMO_Satellite_ID - WRITE(fid,'(3x,"WMO Sensor Id : ",i0)') RTSolution%WMO_Sensor_ID - WRITE(fid,'(3x,"Channel : ",i0)') RTSolution%Sensor_Channel - WRITE(fid,'(3x,"RT Algorithm Name : ",a )') RTSolution%RT_Algorithm_Name - WRITE(fid,'(3x,"Scattering Optical Depth : ",es13.6)') RTSolution%SOD - WRITE(fid,'(3x,"Surface Emissivity : ",es13.6)') RTSolution%Surface_Emissivity - WRITE(fid,'(3x,"Surface Reflectivity : ",es13.6)') RTSolution%Surface_Reflectivity - WRITE(fid,'(3x,"Up Radiance : ",es13.6)') RTSolution%Up_Radiance - WRITE(fid,'(3x,"Down Radiance : ",es13.6)') RTSolution%Down_Radiance - WRITE(fid,'(3x,"Down Solar Radiance : ",es13.6)') RTSolution%Down_Solar_Radiance - WRITE(fid,'(3x,"Surface Planck Radiance : ",es13.6)') RTSolution%Surface_Planck_Radiance - WRITE(fid,'(3x,"Radiance : ",es13.6)') RTSolution%Radiance - WRITE(fid,'(3x,"Brightness Temperature : ",es13.6)') RTSolution%Brightness_Temperature - WRITE(fid,'(3x,"Gamma : ",es13.6)') RTSolution%Gamma + WRITE(fid,'(3x,"Sensor Id : ",a )') TRIM(RTSolution%Sensor_ID) + WRITE(fid,'(3x,"WMO Satellite Id : ",i0)') RTSolution%WMO_Satellite_ID + WRITE(fid,'(3x,"WMO Sensor Id : ",i0)') RTSolution%WMO_Sensor_ID + WRITE(fid,'(3x,"Channel : ",i0)') RTSolution%Sensor_Channel + WRITE(fid,'(3x,"RT Algorithm Name : ",a )') RTSolution%RT_Algorithm_Name + WRITE(fid,'(3x,"Scattering Optical Depth : ",es13.6)') RTSolution%SOD + WRITE(fid,'(3x,"Surface Emissivity : ",es13.6)') RTSolution%Surface_Emissivity + WRITE(fid,'(3x,"Surface Reflectivity : ",es13.6)') RTSolution%Surface_Reflectivity + WRITE(fid,'(3x,"Up Radiance : ",es13.6)') RTSolution%Up_Radiance + WRITE(fid,'(3x,"Down Radiance : ",es13.6)') RTSolution%Down_Radiance + WRITE(fid,'(3x,"Down Solar Radiance : ",es13.6)') RTSolution%Down_Solar_Radiance + WRITE(fid,'(3x,"Surface Planck Radiance : ",es13.6)') RTSolution%Surface_Planck_Radiance + WRITE(fid,'(3x,"Total cloud cover : ",es13.6)') RTSolution%Total_Cloud_Cover + WRITE(fid,'(3x,"Radiance (clear) : ",es13.6)') RTSolution%R_clear + WRITE(fid,'(3x,"Brightness Temperature (clear): ",es13.6)') RTSolution%Tb_clear + WRITE(fid,'(3x,"Radiance : ",es13.6)') RTSolution%Radiance + WRITE(fid,'(3x,"Brightness Temperature : ",es13.6)') RTSolution%Brightness_Temperature + WRITE(fid,'(3x,"Gamma : ",es13.6)') RTSolution%Gamma IF ( .NOT. CRTM_RTSolution_Associated(RTSolution) ) RETURN WRITE(fid,'(3x,"n_Layers : ",i0)') RTSolution%n_Layers - WRITE(fid,'(3x,"Upwelling Radiance :")') + WRITE(fid,'(3x,"Upwelling Overcast Radiance :")') + WRITE(fid,'(5(1x,es13.6,:))') RTSolution%Upwelling_Overcast_Radiance + WRITE(fid,'(3x,"Upwelling Radiance :")') WRITE(fid,'(5(1x,es13.6,:))') RTSolution%Upwelling_Radiance - WRITE(fid,'(3x,"Layer Optical Depth :")') + WRITE(fid,'(3x,"Layer Optical Depth :")') WRITE(fid,'(5(1x,es13.6,:))') RTSolution%Layer_Optical_Depth END SUBROUTINE Scalar_Inspect @@ -543,6 +561,9 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Compare( & .NOT. Compares_Within_Tolerance(x%Down_Radiance , y%Down_Radiance , n) .OR. & .NOT. Compares_Within_Tolerance(x%Down_Solar_Radiance , y%Down_Solar_Radiance , n) .OR. & .NOT. Compares_Within_Tolerance(x%Surface_Planck_Radiance, y%Surface_Planck_Radiance, n) .OR. & + .NOT. Compares_Within_Tolerance(x%Total_Cloud_Cover , y%Total_Cloud_Cover , n) .OR. & + .NOT. Compares_Within_Tolerance(x%R_clear , y%R_clear , n) .OR. & + .NOT. Compares_Within_Tolerance(x%Tb_clear , y%Tb_clear , n) .OR. & .NOT. Compares_Within_Tolerance(x%Radiance , y%Radiance , n) .OR. & .NOT. Compares_Within_Tolerance(x%Brightness_Temperature , y%Brightness_Temperature , n) ) RETURN @@ -620,11 +641,12 @@ FUNCTION CRTM_RTSolution_Statistics(rts, rts_stats) RESULT( err_stat ) n_channels = SIZE(rts, DIM=1) n_profiles = SIZE(rts, DIM=2) factor = REAL(n_profiles,fp) - - + + ! Allocate the output stats object array ALLOCATE( rts_stats(n_channels, 2), & - STAT = alloc_stat, ERRMSG = alloc_msg ) + STAT = alloc_stat ) + !STAT = alloc_stat, ERRMSG = alloc_msg ) IF ( alloc_stat /= 0 ) THEN err_msg = 'Error allocating output RTSolution structure - '//TRIM(alloc_msg) err_stat = FAILURE @@ -646,7 +668,6 @@ FUNCTION CRTM_RTSolution_Statistics(rts, rts_stats) RESULT( err_stat ) rts_stats(l,1) = rts_stats(l,1)/factor END DO - ! Compute the standard deviation DO m = 1, n_profiles DO l = 1, n_channels @@ -658,11 +679,10 @@ FUNCTION CRTM_RTSolution_Statistics(rts, rts_stats) RESULT( err_stat ) rts_stats(l,2) = SQRT(rts_stats(l,2)/factor) END DO - ! Replace the algorithm identifier - rts_stats(:,1)%RT_Algorithm_Name = 'Object average' - rts_stats(:,2)%RT_Algorithm_Name = 'Object standard deviation' - + rts_stats(:,1)%RT_Algorithm_Name = 'Average' + rts_stats(:,2)%RT_Algorithm_Name = 'Standard deviation' + END FUNCTION CRTM_RTSolution_Statistics @@ -812,7 +832,7 @@ END FUNCTION CRTM_RTSolution_InquireFile ! UNITS: N/A ! TYPE: CRTM_RTSolution_type ! DIMENSION: Rank-2 (n_Channels x n_Profiles) -! ATTRIBUTES: INTENT(OUT) +! ATTRIBUTES: INTENT(OUT), ALLOCATABLE ! ! OPTIONAL INPUTS: ! Quiet: Set this logical argument to suppress INFORMATION @@ -857,17 +877,15 @@ FUNCTION CRTM_RTSolution_ReadFile( & Quiet , & ! Optional input n_Channels , & ! Optional output n_Profiles , & ! Optional output - Old_Version, & ! Optional input (Allow reading of previous version files) Debug ) & ! Optional input (Debug output control) RESULT( err_stat ) ! Arguments - CHARACTER(*), INTENT(IN) :: Filename - TYPE(CRTM_RTSolution_type), INTENT(OUT) :: RTSolution(:,:) - LOGICAL, OPTIONAL, INTENT(IN) :: Quiet - INTEGER, OPTIONAL, INTENT(OUT) :: n_Channels - INTEGER, OPTIONAL, INTENT(OUT) :: n_Profiles - LOGICAL, OPTIONAL, INTENT(IN) :: Old_Version - LOGICAL, OPTIONAL, INTENT(IN) :: Debug + CHARACTER(*), INTENT(IN) :: Filename + TYPE(CRTM_RTSolution_type), ALLOCATABLE, INTENT(OUT) :: RTSolution(:,:) ! L x M + LOGICAL, OPTIONAL, INTENT(IN) :: Quiet + INTEGER, OPTIONAL, INTENT(OUT) :: n_Channels + INTEGER, OPTIONAL, INTENT(OUT) :: n_Profiles + LOGICAL, OPTIONAL, INTENT(IN) :: Debug ! Function result INTEGER :: err_stat ! Function parameters @@ -875,11 +893,13 @@ FUNCTION CRTM_RTSolution_ReadFile( & ! Function variables CHARACTER(ML) :: msg CHARACTER(ML) :: io_msg + CHARACTER(ML) :: alloc_msg INTEGER :: io_stat + INTEGER :: alloc_stat LOGICAL :: noisy INTEGER :: fid - INTEGER :: l, n_file_channels, n_input_channels - INTEGER :: m, n_file_profiles, n_input_profiles + INTEGER :: l, n_input_channels + INTEGER :: m, n_input_profiles ! Set up @@ -900,37 +920,24 @@ FUNCTION CRTM_RTSolution_ReadFile( & ! Read the dimensions - READ( fid,IOSTAT=io_stat,IOMSG=io_msg ) n_file_channels, n_file_profiles + READ( fid,IOSTAT=io_stat,IOMSG=io_msg ) n_input_channels, n_input_profiles IF ( io_stat /= 0 ) THEN msg = 'Error reading dimensions from '//TRIM(Filename)//' - '//TRIM(io_msg) CALL Read_Cleanup(); RETURN END IF - ! ...Check if n_Channels in file is > size of output array - n_input_channels = SIZE(RTSolution,DIM=1) - IF ( n_file_channels > n_input_channels ) THEN - WRITE( msg,'("Number of channels, ",i0," > size of the output RTSolution", & - &" array dimension, ",i0,". Only the first ",i0, & - &" channels will be read.")' ) & - n_file_channels, n_input_channels, n_input_channels - CALL Display_Message( ROUTINE_NAME, msg, WARNING ) - END IF - n_input_channels = MIN(n_input_channels, n_file_channels) - ! ...Check if n_Profiles in file is > size of output array - n_input_profiles = SIZE(RTSolution,DIM=2) - IF ( n_file_profiles > n_input_profiles ) THEN - WRITE( msg,'( "Number of profiles, ",i0," > size of the output RTSolution", & - &" array dimension, ",i0,". Only the first ",i0, & - &" profiles will be read.")' ) & - n_file_profiles, n_input_profiles, n_input_profiles - CALL Display_Message( ROUTINE_NAME, msg, WARNING ) + ! ...Allocate the return structure array + !ALLOCATE(RTSolution(n_input_channels, n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + ALLOCATE(RTSolution(n_input_channels, n_input_profiles), STAT=alloc_stat) + IF ( alloc_stat /= 0 ) THEN + msg = 'Error allocating RTSolution array - '//TRIM(alloc_msg) + CALL Read_Cleanup(); RETURN END IF - n_input_profiles = MIN(n_input_profiles, n_file_profiles) ! Loop over all the profiles and channels Profile_Loop: DO m = 1, n_input_profiles Channel_Loop: DO l = 1, n_input_channels - err_stat = Read_Record( fid, RTSolution(l,m), Old_Version=Old_Version ) + err_stat = Read_Record( fid, RTSolution(l,m) ) IF ( err_stat /= SUCCESS ) THEN WRITE( msg,'("Error reading RTSolution element (",i0,",",i0,") from ",a)' ) & l, m, TRIM(Filename) @@ -968,7 +975,13 @@ SUBROUTINE Read_CleanUp() IF ( io_stat /= 0 ) & msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF - CALL CRTM_RTSolution_Destroy( RTSolution ) + IF ( ALLOCATED(RTSolution) ) THEN + !DEALLOCATE(RTSolution, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(RTSolution, STAT=alloc_stat) + IF ( alloc_stat /= 0 ) & + msg = TRIM(msg)//'; Error deallocating RTSolution array during error cleanup - '//& + TRIM(alloc_msg) + END IF err_stat = FAILURE CALL Display_Message( ROUTINE_NAME, msg, err_stat ) END SUBROUTINE Read_CleanUp @@ -1193,6 +1206,9 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Equal( x, y ) RESULT( is_equal ) (x%Down_Radiance .EqualTo. y%Down_Radiance ) .AND. & (x%Down_Solar_Radiance .EqualTo. y%Down_Solar_Radiance ) .AND. & (x%Surface_Planck_Radiance .EqualTo. y%Surface_Planck_Radiance) .AND. & + (x%Total_Cloud_Cover .EqualTo. y%Total_Cloud_Cover ) .AND. & + (x%R_clear .EqualTo. y%R_clear ) .AND. & + (x%Tb_clear .EqualTo. y%Tb_clear ) .AND. & (x%Radiance .EqualTo. y%Radiance ) .AND. & (x%Brightness_Temperature .EqualTo. y%Brightness_Temperature ) ) & is_equal = .TRUE. @@ -1259,7 +1275,7 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Add( rts1, rts2 ) RESULT( rtssum ) ! And add the second one's components to it ! ...Handle RT_Algorithm_Name - rtssum%RT_Algorithm_Name = 'Object add' + rtssum%RT_Algorithm_Name = 'Addition' ! ...The scalar values rtssum%SOD = rtssum%SOD + rts2%SOD rtssum%Surface_Emissivity = rtssum%Surface_Emissivity + rts2%Surface_Emissivity @@ -1268,6 +1284,9 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Add( rts1, rts2 ) RESULT( rtssum ) rtssum%Down_Radiance = rtssum%Down_Radiance + rts2%Down_Radiance rtssum%Down_Solar_Radiance = rtssum%Down_Solar_Radiance + rts2%Down_Solar_Radiance rtssum%Surface_Planck_Radiance = rtssum%Surface_Planck_Radiance + rts2%Surface_Planck_Radiance + rtssum%Total_Cloud_Cover = rtssum%Total_Cloud_Cover + rts2%Total_Cloud_Cover + rtssum%R_clear = rtssum%R_clear + rts2%R_clear + rtssum%Tb_clear = rtssum%Tb_clear + rts2%Tb_clear rtssum%Radiance = rtssum%Radiance + rts2%Radiance rtssum%Brightness_Temperature = rtssum%Brightness_Temperature + rts2%Brightness_Temperature ! ...The arrays (which may or may not be allocated) @@ -1337,7 +1356,7 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Subtract( rts1, rts2 ) RESULT( rtsdiff ) ! And subtract the second one's components from it ! ...Handle RT_Algorithm_Name - rtsdiff%RT_Algorithm_Name = 'Object subtract' + rtsdiff%RT_Algorithm_Name = 'Subtraction' ! ...The scalar values rtsdiff%SOD = rtsdiff%SOD - rts2%SOD rtsdiff%Surface_Emissivity = rtsdiff%Surface_Emissivity - rts2%Surface_Emissivity @@ -1346,6 +1365,9 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Subtract( rts1, rts2 ) RESULT( rtsdiff ) rtsdiff%Down_Radiance = rtsdiff%Down_Radiance - rts2%Down_Radiance rtsdiff%Down_Solar_Radiance = rtsdiff%Down_Solar_Radiance - rts2%Down_Solar_Radiance rtsdiff%Surface_Planck_Radiance = rtsdiff%Surface_Planck_Radiance - rts2%Surface_Planck_Radiance + rtsdiff%Total_Cloud_Cover = rtsdiff%Total_Cloud_Cover - rts2%Total_Cloud_Cover + rtsdiff%R_clear = rtsdiff%R_clear - rts2%R_clear + rtsdiff%Tb_clear = rtsdiff%Tb_clear - rts2%Tb_clear rtsdiff%Radiance = rtsdiff%Radiance - rts2%Radiance rtsdiff%Brightness_Temperature = rtsdiff%Brightness_Temperature - rts2%Brightness_Temperature ! ...The arrays (which may or may not be allocated) @@ -1412,23 +1434,26 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Exponent( rts, power ) RESULT( rts_power ) ! Raise the components to the supplied power ! ...Handle RT_Algorithm_Name - rts_power%RT_Algorithm_Name = 'Object exponent' + rts_power%RT_Algorithm_Name = 'Exponent' ! ...The scalar values - rts_power%SOD = (rts_power%SOD)**power - rts_power%Surface_Emissivity = (rts_power%Surface_Emissivity)**power - rts_power%Surface_Reflectivity = (rts_power%Surface_Reflectivity)**power - rts_power%Up_Radiance = (rts_power%Up_Radiance)**power - rts_power%Down_Radiance = (rts_power%Down_Radiance)**power - rts_power%Down_Solar_Radiance = (rts_power%Down_Solar_Radiance)**power + rts_power%SOD = (rts_power%SOD )**power + rts_power%Surface_Emissivity = (rts_power%Surface_Emissivity )**power + rts_power%Surface_Reflectivity = (rts_power%Surface_Reflectivity )**power + rts_power%Up_Radiance = (rts_power%Up_Radiance )**power + rts_power%Down_Radiance = (rts_power%Down_Radiance )**power + rts_power%Down_Solar_Radiance = (rts_power%Down_Solar_Radiance )**power rts_power%Surface_Planck_Radiance = (rts_power%Surface_Planck_Radiance)**power - rts_power%Radiance = (rts_power%Radiance)**power - rts_power%Brightness_Temperature = (rts_power%Brightness_Temperature)**power + rts_power%Total_Cloud_Cover = (rts_power%Total_Cloud_Cover )**power + rts_power%R_clear = (rts_power%R_clear )**power + rts_power%Tb_clear = (rts_power%Tb_clear )**power + rts_power%Radiance = (rts_power%Radiance )**power + rts_power%Brightness_Temperature = (rts_power%Brightness_Temperature )**power ! ...The arrays (which may or may not be allocated) IF ( CRTM_RTSolution_Associated(rts) ) THEN k = rts%n_Layers rts_power%Upwelling_Overcast_Radiance(1:k) = (rts_power%Upwelling_Overcast_Radiance(1:k))**power - rts_power%Upwelling_Radiance(1:k) = (rts_power%Upwelling_Radiance(1:k))**power - rts_power%Layer_Optical_Depth(1:k) = (rts_power%Layer_Optical_Depth(1:k))**power + rts_power%Upwelling_Radiance(1:k) = (rts_power%Upwelling_Radiance(1:k) )**power + rts_power%Layer_Optical_Depth(1:k) = (rts_power%Layer_Optical_Depth(1:k) )**power END IF END FUNCTION CRTM_RTSolution_Exponent @@ -1483,23 +1508,26 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Normalise( rts, factor ) RESULT( rts_normal ) ! Raise the components to the supplied normal ! ...Handle RT_Algorithm_Name - rts_normal%RT_Algorithm_Name = 'Object normalise' + rts_normal%RT_Algorithm_Name = 'Normalise' ! ...The scalar values - rts_normal%SOD = rts_normal%SOD/factor - rts_normal%Surface_Emissivity = rts_normal%Surface_Emissivity/factor - rts_normal%Surface_Reflectivity = rts_normal%Surface_Reflectivity/factor - rts_normal%Up_Radiance = rts_normal%Up_Radiance/factor - rts_normal%Down_Radiance = rts_normal%Down_Radiance/factor - rts_normal%Down_Solar_Radiance = rts_normal%Down_Solar_Radiance/factor + rts_normal%SOD = rts_normal%SOD /factor + rts_normal%Surface_Emissivity = rts_normal%Surface_Emissivity /factor + rts_normal%Surface_Reflectivity = rts_normal%Surface_Reflectivity /factor + rts_normal%Up_Radiance = rts_normal%Up_Radiance /factor + rts_normal%Down_Radiance = rts_normal%Down_Radiance /factor + rts_normal%Down_Solar_Radiance = rts_normal%Down_Solar_Radiance /factor rts_normal%Surface_Planck_Radiance = rts_normal%Surface_Planck_Radiance/factor - rts_normal%Radiance = rts_normal%Radiance/factor - rts_normal%Brightness_Temperature = rts_normal%Brightness_Temperature/factor + rts_normal%Total_Cloud_Cover = rts_normal%Total_Cloud_Cover /factor + rts_normal%R_clear = rts_normal%R_clear /factor + rts_normal%Tb_clear = rts_normal%Tb_clear /factor + rts_normal%Radiance = rts_normal%Radiance /factor + rts_normal%Brightness_Temperature = rts_normal%Brightness_Temperature /factor ! ...The arrays (which may or may not be allocated) IF ( CRTM_RTSolution_Associated(rts) ) THEN k = rts%n_Layers rts_normal%Upwelling_Overcast_Radiance(1:k) = rts_normal%Upwelling_Overcast_Radiance(1:k)/factor - rts_normal%Upwelling_Radiance(1:k) = rts_normal%Upwelling_Radiance(1:k)/factor - rts_normal%Layer_Optical_Depth(1:k) = rts_normal%Layer_Optical_Depth(1:k)/factor + rts_normal%Upwelling_Radiance(1:k) = rts_normal%Upwelling_Radiance(1:k) /factor + rts_normal%Layer_Optical_Depth(1:k) = rts_normal%Layer_Optical_Depth(1:k) /factor END IF END FUNCTION CRTM_RTSolution_Normalise @@ -1546,23 +1574,26 @@ ELEMENTAL FUNCTION CRTM_RTSolution_Sqrt( rts ) RESULT( rts_sqrt ) ! Raise the components to the supplied normal ! ...Handle RT_Algorithm_Name - rts_sqrt%RT_Algorithm_Name = 'Object SQRT()' + rts_sqrt%RT_Algorithm_Name = 'Square root' ! ...The scalar values - rts_sqrt%SOD = SQRT(rts_sqrt%SOD) - rts_sqrt%Surface_Emissivity = SQRT(rts_sqrt%Surface_Emissivity) - rts_sqrt%Surface_Reflectivity = SQRT(rts_sqrt%Surface_Reflectivity) - rts_sqrt%Up_Radiance = SQRT(rts_sqrt%Up_Radiance) - rts_sqrt%Down_Radiance = SQRT(rts_sqrt%Down_Radiance) - rts_sqrt%Down_Solar_Radiance = SQRT(rts_sqrt%Down_Solar_Radiance) + rts_sqrt%SOD = SQRT(rts_sqrt%SOD ) + rts_sqrt%Surface_Emissivity = SQRT(rts_sqrt%Surface_Emissivity ) + rts_sqrt%Surface_Reflectivity = SQRT(rts_sqrt%Surface_Reflectivity ) + rts_sqrt%Up_Radiance = SQRT(rts_sqrt%Up_Radiance ) + rts_sqrt%Down_Radiance = SQRT(rts_sqrt%Down_Radiance ) + rts_sqrt%Down_Solar_Radiance = SQRT(rts_sqrt%Down_Solar_Radiance ) rts_sqrt%Surface_Planck_Radiance = SQRT(rts_sqrt%Surface_Planck_Radiance) - rts_sqrt%Radiance = SQRT(rts_sqrt%Radiance) - rts_sqrt%Brightness_Temperature = SQRT(rts_sqrt%Brightness_Temperature) + rts_sqrt%Total_Cloud_Cover = SQRT(rts_sqrt%Total_Cloud_Cover ) + rts_sqrt%R_clear = SQRT(rts_sqrt%R_clear ) + rts_sqrt%Tb_clear = SQRT(rts_sqrt%Tb_clear ) + rts_sqrt%Radiance = SQRT(rts_sqrt%Radiance ) + rts_sqrt%Brightness_Temperature = SQRT(rts_sqrt%Brightness_Temperature ) ! ...The arrays (which may or may not be allocated) IF ( CRTM_RTSolution_Associated(rts) ) THEN k = rts%n_Layers rts_sqrt%Upwelling_Overcast_Radiance(1:k) = SQRT(rts_sqrt%Upwelling_Overcast_Radiance(1:k)) - rts_sqrt%Upwelling_Radiance(1:k) = SQRT(rts_sqrt%Upwelling_Radiance(1:k)) - rts_sqrt%Layer_Optical_Depth(1:k) = SQRT(rts_sqrt%Layer_Optical_Depth(1:k)) + rts_sqrt%Upwelling_Radiance(1:k) = SQRT(rts_sqrt%Upwelling_Radiance(1:k) ) + rts_sqrt%Layer_Optical_Depth(1:k) = SQRT(rts_sqrt%Layer_Optical_Depth(1:k) ) END IF END FUNCTION CRTM_RTSolution_Sqrt @@ -1578,13 +1609,11 @@ END FUNCTION CRTM_RTSolution_Sqrt FUNCTION Read_Record( & fid, & ! Input - rts, & ! Output - old_version) & ! Optional input + rts) & ! Output RESULT( err_stat ) ! Arguments INTEGER, INTENT(IN) :: fid TYPE(CRTM_RTSolution_type), INTENT(OUT) :: rts - LOGICAL, OPTIONAL, INTENT(IN) :: old_version ! Function result INTEGER :: err_stat ! Function parameters @@ -1594,13 +1623,10 @@ FUNCTION Read_Record( & CHARACTER(ML) :: io_msg INTEGER :: io_stat INTEGER :: n_layers - LOGICAL :: current_version ! Set up err_stat = SUCCESS - ! ...PRocess optional arguments - current_version = .TRUE. - IF ( PRESENT(old_version) ) current_version = .NOT. old_version + ! Read the dimensions READ( fid,IOSTAT=io_stat,IOMSG=io_msg ) n_layers @@ -1649,22 +1675,19 @@ FUNCTION Read_Record( & rts%Up_Radiance , & rts%Down_Radiance , & rts%Down_Solar_Radiance , & - rts%Surface_Planck_Radiance + rts%Surface_Planck_Radiance, & + rts%Total_Cloud_Cover , & + rts%R_clear , & + rts%Tb_clear IF ( io_stat /= 0 ) THEN msg = 'Error reading scalar intermediate results - '//TRIM(io_msg) CALL Read_Record_Cleanup(); RETURN END IF IF ( n_Layers > 0 ) THEN - IF ( current_version ) THEN - READ( fid,IOSTAT=io_stat,IOMSG=io_msg ) & - rts%Upwelling_Overcast_Radiance , & - rts%Upwelling_Radiance, & - rts%Layer_Optical_Depth - ELSE - READ( fid,IOSTAT=io_stat,IOMSG=io_msg ) & - rts%Upwelling_Radiance , & - rts%Layer_Optical_Depth - END IF + READ( fid,IOSTAT=io_stat,IOMSG=io_msg ) & + rts%Upwelling_Overcast_Radiance , & + rts%Upwelling_Radiance, & + rts%Layer_Optical_Depth IF ( io_stat /= 0 ) THEN msg = 'Error reading array intermediate results - '//TRIM(io_msg) CALL Read_Record_Cleanup(); RETURN @@ -1743,7 +1766,7 @@ FUNCTION Write_Record( & END IF - ! Write the sensor info + ! Write the RT algorithm name WRITE( fid,IOSTAT=io_stat,IOMSG=io_msg ) & rts%RT_Algorithm_Name IF ( io_stat /= 0 ) THEN @@ -1760,7 +1783,10 @@ FUNCTION Write_Record( & rts%Up_Radiance , & rts%Down_Radiance , & rts%Down_Solar_Radiance , & - rts%Surface_Planck_Radiance + rts%Surface_Planck_Radiance, & + rts%Total_Cloud_Cover , & + rts%R_clear , & + rts%Tb_clear IF ( io_stat /= 0 ) THEN msg = 'Error writing scalar intermediate results - '//TRIM(io_msg) CALL Write_Record_Cleanup(); RETURN diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_SEcategory.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_SEcategory.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/CRTM_SEcategory.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_SEcategory.f90 index 0e45b346a3..fd2a1a5a5e 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_SEcategory.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_SEcategory.f90 @@ -50,7 +50,7 @@ MODULE CRTM_SEcategory ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_SEcategory.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_SEcategory.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_SensorData_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_SensorData_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_SensorData_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_SensorData_Define.f90 index 8fcc492f7c..668c63c61b 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_SensorData_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_SensorData_Define.f90 @@ -82,7 +82,7 @@ MODULE CRTM_SensorData_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_SensorData_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_SensorData_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_SensorInfo.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_SensorInfo.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_SensorInfo.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_SensorInfo.f90 index d8520f26e4..c69ba2223e 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_SensorInfo.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_SensorInfo.f90 @@ -32,7 +32,7 @@ MODULE CRTM_SensorInfo ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: CRTM_SensorInfo.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_SensorInfo.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! WMO SENSOR codes from COMMON CODE TABLE C-8 INTEGER, PUBLIC, PARAMETER :: WMO_HIRS2 = 605 INTEGER, PUBLIC, PARAMETER :: WMO_MSU = 623 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_SfcOptics.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/CRTM_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_SfcOptics.f90 index 1b2646539c..3ae4b1e360 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_SfcOptics.f90 @@ -119,7 +119,7 @@ MODULE CRTM_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message length INTEGER, PARAMETER :: ML = 256 @@ -2084,7 +2084,13 @@ FUNCTION CRTM_Compute_SfcOptics_AD( & ELSE IF ( SpcCoeff_IsInfraredSensor( SC(SensorIndex) ) ) THEN - + Reflectivity_AD(1:nZ,1,1:nZ,1:nL) = SfcOptics_AD%Reflectivity(1:nZ,1,1:nZ,1:nL) + SfcOptics_AD%Reflectivity = ZERO + Emissivity_AD(1:nZ,1:nL) = SfcOptics_AD%Emissivity(1:nZ,1:nL) + SfcOptics_AD%Emissivity = ZERO + Direct_Reflectivity_AD(1:nZ,1) = SfcOptics_AD%Direct_Reflectivity(1:nZ,1) + SfcOptics_AD%Direct_Reflectivity(1:nZ,1) = ZERO + ! ------------------------------------ ! Infrared ICE emissivity/reflectivity ! ------------------------------------ @@ -2099,7 +2105,9 @@ FUNCTION CRTM_Compute_SfcOptics_AD( & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) = & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) + & (Reflectivity_AD(1:nZ,1:nL,1:nZ,1:nL)*Surface%Ice_Coverage) - + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) = & + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) + & + (Direct_Reflectivity_AD(1:nZ,1:nL)*Surface%Ice_Coverage) ! Compute the surface optics adjoints Error_Status = Compute_IR_Ice_SfcOptics_AD( SfcOptics_AD ) IF ( Error_Status /= SUCCESS ) THEN @@ -2126,7 +2134,9 @@ FUNCTION CRTM_Compute_SfcOptics_AD( & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) = & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) + & (Reflectivity_AD(1:nZ,1:nL,1:nZ,1:nL)*Surface%Snow_Coverage) - + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) = & + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) + & + (Direct_Reflectivity_AD(1:nZ,1:nL)*Surface%Snow_Coverage) ! Compute the surface optics adjoints Error_Status = Compute_IR_Snow_SfcOptics_AD( SfcOptics_AD ) IF ( Error_Status /= SUCCESS ) THEN @@ -2153,7 +2163,9 @@ FUNCTION CRTM_Compute_SfcOptics_AD( & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) = & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) + & (Reflectivity_AD(1:nZ,1:nL,1:nZ,1:nL)*Surface%Water_Coverage) - + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) = & + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) + & + (Direct_Reflectivity_AD(1:nZ,1:nL)*Surface%Water_Coverage) ! Compute the surface optics adjoints Error_Status = Compute_IR_Water_SfcOptics_AD( & Surface , & ! Input @@ -2188,7 +2200,9 @@ FUNCTION CRTM_Compute_SfcOptics_AD( & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) = & SfcOptics_AD%Reflectivity(1:nZ,1:nL,1:nZ,1:nL) + & (Reflectivity_AD(1:nZ,1:nL,1:nZ,1:nL)*Surface%Land_Coverage) - + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) = & + SfcOptics_AD%Direct_Reflectivity(1:nZ,1:nL) + & + (Direct_Reflectivity_AD(1:nZ,1:nL)*Surface%Land_Coverage) ! Compute the surface optics adjoints ! **STUB PROCEDURE** Error_Status = Compute_IR_Land_SfcOptics_AD( SfcOptics_AD ) diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_SfcOptics_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_SfcOptics_Define.f90 similarity index 62% rename from var/external/crtm_2.2.3/libsrc/CRTM_SfcOptics_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_SfcOptics_Define.f90 index 4e659b96e6..ec7737c1fc 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_SfcOptics_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_SfcOptics_Define.f90 @@ -37,10 +37,13 @@ MODULE CRTM_SfcOptics_Define PUBLIC :: CRTM_SfcOptics_type ! Operators PUBLIC :: OPERATOR(==) + PUBLIC :: OPERATOR(+) + PUBLIC :: OPERATOR(-) ! Procedures PUBLIC :: CRTM_SfcOptics_Associated PUBLIC :: CRTM_SfcOptics_Destroy PUBLIC :: CRTM_SfcOptics_Create + PUBLIC :: CRTM_SfcOptics_Zero PUBLIC :: CRTM_SfcOptics_Inspect PUBLIC :: CRTM_SfcOptics_DefineVersion PUBLIC :: CRTM_SfcOptics_Compare @@ -52,13 +55,21 @@ MODULE CRTM_SfcOptics_Define INTERFACE OPERATOR(==) MODULE PROCEDURE CRTM_SfcOptics_Equal END INTERFACE OPERATOR(==) + + INTERFACE OPERATOR(+) + MODULE PROCEDURE CRTM_SfcOptics_Add + END INTERFACE OPERATOR(+) + + INTERFACE OPERATOR(-) + MODULE PROCEDURE CRTM_SfcOptics_Subtract + END INTERFACE OPERATOR(-) ! ----------------- ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_SfcOptics_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_SfcOptics_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! ----------------------------------- @@ -184,10 +195,10 @@ MODULE CRTM_SfcOptics_Define !:sdoc-: !-------------------------------------------------------------------------------- - ELEMENTAL FUNCTION CRTM_SfcOptics_Associated( SfcOptics ) RESULT( Status ) - TYPE(CRTM_SfcOptics_type), INTENT(IN) :: SfcOptics + ELEMENTAL FUNCTION CRTM_SfcOptics_Associated( self ) RESULT( Status ) + TYPE(CRTM_SfcOptics_type), INTENT(IN) :: self LOGICAL :: Status - Status = SfcOptics%Is_Allocated + Status = self%Is_Allocated END FUNCTION CRTM_SfcOptics_Associated @@ -213,9 +224,9 @@ END FUNCTION CRTM_SfcOptics_Associated !:sdoc-: !-------------------------------------------------------------------------------- - ELEMENTAL SUBROUTINE CRTM_SfcOptics_Destroy( SfcOptics ) - TYPE(CRTM_SfcOptics_type), INTENT(OUT) :: SfcOptics - SfcOptics%Is_Allocated = .FALSE. + ELEMENTAL SUBROUTINE CRTM_SfcOptics_Destroy( self ) + TYPE(CRTM_SfcOptics_type), INTENT(OUT) :: self + self%Is_Allocated = .FALSE. END SUBROUTINE CRTM_SfcOptics_Destroy @@ -229,32 +240,40 @@ END SUBROUTINE CRTM_SfcOptics_Destroy ! Elemental subroutine to create an instance of the CRTM SfcOptics object. ! ! CALLING SEQUENCE: -! CALL CRTM_SfcOptics_Create( SfcOptics, n_Layers ) +! CALL CRTM_SfcOptics_Create( SfcOptics, n_Angles, n_Stokes ) ! ! OBJECTS: -! SfcOptics: SfcOptics structure. +! SfcOptics: SfcOptics structure. ! UNITS: N/A ! TYPE: CRTM_SfcOptics_type ! DIMENSION: Scalar or any rank ! ATTRIBUTES: INTENT(OUT) ! ! INPUTS: -! n_Layers: Number of layers for which there is SfcOptics data. +! n_Angles: Number of angles for which there is SfcOptics data. ! Must be > 0. ! UNITS: N/A ! TYPE: INTEGER -! DIMENSION: Same as SfcOptics object +! DIMENSION: Conformable with SfcOptics object +! ATTRIBUTES: INTENT(IN) +! +! n_Stokes: Number of Stokes components for which there is SfcOptics +! data. +! Must be > 0. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Conformable with SfcOptics object ! ATTRIBUTES: INTENT(IN) ! !:sdoc-: !-------------------------------------------------------------------------------- ELEMENTAL SUBROUTINE CRTM_SfcOptics_Create( & - SfcOptics, & + self, & n_Angles , & n_Stokes ) ! Arguments - TYPE(CRTM_SfcOptics_type), INTENT(OUT) :: SfcOptics + TYPE(CRTM_SfcOptics_type), INTENT(OUT) :: self INTEGER, INTENT(IN) :: n_Angles INTEGER, INTENT(IN) :: n_Stokes ! Local variables @@ -264,31 +283,67 @@ ELEMENTAL SUBROUTINE CRTM_SfcOptics_Create( & IF ( n_Angles < 1 .OR. n_Stokes < 1 ) RETURN ! Perform the allocation - ALLOCATE( SfcOptics%Angle( n_Angles ), & - SfcOptics%Weight( n_Angles ), & - SfcOptics%Emissivity( n_Angles, n_Stokes ), & - SfcOptics%Reflectivity( n_Angles, n_Stokes, n_Angles, n_Stokes), & - SfcOptics%Direct_Reflectivity( n_Angles, n_Stokes ), & + ALLOCATE( self%Angle( n_Angles ), & + self%Weight( n_Angles ), & + self%Emissivity( n_Angles, n_Stokes ), & + self%Reflectivity( n_Angles, n_Stokes, n_Angles, n_Stokes), & + self%Direct_Reflectivity( n_Angles, n_Stokes ), & STAT = alloc_stat ) IF ( alloc_stat /= 0 ) RETURN ! Initialise ! ...Dimensions - SfcOptics%n_Angles = n_Angles - SfcOptics%n_Stokes = n_Stokes + self%n_Angles = n_Angles + self%n_Stokes = n_Stokes ! ...Arrays - SfcOptics%Angle = ZERO - SfcOptics%Weight = ZERO - SfcOptics%Emissivity = ZERO - SfcOptics%Reflectivity = ZERO - SfcOptics%Direct_Reflectivity = ZERO + self%Angle = ZERO + self%Weight = ZERO + self%Emissivity = ZERO + self%Reflectivity = ZERO + self%Direct_Reflectivity = ZERO ! Set allocation indicator - SfcOptics%Is_Allocated = .TRUE. + self%Is_Allocated = .TRUE. END SUBROUTINE CRTM_SfcOptics_Create +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_SfcOptics_Zero +! +! PURPOSE: +! Elemental subroutine to initialise the components of an SfcOptics +! object to a value of zero. +! +! CALLING SEQUENCE: +! CALL CRTM_SfcOptics_Zero( SfcOptics ) +! +! OBJECTS: +! SfcOptics: SfcOptics object which is to have its components +! set to a zero value. +! UNITS: N/A +! TYPE: CRTM_SfcOptics_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN OUT) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL SUBROUTINE CRTM_SfcOptics_Zero( self ) + TYPE(CRTM_SfcOptics_type), INTENT(IN OUT) :: self + self%Azimuth_Angle = 999.9_fp + self%Transmittance = ZERO + self%Surface_Temperature = ZERO + IF ( .NOT. CRTM_SfcOptics_Associated( self ) ) RETURN + self%Emissivity = ZERO + self%Reflectivity = ZERO + self%Direct_Reflectivity = ZERO + END SUBROUTINE CRTM_SfcOptics_Zero + + !-------------------------------------------------------------------------------- !:sdoc+: ! @@ -311,32 +366,32 @@ END SUBROUTINE CRTM_SfcOptics_Create !:sdoc-: !-------------------------------------------------------------------------------- - SUBROUTINE CRTM_SfcOptics_Inspect( SfcOptics ) - TYPE(CRTM_SfcOptics_type), INTENT(IN) :: SfcOptics + SUBROUTINE CRTM_SfcOptics_Inspect( self ) + TYPE(CRTM_SfcOptics_type), INTENT(IN) :: self WRITE(*, '(1x,"SfcOptics OBJECT")') ! Dimensions - WRITE(*, '(3x,"n_Angles :",1x,i0)') SfcOptics%n_Angles - WRITE(*, '(3x,"n_Stokes :",1x,i0)') SfcOptics%n_Stokes + WRITE(*, '(3x,"n_Angles :",1x,i0)') self%n_Angles + WRITE(*, '(3x,"n_Stokes :",1x,i0)') self%n_Stokes ! Display components - WRITE(*, '(3x,"Compute flag :",1x,l1)') SfcOptics%Compute - WRITE(*, '(3x,"Use_New_MWSSEM flag :",1x,l1)') SfcOptics%Use_New_MWSSEM - WRITE(*, '(3x," MWSSEM- azimuth angle :",1x,es13.6)') SfcOptics%Azimuth_Angle - WRITE(*, '(3x," MWSSEM- transmittance :",1x,es13.6)') SfcOptics%Transmittance - WRITE(*, '(3x,"Satellite view angle index:",1x,i0)') SfcOptics%Index_Sat_Ang - WRITE(*, '(3x,"Azimuth Fourier component :",1x,i0)') SfcOptics%mth_Azi - WRITE(*, '(3x,"Weighted mean Tsfc :",1x,es13.6)') SfcOptics%Surface_Temperature - IF ( .NOT. CRTM_SfcOptics_Associated(SfcOptics) ) RETURN + WRITE(*, '(3x,"Compute flag :",1x,l1)') self%Compute + WRITE(*, '(3x,"Use_New_MWSSEM flag :",1x,l1)') self%Use_New_MWSSEM + WRITE(*, '(3x," MWSSEM- azimuth angle :",1x,es13.6)') self%Azimuth_Angle + WRITE(*, '(3x," MWSSEM- transmittance :",1x,es13.6)') self%Transmittance + WRITE(*, '(3x,"Satellite view angle index:",1x,i0)') self%Index_Sat_Ang + WRITE(*, '(3x,"Azimuth Fourier component :",1x,i0)') self%mth_Azi + WRITE(*, '(3x,"Weighted mean Tsfc :",1x,es13.6)') self%Surface_Temperature + IF ( .NOT. CRTM_SfcOptics_Associated(self) ) RETURN WRITE(*, '(3x,"Angle :")') - WRITE(*, '(5(1x,es13.6,:))') SfcOptics%Angle + WRITE(*, '(5(1x,es13.6,:))') self%Angle WRITE(*, '(3x,"Weight :")') - WRITE(*, '(5(1x,es13.6,:))') SfcOptics%Weight + WRITE(*, '(5(1x,es13.6,:))') self%Weight WRITE(*, '(3x,"Emissivity :")') - WRITE(*, '(5(1x,es13.6,:))') SfcOptics%Emissivity + WRITE(*, '(5(1x,es13.6,:))') self%Emissivity WRITE(*, '(3x,"Reflectivity :")') - WRITE(*, '(5(1x,es13.6,:))') SfcOptics%Reflectivity + WRITE(*, '(5(1x,es13.6,:))') self%Reflectivity WRITE(*, '(3x,"Direct_Reflectivity :")') - WRITE(*, '(5(1x,es13.6,:))') SfcOptics%Direct_Reflectivity + WRITE(*, '(5(1x,es13.6,:))') self%Direct_Reflectivity END SUBROUTINE CRTM_SfcOptics_Inspect @@ -504,28 +559,152 @@ ELEMENTAL FUNCTION CRTM_SfcOptics_Equal( x, y ) RESULT( is_equal ) is_equal = .FALSE. ! Check the structure association status - IF ( (.NOT. CRTM_SfcOptics_Associated(x)) .OR. & - (.NOT. CRTM_SfcOptics_Associated(y)) ) RETURN + IF ( CRTM_SfcOptics_Associated(x) .NEQV. CRTM_SfcOptics_Associated(y) ) RETURN ! Check contents ! ...Dimensions IF ( (x%n_Angles /= y%n_Angles) .OR. & (x%n_Stokes /= y%n_Stokes) ) RETURN - ! ...Everything else - IF ( (x%Compute .EQV. y%Compute ) .AND. & - (x%Use_New_MWSSEM .EQV. y%Use_New_MWSSEM ) .AND. & - (x%Azimuth_Angle .EqualTo. y%Azimuth_Angle ) .AND. & - (x%Transmittance .EqualTo. y%Transmittance ) .AND. & - (x%Index_Sat_Ang == y%Index_Sat_Ang ) .AND. & - (x%mth_Azi == y%mth_Azi ) .AND. & - (x%Surface_Temperature .EqualTo. y%Surface_Temperature) .AND. & - ALL(x%Angle .EqualTo. y%Angle ) .AND. & - ALL(x%Weight .EqualTo. y%Weight ) .AND. & - ALL(x%Emissivity .EqualTo. y%Emissivity ) .AND. & - ALL(x%Reflectivity .EqualTo. y%Reflectivity ) .AND. & - ALL(x%Direct_Reflectivity .EqualTo. y%Direct_Reflectivity) ) & - is_equal = .TRUE. + ! ...Scalars + IF ( .NOT. ((x%Compute .EQV. y%Compute ) .AND. & + (x%Use_New_MWSSEM .EQV. y%Use_New_MWSSEM ) .AND. & + (x%Azimuth_Angle .EqualTo. y%Azimuth_Angle ) .AND. & + (x%Transmittance .EqualTo. y%Transmittance ) .AND. & + (x%Index_Sat_Ang == y%Index_Sat_Ang ) .AND. & + (x%mth_Azi == y%mth_Azi ) .AND. & + (x%Surface_Temperature .EqualTo. y%Surface_Temperature)) ) RETURN + ! ...Arrays + IF ( CRTM_SfcOptics_Associated(x) .AND. CRTM_SfcOptics_Associated(y) ) THEN + IF ( .NOT. (ALL(x%Angle .EqualTo. y%Angle ) .AND. & + ALL(x%Weight .EqualTo. y%Weight ) .AND. & + ALL(x%Emissivity .EqualTo. y%Emissivity ) .AND. & + ALL(x%Reflectivity .EqualTo. y%Reflectivity ) .AND. & + ALL(x%Direct_Reflectivity .EqualTo. y%Direct_Reflectivity)) ) RETURN + END IF + + + ! If we get here, then... + is_equal = .TRUE. END FUNCTION CRTM_SfcOptics_Equal + +!------------------------------------------------------------------------------ +! +! NAME: +! CRTM_SfcOptics_Add +! +! PURPOSE: +! Pure function to add two CRTM_SfcOptics objects. +! Used in OPERATOR(+) interface block. +! +! CALLING SEQUENCE: +! sosum = CRTM_SfcOptics_Add( so1, so2 ) +! +! or +! +! sosum = so1 + so2 +! +! INPUTS: +! so1, so2: Two CRTM SfcOptics objects to be added. +! UNITS: N/A +! TYPE: CRTM_SfcOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! RESULT: +! sosum: SfcOptics object containing the added components. +! UNITS: N/A +! TYPE: CRTM_SfcOptics_type +! DIMENSION: Scalar +! +!------------------------------------------------------------------------------ + + ELEMENTAL FUNCTION CRTM_SfcOptics_Add( so1, so2 ) RESULT( sosum ) + TYPE(CRTM_SfcOptics_type), INTENT(IN) :: so1, so2 + TYPE(CRTM_SfcOptics_type) :: sosum + + ! Check the structure association status + IF ( (.NOT. CRTM_SfcOptics_Associated(so1)) .OR. & + (.NOT. CRTM_SfcOptics_Associated(so2)) ) RETURN + + ! Check contents + ! ...Dimensions + IF ( (so1%n_Angles /= so2%n_Angles) .OR. & + (so1%n_Stokes /= so2%n_Stokes) ) RETURN + + ! Copy the first structure + sosum = so1 + + ! And add its components to the second one + ! ...The scalar values + sosum%Transmittance = sosum%Transmittance + so2%Transmittance + sosum%Surface_Temperature = sosum%Surface_Temperature + so2%Surface_Temperature + ! ...The arrays + sosum%Reflectivity = sosum%Reflectivity + so2%Reflectivity + sosum%Direct_Reflectivity = sosum%Direct_Reflectivity + so2%Direct_Reflectivity + sosum%Emissivity = sosum%Emissivity + so2%Emissivity + + END FUNCTION CRTM_SfcOptics_Add + + + +!------------------------------------------------------------------------------ +! +! NAME: +! CRTM_SfcOptics_Subtract +! +! PURPOSE: +! Pure function to subtract two CRTM_SfcOptics objects. +! Used in OPERATOR(-) interface block. +! +! CALLING SEQUENCE: +! sodiff = CRTM_SfcOptics_Subtract( so1, so2 ) +! +! or +! +! sodiff = so1 - so2 +! +! INPUTS: +! so1, so2: Two CRTM SfcOptics objects to be subtracted. +! UNITS: N/A +! TYPE: CRTM_SfcOptics_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! RESULT: +! sodiff: SfcOptics object containing the differenced components. +! UNITS: N/A +! TYPE: CRTM_SfcOptics_type +! DIMENSION: Scalar +! +!------------------------------------------------------------------------------ + + ELEMENTAL FUNCTION CRTM_SfcOptics_Subtract( so1, so2 ) RESULT( sodiff ) + TYPE(CRTM_SfcOptics_type), INTENT(IN) :: so1, so2 + TYPE(CRTM_SfcOptics_type) :: sodiff + + ! Check the structure association status + IF ( (.NOT. CRTM_SfcOptics_Associated(so1)) .OR. & + (.NOT. CRTM_SfcOptics_Associated(so2)) ) RETURN + + ! Check contents + ! ...Dimensions + IF ( (so1%n_Angles /= so2%n_Angles) .OR. & + (so1%n_Stokes /= so2%n_Stokes) ) RETURN + + ! Copy the first structure + sodiff = so1 + + ! And subtract the second one from it + ! ...The scalar values + sodiff%Transmittance = sodiff%Transmittance - so2%Transmittance + sodiff%Surface_Temperature = sodiff%Surface_Temperature - so2%Surface_Temperature + ! ...The arrays + sodiff%Reflectivity = sodiff%Reflectivity - so2%Reflectivity + sodiff%Direct_Reflectivity = sodiff%Direct_Reflectivity - so2%Direct_Reflectivity + sodiff%Emissivity = sodiff%Emissivity - so2%Emissivity + + END FUNCTION CRTM_SfcOptics_Subtract + END MODULE CRTM_SfcOptics_Define diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_SpcCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_SpcCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_SpcCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_SpcCoeff.f90 index 58d48bb790..daea5b8115 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_SpcCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_SpcCoeff.f90 @@ -103,7 +103,7 @@ MODULE CRTM_SpcCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_SpcCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_SpcCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Surface_Define.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Surface_Define.f90 similarity index 97% rename from var/external/crtm_2.2.3/libsrc/CRTM_Surface_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Surface_Define.f90 index 52b32888c9..47f16f52a0 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Surface_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Surface_Define.f90 @@ -83,6 +83,7 @@ MODULE CRTM_Surface_Define PUBLIC :: CRTM_Surface_Associated PUBLIC :: CRTM_Surface_Destroy PUBLIC :: CRTM_Surface_Create + PUBLIC :: CRTM_Surface_NonVariableCopy PUBLIC :: CRTM_Surface_Zero PUBLIC :: CRTM_Surface_IsValid PUBLIC :: CRTM_Surface_Inspect @@ -125,7 +126,7 @@ MODULE CRTM_Surface_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Surface_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Surface_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp @@ -322,11 +323,6 @@ END FUNCTION CRTM_Surface_Associated ELEMENTAL SUBROUTINE CRTM_Surface_Destroy( Sfc ) TYPE(CRTM_Surface_type), INTENT(OUT) :: Sfc -!gfortran compiler (V4.4.0 and 4.3.3) and older PGI compilers can -!not handle INTENT(OUT) properly, add a dummy local type so that -!Sfc is forced to be re-initialized. - TYPE(CRTM_Surface_type) :: Dummy - Sfc = Dummy Sfc%Is_Allocated = .TRUE. ! Placeholder for future expansion END SUBROUTINE CRTM_Surface_Destroy @@ -383,6 +379,56 @@ ELEMENTAL SUBROUTINE CRTM_Surface_Create( & END SUBROUTINE CRTM_Surface_Create +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! CRTM_Surface_NonVariableCopy +! +! PURPOSE: +! Elemental utility subroutine to copy the "non-variable" data (coverages +! and surface types) from one instance of a CRTM Surface object to another +! (usually a TL or AD one). +! +! NOTE: No error checking is performed in this procedure. +! +! CALLING SEQUENCE: +! CALL CRTM_Surface_NonVariableCopy( sfc, modified_sfc ) +! +! OBJECTS: +! sfc: Surface object from which to copy. +! UNITS: N/A +! TYPE: CRTM_Surface_type +! DIMENSION: Scalar or any rank +! ATTRIBUTES: INTENT(IN) +! +! IN/OUTPUTS: +! modified_sfc: Existing Surface object to be modified. +! UNITS: N/A +! TYPE: CRTM_Surface_type +! DIMENSION: Conformable with sfc input +! ATTRIBUTES: INTENT(IN OUT) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + ELEMENTAL SUBROUTINE CRTM_Surface_NonVariableCopy( sfc, modified_sfc ) + TYPE(CRTM_Surface_type), INTENT(IN) :: sfc + TYPE(CRTM_Surface_type), INTENT(IN OUT) :: modified_sfc + + modified_sfc%Land_Coverage = sfc%Land_Coverage + modified_sfc%Water_Coverage = sfc%Water_Coverage + modified_sfc%Snow_Coverage = sfc%Snow_Coverage + modified_sfc%Ice_Coverage = sfc%Ice_Coverage + + modified_sfc%Land_Type = sfc%Land_Type + modified_sfc%Water_Type = sfc%Water_Type + modified_sfc%Snow_Type = sfc%Snow_Type + modified_sfc%Ice_Type = sfc%Ice_Type + + END SUBROUTINE CRTM_Surface_NonVariableCopy + + !-------------------------------------------------------------------------------- !:sdoc+: ! @@ -1070,7 +1116,8 @@ FUNCTION Read_Surface_Rank1( & CALL Read_Cleanup(); RETURN END IF ! ...Allocate the return structure array - ALLOCATE(Surface(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + !ALLOCATE(Surface(n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + ALLOCATE(Surface(n_input_profiles), STAT=alloc_stat) IF ( alloc_stat /= 0 ) THEN msg = 'Error allocating Surface array - '//TRIM(alloc_msg) CALL Read_Cleanup(); RETURN @@ -1117,7 +1164,8 @@ SUBROUTINE Read_CleanUp() msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF IF ( ALLOCATED(Surface) ) THEN - DEALLOCATE(Surface, STAT=alloc_stat, ERRMSG=alloc_msg) + !DEALLOCATE(Surface, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(Surface, STAT=alloc_stat) IF ( alloc_stat /= 0 ) & msg = TRIM(msg)//'; Error deallocating Surface array during error cleanup - '//& TRIM(alloc_msg) @@ -1184,7 +1232,8 @@ FUNCTION Read_Surface_Rank2( & CALL Read_Cleanup(); RETURN END IF ! ...Allocate the return structure array - ALLOCATE(Surface(n_input_channels, n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + !ALLOCATE(Surface(n_input_channels, n_input_profiles), STAT=alloc_stat, ERRMSG=alloc_msg) + ALLOCATE(Surface(n_input_channels, n_input_profiles), STAT=alloc_stat) IF ( alloc_stat /= 0 ) THEN msg = 'Error allocating Surface array - '//TRIM(alloc_msg) CALL Read_Cleanup(); RETURN @@ -1235,7 +1284,8 @@ SUBROUTINE Read_CleanUp() msg = TRIM(msg)//'; Error closing input file during error cleanup - '//TRIM(io_msg) END IF IF ( ALLOCATED(Surface) ) THEN - DEALLOCATE(Surface, STAT=alloc_stat, ERRMSG=alloc_msg) + !DEALLOCATE(Surface, STAT=alloc_stat, ERRMSG=alloc_msg) + DEALLOCATE(Surface, STAT=alloc_stat) IF ( alloc_stat /= 0 ) & msg = TRIM(msg)//'; Error deallocating Surface array during error cleanup - '//& TRIM(alloc_msg) diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Tangent_Linear_Module.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Tangent_Linear_Module.f90 similarity index 68% rename from var/external/crtm_2.2.3/libsrc/CRTM_Tangent_Linear_Module.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Tangent_Linear_Module.f90 index cba0dbc940..76a2ffacb2 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Tangent_Linear_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Tangent_Linear_Module.f90 @@ -40,10 +40,17 @@ MODULE CRTM_Tangent_Linear_Module CRTM_Geometry_IsValid USE CRTM_ChannelInfo_Define, ONLY: CRTM_ChannelInfo_type, & CRTM_ChannelInfo_n_Channels + USE CRTM_RTSolution_Define, ONLY: CRTM_RTSolution_type , & + CRTM_RTSolution_Destroy, & + CRTM_RTSolution_Zero USE CRTM_Options_Define, ONLY: CRTM_Options_type, & CRTM_Options_IsValid - USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers, & - CRTM_Atmosphere_AddLayers_TL + USE CRTM_Atmosphere, ONLY: CRTM_Atmosphere_AddLayers , & + CRTM_Atmosphere_AddLayers_TL , & + CRTM_Atmosphere_IsFractional , & + CRTM_Atmosphere_Coverage , & + CRTM_Atmosphere_ClearSkyCopy , & + CRTM_Atmosphere_ClearSkyCopy_TL USE CRTM_GeometryInfo_Define, ONLY: CRTM_GeometryInfo_type, & CRTM_GeometryInfo_SetValue, & CRTM_GeometryInfo_GetValue @@ -67,50 +74,47 @@ MODULE CRTM_Tangent_Linear_Module CRTM_Compute_AerosolScatter_TL USE CRTM_CloudScatter, ONLY: CRTM_Compute_CloudScatter , & CRTM_Compute_CloudScatter_TL - USE CRTM_AtmOptics, ONLY: AOvar_type , & - AOvar_Create, & - CRTM_Include_Scattering, & - CRTM_Compute_Transmittance , & - CRTM_Compute_Transmittance_TL, & - CRTM_Combine_AtmOptics , & - CRTM_Combine_AtmOptics_TL + USE CRTM_AtmOptics, ONLY: CRTM_Include_Scattering, & + CRTM_Compute_Transmittance , & + CRTM_Compute_Transmittance_TL , & + CRTM_AtmOptics_Combine , & + CRTM_AtmOptics_Combine_TL , & + CRTM_AtmOptics_NoScatterCopy , & + CRTM_AtmOptics_NoScatterCopy_TL USE CRTM_SfcOptics_Define, ONLY: CRTM_SfcOptics_type , & CRTM_SfcOptics_Associated, & CRTM_SfcOptics_Create , & CRTM_SfcOptics_Destroy USE CRTM_SfcOptics, ONLY: CRTM_Compute_SurfaceT , & CRTM_Compute_SurfaceT_TL - USE CRTM_RTSolution, ONLY: CRTM_RTSolution_type , & - CRTM_Compute_nStreams , & + USE CRTM_RTSolution, ONLY: CRTM_Compute_nStreams , & CRTM_Compute_RTSolution , & CRTM_Compute_RTSolution_TL - USE RTV_Define, ONLY: RTV_type , & - RTV_Associated, & - RTV_Destroy , & - RTV_Create USE CRTM_AntennaCorrection, ONLY: CRTM_Compute_AntCorr, & CRTM_Compute_AntCorr_TL USE CRTM_MoleculeScatter, ONLY: CRTM_Compute_MoleculeScatter, & CRTM_Compute_MoleculeScatter_TL USE CRTM_AncillaryInput_Define, ONLY: CRTM_AncillaryInput_type - USE CRTM_CloudCoeff, ONLY: CRTM_CloudCoeff_IsLoaded USE CRTM_AerosolCoeff, ONLY: CRTM_AerosolCoeff_IsLoaded - USE CRTM_NLTECorrection, ONLY: NLTE_Predictor_type , & NLTE_Predictor_IsActive , & Compute_NLTE_Predictor , & Compute_NLTE_Predictor_TL , & Compute_NLTE_Correction , & Compute_NLTE_Correction_TL - USE ACCoeff_Define, ONLY: ACCoeff_Associated USE NLTECoeff_Define, ONLY: NLTECoeff_Associated - USE CRTM_Planck_Functions, ONLY: CRTM_Planck_Temperature , & CRTM_Planck_Temperature_TL + USE CRTM_CloudCover_Define, ONLY: CRTM_CloudCover_type ! Internal variable definition modules + ! ...AtmOptics + USE AOvar_Define, ONLY: AOvar_type, & + AOvar_Associated, & + AOvar_Destroy , & + AOvar_Create ! ...CloudScatter USE CSvar_Define, ONLY: CSvar_type, & CSvar_Associated, & @@ -121,6 +125,11 @@ MODULE CRTM_Tangent_Linear_Module ASvar_Associated, & ASvar_Destroy , & ASvar_Create + ! ...Radiative transfer + USE RTV_Define, ONLY: RTV_type, & + RTV_Associated, & + RTV_Destroy , & + RTV_Create ! ----------------------- @@ -144,7 +153,7 @@ MODULE CRTM_Tangent_Linear_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Tangent_Linear_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Tangent_Linear_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -281,12 +290,8 @@ FUNCTION CRTM_Tangent_Linear( & ! Local variables CHARACTER(256) :: Message LOGICAL :: Options_Present - LOGICAL :: Check_Input - LOGICAL :: User_Emissivity, User_Direct_Reflectivity, User_N_Streams - LOGICAL :: User_AntCorr, Compute_AntCorr - LOGICAL :: Apply_NLTE_Correction + LOGICAL :: compute_antenna_correction LOGICAL :: Atmosphere_Invalid, Surface_Invalid, Geometry_Invalid, Options_Invalid - INTEGER :: RT_Algorithm_Id INTEGER :: Status_FWD, Status_TL INTEGER :: iFOV INTEGER :: n, n_Sensors, SensorIndex @@ -294,15 +299,24 @@ FUNCTION CRTM_Tangent_Linear( & INTEGER :: m, n_Profiles INTEGER :: ln INTEGER :: n_Full_Streams, mth_Azi + INTEGER :: cloud_coverage_flag REAL(fp) :: Source_ZA REAL(fp) :: Wavenumber REAL(fp) :: transmittance, transmittance_TL + REAL(fp) :: transmittance_clear, transmittance_clear_TL + REAL(fp) :: r_cloudy ! Local ancillary input structure TYPE(CRTM_AncillaryInput_type) :: AncillaryInput - ! Local options structure for default values - TYPE(CRTM_Options_type) :: Default_Options + ! Local options structure for default and use values + TYPE(CRTM_Options_type) :: Default_Options, Opt ! Local atmosphere structure for extra layering TYPE(CRTM_Atmosphere_type) :: Atm, Atm_TL + ! Clear sky structures + TYPE(CRTM_Atmosphere_type) :: Atm_Clear , Atm_Clear_TL + TYPE(CRTM_AtmOptics_type) :: AtmOptics_Clear , AtmOptics_Clear_TL + TYPE(CRTM_SfcOptics_type) :: SfcOptics_Clear , SfcOptics_Clear_TL + TYPE(CRTM_RTSolution_type) :: RTSolution_Clear, RTSolution_Clear_TL + TYPE(RTV_type) :: RTV_Clear ! Component variables TYPE(CRTM_GeometryInfo_type) :: GeometryInfo TYPE(CRTM_Predictor_type) :: Predictor, Predictor_TL @@ -316,7 +330,9 @@ FUNCTION CRTM_Tangent_Linear( & TYPE(AOvar_type) :: AOvar ! AtmOptics TYPE(RTV_type) :: RTV ! RTSolution ! NLTE correction term predictors - TYPE(NLTE_Predictor_type) :: NLTE_Predictor, NLTE_Predictor_TL + TYPE(NLTE_Predictor_type) :: NLTE_Predictor, NLTE_Predictor_TL + ! Cloud cover object + TYPE(CRTM_CloudCover_type) :: CloudCover, CloudCover_TL ! ------ @@ -371,6 +387,10 @@ FUNCTION CRTM_Tangent_Linear( & END IF + ! Reinitialise the output RTSolution + CALL CRTM_RTSolution_Zero(RTSolution) + + ! Allocate the profile independent surface optics local structure CALL CRTM_SfcOptics_Create( SfcOptics , MAX_N_ANGLES, MAX_N_STOKES ) CALL CRTM_SfcOptics_Create( SfcOptics_TL, MAX_N_ANGLES, MAX_N_STOKES ) @@ -407,62 +427,20 @@ FUNCTION CRTM_Tangent_Linear( & ! Check the optional Options structure argument - ! ...Specify default actions - Check_Input = Default_Options%Check_Input - User_Emissivity = Default_Options%Use_Emissivity - User_AntCorr = Default_Options%Use_Antenna_Correction - Apply_NLTE_Correction = Default_Options%Apply_NLTE_Correction - RT_Algorithm_Id = Default_Options%RT_Algorithm_Id - User_N_Streams = Default_Options%Use_N_Streams - ! ...Check the Options argument - IF (Options_Present) THEN - ! Override input checker with option - Check_Input = Options(m)%Check_Input - ! Check if the supplied emissivity should be used - User_Emissivity = Options(m)%Use_Emissivity - IF ( Options(m)%Use_Emissivity ) THEN - ! Are the channel dimensions consistent - IF ( Options(m)%n_Channels < n_Channels ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & - &"than the number of requested channels (",i0, ")" )' ) & - Options(m)%n_Channels, n_Channels - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - ! Check if the supplied direct reflectivity should be used - User_Direct_Reflectivity = Options(m)%Use_Direct_Reflectivity - END IF - ! Check if antenna correction should be attempted - User_AntCorr = Options(m)%Use_Antenna_Correction - ! Set NLTE correction option - Apply_NLTE_Correction = Options(m)%Apply_NLTE_Correction - + Opt = Default_Options + IF ( Options_Present ) THEN + Opt = Options(m) ! Copy over ancillary input AncillaryInput%SSU = Options(m)%SSU AncillaryInput%Zeeman = Options(m)%Zeeman - ! Copy over surface optics input - SfcOptics%Use_New_MWSSEM = .NOT. Options(m)%Use_Old_MWSSEM - ! Specify the RT algorithm - RT_Algorithm_Id = Options(m)%RT_Algorithm_Id - ! Check if n_Streams should be used - User_N_Streams = Options(m)%Use_N_Streams - ! Check value for nstreams - IF ( User_N_Streams ) THEN - IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & - Options(m)%n_Streams > MAX_N_STREAMS ) THEN - Error_Status = FAILURE - WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & - Options(m)%n_Streams - CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) - RETURN - END IF - END IF END IF + ! ...Assign the option specific SfcOptics input + SfcOptics%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM + SfcOptics_TL%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM ! Check the input data if required - IF ( Check_Input ) THEN + IF ( Opt%Check_Input ) THEN ! ...Mandatory inputs Atmosphere_Invalid = .NOT. CRTM_Atmosphere_IsValid( Atmosphere(m) ) Surface_Invalid = .NOT. CRTM_Surface_IsValid( Surface(m) ) @@ -482,6 +460,28 @@ FUNCTION CRTM_Tangent_Linear( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + ! Are the channel dimensions consistent if emissivity is passed? + IF ( Options(m)%Use_Emissivity ) THEN + IF ( Options(m)%n_Channels < n_Channels ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options channel dimension (", i0, ") is less ", & + &"than the number of requested channels (",i0, ")" )' ) & + Options(m)%n_Channels, n_Channels + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + ! Check value for user-defined n_Streams + IF ( Options(m)%Use_N_Streams ) THEN + IF ( Options(m)%n_Streams <= 0 .OR. MOD(Options(m)%n_Streams,2) /= 0 .OR. & + Options(m)%n_Streams > MAX_N_STREAMS ) THEN + Error_Status = FAILURE + WRITE( Message,'( "Input Options n_Streams (", i0, ") is invalid" )' ) & + Options(m)%n_Streams + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF END IF END IF @@ -497,11 +497,6 @@ FUNCTION CRTM_Tangent_Linear( & Source_Zenith_Angle = Source_ZA ) - ! Average surface skin temperature for multi-surface types - CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) - CALL CRTM_Compute_SurfaceT_TL( Surface(m), Surface_TL(m), SfcOptics_TL ) - - ! Add extra layers to current atmosphere profile ! if necessary to handle upper atmosphere Error_Status = CRTM_Atmosphere_AddLayers( Atmosphere(m), Atm ) @@ -527,7 +522,10 @@ FUNCTION CRTM_Tangent_Linear( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - ! ...Allocate the atmospheric optics structures based on Atm extension + + + ! Prepre the atmospheric optics structures + ! ...Allocate the AtmOptics structures based on Atm extension CALL CRTM_AtmOptics_Create( AtmOptics, & Atm%n_Layers , & MAX_N_LEGENDRE_TERMS, & @@ -536,18 +534,16 @@ FUNCTION CRTM_Tangent_Linear( & Atm%n_Layers , & MAX_N_LEGENDRE_TERMS, & MAX_N_PHASE_ELEMENTS ) - IF ( .NOT. CRTM_AtmOptics_Associated( Atmoptics ) .OR. & - .NOT. CRTM_AtmOptics_Associated( Atmoptics_TL ) ) THEN + IF ( (.NOT. CRTM_AtmOptics_Associated( Atmoptics )) .OR. & + (.NOT. CRTM_AtmOptics_Associated( Atmoptics_TL )) ) THEN Error_Status = FAILURE WRITE( Message,'("Error allocating AtmOptics data structures for profile #",i0)' ) m CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF - IF (Options_Present) THEN - ! Set Scattering Switch - AtmOptics%Include_Scattering = Options(m)%Include_Scattering - AtmOptics_TL%Include_Scattering = Options(m)%Include_Scattering - END IF + ! ...Set the scattering switch + AtmOptics%Include_Scattering = Opt%Include_Scattering + AtmOptics_TL%Include_Scattering = Opt%Include_Scattering ! ...Allocate the atmospheric optics internal structure CALL AOvar_Create( AOvar, Atm%n_Layers ) @@ -571,6 +567,57 @@ FUNCTION CRTM_Tangent_Linear( & END IF + ! Determine the type of cloud coverage + cloud_coverage_flag = CRTM_Atmosphere_Coverage( atm ) + + + ! Setup for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + + ! Compute cloudcover + Status_FWD = CloudCover%Compute_CloudCover(atm, Overlap = opt%Overlap_Id) + Status_TL = CloudCover_TL%Compute_CloudCover_TL(CloudCover, atm, atm_TL) + IF ( Status_FWD /= SUCCESS .OR. Status_TL /= SUCCESS ) THEN + Error_Status = FAILURE + WRITE( Message,'("Error computing cloud cover for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + + ! Allocate all the CLEAR sky structures for fractional cloud coverage + ! ...Clear sky atmosphere + Status_FWD = CRTM_Atmosphere_ClearSkyCopy(Atm, Atm_Clear) + Status_TL = CRTM_Atmosphere_ClearSkyCopy_TL(Atm, Atm_TL, Atm_Clear_TL) + IF ( Status_FWD /= SUCCESS .OR. Status_TL /= SUCCESS ) THEN + Error_status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY Atmopshere structures for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Clear sky SfcOptics + CALL CRTM_SfcOptics_Create( SfcOptics_Clear , MAX_N_ANGLES, MAX_N_STOKES ) + CALL CRTM_SfcOptics_Create( SfcOptics_Clear_TL, MAX_N_ANGLES, MAX_N_STOKES ) + IF ( (.NOT. CRTM_SfcOptics_Associated(SfcOptics_Clear)) .OR. & + (.NOT. CRTM_SfcOptics_Associated(SfcOptics_Clear_TL))) THEN + Error_Status = FAILURE + WRITE( Message,'("Error allocating CLEAR SKY SfcOptics data structures for profile #",i0)' ) m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + ! ...Copy over surface optics input + SfcOptics_Clear%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM + SfcOptics_Clear_TL%Use_New_MWSSEM = .NOT. Opt%Use_Old_MWSSEM + ! ...CLEAR SKY average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics_Clear ) + CALL CRTM_Compute_SurfaceT_TL( Surface(m), Surface_TL(m), SfcOptics_Clear_TL ) + END IF + + + ! Average surface skin temperature for multi-surface types + CALL CRTM_Compute_SurfaceT( Surface(m), SfcOptics ) + CALL CRTM_Compute_SurfaceT_TL( Surface(m), Surface_TL(m), SfcOptics_TL ) + + ! ----------- ! SENSOR LOOP ! ----------- @@ -585,13 +632,9 @@ FUNCTION CRTM_Tangent_Linear( & ! Check if antenna correction to be applied for current sensor - IF ( User_AntCorr .AND. & - ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & - iFOV /= 0 ) THEN - Compute_AntCorr = .TRUE. - ELSE - Compute_AntCorr = .FALSE. - END IF + compute_antenna_correction = ( Opt%Use_Antenna_Correction .AND. & + ACCoeff_Associated( SC(SensorIndex)%AC ) .AND. & + iFOV /= 0 ) ! Compute predictors for AtmAbsorption calcs @@ -630,9 +673,10 @@ FUNCTION CRTM_Tangent_Linear( & ! Allocate the RTV structure if necessary - IF( (Atm%n_Clouds > 0 .OR. & - Atm%n_Aerosols > 0 .OR. & - SpcCoeff_IsVisibleSensor( SC(SensorIndex) ) ) .and. AtmOptics%Include_Scattering ) THEN + IF( ( Atm%n_Clouds > 0 .OR. & + Atm%n_Aerosols > 0 .OR. & + SpcCoeff_IsVisibleSensor(SC(SensorIndex)) ) .AND. & + AtmOptics%Include_Scattering ) THEN CALL RTV_Create( RTV, MAX_N_ANGLES, MAX_N_LEGENDRE_TERMS, Atm%n_Layers ) IF ( .NOT. RTV_Associated(RTV) ) THEN Error_Status=FAILURE @@ -642,12 +686,12 @@ FUNCTION CRTM_Tangent_Linear( & RETURN END IF ! Assign algorithm selector - RTV%RT_Algorithm_Id = RT_Algorithm_Id + RTV%RT_Algorithm_Id = Opt%RT_Algorithm_Id END IF ! Compute NLTE correction predictors - IF ( Apply_NLTE_Correction ) THEN + IF ( Opt%Apply_NLTE_Correction ) THEN CALL Compute_NLTE_Predictor( & SC(SensorIndex)%NC, & ! Input Atm , & ! Input @@ -686,11 +730,15 @@ FUNCTION CRTM_Tangent_Linear( & ! Initialisations CALL CRTM_AtmOptics_Zero( AtmOptics ) CALL CRTM_AtmOptics_Zero( AtmOptics_TL ) + CALL CRTM_AtmOptics_Zero( AtmOptics_Clear ) + CALL CRTM_AtmOptics_Zero( AtmOptics_Clear_TL ) + CALL CRTM_RTSolution_Zero( RTSolution_Clear ) + CALL CRTM_RTSolution_Zero( RTSolution_Clear_TL ) ! Determine the number of streams (n_Full_Streams) in up+downward directions - IF ( User_N_Streams ) THEN - n_Full_Streams = Options(m)%n_Streams + IF ( Opt%Use_N_Streams ) THEN + n_Full_Streams = Opt%n_Streams RTSolution(ln,m)%n_Full_Streams = n_Full_Streams + 2 RTSolution(ln,m)%Scattering_Flag = .TRUE. ELSE @@ -724,14 +772,6 @@ FUNCTION CRTM_Tangent_Linear( & AtmOptics%Optical_Depth * RTSolution_TL(ln,m)%Gamma - ! Compute the total atmospheric transmittance - ! for use in FASTEM-X reflection correction - CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) - SfcOptics%Transmittance = transmittance - CALL CRTM_Compute_Transmittance_TL(AtmOptics,AtmOptics_TL,transmittance_TL) - SfcOptics_TL%Transmittance = transmittance_TL - - ! Compute the molecular scattering properties ! ...Solar radiation IF( SC(SensorIndex)%Solar_Irradiance(ChannelIndex) > ZERO .AND. & @@ -772,6 +812,25 @@ FUNCTION CRTM_Tangent_Linear( & ELSE RTV%Visible_Flag_true = .FALSE. RTV%n_Azi = 0 + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%Visible_Flag_true = .FALSE. + RTV_Clear%n_Azi = 0 + END IF + END IF + + + ! Copy the clear-sky AtmOptics + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + Status_FWD = CRTM_AtmOptics_NoScatterCopy( AtmOptics, AtmOptics_Clear ) + Status_TL = CRTM_AtmOptics_NoScatterCopy_TL( AtmOptics, AtmOptics_TL, AtmOptics_Clear_TL ) + IF ( Status_FWD /= SUCCESS .OR. Status_TL /= SUCCESS ) THEN + Error_Status = FAILURE + WRITE( Message,'("Error copying CLEAR SKY AtmOptics for ",a,& + &", channel ",i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF END IF @@ -827,34 +886,53 @@ FUNCTION CRTM_Tangent_Linear( & ! Compute the combined atmospheric optical properties IF( AtmOptics%Include_Scattering ) THEN - CALL CRTM_Combine_AtmOptics( AtmOptics, AOvar ) - CALL CRTM_Combine_AtmOptics_TL( AtmOptics, AtmOptics_TL, AOvar ) + CALL CRTM_AtmOptics_Combine( AtmOptics, AOvar ) + CALL CRTM_AtmOptics_Combine_TL( AtmOptics, AtmOptics_TL, AOvar ) END IF ! ...Save vertically integrated scattering optical depth for output - RTSolution(ln,m)%SOD = AtmOptics%Scattering_Optical_Depth + RTSolution(ln,m)%SOD = AtmOptics%Scattering_Optical_Depth + RTSolution_TL(ln,m)%SOD = AtmOptics_TL%Scattering_Optical_Depth - ! Turn off FASTEM-X reflection correction for scattering conditions - IF ( CRTM_Include_Scattering(AtmOptics) .AND. SpcCoeff_IsMicrowaveSensor( SC(SensorIndex) ) ) THEN - SfcOptics%Transmittance = -ONE - ELSE - SfcOptics%Transmittance = transmittance + ! Compute the all-sky atmospheric transmittance + ! for use in FASTEM-X reflection correction + CALL CRTM_Compute_Transmittance(AtmOptics,transmittance) + SfcOptics%Transmittance = transmittance + CALL CRTM_Compute_Transmittance_TL(AtmOptics,AtmOptics_TL,transmittance_TL) + SfcOptics_TL%Transmittance = transmittance_TL + ! ...Clear sky for fractional cloud cover + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + CALL CRTM_Compute_Transmittance(AtmOptics_Clear,transmittance_clear) + SfcOptics_Clear%Transmittance = transmittance_clear + CALL CRTM_Compute_Transmittance_TL(AtmOptics_Clear,AtmOptics_Clear_TL,transmittance_clear_TL) + SfcOptics_Clear_TL%Transmittance = transmittance_clear_TL END IF ! Fill the SfcOptics structure for the optional emissivity input case. - ! ...Indicate SfcOptics ARE to be computed - SfcOptics%Compute = .TRUE. - ! ...Change SfcOptics emissivity/reflectivity contents/computation status - IF ( User_Emissivity ) THEN + SfcOptics%Compute = .TRUE. + SfcOptics_Clear%Compute = .TRUE. + IF ( Opt%Use_Emissivity ) THEN + ! ...Cloudy/all-sky case SfcOptics%Compute = .FALSE. - SfcOptics%Emissivity(1,1) = Options(m)%Emissivity(ln) - SfcOptics%Reflectivity(1,1,1,1) = ONE - Options(m)%Emissivity(ln) - IF ( User_Direct_Reflectivity ) THEN - SfcOptics%Direct_Reflectivity(1,1) = Options(m)%Direct_Reflectivity(ln) + SfcOptics%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) ELSE SfcOptics%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) END IF + ! ...Repeat for fractional clear-sky case + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + SfcOptics_Clear%Compute = .FALSE. + SfcOptics_Clear%Emissivity(1,1) = Opt%Emissivity(ln) + SfcOptics_Clear%Reflectivity(1,1,1,1) = ONE - Opt%Emissivity(ln) + IF ( Opt%Use_Direct_Reflectivity ) THEN + SfcOptics_Clear%Direct_Reflectivity(1,1) = Opt%Direct_Reflectivity(ln) + ELSE + SfcOptics_Clear%Direct_Reflectivity(1,1) = SfcOptics%Reflectivity(1,1,1,1) + END IF + END IF END IF @@ -912,74 +990,176 @@ FUNCTION CRTM_Tangent_Linear( & CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) RETURN END IF + + + ! Do clear-sky calculation for fractionally cloudy atmospheres + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + RTV_Clear%mth_Azi = mth_Azi + SfcOptics_Clear%mth_Azi = mth_Azi + ! ...Forward model + Error_Status = CRTM_Compute_RTSolution( & + Atm_Clear , & ! Input + Surface(m) , & ! Input + AtmOptics_Clear , & ! Input + SfcOptics_Clear , & ! Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + RTSolution_Clear, & ! Output + RTV_Clear ) ! Internal variable output + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + + ! ...Tangent-linear model + Error_Status = CRTM_Compute_RTSolution_TL( & + Atm_Clear , & ! FWD Input + Surface(m) , & ! FWD Input + AtmOptics_Clear , & ! FWD Input + SfcOptics_Clear , & ! FWD Input + RTSolution_Clear , & ! FWD Input + Atm_Clear_TL , & ! TL Input + Surface_TL(m) , & ! TL Input + AtmOptics_Clear_TL , & ! TL Input + SfcOptics_Clear_TL , & ! TL Input + GeometryInfo , & ! Input + SensorIndex , & ! Input + ChannelIndex , & ! Input + RTSolution_Clear_TL, & ! TL Output + RTV_Clear ) ! Internal variable input + IF ( Error_Status /= SUCCESS ) THEN + WRITE( Message,'( "Error computing CLEAR SKY RTSolution_TL for ", a, & + &", channel ", i0,", profile #",i0)' ) & + TRIM(ChannelInfo(n)%Sensor_ID), ChannelInfo(n)%Sensor_Channel(l), m + CALL Display_Message( ROUTINE_NAME, Message, Error_Status ) + RETURN + END IF + END IF + END DO Azimuth_Fourier_Loop - ! Compute non-LTE correction to radiance if required - IF ( Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN - CALL Compute_NLTE_Correction( & - SC(SensorIndex)%NC , & ! Input - ChannelIndex , & ! Input - NLTE_Predictor , & ! Input - RTSolution(ln,m)%Radiance ) ! In/Output - CALL Compute_NLTE_Correction_TL( & - SC(SensorIndex)%NC , & ! Input - ChannelIndex , & ! Input - NLTE_Predictor_TL , & ! Input - RTSolution_TL(ln,m)%Radiance ) ! In/Output - END IF - ! Convert the radiance to brightness temperature - CALL CRTM_Planck_Temperature( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution(ln,m)%Brightness_Temperature ) ! Output - CALL CRTM_Planck_Temperature_TL( & - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m)%Radiance , & ! Input - RTSolution_TL(ln,m)%Radiance , & ! Input - RTSolution_TL(ln,m)%Brightness_Temperature ) ! Output - - ! Compute Antenna correction to brightness temperature if required - IF ( Compute_AntCorr ) THEN - CALL CRTM_Compute_AntCorr( & - GeometryInfo , & ! Input - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution(ln,m) ) ! Output - CALL CRTM_Compute_AntCorr_TL( & - GeometryInfo , & ! Input - SensorIndex , & ! Input - ChannelIndex , & ! Input - RTSolution_TL(ln,m) ) ! Output + ! Combine cloudy and clear radiances for fractional cloud coverage + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + ! ...Save the 100% cloudy radince (or just reverse the order of calculation?) + r_cloudy = RTSolution(ln,m)%Radiance + ! ...Forward radiance + RTSolution(ln,m)%Radiance = & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_Clear%Radiance) + & + (CloudCover%Total_Cloud_Cover * RTSolution(ln,m)%Radiance) + ! ...Tangent-linear radince + RTSolution_TL(ln,m)%Radiance = & + ((r_cloudy - RTSolution_Clear%Radiance) * CloudCover_TL%Total_Cloud_Cover) + & + ((ONE - CloudCover%Total_Cloud_Cover) * RTSolution_Clear_TL%Radiance ) + & + (CloudCover%Total_Cloud_Cover * RTSolution_TL(ln,m)%Radiance ) + ! ...Save the cloud cover in the output structures + RTSolution(ln,m)%Total_Cloud_Cover = CloudCover%Total_Cloud_Cover + RTSolution_TL(ln,m)%Total_Cloud_Cover = CloudCover_TL%Total_Cloud_Cover END IF - END DO Channel_Loop - - ! Deallocate local sensor dependent data structures - ! ...RTV structure - IF ( RTV_Associated(RTV) ) CALL RTV_Destroy(RTV) - ! ...Predictor structures - CALL CRTM_Predictor_Destroy( Predictor ) - CALL CRTM_Predictor_Destroy( Predictor_TL ) - END DO Sensor_Loop + ! The radiance post-processing + CALL Post_Process_RTSolution(RTSolution(ln,m), RTSolution_TL(ln,m)) + + + ! Perform clear-sky post-processing + IF ( CRTM_Atmosphere_IsFractional(cloud_coverage_flag) ) THEN + CALL Post_Process_RTSolution(RTSolution_Clear, RTSolution_Clear_TL) + ! ...Save the results in the output structure + RTSolution(ln,m)%R_Clear = RTSolution_Clear%Radiance + RTSolution(ln,m)%Tb_Clear = RTSolution_Clear%Brightness_Temperature + RTSolution_TL(ln,m)%R_Clear = RTSolution_Clear_TL%Radiance + RTSolution_TL(ln,m)%Tb_Clear = RTSolution_Clear_TL%Brightness_Temperature + END IF + END DO Channel_Loop - ! Deallocate local sensor independent data structures - ! ...Atmospheric optics - CALL CRTM_AtmOptics_Destroy( AtmOptics ) - CALL CRTM_AtmOptics_Destroy( AtmOptics_TL ) + END DO Sensor_Loop END DO Profile_Loop - ! Destroy any remaining structures + ! Clean up + CALL CRTM_Predictor_Destroy( Predictor ) + CALL CRTM_Predictor_Destroy( Predictor_TL ) + CALL CRTM_AtmOptics_Destroy( AtmOptics ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_TL ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_Clear ) + CALL CRTM_AtmOptics_Destroy( AtmOptics_Clear_TL ) CALL CRTM_SfcOptics_Destroy( SfcOptics ) CALL CRTM_SfcOptics_Destroy( SfcOptics_TL ) - CALL CRTM_Atmosphere_Destroy( Atm_TL ) + CALL CRTM_SfcOptics_Destroy( SfcOptics_Clear ) + CALL CRTM_SfcOptics_Destroy( SfcOptics_Clear_TL ) CALL CRTM_Atmosphere_Destroy( Atm ) + CALL CRTM_Atmosphere_Destroy( Atm_TL ) + CALL CRTM_Atmosphere_Destroy( Atm_Clear ) + CALL CRTM_Atmosphere_Destroy( Atm_Clear_TL ) + ! ...Internal variables + CALL AOvar_Destroy( AOvar ) + CALL CSvar_Destroy( CSvar ) + CALL ASvar_Destroy( ASvar ) + CALL RTV_Destroy( RTV ) + + + CONTAINS + + + ! ---------------------------------------------------------------- + ! Local subroutine to post-process the radiance, as it is the same + ! for all-sky and fractional clear-sky cases. + ! + ! 1. Apply non-LTE correction to radiances + ! 2. Convert radiances to brightness temperatures + ! 3. Apply antenna correction to brightness temperatures + ! ---------------------------------------------------------------- + + SUBROUTINE Post_Process_RTSolution(rts, rts_TL) + TYPE(CRTM_RTSolution_type), INTENT(IN OUT) :: rts, rts_TL + + ! Compute non-LTE correction to radiance if required + IF ( Opt%Apply_NLTE_Correction .AND. NLTE_Predictor_IsActive(NLTE_Predictor) ) THEN + CALL Compute_NLTE_Correction( & + SC(SensorIndex)%NC, & ! Input + ChannelIndex , & ! Input + NLTE_Predictor , & ! Input + rts%Radiance ) ! In/Output + CALL Compute_NLTE_Correction_TL( & + SC(SensorIndex)%NC, & ! Input + ChannelIndex , & ! Input + NLTE_Predictor_TL , & ! Input + rts_TL%Radiance ) ! In/Output + END IF + ! Convert the radiance to brightness temperature + CALL CRTM_Planck_Temperature( & + SensorIndex , & ! Input + ChannelIndex , & ! Input + rts%Radiance , & ! Input + rts%Brightness_Temperature ) ! Output + CALL CRTM_Planck_Temperature_TL( & + SensorIndex , & ! Input + ChannelIndex , & ! Input + rts%Radiance , & ! Input + rts_TL%Radiance , & ! Input + rts_TL%Brightness_Temperature ) ! Output + ! Compute Antenna correction to brightness temperature if required + IF ( compute_antenna_correction ) THEN + CALL CRTM_Compute_AntCorr( & + GeometryInfo, & ! Input + SensorIndex , & ! Input + ChannelIndex, & ! Input + rts ) ! Output + CALL CRTM_Compute_AntCorr_TL( & + GeometryInfo, & ! Input + SensorIndex , & ! Input + ChannelIndex, & ! Input + rts_TL ) ! Output + END IF + + END SUBROUTINE Post_Process_RTSolution END FUNCTION CRTM_Tangent_Linear diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_TauCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_TauCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_TauCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_TauCoeff.f90 index b635671f15..bc1b700642 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_TauCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_TauCoeff.f90 @@ -73,7 +73,7 @@ MODULE CRTM_TauCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: CRTM_TauCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_TauCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! -------------------------------------- diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_Utility.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_Utility.f90 index 278c65ef2b..4b3b9eddf1 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Utility.f90 @@ -56,7 +56,7 @@ MODULE CRTM_UTILITY ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Numerical small threshold value in Eigensystem REAL(fp), PARAMETER :: EIGEN_THRESHOLD = 1.0e-20_fp diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Ice_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Ice_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VIS_Ice_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VIS_Ice_SfcOptics.f90 index 1e69c33487..65a91aa309 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Ice_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Ice_SfcOptics.f90 @@ -49,7 +49,7 @@ MODULE CRTM_VIS_Ice_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VIS_Ice_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VIS_Ice_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Land_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Land_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VIS_Land_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VIS_Land_SfcOptics.f90 index e1b99885f1..d758aeb904 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Land_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Land_SfcOptics.f90 @@ -49,7 +49,7 @@ MODULE CRTM_VIS_Land_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VIS_Land_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VIS_Land_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Snow_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Snow_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VIS_Snow_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VIS_Snow_SfcOptics.f90 index 641707cc58..92c84c0de4 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Snow_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Snow_SfcOptics.f90 @@ -49,7 +49,7 @@ MODULE CRTM_VIS_Snow_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VIS_Snow_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VIS_Snow_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Water_SfcOptics.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Water_SfcOptics.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VIS_Water_SfcOptics.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VIS_Water_SfcOptics.f90 index 71db6513cb..d059afb009 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VIS_Water_SfcOptics.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VIS_Water_SfcOptics.f90 @@ -49,7 +49,7 @@ MODULE CRTM_VIS_Water_SfcOptics ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VIS_Water_SfcOptics.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VIS_Water_SfcOptics.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VISiceCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VISiceCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VISiceCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VISiceCoeff.f90 index c2a6fbde5c..48dd34f6e6 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VISiceCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VISiceCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_VISiceCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VISiceCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VISiceCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VISlandCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VISlandCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VISlandCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VISlandCoeff.f90 index 26337cee39..fec23944dd 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VISlandCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VISlandCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_VISlandCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VISlandCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VISlandCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VISsnowCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VISsnowCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VISsnowCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VISsnowCoeff.f90 index 2d2c097fbf..6074bfe5bd 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VISsnowCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VISsnowCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_VISsnowCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VISsnowCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VISsnowCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.2.3/libsrc/CRTM_VISwaterCoeff.f90 b/var/external/crtm_2.3.0/libsrc/CRTM_VISwaterCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CRTM_VISwaterCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/CRTM_VISwaterCoeff.f90 index 7c36da842e..342a864eb5 100644 --- a/var/external/crtm_2.2.3/libsrc/CRTM_VISwaterCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/CRTM_VISwaterCoeff.f90 @@ -53,7 +53,7 @@ MODULE CRTM_VISwaterCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CRTM_VISwaterCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CRTM_VISwaterCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 512 diff --git a/var/external/crtm_2.3.0/libsrc/CRTM_Version.inc b/var/external/crtm_2.3.0/libsrc/CRTM_Version.inc new file mode 100644 index 0000000000..18af496b45 --- /dev/null +++ b/var/external/crtm_2.3.0/libsrc/CRTM_Version.inc @@ -0,0 +1 @@ +'v2.3.0' diff --git a/var/external/crtm_2.2.3/libsrc/CSvar_Define.f90 b/var/external/crtm_2.3.0/libsrc/CSvar_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CSvar_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CSvar_Define.f90 index 06e5ec6760..3eb0e307ae 100644 --- a/var/external/crtm_2.2.3/libsrc/CSvar_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CSvar_Define.f90 @@ -64,7 +64,7 @@ MODULE CSvar_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CSvar_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CSvar_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: CSVAR_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: CSVAR_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/CloudCoeff_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/CloudCoeff_Binary_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CloudCoeff_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/CloudCoeff_Binary_IO.f90 index bcbd16c723..6cf7555c80 100644 --- a/var/external/crtm_2.2.3/libsrc/CloudCoeff_Binary_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/CloudCoeff_Binary_IO.f90 @@ -43,7 +43,7 @@ MODULE CloudCoeff_Binary_IO ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CloudCoeff_Binary_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CloudCoeff_Binary_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CHARACTER(*), PARAMETER :: WRITE_ERROR_STATUS = 'DELETE' ! Default message length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/CloudCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/CloudCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/CloudCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/CloudCoeff_Define.f90 index 2b22f8e38d..d59afc302c 100644 --- a/var/external/crtm_2.2.3/libsrc/CloudCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/CloudCoeff_Define.f90 @@ -56,7 +56,7 @@ MODULE CloudCoeff_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: CloudCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: CloudCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! CloudCoeff init values REAL(Double), PARAMETER :: ZERO = 0.0_Double ! Keyword set value diff --git a/var/external/crtm_2.2.3/libsrc/Common_RTSolution.f90 b/var/external/crtm_2.3.0/libsrc/Common_RTSolution.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Common_RTSolution.f90 rename to var/external/crtm_2.3.0/libsrc/Common_RTSolution.f90 index 604dc4f9aa..a3e84d17b6 100644 --- a/var/external/crtm_2.2.3/libsrc/Common_RTSolution.f90 +++ b/var/external/crtm_2.3.0/libsrc/Common_RTSolution.f90 @@ -238,6 +238,8 @@ FUNCTION Assign_Common_Input( & ! Assign only the optical depth profile ! defined by the user input layering RTSolution%Layer_Optical_Depth(1:no) = AtmOptics%Optical_Depth(na+1:nt) + RTSolution%Single_Scatter_Albedo(1:no) = AtmOptics%Single_Scatter_Albedo(na+1:nt) + RTSolution%SSA_Max = MAXVAL(AtmOptics%Single_Scatter_Albedo) END IF ! Required SpcCoeff components RTV%Cosmic_Background_Radiance = SC(SensorIndex)%Cosmic_Background_Radiance(ChannelIndex) diff --git a/var/external/crtm_2.2.3/libsrc/Compare_Float_Numbers.f90 b/var/external/crtm_2.3.0/libsrc/Compare_Float_Numbers.f90 similarity index 95% rename from var/external/crtm_2.2.3/libsrc/Compare_Float_Numbers.f90 rename to var/external/crtm_2.3.0/libsrc/Compare_Float_Numbers.f90 index a22864470d..278096bab0 100644 --- a/var/external/crtm_2.2.3/libsrc/Compare_Float_Numbers.f90 +++ b/var/external/crtm_2.3.0/libsrc/Compare_Float_Numbers.f90 @@ -27,6 +27,8 @@ MODULE Compare_Float_Numbers ! ------------ PRIVATE ! Parameters + PUBLIC :: SP_N_SIGFIG + PUBLIC :: DP_N_SIGFIG PUBLIC :: DEFAULT_N_SIGFIG ! Operators PUBLIC :: OPERATOR (.EqualTo.) @@ -85,7 +87,7 @@ MODULE Compare_Float_Numbers ! ----------------- ! Module Version Id CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Compare_Float_Numbers.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Compare_Float_Numbers.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Numeric literals REAL(Single), PARAMETER :: SP_ZERO = 0.0_Single REAL(Double), PARAMETER :: DP_ZERO = 0.0_Double @@ -95,10 +97,16 @@ MODULE Compare_Float_Numbers REAL(Double), PARAMETER :: DP_TEN = 10.0_Double REAL(Single), PARAMETER :: SP_HUNDRED = 100.0_Single REAL(Double), PARAMETER :: DP_HUNDRED = 100.0_Double - REAL(Single), PARAMETER :: SP_COMPARE_CUTOFF = 1.0e-15_Single - REAL(Double), PARAMETER :: DP_COMPARE_CUTOFF = 1.0e-15_Double + ! Default cutoff value for comparisons + REAL(Single), PARAMETER :: SP_COMPARE_CUTOFF = TINY(1.0_Single) + REAL(Double), PARAMETER :: DP_COMPARE_CUTOFF = TINY(1.0_Double) + ! Minimum exponents for precisions + INTEGER, PARAMETER :: SP_MIN_EXPONENT = -RANGE(1.0_Single) + INTEGER, PARAMETER :: DP_MIN_EXPONENT = -RANGE(1.0_Double) ! Default number of significant figures - INTEGER, PARAMETER :: DEFAULT_N_SIGFIG = 6 + INTEGER, PARAMETER :: SP_N_SIGFIG = 7 + INTEGER, PARAMETER :: DP_N_SIGFIG = 15 + INTEGER, PARAMETER :: DEFAULT_N_SIGFIG = SP_N_SIGFIG CONTAINS @@ -527,7 +535,7 @@ END FUNCTION Compare_Complex_Double ! specified number of significant figures. ! ! CALLING SEQUENCE: -! Result = Tolerance( x, n ) +! tol = Tolerance( x, n ) ! ! INPUT ARGUMENTS: ! x: Floating point value for which a tolerance value is required. @@ -546,15 +554,15 @@ END FUNCTION Compare_Complex_Double ! tolerance is required. ! UNITS: N/A ! TYPE: INTEGER -! DIMENSION: Scalar or same as input x. +! DIMENSION: Conformable with input x. ! ATTRIBUTES: INTENT(IN) ! ! FUNCTION RESULT: -! Result: The return value is a tolerance value that can be used to +! tol: The return value is a tolerance value that can be used to ! compare two numbers. ! UNITS: N/A ! TYPE: Same as input x. -! DIMENSION: Same as input x. +! DIMENSION: Conformable with input x. !:sdoc-: !---------------------------------------------------------------------------------- @@ -565,10 +573,11 @@ ELEMENTAL FUNCTION Tolerance_Real_Single(x,n) RESULT( Tolerance ) INTEGER :: e IF (ABS(x) > SP_ZERO) THEN e = FLOOR(LOG10(ABS(x))) - n - Tolerance = SP_TEN**e ELSE - Tolerance = SP_ONE + e = -n END IF + e = MAX(e,SP_MIN_EXPONENT) + Tolerance = SP_TEN**e END FUNCTION Tolerance_Real_Single ELEMENTAL FUNCTION Tolerance_Real_Double(x,n) RESULT( Tolerance ) @@ -578,10 +587,11 @@ ELEMENTAL FUNCTION Tolerance_Real_Double(x,n) RESULT( Tolerance ) INTEGER :: e IF (ABS(x) > DP_ZERO) THEN e = FLOOR(LOG10(ABS(x))) - n - Tolerance = DP_TEN**e ELSE - Tolerance = DP_ONE + e = -n END IF + e = MAX(e,DP_MIN_EXPONENT) + Tolerance = DP_TEN**e END FUNCTION Tolerance_Real_Double ELEMENTAL FUNCTION Tolerance_Complex_Single(x,n) RESULT( Tolerance ) @@ -641,8 +651,7 @@ END FUNCTION Tolerance_Complex_Double ! OPTIONAL INPUTS: ! cutoff: Floating point value below which the comparison is not ! performed. In this case, the function result will be .TRUE. -! If not specified, the default value is 1.0e-15 for real -! input, or (1.0e-15,1.0e-15) for complex input. +! If not specified, the default value is TINY(). ! UNITS: N/A ! TYPE: Same as input x ! DIMENSION: Scalar or same as input x, y. diff --git a/var/external/crtm_2.2.3/libsrc/DateTime_Utility.f90 b/var/external/crtm_2.3.0/libsrc/DateTime_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/DateTime_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/DateTime_Utility.f90 index ff12bd967a..66abd797d5 100644 --- a/var/external/crtm_2.2.3/libsrc/DateTime_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/DateTime_Utility.f90 @@ -45,7 +45,7 @@ MODULE DateTime_Utility ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: DateTime_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: DateTime_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' INTEGER, PARAMETER :: NL = 20 diff --git a/var/external/crtm_2.2.3/libsrc/Date_Utility.f90 b/var/external/crtm_2.3.0/libsrc/Date_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Date_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/Date_Utility.f90 index 8a516a3526..a820f1224c 100644 --- a/var/external/crtm_2.2.3/libsrc/Date_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/Date_Utility.f90 @@ -39,7 +39,7 @@ MODULE Date_Utility ! Parameters ! ---------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Date_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Date_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! String length for character functions INTEGER, PARAMETER :: NL = 20 ! Number of Months in a Year diff --git a/var/external/crtm_2.2.3/libsrc/Ellison.f90 b/var/external/crtm_2.3.0/libsrc/Ellison.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Ellison.f90 rename to var/external/crtm_2.3.0/libsrc/Ellison.f90 index 98f759cb5d..a0bce2d78c 100644 --- a/var/external/crtm_2.2.3/libsrc/Ellison.f90 +++ b/var/external/crtm_2.3.0/libsrc/Ellison.f90 @@ -46,7 +46,7 @@ MODULE Ellison ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Ellison.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Ellison.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: POINT5 = 0.5_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Emission_Module.f90 b/var/external/crtm_2.3.0/libsrc/Emission_Module.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/Emission_Module.f90 rename to var/external/crtm_2.3.0/libsrc/Emission_Module.f90 diff --git a/var/external/crtm_2.2.3/libsrc/Endian_Utility.f90 b/var/external/crtm_2.3.0/libsrc/Endian_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Endian_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/Endian_Utility.f90 index 5a9302aa28..b05037e0a5 100644 --- a/var/external/crtm_2.2.3/libsrc/Endian_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/Endian_Utility.f90 @@ -556,11 +556,11 @@ END MODULE Endian_Utility ! -- MODIFICATION HISTORY -- !------------------------------------------------------------------------------- ! -! $Id: Endian_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $ +! $Id: Endian_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $ ! ! $Date: 2004/12/01 19:35:15 $ ! -! $Revision: 60152 $ +! $Revision: 99117 $ ! ! $State: Exp $ ! diff --git a/var/external/crtm_2.2.3/libsrc/File_Utility.f90 b/var/external/crtm_2.3.0/libsrc/File_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/File_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/File_Utility.f90 index 125f631dd8..7494174b2d 100644 --- a/var/external/crtm_2.2.3/libsrc/File_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/File_Utility.f90 @@ -350,11 +350,11 @@ END MODULE File_Utility ! -- MODIFICATION HISTORY -- !------------------------------------------------------------------------------- ! -! $Id: File_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $ +! $Id: File_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $ ! ! $Date: 2006/03/17 21:05:12 $ ! -! $Revision: 60152 $ +! $Revision: 99117 $ ! ! $Name: $ ! diff --git a/var/external/crtm_2.2.3/libsrc/FitCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/FitCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/FitCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/FitCoeff_Define.f90 index 1be292a467..261b38fbdb 100644 --- a/var/external/crtm_2.2.3/libsrc/FitCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/FitCoeff_Define.f90 @@ -120,7 +120,7 @@ MODULE FitCoeff_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: FitCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: FitCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: FITCOEFF_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: FITCOEFF_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/FitCoeff_Destroy.inc b/var/external/crtm_2.3.0/libsrc/FitCoeff_Destroy.inc similarity index 100% rename from var/external/crtm_2.2.3/libsrc/FitCoeff_Destroy.inc rename to var/external/crtm_2.3.0/libsrc/FitCoeff_Destroy.inc diff --git a/var/external/crtm_2.2.3/libsrc/FitCoeff_Equal.inc b/var/external/crtm_2.3.0/libsrc/FitCoeff_Equal.inc similarity index 100% rename from var/external/crtm_2.2.3/libsrc/FitCoeff_Equal.inc rename to var/external/crtm_2.3.0/libsrc/FitCoeff_Equal.inc diff --git a/var/external/crtm_2.2.3/libsrc/FitCoeff_Info.inc b/var/external/crtm_2.3.0/libsrc/FitCoeff_Info.inc similarity index 100% rename from var/external/crtm_2.2.3/libsrc/FitCoeff_Info.inc rename to var/external/crtm_2.3.0/libsrc/FitCoeff_Info.inc diff --git a/var/external/crtm_2.2.3/libsrc/FitCoeff_ReadFile.inc b/var/external/crtm_2.3.0/libsrc/FitCoeff_ReadFile.inc similarity index 100% rename from var/external/crtm_2.2.3/libsrc/FitCoeff_ReadFile.inc rename to var/external/crtm_2.3.0/libsrc/FitCoeff_ReadFile.inc diff --git a/var/external/crtm_2.2.3/libsrc/FitCoeff_SetValue.inc b/var/external/crtm_2.3.0/libsrc/FitCoeff_SetValue.inc similarity index 100% rename from var/external/crtm_2.2.3/libsrc/FitCoeff_SetValue.inc rename to var/external/crtm_2.3.0/libsrc/FitCoeff_SetValue.inc diff --git a/var/external/crtm_2.2.3/libsrc/FitCoeff_WriteFile.inc b/var/external/crtm_2.3.0/libsrc/FitCoeff_WriteFile.inc similarity index 100% rename from var/external/crtm_2.2.3/libsrc/FitCoeff_WriteFile.inc rename to var/external/crtm_2.3.0/libsrc/FitCoeff_WriteFile.inc diff --git a/var/external/crtm_2.2.3/libsrc/Foam_Utility_Module.f90 b/var/external/crtm_2.3.0/libsrc/Foam_Utility_Module.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/Foam_Utility_Module.f90 rename to var/external/crtm_2.3.0/libsrc/Foam_Utility_Module.f90 index eed0c2d056..4659d52247 100644 --- a/var/external/crtm_2.2.3/libsrc/Foam_Utility_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/Foam_Utility_Module.f90 @@ -36,7 +36,7 @@ MODULE Foam_Utility_Module ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Foam_Utility_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Foam_Utility_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Fresnel.f90 b/var/external/crtm_2.3.0/libsrc/Fresnel.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Fresnel.f90 rename to var/external/crtm_2.3.0/libsrc/Fresnel.f90 index 9cf1316410..0970739d3f 100644 --- a/var/external/crtm_2.2.3/libsrc/Fresnel.f90 +++ b/var/external/crtm_2.3.0/libsrc/Fresnel.f90 @@ -35,7 +35,7 @@ MODULE Fresnel ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: Fresnel.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Fresnel.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: POINT5 = 0.5_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Fundamental_Constants.f90 b/var/external/crtm_2.3.0/libsrc/Fundamental_Constants.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Fundamental_Constants.f90 rename to var/external/crtm_2.3.0/libsrc/Fundamental_Constants.f90 index 5544795743..f1bd4491ec 100644 --- a/var/external/crtm_2.2.3/libsrc/Fundamental_Constants.f90 +++ b/var/external/crtm_2.3.0/libsrc/Fundamental_Constants.f90 @@ -45,7 +45,7 @@ MODULE Fundamental_Constants ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Fundamental_Constants.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Fundamental_Constants.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Numeric literals REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Guillou.f90 b/var/external/crtm_2.3.0/libsrc/Guillou.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Guillou.f90 rename to var/external/crtm_2.3.0/libsrc/Guillou.f90 index 4ce27a3875..2685d7846a 100644 --- a/var/external/crtm_2.2.3/libsrc/Guillou.f90 +++ b/var/external/crtm_2.3.0/libsrc/Guillou.f90 @@ -44,7 +44,7 @@ MODULE Guillou ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Guillou.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Guillou.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: POINT5 = 0.5_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Hyperbolic_Step.f90 b/var/external/crtm_2.3.0/libsrc/Hyperbolic_Step.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/Hyperbolic_Step.f90 rename to var/external/crtm_2.3.0/libsrc/Hyperbolic_Step.f90 index 0fca1479f9..aa3a86a40e 100644 --- a/var/external/crtm_2.2.3/libsrc/Hyperbolic_Step.f90 +++ b/var/external/crtm_2.3.0/libsrc/Hyperbolic_Step.f90 @@ -31,7 +31,7 @@ MODULE Hyperbolic_Step ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Hyperbolic_Step.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Hyperbolic_Step.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literals REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: POINT5 = 0.5_fp diff --git a/var/external/crtm_2.2.3/libsrc/IRwaterCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/IRwaterCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/IRwaterCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/IRwaterCoeff_Define.f90 index 44e9afed72..120e8677b4 100644 --- a/var/external/crtm_2.2.3/libsrc/IRwaterCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/IRwaterCoeff_Define.f90 @@ -60,7 +60,7 @@ MODULE IRwaterCoeff_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: IRwaterCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: IRwaterCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Current valid release and version INTEGER, PARAMETER :: IRWATERCOEFF_RELEASE = 3 ! This determines structure and file formats. INTEGER, PARAMETER :: IRWATERCOEFF_VERSION = 2 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/LSEatlas_Define.f90 b/var/external/crtm_2.3.0/libsrc/LSEatlas_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/LSEatlas_Define.f90 rename to var/external/crtm_2.3.0/libsrc/LSEatlas_Define.f90 index 93d73b3f75..fe80c4624f 100644 --- a/var/external/crtm_2.2.3/libsrc/LSEatlas_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/LSEatlas_Define.f90 @@ -64,7 +64,7 @@ MODULE LSEatlas_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: LSEatlas_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: LSEatlas_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Datatype information CHARACTER(*), PARAMETER :: LSEATLAS_DATATYPE = 'LSEatlas' ! Current valid release and version diff --git a/var/external/crtm_2.2.3/libsrc/Large_Scale_Correction_Module.f90 b/var/external/crtm_2.3.0/libsrc/Large_Scale_Correction_Module.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/Large_Scale_Correction_Module.f90 rename to var/external/crtm_2.3.0/libsrc/Large_Scale_Correction_Module.f90 index 9571fa9174..6e4e8c223b 100644 --- a/var/external/crtm_2.2.3/libsrc/Large_Scale_Correction_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/Large_Scale_Correction_Module.f90 @@ -61,7 +61,7 @@ MODULE Large_Scale_Correction_Module ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Large_Scale_Correction_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Large_Scale_Correction_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Liu.f90 b/var/external/crtm_2.3.0/libsrc/Liu.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Liu.f90 rename to var/external/crtm_2.3.0/libsrc/Liu.f90 index 9919e04be8..1a378a8b50 100644 --- a/var/external/crtm_2.2.3/libsrc/Liu.f90 +++ b/var/external/crtm_2.3.0/libsrc/Liu.f90 @@ -42,7 +42,7 @@ MODULE Liu ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Liu.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Liu.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants ! ----------------- diff --git a/var/external/crtm_2.2.3/libsrc/MWwaterCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/MWwaterCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/MWwaterCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/MWwaterCoeff_Define.f90 index 6cfc55ac83..8f8b250f49 100644 --- a/var/external/crtm_2.2.3/libsrc/MWwaterCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/MWwaterCoeff_Define.f90 @@ -60,7 +60,7 @@ MODULE MWwaterCoeff_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: MWwaterCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: MWwaterCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: MWWATERCOEFF_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: MWWATERCOEFF_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/MWwaterLUT_Define.f90 b/var/external/crtm_2.3.0/libsrc/MWwaterLUT_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/MWwaterLUT_Define.f90 rename to var/external/crtm_2.3.0/libsrc/MWwaterLUT_Define.f90 index c48f7dd6a6..e678f54b86 100644 --- a/var/external/crtm_2.2.3/libsrc/MWwaterLUT_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/MWwaterLUT_Define.f90 @@ -62,7 +62,7 @@ MODULE MWwaterLUT_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: MWwaterLUT_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: MWwaterLUT_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: MWWATERLUT_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: MWWATERLUT_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/Message_Handler.f90 b/var/external/crtm_2.3.0/libsrc/Message_Handler.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/Message_Handler.f90 rename to var/external/crtm_2.3.0/libsrc/Message_Handler.f90 diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSRE_SICEEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSRE_SICEEM_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_AMSRE_SICEEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_AMSRE_SICEEM_Module.f90 index 1403372bf8..429e5de762 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSRE_SICEEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSRE_SICEEM_Module.f90 @@ -41,7 +41,7 @@ MODULE NESDIS_AMSRE_SICEEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_AMSRE_SICEEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_AMSRE_SICEEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' INTEGER, PUBLIC, PARAMETER :: N_FREQ= 7 diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSRE_SNOWEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSRE_SNOWEM_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_AMSRE_SNOWEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_AMSRE_SNOWEM_Module.f90 index 10a717eac3..7be67d3e66 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSRE_SNOWEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSRE_SNOWEM_Module.f90 @@ -43,7 +43,7 @@ MODULE NESDIS_AMSRE_SNOWEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_AMSRE_SNOWEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_AMSRE_SNOWEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSU_SICEEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSU_SICEEM_Module.f90 similarity index 93% rename from var/external/crtm_2.2.3/libsrc/NESDIS_AMSU_SICEEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_AMSU_SICEEM_Module.f90 index dfb8d73119..931e4a9437 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSU_SICEEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSU_SICEEM_Module.f90 @@ -39,7 +39,7 @@ MODULE NESDIS_AMSU_SICEEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_AMSU_SICEEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_AMSU_SICEEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -340,19 +340,20 @@ subroutine AMSU_IATs(frequency,tba,ts,em_vector) integer :: k,ich real(fp) :: coe(100) + save coe ! Fitting Coefficients Using Tb1, Tb2, Tb4 and Ts - data (coe(k),k=1,5)/ 9.815214e-001_fp, 3.783815e-003_fp, & - 6.391155e-004_fp, -9.106375e-005_fp, -4.263206e-003_fp/ - data (coe(k),k=21,25)/ 9.047181e-001_fp, -2.782826e-004_fp, & - 4.664207e-003_fp, -3.121744e-005_fp, -3.976189e-003_fp/ - data (coe(k),k=41,45)/ 1.163853e+000_fp, -1.419205e-003_fp, & - 5.505238e-003_fp, 1.506867e-003_fp, -6.157735e-003_fp/ - data (coe(k),k=61,65)/ 1.020753e+000_fp, -8.666064e-004_fp, & - 9.624331e-004_fp, 4.878773e-003_fp, -5.055044e-003_fp/ - data (coe(k),k=81,85)/ 1.438246e+000_fp, 5.667756e-004_fp, & - -2.621972e-003_fp, 5.928146e-003_fp, -5.856687e-003_fp/ - save coe + coe(1:5) = (/ 9.815214e-001_fp, 3.783815e-003_fp, & + 6.391155e-004_fp, -9.106375e-005_fp, -4.263206e-003_fp/) + coe(21:25) = (/ 9.047181e-001_fp, -2.782826e-004_fp, & + 4.664207e-003_fp, -3.121744e-005_fp, -3.976189e-003_fp/) + coe(41:45) = (/ 1.163853e+000_fp, -1.419205e-003_fp, & + 5.505238e-003_fp, 1.506867e-003_fp, -6.157735e-003_fp/) + coe(61:65) = (/ 1.020753e+000_fp, -8.666064e-004_fp, & + 9.624331e-004_fp, 4.878773e-003_fp, -5.055044e-003_fp/) + coe(81:85) = (/ 1.438246e+000_fp, 5.667756e-004_fp, & + -2.621972e-003_fp, 5.928146e-003_fp, -5.856687e-003_fp/) +! save coe ! Calculate emissivity discriminators at five AMSU window channels @@ -421,18 +422,19 @@ subroutine AMSU_IBTs(theta,frequency,tbb,ts,em_vector) integer :: i,k,ich,nvalid_ch real(fp) :: coe(nch*(ncoe+1)) + save coe ! Fitting Coefficients at 31.4 GHz - data (coe(k),k=1,7)/ 2.239429e+000_fp, -2.153967e-002_fp, & + coe(1:7) = (/ 2.239429e+000_fp, -2.153967e-002_fp, & 5.785736e-005_fp, 1.366728e-002_fp, & - -3.749251e-005_fp, -5.128486e-002_fp, -2.184161e-003_fp/ - data (coe(k),k=11,17)/ 1.768085e+000_fp, -1.643430e-002_fp, & + -3.749251e-005_fp, -5.128486e-002_fp, -2.184161e-003_fp/) + coe(11:17) = (/ 1.768085e+000_fp, -1.643430e-002_fp, & 4.850989e-005_fp, 1.288753e-002_fp, & - -3.628051e-005_fp, -4.751277e-002_fp, -2.580649e-003_fp/ - data (coe(k),k=21,27)/ 8.910227e-001_fp, 6.170706e-003_fp, & + -3.628051e-005_fp, -4.751277e-002_fp, -2.580649e-003_fp/) + coe(21:27) = (/ 8.910227e-001_fp, 6.170706e-003_fp, & -3.772921e-006_fp, -4.146567e-004_fp, & - -2.208121e-006_fp, -3.163193e-002_fp, -3.863217e-003_fp/ - save coe + -2.208121e-006_fp, -3.163193e-002_fp, -3.863217e-003_fp/) +! save coe ! Calculate emissivity discriminators at five AMSU window channels do ich = 1, nwch-2 @@ -502,7 +504,7 @@ subroutine siem_interpolate(frequency,discriminator,emissivity) integer,parameter:: ncand = 16,nch =5 integer:: i real(fp) :: frequency,freq(nch),emissivity,discriminator(*) - data freq/23.8_fp, 31.4_fp, 50.3_fp,89.0_fp, 150.0_fp/ + freq = (/23.8_fp, 31.4_fp, 50.3_fp,89.0_fp, 150.0_fp/) ! Estimate sea ice emissivity at a required frequency diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSU_SnowEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSU_SnowEM_Module.f90 similarity index 89% rename from var/external/crtm_2.2.3/libsrc/NESDIS_AMSU_SnowEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_AMSU_SnowEM_Module.f90 index 44261d6065..e6eddfc686 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_AMSU_SnowEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_AMSU_SnowEM_Module.f90 @@ -40,7 +40,7 @@ MODULE NESDIS_AMSU_SnowEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_AMSU_SnowEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_AMSU_SnowEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -785,157 +785,157 @@ subroutine AMSU_ABTs(frequency,tb,ts,snow_type,em_vector) data nmodel/5,10,13,16,18,24,30,31,32,33,34,35,36,37,38/ ! Fitting coefficients for five discriminators - data (DI_coe(1,k),k=0,ncoe-1)/ & + DI_coe(1,0:ncoe-1) = (/ & 3.285557e-002_fp, 2.677179e-005_fp, & 4.553101e-003_fp, 5.639352e-005_fp, & -1.825188e-004_fp, 1.636145e-004_fp, & - 1.680881e-005_fp, -1.708405e-004_fp/ - data (DI_coe(2,k),k=0,ncoe-1)/ & + 1.680881e-005_fp, -1.708405e-004_fp/) + DI_coe(2,0:ncoe-1) = (/ & -4.275539e-002_fp, -2.541453e-005_fp, & 4.154796e-004_fp, 1.703443e-004_fp, & 4.350142e-003_fp, 2.452873e-004_fp, & - -4.748506e-003_fp, 2.293836e-004_fp/ - data (DI_coe(3,k),k=0,ncoe-1)/ & + -4.748506e-003_fp, 2.293836e-004_fp/) + DI_coe(3,0:ncoe-1) = (/ & -1.870173e-001_fp, -1.061678e-004_fp, & 2.364055e-004_fp, -2.834876e-005_fp, & 4.899651e-003_fp, -3.418847e-004_fp, & - -2.312224e-004_fp, 9.498600e-004_fp/ - data (DI_coe(4,k),k=0,ncoe-1)/ & + -2.312224e-004_fp, 9.498600e-004_fp/) + DI_coe(4,0:ncoe-1) = (/ & -2.076519e-001_fp, 8.475901e-004_fp, & -2.072679e-003_fp, -2.064717e-003_fp, & 2.600452e-003_fp, 2.503923e-003_fp, & - 5.179711e-004_fp, 4.667157e-005_fp/ - data (DI_coe(5,k),k=0,ncoe-1)/ & + 5.179711e-004_fp, 4.667157e-005_fp/) + DI_coe(5,0:ncoe-1) = (/ & -1.442609e-001_fp, -8.075003e-005_fp, & -1.790933e-004_fp, -1.986887e-004_fp, & 5.495115e-004_fp, -5.871732e-004_fp, & - 4.517280e-003_fp, 7.204695e-004_fp/ + 4.517280e-003_fp, 7.204695e-004_fp/) ! Fitting coefficients for emissivity index at 31.4 GHz - data LI_coe/ & + LI_coe = (/ & 7.963632e-001_fp, 7.215580e-003_fp, & -2.015921e-005_fp, -1.508286e-003_fp, & - 1.731405e-005_fp, -4.105358e-003_fp/ + 1.731405e-005_fp, -4.105358e-003_fp/) ! Fitting coefficients for emissivity index at 150 GHz - data HI_coe/ & + HI_coe = (/ & 1.012160e+000_fp, 6.100397e-003_fp, & -1.774347e-005_fp, -4.028211e-003_fp, & 1.224470e-005_fp, 2.345612e-003_fp, & -5.376814e-006_fp, -2.795332e-003_fp, & 8.072756e-006_fp, 3.529615e-003_fp, & - 1.955293e-006_fp, -4.942230e-003_fp/ + 1.955293e-006_fp, -4.942230e-003_fp/) ! Six thresholds for sixteen candidate snow types ! Note: some snow type contains several possible ! selections for six thresholds !1 Wet Snow - data (threshold(1,k),k=1,6)/0.88_fp,0.86_fp,-999.9_fp,& - 0.01_fp,0.01_fp,200._fp/ - data (threshold(2,k),k=1,6)/0.88_fp,0.85_fp,-999.9_fp,& - 0.06_fp,0.10_fp,200._fp/ - data (threshold(3,k),k=1,6)/0.88_fp,0.83_fp,-0.02_fp,& - 0.12_fp,0.16_fp,204._fp/ - data (threshold(4,k),k=1,6)/0.90_fp,0.89_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ - data (threshold(5,k),k=1,6)/0.92_fp,0.85_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(1,1:6) = (/0.88_fp,0.86_fp,-999.9_fp,& + 0.01_fp,0.01_fp,200._fp/) + threshold(2,1:6) = (/0.88_fp,0.85_fp,-999.9_fp,& + 0.06_fp,0.10_fp,200._fp/) + threshold(3,1:6) = (/0.88_fp,0.83_fp,-0.02_fp,& + 0.12_fp,0.16_fp,204._fp/) + threshold(4,1:6) = (/0.90_fp,0.89_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) + threshold(5,1:6) = (/0.92_fp,0.85_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !2 Grass_after_Snow - data (threshold(6,k),k=1,6)/0.84_fp,0.83_fp,-999.9_fp,& - 0.08_fp,0.10_fp,195._fp/ - data (threshold(7,k),k=1,6)/0.85_fp,0.85_fp,-999.9_fp,& - 0.10_fp,-999.9_fp,190._fp/ - data (threshold(8,k),k=1,6)/0.86_fp,0.81_fp,-999.9_fp,& - 0.12_fp,-999.9_fp,200._fp/ - data (threshold(9,k),k=1,6)/0.86_fp,0.81_fp,0.0_fp,& - 0.12_fp,-999.9_fp,189._fp/ - data (threshold(10,k),k=1,6)/0.90_fp,0.81_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,195._fp/ + threshold(6,1:6) = (/0.84_fp,0.83_fp,-999.9_fp,& + 0.08_fp,0.10_fp,195._fp/) + threshold(7,1:6) = (/0.85_fp,0.85_fp,-999.9_fp,& + 0.10_fp,-999.9_fp,190._fp/) + threshold(8,1:6) = (/0.86_fp,0.81_fp,-999.9_fp,& + 0.12_fp,-999.9_fp,200._fp/) + threshold(9,1:6) = (/0.86_fp,0.81_fp,0.0_fp,& + 0.12_fp,-999.9_fp,189._fp/) + threshold(10,1:6) = (/0.90_fp,0.81_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,195._fp/) !3 RS_Snow (A) - data (threshold(11,k),k=1,6)/0.80_fp,0.76_fp,-999.9_fp,& - 0.05_fp,-999.9_fp,185._fp/ - data (threshold(12,k),k=1,6)/0.82_fp,0.78_fp,-999.9_fp,& - -999.9_fp,0.25_fp,180._fp/ - data (threshold(13,k),k=1,6)/0.90_fp,0.76_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,180._fp/ + threshold(11,1:6) = (/0.80_fp,0.76_fp,-999.9_fp,& + 0.05_fp,-999.9_fp,185._fp/) + threshold(12,1:6) = (/0.82_fp,0.78_fp,-999.9_fp,& + -999.9_fp,0.25_fp,180._fp/) + threshold(13,1:6) = (/0.90_fp,0.76_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,180._fp/) !4 Powder Snow - data (threshold(14,k),k=1,6)/0.89_fp,0.73_fp,-999.9_fp,& - 0.20_fp,-999.9_fp,-999.9_fp/ - data (threshold(15,k),k=1,6)/0.89_fp,0.75_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ - data (threshold(16,k),k=1,6)/0.93_fp,0.72_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(14,1:6) = (/0.89_fp,0.73_fp,-999.9_fp,& + 0.20_fp,-999.9_fp,-999.9_fp/) + threshold(15,1:6) = (/0.89_fp,0.75_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) + threshold(16,1:6) = (/0.93_fp,0.72_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !5 RS_Snow (B) - data (threshold(17,k),k=1,6)/0.82_fp,0.70_fp,-999.9_fp,& - 0.20_fp,-999.9_fp,160._fp/ - data (threshold(18,k),k=1,6)/0.83_fp,0.70_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,160._fp/ + threshold(17,1:6) = (/0.82_fp,0.70_fp,-999.9_fp,& + 0.20_fp,-999.9_fp,160._fp/) + threshold(18,1:6) = (/0.83_fp,0.70_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,160._fp/) !6 RS_Snow (C) - data (threshold(19,k),k=1,6)/0.75_fp,0.76_fp,-999.9_fp,& - 0.08_fp,-999.9_fp,172._fp/ - data (threshold(20,k),k=1,6)/0.77_fp,0.72_fp,-999.9_fp,& - 0.12_fp,0.15_fp,175._fp/ - data (threshold(21,k),k=1,6)/0.78_fp,0.74_fp,-999.9_fp,& - -999.9_fp,0.20_fp,172._fp/ - data (threshold(22,k),k=1,6)/0.80_fp,0.77_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,170._fp/ - data (threshold(23,k),k=1,6)/0.82_fp,-999.9_fp,-999.9_fp,& - 0.15_fp,0.22_fp,170._fp/ - data (threshold(24,k),k=1,6)/0.82_fp,0.73_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,170._fp/ + threshold(19,1:6) = (/0.75_fp,0.76_fp,-999.9_fp,& + 0.08_fp,-999.9_fp,172._fp/) + threshold(20,1:6) = (/0.77_fp,0.72_fp,-999.9_fp,& + 0.12_fp,0.15_fp,175._fp/) + threshold(21,1:6) = (/0.78_fp,0.74_fp,-999.9_fp,& + -999.9_fp,0.20_fp,172._fp/) + threshold(22,1:6) = (/0.80_fp,0.77_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,170._fp/) + threshold(23,1:6) = (/0.82_fp,-999.9_fp,-999.9_fp,& + 0.15_fp,0.22_fp,170._fp/) + threshold(24,1:6) = (/0.82_fp,0.73_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,170._fp/) !7 RS_Snow (D) - data (threshold(25,k),k=1,6)/0.75_fp,0.70_fp,-999.9_fp,& - 0.15_fp,0.25_fp,167._fp/ - data (threshold(26,k),k=1,6)/0.77_fp,0.76_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ - data (threshold(27,k),k=1,6)/0.80_fp,0.72_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ - data (threshold(28,k),k=1,6)/0.77_fp,0.73_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ - - data (threshold(29,k),k=1,6)/0.81_fp,0.71_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ - data (threshold(30,k),k=1,6)/0.82_fp,0.69_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(25,1:6) = (/0.75_fp,0.70_fp,-999.9_fp,& + 0.15_fp,0.25_fp,167._fp/) + threshold(26,1:6) = (/0.77_fp,0.76_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) + threshold(27,1:6) = (/0.80_fp,0.72_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) + threshold(28,1:6) = (/0.77_fp,0.73_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) + + threshold(29,1:6) = (/0.81_fp,0.71_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) + threshold(30,1:6) = (/0.82_fp,0.69_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !8 Thin Crust Snow - data (threshold(31,k),k=1,6)/0.88_fp,0.58_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(31,1:6) = (/0.88_fp,0.58_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !9 RS_Snow (E) - data (threshold(32,k),k=1,6)/0.73_fp,0.67_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(32,1:6) = (/0.73_fp,0.67_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !10 Bottom Crust Snow (A) - data (threshold(33,k),k=1,6)/0.83_fp,0.66_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(33,1:6) = (/0.83_fp,0.66_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !11 Shallow Snow - data (threshold(34,k),k=1,6)/0.82_fp,0.60_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(34,1:6) = (/0.82_fp,0.60_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !12 Deep Snow - data (threshold(35,k),k=1,6)/0.77_fp,0.60_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(35,1:6) = (/0.77_fp,0.60_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !13 Crust Snow - data (threshold(36,k),k=1,6)/0.77_fp,0.7_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(36,1:6) = (/0.77_fp,0.7_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !14 Medium Snow - data (threshold(37,k),k=1,6)/-999.9_fp,0.55_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(37,1:6) = (/-999.9_fp,0.55_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !15 Bottom Crust Snow(B) - data (threshold(38,k),k=1,6)/0.74_fp,-999.9_fp,-999.9_fp,& - -999.9_fp,-999.9_fp,-999.9_fp/ + threshold(38,1:6) = (/0.74_fp,-999.9_fp,-999.9_fp,& + -999.9_fp,-999.9_fp,-999.9_fp/) !16 Thick Crust Snow ! lowest priority: No constraints @@ -1168,46 +1168,47 @@ subroutine AMSU_AB(frequency,tb,snow_type,em_vector) integer :: i,snow_type,k,ich,nvalid_ch real(fp) :: coe(nwch*(ncoe+1)) + save coe ! Fitting Coefficients at 23.8 GHz: Using Tb1 ~ Tb3 - data (coe(k),k=1,7)/& + coe(1:7) = (/& -1.326040e+000_fp, 2.475904e-002_fp, & -5.741361e-005_fp, -1.889650e-002_fp, & 6.177911e-005_fp, 1.451121e-002_fp, & - -4.925512e-005_fp/ + -4.925512e-005_fp/) ! Fitting Coefficients at 31.4 GHz: Using Tb1 ~ Tb3 - data (coe(k),k=12,18)/ & + coe(12:18) = (/ & -1.250541e+000_fp, 1.911161e-002_fp, & -5.460238e-005_fp, -1.266388e-002_fp, & 5.745064e-005_fp, 1.313985e-002_fp, & - -4.574811e-005_fp/ + -4.574811e-005_fp/) ! Fitting Coefficients at 50.3 GHz: Using Tb1 ~ Tb3 - data (coe(k),k=23,29)/ & + coe(23:29) = (/ & -1.246754e+000_fp, 2.368658e-002_fp, & -8.061774e-005_fp, -3.206323e-002_fp, & 1.148107e-004_fp, 2.688353e-002_fp, & - -7.358356e-005_fp/ + -7.358356e-005_fp/) ! Fitting Coefficients at 89 GHz: Using Tb1 ~ Tb4 - data (coe(k),k=34,42)/ & + coe(34:42) = (/ & -1.278780e+000_fp, 1.625141e-002_fp, & -4.764536e-005_fp, -1.475181e-002_fp, & 5.107766e-005_fp, 1.083021e-002_fp, & -4.154825e-005_fp, 7.703879e-003_fp, & - -6.351148e-006_fp/ + -6.351148e-006_fp/) ! Fitting Coefficients at 150 GHz: Using Tb1 ~ Tb5 - data (coe(k),k=45,55)/& + coe(45:55) = (/& -1.691077e+000_fp, 3.352403e-002_fp, & -7.310338e-005_fp, -4.396138e-002_fp, & 1.028994e-004_fp, 2.301014e-002_fp, & -7.070810e-005_fp, 1.270231e-002_fp, & -2.139023e-005_fp, -2.257991e-003_fp, & - 1.269419e-005_fp/ + 1.269419e-005_fp/) - save coe +! save coe ! Calculate emissivity discriminators at five AMSU window channels do ich = 1, nwch @@ -1280,43 +1281,44 @@ subroutine AMSU_ATs(frequency,tba,ts,snow_type,em_vector) integer :: snow_type,i,k,ich,nvalid_ch real(fp) :: coe(nch*(ncoe+1)) + save coe ! Fitting Coefficients at 23.8 GHz: Using Tb1, Tb2 and Ts - data (coe(k),k=1,6)/ & + coe(1:6) = (/ & 8.210105e-001_fp, 1.216432e-002_fp, & - -2.113875e-005_fp, -6.416648e-003_fp, & - 1.809047e-005_fp, -4.206605e-003_fp/ + -2.113875e-005_fp, -6.416648e-003_fp, & + 1.809047e-005_fp, -4.206605e-003_fp /) ! Fitting Coefficients at 31.4 GHz: Using Tb1, Tb2 and Ts - data (coe(k),k=11,16)/ & + coe(11:16) = (/ & 7.963632e-001_fp, 7.215580e-003_fp, & -2.015921e-005_fp, -1.508286e-003_fp, & - 1.731405e-005_fp, -4.105358e-003_fp/ + 1.731405e-005_fp, -4.105358e-003_fp /) ! Fitting Coefficients at 50.3 GHz: Using Tb1, Tb2, Tb3 and Ts - data (coe(k),k=21,28)/ & + coe(21:28) = (/ & 1.724160e+000_fp, 5.556665e-003_fp, & -2.915872e-005_fp, -1.146713e-002_fp, & 4.724243e-005_fp, 3.851791e-003_fp, & - -5.581535e-008_fp, -5.413451e-003_fp/ + -5.581535e-008_fp, -5.413451e-003_fp /) ! Fitting Coefficients at 89 GHz: Using Tb1 ~ Tb4 and Ts - data (coe(k),k=31,40)/ & + coe(31:40) = (/ & 9.962065e-001_fp, 1.584161e-004_fp, & -3.988934e-006_fp, 3.427638e-003_fp, & -5.084836e-006_fp, -6.178904e-004_fp, & 1.115315e-006_fp, 9.440962e-004_fp, & - 9.711384e-006_fp, -4.259102e-003_fp/ + 9.711384e-006_fp, -4.259102e-003_fp /) ! Fitting Coefficients at 150 GHz: Using Tb1 ~ Tb4 and Ts - data (coe(k),k=41,50)/ & + coe(41:50) = (/ & -5.244422e-002_fp, 2.025879e-002_fp, & -3.739231e-005_fp, -2.922355e-002_fp, & 5.810726e-005_fp, 1.376275e-002_fp, & -3.757061e-005_fp, 6.434187e-003_fp, & - 6.190403e-007_fp, -2.944785e-003_fp/ + 6.190403e-007_fp, -2.944785e-003_fp/) - save coe +! save coe ! Calculate emissivity discriminators at five AMSU window channels DO ich = 1, nwch @@ -1388,39 +1390,39 @@ subroutine AMSU_amsua(frequency,tba,snow_type,em_vector) real(fp) :: em_vector(*),emissivity,frequency,discriminator(nwch) integer :: snow_type,i,k,ich,nvalid_ch real(fp) :: coe(50) - + save coe ! Fitting Coefficients at 23.8 GHz: Using Tb1 ~ Tb3 - data (coe(k),k=1,7)/ & + coe(1:7) = (/ & -1.326040e+000_fp, 2.475904e-002_fp, -5.741361e-005_fp, & -1.889650e-002_fp, 6.177911e-005_fp, 1.451121e-002_fp, & - -4.925512e-005_fp/ + -4.925512e-005_fp/) ! Fitting Coefficients at 31.4 GHz: Using Tb1 ~ Tb3 - data (coe(k),k=11,17)/ & + coe(11:17) = (/ & -1.250541e+000_fp, 1.911161e-002_fp, -5.460238e-005_fp, & -1.266388e-002_fp, 5.745064e-005_fp, 1.313985e-002_fp, & - -4.574811e-005_fp/ + -4.574811e-005_fp/) ! Fitting Coefficients at 50.3 GHz: Using Tb1 ~ Tb3 - data (coe(k),k=21,27)/ & + coe(21:27) = (/ & -1.246754e+000_fp, 2.368658e-002_fp, -8.061774e-005_fp, & -3.206323e-002_fp, 1.148107e-004_fp, 2.688353e-002_fp, & - -7.358356e-005_fp/ + -7.358356e-005_fp/) ! Fitting Coefficients at 89 GHz: Using Tb1 ~ Tb4 - data (coe(k),k=31,39)/ & + coe(31:39) = (/ & -1.278780e+000_fp, 1.625141e-002_fp, -4.764536e-005_fp, & -1.475181e-002_fp, 5.107766e-005_fp, 1.083021e-002_fp, & - -4.154825e-005_fp, 7.703879e-003_fp, -6.351148e-006_fp/ + -4.154825e-005_fp, 7.703879e-003_fp, -6.351148e-006_fp/) ! Fitting Coefficients at 150 GHz: Using Tb1 ~ Tb4 - data (coe(k),k=41,49)/ & + coe(41:49) = (/ & -1.624857e+000_fp, 3.138243e-002_fp, -6.757028e-005_fp, & -4.178496e-002_fp, 9.691893e-005_fp, 2.165964e-002_fp, & - -6.702349e-005_fp, 1.111658e-002_fp, -1.050708e-005_fp/ + -6.702349e-005_fp, 1.111658e-002_fp, -1.050708e-005_fp/) - save coe +! save coe ! Calculate emissivity discriminators at five AMSU window channels @@ -1502,18 +1504,18 @@ subroutine AMSU_BTs(frequency,tbb,ts,snow_type,em_vector) real(fp) :: em_vector(*),emissivity,ts,frequency,ed0(nwch),discriminator(5) integer :: snow_type,i,k,ich,nvalid_ch real(fp) :: coe(nch*(ncoe+1)) - + save coe ! Fitting Coefficients at 31.4 GHz: Using Tb4, Tb5 and Ts - data (coe(k),k=1,6)/ 3.110967e-001_fp, 1.100175e-002_fp, -1.677626e-005_fp, & - -4.020427e-003_fp, 9.242240e-006_fp, -2.363207e-003_fp/ + coe(1:6) = (/ 3.110967e-001_fp, 1.100175e-002_fp, -1.677626e-005_fp, & + -4.020427e-003_fp, 9.242240e-006_fp, -2.363207e-003_fp/) ! Fitting Coefficients at 89 GHz: Using Tb4, Tb5 and Ts - data (coe(k),k=11,16)/ 1.148098e+000_fp, 1.452926e-003_fp, 1.037081e-005_fp, & - 1.340696e-003_fp, -5.185640e-006_fp, -4.546382e-003_fp / + coe(11:16) = (/ 1.148098e+000_fp, 1.452926e-003_fp, 1.037081e-005_fp, & + 1.340696e-003_fp, -5.185640e-006_fp, -4.546382e-003_fp /) ! Fitting Coefficients at 150 GHz: Using Tb4, Tb5 and Ts - data (coe(k),k=21,26)/ 1.165323e+000_fp, -1.030435e-003_fp, 4.828009e-006_fp, & - 4.851731e-003_fp, -2.588049e-006_fp, -4.990193e-003_fp/ - save coe + coe(21:26) = (/ 1.165323e+000_fp, -1.030435e-003_fp, 4.828009e-006_fp, & + 4.851731e-003_fp, -2.588049e-006_fp, -4.990193e-003_fp/) +! save coe ! Calculate emissivity discriminators at five AMSU window channels do ich = 1, nwch @@ -1592,18 +1594,18 @@ subroutine AMSU_amsub(frequency,tbb,snow_type,em_vector) real(fp) :: em_vector(*),emissivity,frequency,ed0(nwch),discriminator(5) integer :: snow_type,i,k,ich,nvalid_ch real(fp) :: coe(50) - + save coe ! Fitting Coefficients at 31.4 GHz: Using Tb4, Tb5 - data (coe(k),k=1,5)/-4.015636e-001_fp,9.297894e-003_fp, -1.305068e-005_fp, & - 3.717131e-004_fp, -4.364877e-006_fp/ + coe(1:5) = (/-4.015636e-001_fp,9.297894e-003_fp, -1.305068e-005_fp, & + 3.717131e-004_fp, -4.364877e-006_fp/) ! Fitting Coefficients at 89 GHz: Using Tb4, Tb5 - data (coe(k),k=11,15)/-2.229547e-001_fp, -1.828402e-003_fp,1.754807e-005_fp, & - 9.793681e-003_fp, -3.137189e-005_fp/ + coe(11:15) = (/-2.229547e-001_fp, -1.828402e-003_fp,1.754807e-005_fp, & + 9.793681e-003_fp, -3.137189e-005_fp/) ! Fitting Coefficients at 150 GHz: Using Tb4, Tb5 - data (coe(k),k=21,25)/-3.395416e-001_fp,-4.632656e-003_fp,1.270735e-005_fp, & - 1.413038e-002_fp,-3.133239e-005_fp/ - save coe + coe(21:25) = (/-3.395416e-001_fp,-4.632656e-003_fp,1.270735e-005_fp, & + 1.413038e-002_fp,-3.133239e-005_fp/) +! save coe ! Calculate emissivity discriminators at five AMSU window channels do ich = 1, nwch @@ -1688,7 +1690,9 @@ subroutine AMSU_ALandEM_Snow(theta,frequency,snow_depth,ts,snow_type,em_vector) integer snow_type,ich real(fp) freq_3w(nw_ind),esh_3w(nw_ind),esv_3w(nw_ind) complex(fp) eair - data freq_3w/31.4_fp,89.0_fp,150.0_fp/ + save freq_3w + + freq_3w = (/31.4_fp,89.0_fp,150.0_fp/) eair = cmplx(one,-zero,fp) @@ -1776,23 +1780,23 @@ subroutine ems_adjust(theta,frequency,depth,ts,esv_3w,esh_3w,em_vector,snow_type save dem_coe - data (dem_coe(1,k),k=0,ncoe-1)/ 2.306844e+000_Double, -7.287718e-003_Double, & + dem_coe(1,0:ncoe-1) = (/ 2.306844e+000_Double, -7.287718e-003_Double, & -6.433248e-004_Double, 1.664216e-005_Double, & - 4.766508e-007_Double, -1.754184e+000_Double/ + 4.766508e-007_Double, -1.754184e+000_Double/) - data (dem_coe(2,k),k=0,ncoe-1)/ 3.152527e+000_Double, -1.823670e-002_Double, & + dem_coe(2,0:ncoe-1) = (/ 3.152527e+000_Double, -1.823670e-002_Double, & -9.535361e-004_Double, 3.675516e-005_Double, & - 9.609477e-007_Double, -1.113725e+000_Double/ + 9.609477e-007_Double, -1.113725e+000_Double/) - data (dem_coe(3,k),k=0,ncoe-1)/ 3.492495e+000_Double, -2.184545e-002_Double, & + dem_coe(3,0:ncoe-1) = (/ 3.492495e+000_Double, -2.184545e-002_Double, & 6.536696e-005_Double, 4.464352e-005_Double, & - -6.305717e-008_Double, -1.221087e+000_Double/ + -6.305717e-008_Double, -1.221087e+000_Double/) ! diff --git a/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SeaICE_LIB.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SeaICE_LIB.f90 new file mode 100644 index 0000000000..853fa8a425 --- /dev/null +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SeaICE_LIB.f90 @@ -0,0 +1,173 @@ +!-------------------------------------------------------------------------------- +!M+ +! NAME: +! NESDIS_SnowEM_ATMS_Parameters Module +! +! PURPOSE: +! Module containing the snow emissivity library ATMS channels. The library contain 16 +! pre-defined snow spectrum which characterize 16 basic snow types. This library is used +! together with a snow-typing algorithm to implement the library-based snow emissivity modeling. +! +! CATEGORY: +! Surface : MW Surface Snow Emissivity Model Parameters +! +! LANGUAGE: +! Fortran-95 +! +! CALLING SEQUENCE: +! USE SnowEM_Parameters Module +! +! MODULES: +! Type_Kinds: Module containing definitions for kinds of variable types. +! +! +! INCLUDE FILES: +! None. +! +! EXTERNALS: +! None. +! +! COMMON BLOCKS: +! None. +! +! FILES ACCESSED: +! None. +! +! CREATION HISTORY: +! Written by: Ming Chen,IMSG Inc., ming.chen@noaa.gov (04-28-2012) +! +! and Fuzhong Weng, NOAA/NESDIS/ORA, Fuzhong.Weng@noaa.gov +! +! +! Copyright (C) 2012 Fuzhong Weng and Ming Chen +! +! This program is free software; you can redistribute it and/or modify it under the terms of the GNU +! General Public License as published by the Free Software Foundation; either version 2 of the License, +! or (at your option) any later version. +! +! This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even +! the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public +! License for more details. +! +! You should have received a copy of the GNU General Public License along with this program; if not, write +! to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +!M- +!-------------------------------------------------------------------------------- + +MODULE NESDIS_ATMS_SeaIce_LIB + + USE Type_Kinds, ONLY: fp, ip + IMPLICIT NONE + + + INTEGER(ip), PUBLIC, PARAMETER :: N_FREQ_ATMS = 13 + INTEGER(ip), PUBLIC, PARAMETER :: N_SEAICE_TYPES = 13 + INTEGER(ip), PUBLIC, PARAMETER :: N_FREQ_AMSRE = 7 + INTEGER(ip), PUBLIC, PARAMETER :: INVALID_SEAICE_TYPE = -1 + + CHARACTER(LEN=20),DIMENSION(N_SEAICE_TYPES), & + PUBLIC, PARAMETER :: SEAICE_TYPE_NAMES=(/ & + 'RS_ICE_A_EMISS ',& !1 + 'RS_ICE_B_EMISS ',& !2 + 'MIXED_NEWICE_SNOW_EM',& !3 + 'NARE_NEWICE_EMISS ',& !4 + 'BROKEN_ICE_EMISS ',& !5 + 'FIRST_YEAR_ICE_EMISS',& !6 + 'COMPOSITE_PACK_ICE ',& !7 + 'RS_ICE_C_EMISS ',& !8 + 'FAST_ICE_EMISS ',& !9 + 'RS_ICE_D_EMISS ',& !10 + 'RS_ICE_E_EMISS ',& !11 + 'RS_ICE_F_EMISS ',& !12 + 'GREASE_ICE_EMISS '/) !13 + + REAL(fp),PUBLIC,PARAMETER, DIMENSION(N_FREQ_ATMS) :: FREQUENCY_ATMS = & + (/23.80_fp,31.40_fp,50.30_fp,51.76_fp,52.80_fp,53.60_fp,54.40_fp, & + 54.90_fp,55.50_fp,57.30_fp,88.20_fp,165.50_fp,183.30_fp/) + + + ! Define sixteen MW H-Pol emissivity spectra for ATMS ALGORITHMS + REAL(fp),PUBLIC,PARAMETER,DIMENSION(N_FREQ_ATMS,N_SEAICE_TYPES) :: SEAICE_EMISS_ATMS_H = RESHAPE((/ & + 0.94_fp,0.95_fp,0.94_fp,0.94_fp,0.94_fp,0.94_fp,0.94_fp,0.94_fp,0.94_fp,0.94_fp,0.92_fp,0.91_fp,0.91_fp,& !1 + 0.86_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.88_fp,0.87_fp,0.87_fp,& !2 + 0.85_fp,0.84_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.82_fp,0.80_fp,0.79_fp,& !3 + 0.76_fp,0.77_fp,0.76_fp,0.76_fp,0.76_fp,0.76_fp,0.76_fp,0.76_fp,0.76_fp,0.75_fp,0.73_fp,0.73_fp,0.73_fp,& !4 + 0.77_fp,0.79_fp,0.78_fp,0.78_fp,0.78_fp,0.77_fp,0.77_fp,0.77_fp,0.77_fp,0.77_fp,0.72_fp,0.69_fp,0.68_fp,& !5 + 0.88_fp,0.87_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.82_fp,0.82_fp,0.82_fp,0.76_fp,0.66_fp,0.64_fp,& !6 + 0.82_fp,0.80_fp,0.76_fp,0.76_fp,0.75_fp,0.75_fp,0.75_fp,0.75_fp,0.75_fp,0.74_fp,0.67_fp,0.56_fp,0.53_fp,& !7 + 0.78_fp,0.73_fp,0.67_fp,0.66_fp,0.66_fp,0.66_fp,0.66_fp,0.66_fp,0.66_fp,0.65_fp,0.60_fp,0.56_fp,0.54_fp,& !8 + 0.76_fp,0.74_fp,0.69_fp,0.69_fp,0.68_fp,0.68_fp,0.68_fp,0.68_fp,0.68_fp,0.67_fp,0.60_fp,0.52_fp,0.50_fp,& !9 + 0.70_fp,0.70_fp,0.67_fp,0.67_fp,0.67_fp,0.66_fp,0.66_fp,0.66_fp,0.66_fp,0.66_fp,0.59_fp,0.53_fp,0.52_fp,& !10 + 0.61_fp,0.62_fp,0.63_fp,0.63_fp,0.64_fp,0.64_fp,0.64_fp,0.64_fp,0.64_fp,0.64_fp,0.67_fp,0.69_fp,0.70_fp,& !11 + 0.57_fp,0.59_fp,0.61_fp,0.61_fp,0.61_fp,0.61_fp,0.61_fp,0.61_fp,0.61_fp,0.62_fp,0.64_fp,0.65_fp,0.65_fp,& !12 + 0.45_fp,0.47_fp,0.50_fp,0.50_fp,0.51_fp,0.51_fp,0.51_fp,0.51_fp,0.51_fp,0.51_fp,0.54_fp,0.56_fp,0.57_fp & !13 + /),(/N_FREQ_ATMS,N_SEAICE_TYPES/)) + + + ! Define sixteen MW V-Pol emissivity spectra for ATMS ALGORITHMS + REAL(fp),PUBLIC,PARAMETER,DIMENSION(N_FREQ_ATMS,N_SEAICE_TYPES) :: SEAICE_EMISS_ATMS_V = RESHAPE((/ & + 0.99_fp,0.99_fp,0.99_fp,0.99_fp,0.99_fp,0.99_fp,0.99_fp,0.99_fp,0.99_fp,0.99_fp,0.98_fp,0.97_fp,0.97_fp,& !1 + 0.98_fp,0.97_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.94_fp,0.93_fp,0.93_fp,& !2 + 0.94_fp,0.93_fp,0.92_fp,0.92_fp,0.91_fp,0.91_fp,0.91_fp,0.91_fp,0.91_fp,0.91_fp,0.88_fp,0.86_fp,0.85_fp,& !3 + 0.91_fp,0.91_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.88_fp,0.88_fp,0.88_fp,& !4 + 0.91_fp,0.91_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.90_fp,0.89_fp,0.87_fp,0.84_fp,0.83_fp,& !5 + 0.97_fp,0.96_fp,0.92_fp,0.92_fp,0.92_fp,0.91_fp,0.91_fp,0.91_fp,0.91_fp,0.91_fp,0.84_fp,0.74_fp,0.72_fp,& !6 + 0.93_fp,0.91_fp,0.85_fp,0.84_fp,0.84_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.82_fp,0.72_fp,0.61_fp,0.58_fp,& !7 + 0.86_fp,0.79_fp,0.73_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.71_fp,0.66_fp,0.62_fp,0.60_fp,& !8 + 0.91_fp,0.87_fp,0.81_fp,0.80_fp,0.80_fp,0.80_fp,0.80_fp,0.79_fp,0.79_fp,0.79_fp,0.69_fp,0.61_fp,0.59_fp,& !9 + 0.88_fp,0.88_fp,0.85_fp,0.85_fp,0.85_fp,0.84_fp,0.84_fp,0.84_fp,0.84_fp,0.84_fp,0.77_fp,0.71_fp,0.70_fp,& !10 + 0.82_fp,0.83_fp,0.85_fp,0.85_fp,0.85_fp,0.85_fp,0.85_fp,0.85_fp,0.85_fp,0.85_fp,0.86_fp,0.88_fp,0.89_fp,& !11 + 0.78_fp,0.80_fp,0.82_fp,0.82_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.86_fp,0.87_fp,0.87_fp,& !12 + 0.72_fp,0.74_fp,0.78_fp,0.78_fp,0.78_fp,0.78_fp,0.78_fp,0.78_fp,0.78_fp,0.78_fp,0.82_fp,0.84_fp,0.85_fp & !13 + /),(/N_FREQ_ATMS,N_SEAICE_TYPES/)) + + + ! Define sixteen Mixed MW emissivity spectra for ATMS ALGORITHMS + REAL(fp),PUBLIC,PARAMETER,DIMENSION(N_FREQ_ATMS,N_SEAICE_TYPES) :: SEAICE_EMISS_ATMS_LIB = RESHAPE((/ & + 0.97_fp,0.97_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.96_fp,0.95_fp,0.94_fp,0.94_fp,& !1 + 0.92_fp,0.92_fp,0.92_fp,0.92_fp,0.92_fp,0.92_fp,0.92_fp,0.92_fp,0.92_fp,0.92_fp,0.91_fp,0.90_fp,0.90_fp,& !2 + 0.90_fp,0.89_fp,0.88_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.85_fp,0.83_fp,0.82_fp,& !3 + 0.84_fp,0.84_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.81_fp,0.80_fp,0.80_fp,& !4 + 0.84_fp,0.85_fp,0.84_fp,0.84_fp,0.84_fp,0.84_fp,0.83_fp,0.83_fp,0.83_fp,0.83_fp,0.80_fp,0.76_fp,0.75_fp,& !5 + 0.93_fp,0.91_fp,0.88_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.87_fp,0.86_fp,0.80_fp,0.70_fp,0.68_fp,& !6 + 0.88_fp,0.85_fp,0.80_fp,0.80_fp,0.79_fp,0.79_fp,0.79_fp,0.79_fp,0.79_fp,0.78_fp,0.70_fp,0.58_fp,0.56_fp,& !7 + 0.82_fp,0.76_fp,0.70_fp,0.69_fp,0.69_fp,0.69_fp,0.69_fp,0.69_fp,0.69_fp,0.68_fp,0.63_fp,0.59_fp,0.57_fp,& !8 + 0.84_fp,0.81_fp,0.75_fp,0.74_fp,0.74_fp,0.74_fp,0.74_fp,0.74_fp,0.73_fp,0.73_fp,0.65_fp,0.57_fp,0.55_fp,& !9 + 0.79_fp,0.79_fp,0.76_fp,0.76_fp,0.76_fp,0.75_fp,0.75_fp,0.75_fp,0.75_fp,0.75_fp,0.68_fp,0.62_fp,0.61_fp,& !10 + 0.72_fp,0.72_fp,0.74_fp,0.74_fp,0.74_fp,0.74_fp,0.74_fp,0.74_fp,0.74_fp,0.74_fp,0.76_fp,0.79_fp,0.79_fp,& !11 + 0.68_fp,0.69_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.72_fp,0.75_fp,0.76_fp,0.76_fp,& !12 + 0.59_fp,0.61_fp,0.64_fp,0.64_fp,0.64_fp,0.64_fp,0.64_fp,0.64_fp,0.64_fp,0.65_fp,0.68_fp,0.70_fp,0.71_fp & !13 + /),(/N_FREQ_ATMS,N_SEAICE_TYPES/)) + + +CONTAINS + + FUNCTION SeaIceType_Name2Index(sname) RESULT(sindex) + ! Arguments + CHARACTER(LEN=*), INTENT(IN) :: sname + ! Function result + INTEGER :: sindex + INTEGER :: Idx + + sindex=INVALID_SEAICE_TYPE + DO Idx=1, N_SEAICE_TYPES + IF(TRIM(sname) .EQ. TRIM(SeaIce_TYPE_NAMES(Idx))) THEN + sindex=Idx + EXIT + ENDIF + ENDDO + RETURN + END FUNCTION SeaIceType_Name2Index + + + FUNCTION SeaIceType_Index2Name(sindex) RESULT(sname) + ! Arguments + INTEGER, INTENT(IN) :: sindex + ! Function result + CHARACTER(LEN=100) :: sname + + sname=TRIM(SeaIce_TYPE_NAMES(sindex)) + RETURN + END FUNCTION SeaIceType_Index2Name + +END MODULE NESDIS_ATMS_SeaIce_LIB diff --git a/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SeaICE_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SeaICE_Module.f90 new file mode 100644 index 0000000000..563c49f539 --- /dev/null +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SeaICE_Module.f90 @@ -0,0 +1,421 @@ +!-------------------------------------------------------------------------------- +!M+ +! NAME: +! NESDIS_ATMS_SeaICE_Module +! +! PURPOSE: +! Module containing the seaice-typing algorithm. A general interface is used to call the +! seaice-typing algorithm in terms of the input arguments. This Module is used together with +! NESDIS_ATMS_SeaICE_LIB Module to implement the library-based seaIce emissivity model. +! +! REFERENCES: +! Yan, B., F. Weng and K.Okamoto,2004: "A microwave snow emissivity model, 8th Specialist Meeting on +! +! Microwave Radiometry and Remote Sension Applications,24-27 February, 2004, Rome, Italy. +! +! CATEGORY: +! Surface : MW Surface SeaICE Emissivity of ATMS +! +! LANGUAGE: +! Fortran-95 +! +! CALLING SEQUENCE: +! +! USE NESDIS_ATMS_SeaICE_Module +! +! MODULES: +! Type_Kinds: Module containing definitions for kinds of variable types +! +! NESDIS_LandEM_Module: Module containing the microwave land emissivity model +! +! NESDIS_ATMS_SeaICE_LIB: Module containing the predefined microwave seaice emissivity spectra +! +! CONTAINS: +! +! PUBLIC SUNPROGRAMS: +! +! NESDIS_ATMS_SEAICE: Subroutine to calculate the microwave seaice emissivity from ATMS +! +! +! PRIVATE SUBPROGRAMS: +! These subroutines are used to determine the snow types from the brightness temperatures(TB) +! of five ATMS window channels( 23.8 GHz, 31.4 GHz, 50.3 GHz, 88.2 GHz, 165.5 GHz) and/or +! surface temperature plus snow depth. The five channels are further divided into two +! groups: Group-1 ( 23.8 GHz, 31.4 GHz, 50.3 GHz, 88.2 GHz) and Group-2 (88.2 GHz, 165.5GHz), +! corresponding to the window channels of AMSU-A and AMSU-B, respectively. +! Different combinations of available ATMS window-channel and surface observations result +! in differenet snow-typing algotrithms: + +! ATMS_SEAICE_ByTBTs : by the TBs of all the five ATMS channels and surface temperature (regression-based) +! ATMS_SEAICE_ByTBTs_D : by the TBs of all the five ATMS channels and surface temperature (diagnosis-based) +! siem_interpolate : Subroutine to perform frequency interpolation of snow emissivity +! +! INCLUDE FILES: +! None. +! +! EXTERNALS: +! None. +! +! COMMON BLOCKS: +! None. +! +! FILES ACCESSED: +! None. +! +! CREATION HISTORY: +! Written by: Ming Chen, IMSG Inc., Banghua.Yan@noaa.gov (04-28-2012) +! +! +! and Fuzhong Weng, NOAA/NESDIS/ORA, Fuzhong.Weng@noaa.gov +! +! Copyright (C) 2012 Fuzhong Weng and Ming Chen +! +! This program is free software; you can redistribute it and/or modify it under the terms of the GNU +! General Public License as published by the Free Software Foundation; either version 2 of the License, +! or (at your option) any later version. +! +! This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even +! the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public +! License for more details. +! +! You should have received a copy of the GNU General Public License along with this program; if not, write +! to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +!M- +!-------------------------------------------------------------------------------- + +MODULE NESDIS_ATMS_SeaICE_Module + + ! ----------------- + ! Environment setup + ! ----------------- + ! Module use + USE Type_Kinds, ONLY: fp + USE NESDIS_LandEM_Module + USE NESDIS_ATMS_SeaICE_LIB + + ! Disable implicit typing + IMPLICIT NONE + + ! ------------ + ! Visibilities + ! ------------ + PRIVATE + PUBLIC :: NESDIS_ATMS_SeaICE + + ! ----------------- + ! Module parameters + ! ----------------- + ! Version Id for the module + CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & + '$Id: NESDIS_ATMS_SeaICE_Module.f90 21141 2012-09-14 17:40:43Z paul.vandelst@noaa.gov $' + + +CONTAINS + + + SUBROUTINE NESDIS_ATMS_SeaICE(Satellite_Angle, & ! INPUT + User_Angle, & ! INPUT + frequency, & ! INPUT + Ts, & ! INPUT + Tbs, & ! INPUT + Emissivity_H, & ! OUTPUT + Emissivity_V) ! OUTPUT + + + INTEGER, PARAMETER:: nwch = 5 + REAL(fp):: Satellite_Angle,User_Angle,Satellite_theta,frequency,Ts + REAL(fp):: em_vector(2),esh1,esv1,esh2,esv2,desh,desv,dem + REAL(fp):: tbs(nwch) + REAL(fp), INTENT(out) :: Emissivity_H, Emissivity_V + + + ! Initialization + em_vector(1) = 0.82_fp + em_vector(2) = 0.85_fp + Satellite_theta = User_Angle*pi/180.0_fp + + ! Check available data + IF ((Ts <= 150.0_fp) .OR. (Ts >= 280.0_fp) ) Ts = 260.0 + + ! Emissivity at the local zenith angle of satellite measurements + CALL ATMS_SeaICE_ByTbTs_D(frequency,tbs,Ts,em_vector) + ! Get the emissivity angle dependence + CALL NESDIS_LandEM(Satellite_Angle,Frequency,0.0_fp,0.0_fp,Ts,Ts,0.0_fp,9,13,2.0_fp,esh1,esv1) + CALL NESDIS_LandEM(User_Angle,Frequency,0.0_fp,0.0_fp,Ts,Ts,0.0_fp,9,13,2.0_fp,esh2,esv2) + desh = esh1 - esh2 + desv = esv1 - esv2 + dem = ( desh + desv ) * 0.5_fp + + ! Emissivity at User's Angle + Emissivity_H = em_vector(1) - dem; Emissivity_V = em_vector(2)- dem + + IF(Emissivity_H > ONE) Emissivity_H = ONE + IF(Emissivity_V > ONE) Emissivity_V = ONE + + IF(Emissivity_H < 0.3_fp) Emissivity_H = 0.3_fp + IF(Emissivity_V < 0.3_fp) Emissivity_V = 0.3_fp + + + END SUBROUTINE NESDIS_ATMS_SeaICE + + + + SUBROUTINE ATMS_SeaICE_ByTbTs_D(frequency,tb,ts,em_vector) + + !----------------------------------------------------------------------------------------------------------! + !$$$ subprogram documentation block + ! + ! subprogram: Calculate emissivity by diagnosis-based algorithm + ! + ! + ! abstract: + ! Diagnose the snow type, and use the emissivity spectrum of the snow type as the first-guess to diagnose + ! the magnitude of necessary adjustment with respect to window-channel TBs and surface temperature Ts. Perfrom + ! necessary interpolation/extrapolation a required frequency and user angle. + ! + ! + ! input argument list: + ! + ! frequency - frequency in GHz + ! theta - local zenith angle (currently, not used here) + ! tb[1] ~ tb[5] - brightness temperature at five ATMS window channels: + ! tb[1] : 23.8 GHz + ! tb[2] : 31.4 GHz + ! tb[3] : 50.3 GHz + ! tb[4] : 88.2 GHz + ! tb[5] : 165.5 GHz + ! + ! output argument list: + ! + ! em_vector[1] and [2] - emissivity at two polarizations. + ! set esv = esh here and will be updated + ! snow_type - snow type + ! + ! + ! remarks: + ! + ! program history log: + ! Ming Chen, IMSG at NOAA/NESDIS/STAR date: 2012-04-28 + ! + ! + !----------------------------------------------------------------------------------------------------------! + + INTEGER , PARAMETER :: ntype = N_SEAICE_TYPES, nch = N_FREQ_ATMS, nwch = 5 + REAL(fp), PARAMETER :: earthrad = 6374._fp, satheight = 833.4_fp + INTEGER :: freq_idx,sice_type + REAL(fp) :: frequency + REAL(fp) :: em(nch,ntype), em_vector(:) + REAL(fp) :: tb(:),freq(nch) + REAL(fp) :: ts, emissivity + REAL(fp) :: ediff(ntype), X(nwch),Y(nwch),emw(nwch) + REAL(fp) :: XX,XY,del,dem,dem2,delta,deltb + INTEGER :: minlc(1) + INTEGER :: windex(nwch)=(/1,2,3,11,12/) ! window channel index of the library spectrum + + ! Sixteen candidate snow emissivity spectra + em = SEAICE_EMISS_ATMS_LIB + freq = FREQUENCY_ATMS + + minlc =minloc(ABS(freq-frequency)); freq_idx=minlc(1) + + !*** IDENTIFY SEAICE TYPE + sice_type = 4 !default + ediff=abs(Tb(1)/em(1,:)-Tb(2)/em(2,:))+abs(Tb(2)/em(2,:)-Tb(4)/em(11,:)) + minlc = minloc(ediff) ; sice_type=minlc(1) + + !*** adjustment from the library values + emw=em(windex,sice_type) + X=1.0/emw ; Y=LOG(Tb/(Ts*emw)) + IF(frequency >100_fp) THEN + XX=DOT_PRODUCT(X((/1,2,4,5/)),X((/1,2,4,5/))) + XY=DOT_PRODUCT(X((/1,2,4,5/)),Y((/1,2,4,5/))) + del=XY/XX + deltb=Tb(3)-Tb(5) + ELSE + XX=DOT_PRODUCT(X((/1,2,4/)),X((/1,2,4/))) + XY=DOT_PRODUCT(X((/1,2,4/)),Y((/1,2,4/))) + del=XY/XX + deltb=Tb(3)-Tb(4) + ENDIF + dem = 0.0_fp; delta = 0.0_fp + IF(frequency <= 30.0_fp ) dem = .9*del + IF(frequency > 30._fp .AND. frequency <= 40.0_fp ) dem = 0.9*del + IF(frequency > 40._fp .AND. frequency <= 50.0_fp ) dem = 0.9*del + IF(frequency > 50_fp) THEN + IF(del .LE. 0.0_fp .AND. ABS(deltb) .LT. 30.0_fp) delta=0.5+deltb/50.0 + IF(del .LE. 0.0_fp .AND. ABS(deltb) .GE. 30.0_fp) delta=1.0+deltb/50.0 + IF(del .GT. 0.0_fp .AND. ABS(deltb) .LT. 35.0_fp) delta=1.05-deltb/70.0 + IF(del .GT. 0.0_fp .AND. ABS(deltb) .GE. 35.0_fp) delta=.85-deltb/70.0 + IF(frequency <= 100.0_fp) dem = 0.9*del+(delta*del-del)*(frequency-50.0)/(100.0-50.0) + IF(frequency > 100.0_fp) dem = 0.65*delta*del + ENDIF + dem2=dem + + emissivity = em(freq_idx,sice_type)+(dem+dem2)/2.0 + IF (emissivity > 1.0_fp )emissivity = 1.0_fp + IF (emissivity <= 0.3_fp )emissivity = 0.3_fp + + em_vector(1) = emissivity + em_vector(2) = emissivity + + RETURN + + END SUBROUTINE ATMS_SeaICE_ByTbTs_D + + + SUBROUTINE ATMS_SeaICE_ByTbTs(frequency,tb,ts,em_vector) + + !----------------------------------------------------------------------------------------------------------! + !$$$ subprogram documentation block + ! + ! subprogram: Calculate emissivity by diagnosis-based algorithm + ! + ! + ! abstract: + ! Diagnose the snow type, and use the emissivity spectrum of the snow type as the first-guess to diagnose + ! the magnitude of necessary adjustment with respect to window-channel TBs and surface temperature Ts. Perfrom + ! necessary interpolation/extrapolation a required frequency and user angle. + ! + ! + ! input argument list: + ! + ! frequency - frequency in GHz + ! theta - local zenith angle (currently, not used here) + ! tb[1] ~ tb[5] - brightness temperature at five ATMS window channels: + ! tb[1] : 23.8 GHz + ! tb[2] : 31.4 GHz + ! tb[3] : 50.3 GHz + ! tb[4] : 88.2 GHz + ! tb[5] : 165.5 GHz + ! + ! output argument list: + ! + ! em_vector[1] and [2] - emissivity at two polarizations. + ! set esv = esh here and will be updated + ! snow_type - snow type + ! + ! + ! remarks: + ! + ! program history log: + ! Ming Chen, IMSG at NOAA/NESDIS/STAR date: 2012-04-28 + ! + ! + !----------------------------------------------------------------------------------------------------------! + + + INTEGER, PARAMETER :: nch =10, nwch = 5, ncoe = 4 + REAL(fp) :: tb(:) + REAL(fp) :: em_vector(*),emissivity,ts,frequency,discriminator(nwch) + INTEGER :: ich + REAL(fp),SAVE :: coe(100) + REAL(fp) :: X(nwch),Y(nwch) + REAL(fp) :: XX,XY,del,deltb + + + ! Fitting Coefficients Using Tb1, Tb2, Tb4 and Ts + coe(1:5) =(/ 9.815214e-001_fp, 3.783815e-003_fp, 6.391155e-004_fp, -9.106375e-005_fp, -4.263206e-003_fp/) + coe(21:25)=(/ 9.047181e-001_fp, -2.782826e-004_fp, 4.664207e-003_fp, -3.121744e-005_fp, -3.976189e-003_fp/) + coe(41:45)=(/ 1.163853e+000_fp, -1.419205e-003_fp, 5.505238e-003_fp, 1.506867e-003_fp, -6.157735e-003_fp/) + coe(61:65)=(/ 1.020753e+000_fp, -8.666064e-004_fp, 9.624331e-004_fp, 4.878773e-003_fp, -5.055044e-003_fp/) + coe(81:85)=(/ 1.438246e+000_fp, 5.667756e-004_fp,-2.621972e-003_fp, 5.928146e-003_fp, -5.856687e-003_fp/) + + + ! Calculate emissivity discriminators at five ATMS window channels + + DO ich = 1, nwch + discriminator(ich) = coe(1+(ich-1)*20) + discriminator(ich) = discriminator(ich) + coe((ich-1)*20 + 2)*tb(1) & + + coe((ich-1)*20 + 3)*tb(2) & + + coe((ich-1)*20 + 4)*tb(4) & + + coe( (ich-1)*20 + 5 )*ts + END DO + + X=1.0/discriminator ; Y=LOG(Tb/(Ts*discriminator)) + IF(frequency >100_fp) THEN + XX=DOT_PRODUCT(X((/1,2,4,5/)),X((/1,2,4,5/))) + XY=DOT_PRODUCT(X((/1,2,4,5/)),Y((/1,2,4,5/))) + del=XY/XX + deltb=Tb(3)-Tb(5) + ELSE + XX=DOT_PRODUCT(X((/1,2,4/)),X((/1,2,4/))) + XY=DOT_PRODUCT(X((/1,2,4/)),Y((/1,2,4/))) + del=XY/XX + deltb=Tb(3)-Tb(4) + ENDIF + + discriminator= discriminator+del + emissivity = 0.32_fp + call siem_interpolate(frequency,discriminator,emissivity) + + em_vector(1) = emissivity + em_vector(2) = emissivity + + + END SUBROUTINE ATMS_SeaICE_ByTbTs + + + SUBROUTINE siem_interpolate(frequency,discriminator,emissivity) + !------------------------------------------------------------------------------------------------------------ + !$$$ subprogram documentation block + ! . . . . + ! subprogram: + ! + ! prgmmr:Banghua Yan org: nesdis date: 2004-03-01 + ! + ! abstract: + ! (1) Find one snow emissivity spectrum to mimic the emission property of the + ! realistic snow condition using a set of discrminators + ! (2) Interpolate/extrapolate emissivity at a required frequency + ! + ! program history log: + ! + ! input argument list: + ! + ! frequency - frequency in GHz + ! discriminators - emissivity discriminators at five ATMS window channels + ! discriminator[1] : emissivity discriminator at 23.8 GHz + ! discriminator[2] : emissivity discriminator at 31.4 GHz + ! discriminator[3] : emissivity discriminator at 50.3 GHz + ! discriminator[4] : emissivity discriminator at 89 GHz + ! discriminator[5] : emissivity discriminator at 150 GHz + ! + ! Note: discriminator(1) and discriminator(3) are missing value in + ! 'ATMS & Ts', and 'MODL' options., which are defined to as -999.9, + ! output argument list: + ! + ! em_vector[1] and [2] - emissivity at two polarizations. + ! seaice_type - snow type (reference [2]) + ! + ! remarks: + ! + ! attributes: + ! language: f90 + ! machine: ibm rs/6000 sp + ! + !------------------------------------------------------------------------------------------------------------ + + INTEGER, PARAMETER :: ncand = 16,nch =5 + INTEGER :: i + REAL(fp):: frequency,emissivity,discriminator(*) + REAL(fp):: freq(nch) = (/23.8_fp, 31.4_fp, 50.3_fp,89.0_fp, 150.0_fp/) + + !Estimate sea ice emissivity at a required frequency + DO i = 2, nch + IF(frequency < freq(1)) exit + IF(frequency >= freq(nch)) exit + IF(frequency < freq(i)) THEN + emissivity = discriminator(i-1) + (discriminator(i)-discriminator(i-1))* & + (frequency - freq(i-1))/(freq(i) - freq(i-1)) + exit + ENDIF + END DO + + IF(frequency < freq(1)) emissivity = discriminator(1) + + ! Assume emissivity = constant at frequencies >= 150 GHz + IF(frequency >= freq(nch)) emissivity = discriminator(nch) + + END SUBROUTINE siem_interpolate + +END MODULE NESDIS_ATMS_SeaICE_Module diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_ATMS_SnowEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SnowEM_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_ATMS_SnowEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SnowEM_Module.f90 index 31c8e2f9dd..6622015a67 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_ATMS_SnowEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_ATMS_SnowEM_Module.f90 @@ -881,18 +881,18 @@ SUBROUTINE ATMS_SNOW_ByTB_B(frequency,tbb,snow_type,em_vector) REAL(fp) :: em_vector(:),emissivity,frequency,ed0(nwch),discriminator(5) INTEGER :: snow_type,i,k,ich,nvalid_ch REAL(fp) :: coe(50) - + SAVE coe ! Fitting Coefficients at 31.4 GHz: Using Tb4, Tb5 - DATA (coe(k),k=1,5)/-4.015636e-001_fp,9.297894e-003_fp, -1.305068e-005_fp, & - 3.717131e-004_fp, -4.364877e-006_fp/ + coe(1:5) = (/-4.015636e-001_fp,9.297894e-003_fp, -1.305068e-005_fp, & + 3.717131e-004_fp, -4.364877e-006_fp/) ! Fitting Coefficients at 89 GHz: Using Tb4, Tb5 - DATA (coe(k),k=11,15)/-2.229547e-001_fp, -1.828402e-003_fp,1.754807e-005_fp, & - 9.793681e-003_fp, -3.137189e-005_fp/ + coe(11:15) = (/-2.229547e-001_fp, -1.828402e-003_fp,1.754807e-005_fp, & + 9.793681e-003_fp, -3.137189e-005_fp/) ! Fitting Coefficients at 150 GHz: Using Tb4, Tb5 - DATA (coe(k),k=21,25)/-3.395416e-001_fp,-4.632656e-003_fp,1.270735e-005_fp, & - 1.413038e-002_fp,-3.133239e-005_fp/ - SAVE coe + coe(21:25) = (/-3.395416e-001_fp,-4.632656e-003_fp,1.270735e-005_fp, & + 1.413038e-002_fp,-3.133239e-005_fp/) +! SAVE coe ! Calculate emissivity discriminators at five ATMS window channels DO ich = 1, nwch @@ -991,22 +991,22 @@ SUBROUTINE ATMS_SNOW_ByTBTs(frequency,tb,ts,snow_type,em_vector) LOGICAL:: pick_status,tindex(nind) SAVE threshold,DI_coe,LI_coe, HI_coe,nmodel - DATA nmodel/5,10,13,16,18,24,30,31,32,33,34,35,36,37,38/ + nmodel = (/5,10,13,16,18,24,30,31,32,33,34,35,36,37,38/) ! Fitting coefficients for emissivity index at 31.4 GHz - DATA LI_coe/ & + LI_coe = (/ & 7.963632e-001_fp, 7.215580e-003_fp, & -2.015921e-005_fp, -1.508286e-003_fp, & - 1.731405e-005_fp, -4.105358e-003_fp/ + 1.731405e-005_fp, -4.105358e-003_fp/) ! Fitting coefficients for emissivity index at 150 GHz - DATA HI_coe/ & + HI_coe = (/ & 1.012160e+000_fp, 6.100397e-003_fp, & -1.774347e-005_fp, -4.028211e-003_fp, & 1.224470e-005_fp, 2.345612e-003_fp, & -5.376814e-006_fp, -2.795332e-003_fp, & 8.072756e-006_fp, 3.529615e-003_fp, & - 1.955293e-006_fp, -4.942230e-003_fp/ + 1.955293e-006_fp, -4.942230e-003_fp/) ! Fitting coefficients for five discriminators DI_coe(1,0:ncoe-1)=(/ 3.285557e-002_fp, 2.677179e-005_fp, & @@ -1462,7 +1462,7 @@ SUBROUTINE ATMS_ALandEM_Snow(theta,frequency,snow_depth,ts,snow_type,em_vector) INTEGER snow_type,ich REAL(fp) freq_3w(nw_ind),esh_3w(nw_ind),esv_3w(nw_ind) COMPLEX(fp) eair - DATA freq_3w/31.4_fp,89.0_fp,150.0_fp/ + freq_3w = (/31.4_fp,89.0_fp,150.0_fp/) eair = cmplx(one,-zero,fp) diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_LandEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_LandEM_Module.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/NESDIS_LandEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_LandEM_Module.f90 diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_MHS_SICEEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_MHS_SICEEM_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_MHS_SICEEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_MHS_SICEEM_Module.f90 index a7fdae8dfc..9dd32dd1c7 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_MHS_SICEEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_MHS_SICEEM_Module.f90 @@ -42,7 +42,7 @@ MODULE NESDIS_MHS_SICEEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_MHS_SICEEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_MHS_SICEEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_MHS_SnowEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_MHS_SnowEM_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_MHS_SnowEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_MHS_SnowEM_Module.f90 index 2c347a4d07..e295f22557 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_MHS_SnowEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_MHS_SnowEM_Module.f90 @@ -41,7 +41,7 @@ MODULE NESDIS_MHS_SNOWEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_MHS_SnowEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_MHS_SnowEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SEAICE_PHYEM_MODULE.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SEAICE_PHYEM_MODULE.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SEAICE_PHYEM_MODULE.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SEAICE_PHYEM_MODULE.f90 index 9ea8a97250..8fbb334d1e 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_SEAICE_PHYEM_MODULE.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_SEAICE_PHYEM_MODULE.f90 @@ -33,7 +33,7 @@ MODULE NESDIS_SEAICE_PHYEM_MODULE ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_SEAICE_PHYEM_MODULE.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_SEAICE_PHYEM_MODULE.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMIS_SeaIceEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMIS_SeaIceEM_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SSMIS_SeaIceEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SSMIS_SeaIceEM_Module.f90 index 80de89759b..eb19eca098 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMIS_SeaIceEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMIS_SeaIceEM_Module.f90 @@ -43,7 +43,7 @@ MODULE NESDIS_SSMIS_SeaIceEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_SSMIS_SeaIceEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_SSMIS_SeaIceEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMIS_SnowEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMIS_SnowEM_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SSMIS_SnowEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SSMIS_SnowEM_Module.f90 index f4800e4c0e..c575a27b70 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMIS_SnowEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMIS_SnowEM_Module.f90 @@ -44,7 +44,7 @@ MODULE NESDIS_SSMIS_SnowEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_SSMIS_SnowEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_SSMIS_SnowEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_Module.f90 similarity index 91% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_Module.f90 index 5626cfdf68..26431b50e4 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_Module.f90 @@ -40,7 +40,7 @@ MODULE NESDIS_SSMI_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_SSMI_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_SSMI_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -352,48 +352,48 @@ subroutine NESDIS_SSMI_SSICEEM_CORE(Snow_status,Ice_status,frequency,Ts,tv,th,em logical Snow_status,Ice_status,data_invalid - + save coe_v,coe_h ! ice - data (coe_v(1,1,k),k=1,5)/ -8.722723e-002_fp, 1.064573e-002_fp, & - -5.333843e-003_fp, -1.394910e-003_fp, 4.007640e-004_fp/ - data (coe_v(1,2,k),k=1,5)/-1.373924e-001_fp, 6.580569e-003_fp, & - -9.991220e-004_fp, -1.476022e-003_fp, 4.131816e-004_fp/ - data (coe_v(1,3,k),k=1,5)/ -2.329867e-001_fp, 6.419856e-003_fp, & - -5.260987e-003_fp, 3.342582e-003_fp, 4.139272e-004_fp/ - data (coe_v(1,4,k),k=1,5)/ -3.528638e-001_fp, 6.342649e-003_fp, & - -5.002575e-003_fp, -1.469298e-003_fp, 5.529711e-003_fp/ - data (coe_h(1,1,k),k=1,4)/ & + coe_v(1,1,1:5) = (/ -8.722723e-002_fp, 1.064573e-002_fp, & + -5.333843e-003_fp, -1.394910e-003_fp, 4.007640e-004_fp/) + coe_v(1,2,1:5) = (/-1.373924e-001_fp, 6.580569e-003_fp, & + -9.991220e-004_fp, -1.476022e-003_fp, 4.131816e-004_fp/) + coe_v(1,3,1:5) = (/ -2.329867e-001_fp, 6.419856e-003_fp, & + -5.260987e-003_fp, 3.342582e-003_fp, 4.139272e-004_fp/) + coe_v(1,4,1:5) = (/ -3.528638e-001_fp, 6.342649e-003_fp, & + -5.002575e-003_fp, -1.469298e-003_fp, 5.529711e-003_fp/) + coe_h(1,1,1:4) = (/ & -1.338736e-001_fp, 6.229798e-003_fp, -2.169491e-003_fp, & - 5.706367e-004_fp/ - data (coe_h(1,2,k),k=1,4)/ & + 5.706367e-004_fp/) + coe_h(1,2,1:4) = (/ & -2.747500e-001_fp, 2.041477e-003_fp, 2.581898e-003_fp, & - 5.924890e-004_fp/ - data (coe_h(1,3,k),k=1,4)/ & + 5.924890e-004_fp/) + coe_h(1,3,1:4) = (/ & -3.889575e-001_fp, 2.188889e-003_fp, -2.253243e-003_fp, & - 5.750499e-003_fp/ + 5.750499e-003_fp/) !snow - data (coe_v(2,1,k),k=1,5)/ 1.109066e-001_fp, 5.449409e-003_fp, & - 1.835799e-004_fp, -1.765248e-003_fp, -2.996101e-004_fp/ - data (coe_v(2,2,k),k=1,5)/ 9.356505e-002_fp, 1.320617e-003_fp, & - 4.449195e-003_fp, -1.786960e-003_fp, -3.479687e-004_fp/ - data (coe_v(2,3,k),k=1,5)/ 6.387097e-002_fp, 1.252447e-003_fp, & - 1.998846e-004_fp, 2.680219e-003_fp, -3.740141e-004_fp/ - data (coe_v(2,4,k),k=1,5)/ 4.150689e-002_fp, 1.420274e-003_fp, & - 1.223339e-004_fp, -1.948946e-003_fp, 4.248289e-003_fp/ - - data (coe_h(2,1,k),k=1,4)/ & + coe_v(2,1,1:5) = (/ 1.109066e-001_fp, 5.449409e-003_fp, & + 1.835799e-004_fp, -1.765248e-003_fp, -2.996101e-004_fp/) + coe_v(2,2,1:5) = (/ 9.356505e-002_fp, 1.320617e-003_fp, & + 4.449195e-003_fp, -1.786960e-003_fp, -3.479687e-004_fp/) + coe_v(2,3,1:5) = (/ 6.387097e-002_fp, 1.252447e-003_fp, & + 1.998846e-004_fp, 2.680219e-003_fp, -3.740141e-004_fp/) + coe_v(2,4,1:5) = (/ 4.150689e-002_fp, 1.420274e-003_fp, & + 1.223339e-004_fp, -1.948946e-003_fp, 4.248289e-003_fp/) + + coe_h(2,1,1:4) = (/ & 8.503807e-002_fp, 5.357374e-003_fp, -1.361660e-003_fp, & - -3.319696e-004_fp/ - data (coe_h(2,2,k),k=1,4)/ & + -3.319696e-004_fp/) + coe_h(2,2,1:4) = (/ & 4.200333e-002_fp, 1.278894e-003_fp, 2.963129e-003_fp, & - -4.087036e-004_fp/ - data (coe_h(2,3,k),k=1,4)/ & + -4.087036e-004_fp/) + coe_h(2,3,1:4) = (/ & 2.082461e-002_fp, 1.438480e-003_fp, -1.723992e-003_fp, & - 4.194914e-003_fp/ + 4.194914e-003_fp/) - save coe_v,coe_h +! save coe_v,coe_h ! Initialization diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_SIceEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_SIceEM_Module.f90 similarity index 94% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_SIceEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_SIceEM_Module.f90 index 1f12739614..d579646389 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_SIceEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_SIceEM_Module.f90 @@ -43,7 +43,7 @@ MODULE NESDIS_SSMI_SIceEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_SSMI_SIceEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_SSMI_SIceEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -335,27 +335,27 @@ subroutine SSMI_IceEM_CORE(frequency,Ts,tv,th,em_vector) logical data_invalid + save coe_v,coe_h - - data (coe_v(1,k),k=1,5)/ -8.722723e-002_fp, 1.064573e-002_fp, & - -5.333843e-003_fp, -1.394910e-003_fp, 4.007640e-004_fp/ - data (coe_v(2,k),k=1,5)/-1.373924e-001_fp, 6.580569e-003_fp, & - -9.991220e-004_fp, -1.476022e-003_fp, 4.131816e-004_fp/ - data (coe_v(3,k),k=1,5)/ -2.329867e-001_fp, 6.419856e-003_fp, & - -5.260987e-003_fp, 3.342582e-003_fp, 4.139272e-004_fp/ - data (coe_v(4,k),k=1,5)/ -3.528638e-001_fp, 6.342649e-003_fp, & - -5.002575e-003_fp, -1.469298e-003_fp, 5.529711e-003_fp/ - data (coe_h(1,k),k=1,4)/ & + coe_v(1,1:5) = (/ -8.722723e-002_fp, 1.064573e-002_fp, & + -5.333843e-003_fp, -1.394910e-003_fp, 4.007640e-004_fp/) + coe_v(2,1:5) = (/-1.373924e-001_fp, 6.580569e-003_fp, & + -9.991220e-004_fp, -1.476022e-003_fp, 4.131816e-004_fp/) + coe_v(3,1:5) = (/ -2.329867e-001_fp, 6.419856e-003_fp, & + -5.260987e-003_fp, 3.342582e-003_fp, 4.139272e-004_fp/) + coe_v(4,1:5) = (/ -3.528638e-001_fp, 6.342649e-003_fp, & + -5.002575e-003_fp, -1.469298e-003_fp, 5.529711e-003_fp/) + coe_h(1,1:4) = (/ & -1.338736e-001_fp, 6.229798e-003_fp, -2.169491e-003_fp, & - 5.706367e-004_fp/ - data (coe_h(2,k),k=1,4)/ & + 5.706367e-004_fp/) + coe_h(2,1:4) = (/ & -2.747500e-001_fp, 2.041477e-003_fp, 2.581898e-003_fp, & - 5.924890e-004_fp/ - data (coe_h(3,k),k=1,4)/ & + 5.924890e-004_fp/) + coe_h(3,1:4) = (/ & -3.889575e-001_fp, 2.188889e-003_fp, -2.253243e-003_fp, & - 5.750499e-003_fp/ + 5.750499e-003_fp/) - save coe_v,coe_h +! save coe_v,coe_h ! Initialization diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_SnowEM_Module.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_SnowEM_Module.f90 similarity index 94% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_SnowEM_Module.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_SnowEM_Module.f90 index 4ad0427a27..57c75e3f59 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_SSMI_SnowEM_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_SSMI_SnowEM_Module.f90 @@ -43,7 +43,7 @@ MODULE NESDIS_SSMI_SnowEM_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_SSMI_SnowEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_SSMI_SnowEM_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS @@ -338,29 +338,29 @@ subroutine SSMI_SnowEM_CORE(frequency,Ts,tv,th,em_vector) logical data_invalid - + save coe_v,coe_h !snow - data (coe_v(1,k),k=1,5)/ 1.109066e-001_fp, 5.449409e-003_fp, & - 1.835799e-004_fp, -1.765248e-003_fp, -2.996101e-004_fp/ - data (coe_v(2,k),k=1,5)/ 9.356505e-002_fp, 1.320617e-003_fp, & - 4.449195e-003_fp, -1.786960e-003_fp, -3.479687e-004_fp/ - data (coe_v(3,k),k=1,5)/ 6.387097e-002_fp, 1.252447e-003_fp, & - 1.998846e-004_fp, 2.680219e-003_fp, -3.740141e-004_fp/ - data (coe_v(4,k),k=1,5)/ 4.150689e-002_fp, 1.420274e-003_fp, & - 1.223339e-004_fp, -1.948946e-003_fp, 4.248289e-003_fp/ - - data (coe_h(1,k),k=1,4)/ & + coe_v(1,1:5) = (/ 1.109066e-001_fp, 5.449409e-003_fp, & + 1.835799e-004_fp, -1.765248e-003_fp, -2.996101e-004_fp/) + coe_v(2,1:5) = (/ 9.356505e-002_fp, 1.320617e-003_fp, & + 4.449195e-003_fp, -1.786960e-003_fp, -3.479687e-004_fp/) + coe_v(3,1:5) = (/ 6.387097e-002_fp, 1.252447e-003_fp, & + 1.998846e-004_fp, 2.680219e-003_fp, -3.740141e-004_fp/) + coe_v(4,1:5) = (/ 4.150689e-002_fp, 1.420274e-003_fp, & + 1.223339e-004_fp, -1.948946e-003_fp, 4.248289e-003_fp/) + + coe_h(1,1:4) = (/ & 8.503807e-002_fp, 5.357374e-003_fp, -1.361660e-003_fp, & - -3.319696e-004_fp/ - data (coe_h(2,k),k=1,4)/ & + -3.319696e-004_fp/) + coe_h(2,1:4) = (/ & 4.200333e-002_fp, 1.278894e-003_fp, 2.963129e-003_fp, & - -4.087036e-004_fp/ - data (coe_h(3,k),k=1,4)/ & + -4.087036e-004_fp/) + coe_h(3,1:4) = (/ & 2.082461e-002_fp, 1.438480e-003_fp, -1.723992e-003_fp, & - 4.194914e-003_fp/ + 4.194914e-003_fp/) - save coe_v,coe_h +! save coe_v,coe_h ! Initialization diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SnowEM_ATMS_Parameters.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SnowEM_ATMS_Parameters.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SnowEM_ATMS_Parameters.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SnowEM_ATMS_Parameters.f90 diff --git a/var/external/crtm_2.2.3/libsrc/NESDIS_SnowEM_Parameters.f90 b/var/external/crtm_2.3.0/libsrc/NESDIS_SnowEM_Parameters.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NESDIS_SnowEM_Parameters.f90 rename to var/external/crtm_2.3.0/libsrc/NESDIS_SnowEM_Parameters.f90 index 79879a12d8..60d71157b7 100644 --- a/var/external/crtm_2.2.3/libsrc/NESDIS_SnowEM_Parameters.f90 +++ b/var/external/crtm_2.3.0/libsrc/NESDIS_SnowEM_Parameters.f90 @@ -33,7 +33,7 @@ MODULE NESDIS_SnowEM_Parameters ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NESDIS_SnowEM_Parameters.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NESDIS_SnowEM_Parameters.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Snow types INTEGER, PUBLIC, PARAMETER :: INVALID_SNOW_TYPE = -999 diff --git a/var/external/crtm_2.2.3/libsrc/NLTECoeff_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/NLTECoeff_Binary_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NLTECoeff_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/NLTECoeff_Binary_IO.f90 index e2b6adbe2c..a82bc61615 100644 --- a/var/external/crtm_2.2.3/libsrc/NLTECoeff_Binary_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/NLTECoeff_Binary_IO.f90 @@ -47,7 +47,7 @@ MODULE NLTECoeff_Binary_IO ! Module parameters ! ----------------- CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: NLTECoeff_Binary_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NLTECoeff_Binary_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CHARACTER(*), PARAMETER :: WRITE_ERROR_STATUS = 'DELETE' ! Default message length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/NLTECoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/NLTECoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NLTECoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/NLTECoeff_Define.f90 index 8e42d0d428..33b2e72905 100644 --- a/var/external/crtm_2.2.3/libsrc/NLTECoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/NLTECoeff_Define.f90 @@ -67,7 +67,7 @@ MODULE NLTECoeff_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NLTECoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NLTECoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(Double), PARAMETER :: ZERO = 0.0_Double REAL(Double), PARAMETER :: ONE = 1.0_Double @@ -101,7 +101,7 @@ MODULE NLTECoeff_Define INTEGER(Long) :: n_NLTE_Channels = 0 ! n4 dimension INTEGER(Long) :: n_Channels = 0 ! n5 dimension ! ..."Internal" dimension -!comment out to allow PGI 13.3 to compile INTEGER(Long) :: n_Layers = N_LAYERS + INTEGER(Long) :: n_Layers = N_LAYERS ! Sensor info CHARACTER(SL) :: Sensor_Id = '' INTEGER(Long) :: WMO_Satellite_ID = INVALID_WMO_SATELLITE_ID diff --git a/var/external/crtm_2.2.3/libsrc/NLTE_Parameters.f90 b/var/external/crtm_2.3.0/libsrc/NLTE_Parameters.f90 similarity index 96% rename from var/external/crtm_2.2.3/libsrc/NLTE_Parameters.f90 rename to var/external/crtm_2.3.0/libsrc/NLTE_Parameters.f90 index 5c68cc2116..8bbf42d6b4 100644 --- a/var/external/crtm_2.2.3/libsrc/NLTE_Parameters.f90 +++ b/var/external/crtm_2.3.0/libsrc/NLTE_Parameters.f90 @@ -46,7 +46,7 @@ MODULE NLTE_Parameters ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NLTE_Parameters.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NLTE_Parameters.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Pressure levels for computing mean temperatures in the two layers INTEGER, PARAMETER :: N_NLTE_LAYERS = 2 diff --git a/var/external/crtm_2.2.3/libsrc/NLTE_Predictor_Define.f90 b/var/external/crtm_2.3.0/libsrc/NLTE_Predictor_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NLTE_Predictor_Define.f90 rename to var/external/crtm_2.3.0/libsrc/NLTE_Predictor_Define.f90 index 6e02d7a28b..67fbc948be 100644 --- a/var/external/crtm_2.2.3/libsrc/NLTE_Predictor_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/NLTE_Predictor_Define.f90 @@ -57,7 +57,7 @@ MODULE NLTE_Predictor_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: NLTE_Predictor_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NLTE_Predictor_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/NLTE_Predictor_IO.f90 b/var/external/crtm_2.3.0/libsrc/NLTE_Predictor_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/NLTE_Predictor_IO.f90 rename to var/external/crtm_2.3.0/libsrc/NLTE_Predictor_IO.f90 index 6d50ee8cd9..050ff4e860 100644 --- a/var/external/crtm_2.2.3/libsrc/NLTE_Predictor_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/NLTE_Predictor_IO.f90 @@ -42,7 +42,7 @@ MODULE NLTE_Predictor_IO ! Module parameters ! ----------------- CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: NLTE_Predictor_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: NLTE_Predictor_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CHARACTER(*), PARAMETER :: WRITE_ERROR_STATUS = 'DELETE' ! Default message length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/ODAS_AtmAbsorption.f90 b/var/external/crtm_2.3.0/libsrc/ODAS_AtmAbsorption.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODAS_AtmAbsorption.f90 rename to var/external/crtm_2.3.0/libsrc/ODAS_AtmAbsorption.f90 index a990d26c27..4a42619569 100644 --- a/var/external/crtm_2.2.3/libsrc/ODAS_AtmAbsorption.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODAS_AtmAbsorption.f90 @@ -57,7 +57,7 @@ MODULE ODAS_AtmAbsorption ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: ODAS_AtmAbsorption.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODAS_AtmAbsorption.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! ------------------------------------------ diff --git a/var/external/crtm_2.2.3/libsrc/ODAS_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/ODAS_Binary_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODAS_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/ODAS_Binary_IO.f90 index d426ff94f5..33cfdcd342 100644 --- a/var/external/crtm_2.2.3/libsrc/ODAS_Binary_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODAS_Binary_IO.f90 @@ -47,7 +47,7 @@ MODULE ODAS_Binary_IO ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: ODAS_Binary_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODAS_Binary_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message character length INTEGER, PARAMETER :: ML = 512 ! Keyword set value diff --git a/var/external/crtm_2.2.3/libsrc/ODAS_Define.f90 b/var/external/crtm_2.3.0/libsrc/ODAS_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODAS_Define.f90 rename to var/external/crtm_2.3.0/libsrc/ODAS_Define.f90 index 389bfb5ea6..d2db245290 100644 --- a/var/external/crtm_2.2.3/libsrc/ODAS_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODAS_Define.f90 @@ -69,7 +69,7 @@ MODULE ODAS_Define ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: ODAS_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODAS_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! ODAS invalid values INTEGER, PARAMETER :: IP_INVALID = -1 REAL(Double), PARAMETER :: FP_INVALID = -1.0_Double diff --git a/var/external/crtm_2.2.3/libsrc/ODAS_Predictor.f90 b/var/external/crtm_2.3.0/libsrc/ODAS_Predictor.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODAS_Predictor.f90 rename to var/external/crtm_2.3.0/libsrc/ODAS_Predictor.f90 index 35ae47fe82..596a1cd736 100644 --- a/var/external/crtm_2.2.3/libsrc/ODAS_Predictor.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODAS_Predictor.f90 @@ -70,7 +70,7 @@ MODULE ODAS_Predictor ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: ODAS_Predictor.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODAS_Predictor.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Absorbers in the gas absorption model diff --git a/var/external/crtm_2.2.3/libsrc/ODAS_Predictor_Define.f90 b/var/external/crtm_2.3.0/libsrc/ODAS_Predictor_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODAS_Predictor_Define.f90 rename to var/external/crtm_2.3.0/libsrc/ODAS_Predictor_Define.f90 index 036edaf727..6d97dac291 100644 --- a/var/external/crtm_2.2.3/libsrc/ODAS_Predictor_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODAS_Predictor_Define.f90 @@ -59,7 +59,7 @@ MODULE ODAS_Predictor_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: ODAS_Predictor_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODAS_Predictor_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: ODAS_PREDICTOR_RELEASE = 3 ! This determines structure and file formats. INTEGER, PARAMETER :: ODAS_PREDICTOR_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/ODAS_TauCoeff.f90 b/var/external/crtm_2.3.0/libsrc/ODAS_TauCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODAS_TauCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/ODAS_TauCoeff.f90 index 69f1e8d392..3857fc66af 100644 --- a/var/external/crtm_2.2.3/libsrc/ODAS_TauCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODAS_TauCoeff.f90 @@ -61,7 +61,7 @@ MODULE ODAS_TauCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER, PRIVATE :: MODULE_RCS_ID = & - '$Id: ODAS_TauCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODAS_TauCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! -------------------------------------- diff --git a/var/external/crtm_2.2.3/libsrc/ODPS_AtmAbsorption.f90 b/var/external/crtm_2.3.0/libsrc/ODPS_AtmAbsorption.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/ODPS_AtmAbsorption.f90 rename to var/external/crtm_2.3.0/libsrc/ODPS_AtmAbsorption.f90 diff --git a/var/external/crtm_2.2.3/libsrc/ODPS_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/ODPS_Binary_IO.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/ODPS_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/ODPS_Binary_IO.f90 diff --git a/var/external/crtm_2.2.3/libsrc/ODPS_CoordinateMapping.f90 b/var/external/crtm_2.3.0/libsrc/ODPS_CoordinateMapping.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODPS_CoordinateMapping.f90 rename to var/external/crtm_2.3.0/libsrc/ODPS_CoordinateMapping.f90 index 29cefbe3db..9a038a0ac1 100644 --- a/var/external/crtm_2.2.3/libsrc/ODPS_CoordinateMapping.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODPS_CoordinateMapping.f90 @@ -57,7 +57,7 @@ MODULE ODPS_CoordinateMapping ! ----------------- ! RCS Id for the module CHARACTER(*), PRIVATE, PARAMETER :: MODULE_RCS_ID = & - '$Id: ODPS_CoordinateMapping.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODPS_CoordinateMapping.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/ODPS_Define.f90 b/var/external/crtm_2.3.0/libsrc/ODPS_Define.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/ODPS_Define.f90 rename to var/external/crtm_2.3.0/libsrc/ODPS_Define.f90 diff --git a/var/external/crtm_2.2.3/libsrc/ODPS_Predictor.f90 b/var/external/crtm_2.3.0/libsrc/ODPS_Predictor.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/ODPS_Predictor.f90 rename to var/external/crtm_2.3.0/libsrc/ODPS_Predictor.f90 diff --git a/var/external/crtm_2.2.3/libsrc/ODPS_Predictor_Define.f90 b/var/external/crtm_2.3.0/libsrc/ODPS_Predictor_Define.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/ODPS_Predictor_Define.f90 rename to var/external/crtm_2.3.0/libsrc/ODPS_Predictor_Define.f90 diff --git a/var/external/crtm_2.2.3/libsrc/ODPS_TauCoeff.f90 b/var/external/crtm_2.3.0/libsrc/ODPS_TauCoeff.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/ODPS_TauCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/ODPS_TauCoeff.f90 diff --git a/var/external/crtm_2.2.3/libsrc/ODSSU_AtmAbsorption.f90 b/var/external/crtm_2.3.0/libsrc/ODSSU_AtmAbsorption.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODSSU_AtmAbsorption.f90 rename to var/external/crtm_2.3.0/libsrc/ODSSU_AtmAbsorption.f90 index 13be4392d6..3cd111c118 100644 --- a/var/external/crtm_2.2.3/libsrc/ODSSU_AtmAbsorption.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODSSU_AtmAbsorption.f90 @@ -79,7 +79,7 @@ MODULE ODSSU_AtmAbsorption ! Parameters ! ---------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: ODSSU_AtmAbsorption.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODSSU_AtmAbsorption.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/ODSSU_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/ODSSU_Binary_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODSSU_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/ODSSU_Binary_IO.f90 index 657060ff63..8fc968030a 100644 --- a/var/external/crtm_2.2.3/libsrc/ODSSU_Binary_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODSSU_Binary_IO.f90 @@ -52,7 +52,7 @@ MODULE ODSSU_Binary_IO ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: ODSSU_Binary_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODSSU_Binary_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Keyword set value INTEGER, PARAMETER :: SET = 1 ! Message character length diff --git a/var/external/crtm_2.2.3/libsrc/ODSSU_Define.f90 b/var/external/crtm_2.3.0/libsrc/ODSSU_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODSSU_Define.f90 rename to var/external/crtm_2.3.0/libsrc/ODSSU_Define.f90 index 8288aed64c..1af4221c19 100644 --- a/var/external/crtm_2.2.3/libsrc/ODSSU_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODSSU_Define.f90 @@ -58,7 +58,7 @@ MODULE ODSSU_Define ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: ODSSU_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODSSU_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! ODSSU invalid values INTEGER, PARAMETER :: IP_INVALID = -1 REAL(Double), PARAMETER :: FP_INVALID = -1.0_Double diff --git a/var/external/crtm_2.2.3/libsrc/ODSSU_TauCoeff.f90 b/var/external/crtm_2.3.0/libsrc/ODSSU_TauCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODSSU_TauCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/ODSSU_TauCoeff.f90 index a92f93268f..22c6a1c03f 100644 --- a/var/external/crtm_2.2.3/libsrc/ODSSU_TauCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODSSU_TauCoeff.f90 @@ -60,7 +60,7 @@ MODULE ODSSU_TauCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER, PRIVATE :: MODULE_RCS_ID = & - '$Id: ODSSU_TauCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODSSU_TauCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! -------------------------------------- diff --git a/var/external/crtm_2.2.3/libsrc/ODZeeman_AtmAbsorption.f90 b/var/external/crtm_2.3.0/libsrc/ODZeeman_AtmAbsorption.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODZeeman_AtmAbsorption.f90 rename to var/external/crtm_2.3.0/libsrc/ODZeeman_AtmAbsorption.f90 index da57b30023..7da6f9f266 100644 --- a/var/external/crtm_2.2.3/libsrc/ODZeeman_AtmAbsorption.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODZeeman_AtmAbsorption.f90 @@ -75,7 +75,7 @@ MODULE ODZeeman_AtmAbsorption ! Parameters ! ---------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: ODZeeman_AtmAbsorption.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODZeeman_AtmAbsorption.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/ODZeeman_Predictor.f90 b/var/external/crtm_2.3.0/libsrc/ODZeeman_Predictor.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/ODZeeman_Predictor.f90 rename to var/external/crtm_2.3.0/libsrc/ODZeeman_Predictor.f90 diff --git a/var/external/crtm_2.2.3/libsrc/ODZeeman_TauCoeff.f90 b/var/external/crtm_2.3.0/libsrc/ODZeeman_TauCoeff.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/ODZeeman_TauCoeff.f90 rename to var/external/crtm_2.3.0/libsrc/ODZeeman_TauCoeff.f90 index dfb27f9f6b..f4d26d44a3 100644 --- a/var/external/crtm_2.2.3/libsrc/ODZeeman_TauCoeff.f90 +++ b/var/external/crtm_2.3.0/libsrc/ODZeeman_TauCoeff.f90 @@ -52,7 +52,7 @@ MODULE ODZeeman_TauCoeff ! Module parameters ! ----------------- CHARACTER(*), PARAMETER, PRIVATE :: MODULE_RCS_ID = & - '$Id: ODZeeman_TauCoeff.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: ODZeeman_TauCoeff.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! -------------------------------------- diff --git a/var/external/crtm_2.2.3/libsrc/PAFV_Define.f90 b/var/external/crtm_2.3.0/libsrc/PAFV_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/PAFV_Define.f90 rename to var/external/crtm_2.3.0/libsrc/PAFV_Define.f90 index b335ca9071..c877c6588f 100644 --- a/var/external/crtm_2.2.3/libsrc/PAFV_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/PAFV_Define.f90 @@ -59,7 +59,7 @@ MODULE PAFV_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: PAFV_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: PAFV_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: PAFV_RELEASE = 2 ! This determines structure and file formats. INTEGER, PARAMETER :: PAFV_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/Profile_Utility_Parameters.f90 b/var/external/crtm_2.3.0/libsrc/Profile_Utility_Parameters.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/Profile_Utility_Parameters.f90 rename to var/external/crtm_2.3.0/libsrc/Profile_Utility_Parameters.f90 diff --git a/var/external/crtm_2.2.3/libsrc/RTV_Define.f90 b/var/external/crtm_2.3.0/libsrc/RTV_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/RTV_Define.f90 rename to var/external/crtm_2.3.0/libsrc/RTV_Define.f90 index ec3d22c163..3b6d16f461 100644 --- a/var/external/crtm_2.2.3/libsrc/RTV_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/RTV_Define.f90 @@ -65,7 +65,7 @@ MODULE RTV_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: RTV_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: RTV_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Threshold for determing if an additional stream ! angle is required for the satellite zenith angle diff --git a/var/external/crtm_2.2.3/libsrc/Reflection_Correction_Module.f90 b/var/external/crtm_2.3.0/libsrc/Reflection_Correction_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Reflection_Correction_Module.f90 rename to var/external/crtm_2.3.0/libsrc/Reflection_Correction_Module.f90 index f6d80cf3e6..6534da6fd2 100644 --- a/var/external/crtm_2.2.3/libsrc/Reflection_Correction_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/Reflection_Correction_Module.f90 @@ -50,7 +50,7 @@ MODULE Reflection_Correction_Module ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Reflection_Correction_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Reflection_Correction_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/SEcategory_Define.f90 b/var/external/crtm_2.3.0/libsrc/SEcategory_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/SEcategory_Define.f90 rename to var/external/crtm_2.3.0/libsrc/SEcategory_Define.f90 index 0fa0e330a0..0a9f709924 100644 --- a/var/external/crtm_2.2.3/libsrc/SEcategory_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/SEcategory_Define.f90 @@ -67,7 +67,7 @@ MODULE SEcategory_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: SEcategory_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: SEcategory_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Datatype information CHARACTER(*), PARAMETER :: SECATEGORY_DATATYPE = 'SEcategory' ! Release and version diff --git a/var/external/crtm_2.2.3/libsrc/SOI_Module.f90 b/var/external/crtm_2.3.0/libsrc/SOI_Module.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/SOI_Module.f90 rename to var/external/crtm_2.3.0/libsrc/SOI_Module.f90 index bfdeb968c8..1a101cf164 100644 --- a/var/external/crtm_2.2.3/libsrc/SOI_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/SOI_Module.f90 @@ -50,7 +50,7 @@ MODULE SOI_Module ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: SOI_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: SOI_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/SSU_Input_Define.f90 b/var/external/crtm_2.3.0/libsrc/SSU_Input_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/SSU_Input_Define.f90 rename to var/external/crtm_2.3.0/libsrc/SSU_Input_Define.f90 index d909d8f84b..f59a61c24d 100644 --- a/var/external/crtm_2.2.3/libsrc/SSU_Input_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/SSU_Input_Define.f90 @@ -58,7 +58,7 @@ MODULE SSU_Input_Define ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: SSU_Input_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: SSU_Input_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: SSU_INPUT_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: SSU_INPUT_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/Search_Utility.f90 b/var/external/crtm_2.3.0/libsrc/Search_Utility.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/Search_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/Search_Utility.f90 index ee5a5ad764..0685980c2f 100644 --- a/var/external/crtm_2.2.3/libsrc/Search_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/Search_Utility.f90 @@ -33,7 +33,7 @@ MODULE Search_Utility ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Search_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Search_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' CONTAINS diff --git a/var/external/crtm_2.2.3/libsrc/SensorInfo_Parameters.f90 b/var/external/crtm_2.3.0/libsrc/SensorInfo_Parameters.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/SensorInfo_Parameters.f90 rename to var/external/crtm_2.3.0/libsrc/SensorInfo_Parameters.f90 diff --git a/var/external/crtm_2.2.3/libsrc/Slope_Variance.f90 b/var/external/crtm_2.3.0/libsrc/Slope_Variance.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/Slope_Variance.f90 rename to var/external/crtm_2.3.0/libsrc/Slope_Variance.f90 index 36b3fbb501..0edd0e1dd5 100644 --- a/var/external/crtm_2.2.3/libsrc/Slope_Variance.f90 +++ b/var/external/crtm_2.3.0/libsrc/Slope_Variance.f90 @@ -42,7 +42,7 @@ MODULE Slope_Variance ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Slope_Variance.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Slope_Variance.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Small_Scale_Correction_Module.f90 b/var/external/crtm_2.3.0/libsrc/Small_Scale_Correction_Module.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/Small_Scale_Correction_Module.f90 rename to var/external/crtm_2.3.0/libsrc/Small_Scale_Correction_Module.f90 index 0e12b5333c..465941483c 100644 --- a/var/external/crtm_2.2.3/libsrc/Small_Scale_Correction_Module.f90 +++ b/var/external/crtm_2.3.0/libsrc/Small_Scale_Correction_Module.f90 @@ -57,7 +57,7 @@ MODULE Small_Scale_Correction_Module ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Small_Scale_Correction_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Small_Scale_Correction_Module.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(fp), PARAMETER :: ZERO = 0.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/Sort_Utility.f90 b/var/external/crtm_2.3.0/libsrc/Sort_Utility.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/Sort_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/Sort_Utility.f90 diff --git a/var/external/crtm_2.2.3/libsrc/SpcCoeff_Binary_IO.f90 b/var/external/crtm_2.3.0/libsrc/SpcCoeff_Binary_IO.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/SpcCoeff_Binary_IO.f90 rename to var/external/crtm_2.3.0/libsrc/SpcCoeff_Binary_IO.f90 index 821810453c..7b95dcb47a 100644 --- a/var/external/crtm_2.2.3/libsrc/SpcCoeff_Binary_IO.f90 +++ b/var/external/crtm_2.3.0/libsrc/SpcCoeff_Binary_IO.f90 @@ -52,7 +52,7 @@ MODULE SpcCoeff_Binary_IO ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: SpcCoeff_Binary_IO.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: SpcCoeff_Binary_IO.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Default message length INTEGER, PARAMETER :: ML = 512 ! Ancillary data indicator diff --git a/var/external/crtm_2.2.3/libsrc/SpcCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/SpcCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/SpcCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/SpcCoeff_Define.f90 index a4f7b21f77..ba6ad9bc1b 100644 --- a/var/external/crtm_2.2.3/libsrc/SpcCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/SpcCoeff_Define.f90 @@ -135,7 +135,7 @@ MODULE SpcCoeff_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: SpcCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: SpcCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Literal constants REAL(Double), PARAMETER :: ZERO = 0.0_Double ! Default message string length diff --git a/var/external/crtm_2.2.3/libsrc/Spectral_Units_Conversion.f90 b/var/external/crtm_2.3.0/libsrc/Spectral_Units_Conversion.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Spectral_Units_Conversion.f90 rename to var/external/crtm_2.3.0/libsrc/Spectral_Units_Conversion.f90 index 852670cc07..31ebddf9a9 100644 --- a/var/external/crtm_2.2.3/libsrc/Spectral_Units_Conversion.f90 +++ b/var/external/crtm_2.3.0/libsrc/Spectral_Units_Conversion.f90 @@ -37,7 +37,7 @@ MODULE Spectral_Units_Conversion ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Spectral_Units_Conversion.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Spectral_Units_Conversion.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' REAL(fp), PARAMETER :: ZERO = 0.0_fp REAL(fp), PARAMETER :: ONE = 1.0_fp diff --git a/var/external/crtm_2.2.3/libsrc/String_Utility.f90 b/var/external/crtm_2.3.0/libsrc/String_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/String_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/String_Utility.f90 index 0103fe3c46..e543e320c8 100644 --- a/var/external/crtm_2.2.3/libsrc/String_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/String_Utility.f90 @@ -43,7 +43,7 @@ MODULE String_Utility ! Module parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: String_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: String_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! List of character for case conversion CHARACTER(*), PARAMETER :: LOWER_CASE = 'abcdefghijklmnopqrstuvwxyz' CHARACTER(*), PARAMETER :: UPPER_CASE = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' diff --git a/var/external/crtm_2.2.3/libsrc/Subset_Define.f90 b/var/external/crtm_2.3.0/libsrc/Subset_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Subset_Define.f90 rename to var/external/crtm_2.3.0/libsrc/Subset_Define.f90 index 06df12c8d9..e8a3912709 100644 --- a/var/external/crtm_2.2.3/libsrc/Subset_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/Subset_Define.f90 @@ -54,7 +54,7 @@ MODULE Subset_Define ! Module Parameters ! ----------------- CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Subset_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Subset_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! ----------------------------------- diff --git a/var/external/crtm_2.2.3/libsrc/TauCoeff_Define.f90 b/var/external/crtm_2.3.0/libsrc/TauCoeff_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/TauCoeff_Define.f90 rename to var/external/crtm_2.3.0/libsrc/TauCoeff_Define.f90 index 136dfe35af..3ef4e26724 100644 --- a/var/external/crtm_2.2.3/libsrc/TauCoeff_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/TauCoeff_Define.f90 @@ -60,7 +60,7 @@ MODULE TauCoeff_Define ! ----------------- ! RCS Id for the module CHARACTER(*), PARAMETER :: MODULE_RCS_ID = & - '$Id: TauCoeff_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: TauCoeff_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER , PARAMETER :: ML = 256 ! Sensor ID string length diff --git a/var/external/crtm_2.2.3/libsrc/Timing_Utility.f90 b/var/external/crtm_2.3.0/libsrc/Timing_Utility.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Timing_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/Timing_Utility.f90 index 4b7734416f..7366c123fd 100644 --- a/var/external/crtm_2.2.3/libsrc/Timing_Utility.f90 +++ b/var/external/crtm_2.3.0/libsrc/Timing_Utility.f90 @@ -23,6 +23,7 @@ MODULE Timing_Utility PUBLIC :: Timing_End PUBLIC :: Timing_Display PUBLIC :: Timing_Inspect + PUBLIC :: Timing_ToString PUBLIC :: Timing_Set PUBLIC :: Timing_Get PUBLIC :: Timing_WriteFile @@ -34,7 +35,7 @@ MODULE Timing_Utility ! Parameters CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: Timing_Utility.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Timing_Utility.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' INTEGER, PARAMETER :: ML = 256 @@ -370,6 +371,7 @@ SUBROUTINE Timing_Get( & IF ( PRESENT(Is_Valid ) ) Is_Valid = self%Is_Valid END SUBROUTINE Timing_Get + !-------------------------------------------------------------------------------- !:sdoc+: ! diff --git a/var/external/crtm_2.2.3/libsrc/Type_Kinds.f90 b/var/external/crtm_2.3.0/libsrc/Type_Kinds.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/Type_Kinds.f90 rename to var/external/crtm_2.3.0/libsrc/Type_Kinds.f90 diff --git a/var/external/crtm_2.3.0/libsrc/UnitTest_Define.f90 b/var/external/crtm_2.3.0/libsrc/UnitTest_Define.f90 new file mode 100644 index 0000000000..67ad7d527c --- /dev/null +++ b/var/external/crtm_2.3.0/libsrc/UnitTest_Define.f90 @@ -0,0 +1,5392 @@ +! +! UnitTest_Define +! +! Module defining the UnitTest object +! +! +! CREATION HISTORY: +! Written by: Paul van Delst, 05-Feb-2007 +! paul.vandelst@noaa.gov +! + +MODULE UnitTest_Define + + ! ------------------ + ! Environment setup + ! ----------------- + ! Module usage + USE Type_Kinds , ONLY: Byte, Short, Long, Single, Double + USE Compare_Float_Numbers, ONLY: OPERATOR(.EqualTo.), & + Compares_Within_Tolerance + ! Disable implicit typing + IMPLICIT NONE + + + ! ------------ + ! Visibilities + ! ------------ + ! Everything private by default + PRIVATE + ! Datatypes + PUBLIC :: UnitTest_type + ! Procedures + ! **** These procedure interfaces are kept for legacy + ! **** purposes, but deprecated for new code + PUBLIC :: UnitTest_Init + PUBLIC :: UnitTest_Setup + PUBLIC :: UnitTest_Report + PUBLIC :: UnitTest_Summary + PUBLIC :: UnitTest_n_Passed + PUBLIC :: UnitTest_n_Failed + PUBLIC :: UnitTest_Passed + PUBLIC :: UnitTest_Failed + PUBLIC :: UnitTest_Assert + PUBLIC :: UnitTest_IsEqual + PUBLIC :: UnitTest_IsEqualWithin + PUBLIC :: UnitTest_IsWithinSigFig + + + ! --------------------- + ! Procedure overloading + ! --------------------- + + ! **** Pre-type-bound procedure interface definitions + ! **** Kept for legacy purposes, but deprecated for new code + INTERFACE UnitTest_Init + MODULE PROCEDURE Init + END INTERFACE UnitTest_Init + + INTERFACE UnitTest_Setup + MODULE PROCEDURE Setup + END INTERFACE UnitTest_Setup + + INTERFACE UnitTest_Report + MODULE PROCEDURE Report + END INTERFACE UnitTest_Report + + INTERFACE UnitTest_Summary + MODULE PROCEDURE Summary + END INTERFACE UnitTest_Summary + + INTERFACE UnitTest_n_Passed + MODULE PROCEDURE n_Passed + END INTERFACE UnitTest_n_Passed + + INTERFACE UnitTest_n_Failed + MODULE PROCEDURE n_Failed + END INTERFACE UnitTest_n_Failed + + INTERFACE UnitTest_Passed + MODULE PROCEDURE Passed + END INTERFACE UnitTest_Passed + + INTERFACE UnitTest_Failed + MODULE PROCEDURE Failed + END INTERFACE UnitTest_Failed + + INTERFACE UnitTest_Assert + MODULE PROCEDURE Assert + END INTERFACE UnitTest_Assert + + INTERFACE UnitTest_IsEqual + ! INTEGER(Byte) procedures + MODULE PROCEDURE intbyte_assert_equal_s + MODULE PROCEDURE intbyte_assert_equal_r1 + MODULE PROCEDURE intbyte_assert_equal_r2 + ! INTEGER(Short) procedures + MODULE PROCEDURE intshort_assert_equal_s + MODULE PROCEDURE intshort_assert_equal_r1 + MODULE PROCEDURE intshort_assert_equal_r2 + ! INTEGER(Long) procedures + MODULE PROCEDURE intlong_assert_equal_s + MODULE PROCEDURE intlong_assert_equal_r1 + MODULE PROCEDURE intlong_assert_equal_r2 + ! REAL(Single) procedures + MODULE PROCEDURE realsp_assert_equal_s + MODULE PROCEDURE realsp_assert_equal_r1 + MODULE PROCEDURE realsp_assert_equal_r2 + ! REAL(Double) procedures + MODULE PROCEDURE realdp_assert_equal_s + MODULE PROCEDURE realdp_assert_equal_r1 + MODULE PROCEDURE realdp_assert_equal_r2 + ! COMPLEX(Single) procedures + MODULE PROCEDURE complexsp_assert_equal_s + MODULE PROCEDURE complexsp_assert_equal_r1 + MODULE PROCEDURE complexsp_assert_equal_r2 + ! COMPLEX(Double) procedures + MODULE PROCEDURE complexdp_assert_equal_s + MODULE PROCEDURE complexdp_assert_equal_r1 + MODULE PROCEDURE complexdp_assert_equal_r2 + ! CHARACTER(*) procedures + MODULE PROCEDURE char_assert_equal_s + MODULE PROCEDURE char_assert_equal_r1 + MODULE PROCEDURE char_assert_equal_r2 + END INTERFACE UnitTest_IsEqual + + INTERFACE UnitTest_IsEqualWithin + ! REAL(Single) procedures + MODULE PROCEDURE realsp_assert_equalwithin_s + MODULE PROCEDURE realsp_assert_equalwithin_r1 + MODULE PROCEDURE realsp_assert_equalwithin_r2 + ! REAL(Double) procedures + MODULE PROCEDURE realdp_assert_equalwithin_s + MODULE PROCEDURE realdp_assert_equalwithin_r1 + MODULE PROCEDURE realdp_assert_equalwithin_r2 + ! COMPLEX(Single) procedures + MODULE PROCEDURE complexsp_assert_equalwithin_s + MODULE PROCEDURE complexsp_assert_equalwithin_r1 + MODULE PROCEDURE complexsp_assert_equalwithin_r2 + ! COMPLEX(Double) procedures + MODULE PROCEDURE complexdp_assert_equalwithin_s + MODULE PROCEDURE complexdp_assert_equalwithin_r1 + MODULE PROCEDURE complexdp_assert_equalwithin_r2 + END INTERFACE UnitTest_IsEqualWithin + + INTERFACE UnitTest_IsWithinSigFig + ! REAL(Single) procedures + MODULE PROCEDURE realsp_assert_withinsigfig_s + MODULE PROCEDURE realsp_assert_withinsigfig_r1 + MODULE PROCEDURE realsp_assert_withinsigfig_r2 + ! REAL(Double) procedures + MODULE PROCEDURE realdp_assert_withinsigfig_s + MODULE PROCEDURE realdp_assert_withinsigfig_r1 + MODULE PROCEDURE realdp_assert_withinsigfig_r2 + ! COMPLEX(Single) procedures + MODULE PROCEDURE complexsp_assert_withinsigfig_s + MODULE PROCEDURE complexsp_assert_withinsigfig_r1 + MODULE PROCEDURE complexsp_assert_withinsigfig_r2 + ! COMPLEX(Double) procedures + MODULE PROCEDURE complexdp_assert_withinsigfig_s + MODULE PROCEDURE complexdp_assert_withinsigfig_r1 + MODULE PROCEDURE complexdp_assert_withinsigfig_r2 + END INTERFACE UnitTest_IsWithinSigFig + + + ! ----------------- + ! Module parameters + ! ----------------- + CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & + '$Id: UnitTest_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' + INTEGER, PARAMETER :: SL = 512 + INTEGER, PARAMETER :: CR = 13 + INTEGER, PARAMETER :: LF = 10 + CHARACTER(2), PARAMETER :: CRLF = ACHAR(CR)//ACHAR(LF) + LOGICAL, PARAMETER :: DEFAULT_VERBOSE = .FALSE. + ! Message colours + CHARACTER(*), PARAMETER :: GREEN_COLOUR = ACHAR(27)//'[1;32m' + CHARACTER(*), PARAMETER :: RED_COLOUR = ACHAR(27)//'[1;31m' + CHARACTER(*), PARAMETER :: NO_COLOUR = ACHAR(27)//'[0m' + ! Message levels + INTEGER, PARAMETER :: N_MESSAGE_LEVELS = 6 + INTEGER, PARAMETER :: INIT_LEVEL = 1 + INTEGER, PARAMETER :: SETUP_LEVEL = 2 + INTEGER, PARAMETER :: TEST_LEVEL = 3 + INTEGER, PARAMETER :: REPORT_LEVEL = 4 + INTEGER, PARAMETER :: SUMMARY_LEVEL = 5 + INTEGER, PARAMETER :: INTERNAL_FAIL_LEVEL = 6 + CHARACTER(*), PARAMETER :: MESSAGE_LEVEL(N_MESSAGE_LEVELS) = & + [ 'INIT ', & + 'SETUP ', & + 'TEST ', & + 'REPORT ', & + 'SUMMARY ', & + 'INTERNAL FAILURE' ] + + + ! ------------------------ + ! Derived type definitions + ! ------------------------ + !:tdoc+: + TYPE :: UnitTest_type + PRIVATE + ! User accessible test settings + LOGICAL :: Verbose = DEFAULT_VERBOSE + CHARACTER(SL) :: Title = '' + CHARACTER(SL) :: Caller = '' + ! Internal test settings + ! ...Test result messaging + INTEGER :: Level = INIT_LEVEL + CHARACTER(SL) :: Procedure = '' + CHARACTER(SL) :: Message = '' + ! ...Test result (used for array argument procedures) + LOGICAL :: Test_Result = .TRUE. + ! ...Individual test counters + INTEGER :: n_Tests = 0 + INTEGER :: n_Passed_Tests = 0 + INTEGER :: n_Failed_Tests = 0 + ! ...All test counters + INTEGER :: n_AllTests = 0 + INTEGER :: n_Passed_AllTests = 0 + INTEGER :: n_Failed_AllTests = 0 + CONTAINS + PRIVATE + ! Public methods + PROCEDURE, PUBLIC, PASS(self) :: Init + PROCEDURE, PUBLIC, PASS(self) :: Setup + PROCEDURE, PUBLIC, PASS(self) :: Report + PROCEDURE, PUBLIC, PASS(self) :: Summary + PROCEDURE, PUBLIC, PASS(self) :: n_Passed + PROCEDURE, PUBLIC, PASS(self) :: n_Failed + PROCEDURE, PUBLIC, PASS(self) :: Passed + PROCEDURE, PUBLIC, PASS(self) :: Failed + PROCEDURE, PUBLIC, PASS(self) :: Assert + PROCEDURE, PUBLIC, PASS(self) :: Refute + GENERIC, PUBLIC :: Assert_Equal => & + intbyte_assert_equal_s, intbyte_assert_equal_r1, intbyte_assert_equal_r2, & + intshort_assert_equal_s, intshort_assert_equal_r1, intshort_assert_equal_r2, & + intlong_assert_equal_s, intlong_assert_equal_r1, intlong_assert_equal_r2, & + realsp_assert_equal_s, realsp_assert_equal_r1, realsp_assert_equal_r2, & + realdp_assert_equal_s, realdp_assert_equal_r1, realdp_assert_equal_r2, & + complexsp_assert_equal_s, complexsp_assert_equal_r1, complexsp_assert_equal_r2, & + complexdp_assert_equal_s, complexdp_assert_equal_r1, complexdp_assert_equal_r2, & + char_assert_equal_s, char_assert_equal_r1, char_assert_equal_r2 + PROCEDURE, PASS(self) :: intbyte_assert_equal_s + PROCEDURE, PASS(self) :: intbyte_assert_equal_r1 + PROCEDURE, PASS(self) :: intbyte_assert_equal_r2 + PROCEDURE, PASS(self) :: intshort_assert_equal_s + PROCEDURE, PASS(self) :: intshort_assert_equal_r1 + PROCEDURE, PASS(self) :: intshort_assert_equal_r2 + PROCEDURE, PASS(self) :: intlong_assert_equal_s + PROCEDURE, PASS(self) :: intlong_assert_equal_r1 + PROCEDURE, PASS(self) :: intlong_assert_equal_r2 + PROCEDURE, PASS(self) :: realsp_assert_equal_s + PROCEDURE, PASS(self) :: realsp_assert_equal_r1 + PROCEDURE, PASS(self) :: realsp_assert_equal_r2 + PROCEDURE, PASS(self) :: realdp_assert_equal_s + PROCEDURE, PASS(self) :: realdp_assert_equal_r1 + PROCEDURE, PASS(self) :: realdp_assert_equal_r2 + PROCEDURE, PASS(self) :: complexsp_assert_equal_s + PROCEDURE, PASS(self) :: complexsp_assert_equal_r1 + PROCEDURE, PASS(self) :: complexsp_assert_equal_r2 + PROCEDURE, PASS(self) :: complexdp_assert_equal_s + PROCEDURE, PASS(self) :: complexdp_assert_equal_r1 + PROCEDURE, PASS(self) :: complexdp_assert_equal_r2 + PROCEDURE, PASS(self) :: char_assert_equal_s + PROCEDURE, PASS(self) :: char_assert_equal_r1 + PROCEDURE, PASS(self) :: char_assert_equal_r2 + GENERIC, PUBLIC :: Refute_Equal => & + intbyte_refute_equal_s, intbyte_refute_equal_r1, intbyte_refute_equal_r2, & + intshort_refute_equal_s, intshort_refute_equal_r1, intshort_refute_equal_r2, & + intlong_refute_equal_s, intlong_refute_equal_r1, intlong_refute_equal_r2, & + realsp_refute_equal_s, realsp_refute_equal_r1, realsp_refute_equal_r2, & + realdp_refute_equal_s, realdp_refute_equal_r1, realdp_refute_equal_r2, & + complexsp_refute_equal_s, complexsp_refute_equal_r1, complexsp_refute_equal_r2, & + complexdp_refute_equal_s, complexdp_refute_equal_r1, complexdp_refute_equal_r2, & + char_refute_equal_s, char_refute_equal_r1, char_refute_equal_r2 + PROCEDURE, PASS(self) :: intbyte_refute_equal_s + PROCEDURE, PASS(self) :: intbyte_refute_equal_r1 + PROCEDURE, PASS(self) :: intbyte_refute_equal_r2 + PROCEDURE, PASS(self) :: intshort_refute_equal_s + PROCEDURE, PASS(self) :: intshort_refute_equal_r1 + PROCEDURE, PASS(self) :: intshort_refute_equal_r2 + PROCEDURE, PASS(self) :: intlong_refute_equal_s + PROCEDURE, PASS(self) :: intlong_refute_equal_r1 + PROCEDURE, PASS(self) :: intlong_refute_equal_r2 + PROCEDURE, PASS(self) :: realsp_refute_equal_s + PROCEDURE, PASS(self) :: realsp_refute_equal_r1 + PROCEDURE, PASS(self) :: realsp_refute_equal_r2 + PROCEDURE, PASS(self) :: realdp_refute_equal_s + PROCEDURE, PASS(self) :: realdp_refute_equal_r1 + PROCEDURE, PASS(self) :: realdp_refute_equal_r2 + PROCEDURE, PASS(self) :: complexsp_refute_equal_s + PROCEDURE, PASS(self) :: complexsp_refute_equal_r1 + PROCEDURE, PASS(self) :: complexsp_refute_equal_r2 + PROCEDURE, PASS(self) :: complexdp_refute_equal_s + PROCEDURE, PASS(self) :: complexdp_refute_equal_r1 + PROCEDURE, PASS(self) :: complexdp_refute_equal_r2 + PROCEDURE, PASS(self) :: char_refute_equal_s + PROCEDURE, PASS(self) :: char_refute_equal_r1 + PROCEDURE, PASS(self) :: char_refute_equal_r2 + GENERIC, PUBLIC :: Assert_EqualWithin => & + realsp_assert_equalwithin_s, realsp_assert_equalwithin_r1, realsp_assert_equalwithin_r2, & + realdp_assert_equalwithin_s, realdp_assert_equalwithin_r1, realdp_assert_equalwithin_r2, & + complexsp_assert_equalwithin_s, complexsp_assert_equalwithin_r1, complexsp_assert_equalwithin_r2, & + complexdp_assert_equalwithin_s, complexdp_assert_equalwithin_r1, complexdp_assert_equalwithin_r2 + PROCEDURE, PASS(self) :: realsp_assert_equalwithin_s + PROCEDURE, PASS(self) :: realsp_assert_equalwithin_r1 + PROCEDURE, PASS(self) :: realsp_assert_equalwithin_r2 + PROCEDURE, PASS(self) :: realdp_assert_equalwithin_s + PROCEDURE, PASS(self) :: realdp_assert_equalwithin_r1 + PROCEDURE, PASS(self) :: realdp_assert_equalwithin_r2 + PROCEDURE, PASS(self) :: complexsp_assert_equalwithin_s + PROCEDURE, PASS(self) :: complexsp_assert_equalwithin_r1 + PROCEDURE, PASS(self) :: complexsp_assert_equalwithin_r2 + PROCEDURE, PASS(self) :: complexdp_assert_equalwithin_s + PROCEDURE, PASS(self) :: complexdp_assert_equalwithin_r1 + PROCEDURE, PASS(self) :: complexdp_assert_equalwithin_r2 + GENERIC, PUBLIC :: Refute_EqualWithin => & + realsp_refute_equalwithin_s, realsp_refute_equalwithin_r1, realsp_refute_equalwithin_r2, & + realdp_refute_equalwithin_s, realdp_refute_equalwithin_r1, realdp_refute_equalwithin_r2, & + complexsp_refute_equalwithin_s, complexsp_refute_equalwithin_r1, complexsp_refute_equalwithin_r2, & + complexdp_refute_equalwithin_s, complexdp_refute_equalwithin_r1, complexdp_refute_equalwithin_r2 + PROCEDURE, PASS(self) :: realsp_refute_equalwithin_s + PROCEDURE, PASS(self) :: realsp_refute_equalwithin_r1 + PROCEDURE, PASS(self) :: realsp_refute_equalwithin_r2 + PROCEDURE, PASS(self) :: realdp_refute_equalwithin_s + PROCEDURE, PASS(self) :: realdp_refute_equalwithin_r1 + PROCEDURE, PASS(self) :: realdp_refute_equalwithin_r2 + PROCEDURE, PASS(self) :: complexsp_refute_equalwithin_s + PROCEDURE, PASS(self) :: complexsp_refute_equalwithin_r1 + PROCEDURE, PASS(self) :: complexsp_refute_equalwithin_r2 + PROCEDURE, PASS(self) :: complexdp_refute_equalwithin_s + PROCEDURE, PASS(self) :: complexdp_refute_equalwithin_r1 + PROCEDURE, PASS(self) :: complexdp_refute_equalwithin_r2 + GENERIC, PUBLIC :: Assert_WithinSigfig => & + realsp_assert_withinsigfig_s, realsp_assert_withinsigfig_r1, realsp_assert_withinsigfig_r2, & + realdp_assert_withinsigfig_s, realdp_assert_withinsigfig_r1, realdp_assert_withinsigfig_r2, & + complexsp_assert_withinsigfig_s, complexsp_assert_withinsigfig_r1, complexsp_assert_withinsigfig_r2, & + complexdp_assert_withinsigfig_s, complexdp_assert_withinsigfig_r1, complexdp_assert_withinsigfig_r2 + PROCEDURE, PASS(self) :: realsp_assert_withinsigfig_s + PROCEDURE, PASS(self) :: realsp_assert_withinsigfig_r1 + PROCEDURE, PASS(self) :: realsp_assert_withinsigfig_r2 + PROCEDURE, PASS(self) :: realdp_assert_withinsigfig_s + PROCEDURE, PASS(self) :: realdp_assert_withinsigfig_r1 + PROCEDURE, PASS(self) :: realdp_assert_withinsigfig_r2 + PROCEDURE, PASS(self) :: complexsp_assert_withinsigfig_s + PROCEDURE, PASS(self) :: complexsp_assert_withinsigfig_r1 + PROCEDURE, PASS(self) :: complexsp_assert_withinsigfig_r2 + PROCEDURE, PASS(self) :: complexdp_assert_withinsigfig_s + PROCEDURE, PASS(self) :: complexdp_assert_withinsigfig_r1 + PROCEDURE, PASS(self) :: complexdp_assert_withinsigfig_r2 + GENERIC, PUBLIC :: Refute_WithinSigfig => & + realsp_refute_withinsigfig_s, realsp_refute_withinsigfig_r1, realsp_refute_withinsigfig_r2, & + realdp_refute_withinsigfig_s, realdp_refute_withinsigfig_r1, realdp_refute_withinsigfig_r2, & + complexsp_refute_withinsigfig_s, complexsp_refute_withinsigfig_r1, complexsp_refute_withinsigfig_r2, & + complexdp_refute_withinsigfig_s, complexdp_refute_withinsigfig_r1, complexdp_refute_withinsigfig_r2 + PROCEDURE, PASS(self) :: realsp_refute_withinsigfig_s + PROCEDURE, PASS(self) :: realsp_refute_withinsigfig_r1 + PROCEDURE, PASS(self) :: realsp_refute_withinsigfig_r2 + PROCEDURE, PASS(self) :: realdp_refute_withinsigfig_s + PROCEDURE, PASS(self) :: realdp_refute_withinsigfig_r1 + PROCEDURE, PASS(self) :: realdp_refute_withinsigfig_r2 + PROCEDURE, PASS(self) :: complexsp_refute_withinsigfig_s + PROCEDURE, PASS(self) :: complexsp_refute_withinsigfig_r1 + PROCEDURE, PASS(self) :: complexsp_refute_withinsigfig_r2 + PROCEDURE, PASS(self) :: complexdp_refute_withinsigfig_s + PROCEDURE, PASS(self) :: complexdp_refute_withinsigfig_r1 + PROCEDURE, PASS(self) :: complexdp_refute_withinsigfig_r2 + ! Private methods + PROCEDURE, PASS(self) :: Set_Property + PROCEDURE, PASS(self) :: Get_Property + PROCEDURE, PASS(self) :: Test_Passed + PROCEDURE, PASS(self) :: Test_Failed + PROCEDURE, PASS(self) :: Test_Increment + PROCEDURE, PASS(self) :: Display_Message + PROCEDURE, PASS(self) :: Test_Info_String + END TYPE UnitTest_type + !:tdoc-: + + +CONTAINS + + +!################################################################################ +!################################################################################ +!## ## +!## ## PUBLIC MODULE ROUTINES ## ## +!## ## +!################################################################################ +!################################################################################ + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Init +! +! PURPOSE: +! UnitTest initialisation method. +! +! This method should be called ONCE, BEFORE ANY tests are performed. +! +! CALLING SEQUENCE: +! CALL utest%Init( Verbose=Verbose ) +! +! OBJECTS: +! utest: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +! OPTIONAL INPUTS: +! Verbose: Logical argument to control length of reporting output. +! If == .FALSE., Only failed tests are reported [DEFAULT]. +! == .TRUE., Both failed and passed tests are reported. +! If not specified, default is .TRUE. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE Init( self, Verbose ) + ! Arguments + CLASS(UnitTest_type), INTENT(OUT) :: self + LOGICAL, OPTIONAL, INTENT(IN) :: Verbose + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Init' + + ! Perform initialisation + CALL Set_Property( & + self, & + Verbose = Verbose , & + Level = INIT_LEVEL , & + Procedure = PROCEDURE_NAME, & + n_Tests = 0, & + n_Passed_Tests = 0, & + n_Failed_Tests = 0, & + n_AllTests = 0, & + n_Passed_AllTests = 0, & + n_Failed_AllTests = 0 ) + + CALL Display_Message( self ) + + END SUBROUTINE Init + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Setup +! +! PURPOSE: +! Individual test setup method. +! +! This method should be called BEFORE each set of tests performed. +! +! CALLING SEQUENCE: +! CALL utest_obj&Setup( Title , & +! Caller = Caller , & +! Verbose = Verbose ) +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Title: Character string containing the title of the test +! to be performed. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OPTIONAL INPUTS: +! Caller: Character string containing the name of the calling +! subprogram. If not specified, default is an empty string. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Verbose: Logical argument to control length of reporting output. +! If == .FALSE., Only failed tests are reported [DEFAULT]. +! == .TRUE., Both failed and passed tests are reported. +! If not specified, default is .TRUE. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE Setup( self, Title, Caller, Verbose ) + ! Arguments + CLASS(UnitTest_type) , INTENT(IN OUT) :: self + CHARACTER(*) , INTENT(IN) :: Title + CHARACTER(*), OPTIONAL, INTENT(IN) :: Caller + LOGICAL, OPTIONAL, INTENT(IN) :: Verbose + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Setup' + ! Variables + CHARACTER(SL) :: the_caller + CHARACTER(SL) :: message + + ! Check optional arguments + the_caller = '' + IF ( PRESENT(Caller) ) the_caller = '; CALLER: '//TRIM(ADJUSTL(Caller)) + + ! Create setup message + message = TRIM(ADJUSTL(Title))//TRIM(the_caller) + + ! Perform initialistion + CALL Set_Property( & + self, & + Title = Title , & + Caller = Caller , & + Verbose = Verbose , & + Level = SETUP_LEVEL , & + Procedure = PROCEDURE_NAME, & + Message = message , & + n_Tests = 0 , & + n_Passed_Tests = 0 , & + n_Failed_Tests = 0 ) + + CALL Display_Message( self ) + + END SUBROUTINE Setup + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Report +! +! PURPOSE: +! Individual test report method. +! +! This method should be called AFTER each set of tests performed. +! +! CALLING SEQUENCE: +! CALL utest_obj%Report() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE Report( self ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Report' + ! Variables + INTEGER :: n_tests + INTEGER :: n_passed_tests + INTEGER :: n_failed_tests + CHARACTER(SL) :: message + CHARACTER(SL) :: attention + CHARACTER(SL) :: colour + + ! Retrieve required properties + CALL Get_Property( & + self, & + n_Tests = n_tests , & + n_Passed_Tests = n_passed_tests, & + n_Failed_Tests = n_failed_tests ) + + ! Test fail attention-grabber + colour = GREEN_COLOUR + attention = '' + IF ( n_failed_tests /= 0 ) THEN + colour = RED_COLOUR + attention = ' <----<<< **WARNING**' + END IF + + ! Generate report message + WRITE( message, & + '(a,a,3x,"Passed ",i0," of ",i0," tests", & + &a,3x,"Failed ",i0," of ",i0," tests",a,a)') & + TRIM(colour), CRLF, & + n_passed_tests, n_tests, & + CRLF, & + n_failed_tests, n_tests, & + TRIM(attention), NO_COLOUR + + ! Load object with report message + CALL Set_Property( & + self, & + Level = REPORT_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + + ! Report! + CALL Display_Message( self ) + + END SUBROUTINE Report + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Summary +! +! PURPOSE: +! Test suite report summary method. +! +! This method should be called ONCE, AFTER ALL tests are performed. +! +! CALLING SEQUENCE: +! CALL utest_obj%Summary() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE Summary( self ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Summary' + ! Variables + INTEGER :: n_alltests + INTEGER :: n_passed_alltests + INTEGER :: n_failed_alltests + CHARACTER(SL) :: message + CHARACTER(SL) :: attention + CHARACTER(SL) :: colour + + ! Retrieve required properties + CALL Get_Property( & + self, & + n_AllTests = n_alltests , & + n_Passed_AllTests = n_passed_alltests, & + n_Failed_AllTests = n_failed_alltests ) + + ! Test fail attention-grabber + colour = GREEN_COLOUR + attention = '' + IF ( n_failed_alltests /= 0 ) THEN + colour = RED_COLOUR + attention = ' <----<<< **WARNING**' + END IF + + ! Generate summary + WRITE( message, & + '(a,a,1x,"Passed ",i0," of ",i0," total tests",& + &a,1x,"Failed ",i0," of ",i0," total tests",a,a)') & + TRIM(colour), CRLF, & + n_passed_alltests, n_alltests, & + CRLF, & + n_failed_alltests, n_alltests, & + TRIM(attention), NO_COLOUR + + ! Load object with summary message + CALL Set_Property( & + self, & + Level = SUMMARY_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + + ! Summarise! + CALL Display_Message( self ) + + END SUBROUTINE Summary + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::n_Passed +! +! PURPOSE: +! Method to return the number of tests passed. +! +! CALLING SEQUENCE: +! n = utest_obj%n_Passed() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! n: The number of exercised unit tests that have passed. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE INTEGER FUNCTION n_Passed( self ) + CLASS(UnitTest_type), INTENT(IN) :: self + CALL Get_Property( self, n_Passed_Tests = n_Passed ) + END FUNCTION n_Passed + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::n_Failed +! +! PURPOSE: +! Method to return the number of tests failed. +! +! CALLING SEQUENCE: +! n = utest_obj%n_Failed() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! n: The number of exercised unit tests that have failed. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE INTEGER FUNCTION n_Failed( self ) + CLASS(UnitTest_type), INTENT(IN) :: self + CALL Get_Property( self, n_Failed_Tests = n_Failed ) + END FUNCTION n_Failed + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Passed +! +! PURPOSE: +! Method to inform if the last test performed passed. +! +! CALLING SEQUENCE: +! result = utest_obj%Passed() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! result: Logical to indicate if the last test performed passed. +! If == .TRUE., the last test passed, +! == .FALSE., the last test failed. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE LOGICAL FUNCTION Passed( self ) + CLASS(UnitTest_type), INTENT(IN) :: self + CALL Get_Property( self, Test_Result = Passed ) + END FUNCTION Passed + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Failed +! +! PURPOSE: +! Method to inform if the last test performed failed. +! +! Syntactic sugar procedure. +! +! CALLING SEQUENCE: +! result = utest_obj%Failed() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! FUNCTION RESULT: +! result: Logical to indicate if the last test performed failed. +! If == .TRUE., the last test failed, +! == .FALSE., the last test passed. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + PURE LOGICAL FUNCTION Failed( self ) + CLASS(UnitTest_type), INTENT(IN) :: self + Failed = .NOT. self%Passed() + END FUNCTION Failed + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Assert +! +! PURPOSE: +! Method to assert its logical argument as true. +! +! CALLING SEQUENCE: +! CALL utest_obj%Assert( boolean ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! boolean: The logical expression to assert. The test passes if the +! expression is .TRUE. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE Assert(self, boolean) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + LOGICAL, INTENT(IN) :: boolean + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert' + ! Variables + LOGICAL :: verbose + CHARACTER(SL) :: message + + ! Setup + message = '' + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. boolean) ! Always output test failure + + ! Assert the test + IF ( boolean ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + + ! Generate the assertion message + CALL Test_Info_String( self, message ) + + ! Load the object with message + CALL Set_Property( & + self, & + Level = TEST_LEVEL , & + Procedure = PROCEDURE_NAME, & + Message = message ) + + ! Output the assertion result + IF ( verbose ) CALL Display_Message( self ) + + END SUBROUTINE Assert + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Refute +! +! PURPOSE: +! Method to refute its logical argument as false +! +! CALLING SEQUENCE: +! CALL utest_obj%Assert( boolean ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! boolean: The logical expression to refute. The test passes if the +! expression is .FALSE. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE Refute(self, boolean) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + LOGICAL, INTENT(IN) :: boolean + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute' + ! Variables + LOGICAL :: verbose + CHARACTER(SL) :: message + + ! Setup + message = '' + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. boolean ! Always output test failure + + ! Refute the test + IF ( .NOT. boolean ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + + ! Generate the refutation message + CALL Test_Info_String( self, message ) + + ! Load the object with message + CALL Set_Property( & + self, & + Level = TEST_LEVEL , & + Procedure = PROCEDURE_NAME, & + Message = message ) + + ! Output the refuation result + IF ( verbose ) CALL Display_Message( self ) + + END SUBROUTINE Refute + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Assert_Equal +! +! PURPOSE: +! Method to assert that two arguments are equal. +! +! CALLING SEQUENCE: +! CALL utest_obj%Assert_Equal( Expected, Actual ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Expected: The expected value of the variable being tested. +! UNITS: N/A +! TYPE: INTEGER(Byte) , or +! INTEGER(Short) , or +! INTEGER(Long) , or +! REAL(Single) , or +! REAL(Double) , or +! COMPLEX(Single), or +! COMPLEX(Double), or +! CHARACTER(*) +! DIMENSION: Scalar, or +! Rank-1, or +! Rank-2 +! ATTRIBUTES: INTENT(IN) +! +! Actual: The actual value of the variable being tested. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE intbyte_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Byte), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Byte)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",i0,a,& + &7x,"And got: ",i0)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE intbyte_assert_equal_s + + + SUBROUTINE intbyte_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Byte), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Byte)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE intbyte_assert_equal_r1 + + + SUBROUTINE intbyte_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Byte), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Byte)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE intbyte_assert_equal_r2 + + + SUBROUTINE intshort_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Short), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Short)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",i0,a,& + &7x,"And got: ",i0)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE intshort_assert_equal_s + + + SUBROUTINE intshort_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Short), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Short)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE intshort_assert_equal_r1 + + + SUBROUTINE intshort_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Short), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Short)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE intshort_assert_equal_r2 + + + SUBROUTINE intlong_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Long), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Long)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",i0,a,& + &7x,"And got: ",i0)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE intlong_assert_equal_s + + + SUBROUTINE intlong_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Long), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Long)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE intlong_assert_equal_r1 + + + SUBROUTINE intlong_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Long), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[INTEGER(Long)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE intlong_assert_equal_r2 + + + SUBROUTINE realsp_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[REAL(Single)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",es25.18,a,& + &7x,"And got: ",es25.18)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realsp_assert_equal_s + + + SUBROUTINE realsp_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[REAL(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE realsp_assert_equal_r1 + + + SUBROUTINE realsp_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[REAL(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE realsp_assert_equal_r2 + + + SUBROUTINE realdp_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[REAL(Double)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",es25.18,a,& + &7x,"And got: ",es25.18)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realdp_assert_equal_s + + + SUBROUTINE realdp_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[REAL(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE realdp_assert_equal_r1 + + + SUBROUTINE realdp_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[REAL(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE realdp_assert_equal_r2 + + + SUBROUTINE complexsp_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[COMPLEX(Single)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ","(",es25.18,",",es25.18,")",a,& + &7x,"And got: ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexsp_assert_equal_s + + + SUBROUTINE complexsp_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[COMPLEX(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE complexsp_assert_equal_r1 + + + SUBROUTINE complexsp_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[COMPLEX(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE complexsp_assert_equal_r2 + + + SUBROUTINE complexdp_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[COMPLEX(Double)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ","(",es25.18,",",es25.18,")",a,& + &7x,"And got: ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexdp_assert_equal_s + + + SUBROUTINE complexdp_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[COMPLEX(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE complexdp_assert_equal_r1 + + + SUBROUTINE complexdp_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[COMPLEX(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE complexdp_assert_equal_r2 + + + SUBROUTINE char_assert_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + CHARACTER(*), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[CHARACTER(*)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = (Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",">",a,"<",a,& + &7x,"And got: ",">",a,"<")') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE char_assert_equal_s + + + SUBROUTINE char_assert_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + CHARACTER(*), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[CHARACTER(*)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE char_assert_equal_r1 + + + SUBROUTINE char_assert_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + CHARACTER(*), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_Equal[CHARACTER(*)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE char_assert_equal_r2 + + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Refute_Equal +! +! PURPOSE: +! Method to refute that two arguments are equal. +! +! CALLING SEQUENCE: +! CALL utest_obj%Refute_Equal( Expected, Actual ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Expected: The expected value of the variable being tested. +! UNITS: N/A +! TYPE: INTEGER(Byte) , or +! INTEGER(Short) , or +! INTEGER(Long) , or +! REAL(Single) , or +! REAL(Double) , or +! COMPLEX(Single), or +! COMPLEX(Double), or +! CHARACTER(*) +! DIMENSION: Scalar, or +! Rank-1, or +! Rank-2 +! ATTRIBUTES: INTENT(IN) +! +! Actual: The actual value of the variable being tested. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE intbyte_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Byte), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Byte)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",i0,a,& + &7x,"And got: ",i0)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE intbyte_refute_equal_s + + + SUBROUTINE intbyte_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Byte), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Byte)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE intbyte_refute_equal_r1 + + + SUBROUTINE intbyte_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Byte), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Byte)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE intbyte_refute_equal_r2 + + + SUBROUTINE intshort_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Short), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Short)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",i0,a,& + &7x,"And got: ",i0)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE intshort_refute_equal_s + + + SUBROUTINE intshort_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Short), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Short)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE intshort_refute_equal_r1 + + + SUBROUTINE intshort_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Short), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Short)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE intshort_refute_equal_r2 + + + SUBROUTINE intlong_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Long), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Long)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",i0,a,& + &7x,"And got: ",i0)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE intlong_refute_equal_s + + + SUBROUTINE intlong_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Long), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Long)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE intlong_refute_equal_r1 + + + SUBROUTINE intlong_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER(Long), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[INTEGER(Long)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE intlong_refute_equal_r2 + + + SUBROUTINE realsp_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[REAL(Single)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",es25.18,a,& + &7x,"And got: ",es25.18)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realsp_refute_equal_s + + + SUBROUTINE realsp_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[REAL(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE realsp_refute_equal_r1 + + + SUBROUTINE realsp_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[REAL(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE realsp_refute_equal_r2 + + + SUBROUTINE realdp_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[REAL(Double)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",es25.18,a,& + &7x,"And got: ",es25.18)') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realdp_refute_equal_s + + + SUBROUTINE realdp_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[REAL(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE realdp_refute_equal_r1 + + + SUBROUTINE realdp_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[REAL(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE realdp_refute_equal_r2 + + + SUBROUTINE complexsp_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[COMPLEX(Single)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ","(",es25.18,",",es25.18,")",a,& + &7x,"And got: ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexsp_refute_equal_s + + + SUBROUTINE complexsp_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[COMPLEX(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE complexsp_refute_equal_r1 + + + SUBROUTINE complexsp_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[COMPLEX(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE complexsp_refute_equal_r2 + + + SUBROUTINE complexdp_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[COMPLEX(Double)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected .EqualTo. Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ","(",es25.18,",",es25.18,")",a,& + &7x,"And got: ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexdp_refute_equal_s + + + SUBROUTINE complexdp_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[COMPLEX(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE complexdp_refute_equal_r1 + + + SUBROUTINE complexdp_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[COMPLEX(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE complexdp_refute_equal_r2 + + + SUBROUTINE char_refute_equal_s( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + CHARACTER(*), INTENT(IN) :: Expected, Actual + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[CHARACTER(*)]' + ! Variables + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Assign the test + test = .NOT.(Expected == Actual) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( message, '(a,7x,"Expected: ",">",a,"<",a,& + &7x,"And got: ",">",a,"<")') & + CRLF, Expected, CRLF, Actual + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE char_refute_equal_s + + + SUBROUTINE char_refute_equal_r1( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + CHARACTER(*), INTENT(IN) :: Expected(:), Actual(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[CHARACTER(*)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_Equal( Expected(i), Actual(i) ) + END DO + END SUBROUTINE char_refute_equal_r1 + + + SUBROUTINE char_refute_equal_r2( self, Expected, Actual ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + CHARACTER(*), INTENT(IN) :: Expected(:,:), Actual(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_Equal[CHARACTER(*)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_Equal( Expected(i,j), Actual(i,j) ) + END DO + END DO + END SUBROUTINE char_refute_equal_r2 + + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Assert_EqualWithin +! +! PURPOSE: +! Method to assert that two floating point arguments are equal to +! within the specified tolerance. +! +! CALLING SEQUENCE: +! CALL utest_obj%Assert_EqualWithin( Expected, Actual, Tolerance ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Expected: The expected value of the variable being tested. +! UNITS: N/A +! TYPE: REAL(Single) , or +! REAL(Double) , or +! COMPLEX(Single), or +! COMPLEX(Double) +! DIMENSION: Scalar, or +! Rank-1, or +! Rank-2 +! ATTRIBUTES: INTENT(IN) +! +! Actual: The actual value of the variable being tested. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +! Tolerance: The tolerance to within which the Expected and Actual +! values must agree. If negative, the value of +! EPSILON(Expected) +! is used. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE realsp_assert_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[REAL(Single)]' + ! Variables + REAL(Single) :: delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Local delta for test + delta = Tolerance + IF ( delta < 0.0_Single ) delta = EPSILON(Expected) + ! ...Assign the test + test = (ABS(Expected-Actual) < delta) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"To within : ",es25.18,a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, delta, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realsp_assert_equalwithin_s + + + SUBROUTINE realsp_assert_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[REAL(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE realsp_assert_equalwithin_r1 + + + SUBROUTINE realsp_assert_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[REAL(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE realsp_assert_equalwithin_r2 + + + SUBROUTINE realdp_assert_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[REAL(Double)]' + ! Variables + REAL(Double) :: delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Local delta for test + delta = Tolerance + IF ( delta < 0.0_Double ) delta = EPSILON(Expected) + ! ...Assign the test + test = (ABS(Expected-Actual) < delta) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"To within : ",es25.18,a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, delta, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realdp_assert_equalwithin_s + + + SUBROUTINE realdp_assert_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[REAL(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE realdp_assert_equalwithin_r1 + + + SUBROUTINE realdp_assert_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[REAL(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE realdp_assert_equalwithin_r2 + + + SUBROUTINE complexsp_assert_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[COMPLEX(Single)]' + ! Variables + REAL(Single) :: deltar, deltai + REAL(Single) :: zr, zi + REAL(Single) :: dzr, dzi + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + zr = REAL(Expected,Single) + zi = AIMAG(Expected) + ! ...Local delta for test + deltar = REAL(Tolerance,Single) + IF ( deltar < 0.0_Single ) deltar = EPSILON(zr) + deltai = AIMAG(Tolerance) + IF ( deltai < 0.0_Single ) deltai = EPSILON(zi) + ! ...Assign the test + dzr = ABS(zr - REAL(Actual,Single)) + dzi = ABS(zi - AIMAG(Actual)) + test = ((dzr < deltar) .AND. (dzi < deltai)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"To within : ","(",es25.18,",",es25.18,")",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, CMPLX(deltar,deltai,Single), CRLF, Actual, CRLF, dzr, dzi + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexsp_assert_equalwithin_s + + + SUBROUTINE complexsp_assert_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[COMPLEX(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE complexsp_assert_equalwithin_r1 + + + SUBROUTINE complexsp_assert_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[COMPLEX(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE complexsp_assert_equalwithin_r2 + + + SUBROUTINE complexdp_assert_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[COMPLEX(Double)]' + ! Variables + REAL(Double) :: deltar, deltai + REAL(Double) :: zr, zi + REAL(Double) :: dzr, dzi + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + zr = REAL(Expected,Double) + zi = AIMAG(Expected) + ! ...Local delta for test + deltar = REAL(Tolerance,Double) + IF ( deltar < 0.0_Double ) deltar = EPSILON(zr) + deltai = AIMAG(Tolerance) + IF ( deltai < 0.0_Double ) deltai = EPSILON(zi) + ! ...Assign the test + dzr = ABS(zr - REAL(Actual,Double)) + dzi = ABS(zi - AIMAG(Actual)) + test = ((dzr < deltar) .AND. (dzi < deltai)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"To within : ","(",es25.18,",",es25.18,")",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, CMPLX(deltar,deltai,Double), CRLF, Actual, CRLF, dzr, dzi + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexdp_assert_equalwithin_s + + + SUBROUTINE complexdp_assert_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[COMPLEX(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE complexdp_assert_equalwithin_r1 + + + SUBROUTINE complexdp_assert_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_EqualWithin[COMPLEX(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE complexdp_assert_equalwithin_r2 + + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Refute_EqualWithin +! +! PURPOSE: +! Method to refute that two floating point arguments are equal to +! within the specified tolerance. +! +! CALLING SEQUENCE: +! CALL utest_obj%Refute_EqualWithin( Expected, Actual, Tolerance ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Expected: The expected value of the variable being tested. +! UNITS: N/A +! TYPE: REAL(Single) , or +! REAL(Double) , or +! COMPLEX(Single), or +! COMPLEX(Double) +! DIMENSION: Scalar, or +! Rank-1, or +! Rank-2 +! ATTRIBUTES: INTENT(IN) +! +! Actual: The actual value of the variable being tested. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +! Tolerance: The tolerance to within which the Expected and Actual +! values must agree. If negative, the value of +! EPSILON(Expected) +! is used. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE realsp_refute_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[REAL(Single)]' + ! Variables + REAL(Single) :: delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Local delta for test + delta = Tolerance + IF ( delta < 0.0_Single ) delta = EPSILON(Expected) + ! ...Assign the test + test = .NOT.(ABS(Expected-Actual) < delta) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"Outside of : ",es25.18,a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, delta, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realsp_refute_equalwithin_s + + + SUBROUTINE realsp_refute_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[REAL(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE realsp_refute_equalwithin_r1 + + + SUBROUTINE realsp_refute_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[REAL(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE realsp_refute_equalwithin_r2 + + + SUBROUTINE realdp_refute_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[REAL(Double)]' + ! Variables + REAL(Double) :: delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Local delta for test + delta = Tolerance + IF ( delta < 0.0_Double ) delta = EPSILON(Expected) + ! ...Assign the test + test = .NOT.(ABS(Expected-Actual) < delta) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"Outside of : ",es25.18,a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, delta, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realdp_refute_equalwithin_s + + + SUBROUTINE realdp_refute_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[REAL(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE realdp_refute_equalwithin_r1 + + + SUBROUTINE realdp_refute_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[REAL(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE realdp_refute_equalwithin_r2 + + + SUBROUTINE complexsp_refute_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[COMPLEX(Single)]' + ! Variables + REAL(Single) :: deltar, deltai + REAL(Single) :: zr, zi + REAL(Single) :: dzr, dzi + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + zr = REAL(Expected,Single) + zi = AIMAG(Expected) + ! ...Local delta for test + deltar = REAL(Tolerance,Single) + IF ( deltar < 0.0_Single ) deltar = EPSILON(zr) + deltai = AIMAG(Tolerance) + IF ( deltai < 0.0_Single ) deltai = EPSILON(zi) + ! ...Assign the test + dzr = ABS(zr - REAL(Actual,Single)) + dzi = ABS(zi - AIMAG(Actual)) + test = .NOT.((dzr < deltar) .AND. (dzi < deltai)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"Outside of : ","(",es25.18,",",es25.18,")",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, CMPLX(deltar,deltai,Single), CRLF, Actual, CRLF, dzr, dzi + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexsp_refute_equalwithin_s + + + SUBROUTINE complexsp_refute_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[COMPLEX(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE complexsp_refute_equalwithin_r1 + + + SUBROUTINE complexsp_refute_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[COMPLEX(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE complexsp_refute_equalwithin_r2 + + + SUBROUTINE complexdp_refute_equalwithin_s( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected, Actual, Tolerance + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[COMPLEX(Double)]' + ! Variables + REAL(Double) :: deltar, deltai + REAL(Double) :: zr, zi + REAL(Double) :: dzr, dzi + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + zr = REAL(Expected,Double) + zi = AIMAG(Expected) + ! ...Local delta for test + deltar = REAL(Tolerance,Double) + IF ( deltar < 0.0_Double ) deltar = EPSILON(zr) + deltai = AIMAG(Tolerance) + IF ( deltai < 0.0_Double ) deltai = EPSILON(zi) + ! ...Assign the test + dzr = ABS(zr - REAL(Actual,Double)) + dzi = ABS(zi - AIMAG(Actual)) + test = .NOT.((dzr < deltar) .AND. (dzi < deltai)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"Outside of : ","(",es25.18,",",es25.18,")",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, CMPLX(deltar,deltai,Double), CRLF, Actual, CRLF, dzr, dzi + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexdp_refute_equalwithin_s + + + SUBROUTINE complexdp_refute_equalwithin_r1( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:), Tolerance(:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[COMPLEX(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i), Actual(i), Tolerance(i) ) + END DO + END SUBROUTINE complexdp_refute_equalwithin_r1 + + + SUBROUTINE complexdp_refute_equalwithin_r2( self, Expected, Actual, Tolerance ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:), Tolerance(:,:) + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_EqualWithin[COMPLEX(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_EqualWithin( Expected(i,j), Actual(i,j), Tolerance(i,j) ) + END DO + END DO + END SUBROUTINE complexdp_refute_equalwithin_r2 + + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Assert_WithinSigFig +! +! PURPOSE: +! Method to assert that two floating point arguments are equal to +! within the specified number of significant figures. +! +! CALLING SEQUENCE: +! CALL utest_obj%Assert_WithinSigFig( Expected, Actual, n_SigFig ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Expected: The expected value of the variable being tested. +! UNITS: N/A +! TYPE: REAL(Single) , or +! REAL(Double) , or +! COMPLEX(Single), or +! COMPLEX(Double) +! DIMENSION: Scalar, or +! Rank-1, or +! Rank-2 +! ATTRIBUTES: INTENT(IN) +! +! Actual: The actual value of the variable being tested. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +! n_SigFig: The number of sgnificant figures within which the +! expected and actual numbers are to be compared. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE realsp_assert_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[REAL(Single)]' + ! Variables + REAL(Single) :: epsilon_delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Compute the test cutoff + epsilon_delta = EPSILON(Expected) * REAL(RADIX(Expected),Single)**(EXPONENT(Expected)-1) + ! ...Assign the test + test = Compares_Within_Tolerance(Expected, Actual, n_SigFig, cutoff=epsilon_delta) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"To within : ",i0," significant figures",a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realsp_assert_withinsigfig_s + + + SUBROUTINE realsp_assert_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[REAL(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE realsp_assert_withinsigfig_r1 + + + SUBROUTINE realsp_assert_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[REAL(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE realsp_assert_withinsigfig_r2 + + + SUBROUTINE realdp_assert_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[REAL(Double)]' + ! Variables + REAL(Double) :: epsilon_delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Compute the test cutoff + epsilon_delta = EPSILON(Expected) * REAL(RADIX(Expected),Double)**(EXPONENT(Expected)-1) + ! ...Assign the test + test = Compares_Within_Tolerance(Expected, Actual, n_SigFig, cutoff=epsilon_delta) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"To within : ",i0," significant figures",a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realdp_assert_withinsigfig_s + + + SUBROUTINE realdp_assert_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[REAL(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE realdp_assert_withinsigfig_r1 + + + SUBROUTINE realdp_assert_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[REAL(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE realdp_assert_withinsigfig_r2 + + + SUBROUTINE complexsp_assert_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[COMPLEX(Single)]' + ! Variables + REAL(Single) :: ezr, ezi + REAL(Single) :: azr, azi + REAL(Single) :: epsilon_delta_r, epsilon_delta_i + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + ezr = REAL(Expected,Single) + ezi = AIMAG(Expected) + azr = REAL(Actual,Single) + azi = AIMAG(Actual) + ! ...Compute the test cutoffs + epsilon_delta_r = EPSILON(ezr) * REAL(RADIX(ezr),Single)**(EXPONENT(ezr)-1) + epsilon_delta_i = EPSILON(ezi) * REAL(RADIX(ezi),Single)**(EXPONENT(ezi)-1) + ! ...Assign the test + test = Compares_Within_Tolerance(ezr, azr, n_SigFig, cutoff=epsilon_delta_r) .AND. & + Compares_Within_Tolerance(ezi, azi, n_SigFig, cutoff=epsilon_delta_i) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"To within : ",i0," significant figures",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, CMPLX(ezr-azr,ezi-azi,Single) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexsp_assert_withinsigfig_s + + + SUBROUTINE complexsp_assert_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[COMPLEX(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE complexsp_assert_withinsigfig_r1 + + + SUBROUTINE complexsp_assert_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[COMPLEX(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE complexsp_assert_withinsigfig_r2 + + + SUBROUTINE complexdp_assert_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[COMPLEX(Double)]' + ! Variables + REAL(Double) :: ezr, ezi + REAL(Double) :: azr, azi + REAL(Double) :: epsilon_delta_r, epsilon_delta_i + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + ezr = REAL(Expected,Double) + ezi = AIMAG(Expected) + azr = REAL(Actual,Double) + azi = AIMAG(Actual) + ! ...Compute the test cutoffs + epsilon_delta_r = EPSILON(ezr) * REAL(RADIX(ezr),Double)**(EXPONENT(ezr)-1) + epsilon_delta_i = EPSILON(ezi) * REAL(RADIX(ezi),Double)**(EXPONENT(ezi)-1) + ! ...Assign the test + test = Compares_Within_Tolerance(ezr, azr, n_SigFig, cutoff=epsilon_delta_r) .AND. & + Compares_Within_Tolerance(ezi, azi, n_SigFig, cutoff=epsilon_delta_i) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"To within : ",i0," significant figures",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, CMPLX(ezr-azr,ezi-azi,Single) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexdp_assert_withinsigfig_s + + + SUBROUTINE complexdp_assert_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[COMPLEX(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE complexdp_assert_withinsigfig_r1 + + + SUBROUTINE complexdp_assert_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Assert_WithinSigfig[COMPLEX(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Assert_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE complexdp_assert_withinsigfig_r2 + + + +!-------------------------------------------------------------------------------- +!:sdoc+: +! +! NAME: +! UnitTest::Refute_WithinSigFig +! +! PURPOSE: +! Method to refute that two floating point arguments are equal to +! within the specified number of significant figures. +! +! CALLING SEQUENCE: +! CALL utest_obj%Refute_WithinSigFig( Expected, Actual, n_SigFig ) +! +! OBJECTS: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! INPUTS: +! Expected: The expected value of the variable being tested. +! UNITS: N/A +! TYPE: REAL(Single) , or +! REAL(Double) , or +! COMPLEX(Single), or +! COMPLEX(Double) +! DIMENSION: Scalar, or +! Rank-1, or +! Rank-2 +! ATTRIBUTES: INTENT(IN) +! +! Actual: The actual value of the variable being tested. +! UNITS: N/A +! TYPE: Same as Expected input +! DIMENSION: Same as Expected input +! ATTRIBUTES: INTENT(IN) +! +! n_SigFig: The number of sgnificant figures within which the +! expected and actual numbers are to be compared. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +!:sdoc-: +!-------------------------------------------------------------------------------- + + SUBROUTINE realsp_refute_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[REAL(Single)]' + ! Variables + REAL(Single) :: epsilon_delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Compute the test cutoff + epsilon_delta = EPSILON(Expected) * REAL(RADIX(Expected),Single)**(EXPONENT(Expected)-1) + ! ...Assign the test + test = .NOT.(Compares_Within_Tolerance(Expected, Actual, n_SigFig, cutoff=epsilon_delta)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"Outside of : ",i0," significant figures",a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realsp_refute_withinsigfig_s + + + SUBROUTINE realsp_refute_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[REAL(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE realsp_refute_withinsigfig_r1 + + + SUBROUTINE realsp_refute_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[REAL(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE realsp_refute_withinsigfig_r2 + + + SUBROUTINE realdp_refute_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[REAL(Double)]' + ! Variables + REAL(Double) :: epsilon_delta + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Compute the test cutoff + epsilon_delta = EPSILON(Expected) * REAL(RADIX(Expected),Double)**(EXPONENT(Expected)-1) + ! ...Assign the test + test = .NOT.(Compares_Within_Tolerance(Expected, Actual, n_SigFig, cutoff=epsilon_delta)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ",es25.18,a,& + &7x,"Outside of : ",i0," significant figures",a,& + &7x,"And got : ",es25.18,a,& + &7x,"|Difference| : ",es25.18)') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, ABS(Expected-Actual) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE realdp_refute_withinsigfig_s + + + SUBROUTINE realdp_refute_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[REAL(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE realdp_refute_withinsigfig_r1 + + + SUBROUTINE realdp_refute_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + REAL(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[REAL(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE realdp_refute_withinsigfig_r2 + + + SUBROUTINE complexsp_refute_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[COMPLEX(Single)]' + ! Variables + REAL(Single) :: ezr, ezi + REAL(Single) :: azr, azi + REAL(Single) :: epsilon_delta_r, epsilon_delta_i + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + ezr = REAL(Expected,Single) + ezi = AIMAG(Expected) + azr = REAL(Actual,Single) + azi = AIMAG(Actual) + ! ...Compute the test cutoffs + epsilon_delta_r = EPSILON(ezr) * REAL(RADIX(ezr),Single)**(EXPONENT(ezr)-1) + epsilon_delta_i = EPSILON(ezi) * REAL(RADIX(ezi),Single)**(EXPONENT(ezi)-1) + ! ...Assign the test + test = .NOT.(Compares_Within_Tolerance(ezr, azr, n_SigFig, cutoff=epsilon_delta_r) .AND. & + Compares_Within_Tolerance(ezi, azi, n_SigFig, cutoff=epsilon_delta_i)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"Outside of : ",i0," significant figures",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, CMPLX(ezr-azr,ezi-azi,Single) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexsp_refute_withinsigfig_s + + + SUBROUTINE complexsp_refute_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[COMPLEX(Single)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE complexsp_refute_withinsigfig_r1 + + + SUBROUTINE complexsp_refute_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Single), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[COMPLEX(Single)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE complexsp_refute_withinsigfig_r2 + + + SUBROUTINE complexdp_refute_withinsigfig_s( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected, Actual + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[COMPLEX(Double)]' + ! Variables + REAL(Double) :: ezr, ezi + REAL(Double) :: azr, azi + REAL(Double) :: epsilon_delta_r, epsilon_delta_i + LOGICAL :: test + LOGICAL :: verbose + CHARACTER(SL) :: message + ! Setup + ! ...Split expected into real and imag + ezr = REAL(Expected,Double) + ezi = AIMAG(Expected) + azr = REAL(Actual,Double) + azi = AIMAG(Actual) + ! ...Compute the test cutoffs + epsilon_delta_r = EPSILON(ezr) * REAL(RADIX(ezr),Double)**(EXPONENT(ezr)-1) + epsilon_delta_i = EPSILON(ezi) * REAL(RADIX(ezi),Double)**(EXPONENT(ezi)-1) + ! ...Assign the test + test = .NOT.(Compares_Within_Tolerance(ezr, azr, n_SigFig, cutoff=epsilon_delta_r) .AND. & + Compares_Within_Tolerance(ezi, azi, n_SigFig, cutoff=epsilon_delta_i)) + ! ...Locally modify properties for this test + CALL Get_Property( & + self, & + Verbose = verbose ) + verbose = verbose .OR. (.NOT. test) ! Always output test failure + ! Assert the test + IF ( test ) THEN + CALL Test_Passed( self ) + ELSE + CALL Test_Failed( self ) + END IF + ! Generate the test message + WRITE( Message, & + '(a,7x,"Expected : ","(",es25.18,",",es25.18,")",a,& + &7x,"Outside of : ",i0," significant figures",a,& + &7x,"And got : ","(",es25.18,",",es25.18,")",a,& + &7x,"|Difference| : ","(",es25.18,",",es25.18,")")') & + CRLF, Expected, CRLF, n_SigFig, CRLF, Actual, CRLF, CMPLX(ezr-azr,ezi-azi,Single) + ! Load the object with the message + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + ! Output the result + IF ( verbose ) CALL Display_Message( self ) + END SUBROUTINE complexdp_refute_withinsigfig_s + + + SUBROUTINE complexdp_refute_withinsigfig_r1( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:), Actual(:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[COMPLEX(Double)]' + ! Variables + INTEGER :: i, isize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected) + IF ( SIZE(Actual) /= isize ) THEN + CALL Test_Failed( self ) + WRITE( Message,'("Array sizes are diffferent -- Expected:",i0,"; Actual:",i0)') & + isize, SIZE(Actual) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i), Actual(i), n_SigFig ) + END DO + END SUBROUTINE complexdp_refute_withinsigfig_r1 + + + SUBROUTINE complexdp_refute_withinsigfig_r2( self, Expected, Actual, n_SigFig ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + COMPLEX(Double), INTENT(IN) :: Expected(:,:), Actual(:,:) + INTEGER, INTENT(IN) :: n_SigFig + ! Parameters + CHARACTER(*), PARAMETER :: PROCEDURE_NAME = 'UnitTest::Refute_WithinSigfig[COMPLEX(Double)]' + ! Variables + INTEGER :: i, j, isize, jsize + CHARACTER(SL) :: Message + ! Check array sizes + isize = SIZE(Expected,DIM=1); jsize = SIZE(Expected,DIM=2) + IF ( SIZE(Actual,DIM=1) /= isize .OR. & + SIZE(Actual,DIM=2) /= jsize ) THEN + CALL Test_Failed( self ) + WRITE( Message, & + '("Array sizes are diffferent -- Expected:(",i0,",",i0,"); Actual:(",i0,",",i0,")")') & + isize, jsize, & + SIZE(Actual,DIM=1), SIZE(Actual,DIM=2) + CALL Set_Property( & + self, & + Level = TEST_LEVEL, & + Procedure = PROCEDURE_NAME, & + Message = Message ) + CALL Display_Message( self ) + RETURN + ENDIF + ! Loop over elements + DO j = 1, jsize + DO i = 1, isize + CALL self%Refute_WithinSigfig( Expected(i,j), Actual(i,j), n_SigFig ) + END DO + END DO + END SUBROUTINE complexdp_refute_withinsigfig_r2 + + + + +!################################################################################ +!################################################################################ +!## ## +!## ## PRIVATE MODULE ROUTINES ## ## +!## ## +!################################################################################ +!################################################################################ + +!-------------------------------------------------------------------------------- +! +! NAME: +! UnitTest::Set_Property +! +! PURPOSE: +! Private method to set the properties of a UnitTest object. +! +! All WRITE access to the UnitTest object properties should be +! done using this method. +! +! CALLING SEQUENCE: +! CALL utest_obj%Set_Property( Verbose = Verbose , & +! Title = Title , & +! Caller = Caller , & +! Level = Level , & +! Procedure = Procedure , & +! Message = Message , & +! Test_Result = Test_Result , & +! n_Tests = n_Tests , & +! n_Passed_Tests = n_Passed_Tests , & +! n_Failed_Tests = n_Failed_Tests , & +! n_AllTests = n_AllTests , & +! n_Passed_AllTests = n_Passed_AllTests, & +! n_Failed_AllTests = n_Failed_AllTests ) +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +! OPTIONAL INPUTS: +! Verbose: Logical to control length of reporting output. +! If == .FALSE., Only failed tests are reported. +! == .TRUE., Both failed and passed tests are reported. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Title: Character string containing the title of the +! test to be performed. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Caller: Character string containing the name of the +! calling subprogram. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Level: Integer flag specifying the output message level. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Procedure: The name of the UnitTest procedure. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Message: Character string containing an informational +! message about the unit test performed. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Test_Result: Logical to contain the result of unit tests +! performed +! If == .TRUE., Test passed. +! == .FALSE., Test failed. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! n_Tests: The number of tests performed for the current +! unit test type, i.e. since the last call to +! UnitTest_Setup(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! n_Passed_Tests: The number of tests passed for the current +! unit test type, i.e. since the last call to +! UnitTest_Setup(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! n_Failed_Tests: The number of tests failed for the current +! unit test type, i.e. since the last call to +! UnitTest_Setup(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! n_AllTests: The total number of tests performed, i.e. since +! the last call to UnitTest_Init(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! n_Passed_AllTests: The total number of tests passed, i.e. since +! the last call to UnitTest_Init(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! n_Failed_AllTests: The total number of tests failed, i.e. since +! the last call to UnitTest_Init(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +!-------------------------------------------------------------------------------- + + PURE SUBROUTINE Set_Property( & + self , & ! Object + Verbose , & ! Optional input + Title , & ! Optional input + Caller , & ! Optional input + Level , & ! Optional input + Procedure , & ! Optional input + Message , & ! Optional input + Test_Result , & ! Optional input + n_Tests , & ! Optional input + n_Passed_Tests , & ! Optional input + n_Failed_Tests , & ! Optional input + n_AllTests , & ! Optional input + n_Passed_AllTests, & ! Optional input + n_Failed_AllTests ) ! Optional input + ! Arguments + CLASS(UnitTest_type) , INTENT(IN OUT) :: self + LOGICAL , OPTIONAL, INTENT(IN) :: Verbose + CHARACTER(*), OPTIONAL, INTENT(IN) :: Title + CHARACTER(*), OPTIONAL, INTENT(IN) :: Caller + INTEGER , OPTIONAL, INTENT(IN) :: Level + CHARACTER(*), OPTIONAL, INTENT(IN) :: Procedure + CHARACTER(*), OPTIONAL, INTENT(IN) :: Message + LOGICAL , OPTIONAL, INTENT(IN) :: Test_Result + INTEGER , OPTIONAL, INTENT(IN) :: n_Tests + INTEGER , OPTIONAL, INTENT(IN) :: n_Passed_Tests + INTEGER , OPTIONAL, INTENT(IN) :: n_Failed_Tests + INTEGER , OPTIONAL, INTENT(IN) :: n_AllTests + INTEGER , OPTIONAL, INTENT(IN) :: n_Passed_AllTests + INTEGER , OPTIONAL, INTENT(IN) :: n_Failed_AllTests + ! Set the object properties + IF ( PRESENT(Verbose ) ) self%Verbose = Verbose + IF ( PRESENT(Title ) ) self%Title = Title + IF ( PRESENT(Caller ) ) self%Caller = Caller + IF ( PRESENT(Level ) ) self%Level = Level + IF ( PRESENT(Procedure ) ) self%Procedure = Procedure + IF ( PRESENT(Message ) ) self%Message = Message + IF ( PRESENT(Test_Result ) ) self%Test_Result = Test_Result + IF ( PRESENT(n_Tests ) ) self%n_Tests = n_Tests + IF ( PRESENT(n_Passed_Tests ) ) self%n_Passed_Tests = n_Passed_Tests + IF ( PRESENT(n_Failed_Tests ) ) self%n_Failed_Tests = n_Failed_Tests + IF ( PRESENT(n_AllTests ) ) self%n_AllTests = n_AllTests + IF ( PRESENT(n_Passed_AllTests) ) self%n_Passed_AllTests = n_Passed_AllTests + IF ( PRESENT(n_Failed_AllTests) ) self%n_Failed_AllTests = n_Failed_AllTests + END SUBROUTINE Set_Property + + +!-------------------------------------------------------------------------------- +! +! NAME: +! UnitTest::Get_Property +! +! PURPOSE: +! Private method to get the properties of a UnitTest object. +! +! All READ access to the UnitTest object properties should be +! done using this method. +! +! CALLING SEQUENCE: +! CALL utest_obj%Get_Property( Verbose = Verbose , & +! Title = Title , & +! Caller = Caller , & +! Level = Level , & +! Procedure = Procedure , & +! Message = Message , & +! Test_Result = Test_Result , & +! n_Tests = n_Tests , & +! n_Passed_Tests = n_Passed_Tests , & +! n_Failed_Tests = n_Failed_Tests , & +! n_AllTests = n_AllTests , & +! n_Passed_AllTests = n_Passed_AllTests, & +! n_Failed_AllTests = n_Failed_AllTests ) +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OPTIONAL OUTPUTS: +! Verbose: Logical to control length of reporting output. +! If == .FALSE., Only failed tests are reported. +! == .TRUE., Both failed and passed tests are reported. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! Title: Character string containing the title of the +! test to be performed. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! Caller: Character string containing the name of the +! calling subprogram. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! Level: Integer flag specifying the output message level. +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! Procedure: The name of the last UnitTest Procedure called. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN), OPTIONAL +! +! Message: Character string containing an informational +! message about the last unit test performed. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! Test_Result: Logical containing the result of the last +! unit test performed +! If == .TRUE., Test passed. +! == .FALSE., Test failed. +! UNITS: N/A +! TYPE: LOGICAL +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! n_Tests: The number of tests performed for the current +! unit test type, i.e. since the last call to +! UnitTest_Setup(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! n_Passed_Tests: The number of tests passed for the current +! unit test type, i.e. since the last call to +! UnitTest_Setup(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! n_Failed_Tests: The number of tests failed for the current +! unit test type, i.e. since the last call to +! UnitTest_Setup(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! n_AllTests: The total number of tests performed, i.e. since +! the last call to UnitTest_Init(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! n_Passed_AllTests: The total number of tests passed, i.e. since +! the last call to UnitTest_Init(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +! n_Failed_AllTests: The total number of tests failed, i.e. since +! the last call to UnitTest_Init(). +! UNITS: N/A +! TYPE: INTEGER +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT), OPTIONAL +! +!------------------------------------------------------------------------------ + + PURE SUBROUTINE Get_Property( & + self , & ! Object + Verbose , & ! Optional output + Title , & ! Optional output + Caller , & ! Optional output + Level , & ! Optional output + Procedure , & ! Optional output + Message , & ! Optional output + Test_Result , & ! Optional output + n_Tests , & ! Optional output + n_Passed_Tests , & ! Optional output + n_Failed_Tests , & ! Optional output + n_AllTests , & ! Optional output + n_Passed_AllTests, & ! Optional output + n_Failed_AllTests ) ! Optional output + ! Arguments + CLASS(UnitTest_type) , INTENT(IN) :: self + LOGICAL , OPTIONAL, INTENT(OUT) :: Verbose + CHARACTER(*), OPTIONAL, INTENT(OUT) :: Title + CHARACTER(*), OPTIONAL, INTENT(OUT) :: Caller + INTEGER , OPTIONAL, INTENT(OUT) :: Level + CHARACTER(*), OPTIONAL, INTENT(OUT) :: Procedure + CHARACTER(*), OPTIONAL, INTENT(OUT) :: Message + LOGICAL , OPTIONAL, INTENT(OUT) :: Test_Result + INTEGER , OPTIONAL, INTENT(OUT) :: n_Tests + INTEGER , OPTIONAL, INTENT(OUT) :: n_Passed_Tests + INTEGER , OPTIONAL, INTENT(OUT) :: n_Failed_Tests + INTEGER , OPTIONAL, INTENT(OUT) :: n_AllTests + INTEGER , OPTIONAL, INTENT(OUT) :: n_Passed_AllTests + INTEGER , OPTIONAL, INTENT(OUT) :: n_Failed_AllTests + ! Get the object properties + IF ( PRESENT(Verbose ) ) Verbose = self%Verbose + IF ( PRESENT(Title ) ) Title = self%Title + IF ( PRESENT(Caller ) ) Caller = self%Caller + IF ( PRESENT(Level ) ) Level = self%Level + IF ( PRESENT(Procedure ) ) Procedure = self%Procedure + IF ( PRESENT(Message ) ) Message = self%Message + IF ( PRESENT(Test_Result ) ) Test_Result = self%Test_Result + IF ( PRESENT(n_Tests ) ) n_Tests = self%n_Tests + IF ( PRESENT(n_Passed_Tests ) ) n_Passed_Tests = self%n_Passed_Tests + IF ( PRESENT(n_Failed_Tests ) ) n_Failed_Tests = self%n_Failed_Tests + IF ( PRESENT(n_AllTests ) ) n_AllTests = self%n_AllTests + IF ( PRESENT(n_Passed_AllTests) ) n_Passed_AllTests = self%n_Passed_AllTests + IF ( PRESENT(n_Failed_AllTests) ) n_Failed_AllTests = self%n_Failed_AllTests + END SUBROUTINE Get_Property + + +!-------------------------------------------------------------------------------- +! +! NAME: +! UnitTest::Test_Passed +! +! PURPOSE: +! Private method to increment passed test counters. +! +! CALLING SEQUENCE: +! CALL utest_obj%Test_Passed() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +!-------------------------------------------------------------------------------- + + SUBROUTINE Test_Passed( self ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + ! Variables + INTEGER :: n_Passed_Tests, n_Passed_AllTests + + ! Increment total test counters + CALL self%Test_Increment() + + ! Increment the passed test counters + ! ...Get 'em + CALL self%Get_Property( & + n_Passed_Tests = n_Passed_Tests, & + n_Passed_AllTests = n_Passed_AllTests ) + ! ...Increment + n_Passed_Tests = n_Passed_Tests + 1 + n_Passed_AllTests = n_Passed_AllTests + 1 + ! ...Save 'em and set successful test result + CALL self%Set_Property( & + Test_Result = .TRUE., & + n_Passed_Tests = n_Passed_Tests, & + n_Passed_AllTests = n_Passed_AllTests ) + END SUBROUTINE Test_Passed + + +!-------------------------------------------------------------------------------- +! +! NAME: +! UnitTest::Test_Failed +! +! PURPOSE: +! Private method to increment failed test counters. +! +! CALLING SEQUENCE: +! CALL utest_obj%Test_Failed() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +!-------------------------------------------------------------------------------- + + SUBROUTINE Test_Failed( self ) + ! Arguments + CLASS(UnitTest_type), INTENT(IN OUT) :: self + ! Variables + INTEGER :: n_Failed_Tests, n_Failed_AllTests + + ! Increment total test counters + CALL self%Test_Increment() + + ! Increment the failed test counters + ! ...Get 'em + CALL self%Get_Property( & + n_Failed_Tests = n_Failed_Tests, & + n_Failed_AllTests = n_Failed_AllTests ) + ! ...Increment + n_Failed_Tests = n_Failed_Tests + 1 + n_Failed_AllTests = n_Failed_AllTests + 1 + ! ...Save 'em and set unsuccessful test result + CALL self%Set_Property( & + Test_Result = .FALSE., & + n_Failed_Tests = n_Failed_Tests, & + n_Failed_AllTests = n_Failed_AllTests ) + END SUBROUTINE Test_Failed + + +!-------------------------------------------------------------------------------- +! +! NAME: +! UnitTest::Test_Increment +! +! PURPOSE: +! Private method to increment the test total counters. +! +! CALLING SEQUENCE: +! CALL utest_obj%Test_Increment() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +!-------------------------------------------------------------------------------- + + SUBROUTINE Test_Increment( self ) + CLASS(UnitTest_type), INTENT(IN OUT) :: self + INTEGER :: n_Tests, n_AllTests + + CALL self%Get_Property( & + n_Tests = n_Tests, & + n_AllTests = n_AllTests ) + + n_Tests = n_Tests + 1 + n_AllTests = n_AllTests + 1 + + CALL self%Set_Property( & + n_Tests = n_Tests, & + n_AllTests = n_AllTests ) + END SUBROUTINE Test_Increment + + +!-------------------------------------------------------------------------------- +! +! NAME: +! UnitTest::Display_Message +! +! PURPOSE: +! Private method to display the unit test messages to stdout. +! +! CALLING SEQUENCE: +! CALL utest_obj%Display_Message() +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN OUT) +! +!-------------------------------------------------------------------------------- + + SUBROUTINE Display_Message( self ) + CLASS(UnitTest_type), INTENT(IN) :: self + ! Variables + INTEGER :: level + CHARACTER(SL) :: procedure + CHARACTER(SL) :: message + CHARACTER(SL) :: fmt + CHARACTER(SL) :: prefix + CHARACTER(SL) :: test_info + INTEGER :: n_spaces + + CALL self%Get_Property( & + Level = level, & + Procedure = procedure, & + Message = message ) + + ! Set output bits manually + test_info = '' + SELECT CASE(level) + CASE(INIT_LEVEL) + prefix = '/' + n_spaces = 1 + CASE(SETUP_LEVEL) + prefix = '/,3x,14("-"),/' + n_spaces = 3 + CASE(TEST_LEVEL) + prefix = '' + n_spaces = 5 + CALL self%Test_Info_String( test_info ) + CASE(REPORT_LEVEL) + prefix = '' + n_spaces = 3 + CASE(SUMMARY_LEVEL) + prefix = '/,1x,16("="),/' + n_spaces = 1 + CASE DEFAULT + level = INTERNAL_FAIL_LEVEL + prefix = '/,"INVALID MESSAGE LEVEL!!",/' + n_spaces = 15 + END SELECT + + ! Write the message to stdout + WRITE(fmt, '("(",a,i0,"x,""("",a,"") "",a,"": "",a,1x,a)")') TRIM(prefix), n_spaces + WRITE( *,FMT=fmt ) TRIM(MESSAGE_LEVEL(level)), TRIM(procedure), TRIM(test_info), TRIM(message) + + END SUBROUTINE Display_Message + + +!-------------------------------------------------------------------------------- +! +! NAME: +! UnitTest::Test_Info_String +! +! PURPOSE: +! Private method to construct an info string for message output. +! +! CALLING SEQUENCE: +! CALL utest_obj%Test_Info_String( info ) +! +! OBJECT: +! utest_obj: UnitTest object. +! UNITS: N/A +! CLASS: UnitTest_type +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(IN) +! +! OUTPUTS: +! info: Character string containing the test number and +! whether the test passed or failed. +! UNITS: N/A +! TYPE: CHARACTER(*) +! DIMENSION: Scalar +! ATTRIBUTES: INTENT(OUT) +! +!-------------------------------------------------------------------------------- + + SUBROUTINE Test_Info_String( self, info ) + CLASS(UnitTest_Type), INTENT(IN) :: self + CHARACTER(*), INTENT(OUT) :: info + INTEGER :: n_tests + CHARACTER(6) :: passfail + CALL self%Get_Property( n_Tests = n_Tests ) + IF ( self%Passed() ) THEN + passfail = 'PASSED' + ELSE + passfail = 'FAILED' + END IF + WRITE( info,'("Test#",i0,1x,a,".")') n_tests, passfail + END SUBROUTINE Test_Info_String + +END MODULE UnitTest_Define diff --git a/var/external/crtm_2.2.3/libsrc/Zeeman_Input_Define.f90 b/var/external/crtm_2.3.0/libsrc/Zeeman_Input_Define.f90 similarity index 99% rename from var/external/crtm_2.2.3/libsrc/Zeeman_Input_Define.f90 rename to var/external/crtm_2.3.0/libsrc/Zeeman_Input_Define.f90 index 5556fc4a4d..7eaacf18aa 100644 --- a/var/external/crtm_2.2.3/libsrc/Zeeman_Input_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/Zeeman_Input_Define.f90 @@ -54,7 +54,7 @@ MODULE Zeeman_Input_Define ! Module parameters ! ----------------- CHARACTER(*), PRIVATE, PARAMETER :: MODULE_VERSION_ID = & - '$Id: Zeeman_Input_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: Zeeman_Input_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Release and version INTEGER, PARAMETER :: ZEEMAN_INPUT_RELEASE = 1 ! This determines structure and file formats. INTEGER, PARAMETER :: ZEEMAN_INPUT_VERSION = 1 ! This is just the default data version. diff --git a/var/external/crtm_2.2.3/libsrc/Zeeman_Utility.f90 b/var/external/crtm_2.3.0/libsrc/Zeeman_Utility.f90 similarity index 100% rename from var/external/crtm_2.2.3/libsrc/Zeeman_Utility.f90 rename to var/external/crtm_2.3.0/libsrc/Zeeman_Utility.f90 diff --git a/var/external/crtm_2.2.3/libsrc/iAtm_Define.f90 b/var/external/crtm_2.3.0/libsrc/iAtm_Define.f90 similarity index 98% rename from var/external/crtm_2.2.3/libsrc/iAtm_Define.f90 rename to var/external/crtm_2.3.0/libsrc/iAtm_Define.f90 index ae4b4c7217..3ad3683130 100644 --- a/var/external/crtm_2.2.3/libsrc/iAtm_Define.f90 +++ b/var/external/crtm_2.3.0/libsrc/iAtm_Define.f90 @@ -40,7 +40,7 @@ MODULE iAtm_Define ! ----------------- ! Version Id for the module CHARACTER(*), PARAMETER :: MODULE_VERSION_ID = & - '$Id: iAtm_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' + '$Id: iAtm_Define.f90 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $' ! Message string length INTEGER, PARAMETER :: ML = 256 diff --git a/var/external/crtm_2.2.3/libsrc/make.dependencies b/var/external/crtm_2.3.0/libsrc/make.dependencies similarity index 86% rename from var/external/crtm_2.2.3/libsrc/make.dependencies rename to var/external/crtm_2.3.0/libsrc/make.dependencies index d520423b28..257922c0d2 100644 --- a/var/external/crtm_2.2.3/libsrc/make.dependencies +++ b/var/external/crtm_2.3.0/libsrc/make.dependencies @@ -9,7 +9,7 @@ Azimuth_Emissivity_F6_Module.o : Azimuth_Emissivity_F6_Module.f90 Search_Utility Azimuth_Emissivity_Module.o : Azimuth_Emissivity_Module.f90 FitCoeff_Define.o Type_Kinds.o Binary_File_Utility.o : Binary_File_Utility.f90 Endian_Utility.o Message_Handler.o File_Utility.o Type_Kinds.o CRTM_AOD_Module.o : CRTM_AOD_Module.f90 ASvar_Define.o CRTM_AerosolCoeff.o CRTM_RTSolution_Define.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_Options_Define.o CRTM_ChannelInfo_Define.o CRTM_Atmosphere_Define.o CRTM_Parameters.o Message_Handler.o -CRTM_Adjoint_Module.o : CRTM_Adjoint_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o +CRTM_Adjoint_Module.o : CRTM_Adjoint_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o AOvar_Define.o CRTM_CloudCover_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_RTSolution_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_AerosolCoeff.o : CRTM_AerosolCoeff.f90 AerosolCoeff_Binary_IO.o AerosolCoeff_Define.o Message_Handler.o CRTM_AerosolScatter.o : CRTM_AerosolScatter.f90 ASvar_Define.o CRTM_AtmOptics_Define.o CRTM_Interpolation.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere_Define.o CRTM_AerosolCoeff.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_Aerosol_Define.o : CRTM_Aerosol_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o @@ -22,11 +22,12 @@ CRTM_Atmosphere.o : CRTM_Atmosphere.f90 iAtm_Define.o CRTM_Model_Profiles.o CRTM CRTM_Atmosphere_Define.o : CRTM_Atmosphere_Define.f90 CRTM_Aerosol_Define.o CRTM_Cloud_Define.o CRTM_Parameters.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o CRTM_ChannelInfo_Define.o : CRTM_ChannelInfo_Define.f90 Sort_Utility.o SensorInfo_Parameters.o CRTM_Parameters.o File_Utility.o Message_Handler.o CRTM_CloudCoeff.o : CRTM_CloudCoeff.f90 CloudCoeff_Binary_IO.o CloudCoeff_Define.o Message_Handler.o +CRTM_CloudCover_Define.o : CRTM_CloudCover_Define.f90 CRTM_Atmosphere_Define.o Compare_Float_Numbers.o Message_Handler.o File_Utility.o Type_Kinds.o CRTM_CloudScatter.o : CRTM_CloudScatter.f90 CSvar_Define.o CRTM_AtmOptics_Define.o CRTM_Interpolation.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere_Define.o CRTM_CloudCoeff.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_Cloud_Define.o : CRTM_Cloud_Define.f90 Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o CRTM_Fastem1.o : CRTM_Fastem1.f90 CRTM_Parameters.o Type_Kinds.o CRTM_FastemX.o : CRTM_FastemX.f90 Azimuth_Emissivity_F6_Module.o Azimuth_Emissivity_Module.o Reflection_Correction_Module.o Large_Scale_Correction_Module.o Small_Scale_Correction_Module.o Foam_Utility_Module.o Liu.o Fresnel.o CRTM_Parameters.o MWwaterCoeff_Define.o Type_Kinds.o -CRTM_Forward_Module.o : CRTM_Forward_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o +CRTM_Forward_Module.o : CRTM_Forward_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o AOvar_Define.o CRTM_CloudCover_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_RTSolution_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_GeometryInfo.o : CRTM_GeometryInfo.f90 CRTM_GeometryInfo_Define.o CRTM_Parameters.o Date_Utility.o Message_Handler.o Type_Kinds.o CRTM_GeometryInfo_Define.o : CRTM_GeometryInfo_Define.f90 CRTM_Geometry_Define.o CRTM_Parameters.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o CRTM_Geometry_Define.o : CRTM_Geometry_Define.f90 CRTM_Parameters.o Date_Utility.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o @@ -40,7 +41,7 @@ CRTM_IRlandCoeff.o : CRTM_IRlandCoeff.f90 SEcategory_Define.o Message_Handler.o CRTM_IRsnowCoeff.o : CRTM_IRsnowCoeff.f90 SEcategory_Define.o Message_Handler.o CRTM_IRwaterCoeff.o : CRTM_IRwaterCoeff.f90 IRwaterCoeff_Define.o Message_Handler.o CRTM_Interpolation.o : CRTM_Interpolation.f90 Type_Kinds.o -CRTM_K_Matrix_Module.o : CRTM_K_Matrix_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o +CRTM_K_Matrix_Module.o : CRTM_K_Matrix_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o AOvar_Define.o CRTM_CloudCover_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_RTSolution_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_LifeCycle.o : CRTM_LifeCycle.f90 CRTM_MWwaterCoeff.o CRTM_VISiceCoeff.o CRTM_VISsnowCoeff.o CRTM_VISlandCoeff.o CRTM_VISwaterCoeff.o CRTM_IRiceCoeff.o CRTM_IRsnowCoeff.o CRTM_IRlandCoeff.o CRTM_IRwaterCoeff.o CRTM_CloudCoeff.o CRTM_AerosolCoeff.o CRTM_TauCoeff.o CRTM_SpcCoeff.o CRTM_ChannelInfo_Define.o Message_Handler.o CRTM_LowFrequency_MWSSEM.o : CRTM_LowFrequency_MWSSEM.f90 CRTM_Interpolation.o CRTM_Parameters.o Ellison.o Guillou.o Fresnel.o Type_Kinds.o CRTM_MW_Ice_SfcOptics.o : CRTM_MW_Ice_SfcOptics.f90 NESDIS_SSMIS_SeaIceEM_Module.o NESDIS_MHS_SICEEM_Module.o NESDIS_SEAICE_PHYEM_MODULE.o NESDIS_SSMI_SIceEM_Module.o NESDIS_AMSRE_SICEEM_Module.o NESDIS_AMSU_SICEEM_Module.o CRTM_SensorInfo.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o @@ -51,7 +52,7 @@ CRTM_MWwaterCoeff.o : CRTM_MWwaterCoeff.f90 MWwaterCoeff_Define.o Message_Handle CRTM_Model_Profiles.o : CRTM_Model_Profiles.f90 CRTM_Atmosphere_Define.o Type_Kinds.o CRTM_MoleculeScatter.o : CRTM_MoleculeScatter.f90 CRTM_AtmOptics_Define.o CRTM_Atmosphere_Define.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_NLTECorrection.o : CRTM_NLTECorrection.f90 NLTE_Predictor_Define.o NLTE_Parameters.o NLTECoeff_Define.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere_Define.o CRTM_Parameters.o Type_Kinds.o -CRTM_Options_Define.o : CRTM_Options_Define.f90 Zeeman_Input_Define.o SSU_Input_Define.o CRTM_Parameters.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o +CRTM_Options_Define.o : CRTM_Options_Define.f90 CRTM_CloudCover_Define.o Zeeman_Input_Define.o SSU_Input_Define.o CRTM_Parameters.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o CRTM_Parameters.o : CRTM_Parameters.f90 Type_Kinds.o CRTM_Planck_Functions.o : CRTM_Planck_Functions.f90 CRTM_SpcCoeff.o CRTM_Parameters.o Type_Kinds.o CRTM_Predictor.o : CRTM_Predictor.f90 ODZeeman_AtmAbsorption.o ODPS_Predictor.o ODPS_Predictor_Define.o ODAS_Predictor.o ODAS_Predictor_Define.o CRTM_Predictor_Define.o CRTM_AtmOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_AncillaryInput_Define.o CRTM_TauCoeff.o CRTM_Atmosphere_Define.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o @@ -65,7 +66,7 @@ CRTM_SfcOptics.o : CRTM_SfcOptics.f90 CRTM_VIS_Ice_SfcOptics.o CRTM_VIS_Snow_Sfc CRTM_SfcOptics_Define.o : CRTM_SfcOptics_Define.f90 CRTM_Parameters.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o CRTM_SpcCoeff.o : CRTM_SpcCoeff.f90 CRTM_Parameters.o SpcCoeff_Binary_IO.o SpcCoeff_Define.o SensorInfo_Parameters.o Message_Handler.o CRTM_Surface_Define.o : CRTM_Surface_Define.f90 CRTM_SensorData_Define.o Binary_File_Utility.o File_Utility.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o -CRTM_Tangent_Linear_Module.o : CRTM_Tangent_Linear_Module.f90 ASvar_Define.o CSvar_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o RTV_Define.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o +CRTM_Tangent_Linear_Module.o : CRTM_Tangent_Linear_Module.f90 RTV_Define.o ASvar_Define.o CSvar_Define.o AOvar_Define.o CRTM_CloudCover_Define.o CRTM_Planck_Functions.o NLTECoeff_Define.o ACCoeff_Define.o CRTM_NLTECorrection.o CRTM_AerosolCoeff.o CRTM_CloudCoeff.o CRTM_AncillaryInput_Define.o CRTM_MoleculeScatter.o CRTM_AntennaCorrection.o CRTM_RTSolution.o CRTM_SfcOptics.o CRTM_SfcOptics_Define.o CRTM_AtmOptics.o CRTM_CloudScatter.o CRTM_AerosolScatter.o CRTM_AtmOptics_Define.o CRTM_AtmAbsorption.o CRTM_Predictor.o CRTM_Predictor_Define.o CRTM_GeometryInfo.o CRTM_GeometryInfo_Define.o CRTM_Atmosphere.o CRTM_Options_Define.o CRTM_RTSolution_Define.o CRTM_ChannelInfo_Define.o CRTM_Geometry_Define.o CRTM_Surface_Define.o CRTM_Atmosphere_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_TauCoeff.o : CRTM_TauCoeff.f90 CRTM_SensorInfo.o ODZeeman_TauCoeff.o TauCoeff_Define.o ODSSU_Define.o ODSSU_TauCoeff.o ODPS_Define.o ODPS_TauCoeff.o ODAS_Define.o ODAS_TauCoeff.o CRTM_Parameters.o Message_Handler.o Binary_File_Utility.o File_Utility.o Type_Kinds.o CRTM_Utility.o : CRTM_Utility.f90 CRTM_Parameters.o Message_Handler.o Type_Kinds.o CRTM_VIS_Ice_SfcOptics.o : CRTM_VIS_Ice_SfcOptics.f90 CRTM_VISiceCoeff.o CRTM_SEcategory.o CRTM_SfcOptics_Define.o CRTM_GeometryInfo_Define.o CRTM_Surface_Define.o CRTM_SpcCoeff.o CRTM_Parameters.o Spectral_Units_Conversion.o Message_Handler.o Type_Kinds.o @@ -116,6 +117,8 @@ NESDIS_SSMI_SIceEM_Module.o : NESDIS_SSMI_SIceEM_Module.f90 NESDIS_LandEM_Module NESDIS_SSMI_SnowEM_Module.o : NESDIS_SSMI_SnowEM_Module.f90 NESDIS_LandEM_Module.o Type_Kinds.o NESDIS_SnowEM_ATMS_Parameters.o : NESDIS_SnowEM_ATMS_Parameters.f90 Type_Kinds.o NESDIS_SnowEM_Parameters.o NESDIS_SnowEM_Parameters.o : NESDIS_SnowEM_Parameters.f90 Type_Kinds.o +NESDIS_ATMS_SeaIce_LIB.o : NESDIS_ATMS_SeaIce_LIB.f90 Type_Kinds.o +NESDIS_ATMS_SeaICE_Module.o : NESDIS_ATMS_SeaICE_Module.f90 Type_Kinds.o NESDIS_LandEM_Module.o NESDIS_ATMS_SeaICE_LIB.o NLTECoeff_Binary_IO.o : NLTECoeff_Binary_IO.f90 NLTECoeff_Define.o Binary_File_Utility.o Message_Handler.o File_Utility.o Type_Kinds.o NLTECoeff_Define.o : NLTECoeff_Define.f90 SensorInfo_Parameters.o Subset_Define.o Compare_Float_Numbers.o Message_Handler.o Type_Kinds.o NLTE_Parameters.o : NLTE_Parameters.f90 Type_Kinds.o diff --git a/var/external/crtm_2.2.3/libsrc/make.filelist b/var/external/crtm_2.3.0/libsrc/make.filelist similarity index 96% rename from var/external/crtm_2.2.3/libsrc/make.filelist rename to var/external/crtm_2.3.0/libsrc/make.filelist index bead4ec268..f9fbe25c5f 100644 --- a/var/external/crtm_2.2.3/libsrc/make.filelist +++ b/var/external/crtm_2.3.0/libsrc/make.filelist @@ -1,7 +1,7 @@ # # The make include file of the source files to be used in the CRTM library build. # -# $Id: make.filelist 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $ +# $Id: make.filelist 99117 2017-11-27 18:37:14Z tong.zhu@noaa.gov $ # # The list of files that need preprocessing @@ -55,6 +55,8 @@ FSRC_FILES = \ NESDIS_SSMIS_SnowEM_Module.f90 \ NESDIS_SnowEM_ATMS_Parameters.f90 \ NESDIS_ATMS_SnowEM_Module.f90 \ + NESDIS_ATMS_SeaICE_LIB.f90 \ + NESDIS_ATMS_SeaICE_Module.f90 \ CRTM_Utility.f90 \ CRTM_Interpolation.f90 \ CRTM_SpcCoeff.f90 \ @@ -71,6 +73,7 @@ FSRC_FILES = \ CRTM_Geometry_Define.f90 \ CRTM_GeometryInfo_Define.f90 CRTM_GeometryInfo.f90 \ CRTM_Atmosphere.f90 iAtm_Define.f90 \ + CRTM_CloudCover_Define.f90 \ CRTM_Model_Profiles.f90 \ CRTM_AerosolScatter.f90 ASvar_Define.f90 \ CRTM_CloudScatter.f90 CSvar_Define.f90 \ diff --git a/var/external/crtm_2.2.3/libsrc/makefile b/var/external/crtm_2.3.0/libsrc/makefile similarity index 98% rename from var/external/crtm_2.2.3/libsrc/makefile rename to var/external/crtm_2.3.0/libsrc/makefile index 6900f4881b..6600ab29f0 100644 --- a/var/external/crtm_2.2.3/libsrc/makefile +++ b/var/external/crtm_2.3.0/libsrc/makefile @@ -21,7 +21,7 @@ $(LIBRARY): $(OBJ_FILES) library: $(LIBRARY) clean: - $(RM) *.o *.mod *.a + @$(RM) *.o *.mod *.a # File dependency and compilation rule include files include make.dependencies diff --git a/var/external/crtm_2.3.0/libsrc/makefile_clean b/var/external/crtm_2.3.0/libsrc/makefile_clean new file mode 100644 index 0000000000..d8d4cbf2a8 --- /dev/null +++ b/var/external/crtm_2.3.0/libsrc/makefile_clean @@ -0,0 +1,8 @@ + +package = CRTM + +# The file definitions. This include must occur before targets. +include make.filelist + +clean: + @$(RM) *.o *.mod *.a diff --git a/var/external/crtm_2.3.0/makefile b/var/external/crtm_2.3.0/makefile new file mode 100644 index 0000000000..ccb6e80094 --- /dev/null +++ b/var/external/crtm_2.3.0/makefile @@ -0,0 +1,8 @@ +MAKE = make -i -r + +# Target specification +all : + @cd libsrc && $(MAKE) $@ + +clean: + @cd libsrc && $(MAKE) -s -f makefile_clean $@ diff --git a/var/external/wavelet/makefile b/var/external/wavelet/makefile index e90f08f091..77490dbe5b 100644 --- a/var/external/wavelet/makefile +++ b/var/external/wavelet/makefile @@ -90,7 +90,7 @@ xp.o: awaprogs/chap09/xp.c awaprogs/chap02/common.h awaprogs/chap02/real.h awa $(CC) $(CFLAGS_LOCAL) -c $< clean : - $(RM) *.f *.o *.mod *.obj *.i + @$(RM) *.f *.o *.mod *.obj *.i superclean : clean - $(RM) *.a + @$(RM) *.a diff --git a/var/obsproc/Makefile b/var/obsproc/Makefile index d342770563..d765cd601b 100755 --- a/var/obsproc/Makefile +++ b/var/obsproc/Makefile @@ -20,12 +20,12 @@ all: clean: # -@if [ -d MAP_plot ]; then $(CD) MAP_plot ; $(MAKE) clean ; fi - $(RM) core .tmpfile compiler_macros - $(RM) *.exe - $(RM) *.out - $(RM) fort.* - $(RM) obs_gts.ascii.* *.diag - $(RM) HEIGHT.txt PRES.txt TEMP.txt RH.txt WIND.txt - $(RM) obs_ssmi*.3dvar obs_gts*.3dvar - ($(CD) src ; $(RM) *.o *.f core *.kmo ctmi* *.mod *.lst *_out_* output *.out obsproc.exe ) + @$(RM) core .tmpfile compiler_macros + @$(RM) *.exe + @$(RM) *.out + @$(RM) fort.* + @$(RM) obs_gts.ascii.* *.diag + @$(RM) HEIGHT.txt PRES.txt TEMP.txt RH.txt WIND.txt + @$(RM) obs_ssmi*.3dvar obs_gts*.3dvar + @($(CD) src ; $(RM) *.o *.f core *.kmo ctmi* *.mod *.lst *_out_* output *.out obsproc.exe ) diff --git a/var/run/README b/var/run/README index 8f1c1a7565..bd99d5e027 100644 --- a/var/run/README +++ b/var/run/README @@ -20,7 +20,7 @@ crtm_coeffs A subset of coefficient files can be downloaded from http://www2.mmm.ucar.edu/wrf/users/wrfda/download/crtm_coeffs.html. The full set of coefficient files can be downloaded from - ftp://ftp.emc.ncep.noaa.gov/jcsda/CRTM/REL-2.2.3/crtm_v2.2.3.tar.gz + ftp://ftp.emc.ncep.noaa.gov/jcsda/CRTM/REL-2.3.0/crtm_v2.3.0.tar.gz Some CRTM algorithms (Multiple transmittance algorithm, infrared sea surface emissivity model) are selectable by users via the coefficient files used to initialize CRTM. Users should gather the coefficient files that are suitable diff --git a/var/run/VARBC.in b/var/run/VARBC.in index 04012015dd..80cacdf5f0 100644 --- a/var/run/VARBC.in +++ b/var/run/VARBC.in @@ -1,5 +1,5 @@ VARBC version 1.0 - Number of instruments: - 37 + 38 ------------------------------------------------ Platform_id Sat_id Sensor_id Nchanl Npredmax ------------------------------------------------ @@ -2148,6 +2148,25 @@ ------------------------------------------------ Platform_id Sat_id Sensor_id Nchanl Npredmax ------------------------------------------------ + 31 8 56 10 8 + -----> Bias predictor statistics: Mean & Std & Nbgerr + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 + 10000 10000 10000 10000 10000 10000 10000 10000 + -----> Chanl_id Chanl_nb Pred_use(-1/0/1) Param + 1 1 0 0 0 0 0 -1 -1 -1 2.100 0.000 0.000 0.000 0.000 + 2 2 0 0 0 0 0 -1 -1 -1 0.299 0.000 -0.001 -0.006 0.009 + 3 3 0 0 0 0 0 -1 -1 -1 0.516 0.001 -0.005 0.000 0.019 + 4 4 0 0 0 0 0 -1 -1 -1 -0.095 -0.005 0.001 -0.002 0.024 + 5 5 0 0 0 0 0 -1 -1 -1 -1.000 0.000 0.000 0.000 0.000 + 6 6 0 0 0 0 0 -1 -1 -1 0.000 0.000 0.000 0.000 0.000 + 7 7 0 0 0 0 0 -1 -1 -1 -0.800 0.000 0.000 0.000 0.000 + 8 8 0 0 0 0 0 -1 -1 -1 -0.600 0.000 0.000 0.000 0.000 + 9 9 0 0 0 0 0 -1 -1 -1 -1.000 0.000 0.000 0.000 0.000 + 10 10 0 0 0 0 0 -1 -1 -1 -2.000 0.000 0.000 0.000 0.000 +------------------------------------------------ + Platform_id Sat_id Sensor_id Nchanl Npredmax + ------------------------------------------------ 4 13 22 4 8 -----> Bias predictor statistics: Mean & Std & Nbgerr 1.0 9572.5 7700.0 293.6 30.3 0.0 0.0 0.0 diff --git a/var/run/ahi_info b/var/run/ahi_info new file mode 100644 index 0000000000..2d6da8f68b --- /dev/null +++ b/var/run/ahi_info @@ -0,0 +1,8 @@ +data source:1.cma hdf5;2.geocat netcdf4;3.jaxa netcdf4;4.ncep bufr +2 +nscan +3000 +area information for geocat netcdf4 data: lonstart latstart nlongitude nlatitude +1,1,1500,1000 +date infomation for cma hdf5 data +2016,07,18,19,00,00 diff --git a/var/run/crtm_coeffs b/var/run/crtm_coeffs index 6b99367d0b..dd47bff9b3 120000 --- a/var/run/crtm_coeffs +++ b/var/run/crtm_coeffs @@ -1 +1 @@ -/glade/work/wrfhelp/WRFDA_files/crtm_coeffs_2.2.3 \ No newline at end of file +/glade/work/wrfhelp/WRFDA_files/crtm_coeffs_2.3.0 \ No newline at end of file diff --git a/var/run/radiance_info/himawari-8-ahi.info b/var/run/radiance_info/himawari-8-ahi.info new file mode 100644 index 0000000000..229563e49a --- /dev/null +++ b/var/run/radiance_info/himawari-8-ahi.info @@ -0,0 +1,11 @@ +sensor channel IR/MW use idum varch polarisation(0:vertical;1:horizontal) + 478 1 1 -1 0 1.0520000000E+00 1.0000000000E+00 28.30175 + 478 2 1 1 0 1.7000000000E+00 1.0000000000E+00 57.58830 + 478 3 1 -1 0 1.7000000000E+00 1.0000000000E+00 12.69287 + 478 4 1 -1 0 1.3500000000E+00 1.0000000000E+00 27.33099 + 478 5 1 -1 0 0.8140000000E+00 1.0000000000E+00 23.24269 + 478 6 1 -1 0 0.9310000000E+00 1.0000000000E+00 53.35099 + 478 7 1 -1 0 0.8710000000E+00 1.0000000000E+00 36.07700 + 478 8 1 -1 0 0.9260000000E+00 1.0000000000E+00 33.61592 + 478 9 1 -1 0 0.9330000000E+00 1.0000000000E+00 33.61592 + 478 10 1 -1 0 0.7870000000E+00 1.0000000000E+00 33.61592 diff --git a/wrftladj/module_first_rk_step_part2_tl.F b/wrftladj/module_first_rk_step_part2_tl.F index aca7663657..8093a8a9b3 100644 --- a/wrftladj/module_first_rk_step_part2_tl.F +++ b/wrftladj/module_first_rk_step_part2_tl.F @@ -157,6 +157,7 @@ SUBROUTINE g_first_rk_step_part2 ( grid , config_flags & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & config_flags%restart, grid%iseedarr_skebs, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%skebs_vertstruc, & grid%rt_tendf_stoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -176,6 +177,7 @@ SUBROUTINE g_first_rk_step_part2 ( grid , config_flags & grid% num_stoch_levels,grid% num_stoch_levels, & grid% num_stoch_levels,grid% num_stoch_levels, & config_flags%restart, grid%iseedarr_skebs, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%skebs_vertstruc, & grid%ru_tendf_stoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -195,6 +197,7 @@ SUBROUTINE g_first_rk_step_part2 ( grid , config_flags & grid% num_stoch_levels,grid% num_stoch_levels, & grid% num_stoch_levels,grid% num_stoch_levels, & config_flags%restart, grid%iseedarr_skebs, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%skebs_vertstruc, & grid%rv_tendf_stoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -216,6 +219,7 @@ SUBROUTINE g_first_rk_step_part2 ( grid , config_flags & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & config_flags%restart, grid%iseedarr_sppt, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%sppt_vertstruc, & grid%rstoch, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & @@ -237,6 +241,7 @@ SUBROUTINE g_first_rk_step_part2 ( grid , config_flags & grid%num_stoch_levels,grid%num_stoch_levels, & grid%num_stoch_levels,grid%num_stoch_levels, & config_flags%restart, grid%iseedarr_rand_pert, & + config_flags%seed_dim, & grid%DX,grid%DY,grid%rand_pert_vertstruc, & grid%RAND_PERT, & grid%stddev_cutoff_sppt,grid%gridpt_stddev_sppt, & diff --git a/wrftladj/module_physics_init_ad.F b/wrftladj/module_physics_init_ad.F index 3290018bb6..efe5a82159 100644 --- a/wrftladj/module_physics_init_ad.F +++ b/wrftladj/module_physics_init_ad.F @@ -57,7 +57,9 @@ SUBROUTINE A_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & & , f_rimef_phy, mp_restart_state, tbpvs_state, tbpvs0_state, & & allowed_to_read, moved, start_of_simulation, lagday, ids, ide, jds, & & jde, kds, kde, ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts& -& , kte, num_urban_layers, NUM_URBAN_HI, raincv_a, raincv_b, gd_cloud, gd_cloud2, & +& , kte, num_urban_ndm,urban_map_zrd,urban_map_zwd,urban_map_gd,urban_map_zd,& +& urban_map_zdf,urban_map_bd,urban_map_wd,urban_map_gbd,urban_map_fbd, & +& NUM_URBAN_HI, raincv_a, raincv_b, gd_cloud, gd_cloud2, & & gd_cloud_a, gd_cloud2_a, gd_cloud_b, gd_cloud2_b, ozmixm, pin, & & m_ps_1, m_ps_2, m_hybi, aerosolc_1, aerosolc_2, rundgdten, rvndgdten& & , rthndgdten, rphndgdten, rqvndgdten, rmundgdten, fgdt, stepfg, & @@ -306,37 +308,46 @@ SUBROUTINE A_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & !urban INTEGER, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & & utype_urb2d - INTEGER, INTENT(IN) :: num_urban_layers + INTEGER , INTENT(IN) :: num_urban_ndm + INTEGER , INTENT(IN) :: urban_map_zrd + INTEGER , INTENT(IN) :: urban_map_zwd + INTEGER , INTENT(IN) :: urban_map_gd + INTEGER , INTENT(IN) :: urban_map_zd + INTEGER , INTENT(IN) :: urban_map_zdf + INTEGER , INTENT(IN) :: urban_map_bd + INTEGER , INTENT(IN) :: urban_map_wd + INTEGER , INTENT(IN) :: urban_map_gbd + INTEGER , INTENT(IN) :: urban_map_fbd INTEGER , INTENT(IN) :: num_urban_hi ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zrd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: trb_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tgb_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tlev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: qlev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tglev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_fbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tflev_urb3d !multi-layer UCM REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & @@ -354,22 +365,22 @@ SUBROUTINE A_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & & lfvent_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin1_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin2_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, num_urban_ndm, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfg_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zdf, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfr_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw1_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw2_urb3d REAL, DIMENSION(ims:ime, kms:kme, jms:jme), OPTIONAL, INTENT(INOUT) & & :: a_u_bep @@ -490,7 +501,9 @@ SUBROUTINE A_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & & xxxr_urb2d, xxxb_urb2d, xxxg_urb2d, xxxc_urb2d, trl_urb3d, & & tbl_urb3d, tgl_urb3d, sh_urb2d, lh_urb2d, g_urb2d, rn_urb2d& & , ts_urb2d, frc_urb2d, utype_urb2d, sf_urban_physics, & -& num_urban_layers, trb_urb4d, tw1_urb4d, tw2_urb4d, & +& num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd, & +& urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, & +& urban_map_gbd, urban_map_fbd, trb_urb4d, tw1_urb4d, tw2_urb4d, & & tgb_urb4d, tlev_urb3d, qlev_urb3d, tw1lev_urb3d, & & tw2lev_urb3d, tglev_urb3d, tflev_urb3d, sf_ac_urb3d, & & lf_ac_urb3d, cm_ac_urb3d, sfvent_urb3d, lfvent_urb3d, & @@ -553,7 +566,9 @@ SUBROUTINE BL_INIT_B(stepbl, bldt, dt, rublten, rubltenb, rvblten, & & tr_urb2d, tb_urb2d, tg_urb2d, tc_urb2d, qc_urb2d, xxxr_urb2d, & & xxxb_urb2d, xxxg_urb2d, xxxc_urb2d, trl_urb3d, tbl_urb3d, tgl_urb3d& & , sh_urb2d, lh_urb2d, g_urb2d, rn_urb2d, ts_urb2d, frc_urb2d, & -& utype_urb2d, sf_urban_physics, num_urban_layers, trb_urb4d, & +& utype_urb2d, sf_urban_physics, num_urban_ndm, urban_map_zrd,& +& urban_map_zwd, urban_map_gd, urban_map_zd, urban_map_zdf,urban_map_bd,& +& urban_map_wd, urban_map_gbd, urban_map_fbd, trb_urb4d, & & tw1_urb4d, tw2_urb4d, tgb_urb4d, tlev_urb3d, qlev_urb3d, & & tw1lev_urb3d, tw2lev_urb3d, tglev_urb3d, tflev_urb3d, sf_ac_urb3d, & & lf_ac_urb3d, cm_ac_urb3d, sfvent_urb3d, lfvent_urb3d, sfwin1_urb3d, & @@ -713,36 +728,45 @@ SUBROUTINE BL_INIT_B(stepbl, bldt, dt, rublten, rubltenb, rvblten, & !Optional urban REAL, DIMENSION(ims:ime, num_soil_layers, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tgl_urb3d - INTEGER, INTENT(IN) :: num_urban_layers + INTEGER, INTENT(IN) :: num_urban_ndm + INTEGER, INTENT(IN) :: urban_map_zrd + INTEGER, INTENT(IN) :: urban_map_zwd + INTEGER, INTENT(IN) :: urban_map_gd + INTEGER, INTENT(IN) :: urban_map_zd + INTEGER, INTENT(IN) :: urban_map_zdf + INTEGER, INTENT(IN) :: urban_map_bd + INTEGER, INTENT(IN) :: urban_map_wd + INTEGER, INTENT(IN) :: urban_map_gbd + INTEGER, INTENT(IN) :: urban_map_fbd !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zrd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: trb_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tgb_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tlev_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: qlev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tglev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_fbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tflev_urb3d !multi-layer UCM REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & @@ -760,22 +784,22 @@ SUBROUTINE BL_INIT_B(stepbl, bldt, dt, rublten, rubltenb, rvblten, & REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & & lfvent_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin1_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin2_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw1_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw2_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zdf, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfr_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, num_urban_ndm, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfg_urb3d REAL, DIMENSION(ims:ime, kms:kme, jms:jme), OPTIONAL, INTENT(INOUT) & & :: a_u_bep diff --git a/wrftladj/module_physics_init_tl.F b/wrftladj/module_physics_init_tl.F index 3a680a171c..35199ba51a 100644 --- a/wrftladj/module_physics_init_tl.F +++ b/wrftladj/module_physics_init_tl.F @@ -60,7 +60,9 @@ SUBROUTINE G_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & & , f_rimef_phy, mp_restart_state, tbpvs_state, tbpvs0_state, & & allowed_to_read, moved, start_of_simulation, lagday, ids, ide, jds, & & jde, kds, kde, ims, ime, jms, jme, kms, kme, its, ite, jts, jte, kts& -& , kte, num_urban_layers, NUM_URBAN_HI, raincv_a, raincv_b, gd_cloud, gd_cloud2, & +& , kte, num_urban_ndm,urban_map_zrd,urban_map_zwd,urban_map_gd,urban_map_zd,& +& urban_map_zdf,urban_map_bd,urban_map_wd,urban_map_gbd,urban_map_fbd, & +& NUM_URBAN_HI, raincv_a, raincv_b, gd_cloud, gd_cloud2, & & gd_cloud_a, gd_cloud2_a, gd_cloud_b, gd_cloud2_b, ozmixm, pin, & & m_ps_1, m_ps_2, m_hybi, aerosolc_1, aerosolc_2, rundgdten, rvndgdten& & , rthndgdten, rphndgdten, rqvndgdten, rmundgdten, fgdt, stepfg, & @@ -309,37 +311,46 @@ SUBROUTINE G_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & !urban INTEGER, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & & utype_urb2d - INTEGER, INTENT(IN) :: num_urban_layers + INTEGER, INTENT(IN) :: num_urban_ndm + INTEGER, INTENT(IN) :: urban_map_zrd + INTEGER, INTENT(IN) :: urban_map_zwd + INTEGER, INTENT(IN) :: urban_map_gd + INTEGER, INTENT(IN) :: urban_map_zd + INTEGER, INTENT(IN) :: urban_map_zdf + INTEGER, INTENT(IN) :: urban_map_bd + INTEGER, INTENT(IN) :: urban_map_wd + INTEGER, INTENT(IN) :: urban_map_gbd + INTEGER, INTENT(IN) :: urban_map_fbd INTEGER, INTENT(IN) :: num_urban_hi ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zrd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: trb_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tgb_urb4d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tlev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: qlev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tglev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_fbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tflev_urb3d !multi-layer UCM REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & @@ -357,22 +368,22 @@ SUBROUTINE G_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & & lfvent_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin1_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin2_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, num_urban_ndm, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfg_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zdf, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfr_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw1_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw2_urb3d REAL, DIMENSION(ims:ime, kms:kme, jms:jme), OPTIONAL, INTENT(INOUT) & & :: a_u_bep @@ -637,7 +648,9 @@ SUBROUTINE G_PHY_INIT(id, config_flags, dt, restart, zfull, zhalf, & & xxxr_urb2d, xxxb_urb2d, xxxg_urb2d, xxxc_urb2d, trl_urb3d, & & tbl_urb3d, tgl_urb3d, sh_urb2d, lh_urb2d, g_urb2d, rn_urb2d& & , ts_urb2d, frc_urb2d, utype_urb2d, sf_urban_physics, & -& num_urban_layers, trb_urb4d, tw1_urb4d, tw2_urb4d, & +& num_urban_ndm, urban_map_zrd, urban_map_zwd, urban_map_gd,& +& urban_map_zd, urban_map_zdf, urban_map_bd, urban_map_wd, urban_map_gbd,& +& urban_map_fbd, trb_urb4d, tw1_urb4d, tw2_urb4d, & & tgb_urb4d, tlev_urb3d, qlev_urb3d, tw1lev_urb3d, & & tw2lev_urb3d, tglev_urb3d, tflev_urb3d, sf_ac_urb3d, & & lf_ac_urb3d, cm_ac_urb3d, sfvent_urb3d, lfvent_urb3d, & @@ -718,7 +731,9 @@ SUBROUTINE BL_INIT_D(stepbl, bldt, dt, rublten, rubltend, rvblten, & & tr_urb2d, tb_urb2d, tg_urb2d, tc_urb2d, qc_urb2d, xxxr_urb2d, & & xxxb_urb2d, xxxg_urb2d, xxxc_urb2d, trl_urb3d, tbl_urb3d, tgl_urb3d& & , sh_urb2d, lh_urb2d, g_urb2d, rn_urb2d, ts_urb2d, frc_urb2d, & -& utype_urb2d, sf_urban_physics, num_urban_layers, trb_urb4d, & +& utype_urb2d, sf_urban_physics, num_urban_ndm, urban_map_zrd,& +& urban_map_zwd, urban_map_gd, urban_map_zd, urban_map_zdf, urban_map_bd,& +& urban_map_wd, urban_map_gbd, urban_map_fbd, trb_urb4d, & & tw1_urb4d, tw2_urb4d, tgb_urb4d, tlev_urb3d, qlev_urb3d, & & tw1lev_urb3d, tw2lev_urb3d, tglev_urb3d, tflev_urb3d, sf_ac_urb3d, & & lf_ac_urb3d, cm_ac_urb3d, sfvent_urb3d, lfvent_urb3d, sfwin1_urb3d, & @@ -879,36 +894,45 @@ SUBROUTINE BL_INIT_D(stepbl, bldt, dt, rublten, rubltend, rvblten, & !Optional urban REAL, DIMENSION(ims:ime, num_soil_layers, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tgl_urb3d - INTEGER, INTENT(IN) :: num_urban_layers + INTEGER, INTENT(IN) :: num_urban_ndm + INTEGER, INTENT(IN) :: urban_map_zrd + INTEGER, INTENT(IN) :: urban_map_zwd + INTEGER, INTENT(IN) :: urban_map_gd + INTEGER, INTENT(IN) :: urban_map_zd + INTEGER, INTENT(IN) :: urban_map_zdf + INTEGER, INTENT(IN) :: urban_map_bd + INTEGER, INTENT(IN) :: urban_map_wd + INTEGER, INTENT(IN) :: urban_map_gbd + INTEGER, INTENT(IN) :: urban_map_fbd !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zrd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: trb_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zwd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tgb_urb4d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tlev_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_bd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: qlev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw1lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tw2lev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_gbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tglev_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_fbd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: tflev_urb3d !multi-layer UCM REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & @@ -926,22 +950,22 @@ SUBROUTINE BL_INIT_D(stepbl, bldt, dt, rublten, rubltend, rvblten, & REAL, DIMENSION(ims:ime, jms:jme), OPTIONAL, INTENT(INOUT) :: & & lfvent_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin1_urb3d ! multi-layer UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_wd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfwin2_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw1_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zd, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfw2_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, urban_map_zdf, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfr_urb3d !Optional UCM - REAL, DIMENSION(ims:ime, num_urban_layers, jms:jme), OPTIONAL, & + REAL, DIMENSION(ims:ime, num_urban_ndm, jms:jme), OPTIONAL, & & INTENT(INOUT) :: sfg_urb3d REAL, DIMENSION(ims:ime, kms:kme, jms:jme), OPTIONAL, INTENT(INOUT) & & :: a_u_bep diff --git a/wrftladj/start_em_ad.F b/wrftladj/start_em_ad.F index 15a6b595e9..e0287142d0 100644 --- a/wrftladj/start_em_ad.F +++ b/wrftladj/start_em_ad.F @@ -566,7 +566,16 @@ SUBROUTINE a_start_domain_em ( grid, allowed_to_read & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & grid%i_start(ij), grid%i_end(ij), grid%j_start(ij), grid%j_end(ij), kts, kte, & - config_flags%num_urban_layers, & !multi-layer urban + config_flags%num_urban_ndm, & !multi-layer urban + config_flags%urban_map_zrd, & !multi-layer urban + config_flags%urban_map_zwd, & !multi-layer urban + config_flags%urban_map_gd, & !multi-layer urban + config_flags%urban_map_zd, & !multi-layer urban + config_flags%urban_map_zdf, & !multi-layer urban + config_flags%urban_map_bd, & !multi-layer urban + config_flags%urban_map_wd, & !multi-layer urban + config_flags%urban_map_gbd, & !multi-layer urban + config_flags%urban_map_fbd, & !multi-layer urban config_flags%num_urban_hi, & !multi-layer urban grid%raincv_a,grid%raincv_b, & grid%gd_cloud, grid%gd_cloud2, & ! Optional diff --git a/wrftladj/start_em_tl.F b/wrftladj/start_em_tl.F index 23343c0da0..6f2ce0d3ba 100644 --- a/wrftladj/start_em_tl.F +++ b/wrftladj/start_em_tl.F @@ -438,7 +438,16 @@ SUBROUTINE g_start_domain_em ( grid, allowed_to_read & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & grid%i_start(ij), grid%i_end(ij), grid%j_start(ij), grid%j_end(ij), kts, kte, & - config_flags%num_urban_layers, & !multi-layer urban + config_flags%num_urban_ndm, & !multi-layer urban + config_flags%urban_map_zrd, & !multi-layer urban + config_flags%urban_map_zwd, & !multi-layer urban + config_flags%urban_map_gd, & !multi-layer urban + config_flags%urban_map_zd, & !multi-layer urban + config_flags%urban_map_zdf, & !multi-layer urban + config_flags%urban_map_bd, & !multi-layer urban + config_flags%urban_map_wd, & !multi-layer urban + config_flags%urban_map_gbd, & !multi-layer urban + config_flags%urban_map_fbd, & !multi-layer urban config_flags%num_urban_hi, & !multi-layer urban grid%raincv_a,grid%raincv_b, & grid%gd_cloud, grid%gd_cloud2, & ! Optional